[Home] [Help]
1: PACKAGE BODY GR_ITEM_RIGHT_TO_KNOW_PKG AS
2: /*$Header: GRHIIRKB.pls 120.1 2006/01/10 11:46:12 methomas noship $*/
3: PROCEDURE Insert_Row
4: (p_commit IN VARCHAR2,
5: p_called_by_form IN VARCHAR2,
94: IF FND_API.To_Boolean(l_key_exists) THEN
95: RAISE Label_Exists_Error;
96: END IF;
97:
98: INSERT INTO gr_item_right_to_know
99: (item_code,
100: location_segment_qualifier,
101: location_segment_value,
102: parent_segment_id,
298:
299: IF l_return_status <> 'S' THEN
300: RAISE Foreign_Key_Error;
301: ELSE
302: UPDATE gr_item_right_to_know
303: SET item_code = p_item_code,
304: location_segment_qualifier = p_location_segment_qualifier,
305: location_segment_value = p_location_segment_value,
306: parent_segment_id = p_parent_segment_id,
428:
429: CURSOR c_lock_item
430: IS
431: SELECT *
432: FROM gr_item_right_to_know
433: WHERE rowid = p_rowid
434: FOR UPDATE NOWAIT;
435: LockItemRTKRcd c_lock_item%ROWTYPE;
436:
582: IF l_return_status <> 'S' THEN
583: RAISE Check_Integrity_Error;
584: END IF;
585:
586: DELETE FROM gr_item_right_to_know
587: WHERE rowid = p_rowid;
588:
589: /* Check the commit flag and if set, then commit the work. */
590:
668: x_oracle_error := 0;
669: x_msg_data := NULL;
670: l_msg_token := p_item_code;
671:
672: DELETE FROM gr_item_right_to_know
673: WHERE item_code = p_item_code;
674:
675: IF FND_API.To_Boolean(p_commit) THEN
676: COMMIT WORK;
902:
903: CURSOR c_get_item_rtk_rowid
904: IS
905: SELECT irtk.rowid
906: FROM gr_item_right_to_know irtk
907: WHERE irtk.item_code = p_item_code
908: AND irtk.location_segment_qualifier = p_location_segment_qualifier
909: AND irtk.location_segment_value = p_location_segment_value
910: AND irtk.parent_segment_id = p_parent_segment_id;
938: END IF;
939:
940: END Check_Primary_Key;
941:
942: END GR_ITEM_RIGHT_TO_KNOW_PKG;