[Home] [Help]
140: return_code OUT NOCOPY NUMBER,
141: error_description OUT NOCOPY VARCHAR2);
142:
143: --
144: -- Private API which will update xdp_order_headers status_code
145: --
146: --
147: PROCEDURE UPDATE_XDP_ORDER_STATUS
148: (p_order_id IN NUMBER ,
143: --
144: -- Private API which will update xdp_order_headers status_code
145: --
146: --
147: PROCEDURE UPDATE_XDP_ORDER_STATUS
148: (p_order_id IN NUMBER ,
149: p_status IN VARCHAR2,
150: p_caller_name IN VARCHAR2,
151: return_code OUT NOCOPY NUMBER,
151: return_code OUT NOCOPY NUMBER,
152: error_description OUT NOCOPY VARCHAR2) ;
153:
154: --
155: -- Private API which will update xdp_order_line_items status_code
156: --
157: --
158: PROCEDURE UPDATE_XDP_ORDER_LINE_STATUS
159: (p_order_id IN NUMBER,
154: --
155: -- Private API which will update xdp_order_line_items status_code
156: --
157: --
158: PROCEDURE UPDATE_XDP_ORDER_LINE_STATUS
159: (p_order_id IN NUMBER,
160: p_lineitem_id IN NUMBER ,
161: p_status IN VARCHAR2,
162: p_caller_name IN VARCHAR2,
276: l_workitem_name VARCHAR2(200);
277: l_order_id NUMBER;
278: BEGIN
279:
280: SELECT XDP_ORDER_HEADERS_S.NextVal
281: INTO l_order_id
282: FROM dual;
283:
284: l_ORDER_HEADER.order_number := 'DRC-'||TO_CHAR(l_order_id+1);
418: BEGIN
419: IF p_order_version IS NOT NULL THEN
420: SELECT order_id
421: INTO lv_id
422: FROM xdp_order_headers
423: WHERE external_order_number = (p_order_number) and
424: external_order_version = (p_order_version);
425: ELSE
426: SELECT order_id
424: external_order_version = (p_order_version);
425: ELSE
426: SELECT order_id
427: INTO lv_id
428: FROM xdp_order_headers
429: WHERE external_order_number = (p_order_number) and
430: external_order_version IS NULL;
431: END IF;
432:
441:
442: EXCEPTION
443: WHEN no_data_found THEN
444: return_code := -191314;
445: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_VERSION_NOTEXISTS');
446: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER', p_order_number);
447: FND_MESSAGE.SET_TOKEN('ORDER_VERSION', p_order_version);
448: error_description := FND_MESSAGE.GET;
449: return;
488: lv_msg_error VARCHAR2(800);
489:
490: CURSOR lc_prereq_order IS
491: SELECT related_order_id
492: FROM xdp_order_relationships
493: WHERE order_id = p_sdp_order_id
494: AND order_relationship = 'IS_PREREQUISITE_OF';
495:
496: lv_user VARCHAR2(80);
500: --Cursor to fetch the item_keys for the SFM-OM Interface flows to be cancelled.
501: */
502: CURSOR lc_intf_flow_keys (p_order_number NUMBER) IS
503: SELECT line_number
504: FROM xdp_order_line_items xoli, xdp_order_headers xoh
505: WHERE xoli.order_id = xoh.order_id
506: AND xoh.order_source = 'OE_ORDER_HEADERS_ALL'
507: AND xoh.order_id = p_order_number;
508:
531: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
532: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
533: dbg_msg := ('Calling CANCELORDER');
534: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
535: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER', dbg_msg);
536: END IF;
537: END IF;
538: END IF;
539:
576: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
577: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
578: dbg_msg := ('Completed Order Cancelation deregistering timers');
579: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
580: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER', dbg_msg);
581: END IF;
582: END IF;
583: END IF;
584:
595: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
596: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
597: dbg_msg := ('Deregistering Events ');
598: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
599: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER', dbg_msg);
600: END IF;
601: END IF;
602: END IF;
603:
626: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
627: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER')) THEN
628: dbg_msg := ('Canceling Messages ');
629: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
630: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_ORDER.VALIDATE_ORDER', dbg_msg);
631: END IF;
632: END IF;
633: END IF;
634:
656: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_ORDER', dbg_msg);
657: END IF;
658: END IF;
659:
660: -- SFM-OM Interface flows have item_key = 'XDPOMINT' and item_key =
662: FOR l_intf_flow_key IN lc_intf_flow_keys (p_sdp_order_id)
663: LOOP
664: BEGIN --For the exceptions from the WF API call.
719: order_type
720: INTO lv_state,
721: lv_msg_id,
722: lv_order_type
723: FROM xdp_order_headers
724: WHERE order_id = p_sdp_order_id;
725:
726: --============================================================
727: -- Validate Order Type in High Availability Maintenance Mode
749: END IF;
750: END IF;
751:
752: return_code := -191315;
753: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_STATE_CANCEL');
754: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
755: error_description := FND_MESSAGE.GET;
756: return;
757:
766: END IF;
767: END IF;
768:
769: return_code := -191316;
770: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_STATE_PROCESS');
771: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
772: error_description := FND_MESSAGE.GET;
773: return;
774:
877: END IF;
878: END IF;
879:
880: return_code := -191317;
881: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_STATE_UNKNOWN');
882: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
883: FND_MESSAGE.SET_TOKEN('STATUS', lv_state);
884: error_description := FND_MESSAGE.GET;
885: return;
889: EXCEPTION
890: WHEN NO_DATA_FOUND THEN
891: rollback to lv_order_tag;
892: return_code := SQLCODE;
893: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_NOTEXISTS');
894: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
895: error_description := FND_MESSAGE.GET;
896:
897: WHEN e_order_type_not_reg THEN
894: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
895: error_description := FND_MESSAGE.GET;
896:
897: WHEN e_order_type_not_reg THEN
898: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_TYPE_NOT_AVAILABLE');
899: FND_MESSAGE.SET_TOKEN('ORDNUM', p_sdp_order_id);
900: error_description := FND_MESSAGE.GET;
901:
902: WHEN OTHERS THEN
932: END IF;
933:
934: SELECT status_code
935: INTO l_status_code
936: FROM xdp_order_headers
937: WHERE order_id = p_order_id
938: FOR UPDATE NOWAIT ;
939:
940: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
938: FOR UPDATE NOWAIT ;
939:
940: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
941: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER')) THEN
942: dbg_msg := ('Aquired Lock on XDP_ORDER_HEADERS Calling UPDATE_XDP_ORDER_STATUS ');
943: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
944: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER', dbg_msg);
945: END IF;
946: END IF;
945: END IF;
946: END IF;
947: END IF;
948:
949: -- update status_code of the XDP_ORDER_HEADERS
950:
951: UPDATE_XDP_ORDER_STATUS
952: (p_order_id => p_order_id,
953: p_status => 'CANCELED',
947: END IF;
948:
949: -- update status_code of the XDP_ORDER_HEADERS
950:
951: UPDATE_XDP_ORDER_STATUS
952: (p_order_id => p_order_id,
953: p_status => 'CANCELED',
954: p_caller_name => p_caller_name,
955: return_code => return_code,
961:
962:
963: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
964: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER')) THEN
965: dbg_msg := ('Completed UPDATE_XDP_ORDER_STATUS Calling UPDATE_XDP_ORDER_LINE_STATUS ');
966: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
967: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER', dbg_msg);
968: END IF;
969: END IF;
968: END IF;
969: END IF;
970: END IF;
971:
972: -- update status_code of the XDP_ORDER_LINE_ITEMS
973:
974: UPDATE_XDP_ORDER_LINE_STATUS
975: (p_order_id => p_order_id ,
976: p_lineitem_id => null ,
970: END IF;
971:
972: -- update status_code of the XDP_ORDER_LINE_ITEMS
973:
974: UPDATE_XDP_ORDER_LINE_STATUS
975: (p_order_id => p_order_id ,
976: p_lineitem_id => null ,
977: p_status => 'CANCELED',
978: p_caller_name => p_caller_name,
986:
987:
988: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
989: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER')) THEN
990: dbg_msg := ('Completed UPDATE_XDP_ORDER_LINE_STATUS Calling UPDATE_XDP_WI_INSTANCE_STATUS ');
991: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
992: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_STANDBY_ORDER', dbg_msg);
993: END IF;
994: END IF;
1079: return_code := 0;
1080:
1081: LOCK_AND_REMOVE_MSG(
1082: p_msg_id => cancel_ready_order.p_msg_id,
1083: p_queue_name => 'XDP_ORDER_PROC_QUEUE',
1084: x_user_data => lv_user_data,
1085: x_lock_status => lv_lock_status,
1086: x_error => lv_error);
1087:
1088: IF lv_lock_status = G_LOCK_MSG_SUCCESS THEN
1089:
1090: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1091: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1092: dbg_msg := ('Aquired Lock on XDP_ORDER_PROC_QUEUE Calling UPDATE_XDP_ORDER_STATUS ');
1093: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1094: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1095: END IF;
1096: END IF;
1095: END IF;
1096: END IF;
1097: END IF;
1098:
1099: UPDATE_XDP_ORDER_STATUS
1100: (p_order_id => p_sdp_order_id,
1101: p_status => 'CANCELED',
1102: p_caller_name => p_caller_name,
1103: return_code => return_code ,
1109:
1110:
1111: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1112: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1113: dbg_msg := ('Completed UPDATE_XDP_ORDER_STATUS Calling UPDATE_XDP_ORDER_LINE_STATUS ');
1114: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1115: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1116: END IF;
1117: END IF;
1116: END IF;
1117: END IF;
1118: END IF;
1119:
1120: UPDATE_XDP_ORDER_LINE_STATUS
1121: (p_order_id => p_sdp_order_id ,
1122: p_lineitem_id => null ,
1123: p_status => 'CANCELED',
1124: p_caller_name => p_caller_name,
1131:
1132:
1133: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1134: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER')) THEN
1135: dbg_msg := ('Completed UPDATE_XDP_ORDER_LINE_STATUS Calling UPDATE_XDP_WI_INSTANCE_STATUS ');
1136: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1137: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_READY_ORDER', dbg_msg);
1138: END IF;
1139: END IF;
1164: END IF;
1165:
1166: SELECT wf_item_type, wf_item_key
1167: INTO l_main_wf_item_type, l_main_wf_item_key
1168: FROM xdp_order_headers
1169: WHERE order_id = p_sdp_order_id;
1170:
1171: IF (l_main_wf_item_type IS NOT NULL AND l_main_wf_item_key IS NOT NULL) THEN
1172: BEGIN --For the exceptions from the WF API call.
1254: l_fa_item_key VARCHAR2(300);
1255: l_fa_item_type VARCHAR2(80);
1256: l_fa_instance_id NUMBER ;
1257:
1258: e_xdp_order_state_cancel EXCEPTION ;
1259: e_xdp_order_state_process EXCEPTION ;
1260: e_xdp_fa_state_inprogress EXCEPTION ;
1261:
1262: CURSOR c_fa(l_order_id NUMBER) IS
1255: l_fa_item_type VARCHAR2(80);
1256: l_fa_instance_id NUMBER ;
1257:
1258: e_xdp_order_state_cancel EXCEPTION ;
1259: e_xdp_order_state_process EXCEPTION ;
1260: e_xdp_fa_state_inprogress EXCEPTION ;
1261:
1262: CURSOR c_fa(l_order_id NUMBER) IS
1263: SELECT fa_instance_id,
1283: SELECT line_item_id,
1284: wf_item_key,
1285: wf_item_type,
1286: status_code
1287: FROM xdp_order_line_items
1288: WHERE order_id = l_order_id
1289: ORDER By is_package_flag;
1290:
1291: BEGIN
1312: lv_item_type,
1313: lv_item_key,
1314: lv_state,
1315: lv_msg_id
1316: FROM xdp_order_headers
1317: WHERE order_id = p_sdp_order_id
1318: FOR UPDATE of XDP_ORDER_HEADERS.STATUS_CODE NOWAIT;
1319:
1320: -- Order has already been canceled
1314: lv_state,
1315: lv_msg_id
1316: FROM xdp_order_headers
1317: WHERE order_id = p_sdp_order_id
1318: FOR UPDATE of XDP_ORDER_HEADERS.STATUS_CODE NOWAIT;
1319:
1320: -- Order has already been canceled
1321: IF lv_state IN ('CANCELED','ABORTED') THEN
1322:
1327: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1328: END IF;
1329: END IF;
1330: END IF;
1331: raise e_xdp_order_state_cancel ;
1332:
1333: -- Order has already been completed
1334:
1335: ELSIF lv_state IN ('SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
1341: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1342: END IF;
1343: END IF;
1344: END IF;
1345: raise e_xdp_order_state_process ;
1346:
1347: -- Order has already been started
1348: ELSIF lv_state = 'IN PROGRESS' THEN
1349: lv_abort_wf := TRUE;
1503: LOOP
1504:
1505: SELECT status_code
1506: INTO lv_state
1507: FROM xdp_order_line_items
1508: WHERE line_item_id = c_line_rec.line_item_id
1509: FOR UPDATE OF STATUS_CODE NOWAIT;
1510:
1511: IF lv_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
1520: NULL ;
1521: ELSE
1522: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1523: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1524: dbg_msg := ('Calling UPDATE_XDP_ORDER_LINE_STATUS for Line : '||c_line_rec.line_item_id);
1525: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1526: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1527: END IF;
1528: END IF;
1527: END IF;
1528: END IF;
1529: END IF;
1530:
1531: UPDATE_XDP_ORDER_LINE_STATUS
1532: (p_order_id => null,
1533: p_lineitem_id => c_line_rec.line_item_id,
1534: p_status => 'CANCELED',
1535: p_caller_name => p_caller_name,
1543: END LOOP;
1544:
1545: SELECT oh.status_code --- ?? Do I need to lock it again ?
1546: INTO lv_state
1547: FROM xdp_order_headers oh
1548: WHERE oh.order_id = p_sdp_order_id
1549: FOR UPDATE OF oh.status_code NOWAIT;
1550:
1551: IF lv_state IN ('CANCELED','ABORTED') then
1548: WHERE oh.order_id = p_sdp_order_id
1549: FOR UPDATE OF oh.status_code NOWAIT;
1550:
1551: IF lv_state IN ('CANCELED','ABORTED') then
1552: raise e_xdp_order_state_cancel ;
1553: ELSIF lv_state IN ('SUCCESS','SUCCESS_WITH_OVERRIDE') then
1554: raise e_xdp_order_state_process ;
1555: ELSE
1556: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1550:
1551: IF lv_state IN ('CANCELED','ABORTED') then
1552: raise e_xdp_order_state_cancel ;
1553: ELSIF lv_state IN ('SUCCESS','SUCCESS_WITH_OVERRIDE') then
1554: raise e_xdp_order_state_process ;
1555: ELSE
1556: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1557: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1558: dbg_msg := ('Calling UPDATE_XDP_ORDER_STATUS' );
1554: raise e_xdp_order_state_process ;
1555: ELSE
1556: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1557: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1558: dbg_msg := ('Calling UPDATE_XDP_ORDER_STATUS' );
1559: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1560: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1561: END IF;
1562: END IF;
1562: END IF;
1563: END IF;
1564:
1565:
1566: UPDATE_XDP_ORDER_STATUS
1567: (p_order_id => p_sdp_order_id,
1568: p_status => 'CANCELED',
1569: p_caller_name => p_caller_name,
1570: return_code => return_code,
1575: END IF;
1576:
1577: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
1578: IF (FND_LOG.TEST(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER')) THEN
1579: dbg_msg := ('Completed UPDATE_XDP_ORDER_STATUS Calling ABORT_ORDER_WORKFLOWS' );
1580: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
1581: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, 'xdp.plsql.XDP_INTERFACES.CANCEL_INPROGRESS_ORDER', dbg_msg);
1582: END IF;
1583: END IF;
1593: return;
1594: END IF;
1595: END IF;
1596: ELSE
1597: raise e_xdp_order_state_process;
1598: -- raise can not cancel order
1599: END IF;
1600:
1601: EXCEPTION
1604: FND_MESSAGE.SET_NAME('XDP', 'XDP_CANNOT_REMOVE_ORDER');
1605: FND_MESSAGE.SET_TOKEN('ERROR_STRING', lv_error);
1606: error_description := FND_MESSAGE.GET;
1607: return;
1608: WHEN e_xdp_order_state_process THEN
1609: return_code := -191316;
1610: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_STATE_PROCESS');
1611: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
1612: error_description := FND_MESSAGE.GET;
1606: error_description := FND_MESSAGE.GET;
1607: return;
1608: WHEN e_xdp_order_state_process THEN
1609: return_code := -191316;
1610: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_STATE_PROCESS');
1611: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
1612: error_description := FND_MESSAGE.GET;
1613: rollback to lv_order_tag;
1614: return;
1611: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
1612: error_description := FND_MESSAGE.GET;
1613: rollback to lv_order_tag;
1614: return;
1615: WHEN e_xdp_order_state_cancel THEN
1616: return_code := -191315;
1617: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_STATE_CANCEL');
1618: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
1619: error_description := FND_MESSAGE.GET;
1613: rollback to lv_order_tag;
1614: return;
1615: WHEN e_xdp_order_state_cancel THEN
1616: return_code := -191315;
1617: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_STATE_CANCEL');
1618: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
1619: error_description := FND_MESSAGE.GET;
1620: rollback to lv_order_tag;
1621: return;
1669: WHERE order_id = l_order_id;
1670:
1671: CURSOR lc_line(l_order_id number) IS
1672: SELECT line_item_id
1673: FROM xdp_order_line_items
1674: WHERE order_id = l_order_id
1675: ORDER By is_package_flag;
1676:
1677: BEGIN
1688: lv_item_type,
1689: lv_item_key,
1690: lv_state,
1691: lv_msg_id
1692: FROM xdp_order_headers
1693: WHERE order_id = p_sdp_order_id
1694: FOR UPDATE of XDP_ORDER_HEADERS.STATUS_CODE NOWAIT;
1695:
1696: -- Order has already been canceled
1690: lv_state,
1691: lv_msg_id
1692: FROM xdp_order_headers
1693: WHERE order_id = p_sdp_order_id
1694: FOR UPDATE of XDP_ORDER_HEADERS.STATUS_CODE NOWAIT;
1695:
1696: -- Order has already been canceled
1697: IF lv_state IN ('CANCELED','ABORTED') THEN
1698: return_code := -191315;
1695:
1696: -- Order has already been canceled
1697: IF lv_state IN ('CANCELED','ABORTED') THEN
1698: return_code := -191315;
1699: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_STATE_CANCEL');
1700: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
1701: error_description := FND_MESSAGE.GET;
1702: rollback to lv_order_tag;
1703: return;
1705: -- Order has already been completed
1706:
1707: ELSIF lv_state IN ('SUCCESS','SUCCESS_WITH_OVERRIDE') THEN
1708: return_code := -191316;
1709: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_STATE_PROCESS');
1710: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
1711: error_description := FND_MESSAGE.GET;
1712: rollback to lv_order_tag;
1713: return;
1725:
1726: IF lv_in_queue = 'Y' THEN
1727: Lock_and_Remove_Msg(
1728: p_msg_id => lv_msg_id,
1729: p_queue_name => 'XDP_ORDER_PROC_QUEUE',
1730: x_user_data =>lv_user_data,
1731: x_lock_status => lv_lock_status,
1732: x_error => lv_error);
1733:
1735:
1736: -- No Order Workflow has been started
1737: -- Simply update the state to CANCELED
1738:
1739: update xdp_order_headers
1740: set last_updated_by = FND_GLOBAL.USER_ID,
1741: last_update_date = sysdate,
1742: last_update_login = FND_GLOBAL.LOGIN_ID,
1743: status_code = 'CANCELED',
1744: canceled_by = p_caller_name,
1745: cancel_provisioning_date = sysdate
1746: where order_id = p_sdp_order_id;
1747:
1748: update xdp_order_line_items
1749: set last_updated_by = FND_GLOBAL.USER_ID,
1750: last_update_date = sysdate,
1751: last_update_login = FND_GLOBAL.LOGIN_ID,
1752: status_code = 'CANCELED',
1832: savepoint lv_line_tag;
1833:
1834: select status_code
1835: into lv_state
1836: from xdp_order_line_items
1837: where line_item_id = lv_line_rec.line_item_id
1838: for update of status_code;
1839:
1840: if lv_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') then
1839:
1840: if lv_state IN ('CANCELED','ABORTED','SUCCESS','SUCCESS_WITH_OVERRIDE') then
1841: rollback to lv_line_tag;
1842: else
1843: update xdp_order_line_items
1844: set
1845: last_updated_by = FND_GLOBAL.USER_ID,
1846: last_update_date = sysdate,
1847: last_update_login = FND_GLOBAL.LOGIN_ID,
1856: savepoint lv_order_tag2;
1857:
1858: select status_code
1859: into lv_state
1860: from xdp_order_headers
1861: where order_id = p_sdp_order_id
1862: FOR UPDATE of XDP_ORDER_HEADERS.STATUS_CODE ;
1863:
1864: if lv_state IN ('CANCELED','ABORTED') then
1858: select status_code
1859: into lv_state
1860: from xdp_order_headers
1861: where order_id = p_sdp_order_id
1862: FOR UPDATE of XDP_ORDER_HEADERS.STATUS_CODE ;
1863:
1864: if lv_state IN ('CANCELED','ABORTED') then
1865: return_code := -191315;
1866: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_STATE_CANCEL');
1862: FOR UPDATE of XDP_ORDER_HEADERS.STATUS_CODE ;
1863:
1864: if lv_state IN ('CANCELED','ABORTED') then
1865: return_code := -191315;
1866: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_STATE_CANCEL');
1867: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
1868: error_description := FND_MESSAGE.GET;
1869: return;
1870: elsif lv_state IN ('SUCCESS','SUCCESS_WITH_OVERRIDE') then
1869: return;
1870: elsif lv_state IN ('SUCCESS','SUCCESS_WITH_OVERRIDE') then
1871: rollback to lv_order_tag2;
1872: return_code := -191316;
1873: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_STATE_PROCESS');
1874: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
1875: error_description := FND_MESSAGE.GET;
1876: return;
1877: else
1874: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
1875: error_description := FND_MESSAGE.GET;
1876: return;
1877: else
1878: update xdp_order_headers
1879: set last_updated_by = FND_GLOBAL.USER_ID,
1880: last_update_date = sysdate,
1881: last_update_login = FND_GLOBAL.LOGIN_ID,
1882: status_code = 'CANCELED',
2134: return_code := 0;
2135:
2136: select wf_item_type,wf_item_key
2137: into lv_type, lv_key
2138: from xdp_order_headers
2139: where order_id = p_sdp_order_id;
2140:
2141:
2142: FOR lv_wf_rec IN lc_wf_process(lv_type,lv_key) LOOP
2249: return_code := SQLCODE;
2250: /*
2251: error_description := 'Error: Order ID '||p_sdp_order_id||' does not exist in SFM.';
2252: */
2253: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_NOTEXISTS');
2254: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
2255: error_description := FND_MESSAGE.GET;
2256: WHEN OTHERS THEN
2257: return_code := -191266;
2290: x_state ,
2291: x_completion_date,
2292: x_cancellation_date
2293: from
2294: XDP_ORDER_HEADERS
2295: WHERE
2296: order_id = p_sdp_order_id;
2297:
2298: EXCEPTION
2297:
2298: EXCEPTION
2299: WHEN NO_DATA_FOUND THEN
2300: x_return_code := SQLCODE;
2301: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_NOTEXISTS');
2302: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
2303: x_error_description := FND_MESSAGE.GET;
2304: WHEN OTHERS THEN
2305: x_return_code := -191266;
2338: x_state,
2339: x_completion_date,
2340: x_cancellation_date
2341: from
2342: XDP_ORDER_HEADERS
2343: WHERE
2344: external_order_number = (p_order_number) and
2345: NVL(external_order_version,'-1') = NVL((p_order_version),'-1') ;
2346:
2347:
2348: EXCEPTION
2349: WHEN NO_DATA_FOUND THEN
2350: x_return_code := -191314;
2351: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_VERSION_NOTEXISTS');
2352: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER', p_order_number);
2353: FND_MESSAGE.SET_TOKEN('ORDER_VERSION', p_order_version);
2354: x_error_description := FND_MESSAGE.GET;
2355: WHEN OTHERS THEN
2387: x_status,
2388: x_state ,
2389: x_completion_date,
2390: x_cancellation_date
2391: from XDP_ORDER_LINE_ITEMS
2392: WHERE order_id = p_sdp_order_id and
2393: line_number = p_line_number ;
2394:
2395:
2395:
2396: EXCEPTION
2397: WHEN NO_DATA_FOUND THEN
2398: x_return_code := -191323;
2399: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_LINE_NOTEXISTS');
2400: FND_MESSAGE.SET_TOKEN('LINE_NUMBER', p_line_number);
2401: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER', p_sdp_order_id);
2402: x_error_description := FND_MESSAGE.GET;
2403: WHEN OTHERS THEN
2438: x_state ,
2439: x_completion_date,
2440: x_cancellation_date
2441: from
2442: XDP_ORDER_LINE_ITEMS olm,
2443: XDP_ORDER_HEADERS ohr
2444: WHERE
2445: olm.order_id = ohr.order_id and
2446: ohr.external_order_number = (p_order_number) and
2439: x_completion_date,
2440: x_cancellation_date
2441: from
2442: XDP_ORDER_LINE_ITEMS olm,
2443: XDP_ORDER_HEADERS ohr
2444: WHERE
2445: olm.order_id = ohr.order_id and
2446: ohr.external_order_number = (p_order_number) and
2447: NVL(ohr.external_order_version,'-1') = NVL((p_order_version) ,'-1') and
2449:
2450: EXCEPTION
2451: WHEN NO_DATA_FOUND THEN
2452: x_return_code := -191323;
2453: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_LINE_NOTEXISTS');
2454: FND_MESSAGE.SET_TOKEN('LINE_NUMBER', p_line_number);
2455: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER', p_order_number);
2456: x_error_description := FND_MESSAGE.GET;
2457: WHEN OTHERS THEN
2487: olm.status_code,
2488: olm.completion_date,
2489: olm.cancel_provisioning_date
2490: from
2491: XDP_ORDER_LINE_ITEMS olm,
2492: XDP_ORDER_HEADERS ohr
2493: WHERE
2494: olm.order_id = ohr.order_id and
2495: ohr.external_order_number = (p_order_number) and
2488: olm.completion_date,
2489: olm.cancel_provisioning_date
2490: from
2491: XDP_ORDER_LINE_ITEMS olm,
2492: XDP_ORDER_HEADERS ohr
2493: WHERE
2494: olm.order_id = ohr.order_id and
2495: ohr.external_order_number = (p_order_number) and
2496: NVL(ohr.external_order_version,'-1') = NVL((p_order_version) ,'-1') and
2560: return_code := SQLCODE;
2561: /*
2562: error_description := 'Error: Order ID '||p_sdp_order_id||' does not exist in SFM.';
2563: */
2564: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_NOTEXISTS');
2565: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
2566: error_description := FND_MESSAGE.GET;
2567: WHEN OTHERS THEN
2568: return_code := -191266;
2596: return_code := SQLCODE;
2597: /*
2598: error_description := 'Error: Order ID '||p_sdp_order_id||' does not exist in SFM.';
2599: */
2600: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_NOTEXISTS');
2601: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_sdp_order_id);
2602: error_description := FND_MESSAGE.GET;
2603: WHEN OTHERS THEN
2604: return_code := -191266;
2688: BEGIN
2689:
2690: SELECT line_item_id
2691: INTO l_line_item_id
2692: FROM xdp_order_line_items
2693: WHERE order_id = p_order_id
2694: AND NVL(LINE_NUMBER,0) = NVL(p_line_number,0);
2695:
2696: x_parameter_value := XDP_ENGINE.Get_Line_Param_Value(l_line_item_id,p_parameter_name);
2999: two folds of meaning. When it is null, the internal API will think this
3000: call will be used
3001: */
3002:
3003: XDP_ORDER.Process_Order(
3004: lv_order_header,
3005: lv_order_param_list,
3006: lv_order_line_list,
3007: lv_line_param_list,
3034: IS
3035: CURSOR lc_order_param IS
3036: SELECT Order_parameter_name,
3037: order_parameter_value
3038: FROM xdp_order_parameters
3039: WHERE order_id = p_order_id;
3040:
3041: lv_param_count NUMBER := 0;
3042: BEGIN
3051: x_order_status.order_number,
3052: x_order_status.order_version,
3053: x_order_status.actual_fulfillment_date,
3054: x_order_status.completion_date
3055: FROM XDP_ORDER_HEADERS
3056: WHERE order_id = p_order_id;
3057:
3058: BEGIN
3059: x_order_status.fulfillment_status := XDP_ENGINE.Get_Order_Param_Value(p_order_id,'FULFILLMENT_STATUS');
3069: END;
3070: EXCEPTION
3071: WHEN NO_DATA_FOUND THEN
3072: x_return_code := SQLCODE;
3073: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_NOTEXISTS');
3074: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_order_id);
3075: x_error_description := FND_MESSAGE.GET;
3076: END Get_Order_Status;
3077:
3087: x_error_description OUT NOCOPY VARCHAR2)
3088: IS
3089: CURSOR lc_order_param IS
3090: select order_parameter_name,order_parameter_value
3091: from xdp_order_parameters
3092: where order_id = p_order_id;
3093: lv_param_count NUMBER := 0;
3094: BEGIN
3095: SELECT
3187: x_order_header.attribute17,
3188: x_order_header.attribute18,
3189: x_order_header.attribute19,
3190: x_order_header.attribute20
3191: FROM XDP_ORDER_HEADERS
3192: WHERE order_id = p_order_id;
3193: x_order_header.execution_mode := NULL;
3194: x_order_header.account_number:= NULL;
3195: x_order_header.fulfillment_status := NULL;
3213: END LOOP;
3214: EXCEPTION
3215: WHEN NO_DATA_FOUND THEN
3216: x_return_code := SQLCODE;
3217: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_NOTEXISTS');
3218: FND_MESSAGE.SET_TOKEN('ORDER_ID', p_order_id);
3219: x_error_description := FND_MESSAGE.GET;
3220: END Get_Order_Header;
3221:
3276: attribute18,
3277: attribute19,
3278: attribute20
3279: FROM
3280: xdp_order_line_items
3281: WHERE
3282: order_id = p_order_id
3283: AND
3284: is_virtual_line_flag = 'N';
3284: is_virtual_line_flag = 'N';
3285:
3286: CURSOR lc_line_param(p_lineitem NUMBER) IS
3287: SELECT line_parameter_name,parameter_value,parameter_reference_value
3288: FROM xdp_order_lineitem_dets
3289: WHERE line_item_id = p_lineitem;
3290:
3291: lv_count NUMBER := 0;
3292: lv_param_count NUMBER := 0;
3375: l_order_id := p_order_id;
3376:
3377: IF l_order_id IS NULL THEN
3378: SELECT order_id into l_order_id
3379: FROM XDP_ORDER_HEADERS
3380: WHERE EXTERNAL_ORDER_NUMBER = (p_order_number)
3381: AND NVL(EXTERNAL_ORDER_VERSION,'-1') = NVL((p_order_version),'-1') ;
3382: END IF;
3383:
3384: Get_Order_Status(l_order_id,x_order_status,x_return_code,x_error_description);
3385: EXCEPTION
3386: WHEN NO_DATA_FOUND THEN
3387: x_return_code := SQLCODE;
3388: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_VERSION_NOTEXISTS');
3389: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER', p_order_number);
3390: FND_MESSAGE.SET_TOKEN('ORDER_VERSION', p_order_version);
3391: x_error_description := FND_MESSAGE.GET;
3392: WHEN OTHERS THEN
3419: l_order_id := p_order_id;
3420:
3421: IF l_order_id IS NULL THEN
3422: SELECT order_id into l_order_id
3423: FROM XDP_ORDER_HEADERS
3424: WHERE EXTERNAL_ORDER_NUMBER = (p_order_number)
3425: AND NVL(EXTERNAL_ORDER_VERSION,'-1') = NVL((p_order_version),'-1') ;
3426: END IF;
3427:
3430:
3431: EXCEPTION
3432: WHEN NO_DATA_FOUND THEN
3433: x_return_code := SQLCODE;
3434: FND_MESSAGE.SET_NAME('XDP', 'XDP_ORDER_VERSION_NOTEXISTS');
3435: FND_MESSAGE.SET_TOKEN('ORDER_NUMBER', p_order_number);
3436: FND_MESSAGE.SET_TOKEN('ORDER_VERSION', p_order_version);
3437: x_error_description := FND_MESSAGE.GET;
3438: WHEN OTHERS THEN
3817: END CANCEL_WORKITEM;
3818:
3819:
3820: --
3821: -- Private API which will update xdp_order_headers status_code
3822: --
3823: --
3824: PROCEDURE update_xdp_order_status
3825: (p_order_id IN NUMBER ,
3820: --
3821: -- Private API which will update xdp_order_headers status_code
3822: --
3823: --
3824: PROCEDURE update_xdp_order_status
3825: (p_order_id IN NUMBER ,
3826: p_status IN VARCHAR2,
3827: p_caller_name IN VARCHAR2,
3828: return_code OUT NOCOPY NUMBER,
3830:
3831: BEGIN
3832:
3833: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3834: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_STATUS')) THEN
3835: dbg_msg := ('Procedure XDP_INTERFACES.UPDATE_XDP_ORDER_STATUS begins.');
3836: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3837: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_STATUS', dbg_msg);
3838: END IF;
3831: BEGIN
3832:
3833: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3834: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_STATUS')) THEN
3835: dbg_msg := ('Procedure XDP_INTERFACES.UPDATE_XDP_ORDER_STATUS begins.');
3836: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3837: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_STATUS', dbg_msg);
3838: END IF;
3839: END IF;
3833: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3834: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_STATUS')) THEN
3835: dbg_msg := ('Procedure XDP_INTERFACES.UPDATE_XDP_ORDER_STATUS begins.');
3836: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3837: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_STATUS', dbg_msg);
3838: END IF;
3839: END IF;
3840: END IF;
3841:
3838: END IF;
3839: END IF;
3840: END IF;
3841:
3842: UPDATE xdp_order_headers
3843: SET last_updated_by = FND_GLOBAL.USER_ID,
3844: last_update_date = sysdate,
3845: last_update_login = FND_GLOBAL.LOGIN_ID,
3846: status_code = p_status,
3855: EXCEPTION
3856: WHEN OTHERS THEN
3857: return_code := -191266;
3858: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
3859: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPINTFB. UPDATE_XDP_ORDER_STATUS');
3860: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
3861: error_description := FND_MESSAGE.GET;
3862: END UPDATE_XDP_ORDER_STATUS;
3863:
3858: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
3859: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPINTFB. UPDATE_XDP_ORDER_STATUS');
3860: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
3861: error_description := FND_MESSAGE.GET;
3862: END UPDATE_XDP_ORDER_STATUS;
3863:
3864: --
3865: -- Private API which will update xdp_order_line_items status_code
3866: --
3861: error_description := FND_MESSAGE.GET;
3862: END UPDATE_XDP_ORDER_STATUS;
3863:
3864: --
3865: -- Private API which will update xdp_order_line_items status_code
3866: --
3867: --
3868:
3869: PROCEDURE UPDATE_XDP_ORDER_LINE_STATUS
3865: -- Private API which will update xdp_order_line_items status_code
3866: --
3867: --
3868:
3869: PROCEDURE UPDATE_XDP_ORDER_LINE_STATUS
3870: (p_order_id IN NUMBER,
3871: p_lineitem_id IN NUMBER ,
3872: p_status IN VARCHAR2,
3873: p_caller_name IN VARCHAR2,
3876:
3877: BEGIN
3878:
3879: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3880: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_LINE_STATUS')) THEN
3881: dbg_msg := ('Procedure XDP_INTERFACES.UPDATE_XDP_ORDER_LINE_STATUS begins.');
3882: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3883: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_LINE_STATUS', dbg_msg);
3884: END IF;
3877: BEGIN
3878:
3879: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3880: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_LINE_STATUS')) THEN
3881: dbg_msg := ('Procedure XDP_INTERFACES.UPDATE_XDP_ORDER_LINE_STATUS begins.');
3882: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3883: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_LINE_STATUS', dbg_msg);
3884: END IF;
3885: END IF;
3879: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
3880: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_LINE_STATUS')) THEN
3881: dbg_msg := ('Procedure XDP_INTERFACES.UPDATE_XDP_ORDER_LINE_STATUS begins.');
3882: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3883: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'xdp.plsql.XDP_INTERFACES.UPDATE_XDP_ORDER_LINE_STATUS', dbg_msg);
3884: END IF;
3885: END IF;
3886: END IF;
3887:
3884: END IF;
3885: END IF;
3886: END IF;
3887:
3888: UPDATE xdp_order_line_items
3889: SET last_updated_by = FND_GLOBAL.USER_ID,
3890: last_update_date = sysdate,
3891: last_update_login = FND_GLOBAL.LOGIN_ID,
3892: status_code = p_status,
3898: EXCEPTION
3899: WHEN OTHERS THEN
3900: return_code := -191266;
3901: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
3902: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPINTFB.UPDATE_XDP_ORDER_LINE_STATUS');
3903: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
3904: error_description := FND_MESSAGE.GET;
3905: END UPDATE_XDP_ORDER_LINE_STATUS;
3906:
3901: FND_MESSAGE.SET_NAME('XDP', 'XDP_API_WHEN_OTHERS');
3902: FND_MESSAGE.SET_TOKEN('API_NAME', 'XDPINTFB.UPDATE_XDP_ORDER_LINE_STATUS');
3903: FND_MESSAGE.SET_TOKEN('ERROR_STRING', SQLERRM);
3904: error_description := FND_MESSAGE.GET;
3905: END UPDATE_XDP_ORDER_LINE_STATUS;
3906:
3907: --
3908: -- Private API which will update xdp_fulfill_worklist status_code
3909: --
4058: BEGIN
4059: BEGIN
4060: SELECT line_item_id
4061: INTO l_line_item_id
4062: FROM xdp_order_line_items xoli
4063: WHERE xoli.order_id = p_order_id
4064: AND xoli.line_number = p_line_number;
4065: EXCEPTION
4066: WHEN NO_DATA_FOUND THEN
4124: BEGIN
4125: BEGIN
4126: SELECT line_item_id
4127: INTO l_line_item_id
4128: FROM xdp_order_line_items xoli
4129: WHERE xoli.order_id = p_order_id
4130: AND xoli.line_number = p_line_number;
4131: EXCEPTION
4132: WHEN NO_DATA_FOUND THEN