120: , 'Entry');
121: END IF;
122:
123: -- Start API initialization
124: IF FND_API.to_boolean(NVL(p_init_msg_list, FND_API.G_FALSE)) THEN
125: FND_MSG_PUB.initialize;
126: END IF;
127:
128: IF NOT FND_API.Compatible_API_Call( l_api_version
124: IF FND_API.to_boolean(NVL(p_init_msg_list, FND_API.G_FALSE)) THEN
125: FND_MSG_PUB.initialize;
126: END IF;
127:
128: IF NOT FND_API.Compatible_API_Call( l_api_version
129: , p_api_version
130: , l_api_name
131: , G_PKG_NAME
132: )
130: , l_api_name
131: , G_PKG_NAME
132: )
133: THEN
134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
135: END IF;
136:
137: x_return_status := FND_API.G_RET_STS_SUCCESS;
138: -- End API initialization
133: THEN
134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
135: END IF;
136:
137: x_return_status := FND_API.G_RET_STS_SUCCESS;
138: -- End API initialization
139:
140: x_variance_account := NULL;
141:
191: FND_MSG_PUB.Count_And_Get
192: ( p_count => x_msg_count
193: , p_data => x_msg_data
194: );
195: x_return_status := FND_API.G_RET_STS_ERROR;
196: IF g_fnd_debug = 'Y' AND
197: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
198: THEN
199: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
200: , G_MODULE_PREFIX || l_api_name || '.no_data_found'
201: , 'No relationship exists for the OEM Organization and Manufacturing Organization of the Subcontracting PO');
202: END IF;
203:
204: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
205: FND_MSG_PUB.Count_And_Get
206: ( p_count => x_msg_count
207: , p_data => x_msg_data
208: );
206: ( p_count => x_msg_count
207: , p_data => x_msg_data
208: );
209:
210: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
211: IF g_fnd_debug = 'Y' AND
212: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
213: THEN
214: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
221: ( p_count => x_msg_count
222: , p_data => x_msg_data
223: );
224:
225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
226: IF g_fnd_debug = 'Y' AND
227: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
228: THEN
229: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
271: , 'Entry');
272: END IF;
273:
274: -- Start API initialization
275: IF FND_API.to_boolean(NVL(p_init_msg_list, FND_API.G_FALSE)) THEN
276: FND_MSG_PUB.initialize;
277: END IF;
278:
279: /*
276: FND_MSG_PUB.initialize;
277: END IF;
278:
279: /*
280: IF NOT FND_API.Compatible_API_Call( l_api_version
281: , p_api_version
282: , l_api_name
283: , G_PKG_NAME
284: )
282: , l_api_name
283: , G_PKG_NAME
284: )
285: THEN
286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
287: END IF;
288: */
289:
290: x_return_status := FND_API.G_RET_STS_SUCCESS;
286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
287: END IF;
288: */
289:
290: x_return_status := FND_API.G_RET_STS_SUCCESS;
291: -- End API initialization
292:
293: x_osa_flag := 'N';
294:
336: ( p_count => x_msg_count
337: , p_data => x_msg_data
338: );
339: x_msg_data := 'NO_DATA_FOUND: p_po_shipment_id = ' || p_po_shipment_id;
340: x_return_status := FND_API.G_RET_STS_ERROR;
341: IF g_fnd_debug = 'Y' AND
342: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
343: THEN
344: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
345: , G_MODULE_PREFIX || l_api_name || '.no_data_found'
346: , 'The PO Line does not exist.');
347: END IF;
348:
349: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
350: FND_MSG_PUB.Count_And_Get
351: ( p_count => x_msg_count
352: , p_data => x_msg_data
353: );
350: FND_MSG_PUB.Count_And_Get
351: ( p_count => x_msg_count
352: , p_data => x_msg_data
353: );
354: x_msg_data := 'FND_API.G_EXC_UNEXPECTED_ERROR: p_po_shipment_id = ' || p_po_shipment_id;
355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
356: IF g_fnd_debug = 'Y' AND
357: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
358: THEN
351: ( p_count => x_msg_count
352: , p_data => x_msg_data
353: );
354: x_msg_data := 'FND_API.G_EXC_UNEXPECTED_ERROR: p_po_shipment_id = ' || p_po_shipment_id;
355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
356: IF g_fnd_debug = 'Y' AND
357: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
358: THEN
359: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
366: ( p_count => x_msg_count
367: , p_data => x_msg_data
368: );
369: x_msg_data := 'OTHER EXCEPTIONS: p_po_shipment_id = ' || p_po_shipment_id;
370: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
371: IF g_fnd_debug = 'Y' AND
372: FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
373: THEN
374: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE
414: , 'Entry');
415: END IF;
416:
417: -- Start API initialization
418: IF FND_API.to_boolean(NVL(p_init_msg_list, FND_API.G_FALSE)) THEN
419: FND_MSG_PUB.initialize;
420: END IF;
421:
422: IF NOT FND_API.Compatible_API_Call( l_api_version
418: IF FND_API.to_boolean(NVL(p_init_msg_list, FND_API.G_FALSE)) THEN
419: FND_MSG_PUB.initialize;
420: END IF;
421:
422: IF NOT FND_API.Compatible_API_Call( l_api_version
423: , p_api_version
424: , l_api_name
425: , G_PKG_NAME
426: )
424: , l_api_name
425: , G_PKG_NAME
426: )
427: THEN
428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
429: END IF;
430:
431: x_return_status := FND_API.G_RET_STS_SUCCESS;
432: -- End API initialization
427: THEN
428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
429: END IF;
430:
431: x_return_status := FND_API.G_RET_STS_SUCCESS;
432: -- End API initialization
433:
434: SELECT nvl(trading_partner_org_flag, 'N')
435: INTO x_is_tp_org_flag
441: FND_MSG_PUB.Count_And_Get
442: ( p_count => x_msg_count
443: , p_data => x_msg_data
444: );
445: x_return_status := FND_API.G_RET_STS_ERROR;
446: IF g_fnd_debug = 'Y' AND
447: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
448: THEN
449: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
450: , G_MODULE_PREFIX || l_api_name || '.no_data_found'
451: , 'The Inventory Organization does not exist.');
452: END IF;
453:
454: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
455: FND_MSG_PUB.Count_And_Get
456: ( p_count => x_msg_count
457: , p_data => x_msg_data
458: );
456: ( p_count => x_msg_count
457: , p_data => x_msg_data
458: );
459:
460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
461: IF g_fnd_debug = 'Y' AND
462: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
463: THEN
464: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
471: ( p_count => x_msg_count
472: , p_data => x_msg_data
473: );
474:
475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
476: IF g_fnd_debug = 'Y' AND
477: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
478: THEN
479: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
530: , 'Entry');
531: END IF;
532:
533: -- Start API initialization
534: IF FND_API.to_boolean(NVL(p_init_msg_list, FND_API.G_FALSE)) THEN
535: FND_MSG_PUB.initialize;
536: END IF;
537:
538: IF NOT FND_API.Compatible_API_Call( l_api_version
534: IF FND_API.to_boolean(NVL(p_init_msg_list, FND_API.G_FALSE)) THEN
535: FND_MSG_PUB.initialize;
536: END IF;
537:
538: IF NOT FND_API.Compatible_API_Call( l_api_version
539: , p_api_version
540: , l_api_name
541: , G_PKG_NAME
542: )
540: , l_api_name
541: , G_PKG_NAME
542: )
543: THEN
544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
545: END IF;
546:
547: x_return_status := FND_API.G_RET_STS_SUCCESS;
548: -- End API initialization
543: THEN
544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
545: END IF;
546:
547: x_return_status := FND_API.G_RET_STS_SUCCESS;
548: -- End API initialization
549:
550: x_nettable := 'N';
551:
590: FND_MSG_PUB.Count_And_Get
591: ( p_count => x_msg_count
592: , p_data => x_msg_data
593: );
594: x_return_status := FND_API.G_RET_STS_ERROR;
595: IF g_fnd_debug = 'Y' AND
596: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
597: THEN
598: FND_LOG.string(FND_LOG.LEVEL_EXCEPTION
599: , G_MODULE_PREFIX || l_api_name || '.no_data_found'
600: , 'The AP Invoice does not exist.');
601: END IF;
602:
603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
604: FND_MSG_PUB.Count_And_Get
605: ( p_count => x_msg_count
606: , p_data => x_msg_data
607: );
605: ( p_count => x_msg_count
606: , p_data => x_msg_data
607: );
608:
609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
610: IF g_fnd_debug = 'Y' AND
611: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
612: THEN
613: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
620: ( p_count => x_msg_count
621: , p_data => x_msg_data
622: );
623:
624: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
625: IF g_fnd_debug = 'Y' AND
626: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
627: THEN
628: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
709: , 'Entry');
710: END IF;
711:
712: -- Start API initialization
713: IF FND_API.to_boolean(NVL(p_init_msg_list, FND_API.G_FALSE)) THEN
714: FND_MSG_PUB.initialize;
715: END IF;
716:
717: IF NOT FND_API.Compatible_API_Call( l_api_version
713: IF FND_API.to_boolean(NVL(p_init_msg_list, FND_API.G_FALSE)) THEN
714: FND_MSG_PUB.initialize;
715: END IF;
716:
717: IF NOT FND_API.Compatible_API_Call( l_api_version
718: , p_api_version
719: , l_api_name
720: , G_PKG_NAME
721: )
719: , l_api_name
720: , G_PKG_NAME
721: )
722: THEN
723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
724: END IF;
725:
726: x_return_status := FND_API.G_RET_STS_SUCCESS;
727: -- End API initialization
722: THEN
723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
724: END IF;
725:
726: x_return_status := FND_API.G_RET_STS_SUCCESS;
727: -- End API initialization
728:
729: -- Returns 1 if the passed in Sales Order Line ID corresponds to a SHIKYU
730: -- enabled Replenishment SO Line stored in the JMF_SHIKYU_REPLENISHMENTS
756: END IF;
757:
758: EXCEPTION
759:
760: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
761: FND_MSG_PUB.Count_And_Get
762: ( p_count => x_msg_count
763: , p_data => x_msg_data
764: );
762: ( p_count => x_msg_count
763: , p_data => x_msg_data
764: );
765:
766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
767: IF g_fnd_debug = 'Y' AND
768: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
769: THEN
770: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
777: ( p_count => x_msg_count
778: , p_data => x_msg_data
779: );
780:
781: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
782: IF g_fnd_debug = 'Y' AND
783: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
784: THEN
785: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
847: , NULL);
848: END IF;
849:
850: -- Start API initialization
851: IF FND_API.to_boolean(NVL(p_init_msg_list, FND_API.G_FALSE)) THEN
852: FND_MSG_PUB.initialize;
853: END IF;
854:
855: IF NOT FND_API.Compatible_API_Call( l_api_version
851: IF FND_API.to_boolean(NVL(p_init_msg_list, FND_API.G_FALSE)) THEN
852: FND_MSG_PUB.initialize;
853: END IF;
854:
855: IF NOT FND_API.Compatible_API_Call( l_api_version
856: , p_api_version
857: , l_api_name
858: , G_PKG_NAME
859: )
857: , l_api_name
858: , G_PKG_NAME
859: )
860: THEN
861: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
862: END IF;
863:
864: x_return_status := FND_API.G_RET_STS_SUCCESS;
865:
860: THEN
861: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
862: END IF;
863:
864: x_return_status := FND_API.G_RET_STS_SUCCESS;
865:
866: -- End API initialization
867:
868: -- Initializes the output osa flag to 'Y'
950: FND_MSG_PUB.Count_And_Get
951: ( p_count => x_msg_count
952: , p_data => x_msg_data
953: );
954: x_return_status := FND_API.G_RET_STS_ERROR;
955: IF g_fnd_debug = 'Y' AND
956: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
957: THEN
958: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
959: , G_MODULE_PREFIX || l_api_name || '.no_data_found'
960: , 'No Data Found ');
961: END IF;
962:
963: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
964: FND_MSG_PUB.Count_And_Get
965: ( p_count => x_msg_count
966: , p_data => x_msg_data
967: );
965: ( p_count => x_msg_count
966: , p_data => x_msg_data
967: );
968:
969: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
970: IF g_fnd_debug = 'Y' AND
971: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
972: THEN
973: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
980: ( p_count => x_msg_count
981: , p_data => x_msg_data
982: );
983:
984: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
985: IF g_fnd_debug = 'Y' AND
986: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
987: THEN
988: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1032: , 'Entry');
1033: END IF;
1034:
1035: -- Start API initialization
1036: IF FND_API.to_boolean(NVL(p_init_msg_list, FND_API.G_FALSE)) THEN
1037: FND_MSG_PUB.initialize;
1038: END IF;
1039:
1040: IF NOT FND_API.Compatible_API_Call( l_api_version
1036: IF FND_API.to_boolean(NVL(p_init_msg_list, FND_API.G_FALSE)) THEN
1037: FND_MSG_PUB.initialize;
1038: END IF;
1039:
1040: IF NOT FND_API.Compatible_API_Call( l_api_version
1041: , p_api_version
1042: , l_api_name
1043: , G_PKG_NAME
1044: )
1042: , l_api_name
1043: , G_PKG_NAME
1044: )
1045: THEN
1046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1047: END IF;
1048:
1049: x_return_status := FND_API.G_RET_STS_SUCCESS;
1050:
1045: THEN
1046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1047: END IF;
1048:
1049: x_return_status := FND_API.G_RET_STS_SUCCESS;
1050:
1051: -- End API initialization
1052:
1053: SELECT outsourced_assembly, subcontracting_component
1061: FND_MSG_PUB.Count_And_Get
1062: ( p_count => x_msg_count
1063: , p_data => x_msg_data
1064: );
1065: x_return_status := FND_API.G_RET_STS_ERROR;
1066: IF g_fnd_debug = 'Y' AND
1067: FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1068: THEN
1069: FND_LOG.string( FND_LOG.LEVEL_EXCEPTION
1070: , G_MODULE_PREFIX || l_api_name || '.no_data_found'
1071: , 'No Data Found ');
1072: END IF;
1073:
1074: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1075: FND_MSG_PUB.Count_And_Get
1076: ( p_count => x_msg_count
1077: , p_data => x_msg_data
1078: );
1076: ( p_count => x_msg_count
1077: , p_data => x_msg_data
1078: );
1079:
1080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1081: IF g_fnd_debug = 'Y' AND
1082: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1083: THEN
1084: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1091: ( p_count => x_msg_count
1092: , p_data => x_msg_data
1093: );
1094:
1095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1096: IF g_fnd_debug = 'Y' AND
1097: FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL
1098: THEN
1099: FND_LOG.string(FND_LOG.LEVEL_UNEXPECTED
1182: END IF;
1183: RETURN NULL;
1184: WHEN OTHERS THEN
1185: FND_MSG_PUB.Count_And_Get
1186: ( p_encoded => FND_API.G_FALSE
1187: , p_count => l_msg_count
1188: , p_data => l_msg_data
1189: );
1190: IF g_fnd_debug = 'Y' AND