[Home] [Help]
1: PACKAGE BODY XDP_ORDER AS
2: /* $Header: XDPORDRB.pls 120.1 2005/06/09 00:23:06 appldev $ */
3:
4: --===========================================================
5: -- Declaration of Procedures and functions implementation
187: AND sysdate >= valid_date
188: AND sysdate <= NVL(invalid_date,sysdate);
189: BEGIN
190: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
191: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.GET_WORKITEM_ID')) THEN
192: dbg_msg := ('Workitem Name is :'||lv_wi_name||' Version is :'||lv_wi_version);
193: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
194: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.GET_WORKITEM_ID', dbg_msg);
195: END IF;
190: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
191: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.GET_WORKITEM_ID')) THEN
192: dbg_msg := ('Workitem Name is :'||lv_wi_name||' Version is :'||lv_wi_version);
193: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
194: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.GET_WORKITEM_ID', dbg_msg);
195: END IF;
196: END IF;
197: END IF;
198:
209: lv_wi_id := NULL;
210:
211: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
212: dbg_msg := ('Workitem Id is null');
213: IF (FND_LOG.TEST(FND_LOG.LEVEL_EXCEPTION, 'xdp.plsql.XDP_ORDER.GET_WORKITEM_ID')) THEN
214: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'xdp.plsql.XDP_ORDER.GET_WORKITEM_ID', dbg_msg);
215: END IF;
216: END IF;
217:
210:
211: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
212: dbg_msg := ('Workitem Id is null');
213: IF (FND_LOG.TEST(FND_LOG.LEVEL_EXCEPTION, 'xdp.plsql.XDP_ORDER.GET_WORKITEM_ID')) THEN
214: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'xdp.plsql.XDP_ORDER.GET_WORKITEM_ID', dbg_msg);
215: END IF;
216: END IF;
217:
218: END;
228: END IF;
229: IF lv_wi_id > 0 THEN
230: RETURN lv_wi_id;
231: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
232: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.GET_WORKITEM_ID')) THEN
233: dbg_msg := ('Workitem Id is :'||lv_wi_id);
234: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
235: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.GET_WORKITEM_ID', dbg_msg);
236: END IF;
231: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
232: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.GET_WORKITEM_ID')) THEN
233: dbg_msg := ('Workitem Id is :'||lv_wi_id);
234: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
235: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.GET_WORKITEM_ID', dbg_msg);
236: END IF;
237: END IF;
238: END IF;
239:
247: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_NO_UNIQUE_MATCH');--Done
248: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
249: FND_MESSAGE.SET_TOKEN('SERVICE_ITEM_NAME', lv_wi_name);
250: FND_MESSAGE.SET_TOKEN('VERSION', lv_wi_version);
251: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.GET_WORKITEM_ID');
252:
253: WHEN e_wi_no_config THEN
254: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_NO_CONFIG'); -- Done
255: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
254: FND_MESSAGE.SET_NAME('XDP', 'XDP_WI_NO_CONFIG'); -- Done
255: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
256: FND_MESSAGE.SET_TOKEN('SERVICE_ITEM_NAME', lv_wi_name);
257: FND_MESSAGE.SET_TOKEN('VERSION', lv_wi_version);
258: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.GET_WORKITEM_ID');
259:
260: WHEN others THEN
261: XDP_UTILITIES.GENERIC_ERROR('XDP_ORDER.GET_WORKITEM_ID'
262: ,G_external_order_reference
257: FND_MESSAGE.SET_TOKEN('VERSION', lv_wi_version);
258: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.GET_WORKITEM_ID');
259:
260: WHEN others THEN
261: XDP_UTILITIES.GENERIC_ERROR('XDP_ORDER.GET_WORKITEM_ID'
262: ,G_external_order_reference
263: ,sqlcode
264: ,sqlerrm);
265: END GET_WORKITEM_ID;
295: AND msib.inventory_item_id = bic.component_item_id
296: AND msib.comms_activation_reqd_flag = 'Y');
297: BEGIN
298: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
299: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.IS_PRODUCT_PACKAGE')) THEN
300: dbg_msg := ('Organization Id is : '||p_organization_id||' Inventory Id is : '||p_inventory_item_id);
301: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
302: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.IS_PRODUCT_PACKAGE', dbg_msg);
303: END IF;
298: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
299: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.IS_PRODUCT_PACKAGE')) THEN
300: dbg_msg := ('Organization Id is : '||p_organization_id||' Inventory Id is : '||p_inventory_item_id);
301: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
302: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.IS_PRODUCT_PACKAGE', dbg_msg);
303: END IF;
304: END IF;
305: END IF;
306:
310: END LOOP;
311: RETURN lv_package_flag ;
312:
313: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
314: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IS_PRODUCT_PACKAGE')) THEN
315: dbg_msg := ('Package Flag is : '||lv_package_flag);
316: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
317: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IS_PRODUCT_PACKAGE', dbg_msg);
318: END IF;
313: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
314: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IS_PRODUCT_PACKAGE')) THEN
315: dbg_msg := ('Package Flag is : '||lv_package_flag);
316: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
317: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IS_PRODUCT_PACKAGE', dbg_msg);
318: END IF;
319: END IF;
320: END IF;
321:
320: END IF;
321:
322: EXCEPTION
323: WHEN others THEN
324: XDP_UTILITIES.GENERIC_ERROR('XDP_ORDER.IS_PRODUCT_PACKAGE'
325: ,G_external_order_reference
326: ,sqlcode
327: ,sqlerrm);
328: END IS_PRODUCT_PACKAGE;
340:
341: BEGIN
342:
343: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
344: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_ORGANIZATION')) THEN
345: dbg_msg := ('Organization Id is : '||P_ORGANIZATION_ID||' Organization Code is : '||P_ORGANIZATION_CODE||
346: ' Setup Organization Id is : '||P_SETUP_ORGANIZATION_ID);
347: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
348: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_ORGANIZATION', dbg_msg);
344: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_ORGANIZATION')) THEN
345: dbg_msg := ('Organization Id is : '||P_ORGANIZATION_ID||' Organization Code is : '||P_ORGANIZATION_CODE||
346: ' Setup Organization Id is : '||P_SETUP_ORGANIZATION_ID);
347: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
348: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_ORGANIZATION', dbg_msg);
349: END IF;
350: END IF;
351: END IF;
352:
365: RAISE e_invalid_organization_id ;
366: END ;
367:
368: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
369: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORGANIZATION')) THEN
370: dbg_msg := ('Organization Id Exists');
371: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
372: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORGANIZATION', dbg_msg);
373: END IF;
368: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
369: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORGANIZATION')) THEN
370: dbg_msg := ('Organization Id Exists');
371: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
372: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORGANIZATION', dbg_msg);
373: END IF;
374: END IF;
375: END IF;
376:
386: RAISE e_invalid_organization_code ;
387: END ;
388:
389: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
390: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORGANIZATION')) THEN
391: dbg_msg := ('Organization Code exists');
392: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
393: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORGANIZATION', dbg_msg);
394: END IF;
389: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
390: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORGANIZATION')) THEN
391: dbg_msg := ('Organization Code exists');
392: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
393: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORGANIZATION', dbg_msg);
394: END IF;
395: END IF;
396: END IF;
397:
399: END IF ;
400: RETURN lv_organization_id ;
401:
402: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
403: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORGANIZATION')) THEN
404: dbg_msg := ('Organization Id is : '||lv_organization_id );
405: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
406: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORGANIZATION', dbg_msg);
407: END IF;
402: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
403: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORGANIZATION')) THEN
404: dbg_msg := ('Organization Id is : '||lv_organization_id );
405: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
406: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORGANIZATION', dbg_msg);
407: END IF;
408: END IF;
409: END IF;
410:
411: EXCEPTION
412: WHEN e_invalid_organization THEN
413: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_ORGANIZATION'); -- Created -191370
414: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
415: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.VALIDATE_ORGANIZATION');
416:
417: WHEN e_invalid_organization_id THEN
418: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_ORGANIZATION_ID'); -- Created -191370
419: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
417: WHEN e_invalid_organization_id THEN
418: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_ORGANIZATION_ID'); -- Created -191370
419: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
420: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_organization_id);
421: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.VALIDATE_ORGANIZATION');
422:
423: WHEN e_invalid_organization_code THEN
424: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_ORGANIZATION_CODE'); -- Created -191370
425: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
423: WHEN e_invalid_organization_code THEN
424: FND_MESSAGE.SET_NAME('XDP', 'XDP_INVALID_ORGANIZATION_CODE'); -- Created -191370
425: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
426: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',p_organization_code);
427: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.VALIDATE_ORGANIZATION');
428:
429: WHEN others THEN
430: XDP_UTILITIES.GENERIC_ERROR('XDP_ORDER.VALIDATE_ORGANIZATION'
431: ,G_external_order_reference
426: FND_MESSAGE.SET_TOKEN('ORGANIZATION_CODE',p_organization_code);
427: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.VALIDATE_ORGANIZATION');
428:
429: WHEN others THEN
430: XDP_UTILITIES.GENERIC_ERROR('XDP_ORDER.VALIDATE_ORGANIZATION'
431: ,G_external_order_reference
432: ,sqlcode
433: ,sqlerrm);
434: END VALIDATE_ORGANIZATION ;
457: AND NVL(invalid_date,sysdate) >= sysdate ;
458: BEGIN
459:
460: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
461: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.IS_SERVICE_ACTION_VALID')) THEN
462: dbg_msg := ('Organization Id is: '||p_organization_id||' Inventory Item Id is: '||p_inventory_item_id
463: ||' Action is: '||p_action);
464: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
465: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.IS_SERVICE_ACTION_VALID', dbg_msg);
461: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.IS_SERVICE_ACTION_VALID')) THEN
462: dbg_msg := ('Organization Id is: '||p_organization_id||' Inventory Item Id is: '||p_inventory_item_id
463: ||' Action is: '||p_action);
464: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
465: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.IS_SERVICE_ACTION_VALID', dbg_msg);
466: END IF;
467: END IF;
468: END IF;
469:
472: lv_exists_flag := 'Y' ;
473: END LOOP ;
474: RETURN lv_exists_flag;
475: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
476: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IS_SERVICE_ACTION_VALID')) THEN
477: dbg_msg := ('Service Action is valid');
478: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
479: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IS_SERVICE_ACTION_VALID', dbg_msg);
480: END IF;
475: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
476: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IS_SERVICE_ACTION_VALID')) THEN
477: dbg_msg := ('Service Action is valid');
478: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
479: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IS_SERVICE_ACTION_VALID', dbg_msg);
480: END IF;
481: END IF;
482: END IF;
483:
482: END IF;
483:
484: EXCEPTION
485: WHEN others THEN
486: XDP_UTILITIES.GENERIC_ERROR('XDP_ORDER.IS_SERVICE_ACTION_VALID'
487: ,G_external_order_reference
488: ,sqlcode
489: ,sqlerrm);
490: END IS_SERVICE_ACTION_VALID;
519:
520: BEGIN
521:
522: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
523: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.IS_PACKAGE_ACTION_VALID')) THEN
524: dbg_msg := ('Organization Id is: '||p_organization_id||' Inventory Item Id is: '||p_inventory_item_id
525: ||' Action is: '||p_action);
526: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
527: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.IS_PACKAGE_ACTION_VALID', dbg_msg);
523: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.IS_PACKAGE_ACTION_VALID')) THEN
524: dbg_msg := ('Organization Id is: '||p_organization_id||' Inventory Item Id is: '||p_inventory_item_id
525: ||' Action is: '||p_action);
526: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
527: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.IS_PACKAGE_ACTION_VALID', dbg_msg);
528: END IF;
529: END IF;
530: END IF;
531:
543: END LOOP;
544: RETURN l_package_action_valid_flag ;
545:
546: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
547: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IS_PACKAGE_ACTION_VALID')) THEN
548: dbg_msg := ('Package Action is valid');
549: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
550: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IS_PACKAGE_ACTION_VALID', dbg_msg);
551: END IF;
546: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
547: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IS_PACKAGE_ACTION_VALID')) THEN
548: dbg_msg := ('Package Action is valid');
549: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
550: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IS_PACKAGE_ACTION_VALID', dbg_msg);
551: END IF;
552: END IF;
553: END IF;
554:
558: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
559: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_inventory_item_id);
560: FND_MESSAGE.SET_TOKEN('SERVICE_NAME', l_item_number);
561: FND_MESSAGE.SET_TOKEN('ACTION', p_action);
562: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.IS_PACKAGE_ACTION_VALID');
563:
564: WHEN others THEN
565: XDP_UTILITIES.GENERIC_ERROR('XDP_ORDER.IS_PACKAGE_ACTION_VALID'
566: ,G_external_order_reference
561: FND_MESSAGE.SET_TOKEN('ACTION', p_action);
562: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.IS_PACKAGE_ACTION_VALID');
563:
564: WHEN others THEN
565: XDP_UTILITIES.GENERIC_ERROR('XDP_ORDER.IS_PACKAGE_ACTION_VALID'
566: ,G_external_order_reference
567: ,sqlcode
568: ,sqlerrm);
569: END IS_PACKAGE_ACTION_VALID;
592: END IF;
593:
594: EXCEPTION
595: WHEN OTHERS THEN
596: XDP_UTILITIES.GENERIC_ERROR('XDP_ORDER.IS_ORDER_TYPE_MAINT_AVAIL'
597: ,G_external_order_reference
598: ,sqlcode
599: ,sqlerrm);
600:
621:
622: savepoint start_process_order ;
623:
624: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
625: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER')) THEN
626: dbg_msg := ('Procedure Process_Order begins.');
627: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
628: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER', dbg_msg);
629: END IF;
624: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
625: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER')) THEN
626: dbg_msg := ('Procedure Process_Order begins.');
627: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
628: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER', dbg_msg);
629: END IF;
630: END IF;
631: END IF;
632:
641: P_LINE_PARAMETER_LIST
642: );
643:
644: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
645: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER')) THEN
646: dbg_msg := ('Completed Validation of Order');
647: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
648: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER', dbg_msg);
649: END IF;
644: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
645: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER')) THEN
646: dbg_msg := ('Completed Validation of Order');
647: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
648: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER', dbg_msg);
649: END IF;
650: END IF;
651: END IF;
652: ----------------------------------
660: );
661:
662:
663: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
664: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER')) THEN
665: dbg_msg := ('Completed Population of Order');
666: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
667: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER', dbg_msg);
668: END IF;
663: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
664: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER')) THEN
665: dbg_msg := ('Completed Population of Order');
666: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
667: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER', dbg_msg);
668: END IF;
669: END IF;
670: END IF;
671:
671:
672: p_order_id := P_ORDER_HEADER.order_id;
673:
674: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
675: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER')) THEN
676: dbg_msg := ('Order Id for the Order Number: '||p_order_header.order_number||' is: '|| P_ORDER_HEADER.order_id);
677: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
678: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER', dbg_msg);
679: END IF;
674: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
675: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER')) THEN
676: dbg_msg := ('Order Id for the Order Number: '||p_order_header.order_number||' is: '|| P_ORDER_HEADER.order_id);
677: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
678: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER', dbg_msg);
679: END IF;
680: END IF;
681: END IF;
682:
683: ------------------------------
684: -- Add order to QUEUE
685: ------------------------------
686: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
687: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER')) THEN
688: dbg_msg := ('Enqueueing Order');
689: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
690: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER', dbg_msg);
691: END IF;
686: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
687: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER')) THEN
688: dbg_msg := ('Enqueueing Order');
689: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
690: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER', dbg_msg);
691: END IF;
692: END IF;
693: END IF;
694: XDPCORE.CreateOrderProcess(
697: ,lv_item_key);
698:
699: IF(UPPER(P_ORDER_HEADER.execution_mode) = 'ASYNC') THEN
700: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
701: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER')) THEN
702: dbg_msg := ('Order is in Asynchronous Mode');
703: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
704: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER', dbg_msg);
705: END IF;
700: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
701: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER')) THEN
702: dbg_msg := ('Order is in Asynchronous Mode');
703: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
704: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER', dbg_msg);
705: END IF;
706: END IF;
707: END IF;
708:
705: END IF;
706: END IF;
707: END IF;
708:
709: /* Update the XDP_ORDER_HEADERS table with the User defined Workitem Item Type and Item Key */
710:
711: update XDP_ORDER_HEADERS
712: set WF_ITEM_TYPE = lv_item_type,
713: WF_ITEM_KEY = lv_item_key,
707: END IF;
708:
709: /* Update the XDP_ORDER_HEADERS table with the User defined Workitem Item Type and Item Key */
710:
711: update XDP_ORDER_HEADERS
712: set WF_ITEM_TYPE = lv_item_type,
713: WF_ITEM_KEY = lv_item_key,
714: LAST_UPDATE_DATE = sysdate, LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
715: LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
725: ,P_WF_ITEM_KEY => lv_item_key);
726: ELSE -- Do it now
727:
728: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
729: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER')) THEN
730: dbg_msg := ('Order is in Synchronous Mode');
731: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
732: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER', dbg_msg);
733: END IF;
728: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
729: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER')) THEN
730: dbg_msg := ('Order is in Synchronous Mode');
731: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
732: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.PROCESS_ORDER', dbg_msg);
733: END IF;
734: END IF;
735: END IF;
736:
733: END IF;
734: END IF;
735: END IF;
736:
737: XDP_ORDER_SYNC.Execute_Order_Sync(
738: p_order_header.order_id,
739: Return_Code,
740: Error_Description);
741: END IF;
759: IS
760: BEGIN
761:
762: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
763: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER')) THEN
764: dbg_msg := ('Procedure Validate_Order begins.');
765: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
766: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER', dbg_msg);
767: END IF;
762: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
763: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER')) THEN
764: dbg_msg := ('Procedure Validate_Order begins.');
765: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
766: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER', dbg_msg);
767: END IF;
768: END IF;
769: END IF;
770:
773: P_ORDER_LINE_LIST,
774: P_LINE_PARAMETER_LIST);
775:
776: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
777: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER')) THEN
778: dbg_msg := ('Completed Validating Order Header');
779: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
780: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER', dbg_msg);
781: END IF;
776: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
777: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER')) THEN
778: dbg_msg := ('Completed Validating Order Header');
779: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
780: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER', dbg_msg);
781: END IF;
782: END IF;
783: END IF;
784:
787: P_ORDER_LINE_LIST
788: );
789:
790: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
791: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER')) THEN
792: dbg_msg := ('Completed Validating Order Lines');
793: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
794: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER', dbg_msg);
795: END IF;
790: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
791: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER')) THEN
792: dbg_msg := ('Completed Validating Order Lines');
793: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
794: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER', dbg_msg);
795: END IF;
796: END IF;
797: END IF;
798:
798:
799:
800: EXCEPTION
801: WHEN OTHERS THEN
802: XDP_UTILITIES.generic_error('XDP_ORDER.VALIDATE_ORDER'
803: ,G_external_order_reference
804: ,SQLCODE
805: ,SQLERRM);
806: END Validate_Order;
808: --*********************************************************************
809: -- Definition of Procedure Validate_Order_Header:-validates Order Number
810: --Validates Customer Account Id, Argument null Conditions
811: -- and calls Service Validation
812: --Note:- Order Id validation is checked during insert in XDP_ORDER_HEADERS
813: --************************************************************************
814:
815: PROCEDURE Validate_Order_Header(
816: P_ORDER_HEADER IN OUT NOCOPY XDP_TYPES.SERVICE_ORDER_HEADER,
834:
835: BEGIN
836:
837: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
838: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER')) THEN
839: dbg_msg := ('Procedure Validate_Order_Header begins.');
840: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
841: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER', dbg_msg);
842: END IF;
837: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
838: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER')) THEN
839: dbg_msg := ('Procedure Validate_Order_Header begins.');
840: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
841: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER', dbg_msg);
842: END IF;
843: END IF;
844: END IF;
845:
864: RAISE e_order_number_null;
865: END IF;
866:
867: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
868: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER')) THEN
869: dbg_msg := ('Order Number is: '||p_order_header.order_number);
870: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
871: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER', dbg_msg);
872: END IF;
867: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
868: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER')) THEN
869: dbg_msg := ('Order Number is: '||p_order_header.order_number);
870: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
871: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER', dbg_msg);
872: END IF;
873: END IF;
874: END IF;
875:
880: p_order_header.required_fulfillment_date := sysdate;
881: END IF;
882:
883: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
884: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER')) THEN
885: dbg_msg := ('Required Fulfillment Date is: '||p_order_header.required_fulfillment_date);
886: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
887: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER', dbg_msg);
888: END IF;
883: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
884: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER')) THEN
885: dbg_msg := ('Required Fulfillment Date is: '||p_order_header.required_fulfillment_date);
886: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
887: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER', dbg_msg);
888: END IF;
889: END IF;
890: END IF;
891:
900: RAISE e_execution_mode_invalid ;
901: END IF;
902:
903: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
904: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER')) THEN
905: dbg_msg := ('Execution mode is: '||p_order_header.execution_mode );
906: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
907: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER', dbg_msg);
908: END IF;
903: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
904: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER')) THEN
905: dbg_msg := ('Execution mode is: '||p_order_header.execution_mode );
906: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
907: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER', dbg_msg);
908: END IF;
909: END IF;
910: END IF;
911:
931: EXCEPTION
932: WHEN NO_DATA_FOUND THEN
933: RAISE e_cust_acc_id_invalid;
934: WHEN OTHERS THEN
935: XDP_UTILITIES.generic_error('XDP_ORDER.VALIDATE_ORDER_HEADER'
936: ,G_external_order_reference
937: ,SQLCODE
938: ,SQLERRM);
939: END;
946: EXCEPTION
947: WHEN NO_DATA_FOUND THEN
948: RAISE e_cust_acc_num_invalid;
949: WHEN OTHERS THEN
950: XDP_UTILITIES.generic_error('XDP_ORDER.VALIDATE_ORDER_HEADER'
951: ,G_external_order_reference
952: ,SQLCODE
953: ,SQLERRM);
954: END;
953: ,SQLERRM);
954: END;
955:
956: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
957: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER')) THEN
958: dbg_msg := ('Customer Account Id is: '||p_order_header.cust_account_id);
959: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
960: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER', dbg_msg);
961: END IF;
956: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
957: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER')) THEN
958: dbg_msg := ('Customer Account Id is: '||p_order_header.cust_account_id);
959: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
960: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER', dbg_msg);
961: END IF;
962: END IF;
963: END IF;
964:
974: RAISE e_line_parameter_list_null;
975: END IF;
976:
977: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
978: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER')) THEN
979: dbg_msg := ('Number of records in Order Line List: '||p_order_line_list.COUNT);
980: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
981: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER', dbg_msg);
982: END IF;
977: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
978: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER')) THEN
979: dbg_msg := ('Number of records in Order Line List: '||p_order_line_list.COUNT);
980: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
981: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER', dbg_msg);
982: END IF;
983: END IF;
984: END IF;
985:
983: END IF;
984: END IF;
985:
986: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
987: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER')) THEN
988: dbg_msg := ('Number of records in Line Parameter List: '||p_line_parameter_list.COUNT);
989: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
990: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER', dbg_msg);
991: END IF;
986: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
987: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER')) THEN
988: dbg_msg := ('Number of records in Line Parameter List: '||p_line_parameter_list.COUNT);
989: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
990: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_HEADER', dbg_msg);
991: END IF;
992: END IF;
993: END IF;
994:
993: END IF;
994:
995: EXCEPTION
996: WHEN e_order_number_null THEN
997: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDERNUM_NOT_NULL'); -- Done 191251
998: XDP_UTILITIES.raise_exception('XDP_ORDER.VALIDATE_ORDER_HEADER');
999:
1000: WHEN e_execution_mode_invalid THEN
1001: FND_MESSAGE.SET_NAME('XDP','XDP_ORD_EXECUTION_MODE_INVALID');
994:
995: EXCEPTION
996: WHEN e_order_number_null THEN
997: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDERNUM_NOT_NULL'); -- Done 191251
998: XDP_UTILITIES.raise_exception('XDP_ORDER.VALIDATE_ORDER_HEADER');
999:
1000: WHEN e_execution_mode_invalid THEN
1001: FND_MESSAGE.SET_NAME('XDP','XDP_ORD_EXECUTION_MODE_INVALID');
1002: FND_MESSAGE.SET_TOKEN('ORDNUM',G_external_order_reference);
999:
1000: WHEN e_execution_mode_invalid THEN
1001: FND_MESSAGE.SET_NAME('XDP','XDP_ORD_EXECUTION_MODE_INVALID');
1002: FND_MESSAGE.SET_TOKEN('ORDNUM',G_external_order_reference);
1003: XDP_UTILITIES.raise_exception('XDP_ORDER.VALIDATE_ORDER_HEADER');
1004:
1005: WHEN e_order_line_list_null THEN
1006: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDLINELIST_NOTNULL'); -- Done 191253
1007: FND_MESSAGE.SET_TOKEN('ORDNUM',G_external_order_reference);
1004:
1005: WHEN e_order_line_list_null THEN
1006: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDLINELIST_NOTNULL'); -- Done 191253
1007: FND_MESSAGE.SET_TOKEN('ORDNUM',G_external_order_reference);
1008: XDP_UTILITIES.raise_exception('XDP_ORDER.VALIDATE_ORDER');
1009:
1010: WHEN e_order_line_list_count THEN
1011: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDLINELIST_NOT_EMPTY'); -- Done 191254
1012: FND_MESSAGE.SET_TOKEN('ORDNUM',G_external_order_reference);
1009:
1010: WHEN e_order_line_list_count THEN
1011: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDLINELIST_NOT_EMPTY'); -- Done 191254
1012: FND_MESSAGE.SET_TOKEN('ORDNUM',G_external_order_reference);
1013: XDP_UTILITIES.raise_exception('XDP_ORDER.VALIDATE_ORDER_HEADER');
1014:
1015: WHEN e_line_parameter_list_null THEN
1016: FND_MESSAGE.SET_NAME('XDP', 'XDP_PARAMLIST_NOTNULL'); -- Done -191255
1017: FND_MESSAGE.SET_TOKEN('ORDNUM',G_external_order_reference);
1014:
1015: WHEN e_line_parameter_list_null THEN
1016: FND_MESSAGE.SET_NAME('XDP', 'XDP_PARAMLIST_NOTNULL'); -- Done -191255
1017: FND_MESSAGE.SET_TOKEN('ORDNUM',G_external_order_reference);
1018: XDP_UTILITIES.raise_exception('XDP_ORDER.VALIDATE_ORDER_HEADER');
1019:
1020: WHEN e_cust_acc_id_invalid THEN
1021: FND_MESSAGE.SET_NAME('XDP', 'XDP_ACCOUNTID_INVALID'); --Done -191371
1022: FND_MESSAGE.SET_TOKEN('ORDNUM',G_external_order_reference);
1020: WHEN e_cust_acc_id_invalid THEN
1021: FND_MESSAGE.SET_NAME('XDP', 'XDP_ACCOUNTID_INVALID'); --Done -191371
1022: FND_MESSAGE.SET_TOKEN('ORDNUM',G_external_order_reference);
1023: FND_MESSAGE.SET_TOKEN('ACCOUNT_ID', p_order_header.cust_account_id);
1024: XDP_UTILITIES.raise_exception('XDP_ORDER.VALIDATE_ORDER_HEADER');
1025:
1026: WHEN e_cust_acc_num_invalid THEN
1027: FND_MESSAGE.SET_NAME('XDP','XDP_ACCOUNTNUM_INVALID');-- Done -191372
1028: FND_MESSAGE.SET_TOKEN('ORDNUM',G_external_order_reference);
1026: WHEN e_cust_acc_num_invalid THEN
1027: FND_MESSAGE.SET_NAME('XDP','XDP_ACCOUNTNUM_INVALID');-- Done -191372
1028: FND_MESSAGE.SET_TOKEN('ORDNUM',G_external_order_reference);
1029: FND_MESSAGE.SET_TOKEN('ACCOUNT_NUMBER',p_order_header.account_number);
1030: XDP_UTILITIES.raise_exception('XDP_ORDER.VALIDATE_ORDER_HEADER');
1031:
1032: WHEN e_due_date_null THEN
1033: FND_MESSAGE.SET_NAME('XDP', 'XDP_DUE_DATE_NULL');
1034: FND_MESSAGE.SET_TOKEN('ORDNUM',G_external_order_reference);
1031:
1032: WHEN e_due_date_null THEN
1033: FND_MESSAGE.SET_NAME('XDP', 'XDP_DUE_DATE_NULL');
1034: FND_MESSAGE.SET_TOKEN('ORDNUM',G_external_order_reference);
1035: XDP_UTILITIES.raise_exception('XDP_ORDER.VALIDATE_ORDER_HEADER');
1036:
1037: WHEN e_order_type_not_reg THEN
1038: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_TYPE_NOT_AVAILABLE');
1039: FND_MESSAGE.SET_TOKEN('ORDNUM', G_external_order_reference);
1034: FND_MESSAGE.SET_TOKEN('ORDNUM',G_external_order_reference);
1035: XDP_UTILITIES.raise_exception('XDP_ORDER.VALIDATE_ORDER_HEADER');
1036:
1037: WHEN e_order_type_not_reg THEN
1038: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_TYPE_NOT_AVAILABLE');
1039: FND_MESSAGE.SET_TOKEN('ORDNUM', G_external_order_reference);
1040: XDP_UTILITIES.raise_exception('XDP_ORDER.VALIDATE_ORDER_HEADER');
1041:
1042: WHEN OTHERS THEN
1036:
1037: WHEN e_order_type_not_reg THEN
1038: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_TYPE_NOT_AVAILABLE');
1039: FND_MESSAGE.SET_TOKEN('ORDNUM', G_external_order_reference);
1040: XDP_UTILITIES.raise_exception('XDP_ORDER.VALIDATE_ORDER_HEADER');
1041:
1042: WHEN OTHERS THEN
1043: XDP_UTILITIES.generic_error('XDP_ORDER.VALIDATE_ORDER_HEADER'
1044: ,p_order_header.order_number
1039: FND_MESSAGE.SET_TOKEN('ORDNUM', G_external_order_reference);
1040: XDP_UTILITIES.raise_exception('XDP_ORDER.VALIDATE_ORDER_HEADER');
1041:
1042: WHEN OTHERS THEN
1043: XDP_UTILITIES.generic_error('XDP_ORDER.VALIDATE_ORDER_HEADER'
1044: ,p_order_header.order_number
1045: ,SQLCODE
1046: ,SQLERRM);
1047: END VALIDATE_ORDER_HEADER;
1082:
1083: BEGIN
1084:
1085: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1086: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1087: dbg_msg := ('Procedure Validate_Order_Line begins.');
1088: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1089: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1090: END IF;
1085: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1086: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1087: dbg_msg := ('Procedure Validate_Order_Line begins.');
1088: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1089: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1090: END IF;
1091: END IF;
1092: END IF;
1093:
1106: RAISE e_lineitem_name_null ;
1107: END IF;
1108:
1109: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1110: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1111: dbg_msg := ('Validated Line Number is: '||p_service_order_line_list(lv_index).line_number);
1112: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1113: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1114: END IF;
1109: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1110: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1111: dbg_msg := ('Validated Line Number is: '||p_service_order_line_list(lv_index).line_number);
1112: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1113: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1114: END IF;
1115: END IF;
1116: END IF;
1117:
1115: END IF;
1116: END IF;
1117:
1118: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1119: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1120: dbg_msg := ('Validated Service Item Name is: '||p_service_order_line_list(lv_index).service_item_name||' Inventory Item Id is: '||
1121: p_service_order_line_list(lv_index).inventory_item_id);
1122: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1123: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1119: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1120: dbg_msg := ('Validated Service Item Name is: '||p_service_order_line_list(lv_index).service_item_name||' Inventory Item Id is: '||
1121: p_service_order_line_list(lv_index).inventory_item_id);
1122: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1123: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1124: END IF;
1125: END IF;
1126: END IF;
1127:
1141: END IF;
1142: END IF;
1143:
1144: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1145: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1146: dbg_msg := ('Validated IB Source is: '||p_service_order_line_list(lv_index).ib_source);
1147: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1148: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1149: END IF;
1144: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1145: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1146: dbg_msg := ('Validated IB Source is: '||p_service_order_line_list(lv_index).ib_source);
1147: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1148: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1149: END IF;
1150: END IF;
1151: END IF;
1152:
1158: SELECT 1 INTO lv_site_use_id from HZ_CUST_SITE_USES_ALL SITES
1159: WHERE SITES.SITE_USE_ID = p_service_order_line_list(lv_index).site_use_id;
1160:
1161: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1162: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1163: dbg_msg := ('Validated Site Use Id is: '||p_service_order_line_list(lv_index).site_use_id);
1164: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1165: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1166: END IF;
1161: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1162: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1163: dbg_msg := ('Validated Site Use Id is: '||p_service_order_line_list(lv_index).site_use_id);
1164: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1165: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1166: END IF;
1167: END IF;
1168: END IF;
1169:
1195: UPPER(p_service_order_line_list(lv_index).action_code);
1196: END IF;
1197:
1198: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1199: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1200: dbg_msg := ('Action Code is: '||p_service_order_line_list(lv_index).action_code);
1201: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1202: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1203: END IF;
1198: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1199: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1200: dbg_msg := ('Action Code is: '||p_service_order_line_list(lv_index).action_code);
1201: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1202: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1203: END IF;
1204: END IF;
1205: END IF;
1206: /**
1209: UPPER(p_service_order_line_list(lv_index).service_item_name);
1210: END IF;
1211:
1212: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1213: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1214: dbg_msg := ('Service Item Name is: '||p_service_order_line_list(lv_index).service_item_name);
1215: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1216: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1217: END IF;
1212: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1213: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1214: dbg_msg := ('Service Item Name is: '||p_service_order_line_list(lv_index).service_item_name);
1215: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1216: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1217: END IF;
1218: END IF;
1219: END IF;
1220: **/
1223: UPPER(p_service_order_line_list(lv_index).version);
1224: END IF;
1225:
1226: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1227: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1228: dbg_msg := ('Version is: '||p_service_order_line_list(lv_index).version);
1229: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1230: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1231: END IF;
1226: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1227: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1228: dbg_msg := ('Version is: '||p_service_order_line_list(lv_index).version);
1229: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1230: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1231: END IF;
1232: END IF;
1233: END IF;
1234:
1239: p_order_header.required_fulfillment_date;
1240: END IF;
1241:
1242: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1243: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1244: dbg_msg := ('Required Fulfillment Date is: '||p_service_order_line_list(lv_index).required_fulfillment_date);
1245: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1246: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1247: END IF;
1242: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1243: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1244: dbg_msg := ('Required Fulfillment Date is: '||p_service_order_line_list(lv_index).required_fulfillment_date);
1245: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1246: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1247: END IF;
1248: END IF;
1249: END IF;
1250:
1253: p_service_order_line_list(lv_index).due_date := p_order_header.due_date;
1254: END IF;
1255:
1256: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1257: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1258: dbg_msg := ('Due Date is: '||p_service_order_line_list(lv_index).due_date);
1259: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1260: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1261: END IF;
1256: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1257: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1258: dbg_msg := ('Due Date is: '||p_service_order_line_list(lv_index).due_date);
1259: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1260: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1261: END IF;
1262: END IF;
1263: END IF;
1264:
1267: p_order_header.customer_required_date;
1268: END IF;
1269:
1270: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1271: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1272: dbg_msg := ('Customer Required Date is: '||p_service_order_line_list(lv_index).customer_required_date);
1273: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1274: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1275: END IF;
1270: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1271: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1272: dbg_msg := ('Customer Required Date is: '||p_service_order_line_list(lv_index).customer_required_date);
1273: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1274: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1275: END IF;
1276: END IF;
1277: END IF;
1278:
1280: p_service_order_line_list(lv_index).fulfillment_sequence := 0;
1281: END IF;
1282:
1283: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1284: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1285: dbg_msg := ('Fulfillment Sequence is: '||p_service_order_line_list(lv_index).fulfillment_sequence);
1286: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1287: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1288: END IF;
1283: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1284: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1285: dbg_msg := ('Fulfillment Sequence is: '||p_service_order_line_list(lv_index).fulfillment_sequence);
1286: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1287: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1288: END IF;
1289: END IF;
1290: END IF;
1291:
1293: p_service_order_line_list(lv_index).bundle_sequence := NULL;
1294: END IF;
1295:
1296: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1297: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1298: dbg_msg := ('Bundle Id is: '||p_service_order_line_list(lv_index).bundle_sequence);
1299: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1300: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1301: END IF;
1296: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1297: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1298: dbg_msg := ('Bundle Id is: '||p_service_order_line_list(lv_index).bundle_sequence);
1299: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1300: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1301: END IF;
1302: END IF;
1303: END IF;
1304:
1306: p_service_order_line_list(lv_index).fulfillment_required_flag := 'Y';
1307: END IF;
1308:
1309: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1310: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1311: dbg_msg := ('Fulfillment Required Flag is: '||p_service_order_line_list(lv_index).fulfillment_required_flag);
1312: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1313: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1314: END IF;
1309: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1310: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1311: dbg_msg := ('Fulfillment Required Flag is: '||p_service_order_line_list(lv_index).fulfillment_required_flag);
1312: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1313: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1314: END IF;
1315: END IF;
1316: END IF;
1317:
1323: p_service_order_line_list(lv_index).version) ;
1324:
1325:
1326: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1327: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1328: dbg_msg := ('Workitem Id is: '||p_service_order_line_list(lv_index).workitem_id );
1329: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1330: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1331: END IF;
1326: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1327: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1328: dbg_msg := ('Workitem Id is: '||p_service_order_line_list(lv_index).workitem_id );
1329: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1330: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1331: END IF;
1332: END IF;
1333: END IF;
1334:
1342: lv_srv_organization_id );
1343: p_service_order_line_list(lv_index).organization_id := lv_organization_id ;
1344:
1345: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1346: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1347: dbg_msg := ('Valid Organization Id is: '||p_service_order_line_list(lv_index).organization_id);
1348: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1349: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1350: END IF;
1345: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1346: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1347: dbg_msg := ('Valid Organization Id is: '||p_service_order_line_list(lv_index).organization_id);
1348: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1349: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1350: END IF;
1351: END IF;
1352: END IF;
1353:
1358: p_service_order_line_list(lv_index).inventory_item_id,
1359: lv_activation_flag );
1360:
1361: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1362: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1363: dbg_msg := ('Valid Line Item is: '||p_service_order_line_list(lv_index).service_item_name);
1364: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1365: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1366: END IF;
1361: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1362: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1363: dbg_msg := ('Valid Line Item is: '||p_service_order_line_list(lv_index).service_item_name);
1364: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1365: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1366: END IF;
1367: END IF;
1368: END IF;
1369:
1370: IF lv_activation_flag = 'Y' THEN
1371:
1372: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1373: dbg_msg := ('Product is a Service');
1374: IF (FND_LOG.TEST(FND_LOG.LEVEL_EXCEPTION, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1375: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1376: END IF;
1377: END IF;
1378:
1371:
1372: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1373: dbg_msg := ('Product is a Service');
1374: IF (FND_LOG.TEST(FND_LOG.LEVEL_EXCEPTION, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1375: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1376: END IF;
1377: END IF;
1378:
1379: IF p_order_header.order_ref_name = 'SALES' THEN
1395: RAISE e_act_invalid_service_li ;
1396:
1397: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1398: dbg_msg := ('Service Action Not Valid');
1399: IF (FND_LOG.TEST(FND_LOG.LEVEL_EXCEPTION, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1400: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1401: END IF;
1402: END IF;
1403:
1396:
1397: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1398: dbg_msg := ('Service Action Not Valid');
1399: IF (FND_LOG.TEST(FND_LOG.LEVEL_EXCEPTION, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1400: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1401: END IF;
1402: END IF;
1403:
1404: ELSE
1404: ELSE
1405: p_service_order_line_list(lv_index).is_package_flag := 'N';
1406:
1407: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1408: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1409: dbg_msg := ('Service Action Valid');
1410: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1411: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1412: END IF;
1407: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1408: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1409: dbg_msg := ('Service Action Valid');
1410: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1411: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1412: END IF;
1413: END IF;
1414: END IF;
1415: END IF;
1419: (p_service_order_line_list(lv_index).organization_id,
1420: p_service_order_line_list(lv_index).inventory_item_id) = 'Y' THEN
1421:
1422: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1423: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1424: dbg_msg := ('Product is a Package');
1425: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1426: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1427: END IF;
1422: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1423: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1424: dbg_msg := ('Product is a Package');
1425: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1426: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1427: END IF;
1428: END IF;
1429: END IF;
1430:
1436:
1437: p_service_order_line_list(lv_index).is_package_flag := 'Y';
1438:
1439: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1440: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1441: dbg_msg := ('Package Action is Valid');
1442: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1443: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1444: END IF;
1439: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1440: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1441: dbg_msg := ('Package Action is Valid');
1442: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1443: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1444: END IF;
1445: END IF;
1446: END IF;
1447: END IF;
1452: RAISE e_unknown_package_name;
1453:
1454: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1455: dbg_msg := ('Unknown Package Name');
1456: IF (FND_LOG.TEST(FND_LOG.LEVEL_EXCEPTION, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1457: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1458: END IF;
1459: END IF;
1460: END IF;
1453:
1454: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1455: dbg_msg := ('Unknown Package Name');
1456: IF (FND_LOG.TEST(FND_LOG.LEVEL_EXCEPTION, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE')) THEN
1457: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER_LINE', dbg_msg);
1458: END IF;
1459: END IF;
1460: END IF;
1461: END IF;
1468: EXCEPTION
1469: WHEN e_line_number_null THEN
1470: FND_MESSAGE.SET_NAME('XDP', 'XDP_LINENUM_NOTNULL'); --Done -191257
1471: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
1472: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.VALIDATE_ORDER_LINE');
1473:
1474: WHEN e_lineitem_name_null THEN
1475: FND_MESSAGE.SET_NAME('XDP', 'XDP_LINEITEM_NAME_NOTNULL'); --Done 191258
1476: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
1473:
1474: WHEN e_lineitem_name_null THEN
1475: FND_MESSAGE.SET_NAME('XDP', 'XDP_LINEITEM_NAME_NOTNULL'); --Done 191258
1476: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
1477: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.VALIDATE_ORDER_LINE');
1478:
1479: WHEN e_act_invalid_service_li THEN
1480: FND_MESSAGE.SET_NAME('XDP', 'XDP_ACTION_INVALID_SERVICE_LI'); -- Done
1481: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
1481: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
1482: FND_MESSAGE.SET_TOKEN('LINE_NUMBER', l_line_number);
1483: FND_MESSAGE.SET_TOKEN('SERVICE_ITEM_NAME', l_service_item_name);
1484: FND_MESSAGE.SET_TOKEN('ACTION', l_action_code);
1485: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.VALIDATE_ORDER_LINE');
1486:
1487: WHEN e_unknown_package_name THEN
1488: FND_MESSAGE.SET_NAME('XDP', 'XDP_UNKNOWN_PACKAGE_NAME'); --Done -191387
1489: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
1488: FND_MESSAGE.SET_NAME('XDP', 'XDP_UNKNOWN_PACKAGE_NAME'); --Done -191387
1489: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
1490: FND_MESSAGE.SET_TOKEN('LINE_NUMBER', l_line_number);
1491: FND_MESSAGE.SET_TOKEN('SERVICE_ITEM_NAME', l_service_item_name);
1492: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.VALIDATE_ORDER_LINE');
1493:
1494: WHEN e_pkg_no_unique_match THEN
1495: FND_MESSAGE.SET_NAME('XDP', 'XDP_PKG_NO_UNIQUE_MATCH');--Done 191264
1496: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
1495: FND_MESSAGE.SET_NAME('XDP', 'XDP_PKG_NO_UNIQUE_MATCH');--Done 191264
1496: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
1497: FND_MESSAGE.SET_TOKEN('LINE_NUMBER', l_line_number);
1498: FND_MESSAGE.SET_TOKEN('SERVICE_ITEM_NAME', l_service_item_name);
1499: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.VALIDATE_ORDER_LINE');
1500:
1501: WHEN e_svc_no_unique_match THEN
1502: FND_MESSAGE.SET_NAME('XDP', 'XDP_SVC_NO_UNIQUE_MATCH');--Done 191265
1503: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
1502: FND_MESSAGE.SET_NAME('XDP', 'XDP_SVC_NO_UNIQUE_MATCH');--Done 191265
1503: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
1504: FND_MESSAGE.SET_TOKEN('LINE_NUMBER', l_line_number);
1505: FND_MESSAGE.SET_TOKEN('SERVICE_ITEM_NAME', l_service_item_name);
1506: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.VALIDATE_ORDER_LINE');
1507:
1508: WHEN e_ibsource_null THEN
1509: FND_MESSAGE.SET_NAME('XDP', 'XDP_IBSOURCE_NOTNULL'); --Done 191373
1510: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
1508: WHEN e_ibsource_null THEN
1509: FND_MESSAGE.SET_NAME('XDP', 'XDP_IBSOURCE_NOTNULL'); --Done 191373
1510: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
1511: FND_MESSAGE.SET_TOKEN('LINE_NUMBER', l_line_number);
1512: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.VALIDATE_ORDER_LINE');
1513:
1514: WHEN e_ibsource_invalid THEN
1515: FND_MESSAGE.SET_NAME('XDP', 'XDP_IBSOURCE_INVALID');--Done 191374
1516: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
1514: WHEN e_ibsource_invalid THEN
1515: FND_MESSAGE.SET_NAME('XDP', 'XDP_IBSOURCE_INVALID');--Done 191374
1516: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
1517: FND_MESSAGE.SET_TOKEN('LINE_NUMBER', l_line_number);
1518: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.VALIDATE_ORDER_LINE');
1519:
1520: WHEN e_ordsource_notnull THEN
1521: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDSOURCE_NOTNULL');--Done 191375
1522: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
1520: WHEN e_ordsource_notnull THEN
1521: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDSOURCE_NOTNULL');--Done 191375
1522: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
1523: FND_MESSAGE.SET_TOKEN('LINE_NUMBER', l_line_number);
1524: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.VALIDATE_ORDER_LINE');
1525:
1526: WHEN e_site_use_id_invalid THEN
1527: FND_MESSAGE.SET_NAME('XDP','XDP_SITE_USE_ID_INVALID');--Done 191376
1528: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
1527: FND_MESSAGE.SET_NAME('XDP','XDP_SITE_USE_ID_INVALID');--Done 191376
1528: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
1529: FND_MESSAGE.SET_TOKEN('LINE_NUMBER', l_line_number);
1530: FND_MESSAGE.SET_TOKEN('SITE_USE_ID',l_site_use_id);
1531: XDP_UTILITIES.raise_exception('XDP_ORDER.VALIDATE_ORDER_LINES');
1532:
1533: WHEN OTHERS THEN
1534: XDP_UTILITIES.GENERIC_ERROR('XDP_PROCESS_ORDER.VALIDATE_ORDER_LINE'
1535: ,G_external_order_reference
1554:
1555: BEGIN
1556:
1557: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1558: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_LINE_ITEM')) THEN
1559: dbg_msg := ('Procedure Validate_Line_Item begins.');
1560: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1561: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_LINE_ITEM', dbg_msg);
1562: END IF;
1557: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1558: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_LINE_ITEM')) THEN
1559: dbg_msg := ('Procedure Validate_Line_Item begins.');
1560: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1561: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_LINE_ITEM', dbg_msg);
1562: END IF;
1563: END IF;
1564: END IF;
1565:
1585: p_activation_flag := lv_activation_flag ;
1586: p_item_number := lv_item_number ;
1587:
1588: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1589: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_LINE_ITEM')) THEN
1590: dbg_msg := ('Inventory Id is: '||p_inventory_item_id||' Comms Activation Req Flag is: '||p_activation_flag);
1591: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1592: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_LINE_ITEM', dbg_msg);
1593: END IF;
1588: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1589: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_LINE_ITEM')) THEN
1590: dbg_msg := ('Inventory Id is: '||p_inventory_item_id||' Comms Activation Req Flag is: '||p_activation_flag);
1591: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1592: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_LINE_ITEM', dbg_msg);
1593: END IF;
1594: END IF;
1595: END IF;
1596:
1614: p_activation_flag := lv_activation_flag ;
1615: p_item_number := p_item_number ;
1616:
1617: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1618: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_LINE_ITEM')) THEN
1619: dbg_msg := ('Inventory Id is: '||p_inventory_item_id||' Comms Activation Req Flag is: '||p_activation_flag);
1620: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1621: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_LINE_ITEM', dbg_msg);
1622: END IF;
1617: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1618: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_LINE_ITEM')) THEN
1619: dbg_msg := ('Inventory Id is: '||p_inventory_item_id||' Comms Activation Req Flag is: '||p_activation_flag);
1620: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1621: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_LINE_ITEM', dbg_msg);
1622: END IF;
1623: END IF;
1624: END IF;
1625:
1631: EXCEPTION
1632: WHEN e_unknown_service_name THEN
1633: FND_MESSAGE.SET_NAME('XDP','XDP_UNKNOWN_SERVICE_NAME');--191263
1634: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
1635: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.VALIDATE_LINE_ITEM');
1636:
1637: --Fixed Bug # 2110849 - mviswana 11/19/2001
1638: WHEN e_invalid_service_item_name THEN
1639: FND_MESSAGE.SET_NAME('XDP','XDP_INVALID_SERVICE_ITEM_NAME');--191388
1639: FND_MESSAGE.SET_NAME('XDP','XDP_INVALID_SERVICE_ITEM_NAME');--191388
1640: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
1641: FND_MESSAGE.SET_TOKEN('SERVICE_ITEM_NAME',p_item_number);
1642: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID',p_organization_id);
1643: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.VALIDATE_LINE_ITEM');
1644:
1645: WHEN e_invalid_inventory_item_id THEN
1646: FND_MESSAGE.SET_NAME('XDP','XDP_INVALID_INVENTORY_ITEM_ID');--191389
1647: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inventory_item_id );
1646: FND_MESSAGE.SET_NAME('XDP','XDP_INVALID_INVENTORY_ITEM_ID');--191389
1647: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID',p_inventory_item_id );
1648: FND_MESSAGE.SET_TOKEN('ORGANIZATION',p_organization_id);
1649: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
1650: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.VALIDATE_LINE_ITEM');
1651:
1652: WHEN others THEN
1653: XDP_UTILITIES.GENERIC_ERROR('XDP_ORDER.VALIDATE_LINE_ITEM'
1654: ,G_external_order_reference
1649: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
1650: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.VALIDATE_LINE_ITEM');
1651:
1652: WHEN others THEN
1653: XDP_UTILITIES.GENERIC_ERROR('XDP_ORDER.VALIDATE_LINE_ITEM'
1654: ,G_external_order_reference
1655: ,sqlcode
1656: ,sqlerrm);
1657:
1680:
1681: BEGIN
1682:
1683: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1684: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER')) THEN
1685: dbg_msg := ('Procedure Populate_Order begins');
1686: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1687: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER', dbg_msg);
1688: END IF;
1683: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1684: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER')) THEN
1685: dbg_msg := ('Procedure Populate_Order begins');
1686: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1687: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER', dbg_msg);
1688: END IF;
1689: END IF;
1690: END IF;
1691: /**********************************
1697: P_ORDER_PARAMETER
1698: );
1699:
1700: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1701: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER')) THEN
1702: dbg_msg := ('Completed Populating Order Header');
1703: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1704: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER', dbg_msg);
1705: END IF;
1700: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1701: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER')) THEN
1702: dbg_msg := ('Completed Populating Order Header');
1703: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1704: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER', dbg_msg);
1705: END IF;
1706: END IF;
1707: END IF;
1708:
1719: P_SERVICE_LINE_ATTRIB_LIST => lv_service_line_attrib_list
1720: );
1721:
1722: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1723: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER')) THEN
1724: dbg_msg := ('Completed Populating Order Lines');
1725: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1726: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER', dbg_msg);
1727: END IF;
1722: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1723: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER')) THEN
1724: dbg_msg := ('Completed Populating Order Lines');
1725: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1726: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER', dbg_msg);
1727: END IF;
1728: END IF;
1729: END IF;
1730:
1739: P_FULFILL_WORKLIST_LIST => lv_fulfill_worklist_list
1740: );
1741:
1742: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1743: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER')) THEN
1744: dbg_msg := ('Completed Populating Fulfill Worklist');
1745: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1746: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER', dbg_msg);
1747: END IF;
1742: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1743: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER')) THEN
1744: dbg_msg := ('Completed Populating Fulfill Worklist');
1745: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1746: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER', dbg_msg);
1747: END IF;
1748: END IF;
1749: END IF;
1750: /****************************************
1760: P_WORKITEM_EVAL_PARAM_LIST_OUT => lv_workitem_eval_param_list
1761: );
1762:
1763: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1764: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER')) THEN
1765: dbg_msg := ('Validated Workitem Parameter Configuration');
1766: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1767: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER', dbg_msg);
1768: END IF;
1763: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1764: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER')) THEN
1765: dbg_msg := ('Validated Workitem Parameter Configuration');
1766: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1767: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER', dbg_msg);
1768: END IF;
1769: END IF;
1770: END IF;
1771:
1778: P_SERVICE_LINE_ATTRIB_LIST =>lv_service_line_attrib_list1
1779: );
1780:
1781: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1782: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER')) THEN
1783: dbg_msg := ('Completed Populating Worklist Details');
1784: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1785: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER', dbg_msg);
1786: END IF;
1781: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1782: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER')) THEN
1783: dbg_msg := ('Completed Populating Worklist Details');
1784: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1785: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER', dbg_msg);
1786: END IF;
1787: END IF;
1788: END IF;
1789:
1798: P_WORKITEM_EVAL_PARAM_LIST => lv_workitem_eval_param_list
1799: );
1800:
1801: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1802: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EVALUATE_WORKITEM_PARAMS')) THEN
1803: dbg_msg := ('Completed evaluating workitem parameters');
1804: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1805: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EVALUATE_WORKITEM_PARAMS', dbg_msg);
1806: END IF;
1801: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1802: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EVALUATE_WORKITEM_PARAMS')) THEN
1803: dbg_msg := ('Completed evaluating workitem parameters');
1804: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1805: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EVALUATE_WORKITEM_PARAMS', dbg_msg);
1806: END IF;
1807: END IF;
1808: END IF;
1809:
1817: ,P_ORDER_HEADER => populate_order.p_order_header
1818: );
1819:
1820: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1821: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER')) THEN
1822: dbg_msg := ('Runtime Validation Successful');
1823: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1824: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER', dbg_msg);
1825: END IF;
1820: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1821: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER')) THEN
1822: dbg_msg := ('Runtime Validation Successful');
1823: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1824: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER', dbg_msg);
1825: END IF;
1826: END IF;
1827: END IF;
1828:
1827: END IF;
1828:
1829: EXCEPTION
1830: WHEN OTHERS THEN
1831: XDP_UTILITIES.generic_error('XDP_ORDER.POPULATE_ORDER'
1832: ,G_external_order_reference
1833: ,SQLCODE
1834: ,SQLERRM);
1835: END Populate_Order;
1859:
1860: BEGIN
1861:
1862: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1863: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_HEADER')) THEN
1864: dbg_msg := ('Procedure Populate_Order_Header begins.');
1865: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1866: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_HEADER', dbg_msg);
1867: END IF;
1862: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1863: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_HEADER')) THEN
1864: dbg_msg := ('Procedure Populate_Order_Header begins.');
1865: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1866: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_HEADER', dbg_msg);
1867: END IF;
1868: END IF;
1869: END IF;
1870:
1881: -- Get the org Id
1882: lv_org_id := FND_PROFILE.VALUE('ORG_ID');
1883:
1884: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1885: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_HEADER')) THEN
1886: dbg_msg := ('Required Fulfillment Date is: '||lv_date||' Order Priority is: '||p_order_header.priority
1887: ||' Operating Unit is: '||lv_org_id);
1888: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1889: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_HEADER', dbg_msg);
1885: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_HEADER')) THEN
1886: dbg_msg := ('Required Fulfillment Date is: '||lv_date||' Order Priority is: '||p_order_header.priority
1887: ||' Operating Unit is: '||lv_org_id);
1888: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1889: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_HEADER', dbg_msg);
1890: END IF;
1891: END IF;
1892: END IF;
1893:
1891: END IF;
1892: END IF;
1893:
1894: BEGIN
1895: insert into xdp_order_headers
1896: (
1897: order_id,
1898: external_order_number,
1899: status_code,
1944: last_update_login
1945: )
1946: values
1947: (
1948: XDP_ORDER_HEADERS_S.NEXTVAL,
1949: p_order_header.order_number,
1950: 'STANDBY',
1951: sysdate,
1952: lv_date,
1995: fnd_global.login_id
1996: ) RETURNING ORDER_ID INTO P_order_header.order_id;
1997:
1998: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1999: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_HEADER')) THEN
2000: dbg_msg := ('Successfully inserted record in Order Headers');
2001: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2002: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_HEADER', dbg_msg);
2003: END IF;
1998: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1999: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_HEADER')) THEN
2000: dbg_msg := ('Successfully inserted record in Order Headers');
2001: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2002: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_HEADER', dbg_msg);
2003: END IF;
2004: END IF;
2005: END IF;
2006:
2005: END IF;
2006:
2007: EXCEPTION
2008: WHEN DUP_VAL_ON_INDEX THEN
2009: IF INSTR(SQLERRM,'XDP_ORDER_HEADERS_U2')>0 THEN
2010: RAISE e_order_num_duplicate;
2011: END IF;
2012:
2013: WHEN OTHERS THEN
2010: RAISE e_order_num_duplicate;
2011: END IF;
2012:
2013: WHEN OTHERS THEN
2014: XDP_UTILITIES.generic_error('XDP_ORDER.POPULATE_ORDER_HEADER'
2015: ,G_external_order_reference
2016: ,SQLCODE
2017: ,SQLERRM);
2018:
2021: --Populate Order Parameter table
2022: --*****************************
2023:
2024: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2025: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_HEADER')) THEN
2026: dbg_msg := ('Number of records in Order Param List is: '||p_order_parameter.COUNT);
2027: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2028: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_HEADER', dbg_msg);
2029: END IF;
2024: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2025: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_HEADER')) THEN
2026: dbg_msg := ('Number of records in Order Param List is: '||p_order_parameter.COUNT);
2027: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2028: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_HEADER', dbg_msg);
2029: END IF;
2030: END IF;
2031: END IF;
2032:
2069: END IF ;
2070:
2071:
2072: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2073: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_HEADER')) THEN
2074: dbg_msg := ('Number of records to be inserted in Order Parameters: '||p_order_parameter.COUNT);
2075: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2076: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_HEADER', dbg_msg);
2077: END IF;
2072: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2073: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_HEADER')) THEN
2074: dbg_msg := ('Number of records to be inserted in Order Parameters: '||p_order_parameter.COUNT);
2075: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2076: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_HEADER', dbg_msg);
2077: END IF;
2078: END IF;
2079: END IF;
2080:
2079: END IF;
2080:
2081: --FORALL lv_temp IN lv_name_tab.FIRST..lv_name_tab.LAST
2082: FORALL lv_temp IN 1..lv_name_tab.COUNT
2083: insert into xdp_order_parameters
2084: (
2085: order_id,
2086: order_parameter_name,
2087: order_parameter_value,
2103: fnd_global.login_id
2104: );
2105:
2106: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2107: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_HEADER')) THEN
2108: dbg_msg := ('Records successfully Inserted in Order Parameters');
2109: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2110: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_HEADER', dbg_msg);
2111: END IF;
2106: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2107: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_HEADER')) THEN
2108: dbg_msg := ('Records successfully Inserted in Order Parameters');
2109: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2110: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_HEADER', dbg_msg);
2111: END IF;
2112: END IF;
2113: END IF;
2114:
2116: lv_name_tab.DELETE;
2117: lv_val_tab.DELETE;
2118: EXCEPTION
2119: WHEN e_order_num_duplicate THEN
2120: FND_MESSAGE.SET_NAME('XDP','XDP_ORDERNUM_EXISTS'); --191252
2121: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
2122: XDP_UTILITIES.raise_exception('XDP_ORDER.POPULATE_ORDER_HEADER');
2123:
2124: WHEN OTHERS THEN
2118: EXCEPTION
2119: WHEN e_order_num_duplicate THEN
2120: FND_MESSAGE.SET_NAME('XDP','XDP_ORDERNUM_EXISTS'); --191252
2121: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
2122: XDP_UTILITIES.raise_exception('XDP_ORDER.POPULATE_ORDER_HEADER');
2123:
2124: WHEN OTHERS THEN
2125: XDP_UTILITIES.generic_error('XDP_ORDER.POPULATE_ORDER_HEADER'
2126: ,G_external_order_reference
2121: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
2122: XDP_UTILITIES.raise_exception('XDP_ORDER.POPULATE_ORDER_HEADER');
2123:
2124: WHEN OTHERS THEN
2125: XDP_UTILITIES.generic_error('XDP_ORDER.POPULATE_ORDER_HEADER'
2126: ,G_external_order_reference
2127: ,SQLCODE
2128: ,SQLERRM);
2129: END Populate_Order_Header;
2152:
2153: BEGIN
2154:
2155: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2156: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_LINES')) THEN
2157: dbg_msg := ('Procedure Populate_Order_Lines begins.');
2158: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2159: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_LINES', dbg_msg);
2160: END IF;
2155: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2156: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_LINES')) THEN
2157: dbg_msg := ('Procedure Populate_Order_Lines begins.');
2158: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2159: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_LINES', dbg_msg);
2160: END IF;
2161: END IF;
2162: END IF;
2163:
2167:
2168: IF P_LINE_PARAMETER_LIST.COUNT > 0 THEN
2169:
2170: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2171: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_LINES')) THEN
2172: dbg_msg := ('Number of records in Line Parameter List is: '||P_LINE_PARAMETER_LIST.COUNT);
2173: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2174: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_LINES', dbg_msg);
2175: END IF;
2170: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2171: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_LINES')) THEN
2172: dbg_msg := ('Number of records in Line Parameter List is: '||P_LINE_PARAMETER_LIST.COUNT);
2173: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2174: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_LINES', dbg_msg);
2175: END IF;
2176: END IF;
2177: END IF;
2178:
2186: EXIT ;
2187: ELSE lv_line_exists_flag := 'N';
2188: END IF ;
2189: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2190: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_LINES')) THEN
2191: dbg_msg := ('Record: '||lv_line_index||' has the line_exists_flag set to: '||lv_line_exists_flag);
2192: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2193: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_LINES', dbg_msg);
2194: END IF;
2189: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2190: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_LINES')) THEN
2191: dbg_msg := ('Record: '||lv_line_index||' has the line_exists_flag set to: '||lv_line_exists_flag);
2192: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2193: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_LINES', dbg_msg);
2194: END IF;
2195: END IF;
2196: END IF;
2197:
2225: P_ORDER_LINE_DET_LIST
2226: );
2227:
2228: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2229: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_LINES')) THEN
2230: dbg_msg := ('Successfully Created Line Details');
2231: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2232: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_LINES', dbg_msg);
2233: END IF;
2228: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2229: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_LINES')) THEN
2230: dbg_msg := ('Successfully Created Line Details');
2231: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2232: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_LINES', dbg_msg);
2233: END IF;
2234: END IF;
2235: END IF;
2236:
2246: P_ORDER_LINE_DET_LIST
2247: );
2248:
2249: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2250: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_LINES')) THEN
2251: dbg_msg := ('Completed Populating Order Lines');
2252: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2253: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_LINES', dbg_msg);
2254: END IF;
2249: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2250: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_LINES')) THEN
2251: dbg_msg := ('Completed Populating Order Lines');
2252: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2253: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_ORDER_LINES', dbg_msg);
2254: END IF;
2255: END IF;
2256: END IF;
2257: EXCEPTION
2258: WHEN e_xdp_ordlist_no_linenum THEN
2259: FND_MESSAGE.SET_NAME('XDP','XDP_ORDLIST_NO_LINENUM');
2260: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_line_number);
2261: FND_MESSAGE.SET_TOKEN('PARAM_NAME',l_parameter_name);
2262: XDP_UTILITIES.raise_exception('XDP_ORDER.POPULATE_ORDER_LINES');
2263:
2264: WHEN others THEN
2265:
2266: xdp_utilities.generic_error('XDP_ORDER.POPULATE_ORDER_LINES'
2262: XDP_UTILITIES.raise_exception('XDP_ORDER.POPULATE_ORDER_LINES');
2263:
2264: WHEN others THEN
2265:
2266: xdp_utilities.generic_error('XDP_ORDER.POPULATE_ORDER_LINES'
2267: ,G_external_order_reference
2268: , sqlcode
2269: , sqlerrm );
2270: END POPULATE_ORDER_LINES;
2298:
2299: BEGIN
2300:
2301: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2302: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS')) THEN
2303: dbg_msg := ('Procedure Create_Line_Details begins.');
2304: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2305: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS', dbg_msg);
2306: END IF;
2301: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2302: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS')) THEN
2303: dbg_msg := ('Procedure Create_Line_Details begins.');
2304: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2305: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS', dbg_msg);
2306: END IF;
2307: END IF;
2308: END IF;
2309:
2307: END IF;
2308: END IF;
2309:
2310: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2311: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS')) THEN
2312: dbg_msg := ('Number of records in Order Line List: '||p_order_line_list.COUNT);
2313: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2314: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS', dbg_msg);
2315: END IF;
2310: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2311: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS')) THEN
2312: dbg_msg := ('Number of records in Order Line List: '||p_order_line_list.COUNT);
2313: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2314: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS', dbg_msg);
2315: END IF;
2316: END IF;
2317: END IF;
2318:
2349:
2350: --increment the lv_temp_counter
2351: lv_temp_counter := p_service_order_line_list.COUNT + 1;
2352:
2353: --select the sequence from xdp_order_line_s
2354: select xdp_order_line_items_s.nextval
2355: into l_line_item_id
2356: from dual;
2357:
2350: --increment the lv_temp_counter
2351: lv_temp_counter := p_service_order_line_list.COUNT + 1;
2352:
2353: --select the sequence from xdp_order_line_s
2354: select xdp_order_line_items_s.nextval
2355: into l_line_item_id
2356: from dual;
2357:
2358: --increment the lv_fnd_counter
2364: p_service_order_line_list(lv_temp_counter).line_item_id := l_line_item_id;
2365: p_service_order_line_list(lv_temp_counter).is_virtual_line_flag := 'N';
2366:
2367: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2368: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS')) THEN
2369: dbg_msg := ('IB Source is: '||p_service_order_line_list(lv_temp_counter).ib_source||' for record: '||lv_temp_counter);
2370: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2371: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS', dbg_msg);
2372: END IF;
2367: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2368: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS')) THEN
2369: dbg_msg := ('IB Source is: '||p_service_order_line_list(lv_temp_counter).ib_source||' for record: '||lv_temp_counter);
2370: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2371: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS', dbg_msg);
2372: END IF;
2373: END IF;
2374: END IF;
2375:
2385: P_ORDER_LINE_DET_LIST
2386: );
2387:
2388: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2389: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS')) THEN
2390: dbg_msg := ('Completed Exploding Package successfully');
2391: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2392: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS', dbg_msg);
2393: END IF;
2388: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2389: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS')) THEN
2390: dbg_msg := ('Completed Exploding Package successfully');
2391: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2392: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS', dbg_msg);
2393: END IF;
2394: END IF;
2395: END IF;
2396:
2410: P_SERVICE_LINE_ATTRIB_LIST);
2411:
2412:
2413: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2414: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS')) THEN
2415: dbg_msg := ('Completed building Parameter List for Service');
2416: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2417: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS', dbg_msg);
2418: END IF;
2413: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2414: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS')) THEN
2415: dbg_msg := ('Completed building Parameter List for Service');
2416: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2417: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS', dbg_msg);
2418: END IF;
2419: END IF;
2420: END IF;
2421:
2421:
2422: END IF ;
2423:
2424: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2425: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS')) THEN
2426: dbg_msg := ('Completed Exploding Transaction Details successfully');
2427: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2428: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS', dbg_msg);
2429: END IF;
2424: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2425: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS')) THEN
2426: dbg_msg := ('Completed Exploding Transaction Details successfully');
2427: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2428: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS', dbg_msg);
2429: END IF;
2430: END IF;
2431: END IF;
2432:
2438: P_ORDER_LINE_DET_LIST
2439: );
2440:
2441: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2442: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS')) THEN
2443: dbg_msg := ('Completed Processing Install Base Line');
2444: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2445: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS', dbg_msg);
2446: END IF;
2441: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2442: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS')) THEN
2443: dbg_msg := ('Completed Processing Install Base Line');
2444: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2445: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS', dbg_msg);
2446: END IF;
2447: END IF;
2448: END IF;
2449:
2457: P_SERVICE_LINE_ATTRIB_LIST);
2458:
2459:
2460: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2461: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS')) THEN
2462: dbg_msg := ('Completed building Parameter List for Service');
2463: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2464: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS', dbg_msg);
2465: END IF;
2460: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2461: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS')) THEN
2462: dbg_msg := ('Completed building Parameter List for Service');
2463: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2464: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_LINE_DETAILS', dbg_msg);
2465: END IF;
2466: END IF;
2467: END IF;
2468: END IF;
2471:
2472: EXCEPTION
2473:
2474: WHEN OTHERS THEN
2475: xdp_utilities.generic_error('XDP_ORDER.CREATE_LINE_DETAILS'
2476: , G_external_order_reference
2477: , SQLCODE
2478: , SQLERRM);
2479: END CREATE_LINE_DETAILS;
2490: lv_fnd_count NUMBER := 0;
2491: begin
2492:
2493: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2494: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.FETCH_LINE_DETAILS')) THEN
2495: dbg_msg := ('Procedure Fetch_Line_Details begins.');
2496: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2497: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.FETCH_LINE_DETAILS', dbg_msg);
2498: END IF;
2493: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2494: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.FETCH_LINE_DETAILS')) THEN
2495: dbg_msg := ('Procedure Fetch_Line_Details begins.');
2496: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2497: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.FETCH_LINE_DETAILS', dbg_msg);
2498: END IF;
2499: END IF;
2500: END IF;
2501:
2514: lv_svc_count := p_service_line_attrib_list.last + 1;
2515: end if;
2516:
2517: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2518: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.FETCH_LINE_DETAILS')) THEN
2519: dbg_msg := ('Number of records in Line Parameter List: '||p_line_parameter_list.count);
2520: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2521: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.FETCH_LINE_DETAILS', dbg_msg);
2522: END IF;
2517: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2518: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.FETCH_LINE_DETAILS')) THEN
2519: dbg_msg := ('Number of records in Line Parameter List: '||p_line_parameter_list.count);
2520: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2521: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.FETCH_LINE_DETAILS', dbg_msg);
2522: END IF;
2523: END IF;
2524: END IF;
2525:
2558: end if;
2559: end loop;
2560:
2561: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2562: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.FETCH_LINE_DETAILS')) THEN
2563: dbg_msg := ('Number of records Transferred to Order Line Det List: '||lv_fnd_count);
2564: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2565: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.FETCH_LINE_DETAILS', dbg_msg);
2566: END IF;
2561: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2562: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.FETCH_LINE_DETAILS')) THEN
2563: dbg_msg := ('Number of records Transferred to Order Line Det List: '||lv_fnd_count);
2564: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2565: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.FETCH_LINE_DETAILS', dbg_msg);
2566: END IF;
2567: END IF;
2568: END IF;
2569:
2567: END IF;
2568: END IF;
2569:
2570: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2571: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.FETCH_LINE_DETAILS')) THEN
2572: dbg_msg := ('Number of records Transferred to Service Line Attrib List: '||lv_svc_count);
2573: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2574: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.FETCH_LINE_DETAILS', dbg_msg);
2575: END IF;
2570: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2571: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.FETCH_LINE_DETAILS')) THEN
2572: dbg_msg := ('Number of records Transferred to Service Line Attrib List: '||lv_svc_count);
2573: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2574: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.FETCH_LINE_DETAILS', dbg_msg);
2575: END IF;
2576: END IF;
2577: END IF;
2578:
2625:
2626: BEGIN
2627:
2628: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2629: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.EXPLODE_PACKAGE')) THEN
2630: dbg_msg := ('Procedure Explode_Package begins.');
2631: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2632: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.EXPLODE_PACKAGE', dbg_msg);
2633: END IF;
2628: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2629: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.EXPLODE_PACKAGE')) THEN
2630: dbg_msg := ('Procedure Explode_Package begins.');
2631: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2632: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.EXPLODE_PACKAGE', dbg_msg);
2633: END IF;
2634: END IF;
2635: END IF;
2636:
2636:
2637: lv_count := 0 ;
2638:
2639: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2640: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_PACKAGE')) THEN
2641: dbg_msg := ('Line Number to explode is: '||p_order_line.line_number||' Master Line Item ID is: '
2642: ||p_order_line.line_item_id);
2643: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2644: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_PACKAGE', dbg_msg);
2640: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_PACKAGE')) THEN
2641: dbg_msg := ('Line Number to explode is: '||p_order_line.line_number||' Master Line Item ID is: '
2642: ||p_order_line.line_item_id);
2643: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2644: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_PACKAGE', dbg_msg);
2645: END IF;
2646: END IF;
2647: END IF;
2648:
2658: P_ITEM_NUMBER => l_item_number ,
2659: P_INVENTORY_ITEM_ID => l_inventory_item_id ,
2660: P_ACTIVATION_FLAG => l_activation_flag );
2661:
2662: SELECT XDP_ORDER_LINE_ITEMS_S.nextval
2663: INTO l_line_item_id
2664: FROM dual ;
2665:
2666: /*** Add Exploded component line of service to p_service_order_line_list ***/
2750: END LOOP ;
2751: END LOOP;
2752:
2753: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2754: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_PACKAGE')) THEN
2755: dbg_msg := ('Number of records exploded: '||lv_fnd_count);
2756: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2757: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_PACKAGE', dbg_msg);
2758: END IF;
2753: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2754: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_PACKAGE')) THEN
2755: dbg_msg := ('Number of records exploded: '||lv_fnd_count);
2756: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2757: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_PACKAGE', dbg_msg);
2758: END IF;
2759: END IF;
2760: END IF;
2761:
2759: END IF;
2760: END IF;
2761:
2762: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2763: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_PACKAGE')) THEN
2764: dbg_msg := ('Number of relationships created: '||lv_fnd_count);
2765: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2766: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_PACKAGE', dbg_msg);
2767: END IF;
2762: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2763: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_PACKAGE')) THEN
2764: dbg_msg := ('Number of relationships created: '||lv_fnd_count);
2765: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2766: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_PACKAGE', dbg_msg);
2767: END IF;
2768: END IF;
2769: END IF;
2770:
2768: END IF;
2769: END IF;
2770:
2771: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2772: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_PACKAGE')) THEN
2773: dbg_msg := ('Number of Line Parameters added to Service Line Attrib List: '||lv_fnd_count1);
2774: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2775: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_PACKAGE', dbg_msg);
2776: END IF;
2771: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2772: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_PACKAGE')) THEN
2773: dbg_msg := ('Number of Line Parameters added to Service Line Attrib List: '||lv_fnd_count1);
2774: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2775: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_PACKAGE', dbg_msg);
2776: END IF;
2777: END IF;
2778: END IF;
2779:
2777: END IF;
2778: END IF;
2779:
2780: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2781: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_PACKAGE')) THEN
2782: dbg_msg := ('Number of Line Parameters added to Order Line Det List: '||lv_fnd_count1);
2783: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2784: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_PACKAGE', dbg_msg);
2785: END IF;
2780: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2781: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_PACKAGE')) THEN
2782: dbg_msg := ('Number of Line Parameters added to Order Line Det List: '||lv_fnd_count1);
2783: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2784: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_PACKAGE', dbg_msg);
2785: END IF;
2786: END IF;
2787: END IF;
2788: EXCEPTION
2786: END IF;
2787: END IF;
2788: EXCEPTION
2789: WHEN OTHERS THEN
2790: xdp_utilities.generic_error('XDP_ORDER.EXPLODE_PACKAGE'
2791: , G_external_order_reference
2792: , SQLCODE
2793: , SQLERRM);
2794:
2844:
2845: BEGIN
2846:
2847: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2848: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
2849: dbg_msg := ('Procedure Explode_TXN_IB begins.');
2850: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2851: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
2852: END IF;
2847: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2848: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
2849: dbg_msg := ('Procedure Explode_TXN_IB begins.');
2850: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2851: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
2852: END IF;
2853: END IF;
2854: END IF;
2855:
2861: x_return_status => lv_return_status ,
2862: x_return_message => lv_return_message );
2863:
2864: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2865: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
2866: dbg_msg := ('Config Keys : '||lv_config_session_key.session_hdr_id||'/'||
2867: lv_config_session_key.session_rev_num||'/'||lv_config_session_key.session_item_id);
2868: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2869: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
2865: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
2866: dbg_msg := ('Config Keys : '||lv_config_session_key.session_hdr_id||'/'||
2867: lv_config_session_key.session_rev_num||'/'||lv_config_session_key.session_item_id);
2868: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2869: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
2870: END IF;
2871: END IF;
2872: END IF;
2873:
2930: RAISE e_txn_det_error_status;
2931: END IF;
2932:
2933: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2934: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
2935: dbg_msg := ('Call to Transaction Details API successful');
2936: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2937: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
2938: END IF;
2933: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2934: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
2935: dbg_msg := ('Call to Transaction Details API successful');
2936: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2937: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
2938: END IF;
2939: END IF;
2940: END IF;
2941:
2939: END IF;
2940: END IF;
2941:
2942: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2943: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
2944: dbg_msg := ('Number of records in Txn Line Detail List: '||lv_txn_line_detail_tbl.COUNT);
2945: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2946: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
2947: END IF;
2942: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2943: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
2944: dbg_msg := ('Number of records in Txn Line Detail List: '||lv_txn_line_detail_tbl.COUNT);
2945: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2946: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
2947: END IF;
2948: END IF;
2949: END IF;
2950:
2948: END IF;
2949: END IF;
2950:
2951: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2952: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
2953: dbg_msg := ('Number of records in Txn Ext Attrib Vals List: '||lv_txn_ext_attrib_vals_tbl.COUNT);
2954: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2955: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
2956: END IF;
2951: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2952: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
2953: dbg_msg := ('Number of records in Txn Ext Attrib Vals List: '||lv_txn_ext_attrib_vals_tbl.COUNT);
2954: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2955: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
2956: END IF;
2957: END IF;
2958: END IF;
2959:
2957: END IF;
2958: END IF;
2959:
2960: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2961: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
2962: dbg_msg := ('Number of records in Csi Ext Attribs List: '||lv_csi_ext_attribs_tbl.COUNT);
2963: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2964: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
2965: END IF;
2960: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2961: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
2962: dbg_msg := ('Number of records in Csi Ext Attribs List: '||lv_csi_ext_attribs_tbl.COUNT);
2963: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2964: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
2965: END IF;
2966: END IF;
2967: END IF;
2968:
2966: END IF;
2967: END IF;
2968:
2969: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2970: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
2971: dbg_msg := ('Number of records in Csi Extend Attrib Values List: '||lv_extend_attrib_values_tbl.COUNT);
2972: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2973: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
2974: END IF;
2969: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2970: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
2971: dbg_msg := ('Number of records in Csi Extend Attrib Values List: '||lv_extend_attrib_values_tbl.COUNT);
2972: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2973: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
2974: END IF;
2975: END IF;
2976: END IF;
2977:
2980:
2981: IF lv_txn_line_detail_tbl.COUNT = 1 THEN
2982:
2983: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2984: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
2985: dbg_msg := ('Updating Line: '||p_service_order_line.Line_item_id);
2986: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2987: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
2988: END IF;
2983: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2984: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
2985: dbg_msg := ('Updating Line: '||p_service_order_line.Line_item_id);
2986: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2987: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
2988: END IF;
2989: END IF;
2990: END IF;
2991:
2992: --update the p_service_order_line with the transaction detail id
2993: p_service_order_line.ib_source_id := lv_txn_line_detail_tbl(lv_txn_index).txn_line_detail_id;
2994:
2995: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2996: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
2997: dbg_msg := ('Successfully updated ib_source to: '||p_service_order_line.ib_source_id);
2998: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2999: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
3000: END IF;
2995: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
2996: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
2997: dbg_msg := ('Successfully updated ib_source to: '||p_service_order_line.ib_source_id);
2998: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
2999: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
3000: END IF;
3001: END IF;
3002: END IF;
3003:
3083:
3084: END IF;
3085: END LOOP;
3086: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3087: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
3088: dbg_msg := ('Number of Parameters added to Service Line Attrib List: '||lv_fnd_count);
3089: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3090: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
3091: END IF;
3086: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3087: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
3088: dbg_msg := ('Number of Parameters added to Service Line Attrib List: '||lv_fnd_count);
3089: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3090: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
3091: END IF;
3092: END IF;
3093: END IF;
3094:
3096:
3097: ELSE --if txn_line_detail_tbl.COUNT > 1
3098:
3099: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3100: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
3101: dbg_msg := ('Exploding Transaction Details');
3102: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3103: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
3104: END IF;
3099: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3100: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
3101: dbg_msg := ('Exploding Transaction Details');
3102: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3103: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
3104: END IF;
3105: END IF;
3106: END IF;
3107:
3111: lv_temp_counter := p_service_order_line_list.COUNT + 1;
3112: lv_count := lv_count + 1;
3113: lv_fnd_count := lv_fnd_count + 1;
3114:
3115: -- select the sequence from xdp_order_line_s
3116:
3117: select xdp_order_line_items_s.nextval
3118: into lv_det_id
3119: from dual;
3113: lv_fnd_count := lv_fnd_count + 1;
3114:
3115: -- select the sequence from xdp_order_line_s
3116:
3117: select xdp_order_line_items_s.nextval
3118: into lv_det_id
3119: from dual;
3120:
3121: -- explode the detail lines in p_service_order_line_list
3263: lv_txn_index := lv_txn_line_detail_tbl.NEXT(lv_txn_index);
3264: END LOOP;
3265:
3266: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3267: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
3268: dbg_msg := ('Number of records exploded: '||lv_fnd_count);
3269: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3270: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
3271: END IF;
3266: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3267: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
3268: dbg_msg := ('Number of records exploded: '||lv_fnd_count);
3269: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3270: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
3271: END IF;
3272: END IF;
3273: END IF;
3274:
3272: END IF;
3273: END IF;
3274:
3275: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3276: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
3277: dbg_msg := ('Number of relationships created: '||lv_fnd_count);
3278: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3279: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
3280: END IF;
3275: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3276: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
3277: dbg_msg := ('Number of relationships created: '||lv_fnd_count);
3278: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3279: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
3280: END IF;
3281: END IF;
3282: END IF;
3283:
3281: END IF;
3282: END IF;
3283:
3284: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3285: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
3286: dbg_msg := ('Number of Line Parameters added to Service Line Attrib List: '||lv_fnd_count1);
3287: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3288: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
3289: END IF;
3284: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3285: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB')) THEN
3286: dbg_msg := ('Number of Line Parameters added to Service Line Attrib List: '||lv_fnd_count1);
3287: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3288: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.EXPLODE_TXN_IB', dbg_msg);
3289: END IF;
3290: END IF;
3291: END IF;
3292: END IF;
3297: FND_MESSAGE.SET_NAME('XDP', 'XDP_TXNDET_NOTEMPTY');-- Done 191377
3298: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
3299: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',p_service_order_line.line_number);
3300: FND_MESSAGE.SET_TOKEN('LINE_SOURCE',p_service_order_line.line_source);
3301: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.EXPLODE_TXN_IB');
3302:
3303: WHEN e_txn_det_error_status THEN
3304: FND_MESSAGE.SET_NAME('XDP', 'XDP_TXNDET_ERROR_STATUS'); --Done 191380
3305: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
3304: FND_MESSAGE.SET_NAME('XDP', 'XDP_TXNDET_ERROR_STATUS'); --Done 191380
3305: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
3306: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',p_service_order_line.line_number);
3307: FND_MESSAGE.SET_TOKEN('LINE_SOURCE',p_service_order_line.line_source);
3308: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.EXPLODE_TXN_IB');
3309:
3310: WHEN OTHERS THEN
3311: xdp_utilities.generic_error('XDP_ORDER.EXPLODE_TXN_IB'
3312: , G_external_order_reference
3307: FND_MESSAGE.SET_TOKEN('LINE_SOURCE',p_service_order_line.line_source);
3308: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.EXPLODE_TXN_IB');
3309:
3310: WHEN OTHERS THEN
3311: xdp_utilities.generic_error('XDP_ORDER.EXPLODE_TXN_IB'
3312: , G_external_order_reference
3313: , SQLCODE
3314: , SQLERRM);
3315: END EXPLODE_TXN_IB;
3344:
3345: BEGIN
3346:
3347: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3348: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3349: dbg_msg := ('Procedure IB_CSI_LINE begins.');
3350: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3351: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3352: END IF;
3347: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3348: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3349: dbg_msg := ('Procedure IB_CSI_LINE begins.');
3350: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3351: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3352: END IF;
3353: END IF;
3354: END IF;
3355:
3377: RAISE e_csi_error_status;
3378: END IF;
3379:
3380: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3381: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3382: dbg_msg := ('Number of records in Csi Ext Attrib Def List: '||lv_ext_attrib_def_tbl.COUNT);
3383: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3384: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3385: END IF;
3380: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3381: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3382: dbg_msg := ('Number of records in Csi Ext Attrib Def List: '||lv_ext_attrib_def_tbl.COUNT);
3383: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3384: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3385: END IF;
3386: END IF;
3387: END IF;
3388:
3386: END IF;
3387: END IF;
3388:
3389: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3390: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3391: dbg_msg := ('Number of records in Csi Extend Attrib Values List: '||lv_extend_attrib_values_tbl.COUNT);
3392: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3393: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3394: END IF;
3389: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3390: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3391: dbg_msg := ('Number of records in Csi Extend Attrib Values List: '||lv_extend_attrib_values_tbl.COUNT);
3392: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3393: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3394: END IF;
3395: END IF;
3396: END IF;
3397:
3419: ) THEN
3420:
3421:
3422: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3423: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3424: dbg_msg := ('Instance ID: '||lv_ext_attrib_def_tbl(lv_attrib_def_index).instance_id||' Inventory ID is: '||
3425: lv_ext_attrib_def_tbl(lv_attrib_def_index).inventory_item_id||' Organization ID is: '||
3426: lv_ext_attrib_def_tbl(lv_attrib_def_index).master_organization_id);
3427: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3424: dbg_msg := ('Instance ID: '||lv_ext_attrib_def_tbl(lv_attrib_def_index).instance_id||' Inventory ID is: '||
3425: lv_ext_attrib_def_tbl(lv_attrib_def_index).inventory_item_id||' Organization ID is: '||
3426: lv_ext_attrib_def_tbl(lv_attrib_def_index).master_organization_id);
3427: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3428: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3429: END IF;
3430: END IF;
3431: END IF;
3432:
3435: p_service_line_attrib_list(lv_attrib_counter).parameter_name := lv_ext_attrib_def_tbl(lv_attrib_def_index).attribute_code;
3436:
3437:
3438: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3439: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3440: dbg_msg := ('Line_item_id is : '|| p_service_line_attrib_list(lv_attrib_counter).line_item_id||
3441: ' Line_number is: '||p_service_line_attrib_list(lv_attrib_counter).line_number||
3442: ' Parameter_Name is: '||p_service_line_attrib_list(lv_attrib_counter).parameter_name);
3443: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3440: dbg_msg := ('Line_item_id is : '|| p_service_line_attrib_list(lv_attrib_counter).line_item_id||
3441: ' Line_number is: '||p_service_line_attrib_list(lv_attrib_counter).line_number||
3442: ' Parameter_Name is: '||p_service_line_attrib_list(lv_attrib_counter).parameter_name);
3443: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3444: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3445: END IF;
3446: END IF;
3447: END IF;
3448:
3456: lv_extend_attrib_values_tbl(lv_attrib_index).attribute_id = lv_ext_attrib_def_tbl(lv_attrib_def_index).attribute_id THEN
3457:
3458:
3459: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3460: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3461: dbg_msg := ('instance_id is: '||lv_extend_attrib_values_tbl(lv_attrib_index).instance_id
3462: ||' attribute_id is: '||lv_extend_attrib_values_tbl(lv_attrib_index).attribute_id);
3463: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3464: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3460: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3461: dbg_msg := ('instance_id is: '||lv_extend_attrib_values_tbl(lv_attrib_index).instance_id
3462: ||' attribute_id is: '||lv_extend_attrib_values_tbl(lv_attrib_index).attribute_id);
3463: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3464: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3465: END IF;
3466: END IF;
3467: END IF;
3468:
3469: p_service_line_attrib_list(lv_attrib_counter).attrib_source_table := 'CSI_IEA_VALUES';
3470: p_service_line_attrib_list(lv_attrib_counter).attrib_source_id := lv_extend_attrib_values_tbl(lv_attrib_index).attribute_value_id;
3471:
3472: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3473: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3474: dbg_msg := ('attrib_source_table: '||p_service_line_attrib_list(lv_attrib_counter).attrib_source_table||
3475: ' attrib_source_id: '||p_service_line_attrib_list(lv_attrib_counter).attrib_source_id);
3476: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3477: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3473: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3474: dbg_msg := ('attrib_source_table: '||p_service_line_attrib_list(lv_attrib_counter).attrib_source_table||
3475: ' attrib_source_id: '||p_service_line_attrib_list(lv_attrib_counter).attrib_source_id);
3476: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3477: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3478: END IF;
3479: END IF;
3480: END IF;
3481:
3480: END IF;
3481:
3482:
3483: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3484: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3485: dbg_msg := ('Number of records in Line Parameter List: '||p_line_parameter_list.COUNT);
3486: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3487: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3488: END IF;
3483: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3484: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3485: dbg_msg := ('Number of records in Line Parameter List: '||p_line_parameter_list.COUNT);
3486: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3487: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3488: END IF;
3489: END IF;
3490: END IF;
3491:
3506: IF p_line_parameter_list(lv_param_index).line_number = p_service_line.line_number AND
3507: p_line_parameter_list(lv_param_index).parameter_name = lv_extend_attrib_values_tbl(lv_attrib_index).attribute_code THEN
3508:
3509: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3510: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3511: dbg_msg := ('Line Parameter exists for parameter: '||lv_extend_attrib_values_tbl(lv_attrib_index).attribute_code);
3512: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3513: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3514: END IF;
3509: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3510: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3511: dbg_msg := ('Line Parameter exists for parameter: '||lv_extend_attrib_values_tbl(lv_attrib_index).attribute_code);
3512: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3513: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3514: END IF;
3515: END IF;
3516: END IF;
3517:
3518: p_service_line_attrib_list(lv_attrib_counter).parameter_value := p_line_parameter_list(lv_param_index).parameter_value;
3519: p_service_line_attrib_list(lv_attrib_counter).parameter_ref_value := lv_extend_attrib_values_tbl(lv_attrib_index).attribute_value;
3520:
3521: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3522: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3523: dbg_msg := ('line parameter value is: '|| p_service_line_attrib_list(lv_attrib_counter).parameter_value||
3524: ' line parameter ref value is: '||p_service_line_attrib_list(lv_attrib_counter).parameter_ref_value);
3525: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3526: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3522: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3523: dbg_msg := ('line parameter value is: '|| p_service_line_attrib_list(lv_attrib_counter).parameter_value||
3524: ' line parameter ref value is: '||p_service_line_attrib_list(lv_attrib_counter).parameter_ref_value);
3525: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3526: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3527: END IF;
3528: END IF;
3529: END IF;
3530:
3535: p_order_line_det_list(lv_det_counter).parameter_value := p_line_parameter_list(lv_param_index).parameter_value;
3536: p_order_line_det_list(lv_det_counter).parameter_ref_value := lv_extend_attrib_values_tbl(lv_attrib_index).attribute_value;
3537:
3538: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3539: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3540: dbg_msg := ('line number in Order line detail list: '||p_order_line_det_list(lv_det_counter).line_number||
3541: 'parameter name is: '||p_order_line_det_list(lv_det_counter).parameter_name||
3542: ' parameter value is: '||p_order_line_det_list(lv_det_counter).parameter_value||
3543: ' parameter ref value is: '||p_order_line_det_list(lv_det_counter).parameter_ref_value);
3541: 'parameter name is: '||p_order_line_det_list(lv_det_counter).parameter_name||
3542: ' parameter value is: '||p_order_line_det_list(lv_det_counter).parameter_value||
3543: ' parameter ref value is: '||p_order_line_det_list(lv_det_counter).parameter_ref_value);
3544: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3545: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3546: END IF;
3547: END IF;
3548: END IF;
3549:
3559: p_service_line_attrib_list(lv_attrib_counter).parameter_value := lv_extend_attrib_values_tbl(lv_attrib_index).attribute_value;
3560: p_service_line_attrib_list(lv_attrib_counter).parameter_ref_value := lv_extend_attrib_values_tbl(lv_attrib_index).attribute_value;
3561:
3562: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3563: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3564: dbg_msg := ('parameter_value : '||p_service_line_attrib_list(lv_attrib_counter).parameter_value||
3565: ' parameter_ref_value : '||p_service_line_attrib_list(lv_attrib_counter).parameter_ref_value);
3566: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3567: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3563: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3564: dbg_msg := ('parameter_value : '||p_service_line_attrib_list(lv_attrib_counter).parameter_value||
3565: ' parameter_ref_value : '||p_service_line_attrib_list(lv_attrib_counter).parameter_ref_value);
3566: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3567: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3568: END IF;
3569: END IF;
3570: END IF;
3571: END IF ;
3575: p_service_line_attrib_list(lv_attrib_counter).parameter_value := lv_extend_attrib_values_tbl(lv_attrib_index).attribute_value;
3576: p_service_line_attrib_list(lv_attrib_counter).parameter_ref_value := lv_extend_attrib_values_tbl(lv_attrib_index).attribute_value;
3577:
3578: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3579: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3580: dbg_msg := ('parameter_value : '||p_service_line_attrib_list(lv_attrib_counter).parameter_value||
3581: ' parameter_ref_value : '||p_service_line_attrib_list(lv_attrib_counter).parameter_ref_value);
3582: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3583: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3579: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3580: dbg_msg := ('parameter_value : '||p_service_line_attrib_list(lv_attrib_counter).parameter_value||
3581: ' parameter_ref_value : '||p_service_line_attrib_list(lv_attrib_counter).parameter_ref_value);
3582: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3583: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3584: END IF;
3585: END IF;
3586: END IF ;
3587:
3598: p_service_line_attrib_list(lv_attrib_counter).attrib_source_id := lv_ext_attrib_def_tbl(lv_attrib_def_index).attribute_id;
3599:
3600:
3601: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3602: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3603: dbg_msg := ('attrib_source_table: '||p_service_line_attrib_list(lv_attrib_counter).attrib_source_table||
3604: ' attrib_source_id: '||p_service_line_attrib_list(lv_attrib_counter).attrib_source_id);
3605: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3606: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3602: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3603: dbg_msg := ('attrib_source_table: '||p_service_line_attrib_list(lv_attrib_counter).attrib_source_table||
3604: ' attrib_source_id: '||p_service_line_attrib_list(lv_attrib_counter).attrib_source_id);
3605: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3606: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3607: END IF;
3608: END IF;
3609: END IF;
3610:
3608: END IF;
3609: END IF;
3610:
3611: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3612: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3613: dbg_msg := ('Number of records in Line Parameter List: '||p_line_parameter_list.COUNT);
3614: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3615: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3616: END IF;
3611: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3612: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3613: dbg_msg := ('Number of records in Line Parameter List: '||p_line_parameter_list.COUNT);
3614: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3615: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3616: END IF;
3617: END IF;
3618: END IF;
3619: --check if the line has any line parameters
3629: IF p_line_parameter_list(lv_param_index).line_number = p_service_line.line_number AND
3630: p_line_parameter_list(lv_param_index).parameter_name = lv_ext_attrib_def_tbl(lv_attrib_def_index).attribute_code THEN
3631:
3632: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3633: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3634: dbg_msg := ('Line Parameter exists for parameter: '||lv_ext_attrib_def_tbl(lv_attrib_def_index).attribute_code);
3635: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3636: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3637: END IF;
3632: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3633: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3634: dbg_msg := ('Line Parameter exists for parameter: '||lv_ext_attrib_def_tbl(lv_attrib_def_index).attribute_code);
3635: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3636: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3637: END IF;
3638: END IF;
3639: END IF;
3640:
3641: p_service_line_attrib_list(lv_attrib_counter).parameter_value := p_line_parameter_list(lv_param_index).parameter_value;
3642: p_service_line_attrib_list(lv_attrib_counter).parameter_ref_value := null;
3643:
3644: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3645: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3646: dbg_msg := ('parameter value is: '|| p_service_line_attrib_list(lv_attrib_counter).parameter_value||
3647: ' parameter ref value is: '||p_service_line_attrib_list(lv_attrib_counter).parameter_ref_value);
3648: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3649: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3645: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3646: dbg_msg := ('parameter value is: '|| p_service_line_attrib_list(lv_attrib_counter).parameter_value||
3647: ' parameter ref value is: '||p_service_line_attrib_list(lv_attrib_counter).parameter_ref_value);
3648: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3649: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3650: END IF;
3651: END IF;
3652: END IF;
3653:
3657: p_order_line_det_list(lv_det_counter).parameter_value := p_line_parameter_list(lv_param_index).parameter_value;
3658: p_order_line_det_list(lv_det_counter).parameter_ref_value := null;
3659:
3660: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3661: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3662: dbg_msg := ('line number in Order line detail list: '||p_order_line_det_list(lv_det_counter).line_number||
3663: ' parameter name: '||p_order_line_det_list(lv_det_counter).parameter_name||
3664: ' parameter value: '||p_order_line_det_list(lv_det_counter).parameter_value||
3665: ' parameter ref value: '||p_order_line_det_list(lv_det_counter).parameter_ref_value);
3663: ' parameter name: '||p_order_line_det_list(lv_det_counter).parameter_name||
3664: ' parameter value: '||p_order_line_det_list(lv_det_counter).parameter_value||
3665: ' parameter ref value: '||p_order_line_det_list(lv_det_counter).parameter_ref_value);
3666: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3667: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3668: END IF;
3669: END IF;
3670: END IF;
3671:
3680: p_service_line_attrib_list(lv_attrib_counter).parameter_value := null;
3681: p_service_line_attrib_list(lv_attrib_counter).parameter_ref_value := null;
3682:
3683: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3684: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3685: dbg_msg := ('parameter value is: '|| p_service_line_attrib_list(lv_attrib_counter).parameter_value||
3686: ' parameter ref value is: '||p_service_line_attrib_list(lv_attrib_counter).parameter_ref_value);
3687: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3688: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3684: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3685: dbg_msg := ('parameter value is: '|| p_service_line_attrib_list(lv_attrib_counter).parameter_value||
3686: ' parameter ref value is: '||p_service_line_attrib_list(lv_attrib_counter).parameter_ref_value);
3687: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3688: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3689: END IF;
3690: END IF;
3691: END IF;
3692: END IF;
3694: p_service_line_attrib_list(lv_attrib_counter).parameter_value := null;
3695: p_service_line_attrib_list(lv_attrib_counter).parameter_ref_value := null;
3696:
3697: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3698: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3699: dbg_msg := ('parameter value is: '|| p_service_line_attrib_list(lv_attrib_counter).parameter_value||
3700: ' parameter ref value is: '||p_service_line_attrib_list(lv_attrib_counter).parameter_ref_value);
3701: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3702: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3698: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3699: dbg_msg := ('parameter value is: '|| p_service_line_attrib_list(lv_attrib_counter).parameter_value||
3700: ' parameter ref value is: '||p_service_line_attrib_list(lv_attrib_counter).parameter_ref_value);
3701: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3702: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3703: END IF;
3704: END IF;
3705: END IF;
3706: END IF;
3712: lv_attrib_def_index := lv_ext_attrib_def_tbl.NEXT(lv_attrib_def_index);
3713: END LOOP;
3714:
3715: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3716: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3717: dbg_msg := ('Number of Parameters added to Service Line Attrib List: '||lv_fnd_count);
3718: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3719: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3720: END IF;
3715: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3716: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE')) THEN
3717: dbg_msg := ('Number of Parameters added to Service Line Attrib List: '||lv_fnd_count);
3718: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3719: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.IB_CSI_LINE', dbg_msg);
3720: END IF;
3721: END IF;
3722: END IF;
3723: END IF;
3728: FND_MESSAGE.SET_NAME('XDP', 'XDP_CSI_ATTRIBVAL_NOTEMPTY');--Done 191381
3729: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
3730: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',p_service_line.line_number);
3731: FND_MESSAGE.SET_TOKEN('IB_SOURCE_ID', p_service_line.ib_source_id);
3732: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.IB_CSI_LINE');
3733:
3734: WHEN e_csi_error_status THEN
3735: FND_MESSAGE.SET_NAME('XDP', 'XDP_CSI_ERROR_STATUS'); --done 191382
3736: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
3735: FND_MESSAGE.SET_NAME('XDP', 'XDP_CSI_ERROR_STATUS'); --done 191382
3736: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
3737: FND_MESSAGE.SET_TOKEN('LINE_NUMBER', p_service_line.line_number);
3738: FND_MESSAGE.SET_TOKEN('IB_SOURCE_ID', p_service_line.ib_source_id);
3739: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.IB_CSI_LINE');
3740:
3741: WHEN OTHERS THEN
3742:
3743: xdp_utilities.generic_error('XDP_ORDER.IB_CSI_LINE'
3739: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.IB_CSI_LINE');
3740:
3741: WHEN OTHERS THEN
3742:
3743: xdp_utilities.generic_error('XDP_ORDER.IB_CSI_LINE'
3744: , G_external_order_reference
3745: , SQLCODE
3746: , SQLERRM);
3747:
3747:
3748: END IB_CSI_LINE;
3749:
3750: -- ==========================================================================================
3751: -- populate XDP_ORDER_LINES, XDP_LINE_RELATIONSHIPS, XDP_ORDER_LINE_DETS
3752: -- ==========================================================================================
3753:
3754: PROCEDURE POPULATE_LINES
3755: (P_ORDER_HEADER IN XDP_TYPES.SERVICE_ORDER_HEADER,
3848:
3849: BEGIN
3850:
3851: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3852: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_LINES')) THEN
3853: dbg_msg := ('Procedure Populate_Lines begins.');
3854: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3855: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_LINES', dbg_msg);
3856: END IF;
3851: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3852: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_LINES')) THEN
3853: dbg_msg := ('Procedure Populate_Lines begins.');
3854: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3855: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_LINES', dbg_msg);
3856: END IF;
3857: END IF;
3858: END IF;
3859:
3857: END IF;
3858: END IF;
3859:
3860: --======================================================================================================
3861: --Loop through all the lines and asign the columns to variables for bulk inserts in XDP_ORDER_LINE_ITEMS
3862: --===================================================================================================
3863:
3864:
3865: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3862: --===================================================================================================
3863:
3864:
3865: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3866: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES')) THEN
3867: dbg_msg := ('Number of records in Order Line List: '||p_order_line_list.COUNT);
3868: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3869: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES', dbg_msg);
3870: END IF;
3865: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3866: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES')) THEN
3867: dbg_msg := ('Number of records in Order Line List: '||p_order_line_list.COUNT);
3868: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3869: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES', dbg_msg);
3870: END IF;
3871: END IF;
3872: END IF;
3873:
3928:
3929: END LOOP;
3930:
3931: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3932: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES')) THEN
3933: dbg_msg := ('Number of records to be inserted in Order lines: '||lv_fnd_count);
3934: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3935: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES', dbg_msg);
3936: END IF;
3931: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3932: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES')) THEN
3933: dbg_msg := ('Number of records to be inserted in Order lines: '||lv_fnd_count);
3934: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3935: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES', dbg_msg);
3936: END IF;
3937: END IF;
3938: END IF;
3939:
3937: END IF;
3938: END IF;
3939:
3940: --========================================================================================================
3941: --Insert into XDP_ORDER_LINE_ITEMS
3942: --========================================================================================================
3943: -- TODO!! MAKE SITE USE IS NOT NULL
3944: -- TODO REMOVE STATE
3945: FORALL lv_temp IN 1..p_order_line_list.COUNT
3943: -- TODO!! MAKE SITE USE IS NOT NULL
3944: -- TODO REMOVE STATE
3945: FORALL lv_temp IN 1..p_order_line_list.COUNT
3946:
3947: INSERT INTO XDP_ORDER_LINE_ITEMS
3948: (LINE_ITEM_ID ,
3949: ORDER_ID ,
3950: LINE_NUMBER ,
3951: STATUS_CODE ,
4058: ,fnd_global.login_id
4059: );
4060:
4061: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4062: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES')) THEN
4063: dbg_msg := ('Successfully inserted records into Order Lines');
4064: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4065: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES', dbg_msg);
4066: END IF;
4061: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4062: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES')) THEN
4063: dbg_msg := ('Successfully inserted records into Order Lines');
4064: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4065: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES', dbg_msg);
4066: END IF;
4067: END IF;
4068: END IF;
4069: --=================================================================================================
4103:
4104: IF p_order_line_rel_list.COUNT > 0 THEN
4105:
4106: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4107: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES')) THEN
4108: dbg_msg := ('Number of records in Order Line Relationships List: '|| p_order_line_rel_list.COUNT);
4109: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4110: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES', dbg_msg);
4111: END IF;
4106: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4107: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES')) THEN
4108: dbg_msg := ('Number of records in Order Line Relationships List: '|| p_order_line_rel_list.COUNT);
4109: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4110: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES', dbg_msg);
4111: END IF;
4112: END IF;
4113: END IF;
4114:
4125: lv_index := p_order_line_rel_list.NEXT(lv_index);
4126: END LOOP;
4127: END IF ;
4128: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4129: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES')) THEN
4130: dbg_msg := ('Number of records to be inserted in Order Line Relationships: '||lv_fnd_count);
4131: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4132: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES', dbg_msg);
4133: END IF;
4128: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4129: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES')) THEN
4130: dbg_msg := ('Number of records to be inserted in Order Line Relationships: '||lv_fnd_count);
4131: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4132: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES', dbg_msg);
4133: END IF;
4134: END IF;
4135: END IF;
4136: --================================================================================================
4158: ,fnd_global.login_id
4159: );
4160:
4161: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4162: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES')) THEN
4163: dbg_msg := ('Successfully inserted records into Order Line Relationships');
4164: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4165: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES', dbg_msg);
4166: END IF;
4161: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4162: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES')) THEN
4163: dbg_msg := ('Successfully inserted records into Order Line Relationships');
4164: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4165: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES', dbg_msg);
4166: END IF;
4167: END IF;
4168: END IF;
4169:
4176: lv_relationship_tab.DELETE;
4177: lv_line_item_id_tab.DELETE;
4178:
4179: --=================================================================================================
4180: --Loop through and assign variables declared to insert into XDP_ORDER_LINEITEM_DETS
4181: --=================================================================================================
4182:
4183: lv_fnd_count := 0;
4184: lv_index2 := p_order_line_list.FIRST;
4193: END LOOP;
4194: END IF;
4195:
4196: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4197: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES')) THEN
4198: dbg_msg := ('Number of records in Order Line Detail List: '||p_order_line_det_list.COUNT);
4199: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4200: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES', dbg_msg);
4201: END IF;
4196: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4197: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES')) THEN
4198: dbg_msg := ('Number of records in Order Line Detail List: '||p_order_line_det_list.COUNT);
4199: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4200: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES', dbg_msg);
4201: END IF;
4202: END IF;
4203: END IF;
4204: */
4215: lv_index := p_order_line_det_list.NEXT(lv_index);
4216: END LOOP;
4217:
4218: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4219: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES')) THEN
4220: dbg_msg := ('Number of records to be inserted in Order Line Details: '||lv_fnd_count);
4221: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4222: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES', dbg_msg);
4223: END IF;
4218: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4219: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES')) THEN
4220: dbg_msg := ('Number of records to be inserted in Order Line Details: '||lv_fnd_count);
4221: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4222: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES', dbg_msg);
4223: END IF;
4224: END IF;
4225: END IF;
4226:
4224: END IF;
4225: END IF;
4226:
4227: --=================================================================================================
4228: -- Insert Order Line Parameters into XDP_ORDER_LINEIEM_DETS
4229: --=================================================================================================
4230:
4231:
4232: FORALL lv_temp in 1..p_order_line_det_list.COUNT
4230:
4231:
4232: FORALL lv_temp in 1..p_order_line_det_list.COUNT
4233:
4234: INSERT INTO XDP_ORDER_LINEITEM_DETS
4235: (line_item_id,
4236: line_parameter_name,
4237: parameter_value,
4238: parameter_reference_value,
4254: fnd_global.login_id
4255: );
4256:
4257: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4258: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES')) THEN
4259: dbg_msg := ('Successfully inserted records into Order Line Details');
4260: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4261: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES', dbg_msg);
4262: END IF;
4257: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4258: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES')) THEN
4259: dbg_msg := ('Successfully inserted records into Order Line Details');
4260: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4261: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES', dbg_msg);
4262: END IF;
4263: END IF;
4264: END IF;
4265:
4264: END IF;
4265:
4266: EXCEPTION
4267: WHEN OTHERS THEN
4268: xdp_utilities.generic_error('XDP_ORDER.POPULATE_LINES'
4269: , G_external_order_reference
4270: , SQLCODE
4271: , SQLERRM);
4272: END POPULATE_LINES ;
4288:
4289: BEGIN
4290:
4291: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4292: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_FULFILL_WORKLIST_LIST')) THEN
4293: dbg_msg := ('Procedure Populate_Fulfill_Worklist_List begins.');
4294: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4295: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_FULFILL_WORKLIST_LIST', dbg_msg);
4296: END IF;
4291: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4292: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_FULFILL_WORKLIST_LIST')) THEN
4293: dbg_msg := ('Procedure Populate_Fulfill_Worklist_List begins.');
4294: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4295: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_FULFILL_WORKLIST_LIST', dbg_msg);
4296: END IF;
4297: END IF;
4298: END IF;
4299:
4308: P_FULFILL_WORKLIST_LIST => POPULATE_FULFILL_WORKLIST_LIST.P_FULFILL_WORKLIST_LIST
4309: );
4310:
4311: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4312: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_FULFILL_WORKLIST_LIST')) THEN
4313: dbg_msg := ('Successfully created Fulfill Worklist');
4314: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4315: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_FULFILL_WORKLIST_LIST', dbg_msg);
4316: END IF;
4311: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4312: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_FULFILL_WORKLIST_LIST')) THEN
4313: dbg_msg := ('Successfully created Fulfill Worklist');
4314: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4315: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_FULFILL_WORKLIST_LIST', dbg_msg);
4316: END IF;
4317: END IF;
4318: END IF;
4319:
4325: P_ORDER_HEADER => P_ORDER_HEADER,
4326: P_FULFILL_WORKLIST_LIST => P_FULFILL_WORKLIST_LIST);
4327:
4328: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4329: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_FULFILL_WORKLIST_LIST')) THEN
4330: dbg_msg := ('Successfully Populated Fulfill Worklist');
4331: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4332: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_FULFILL_WORKLIST_LIST', dbg_msg);
4333: END IF;
4328: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4329: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_FULFILL_WORKLIST_LIST')) THEN
4330: dbg_msg := ('Successfully Populated Fulfill Worklist');
4331: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4332: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_FULFILL_WORKLIST_LIST', dbg_msg);
4333: END IF;
4334: END IF;
4335: END IF;
4336:
4336:
4337: EXCEPTION
4338:
4339: WHEN OTHERS THEN
4340: xdp_utilities.generic_error('XDP_ORDER.POPULATE_FULFILL_WORKLIST_LIST'
4341: , G_external_order_reference
4342: , SQLCODE
4343: , SQLERRM);
4344:
4411:
4412: BEGIN
4413:
4414: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4415: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.CREATE_FULFILL_WORKLIST')) THEN
4416: dbg_msg := ('Procedure Create_Fulfill_Worklist begins.');
4417: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4418: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.CREATE_FULFILL_WORKLIST', dbg_msg);
4419: END IF;
4414: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4415: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.CREATE_FULFILL_WORKLIST')) THEN
4416: dbg_msg := ('Procedure Create_Fulfill_Worklist begins.');
4417: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4418: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.CREATE_FULFILL_WORKLIST', dbg_msg);
4419: END IF;
4420: END IF;
4421: END IF;
4422:
4423: -- lv_index := p_service_order_line_list.FIRST;
4424: lv_wi_index := 0;
4425:
4426: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4427: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_FULFILL_WORKLIST')) THEN
4428: dbg_msg := ('Number of records in Service Order Line List: '||p_service_order_line_list.COUNT);
4429: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4430: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_FULFILL_WORKLIST', dbg_msg);
4431: END IF;
4426: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4427: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_FULFILL_WORKLIST')) THEN
4428: dbg_msg := ('Number of records in Service Order Line List: '||p_service_order_line_list.COUNT);
4429: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4430: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_FULFILL_WORKLIST', dbg_msg);
4431: END IF;
4432: END IF;
4433: END IF;
4434:
4438: p_service_order_line_list(lv_index).action_code IS NULL AND
4439: p_service_order_line_list(lv_index).is_package_flag = 'N' THEN
4440:
4441: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4442: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_FULFILL_WORKLIST')) THEN
4443: dbg_msg := ('Line is a Workitem');
4444: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4445: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_FULFILL_WORKLIST', dbg_msg);
4446: END IF;
4441: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4442: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_FULFILL_WORKLIST')) THEN
4443: dbg_msg := ('Line is a Workitem');
4444: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4445: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_FULFILL_WORKLIST', dbg_msg);
4446: END IF;
4447: END IF;
4448: END IF;
4449:
4534: (p_service_order_line_list(lv_index).ib_source IN ('CSI', 'TXN') AND
4535: p_service_order_line_list(lv_index).ib_source_id is not null) THEN -- its a service
4536:
4537: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4538: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_FULFILL_WORKLIST')) THEN
4539: dbg_msg := ('Line is a Service');
4540: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4541: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_FULFILL_WORKLIST', dbg_msg);
4542: END IF;
4537: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4538: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_FULFILL_WORKLIST')) THEN
4539: dbg_msg := ('Line is a Service');
4540: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4541: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_FULFILL_WORKLIST', dbg_msg);
4542: END IF;
4543: END IF;
4544: END IF;
4545:
4556:
4557: IF lv_wi_map_proc is not null THEN --dynamic wi mapping
4558:
4559: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4560: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_FULFILL_WORKLIST')) THEN
4561: dbg_msg := ('Line has a dynamic Workitem Mapping');
4562: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4563: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_FULFILL_WORKLIST', dbg_msg);
4564: END IF;
4559: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4560: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_FULFILL_WORKLIST')) THEN
4561: dbg_msg := ('Line has a dynamic Workitem Mapping');
4562: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4563: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_FULFILL_WORKLIST', dbg_msg);
4564: END IF;
4565: END IF;
4566: END IF;
4567:
4650: END IF;
4651: END LOOP;
4652:
4653: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4654: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_FULFILL_WORKLIST')) THEN
4655: dbg_msg := ('Number of records to be inserted in Fulfill Worklist for service: '||lv_fnd_count);
4656: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4657: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_FULFILL_WORKLIST', dbg_msg);
4658: END IF;
4653: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4654: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_FULFILL_WORKLIST')) THEN
4655: dbg_msg := ('Number of records to be inserted in Fulfill Worklist for service: '||lv_fnd_count);
4656: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4657: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.CREATE_FULFILL_WORKLIST', dbg_msg);
4658: END IF;
4659: END IF;
4660: END IF;
4661:
4671: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
4672: FND_MESSAGE.SET_TOKEN('LINE_NUMBER', l_line_number);
4673: FND_MESSAGE.SET_TOKEN('LINE_ITEM_NAME', l_service_item_name);
4674: FND_MESSAGE.SET_TOKEN('ERROR_TEXT', LV_ERROR_DESCRIPTION);
4675: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.CREATE_FULFILL_WORKLIST');
4676:
4677: WHEN e_srv_config_error THEN
4678: FND_MESSAGE.SET_NAME('XDP', 'XDP_SERVICE_WI_MAP_ERROR');
4679: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
4678: FND_MESSAGE.SET_NAME('XDP', 'XDP_SERVICE_WI_MAP_ERROR');
4679: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER',G_external_order_reference);
4680: FND_MESSAGE.SET_TOKEN('LINE_NUMBER', l_line_number);
4681: FND_MESSAGE.SET_TOKEN('LINE_ITEM_NAME', l_service_item_name);
4682: XDP_UTILITIES.RAISE_EXCEPTION('XDP_ORDER.CREATE_FULFILL_WORKLIST');
4683:
4684: WHEN OTHERS THEN
4685: xdp_utilities.generic_error('XDP_PROCESS_ORDER.CREATE_FULFILL_WORKLIST'
4686: , G_external_order_reference
4745:
4746: BEGIN
4747:
4748: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4749: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_FULFILL_WORKLIST')) THEN
4750: dbg_msg := ('Procedure Populate_Fulfill_Worklist begins.');
4751: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4752: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_FULFILL_WORKLIST', dbg_msg);
4753: END IF;
4748: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4749: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_FULFILL_WORKLIST')) THEN
4750: dbg_msg := ('Procedure Populate_Fulfill_Worklist begins.');
4751: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4752: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_FULFILL_WORKLIST', dbg_msg);
4753: END IF;
4754: END IF;
4755: END IF;
4756:
4754: END IF;
4755: END IF;
4756:
4757: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4758: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_FULFILL_WORKLIST')) THEN
4759: dbg_msg := ('Number of records in Fulfill Worklist List: '||p_fulfill_worklist_list.COUNT);
4760: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4761: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_FULFILL_WORKLIST', dbg_msg);
4762: END IF;
4757: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4758: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_FULFILL_WORKLIST')) THEN
4759: dbg_msg := ('Number of records in Fulfill Worklist List: '||p_fulfill_worklist_list.COUNT);
4760: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4761: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_FULFILL_WORKLIST', dbg_msg);
4762: END IF;
4763: END IF;
4764: END IF;
4765:
4799:
4800: END LOOP;
4801:
4802: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4803: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_FULFILL_WORKLIST')) THEN
4804: dbg_msg := ('Number of records tp be inserted into Fulfill Worklist: '||lv_fnd_count);
4805: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4806: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_FULFILL_WORKLIST', dbg_msg);
4807: END IF;
4802: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4803: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_FULFILL_WORKLIST')) THEN
4804: dbg_msg := ('Number of records tp be inserted into Fulfill Worklist: '||lv_fnd_count);
4805: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4806: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_FULFILL_WORKLIST', dbg_msg);
4807: END IF;
4808: END IF;
4809: END IF;
4810:
4890: FND_GLOBAL.LOGIN_ID
4891: ) RETURNING workitem_instance_id BULK COLLECT INTO l_workitem_instance_id;
4892:
4893: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4894: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES')) THEN
4895: dbg_msg := ('Successfully inserted records into Fulfill Worklist');
4896: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4897: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES', dbg_msg);
4898: END IF;
4893: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
4894: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES')) THEN
4895: dbg_msg := ('Successfully inserted records into Fulfill Worklist');
4896: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
4897: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_LINES', dbg_msg);
4898: END IF;
4899: END IF;
4900: END IF;
4901:
5005: lv_fnd_count NUMBER := 0;
5006:
5007: BEGIN
5008: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
5009: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_WI_PARAM_CONFIG')) THEN
5010: dbg_msg := ('Procedure Validate_WI_Param_Config begins.');
5011: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5012: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_WI_PARAM_CONFIG', dbg_msg);
5013: END IF;
5008: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
5009: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_WI_PARAM_CONFIG')) THEN
5010: dbg_msg := ('Procedure Validate_WI_Param_Config begins.');
5011: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5012: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_WI_PARAM_CONFIG', dbg_msg);
5013: END IF;
5014: END IF;
5015: END IF;
5016: -- ** Loop through all Order lines
5251:
5252: END LOOP; -- END LOOP through all Order lines
5253:
5254: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
5255: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_WI_PARAM_CONFIG')) THEN
5256: dbg_msg := ('Number of records in Service Line Attrib List: '||lv_fnd_count);
5257: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5258: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_WI_PARAM_CONFIG', dbg_msg);
5259: END IF;
5254: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
5255: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_WI_PARAM_CONFIG')) THEN
5256: dbg_msg := ('Number of records in Service Line Attrib List: '||lv_fnd_count);
5257: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5258: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_WI_PARAM_CONFIG', dbg_msg);
5259: END IF;
5260: END IF;
5261: END IF;
5262: EXCEPTION
5265: fnd_message.set_token('ORDER_NUMBER',G_external_order_reference);
5266: fnd_message.set_token('LINE_NUMBER',l_line_number);
5267: fnd_message.set_token('WORKITEM',l_workitem);
5268: fnd_message.set_token('PARAMETER',l_parameter);
5269: xdp_utilities.raise_exception('XDP_ORDER.APPEND_WI_PARAM_CONFIG');
5270:
5271: WHEN e_req_param_null THEN
5272: fnd_message.set_name('XDP','XDP_REQ_WI_PARAM_NULL'); -- Done 191385
5273: fnd_message.set_token('ORDER_NUMBER',G_external_order_reference);
5273: fnd_message.set_token('ORDER_NUMBER',G_external_order_reference);
5274: fnd_message.set_token('LINE_NUMBER',l_line_number);
5275: fnd_message.set_token('WORKITEM',l_workitem);
5276: fnd_message.set_token('PARAMETER',l_parameter);
5277: xdp_utilities.raise_exception('XDP_ORDER.APPEND_WI_PARAM_CONFIG');
5278:
5279: WHEN e_wi_param_evalproc_failed THEN
5280: fnd_message.set_name('XDP','XDP_WI_PARAM_EVALPROC_FAILED'); -- Done 191386
5281: fnd_message.set_token('ORDER_NUMBER',G_external_order_reference);
5284: fnd_message.set_token('PARAMETER',l_parameter);
5285: fnd_message.set_token('EVALPROC',l_evalproc);
5286: fnd_message.set_token('ERRCODE',l_error_code);
5287: fnd_message.set_token('ERRMSG',l_error_message);
5288: xdp_utilities.raise_exception('XDP_ORDER.APPEND_WI_PARAM_CONFIG');
5289:
5290: WHEN e_parameter_not_defined THEN
5291: fnd_message.set_name('XDP','XDP_PARAM_NOT_DEFINED');
5292: fnd_message.set_token('LINE_NUMBER',l_line_number);
5328:
5329: BEGIN
5330:
5331: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
5332: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_WORKLIST_DETAILS')) THEN
5333: dbg_msg := ('Procedure Populate_Worklist_Details begins.');
5334: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5335: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_WORKLIST_DETAILS', dbg_msg);
5336: END IF;
5331: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
5332: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_WORKLIST_DETAILS')) THEN
5333: dbg_msg := ('Procedure Populate_Worklist_Details begins.');
5334: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5335: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.POPULATE_WORKLIST_DETAILS', dbg_msg);
5336: END IF;
5337: END IF;
5338: END IF;
5339:
5403: l_parameter_name(l_index)
5404: );
5405:
5406: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
5407: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_WORKLIST_DETAILS')) THEN
5408: dbg_msg := ('Successfully inserted records into Worklist Details');
5409: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5410: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_WORKLIST_DETAILS', dbg_msg);
5411: END IF;
5406: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
5407: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_WORKLIST_DETAILS')) THEN
5408: dbg_msg := ('Successfully inserted records into Worklist Details');
5409: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5410: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.POPULATE_WORKLIST_DETAILS', dbg_msg);
5411: END IF;
5412: END IF;
5413: END IF;
5414:
5534: fnd_message.set_token('ORDER_NUMBER',G_external_order_reference);
5535: fnd_message.set_token('LINE_NUMBER',l_line_number);
5536: fnd_message.set_token('WORKITEM',l_workitem);
5537: fnd_message.set_token('PARAMETER',l_parameter);
5538: xdp_utilities.raise_exception('XDP_ORDER.EVALUATE_WORKITEM_PARAMS');
5539:
5540: WHEN e_wi_param_evalproc_failed THEN
5541: fnd_message.set_name('XDP','XDP_WI_PARAM_EVALPROC_FAILED');
5542: fnd_message.set_token('ORDER_NUMBER',G_external_order_reference);
5545: fnd_message.set_token('PARAMETER',l_parameter);
5546: fnd_message.set_token('EVALPROC',l_evalproc);
5547: fnd_message.set_token('ERRCODE',l_error_code);
5548: fnd_message.set_token('ERRMSG',l_error_message);
5549: xdp_utilities.raise_exception('XDP_ORDER.EVALUATE_WORKITEM_PARAMS');
5550:
5551: WHEN OTHERS THEN
5552: xdp_utilities.generic_error('XDP_PROCESS_ORDER.EVALUATE_WORKITEM_PARAMS'
5553: , G_external_order_reference
5567:
5568: BEGIN
5569:
5570: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
5571: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.RUNTIME_VALIDATION')) THEN
5572: dbg_msg := ('Procedure Runtime_Validation begins.');
5573: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5574: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.RUNTIME_VALIDATION', dbg_msg);
5575: END IF;
5570: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
5571: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.RUNTIME_VALIDATION')) THEN
5572: dbg_msg := ('Procedure Runtime_Validation begins.');
5573: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5574: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.RUNTIME_VALIDATION', dbg_msg);
5575: END IF;
5576: END IF;
5577: END IF;
5578:
5601: END IF;
5602: END IF;
5603: END LOOP;
5604: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
5605: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.RUNTIME_VALIDATION')) THEN
5606: dbg_msg := ('Number of records validated: '||lv_fnd_count);
5607: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5608: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.RUNTIME_VALIDATION', dbg_msg);
5609: END IF;
5604: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
5605: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.RUNTIME_VALIDATION')) THEN
5606: dbg_msg := ('Number of records validated: '||lv_fnd_count);
5607: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5608: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.RUNTIME_VALIDATION', dbg_msg);
5609: END IF;
5610: END IF;
5611: END IF;
5612:
5626: lv_plsql_blk varchar2(32000);
5627: BEGIN
5628:
5629: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
5630: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_WORKITEM')) THEN
5631: dbg_msg := ('Procedure Validate_Workitem begins.');
5632: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5633: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_WORKITEM', dbg_msg);
5634: END IF;
5629: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
5630: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_WORKITEM')) THEN
5631: dbg_msg := ('Procedure Validate_Workitem begins.');
5632: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5633: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_WORKITEM', dbg_msg);
5634: END IF;
5635: END IF;
5636: END IF;
5637:
5635: END IF;
5636: END IF;
5637:
5638: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
5639: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_WORKITEM')) THEN
5640: dbg_msg := ('Order ID is:'||p_order_id||' Workitem Instance Id is: '||p_wi_instance_id||' Procedure Name is: '||
5641: p_procedure_name);
5642: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5643: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_WORKITEM', dbg_msg);
5639: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_WORKITEM')) THEN
5640: dbg_msg := ('Order ID is:'||p_order_id||' Workitem Instance Id is: '||p_wi_instance_id||' Procedure Name is: '||
5641: p_procedure_name);
5642: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
5643: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_ORDER.VALIDATE_WORKITEM', dbg_msg);
5644: END IF;
5645: END IF;
5646: END IF;
5647:
5670: x_error_message := SQLERRM;
5671:
5672: END Validate_Workitem;
5673:
5674: END XDP_ORDER;