1: PACKAGE BODY igs_fi_er_ord_dtls_pkg AS
2: /* $Header: IGSSIF4B.pls 120.0 2005/09/09 20:28:48 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_er_ord_dtls%ROWTYPE;
1: PACKAGE BODY igs_fi_er_ord_dtls_pkg AS
2: /* $Header: IGSSIF4B.pls 120.0 2005/09/09 20:28:48 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_er_ord_dtls%ROWTYPE;
6: new_references igs_fi_er_ord_dtls%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSSIF4B.pls 120.0 2005/09/09 20:28:48 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_fi_er_ord_dtls%ROWTYPE;
6: new_references igs_fi_er_ord_dtls%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
29: */
30:
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM igs_fi_er_ord_dtls
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
145: || (reverse chronological order - newest change first)
146: */
147: CURSOR cur_rowid IS
148: SELECT rowid
149: FROM igs_fi_er_ord_dtls
150: WHERE order_id = x_order_id
151: FOR UPDATE NOWAIT;
152:
153: lv_rowid cur_rowid%RowType;
181: || (reverse chronological order - newest change first)
182: */
183: CURSOR cur_rowid IS
184: SELECT rowid
185: FROM igs_fi_er_ord_dtls
186: WHERE order_num = x_order_num
187: AND elm_rng_order_name = x_elm_rng_order_name
188: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
189:
218: || (reverse chronological order - newest change first)
219: */
220: CURSOR cur_rowid IS
221: SELECT rowid
222: FROM igs_fi_er_ord_dtls
223: WHERE elm_rng_order_name = x_elm_rng_order_name
224: AND order_attr_value = x_order_attr_value
225: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
226:
254: || (reverse chronological order - newest change first)
255: */
256: CURSOR cur_rowid IS
257: SELECT rowid
258: FROM igs_fi_er_ord_dtls
259: WHERE ((elm_rng_order_name = x_elm_rng_order_name));
260:
261: lv_rowid cur_rowid%RowType;
262:
387: x_last_update_login := -1;
388: END IF;
389: ELSE
390: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
391: fnd_message.set_token ('ROUTINE', 'IGS_FI_ER_ORD_DTLS_PKG.INSERT_ROW');
392: igs_ge_msg_stack.add;
393: app_exception.raise_exception;
394: END IF;
395:
408: x_last_updated_by => x_last_updated_by,
409: x_last_update_login => x_last_update_login
410: );
411:
412: INSERT INTO igs_fi_er_ord_dtls (
413: order_id,
414: elm_rng_order_name,
415: order_num,
416: order_attr_value,
419: last_update_date,
420: last_updated_by,
421: last_update_login
422: ) VALUES (
423: igs_fi_er_ord_dtls_s.NEXTVAL,
424: new_references.elm_rng_order_name,
425: new_references.order_num,
426: new_references.order_attr_value,
427: x_last_update_date,
454: SELECT
455: elm_rng_order_name,
456: order_num,
457: order_attr_value
458: FROM igs_fi_er_ord_dtls
459: WHERE rowid = x_rowid
460: FOR UPDATE NOWAIT;
461:
462: tlinfo c1%ROWTYPE;
528: x_last_update_login := -1;
529: END IF;
530: ELSE
531: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
532: fnd_message.set_token ('ROUTINE', 'IGS_FI_ER_ORD_DTLS_PKG.UPDATE_ROW');
533: igs_ge_msg_stack.add;
534: app_exception.raise_exception;
535: END IF;
536:
547: x_last_updated_by => x_last_updated_by,
548: x_last_update_login => x_last_update_login
549: );
550:
551: UPDATE igs_fi_er_ord_dtls
552: SET
553: elm_rng_order_name = new_references.elm_rng_order_name,
554: order_num = new_references.order_num,
555: order_attr_value = new_references.order_attr_value,
583: || (reverse chronological order - newest change first)
584: */
585: CURSOR c1 IS
586: SELECT rowid
587: FROM igs_fi_er_ord_dtls
588: WHERE order_id = x_order_id;
589:
590: BEGIN
591:
636: p_action => 'DELETE',
637: x_rowid => x_rowid
638: );
639:
640: DELETE FROM igs_fi_er_ord_dtls
641: WHERE rowid = x_rowid;
642:
643: IF (SQL%NOTFOUND) THEN
644: RAISE NO_DATA_FOUND;
646:
647: END delete_row;
648:
649:
650: END igs_fi_er_ord_dtls_pkg;