377: BEGIN
378:
379: /* H. Wahdani removed format from v_last_update_date and placed a call to fnd_date.date_tocharDT */
380:
381: FND_FILE.NEW_LINE(FND_FILE.LOG, 2 );
382: FND_FILE.PUT_LINE(FND_FILE.LOG,
383: '------------------------------------------------------------------------');
384: FND_FILE.PUT_LINE(FND_FILE.LOG,
385: 'PO: ' ||v_po_no || 'Line: '||TO_CHAR(v_line_num) || ' Shipment:
378:
379: /* H. Wahdani removed format from v_last_update_date and placed a call to fnd_date.date_tocharDT */
380:
381: FND_FILE.NEW_LINE(FND_FILE.LOG, 2 );
382: FND_FILE.PUT_LINE(FND_FILE.LOG,
383: '------------------------------------------------------------------------');
384: FND_FILE.PUT_LINE(FND_FILE.LOG,
385: 'PO: ' ||v_po_no || 'Line: '||TO_CHAR(v_line_num) || ' Shipment:
386: '|| TO_CHAR(v_shipment_num)||' Revision: '||TO_CHAR(v_revision_count)|| ' Time:
380:
381: FND_FILE.NEW_LINE(FND_FILE.LOG, 2 );
382: FND_FILE.PUT_LINE(FND_FILE.LOG,
383: '------------------------------------------------------------------------');
384: FND_FILE.PUT_LINE(FND_FILE.LOG,
385: 'PO: ' ||v_po_no || 'Line: '||TO_CHAR(v_line_num) || ' Shipment:
386: '|| TO_CHAR(v_shipment_num)||' Revision: '||TO_CHAR(v_revision_count)|| ' Time:
387: '|| fnd_date.date_to_charDT(v_last_update_date));
388: FND_FILE.PUT_LINE(FND_FILE.LOG,
384: FND_FILE.PUT_LINE(FND_FILE.LOG,
385: 'PO: ' ||v_po_no || 'Line: '||TO_CHAR(v_line_num) || ' Shipment:
386: '|| TO_CHAR(v_shipment_num)||' Revision: '||TO_CHAR(v_revision_count)|| ' Time:
387: '|| fnd_date.date_to_charDT(v_last_update_date));
388: FND_FILE.PUT_LINE(FND_FILE.LOG,
389: '-------------------------------------------------------------------------');
390:
391: EXCEPTION
392:
593:
594: FND_MESSAGE.set_name('GML', 'PO_BAD_ORG');
595: FND_MESSAGE.set_token('v_orgn_code',v_orgn_code);
596: v_err_message := FND_MESSAGE.GET;
597: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
598: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
599: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
600: v_result := FALSE;
601: END IF;
594: FND_MESSAGE.set_name('GML', 'PO_BAD_ORG');
595: FND_MESSAGE.set_token('v_orgn_code',v_orgn_code);
596: v_err_message := FND_MESSAGE.GET;
597: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
598: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
599: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
600: v_result := FALSE;
601: END IF;
602:
595: FND_MESSAGE.set_token('v_orgn_code',v_orgn_code);
596: v_err_message := FND_MESSAGE.GET;
597: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
598: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
599: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
600: v_result := FALSE;
601: END IF;
602:
603:
612: FND_MESSAGE.set_name('GML', 'PO_BAD_PAY_VEND');
613: FND_MESSAGE.set_token('v_of_payvend_site_id',v_of_payvend_site_id);
614: v_err_message := FND_MESSAGE.GET;
615:
616: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
617: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
618: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
619:
620: v_result := FALSE;
613: FND_MESSAGE.set_token('v_of_payvend_site_id',v_of_payvend_site_id);
614: v_err_message := FND_MESSAGE.GET;
615:
616: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
617: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
618: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
619:
620: v_result := FALSE;
621: END IF;
614: v_err_message := FND_MESSAGE.GET;
615:
616: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
617: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
618: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
619:
620: v_result := FALSE;
621: END IF;
622:
630:
631: FND_MESSAGE.set_name('GML', 'PO_BAD_SHIP_VEND');
632: FND_MESSAGE.set_token('v_of_shipvend_site_id',v_of_shipvend_site_id);
633: v_err_message := FND_MESSAGE.GET;
634: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
635: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
636: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
637: v_result := FALSE;
638: END IF;
631: FND_MESSAGE.set_name('GML', 'PO_BAD_SHIP_VEND');
632: FND_MESSAGE.set_token('v_of_shipvend_site_id',v_of_shipvend_site_id);
633: v_err_message := FND_MESSAGE.GET;
634: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
635: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
636: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
637: v_result := FALSE;
638: END IF;
639:
632: FND_MESSAGE.set_token('v_of_shipvend_site_id',v_of_shipvend_site_id);
633: v_err_message := FND_MESSAGE.GET;
634: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
635: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
636: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
637: v_result := FALSE;
638: END IF;
639:
640: IF (v_to_whse IS NULL) OR (v_to_whse = ' ') OR
648:
649: FND_MESSAGE.set_name('GML', 'PO_BAD_TO_WHSE');
650: FND_MESSAGE.set_token('v_to_whse',v_to_whse);
651: v_err_message := FND_MESSAGE.GET;
652: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
653: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
654: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
655: v_result := FALSE;
656: END IF;
649: FND_MESSAGE.set_name('GML', 'PO_BAD_TO_WHSE');
650: FND_MESSAGE.set_token('v_to_whse',v_to_whse);
651: v_err_message := FND_MESSAGE.GET;
652: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
653: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
654: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
655: v_result := FALSE;
656: END IF;
657:
650: FND_MESSAGE.set_token('v_to_whse',v_to_whse);
651: v_err_message := FND_MESSAGE.GET;
652: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
653: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
654: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
655: v_result := FALSE;
656: END IF;
657:
658: IF (v_billing_currency IS NULL) OR (v_billing_currency = ' ') OR
665:
666: FND_MESSAGE.set_name('GML', 'PO_BAD_BILL_CURR');
667: FND_MESSAGE.set_token('v_billing_currency',v_billing_currency);
668: v_err_message := FND_MESSAGE.GET;
669: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
670: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
671: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
672: v_result := FALSE;
673:
666: FND_MESSAGE.set_name('GML', 'PO_BAD_BILL_CURR');
667: FND_MESSAGE.set_token('v_billing_currency',v_billing_currency);
668: v_err_message := FND_MESSAGE.GET;
669: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
670: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
671: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
672: v_result := FALSE;
673:
674: END IF;
667: FND_MESSAGE.set_token('v_billing_currency',v_billing_currency);
668: v_err_message := FND_MESSAGE.GET;
669: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
670: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
671: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
672: v_result := FALSE;
673:
674: END IF;
675:
683:
684: FND_MESSAGE.set_name('GML', 'PO_BAD_ITEM');
685: FND_MESSAGE.set_token('v_item_no',v_item_no);
686: v_err_message := FND_MESSAGE.GET;
687: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
688: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
689: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
690: v_result := FALSE;
691:
684: FND_MESSAGE.set_name('GML', 'PO_BAD_ITEM');
685: FND_MESSAGE.set_token('v_item_no',v_item_no);
686: v_err_message := FND_MESSAGE.GET;
687: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
688: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
689: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
690: v_result := FALSE;
691:
692: END IF;
685: FND_MESSAGE.set_token('v_item_no',v_item_no);
686: v_err_message := FND_MESSAGE.GET;
687: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
688: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
689: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
690: v_result := FALSE;
691:
692: END IF;
693:
701:
702: FND_MESSAGE.set_name('GML', 'PO_BAD_UM1');
703: FND_MESSAGE.set_token('v_order_um1',v_order_um1);
704: v_err_message := FND_MESSAGE.GET;
705: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
706: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
707: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
708: v_result := FALSE;
709:
702: FND_MESSAGE.set_name('GML', 'PO_BAD_UM1');
703: FND_MESSAGE.set_token('v_order_um1',v_order_um1);
704: v_err_message := FND_MESSAGE.GET;
705: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
706: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
707: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
708: v_result := FALSE;
709:
710: END IF;
703: FND_MESSAGE.set_token('v_order_um1',v_order_um1);
704: v_err_message := FND_MESSAGE.GET;
705: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
706: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
707: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
708: v_result := FALSE;
709:
710: END IF;
711:
719:
720: FND_MESSAGE.set_name('GML', 'PO_BAD_PRICE');
721: FND_MESSAGE.set_token('v_price_um',v_price_um);
722: v_err_message := FND_MESSAGE.GET;
723: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
724: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
725: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
726: v_result := FALSE;
727:
720: FND_MESSAGE.set_name('GML', 'PO_BAD_PRICE');
721: FND_MESSAGE.set_token('v_price_um',v_price_um);
722: v_err_message := FND_MESSAGE.GET;
723: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
724: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
725: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
726: v_result := FALSE;
727:
728: END IF;
721: FND_MESSAGE.set_token('v_price_um',v_price_um);
722: v_err_message := FND_MESSAGE.GET;
723: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
724: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
725: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
726: v_result := FALSE;
727:
728: END IF;
729:
739:
740: FND_MESSAGE.set_name('GML', 'PO_BAD_UM2');
741: FND_MESSAGE.set_token('v_order_um2',v_order_um2);
742: v_err_message := FND_MESSAGE.GET;
743: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
744: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
745: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
746: v_result := FALSE;
747:
740: FND_MESSAGE.set_name('GML', 'PO_BAD_UM2');
741: FND_MESSAGE.set_token('v_order_um2',v_order_um2);
742: v_err_message := FND_MESSAGE.GET;
743: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
744: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
745: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
746: v_result := FALSE;
747:
748: END IF;
741: FND_MESSAGE.set_token('v_order_um2',v_order_um2);
742: v_err_message := FND_MESSAGE.GET;
743: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
744: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
745: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
746: v_result := FALSE;
747:
748: END IF;
749:
757:
758: FND_MESSAGE.set_name('GML', 'PO_BAD_ITEM_UM');
759: FND_MESSAGE.set_token('v_item_um',v_item_um);
760: v_err_message := FND_MESSAGE.GET;
761: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
762: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
763: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
764: v_result := FALSE;
765:
758: FND_MESSAGE.set_name('GML', 'PO_BAD_ITEM_UM');
759: FND_MESSAGE.set_token('v_item_um',v_item_um);
760: v_err_message := FND_MESSAGE.GET;
761: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
762: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
763: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
764: v_result := FALSE;
765:
766: END IF;
759: FND_MESSAGE.set_token('v_item_um',v_item_um);
760: v_err_message := FND_MESSAGE.GET;
761: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
762: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
763: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
764: v_result := FALSE;
765:
766: END IF;
767:
775:
776: FND_MESSAGE.set_name('GML', 'PO_BAD_FROM_WHSE');
777: FND_MESSAGE.set_token('v_from_whse',v_from_whse);
778: v_err_message := FND_MESSAGE.GET;
779: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
780: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
781: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
782: v_result := FALSE;
783:
776: FND_MESSAGE.set_name('GML', 'PO_BAD_FROM_WHSE');
777: FND_MESSAGE.set_token('v_from_whse',v_from_whse);
778: v_err_message := FND_MESSAGE.GET;
779: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
780: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
781: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
782: v_result := FALSE;
783:
784: END IF;
777: FND_MESSAGE.set_token('v_from_whse',v_from_whse);
778: v_err_message := FND_MESSAGE.GET;
779: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
780: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
781: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
782: v_result := FALSE;
783:
784: END IF;
785:
793:
794: FND_MESSAGE.set_name('GML', 'PO_BAD_SHIPPER');
795: FND_MESSAGE.set_token('v_shipper_code',v_shipper_code);
796: v_err_message := FND_MESSAGE.GET;
797: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
798: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
799: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
800: v_result := FALSE;
801:
794: FND_MESSAGE.set_name('GML', 'PO_BAD_SHIPPER');
795: FND_MESSAGE.set_token('v_shipper_code',v_shipper_code);
796: v_err_message := FND_MESSAGE.GET;
797: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
798: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
799: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
800: v_result := FALSE;
801:
802: END IF;
795: FND_MESSAGE.set_token('v_shipper_code',v_shipper_code);
796: v_err_message := FND_MESSAGE.GET;
797: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
798: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
799: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
800: v_result := FALSE;
801:
802: END IF;
803:
811:
812: FND_MESSAGE.set_name('GML', 'PO_BAD_FRTB');
813: FND_MESSAGE.set_token('v_of_frtbill_mthd',v_of_frtbill_mthd);
814: v_err_message := FND_MESSAGE.GET;
815: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
816: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
817: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
818: v_result := FALSE;
819:
812: FND_MESSAGE.set_name('GML', 'PO_BAD_FRTB');
813: FND_MESSAGE.set_token('v_of_frtbill_mthd',v_of_frtbill_mthd);
814: v_err_message := FND_MESSAGE.GET;
815: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
816: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
817: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
818: v_result := FALSE;
819:
820: END IF;
813: FND_MESSAGE.set_token('v_of_frtbill_mthd',v_of_frtbill_mthd);
814: v_err_message := FND_MESSAGE.GET;
815: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
816: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
817: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
818: v_result := FALSE;
819:
820: END IF;
821:
829:
830: FND_MESSAGE.set_name('GML', 'PO_BAD_TERMS');
831: FND_MESSAGE.set_token('v_of_terms_code',v_of_terms_code);
832: v_err_message := FND_MESSAGE.GET;
833: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
834: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
835: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
836: v_result := FALSE;
837:
830: FND_MESSAGE.set_name('GML', 'PO_BAD_TERMS');
831: FND_MESSAGE.set_token('v_of_terms_code',v_of_terms_code);
832: v_err_message := FND_MESSAGE.GET;
833: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
834: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
835: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
836: v_result := FALSE;
837:
838: END IF;
831: FND_MESSAGE.set_token('v_of_terms_code',v_of_terms_code);
832: v_err_message := FND_MESSAGE.GET;
833: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
834: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
835: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
836: v_result := FALSE;
837:
838: END IF;
839:
849:
850: FND_MESSAGE.set_name('GML', 'PO_BAD_QC');
851: FND_MESSAGE.set_token('v_qc_grade_wanted',v_qc_grade_wanted);
852: v_err_message := FND_MESSAGE.GET;
853: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
854: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
855: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
856: v_result := FALSE;
857:
850: FND_MESSAGE.set_name('GML', 'PO_BAD_QC');
851: FND_MESSAGE.set_token('v_qc_grade_wanted',v_qc_grade_wanted);
852: v_err_message := FND_MESSAGE.GET;
853: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
854: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
855: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
856: v_result := FALSE;
857:
858: END IF;
851: FND_MESSAGE.set_token('v_qc_grade_wanted',v_qc_grade_wanted);
852: v_err_message := FND_MESSAGE.GET;
853: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
854: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
855: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
856: v_result := FALSE;
857:
858: END IF;
859:
1723: END IF;
1724:
1725: IF v_retval < 0 THEN
1726: IF int_rec.transaction_type IN('PLANNED','BLANKET') AND int_rec.release_num <> 0 THEN
1727: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1728: FND_FILE.PUT_LINE(FND_FILE.LOG,
1729: 'Inventory Calendar not set up for PO: '||int_rec.po_no||'-'||TO_CHAR(int_rec.release_num));
1730: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1731: ELSE
1724:
1725: IF v_retval < 0 THEN
1726: IF int_rec.transaction_type IN('PLANNED','BLANKET') AND int_rec.release_num <> 0 THEN
1727: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1728: FND_FILE.PUT_LINE(FND_FILE.LOG,
1729: 'Inventory Calendar not set up for PO: '||int_rec.po_no||'-'||TO_CHAR(int_rec.release_num));
1730: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1731: ELSE
1732: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1726: IF int_rec.transaction_type IN('PLANNED','BLANKET') AND int_rec.release_num <> 0 THEN
1727: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1728: FND_FILE.PUT_LINE(FND_FILE.LOG,
1729: 'Inventory Calendar not set up for PO: '||int_rec.po_no||'-'||TO_CHAR(int_rec.release_num));
1730: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1731: ELSE
1732: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1733: FND_FILE.PUT_LINE(FND_FILE.LOG,'Inventory Calendar not set up for PO: '|| int_rec.po_no);
1734: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1728: FND_FILE.PUT_LINE(FND_FILE.LOG,
1729: 'Inventory Calendar not set up for PO: '||int_rec.po_no||'-'||TO_CHAR(int_rec.release_num));
1730: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1731: ELSE
1732: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1733: FND_FILE.PUT_LINE(FND_FILE.LOG,'Inventory Calendar not set up for PO: '|| int_rec.po_no);
1734: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1735: END IF;
1736:
1729: 'Inventory Calendar not set up for PO: '||int_rec.po_no||'-'||TO_CHAR(int_rec.release_num));
1730: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1731: ELSE
1732: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1733: FND_FILE.PUT_LINE(FND_FILE.LOG,'Inventory Calendar not set up for PO: '|| int_rec.po_no);
1734: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1735: END IF;
1736:
1737: /* Bug#1274130 */
1730: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1731: ELSE
1732: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1733: FND_FILE.PUT_LINE(FND_FILE.LOG,'Inventory Calendar not set up for PO: '|| int_rec.po_no);
1734: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1735: END IF;
1736:
1737: /* Bug#1274130 */
1738:
1738:
1739: IF v_retval = -21 THEN /* Fiscal Yr and Fiscal Yr beginning date
1740: not found. */
1741: FND_MESSAGE.SET_NAME('GMI','INVCAL_FISCALYR_ERR');
1742: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1743: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1744:
1745: ELSIF v_retval = -22 THEN /* Period end date and close indicator
1746: not found. */
1739: IF v_retval = -21 THEN /* Fiscal Yr and Fiscal Yr beginning date
1740: not found. */
1741: FND_MESSAGE.SET_NAME('GMI','INVCAL_FISCALYR_ERR');
1742: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1743: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1744:
1745: ELSIF v_retval = -22 THEN /* Period end date and close indicator
1746: not found. */
1747: FND_MESSAGE.SET_NAME('GMI','INVCAL_PERIOD_ERR');
1744:
1745: ELSIF v_retval = -22 THEN /* Period end date and close indicator
1746: not found. */
1747: FND_MESSAGE.SET_NAME('GMI','INVCAL_PERIOD_ERR');
1748: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1749: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1750:
1751: ELSIF v_retval = -23 THEN /* Date is within a closed Inventory
1752: calendar period */
1745: ELSIF v_retval = -22 THEN /* Period end date and close indicator
1746: not found. */
1747: FND_MESSAGE.SET_NAME('GMI','INVCAL_PERIOD_ERR');
1748: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1749: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1750:
1751: ELSIF v_retval = -23 THEN /* Date is within a closed Inventory
1752: calendar period */
1753: /*
1751: ELSIF v_retval = -23 THEN /* Date is within a closed Inventory
1752: calendar period */
1753: /*
1754: FND_MESSAGE.SET_NAME('GMI','INVCAL_CLOSED_PERIOD_ERR');
1755: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1756: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1757: */
1758: v_retval := 0;
1759:
1752: calendar period */
1753: /*
1754: FND_MESSAGE.SET_NAME('GMI','INVCAL_CLOSED_PERIOD_ERR');
1755: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1756: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1757: */
1758: v_retval := 0;
1759:
1760: ELSIF v_retval = -24 THEN /* Company Code not found. */
1759:
1760: ELSIF v_retval = -24 THEN /* Company Code not found. */
1761:
1762: FND_MESSAGE.SET_NAME('GMI','INVCAL_INVALIDCO_ERR');
1763: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1764: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1765:
1766: ELSIF v_retval = -25 THEN /* Warehouse has been closed for the period */
1767: /*
1760: ELSIF v_retval = -24 THEN /* Company Code not found. */
1761:
1762: FND_MESSAGE.SET_NAME('GMI','INVCAL_INVALIDCO_ERR');
1763: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1764: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1765:
1766: ELSIF v_retval = -25 THEN /* Warehouse has been closed for the period */
1767: /*
1768: FND_MESSAGE.SET_NAME('GMI','INVCAL_WHSE_CLOSED_ERR');
1765:
1766: ELSIF v_retval = -25 THEN /* Warehouse has been closed for the period */
1767: /*
1768: FND_MESSAGE.SET_NAME('GMI','INVCAL_WHSE_CLOSED_ERR');
1769: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1770: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1771: */
1772: v_retval := 0;
1773:
1766: ELSIF v_retval = -25 THEN /* Warehouse has been closed for the period */
1767: /*
1768: FND_MESSAGE.SET_NAME('GMI','INVCAL_WHSE_CLOSED_ERR');
1769: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1770: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1771: */
1772: v_retval := 0;
1773:
1774: ELSIF v_retval = -26 THEN /* Transaction not passed in as
1773:
1774: ELSIF v_retval = -26 THEN /* Transaction not passed in as
1775: a parameter.*/
1776: FND_MESSAGE.SET_NAME('GMI','INVCAL_TRANS_DATE_ERR');
1777: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1778: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1779:
1780: ELSIF v_retval = -27 THEN /* Organization code not passed as
1781: a parameter.*/
1774: ELSIF v_retval = -26 THEN /* Transaction not passed in as
1775: a parameter.*/
1776: FND_MESSAGE.SET_NAME('GMI','INVCAL_TRANS_DATE_ERR');
1777: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1778: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1779:
1780: ELSIF v_retval = -27 THEN /* Organization code not passed as
1781: a parameter.*/
1782: FND_MESSAGE.SET_NAME('GMI','INVCAL_INVALIDORGN_ERR');
1779:
1780: ELSIF v_retval = -27 THEN /* Organization code not passed as
1781: a parameter.*/
1782: FND_MESSAGE.SET_NAME('GMI','INVCAL_INVALIDORGN_ERR');
1783: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1784: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1785:
1786: ELSIF v_retval = -28 THEN /* Warehouse code not passed as
1787: a parameter.*/
1780: ELSIF v_retval = -27 THEN /* Organization code not passed as
1781: a parameter.*/
1782: FND_MESSAGE.SET_NAME('GMI','INVCAL_INVALIDORGN_ERR');
1783: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1784: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1785:
1786: ELSIF v_retval = -28 THEN /* Warehouse code not passed as
1787: a parameter.*/
1788: FND_MESSAGE.SET_NAME('GMI','INVCAL_WHSEPARM_ERR');
1785:
1786: ELSIF v_retval = -28 THEN /* Warehouse code not passed as
1787: a parameter.*/
1788: FND_MESSAGE.SET_NAME('GMI','INVCAL_WHSEPARM_ERR');
1789: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1790: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1791:
1792: ELSIF v_retval = -29 THEN /* Warehouse code is not found. */
1793:
1786: ELSIF v_retval = -28 THEN /* Warehouse code not passed as
1787: a parameter.*/
1788: FND_MESSAGE.SET_NAME('GMI','INVCAL_WHSEPARM_ERR');
1789: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1790: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1791:
1792: ELSIF v_retval = -29 THEN /* Warehouse code is not found. */
1793:
1794: FND_MESSAGE.SET_NAME('GMI','INVCAL_WHSE_ERR ');
1791:
1792: ELSIF v_retval = -29 THEN /* Warehouse code is not found. */
1793:
1794: FND_MESSAGE.SET_NAME('GMI','INVCAL_WHSE_ERR ');
1795: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1796: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1797:
1798: ELSIF v_retval < -29 THEN /* Log a general message */
1799: FND_MESSAGE.SET_NAME('GMI','INVCAL_GENL_ERR ');
1792: ELSIF v_retval = -29 THEN /* Warehouse code is not found. */
1793:
1794: FND_MESSAGE.SET_NAME('GMI','INVCAL_WHSE_ERR ');
1795: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1796: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1797:
1798: ELSIF v_retval < -29 THEN /* Log a general message */
1799: FND_MESSAGE.SET_NAME('GMI','INVCAL_GENL_ERR ');
1800: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1796: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1797:
1798: ELSIF v_retval < -29 THEN /* Log a general message */
1799: FND_MESSAGE.SET_NAME('GMI','INVCAL_GENL_ERR ');
1800: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1801: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1802:
1803: END IF;
1804:
1797:
1798: ELSIF v_retval < -29 THEN /* Log a general message */
1799: FND_MESSAGE.SET_NAME('GMI','INVCAL_GENL_ERR ');
1800: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
1801: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
1802:
1803: END IF;
1804:
1805: IF (v_retval NOT IN (-23, -25)) THEN
1996:
1997: GML_PO_SYNCH.next_po_id(v_new_po_id, v_doc_type, int_rec.orgn_code,
1998: v_next_id_status);
1999: IF v_next_id_status=FALSE THEN
2000: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2001: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error getting next po_id');
2002: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2003: err_num := SQLCODE;
2004: err_msg := SUBSTRB (SQLERRM, 1, 100);
1997: GML_PO_SYNCH.next_po_id(v_new_po_id, v_doc_type, int_rec.orgn_code,
1998: v_next_id_status);
1999: IF v_next_id_status=FALSE THEN
2000: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2001: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error getting next po_id');
2002: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2003: err_num := SQLCODE;
2004: err_msg := SUBSTRB (SQLERRM, 1, 100);
2005: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
1998: v_next_id_status);
1999: IF v_next_id_status=FALSE THEN
2000: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2001: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error getting next po_id');
2002: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2003: err_num := SQLCODE;
2004: err_msg := SUBSTRB (SQLERRM, 1, 100);
2005: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2006: retcode :=1;
2001: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error getting next po_id');
2002: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2003: err_num := SQLCODE;
2004: err_msg := SUBSTRB (SQLERRM, 1, 100);
2005: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2006: retcode :=1;
2007: raise_application_error(-20001, err_msg);
2008: END IF;
2009:
2148: attr_hdr_rec.attribute14
2149: );
2150: EXCEPTION
2151: WHEN OTHERS THEN
2152: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2153: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error inserting into po_ordr_hdr')
2154: ;
2155: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2156: err_num := SQLCODE;
2149: );
2150: EXCEPTION
2151: WHEN OTHERS THEN
2152: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2153: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error inserting into po_ordr_hdr')
2154: ;
2155: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2156: err_num := SQLCODE;
2157: err_msg := SUBSTRB (SQLERRM, 1, 100);
2151: WHEN OTHERS THEN
2152: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2153: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error inserting into po_ordr_hdr')
2154: ;
2155: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2156: err_num := SQLCODE;
2157: err_msg := SUBSTRB (SQLERRM, 1, 100);
2158: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2159: retcode :=1;
2154: ;
2155: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2156: err_num := SQLCODE;
2157: err_msg := SUBSTRB (SQLERRM, 1, 100);
2158: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2159: retcode :=1;
2160: raise_application_error(-20001, err_msg);
2161: END;
2162: END;
2223: /* insert the line location information*/
2224:
2225: GML_PO_SYNCH.next_line_id('PO', v_new_line_id, v_next_id_status);
2226: IF (v_next_id_status=FALSE) THEN
2227: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2228: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error getting next line_id');
2229: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2230: err_num := SQLCODE;
2231: err_msg := SUBSTRB (SQLERRM, 1, 100);
2224:
2225: GML_PO_SYNCH.next_line_id('PO', v_new_line_id, v_next_id_status);
2226: IF (v_next_id_status=FALSE) THEN
2227: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2228: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error getting next line_id');
2229: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2230: err_num := SQLCODE;
2231: err_msg := SUBSTRB (SQLERRM, 1, 100);
2232: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2225: GML_PO_SYNCH.next_line_id('PO', v_new_line_id, v_next_id_status);
2226: IF (v_next_id_status=FALSE) THEN
2227: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2228: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error getting next line_id');
2229: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2230: err_num := SQLCODE;
2231: err_msg := SUBSTRB (SQLERRM, 1, 100);
2232: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2233: retcode :=1;
2228: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error getting next line_id');
2229: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2230: err_num := SQLCODE;
2231: err_msg := SUBSTRB (SQLERRM, 1, 100);
2232: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2233: retcode :=1;
2234: raise_application_error(-20001, err_msg);
2235: END IF;
2236:
2407: attr_dtl_rec.attribute15
2408: );
2409: EXCEPTION
2410: WHEN OTHERS THEN
2411: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2412: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error inserting into po_ordr_dtl');
2413: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2414: err_num := SQLCODE;
2415: err_msg := SUBSTRB (SQLERRM, 1, 100);
2408: );
2409: EXCEPTION
2410: WHEN OTHERS THEN
2411: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2412: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error inserting into po_ordr_dtl');
2413: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2414: err_num := SQLCODE;
2415: err_msg := SUBSTRB (SQLERRM, 1, 100);
2416: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2409: EXCEPTION
2410: WHEN OTHERS THEN
2411: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2412: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error inserting into po_ordr_dtl');
2413: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2414: err_num := SQLCODE;
2415: err_msg := SUBSTRB (SQLERRM, 1, 100);
2416: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2417: retcode :=1;
2412: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error inserting into po_ordr_dtl');
2413: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2414: err_num := SQLCODE;
2415: err_msg := SUBSTRB (SQLERRM, 1, 100);
2416: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2417: retcode :=1;
2418: raise_application_error(-20001, err_msg);
2419: END;
2420: /* END BUG#1731582 */
2432: last_update_login = int_rec.last_update_login /* LE 26/AUG/98 NULL OK*/
2433: WHERE bpo_id = v_bpo_id;
2434: EXCEPTION
2435: WHEN OTHERS THEN
2436: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2437: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_bpos_hdr');
2438: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2439: err_num := SQLCODE;
2440: err_msg := SUBSTRB (SQLERRM, 1, 100);
2433: WHERE bpo_id = v_bpo_id;
2434: EXCEPTION
2435: WHEN OTHERS THEN
2436: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2437: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_bpos_hdr');
2438: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2439: err_num := SQLCODE;
2440: err_msg := SUBSTRB (SQLERRM, 1, 100);
2441: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2434: EXCEPTION
2435: WHEN OTHERS THEN
2436: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2437: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_bpos_hdr');
2438: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2439: err_num := SQLCODE;
2440: err_msg := SUBSTRB (SQLERRM, 1, 100);
2441: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2442: retcode :=1;
2437: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_bpos_hdr');
2438: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2439: err_num := SQLCODE;
2440: err_msg := SUBSTRB (SQLERRM, 1, 100);
2441: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2442: retcode :=1;
2443: raise_application_error(-20001, err_msg);
2444: END;
2445:
2453: WHERE bpo_id = v_bpo_id
2454: AND line_id = v_bpo_line_id;
2455: EXCEPTION
2456: WHEN OTHERS THEN
2457: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2458: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_bpos_dtl');
2459: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2460: err_num := SQLCODE;
2461: err_msg := SUBSTRB (SQLERRM, 1, 100);
2454: AND line_id = v_bpo_line_id;
2455: EXCEPTION
2456: WHEN OTHERS THEN
2457: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2458: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_bpos_dtl');
2459: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2460: err_num := SQLCODE;
2461: err_msg := SUBSTRB (SQLERRM, 1, 100);
2462: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2455: EXCEPTION
2456: WHEN OTHERS THEN
2457: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2458: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_bpos_dtl');
2459: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2460: err_num := SQLCODE;
2461: err_msg := SUBSTRB (SQLERRM, 1, 100);
2462: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2463: retcode :=1;
2458: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_bpos_dtl');
2459: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2460: err_num := SQLCODE;
2461: err_msg := SUBSTRB (SQLERRM, 1, 100);
2462: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2463: retcode :=1;
2464: raise_application_error(-20001, err_msg);
2465: END;
2466:
2476: CLOSE co_code_cur;
2477:
2478: GML_PO_SYNCH.next_trans_id(v_new_trans_id, v_next_id_status);
2479: IF v_next_id_status=FALSE THEN
2480: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2481: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error getting next trans_id');
2482: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2483: err_num := SQLCODE;
2484: err_msg := SUBSTRB (SQLERRM, 1, 100);
2477:
2478: GML_PO_SYNCH.next_trans_id(v_new_trans_id, v_next_id_status);
2479: IF v_next_id_status=FALSE THEN
2480: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2481: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error getting next trans_id');
2482: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2483: err_num := SQLCODE;
2484: err_msg := SUBSTRB (SQLERRM, 1, 100);
2485: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2478: GML_PO_SYNCH.next_trans_id(v_new_trans_id, v_next_id_status);
2479: IF v_next_id_status=FALSE THEN
2480: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2481: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error getting next trans_id');
2482: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2483: err_num := SQLCODE;
2484: err_msg := SUBSTRB (SQLERRM, 1, 100);
2485: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2486: retcode :=1;
2481: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error getting next trans_id');
2482: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2483: err_num := SQLCODE;
2484: err_msg := SUBSTRB (SQLERRM, 1, 100);
2485: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2486: retcode :=1;
2487: raise_application_error(-20001, err_msg);
2488: END IF;
2489:
2564: );
2565:
2566: EXCEPTION
2567: WHEN OTHERS THEN
2568: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2569: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error inserting into ic_tran_pnd');
2570: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2571: err_num := SQLCODE;
2572: err_msg := SUBSTRB (SQLERRM, 1, 100);
2565:
2566: EXCEPTION
2567: WHEN OTHERS THEN
2568: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2569: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error inserting into ic_tran_pnd');
2570: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2571: err_num := SQLCODE;
2572: err_msg := SUBSTRB (SQLERRM, 1, 100);
2573: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2566: EXCEPTION
2567: WHEN OTHERS THEN
2568: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2569: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error inserting into ic_tran_pnd');
2570: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2571: err_num := SQLCODE;
2572: err_msg := SUBSTRB (SQLERRM, 1, 100);
2573: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2574: /** MC BUG# 1360002**/
2569: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error inserting into ic_tran_pnd');
2570: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2571: err_num := SQLCODE;
2572: err_msg := SUBSTRB (SQLERRM, 1, 100);
2573: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2574: /** MC BUG# 1360002**/
2575: /** removed the comment from the below 2 lines **/
2576: retcode :=1;
2577: raise_application_error(-20001, err_msg);
2638:
2639:
2640: EXCEPTION
2641: WHEN OTHERS THEN
2642: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2643: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating ic_summ_inv');
2644: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2645: err_num := SQLCODE;
2646: err_msg := SUBSTRB (SQLERRM, 1, 100);
2639:
2640: EXCEPTION
2641: WHEN OTHERS THEN
2642: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2643: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating ic_summ_inv');
2644: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2645: err_num := SQLCODE;
2646: err_msg := SUBSTRB (SQLERRM, 1, 100);
2647: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2640: EXCEPTION
2641: WHEN OTHERS THEN
2642: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2643: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating ic_summ_inv');
2644: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2645: err_num := SQLCODE;
2646: err_msg := SUBSTRB (SQLERRM, 1, 100);
2647: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2648: retcode :=1;
2643: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating ic_summ_inv');
2644: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2645: err_num := SQLCODE;
2646: err_msg := SUBSTRB (SQLERRM, 1, 100);
2647: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2648: retcode :=1;
2649: raise_application_error(-20001, err_msg);
2650: END; /* update ic_summ_inv*/
2651:
2663: v_doc_type,
2664: v_aqcst_status);
2665:
2666: IF v_aqcst_status=FALSE THEN
2667: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2668: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error with cpg_aqcst_mv procedure');
2669: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2670: FND_FILE.PUT_LINE(FND_FILE.LOG,'po_header_id='|| int_rec.po_header_id
2671: );
2664: v_aqcst_status);
2665:
2666: IF v_aqcst_status=FALSE THEN
2667: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2668: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error with cpg_aqcst_mv procedure');
2669: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2670: FND_FILE.PUT_LINE(FND_FILE.LOG,'po_header_id='|| int_rec.po_header_id
2671: );
2672: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2665:
2666: IF v_aqcst_status=FALSE THEN
2667: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2668: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error with cpg_aqcst_mv procedure');
2669: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2670: FND_FILE.PUT_LINE(FND_FILE.LOG,'po_header_id='|| int_rec.po_header_id
2671: );
2672: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2673: FND_FILE.PUT_LINE(FND_FILE.LOG,'po_line_id='|| int_rec.po_line_id);
2666: IF v_aqcst_status=FALSE THEN
2667: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2668: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error with cpg_aqcst_mv procedure');
2669: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2670: FND_FILE.PUT_LINE(FND_FILE.LOG,'po_header_id='|| int_rec.po_header_id
2671: );
2672: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2673: FND_FILE.PUT_LINE(FND_FILE.LOG,'po_line_id='|| int_rec.po_line_id);
2674: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2668: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error with cpg_aqcst_mv procedure');
2669: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2670: FND_FILE.PUT_LINE(FND_FILE.LOG,'po_header_id='|| int_rec.po_header_id
2671: );
2672: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2673: FND_FILE.PUT_LINE(FND_FILE.LOG,'po_line_id='|| int_rec.po_line_id);
2674: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2675: FND_FILE.PUT_LINE(FND_FILE.LOG,'lineloc_id='|| int_rec.po_line_location_id);
2676: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2669: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2670: FND_FILE.PUT_LINE(FND_FILE.LOG,'po_header_id='|| int_rec.po_header_id
2671: );
2672: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2673: FND_FILE.PUT_LINE(FND_FILE.LOG,'po_line_id='|| int_rec.po_line_id);
2674: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2675: FND_FILE.PUT_LINE(FND_FILE.LOG,'lineloc_id='|| int_rec.po_line_location_id);
2676: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2677: FND_FILE.PUT_LINE(FND_FILE.LOG,'po_id=' || v_po_id);
2670: FND_FILE.PUT_LINE(FND_FILE.LOG,'po_header_id='|| int_rec.po_header_id
2671: );
2672: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2673: FND_FILE.PUT_LINE(FND_FILE.LOG,'po_line_id='|| int_rec.po_line_id);
2674: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2675: FND_FILE.PUT_LINE(FND_FILE.LOG,'lineloc_id='|| int_rec.po_line_location_id);
2676: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2677: FND_FILE.PUT_LINE(FND_FILE.LOG,'po_id=' || v_po_id);
2678: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2671: );
2672: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2673: FND_FILE.PUT_LINE(FND_FILE.LOG,'po_line_id='|| int_rec.po_line_id);
2674: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2675: FND_FILE.PUT_LINE(FND_FILE.LOG,'lineloc_id='|| int_rec.po_line_location_id);
2676: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2677: FND_FILE.PUT_LINE(FND_FILE.LOG,'po_id=' || v_po_id);
2678: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2679: FND_FILE.PUT_LINE(FND_FILE.LOG,'new_line_id=' || v_new_line_id);
2672: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2673: FND_FILE.PUT_LINE(FND_FILE.LOG,'po_line_id='|| int_rec.po_line_id);
2674: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2675: FND_FILE.PUT_LINE(FND_FILE.LOG,'lineloc_id='|| int_rec.po_line_location_id);
2676: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2677: FND_FILE.PUT_LINE(FND_FILE.LOG,'po_id=' || v_po_id);
2678: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2679: FND_FILE.PUT_LINE(FND_FILE.LOG,'new_line_id=' || v_new_line_id);
2680: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2673: FND_FILE.PUT_LINE(FND_FILE.LOG,'po_line_id='|| int_rec.po_line_id);
2674: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2675: FND_FILE.PUT_LINE(FND_FILE.LOG,'lineloc_id='|| int_rec.po_line_location_id);
2676: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2677: FND_FILE.PUT_LINE(FND_FILE.LOG,'po_id=' || v_po_id);
2678: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2679: FND_FILE.PUT_LINE(FND_FILE.LOG,'new_line_id=' || v_new_line_id);
2680: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2681: FND_FILE.PUT_LINE(FND_FILE.LOG,'doc_type=' || v_doc_type);
2674: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2675: FND_FILE.PUT_LINE(FND_FILE.LOG,'lineloc_id='|| int_rec.po_line_location_id);
2676: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2677: FND_FILE.PUT_LINE(FND_FILE.LOG,'po_id=' || v_po_id);
2678: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2679: FND_FILE.PUT_LINE(FND_FILE.LOG,'new_line_id=' || v_new_line_id);
2680: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2681: FND_FILE.PUT_LINE(FND_FILE.LOG,'doc_type=' || v_doc_type);
2682: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2675: FND_FILE.PUT_LINE(FND_FILE.LOG,'lineloc_id='|| int_rec.po_line_location_id);
2676: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2677: FND_FILE.PUT_LINE(FND_FILE.LOG,'po_id=' || v_po_id);
2678: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2679: FND_FILE.PUT_LINE(FND_FILE.LOG,'new_line_id=' || v_new_line_id);
2680: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2681: FND_FILE.PUT_LINE(FND_FILE.LOG,'doc_type=' || v_doc_type);
2682: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2683: err_num := SQLCODE;
2676: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2677: FND_FILE.PUT_LINE(FND_FILE.LOG,'po_id=' || v_po_id);
2678: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2679: FND_FILE.PUT_LINE(FND_FILE.LOG,'new_line_id=' || v_new_line_id);
2680: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2681: FND_FILE.PUT_LINE(FND_FILE.LOG,'doc_type=' || v_doc_type);
2682: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2683: err_num := SQLCODE;
2684: err_msg := SUBSTRB (SQLERRM, 1, 100);
2677: FND_FILE.PUT_LINE(FND_FILE.LOG,'po_id=' || v_po_id);
2678: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2679: FND_FILE.PUT_LINE(FND_FILE.LOG,'new_line_id=' || v_new_line_id);
2680: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2681: FND_FILE.PUT_LINE(FND_FILE.LOG,'doc_type=' || v_doc_type);
2682: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2683: err_num := SQLCODE;
2684: err_msg := SUBSTRB (SQLERRM, 1, 100);
2685: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2678: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2679: FND_FILE.PUT_LINE(FND_FILE.LOG,'new_line_id=' || v_new_line_id);
2680: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2681: FND_FILE.PUT_LINE(FND_FILE.LOG,'doc_type=' || v_doc_type);
2682: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2683: err_num := SQLCODE;
2684: err_msg := SUBSTRB (SQLERRM, 1, 100);
2685: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2686: retcode :=1;
2681: FND_FILE.PUT_LINE(FND_FILE.LOG,'doc_type=' || v_doc_type);
2682: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2683: err_num := SQLCODE;
2684: err_msg := SUBSTRB (SQLERRM, 1, 100);
2685: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2686: retcode :=1;
2687: raise_application_error(-20001, err_msg);
2688: END IF;
2689:
2699: WHERE po_id = v_po_id;
2700: /* END BUG#2041468 */
2701: EXCEPTION
2702: WHEN OTHERS THEN
2703: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2704: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating status in po_ordr_hdr');
2705: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2706: err_num := SQLCODE;
2707: err_msg := SUBSTRB (SQLERRM, 1, 100);
2700: /* END BUG#2041468 */
2701: EXCEPTION
2702: WHEN OTHERS THEN
2703: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2704: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating status in po_ordr_hdr');
2705: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2706: err_num := SQLCODE;
2707: err_msg := SUBSTRB (SQLERRM, 1, 100);
2708: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2701: EXCEPTION
2702: WHEN OTHERS THEN
2703: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2704: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating status in po_ordr_hdr');
2705: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2706: err_num := SQLCODE;
2707: err_msg := SUBSTRB (SQLERRM, 1, 100);
2708: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2709: retcode :=1;
2704: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating status in po_ordr_hdr');
2705: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2706: err_num := SQLCODE;
2707: err_msg := SUBSTRB (SQLERRM, 1, 100);
2708: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2709: retcode :=1;
2710: raise_application_error(-20001, err_msg);
2711: END;
2712:
2718: AND po_line_id = int_rec.po_line_id
2719: AND po_line_location_id = int_rec.po_line_location_id;
2720: EXCEPTION
2721: WHEN OTHERS THEN
2722: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2723: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating cpg_oragems_mapping
2724: ');
2725: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2726: err_num := SQLCODE;
2719: AND po_line_location_id = int_rec.po_line_location_id;
2720: EXCEPTION
2721: WHEN OTHERS THEN
2722: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2723: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating cpg_oragems_mapping
2724: ');
2725: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2726: err_num := SQLCODE;
2727: err_msg := SUBSTRB (SQLERRM, 1, 100);
2721: WHEN OTHERS THEN
2722: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2723: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating cpg_oragems_mapping
2724: ');
2725: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2726: err_num := SQLCODE;
2727: err_msg := SUBSTRB (SQLERRM, 1, 100);
2728: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2729: retcode :=1;
2724: ');
2725: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2726: err_num := SQLCODE;
2727: err_msg := SUBSTRB (SQLERRM, 1, 100);
2728: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2729: retcode :=1;
2730: raise_application_error(-20001, err_msg);
2731: END;
2732:
2755: v_acct_map_ind := 1;
2756: ELSIF v_map_retcode = 1 THEN
2757: FND_MESSAGE.SET_NAME ('GML', 'PO_ACCT_NOT_DEFINED');
2758: v_err_message := FND_MESSAGE.GET;
2759: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2760: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
2761: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2762: retcode :=1;
2763: ELSIF v_map_retcode = 2 THEN
2756: ELSIF v_map_retcode = 1 THEN
2757: FND_MESSAGE.SET_NAME ('GML', 'PO_ACCT_NOT_DEFINED');
2758: v_err_message := FND_MESSAGE.GET;
2759: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2760: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
2761: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2762: retcode :=1;
2763: ELSIF v_map_retcode = 2 THEN
2764: FND_MESSAGE.SET_NAME ('GMF', 'GL_NO_ACCTG_MAP2');
2757: FND_MESSAGE.SET_NAME ('GML', 'PO_ACCT_NOT_DEFINED');
2758: v_err_message := FND_MESSAGE.GET;
2759: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2760: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
2761: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2762: retcode :=1;
2763: ELSIF v_map_retcode = 2 THEN
2764: FND_MESSAGE.SET_NAME ('GMF', 'GL_NO_ACCTG_MAP2');
2765: FND_MESSAGE.SET_TOKEN ('S1', int_rec.orgn_code );
2765: FND_MESSAGE.SET_TOKEN ('S1', int_rec.orgn_code );
2766: FND_MESSAGE.SET_TOKEN ('S2', int_rec.orgn_code );
2767: FND_MESSAGE.SET_TOKEN ('S3', int_rec.to_whse );
2768: v_err_message := FND_MESSAGE.GET;
2769: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2770: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
2771: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2772: retcode :=1;
2773: ELSIF v_map_retcode = 3 THEN
2766: FND_MESSAGE.SET_TOKEN ('S2', int_rec.orgn_code );
2767: FND_MESSAGE.SET_TOKEN ('S3', int_rec.to_whse );
2768: v_err_message := FND_MESSAGE.GET;
2769: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2770: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
2771: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2772: retcode :=1;
2773: ELSIF v_map_retcode = 3 THEN
2774: FND_MESSAGE.SET_NAME ('GMF', 'GL_INVALID_FISCAL_YEAR_PERIOD');
2767: FND_MESSAGE.SET_TOKEN ('S3', int_rec.to_whse );
2768: v_err_message := FND_MESSAGE.GET;
2769: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2770: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
2771: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2772: retcode :=1;
2773: ELSIF v_map_retcode = 3 THEN
2774: FND_MESSAGE.SET_NAME ('GMF', 'GL_INVALID_FISCAL_YEAR_PERIOD');
2775: v_err_message := FND_MESSAGE.GET;
2772: retcode :=1;
2773: ELSIF v_map_retcode = 3 THEN
2774: FND_MESSAGE.SET_NAME ('GMF', 'GL_INVALID_FISCAL_YEAR_PERIOD');
2775: v_err_message := FND_MESSAGE.GET;
2776: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2777: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
2778: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2779: retcode :=1;
2780: ELSIF v_map_retcode = 4 THEN
2773: ELSIF v_map_retcode = 3 THEN
2774: FND_MESSAGE.SET_NAME ('GMF', 'GL_INVALID_FISCAL_YEAR_PERIOD');
2775: v_err_message := FND_MESSAGE.GET;
2776: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2777: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
2778: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2779: retcode :=1;
2780: ELSIF v_map_retcode = 4 THEN
2781: FND_MESSAGE.SET_NAME ('GMF', 'GL_NO_LEDGER_MAP2');
2774: FND_MESSAGE.SET_NAME ('GMF', 'GL_INVALID_FISCAL_YEAR_PERIOD');
2775: v_err_message := FND_MESSAGE.GET;
2776: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2777: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
2778: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2779: retcode :=1;
2780: ELSIF v_map_retcode = 4 THEN
2781: FND_MESSAGE.SET_NAME ('GMF', 'GL_NO_LEDGER_MAP2');
2782: FND_MESSAGE.SET_TOKEN ('S1', int_rec.orgn_code );
2781: FND_MESSAGE.SET_NAME ('GMF', 'GL_NO_LEDGER_MAP2');
2782: FND_MESSAGE.SET_TOKEN ('S1', int_rec.orgn_code );
2783: FND_MESSAGE.SET_TOKEN ('S2', int_rec.orgn_code );
2784: v_err_message := FND_MESSAGE.GET;
2785: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2786: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
2787: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2788: retcode :=1;
2789: END IF;
2782: FND_MESSAGE.SET_TOKEN ('S1', int_rec.orgn_code );
2783: FND_MESSAGE.SET_TOKEN ('S2', int_rec.orgn_code );
2784: v_err_message := FND_MESSAGE.GET;
2785: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2786: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
2787: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2788: retcode :=1;
2789: END IF;
2790:
2783: FND_MESSAGE.SET_TOKEN ('S2', int_rec.orgn_code );
2784: v_err_message := FND_MESSAGE.GET;
2785: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2786: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
2787: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2788: retcode :=1;
2789: END IF;
2790:
2791: IF v_map_retcode > 0 THEN
2937: last_update_login = int_rec.last_update_login /* LE 26/AUG/98 NULL OK*/
2938: WHERE bpo_id = v_bpo_id;
2939: EXCEPTION
2940: WHEN OTHERS THEN
2941: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2942: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_bpos_hdr');
2943: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2944: err_num := SQLCODE;
2945: err_msg := SUBSTRB (SQLERRM, 1, 100);
2938: WHERE bpo_id = v_bpo_id;
2939: EXCEPTION
2940: WHEN OTHERS THEN
2941: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2942: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_bpos_hdr');
2943: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2944: err_num := SQLCODE;
2945: err_msg := SUBSTRB (SQLERRM, 1, 100);
2946: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2939: EXCEPTION
2940: WHEN OTHERS THEN
2941: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2942: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_bpos_hdr');
2943: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2944: err_num := SQLCODE;
2945: err_msg := SUBSTRB (SQLERRM, 1, 100);
2946: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2947: retcode :=1;
2942: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_bpos_hdr');
2943: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2944: err_num := SQLCODE;
2945: err_msg := SUBSTRB (SQLERRM, 1, 100);
2946: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2947: retcode :=1;
2948: raise_application_error(-20001, err_msg);
2949: END;
2950:
2960: WHERE bpo_id = v_bpo_id
2961: AND line_id = v_bpo_line_id; /* Bug 1854280 Pushkar Upakare */
2962: EXCEPTION
2963: WHEN OTHERS THEN
2964: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2965: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_bpos_dtl');
2966: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2967: err_num := SQLCODE;
2968: err_msg := SUBSTRB (SQLERRM, 1, 100);
2961: AND line_id = v_bpo_line_id; /* Bug 1854280 Pushkar Upakare */
2962: EXCEPTION
2963: WHEN OTHERS THEN
2964: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2965: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_bpos_dtl');
2966: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2967: err_num := SQLCODE;
2968: err_msg := SUBSTRB (SQLERRM, 1, 100);
2969: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2962: EXCEPTION
2963: WHEN OTHERS THEN
2964: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2965: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_bpos_dtl');
2966: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2967: err_num := SQLCODE;
2968: err_msg := SUBSTRB (SQLERRM, 1, 100);
2969: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2970: retcode :=1;
2965: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_bpos_dtl');
2966: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2967: err_num := SQLCODE;
2968: err_msg := SUBSTRB (SQLERRM, 1, 100);
2969: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2970: retcode :=1;
2971: raise_application_error(-20001, err_msg);
2972: END;
2973: END IF; /* CANCELLATION_CODE not null */
2986: v_doc_type,
2987: v_aqcst_status);
2988:
2989: IF v_aqcst_status=FALSE THEN
2990: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2991: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error with cpg_aqcst_mv procedure');
2992: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2993: err_num := SQLCODE;
2994: err_msg := SUBSTRB (SQLERRM, 1, 100);
2987: v_aqcst_status);
2988:
2989: IF v_aqcst_status=FALSE THEN
2990: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2991: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error with cpg_aqcst_mv procedure');
2992: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2993: err_num := SQLCODE;
2994: err_msg := SUBSTRB (SQLERRM, 1, 100);
2995: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2988:
2989: IF v_aqcst_status=FALSE THEN
2990: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2991: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error with cpg_aqcst_mv procedure');
2992: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2993: err_num := SQLCODE;
2994: err_msg := SUBSTRB (SQLERRM, 1, 100);
2995: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2996: retcode :=1;
2991: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error with cpg_aqcst_mv procedure');
2992: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
2993: err_num := SQLCODE;
2994: err_msg := SUBSTRB (SQLERRM, 1, 100);
2995: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
2996: retcode :=1;
2997: raise_application_error(-20001, err_msg);
2998: END IF;
2999:
3090: attribute14 = attr_hdr_rec.attribute14
3091: WHERE po_id = v_po_id;
3092: EXCEPTION
3093: WHEN OTHERS THEN
3094: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3095: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_ordr_hdr');
3096: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3097: err_num := SQLCODE;
3098: err_msg := SUBSTRB (SQLERRM, 1, 100);
3091: WHERE po_id = v_po_id;
3092: EXCEPTION
3093: WHEN OTHERS THEN
3094: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3095: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_ordr_hdr');
3096: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3097: err_num := SQLCODE;
3098: err_msg := SUBSTRB (SQLERRM, 1, 100);
3099: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3092: EXCEPTION
3093: WHEN OTHERS THEN
3094: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3095: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_ordr_hdr');
3096: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3097: err_num := SQLCODE;
3098: err_msg := SUBSTRB (SQLERRM, 1, 100);
3099: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3100: retcode :=1;
3095: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_ordr_hdr');
3096: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3097: err_num := SQLCODE;
3098: err_msg := SUBSTRB (SQLERRM, 1, 100);
3099: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3100: retcode :=1;
3101: raise_application_error(-20001, err_msg);
3102: END;
3103: OPEN order_qty_price_cur(v_po_id, v_line_id);
3210: WHERE po_id = v_po_id
3211: AND line_id = v_line_id;
3212: EXCEPTION
3213: WHEN OTHERS THEN
3214: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3215: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_ordr_dtl');
3216: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3217: err_num := SQLCODE;
3218: err_msg := SUBSTRB (SQLERRM, 1, 100);
3211: AND line_id = v_line_id;
3212: EXCEPTION
3213: WHEN OTHERS THEN
3214: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3215: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_ordr_dtl');
3216: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3217: err_num := SQLCODE;
3218: err_msg := SUBSTRB (SQLERRM, 1, 100);
3219: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3212: EXCEPTION
3213: WHEN OTHERS THEN
3214: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3215: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_ordr_dtl');
3216: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3217: err_num := SQLCODE;
3218: err_msg := SUBSTRB (SQLERRM, 1, 100);
3219: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3220: retcode :=1;
3215: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_ordr_dtl');
3216: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3217: err_num := SQLCODE;
3218: err_msg := SUBSTRB (SQLERRM, 1, 100);
3219: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3220: retcode :=1;
3221: raise_application_error(-20001, err_msg);
3222: END;
3223: /* regular updates, not cancel/close*/
3273: AND doc_id = v_po_id
3274: AND line_id = v_line_id;
3275: EXCEPTION
3276: WHEN OTHERS THEN
3277: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3278: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating ic_tran_pnd');
3279: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3280: err_num := SQLCODE;
3281: err_msg := SUBSTRB (SQLERRM, 1, 100);
3274: AND line_id = v_line_id;
3275: EXCEPTION
3276: WHEN OTHERS THEN
3277: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3278: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating ic_tran_pnd');
3279: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3280: err_num := SQLCODE;
3281: err_msg := SUBSTRB (SQLERRM, 1, 100);
3282: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3275: EXCEPTION
3276: WHEN OTHERS THEN
3277: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3278: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating ic_tran_pnd');
3279: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3280: err_num := SQLCODE;
3281: err_msg := SUBSTRB (SQLERRM, 1, 100);
3282: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3283: /* retcode :=1;
3278: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating ic_tran_pnd');
3279: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3280: err_num := SQLCODE;
3281: err_msg := SUBSTRB (SQLERRM, 1, 100);
3282: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3283: /* retcode :=1;
3284: raise_application_error(-20001, err_msg);*/
3285: END; /*update ic_tran_pnd*/
3286:
3350:
3351:
3352: EXCEPTION
3353: WHEN OTHERS THEN
3354: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3355: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating ic_summ_inv');
3356: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3357: err_num := SQLCODE;
3358: err_msg := SUBSTRB (SQLERRM, 1, 100);
3351:
3352: EXCEPTION
3353: WHEN OTHERS THEN
3354: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3355: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating ic_summ_inv');
3356: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3357: err_num := SQLCODE;
3358: err_msg := SUBSTRB (SQLERRM, 1, 100);
3359: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3352: EXCEPTION
3353: WHEN OTHERS THEN
3354: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3355: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating ic_summ_inv');
3356: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3357: err_num := SQLCODE;
3358: err_msg := SUBSTRB (SQLERRM, 1, 100);
3359: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3360: retcode :=1;
3355: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating ic_summ_inv');
3356: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3357: err_num := SQLCODE;
3358: err_msg := SUBSTRB (SQLERRM, 1, 100);
3359: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3360: retcode :=1;
3361: raise_application_error(-20001, err_msg);
3362: END; /*update ic_summ_inv*/
3363:
3378: last_update_login = int_rec.last_update_login /* LE 26/AUG/98 NULL OK*/
3379: WHERE bpo_id = v_bpo_id;
3380: EXCEPTION
3381: WHEN OTHERS THEN
3382: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3383: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_bpos_hdr');
3384: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3385: err_num := SQLCODE;
3386: err_msg := SUBSTRB (SQLERRM, 1, 100);
3379: WHERE bpo_id = v_bpo_id;
3380: EXCEPTION
3381: WHEN OTHERS THEN
3382: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3383: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_bpos_hdr');
3384: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3385: err_num := SQLCODE;
3386: err_msg := SUBSTRB (SQLERRM, 1, 100);
3387: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3380: EXCEPTION
3381: WHEN OTHERS THEN
3382: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3383: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_bpos_hdr');
3384: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3385: err_num := SQLCODE;
3386: err_msg := SUBSTRB (SQLERRM, 1, 100);
3387: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3388: retcode :=1;
3383: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_bpos_hdr');
3384: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3385: err_num := SQLCODE;
3386: err_msg := SUBSTRB (SQLERRM, 1, 100);
3387: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3388: retcode :=1;
3389: raise_application_error(-20001, err_msg);
3390: END;
3391:
3405: WHERE bpo_id = v_bpo_id
3406: AND line_id = v_bpo_line_id; /* Bug 1854280 Pushkar Upakare */
3407: EXCEPTION
3408: WHEN OTHERS THEN
3409: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3410: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_bpos_dtl');
3411: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3412: err_num := SQLCODE;
3413: err_msg := SUBSTRB (SQLERRM, 1, 100);
3406: AND line_id = v_bpo_line_id; /* Bug 1854280 Pushkar Upakare */
3407: EXCEPTION
3408: WHEN OTHERS THEN
3409: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3410: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_bpos_dtl');
3411: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3412: err_num := SQLCODE;
3413: err_msg := SUBSTRB (SQLERRM, 1, 100);
3414: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3407: EXCEPTION
3408: WHEN OTHERS THEN
3409: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3410: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_bpos_dtl');
3411: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3412: err_num := SQLCODE;
3413: err_msg := SUBSTRB (SQLERRM, 1, 100);
3414: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3415: retcode :=1;
3410: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_bpos_dtl');
3411: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3412: err_num := SQLCODE;
3413: err_msg := SUBSTRB (SQLERRM, 1, 100);
3414: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3415: retcode :=1;
3416: raise_application_error(-20001, err_msg);
3417: END;
3418:
3425: WHERE po_id = v_po_id
3426: AND revision_count = 0;
3427: EXCEPTION
3428: WHEN OTHERS THEN
3429: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3430: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_ordr_hdr');
3431: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3432: err_num := SQLCODE;
3433: err_msg := SUBSTRB (SQLERRM, 1, 100);
3426: AND revision_count = 0;
3427: EXCEPTION
3428: WHEN OTHERS THEN
3429: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3430: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_ordr_hdr');
3431: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3432: err_num := SQLCODE;
3433: err_msg := SUBSTRB (SQLERRM, 1, 100);
3434: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3427: EXCEPTION
3428: WHEN OTHERS THEN
3429: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3430: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_ordr_hdr');
3431: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3432: err_num := SQLCODE;
3433: err_msg := SUBSTRB (SQLERRM, 1, 100);
3434: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3435: retcode :=1;
3430: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_ordr_hdr');
3431: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3432: err_num := SQLCODE;
3433: err_msg := SUBSTRB (SQLERRM, 1, 100);
3434: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3435: retcode :=1;
3436: raise_application_error(-20001, err_msg);
3437: END;
3438: END IF; /*int_rec.transaction_type = 'PLANNED' */
3478: AND doc_id = v_po_id
3479: AND line_id = v_line_id;
3480: EXCEPTION
3481: WHEN OTHERS THEN
3482: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3483: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error inserting into ic_tran_pnd')
3484: ;
3485: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3486: err_num := SQLCODE;
3479: AND line_id = v_line_id;
3480: EXCEPTION
3481: WHEN OTHERS THEN
3482: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3483: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error inserting into ic_tran_pnd')
3484: ;
3485: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3486: err_num := SQLCODE;
3487: err_msg := SUBSTRB (SQLERRM, 1, 100);
3481: WHEN OTHERS THEN
3482: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3483: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error inserting into ic_tran_pnd')
3484: ;
3485: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3486: err_num := SQLCODE;
3487: err_msg := SUBSTRB (SQLERRM, 1, 100);
3488: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3489: /* retcode :=1;
3484: ;
3485: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3486: err_num := SQLCODE;
3487: err_msg := SUBSTRB (SQLERRM, 1, 100);
3488: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3489: /* retcode :=1;
3490: raise_application_error(-20001, err_msg);*/
3491: END; /*update ic_tran_pnd*/
3492:
3535: END IF; /*IF v_old_po_status <> 20 */
3536:
3537: EXCEPTION
3538: WHEN OTHERS THEN
3539: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3540: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating ic_summ_inv');
3541: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3542: err_num := SQLCODE;
3543: err_msg := SUBSTRB (SQLERRM, 1, 100);
3536:
3537: EXCEPTION
3538: WHEN OTHERS THEN
3539: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3540: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating ic_summ_inv');
3541: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3542: err_num := SQLCODE;
3543: err_msg := SUBSTRB (SQLERRM, 1, 100);
3544: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3537: EXCEPTION
3538: WHEN OTHERS THEN
3539: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3540: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating ic_summ_inv');
3541: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3542: err_num := SQLCODE;
3543: err_msg := SUBSTRB (SQLERRM, 1, 100);
3544: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3545: retcode :=1;
3540: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating ic_summ_inv');
3541: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3542: err_num := SQLCODE;
3543: err_msg := SUBSTRB (SQLERRM, 1, 100);
3544: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3545: retcode :=1;
3546: raise_application_error(-20001, err_msg);
3547: END;/*update ic_summ_inv*/
3548:
3559: v_doc_type,
3560: v_aqcst_status);
3561:
3562: IF v_aqcst_status=FALSE THEN
3563: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3564: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error with cpg_aqcst_mv procedure');
3565: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3566: err_num := SQLCODE;
3567: err_msg := SUBSTRB (SQLERRM, 1, 100);
3560: v_aqcst_status);
3561:
3562: IF v_aqcst_status=FALSE THEN
3563: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3564: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error with cpg_aqcst_mv procedure');
3565: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3566: err_num := SQLCODE;
3567: err_msg := SUBSTRB (SQLERRM, 1, 100);
3568: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3561:
3562: IF v_aqcst_status=FALSE THEN
3563: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3564: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error with cpg_aqcst_mv procedure');
3565: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3566: err_num := SQLCODE;
3567: err_msg := SUBSTRB (SQLERRM, 1, 100);
3568: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3569: retcode :=1;
3564: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error with cpg_aqcst_mv procedure');
3565: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3566: err_num := SQLCODE;
3567: err_msg := SUBSTRB (SQLERRM, 1, 100);
3568: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3569: retcode :=1;
3570: raise_application_error(-20001, err_msg);
3571: END IF;
3572:
3583: last_update_login = int_rec.last_update_login /* LE 26/AUG/98 NULL OK*/
3584: WHERE po_id = v_po_id;
3585: EXCEPTION
3586: WHEN OTHERS THEN
3587: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3588: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_ordr_dtl');
3589: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3590: err_num := SQLCODE;
3591: err_msg := SUBSTRB (SQLERRM, 1, 100);
3584: WHERE po_id = v_po_id;
3585: EXCEPTION
3586: WHEN OTHERS THEN
3587: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3588: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_ordr_dtl');
3589: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3590: err_num := SQLCODE;
3591: err_msg := SUBSTRB (SQLERRM, 1, 100);
3592: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3585: EXCEPTION
3586: WHEN OTHERS THEN
3587: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3588: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_ordr_dtl');
3589: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3590: err_num := SQLCODE;
3591: err_msg := SUBSTRB (SQLERRM, 1, 100);
3592: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3593: retcode :=1;
3588: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error updating po_ordr_dtl');
3589: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3590: err_num := SQLCODE;
3591: err_msg := SUBSTRB (SQLERRM, 1, 100);
3592: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg);
3593: retcode :=1;
3594: raise_application_error(-20001, err_msg);
3595: END;
3596: /* set the record's flag as 'P', for processed*/
3601:
3602: FND_MESSAGE.set_name('GML', 'PO_NUM_OK');
3603: FND_MESSAGE.set_token('v_po_no',v_po_no);
3604: v_err_message := FND_MESSAGE.GET;
3605: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3606: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
3607: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3608: ELSE
3609: UPDATE cpg_purchasing_interface
3602: FND_MESSAGE.set_name('GML', 'PO_NUM_OK');
3603: FND_MESSAGE.set_token('v_po_no',v_po_no);
3604: v_err_message := FND_MESSAGE.GET;
3605: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3606: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
3607: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3608: ELSE
3609: UPDATE cpg_purchasing_interface
3610: SET invalid_ind = 'E' /* This line can not be inserted in po_ordr_dtl */
3603: FND_MESSAGE.set_token('v_po_no',v_po_no);
3604: v_err_message := FND_MESSAGE.GET;
3605: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3606: FND_FILE.PUT_LINE(FND_FILE.LOG, v_err_message ); /*message */
3607: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3608: ELSE
3609: UPDATE cpg_purchasing_interface
3610: SET invalid_ind = 'E' /* This line can not be inserted in po_ordr_dtl */
3611: WHERE rowid = int_rec.rowid;
3627:
3628: WHEN OTHERS THEN
3629: err_num := SQLCODE;
3630: err_msg := SUBSTRB (SQLERRM, 1, 100);
3631: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3632: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg ); /*message */
3633: retcode := 1;
3634: RAISE_APPLICATION_ERROR(-20001, err_msg);
3635:
3628: WHEN OTHERS THEN
3629: err_num := SQLCODE;
3630: err_msg := SUBSTRB (SQLERRM, 1, 100);
3631: FND_FILE.NEW_LINE(FND_FILE.LOG, 1 );
3632: FND_FILE.PUT_LINE(FND_FILE.LOG, err_msg ); /*message */
3633: retcode := 1;
3634: RAISE_APPLICATION_ERROR(-20001, err_msg);
3635:
3636: END cpg_int2gms;