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.CSL_HZ_PARTIES_ACC_PKG

Source


1 PACKAGE BODY CSL_HZ_PARTIES_ACC_PKG AS
2 /* $Header: cslpaacb.pls 120.1 2005/08/31 02:56:49 utekumal noship $ */
3 
4 /*** Globals ***/
5 g_acc_table_name        CONSTANT VARCHAR2(30) := 'CSL_HZ_PARTIES_ACC';
6 g_publication_item_name CONSTANT JTM_HOOK_UTIL_PKG.t_publication_item_list :=
7   JTM_HOOK_UTIL_PKG.t_publication_item_list('CSL_HZ_PARTIES');
8 g_table_name            CONSTANT VARCHAR2(30) := 'HZ_PARTIES';
9 g_pk1_name              CONSTANT VARCHAR2(30) := 'PARTY_ID';
10 g_debug_level NUMBER;
11 
12 /**
13  *
14  */
15 FUNCTION Replicate_Record( p_party_id IN NUMBER)
16 RETURN BOOLEAN
17 IS
18  CURSOR c_party( b_party_id NUMBER ) IS
19   SELECT party_id        -- Fix for Sql Performance
20   FROM HZ_PARTIES
21   WHERE PARTY_ID = b_party_id;
22  r_party c_party%ROWTYPE;
23 BEGIN
24   g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
25   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
26     jtm_message_log_pkg.Log_Msg
27     ( p_party_id
28     , g_table_name
29     , 'Entering Replicate_Record'
30     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
31   END IF;
32 
33   OPEN c_party( p_party_id );
34   FETCH c_party INTO r_party;
35   IF c_party%FOUND THEN
36     CLOSE c_party;
37     IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
38       jtm_message_log_pkg.Log_Msg
39       ( p_party_id
40       , g_table_name
41       , 'Replicate_record returned TRUE'
42       , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
43     END IF;
44     RETURN TRUE;
45   END IF;
46   CLOSE c_party;
47   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
48     jtm_message_log_pkg.Log_Msg
49     ( p_party_id
50     , g_table_name
51     , 'Replicate_record returned FALSE'||fnd_global.local_chr(10)||
52       'Could not find party with party_id: '||p_party_id
53     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
54   END IF;
55 
56   RETURN FALSE;
57 END Replicate_Record;
58 
59 /**
60  *
61  */
62 PROCEDURE INSERT_ACC_RECORD( p_party_id    IN NUMBER
63                            , p_resource_id IN NUMBER )
64 IS
65 BEGIN
66   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
67     jtm_message_log_pkg.Log_Msg
68     ( p_party_id
69     , g_table_name
70     , 'Entering Insert_Acc_Record'
71     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
72   END IF;
73 
74   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
75     jtm_message_log_pkg.Log_Msg
76     ( p_party_id
77     , g_table_name
78     , 'Inserting ACC record for resource_id = '||p_resource_id
79     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
80   END IF;
81 
82   JTM_HOOK_UTIL_PKG.Insert_Acc
83      ( P_PUBLICATION_ITEM_NAMES => g_publication_item_name
84      , P_ACC_TABLE_NAME         => g_acc_table_name
85      , P_PK1_NAME               => g_pk1_name
86      , P_PK1_NUM_VALUE          => p_party_id
87      , P_RESOURCE_ID            => p_resource_id
88      );
89 
90   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
91     jtm_message_log_pkg.Log_Msg
92     ( p_party_id
93     , g_table_name
94     , 'Leaving Insert_Acc_Record'
95     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
96   END IF;
97 
98 END INSERT_ACC_RECORD;
99 
100 /**
101  *
102  */
103 PROCEDURE UPDATE_ACC_RECORD( p_access_id IN NUMBER
104                            , p_party_id IN NUMBER
105                            , p_resource_id IN NUMBER )
106 IS
107 BEGIN
108   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
109     jtm_message_log_pkg.Log_Msg
110     ( p_party_id
111     , g_table_name
112     , 'Entering Update_Acc_Record'
113     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
114   END IF;
115 
116   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
117      jtm_message_log_pkg.Log_Msg
118      ( p_party_id
119      , g_table_name
120      , 'Updating ACC record for resource_id = ' || p_resource_id || fnd_global.local_chr(10)
121         || 'access_id = ' ||p_access_id
122      , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
123   END IF;
124 
125   JTM_HOOK_UTIL_PKG.Update_Acc
126      ( P_PUBLICATION_ITEM_NAMES => g_publication_item_name
127      , P_ACC_TABLE_NAME         => g_acc_table_name
128      , P_RESOURCE_ID            => p_resource_id
129      , P_ACCESS_ID              => p_access_id
130      );
131 
132   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
133     jtm_message_log_pkg.Log_Msg
134     ( p_party_id
135     , g_table_name
136     , 'Leaving Update_Acc_Record'
137     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
138   END IF;
139 END UPDATE_ACC_RECORD;
140 
141 /**
142  *
143  */
144 PROCEDURE DELETE_ACC_RECORD( p_party_id IN NUMBER
145                            , p_resource_id IN NUMBER )
146 IS
147 BEGIN
148   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
149     jtm_message_log_pkg.Log_Msg
150     ( p_party_id
151     , g_table_name
152     , 'Entering Delete_Acc_Record'
153     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
154   END IF;
155 
156  IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
157      jtm_message_log_pkg.Log_Msg
158      ( p_party_id
159      , g_table_name
160      , 'Deleting party '|| p_party_id ||' for resource_id = ' || p_resource_id
161      , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
162   END IF;
163 
164   JTM_HOOK_UTIL_PKG.Delete_Acc
165     ( P_PUBLICATION_ITEM_NAMES => g_publication_item_name
166      ,P_ACC_TABLE_NAME         => g_acc_table_name
167      ,P_PK1_NAME               => g_pk1_name
168      ,P_PK1_NUM_VALUE          => p_party_id
169      ,P_RESOURCE_ID            => p_resource_id
170     );
171 
172   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
173     jtm_message_log_pkg.Log_Msg
174     ( p_party_id
175     , g_table_name
176     , 'Leaving Delete_Acc_Record'
177     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
178   END IF;
179 END DELETE_ACC_RECORD;
180 
181 /**
182  *
183  */
184 PROCEDURE INSERT_PARTY( p_party_id    IN NUMBER
185                       , p_resource_id IN NUMBER
186 		      , p_flow_type   IN NUMBER )--DEFAULT CSL_CS_INCIDENTS_ALL_ACC_PKG.G_FLOW_NORMAL)
187 IS
188  l_return BOOLEAN;
189 BEGIN
190   g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
191 
192   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
193     jtm_message_log_pkg.Log_Msg
194     ( p_party_id
195     , g_table_name
196     , 'Entering Insert_Party'
197     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
198   END IF;
199 
200   l_return := Replicate_Record( p_party_id );
201   IF l_return = TRUE THEN
202 
203     INSERT_ACC_RECORD( p_party_id, p_resource_id );
204 
205     IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
206       jtm_message_log_pkg.Log_Msg
207       ( p_party_id
208       , g_table_name
209       , 'Get the notes for this party'
210       , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
211     END IF;
212     /*Only replicate notes for non history sr*/
213     IF p_flow_type <> CSL_CS_INCIDENTS_ALL_ACC_PKG.G_FLOW_HISTORY THEN
214       l_return := CSL_JTF_NOTES_ACC_PKG.PRE_INSERT_CHILDREN
215                                       ( P_SOURCE_OBJ_ID   => p_party_id
216   				      , P_SOURCE_OBJ_CODE => 'PARTY'
217   				      , P_RESOURCE_ID     => p_resource_id );
218     END IF;--p_flow_type
219   END IF;
220 
221   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
222     jtm_message_log_pkg.Log_Msg
223     ( p_party_id
224     , g_table_name
225     , 'Leaving Insert_Party'
226     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
227   END IF;
228 
229 END INSERT_PARTY;
230 
231 /**
232  *
233  */
234 PROCEDURE UPDATE_PARTY( p_party_id IN NUMBER )
235 IS
236   l_tab_resource_id    dbms_sql.Number_Table;
237   l_tab_access_id      dbms_sql.Number_Table;
238 BEGIN
239   g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
240   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
241     jtm_message_log_pkg.Log_Msg
242     ( p_party_id
243     , g_table_name
244     , 'Entering Update_Party'
245     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
246   END IF;
247 
248   JTM_HOOK_UTIL_PKG.Get_Resource_Acc_List
249      ( P_ACC_TABLE_NAME  => g_acc_table_name
250      , P_PK1_NAME        => g_pk1_name
251      , P_PK1_NUM_VALUE   => p_party_id
252      , L_TAB_RESOURCE_ID => l_tab_resource_id
253      , L_TAB_ACCESS_ID   => l_tab_access_id
254      );
255 
256     /*** re-send rec to all resources ***/
257     IF l_tab_resource_id.COUNT > 0 THEN
258       FOR i IN l_tab_resource_id.FIRST .. l_tab_resource_id.LAST LOOP
259         UPDATE_ACC_RECORD( p_access_id   => l_tab_access_id(i)
260 	                 , p_party_id    => p_party_id
261 			 , p_resource_id => l_tab_resource_id(i));
262        END LOOP;
263     END IF;
264 
265   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
266     jtm_message_log_pkg.Log_Msg
267     ( p_party_id
268     , g_table_name
269     , 'Leaving Update_Party'
270     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
271   END IF;
272 END UPDATE_PARTY;
273 
274 /**
275  *
276  */
277 PROCEDURE DELETE_PARTY( p_party_id    IN NUMBER
278                       , p_resource_id IN NUMBER
279 		      , p_flow_type   IN NUMBER )--DEFAULT CSL_CS_INCIDENTS_ALL_ACC_PKG.G_FLOW_NORMAL)
280 IS
281 BEGIN
282   g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
283   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
284     jtm_message_log_pkg.Log_Msg
285     ( p_party_id
286     , g_table_name
287     , 'Entering Delete_Party'
288     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
289   END IF;
290 
291   DELETE_ACC_RECORD( p_party_id, p_resource_id );
292 
293   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
294     jtm_message_log_pkg.Log_Msg
295     ( p_party_id
296     , g_table_name
297     , 'Delete the notes for this party'
298     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
299   END IF;
300 
301   /*History records did not have notes so leave notes untouched*/
302   IF p_flow_type <> CSL_CS_INCIDENTS_ALL_ACC_PKG.G_FLOW_HISTORY THEN
303     CSL_JTF_NOTES_ACC_PKG.POST_DELETE_CHILDREN( P_SOURCE_OBJ_ID   => p_party_id
304                                               , P_SOURCE_OBJ_CODE => 'PARTY'
305   					      , P_RESOURCE_ID     => p_resource_id );
306   END IF;
307 
308   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
309     jtm_message_log_pkg.Log_Msg
310     ( p_party_id
311     , g_table_name
312     , 'Leaving Delete_Party'
313     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
314   END IF;
315 
316 END DELETE_PARTY;
317 
318 /**
319  *
320  */
321 PROCEDURE CHANGE_PARTY( p_old_party_id IN NUMBER
322                       , p_new_party_id IN NUMBER
323 		      , p_resource_id IN NUMBER )
324 IS
325  l_return BOOLEAN;
326 BEGIN
327   g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
328   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
329     jtm_message_log_pkg.Log_Msg
330     ( p_old_party_id
331     , g_table_name
332     , 'Entering Change_Party'
333     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
334   END IF;
335 
336   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
337     jtm_message_log_pkg.Log_Msg
338     ( p_old_party_id
339     , g_table_name
340     , 'Change party from '||p_old_party_id||' to '||p_new_party_id
341     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
342   END IF;
343 
344 
345   /*Party is changed so delete the old one ( basicly we lower the counter )*/
346   DELETE_ACC_RECORD( p_old_party_id, p_resource_id );
347 
348   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
349     jtm_message_log_pkg.Log_Msg
350     ( p_old_party_id
351     , g_table_name
352     , 'Delete the notes for the old party'
353     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
354   END IF;
355   /*Delete the matching notes*/
356   CSL_JTF_NOTES_ACC_PKG.POST_DELETE_CHILDREN( P_SOURCE_OBJ_ID   => p_old_party_id
357                                             , P_SOURCE_OBJ_CODE => 'PARTY'
358 					    , P_RESOURCE_ID     => p_resource_id );
359 
360   l_return := Replicate_Record( p_new_party_id );
361   IF l_return = TRUE THEN
362     /*Insert the new party*/
363     INSERT_ACC_RECORD( p_new_party_id, p_resource_id );
364     IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
365       jtm_message_log_pkg.Log_Msg
366       ( p_new_party_id
367       , g_table_name
368       , 'Insert the notes for the new party'
369       , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
370     END IF;
371     /*Insert the notes*/
372     l_return := CSL_JTF_NOTES_ACC_PKG.PRE_INSERT_CHILDREN
373                                     ( P_SOURCE_OBJ_ID   => p_new_party_id
374   				    , P_SOURCE_OBJ_CODE => 'PARTY'
375   				    , P_RESOURCE_ID     => p_resource_id );
376   END IF;
377 
378   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
379     jtm_message_log_pkg.Log_Msg
380     ( p_old_party_id
381     , g_table_name
382     , 'Leaving Change_Party'
383     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
384   END IF;
385 END CHANGE_PARTY;
386 
387 /**
388  *
389  */
390 PROCEDURE PRE_INSERT_PARTY ( x_return_status OUT NOCOPY varchar2)
391 IS
392 BEGIN
393   x_return_status := FND_API.G_RET_STS_SUCCESS;
394 END;
395 
396 /**
397  *
398  */
399 PROCEDURE POST_INSERT_PARTY ( x_return_status OUT NOCOPY varchar2)
400 IS
401 BEGIN
402   x_return_status := FND_API.G_RET_STS_SUCCESS;
403 END;
404 
405 /**
406  *
407  */
408 PROCEDURE PRE_UPDATE_PARTY ( x_return_status OUT NOCOPY varchar2)
409 IS
410 BEGIN
411   x_return_status := FND_API.G_RET_STS_SUCCESS;
412 END;
413 
414 /**
415  *
416  */
417 PROCEDURE POST_UPDATE_PARTY ( x_return_status OUT NOCOPY varchar2)
418 IS
419  l_party_id NUMBER;
420  l_tab_resource_id    dbms_sql.Number_Table;
421  l_tab_access_id      dbms_sql.Number_Table;
422 BEGIN
423   g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
424 
425   /*TODO get the party id from the hook api*/
426   l_party_id := 0;
427 
428   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
429     jtm_message_log_pkg.Log_Msg
430     ( l_party_id
431     , g_table_name
435 
432     , 'Entering POST_UPDATE_PARTY'
433     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
434   END IF;
436   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
437      jtm_message_log_pkg.Log_Msg
438       ( l_party_id
439       , g_table_name
440       , 'Check if a resource has this party'
441       , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
442   END IF;
443 
444   /*Is record valid ?*/
445   IF Replicate_record( l_party_id ) THEN
446     /*Check if the party is asigned to a resource*/
447     JTM_HOOK_UTIL_PKG.Get_Resource_Acc_List
448        ( P_ACC_TABLE_NAME  => g_acc_table_name
449        , P_PK1_NAME        => g_pk1_name
450        , P_PK1_NUM_VALUE   => l_party_id
451        , L_TAB_RESOURCE_ID => l_tab_resource_id
452        , L_TAB_ACCESS_ID   => l_tab_access_id
453        );
454 
455     /*** re-send rec to all resources ***/
456     IF l_tab_resource_id.COUNT > 0 THEN
457       FOR i IN l_tab_resource_id.FIRST .. l_tab_resource_id.LAST LOOP
458         UPDATE_ACC_RECORD( p_access_id   => l_tab_access_id(i)
459   	                 , p_party_id    => l_party_id
460   			 , p_resource_id => l_tab_resource_id(i));
461       END LOOP;
462     END IF;
463   END IF;
464 
465   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
466     jtm_message_log_pkg.Log_Msg
467     ( l_party_id
468     , g_table_name
469     , 'Leaving POST_UPDATE_PARTY'
470     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
471   END IF;
472   x_return_status := FND_API.G_RET_STS_SUCCESS;
473 END;
474 
475 /**
476  *
477  */
478 PROCEDURE PRE_DELETE_PARTY ( x_return_status OUT NOCOPY varchar2)
479 IS
480 BEGIN
481   x_return_status := FND_API.G_RET_STS_SUCCESS;
482 END;
483 
484 /**
485  *
486  */
487 PROCEDURE POST_DELETE_PARTY ( x_return_status OUT NOCOPY varchar2)
488 IS
489 BEGIN
490   x_return_status := FND_API.G_RET_STS_SUCCESS;
491 END;
492 
493 FUNCTION UPDATE_PARTY_WFSUB( p_subscription_guid   in     raw
494                , p_event               in out NOCOPY wf_event_t)
495 return varchar2
496 IS
497  l_key                    varchar2(240) := p_event.GetEventKey();
498  l_org_id                 NUMBER;
499  l_user_id 	            NUMBER;
500  l_resp_id 	            NUMBER;
501  l_resp_appl_id           NUMBER;
502  l_security_group_id      NUMBER;
503  l_count	            NUMBER;
504  l_party_id NUMBER;
505 BEGIN
506   g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
507 
508 
509   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
510     jtm_message_log_pkg.Log_Msg
511     ( l_party_id
512     , g_table_name
513     , 'Entering UPDATE_PARTY_WFSUB'
514     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
515   END IF;
516 
517   l_org_id := p_event.GetValueForParameter('ORG_ID');
518   l_user_id := p_event.GetValueForParameter('USER_ID');
519   l_resp_id := p_event.GetValueForParameter('RESP_ID');
520   l_resp_appl_id := p_event.GetValueForParameter('RESP_APPL_ID');
521   l_security_group_id := p_event.GetValueForParameter('SECURITY_GROUP_ID');
522 
523   fnd_global.apps_initialize (l_user_id, l_resp_id, l_resp_appl_id, l_security_group_id);
524 
525   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
526        jtm_message_log_pkg.Log_Msg
527         ( l_party_id
528         , g_table_name
529         , 'Get parameter for hz parameter P_ORGANIZATION_REC.PARTY_REC.PARTY_ID'
530         , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
531   END IF;
532 
533   --Bug 4496299
534   /*
535   l_party_id := hz_param_pkg.ValueOfNumParameter  (p_key  => l_key,
536                            p_parameter_name => 'P_ORGANIZATION_REC.PARTY_REC.PARTY_ID');
537   */
538 
539   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
540      jtm_message_log_pkg.Log_Msg
541       ( l_party_id
542       , g_table_name
543       , 'Retrieved parameter for hz parameter P_ORGANIZATION_REC.PARTY_REC.PARTY_ID ' || l_party_id
544       , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
545   END IF;
546 
547   /*Is record valid ? assume so*/
548 --  IF Replicate_record( l_party_id ) THEN
549   UPDATE_PARTY(l_party_id);
550 --  END IF;
551 
552   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
553     jtm_message_log_pkg.Log_Msg
554     ( l_party_id
555     , g_table_name
556     , 'Leaving UPDATE_PARTY_WFSUB'
557     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
558   END IF;
559 
560   RETURN 'SUCCESS';
561 
562 EXCEPTION
563  WHEN OTHERS THEN
564      WF_CORE.CONTEXT('CSL_HZ_PARTIES_ACC_PKG', 'UPDATE_PARTY_WFSUB', p_event.getEventName(), p_subscription_guid);
565      WF_EVENT.setErrorInfo(p_event, 'ERROR');
566      RETURN 'ERROR';
567 END UPDATE_PARTY_WFSUB;
568 END CSL_HZ_PARTIES_ACC_PKG;