1: PACKAGE BODY igf_sl_dl_manifest_pkg AS
2: /* $Header: IGFLI31B.pls 115.5 2002/11/28 14:28:35 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sl_dl_manifest_all%ROWTYPE;
6: new_references igf_sl_dl_manifest_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGFLI31B.pls 115.5 2002/11/28 14:28:35 nsidana noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igf_sl_dl_manifest_all%ROWTYPE;
6: new_references igf_sl_dl_manifest_all%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
34: */
35:
36: CURSOR cur_old_ref_values IS
37: SELECT *
38: FROM IGF_SL_DL_MANIFEST_ALL
39: WHERE rowid = x_rowid;
40:
41: BEGIN
42:
120: || (reverse chronological order - newest change first)
121: */
122: CURSOR cur_rowid IS
123: SELECT rowid
124: FROM igf_sl_dl_manifest_all
125: WHERE pnmn_id = x_pnmn_id
126: FOR UPDATE NOWAIT;
127:
128: lv_rowid cur_rowid%RowType;
155: || (reverse chronological order - newest change first)
156: */
157: CURSOR cur_rowid IS
158: SELECT rowid
159: FROM igf_sl_dl_manifest_all
160: WHERE ((loan_id = x_loan_id));
161:
162: lv_rowid cur_rowid%RowType;
163:
278: || (reverse chronological order - newest change first)
279: */
280: CURSOR c IS
281: SELECT rowid
282: FROM igf_sl_dl_manifest_all
283: WHERE pnmn_id = x_pnmn_id;
284:
285: x_last_update_date DATE;
286: x_last_updated_by NUMBER;
322: igs_ge_msg_stack.add;
323: app_exception.raise_exception;
324: END IF;
325:
326: SELECT igf_sl_dl_manifest_all_s.NEXTVAL
327: INTO x_pnmn_id
328: FROM dual;
329:
330: new_references.org_id := igs_ge_gen_003.get_org_id;
347: x_last_updated_by => x_last_updated_by,
348: x_last_update_login => x_last_update_login
349: );
350:
351: INSERT INTO igf_sl_dl_manifest_all (
352: pnmn_id,
353: batch_seq_num,
354: loan_id,
355: loan_number,
431: b_first_name,
432: b_last_name,
433: b_middle_name,
434: status
435: FROM igf_sl_dl_manifest_all
436: WHERE rowid = x_rowid
437: FOR UPDATE NOWAIT;
438:
439: tlinfo c1%ROWTYPE;
556: x_program_update_date := SYSDATE;
557: END IF;
558: END IF;
559:
560: UPDATE igf_sl_dl_manifest_all
561: SET
562: batch_seq_num = new_references.batch_seq_num,
563: loan_id = new_references.loan_id,
564: loan_number = new_references.loan_number,
606: || (reverse chronological order - newest change first)
607: */
608: CURSOR c1 IS
609: SELECT rowid
610: FROM igf_sl_dl_manifest_all
611: WHERE pnmn_id = x_pnmn_id;
612:
613: BEGIN
614:
669: p_action => 'DELETE',
670: x_rowid => x_rowid
671: );
672:
673: DELETE FROM igf_sl_dl_manifest_all
674: WHERE rowid = x_rowid;
675:
676: IF (SQL%NOTFOUND) THEN
677: RAISE NO_DATA_FOUND;