1: PACKAGE BODY igs_fi_1098t_dtls_pkg AS
2: /* $Header: IGSSIE9B.pls 120.0 2005/09/09 20:49:18 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_1098t_dtls%ROWTYPE;
1: PACKAGE BODY igs_fi_1098t_dtls_pkg AS
2: /* $Header: IGSSIE9B.pls 120.0 2005/09/09 20:49:18 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_1098t_dtls%ROWTYPE;
6: new_references igs_fi_1098t_dtls%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSSIE9B.pls 120.0 2005/09/09 20:49:18 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_1098t_dtls%ROWTYPE;
6: new_references igs_fi_1098t_dtls%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
30: */
31:
32: CURSOR cur_old_ref_values IS
33: SELECT *
34: FROM igs_fi_1098t_dtls
35: WHERE rowid = x_rowid;
36:
37: BEGIN
38:
115: || (reverse chronological order - newest change first)
116: */
117: CURSOR cur_rowid IS
118: SELECT rowid
119: FROM igs_fi_1098t_dtls
120: WHERE stu_1098t_id = x_stu_1098t_id
121: AND box_num = x_box_num
122: AND transaction_id = x_transaction_id
123: AND transaction_code = x_transaction_code
270: x_program_update_date := SYSDATE;
271: END IF;
272: ELSE
273: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
274: fnd_message.set_token ('ROUTINE', 'IGS_FI_1098T_DTLS_PKG.INSERT_ROW');
275: igs_ge_msg_stack.add;
276: app_exception.raise_exception;
277: END IF;
278:
290: x_last_updated_by => x_last_updated_by,
291: x_last_update_login => x_last_update_login
292: );
293:
294: INSERT INTO igs_fi_1098t_dtls (
295: stu_1098t_id,
296: box_num,
297: transaction_id,
298: transaction_code,
352: x_program_update_date DATE;
353:
354: CURSOR cur_1098t_dtls IS
355: SELECT object_version_number
356: FROM igs_fi_1098t_dtls
357: WHERE rowid = x_rowid
358: FOR UPDATE NOWAIT;
359:
360: l_n_object_version_number igs_fi_1098t_dtls.object_version_number%TYPE;
356: FROM igs_fi_1098t_dtls
357: WHERE rowid = x_rowid
358: FOR UPDATE NOWAIT;
359:
360: l_n_object_version_number igs_fi_1098t_dtls.object_version_number%TYPE;
361: BEGIN
362:
363: x_last_update_date := SYSDATE;
364: IF (X_MODE = 'I') THEN
374: x_last_update_login := -1;
375: END IF;
376: ELSE
377: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
378: fnd_message.set_token ('ROUTINE', 'IGS_FI_1098T_DTLS_PKG.UPDATE_ROW');
379: igs_ge_msg_stack.add;
380: app_exception.raise_exception;
381: END IF;
382:
414: x_program_update_date := SYSDATE;
415: END IF;
416: END IF;
417:
418: UPDATE igs_fi_1098t_dtls
419: SET
420: object_version_number = new_references.object_version_number,
421: last_update_date = x_last_update_date,
422: last_updated_by = x_last_updated_by,
452: || (reverse chronological order - newest change first)
453: */
454: CURSOR c1 IS
455: SELECT rowid
456: FROM igs_fi_1098t_dtls
457: WHERE stu_1098t_id = x_stu_1098t_id
458: AND box_num = x_box_num
459: AND transaction_id = x_transaction_id
460: AND transaction_code = x_transaction_code;
508: p_action => 'DELETE',
509: x_rowid => x_rowid
510: );
511:
512: DELETE FROM igs_fi_1098t_dtls
513: WHERE rowid = x_rowid;
514:
515: IF (SQL%NOTFOUND) THEN
516: RAISE NO_DATA_FOUND;
518:
519: END delete_row;
520:
521:
522: END igs_fi_1098t_dtls_pkg;