53: END IF;
54:
55: -- Initialize message list if p_init_msg_list is set to TRUE.
56: IF FND_API.to_Boolean( p_init_msg_list ) THEN
57: FND_MSG_PUB.initialize;
58: END IF;
59:
60: /******* Prepare for going into pre processing *******/
61:
125: if lv_ret <> 0 then
126: x_return_status := FND_API.G_RET_STS_ERROR ;
127: FND_MESSAGE.SET_NAME('XDP', 'XDP_INTFACE_PROCESS_FAIL');
128: FND_MESSAGE.SET_TOKEN('ERROR_MSG',lv_str);
129: FND_MSG_PUB.Add;
130: FND_MSG_PUB.COUNT_AND_GET
131: ( p_count => x_msg_count,
132: p_data => x_msg_data
133: );
126: x_return_status := FND_API.G_RET_STS_ERROR ;
127: FND_MESSAGE.SET_NAME('XDP', 'XDP_INTFACE_PROCESS_FAIL');
128: FND_MESSAGE.SET_TOKEN('ERROR_MSG',lv_str);
129: FND_MSG_PUB.Add;
130: FND_MSG_PUB.COUNT_AND_GET
131: ( p_count => x_msg_count,
132: p_data => x_msg_data
133: );
134: return;
240: COMMIT WORK;
241: END IF;
242:
243: -- Standard call to get message count and if count is 1, get message info.
244: FND_MSG_PUB.Count_And_Get (
245: p_count => x_msg_count,
246: p_data => x_msg_data );
247:
248: EXCEPTION
248: EXCEPTION
249: WHEN FND_API.G_EXC_ERROR THEN
250: -- ROLLBACK TO l_order_tag;
251: x_return_status := FND_API.G_RET_STS_ERROR ;
252: FND_MSG_PUB.Count_And_Get
253: ( p_count => x_msg_count ,
254: p_data => x_msg_data
255: );
256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
255: );
256: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
257: -- ROLLBACK TO l_order_tag;
258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
259: FND_MSG_PUB.Count_And_Get
260: ( p_count => x_msg_count,
261: p_data => x_msg_data
262: );
263: WHEN OTHERS THEN
262: );
263: WHEN OTHERS THEN
264: -- ROLLBACK TO l_order_tag;
265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
266: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
267: THEN
268: FND_MSG_PUB.Add_Exc_Msg
269: ( G_PKG_NAME ,
270: l_api_name
264: -- ROLLBACK TO l_order_tag;
265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
266: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
267: THEN
268: FND_MSG_PUB.Add_Exc_Msg
269: ( G_PKG_NAME ,
270: l_api_name
271: );
272: END IF;
269: ( G_PKG_NAME ,
270: l_api_name
271: );
272: END IF;
273: FND_MSG_PUB.Count_And_Get
274: ( p_count => x_msg_count,
275: p_data => x_msg_data
276: );
277:
325: END IF;
326:
327: -- Initialize message list if p_init_msg_list is set to TRUE.
328: IF FND_API.to_Boolean( p_init_msg_list ) THEN
329: FND_MSG_PUB.initialize;
330: END IF;
331:
332:
333: /******* Prepare for going into pre processing *******/
385: if lv_ret <> 0 then
386: x_return_status := FND_API.G_RET_STS_ERROR ;
387: FND_MESSAGE.SET_NAME('XDP', 'XDP_INTFACE_CANCEL_FAIL');
388: FND_MESSAGE.SET_TOKEN('ERROR_MSG',lv_str);
389: FND_MSG_PUB.Add;
390: FND_MSG_PUB.COUNT_AND_GET
391: ( p_count => x_msg_count,
392: p_data => x_msg_data
393: );
386: x_return_status := FND_API.G_RET_STS_ERROR ;
387: FND_MESSAGE.SET_NAME('XDP', 'XDP_INTFACE_CANCEL_FAIL');
388: FND_MESSAGE.SET_TOKEN('ERROR_MSG',lv_str);
389: FND_MSG_PUB.Add;
390: FND_MSG_PUB.COUNT_AND_GET
391: ( p_count => x_msg_count,
392: p_data => x_msg_data
393: );
394: return;
491: COMMIT WORK;
492: END IF;
493:
494: -- Standard call to get message count and if count is 1, get message info.
495: FND_MSG_PUB.Count_And_Get (
496: p_count => x_msg_count,
497: p_data => x_msg_data );
498:
499: EXCEPTION
499: EXCEPTION
500: WHEN FND_API.G_EXC_ERROR THEN
501: -- ROLLBACK TO l_order_tag;
502: x_return_status := FND_API.G_RET_STS_ERROR ;
503: FND_MSG_PUB.Count_And_Get
504: ( p_count => x_msg_count ,
505: p_data => x_msg_data
506: );
507: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
506: );
507: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
508: -- ROLLBACK TO l_order_tag;
509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
510: FND_MSG_PUB.Count_And_Get
511: ( p_count => x_msg_count,
512: p_data => x_msg_data
513: );
514: WHEN OTHERS THEN
513: );
514: WHEN OTHERS THEN
515: -- ROLLBACK TO l_order_tag;
516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
517: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
518: THEN
519: FND_MSG_PUB.Add_Exc_Msg
520: ( G_PKG_NAME ,
521: l_api_name
515: -- ROLLBACK TO l_order_tag;
516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
517: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
518: THEN
519: FND_MSG_PUB.Add_Exc_Msg
520: ( G_PKG_NAME ,
521: l_api_name
522: );
523: END IF;
520: ( G_PKG_NAME ,
521: l_api_name
522: );
523: END IF;
524: FND_MSG_PUB.Count_And_Get
525: ( p_count => x_msg_count,
526: p_data => x_msg_data
527: );
528:
742:
743: -- Initialize message list if p_init_msg_list is set to TRUE.
744:
745: IF FND_API.to_Boolean( p_init_msg_list ) THEN
746: FND_MSG_PUB.initialize;
747: END IF;
748:
749: -- Converting G_Miss variables
750: x_error_code := 0;
818: x_return_status := FND_API.G_RET_STS_ERROR ;
819: x_error_code := lv_ret;
820: FND_MESSAGE.SET_NAME('XDP', 'XDP_INTFACE_PROCESS_FAIL');
821: FND_MESSAGE.SET_TOKEN('ERROR_MSG',lv_str);
822: FND_MSG_PUB.Add;
823: FND_MSG_PUB.COUNT_AND_GET(
824: p_count => x_msg_count,
825: p_data => x_msg_data
826: );
819: x_error_code := lv_ret;
820: FND_MESSAGE.SET_NAME('XDP', 'XDP_INTFACE_PROCESS_FAIL');
821: FND_MESSAGE.SET_TOKEN('ERROR_MSG',lv_str);
822: FND_MSG_PUB.Add;
823: FND_MSG_PUB.COUNT_AND_GET(
824: p_count => x_msg_count,
825: p_data => x_msg_data
826: );
827: --
934: END IF;
935:
936: -- Standard call to get message count and if count is 1, get message info.
937:
938: FND_MSG_PUB.Count_And_Get (
939: p_count => x_msg_count,
940: p_data => x_msg_data );
941:
942: EXCEPTION
943: WHEN FND_API.G_EXC_ERROR THEN
944: -- ROLLBACK TO l_order_tag;
945: x_return_status := FND_API.G_RET_STS_ERROR ;
946: x_error_code := SQLCODE;
947: FND_MSG_PUB.Count_And_Get
948: ( p_count => x_msg_count ,
949: p_data => x_msg_data
950: );
951: x_msg_data := SQLERRM;
952: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
953: -- ROLLBACK TO l_order_tag;
954: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
955: x_error_code := SQLCODE;
956: FND_MSG_PUB.Count_And_Get
957: ( p_count => x_msg_count,
958: p_data => x_msg_data
959: );
960: x_msg_data := SQLERRM;
961: WHEN OTHERS THEN
962: -- ROLLBACK TO l_order_tag;
963: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
964: x_error_code := SQLCODE;
965: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
966: THEN
967: FND_MSG_PUB.Add_Exc_Msg
968: ( G_PKG_NAME ,
969: l_api_name
963: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
964: x_error_code := SQLCODE;
965: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
966: THEN
967: FND_MSG_PUB.Add_Exc_Msg
968: ( G_PKG_NAME ,
969: l_api_name
970: );
971: END IF;
968: ( G_PKG_NAME ,
969: l_api_name
970: );
971: END IF;
972: FND_MSG_PUB.Count_And_Get
973: ( p_count => x_msg_count,
974: p_data => x_msg_data
975: );
976: x_msg_data := SQLERRM;
1026:
1027: -- Initialize message list if p_init_msg_list is set to TRUE.
1028:
1029: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1030: FND_MSG_PUB.initialize;
1031: END IF;
1032:
1033: l_caller_name := p_caller_name;
1034:
1106: x_error_code := lv_ret;
1107: x_return_status := FND_API.G_RET_STS_ERROR ;
1108: FND_MESSAGE.SET_NAME('XDP', 'XDP_INTFACE_CANCEL_FAIL');
1109: FND_MESSAGE.SET_TOKEN('ERROR_MSG',lv_str);
1110: FND_MSG_PUB.Add;
1111: FND_MSG_PUB.COUNT_AND_GET
1112: ( p_count => x_msg_count,
1113: p_data => x_msg_data
1114: );
1107: x_return_status := FND_API.G_RET_STS_ERROR ;
1108: FND_MESSAGE.SET_NAME('XDP', 'XDP_INTFACE_CANCEL_FAIL');
1109: FND_MESSAGE.SET_TOKEN('ERROR_MSG',lv_str);
1110: FND_MSG_PUB.Add;
1111: FND_MSG_PUB.COUNT_AND_GET
1112: ( p_count => x_msg_count,
1113: p_data => x_msg_data
1114: );
1115: --
1187: END IF;
1188:
1189: -- Standard call to get message count and if count is 1, get message info.
1190:
1191: FND_MSG_PUB.Count_And_Get (
1192: p_count => x_msg_count,
1193: p_data => x_msg_data );
1194:
1195: EXCEPTION
1196: WHEN FND_API.G_EXC_ERROR THEN
1197: -- ROLLBACK TO l_order_tag;
1198: x_return_status := FND_API.G_RET_STS_ERROR ;
1199: x_error_code := SQLCODE;
1200: FND_MSG_PUB.Count_And_Get
1201: ( p_count => x_msg_count ,
1202: p_data => x_msg_data
1203: );
1204: x_msg_data := SQLERRM;
1205: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1206: -- ROLLBACK TO l_order_tag;
1207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1208: x_error_code := SQLCODE;
1209: FND_MSG_PUB.Count_And_Get
1210: ( p_count => x_msg_count,
1211: p_data => x_msg_data
1212: );
1213: x_msg_data := SQLERRM;
1214: WHEN OTHERS THEN
1215: -- ROLLBACK TO l_order_tag;
1216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1217: x_error_code := SQLCODE;
1218: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1219: THEN
1220: FND_MSG_PUB.Add_Exc_Msg
1221: ( G_PKG_NAME ,
1222: l_api_name
1216: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1217: x_error_code := SQLCODE;
1218: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1219: THEN
1220: FND_MSG_PUB.Add_Exc_Msg
1221: ( G_PKG_NAME ,
1222: l_api_name
1223: );
1224: END IF;
1221: ( G_PKG_NAME ,
1222: l_api_name
1223: );
1224: END IF;
1225: FND_MSG_PUB.Count_And_Get
1226: ( p_count => x_msg_count,
1227: p_data => x_msg_data
1228: );
1229: x_msg_data := SQLERRM;
1280:
1281: -- Initialize message list if p_init_msg_list is set to TRUE.
1282:
1283: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1284: FND_MSG_PUB.initialize;
1285: END IF;
1286:
1287: l_order_id := p_order_id;
1288: l_order_number := p_order_number;
1354: x_return_status := FND_API.G_RET_STS_ERROR ;
1355: x_error_code := lv_ret;
1356: FND_MESSAGE.SET_NAME('XDP', 'XDP_INTFACE_DETAILS_FAIL');
1357: FND_MESSAGE.SET_TOKEN('ERROR_MSG',lv_str);
1358: FND_MSG_PUB.Add;
1359: FND_MSG_PUB.COUNT_AND_GET
1360: ( p_count => x_msg_count,
1361: p_data => x_msg_data
1362: );
1355: x_error_code := lv_ret;
1356: FND_MESSAGE.SET_NAME('XDP', 'XDP_INTFACE_DETAILS_FAIL');
1357: FND_MESSAGE.SET_TOKEN('ERROR_MSG',lv_str);
1358: FND_MSG_PUB.Add;
1359: FND_MSG_PUB.COUNT_AND_GET
1360: ( p_count => x_msg_count,
1361: p_data => x_msg_data
1362: );
1363: --
1427: -- END IF;
1428:
1429: -- Standard call to get message count and if count is 1, get message info.
1430:
1431: FND_MSG_PUB.Count_And_Get (
1432: p_count => x_msg_count,
1433: p_data => x_msg_data );
1434:
1435: EXCEPTION
1436: WHEN FND_API.G_EXC_ERROR THEN
1437: -- ROLLBACK TO l_order_tag;
1438: x_return_status := FND_API.G_RET_STS_ERROR ;
1439: x_error_code := SQLCODE;
1440: FND_MSG_PUB.Count_And_Get
1441: ( p_count => x_msg_count ,
1442: p_data => x_msg_data
1443: );
1444: x_msg_data := SQLERRM;
1445: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1446: -- ROLLBACK TO l_order_tag;
1447: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1448: x_error_code := SQLCODE;
1449: FND_MSG_PUB.Count_And_Get
1450: ( p_count => x_msg_count,
1451: p_data => x_msg_data
1452: );
1453: x_msg_data := SQLERRM;
1454: WHEN OTHERS THEN
1455: -- ROLLBACK TO l_order_tag;
1456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1457: x_error_code := SQLCODE;
1458: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1459: THEN
1460: FND_MSG_PUB.Add_Exc_Msg
1461: ( G_PKG_NAME ,
1462: l_api_name
1456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1457: x_error_code := SQLCODE;
1458: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1459: THEN
1460: FND_MSG_PUB.Add_Exc_Msg
1461: ( G_PKG_NAME ,
1462: l_api_name
1463: );
1464: END IF;
1461: ( G_PKG_NAME ,
1462: l_api_name
1463: );
1464: END IF;
1465: FND_MSG_PUB.Count_And_Get
1466: ( p_count => x_msg_count,
1467: p_data => x_msg_data
1468: );
1469: x_msg_data := SQLERRM;
1519:
1520: -- Initialize message list if p_init_msg_list is set to TRUE.
1521:
1522: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1523: FND_MSG_PUB.initialize;
1524: END IF;
1525:
1526: l_order_id := p_order_id;
1527: l_order_number := p_order_number;
1582: x_return_status := FND_API.G_RET_STS_ERROR ;
1583: x_error_code := lv_ret;
1584: FND_MESSAGE.SET_NAME('XDP', 'XDP_INTFACE_STATUS_FAIL');
1585: FND_MESSAGE.SET_TOKEN('ERROR_MSG',lv_str);
1586: FND_MSG_PUB.Add;
1587: FND_MSG_PUB.COUNT_AND_GET
1588: ( p_count => x_msg_count,
1589: p_data => x_msg_data
1590: );
1583: x_error_code := lv_ret;
1584: FND_MESSAGE.SET_NAME('XDP', 'XDP_INTFACE_STATUS_FAIL');
1585: FND_MESSAGE.SET_TOKEN('ERROR_MSG',lv_str);
1586: FND_MSG_PUB.Add;
1587: FND_MSG_PUB.COUNT_AND_GET
1588: ( p_count => x_msg_count,
1589: p_data => x_msg_data
1590: );
1591: --
1649: -- END IF;
1650:
1651: -- Standard call to get message count and if count is 1, get message info.
1652:
1653: FND_MSG_PUB.Count_And_Get (
1654: p_count => x_msg_count,
1655: p_data => x_msg_data );
1656:
1657: EXCEPTION
1658: WHEN FND_API.G_EXC_ERROR THEN
1659: -- ROLLBACK TO l_order_tag;
1660: x_return_status := FND_API.G_RET_STS_ERROR ;
1661: x_error_code := SQLCODE;
1662: FND_MSG_PUB.Count_And_Get
1663: ( p_count => x_msg_count ,
1664: p_data => x_msg_data
1665: );
1666: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1666: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1667: -- ROLLBACK TO l_order_tag;
1668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1669: x_error_code := SQLCODE;
1670: FND_MSG_PUB.Count_And_Get
1671: ( p_count => x_msg_count,
1672: p_data => x_msg_data
1673: );
1674: WHEN OTHERS THEN
1674: WHEN OTHERS THEN
1675: -- ROLLBACK TO l_order_tag;
1676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1677: x_error_code := SQLCODE;
1678: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1679: THEN
1680: FND_MSG_PUB.Add_Exc_Msg
1681: ( G_PKG_NAME ,
1682: l_api_name
1676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1677: x_error_code := SQLCODE;
1678: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1679: THEN
1680: FND_MSG_PUB.Add_Exc_Msg
1681: ( G_PKG_NAME ,
1682: l_api_name
1683: );
1684: END IF;
1681: ( G_PKG_NAME ,
1682: l_api_name
1683: );
1684: END IF;
1685: FND_MSG_PUB.Count_And_Get
1686: ( p_count => x_msg_count,
1687: p_data => x_msg_data
1688: );
1689: END Get_Order_Status;