9: -- CDCRUZ Sep 24,2002 New Col's added for
10: -- Person DLD / START_DT AND END_DT
11: ------------------------------------------------------------------
12: l_rowid VARCHAR2(25);
13: old_references igs_pe_res_dtls_all%RowType;
14: new_references igs_pe_res_dtls_all%RowType;
15:
16: PROCEDURE Set_Column_Values (
17: p_action IN VARCHAR2,
10: -- Person DLD / START_DT AND END_DT
11: ------------------------------------------------------------------
12: l_rowid VARCHAR2(25);
13: old_references igs_pe_res_dtls_all%RowType;
14: new_references igs_pe_res_dtls_all%RowType;
15:
16: PROCEDURE Set_Column_Values (
17: p_action IN VARCHAR2,
18: x_rowid IN VARCHAR2 ,
70: ****************************************************************/
71:
72: CURSOR cur_old_ref_values IS
73: SELECT *
74: FROM igs_pe_res_dtls_all
75: WHERE rowid = x_rowid;
76:
77: BEGIN
78:
246: ****************************************************************/
247:
248: CURSOR cur_rowid IS
249: SELECT rowid
250: FROM igs_pe_res_dtls_all
251: WHERE resident_details_id = x_resident_details_id
252: FOR UPDATE NOWAIT;
253:
254: lv_rowid cur_rowid%RowType;
288: asbala 3-SEP-03 Build SWCR01
289: ****************************************************************/
290: CURSOR cur_rowid IS
291: SELECT rowid
292: FROM igs_pe_res_dtls_all
293: WHERE person_id = x_person_id
294: AND residency_class_cd = x_residency_class_cd
295: AND cal_type = x_cal_type
296: AND sequence_number = x_sequence_number
332: ****************************************************************/
333:
334: CURSOR cur_rowid IS
335: SELECT rowid
336: FROM igs_pe_res_dtls_all
337: WHERE person_id = x_person_id ;
338:
339: lv_rowid cur_rowid%RowType;
340:
720:
721: Who When What
722:
723: ****************************************************************/
724: cursor C is select ROWID from igs_pe_res_dtls_all
725: where RESIDENT_DETAILS_ID= X_RESIDENT_DETAILS_ID;
726: X_LAST_UPDATE_DATE DATE ;
727: X_LAST_UPDATED_BY NUMBER ;
728: X_LAST_UPDATE_LOGIN NUMBER ;
790: );
791: IF (x_mode = 'S') THEN
792: igs_sc_gen_001.set_ctx('R');
793: END IF;
794: insert into igs_pe_res_dtls_all (
795: RESIDENT_DETAILS_ID
796: ,PERSON_ID
797: ,RESIDENCY_CLASS_CD
798: ,RESIDENCY_STATUS_CD
973: , ATTRIBUTE17
974: , ATTRIBUTE18
975: , ATTRIBUTE19
976: , ATTRIBUTE20
977: from igs_pe_res_dtls_all
978: where ROWID = X_ROWID
979: for update nowait;
980: tlinfo c1%rowtype;
981: begin
1183: x_last_update_login=>X_LAST_UPDATE_LOGIN);
1184: IF (x_mode = 'S') THEN
1185: igs_sc_gen_001.set_ctx('R');
1186: END IF;
1187: update igs_pe_res_dtls_all set
1188: PERSON_ID = NEW_REFERENCES.PERSON_ID,
1189: RESIDENCY_CLASS_CD = NEW_REFERENCES.RESIDENCY_CLASS_CD,
1190: RESIDENCY_STATUS_CD = NEW_REFERENCES.RESIDENCY_STATUS_CD,
1191: EVALUATION_DATE = NEW_REFERENCES.EVALUATION_DATE,
1296:
1297: Who When What
1298:
1299: ****************************************************************/
1300: cursor c1 is select ROWID from igs_pe_res_dtls_all
1301: where RESIDENT_DETAILS_ID= X_RESIDENT_DETAILS_ID
1302: ;
1303: BEGIN
1304: open c1;
1404: );
1405: IF (x_mode = 'S') THEN
1406: igs_sc_gen_001.set_ctx('R');
1407: END IF;
1408: delete from igs_pe_res_dtls_all
1409: where ROWID = X_ROWID;
1410: if (sql%notfound) then
1411: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1412: igs_ge_msg_stack.add;