1: PACKAGE BODY igs_pe_contact_dtls_pkg AS
2: /* $Header: IGSNI73B.pls 120.1 2005/06/28 05:13:47 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_contact_dtls%ROWTYPE;
1: PACKAGE BODY igs_pe_contact_dtls_pkg AS
2: /* $Header: IGSNI73B.pls 120.1 2005/06/28 05:13:47 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_contact_dtls%ROWTYPE;
6: new_references igs_pe_contact_dtls%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSNI73B.pls 120.1 2005/06/28 05:13:47 appldev ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_contact_dtls%ROWTYPE;
6: new_references igs_pe_contact_dtls%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
59: */
60:
61: CURSOR cur_old_ref_values IS
62: SELECT *
63: FROM IGS_PE_CONTACT_DTLS
64: WHERE rowid = x_rowid;
65:
66: BEGIN
67:
195: || (reverse chronological order - newest change first)
196: */
197: CURSOR cur_rowid IS
198: SELECT rowid
199: FROM igs_pe_contact_dtls
200: WHERE contact_point_id = x_contact_point_id
201: FOR UPDATE NOWAIT;
202:
203: lv_rowid cur_rowid%RowType;
230: || (reverse chronological order - newest change first)
231: */
232: CURSOR cur_rowid IS
233: SELECT rowid
234: FROM igs_pe_contact_dtls
235: WHERE location_venue_addr_id = x_location_venue_addr_id ;
236:
237: lv_rowid cur_rowid%RowType;
238:
463: || (reverse chronological order - newest change first)
464: */
465: CURSOR c IS
466: SELECT rowid
467: FROM igs_pe_contact_dtls
468: WHERE contact_point_id = x_contact_point_id
469: ;
470:
471: x_last_update_date DATE;
508: igs_ge_msg_stack.add;
509: app_exception.raise_exception;
510: END IF;
511:
512: SELECT igs_pe_contact_dtls_s.nextval INTO x_contact_point_id
513: FROM dual;
514:
515: before_dml(
516: p_action => 'INSERT',
558:
559: IF (x_mode = 'S') THEN
560: igs_sc_gen_001.set_ctx('R');
561: END IF;
562: INSERT INTO igs_pe_contact_dtls (
563: phone_line_type
564: ,contact_point_id
565: ,location_venue_addr_id
566: ,contact_point_type
760: , attribute17
761: , attribute18
762: , attribute19
763: , attribute20
764: FROM igs_pe_contact_dtls
765: WHERE ROWID = x_rowid
766: FOR UPDATE NOWAIT;
767:
768: tlinfo c1%ROWTYPE;
1023:
1024: IF (x_mode = 'S') THEN
1025: igs_sc_gen_001.set_ctx('R');
1026: END IF;
1027: UPDATE igs_pe_contact_dtls SET
1028: phone_line_type = new_references.phone_line_type,
1029: location_venue_addr_id = new_references.location_venue_addr_id,
1030: contact_point_type = new_references.contact_point_type,
1031: status = new_references.status,
1144: || Change History :
1145: || Who When What
1146: || (reverse chronological order - newest change first)
1147: */
1148: CURSOR c1 IS SELECT rowid FROM igs_pe_contact_dtls
1149: WHERE contact_point_id = x_contact_point_id
1150: ;
1151:
1152: BEGIN
1261:
1262: IF (x_mode = 'S') THEN
1263: igs_sc_gen_001.set_ctx('R');
1264: END IF;
1265: DELETE FROM igs_pe_contact_dtls
1266: WHERE ROWID = x_rowid;
1267:
1268: IF (SQL%NOTFOUND) THEN
1269: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1282: );
1283:
1284: END delete_row;
1285:
1286: END igs_pe_contact_dtls_pkg;