1 PACKAGE BODY IGS_CO_VAL_OC AS
2 /* $Header: IGSCO16B.pls 115.6 2003/04/08 09:16:50 pkpatel ship $ */
3 -------------------------------------------------------------------------------------------
4 --Change History:
5 --Who When What
6 --smadathi 24-AUG-2001 Bug No. 1956374 .The function GENP_VAL_SDTT_SESS removed.
7 --pkpatel 8-APR-2003 Bug 2804863
8 -- Modified procedure genp_val_prsn_id
9 -------------------------------------------------------------------------------------------
10 -- Validate that the outgoing cor dates are in sequence
11 FUNCTION corp_val_oc_dateseq(
12 p_creation_dt IN DATE ,
13 p_issued_dt IN DATE ,
14 p_sent_dt IN DATE ,
15 p_returned_dt IN DATE ,
16 p_message_name OUT NOCOPY VARCHAR2 )
17 RETURN BOOLEAN AS
18
19 BEGIN
20 IF p_sent_dt IS NOT NULL THEN
21 IF TRUNC(p_sent_dt) < TRUNC(p_issued_dt) THEN
22 p_message_name := 'IGS_CO_COR_SENT_AFTER_ISSUEDT';
23 RETURN FALSE;
24 ELSE
25 IF p_returned_dt IS NOT NULL THEN
26 IF TRUNC(p_returned_dt) < TRUNC(p_sent_dt) THEN
27 p_message_name := 'IGS_CO_COR_RETURN_AFTER_DT';
28 RETURN FALSE;
29 END IF;
30 END IF;
31 END IF;
32 ELSE
33 IF p_returned_dt IS NOT NULL THEN
34 p_message_name := 'IGS_CO_COR_RETURN_AFTER_DT';
35 RETURN FALSE;
36 END IF;
37 END IF;
38 IF TRUNC(p_issued_dt) < TRUNC(p_creation_dt) THEN
39 p_message_name := 'IGS_CO_COR_ISSUED_AFTER_DT';
40 RETURN TRUE; -- warning only as this could be a re issue
41 END IF;
42 p_message_name := Null;
43 RETURN TRUE;
44
45 END corp_val_oc_dateseq;
46 --
47 -- Validate a person id.
48 FUNCTION genp_val_prsn_id(
49 p_person_id IN NUMBER ,
50 p_message_name OUT NOCOPY VARCHAR2 )
51 RETURN BOOLEAN AS
52 -------------------------------------------------------------------------------------------
53 --Change History:
54 --Who When What
55 --pkpatel 8-APR-2003 Bug 2804863
56 -- Replaced igs_pe_person with igs_pe_person_base_v
57 -------------------------------------------------------------------------------------------
58 BEGIN
59 DECLARE
60 v_person_id igs_pe_person_base_v.person_id%TYPE;
61 CURSOR c_person IS
62 SELECT person_id
63 FROM igs_pe_person_base_v
64 WHERE person_id = p_person_id;
65 BEGIN
66 -- validate the person_id is valid
67 OPEN c_person;
68 FETCH c_person INTO v_person_id;
69 IF (c_person%NOTFOUND) THEN
70 CLOSE c_person;
71 p_message_name := 'IGS_GE_INVALID_VALUE';
72 RETURN FALSE;
73 END IF;
74 CLOSE c_person;
75 p_message_name := Null;
76 RETURN TRUE;
77 END;
78
79 END genp_val_prsn_id;
80
81 END IGS_CO_VAL_OC;