[Home] [Help]
82: l_rowid VARCHAR2(255);
83:
84: CURSOR c_rowid (cp_privacy_level_id NUMBER) IS
85: SELECT rowid, ref_notes_id
86: FROM IGS_PE_PRIV_LEVEL
87: WHERE privacy_level_id = cp_privacy_level_id;
88:
89: CURSOR data_group_cur (cp_data_group_id NUMBER) IS
90: SELECT data_group, lvl
92: WHERE data_group_id = p_data_group_id;
93:
94: l_data_group IGS_PE_DATA_GROUPS.data_group%TYPE;
95: l_lvl IGS_PE_DATA_GROUPS.lvl%TYPE;
96: l_ref_notes_id igs_pe_priv_level.ref_notes_id%TYPE;
97: BEGIN
98: -- Standard Start of API savepoint
99: SAVEPOINT Update_Privacy;
100: -- Standard call to check for call compatibility.
121: IF p_mode='UPDATE' THEN
122: OPEN c_rowid (p_privacy_level_id);
123: FETCH c_rowid INTO l_rowid, l_ref_notes_id;
124: CLOSE c_rowid;
125: igs_pe_priv_level_pkg.update_row(
126: X_ROWID => l_rowid,
127: X_PRIVACY_LEVEL_ID => p_privacy_level_id,
128: X_PERSON_ID => p_person_id ,
129: X_DATA_GROUP => l_data_group ,
134: X_REF_NOTES_ID => l_ref_notes_id,
135: X_START_DATE => p_start_date ,
136: X_END_DATE => p_end_date );
137: ELSIF p_mode='INSERT' THEN
138: igs_pe_priv_level_pkg.insert_row(
139: X_ROWID => l_rowid,
140: X_PRIVACY_LEVEL_ID => x_privacy_level_id,
141: X_PERSON_ID => p_person_id ,
142: X_DATA_GROUP => l_data_group ,
152: FETCH c_rowid INTO l_rowid, l_ref_notes_id;
153: CLOSE c_rowid;
154: --kumma, 2902713, Added the following IF clause , as row id could be null
155: IF l_rowid IS NOT NULL THEN
156: igs_pe_priv_level_pkg.delete_row(
157: X_ROWID => l_rowid);
158: END IF;
159:
160: ELSIF p_mode='LOCK' THEN
161: OPEN c_rowid(p_privacy_level_id);
162: FETCH c_rowid INTO l_rowid, l_ref_notes_id;
163: CLOSE c_rowid;
164:
165: Igs_Pe_Priv_Level_Pkg.Lock_Row (
166: X_RowId => l_rowid,
167: X_Privacy_Level_Id => p_privacy_level_id,
168: X_Person_Id => p_person_id,
169: X_Data_Group => l_data_group,