1: PACKAGE BODY igs_fi_applications_pkg AS
2: /* $Header: IGSSI94B.pls 115.12 2003/02/17 08:46:58 pathipat ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_applications%ROWTYPE;
1: PACKAGE BODY igs_fi_applications_pkg AS
2: /* $Header: IGSSI94B.pls 115.12 2003/02/17 08:46:58 pathipat ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_applications%ROWTYPE;
6: new_references igs_fi_applications%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSSI94B.pls 115.12 2003/02/17 08:46:58 pathipat ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_applications%ROWTYPE;
6: new_references igs_fi_applications%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 ,
45: */
46:
47: CURSOR cur_old_ref_values IS
48: SELECT *
49: FROM IGS_FI_APPLICATIONS
50: WHERE rowid = x_rowid;
51:
52: BEGIN
53:
232: || (reverse chronological order - newest change first)
233: */
234: CURSOR cur_rowid IS
235: SELECT rowid
236: FROM igs_fi_applications
237: WHERE application_id = x_application_id
238: FOR UPDATE NOWAIT;
239:
240: lv_rowid cur_rowid%RowType;
267: || (reverse chronological order - newest change first)
268: */
269: CURSOR cur_rowid IS
270: SELECT rowid
271: FROM igs_fi_applications
272: WHERE ((credit_id = x_credit_id));
273:
274: lv_rowid cur_rowid%RowType;
275:
302: || (reverse chronological order - newest change first)
303: */
304: CURSOR cur_rowid IS
305: SELECT rowid
306: FROM igs_fi_applications
307: WHERE ((credit_activity_id = x_credit_activity_id));
308:
309: lv_rowid cur_rowid%RowType;
310:
337: || (reverse chronological order - newest change first)
338: */
339: CURSOR cur_rowid IS
340: SELECT rowid
341: FROM igs_fi_applications
342: WHERE ((posting_id = x_posting_id));
343:
344: lv_rowid cur_rowid%RowType;
345:
372: || (reverse chronological order - newest change first)
373: */
374: CURSOR cur_rowid IS
375: SELECT rowid
376: FROM igs_fi_applications
377: WHERE ((appl_hierarchy_id = x_appl_hierarchy_id));
378:
379: lv_rowid cur_rowid%RowType;
380:
407: || (reverse chronological order - newest change first)
408: */
409: CURSOR cur_rowid IS
410: SELECT rowid
411: FROM igs_fi_applications
412: WHERE ((invoice_id = x_invoice_id));
413:
414: lv_rowid cur_rowid%RowType;
415:
442: || (reverse chronological order - newest change first)
443: */
444: CURSOR cur_rowid IS
445: SELECT rowid
446: FROM igs_fi_applications
447: WHERE ((applied_invoice_lines_id = x_invoice_lines_id));
448:
449: lv_rowid cur_rowid%RowType;
450:
597: || (reverse chronological order - newest change first)
598: */
599: CURSOR c IS
600: SELECT rowid
601: FROM igs_fi_applications
602: WHERE application_id = x_application_id;
603:
604: x_last_update_date DATE;
605: x_last_updated_by NUMBER;
641: igs_ge_msg_stack.add;
642: app_exception.raise_exception;
643: END IF;
644:
645: SELECT igs_fi_applications_s.NEXTVAL
646: INTO x_application_id
647: FROM dual;
648:
649: before_dml(
673: x_gl_posted_date => x_gl_posted_date,
674: x_posting_control_id => x_posting_control_id
675: );
676:
677: INSERT INTO igs_fi_applications (
678: application_id,
679: application_type,
680: invoice_id,
681: credit_id,
793: posting_id,
794: gl_date,
795: gl_posted_date,
796: posting_control_id
797: FROM igs_fi_applications
798: WHERE rowid = x_rowid
799: FOR UPDATE NOWAIT;
800:
801: tlinfo c1%ROWTYPE;
947: x_program_update_date := SYSDATE;
948: END IF;
949: END IF;
950:
951: UPDATE igs_fi_applications
952: SET
953: application_type = new_references.application_type,
954: invoice_id = new_references.invoice_id,
955: credit_id = new_references.credit_id,
1017: || (reverse chronological order - newest change first)
1018: */
1019: CURSOR c1 IS
1020: SELECT rowid
1021: FROM igs_fi_applications
1022: WHERE application_id = x_application_id;
1023:
1024: BEGIN
1025:
1098: p_action => 'DELETE',
1099: x_rowid => x_rowid
1100: );
1101:
1102: DELETE FROM igs_fi_applications
1103: WHERE rowid = x_rowid;
1104:
1105: IF (SQL%NOTFOUND) THEN
1106: RAISE NO_DATA_FOUND;
1108:
1109: END delete_row;
1110:
1111:
1112: END igs_fi_applications_pkg;