1: PACKAGE BODY igs_pe_nonimg_form_pkg AS
2: /* $Header: IGSNIA7B.pls 120.2 2006/02/17 06:56:03 gmaheswa ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_nonimg_form%ROWTYPE;
1: PACKAGE BODY igs_pe_nonimg_form_pkg AS
2: /* $Header: IGSNIA7B.pls 120.2 2006/02/17 06:56:03 gmaheswa ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_nonimg_form%ROWTYPE;
6: new_references igs_pe_nonimg_form%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSNIA7B.pls 120.2 2006/02/17 06:56:03 gmaheswa ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_nonimg_form%ROWTYPE;
6: new_references igs_pe_nonimg_form%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
67: */
68:
69: CURSOR cur_old_ref_values IS
70: SELECT *
71: FROM igs_pe_nonimg_form
72: WHERE rowid = x_rowid;
73:
74: BEGIN
75:
280: || (reverse chronological order - newest change first)
281: */
282: BEGIN
283:
284: igs_pe_nonimg_empl_pkg.get_fk_igs_pe_nonimg_form ( old_references.nonimg_form_id );
285:
286: igs_pe_nonimg_stat_pkg.get_fk_igs_pe_nonimg_form ( old_references.nonimg_form_id );
287:
288: END check_child_existance;
282: BEGIN
283:
284: igs_pe_nonimg_empl_pkg.get_fk_igs_pe_nonimg_form ( old_references.nonimg_form_id );
285:
286: igs_pe_nonimg_stat_pkg.get_fk_igs_pe_nonimg_form ( old_references.nonimg_form_id );
287:
288: END check_child_existance;
289:
290:
324: || (reverse chronological order - newest change first)
325: */
326: CURSOR cur_rowid IS
327: SELECT rowid
328: FROM igs_pe_nonimg_form
329: WHERE nonimg_form_id = x_nonimg_form_id
330: FOR UPDATE NOWAIT;
331:
332: lv_rowid cur_rowid%RowType;
620:
621: IF (x_mode = 'S') THEN
622: igs_sc_gen_001.set_ctx('R');
623: END IF;
624: INSERT INTO igs_pe_nonimg_form (
625: nonimg_form_id,
626: person_id,
627: print_form,
628: form_effective_date,
669: last_session_flag,
670: adjudicated_flag,
671: SEVIS_SCHOOL_IDENTIFIER
672: ) VALUES (
673: igs_pe_nonimg_form_s.NEXTVAL,
674: new_references.person_id,
675: new_references.print_form,
676: new_references.form_effective_date,
677: new_references.form_status,
837: not_reqd_reason,
838: last_session_flag,
839: adjudicated_flag,
840: SEVIS_SCHOOL_IDENTIFIER
841: FROM igs_pe_nonimg_form
842: WHERE rowid = x_rowid
843: FOR UPDATE NOWAIT;
844:
845: tlinfo c1%ROWTYPE;
1046:
1047: IF (x_mode = 'S') THEN
1048: igs_sc_gen_001.set_ctx('R');
1049: END IF;
1050: UPDATE igs_pe_nonimg_form
1051: SET
1052: person_id = new_references.person_id,
1053: print_form = new_references.print_form,
1054: form_effective_date = new_references.form_effective_date,
1180: || (reverse chronological order - newest change first)
1181: */
1182: CURSOR c1 IS
1183: SELECT rowid
1184: FROM igs_pe_nonimg_form
1185: WHERE nonimg_form_id = x_nonimg_form_id;
1186:
1187: BEGIN
1188:
1313:
1314: IF (x_mode = 'S') THEN
1315: igs_sc_gen_001.set_ctx('R');
1316: END IF;
1317: DELETE FROM igs_pe_nonimg_form
1318: WHERE rowid = x_rowid;
1319:
1320: IF (SQL%NOTFOUND) THEN
1321: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1332:
1333: END delete_row;
1334:
1335:
1336: END igs_pe_nonimg_form_pkg;