1: PACKAGE BODY igs_fi_com_recs_int_pkg AS
2: /* $Header: IGSSIC9B.pls 120.0 2005/06/01 17:50:12 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_com_recs_int%ROWTYPE;
1: PACKAGE BODY igs_fi_com_recs_int_pkg AS
2: /* $Header: IGSSIC9B.pls 120.0 2005/06/01 17:50:12 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_com_recs_int%ROWTYPE;
6: new_references igs_fi_com_recs_int%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSSIC9B.pls 120.0 2005/06/01 17:50:12 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_com_recs_int%ROWTYPE;
6: new_references igs_fi_com_recs_int%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
65: */
66:
67: CURSOR cur_old_ref_values IS
68: SELECT *
69: FROM igs_fi_com_recs_int
70: WHERE rowid = x_rowid;
71:
72: BEGIN
73:
155: || (reverse chronological order - newest change first)
156: */
157: CURSOR cur_rowid IS
158: SELECT rowid
159: FROM igs_fi_com_recs_int
160: WHERE transaction_category = x_transaction_category
161: AND transaction_header_id = x_transaction_header_id
162: FOR UPDATE NOWAIT;
163:
404: x_program_update_date := SYSDATE;
405: END IF;
406: ELSE
407: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
408: fnd_message.set_token ('ROUTINE', 'IGS_FI_COM_RECS_INT_PKG.INSERT_ROW');
409: igs_ge_msg_stack.add;
410: app_exception.raise_exception;
411: END IF;
412:
457: x_student_party_id => x_student_party_id,
458: x_source_invoice_id => x_source_invoice_id
459: );
460:
461: INSERT INTO igs_fi_com_recs_int (
462: transaction_category,
463: transaction_header_id,
464: transaction_number,
465: party_id,
648: currency_cd,
649: extract_flag,
650: student_party_id,
651: source_invoice_id
652: FROM igs_fi_com_recs_int
653: WHERE rowid = x_rowid
654: FOR UPDATE NOWAIT;
655:
656: tlinfo c1%ROWTYPE;
795: x_last_update_login := -1;
796: END IF;
797: ELSE
798: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
799: fnd_message.set_token ('ROUTINE', 'IGS_FI_COM_RECS_INT_PKG.UPDATE_ROW');
800: igs_ge_msg_stack.add;
801: app_exception.raise_exception;
802: END IF;
803:
862: x_program_update_date := SYSDATE;
863: END IF;
864: END IF;
865:
866: UPDATE igs_fi_com_recs_int
867: SET
868: transaction_number = new_references.transaction_number,
869: party_id = new_references.party_id,
870: transaction_date = new_references.transaction_date,
971: || Added 2 new columns student_party_id and source_invoice_id
972: */
973: CURSOR c1 IS
974: SELECT rowid
975: FROM igs_fi_com_recs_int
976: WHERE transaction_category = x_transaction_category
977: AND transaction_header_id = x_transaction_header_id;
978:
979: BEGIN
1093: p_action => 'DELETE',
1094: x_rowid => x_rowid
1095: );
1096:
1097: DELETE FROM igs_fi_com_recs_int
1098: WHERE rowid = x_rowid;
1099:
1100: IF (SQL%NOTFOUND) THEN
1101: RAISE NO_DATA_FOUND;
1103:
1104: END delete_row;
1105:
1106:
1107: END igs_fi_com_recs_int_pkg;