1: PACKAGE BODY igs_fi_pp_ins_appls_pkg AS
2: /* $Header: IGSSIE2B.pls 115.1 2003/09/16 12:25:32 smvk noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_pp_ins_appls%ROWTYPE;
1: PACKAGE BODY igs_fi_pp_ins_appls_pkg AS
2: /* $Header: IGSSIE2B.pls 115.1 2003/09/16 12:25:32 smvk noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_pp_ins_appls%ROWTYPE;
6: new_references igs_fi_pp_ins_appls%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSSIE2B.pls 115.1 2003/09/16 12:25:32 smvk noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_pp_ins_appls%ROWTYPE;
6: new_references igs_fi_pp_ins_appls%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
33: */
34:
35: CURSOR cur_old_ref_values IS
36: SELECT *
37: FROM igs_fi_pp_ins_appls
38: WHERE rowid = x_rowid;
39:
40: BEGIN
41:
140: || (reverse chronological order - newest change first)
141: */
142: CURSOR cur_rowid IS
143: SELECT rowid
144: FROM igs_fi_pp_ins_appls
145: WHERE installment_application_id = x_installment_application_id
146: FOR UPDATE NOWAIT;
147:
148: lv_rowid cur_rowid%RowType;
175: || (reverse chronological order - newest change first)
176: */
177: CURSOR cur_rowid IS
178: SELECT rowid
179: FROM igs_fi_pp_ins_appls
180: WHERE ((installment_id = x_installment_id));
181:
182: lv_rowid cur_rowid%RowType;
183:
330: x_program_update_date := SYSDATE;
331: END IF;
332: ELSE
333: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
334: fnd_message.set_token ('ROUTINE', 'IGS_FI_PP_INS_APPLS_PKG.INSERT_ROW');
335: igs_ge_msg_stack.add;
336: app_exception.raise_exception;
337: END IF;
338:
355: x_last_updated_by => x_last_updated_by,
356: x_last_update_login => x_last_update_login
357: );
358:
359: INSERT INTO igs_fi_pp_ins_appls (
360: installment_application_id,
361: application_type_code,
362: installment_id,
363: credit_id,
374: program_id,
375: program_application_id,
376: program_update_date
377: ) VALUES (
378: igs_fi_pp_ins_appls_s.NEXTVAL,
379: new_references.application_type_code,
380: new_references.installment_id,
381: new_references.credit_id,
382: new_references.credit_activity_id,
425: credit_activity_id,
426: applied_amt,
427: transaction_date,
428: link_application_id
429: FROM igs_fi_pp_ins_appls
430: WHERE rowid = x_rowid
431: FOR UPDATE NOWAIT;
432:
433: tlinfo c1%ROWTYPE;
511: x_last_update_login := -1;
512: END IF;
513: ELSE
514: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
515: fnd_message.set_token ('ROUTINE', 'IGS_FI_PP_INS_APPLS_PKG.UPDATE_ROW');
516: igs_ge_msg_stack.add;
517: app_exception.raise_exception;
518: END IF;
519:
548: x_program_update_date := SYSDATE;
549: END IF;
550: END IF;
551:
552: UPDATE igs_fi_pp_ins_appls
553: SET
554: application_type_code = new_references.application_type_code,
555: installment_id = new_references.installment_id,
556: credit_id = new_references.credit_id,
596: || (reverse chronological order - newest change first)
597: */
598: CURSOR c1 IS
599: SELECT rowid
600: FROM igs_fi_pp_ins_appls
601: WHERE installment_application_id = x_installment_application_id;
602:
603: BEGIN
604:
657: p_action => 'DELETE',
658: x_rowid => x_rowid
659: );
660:
661: DELETE FROM igs_fi_pp_ins_appls
662: WHERE rowid = x_rowid;
663:
664: IF (SQL%NOTFOUND) THEN
665: RAISE NO_DATA_FOUND;
667:
668: END delete_row;
669:
670:
671: END igs_fi_pp_ins_appls_pkg;