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.

APPS.IEX_STRY_UTL_PUB dependencies on FND_LOG

Line 19: PG_DEBUG NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

15: **Appends to a message the api name, parameter name and parameter Value
16: */
17:
18: --PG_DEBUG NUMBER(2) := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
19: PG_DEBUG NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
20:
21: PROCEDURE AddInvalidArgMsg
22: ( p_api_name IN VARCHAR2,
23: p_param_value IN VARCHAR2,

Line 162: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

158:
159: -- Check for required parameter p_strategy_id
160: IF (p_strategy_id IS NULL) OR (p_strategy_id = FND_API.G_MISS_NUM) THEN
161: -- IF PG_DEBUG < 10 THEN
162: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
163: IEX_DEBUG_PUB.LogMessage('GET_NEXT_WORK_ITEMS: ' || 'Required Parameter p_strategy_id is invalid');
164: END IF;
165: AddMissingArgMsg(
166: p_api_name => l_api_name_full,

Line 171: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

167: p_param_name => 'p_strategy_id' );
168: RAISE FND_API.G_EXC_ERROR;
169: END IF;
170: -- IF PG_DEBUG < 10 THEN
171: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
172: IEX_DEBUG_PUB.LogMessage('GET_NEXT_WORK_ITEMS: ' || 'after p_strategy_id check');
173: END IF;
174:
175: OPEN c_get_strategy_template_id (p_strategy_id);

Line 182: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

178:
179: -- Check for required parameter p_template_id
180: IF (l_template_id IS NULL) THEN
181: -- IF PG_DEBUG < 10 THEN
182: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
183: IEX_DEBUG_PUB.LogMessage('GET_NEXT_WORK_ITEMS: ' || 'template_id is invalid');
184: END IF;
185: AddMissingArgMsg(
186: p_api_name => l_api_name_full,

Line 191: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

187: p_param_name => 'l_template_id' );
188: RAISE FND_API.G_EXC_ERROR;
189: END IF;
190: -- IF PG_DEBUG < 10 THEN
191: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
192: IEX_DEBUG_PUB.LogMessage('GET_NEXT_WORK_ITEMS: ' || 'after l_template_id check'||l_template_id);
193: END IF;
194:
195: FOR c_get_work_items_rec in c_get_work_items (p_strategy_id,l_template_id)

Line 291: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

287: IF FND_API.to_Boolean( p_init_msg_list ) THEN
288: FND_MSG_PUB.initialize;
289: END IF;
290: -- IF PG_DEBUG < 10 THEN
291: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
292: IEX_DEBUG_PUB.LogMessage('CLOSE_STRY_AND_WITEMS: ' || 'after init');
293: END IF;
294:
295: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 300: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

296:
297: -- Check for required parameter p_strategy_id
298: IF (p_strategy_id IS NULL) OR (p_strategy_id = FND_API.G_MISS_NUM) THEN
299: -- IF PG_DEBUG < 10 THEN
300: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
301: IEX_DEBUG_PUB.LogMessage('CLOSE_STRY_AND_WITEMS: ' || 'Required Parameter p_strategy_id is invalid');
302: END IF;
303: AddMissingArgMsg(
304: p_api_name => l_api_name_full,

Line 309: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

305: p_param_name => 'p_strategy_id' );
306: RAISE FND_API.G_EXC_ERROR;
307: END IF;
308: -- IF PG_DEBUG < 10 THEN
309: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
310: IEX_DEBUG_PUB.LogMessage('CLOSE_STRY_AND_WITEMS: ' || 'after p_strategy_id check');
311: END IF;
312:
313: -- Check for required parameter p_status_id

Line 316: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

312:
313: -- Check for required parameter p_status_id
314: IF (p_status IS NULL) OR (p_status = FND_API.G_MISS_CHAR) THEN
315: -- IF PG_DEBUG < 10 THEN
316: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
317: IEX_DEBUG_PUB.LogMessage('CLOSE_STRY_AND_WITEMS: ' || 'Required Parameter p_status is invalid');
318: END IF;
319: AddMissingArgMsg(
320: p_api_name => l_api_name_full,

Line 325: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

321: p_param_name => 'p_status' );
322: RAISE FND_API.G_EXC_ERROR;
323: END IF;
324: -- IF PG_DEBUG < 10 THEN
325: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
326: IEX_DEBUG_PUB.LogMessage('CLOSE_STRY_AND_WITEMS: ' || 'after p_status check');
327: END IF;
328:
329: FOR c_get_work_items_rec in c_get_work_items (p_strategy_id)

Line 337: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

333: l_strategy_work_item_Rec.object_version_number
334: :=c_get_work_items_rec.object_version_number;
335: l_strategy_work_item_Rec.execute_end := sysdate;
336: -- IF PG_DEBUG < 10 THEN
337: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
338: iex_debug_pub.logMessage('CLOSE_STRY_AND_WITEMS: ' || 'Before Calling IEX_STRATEGY_WORK_ITEMS_PVT.Update_strategy_work_items');
339: END IF;
340: -- IF PG_DEBUG < 10 THEN
341: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 341: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

337: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
338: iex_debug_pub.logMessage('CLOSE_STRY_AND_WITEMS: ' || 'Before Calling IEX_STRATEGY_WORK_ITEMS_PVT.Update_strategy_work_items');
339: END IF;
340: -- IF PG_DEBUG < 10 THEN
341: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
342: iex_debug_pub.logMessage('CLOSE_STRY_AND_WITEMS: ' || '---------------------------------');
343: END IF;
344:
345: IEX_STRATEGY_WORK_ITEMS_PVT.Update_strategy_work_items(

Line 356: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

352: x_msg_data => l_msg_data,
353: x_return_status => l_return_status,
354: XO_OBJECT_VERSION_NUMBER =>l_object_version_number );
355: -- IF PG_DEBUG < 10 THEN
356: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
357: iex_debug_pub.logMessage('CLOSE_STRY_AND_WITEMS: ' || 'After Calling IEX_STRATEGY_WORK_ITEMS_PVT.Update_strategy_work_items '||
358: 'and Status =>'||l_return_status);
359: END IF;
360: IF l_return_status = FND_API.G_RET_STS_ERROR then

Line 370: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

366: END IF;
367:
368: END LOOP;
369: -- IF PG_DEBUG < 10 THEN
370: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
371: IEX_DEBUG_PUB.LogMessage('CLOSE_STRY_AND_WITEMS: ' || 'End of work items update ');
372: END IF;
373:
374: l_strategy_Rec.strategy_id :=p_strategy_id;

Line 384: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

380: where strategy_id =p_strategy_id;
381: EXCEPTION
382: WHEN NO_DATA_FOUND THEN
383: -- IF PG_DEBUG < 10 THEN
384: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
385: IEX_DEBUG_PUB.LogMessage('CLOSE_STRY_AND_WITEMS: ' || 'Required Parameter p_stragey_id is invalid');
386: END IF;
387: AddInvalidArgMsg(
388: p_api_name => l_api_name_full,

Line 399: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

395:
396: l_strategy_Rec.object_version_number := l_object_version_number;
397:
398: -- IF PG_DEBUG < 10 THEN
399: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
400: iex_debug_pub.logMessage('CLOSE_STRY_AND_WITEMS: ' || 'Before Calling IEX_STRATEGY_PVT.Update_strategy');
401: END IF;
402: -- IF PG_DEBUG < 10 THEN
403: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 403: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

399: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
400: iex_debug_pub.logMessage('CLOSE_STRY_AND_WITEMS: ' || 'Before Calling IEX_STRATEGY_PVT.Update_strategy');
401: END IF;
402: -- IF PG_DEBUG < 10 THEN
403: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
404: iex_debug_pub.logMessage('CLOSE_STRY_AND_WITEMS: ' || '---------------------------------');
405: END IF;
406:
407: IEX_STRATEGY_PVT.Update_strategy(

Line 418: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

414: x_msg_data => l_msg_data,
415: x_return_status => l_return_status,
416: XO_OBJECT_VERSION_NUMBER =>l_object_version_number );
417: -- IF PG_DEBUG < 10 THEN
418: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
419: iex_debug_pub.logMessage('CLOSE_STRY_AND_WITEMS: ' || 'After Calling IEX_STRATEGY_PVT.Update_strategy '||
420: 'and Status =>'||l_return_status);
421: END IF;
422:

Line 523: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

519:
520: -- Check for required parameter p_strategy_id
521: IF (p_strategy_id IS NULL) OR (p_strategy_id = FND_API.G_MISS_NUM) THEN
522: -- IF PG_DEBUG < 10 THEN
523: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
524: IEX_DEBUG_PUB.LogMessage('CLOSE_STRATEGY: ' || 'Required Parameter p_strategy_id is invalid');
525: END IF;
526: AddMissingArgMsg(
527: p_api_name => l_api_name_full,

Line 532: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

528: p_param_name => 'p_strategy_id' );
529: RAISE FND_API.G_EXC_ERROR;
530: END IF;
531: -- IF PG_DEBUG < 10 THEN
532: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
533: IEX_DEBUG_PUB.LogMessage('CLOSE_STRATEGY: ' || 'after p_strategy_id check');
534: END IF;
535:
536: -- Check for required parameter p_status_id

Line 539: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

535:
536: -- Check for required parameter p_status_id
537: IF (p_status IS NULL) OR (p_status = FND_API.G_MISS_CHAR) THEN
538: -- IF PG_DEBUG < 10 THEN
539: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
540: IEX_DEBUG_PUB.LogMessage('CLOSE_STRATEGY: ' || 'Required Parameter p_status is invalid');
541: END IF;
542: AddMissingArgMsg(
543: p_api_name => l_api_name_full,

Line 548: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

544: p_param_name => 'p_status' );
545: RAISE FND_API.G_EXC_ERROR;
546: END IF;
547: -- IF PG_DEBUG < 10 THEN
548: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
549: IEX_DEBUG_PUB.LogMessage('CLOSE_STRATEGY: ' || 'after p_status check');
550: END IF;
551:
552: l_strategy_Rec.strategy_id :=p_strategy_id;

Line 562: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

558: where strategy_id =p_strategy_id;
559: EXCEPTION
560: WHEN NO_DATA_FOUND THEN
561: -- IF PG_DEBUG < 10 THEN
562: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
563: IEX_DEBUG_PUB.LogMessage('CLOSE_STRATEGY: ' || 'Required Parameter p_stragey_id is invalid');
564: END IF;
565: AddInvalidArgMsg(
566: p_api_name => l_api_name_full,

Line 577: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

573:
574: l_strategy_Rec.object_version_number := l_object_version_number;
575:
576: -- IF PG_DEBUG < 10 THEN
577: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
578: iex_debug_pub.logMessage('CLOSE_STRATEGY: ' || 'Before Calling IEX_STRATEGY_PVT.Update_strategy');
579: END IF;
580: -- IF PG_DEBUG < 10 THEN
581: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 581: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

577: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
578: iex_debug_pub.logMessage('CLOSE_STRATEGY: ' || 'Before Calling IEX_STRATEGY_PVT.Update_strategy');
579: END IF;
580: -- IF PG_DEBUG < 10 THEN
581: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
582: iex_debug_pub.logMessage('CLOSE_STRATEGY: ' || '---------------------------------');
583: END IF;
584:
585: IEX_STRATEGY_PVT.Update_strategy(

Line 596: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

592: x_msg_data => l_msg_data,
593: x_return_status => l_return_status,
594: XO_OBJECT_VERSION_NUMBER =>l_object_version_number );
595: -- IF PG_DEBUG < 10 THEN
596: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
597: iex_debug_pub.logMessage('CLOSE_STRATEGY: ' || 'After Calling IEX_STRATEGY_PVT.Update_strategy '||
598: 'and Status =>'||l_return_status);
599: END IF;
600:

Line 692: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

688: IF FND_API.to_Boolean( p_init_msg_list ) THEN
689: FND_MSG_PUB.initialize;
690: END IF;
691: -- IF PG_DEBUG < 10 THEN
692: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
693: IEX_DEBUG_PUB.LogMessage('UPDATE_WORK_ITEM: ' || 'after init');
694: END IF;
695:
696: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 701: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

697:
698: -- Check for required parameter p_strategy_id
699: IF (p_work_item_id IS NULL) OR (p_work_item_id = FND_API.G_MISS_NUM) THEN
700: -- IF PG_DEBUG < 10 THEN
701: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
702: IEX_DEBUG_PUB.LogMessage('UPDATE_WORK_ITEM: ' || 'Required Parameter p_work_item_id is invalid');
703: END IF;
704: AddMissingArgMsg(
705: p_api_name => l_api_name_full,

Line 710: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

706: p_param_name => 'p_work_item_id' );
707: RAISE FND_API.G_EXC_ERROR;
708: END IF;
709: -- IF PG_DEBUG < 10 THEN
710: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
711: IEX_DEBUG_PUB.LogMessage('UPDATE_WORK_ITEM: ' || 'after p_work_item_id check');
712: END IF;
713:
714: -- Check for required parameter p_status_id

Line 717: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

713:
714: -- Check for required parameter p_status_id
715: IF (p_status IS NULL) OR (p_status = FND_API.G_MISS_CHAR) THEN
716: -- IF PG_DEBUG < 10 THEN
717: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
718: IEX_DEBUG_PUB.LogMessage('UPDATE_WORK_ITEM: ' || 'Required Parameter p_status is invalid');
719: END IF;
720: AddMissingArgMsg(
721: p_api_name => l_api_name_full,

Line 726: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

722: p_param_name => 'p_status' );
723: RAISE FND_API.G_EXC_ERROR;
724: END IF;
725: -- IF PG_DEBUG < 10 THEN
726: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
727: IEX_DEBUG_PUB.LogMessage('UPDATE_WORK_ITEM: ' || 'after p_status check');
728: END IF;
729:
730: FOR c_get_work_items_rec in c_get_work_items (p_work_item_id)

Line 738: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

734: l_strategy_work_item_Rec.object_version_number
735: :=c_get_work_items_rec.object_version_number;
736: l_strategy_work_item_Rec.execute_end := sysdate;
737: -- IF PG_DEBUG < 10 THEN
738: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
739: iex_debug_pub.logMessage('UPDATE_WORK_ITEM: ' || 'Before Calling IEX_STRATEGY_WORK_ITEMS_PVT.Update_strategy_work_items');
740: END IF;
741: -- IF PG_DEBUG < 10 THEN
742: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 742: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

738: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
739: iex_debug_pub.logMessage('UPDATE_WORK_ITEM: ' || 'Before Calling IEX_STRATEGY_WORK_ITEMS_PVT.Update_strategy_work_items');
740: END IF;
741: -- IF PG_DEBUG < 10 THEN
742: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
743: iex_debug_pub.logMessage('UPDATE_WORK_ITEM: ' || '---------------------------------');
744: END IF;
745:
746: IEX_STRATEGY_WORK_ITEMS_PVT.Update_strategy_work_items(

Line 757: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

753: x_msg_data => l_msg_data,
754: x_return_status => l_return_status,
755: XO_OBJECT_VERSION_NUMBER =>l_object_version_number );
756: -- IF PG_DEBUG < 10 THEN
757: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
758: iex_debug_pub.logMessage('UPDATE_WORK_ITEM: ' || 'After Calling IEX_STRATEGY_WORK_ITEMS_PVT.Update_strategy_work_items '||
759: 'and Status =>'||l_return_status);
760: END IF;
761: IF l_return_status = FND_API.G_RET_STS_ERROR then

Line 771: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

767: END IF;
768:
769: END LOOP;
770: -- IF PG_DEBUG < 10 THEN
771: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
772: IEX_DEBUG_PUB.LogMessage('UPDATE_WORK_ITEM: ' || 'End of work items update ');
773: END IF;
774:
775:

Line 858: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

854:
855: -- Check for required parameter p_strategy_id
856: IF (p_strategy_id IS NULL) OR (p_strategy_id = FND_API.G_MISS_NUM) THEN
857: -- IF PG_DEBUG < 10 THEN
858: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
859: IEX_DEBUG_PUB.LogMessage('UPDATE_NEXT_WORK_ITEM: ' || 'Required Parameter p_strategy_id is invalid');
860: END IF;
861: AddMissingArgMsg(
862: p_api_name => l_api_name_full,

Line 867: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

863: p_param_name => 'p_strategy_id' );
864: RAISE FND_API.G_EXC_ERROR;
865: END IF;
866: -- IF PG_DEBUG < 10 THEN
867: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
868: IEX_DEBUG_PUB.LogMessage('UPDATE_NEXT_WORK_ITEM: ' || 'after p_strategy_id check');
869: END IF;
870:
871: -- Check for required parameter p_work_item_id

Line 874: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

870:
871: -- Check for required parameter p_work_item_id
872: IF (p_work_item_id IS NULL) OR (p_work_item_id = FND_API.G_MISS_NUM) THEN
873: -- IF PG_DEBUG < 10 THEN
874: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
875: IEX_DEBUG_PUB.LogMessage('UPDATE_NEXT_WORK_ITEM: ' || 'Required Parameter p_work_item_id is invalid');
876: END IF;
877: AddMissingArgMsg(
878: p_api_name => l_api_name_full,

Line 883: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

879: p_param_name => 'p_work_item_id' );
880: RAISE FND_API.G_EXC_ERROR;
881: END IF;
882: -- IF PG_DEBUG < 10 THEN
883: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
884: IEX_DEBUG_PUB.LogMessage('UPDATE_NEXT_WORK_ITEM: ' || 'after p_work_item_id check');
885: END IF;
886: l_strategy_Rec.strategy_id :=p_strategy_id;
887: l_strategy_Rec.next_work_item_id := p_work_item_id;

Line 896: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

892: where strategy_id =p_strategy_id;
893: EXCEPTION
894: WHEN NO_DATA_FOUND THEN
895: -- IF PG_DEBUG < 10 THEN
896: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
897: IEX_DEBUG_PUB.LogMessage('UPDATE_NEXT_WORK_ITEM: ' || 'Required Parameter p_stratgey_id is invalid');
898: END IF;
899: AddInvalidArgMsg(
900: p_api_name => l_api_name_full,

Line 911: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

907:
908: l_strategy_Rec.object_version_number := l_object_version_number;
909:
910: -- IF PG_DEBUG < 10 THEN
911: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
912: iex_debug_pub.logMessage('UPDATE_NEXT_WORK_ITEM: ' || 'Before Calling IEX_STRATEGY_PVT.Update_strategy');
913: END IF;
914: -- IF PG_DEBUG < 10 THEN
915: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 915: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

911: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
912: iex_debug_pub.logMessage('UPDATE_NEXT_WORK_ITEM: ' || 'Before Calling IEX_STRATEGY_PVT.Update_strategy');
913: END IF;
914: -- IF PG_DEBUG < 10 THEN
915: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
916: iex_debug_pub.logMessage('UPDATE_NEXT_WORK_ITEM: ' || '---------------------------------');
917: END IF;
918:
919: IEX_STRATEGY_PVT.Update_strategy(

Line 930: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

926: x_msg_data => l_msg_data,
927: x_return_status => l_return_status,
928: XO_OBJECT_VERSION_NUMBER =>l_object_version_number );
929: -- IF PG_DEBUG < 10 THEN
930: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
931: iex_debug_pub.logMessage('UPDATE_NEXT_WORK_ITEM: ' || 'After Calling IEX_STRATEGY_PVT.Update_strategy '||
932: 'and Status =>'||l_return_status);
933: END IF;
934:

Line 1007: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1003: begin
1004:
1005: select sysdate into r_date from dual; -- default to sysdate;
1006:
1007: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1008: iex_debug_pub.logmessage ('get_date before get conversion rate ');
1009: END IF;
1010: --Start of bug 7434190 22-Jan-2009 barathsr
1011: l_jtf_time_uom_class := fnd_profile.value_specific(NAME => 'JTF_TIME_UOM_CLASS',APPLICATION_ID =>695);

Line 1018: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1014: /* where UOM_code = l_UOM and uom_class = (select fnd_profile.value('JTF_TIME_UOM_CLASS') from dual) */
1015: where UOM_code = l_UOM and uom_class = l_jtf_time_uom_class
1016: --End of Bug 7434190 22-Jan-2009 barathsr
1017: and inventory_item_id = 0;
1018: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1019: iex_debug_pub.logmessage ('get_date l_conversion => '|| l_conversion);
1020: END IF;
1021:
1022: select p_date + l_conversion * l_unit / 24 into r_date from dual;

Line 1023: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1019: iex_debug_pub.logmessage ('get_date l_conversion => '|| l_conversion);
1020: END IF;
1021:
1022: select p_date + l_conversion * l_unit / 24 into r_date from dual;
1023: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1024: iex_debug_pub.logmessage ('get_date => '|| to_char(r_date, 'yyyy/mm/dd/hh24:mi:ss'));
1025: END IF;
1026:
1027: return r_date;

Line 1030: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1026:
1027: return r_date;
1028: exception when others THEN
1029: r_date :=p_date;
1030: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1031: iex_debug_pub.logmessage ('get_date exception return sysdate');
1032: END IF;
1033: return r_date;
1034:

Line 1065: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1061: l_strategy_id := p_event.GetValueForParameter('STRATEGY_ID');
1062: l_workitem_id := p_event.GetValueForParameter('WORK_ITEMID');
1063:
1064: --IF PG_DEBUG < 10 THEN
1065: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1066: iex_debug_pub.logmessage ('create_workitem_check: ' || 'EVENT NAME =>'||p_event.getEventName());
1067: END IF;
1068: --IF PG_DEBUG < 10 THEN
1069: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 1069: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1065: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1066: iex_debug_pub.logmessage ('create_workitem_check: ' || 'EVENT NAME =>'||p_event.getEventName());
1067: END IF;
1068: --IF PG_DEBUG < 10 THEN
1069: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1070: iex_debug_pub.logmessage ('create_workitem_check: ' || 'DELID =>' || l_del_id);
1071: END IF;
1072: --IF PG_DEBUG < 10 THEN
1073: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 1073: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1069: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1070: iex_debug_pub.logmessage ('create_workitem_check: ' || 'DELID =>' || l_del_id);
1071: END IF;
1072: --IF PG_DEBUG < 10 THEN
1073: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1074: iex_debug_pub.logmessage ('create_workitem_check: ' || 'strategy ID =>' ||l_strategy_id );
1075: END IF;
1076: --IF PG_DEBUG < 10 THEN
1077: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 1077: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1073: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1074: iex_debug_pub.logmessage ('create_workitem_check: ' || 'strategy ID =>' ||l_strategy_id );
1075: END IF;
1076: --IF PG_DEBUG < 10 THEN
1077: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1078: iex_debug_pub.logmessage ('create_workitem_check: ' || 'work item ID =>' || l_workitem_id);
1079: END IF;
1080:
1081: IF x_return_status <> 'S' THEN

Line 1089: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1085:
1086: EXCEPTION
1087: WHEN EXC THEN
1088: -- IF PG_DEBUG < 10 THEN
1089: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1090: iex_debug_pub.logmessage ('create_workitem_check: ' || 'raised exe error');
1091: END IF;
1092: WF_CORE.CONTEXT('IEX_STRY_UTL_PUB', 'create_workitem_check', p_event.getEventName(), p_subscription_guid);
1093: WF_EVENT.setErrorInfo(p_event, 'ERROR');

Line 1132: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1128: l_strategy_id := p_event.GetValueForParameter('STRATEGY_ID');
1129: l_workitem_id := p_event.GetValueForParameter('WORK_ITEMID');
1130:
1131: --IF PG_DEBUG < 10 THEN
1132: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1133: iex_debug_pub.logmessage ('create_workitem_complete: ' || 'EVENT NAME =>'||p_event.getEventName());
1134: END IF;
1135: --IF PG_DEBUG < 10 THEN
1136: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 1136: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1132: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1133: iex_debug_pub.logmessage ('create_workitem_complete: ' || 'EVENT NAME =>'||p_event.getEventName());
1134: END IF;
1135: --IF PG_DEBUG < 10 THEN
1136: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1137: iex_debug_pub.logmessage ('create_workitem_complete: ' || 'DELID =>' || l_del_id);
1138: END IF;
1139: --IF PG_DEBUG < 10 THEN
1140: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 1140: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1136: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1137: iex_debug_pub.logmessage ('create_workitem_complete: ' || 'DELID =>' || l_del_id);
1138: END IF;
1139: --IF PG_DEBUG < 10 THEN
1140: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1141: iex_debug_pub.logmessage ('create_workitem_complete: ' || 'strategy ID =>' ||l_strategy_id );
1142: END IF;
1143: --IF PG_DEBUG < 10 THEN
1144: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

Line 1144: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1140: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1141: iex_debug_pub.logmessage ('create_workitem_complete: ' || 'strategy ID =>' ||l_strategy_id );
1142: END IF;
1143: --IF PG_DEBUG < 10 THEN
1144: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1145: iex_debug_pub.logmessage ('create_workitem_complete: ' || 'work item ID =>' || l_workitem_id);
1146: END IF;
1147:
1148: IF x_return_status <> 'S' THEN

Line 1156: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1152:
1153: EXCEPTION
1154: WHEN EXC THEN
1155: -- IF PG_DEBUG < 10 THEN
1156: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1157: iex_debug_pub.logmessage ('create_workitem_complete: ' || 'raised exe error');
1158: END IF;
1159: WF_CORE.CONTEXT('IEX_STRY_UTL_PUB', 'create_workitem_complete', p_event.getEventName(), p_subscription_guid);
1160: WF_EVENT.setErrorInfo(p_event, 'ERROR');

Line 1174: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1170: --Begin bug#5874874 gnramasa 25-Apr-2007
1171: --Clear the Strategy related data in UWQ summary table.
1172: procedure clear_uwq_str_summ(p_object_id in number,p_object_type in varchar2) is
1173: begin
1174: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1175: iex_debug_pub.logmessage ('**** BEGIN : IEX_STRY_UTL_PUB.CLEAR_UWQ_STR_SUMM ************');
1176: iex_debug_pub.logmessage ('IEX_STRY_UTL_PUB.CLEAR_UWQ_STR_SUMM object_type='||p_object_type);
1177: iex_debug_pub.logmessage ('IEX_STRY_UTL_PUB.CLEAR_UWQ_STR_SUMM object_id='||p_object_id);
1178: END IF;

Line 1182: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1178: END IF;
1179:
1180: IF p_object_type = 'PARTY' THEN
1181:
1182: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1183: iex_debug_pub.logmessage ('**** IEX_STRY_UTL_PUB.CLEAR_UWQ_STR_SUMM: Clearing party level strategy uwq summary ************');
1184: END IF;
1185: UPDATE IEX_DLN_UWQ_SUMMARY
1186: SET WORK_ITEM_ID = null,

Line 1204: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1200: WKITEM_ESCALATED_YN = null
1201: WHERE PARTY_ID = p_object_id;
1202:
1203: ELSIF p_object_type = 'IEX_ACCOUNT' THEN
1204: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1205: iex_debug_pub.logmessage ('**** IEX_STRY_UTL_PUB.CLEAR_UWQ_STR_SUMM: Clearing account level strategy uwq summary ************');
1206: END IF;
1207: UPDATE IEX_DLN_UWQ_SUMMARY
1208: SET WORK_ITEM_ID = null,

Line 1226: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1222: WKITEM_ESCALATED_YN = null
1223: WHERE CUST_ACCOUNT_ID = p_object_id;
1224:
1225: ELSIF p_object_type = 'IEX_BILLTO' THEN
1226: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1227: iex_debug_pub.logmessage ('**** IEX_STRY_UTL_PUB.CLEAR_UWQ_STR_SUMM: Clearing billto level strategy uwq summary ************');
1228: END IF;
1229: UPDATE IEX_DLN_UWQ_SUMMARY
1230: SET WORK_ITEM_ID = null,

Line 1247: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1243: WORK_ITEM_ORDER = null,
1244: WKITEM_ESCALATED_YN = null
1245: WHERE SITE_USE_ID = p_object_id;
1246: END IF;
1247: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1248: iex_debug_pub.logmessage ('**** IEX_STRY_UTL_PUB.CLEAR_UWQ_STR_SUMM: Clearing party level strategy uwq summary ************');
1249: END IF;
1250: exception
1251: when others then

Line 1252: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1248: iex_debug_pub.logmessage ('**** IEX_STRY_UTL_PUB.CLEAR_UWQ_STR_SUMM: Clearing party level strategy uwq summary ************');
1249: END IF;
1250: exception
1251: when others then
1252: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1253: iex_debug_pub.logmessage ('**** EXCEPTION: IEX_STRY_UTL_PUB.CLEAR_UWQ_STR_SUMM ************');
1254: END IF;
1255: end;
1256:

Line 1306: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1302: l_work_item_order number;
1303: l_escalated_yn varchar2(1);
1304: begin
1305:
1306: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1307: iex_debug_pub.logmessage ('**** BEGIN refresh_uwq_str_summ ************');
1308: END IF;
1309:
1310: open c_strategy_summary(p_workitem_id);

Line 1338: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1334: commit work;
1335: return;
1336: end if;
1337: IF l_jtf_object_type = 'PARTY' THEN
1338: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1339: iex_debug_pub.logmessage ('**** IEX_STRY_UTL_PUB.REFRESH_UWQ_STR_SUMM: Updating party level strategy uwq summary ************');
1340: END IF;
1341: update iex_dln_uwq_summary
1342: set work_item_id = l_work_item_id,

Line 1360: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1356: wkitem_escalated_yn = l_escalated_yn
1357: where party_id = l_jtf_object_id;
1358:
1359: ELSIF l_jtf_object_type = 'IEX_ACCOUNT' THEN
1360: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1361: iex_debug_pub.logmessage ('**** IEX_STRY_UTL_PUB.REFRESH_UWQ_STR_SUMM: Updating account level strategy uwq summary ************');
1362: END IF;
1363: update iex_dln_uwq_summary
1364: set work_item_id = l_work_item_id,

Line 1382: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1378: wkitem_escalated_yn = l_escalated_yn
1379: where cust_account_id = l_jtf_object_id;
1380:
1381: ELSIF l_jtf_object_type = 'IEX_BILLTO' THEN
1382: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1383: iex_debug_pub.logmessage ('**** IEX_STRY_UTL_PUB.REFRESH_UWQ_STR_SUMM: Updating billto level strategy uwq summary ************');
1384: END IF;
1385: update iex_dln_uwq_summary
1386: set work_item_id = l_work_item_id,

Line 1406: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1402:
1403: END IF;
1404: close c_strategy_summary;
1405: commit work;
1406: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1407: iex_debug_pub.logmessage ('**** END refresh_uwq_str_summ ************');
1408: END IF;
1409: exception
1410: when others then

Line 1461: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1457: strategy_id => p_strategy_id,
1458: status => p_status ) ;
1459:
1460: -- IF PG_DEBUG < 10 THEN
1461: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1462: IEX_DEBUG_PUB.logmessage('REASSIGN_STRATEGY: ' || 'AFTER SEND SIGNAL');
1463: END IF;
1464:
1465: OPEN c_status(p_strategy_id);

Line 1471: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1467: CLOSE c_status;
1468:
1469: if ( l_status = 'CANCELLED' ) then
1470: -- IF PG_DEBUG < 10 THEN
1471: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1472: IEX_DEBUG_PUB.logmessage('REASSIGN_STRATEGY: ' || 'After Send Signal and it successfull ');
1473: END IF;
1474: OPEN c_object(p_strategy_id);
1475: FETCH c_object INTO l_delinquency_id,l_object_id,l_object_type;

Line 1479: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1475: FETCH c_object INTO l_delinquency_id,l_object_id,l_object_type;
1476: CLOSE c_object;
1477:
1478: -- IF PG_DEBUG < 10 THEN
1479: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1480: IEX_DEBUG_PUB.logmessage('REASSIGN_STRATEGY: ' || 'IEXSTTAB-Delinquency id'||
1481: 'before calling create strategy is '
1482: ||l_delinquency_id||
1483: ' object_id is '||l_object_id ||

Line 1488: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1484: ' object_type is' || l_object_type );
1485: END IF;
1486:
1487: -- IF PG_DEBUG < 10 THEN
1488: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1489: IEX_DEBUG_PUB.logmessage('REASSIGN_STRATEGY: ' || 'BEFORE CALLING CREATE_STRATEGY ');
1490: END IF;
1491:
1492: IEX_STRATEGY_PUB.CREATE_STRATEGY

Line 1505: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1501: x_msg_count => l_msg_count,
1502: x_msg_data => l_msg_data) ;
1503:
1504: -- IF PG_DEBUG < 10 THEN
1505: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1506: iex_debug_pub.logmessage('REASSIGN_STRATEGY: ' || 'status of create strategy ' ||l_return_status);
1507: END IF;
1508:
1509: x_msg_count :=l_msg_count;

Line 1528: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1524: EXCEPTION
1525: WHEN OTHERS THEN
1526: ROLLBACK TO REASSIGN_STRATEGY_PUB;
1527: -- IF PG_DEBUG < 10 THEN
1528: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1529: IEX_DEBUG_PUB.logmessage('REASSIGN_STRATEGY: ' || 'inexception of reassign strategy '||sqlerrm);
1530: END IF;
1531: END REASSIGN_STRATEGY;
1532: */

Line 1582: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1578: status => p_strategy_work_item_rec.status_code,
1579: work_item_id => p_strategy_work_item_rec.work_item_id);
1580:
1581: -- IF PG_DEBUG < 10 THEN
1582: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1583: IEX_DEBUG_PUB.logmessage('UPDATE_AND_SENDSIGNAL: ' || 'AFTER SEND SIGNAL');
1584: END IF;
1585: --check if it the strategy is open
1586: -- and next work item is not the same as the updated work item

Line 1597: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1593: and status_code ='OPEN';
1594:
1595: if v_result >0 THEN
1596: -- IF PG_DEBUG < 10 THEN
1597: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1598: IEX_DEBUG_PUB.logmessage('UPDATE_AND_SENDSIGNAL: ' || 'send signal has failed ');
1599: END IF;
1600: rollback to UPDATE_AND_SENDSIGNAL;
1601: x_return_status := FND_API.G_RET_STS_ERROR;

Line 1605: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1601: x_return_status := FND_API.G_RET_STS_ERROR;
1602: return;
1603: else
1604: -- IF PG_DEBUG < 10 THEN
1605: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1606: IEX_DEBUG_PUB.logmessage('UPDATE_AND_SENDSIGNAL: ' || 'send signal is successful ');
1607: END IF;
1608: end if;
1609: END IF; --if status is successful

Line 1620: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN

1616: EXCEPTION
1617: WHEN OTHERS THEN
1618: ROLLBACK TO UPDATE_AND_SENDSIGNAL;
1619: -- IF PG_DEBUG < 10 THEN
1620: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1621: IEX_DEBUG_PUB.logmessage('inexception of UPDATE_AND_SENDSIGNAL '||sqlerrm);
1622: END IF;
1623:
1624: END UPDATE_AND_SENDSIGNAL;