[Home] [Help]
PACKAGE BODY: APPS.BOM_INVOKE_RTG_BO
Source
1 PACKAGE BODY Bom_Invoke_Rtg_Bo AS
2 /* $Header: BOMRIVKB.pls 120.1 2005/06/21 02:59:43 appldev ship $ */
3 /***************************************************************************
4 --
5 -- Copyright (c) 2001 Oracle Corporation, Redwood Shores, CA, USA
6 -- All rights reserved.
7 --
8 -- FILENAME
9 --
10 -- BOMRIVKB.pls
11 --
12 -- DESCRIPTION
13 --
14 -- Body of package Bom_Invoke_Rtg_Bo
15 --
16 -- NOTES
17 --
18 -- HISTORY
19 --
20 -- 12-MAR-01 Masanori Kimizuka Initial Creation
21 --
22 ***************************************************************************/
23
24 -- Invoker for Bom_Rtg_Pub.Process_Rtg
25 PROCEDURE Process_Rtg
26 ( p_bo_identifier IN VARCHAR2 := 'RTG'
27 , p_api_version_number IN NUMBER := 1.0
28 , p_init_msg_list IN BOOLEAN := FALSE
29 , p_rtg_header_rec IN Bom_Rtg_Pub.Rtg_Header_Rec_Type
30 :=Bom_Rtg_Pub.G_MISS_RTG_HEADER_REC
31 , p_rtg_revision_tbl IN Bom_Rtg_Pub.Rtg_Revision_Tbl_Type
32 :=Bom_Rtg_Pub.G_MISS_RTG_REVISION_TBL
33 , p_operation_tbl IN Bom_Rtg_Pub.Operation_Tbl_Type
34 := Bom_Rtg_Pub.G_MISS_OPERATION_TBL
35 , p_op_resource_tbl IN Bom_Rtg_Pub.Op_Resource_Tbl_Type
36 := Bom_Rtg_Pub.G_MISS_OP_RESOURCE_TBL
37 , p_sub_resource_tbl IN Bom_Rtg_Pub.Sub_Resource_Tbl_Type
38 := Bom_Rtg_Pub.G_MISS_SUB_RESOURCE_TBL
39 , p_op_network_tbl IN Bom_Rtg_Pub.Op_Network_Tbl_Type
40 := Bom_Rtg_Pub.G_MISS_OP_NETWORK_TBL
41 , x_rtg_header_rec IN OUT NOCOPY Bom_Rtg_Pub.Rtg_Header_Rec_Type
42 , x_rtg_revision_tbl IN OUT NOCOPY Bom_Rtg_Pub.Rtg_Revision_Tbl_Type
43 , x_operation_tbl IN OUT NOCOPY Bom_Rtg_Pub.Operation_Tbl_Type
44 , x_op_resource_tbl IN OUT NOCOPY Bom_Rtg_Pub.Op_Resource_Tbl_Type
45 , x_sub_resource_tbl IN OUT NOCOPY Bom_Rtg_Pub.Sub_Resource_Tbl_Type
46 , x_op_network_tbl IN OUT NOCOPY Bom_Rtg_Pub.Op_Network_Tbl_Type
47 , x_return_status IN OUT NOCOPY VARCHAR2
48 , x_msg_count IN OUT NOCOPY NUMBER
49 , p_debug IN VARCHAR2 := 'N'
50 , p_output_dir IN VARCHAR2 := NULL
51 , p_debug_filename IN VARCHAR2 := 'RTG_BO_debug.log'
52 )
53 IS
54
55 BEGIN
56
57
58 Bom_Rtg_Pub.Process_Rtg
59 ( p_bo_identifier => p_bo_identifier
60 , p_api_version_number => p_api_version_number
61 , p_init_msg_list => p_init_msg_list
62 , p_rtg_header_rec => p_rtg_header_rec
63 , p_rtg_revision_tbl => p_rtg_revision_tbl
64 , p_operation_tbl => p_operation_tbl
65 , p_op_resource_tbl => p_op_resource_tbl
66 , p_sub_resource_tbl => p_sub_resource_tbl
67 , p_op_network_tbl => p_op_network_tbl
68 , x_rtg_header_rec => x_rtg_header_rec
69 , x_rtg_revision_tbl => x_rtg_revision_tbl
70 , x_operation_tbl => x_operation_tbl
71 , x_op_resource_tbl => x_op_resource_tbl
72 , x_sub_resource_tbl => x_sub_resource_tbl
73 , x_op_network_tbl => x_op_network_tbl
74 , x_return_status => x_return_status
75 , x_msg_count => x_msg_count
76 , p_debug => p_debug
77 , p_output_dir => p_output_dir
78 , p_debug_filename => p_debug_filename
79 ) ;
80
81
82 END Process_Rtg ;
83
84
85 -- Invoker for Error_Handler procedures/functions
86 PROCEDURE Initialize
87 IS
88 BEGIN
89
90 Error_Handler.Initialize ;
91
92 END Initialize ;
93
94 PROCEDURE Reset
95 IS
96 BEGIN
97 Error_Handler.Reset ;
98
99 END Reset ;
100
101 PROCEDURE Get_Message_List
102 ( x_message_list IN OUT NOCOPY Error_Handler.Error_Tbl_Type)
103 IS
104 BEGIN
105
106 Error_Handler.Get_Message_List
107 ( x_message_list => x_message_list ) ;
108
109 END Get_Message_List ;
110
111 PROCEDURE Get_Entity_Message
112 ( p_entity_id IN VARCHAR2
113 , x_message_list IN OUT NOCOPY Error_Handler.Error_Tbl_Type
114 )
115 IS
116 BEGIN
117
118 Error_Handler.Get_Entity_Message
119 ( p_entity_id => p_entity_id
120 , x_message_list => x_message_list
121 ) ;
122
123 END Get_Entity_Message ;
124
125 PROCEDURE Get_Entity_Message
126 ( p_entity_id IN VARCHAR2
127 , p_entity_index IN NUMBER
128 , x_message_text IN OUT NOCOPY VARCHAR2
129 )
130 IS
131 BEGIN
132
133 Error_Handler.Get_Entity_Message
134 ( p_entity_id => p_entity_id
135 , p_entity_index => p_entity_index
136 , x_message_text => x_message_text
137 ) ;
138
139 END Get_Entity_Message ;
140
141 PROCEDURE Delete_Message
142 ( p_entity_id IN VARCHAR2
143 , p_entity_index IN NUMBER
144 )
145 IS
146 BEGIN
147
148 Error_Handler.Delete_Message
149 ( p_entity_id => p_entity_id
150 , p_entity_index => p_entity_index
151 );
152
153 END Delete_Message ;
154
155 PROCEDURE Delete_Message
156 ( p_entity_id IN VARCHAR2 )
157 IS
158 BEGIN
159
160 Error_Handler.Delete_Message
161 ( p_entity_id => p_entity_id ) ;
162
163 END Delete_Message ;
164
165 PROCEDURE Get_Message
166 ( x_message_text IN OUT NOCOPY VARCHAR2
167 , x_entity_index IN OUT NOCOPY NUMBER
168 , x_entity_id IN OUT NOCOPY VARCHAR2
169 , x_message_type IN OUT NOCOPY VARCHAR2
170 )
171 IS
172 BEGIN
173
174 Error_Handler.Get_Message
175 ( x_message_text => x_message_text
176 , x_entity_index => x_entity_index
177 , x_entity_id => x_entity_id
178 , x_message_type => x_message_type
179 ) ;
180
181
182 END Get_Message ;
183
184 FUNCTION Get_Message_Count RETURN NUMBER
185 IS
186 BEGIN
187
188 RETURN Error_Handler.Get_Message_Count ;
189
190 END Get_Message_Count ;
191
192 PROCEDURE Dump_Message_List
193 IS
194 BEGIN
195
196 Error_Handler.Dump_Message_List ;
197
198 END Dump_Message_List ;
199
200
201 -- Invoker for FND_GLOBAL.APPS_INITIALIZE
202 PROCEDURE Apps_Initialize
203 ( user_id IN NUMBER
204 ,resp_id IN NUMBER
205 ,resp_appl_id IN NUMBER
206 ,security_group_id IN NUMBER default 0
207 )
208 IS
209 BEGIN
210
211 FND_GLOBAL.Apps_Initialize
212 ( user_id => user_id
213 ,resp_id => resp_id
214 ,resp_appl_id => resp_appl_id
215 ,security_group_id => security_group_id
216 ) ;
217
218 END Apps_Initialize ;
219
220
221 END Bom_Invoke_Rtg_Bo;