72: IS
73: l_procedure_name CONSTANT VARCHAR2(30) := 'Get_PO_Transactions';
74:
75: BEGIN
76: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
77: THEN
78: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
79: , G_MODULE_NAME || l_procedure_name || '.begin'
80: ,'enter procedure'
74:
75: BEGIN
76: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
77: THEN
78: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
79: , G_MODULE_NAME || l_procedure_name || '.begin'
80: ,'enter procedure'
81: );
82: END IF;
151: AND hoi.org_information2 = to_char(p_movement_transaction.entity_org_id) /* bug 7676431: Added to_char */
152: AND rcv.organization_id = p_movement_transaction.organization_id;
153: END IF;
154:
155: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
156: THEN
157: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
158: , G_MODULE_NAME || l_procedure_name || '.end'
159: ,'exit procedure'
153: END IF;
154:
155: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
156: THEN
157: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
158: , G_MODULE_NAME || l_procedure_name || '.end'
159: ,'exit procedure'
160: );
161: END IF;
162:
163: EXCEPTION
164: WHEN OTHERS THEN
165: x_return_status := 'N';
166: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
167: THEN
168: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
169: , G_MODULE_NAME || l_procedure_name||'. Others exception'
170: , 'Exception'
164: WHEN OTHERS THEN
165: x_return_status := 'N';
166: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
167: THEN
168: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
169: , G_MODULE_NAME || l_procedure_name||'. Others exception'
170: , 'Exception'
171: );
172: END IF;
231: AND line_location_id = x_movement_transaction.po_line_location_id
232: ORDER BY line_id;
233:
234: BEGIN
235: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
236: THEN
237: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
238: , G_MODULE_NAME || l_procedure_name || '.begin'
239: ,'enter procedure'
233:
234: BEGIN
235: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
236: THEN
237: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
238: , G_MODULE_NAME || l_procedure_name || '.begin'
239: ,'enter procedure'
240: );
241: END IF;
279: EXIT;
280: --Fix bug 5060410, incase no match found, exit anyway to avoice endless loop
281: ELSIF l_rt_seq = l_count
282: THEN
283: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
284: THEN
285: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
286: , G_MODULE_NAME
287: || '.no rt id matched - data problem - exit loop anyway'
281: ELSIF l_rt_seq = l_count
282: THEN
283: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
284: THEN
285: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
286: , G_MODULE_NAME
287: || '.no rt id matched - data problem - exit loop anyway'
288: ,'data has problem');
289: END IF;
314: END IF;
315: END IF;
316: CLOSE l_drpshp_count;
317:
318: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
319: THEN
320: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
321: , G_MODULE_NAME || l_procedure_name || '.end'
322: ,'exit procedure'
316: CLOSE l_drpshp_count;
317:
318: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
319: THEN
320: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
321: , G_MODULE_NAME || l_procedure_name || '.end'
322: ,'exit procedure'
323: );
324: END IF;
324: END IF;
325:
326: EXCEPTION
327: WHEN OTHERS THEN
328: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
329: THEN
330: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
331: , G_MODULE_NAME || l_procedure_name||'. Others exception'
332: , 'Exception'
326: EXCEPTION
327: WHEN OTHERS THEN
328: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
329: THEN
330: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
331: , G_MODULE_NAME || l_procedure_name||'. Others exception'
332: , 'Exception'
333: );
334: END IF;
457: AND mvt_stat_status = 'NEW'
458: AND transaction_type = 'CORRECT';
459:
460: BEGIN
461: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
462: THEN
463: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
464: , G_MODULE_NAME || l_procedure_name || '.begin'
465: ,'enter procedure'
459:
460: BEGIN
461: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
462: THEN
463: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
464: , G_MODULE_NAME || l_procedure_name || '.begin'
465: ,'enter procedure'
466: );
467: END IF;
509: THEN
510: CLOSE po_details;
511: x_return_status := 'N';
512:
513: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
514: THEN
515: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
516: , G_MODULE_NAME || l_procedure_name || '.end return N'
517: ,'exit procedure'
511: x_return_status := 'N';
512:
513: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
514: THEN
515: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
516: , G_MODULE_NAME || l_procedure_name || '.end return N'
517: ,'exit procedure'
518: );
519: END IF;
672: x_movement_transaction.document_line_ext_value :=
673: abs(x_movement_transaction.document_line_ext_value);
674: END IF;
675:
676: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
677: THEN
678: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
679: , G_MODULE_NAME || l_procedure_name || '.end'
680: ,'exit procedure'
674: END IF;
675:
676: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
677: THEN
678: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
679: , G_MODULE_NAME || l_procedure_name || '.end'
680: ,'exit procedure'
681: );
682: END IF;
682: END IF;
683: EXCEPTION
684: WHEN OTHERS THEN
685: x_return_status := 'N';
686: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
687: THEN
688: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
689: , G_MODULE_NAME || l_procedure_name||'. Others exception'
690: , 'Exception'
684: WHEN OTHERS THEN
685: x_return_status := 'N';
686: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
687: THEN
688: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
689: , G_MODULE_NAME || l_procedure_name||'. Others exception'
690: , 'Exception'
691: );
692: END IF;
769: AND cst.inventory_item_id = oola.inventory_item_id
770: AND oola.line_id = x_movement_transaction.order_line_id;
771:
772: BEGIN
773: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
774: THEN
775: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
776: , G_MODULE_NAME || l_procedure_name || '.begin'
777: ,'enter procedure'
771:
772: BEGIN
773: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
774: THEN
775: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
776: , G_MODULE_NAME || l_procedure_name || '.begin'
777: ,'enter procedure'
778: );
779: END IF;
815: THEN
816: CLOSE l_drpshp_so_om;
817: x_return_status := 'N';
818:
819: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
820: THEN
821: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
822: , G_MODULE_NAME || l_procedure_name || '.end return N'
823: ,'exit procedure'
817: x_return_status := 'N';
818:
819: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
820: THEN
821: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
822: , G_MODULE_NAME || l_procedure_name || '.end return N'
823: ,'exit procedure'
824: );
825: END IF;
838: x_movement_transaction.document_source_type := 'SO';
839:
840: x_movement_transaction.transaction_nature := '17';
841:
842: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
843: THEN
844: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
845: , G_MODULE_NAME || l_procedure_name || '.end'
846: ,'exit procedure'
840: x_movement_transaction.transaction_nature := '17';
841:
842: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
843: THEN
844: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
845: , G_MODULE_NAME || l_procedure_name || '.end'
846: ,'exit procedure'
847: );
848: END IF;
849: EXCEPTION
850: WHEN OTHERS THEN
851: x_return_status := 'N';
852:
853: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
854: THEN
855: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
856: , G_MODULE_NAME || l_procedure_name||'. Others exception'
857: , 'Exception'
851: x_return_status := 'N';
852:
853: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
854: THEN
855: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
856: , G_MODULE_NAME || l_procedure_name||'. Others exception'
857: , 'Exception'
858: );
859: END IF;
878: IS
879: l_receipt_transaction INV_MGD_MVT_DATA_STR.Receipt_Transaction_Rec_Type;
880: l_procedure_name CONSTANT VARCHAR2(30) := 'Update_PO_Transactions';
881: BEGIN
882: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
883: THEN
884: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
885: , G_MODULE_NAME || l_procedure_name || '.begin'
886: ,'enter procedure'
880: l_procedure_name CONSTANT VARCHAR2(30) := 'Update_PO_Transactions';
881: BEGIN
882: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
883: THEN
884: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
885: , G_MODULE_NAME || l_procedure_name || '.begin'
886: ,'enter procedure'
887: );
888: END IF;
907: , movement_id = p_movement_transaction.movement_id
908: WHERE transaction_id = p_movement_transaction.rcv_transaction_id;
909: END IF;
910:
911: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
912: THEN
913: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
914: , G_MODULE_NAME || l_procedure_name || '.end'
915: ,'exit procedure'
909: END IF;
910:
911: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
912: THEN
913: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
914: , G_MODULE_NAME || l_procedure_name || '.end'
915: ,'exit procedure'
916: );
917: END IF;
917: END IF;
918: EXCEPTION
919: WHEN OTHERS THEN
920: x_return_status := 'N';
921: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
922: THEN
923: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
924: , G_MODULE_NAME || l_procedure_name||'. Others exception'
925: , 'Exception'
919: WHEN OTHERS THEN
920: x_return_status := 'N';
921: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
922: THEN
923: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
924: , G_MODULE_NAME || l_procedure_name||'. Others exception'
925: , 'Exception'
926: );
927: END IF;
943: )
944: IS
945: l_procedure_name CONSTANT VARCHAR2(30) := 'Get_RTV_Transactions';
946: BEGIN
947: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
948: THEN
949: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
950: , G_MODULE_NAME || l_procedure_name || '.begin'
951: ,'enter procedure'
945: l_procedure_name CONSTANT VARCHAR2(30) := 'Get_RTV_Transactions';
946: BEGIN
947: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
948: THEN
949: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
950: , G_MODULE_NAME || l_procedure_name || '.begin'
951: ,'enter procedure'
952: );
953: END IF;
964: , transaction_type
965: FROM RCV_TRANSACTIONS
966: WHERE transaction_id = p_parent_id;
967:
968: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
969: THEN
970: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
971: , G_MODULE_NAME || l_procedure_name || '.end'
972: ,'exit procedure'
966: WHERE transaction_id = p_parent_id;
967:
968: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
969: THEN
970: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
971: , G_MODULE_NAME || l_procedure_name || '.end'
972: ,'exit procedure'
973: );
974: END IF;
974: END IF;
975: EXCEPTION
976: WHEN OTHERS THEN
977: x_return_status := 'N';
978: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
979: THEN
980: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
981: , G_MODULE_NAME || l_procedure_name||'. Others exception'
982: , 'Exception'
976: WHEN OTHERS THEN
977: x_return_status := 'N';
978: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
979: THEN
980: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
981: , G_MODULE_NAME || l_procedure_name||'. Others exception'
982: , 'Exception'
983: );
984: END IF;
1013: WHERE po.po_header_id = poh.po_header_id
1014: AND po.transaction_id = x_movement_transaction.rcv_transaction_id;
1015:
1016: BEGIN
1017: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1018: THEN
1019: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1020: , G_MODULE_NAME || l_procedure_name || '.begin'
1021: ,'enter procedure'
1015:
1016: BEGIN
1017: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1018: THEN
1019: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1020: , G_MODULE_NAME || l_procedure_name || '.begin'
1021: ,'enter procedure'
1022: );
1023: END IF;
1031: , x_movement_transaction.po_line_location_id
1032: , x_movement_transaction.type_lookup_code;
1033: CLOSE l_bpo;
1034:
1035: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1036: THEN
1037: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1038: , G_MODULE_NAME || l_procedure_name || '.end'
1039: ,'exit procedure'
1033: CLOSE l_bpo;
1034:
1035: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1036: THEN
1037: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1038: , G_MODULE_NAME || l_procedure_name || '.end'
1039: ,'exit procedure'
1040: );
1041: END IF;
1041: END IF;
1042: EXCEPTION
1043: WHEN OTHERS THEN
1044: x_movement_transaction := l_movement_transaction;
1045: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1046: THEN
1047: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1048: , G_MODULE_NAME || l_procedure_name||'. Others exception'
1049: , 'Exception'
1043: WHEN OTHERS THEN
1044: x_movement_transaction := l_movement_transaction;
1045: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1046: THEN
1047: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1048: , G_MODULE_NAME || l_procedure_name||'. Others exception'
1049: , 'Exception'
1050: );
1051: END IF;
1073: )
1074: IS
1075: l_procedure_name CONSTANT VARCHAR2(30) := 'Get_RMA_Transactions';
1076: BEGIN
1077: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1078: THEN
1079: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1080: , G_MODULE_NAME || l_procedure_name || '.begin'
1081: ,'enter procedure'
1075: l_procedure_name CONSTANT VARCHAR2(30) := 'Get_RMA_Transactions';
1076: BEGIN
1077: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1078: THEN
1079: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1080: , G_MODULE_NAME || l_procedure_name || '.begin'
1081: ,'enter procedure'
1082: );
1083: END IF;
1206: AND rcv.transaction_type IN ('DELIVER')
1207: AND rcv.source_document_code = 'RMA';
1208: END IF;
1209:
1210: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1211: THEN
1212: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1213: , G_MODULE_NAME || l_procedure_name || '.end'
1214: ,'exit procedure'
1208: END IF;
1209:
1210: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1211: THEN
1212: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1213: , G_MODULE_NAME || l_procedure_name || '.end'
1214: ,'exit procedure'
1215: );
1216: END IF;
1216: END IF;
1217: EXCEPTION
1218: WHEN OTHERS THEN
1219: x_return_status := 'N';
1220: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1221: THEN
1222: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1223: , G_MODULE_NAME || l_procedure_name||'. Others exception'
1224: , 'Exception'
1218: WHEN OTHERS THEN
1219: x_return_status := 'N';
1220: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1221: THEN
1222: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1223: , G_MODULE_NAME || l_procedure_name||'. Others exception'
1224: , 'Exception'
1225: );
1226: END IF;
1316: AND muc.organization_id = x_movement_transaction.organization_id
1317: AND muc.unit_of_measure = l_receipt_transaction.primary_unit_of_measure;*/
1318:
1319: BEGIN
1320: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1321: THEN
1322: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1323: , G_MODULE_NAME || l_procedure_name || '.begin'
1324: ,'enter procedure'
1318:
1319: BEGIN
1320: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1321: THEN
1322: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1323: , G_MODULE_NAME || l_procedure_name || '.begin'
1324: ,'enter procedure'
1325: );
1326: END IF;
1359: IF rma_details%NOTFOUND THEN
1360: CLOSE rma_details;
1361: x_return_status := 'N';
1362:
1363: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1364: THEN
1365: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1366: , G_MODULE_NAME || l_procedure_name || '.end return N'
1367: ,'exit procedure'
1361: x_return_status := 'N';
1362:
1363: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1364: THEN
1365: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1366: , G_MODULE_NAME || l_procedure_name || '.end return N'
1367: ,'exit procedure'
1368: );
1369: END IF;
1420: x_movement_transaction.document_source_type := 'RMA';
1421: -- x_movement_transaction.currency_conversion_rate := 1;
1422: x_movement_transaction.transaction_nature := '20';
1423:
1424: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1425: THEN
1426: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1427: , G_MODULE_NAME || l_procedure_name || '.end'
1428: ,'exit procedure'
1422: x_movement_transaction.transaction_nature := '20';
1423:
1424: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1425: THEN
1426: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1427: , G_MODULE_NAME || l_procedure_name || '.end'
1428: ,'exit procedure'
1429: );
1430: END IF;
1430: END IF;
1431: EXCEPTION
1432: WHEN NO_DATA_FOUND THEN
1433: x_return_status := 'N';
1434: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1435: THEN
1436: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1437: , G_MODULE_NAME || l_procedure_name||'. No data found exception'
1438: , 'Exception'
1432: WHEN NO_DATA_FOUND THEN
1433: x_return_status := 'N';
1434: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1435: THEN
1436: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1437: , G_MODULE_NAME || l_procedure_name||'. No data found exception'
1438: , 'Exception'
1439: );
1440: END IF;
1439: );
1440: END IF;
1441: WHEN OTHERS THEN
1442: x_return_status := 'N';
1443: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1444: THEN
1445: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1446: , G_MODULE_NAME || l_procedure_name||'. Others exception'
1447: , 'Exception'
1441: WHEN OTHERS THEN
1442: x_return_status := 'N';
1443: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1444: THEN
1445: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1446: , G_MODULE_NAME || l_procedure_name||'. Others exception'
1447: , 'Exception'
1448: );
1449: END IF;
1489: EXCEPTION
1490: WHEN OTHERS THEN
1491: x_movement_id := null;
1492: x_movement_status := null;
1493: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1494: THEN
1495: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1496: , G_MODULE_NAME ||'Get_Parent_Mvt'||'. Others exception'
1497: , 'Exception'
1491: x_movement_id := null;
1492: x_movement_status := null;
1493: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1494: THEN
1495: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1496: , G_MODULE_NAME ||'Get_Parent_Mvt'||'. Others exception'
1497: , 'Exception'
1498: );
1499: END IF;
1520: )
1521: IS
1522: l_procedure_name CONSTANT VARCHAR2(30) := 'Get_IO_Arrival_Txn';
1523: BEGIN
1524: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1525: THEN
1526: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1527: , G_MODULE_NAME || l_procedure_name || '.begin'
1528: ,'enter procedure'
1522: l_procedure_name CONSTANT VARCHAR2(30) := 'Get_IO_Arrival_Txn';
1523: BEGIN
1524: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1525: THEN
1526: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1527: , G_MODULE_NAME || l_procedure_name || '.begin'
1528: ,'enter procedure'
1529: );
1530: END IF;
1573: AND rcv.transaction_date BETWEEN p_start_date AND p_end_date
1574: ORDER BY rcv.transaction_id;
1575: END IF;
1576:
1577: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1578: THEN
1579: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1580: , G_MODULE_NAME || l_procedure_name || '.end'
1581: ,'exit procedure'
1575: END IF;
1576:
1577: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1578: THEN
1579: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1580: , G_MODULE_NAME || l_procedure_name || '.end'
1581: ,'exit procedure'
1582: );
1583: END IF;
1583: END IF;
1584: EXCEPTION
1585: WHEN NO_DATA_FOUND THEN
1586: x_return_status := 'N';
1587: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1588: THEN
1589: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1590: , G_MODULE_NAME || l_procedure_name||'. No data found exception'
1591: , 'Exception'
1585: WHEN NO_DATA_FOUND THEN
1586: x_return_status := 'N';
1587: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1588: THEN
1589: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1590: , G_MODULE_NAME || l_procedure_name||'. No data found exception'
1591: , 'Exception'
1592: );
1593: END IF;
1592: );
1593: END IF;
1594: WHEN OTHERS THEN
1595: x_return_status := 'N';
1596: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1597: THEN
1598: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1599: , G_MODULE_NAME || l_procedure_name||'. Others exception'
1600: , 'Exception'
1594: WHEN OTHERS THEN
1595: x_return_status := 'N';
1596: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1597: THEN
1598: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1599: , G_MODULE_NAME || l_procedure_name||'. Others exception'
1600: , 'Exception'
1601: );
1602: END IF;
1720: WHERE organization_id = x_movement_transaction.organization_id
1721: AND inventory_item_id = x_movement_transaction.inventory_item_id;
1722:
1723: BEGIN
1724: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1725: THEN
1726: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1727: , G_MODULE_NAME || l_procedure_name || '.begin'
1728: ,'enter procedure'
1722:
1723: BEGIN
1724: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1725: THEN
1726: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1727: , G_MODULE_NAME || l_procedure_name || '.begin'
1728: ,'enter procedure'
1729: );
1730: END IF;
1758: THEN
1759: CLOSE io_po_details;
1760: x_return_status := 'N';
1761:
1762: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1763: THEN
1764: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1765: , G_MODULE_NAME || l_procedure_name || '.end return N at io_po_details'
1766: ,'exit procedure'
1760: x_return_status := 'N';
1761:
1762: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1763: THEN
1764: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1765: , G_MODULE_NAME || l_procedure_name || '.end return N at io_po_details'
1766: ,'exit procedure'
1767: );
1768: END IF;
1818: THEN
1819: CLOSE io_so_details;
1820: x_return_status := 'N';
1821:
1822: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1823: THEN
1824: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1825: , G_MODULE_NAME || l_procedure_name || '.end return N at io_so_details'
1826: ,'exit procedure'
1820: x_return_status := 'N';
1821:
1822: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1823: THEN
1824: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1825: , G_MODULE_NAME || l_procedure_name || '.end return N at io_so_details'
1826: ,'exit procedure'
1827: );
1828: END IF;
1855: ( x_movement_transaction => x_movement_transaction
1856: , x_return_status => x_return_status
1857: );
1858:
1859: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1860: THEN
1861: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1862: , G_MODULE_NAME || l_procedure_name || '.end'
1863: ,'exit procedure'
1857: );
1858:
1859: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1860: THEN
1861: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
1862: , G_MODULE_NAME || l_procedure_name || '.end'
1863: ,'exit procedure'
1864: );
1865: END IF;
1865: END IF;
1866: EXCEPTION
1867: WHEN NO_DATA_FOUND THEN
1868: x_return_status := 'N';
1869: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1870: THEN
1871: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1872: , G_MODULE_NAME || l_procedure_name||'. No data found exception'
1873: , 'Exception'
1867: WHEN NO_DATA_FOUND THEN
1868: x_return_status := 'N';
1869: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1870: THEN
1871: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1872: , G_MODULE_NAME || l_procedure_name||'. No data found exception'
1873: , 'Exception'
1874: );
1875: END IF;
1874: );
1875: END IF;
1876: WHEN OTHERS THEN
1877: x_return_status := 'N';
1878: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1879: THEN
1880: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1881: , G_MODULE_NAME || l_procedure_name||'. Others exception'
1882: , 'Exception'
1876: WHEN OTHERS THEN
1877: x_return_status := 'N';
1878: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1879: THEN
1880: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1881: , G_MODULE_NAME || l_procedure_name||'. Others exception'
1882: , 'Exception'
1883: );
1884: END IF;