1 package body IGS_OR_UNIT_PKG AS
2 /* $Header: IGSOI10B.pls 115.6 2003/12/17 08:54:41 pkpatel ship $ */
3 /*************************************************************
4 Changed By : smanglm
5 Date : 2000/08/25
6 Purpose : to remove the procedures like insert_row, update_row,lock_row,
7 before DML, check_parent_existence,check_child_existence,
8 check_constraints, set_column_values, after_dml for
9 TCA related work as this would now be taken care through TCA
10 table handlers.
11 Know limitations, enhancements or remarks
12 Change History
13 Who When What
14 pkpatel 26-OCT-2002 Bug 2613704
15 Removed GET_FK_IGS_OR_MEMBER_TYPE and GET_FK_IGS_OR_MEMBER_TYPE procedures since
16 the tables will be obsolete for lookup migration
17 pkpatel 17-DEC-2003 Bug 3319026 (Replaced ROWID with ROW_ID while selecting from the complex view IGS_OR_UNIT)
18 (reverse chronological order - newest change first)
19 ***************************************************************/
20
21 l_rowid VARCHAR2(25);
22
23 FUNCTION Get_PK_For_Validation (
24 x_org_unit_cd IN VARCHAR2,
25 x_start_dt IN DATE
26 )RETURN BOOLEAN AS
27 CURSOR cur_rowid IS
28 SELECT row_id
29 FROM IGS_OR_UNIT
30 WHERE org_unit_cd = x_org_unit_cd
31 AND start_dt = x_start_dt;
32
33 lv_rowid cur_rowid%RowType;
34 BEGIN
35 Open cur_rowid;
36 Fetch cur_rowid INTO lv_rowid;
37
38 IF (cur_rowid%FOUND) THEN
39 Close cur_rowid;
40 RETURN(TRUE);
41 ELSE
42 Close cur_rowid;
43 RETURN(FALSE);
44 END IF;
45
46 END Get_PK_For_Validation;
47
48 /**** for validating Structure Id's *****/
49
50 FUNCTION Get_PK_For_Str_Validation (
51 x_org_unit_cd IN VARCHAR2
52 )RETURN BOOLEAN AS
53
54 CURSOR cur_rowid IS
55 SELECT row_id
56 FROM IGS_OR_UNIT
57 WHERE org_unit_cd = x_org_unit_cd;
58
59 lv_rowid cur_rowid%RowType;
60 BEGIN
61 Open cur_rowid;
62 Fetch cur_rowid INTO lv_rowid;
63
64 IF (cur_rowid%FOUND) THEN
65 Close cur_rowid;
66 RETURN(TRUE);
67 ELSE
68 Close cur_rowid;
69 RETURN(FALSE);
70 END IF;
71
72 END Get_PK_For_Str_Validation;
73
74 PROCEDURE GET_FK_IGS_OR_INSTITUTION (
75 x_institution_cd IN VARCHAR2
76 ) AS
77 CURSOR cur_rowid IS
78 SELECT row_id
79 FROM IGS_OR_UNIT
80 WHERE institution_cd = x_institution_cd ;
81 lv_rowid cur_rowid%RowType;
82 BEGIN
83 Open cur_rowid;
84 Fetch cur_rowid INTO lv_rowid;
85 IF (cur_rowid%FOUND) THEN
86 Close cur_rowid;
87 Fnd_Message.Set_Name ('IGS', 'IGS_OR_OU_INS_FK');
88 IGS_GE_MSG_STACK.ADD;
89 App_Exception.Raise_Exception;
90 Return;
91 END IF;
92 Close cur_rowid;
93 END GET_FK_IGS_OR_INSTITUTION;
94
95 PROCEDURE GET_FK_IGS_OR_STATUS (
96 x_org_status IN VARCHAR2
97 ) AS
98 CURSOR cur_rowid IS
99 SELECT row_id
100 FROM IGS_OR_UNIT
101 WHERE org_status = x_org_status ;
102 lv_rowid cur_rowid%RowType;
103 BEGIN
104 Open cur_rowid;
105 Fetch cur_rowid INTO lv_rowid;
106 IF (cur_rowid%FOUND) THEN
107 Close cur_rowid;
108 Fnd_Message.Set_Name ('IGS', 'IGS_OR_OU_OS_FK');
109 IGS_GE_MSG_STACK.ADD;
110 App_Exception.Raise_Exception;
111 Return;
112 END IF;
113 Close cur_rowid;
114 END GET_FK_IGS_OR_STATUS;
115
116 END igs_or_unit_pkg ;