1: PACKAGE BODY igf_sl_clchsn_dtls_pkg AS
2: /* $Header: IGFLI40B.pls 120.1 2005/09/15 23:34:53 appldev noship $ */
3: /*=======================================================================+
4: | Copyright (c) 1994, 1996 Oracle Corp. Redwood Shores, California, USA|
5: | All rights reserved. |
5: | All rights reserved. |
6: +=======================================================================+
7: | |
8: | DESCRIPTION |
9: | PL/SQL body for package: IGF_SL_CLCHSN_DTLS_PKG
10: | |
11: | NOTES |
12: | |
13: | This package has a flag on the end of some of the procedures called |
28: *=======================================================================*/
29:
30:
31: l_rowid VARCHAR2(25);
32: old_references igf_sl_clchsn_dtls%ROWTYPE;
33: new_references igf_sl_clchsn_dtls%ROWTYPE;
34:
35: PROCEDURE set_column_values (
36: p_action IN VARCHAR2,
29:
30:
31: l_rowid VARCHAR2(25);
32: old_references igf_sl_clchsn_dtls%ROWTYPE;
33: new_references igf_sl_clchsn_dtls%ROWTYPE;
34:
35: PROCEDURE set_column_values (
36: p_action IN VARCHAR2,
37: x_rowid IN VARCHAR2,
90: */
91:
92: CURSOR cur_old_ref_values IS
93: SELECT *
94: FROM igf_sl_clchsn_dtls
95: WHERE rowid = x_rowid;
96:
97: BEGIN
98:
183: WHERE NVL(external_loan_id_txt,loan_number) = cp_loan_number ;
184: loan_rec cur_loans%ROWTYPE;
185:
186: CURSOR cur_chng_dtls(cp_loan_number igf_sl_loans.loan_number%TYPE) IS
187: SELECT 'N' FROM igf_sl_clchsn_dtls WHERE loan_number_txt = cp_loan_number AND
188: status_code = 'N';
189: chng_dtls_rec cur_chng_dtls%ROWTYPE;
190:
191: loan_chng_status VARCHAR2(1);
279: || (reverse chronological order - newest change first)
280: */
281: CURSOR cur_rowid IS
282: SELECT rowid
283: FROM igf_sl_clchsn_dtls
284: WHERE clchgsnd_id = x_clchgsnd_id
285: FOR UPDATE NOWAIT;
286:
287: lv_rowid cur_rowid%RowType;
314: */
315:
316: CURSOR cur_rowid IS
317: SELECT rowid
318: FROM igf_sl_clchsn_dtls
319: WHERE ((loan_number_txt = x_loan_number ));
320:
321: lv_rowid cur_rowid%ROWTYPE;
322: BEGIN
559: x_program_update_date := SYSDATE;
560: END IF;
561: ELSE
562: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
563: fnd_message.set_token ('ROUTINE', 'IGF_SL_CLCHSN_DTLS_PKG.INSERT_ROW');
564: igs_ge_msg_stack.add;
565: app_exception.raise_exception;
566: END IF;
567:
614: x_last_updated_by => x_last_updated_by,
615: x_last_update_login => x_last_update_login
616: );
617:
618: INSERT INTO igf_sl_clchsn_dtls (
619: clchgsnd_id,
620: award_id,
621: loan_number_txt,
622: cl_version_code,
663: program_id,
664: program_application_id,
665: program_update_date
666: ) VALUES (
667: igf_sl_clchsn_dtls_s.NEXTVAL,
668: new_references.award_id,
669: new_references.loan_number_txt,
670: new_references.cl_version_code,
671: new_references.change_field_code,
807: lender_use_txt,
808: guarantor_use_txt,
809: validation_edit_txt,
810: send_record_txt
811: FROM igf_sl_clchsn_dtls
812: WHERE rowid = x_rowid
813: FOR UPDATE NOWAIT;
814:
815: tlinfo c1%ROWTYPE;
955: x_last_update_login := -1;
956: END IF;
957: ELSE
958: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
959: fnd_message.set_token ('ROUTINE', 'IGF_SL_CLCHSN_DTLS_PKG.UPDATE_ROW');
960: igs_ge_msg_stack.add;
961: app_exception.raise_exception;
962: END IF;
963:
1022: x_program_update_date := SYSDATE;
1023: END IF;
1024: END IF;
1025:
1026: UPDATE igf_sl_clchsn_dtls
1027: SET
1028: clchgsnd_id = new_references.clchgsnd_id,
1029: award_id = new_references.award_id,
1030: loan_number_txt = new_references.loan_number_txt,
1134: || bvisvana 13-Sept-2005 Bug # 4575843 - Added after_dml after Inserting.
1135: */
1136: CURSOR c1 IS
1137: SELECT rowid
1138: FROM igf_sl_clchsn_dtls
1139: WHERE clchgsnd_id = x_clchgsnd_id;
1140:
1141: BEGIN
1142:
1255: p_action => 'DELETE',
1256: x_rowid => x_rowid
1257: );
1258:
1259: DELETE FROM igf_sl_clchsn_dtls
1260: WHERE rowid = x_rowid;
1261:
1262: IF (SQL%NOTFOUND) THEN
1263: RAISE NO_DATA_FOUND;
1265:
1266: END delete_row;
1267:
1268:
1269: END igf_sl_clchsn_dtls_pkg;