146:
147: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
148: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('NORMAL', '');
149: --errbuf := 'Automated Carrier Manifesting is completed Successfully';
150: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_NORMAL');
151: errbuf := FND_MESSAGE.GET;
152: retcode := '0';
153: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
154: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS( 'WARNING', '');
147: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
148: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('NORMAL', '');
149: --errbuf := 'Automated Carrier Manifesting is completed Successfully';
150: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_NORMAL');
151: errbuf := FND_MESSAGE.GET;
152: retcode := '0';
153: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
154: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS( 'WARNING', '');
155: --errbuf := 'Automated Carrier Manifesting is completed with Warning';
152: retcode := '0';
153: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
154: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS( 'WARNING', '');
155: --errbuf := 'Automated Carrier Manifesting is completed with Warning';
156: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_WARNING');
157: errbuf := FND_MESSAGE.GET;
158: retcode := '1';
159: ELSE
160: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', '');
153: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
154: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS( 'WARNING', '');
155: --errbuf := 'Automated Carrier Manifesting is completed with Warning';
156: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_WARNING');
157: errbuf := FND_MESSAGE.GET;
158: retcode := '1';
159: ELSE
160: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', '');
161: --errbuf := 'Automated Carrier Manifesting submission is completed with Error';
158: retcode := '1';
159: ELSE
160: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', '');
161: --errbuf := 'Automated Carrier Manifesting submission is completed with Error';
162: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_ERROR');
163: errbuf := FND_MESSAGE.GET;
164: retcode := '2';
165: END IF;
166:
159: ELSE
160: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', '');
161: --errbuf := 'Automated Carrier Manifesting submission is completed with Error';
162: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_ERROR');
163: errbuf := FND_MESSAGE.GET;
164: retcode := '2';
165: END IF;
166:
167: EXCEPTION
168:
169: WHEN others THEN
170: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', '');
171: --errbuf := 'Automated Carrier Manifesting submission is completed with Unexpected Error: '||sqlerrm;
172: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_UNEXP');
173: FND_MESSAGE.SET_TOKEN('ERR_MSG', sqlerrm);
174: errbuf := FND_MESSAGE.GET;
175: retcode := '2';
176:
169: WHEN others THEN
170: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', '');
171: --errbuf := 'Automated Carrier Manifesting submission is completed with Unexpected Error: '||sqlerrm;
172: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_UNEXP');
173: FND_MESSAGE.SET_TOKEN('ERR_MSG', sqlerrm);
174: errbuf := FND_MESSAGE.GET;
175: retcode := '2';
176:
177: END Submit;
170: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', '');
171: --errbuf := 'Automated Carrier Manifesting submission is completed with Unexpected Error: '||sqlerrm;
172: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_UNEXP');
173: FND_MESSAGE.SET_TOKEN('ERR_MSG', sqlerrm);
174: errbuf := FND_MESSAGE.GET;
175: retcode := '2';
176:
177: END Submit;
178:
806: ELSE
807: l_autopack :='Yes';
808: END IF;
809:
810: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_PARM');
811: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
812: FND_FILE.put_line(FND_FILE.output,'==========');
813:
814: FND_MESSAGE.SET_NAME('WSH', 'WSH_DOC_TYPE');
807: l_autopack :='Yes';
808: END IF;
809:
810: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_PARM');
811: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
812: FND_FILE.put_line(FND_FILE.output,'==========');
813:
814: FND_MESSAGE.SET_NAME('WSH', 'WSH_DOC_TYPE');
815: FND_MESSAGE.SET_TOKEN('DOC_TYPE', wsh_util_core.get_lookup_meaning('WSH_TXN_DOCUMENT_TYPE',p_doctype));
810: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_PARM');
811: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
812: FND_FILE.put_line(FND_FILE.output,'==========');
813:
814: FND_MESSAGE.SET_NAME('WSH', 'WSH_DOC_TYPE');
815: FND_MESSAGE.SET_TOKEN('DOC_TYPE', wsh_util_core.get_lookup_meaning('WSH_TXN_DOCUMENT_TYPE',p_doctype));
816: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
817:
818: FND_MESSAGE.SET_NAME('WSH', 'WSH_SHIP_TYPE');
811: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
812: FND_FILE.put_line(FND_FILE.output,'==========');
813:
814: FND_MESSAGE.SET_NAME('WSH', 'WSH_DOC_TYPE');
815: FND_MESSAGE.SET_TOKEN('DOC_TYPE', wsh_util_core.get_lookup_meaning('WSH_TXN_DOCUMENT_TYPE',p_doctype));
816: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
817:
818: FND_MESSAGE.SET_NAME('WSH', 'WSH_SHIP_TYPE');
819: FND_MESSAGE.SET_TOKEN('SHIP_TYPE', wsh_util_core.get_lookup_meaning('WSH_SHIPMENT_TYPE',p_shipment_type));
812: FND_FILE.put_line(FND_FILE.output,'==========');
813:
814: FND_MESSAGE.SET_NAME('WSH', 'WSH_DOC_TYPE');
815: FND_MESSAGE.SET_TOKEN('DOC_TYPE', wsh_util_core.get_lookup_meaning('WSH_TXN_DOCUMENT_TYPE',p_doctype));
816: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
817:
818: FND_MESSAGE.SET_NAME('WSH', 'WSH_SHIP_TYPE');
819: FND_MESSAGE.SET_TOKEN('SHIP_TYPE', wsh_util_core.get_lookup_meaning('WSH_SHIPMENT_TYPE',p_shipment_type));
820: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
814: FND_MESSAGE.SET_NAME('WSH', 'WSH_DOC_TYPE');
815: FND_MESSAGE.SET_TOKEN('DOC_TYPE', wsh_util_core.get_lookup_meaning('WSH_TXN_DOCUMENT_TYPE',p_doctype));
816: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
817:
818: FND_MESSAGE.SET_NAME('WSH', 'WSH_SHIP_TYPE');
819: FND_MESSAGE.SET_TOKEN('SHIP_TYPE', wsh_util_core.get_lookup_meaning('WSH_SHIPMENT_TYPE',p_shipment_type));
820: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
821:
822: /*Modified R12.1.1 LSP PROJECT*/
815: FND_MESSAGE.SET_TOKEN('DOC_TYPE', wsh_util_core.get_lookup_meaning('WSH_TXN_DOCUMENT_TYPE',p_doctype));
816: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
817:
818: FND_MESSAGE.SET_NAME('WSH', 'WSH_SHIP_TYPE');
819: FND_MESSAGE.SET_TOKEN('SHIP_TYPE', wsh_util_core.get_lookup_meaning('WSH_SHIPMENT_TYPE',p_shipment_type));
820: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
821:
822: /*Modified R12.1.1 LSP PROJECT*/
823: IF p_client_id IS NOT NULL THEN
816: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
817:
818: FND_MESSAGE.SET_NAME('WSH', 'WSH_SHIP_TYPE');
819: FND_MESSAGE.SET_TOKEN('SHIP_TYPE', wsh_util_core.get_lookup_meaning('WSH_SHIPMENT_TYPE',p_shipment_type));
820: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
821:
822: /*Modified R12.1.1 LSP PROJECT*/
823: IF p_client_id IS NOT NULL THEN
824: l_client_id := p_client_id;
840: ELSE
841: l_client_name := '' ;
842: END IF;
843:
844: FND_MESSAGE.SET_NAME('WSH', 'WSH_CLIENT');
845: FND_MESSAGE.SET_TOKEN('CLIENT_NAME', l_client_name);
846: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
847:
848: /*Modified R12.1.1 LSP PROJECT*/
841: l_client_name := '' ;
842: END IF;
843:
844: FND_MESSAGE.SET_NAME('WSH', 'WSH_CLIENT');
845: FND_MESSAGE.SET_TOKEN('CLIENT_NAME', l_client_name);
846: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
847:
848: /*Modified R12.1.1 LSP PROJECT*/
849:
842: END IF;
843:
844: FND_MESSAGE.SET_NAME('WSH', 'WSH_CLIENT');
845: FND_MESSAGE.SET_TOKEN('CLIENT_NAME', l_client_name);
846: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
847:
848: /*Modified R12.1.1 LSP PROJECT*/
849:
850:
847:
848: /*Modified R12.1.1 LSP PROJECT*/
849:
850:
851: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_ORG');
852: FND_MESSAGE.SET_TOKEN('ORG_NAME', WSH_UTIL_CORE.Get_Org_Name(p_organization_id));
853: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
854:
855: FND_MESSAGE.SET_NAME('WSH', 'WSH_ORDER_FROM');
848: /*Modified R12.1.1 LSP PROJECT*/
849:
850:
851: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_ORG');
852: FND_MESSAGE.SET_TOKEN('ORG_NAME', WSH_UTIL_CORE.Get_Org_Name(p_organization_id));
853: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
854:
855: FND_MESSAGE.SET_NAME('WSH', 'WSH_ORDER_FROM');
856: FND_MESSAGE.SET_TOKEN('ORDER',p_src_header_num_from );
849:
850:
851: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_ORG');
852: FND_MESSAGE.SET_TOKEN('ORG_NAME', WSH_UTIL_CORE.Get_Org_Name(p_organization_id));
853: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
854:
855: FND_MESSAGE.SET_NAME('WSH', 'WSH_ORDER_FROM');
856: FND_MESSAGE.SET_TOKEN('ORDER',p_src_header_num_from );
857: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
851: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_ORG');
852: FND_MESSAGE.SET_TOKEN('ORG_NAME', WSH_UTIL_CORE.Get_Org_Name(p_organization_id));
853: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
854:
855: FND_MESSAGE.SET_NAME('WSH', 'WSH_ORDER_FROM');
856: FND_MESSAGE.SET_TOKEN('ORDER',p_src_header_num_from );
857: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
858:
859: FND_MESSAGE.SET_NAME('WSH', 'WSH_ORDER_TO');
852: FND_MESSAGE.SET_TOKEN('ORG_NAME', WSH_UTIL_CORE.Get_Org_Name(p_organization_id));
853: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
854:
855: FND_MESSAGE.SET_NAME('WSH', 'WSH_ORDER_FROM');
856: FND_MESSAGE.SET_TOKEN('ORDER',p_src_header_num_from );
857: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
858:
859: FND_MESSAGE.SET_NAME('WSH', 'WSH_ORDER_TO');
860: FND_MESSAGE.SET_TOKEN('ORDER',p_src_header_num_to );
853: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
854:
855: FND_MESSAGE.SET_NAME('WSH', 'WSH_ORDER_FROM');
856: FND_MESSAGE.SET_TOKEN('ORDER',p_src_header_num_from );
857: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
858:
859: FND_MESSAGE.SET_NAME('WSH', 'WSH_ORDER_TO');
860: FND_MESSAGE.SET_TOKEN('ORDER',p_src_header_num_to );
861: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
855: FND_MESSAGE.SET_NAME('WSH', 'WSH_ORDER_FROM');
856: FND_MESSAGE.SET_TOKEN('ORDER',p_src_header_num_from );
857: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
858:
859: FND_MESSAGE.SET_NAME('WSH', 'WSH_ORDER_TO');
860: FND_MESSAGE.SET_TOKEN('ORDER',p_src_header_num_to );
861: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
862: --R12.1.1 STANDALONE PROJECT
863: FND_MESSAGE.SET_NAME('WSH', 'WSH_DELIVERY_FROM');
856: FND_MESSAGE.SET_TOKEN('ORDER',p_src_header_num_from );
857: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
858:
859: FND_MESSAGE.SET_NAME('WSH', 'WSH_ORDER_TO');
860: FND_MESSAGE.SET_TOKEN('ORDER',p_src_header_num_to );
861: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
862: --R12.1.1 STANDALONE PROJECT
863: FND_MESSAGE.SET_NAME('WSH', 'WSH_DELIVERY_FROM');
864: FND_MESSAGE.SET_TOKEN('DELIVERY',p_del_name_from );
857: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
858:
859: FND_MESSAGE.SET_NAME('WSH', 'WSH_ORDER_TO');
860: FND_MESSAGE.SET_TOKEN('ORDER',p_src_header_num_to );
861: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
862: --R12.1.1 STANDALONE PROJECT
863: FND_MESSAGE.SET_NAME('WSH', 'WSH_DELIVERY_FROM');
864: FND_MESSAGE.SET_TOKEN('DELIVERY',p_del_name_from );
865: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
859: FND_MESSAGE.SET_NAME('WSH', 'WSH_ORDER_TO');
860: FND_MESSAGE.SET_TOKEN('ORDER',p_src_header_num_to );
861: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
862: --R12.1.1 STANDALONE PROJECT
863: FND_MESSAGE.SET_NAME('WSH', 'WSH_DELIVERY_FROM');
864: FND_MESSAGE.SET_TOKEN('DELIVERY',p_del_name_from );
865: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
866:
867: FND_MESSAGE.SET_NAME('WSH', 'WSH_DELIVERY_TO');
860: FND_MESSAGE.SET_TOKEN('ORDER',p_src_header_num_to );
861: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
862: --R12.1.1 STANDALONE PROJECT
863: FND_MESSAGE.SET_NAME('WSH', 'WSH_DELIVERY_FROM');
864: FND_MESSAGE.SET_TOKEN('DELIVERY',p_del_name_from );
865: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
866:
867: FND_MESSAGE.SET_NAME('WSH', 'WSH_DELIVERY_TO');
868: FND_MESSAGE.SET_TOKEN('DELIVERY',p_del_name_to );
861: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
862: --R12.1.1 STANDALONE PROJECT
863: FND_MESSAGE.SET_NAME('WSH', 'WSH_DELIVERY_FROM');
864: FND_MESSAGE.SET_TOKEN('DELIVERY',p_del_name_from );
865: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
866:
867: FND_MESSAGE.SET_NAME('WSH', 'WSH_DELIVERY_TO');
868: FND_MESSAGE.SET_TOKEN('DELIVERY',p_del_name_to );
869: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
863: FND_MESSAGE.SET_NAME('WSH', 'WSH_DELIVERY_FROM');
864: FND_MESSAGE.SET_TOKEN('DELIVERY',p_del_name_from );
865: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
866:
867: FND_MESSAGE.SET_NAME('WSH', 'WSH_DELIVERY_TO');
868: FND_MESSAGE.SET_TOKEN('DELIVERY',p_del_name_to );
869: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
870:
871: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_CARRIER');
864: FND_MESSAGE.SET_TOKEN('DELIVERY',p_del_name_from );
865: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
866:
867: FND_MESSAGE.SET_NAME('WSH', 'WSH_DELIVERY_TO');
868: FND_MESSAGE.SET_TOKEN('DELIVERY',p_del_name_to );
869: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
870:
871: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_CARRIER');
872: FND_MESSAGE.SET_TOKEN('CARRIER_NAME', l_carrier_name);
865: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
866:
867: FND_MESSAGE.SET_NAME('WSH', 'WSH_DELIVERY_TO');
868: FND_MESSAGE.SET_TOKEN('DELIVERY',p_del_name_to );
869: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
870:
871: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_CARRIER');
872: FND_MESSAGE.SET_TOKEN('CARRIER_NAME', l_carrier_name);
873: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
867: FND_MESSAGE.SET_NAME('WSH', 'WSH_DELIVERY_TO');
868: FND_MESSAGE.SET_TOKEN('DELIVERY',p_del_name_to );
869: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
870:
871: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_CARRIER');
872: FND_MESSAGE.SET_TOKEN('CARRIER_NAME', l_carrier_name);
873: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
874:
875: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_CUSTOMER');
868: FND_MESSAGE.SET_TOKEN('DELIVERY',p_del_name_to );
869: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
870:
871: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_CARRIER');
872: FND_MESSAGE.SET_TOKEN('CARRIER_NAME', l_carrier_name);
873: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
874:
875: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_CUSTOMER');
876: FND_MESSAGE.SET_TOKEN('CUSTOMER_NAME', l_customer_name);
869: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
870:
871: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_CARRIER');
872: FND_MESSAGE.SET_TOKEN('CARRIER_NAME', l_carrier_name);
873: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
874:
875: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_CUSTOMER');
876: FND_MESSAGE.SET_TOKEN('CUSTOMER_NAME', l_customer_name);
877: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
871: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_CARRIER');
872: FND_MESSAGE.SET_TOKEN('CARRIER_NAME', l_carrier_name);
873: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
874:
875: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_CUSTOMER');
876: FND_MESSAGE.SET_TOKEN('CUSTOMER_NAME', l_customer_name);
877: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
878:
879: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_SHIP_TO');
872: FND_MESSAGE.SET_TOKEN('CARRIER_NAME', l_carrier_name);
873: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
874:
875: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_CUSTOMER');
876: FND_MESSAGE.SET_TOKEN('CUSTOMER_NAME', l_customer_name);
877: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
878:
879: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_SHIP_TO');
880: FND_MESSAGE.SET_TOKEN('SHIP_TO', l_location);
873: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
874:
875: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_CUSTOMER');
876: FND_MESSAGE.SET_TOKEN('CUSTOMER_NAME', l_customer_name);
877: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
878:
879: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_SHIP_TO');
880: FND_MESSAGE.SET_TOKEN('SHIP_TO', l_location);
881: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
875: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_CUSTOMER');
876: FND_MESSAGE.SET_TOKEN('CUSTOMER_NAME', l_customer_name);
877: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
878:
879: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_SHIP_TO');
880: FND_MESSAGE.SET_TOKEN('SHIP_TO', l_location);
881: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
882:
883: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_SCH_FROM');
876: FND_MESSAGE.SET_TOKEN('CUSTOMER_NAME', l_customer_name);
877: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
878:
879: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_SHIP_TO');
880: FND_MESSAGE.SET_TOKEN('SHIP_TO', l_location);
881: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
882:
883: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_SCH_FROM');
884: FND_MESSAGE.SET_TOKEN('SCH_FROM_DATE', p_scheduled_from_date);
877: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
878:
879: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_SHIP_TO');
880: FND_MESSAGE.SET_TOKEN('SHIP_TO', l_location);
881: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
882:
883: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_SCH_FROM');
884: FND_MESSAGE.SET_TOKEN('SCH_FROM_DATE', p_scheduled_from_date);
885: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
879: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_SHIP_TO');
880: FND_MESSAGE.SET_TOKEN('SHIP_TO', l_location);
881: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
882:
883: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_SCH_FROM');
884: FND_MESSAGE.SET_TOKEN('SCH_FROM_DATE', p_scheduled_from_date);
885: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
886:
887: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_SCH_TO');
880: FND_MESSAGE.SET_TOKEN('SHIP_TO', l_location);
881: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
882:
883: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_SCH_FROM');
884: FND_MESSAGE.SET_TOKEN('SCH_FROM_DATE', p_scheduled_from_date);
885: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
886:
887: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_SCH_TO');
888: FND_MESSAGE.SET_TOKEN('SCH_TO_DATE', p_scheduled_to_date);
881: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
882:
883: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_SCH_FROM');
884: FND_MESSAGE.SET_TOKEN('SCH_FROM_DATE', p_scheduled_from_date);
885: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
886:
887: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_SCH_TO');
888: FND_MESSAGE.SET_TOKEN('SCH_TO_DATE', p_scheduled_to_date);
889: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
883: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_SCH_FROM');
884: FND_MESSAGE.SET_TOKEN('SCH_FROM_DATE', p_scheduled_from_date);
885: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
886:
887: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_SCH_TO');
888: FND_MESSAGE.SET_TOKEN('SCH_TO_DATE', p_scheduled_to_date);
889: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
890:
891: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_AUTOPACK');
884: FND_MESSAGE.SET_TOKEN('SCH_FROM_DATE', p_scheduled_from_date);
885: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
886:
887: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_SCH_TO');
888: FND_MESSAGE.SET_TOKEN('SCH_TO_DATE', p_scheduled_to_date);
889: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
890:
891: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_AUTOPACK');
892: FND_MESSAGE.SET_TOKEN('AUTOPACK', l_autopack);
885: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
886:
887: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_SCH_TO');
888: FND_MESSAGE.SET_TOKEN('SCH_TO_DATE', p_scheduled_to_date);
889: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
890:
891: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_AUTOPACK');
892: FND_MESSAGE.SET_TOKEN('AUTOPACK', l_autopack);
893: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
887: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_SCH_TO');
888: FND_MESSAGE.SET_TOKEN('SCH_TO_DATE', p_scheduled_to_date);
889: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
890:
891: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_AUTOPACK');
892: FND_MESSAGE.SET_TOKEN('AUTOPACK', l_autopack);
893: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
894:
895: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_LOG_LEVEL');
888: FND_MESSAGE.SET_TOKEN('SCH_TO_DATE', p_scheduled_to_date);
889: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
890:
891: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_AUTOPACK');
892: FND_MESSAGE.SET_TOKEN('AUTOPACK', l_autopack);
893: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
894:
895: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_LOG_LEVEL');
896: FND_MESSAGE.SET_TOKEN('LOG_LEVEL', to_char(p_log_level));
889: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
890:
891: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_AUTOPACK');
892: FND_MESSAGE.SET_TOKEN('AUTOPACK', l_autopack);
893: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
894:
895: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_LOG_LEVEL');
896: FND_MESSAGE.SET_TOKEN('LOG_LEVEL', to_char(p_log_level));
897: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
891: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_AUTOPACK');
892: FND_MESSAGE.SET_TOKEN('AUTOPACK', l_autopack);
893: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
894:
895: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_LOG_LEVEL');
896: FND_MESSAGE.SET_TOKEN('LOG_LEVEL', to_char(p_log_level));
897: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
898:
899: IF (l_delivery_count < 1 ) THEN
892: FND_MESSAGE.SET_TOKEN('AUTOPACK', l_autopack);
893: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
894:
895: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_LOG_LEVEL');
896: FND_MESSAGE.SET_TOKEN('LOG_LEVEL', to_char(p_log_level));
897: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
898:
899: IF (l_delivery_count < 1 ) THEN
900: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
893: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
894:
895: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_LOG_LEVEL');
896: FND_MESSAGE.SET_TOKEN('LOG_LEVEL', to_char(p_log_level));
897: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
898:
899: IF (l_delivery_count < 1 ) THEN
900: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
901: FND_FILE.put_line(FND_FILE.output,' ');
898:
899: IF (l_delivery_count < 1 ) THEN
900: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
901: FND_FILE.put_line(FND_FILE.output,' ');
902: FND_MESSAGE.SET_NAME('WSH', 'WSH_NO_DEL_FOR_PARAMETERS');
903: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
904: IF l_debug_on THEN
905: wsh_debug_sv.log(l_module_name,l_msg_summary);
906: END IF;
899: IF (l_delivery_count < 1 ) THEN
900: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
901: FND_FILE.put_line(FND_FILE.output,' ');
902: FND_MESSAGE.SET_NAME('WSH', 'WSH_NO_DEL_FOR_PARAMETERS');
903: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
904: IF l_debug_on THEN
905: wsh_debug_sv.log(l_module_name,l_msg_summary);
906: END IF;
907:
906: END IF;
907:
908: ELSE
909: FND_FILE.put_line(FND_FILE.output,' ');
910: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_SUMMARY');
911: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
912:
913: FND_FILE.put_line(FND_FILE.output,'==============');
914: IF l_debug_on THEN
907:
908: ELSE
909: FND_FILE.put_line(FND_FILE.output,' ');
910: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_SUMMARY');
911: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
912:
913: FND_FILE.put_line(FND_FILE.output,'==============');
914: IF l_debug_on THEN
915: wsh_debug_sv.log (l_module_name,'All Deliveries: ',l_delivery_count);
913: FND_FILE.put_line(FND_FILE.output,'==============');
914: IF l_debug_on THEN
915: wsh_debug_sv.log (l_module_name,'All Deliveries: ',l_delivery_count);
916: END IF;
917: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_ALL_DLVY');
918: FND_MESSAGE.SET_TOKEN('ALL_DLVY', to_char(l_delivery_count));
919: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
920:
921: IF l_debug_on THEN
914: IF l_debug_on THEN
915: wsh_debug_sv.log (l_module_name,'All Deliveries: ',l_delivery_count);
916: END IF;
917: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_ALL_DLVY');
918: FND_MESSAGE.SET_TOKEN('ALL_DLVY', to_char(l_delivery_count));
919: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
920:
921: IF l_debug_on THEN
922: wsh_debug_sv.log (l_module_name,'Success Deliveries: ',l_success_count);
915: wsh_debug_sv.log (l_module_name,'All Deliveries: ',l_delivery_count);
916: END IF;
917: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_ALL_DLVY');
918: FND_MESSAGE.SET_TOKEN('ALL_DLVY', to_char(l_delivery_count));
919: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
920:
921: IF l_debug_on THEN
922: wsh_debug_sv.log (l_module_name,'Success Deliveries: ',l_success_count);
923: END IF;
920:
921: IF l_debug_on THEN
922: wsh_debug_sv.log (l_module_name,'Success Deliveries: ',l_success_count);
923: END IF;
924: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_SUC_DLVY');
925: FND_MESSAGE.SET_TOKEN('SUC_DLVY', to_char(l_success_count));
926: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
927:
928: IF l_debug_on THEN
921: IF l_debug_on THEN
922: wsh_debug_sv.log (l_module_name,'Success Deliveries: ',l_success_count);
923: END IF;
924: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_SUC_DLVY');
925: FND_MESSAGE.SET_TOKEN('SUC_DLVY', to_char(l_success_count));
926: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
927:
928: IF l_debug_on THEN
929: wsh_debug_sv.log (l_module_name,'Warning Deliveries: ',l_warning_count);
922: wsh_debug_sv.log (l_module_name,'Success Deliveries: ',l_success_count);
923: END IF;
924: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_SUC_DLVY');
925: FND_MESSAGE.SET_TOKEN('SUC_DLVY', to_char(l_success_count));
926: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
927:
928: IF l_debug_on THEN
929: wsh_debug_sv.log (l_module_name,'Warning Deliveries: ',l_warning_count);
930: END IF;
927:
928: IF l_debug_on THEN
929: wsh_debug_sv.log (l_module_name,'Warning Deliveries: ',l_warning_count);
930: END IF;
931: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_WAR_DLVY');
932: FND_MESSAGE.SET_TOKEN('WAR_DLVY', to_char(l_warning_count));
933: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
934:
935: IF l_debug_on THEN
928: IF l_debug_on THEN
929: wsh_debug_sv.log (l_module_name,'Warning Deliveries: ',l_warning_count);
930: END IF;
931: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_WAR_DLVY');
932: FND_MESSAGE.SET_TOKEN('WAR_DLVY', to_char(l_warning_count));
933: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
934:
935: IF l_debug_on THEN
936: wsh_debug_sv.log (l_module_name,'Error Deliveries: ',l_error_count);
929: wsh_debug_sv.log (l_module_name,'Warning Deliveries: ',l_warning_count);
930: END IF;
931: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_WAR_DLVY');
932: FND_MESSAGE.SET_TOKEN('WAR_DLVY', to_char(l_warning_count));
933: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
934:
935: IF l_debug_on THEN
936: wsh_debug_sv.log (l_module_name,'Error Deliveries: ',l_error_count);
937: END IF;
934:
935: IF l_debug_on THEN
936: wsh_debug_sv.log (l_module_name,'Error Deliveries: ',l_error_count);
937: END IF;
938: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_ERR_DLVY');
939: FND_MESSAGE.SET_TOKEN('ERR_DLVY', to_char(l_error_count));
940: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
941:
942: FND_FILE.put_line(FND_FILE.output,' ');
935: IF l_debug_on THEN
936: wsh_debug_sv.log (l_module_name,'Error Deliveries: ',l_error_count);
937: END IF;
938: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_ERR_DLVY');
939: FND_MESSAGE.SET_TOKEN('ERR_DLVY', to_char(l_error_count));
940: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
941:
942: FND_FILE.put_line(FND_FILE.output,' ');
943: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_HS_DLVY');
936: wsh_debug_sv.log (l_module_name,'Error Deliveries: ',l_error_count);
937: END IF;
938: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_ERR_DLVY');
939: FND_MESSAGE.SET_TOKEN('ERR_DLVY', to_char(l_error_count));
940: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
941:
942: FND_FILE.put_line(FND_FILE.output,' ');
943: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_HS_DLVY');
944: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
939: FND_MESSAGE.SET_TOKEN('ERR_DLVY', to_char(l_error_count));
940: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
941:
942: FND_FILE.put_line(FND_FILE.output,' ');
943: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_HS_DLVY');
944: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
945:
946: IF l_debug_on THEN
947: wsh_debug_sv.log(l_module_name,'Success Deliveries');
940: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
941:
942: FND_FILE.put_line(FND_FILE.output,' ');
943: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_HS_DLVY');
944: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
945:
946: IF l_debug_on THEN
947: wsh_debug_sv.log(l_module_name,'Success Deliveries');
948: END IF;
963: wsh_debug_sv.log(l_module_name,'Warning Deliveries');
964: END IF;
965: FND_FILE.put_line(FND_FILE.output,' ');
966: FND_FILE.put_line(FND_FILE.output,' ');
967: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_HW_DLVY');
968: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
969:
970: FOR w_count IN 1..l_warning_count LOOP
971: IF l_debug_on THEN
964: END IF;
965: FND_FILE.put_line(FND_FILE.output,' ');
966: FND_FILE.put_line(FND_FILE.output,' ');
967: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_HW_DLVY');
968: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
969:
970: FOR w_count IN 1..l_warning_count LOOP
971: IF l_debug_on THEN
972: wsh_debug_sv.log(l_module_name,l_warning_delivery(w_count).delivery_name||': '||
987: wsh_debug_sv.log(l_module_name,'Error Deliveries');
988: END IF;
989: FND_FILE.put_line(FND_FILE.output,' ');
990: FND_FILE.put_line(FND_FILE.output,' ');
991: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_HE_DLVY');
992: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
993:
994: FOR e_count IN 1..l_error_count LOOP
995: IF l_debug_on THEN
988: END IF;
989: FND_FILE.put_line(FND_FILE.output,' ');
990: FND_FILE.put_line(FND_FILE.output,' ');
991: FND_MESSAGE.SET_NAME('WSH', 'WSH_MANIFEST_HE_DLVY');
992: FND_FILE.put_line(FND_FILE.output,FND_MESSAGE.GET);
993:
994: FOR e_count IN 1..l_error_count LOOP
995: IF l_debug_on THEN
996: wsh_debug_sv.log(l_module_name,l_error_delivery(e_count).delivery_name||': '||
1139: END IF;
1140: EXCEPTION
1141: WHEN RECORD_LOCKED THEN
1142: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1143: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
1144: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
1145: IF l_debug_on THEN
1146: WSH_DEBUG_SV.logmsg(l_module_name,'RECORD_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1147: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:RECORD_LOCKED');
1252: END IF;
1253:
1254: IF (l_count < 1 ) THEN
1255: x_validate := 'N';
1256: FND_MESSAGE.SET_NAME('WSH','WSH_SCH_DATE_NOT_IN_RANGED');
1257: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
1258: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
1259: END IF;
1260:
1253:
1254: IF (l_count < 1 ) THEN
1255: x_validate := 'N';
1256: FND_MESSAGE.SET_NAME('WSH','WSH_SCH_DATE_NOT_IN_RANGED');
1257: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
1258: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
1259: END IF;
1260:
1261: IF l_debug_on THEN