1: PACKAGE BODY GR_ITEM_CLASSNS_PKG AS
2: /*$Header: GRHIIHCB.pls 115.6 2002/10/25 19:59:08 methomas ship $*/
3: PROCEDURE Insert_Row
4: (p_commit IN VARCHAR2,
5: p_called_by_form IN VARCHAR2,
75: IF FND_API.To_Boolean(l_key_exists) THEN
76: RAISE Item_Exists_Error;
77: END IF;
78:
79: INSERT INTO gr_item_classns
80: (item_code,
81: hazard_classification_code,
82: created_by,
83: creation_date,
235:
236: IF l_return_status <> 'S' THEN
237: RAISE Foreign_Key_Error;
238: ELSE
239: UPDATE gr_item_classns
240: SET item_code = p_item_code,
241: hazard_classification_code = p_hazard_classification_code,
242: created_by = p_created_by,
243: creation_date = p_creation_date,
342:
343: CURSOR c_lock_item_classns
344: IS
345: SELECT *
346: FROM gr_item_classns
347: WHERE rowid = p_rowid
348: FOR UPDATE NOWAIT;
349: LockClassnRcd c_lock_item_classns%ROWTYPE;
350: BEGIN
478: IF l_return_status <> 'S' THEN
479: RAISE Check_Integrity_Error;
480: END IF;
481:
482: DELETE FROM gr_item_classns
483: WHERE rowid = p_rowid;
484:
485: /* Check the commit flag and if set, then commit the work. */
486:
580: RAISE Null_Delete_Option_Error;
581: ELSE
582: l_msg_token := p_item_code;
583:
584: DELETE FROM gr_item_classns
585: WHERE item_code = p_item_code;
586: END IF;
587: ELSIF p_delete_option = 'H' THEN
588: IF p_hazard_classification_code IS NULL THEN
590: RAISE Null_Delete_Option_Error;
591: ELSE
592: l_msg_token := p_hazard_classification_code;
593:
594: DELETE FROM gr_item_classns
595: WHERE hazard_classification_code = p_hazard_classification_code;
596: END IF;
597: END IF;
598:
800:
801: CURSOR c_get_item_classn_rowid
802: IS
803: SELECT ihc.rowid
804: FROM gr_item_classns ihc
805: WHERE ihc.item_code = p_item_code
806: AND ihc.hazard_classification_code = p_hazard_classification_code;
807: ItemClassnRecord c_get_item_classn_rowid%ROWTYPE;
808:
835: END IF;
836:
837: END Check_Primary_Key;
838:
839: END GR_ITEM_CLASSNS_PKG;