[Home] [Help]
1: PACKAGE BODY IGR_I_PKGITM_ASSIGN_PKG AS
2: /* $Header: IGSRH20B.pls 120.0 2005/06/01 21:48:34 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGR_I_PKGITM_ASSIGN%ROWTYPE;
1: PACKAGE BODY IGR_I_PKGITM_ASSIGN_PKG AS
2: /* $Header: IGSRH20B.pls 120.0 2005/06/01 21:48:34 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGR_I_PKGITM_ASSIGN%ROWTYPE;
6: new_references IGR_I_PKGITM_ASSIGN%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSRH20B.pls 120.0 2005/06/01 21:48:34 appldev noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGR_I_PKGITM_ASSIGN%ROWTYPE;
6: new_references IGR_I_PKGITM_ASSIGN%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 IGR_I_PKGITM_ASSIGN
35: WHERE rowid = x_rowid;
36:
37: BEGIN
38:
87: || (reverse chronological order - newest change first)
88: */
89: CURSOR cur_rowid IS
90: SELECT rowid
91: FROM IGR_I_PKGITM_ASSIGN
92: WHERE package_item_id = x_package_item_id
93: AND product_category_id = x_product_category_id
94: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
95:
266: || (reverse chronological order - newest change first)
267: */
268: CURSOR cur_rowid IS
269: SELECT rowid
270: FROM IGR_I_PKGITM_ASSIGN
271: WHERE pkg_item_assign_id = x_pkg_item_assign_id
272: FOR UPDATE NOWAIT;
273:
274: lv_rowid cur_rowid%RowType;
301: || (reverse chronological order - newest change first)
302: */
303: CURSOR cur_rowid IS
304: SELECT rowid
305: FROM IGR_I_PKGITM_ASSIGN
306: WHERE ((package_item_id = x_package_item_id));
307:
308: lv_rowid cur_rowid%RowType;
309:
438: x_last_update_login := -1;
439: END IF;
440: ELSE
441: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
442: fnd_message.set_token ('ROUTINE', 'IGR_I_PKGITM_ASSIGN_PKG.INSERT_ROW');
443: igs_ge_msg_stack.add;
444: app_exception.raise_exception;
445: END IF;
446:
460: x_last_updated_by => x_last_updated_by,
461: x_last_update_login => x_last_update_login
462: );
463:
464: INSERT INTO IGR_I_PKGITM_ASSIGN (
465: pkg_item_assign_id,
466: product_category_id,
467: product_category_set_id,
468: package_item_id,
472: last_update_date,
473: last_updated_by,
474: last_update_login
475: ) VALUES (
476: IGR_I_PKGITM_ASSIGN_S.NEXTVAL,
477: new_references.product_category_id,
478: new_references.product_category_set_id,
479: new_references.package_item_id,
480: new_references.enabled_flag,
510: product_category_id,
511: product_category_set_id,
512: package_item_id,
513: enabled_flag
514: FROM IGR_I_PKGITM_ASSIGN
515: WHERE rowid = x_rowid
516: FOR UPDATE NOWAIT;
517:
518: tlinfo c1%ROWTYPE;
586: x_last_update_login := -1;
587: END IF;
588: ELSE
589: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
590: fnd_message.set_token ('ROUTINE', 'IGR_I_PKGITM_ASSIGN_PKG.UPDATE_ROW');
591: igs_ge_msg_stack.add;
592: app_exception.raise_exception;
593: END IF;
594:
606: x_last_updated_by => x_last_updated_by,
607: x_last_update_login => x_last_update_login
608: );
609:
610: UPDATE IGR_I_PKGITM_ASSIGN
611: SET
612: product_category_id = new_references.product_category_id,
613: product_category_set_id = new_references.product_category_set_id,
614: package_item_id = new_references.package_item_id,
644: || (reverse chronological order - newest change first)
645: */
646: CURSOR c1 IS
647: SELECT rowid
648: FROM IGR_I_PKGITM_ASSIGN
649: WHERE pkg_item_assign_id = x_pkg_item_assign_id;
650:
651: BEGIN
652:
699: p_action => 'DELETE',
700: x_rowid => x_rowid
701: );
702:
703: DELETE FROM IGR_I_PKGITM_ASSIGN
704: WHERE rowid = x_rowid;
705:
706: IF (SQL%NOTFOUND) THEN
707: RAISE NO_DATA_FOUND;
710: END delete_row;
711:
712:
713:
714: END IGR_I_PKGITM_ASSIGN_PKG;