[Home] [Help]
1: PACKAGE BODY GR_ITEM_CONCENTRATIONS_PKG AS
2: /*$Header: GRHIICB.pls 115.5 2002/10/25 20:06:01 methomas ship $*/
3: PROCEDURE Insert_Row
4: (p_commit IN VARCHAR2,
5: p_called_by_form IN VARCHAR2,
73: IF FND_API.To_Boolean(l_key_exists) THEN
74: RAISE Item_Exists_Error;
75: END IF;
76:
77: INSERT INTO gr_item_concentrations
78: (item_code,
79: ingredient_item_code,
80: level_hierarchy_code,
81: concentration_percentage,
239:
240: IF l_return_status <> 'S' THEN
241: RAISE Foreign_Key_Error;
242: ELSE
243: UPDATE gr_item_concentrations
244: SET item_code = p_item_code,
245: ingredient_item_code = p_ingredient_item_code,
246: level_hierarchy_code = p_level_hierarchy_code,
247: concentration_percentage = p_concentration_percentage,
351:
352: CURSOR c_lock_concs_tl
353: IS
354: SELECT *
355: FROM gr_item_concentrations
356: WHERE rowid = p_rowid
357: FOR UPDATE NOWAIT;
358: LockConcRcd c_lock_concs_tl%ROWTYPE;
359: BEGIN
487: IF l_return_status <> 'S' THEN
488: RAISE Check_Integrity_Error;
489: END IF;
490:
491: DELETE FROM gr_item_concentrations
492: WHERE rowid = p_rowid;
493:
494: /* Check the commit flag and if set, then commit the work. */
495:
573: x_oracle_error := 0;
574: x_msg_data := NULL;
575: l_msg_token := p_item_code;
576:
577: DELETE FROM gr_item_concentrations
578: WHERE item_code = p_item_code;
579:
580: IF FND_API.To_Boolean(p_commit) THEN
581: COMMIT WORK;
734:
735: CURSOR c_get_concs_rowid
736: IS
737: SELECT ic.rowid
738: FROM gr_item_concentrations ic
739: WHERE ic.item_code = p_item_code
740: AND ic.ingredient_item_code = p_ingredient_item_code;
741: ConcRecord c_get_concs_rowid%ROWTYPE;
742:
769: END IF;
770:
771: END Check_Primary_Key;
772:
773: END GR_ITEM_CONCENTRATIONS_PKG;