eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.CSI_ITEM_INSTANCE_VUHK

Source


1 PACKAGE BODY CSI_ITEM_INSTANCE_VUHK AS
2 /* $Header: jtmitemb.pls 120.2 2005/08/24 02:15:22 saradhak noship $ */
3 
4 PROCEDURE create_item_instance_pre
5  (
6      p_api_version           IN     NUMBER
7     ,p_commit                IN     VARCHAR2 := fnd_api.g_false
8     ,p_init_msg_list         IN     VARCHAR2 := fnd_api.g_false
9     ,p_validation_level      IN     NUMBER   := fnd_api.g_valid_level_full
10     ,p_instance_rec          IN     csi_datastructures_pub.instance_rec
11     ,p_ext_attrib_values_tbl IN     csi_datastructures_pub.extend_attrib_values_tbl
12     ,p_party_tbl             IN     csi_datastructures_pub.party_tbl
13     ,p_account_tbl           IN     csi_datastructures_pub.party_account_tbl
14     ,p_pricing_attrib_tbl    IN     csi_datastructures_pub.pricing_attribs_tbl
15     ,p_org_assignments_tbl   IN     csi_datastructures_pub.organization_units_tbl
16     ,p_asset_assignment_tbl  IN     csi_datastructures_pub.instance_asset_tbl
17     ,p_txn_rec               IN     csi_datastructures_pub.transaction_rec
18     ,x_return_status         OUT    NOCOPY VARCHAR2
19     ,x_msg_count             OUT    NOCOPY NUMBER
20     ,x_msg_data              OUT    NOCOPY  VARCHAR2
21  )
22 IS
23 BEGIN
24  x_return_status := FND_API.G_RET_STS_SUCCESS;
25 END;
26 
27 PROCEDURE create_item_instance_post
28  (
29      p_api_version           IN     NUMBER
30     ,p_commit                IN     VARCHAR2 := fnd_api.g_false
31     ,p_init_msg_list         IN     VARCHAR2 := fnd_api.g_false
32     ,p_validation_level      IN     NUMBER   := fnd_api.g_valid_level_full
33     ,p_instance_rec          IN     csi_datastructures_pub.instance_rec
34     ,p_ext_attrib_values_tbl IN     csi_datastructures_pub.extend_attrib_values_tbl
35     ,p_party_tbl             IN     csi_datastructures_pub.party_tbl
36     ,p_account_tbl           IN     csi_datastructures_pub.party_account_tbl
37     ,p_pricing_attrib_tbl    IN     csi_datastructures_pub.pricing_attribs_tbl
38     ,p_org_assignments_tbl   IN     csi_datastructures_pub.organization_units_tbl
39     ,p_asset_assignment_tbl  IN     csi_datastructures_pub.instance_asset_tbl
40     ,p_txn_rec               IN     csi_datastructures_pub.transaction_rec
41     ,x_return_status         OUT    NOCOPY VARCHAR2
42     ,x_msg_count             OUT    NOCOPY NUMBER
43     ,x_msg_data              OUT    NOCOPY VARCHAR2
44  )
45 IS
46   l_JTM_enable_prof_value varchar2(255);
47   l_cursorid   INTEGER;
48   l_execute_status INTEGER;
49   l_strBuffer   VARCHAR2(2000);
50   l_strLogBuffer VARCHAR2(2000) := ' begin ' ||
51         ' JTM_MESSAGE_LOG_PKG.log_msg(' ||
52            ' ''CREATE_ITEM_INSTANCE_POST'', ' ||
53            ' ''CSI_ITEM_INSTANCE_VUHK'', ' ||
54            ' ''Error:'' || SQLERRM ' || ',' ||
55            ' 1,' ||
56            ' ''JTM.CSI_ITEM_INSTANCE_VUHK.CREATE_ITEM_INSTANCE_POST''); ' ||
57         ' exception ' ||
58             ' when others then null;' ||
59         ' end; ';
60 BEGIN
61    x_return_status := FND_API.G_RET_STS_SUCCESS;
62 
63    begin
64          EXECUTE IMMEDIATE
65          ' begin JTM_MESSAGE_LOG_PKG.log_msg(' ||
66            ' ''CREATE_ITEM_INSTANCE_POST'', ' ||
67            ' ''CSI_ITEM_INSTANCE_VUHK'', ' ||
68            ' ''The procedure is called.'', ' ||
69            ' 4,' ||
70            ' ''JTM.CSI_ITEM_INSTANCE_VUHK.CREATE_ITEM_INSTANCE_POST''); ' ||
71          ' end; ';
72    exception
73        when others then
74               null;
75    end;
76 
77    /* check if JTM is installed */
78   l_JTM_enable_prof_value := fnd_profile.VALUE_SPECIFIC(
79           Name => 'JTM_MOB_APPS_ENABLED', APPLICATION_ID => 874);
80 
81   if (l_JTM_enable_prof_value = 'Y') then
82      l_cursorid := DBMS_SQL.open_cursor;
83      l_strBuffer :=
84      ' begin ' || 'JTM_ITEM_INSTANCE_VUHK' || '.' || 'CREATE_ITEM_INSTANCE_POST' ||
85             '(:1,:2,:3,:4,:5,:6,:7,:8); ' ||
86             ' exception ' ||
87               ' when others then ' ||
88               l_strLogBuffer ||
89             ' end;  ';
90          DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
91          DBMS_SQL.bind_variable (l_cursorid, ':1', p_api_version);
92          DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
93          DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
94          DBMS_SQL.bind_variable (l_cursorid, ':4', p_validation_level);
95          DBMS_SQL.bind_variable (l_cursorid, ':5', p_instance_rec.instance_id);
96          DBMS_SQL.bind_variable (l_cursorid, ':6', X_Return_Status);
97          DBMS_SQL.bind_variable (l_cursorid, ':7', X_Msg_Count);
98          DBMS_SQL.bind_variable (l_cursorid, ':8', X_Msg_Data);
99 
100          begin
101            l_execute_status := DBMS_SQL.execute (l_cursorid);
102          exception
103             when others then
104                EXECUTE IMMEDIATE l_strLogBuffer;
105          end;
106          DBMS_SQL.close_cursor (l_cursorid);
107   end if;
108 
109 EXCEPTION
110     WHEN OTHERS THEN
111        x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
112        begin
113          EXECUTE IMMEDIATE l_strLogBuffer;
114        exception
115            when others then
116               null;
117        end;
118 END;
119 
120 PROCEDURE update_item_instance_pre
121  (
122      p_api_version           IN     NUMBER
123     ,p_commit                IN     VARCHAR2 := fnd_api.g_false
124     ,p_init_msg_list         IN     VARCHAR2 := fnd_api.g_false
125     ,p_validation_level      IN     NUMBER   := fnd_api.g_valid_level_full
126     ,p_instance_rec          IN     csi_datastructures_pub.instance_rec
127     ,p_ext_attrib_values_tbl IN     csi_datastructures_pub.extend_attrib_values_tbl
128     ,p_party_tbl             IN     csi_datastructures_pub.party_tbl
129     ,p_account_tbl           IN     csi_datastructures_pub.party_account_tbl
130     ,p_pricing_attrib_tbl    IN     csi_datastructures_pub.pricing_attribs_tbl
131     ,p_org_assignments_tbl   IN     csi_datastructures_pub.organization_units_tbl
132     ,p_asset_assignment_tbl  IN     csi_datastructures_pub.instance_asset_tbl
133     ,p_txn_rec               IN     csi_datastructures_pub.transaction_rec
134     ,x_instance_id_lst       OUT    NOCOPY csi_datastructures_pub.id_tbl
135     ,x_return_status         OUT    NOCOPY VARCHAR2
136     ,x_msg_count             OUT    NOCOPY NUMBER
137     ,x_msg_data              OUT    NOCOPY VARCHAR2
138  )
139 IS
140   l_JTM_enable_prof_value varchar2(255);
141   l_cursorid   INTEGER;
142   l_execute_status INTEGER;
143   l_strBuffer   VARCHAR2(2000);
144   l_strLogBuffer VARCHAR2(2000) :=
145         ' begin ' ||
146         ' JTM_MESSAGE_LOG_PKG.log_msg(' ||
147            ' ''UPDATE_ITEM_INSTANCE_PRE'', ' ||
148            ' ''CSI_ITEM_INSTANCE_VUHK'', ' ||
149            ' ''Error:'' || SQLERRM ' || ',' ||
150            ' 1,' ||
151            ' ''JTM.CSI_ITEM_INSTANCE_VUHK.UPDATE_ITEM_INSTANCE_PRE''); ' ||
152         ' exception ' ||
153             ' when others then null;' ||
154         ' end; ';
155 BEGIN
156   x_return_status := FND_API.G_RET_STS_SUCCESS;
157 
158    begin
159          EXECUTE IMMEDIATE
160          ' begin JTM_MESSAGE_LOG_PKG.log_msg(' ||
161            ' ''UPDATE_ITEM_INSTANCE_PRE'', ' ||
162            ' ''CSI_ITEM_INSTANCE_VUHK'', ' ||
163            ' ''The procedure is called.'', ' ||
164            ' 4,' ||
165            ' ''JTM.CSI_ITEM_INSTANCE_VUHK.UPDATE_ITEM_INSTANCE_PRE''); ' ||
166          ' end; ';
167    exception
168        when others then
169               null;
170    end;
171 
172    /* check if JTM is installed */
173   l_JTM_enable_prof_value := fnd_profile.VALUE_SPECIFIC(
174           Name => 'JTM_MOB_APPS_ENABLED', APPLICATION_ID => 874);
175 
176   if (l_JTM_enable_prof_value = 'Y') then
177      l_cursorid := DBMS_SQL.open_cursor;
178      l_strBuffer :=
179      ' begin ' || 'JTM_ITEM_INSTANCE_VUHK' || '.' || 'UPDATE_ITEM_INSTANCE_PRE' ||
180             '(:1,:2,:3,:4,:5,:6,:7,:8); ' ||
181             ' exception ' ||
182             '   when others then ' ||
183             l_strLogBuffer ||
184      ' end; ';
185          DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
186          DBMS_SQL.bind_variable (l_cursorid, ':1', p_api_version);
187          DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
188          DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
189          DBMS_SQL.bind_variable (l_cursorid, ':4', p_validation_level);
190          DBMS_SQL.bind_variable (l_cursorid, ':5', p_instance_rec.INSTANCE_ID);
191          DBMS_SQL.bind_variable (l_cursorid, ':6', X_Return_Status);
192          DBMS_SQL.bind_variable (l_cursorid, ':7', X_Msg_Count);
193          DBMS_SQL.bind_variable (l_cursorid, ':8', X_Msg_Data);
194 
195          begin
196            l_execute_status := DBMS_SQL.execute (l_cursorid);
197          exception
198             when others then
199                EXECUTE IMMEDIATE l_strLogBuffer;
200          end;
201          DBMS_SQL.close_cursor (l_cursorid);
202   end if;
203 
204 EXCEPTION
205     WHEN OTHERS THEN
206        x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
207        begin
208          EXECUTE IMMEDIATE l_strLogBuffer;
209        exception
210            when others then
211               null;
212        end;
213 END;
214 
215 PROCEDURE update_item_instance_post
216  (
217      p_api_version           IN     NUMBER
218     ,p_commit                IN     VARCHAR2 := fnd_api.g_false
219     ,p_init_msg_list         IN     VARCHAR2 := fnd_api.g_false
220     ,p_validation_level      IN     NUMBER   := fnd_api.g_valid_level_full
221     ,p_instance_rec          IN     csi_datastructures_pub.instance_rec
222     ,p_ext_attrib_values_tbl IN     csi_datastructures_pub.extend_attrib_values_tbl
223     ,p_party_tbl             IN     csi_datastructures_pub.party_tbl
224     ,p_account_tbl           IN     csi_datastructures_pub.party_account_tbl
225     ,p_pricing_attrib_tbl    IN     csi_datastructures_pub.pricing_attribs_tbl
226     ,p_org_assignments_tbl   IN     csi_datastructures_pub.organization_units_tbl
227     ,p_asset_assignment_tbl  IN     csi_datastructures_pub.instance_asset_tbl
228     ,p_txn_rec               IN     csi_datastructures_pub.transaction_rec
229     ,x_instance_id_lst       OUT    NOCOPY csi_datastructures_pub.id_tbl
230     ,x_return_status         OUT    NOCOPY VARCHAR2
231     ,x_msg_count             OUT    NOCOPY  NUMBER
232     ,x_msg_data              OUT    NOCOPY  VARCHAR2
233  ) IS
234   l_JTM_enable_prof_value varchar2(255);
235   l_cursorid   INTEGER;
236   l_execute_status INTEGER;
237   l_strBuffer   VARCHAR2(2000);
238   l_strLogBuffer VARCHAR2(2000)
239           := ' begin ' ||
240         ' JTM_MESSAGE_LOG_PKG.log_msg(' ||
241            ' ''UPDATE_ITEM_INSTANCE_POST'', ' ||
242            ' ''CSI_ITEM_INSTANCE_VUHK'', ' ||
243            ' ''Error:'' || SQLERRM ' || ',' ||
244            ' 1,' ||
245            ' ''JTM.CSI_ITEM_INSTANCE_VUHK.UPDATE_ITEM_INSTANCE_POST''); ' ||
246         ' exception ' ||
247             ' when others then null;' ||
248         ' end; ';
249 
250 BEGIN
251     x_return_status := FND_API.G_RET_STS_SUCCESS;
252 
253    begin
254          EXECUTE IMMEDIATE
255          ' begin JTM_MESSAGE_LOG_PKG.log_msg(' ||
256            ' ''UPDATE_ITEM_INSTANCE_POST'', ' ||
257            ' ''CSI_ITEM_INSTANCE_VUHK'', ' ||
258            ' ''The procedure is called.'', ' ||
259            ' 4,' ||
260            ' ''JTM.CSI_ITEM_INSTANCE_VUHK.UPDATE_ITEM_INSTANCE_POST''); ' ||
261          ' end; ';
262    exception
263        when others then
264               null;
265    end;
266    /* check if JTM is installed */
267   l_JTM_enable_prof_value := fnd_profile.VALUE_SPECIFIC(
268           Name => 'JTM_MOB_APPS_ENABLED', APPLICATION_ID => 874);
269 
270   if (l_JTM_enable_prof_value = 'Y') then
271      l_cursorid := DBMS_SQL.open_cursor;
272      l_strBuffer :=
273      ' begin ' || 'JTM_ITEM_INSTANCE_VUHK' || '.' || 'UPDATE_ITEM_INSTANCE_POST' ||
274             '(:1,:2,:3,:4,:5,:6,:7,:8); ' ||
275             ' exception ' ||
276             '   when others then ' ||
277             l_strLogBuffer ||
278             ' end; ';
279          DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
280          DBMS_SQL.bind_variable (l_cursorid, ':1', p_api_version);
281          DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
282          DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
283          DBMS_SQL.bind_variable (l_cursorid, ':4', p_validation_level);
284          DBMS_SQL.bind_variable (l_cursorid, ':5', p_instance_rec.INSTANCE_ID);
285          DBMS_SQL.bind_variable (l_cursorid, ':6', X_Return_Status);
286          DBMS_SQL.bind_variable (l_cursorid, ':7', X_Msg_Count);
287          DBMS_SQL.bind_variable (l_cursorid, ':8', X_Msg_Data);
288 
289          begin
290            l_execute_status := DBMS_SQL.execute (l_cursorid);
291          exception
292             when others then
293                EXECUTE IMMEDIATE l_strLogBuffer;
294          end;
295          DBMS_SQL.close_cursor (l_cursorid);
296   end if;
297 
298 EXCEPTION
299     WHEN OTHERS THEN
300        x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
301        begin
302          EXECUTE IMMEDIATE l_strLogBuffer;
303        exception
304            when others then
305               null;
306        end;
307 END;
308 
309 PROCEDURE expire_item_instance_pre
310  (
311       p_api_version         IN      NUMBER
312      ,p_commit              IN      VARCHAR2 := fnd_api.g_false
313      ,p_init_msg_list       IN      VARCHAR2 := fnd_api.g_false
314      ,p_validation_level    IN      NUMBER   := fnd_api.g_valid_level_full
315      ,p_instance_rec        IN      csi_datastructures_pub.instance_rec
316      ,p_expire_children     IN      VARCHAR2 := fnd_api.g_false
317      ,p_txn_rec             IN      csi_datastructures_pub.transaction_rec
318      ,x_instance_id_lst     OUT     NOCOPY csi_datastructures_pub.id_tbl
319      ,x_return_status       OUT     NOCOPY VARCHAR2
320      ,x_msg_count           OUT     NOCOPY NUMBER
321      ,x_msg_data            OUT     NOCOPY VARCHAR2
322  )
323 IS
324 BEGIN
325  x_return_status := FND_API.G_RET_STS_SUCCESS;
326 END;
327 
328 PROCEDURE expire_item_instance_post
329  (
330       p_api_version         IN      NUMBER
331      ,p_commit              IN      VARCHAR2 := fnd_api.g_false
332      ,p_init_msg_list       IN      VARCHAR2 := fnd_api.g_false
333      ,p_validation_level    IN      NUMBER   := fnd_api.g_valid_level_full
334      ,p_instance_rec        IN      csi_datastructures_pub.instance_rec
335      ,p_expire_children     IN      VARCHAR2 := fnd_api.g_false
336      ,p_txn_rec             IN      csi_datastructures_pub.transaction_rec
337      ,x_instance_id_lst     OUT     NOCOPY  csi_datastructures_pub.id_tbl
338      ,x_return_status       OUT     NOCOPY VARCHAR2
339      ,x_msg_count           OUT     NOCOPY NUMBER
340      ,x_msg_data            OUT     NOCOPY VARCHAR2
341  )
342 IS
343 BEGIN
344  x_return_status := FND_API.G_RET_STS_SUCCESS;
345 END;
346 
347 END CSI_ITEM_INSTANCE_VUHK;