54: )
55: IS
56: l_procedure_name CONSTANT VARCHAR2(30) := 'Get_SO_Transactions';
57: BEGIN
58: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
59: THEN
60: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
61: , G_MODULE_NAME || l_procedure_name || '.begin'
62: ,'enter procedure'
56: l_procedure_name CONSTANT VARCHAR2(30) := 'Get_SO_Transactions';
57: BEGIN
58: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
59: THEN
60: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
61: , G_MODULE_NAME || l_procedure_name || '.begin'
62: ,'enter procedure'
63: );
64: END IF;
189: AND wnd.initial_pickup_date is NOT NULL
190: AND wnd.name = p_movement_transaction.shipment_reference;
191: END IF;
192:
193: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
194: THEN
195: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
196: , G_MODULE_NAME || l_procedure_name || '.end'
197: ,'exit procedure'
191: END IF;
192:
193: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
194: THEN
195: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
196: , G_MODULE_NAME || l_procedure_name || '.end'
197: ,'exit procedure'
198: );
199: END IF;
200:
201: EXCEPTION
202: WHEN NO_DATA_FOUND THEN
203: x_return_status := 'N';
204: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
205: THEN
206: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
207: , G_MODULE_NAME || l_procedure_name||'. No data found exception'
208: , 'Exception'
202: WHEN NO_DATA_FOUND THEN
203: x_return_status := 'N';
204: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
205: THEN
206: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
207: , G_MODULE_NAME || l_procedure_name||'. No data found exception'
208: , 'Exception'
209: );
210: END IF;
209: );
210: END IF;
211: WHEN OTHERS THEN
212: x_return_status := 'N';
213: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
214: THEN
215: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
216: , G_MODULE_NAME || l_procedure_name||'. Others exception'
217: , 'Exception'
211: WHEN OTHERS THEN
212: x_return_status := 'N';
213: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
214: THEN
215: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
216: , G_MODULE_NAME || l_procedure_name||'. Others exception'
217: , 'Exception'
218: );
219: END IF;
244: )
245: IS
246: l_procedure_name CONSTANT VARCHAR2(30) := 'Get_Triangulation_Txns';
247: BEGIN
248: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
249: THEN
250: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
251: , G_MODULE_NAME || l_procedure_name || '.begin'
252: ,'enter procedure'
246: l_procedure_name CONSTANT VARCHAR2(30) := 'Get_Triangulation_Txns';
247: BEGIN
248: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
249: THEN
250: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
251: , G_MODULE_NAME || l_procedure_name || '.begin'
252: ,'enter procedure'
253: );
254: END IF;
297: ('SOLD_TO', ol.sold_to_org_id
298: , null, null, ol.org_id);
299: END IF;
300:
301: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
302: THEN
303: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
304: , G_MODULE_NAME || l_procedure_name || '.end'
305: ,'exit procedure'
299: END IF;
300:
301: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
302: THEN
303: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
304: , G_MODULE_NAME || l_procedure_name || '.end'
305: ,'exit procedure'
306: );
307: END IF;
308:
309: EXCEPTION
310: WHEN NO_DATA_FOUND THEN
311: x_return_status := 'N';
312: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
313: THEN
314: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
315: , G_MODULE_NAME || l_procedure_name||'. No data found exception'
316: , 'Exception'
310: WHEN NO_DATA_FOUND THEN
311: x_return_status := 'N';
312: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
313: THEN
314: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
315: , G_MODULE_NAME || l_procedure_name||'. No data found exception'
316: , 'Exception'
317: );
318: END IF;
317: );
318: END IF;
319: WHEN OTHERS THEN
320: x_return_status := 'N';
321: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
322: THEN
323: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
324: , G_MODULE_NAME || l_procedure_name||'. Others exception'
325: , 'Exception'
319: WHEN OTHERS THEN
320: x_return_status := 'N';
321: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
322: THEN
323: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
324: , G_MODULE_NAME || l_procedure_name||'. Others exception'
325: , 'Exception'
326: );
327: END IF;
456: CST_ITEM_COSTS_FOR_GL_VIEW
457: WHERE organization_id = x_movement_transaction.organization_id
458: AND inventory_item_id = x_movement_transaction.inventory_item_id;
459: BEGIN
460: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
461: THEN
462: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
463: , G_MODULE_NAME || l_procedure_name || '.begin'
464: ,'enter procedure'
458: AND inventory_item_id = x_movement_transaction.inventory_item_id;
459: BEGIN
460: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
461: THEN
462: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
463: , G_MODULE_NAME || l_procedure_name || '.begin'
464: ,'enter procedure'
465: );
466: END IF;
508: IF so_details%NOTFOUND THEN
509: CLOSE so_details;
510: x_return_status := 'N';
511:
512: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
513: THEN
514: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
515: , G_MODULE_NAME || l_procedure_name || '.end return N'
516: ,'exit procedure'
510: x_return_status := 'N';
511:
512: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
513: THEN
514: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
515: , G_MODULE_NAME || l_procedure_name || '.end return N'
516: ,'exit procedure'
517: );
518: END IF;
646: INV_MGD_MVT_UTILS_PKG.Convert_Territory_Code
647: (x_movement_transaction.triangulation_country_code);
648: END IF;
649:
650: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
651: THEN
652: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
653: , G_MODULE_NAME || l_procedure_name || '.end'
654: ,'exit procedure'
648: END IF;
649:
650: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
651: THEN
652: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
653: , G_MODULE_NAME || l_procedure_name || '.end'
654: ,'exit procedure'
655: );
656: END IF;
656: END IF;
657: EXCEPTION
658: WHEN NO_DATA_FOUND THEN
659: x_return_status := 'N';
660: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
661: THEN
662: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
663: , G_MODULE_NAME || l_procedure_name||'. No data found exception'
664: , 'Exception'
658: WHEN NO_DATA_FOUND THEN
659: x_return_status := 'N';
660: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
661: THEN
662: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
663: , G_MODULE_NAME || l_procedure_name||'. No data found exception'
664: , 'Exception'
665: );
666: END IF;
665: );
666: END IF;
667: WHEN OTHERS THEN
668: x_return_status := 'N';
669: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
670: THEN
671: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
672: , G_MODULE_NAME || l_procedure_name||'. Others exception'
673: , 'Exception'
667: WHEN OTHERS THEN
668: x_return_status := 'N';
669: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
670: THEN
671: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
672: , G_MODULE_NAME || l_procedure_name||'. Others exception'
673: , 'Exception'
674: );
675: END IF;
711: WHERE oola.inventory_item_id = msi.inventory_item_id
712: AND oola.ship_from_org_id = msi.organization_id
713: AND line_id = p_link_to_line_id;
714: BEGIN
715: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
716: THEN
717: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
718: , G_MODULE_NAME || l_procedure_name || '.begin'
719: ,'enter procedure'
713: AND line_id = p_link_to_line_id;
714: BEGIN
715: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
716: THEN
717: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
718: , G_MODULE_NAME || l_procedure_name || '.begin'
719: ,'enter procedure'
720: );
721: END IF;
758:
759: --Create record for parent kit, so set line id to parent line id
760: x_movement_transaction.order_line_id := p_link_to_line_id;
761:
762: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
763: THEN
764: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
765: , G_MODULE_NAME || l_procedure_name || '.end'
766: ,'exit procedure'
760: x_movement_transaction.order_line_id := p_link_to_line_id;
761:
762: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
763: THEN
764: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
765: , G_MODULE_NAME || l_procedure_name || '.end'
766: ,'exit procedure'
767: );
768: END IF;
767: );
768: END IF;
769: EXCEPTION
770: WHEN NO_DATA_FOUND THEN
771: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
772: THEN
773: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
774: , G_MODULE_NAME || l_procedure_name
775: ,'when no data found exception'
769: EXCEPTION
770: WHEN NO_DATA_FOUND THEN
771: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
772: THEN
773: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
774: , G_MODULE_NAME || l_procedure_name
775: ,'when no data found exception'
776: );
777: END IF;
776: );
777: END IF;
778:
779: WHEN OTHERS THEN
780: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
781: THEN
782: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
783: , G_MODULE_NAME || l_procedure_name
784: ,'when others exception'
778:
779: WHEN OTHERS THEN
780: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
781: THEN
782: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
783: , G_MODULE_NAME || l_procedure_name
784: ,'when others exception'
785: );
786: END IF;
823: po_requisition_lines_all
824: WHERE
825: requisition_line_id = x_movement_transaction.requisition_line_id;
826: BEGIN
827: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
828: THEN
829: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
830: , G_MODULE_NAME || l_procedure_name || '.begin'
831: ,'enter procedure'
825: requisition_line_id = x_movement_transaction.requisition_line_id;
826: BEGIN
827: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
828: THEN
829: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
830: , G_MODULE_NAME || l_procedure_name || '.begin'
831: ,'enter procedure'
832: );
833: END IF;
871: x_movement_transaction.customer_trx_line_id := null;
872: x_movement_transaction.financial_document_flag := 'NOT_REQUIRED';
873: x_movement_transaction.document_source_type := 'IO';
874:
875: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
876: THEN
877: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
878: , G_MODULE_NAME || l_procedure_name || '.end'
879: ,'exit procedure'
873: x_movement_transaction.document_source_type := 'IO';
874:
875: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
876: THEN
877: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
878: , G_MODULE_NAME || l_procedure_name || '.end'
879: ,'exit procedure'
880: );
881: END IF;
882:
883: EXCEPTION
884: WHEN NO_DATA_FOUND THEN
885: x_return_status := 'N';
886: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
887: THEN
888: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
889: , G_MODULE_NAME || l_procedure_name||'. No data found exception'
890: , 'Exception'
884: WHEN NO_DATA_FOUND THEN
885: x_return_status := 'N';
886: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
887: THEN
888: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
889: , G_MODULE_NAME || l_procedure_name||'. No data found exception'
890: , 'Exception'
891: );
892: END IF;
891: );
892: END IF;
893: WHEN OTHERS THEN
894: x_return_status := 'N';
895: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
896: THEN
897: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
898: , G_MODULE_NAME || l_procedure_name||'. Others exception'
899: , 'Exception'
893: WHEN OTHERS THEN
894: x_return_status := 'N';
895: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
896: THEN
897: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
898: , G_MODULE_NAME || l_procedure_name||'. Others exception'
899: , 'Exception'
900: );
901: END IF;
919: l_shipment_transaction INV_MGD_MVT_DATA_STR.Shipment_Transaction_Rec_Type;
920: l_mvt_stat_status wsh_delivery_details.mvt_stat_status%TYPE;
921: l_procedure_name CONSTANT VARCHAR2(30) := 'Update_SO_Transactions';
922: BEGIN
923: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
924: THEN
925: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
926: , G_MODULE_NAME || l_procedure_name || '.begin'
927: ,'enter procedure'
921: l_procedure_name CONSTANT VARCHAR2(30) := 'Update_SO_Transactions';
922: BEGIN
923: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
924: THEN
925: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
926: , G_MODULE_NAME || l_procedure_name || '.begin'
927: ,'enter procedure'
928: );
929: END IF;
970: , movement_id = p_movement_transaction.movement_id
971: WHERE delivery_detail_id = p_movement_transaction.picking_line_detail_id;
972: END IF;
973:
974: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
975: THEN
976: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
977: , G_MODULE_NAME || l_procedure_name || '.end'
978: ,'exit procedure'
972: END IF;
973:
974: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
975: THEN
976: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
977: , G_MODULE_NAME || l_procedure_name || '.end'
978: ,'exit procedure'
979: );
980: END IF;
981:
982: EXCEPTION
983: WHEN NO_DATA_FOUND THEN
984: x_return_status := 'N';
985: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
986: THEN
987: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
988: , G_MODULE_NAME || l_procedure_name||'. No data found exception'
989: , 'Exception'
983: WHEN NO_DATA_FOUND THEN
984: x_return_status := 'N';
985: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
986: THEN
987: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
988: , G_MODULE_NAME || l_procedure_name||'. No data found exception'
989: , 'Exception'
990: );
991: END IF;
990: );
991: END IF;
992: WHEN OTHERS THEN
993: x_return_status := 'N';
994: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
995: THEN
996: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
997: , G_MODULE_NAME || l_procedure_name||'. Others exception'
998: , 'Exception'
992: WHEN OTHERS THEN
993: x_return_status := 'N';
994: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
995: THEN
996: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
997: , G_MODULE_NAME || l_procedure_name||'. Others exception'
998: , 'Exception'
999: );
1000: END IF;
1019: l_shipment_transaction INV_MGD_MVT_DATA_STR.Shipment_Transaction_Rec_Type;
1020: l_mvt_stat_status wsh_delivery_details.mvt_stat_status%TYPE;
1021: l_procedure_name CONSTANT VARCHAR2(30) := 'Update_KIT_SO_Transactions';
1022: BEGIN
1023: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1024: THEN
1025: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1026: , G_MODULE_NAME || l_procedure_name || '.begin'
1027: ,'enter procedure'
1021: l_procedure_name CONSTANT VARCHAR2(30) := 'Update_KIT_SO_Transactions';
1022: BEGIN
1023: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1024: THEN
1025: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1026: , G_MODULE_NAME || l_procedure_name || '.begin'
1027: ,'enter procedure'
1028: );
1029: END IF;
1078: FROM oe_order_lines_all
1079: WHERE link_to_line_id = p_link_to_line_id);
1080: END IF;
1081:
1082: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1083: THEN
1084: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1085: , G_MODULE_NAME || l_procedure_name || '.end'
1086: ,'exit procedure'
1080: END IF;
1081:
1082: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1083: THEN
1084: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1085: , G_MODULE_NAME || l_procedure_name || '.end'
1086: ,'exit procedure'
1087: );
1088: END IF;
1089:
1090: EXCEPTION
1091: WHEN NO_DATA_FOUND THEN
1092: x_return_status := 'N';
1093: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1094: THEN
1095: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1096: , G_MODULE_NAME || l_procedure_name||'. No data found exception'
1097: , 'Exception'
1091: WHEN NO_DATA_FOUND THEN
1092: x_return_status := 'N';
1093: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1094: THEN
1095: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1096: , G_MODULE_NAME || l_procedure_name||'. No data found exception'
1097: , 'Exception'
1098: );
1099: END IF;
1098: );
1099: END IF;
1100: WHEN OTHERS THEN
1101: x_return_status := 'N';
1102: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1103: THEN
1104: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1105: , G_MODULE_NAME || l_procedure_name||'. Others exception'
1106: , 'Exception'
1100: WHEN OTHERS THEN
1101: x_return_status := 'N';
1102: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1103: THEN
1104: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1105: , G_MODULE_NAME || l_procedure_name||'. Others exception'
1106: , 'Exception'
1107: );
1108: END IF;
1134: wsh_delivery_details
1135: WHERE
1136: delivery_detail_id = p_delivery_detail_id;
1137: BEGIN
1138: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1139: THEN
1140: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1141: , G_MODULE_NAME || l_function_name || '.begin'
1142: ,'enter procedure'
1136: delivery_detail_id = p_delivery_detail_id;
1137: BEGIN
1138: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1139: THEN
1140: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1141: , G_MODULE_NAME || l_function_name || '.begin'
1142: ,'enter procedure'
1143: );
1144: END IF;
1156: ELSE
1157: l_kit_status := 'N';
1158: END IF;
1159:
1160: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1161: THEN
1162: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1163: , G_MODULE_NAME || l_function_name || '.end'
1164: ,'exit procedure'
1158: END IF;
1159:
1160: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1161: THEN
1162: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1163: , G_MODULE_NAME || l_function_name || '.end'
1164: ,'exit procedure'
1165: );
1166: END IF;
1168: RETURN (l_kit_status);
1169:
1170: EXCEPTION
1171: WHEN NO_DATA_FOUND THEN
1172: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1173: THEN
1174: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1175: , G_MODULE_NAME || l_function_name||'. No data found exception'
1176: , 'Exception'
1170: EXCEPTION
1171: WHEN NO_DATA_FOUND THEN
1172: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1173: THEN
1174: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1175: , G_MODULE_NAME || l_function_name||'. No data found exception'
1176: , 'Exception'
1177: );
1178: END IF;
1178: END IF;
1179: RETURN null;
1180: WHEN TOO_MANY_ROWS
1181: THEN
1182: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1183: THEN
1184: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1185: , G_MODULE_NAME || l_function_name||'. too many rows exception'
1186: , 'Exception'
1180: WHEN TOO_MANY_ROWS
1181: THEN
1182: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1183: THEN
1184: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1185: , G_MODULE_NAME || l_function_name||'. too many rows exception'
1186: , 'Exception'
1187: );
1188: END IF;
1187: );
1188: END IF;
1189: RETURN null;
1190: WHEN OTHERS THEN
1191: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1192: THEN
1193: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1194: , G_MODULE_NAME || l_function_name||'. Others exception'
1195: , 'Exception'
1189: RETURN null;
1190: WHEN OTHERS THEN
1191: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1192: THEN
1193: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1194: , G_MODULE_NAME || l_function_name||'. Others exception'
1195: , 'Exception'
1196: );
1197: END IF;
1222: wsh_delivery_details
1223: WHERE
1224: delivery_detail_id = p_delivery_detail_id;
1225: BEGIN
1226: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1227: THEN
1228: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1229: , G_MODULE_NAME || l_api_name || '.begin'
1230: ,'enter procedure'
1224: delivery_detail_id = p_delivery_detail_id;
1225: BEGIN
1226: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1227: THEN
1228: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1229: , G_MODULE_NAME || l_api_name || '.begin'
1230: ,'enter procedure'
1231: );
1232: END IF;
1244: ELSE
1245: l_kit_status := 'N';
1246: END IF;
1247:
1248: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1249: THEN
1250: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1251: , G_MODULE_NAME || l_api_name || '.end'
1252: ,'exit procedure'
1246: END IF;
1247:
1248: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1249: THEN
1250: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1251: , G_MODULE_NAME || l_api_name || '.end'
1252: ,'exit procedure'
1253: );
1254: END IF;
1256: RETURN (l_kit_status);
1257:
1258: EXCEPTION
1259: WHEN NO_DATA_FOUND THEN
1260: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1261: THEN
1262: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1263: , G_MODULE_NAME || l_api_name||'. No data found exception'
1264: , 'Exception'
1258: EXCEPTION
1259: WHEN NO_DATA_FOUND THEN
1260: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1261: THEN
1262: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1263: , G_MODULE_NAME || l_api_name||'. No data found exception'
1264: , 'Exception'
1265: );
1266: END IF;
1266: END IF;
1267: RETURN null;
1268: WHEN TOO_MANY_ROWS
1269: THEN
1270: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1271: THEN
1272: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1273: , G_MODULE_NAME || l_api_name||'. too many rows exception'
1274: , 'Exception'
1268: WHEN TOO_MANY_ROWS
1269: THEN
1270: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1271: THEN
1272: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1273: , G_MODULE_NAME || l_api_name||'. too many rows exception'
1274: , 'Exception'
1275: );
1276: END IF;
1275: );
1276: END IF;
1277: RETURN null;
1278: WHEN OTHERS THEN
1279: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1280: THEN
1281: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1282: , G_MODULE_NAME || l_api_name||'. Others exception'
1283: , 'Exception'
1277: RETURN null;
1278: WHEN OTHERS THEN
1279: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1280: THEN
1281: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1282: , G_MODULE_NAME || l_api_name||'. Others exception'
1283: , 'Exception'
1284: );
1285: END IF;