[Home] [Help]
249: lStmtNumber := 10;
250: x_return_status := FND_API.G_RET_STS_SUCCESS;
251:
252: IF PG_DEBUG <> 0 THEN
253: oe_debug_pub.add('Adjust_workflow_node: ' || 'Values passed in are as follows: ', 5);
254: oe_debug_pub.add('Adjust_workflow_node: ' || 'p_config_line_id = ' || p_config_line_id, 5);
255: oe_debug_pub.add('Adjust_workflow_node: ' || 'p_can_create_supply = ' || p_can_create_supply, 5);
256: END IF;
257:
250: x_return_status := FND_API.G_RET_STS_SUCCESS;
251:
252: IF PG_DEBUG <> 0 THEN
253: oe_debug_pub.add('Adjust_workflow_node: ' || 'Values passed in are as follows: ', 5);
254: oe_debug_pub.add('Adjust_workflow_node: ' || 'p_config_line_id = ' || p_config_line_id, 5);
255: oe_debug_pub.add('Adjust_workflow_node: ' || 'p_can_create_supply = ' || p_can_create_supply, 5);
256: END IF;
257:
258: CTO_WORKFLOW_API_PK.query_wf_activity_status(
251:
252: IF PG_DEBUG <> 0 THEN
253: oe_debug_pub.add('Adjust_workflow_node: ' || 'Values passed in are as follows: ', 5);
254: oe_debug_pub.add('Adjust_workflow_node: ' || 'p_config_line_id = ' || p_config_line_id, 5);
255: oe_debug_pub.add('Adjust_workflow_node: ' || 'p_can_create_supply = ' || p_can_create_supply, 5);
256: END IF;
257:
258: CTO_WORKFLOW_API_PK.query_wf_activity_status(
259: p_itemtype => 'OEOL',
271: p_activity_name => 'CREATE_SUPPLY_ORDER_ELIGIBLE',
272: p_activity_status => l_CCE_activity_status);
273:
274: If PG_DEBUG <> 0 then
275: oe_debug_pub.add('Adjust_workflow_node : Create Supply Order Eligible node status =' || l_cce_activity_status, 1);
276: oe_debug_pub.add('Adjust_workflow_node : Ship Line node status =' || l_ship_activity_status, 1);
277: End if;
278:
279: If p_can_create_supply = 'N' and l_CCE_activity_status = 'NOTIFIED' Then
272: p_activity_status => l_CCE_activity_status);
273:
274: If PG_DEBUG <> 0 then
275: oe_debug_pub.add('Adjust_workflow_node : Create Supply Order Eligible node status =' || l_cce_activity_status, 1);
276: oe_debug_pub.add('Adjust_workflow_node : Ship Line node status =' || l_ship_activity_status, 1);
277: End if;
278:
279: If p_can_create_supply = 'N' and l_CCE_activity_status = 'NOTIFIED' Then
280:
298: l_changed_attributes(1).released_status := 'N';
299: l_changed_attributes(1).action_flag := 'U';
300:
301: IF PG_DEBUG <> 0 THEN
302: oe_debug_pub.add('Adjust_workflow_node: ' || 'Updating the shipping attributes..',1);
303: End if;
304:
305: lStmtNumber := 50;
306:
310: x_return_status => x_return_status);
311:
312: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
313: IF PG_DEBUG <> 0 THEN
314: oe_debug_pub.add('Adjust_workflow_node: ' || 'CTO:Failed in WSH_INTERFACE.update_shipping_attributes :', 1);
315: END IF;
316: OE_MSG_PUB.ADD;
317: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
318: ELSE
316: OE_MSG_PUB.ADD;
317: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
318: ELSE
319: IF PG_DEBUG <> 0 THEN
320: oe_debug_pub.add('Adjust_workflow_node: ' || ' Success in update_shipping attributes..', 2);
321: END IF;
322: END IF ;
323:
324: end if; -- bugfix 3076061 Get_Code_Release_Level
334: end if; -- if p_can_cto_create_supply
335:
336:
337: IF PG_DEBUG <> 0 THEN
338: oe_debug_pub.add('Adjust_workflow_node: ' || 'Processing done. exiting...', 5);
339: END IF;
340:
341: Exception
342:
342:
343: WHEN FND_API.G_EXC_ERROR THEN
344: x_return_status := FND_API.G_RET_STS_ERROR;
345: IF PG_DEBUG <> 0 THEN
346: oe_debug_pub.add('Adjust_workflow_node: ' || 'Expected error. Last stmt executed is ..'|| to_char(lStmtNumber), 1);
347: END IF;
348:
349: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
348:
349: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
351: IF PG_DEBUG <> 0 THEN
352: oe_debug_pub.add('Adjust_workflow_node: ' || 'UnExpected error. Last stmt executed is ..' || to_char(lStmtNumber) || ' ' || sqlerrm, 1);
353: END IF;
354:
355: when others then
356: x_return_status := fnd_api.g_ret_sts_unexp_error;
354:
355: when others then
356: x_return_status := fnd_api.g_ret_sts_unexp_error;
357: IF PG_DEBUG <> 0 THEN
358: oe_debug_pub.add('Adjust_workflow_node: ' || 'When others exception ..Last stmt executed is ..' || to_char(lStmtNumber) || ' ' || sqlerrm, 1);
359: END IF;
360:
361: End Adjust_workflow_node;
362:
456: BEGIN
457:
458: X_return_status := FND_API.G_RET_STS_SUCCESS;
459: IF PG_DEBUG <> 0 THEN
460: oe_debug_pub.add('Change_Notify: ' || 'Inside CTO_NOTIFICATION procedure change_notify.',1);
461:
462: oe_debug_pub.add('Change_Notify: ' || 'Input Line id = '||to_char(pLineid),2);
463: END IF;
464:
458: X_return_status := FND_API.G_RET_STS_SUCCESS;
459: IF PG_DEBUG <> 0 THEN
460: oe_debug_pub.add('Change_Notify: ' || 'Inside CTO_NOTIFICATION procedure change_notify.',1);
461:
462: oe_debug_pub.add('Change_Notify: ' || 'Input Line id = '||to_char(pLineid),2);
463: END IF;
464:
465: -- OM is not able to handle the Config change in case of PTO-ATO Hybrid.
466: -- When the new option class or option item is added OM cannot identify
482: -- Bugfix 2420484 (Base bug 2418075 )
483: lStmtNumber := 2;
484: IF Pchgtype.COUNT = 0 THEN
485: IF PG_DEBUG <> 0 THEN
486: oe_debug_pub.add('Change_Notify: ' || 'PChgtype array is NULL',2);
487: END IF;
488: raise FND_API.G_EXC_UNEXPECTED_ERROR;
489: END IF;
490: -- Bugfix 2420484 (Base bug 2418075 )
506: -- call our change_notify procedure recursivly.
507: -- This part of the code is added by Renga Kannan on 02/27/2001
508:
509: IF PG_DEBUG <> 0 THEN
510: oe_debug_pub.add('Change_Notify: ' || 'This is PTO-ATO-Create new lines case....',3);
511:
512: oe_debug_pub.add('Change_Notify: ' || 'Calling Pto_Ato_Config_wrapper procedure...',3);
513: END IF;
514: lStmtNumber := 5;
508:
509: IF PG_DEBUG <> 0 THEN
510: oe_debug_pub.add('Change_Notify: ' || 'This is PTO-ATO-Create new lines case....',3);
511:
512: oe_debug_pub.add('Change_Notify: ' || 'Calling Pto_Ato_Config_wrapper procedure...',3);
513: END IF;
514: lStmtNumber := 5;
515: Pto_Ato_config_wrapper(
516: Pchgtype => Pchgtype,
518: X_Msg_Count => X_Msg_count,
519: X_Msg_Data => X_Msg_data);
520:
521: IF PG_DEBUG <> 0 THEN
522: oe_debug_pub.add('Change_Notify: ' || 'Pto_Ato_Config_Wrapper Procedure returned with status '||X_return_status,1);
523: END IF;
524:
525: if X_return_status = FND_API.G_RET_STS_ERROR then
526: IF PG_DEBUG <> 0 THEN
523: END IF;
524:
525: if X_return_status = FND_API.G_RET_STS_ERROR then
526: IF PG_DEBUG <> 0 THEN
527: oe_debug_pub.add ('Change_Notify: ' || 'Failed in Pto_Ato_config_wrapper with expected error.', 1);
528: END IF;
529: raise FND_API.G_EXC_ERROR;
530:
531: elsif X_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
529: raise FND_API.G_EXC_ERROR;
530:
531: elsif X_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
532: IF PG_DEBUG <> 0 THEN
533: oe_debug_pub.add ('Change_Notify: ' || 'Failed in Pto_Ato_config_wrapper with unexpected error.', 1);
534: END IF;
535: raise FND_API.G_EXC_UNEXPECTED_ERROR;
536: end if;
537:
595:
596: lconfig_line_id := PLineid; -- In case of ATO item both config id and model id are same
597:
598: IF PG_DEBUG <> 0 THEN
599: oe_debug_pub.add('Change_Notify: ' || 'This is ATO ITEM Case..',3);
600: END IF;
601:
602: EXCEPTION
603: WHEN NO_DATA_FOUND THEN
603: WHEN NO_DATA_FOUND THEN
604:
605: lato_item_flag := 'N';
606: IF PG_DEBUG <> 0 THEN
607: oe_debug_pub.add('Change_Notify: ' || 'This is ATO MODEL Case..',3);
608: END IF;
609: END;
610:
611: lStmtNumber := 20;
618: AND CTO_WORKFLOW.config_line_exists(pLineid) <> TRUE
619: THEN
620:
621: IF PG_DEBUG <> 0 THEN
622: oe_debug_pub.add('Change_Notify: ' || 'Config item does not exists , No action needed...',3);
623: END IF;
624: x_return_status := FND_API.G_RET_STS_SUCCESS;
625:
626: return;
646: WHERE ato_line_id = plineid
647: AND item_type_code = 'CONFIG';
648:
649: IF PG_DEBUG <> 0 THEN
650: oe_debug_pub.add('Change_Notify: ' || 'Config item id = '||to_char(lconfig_id),3);
651:
652: oe_debug_pub.add('Change_Notify: ' || 'Config line id = '||to_char(lconfig_line_id),3);
653: END IF;
654:
648:
649: IF PG_DEBUG <> 0 THEN
650: oe_debug_pub.add('Change_Notify: ' || 'Config item id = '||to_char(lconfig_id),3);
651:
652: oe_debug_pub.add('Change_Notify: ' || 'Config line id = '||to_char(lconfig_line_id),3);
653: END IF;
654:
655: ELSE
656: IF PG_DEBUG <> 0 THEN
653: END IF;
654:
655: ELSE
656: IF PG_DEBUG <> 0 THEN
657: oe_debug_pub.add('Change_Notify: ' || 'ATO item id = '||to_char(lconfig_id),3);
658:
659: oe_debug_pub.add('Change_Notify: ' || 'ATO line id = '||to_char(lconfig_line_id),3);
660: END IF;
661:
655: ELSE
656: IF PG_DEBUG <> 0 THEN
657: oe_debug_pub.add('Change_Notify: ' || 'ATO item id = '||to_char(lconfig_id),3);
658:
659: oe_debug_pub.add('Change_Notify: ' || 'ATO line id = '||to_char(lconfig_line_id),3);
660: END IF;
661:
662: END IF;
663:
671: LOOP
672: IF (pchgtype.exists(i)) THEN
673:
674: IF PG_DEBUG <> 0 THEN
675: oe_debug_pub.add('Change_Notify: ' || 'Change type #'||to_char(pchgtype(i).change_type),3);
676:
677: oe_debug_pub.add('Change_Notify: ' || 'Old value = '||pchgtype(i).old_value,3);
678:
679: oe_debug_pub.add('Change_Notify: ' || 'New Value = '||pchgtype(i).new_value,3);
673:
674: IF PG_DEBUG <> 0 THEN
675: oe_debug_pub.add('Change_Notify: ' || 'Change type #'||to_char(pchgtype(i).change_type),3);
676:
677: oe_debug_pub.add('Change_Notify: ' || 'Old value = '||pchgtype(i).old_value,3);
678:
679: oe_debug_pub.add('Change_Notify: ' || 'New Value = '||pchgtype(i).new_value,3);
680: END IF;
681:
675: oe_debug_pub.add('Change_Notify: ' || 'Change type #'||to_char(pchgtype(i).change_type),3);
676:
677: oe_debug_pub.add('Change_Notify: ' || 'Old value = '||pchgtype(i).old_value,3);
678:
679: oe_debug_pub.add('Change_Notify: ' || 'New Value = '||pchgtype(i).new_value,3);
680: END IF;
681:
682: IF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.SSD_CHANGE THEN
683:
681:
682: IF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.SSD_CHANGE THEN
683:
684: if( pchgtype(i).new_value is null ) then
685: oe_debug_pub.add('Change_Notify: ' || 'Unschedule case ' ,3);
686: l_unschedule_action := TRUE ;
687: l_req_change_details.unschedule_action_flag := TRUE;
688: --l_req_change_details.new_ssd_date := 'NULL';
689: else
686: l_unschedule_action := TRUE ;
687: l_req_change_details.unschedule_action_flag := TRUE;
688: --l_req_change_details.new_ssd_date := 'NULL';
689: else
690: oe_debug_pub.add('Change_Notify: ' || 'Date change case ' ,3);
691:
692: l_req_change_details.date_change_flag := TRUE;
693: -- rkaza. note that a varchar2 is directly assigned to a date.
694: -- This assumes that the varchar2 string is in default date
705: IF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.WAREHOUSE_CHANGE THEN
706:
707: if( pchgtype(i).new_value is not null ) then
708:
709: oe_debug_pub.add('Change_Notify: ' || 'Warehouse change ' ,3);
710: oe_debug_pub.add('Change_Notify: ' ||' Old ship from org = '||pchgtype(i).old_value,3);
711: oe_debug_pub.add('Change_Notify: ' ||' New ship from org = '||pchgtype(i).new_value,3);
712:
713: l_warehouse_change := TRUE ;
706:
707: if( pchgtype(i).new_value is not null ) then
708:
709: oe_debug_pub.add('Change_Notify: ' || 'Warehouse change ' ,3);
710: oe_debug_pub.add('Change_Notify: ' ||' Old ship from org = '||pchgtype(i).old_value,3);
711: oe_debug_pub.add('Change_Notify: ' ||' New ship from org = '||pchgtype(i).new_value,3);
712:
713: l_warehouse_change := TRUE ;
714:
707: if( pchgtype(i).new_value is not null ) then
708:
709: oe_debug_pub.add('Change_Notify: ' || 'Warehouse change ' ,3);
710: oe_debug_pub.add('Change_Notify: ' ||' Old ship from org = '||pchgtype(i).old_value,3);
711: oe_debug_pub.add('Change_Notify: ' ||' New ship from org = '||pchgtype(i).new_value,3);
712:
713: l_warehouse_change := TRUE ;
714:
715: -- Fix for the FP bug 4103806
725: and rownum = 1;
726:
727: If l_option_specific is not null Then
728:
729: oe_debug_pub.add('Change_notify : Item is option specific.. Validating ship org',1);
730:
731: begin
732:
733: -- The following sql looks at the sourcing assignment for the item and
746: and ( assg.organization_id = pchgtype(i).new_value
747: or src.source_organization_id = pchgtype(i).new_value)
748: and rownum =1;
749:
750: oe_debug_pub.add('Change_Notify : New ship from org '||pchgtype(i).new_value||' is valid..',1);
751:
752: Exception When No_data_found then
753: oe_debug_pub.add('Change Notify: New Ship from org '||pchgtype(i).new_value||' is not valid',1);
754: l_valid_ship_from_org := 'N';
749:
750: oe_debug_pub.add('Change_Notify : New ship from org '||pchgtype(i).new_value||' is valid..',1);
751:
752: Exception When No_data_found then
753: oe_debug_pub.add('Change Notify: New Ship from org '||pchgtype(i).new_value||' is not valid',1);
754: l_valid_ship_from_org := 'N';
755: CTO_MSG_PUB.cto_message('BOM','CTO_OSS_INVALID_SHIP_ORG');
756: raise FND_API.G_EXC_ERROR;
757: End;
755: CTO_MSG_PUB.cto_message('BOM','CTO_OSS_INVALID_SHIP_ORG');
756: raise FND_API.G_EXC_ERROR;
757: End;
758: Else
759: oe_debug_pub.add('Change_Notify : Item is not option Specific...',1);
760: End if;
761: -- End of Fix for the FP bug 4103806
762:
763: else
761: -- End of Fix for the FP bug 4103806
762:
763: else
764:
765: oe_debug_pub.add('Change_Notify: ' || 'Warehouse change null ' ,3);
766:
767: end if;
768:
769: END IF ;
772:
773:
774: IF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.CONFIG_CHANGE THEN
775: IF PG_DEBUG <> 0 THEN
776: oe_debug_pub.add('Change_Notify: ' || 'Configuration is changed..',3);
777: oe_debug_pub.add('Change_Notify: ' || 'Configuration is changed..' || poptionchgdtls.count ,3);
778: END IF;
779:
780:
773:
774: IF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.CONFIG_CHANGE THEN
775: IF PG_DEBUG <> 0 THEN
776: oe_debug_pub.add('Change_Notify: ' || 'Configuration is changed..',3);
777: oe_debug_pub.add('Change_Notify: ' || 'Configuration is changed..' || poptionchgdtls.count ,3);
778: END IF;
779:
780:
781: /* Added by Sushant for Decimal-Qty Support for Option Items */
786:
787:
788:
789: IF PG_DEBUG <> 0 THEN
790: oe_debug_pub.add('Change_Notify: ' || 'Going to check old and new qty..',3);
791: oe_debug_pub.add('Change_Notify: ' || 'first..' || poptionchgdtls.first
792: || ' last ' || poptionchgdtls.last ,3);
793: END IF;
794:
787:
788:
789: IF PG_DEBUG <> 0 THEN
790: oe_debug_pub.add('Change_Notify: ' || 'Going to check old and new qty..',3);
791: oe_debug_pub.add('Change_Notify: ' || 'first..' || poptionchgdtls.first
792: || ' last ' || poptionchgdtls.last ,3);
793: END IF;
794:
795:
796: v_options_index := poptionchgdtls.first ;
797:
798: -- for v_options in 1..PoptionChgDtls.count
799:
800: oe_debug_pub.add('Change_Notify: ' || 'first..' || v_options_index , 1 );
801:
802: while( v_options_index is not null )
803: loop
804:
802: while( v_options_index is not null )
803: loop
804:
805: IF PG_DEBUG <> 0 THEN
806: oe_debug_pub.add('Change_Notify: ' || 'old qty ' || PoptionChgDtls(v_options_index).old_qty ,3);
807: oe_debug_pub.add('Change_Notify: ' || 'new qty ' || PoptionChgDtls(v_options_index).new_qty ,3);
808: END IF;
809:
810: oe_debug_pub.add('Change_Notify: actual new qty ' || Round( NVL(PoptionChgDtls(v_options_index).new_qty, 0 ) , 7 ), 1 ) ;
803: loop
804:
805: IF PG_DEBUG <> 0 THEN
806: oe_debug_pub.add('Change_Notify: ' || 'old qty ' || PoptionChgDtls(v_options_index).old_qty ,3);
807: oe_debug_pub.add('Change_Notify: ' || 'new qty ' || PoptionChgDtls(v_options_index).new_qty ,3);
808: END IF;
809:
810: oe_debug_pub.add('Change_Notify: actual new qty ' || Round( NVL(PoptionChgDtls(v_options_index).new_qty, 0 ) , 7 ), 1 ) ;
811:
806: oe_debug_pub.add('Change_Notify: ' || 'old qty ' || PoptionChgDtls(v_options_index).old_qty ,3);
807: oe_debug_pub.add('Change_Notify: ' || 'new qty ' || PoptionChgDtls(v_options_index).new_qty ,3);
808: END IF;
809:
810: oe_debug_pub.add('Change_Notify: actual new qty ' || Round( NVL(PoptionChgDtls(v_options_index).new_qty, 0 ) , 7 ), 1 ) ;
811:
812: oe_debug_pub.add('Change_Notify: actual old qty ' || Round( NVL(PoptionChgDtls(v_options_index).old_qty, 0 ) , 7 ), 1 ) ;
813:
814: if ( Round( NVL( PoptionChgDtls(v_options_index).new_qty , 0 ) , 7 ) <>
808: END IF;
809:
810: oe_debug_pub.add('Change_Notify: actual new qty ' || Round( NVL(PoptionChgDtls(v_options_index).new_qty, 0 ) , 7 ), 1 ) ;
811:
812: oe_debug_pub.add('Change_Notify: actual old qty ' || Round( NVL(PoptionChgDtls(v_options_index).old_qty, 0 ) , 7 ), 1 ) ;
813:
814: if ( Round( NVL( PoptionChgDtls(v_options_index).new_qty , 0 ) , 7 ) <>
815: Round( NVL( PoptionChgDtls(v_options_index).old_qty , 0 ) , 7 ) ) then
816: lconfig_change := TRUE ;
815: Round( NVL( PoptionChgDtls(v_options_index).old_qty , 0 ) , 7 ) ) then
816: lconfig_change := TRUE ;
817: l_req_change_details.config_change_flag := TRUE;
818: l_decimal_qty := TRUE ;
819: oe_debug_pub.add('Change_Notify: actual Decimal Change ' , 1 ) ;
820:
821: exit ;
822: end if;
823:
824:
825: v_options_index := poptionchgdtls.next(v_options_index);
826:
827:
828: oe_debug_pub.add('Change_Notify: ' || 'next..' || v_options_index , 1 );
829:
830:
831:
832: end loop;
833:
834:
835: else /* backward compatibility for pre-patchset J OM code */
836: IF PG_DEBUG <> 0 THEN
837: oe_debug_pub.add('Change_Notify: ' || 'PoptionChgDtls count is 0 ..',3);
838: END IF;
839:
840: lconfig_change := TRUE;
841: l_req_change_details.config_change_flag := TRUE;
849: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_CHANGE and to_number(pchgtype(i).new_value) = 0 THEN
850: lcancel_line := TRUE;
851: l_req_change_details.cancel_line_flag := TRUE;
852: IF PG_DEBUG <> 0 THEN
853: oe_debug_pub.add('Change_Notify: ' || 'Line is cancelled..',3);
854: END IF;
855:
856: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_CHANGE THEN
857: lqty_change := TRUE;
857: lqty_change := TRUE;
858: l_req_change_details.qty_change_flag := TRUE;
859: l_req_change_details.new_order_qty := to_number(pchgtype(i).new_value);
860: IF PG_DEBUG <> 0 THEN
861: oe_debug_pub.add('Change_Notify: ' || 'Quantity is changed..',3);
862: END IF;
863:
864:
865:
869:
870: v_splits_index := psplitdtls.first ;
871:
872:
873: oe_debug_pub.add('Change_Notify: ' || 'first..' || v_splits_index , 1 );
874:
875: while( v_splits_index is not null )
876: loop
877:
875: while( v_splits_index is not null )
876: loop
877:
878: IF PG_DEBUG <> 0 THEN
879: oe_debug_pub.add('Change_Notify: split line id ' || 'line id ' ||
880: PsplitDtls(v_splits_index).line_id ,3);
881: END IF;
882:
883:
880: PsplitDtls(v_splits_index).line_id ,3);
881: END IF;
882:
883:
884: oe_debug_pub.add('Change_Notify: ' || 'calling split line ' , 1 );
885:
886: cto_utility_pk.split_line( psplitdtls(v_splits_index).line_id,
887: x_return_status => x_return_status,
888: X_Msg_Count => x_Msg_Count,
888: X_Msg_Count => x_Msg_Count,
889: x_Msg_data => x_Msg_data);
890:
891:
892: oe_debug_pub.add('Change_Notify: ' || 'done split line ' , 1 );
893:
894:
895:
896: v_splits_index := psplitdtls.next(v_splits_index);
895:
896: v_splits_index := psplitdtls.next(v_splits_index);
897:
898:
899: oe_debug_pub.add('Change_Notify: ' || 'next..' || v_splits_index , 1 );
900:
901:
902:
903: end loop;
902:
903: end loop;
904:
905:
906: oe_debug_pub.add('Change_Notify: ' || 'calling adjust_bcol..' || pLineId , 1 );
907:
908: cto_utility_pk.adjust_bcol_for_split( p_ato_line_id => pLineId,
909: x_return_status => x_return_status,
910: X_Msg_Count => x_Msg_Count,
921: l_req_change_details.qty2_change_flag := TRUE;
922: l_req_change_details.new_order_qty2 := to_number(pchgtype(i).new_value);
923:
924: IF PG_DEBUG <> 0 THEN
925: oe_debug_pub.add('Change_Notify: ' || 'Secondary Quantity is changed..',3);
926: END IF;
927:
928: END IF;
929:
935:
936:
937: if( lconfig_change ) then
938:
939: oe_debug_pub.add('Change_Notify: ' || 'config change is true..',3);
940:
941: else
942:
943: oe_debug_pub.add('Change_Notify: ' || 'config change is false..',3);
939: oe_debug_pub.add('Change_Notify: ' || 'config change is true..',3);
940:
941: else
942:
943: oe_debug_pub.add('Change_Notify: ' || 'config change is false..',3);
944:
945: end if ;
946:
947:
958: WHERE header_id = lheader_id;
959:
960:
961: IF PG_DEBUG <> 0 THEN
962: oe_debug_pub.add('Change_Notify: ' || 'Checking started...order #'||to_char(lorder_no),3);
963: END IF;
964:
965:
966: -- rkaza. ireq project. 05/10/2005.
980: x_message => l_message); --opm
981:
982: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
983: IF PG_DEBUG <> 0 THEN
984: oe_debug_pub.add('Change_notify: ' || 'success from check_cto_can_create_supply', 5);
985: oe_debug_pub.add('Change_notify: ' || 'source_type = ' || x_source_type, 5);
986: oe_debug_pub.add('Change_notify: ' || 'sourcing_org = ' || l_sourcing_org, 5);
987: oe_debug_pub.add('Change_notify: ' || 'l_can_create_supply = ' || l_can_create_supply, 5);
988: END IF;
981:
982: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
983: IF PG_DEBUG <> 0 THEN
984: oe_debug_pub.add('Change_notify: ' || 'success from check_cto_can_create_supply', 5);
985: oe_debug_pub.add('Change_notify: ' || 'source_type = ' || x_source_type, 5);
986: oe_debug_pub.add('Change_notify: ' || 'sourcing_org = ' || l_sourcing_org, 5);
987: oe_debug_pub.add('Change_notify: ' || 'l_can_create_supply = ' || l_can_create_supply, 5);
988: END IF;
989: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
982: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
983: IF PG_DEBUG <> 0 THEN
984: oe_debug_pub.add('Change_notify: ' || 'success from check_cto_can_create_supply', 5);
985: oe_debug_pub.add('Change_notify: ' || 'source_type = ' || x_source_type, 5);
986: oe_debug_pub.add('Change_notify: ' || 'sourcing_org = ' || l_sourcing_org, 5);
987: oe_debug_pub.add('Change_notify: ' || 'l_can_create_supply = ' || l_can_create_supply, 5);
988: END IF;
989: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
990: IF PG_DEBUG <> 0 THEN
983: IF PG_DEBUG <> 0 THEN
984: oe_debug_pub.add('Change_notify: ' || 'success from check_cto_can_create_supply', 5);
985: oe_debug_pub.add('Change_notify: ' || 'source_type = ' || x_source_type, 5);
986: oe_debug_pub.add('Change_notify: ' || 'sourcing_org = ' || l_sourcing_org, 5);
987: oe_debug_pub.add('Change_notify: ' || 'l_can_create_supply = ' || l_can_create_supply, 5);
988: END IF;
989: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
990: IF PG_DEBUG <> 0 THEN
991: oe_debug_pub.add('Change_notify: ' || 'Expected error in check_cto_can_create_supply', 1);
987: oe_debug_pub.add('Change_notify: ' || 'l_can_create_supply = ' || l_can_create_supply, 5);
988: END IF;
989: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
990: IF PG_DEBUG <> 0 THEN
991: oe_debug_pub.add('Change_notify: ' || 'Expected error in check_cto_can_create_supply', 1);
992: END IF;
993: raise FND_API.G_EXC_ERROR;
994: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
995: IF PG_DEBUG <> 0 THEN
992: END IF;
993: raise FND_API.G_EXC_ERROR;
994: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
995: IF PG_DEBUG <> 0 THEN
996: oe_debug_pub.add('Change_notify: ' || 'Unexpected error in check_cto_can_create_supply', 1);
997: END IF;
998: raise FND_API.G_EXC_UNEXPECTED_ERROR;
999: END IF;
1000:
1039: --- begin changes for 14065108
1040:
1041: -- Getting the user name before the line gets delinked
1042: IF PG_DEBUG <> 0 THEN
1043: oe_debug_pub.add('Change_Notify: ' || 'Before calling get_user_name....',3);
1044: END IF;
1045: -- calling get_user_name before delink_item to get buyer information.
1046: l_user_name := CTO_CHANGE_ORDER_PK.get_user_name(
1047: pConfigId => lconfig_id,
1053: ---end changes for 14065108
1054:
1055: -- Delink the configuration item
1056: IF PG_DEBUG <> 0 THEN
1057: oe_debug_pub.add('Change_Notify:l_user_name :'||l_user_name,3);
1058: oe_debug_pub.add('Change_Notify: ' || 'Config change.. Calling delink function...',3);
1059: END IF;
1060:
1061: -- Added by Renga Kannan
1054:
1055: -- Delink the configuration item
1056: IF PG_DEBUG <> 0 THEN
1057: oe_debug_pub.add('Change_Notify:l_user_name :'||l_user_name,3);
1058: oe_debug_pub.add('Change_Notify: ' || 'Config change.. Calling delink function...',3);
1059: END IF;
1060:
1061: -- Added by Renga Kannan
1062: -- The Following Pkg varibale is sest to 1 to notify the delink pkg that the call is coming
1074: -- Re-initialize the pkg variable
1075:
1076: CTO_CHANGE_ORDER_PK.CHANGE_ORDER_PK_STATE := 0;
1077: IF PG_DEBUG <> 0 THEN
1078: oe_debug_pub.add('Change_Notify: ' || 'Delink failed....',5);
1079: END IF;
1080:
1081: CTO_MSG_PUB.cto_message('BOM',x_err_name);
1082: raise FND_API.G_EXC_ERROR;
1104: -- if the option item qty change is beyond the 7 digits.
1105:
1106: if l_source_type_code = 'EXTERNAL' or l_decimal_qty = FALSE then
1107: notify_flag := FALSE;
1108: oe_debug_pub.add('Change_Notify: ' || 'Not sending notification. Either drop ship or decimal qty beyond 7 digits',3);
1109: end if;
1110:
1111: lStmtNumber := 70;
1112:
1112:
1113: if notify_flag then
1114:
1115: IF PG_DEBUG <> 0 THEN
1116: oe_debug_pub.add('Change_Notify: ' || 'Calling the notification...',3);
1117: END IF;
1118:
1119: start_work_flow(porder_no =>lorder_no,
1120: pline_no =>plineid,
1128: pSplitDtls => pSplitDtls );
1129:
1130: if X_Return_Status = FND_API.G_RET_STS_ERROR then
1131: IF PG_DEBUG <> 0 THEN
1132: oe_debug_pub.add ('Change_Notify: ' || 'Failed in start_work_flow with expected error.', 1);
1133: END IF;
1134: raise FND_API.G_EXC_ERROR;
1135:
1136: elsif X_Return_Status = FND_API.G_RET_STS_UNEXP_ERROR then
1134: raise FND_API.G_EXC_ERROR;
1135:
1136: elsif X_Return_Status = FND_API.G_RET_STS_UNEXP_ERROR then
1137: IF PG_DEBUG <> 0 THEN
1138: oe_debug_pub.add ('Change_Notify: ' || 'Failed in start_work_flow with unexpected error.', 1);
1139: END IF;
1140: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1141: end if;
1142:
1202: x_source_type in (1, 3))
1203: then
1204: return_value := CTO_WORKFLOW_API_PK.display_wf_status(Lconfig_line_id);
1205: IF PG_DEBUG <> 0 THEN
1206: oe_debug_pub.add('Change_Notify: ' || ' Return value from display_wf_status = '|| return_value,3);
1207: END IF;
1208: end if;
1209:
1210: EXCEPTION
1209:
1210: EXCEPTION
1211: WHEN FND_API.G_EXC_ERROR THEN
1212: IF PG_DEBUG <> 0 THEN
1213: oe_debug_pub.add('Change_Notify: ' || 'Expected error in CHANGE_NOTIFY. Last stmt executed is ..'|| to_char(lStmtNumber),1);
1214: END IF;
1215: CTO_MSG_PUB.count_and_get(p_msg_count => X_Msg_Count,
1216: p_msg_data => X_Msg_Data);
1217: x_return_status := FND_API.G_RET_STS_ERROR;
1218:
1219:
1220: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1221: IF PG_DEBUG <> 0 THEN
1222: oe_debug_pub.add('Change_Notify: ' || 'UnExpected error in CHANGE_NOTIFY. Last stmt executed is ..'|| to_char(lStmtNumber),1);
1223: END IF;
1224: CTO_MSG_PUB.count_and_get(p_msg_count => X_Msg_Count,
1225: p_msg_data => X_Msg_Data);
1226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1227:
1228:
1229: WHEN OTHERS THEN
1230: IF PG_DEBUG <> 0 THEN
1231: oe_debug_pub.add('Change_Notify: ' || 'OTHERS excepn in CHANGE_NOTIFY. Last stmt executed is ..'|| to_char(lStmtNumber),1);
1232:
1233: oe_debug_pub.add('Change_Notify: ' || 'The error message is ..'||sqlerrm,2);
1234: END IF;
1235: CTO_MSG_PUB.count_and_get(p_msg_count => X_Msg_Count,
1229: WHEN OTHERS THEN
1230: IF PG_DEBUG <> 0 THEN
1231: oe_debug_pub.add('Change_Notify: ' || 'OTHERS excepn in CHANGE_NOTIFY. Last stmt executed is ..'|| to_char(lStmtNumber),1);
1232:
1233: oe_debug_pub.add('Change_Notify: ' || 'The error message is ..'||sqlerrm,2);
1234: END IF;
1235: CTO_MSG_PUB.count_and_get(p_msg_count => X_Msg_Count,
1236: p_msg_data => X_Msg_Data);
1237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1257:
1258: BEGIN
1259:
1260: IF PG_DEBUG <> 0 THEN
1261: oe_debug_pub.add('Reservation_Exists: ' || 'Entering into Reservation_exists procedure....',1);
1262: END IF;
1263: -- Check if flow schedule exists . If not check some inv/work order Reservation
1264: -- exists. If both of them does'nt exists then return false. Other wise return true.
1265:
1265:
1266: IF CTO_WORKFLOW.flow_sch_exists(pconfigLineId) <> TRUE THEN
1267:
1268: IF PG_DEBUG <> 0 THEN
1269: oe_debug_pub.add('Reservation_Exists: ' || 'flow Reservation not exists..',5);
1270:
1271: oe_debug_pub.add('Reservation_Exists: ' || 'The line_id passed for reservation = '||to_char(pconfiglineid),5);
1272: END IF;
1273:
1267:
1268: IF PG_DEBUG <> 0 THEN
1269: oe_debug_pub.add('Reservation_Exists: ' || 'flow Reservation not exists..',5);
1270:
1271: oe_debug_pub.add('Reservation_Exists: ' || 'The line_id passed for reservation = '||to_char(pconfiglineid),5);
1272: END IF;
1273:
1274: SELECT reservation_id
1275: INTO l_reservation_id
1298: INV_RESERVATION_GLOBAL.g_source_type_oe) --bugfix 1799874
1299: and mr.reservation_quantity > 0
1300: and rownum = 1;
1301: IF PG_DEBUG <> 0 THEN
1302: oe_debug_pub.add('Reservation_Exists: ' || 'Work order/Inv reservation Exists..',5);
1303: END IF;
1304: END IF;
1305:
1306: x_result := TRUE;
1308:
1309: EXCEPTION
1310: WHEN no_data_found THEN
1311: IF PG_DEBUG <> 0 THEN
1312: oe_debug_pub.add('Reservation_Exists: ' || 'Coming out of reservation_exists procedure with FALSE...',2);
1313: END IF;
1314: x_return_status := FND_API.G_RET_STS_SUCCESS;
1315: x_result := FALSE;
1316:
1315: x_result := FALSE;
1316:
1317: WHEN others THEN
1318: IF PG_DEBUG <> 0 THEN
1319: oe_debug_pub.add('Reservation_Exists: ' || 'OTHERS excpn occured in Reservation_Exists procedure..',2);
1320:
1321: oe_debug_pub.add('Reservation_Exists: ' || 'Error message is : '||sqlerrm,1);
1322: END IF;
1323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1317: WHEN others THEN
1318: IF PG_DEBUG <> 0 THEN
1319: oe_debug_pub.add('Reservation_Exists: ' || 'OTHERS excpn occured in Reservation_Exists procedure..',2);
1320:
1321: oe_debug_pub.add('Reservation_Exists: ' || 'Error message is : '||sqlerrm,1);
1322: END IF;
1323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1324: x_result := FALSE;
1325:
1640:
1641: lstmt := 10;
1642:
1643: IF PG_DEBUG <> 0 THEN
1644: oe_debug_pub.add('start_work_flow: ' || 'Inside procedure start_work_flow',5);
1645: END IF;
1646:
1647: --
1648: -- The Following Block of Statment will set the minimum attributes needed for the work flow
1656: --
1657:
1658: lstmt := 20;
1659: IF PG_DEBUG <> 0 THEN
1660: oe_debug_pub.add('start_work_flow: ' || 'Getting details from Oe_order_lines for line id '||to_char(pline_no),5);
1661: oe_debug_pub.add('start_work_flow: ' || 'Config Item Id '||pconfig_id,5);
1662: END IF;
1663:
1664: SELECT
1657:
1658: lstmt := 20;
1659: IF PG_DEBUG <> 0 THEN
1660: oe_debug_pub.add('start_work_flow: ' || 'Getting details from Oe_order_lines for line id '||to_char(pline_no),5);
1661: oe_debug_pub.add('start_work_flow: ' || 'Config Item Id '||pconfig_id,5);
1662: END IF;
1663:
1664: SELECT
1665: schedule_ship_date,
1724: AND CUST_ACCT.PARTY_ID = PARTY.PARTY_ID
1725: AND oeh.header_id = l_header_id;
1726:
1727: if PG_DEBUG <> 0 then
1728: oe_debug_pub.add('Start_workflow: Customer Name = '||lcustomer_name,1);
1729: end if;
1730:
1731: -- rkaza. bug 4101723. 01/19/2005. Notification should be sent to the old
1732: -- org in case of warehouse change. So deriving the old org from pchgtype.
1741: end if;
1742: end loop;
1743:
1744: if PG_DEBUG <> 0 then
1745: oe_debug_pub.add('Start_workflow: l_header_id = ' ||l_header_id ,1);
1746: oe_debug_pub.add('Start_workflow: l_ato_line_id = '||l_ato_line_id ,1);
1747: end if;
1748:
1749: -- bug 7447357.ntungare
1742: end loop;
1743:
1744: if PG_DEBUG <> 0 then
1745: oe_debug_pub.add('Start_workflow: l_header_id = ' ||l_header_id ,1);
1746: oe_debug_pub.add('Start_workflow: l_ato_line_id = '||l_ato_line_id ,1);
1747: end if;
1748:
1749: -- bug 7447357.ntungare
1750: -- Get the Config Item line id
1753: FETCH get_config_line_id INTO l_config_line_id;
1754: CLOSE get_config_line_id;
1755:
1756: if PG_DEBUG <> 0 then
1757: oe_debug_pub.add('Start_workflow: l_config_line_id = ' ||l_config_line_id ,1);
1758: end if;
1759:
1760:
1761: -- In the case of Buy ATo item we need to send the notification to the
1762: -- Buyer . Get the buyer info from Mtl_system_items
1763: IF pmlmo_flag = 'B' THEN
1764:
1765: IF PG_DEBUG <> 0 THEN
1766: oe_debug_pub.add('start_work_flow: ' || 'Getting buyer info..',1);
1767: END IF;
1768:
1769: -- bugfix 2203802: Instead of getting the full name directly from po_buyers_all_v
1770: -- get the corresponding application user.
1816: -- Getting the buyer user name before delinking the line
1817: IF lplanner_code IS NULL THEN
1818: lplanner_code := puser_name;
1819: IF PG_DEBUG <> 0 THEN
1820: oe_debug_pub.add('start_work_flow: lplanner_code from puser_name: ' || lplanner_code,2);
1821: END IF;
1822: END IF;
1823:
1824: EXCEPTION
1823:
1824: EXCEPTION
1825: WHEN OTHERS THEN
1826: IF PG_DEBUG <> 0 THEN
1827: oe_debug_pub.add('start_work_flow: ' || 'Buyer Not defined.. Defaulting to Sysadmin: ',2);
1828:
1829: oe_debug_pub.add('start_work_flow: ' || 'Error Message : '||sqlerrm,2);
1830: END IF;
1831: lplanner_code := Null;
1825: WHEN OTHERS THEN
1826: IF PG_DEBUG <> 0 THEN
1827: oe_debug_pub.add('start_work_flow: ' || 'Buyer Not defined.. Defaulting to Sysadmin: ',2);
1828:
1829: oe_debug_pub.add('start_work_flow: ' || 'Error Message : '||sqlerrm,2);
1830: END IF;
1831: lplanner_code := Null;
1832:
1833: END;
1834: ELSE
1835: -- Get the item name and planner code from mtl_system_item_vl
1836: lstmt := 40;
1837: IF PG_DEBUG <> 0 THEN
1838: oe_debug_pub.add('start_work_flow: ' || 'Getting the planner code ..',3);
1839: oe_debug_pub.add('start_work_flow: ' || 'MLMO not B: lship_org_id = ' || lship_org_id,3);
1840: END IF;
1841:
1842: BEGIN
1835: -- Get the item name and planner code from mtl_system_item_vl
1836: lstmt := 40;
1837: IF PG_DEBUG <> 0 THEN
1838: oe_debug_pub.add('start_work_flow: ' || 'Getting the planner code ..',3);
1839: oe_debug_pub.add('start_work_flow: ' || 'MLMO not B: lship_org_id = ' || lship_org_id,3);
1840: END IF;
1841:
1842: BEGIN
1843: -- bugfix 2203802: Instead of getting the planner code directly from MSI,
1862: EXCEPTION
1863:
1864: WHEN OTHERS THEN
1865: IF PG_DEBUG <> 0 THEN
1866: oe_debug_pub.add('start_work_flow: ' || 'Error in getting the planner code data. Defaulting to SYSADMIN.',2);
1867:
1868: oe_debug_pub.add('start_work_flow: ' || 'Error Message : '||sqlerrm,2);
1869: END IF;
1870: lplanner_code := Null; -- bug 4101723
1864: WHEN OTHERS THEN
1865: IF PG_DEBUG <> 0 THEN
1866: oe_debug_pub.add('start_work_flow: ' || 'Error in getting the planner code data. Defaulting to SYSADMIN.',2);
1867:
1868: oe_debug_pub.add('start_work_flow: ' || 'Error Message : '||sqlerrm,2);
1869: END IF;
1870: lplanner_code := Null; -- bug 4101723
1871: END;
1872:
1873:
1874: END IF;
1875:
1876: IF PG_DEBUG <> 0 THEN
1877: oe_debug_pub.add('start_work_flow: ' || 'Planner code = '||lplanner_code,3);
1878: END IF;
1879:
1880:
1881: -- Loop through the change type pl/sql record and set the workflow attributes according to the
1897: lplanner_code := wf_engine.getItemAttrText(ItemType => 'CTOCHORD',
1898: ItemKey => litem_key,
1899: aname => 'WF_ADMINISTRATOR');
1900: IF PG_DEBUG <> 0 THEN
1901: oe_debug_pub.add('start_work_flow: ' || 'Planner code is not a valid workflow user...Defaulting to'||lplanner_code,5);
1902: END IF;
1903: END IF;
1904:
1905: IF PG_DEBUG <> 0 THEN
1902: END IF;
1903: END IF;
1904:
1905: IF PG_DEBUG <> 0 THEN
1906: oe_debug_pub.add('start_work_flow: ' || 'Looping thru the change table...',1);
1907: END IF;
1908:
1909: --bugfix 3651068
1910: --check for cancel has been moved up from the below LOOP
1962:
1963: i := pchgtype.FIRST;
1964: LOOP
1965: IF PG_DEBUG <> 0 THEN
1966: oe_debug_pub.add('start_work_flow: ' || 'Change type value...'||to_char(pchgtype(i).change_type),1);
1967: END IF;
1968: IF (pchgtype.exists(i)) then
1969:
1970: IF (pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_CHANGE and to_number(pchgtype(i).new_value) <> 0)
1990:
1991: IF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.QTY_CHANGE THEN
1992: if( pSplitDtls.count > 0 ) then
1993:
1994: oe_debug_pub.add('start_work_flow: ' || 'Adding Split Data ' ,1);
1995:
1996: v_split_index := pSplitDtls.first ;
1997:
1998: l_aname_split(1) := 'SPLIT_DTLS' ;
2022: */
2023:
2024: l_atxtvalue_split(1) := l_atxtvalue_split(1) || l_new_line || 'Line Number: ' || v_model_line_num || ' Quantity: ' || to_char( v_split_qty ) ;
2025:
2026: oe_debug_pub.add('start_work_flow: ' || 'Adding Split Data ' || v_split_qty ,1);
2027:
2028: v_split_index := pSplitDtls.next(v_split_index) ;
2029:
2030:
2057: l_aname(i) := 'RD_DATE';
2058: l_atxtvalue(i) := pchgtype(i).old_value||' TO '||nvl(pchgtype(i).new_value,'NULL');
2059:
2060: IF PG_DEBUG <> 0 THEN
2061: oe_debug_pub.add('start_work_flow: ' || 'VALUE of i for RD change=>'||i,1);
2062: END IF;
2063:
2064:
2065: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.SSD_CHANGE then
2104:
2105:
2106: ELSIF pchgtype(i).change_type = CTO_CHANGE_ORDER_PK.WAREHOUSE_CHANGE then
2107: l_aname(i) := 'SHIP_ORG';
2108: oe_debug_pub.add('CHANGE WAREHOUSE INFO : ' || nvl( pchgtype(i).old_value , 'NULL' )
2109: || ' new ' || nvl(pchgtype(i).new_value , 'NULL') ) ;
2110: -- l_atxtvalue(i) := pchgtype(i).old_value||' TO '||pchgtype(i).new_value;
2111:
2112: begin
2120:
2121: exception
2122: when others then
2123:
2124: oe_debug_pub.add('CHANGE WAREHOUSE INFO : ' || 'exception while querying inv_organization_name_v for ' ||
2125: nvl( pchgtype(i).old_value , 'NULL' ) ) ;
2126:
2127: v_old_org := pchgtype(i).old_value ;
2128: end ;
2136:
2137: exception
2138: when others then
2139:
2140: oe_debug_pub.add('CHANGE WAREHOUSE INFO : ' || 'exception while querying inv_organization_name_v for ' ||
2141: nvl( pchgtype(i).new_value , 'NULL' ) ) ;
2142:
2143: v_new_org := pchgtype(i).new_value ;
2144: end ;
2143: v_new_org := pchgtype(i).new_value ;
2144: end ;
2145:
2146:
2147: oe_debug_pub.add('CHANGE WAREHOUSE INFO : ' || nvl( v_old_org , 'NULL' )
2148: || ' new ' || nvl( v_new_org , 'NULL') ) ;
2149:
2150: l_atxtvalue(i) := v_old_org ||' TO '|| v_new_org ;
2151:
2158:
2159:
2160:
2161: IF PG_DEBUG <> 0 THEN
2162: oe_debug_pub.add('start_work_flow: ' || 'customer line number is....'||lcust_line_no,5);
2163: END IF;
2164:
2165: lstmt := 70;
2166:
2175: i := i + 1;
2176: l_aname(i) := 'ACTION_TEXT';
2177:
2178: IF PG_DEBUG <> 0 THEN
2179: oe_debug_pub.add('start_work_flow: ' || 'VALUE of i for action_text=>'||i,1);
2180: END IF;
2181:
2182: IF l_cancel_flag = 'Y' THEN
2183: l_atxtvalue(i) := FND_MESSAGE.get_string ('BOM', 'CTO_ACTION_CANCELED');
2181:
2182: IF l_cancel_flag = 'Y' THEN
2183: l_atxtvalue(i) := FND_MESSAGE.get_string ('BOM', 'CTO_ACTION_CANCELED');
2184: IF PG_DEBUG <> 0 THEN
2185: oe_debug_pub.add('start_work_flow: ' || 'Action is set to Canceled',5);
2186: END IF;
2187:
2188: ELSE
2189: l_atxtvalue(i) := FND_MESSAGE.get_string ('BOM', 'CTO_ACTION_MODIFIED');
2187:
2188: ELSE
2189: l_atxtvalue(i) := FND_MESSAGE.get_string ('BOM', 'CTO_ACTION_MODIFIED');
2190: IF PG_DEBUG <> 0 THEN
2191: oe_debug_pub.add('start_work_flow: ' || 'Action is set to Modified',5);
2192: END IF;
2193: END IF;
2194:
2195:
2212: l_atxtvalue(i) := ' '; --default null value
2213:
2214: ---------Bugfix 13720792------------
2215: IF PG_DEBUG <> 0 THEN
2216: oe_debug_pub.add('start_work_flow: ' || 'Getting the supply information for the config line : '||l_config_line_id ,1);
2217: END IF;
2218:
2219: OPEN supply_cur(l_config_line_id);
2220: LOOP
2221: FETCH supply_cur INTO supply_rec;
2222: EXIT WHEN supply_cur%NOTFOUND;
2223:
2224: IF PG_DEBUG <> 0 THEN
2225: oe_debug_pub.add('start_work_flow: ' || 'Document type :'||supply_rec.supply_type||' Doc number :'||supply_rec.job_number ,1);
2226: END IF;
2227:
2228: supply_cntr := supply_cntr + 1;
2229:
2256: i:= i + 1;
2257: l_aname(i) := l_aname_split(1) ;
2258: l_atxtvalue(i) := l_atxtvalue_split(1) ;
2259: IF PG_DEBUG <> 0 THEN
2260: oe_debug_pub.add('start_work_flow: ' || 'added split line data to main txt ' ,1);
2261: END IF;
2262: end if;
2263:
2264:
2274: WHERE bp.organization_id = lship_org_id;
2275: EXCEPTION --bug#4666504 ,opm
2276: WHEN no_data_found THEN
2277: IF PG_DEBUG <> 0 THEN
2278: oe_debug_pub.add('start_work_flow: ' || 'Enable Lower level supply parameter not set for org '|| lship_org_id,3);
2279: oe_debug_pub.add('start_work_flow: ' || 'Defaulting parameter to 1 ',3);
2280: END IF;
2281:
2282: l_mlsupply_parameter := 1;
2275: EXCEPTION --bug#4666504 ,opm
2276: WHEN no_data_found THEN
2277: IF PG_DEBUG <> 0 THEN
2278: oe_debug_pub.add('start_work_flow: ' || 'Enable Lower level supply parameter not set for org '|| lship_org_id,3);
2279: oe_debug_pub.add('start_work_flow: ' || 'Defaulting parameter to 1 ',3);
2280: END IF;
2281:
2282: l_mlsupply_parameter := 1;
2283:
2285:
2286: IF (l_mlsupply_parameter in (2,3)) THEN
2287:
2288: IF PG_DEBUG <> 0 THEN
2289: oe_debug_pub.add('start_work_flow: ' || 'Before calling get_child_configurations with item_id '|| pconfig_id,5);
2290: END IF;
2291:
2292: l_mlsupply_items(1).item_id := pconfig_id;
2293:
2306:
2307: );
2308:
2309: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2310: oe_debug_pub.add('start_work_flow: ' || 'Unexcpected error in CTOSUBSB.gte_child_configurations',1);
2311:
2312: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2313:
2314: oe_debug_pub.add('start_work_flow: ' || 'Expected error in CTOSUBSB.gte_child_configurations',1);
2310: oe_debug_pub.add('start_work_flow: ' || 'Unexcpected error in CTOSUBSB.gte_child_configurations',1);
2311:
2312: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2313:
2314: oe_debug_pub.add('start_work_flow: ' || 'Expected error in CTOSUBSB.gte_child_configurations',1);
2315: ELSE
2316:
2317:
2318: oe_debug_pub.add('start_work_flow: ' || 'before entering teh loop to get the items',5);
2314: oe_debug_pub.add('start_work_flow: ' || 'Expected error in CTOSUBSB.gte_child_configurations',1);
2315: ELSE
2316:
2317:
2318: oe_debug_pub.add('start_work_flow: ' || 'before entering teh loop to get the items',5);
2319: IF ( l_mlsupply_items.count >1 ) THEN
2320: j := 1;
2321: LOOP
2322: IF(j = 1) THEN
2332:
2333: l_atxtvalue(i) := l_items ;
2334:
2335: ELSE
2336: oe_debug_pub.add('start_work_flow: ' || 'No sub-assemblies found',5);
2337:
2338: END IF; --mlsupply_item count
2339: END IF; -- return status of get_child_configurations
2340:
2355: -- Attribute is having default value that will be displayed.
2356:
2357: IF pmlmo_flag <> 'Y' THEN
2358: IF PG_DEBUG <> 0 THEN
2359: oe_debug_pub.add('start_work_flow: ' || 'Single level single org model, Special text is set to Null',5);
2360: END IF;
2361:
2362: lstmt := 82;
2363: wf_engine.SetItemAttrText(ItemType=>'CTOCHORD',itemkey=>litem_key,aname=>'SPL_TEXT',avalue=>'');
2366:
2367: -- Calling the work flow
2368: lstmt := 80;
2369: IF PG_DEBUG <> 0 THEN
2370: oe_debug_pub.add('start_work_flow: ' || 'Starting the workflow...',2);
2371: END IF;
2372: wf_engine.SetItemOwner(Itemtype=>'CTOCHORD',itemkey=>litem_key,owner=>lplanner_code);
2373: wf_engine.StartProcess(itemtype=>'CTOCHORD',ItemKey=>litem_key);
2374:
2372: wf_engine.SetItemOwner(Itemtype=>'CTOCHORD',itemkey=>litem_key,owner=>lplanner_code);
2373: wf_engine.StartProcess(itemtype=>'CTOCHORD',ItemKey=>litem_key);
2374:
2375: IF PG_DEBUG <> 0 THEN
2376: oe_debug_pub.add('start_work_flow: ' || 'success from ..... notification....',5);
2377: END IF;
2378:
2379: EXCEPTION
2380:
2382:
2383: WHEN FND_API.G_EXC_ERROR THEN
2384: -- x_return_status := FND_API.G_RET_STS_ERROR;
2385: IF PG_DEBUG <> 0 THEN
2386: oe_debug_pub.add('start_work_flow: ' || 'Expected error in start_work_flow. Last stmt executed is ..'||to_char(lStmt),2);
2387: END IF;
2388: CTO_MSG_PUB.count_and_get(p_msg_count => x_msg_count,
2389: p_msg_data => x_msg_data);
2390:
2390:
2391: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2392: --x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2393: IF PG_DEBUG <> 0 THEN
2394: oe_debug_pub.add('start_work_flow: ' || 'UnExpected error in start_work_flow. Last stmt executed is ..'||to_char(lStmt),2);
2395: END IF;
2396: CTO_MSG_PUB.count_and_get(p_msg_count => x_msg_count,
2397: p_msg_data => x_msg_data);
2398:
2398:
2399: WHEN OTHERS THEN
2400: --x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2401: IF PG_DEBUG <> 0 THEN
2402: oe_debug_pub.add('start_work_flow: ' || 'OTHERS excpn in start_work_flow. Last stmt executed is ..'||to_char(lStmt),2);
2403:
2404: oe_debug_pub.add('start_work_flow: ' || 'Error Message is : '||Sqlerrm);
2405: END IF;
2406: CTO_MSG_PUB.count_and_get(p_msg_count => x_msg_count,
2400: --x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2401: IF PG_DEBUG <> 0 THEN
2402: oe_debug_pub.add('start_work_flow: ' || 'OTHERS excpn in start_work_flow. Last stmt executed is ..'||to_char(lStmt),2);
2403:
2404: oe_debug_pub.add('start_work_flow: ' || 'Error Message is : '||Sqlerrm);
2405: END IF;
2406: CTO_MSG_PUB.count_and_get(p_msg_count => x_msg_count,
2407: p_msg_data => x_msg_data);
2408:
2446: /* The following function tells whether this model is sourced or not */
2447:
2448:
2449: IF PG_DEBUG <> 0 THEN
2450: oe_debug_pub.add ('Is_item_ML_OR_MO: ' || 'Inside Procedure Is_item_ML_OR_MO', 3);
2451: END IF;
2452:
2453: l_stmt_no := 10;
2454:
2495: );
2496:
2497: if X_Return_Status = FND_API.G_RET_STS_ERROR then
2498: IF PG_DEBUG <> 0 THEN
2499: oe_debug_pub.add ('Is_item_ML_OR_MO: ' || 'Failed in get_model_sourcing_org with expected error.', 1);
2500: END IF;
2501: raise FND_API.G_EXC_ERROR;
2502:
2503: elsif X_Return_Status = FND_API.G_RET_STS_UNEXP_ERROR then
2501: raise FND_API.G_EXC_ERROR;
2502:
2503: elsif X_Return_Status = FND_API.G_RET_STS_UNEXP_ERROR then
2504: IF PG_DEBUG <> 0 THEN
2505: oe_debug_pub.add ('Is_item_ML_OR_MO: ' || 'Failed in get_model_sourcing_org with unexpected error.', 1);
2506: END IF;
2507: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2508: end if;
2509:
2508: end if;
2509:
2510:
2511: IF PG_DEBUG <> 0 THEN
2512: oe_debug_pub.add('Is_item_ML_OR_MO: ' || 'The source flag returned from model sourcing..'||x_result,2);
2513: END IF;
2514:
2515: -- Modified by Renga Kannan on 05/09/2001
2516: -- The p_sourcing_rule_exists parameter is returned as FND_API.G_TRUE/FND_API.G_FLASE.
2541: AND MTL.Base_item_id Is Not Null -- This condition tells this is a config item.
2542: AND rownum = 1;
2543: EXCEPTION WHEN NO_DATA_FOUND THEN
2544: IF PG_DEBUG <> 0 THEN
2545: oe_debug_pub.add('Is_item_ML_OR_MO: ' || 'This config line is not multi level ...',3);
2546: END IF;
2547: X_result := 'N';
2548: END;
2549: ELSE --- If the model is sourced
2555: EXCEPTION
2556:
2557: WHEN FND_API.G_EXC_ERROR THEN
2558: IF PG_DEBUG <> 0 THEN
2559: oe_debug_pub.add('Is_item_ML_OR_MO: ' || 'Expected error in Is_item_ML_OR_MO : Last statement executed is ...'||to_char(l_Stmt_no),1);
2560: END IF;
2561: CTO_MSG_PUB.count_and_get(p_msg_count => X_Msg_Count,
2562: p_msg_Data => X_Msg_Data);
2563: x_return_status := FND_API.G_RET_STS_ERROR;
2564:
2565:
2566: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2567: IF PG_DEBUG <> 0 THEN
2568: oe_debug_pub.add('Is_item_ML_OR_MO: ' || 'UnExpected error in Is_item_ML_OR_MO : Last statement executed is ...'||to_char(l_Stmt_no),1);
2569: END IF;
2570: CTO_MSG_PUB.count_and_get(p_msg_count => X_Msg_Count,
2571: p_msg_Data => X_Msg_Data);
2572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2574:
2575: WHEN OTHERS THEN
2576:
2577: IF PG_DEBUG <> 0 THEN
2578: oe_debug_pub.add('Is_item_ML_OR_MO: ' || 'OTHER excpn in Is_item_ML_OR_MO : Last statement executed is ...'||to_char(l_Stmt_no),1);
2579:
2580: oe_debug_pub.add('Is_item_ML_OR_MO: ' || 'The error message is ..'||sqlerrm,2);
2581: END IF;
2582: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2576:
2577: IF PG_DEBUG <> 0 THEN
2578: oe_debug_pub.add('Is_item_ML_OR_MO: ' || 'OTHER excpn in Is_item_ML_OR_MO : Last statement executed is ...'||to_char(l_Stmt_no),1);
2579:
2580: oe_debug_pub.add('Is_item_ML_OR_MO: ' || 'The error message is ..'||sqlerrm,2);
2581: END IF;
2582: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2583:
2584: END Is_item_ML_OR_MO;
2606: BEGIN
2607:
2608: l_Stmt_no := 10;
2609: IF PG_DEBUG <> 0 THEN
2610: oe_debug_pub.add('Pto_Ato_Config_Wrapper: ' || 'Entering Procedure Pto_Ato_Config_Wrapper....',1);
2611: END IF;
2612:
2613: i := pchgtype.FIRST;
2614: LOOP
2623: FROM OE_ORDER_LINES_ALL
2624: WHERE line_id = Pchgtype(i).old_value;
2625:
2626: IF PG_DEBUG <> 0 THEN
2627: oe_debug_pub.add('Pto_Ato_Config_Wrapper: ' || 'The line_id = '||Pchgtype(i).old_value||' ATO line id ='||l_ato_line_id,3);
2628: END IF;
2629:
2630:
2631: IF l_ato_line_id is null THEN
2629:
2630:
2631: IF l_ato_line_id is null THEN
2632: IF PG_DEBUG <> 0 THEN
2633: oe_debug_pub.add('Pto_Ato_Config_Wrapper: ' || 'The line id ='||Pchgtype(i).old_value||' Belongs to PTO-- Ignore',5);
2634: END IF;
2635:
2636: -- Removed the condition for bug fix 1874380
2637:
2639: and ((l_item_type_code = 'OPTION')
2640: --Adding INCLUDED item type code for SUN ER#9793792
2641: OR (l_item_type_code = 'INCLUDED')) then
2642: IF PG_DEBUG <> 0 THEN
2643: oe_debug_pub.add('Pto_Ato_Config_Wrapper: ' || 'Ato_line_id = '|| to_char( l_ato_line_id) ||
2644: ' item type code ' || l_item_type_code ||
2645: ' Is an ATO ITEM under PTO Model, should be ignored..',5);
2646: END IF;
2647:
2646: END IF;
2647:
2648: ELSIF l_process_set.exists(l_ato_line_id) THEN
2649: IF PG_DEBUG <> 0 THEN
2650: oe_debug_pub.add('Pto_Ato_Config_Wrapper: ' || 'Ato_line_id = '||l_ato_line_id||' Is already processed...',5);
2651: END IF;
2652:
2653: ELSIF CTO_WORKFLOW.config_line_exists(l_ato_line_id) = TRUE THEN
2654:
2652:
2653: ELSIF CTO_WORKFLOW.config_line_exists(l_ato_line_id) = TRUE THEN
2654:
2655: IF PG_DEBUG <> 0 THEN
2656: oe_debug_pub.add('Pto_Ato_Config_Wrapper: ' || 'Ato line_id = '||l_ato_line_id||' is having config item..',5);
2657:
2658: oe_debug_pub.add('Pto_Ato_Config_Wrapper: ' || 'Calling main procedure Change_Notify...',5);
2659: END IF;
2660:
2654:
2655: IF PG_DEBUG <> 0 THEN
2656: oe_debug_pub.add('Pto_Ato_Config_Wrapper: ' || 'Ato line_id = '||l_ato_line_id||' is having config item..',5);
2657:
2658: oe_debug_pub.add('Pto_Ato_Config_Wrapper: ' || 'Calling main procedure Change_Notify...',5);
2659: END IF;
2660:
2661: l_chgtype(1).change_type := CTO_CHANGE_ORDER_PK.CONFIG_CHANGE;
2662: l_stmt_no := 30;
2668: X_Msg_Data => X_Msg_Data);
2669:
2670: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2671: IF PG_DEBUG <> 0 THEN
2672: oe_debug_pub.add('Pto_Ato_Config_Wrapper: ' || 'Expected error in change_notify procedure....',3);
2673: END IF;
2674: raise FND_API.G_EXC_ERROR;
2675:
2676: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2674: raise FND_API.G_EXC_ERROR;
2675:
2676: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2677: IF PG_DEBUG <> 0 THEN
2678: oe_debug_pub.add('Pto_Ato_Config_Wrapper: ' || 'Unexpected error occurred in change_notify...',3);
2679: END IF;
2680: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2681: END IF;
2682:
2683: l_process_set(l_ato_line_id) := l_ato_line_id;
2684: ELSE
2685:
2686: IF PG_DEBUG <> 0 THEN
2687: oe_debug_pub.add('Pto_Ato_Config_Wrapper: ' || 'This lines top model ato does not have config line...ignore',3);
2688: END IF;
2689: l_process_set(l_ato_line_id) := l_ato_line_id;
2690:
2691: END IF;
2700:
2701: WHEN FND_API.G_EXC_ERROR THEN
2702: x_return_status := FND_API.G_RET_STS_ERROR;
2703: IF PG_DEBUG <> 0 THEN
2704: oe_debug_pub.add('Pto_Ato_Config_Wrapper: ' || 'Expected error in Pto_Ato_Config_Wrapper. Last stmt executed is ..'||to_char(l_stmt_no),2);
2705: END IF;
2706: CTO_MSG_PUB.count_and_get(p_msg_count => X_Msg_Count,
2707: p_msg_Data => X_Msg_Data);
2708:
2708:
2709: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2711: IF PG_DEBUG <> 0 THEN
2712: oe_debug_pub.add('Pto_Ato_Config_Wrapper: ' || 'UnExpected error in Pto_Ato_Config_Wrapper. Last stmt executed is ..'||to_char(l_stmt_no),2);
2713: END IF;
2714: CTO_MSG_PUB.count_and_get(p_msg_count => X_Msg_Count,
2715: p_msg_Data => X_Msg_Data);
2716:
2716:
2717: WHEN OTHERS THEN
2718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2719: IF PG_DEBUG <> 0 THEN
2720: oe_debug_pub.add('Pto_Ato_Config_Wrapper: ' || 'OTHERS excpn in Pto_Ato_Config_Wrapper. Last stmt executed is ..'||to_char(l_stmt_no),2);
2721:
2722: oe_debug_pub.add('Pto_Ato_Config_Wrapper: ' || 'Error Message is : '||sqlerrm);
2723: END IF;
2724: CTO_MSG_PUB.count_and_get(p_msg_count => X_Msg_Count,
2718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2719: IF PG_DEBUG <> 0 THEN
2720: oe_debug_pub.add('Pto_Ato_Config_Wrapper: ' || 'OTHERS excpn in Pto_Ato_Config_Wrapper. Last stmt executed is ..'||to_char(l_stmt_no),2);
2721:
2722: oe_debug_pub.add('Pto_Ato_Config_Wrapper: ' || 'Error Message is : '||sqlerrm);
2723: END IF;
2724: CTO_MSG_PUB.count_and_get(p_msg_count => X_Msg_Count,
2725: p_msg_Data => X_Msg_Data);
2726: END Pto_Ato_Config_Wrapper;
2746: and item_id = p_item_id
2747: and process_flag is null;
2748:
2749: IF PG_DEBUG <> 0 THEN
2750: oe_debug_pub.add('req_interface_rec_exists: ' || 'interface record exists for the line', 5);
2751: END IF;
2752:
2753: return TRUE;
2754:
2755: Exception
2756:
2757: when no_data_found then
2758: IF PG_DEBUG <> 0 THEN
2759: oe_debug_pub.add('req_interface_rec_exists: ' || 'interface record does not exist for the line', 1);
2760: END IF;
2761: return FALSE;
2762:
2763: when others then
2762:
2763: when others then
2764: x_return_status := fnd_api.g_ret_sts_unexp_error;
2765: IF PG_DEBUG <> 0 THEN
2766: oe_debug_pub.add('req_interface_rec_exists: ' || 'When others exception ..' || sqlerrm, 1);
2767: END IF;
2768: return FALSE;
2769:
2770: End req_interface_rec_exists;
2798: Where interface_source_line_id = p_line_id
2799: and item_id = p_item_id;
2800:
2801: IF PG_DEBUG <> 0 THEN
2802: oe_debug_pub.add('delete_from_req_interface: ' || 'Processed interface record deletion. exiting...', 5);
2803: END IF;
2804:
2805: Exception
2806:
2805: Exception
2806:
2807: when FND_API.G_EXC_ERROR THEN
2808: IF PG_DEBUG <> 0 THEN
2809: oe_debug_pub.add('delete_from_req_interface: ' || 'expected error: ' || sqlerrm, 1);
2810: END IF;
2811: x_return_status := FND_API.G_RET_STS_ERROR;
2812:
2813: when FND_API.G_EXC_UNEXPECTED_ERROR then
2811: x_return_status := FND_API.G_RET_STS_ERROR;
2812:
2813: when FND_API.G_EXC_UNEXPECTED_ERROR then
2814: IF PG_DEBUG <> 0 THEN
2815: oe_debug_pub.add('delete_from_req_interface: ' || 'unexpected error: ' || sqlerrm, 1);
2816: END IF;
2817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2818:
2819: when others then
2817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2818:
2819: when others then
2820: IF PG_DEBUG <> 0 THEN
2821: oe_debug_pub.add('delete_from_req_interface: ' || 'When others exception ..' || sqlerrm, 1);
2822: END IF;
2823: x_return_status := fnd_api.g_ret_sts_unexp_error;
2824:
2825: End delete_from_req_interface;
2843:
2844: x_return_status := FND_API.G_RET_STS_SUCCESS;
2845:
2846: IF PG_DEBUG <> 0 THEN
2847: oe_debug_pub.add('update_req_interface_rec: ' || 'Values passed in are as follows: ', 5);
2848: oe_debug_pub.add('update_req_interface_rec: ' || 'p_line_id = ' || p_line_id, 5);
2849: oe_debug_pub.add('update_req_interface_rec: ' || 'p_qty = ' || p_qty, 5);
2850: oe_debug_pub.add('update_req_interface_rec: ' || 'p_need_by_date = ' || p_need_by_date, 5);
2851: END IF;
2844: x_return_status := FND_API.G_RET_STS_SUCCESS;
2845:
2846: IF PG_DEBUG <> 0 THEN
2847: oe_debug_pub.add('update_req_interface_rec: ' || 'Values passed in are as follows: ', 5);
2848: oe_debug_pub.add('update_req_interface_rec: ' || 'p_line_id = ' || p_line_id, 5);
2849: oe_debug_pub.add('update_req_interface_rec: ' || 'p_qty = ' || p_qty, 5);
2850: oe_debug_pub.add('update_req_interface_rec: ' || 'p_need_by_date = ' || p_need_by_date, 5);
2851: END IF;
2852:
2845:
2846: IF PG_DEBUG <> 0 THEN
2847: oe_debug_pub.add('update_req_interface_rec: ' || 'Values passed in are as follows: ', 5);
2848: oe_debug_pub.add('update_req_interface_rec: ' || 'p_line_id = ' || p_line_id, 5);
2849: oe_debug_pub.add('update_req_interface_rec: ' || 'p_qty = ' || p_qty, 5);
2850: oe_debug_pub.add('update_req_interface_rec: ' || 'p_need_by_date = ' || p_need_by_date, 5);
2851: END IF;
2852:
2853: if p_qty is null and p_qty2 is null and p_need_by_date is null then
2846: IF PG_DEBUG <> 0 THEN
2847: oe_debug_pub.add('update_req_interface_rec: ' || 'Values passed in are as follows: ', 5);
2848: oe_debug_pub.add('update_req_interface_rec: ' || 'p_line_id = ' || p_line_id, 5);
2849: oe_debug_pub.add('update_req_interface_rec: ' || 'p_qty = ' || p_qty, 5);
2850: oe_debug_pub.add('update_req_interface_rec: ' || 'p_need_by_date = ' || p_need_by_date, 5);
2851: END IF;
2852:
2853: if p_qty is null and p_qty2 is null and p_need_by_date is null then
2854: IF PG_DEBUG <> 0 THEN
2851: END IF;
2852:
2853: if p_qty is null and p_qty2 is null and p_need_by_date is null then
2854: IF PG_DEBUG <> 0 THEN
2855: oe_debug_pub.add('update_req_interface_rec: ' || 'Both qty and date are null. Nothing to update. Simply returning ', 5);
2856: end if;
2857: return;
2858: end if;
2859:
2864: Where interface_source_line_id = p_line_id
2865: and item_id = p_item_id;
2866:
2867: IF PG_DEBUG <> 0 THEN
2868: oe_debug_pub.add('update_req_interface_rec: ' || 'Processed interface record update. Exiting...', 5);
2869: END IF;
2870:
2871: Exception
2872:
2872:
2873: when others then
2874: x_return_status := fnd_api.g_ret_sts_unexp_error;
2875: IF PG_DEBUG <> 0 THEN
2876: oe_debug_pub.add('update_req_interface_rec: ' || 'When others exception ..' || sqlerrm, 1);
2877: END IF;
2878:
2879: End update_req_interface_rec;
2880:
2912:
2913: x_return_status := FND_API.G_RET_STS_SUCCESS;
2914:
2915: IF PG_DEBUG <> 0 THEN
2916: oe_debug_pub.add('get_open_demand: ' || 'Values passed in are as follows: ', 5);
2917: oe_debug_pub.add('get_open_demand: ' || 'p_line_id = ' || p_line_id, 5);
2918: oe_debug_pub.add('get_open_demand: ' || 'p_order_qty = ' || p_order_qty, 5);
2919: oe_debug_pub.add('get_open_demand: ' || 'p_order_qty2 = ' || p_order_qty2, 5);
2920: END IF;
2913: x_return_status := FND_API.G_RET_STS_SUCCESS;
2914:
2915: IF PG_DEBUG <> 0 THEN
2916: oe_debug_pub.add('get_open_demand: ' || 'Values passed in are as follows: ', 5);
2917: oe_debug_pub.add('get_open_demand: ' || 'p_line_id = ' || p_line_id, 5);
2918: oe_debug_pub.add('get_open_demand: ' || 'p_order_qty = ' || p_order_qty, 5);
2919: oe_debug_pub.add('get_open_demand: ' || 'p_order_qty2 = ' || p_order_qty2, 5);
2920: END IF;
2921:
2914:
2915: IF PG_DEBUG <> 0 THEN
2916: oe_debug_pub.add('get_open_demand: ' || 'Values passed in are as follows: ', 5);
2917: oe_debug_pub.add('get_open_demand: ' || 'p_line_id = ' || p_line_id, 5);
2918: oe_debug_pub.add('get_open_demand: ' || 'p_order_qty = ' || p_order_qty, 5);
2919: oe_debug_pub.add('get_open_demand: ' || 'p_order_qty2 = ' || p_order_qty2, 5);
2920: END IF;
2921:
2922:
2915: IF PG_DEBUG <> 0 THEN
2916: oe_debug_pub.add('get_open_demand: ' || 'Values passed in are as follows: ', 5);
2917: oe_debug_pub.add('get_open_demand: ' || 'p_line_id = ' || p_line_id, 5);
2918: oe_debug_pub.add('get_open_demand: ' || 'p_order_qty = ' || p_order_qty, 5);
2919: oe_debug_pub.add('get_open_demand: ' || 'p_order_qty2 = ' || p_order_qty2, 5);
2920: END IF;
2921:
2922:
2923:
2942: );
2943:
2944: if x_return_status <> fnd_api.g_ret_sts_success then
2945: IF PG_DEBUG <> 0 THEN
2946: oe_debug_pub.add('get_open_demand: ' || 'exception from get_resv_qty_and_code call', 1);
2947: END IF;
2948: raise fnd_api.g_exc_unexpected_error;
2949: end if;
2950:
2986:
2987: END IF; --p_order_qty
2988:
2989: IF PG_DEBUG <> 0 THEN
2990: oe_debug_pub.add('get_open_demand: ' || 'supply qty = ' || l_supply_qty, 1);
2991: oe_debug_pub.add('get_open_demand: ' || 'open_demand = ' || x_open_demand, 1);
2992: END IF;
2993:
2994: --OPM
2987: END IF; --p_order_qty
2988:
2989: IF PG_DEBUG <> 0 THEN
2990: oe_debug_pub.add('get_open_demand: ' || 'supply qty = ' || l_supply_qty, 1);
2991: oe_debug_pub.add('get_open_demand: ' || 'open_demand = ' || x_open_demand, 1);
2992: END IF;
2993:
2994: --OPM
2995:
3025: END IF; --p_order_qty2
3026:
3027:
3028: IF PG_DEBUG <> 0 THEN
3029: oe_debug_pub.add('get_open_demand: ' || 'supply qty2 = ' || l_supply_qty2, 1);
3030: oe_debug_pub.add('get_open_demand: ' || 'open_demand2 = ' || x_open_demand2, 1);
3031: oe_debug_pub.add('get_open_demand: ' || 'Processing done. exiting...', 5);
3032: END IF;
3033:
3026:
3027:
3028: IF PG_DEBUG <> 0 THEN
3029: oe_debug_pub.add('get_open_demand: ' || 'supply qty2 = ' || l_supply_qty2, 1);
3030: oe_debug_pub.add('get_open_demand: ' || 'open_demand2 = ' || x_open_demand2, 1);
3031: oe_debug_pub.add('get_open_demand: ' || 'Processing done. exiting...', 5);
3032: END IF;
3033:
3034:
3027:
3028: IF PG_DEBUG <> 0 THEN
3029: oe_debug_pub.add('get_open_demand: ' || 'supply qty2 = ' || l_supply_qty2, 1);
3030: oe_debug_pub.add('get_open_demand: ' || 'open_demand2 = ' || x_open_demand2, 1);
3031: oe_debug_pub.add('get_open_demand: ' || 'Processing done. exiting...', 5);
3032: END IF;
3033:
3034:
3035:
3037:
3038: WHEN FND_API.G_EXC_ERROR THEN
3039: x_return_status := FND_API.G_RET_STS_ERROR;
3040: IF PG_DEBUG <> 0 THEN
3041: oe_debug_pub.add('get_open_demand: ' || 'Expected error. Last stmt executed is ..'|| to_char(lStmtNumber),1);
3042: END IF;
3043:
3044: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3043:
3044: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3046: IF PG_DEBUG <> 0 THEN
3047: oe_debug_pub.add('get_open_demand: ' || 'UnExpected error. Last stmt executed is ..'|| to_char(lStmtNumber),1);
3048: END IF;
3049:
3050: when others then
3051: x_return_status := fnd_api.g_ret_sts_unexp_error;
3049:
3050: when others then
3051: x_return_status := fnd_api.g_ret_sts_unexp_error;
3052: IF PG_DEBUG <> 0 THEN
3053: oe_debug_pub.add('get_open_demand: ' || 'When others exception ..' || sqlerrm, 1);
3054: END IF;
3055:
3056: End get_open_demand;
3057:
3086:
3087: x_return_status := FND_API.G_RET_STS_SUCCESS;
3088:
3089: IF PG_DEBUG <> 0 THEN
3090: oe_debug_pub.add('change_order_ato_req_item: ' || 'Inside procedure change_order_ato_req_item',5);
3091: END IF;
3092:
3093:
3094:
3107: if l_req_exists = FALSE then
3108:
3109: -- if no req record exists, no processing needed. just return.
3110: IF PG_DEBUG <> 0 THEN
3111: oe_debug_pub.add('change_order_ato_req_item: ' || 'Interface record does not exist. Nothing to update. Simply returning ', 5);
3112: end if;
3113:
3114: return;
3115:
3134: raise fnd_api.g_exc_unexpected_error;
3135: end if;
3136:
3137: IF PG_DEBUG <> 0 THEN
3138: oe_debug_pub.add('change_order_ato_req_item: ' || 'Either cancel or unschedule or config change. Interface record deleted. Returning ', 5);
3139: end if;
3140:
3141: return;
3142:
3203: raise fnd_api.g_exc_unexpected_error;
3204: end if;
3205:
3206: IF PG_DEBUG <> 0 THEN
3207: oe_debug_pub.add('change_order_ato_req_item: ' || 'No Open demand. Interface record deleted. Returning ', 5);
3208: end if;
3209:
3210: return;
3211:
3230:
3231:
3232:
3233: IF PG_DEBUG <> 0 THEN
3234: oe_debug_pub.add('change_order_ato_req_item: ' || 'Processing done. Exiting ', 5);
3235: end if;
3236:
3237:
3238:
3240:
3241: WHEN FND_API.G_EXC_ERROR THEN
3242: x_return_status := FND_API.G_RET_STS_ERROR;
3243: IF PG_DEBUG <> 0 THEN
3244: oe_debug_pub.add('change_order_ato_req_item: ' || 'Expected error. Last stmt executed is ..'|| to_char(lStmtNumber),1);
3245: END IF;
3246:
3247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3248: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3246:
3247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3248: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3249: IF PG_DEBUG <> 0 THEN
3250: oe_debug_pub.add('change_order_ato_req_item: ' || 'UnExpected error. Last stmt executed is ..'|| to_char(lStmtNumber),1);
3251: END IF;
3252:
3253: WHEN OTHERS THEN
3254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3252:
3253: WHEN OTHERS THEN
3254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3255: IF PG_DEBUG <> 0 THEN
3256: oe_debug_pub.add('change_order_ato_req_item: ' || 'OTHERS excpn. Last stmt executed is ..'|| to_char(lStmtNumber),1);
3257: oe_debug_pub.add('change_order_ato_req_item: ' || 'Error Message is : '|| sqlerrm, 1);
3258: END IF;
3259:
3260: END CHANGE_ORDER_ATO_REQ_ITEM;
3253: WHEN OTHERS THEN
3254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3255: IF PG_DEBUG <> 0 THEN
3256: oe_debug_pub.add('change_order_ato_req_item: ' || 'OTHERS excpn. Last stmt executed is ..'|| to_char(lStmtNumber),1);
3257: oe_debug_pub.add('change_order_ato_req_item: ' || 'Error Message is : '|| sqlerrm, 1);
3258: END IF;
3259:
3260: END CHANGE_ORDER_ATO_REQ_ITEM;
3261:
3343: WHERE
3344: line_id = pline_no;
3345:
3346: IF PG_DEBUG <> 0 THEN
3347: oe_debug_pub.add('GET_USER_NAME: pline_no :'|| pline_no,1);
3348: oe_debug_pub.add('GET_USER_NAME: l_header_id :'|| l_header_id,1);
3349: oe_debug_pub.add('GET_USER_NAME: pConfigId :' || pConfigId,1);
3350: END IF;
3351:
3344: line_id = pline_no;
3345:
3346: IF PG_DEBUG <> 0 THEN
3347: oe_debug_pub.add('GET_USER_NAME: pline_no :'|| pline_no,1);
3348: oe_debug_pub.add('GET_USER_NAME: l_header_id :'|| l_header_id,1);
3349: oe_debug_pub.add('GET_USER_NAME: pConfigId :' || pConfigId,1);
3350: END IF;
3351:
3352: l_config_line_id := pline_no;
3345:
3346: IF PG_DEBUG <> 0 THEN
3347: oe_debug_pub.add('GET_USER_NAME: pline_no :'|| pline_no,1);
3348: oe_debug_pub.add('GET_USER_NAME: l_header_id :'|| l_header_id,1);
3349: oe_debug_pub.add('GET_USER_NAME: pConfigId :' || pConfigId,1);
3350: END IF;
3351:
3352: l_config_line_id := pline_no;
3353:
3352: l_config_line_id := pline_no;
3353:
3354: -- Get buyer info for PO
3355: IF PG_DEBUG <> 0 THEN
3356: oe_debug_pub.add('GET_USER_NAME: l_config_line_id :'|| l_config_line_id,1);
3357: END IF;
3358:
3359: OPEN get_buyer_from_po(l_config_line_id);
3360: FETCH get_buyer_from_po into lplanner_code;
3360: FETCH get_buyer_from_po into lplanner_code;
3361: CLOSE get_buyer_from_po;
3362:
3363: IF PG_DEBUG <> 0 THEN
3364: oe_debug_pub.add('GET_USER_NAME: lplanner_code (from PO):'|| lplanner_code,1);
3365: END IF;
3366:
3367: IF lplanner_code IS NULL THEN
3368: -- Get buyer info for PO Req Line
3371: CLOSE get_buyer_from_po_req_line;
3372: END IF;
3373:
3374: IF PG_DEBUG <> 0 THEN
3375: oe_debug_pub.add('GET_USER_NAME: lplanner_code (from PO req line) :'|| lplanner_code,1);
3376: oe_debug_pub.add('GET_USER_NAME: linv_item_id :'|| linv_item_id,1);
3377: oe_debug_pub.add('GET_USER_NAME: lship_org_id :'|| lship_org_id,1);
3378: END IF;
3379:
3372: END IF;
3373:
3374: IF PG_DEBUG <> 0 THEN
3375: oe_debug_pub.add('GET_USER_NAME: lplanner_code (from PO req line) :'|| lplanner_code,1);
3376: oe_debug_pub.add('GET_USER_NAME: linv_item_id :'|| linv_item_id,1);
3377: oe_debug_pub.add('GET_USER_NAME: lship_org_id :'|| lship_org_id,1);
3378: END IF;
3379:
3380: IF lplanner_code IS NULL THEN
3373:
3374: IF PG_DEBUG <> 0 THEN
3375: oe_debug_pub.add('GET_USER_NAME: lplanner_code (from PO req line) :'|| lplanner_code,1);
3376: oe_debug_pub.add('GET_USER_NAME: linv_item_id :'|| linv_item_id,1);
3377: oe_debug_pub.add('GET_USER_NAME: lship_org_id :'|| lship_org_id,1);
3378: END IF;
3379:
3380: IF lplanner_code IS NULL THEN
3381: -- Get buyer info for Org Item
3384: CLOSE get_buyer_user_name;
3385: END IF;
3386:
3387: IF PG_DEBUG <> 0 THEN
3388: oe_debug_pub.add('GET_USER_NAME: lplanner_code (From Org item) :'|| lplanner_code,1);
3389: END IF;
3390:
3391: return lplanner_code;
3392:
3392:
3393: EXCEPTION
3394: WHEN NO_DATA_FOUND THEN
3395: IF PG_DEBUG <> 0 THEN
3396: oe_debug_pub.add('GET_USER_NAME: ' || 'Buyer Not defined.. Defaulting to Sysadmin: ',2);
3397:
3398: oe_debug_pub.add('GET_USER_NAME: ' || 'Error Message : '||sqlerrm,2);
3399: END IF;
3400: return Null;
3394: WHEN NO_DATA_FOUND THEN
3395: IF PG_DEBUG <> 0 THEN
3396: oe_debug_pub.add('GET_USER_NAME: ' || 'Buyer Not defined.. Defaulting to Sysadmin: ',2);
3397:
3398: oe_debug_pub.add('GET_USER_NAME: ' || 'Error Message : '||sqlerrm,2);
3399: END IF;
3400: return Null;
3401:
3402: WHEN OTHERS THEN