1: PACKAGE BODY BOM_Sub_Op_Res_UTIL AS
2: /* $Header: BOMUSORB.pls 120.2 2005/12/08 22:02:09 bbpatel noship $ */
3:
4: /****************************************************************************
5: --
11: -- BOMUSORB.pls
12: --
13: -- DESCRIPTION
14: --
15: -- Body of package BOM_Sub_Op_Res_UTIL
16: --
17: -- NOTES
18: --
19: -- HISTORY
22: -- 08-DEC-2005 Bhavnesh Patel 4689856:Added basis type column to identify
23: -- a sub resource
24: ****************************************************************************/
25:
26: G_Pkg_Name CONSTANT VARCHAR2(30) := 'BOM_Sub_Op_Res_UTIL' ;
27:
28: /*****************************************************************
29: * Procedure : Query_Row
30: * Parameters IN : Sub Operation Resource Key
58: BEGIN
59:
60: x_mesg_token_tbl := p_mesg_token_tbl;
61:
62: BOM_Sub_Op_Res_UTIL.Query_Row
63: ( p_resource_id => p_resource_id
64: , p_substitute_group_number => p_substitute_group_number
65: , p_operation_sequence_id => p_operation_sequence_id
66: , p_acd_type => p_acd_type
295: , x_rev_sub_res_unexp_rec => l_rev_sub_res_unexp_rec
296: ) ;
297:
298: -- Call Perform Writes Procedure
299: Bom_Sub_Op_Res_UTIL.Perform_Writes
300: ( p_rev_sub_resource_rec => l_rev_sub_resource_rec
301: , p_rev_sub_res_unexp_rec => l_rev_sub_res_unexp_rec
302: , p_control_rec => Bom_Rtg_Pub.G_DEFAULT_CONTROL_REC
303: , x_mesg_token_tbl => x_mesg_token_tbl
747:
748: END Delete_Row ;
749:
750:
751: END BOM_Sub_Op_Res_UTIL ;