1: PACKAGE BODY igs_pe_sn_service_pkg AS
2: /* $Header: IGSNI89B.pls 120.1 2005/06/28 06:15:54 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_sn_service%ROWTYPE;
1: PACKAGE BODY igs_pe_sn_service_pkg AS
2: /* $Header: IGSNI89B.pls 120.1 2005/06/28 06:15:54 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_sn_service%ROWTYPE;
6: new_references igs_pe_sn_service%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSNI89B.pls 120.1 2005/06/28 06:15:54 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_sn_service%ROWTYPE;
6: new_references igs_pe_sn_service%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 ,-- DEFAULT NULL,
31: */
32:
33: CURSOR cur_old_ref_values IS
34: SELECT *
35: FROM igs_pe_sn_service
36: WHERE rowid = x_rowid;
37:
38: BEGIN
39:
154: || (reverse chronological order - newest change first)
155: */
156: CURSOR cur_rowid IS
157: SELECT rowid
158: FROM igs_pe_sn_service
159: WHERE sn_service_id = x_sn_service_id
160: FOR UPDATE NOWAIT;
161:
162: lv_rowid cur_rowid%RowType;
193: || (reverse chronological order - newest change first)
194: */
195: CURSOR cur_rowid IS
196: SELECT rowid
197: FROM igs_pe_sn_service
198: WHERE disability_id = x_disability_id
199: AND special_service_cd = x_special_service_cd
200: AND ( (trunc(start_dt) = trunc(x_start_dt)) OR (start_dt IS NULL and x_start_dt IS NULL ))
201: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
229: || (reverse chronological order - newest change first)
230: */
231: CURSOR cur_rowid IS
232: SELECT rowid
233: FROM igs_pe_sn_service
234: WHERE ((disability_id = x_igs_pe_pers_disablty_id));
235:
236: lv_rowid cur_rowid%RowType;
237:
353: || (reverse chronological order - newest change first)
354: */
355: CURSOR c IS
356: SELECT rowid
357: FROM igs_pe_sn_service
358: WHERE sn_service_id = x_sn_service_id;
359:
360: x_last_update_date DATE;
361: x_last_updated_by NUMBER;
381: igs_ge_msg_stack.add;
382: app_exception.raise_exception;
383: END IF;
384:
385: SELECT igs_pe_sn_service_s.NEXTVAL
386: INTO x_sn_service_id
387: FROM dual;
388:
389: before_dml(
404:
405: IF (x_mode = 'S') THEN
406: igs_sc_gen_001.set_ctx('R');
407: END IF;
408: INSERT INTO igs_pe_sn_service (
409: sn_service_id,
410: disability_id,
411: special_service_cd,
412: documented_ind,
484: special_service_cd,
485: documented_ind,
486: start_dt,
487: end_dt
488: FROM igs_pe_sn_service
489: WHERE rowid = x_rowid
490: FOR UPDATE NOWAIT;
491:
492: tlinfo c1%ROWTYPE;
594:
595: IF (x_mode = 'S') THEN
596: igs_sc_gen_001.set_ctx('R');
597: END IF;
598: UPDATE igs_pe_sn_service
599: SET
600: disability_id = new_references.disability_id,
601: special_service_cd = new_references.special_service_cd,
602: documented_ind = new_references.documented_ind,
654: || (reverse chronological order - newest change first)
655: */
656: CURSOR c1 IS
657: SELECT rowid
658: FROM igs_pe_sn_service
659: WHERE sn_service_id = x_sn_service_id;
660:
661: BEGIN
662:
715:
716: IF (x_mode = 'S') THEN
717: igs_sc_gen_001.set_ctx('R');
718: END IF;
719: DELETE FROM igs_pe_sn_service
720: WHERE rowid = x_rowid;
721:
722: IF (SQL%NOTFOUND) THEN
723: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
732:
733: END delete_row;
734:
735:
736: END igs_pe_sn_service_pkg;