DBA Data[Home] [Help]

APPS.JMF_SHIKYU_ONT_PVT dependencies on FND_LOG

Line 44: --| calls to FND_LOG.string to be enclosed in a |

40: --| where the current price of the SHIKYU |
41: --| Component is defined in a secondary UOM. |
42: --| 03/24/2006 vchu Fixed bug 5090721: Removed commented code. |
43: --| 03/24/2006 vchu Cleaned up indentation and changed the |
44: --| calls to FND_LOG.string to be enclosed in a |
45: --| single IF statement instead of nested ID |
46: --| statements. |
47: --| 04/05/2006 vchu Modified the Price Quoting logic of |
48: --| Process_Replenishment_SO to get the price |

Line 63: --| 04/13/2006 vchu Polished up the FND Log Messages. |

59: --| logic to update the JMF_SHIKYU_COMPONENTS |
60: --| record to update the price list id and |
61: --| currency even if there are too many |
62: --| effective price list lines. |
63: --| 04/13/2006 vchu Polished up the FND Log Messages. |
64: --| 04/18/2006 rajkrish Fixed bug 5002921: Set entity_code and |
65: --| request_type of the l_action_request_tbl |
66: --| in order to book the Sales Order. |
67: --| 04/21/2006 vchu Removed commented code. |

Line 164: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

160: AND default_flag =1;
161:
162: BEGIN
163:
164: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
165: g_log_enabled := TRUE;
166:
167: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
168: , G_PKG_NAME

Line 167: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

163:
164: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
165: g_log_enabled := TRUE;
166:
167: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
168: , G_PKG_NAME
169: , '>> ' || l_program || ': Start'
170: );
171: END IF;

Line 211: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

207: , x_start_date => l_wip_start_date
208: );
209:
210: IF g_log_enabled AND
211: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
212: THEN
213: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
214: , G_PKG_NAME
215: , '>> ' || l_program || ': l_wip_start_date = '

Line 213: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

209:
210: IF g_log_enabled AND
211: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
212: THEN
213: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
214: , G_PKG_NAME
215: , '>> ' || l_program || ': l_wip_start_date = '
216: || l_wip_start_date
217: );

Line 225: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

221:
222: ELSE
223:
224: IF g_log_enabled AND
225: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
226: THEN
227: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
228: , G_PKG_NAME
229: , '>> ' || l_program || ': p_need_by_date = '

Line 227: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

223:
224: IF g_log_enabled AND
225: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
226: THEN
227: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
228: , G_PKG_NAME
229: , '>> ' || l_program || ': p_need_by_date = '
230: || p_need_by_date
231: );

Line 245: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

241: x_ship_date := sysdate;
242: END IF;
243:
244: IF g_log_enabled AND
245: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
246: THEN
247: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
248: , G_PKG_NAME
249: , '>> ' || l_program || ': Returning x_ship_date = ' || x_ship_date

Line 247: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

243:
244: IF g_log_enabled AND
245: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
246: THEN
247: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
248: , G_PKG_NAME
249: , '>> ' || l_program || ': Returning x_ship_date = ' || x_ship_date
250: );
251: END IF;

Line 253: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

249: , '>> ' || l_program || ': Returning x_ship_date = ' || x_ship_date
250: );
251: END IF;
252:
253: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
254: g_log_enabled := TRUE;
255:
256: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
257: , G_PKG_NAME

Line 256: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

252:
253: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
254: g_log_enabled := TRUE;
255:
256: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
257: , G_PKG_NAME
258: , '>> ' || l_program || ': End'
259: );
260: END IF;

Line 387: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

383: AND project_id IS NOT NULL;
384:
385: BEGIN
386:
387: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
388: g_log_enabled := TRUE;
389:
390: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
391: , G_PKG_NAME

Line 390: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

386:
387: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
388: g_log_enabled := TRUE;
389:
390: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
391: , G_PKG_NAME
392: , '>> ' || l_program || ': Start'
393: );
394: END IF;

Line 397: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

393: );
394: END IF;
395:
396: IF g_log_enabled AND
397: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
398: THEN
399: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
400: , G_PKG_NAME
401: , '>> ' || l_program

Line 399: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

395:
396: IF g_log_enabled AND
397: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
398: THEN
399: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
400: , G_PKG_NAME
401: , '>> ' || l_program
402: || ': p_action = ' || p_action
403: || ', p_subcontract_po_shipment_id = ' || p_subcontract_po_shipment_id

Line 423: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)

419: l_org_id := mo_global.get_current_org_id;
420:
421:
422: IF g_log_enabled AND
423: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
424: THEN
425: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
426: , G_PKG_NAME
427: , '>> ' || l_program

Line 425: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

421:
422: IF g_log_enabled AND
423: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
424: THEN
425: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
426: , G_PKG_NAME
427: , '>> ' || l_program
428: ||': Org ID from mo_global.get_current_org_id = ' || l_org_id
429: );

Line 450: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)

446: WHERE line_location_id = p_replen_po_shipment_id;
447: END IF;
448:
449: IF g_log_enabled AND
450: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
451: THEN
452: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
453: , G_PKG_NAME
454: , '>> ' || l_program ||': Org ID selected from PO_LINE_LOCATIONS_ALL = '

Line 452: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

448:
449: IF g_log_enabled AND
450: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
451: THEN
452: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
453: , G_PKG_NAME
454: , '>> ' || l_program ||': Org ID selected from PO_LINE_LOCATIONS_ALL = '
455: || l_org_id
456: );

Line 464: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)

460:
461: MO_GLOBAL.set_policy_context('S', l_org_id);
462:
463: IF g_log_enabled AND
464: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
465: THEN
466: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
467: , G_PKG_NAME
468: , '>> ' || l_program

Line 466: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

462:
463: IF g_log_enabled AND
464: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
465: THEN
466: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
467: , G_PKG_NAME
468: , '>> ' || l_program
469: ||': Org ID from FND_PROFILE = ' || FND_PROFILE.VALUE('ORG_ID')
470: );

Line 480: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)

476: INTO l_client_info_org_id
477: FROM DUAL;
478:
479: IF g_log_enabled AND
480: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
481: THEN
482: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
483: , G_PKG_NAME
484: , '>> ' || l_program

Line 482: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

478:
479: IF g_log_enabled AND
480: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
481: THEN
482: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
483: , G_PKG_NAME
484: , '>> ' || l_program
485: ||': Org ID from CLIENT_INFO = ' || l_client_info_org_id
486: );

Line 494: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)

490: THEN
491: fnd_client_info.set_org_context(TO_CHAR(l_org_id));
492:
493: IF g_log_enabled AND
494: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
495: THEN
496: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
497: , G_PKG_NAME
498: , '>> ' || l_program

Line 496: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

492:
493: IF g_log_enabled AND
494: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
495: THEN
496: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
497: , G_PKG_NAME
498: , '>> ' || l_program
499: || ': Setting the Org Context of CLIENT_INFO to the OU specified for MOAC ('
500: || l_org_id || ')'

Line 506: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

502: END IF;
503:
504: END IF;
505:
506: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
507: g_log_enabled := TRUE;
508: END IF;
509:
510: l_header_rec := OE_ORDER_PUB.G_MISS_HEADER_REC;

Line 544: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

540:
541: CLOSE c_project_cur;
542:
543: IF g_log_enabled AND
544: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
545: THEN
546: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
547: , G_PKG_NAME
548: , '>> ' || l_program || ': Project ID = ' || l_project_id

Line 546: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

542:
543: IF g_log_enabled AND
544: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
545: THEN
546: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
547: , G_PKG_NAME
548: , '>> ' || l_program || ': Project ID = ' || l_project_id
549: || ', Task ID = ' || l_task_id
550: );

Line 563: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

559: WHERE organization_id = p_tp_organization_id
560: AND org_information_context = 'Customer/Supplier Association';
561:
562: IF g_log_enabled AND
563: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
564: THEN
565: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
566: , G_PKG_NAME
567: , '>> ' || l_program

Line 565: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

561:
562: IF g_log_enabled AND
563: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
564: THEN
565: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
566: , G_PKG_NAME
567: , '>> ' || l_program
568: ||': Ship To customer id = ' || l_header_rec.sold_to_org_id
569: );

Line 610: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

606: AND org_information_context = 'Customer/Supplier Association';
607: --End Bugfix 10184466
608:
609: IF g_log_enabled AND
610: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
611: THEN
612: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
613: , G_PKG_NAME
614: , '>> ' || l_program

Line 612: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

608:
609: IF g_log_enabled AND
610: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
611: THEN
612: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
613: , G_PKG_NAME
614: , '>> ' || l_program
615: || ': Bill To org id = ' || l_header_rec.invoice_to_org_id
616: || ': Ship To org id = ' || l_header_rec.ship_to_org_id

Line 637: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

633: FROM oe_transaction_Types_all
634: WHERE transaction_type_id = l_header_rec.order_type_id;
635:
636: IF g_log_enabled AND
637: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
638: THEN
639: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
640: , G_PKG_NAME
641: , '>> ' || l_program

Line 639: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

635:
636: IF g_log_enabled AND
637: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
638: THEN
639: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
640: , G_PKG_NAME
641: , '>> ' || l_program
642: || ': SHIKYU Default Order Type = ' || l_header_rec.order_type_id
643: || ', Default Outbound Line Type = ' || l_line_type_id

Line 659: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

655: FROM po_line_locations_all
656: WHERE line_location_id = p_replen_po_shipment_id;
657:
658: IF g_log_enabled AND
659: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
660: THEN
661: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
662: , G_PKG_NAME
663: , '>> ' || l_program

Line 661: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

657:
658: IF g_log_enabled AND
659: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
660: THEN
661: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
662: , G_PKG_NAME
663: , '>> ' || l_program
664: || ': Replenishment PO Need By Date = ' || l_replen_po_need_by_date
665: );

Line 689: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

685: , x_ship_date => l_ship_date
686: );
687:
688: IF g_log_enabled AND
689: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
690: THEN
691: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
692: , G_PKG_NAME
693: , '>> ' || l_program || ': Ship date = ' || l_ship_date

Line 691: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

687:
688: IF g_log_enabled AND
689: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
690: THEN
691: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
692: , G_PKG_NAME
693: , '>> ' || l_program || ': Ship date = ' || l_ship_date
694: );
695: END IF;

Line 718: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

714: l_line_tbl(1).project_id := l_project_id;
715: l_line_tbl(1).task_id := l_task_id;
716:
717: IF g_log_enabled AND
718: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
719: THEN
720: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
721: , G_PKG_NAME
722: , '>> ' || l_program || ': Parameters passing to Process Order:'

Line 720: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

716:
717: IF g_log_enabled AND
718: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
719: THEN
720: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
721: , G_PKG_NAME
722: , '>> ' || l_program || ': Parameters passing to Process Order:'
723: );
724: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

Line 724: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

720: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
721: , G_PKG_NAME
722: , '>> ' || l_program || ': Parameters passing to Process Order:'
723: );
724: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
725: , G_PKG_NAME
726: , '>> ' || l_program || ': Ordered_quantity = ' || p_quantity
727: || ', Item = ' || p_item_id
728: || ', Ship Date = ' || l_ship_date

Line 742: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

738: WHERE inventory_item_id = p_item_id
739: AND organization_id = p_oem_organization_id;
740:
741: IF g_log_enabled AND
742: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
743: THEN
744: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
745: , G_PKG_NAME
746: , '>> ' || l_program

Line 744: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

740:
741: IF g_log_enabled AND
742: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
743: THEN
744: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
745: , G_PKG_NAME
746: , '>> ' || l_program
747: ||': Primary UOM = '|| l_primary_uom_code
748: );

Line 755: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

751: IF NVL(p_action,'C') = 'C'
752: THEN
753:
754: IF g_log_enabled AND
755: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
756: THEN
757: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
758: , G_PKG_NAME
759: , '>> ' || l_program

Line 757: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

753:
754: IF g_log_enabled AND
755: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
756: THEN
757: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
758: , G_PKG_NAME
759: , '>> ' || l_program
760: || ': p_action = ''C'': Getting UOM from Replenishment PO Shipment'
761: );

Line 790: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

786:
787: END IF; /* IF p_replen_po_shipment_id IS NOT NULL */
788:
789: IF g_log_enabled AND
790: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
791: THEN
792: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
793: , G_PKG_NAME
794: , '>> ' || l_program

Line 792: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

788:
789: IF g_log_enabled AND
790: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
791: THEN
792: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
793: , G_PKG_NAME
794: , '>> ' || l_program
795: || ': l_price_list_uom = ' || l_price_list_uom
796: || ', l_quantity = ' || l_quantity

Line 848: AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

844:
845: x_return_status := l_return_status;
846:
847: IF g_log_enabled
848: AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
849: THEN
850: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
851: , G_PKG_NAME
852: , '>> ' || l_program

Line 850: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE

846:
847: IF g_log_enabled
848: AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
849: THEN
850: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
851: , G_PKG_NAME
852: , '>> ' || l_program
853: || ': Default_OE_Line_Attr returned ' || l_return_status
854: || ', Sales Order Line ID = ' || l_line_tbl(1).line_id

Line 894: AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

890:
891: x_return_status := l_return_status;
892:
893: IF g_log_enabled
894: AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
895: THEN
896: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
897: , G_PKG_NAME
898: , '>> ' || l_program

Line 896: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE

892:
893: IF g_log_enabled
894: AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
895: THEN
896: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE
897: , G_PKG_NAME
898: , '>> ' || l_program
899: || ': Default_OE_Line_Attr returned ' || l_return_status
900: || ', Sales Order Header ID = ' || l_header_rec.header_id

Line 907: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

903:
904: /* END of Bug 14150216 */
905:
906: IF g_log_enabled AND
907: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
908: THEN
909: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
910: , G_PKG_NAME
911: , '>> ' || l_program || ': Calling Process Order, Creating SAVEPOINT before_process_order'

Line 909: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

905:
906: IF g_log_enabled AND
907: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
908: THEN
909: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
910: , G_PKG_NAME
911: , '>> ' || l_program || ': Calling Process Order, Creating SAVEPOINT before_process_order'
912: );
913: END IF;

Line 947: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

943:
944: x_return_status := l_return_status;
945:
946: IF g_log_enabled AND
947: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
948: THEN
949: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
950: , G_PKG_NAME
951: , '>> ' || l_program

Line 949: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

945:
946: IF g_log_enabled AND
947: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
948: THEN
949: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
950: , G_PKG_NAME
951: , '>> ' || l_program
952: || ': Process Order returned ' || l_return_status
953: || ', Sales Order Line ID = ' || l_line_tbl(1).line_id

Line 1015: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

1011: RAISE l_no_price_list_found;
1012: END IF;
1013:
1014: IF g_log_enabled AND
1015: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1016: THEN
1017: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1018: , G_PKG_NAME
1019: , '>> ' || l_program || ': From Sales Order Line ID ' || l_line_tbl(1).line_id

Line 1017: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

1013:
1014: IF g_log_enabled AND
1015: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1016: THEN
1017: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1018: , G_PKG_NAME
1019: , '>> ' || l_program || ': From Sales Order Line ID ' || l_line_tbl(1).line_id
1020: || ': Price List ID = '|| l_price_list_id
1021: || ', Unit Price = ' || l_unit_price

Line 1034: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

1030: FROM oe_price_lists
1031: WHERE price_list_id = l_price_list_id;
1032:
1033: IF g_log_enabled AND
1034: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1035: THEN
1036: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1037: , G_PKG_NAME
1038: , '>> ' || l_program

Line 1036: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

1032:
1033: IF g_log_enabled AND
1034: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1035: THEN
1036: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1037: , G_PKG_NAME
1038: , '>> ' || l_program
1039: || ': Price List Currency Code = ' || l_currency_code
1040: );

Line 1107: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

1103: AND shikyu_component_id = p_item_id;
1104:
1105: --Debugging changes for bug 9315131
1106: IF g_log_enabled AND
1107: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1108: THEN
1109: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1110: , G_PKG_NAME
1111: , '>> ' || l_program

Line 1109: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

1105: --Debugging changes for bug 9315131
1106: IF g_log_enabled AND
1107: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1108: THEN
1109: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1110: , G_PKG_NAME
1111: , '>> ' || l_program
1112: || ': New Msg: After updating jmf_shikyu_components for shipment:' || p_subcontract_po_shipment_id
1113: || 'p_item_id:' || p_item_id

Line 1123: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

1119: RAISE l_too_many_effective_prices;
1120: END;
1121:
1122: IF g_log_enabled AND
1123: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1124: THEN
1125: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1126: , G_PKG_NAME
1127: , '>> ' || l_program

Line 1125: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

1121:
1122: IF g_log_enabled AND
1123: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1124: THEN
1125: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1126: , G_PKG_NAME
1127: , '>> ' || l_program
1128: || ': Price List UOM = '|| l_price_list_uom
1129: || ', List Price = ' || l_component_price

Line 1137: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

1133: IF NVL(p_action,'C') = 'C' AND l_unit_price IS NULL
1134: THEN
1135:
1136: IF g_log_enabled AND
1137: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1138: THEN
1139: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1140: , G_PKG_NAME
1141: , '>> ' || l_program

Line 1139: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

1135:
1136: IF g_log_enabled AND
1137: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1138: THEN
1139: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1140: , G_PKG_NAME
1141: , '>> ' || l_program
1142: || ': p_action = ''C'' and Unit Price is NULL: Rollback the created Sales Order'
1143: );

Line 1159: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

1155: IF NVL(p_action,'C') = 'Q'
1156: THEN
1157:
1158: IF g_log_enabled AND
1159: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1160: THEN
1161: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1162: , G_PKG_NAME
1163: , '>> ' || l_program

Line 1161: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

1157:
1158: IF g_log_enabled AND
1159: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1160: THEN
1161: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1162: , G_PKG_NAME
1163: , '>> ' || l_program
1164: || ': p_action = ''Q'''
1165: );

Line 1174: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

1170: IF l_primary_uom_code <> l_price_list_uom
1171: THEN
1172:
1173: IF g_log_enabled AND
1174: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1175: THEN
1176: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1177: , G_PKG_NAME
1178: , '>> ' || l_program

Line 1176: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

1172:
1173: IF g_log_enabled AND
1174: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1175: THEN
1176: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1177: , G_PKG_NAME
1178: , '>> ' || l_program
1179: || ': Price List UOM <> Primary UOM: '
1180: || 'Getting UOM Conversion Rate from '

Line 1200: AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

1196:
1197: l_unit_price := l_component_price / l_uom_conversion_rate;
1198:
1199: IF g_log_enabled
1200: AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1201: THEN
1202: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1203: , G_PKG_NAME
1204: , '>> ' || l_program

Line 1202: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

1198:
1199: IF g_log_enabled
1200: AND FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1201: THEN
1202: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1203: , G_PKG_NAME
1204: , '>> ' || l_program
1205: || ': l_component_price = ' || l_component_price
1206: || ', l_uom_conversion_rate = ' || l_uom_conversion_rate

Line 1223: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

1219: IF p_subcontract_po_shipment_id IS NOT NULL
1220: THEN
1221:
1222: IF g_log_enabled AND
1223: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1224: THEN
1225: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1226: , G_PKG_NAME
1227: , '>> ' || l_program || ': Updating JMF_SHIKYU_COMPONENTS table'

Line 1225: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

1221:
1222: IF g_log_enabled AND
1223: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1224: THEN
1225: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1226: , G_PKG_NAME
1227: , '>> ' || l_program || ': Updating JMF_SHIKYU_COMPONENTS table'
1228: );
1229: END IF;

Line 1248: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

1244: AND oem_organization_id = p_oem_organization_id
1245: AND shikyu_component_id = p_item_id;
1246:
1247: IF g_log_enabled AND
1248: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1249: THEN
1250: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1251: , G_PKG_NAME
1252: , '>> ' || l_program || ': Updated JMF_SHIKYU_COMPONENTS table'

Line 1250: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

1246:
1247: IF g_log_enabled AND
1248: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1249: THEN
1250: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1251: , G_PKG_NAME
1252: , '>> ' || l_program || ': Updated JMF_SHIKYU_COMPONENTS table'
1253: );
1254: END IF;

Line 1263: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)

1259:
1260: x_order_line_id := l_line_tbl(1).line_id;
1261:
1262: IF g_log_enabled AND
1263: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1264: THEN
1265: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1266: , G_PKG_NAME
1267: , '>> ' || l_program || ': Returning x_order_line_id = ' || x_order_line_id

Line 1265: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

1261:
1262: IF g_log_enabled AND
1263: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1264: THEN
1265: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1266: , G_PKG_NAME
1267: , '>> ' || l_program || ': Returning x_order_line_id = ' || x_order_line_id
1268: );
1269: END IF;

Line 1276: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)

1272: THEN
1273: fnd_client_info.set_org_context(TO_CHAR(l_client_info_org_id));
1274:
1275: IF g_log_enabled AND
1276: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1277: THEN
1278: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1279: , G_PKG_NAME
1280: , '>> ' || l_program

Line 1278: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

1274:
1275: IF g_log_enabled AND
1276: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1277: THEN
1278: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1279: , G_PKG_NAME
1280: , '>> ' || l_program
1281: || ': Setting the Org Context of CLIENT_INFO back to the original value ('
1282: || l_client_info_org_id || ')'

Line 1289: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)

1285:
1286: END IF;
1287:
1288: IF g_log_enabled AND
1289: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1290: THEN
1291: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1292: , G_PKG_NAME
1293: , '>> ' || l_program || ': End'

Line 1291: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE

1287:
1288: IF g_log_enabled AND
1289: (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1290: THEN
1291: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1292: , G_PKG_NAME
1293: , '>> ' || l_program || ': End'
1294: );
1295: END IF;

Line 1305: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

1301:
1302: ROLLBACK TO before_process_order;
1303:
1304: IF g_log_enabled AND
1305: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1306: THEN
1307:
1308: SELECT concatenated_segments
1309: INTO l_item_number

Line 1314: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION

1310: FROM MTL_SYSTEM_ITEMS_VL
1311: WHERE organization_id = p_oem_organization_id
1312: AND inventory_item_id = p_item_id;
1313:
1314: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1315: , G_PKG_NAME
1316: , '>> ' || l_program || ': Too many prices effective for item "' || l_item_number || '"');
1317: END IF;
1318:

Line 1326: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

1322: --Bugfix 9767052
1323: ROLLBACK TO before_process_order;
1324:
1325: IF g_log_enabled AND
1326: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1327: THEN
1328:
1329: SELECT concatenated_segments
1330: INTO l_item_number

Line 1335: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION

1331: FROM MTL_SYSTEM_ITEMS_VL
1332: WHERE organization_id = p_oem_organization_id
1333: AND inventory_item_id = p_item_id;
1334:
1335: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1336: , G_PKG_NAME
1337: , '>> ' || l_program || ': No effective price list found for item "' || l_item_number || '"');
1338: END IF;
1339:

Line 1347: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

1343: --Bugfix 9767052
1344: ROLLBACK TO before_process_order;
1345:
1346: IF g_log_enabled AND
1347: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1348: THEN
1349:
1350: SELECT concatenated_segments
1351: INTO l_item_number

Line 1356: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION

1352: FROM MTL_SYSTEM_ITEMS_VL
1353: WHERE organization_id = p_oem_organization_id
1354: AND inventory_item_id = p_item_id;
1355:
1356: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
1357: , G_PKG_NAME
1358: , '>> ' || l_program || ': Unit price could not be obtained for '
1359: || l_item_number
1360: || ' from the Price List'

Line 1365: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION

1361: );
1362:
1363: IF l_price_list_uom <> l_line_tbl(1).order_quantity_uom
1364: THEN
1365: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
1366: , G_PKG_NAME
1367: , '>> ' || l_program || ': Unit of Measure specified for the Replenishment PO ('
1368: || l_line_tbl(1).order_quantity_uom
1369: || ') does not correspond to the Unit of Measure currectly effective ('

Line 1383: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

1379: --Bugfix 9767052
1380: ROLLBACK TO before_process_order;
1381:
1382: IF g_log_enabled AND
1383: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1384: THEN
1385:
1386: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
1387: , G_PKG_NAME

Line 1386: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION

1382: IF g_log_enabled AND
1383: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1384: THEN
1385:
1386: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
1387: , G_PKG_NAME
1388: , '>> ' || l_program || ': More than one Project and Task reference found'
1389: );
1390: END IF;

Line 1402: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL

1398: FND_MESSAGE.set_name('JMF', 'JMF_SHK_REPLENISH_SO_ERR');
1399: FND_MSG_PUB.add;
1400:
1401: IF g_log_enabled AND
1402: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1403: THEN
1404:
1405: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1406: , G_PKG_NAME

Line 1405: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION

1401: IF g_log_enabled AND
1402: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1403: THEN
1404:
1405: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1406: , G_PKG_NAME
1407: , '>> ' || l_program || ': OTHER EXCEPTION at Stmt Number:' || lStmtNo || ': ' || sqlerrm);
1408: END IF;
1409: