[Home] [Help]
420: END valid_account_id_fun;
421:
422: PROCEDURE Cancel_Order(
423: /* p_api_version IN NUMBER
424: ,p_Init_Msg_List IN VARCHAR2 := FND_API.G_TRUE
425: ,p_commit IN VARCHAR2 := FND_API.G_FALSE */
426: p_header_rec IN csp_parts_requirement.header_rec_type
427: ,p_line_table IN csp_parts_requirement.Line_Tbl_type
428: ,p_process_Type IN VARCHAR2
421:
422: PROCEDURE Cancel_Order(
423: /* p_api_version IN NUMBER
424: ,p_Init_Msg_List IN VARCHAR2 := FND_API.G_TRUE
425: ,p_commit IN VARCHAR2 := FND_API.G_FALSE */
426: p_header_rec IN csp_parts_requirement.header_rec_type
427: ,p_line_table IN csp_parts_requirement.Line_Tbl_type
428: ,p_process_Type IN VARCHAR2
429: ,x_return_status OUT NOCOPY VARCHAR2
433: l_api_version_number CONSTANT NUMBER := 1.0;
434: l_api_name CONSTANT VARCHAR2(30) := 'cancel_order';
435: l_line_tbl CSP_PARTS_REQUIREMENT.Line_tbl_type;
436: l_line_rec CSP_PARTS_REQUIREMENT.Line_rec_type;
437: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
438: l_msg_count NUMBER;
439: l_msg_data VARCHAR2(2000);
440:
441: -- Record and table types for oe process_order
499:
500: SAVEPOINT Cancel_Order_PUB;
501:
502: -- initialize return status
503: x_return_status := FND_API.G_RET_STS_SUCCESS;
504:
505: l_user_id := nvl(fnd_global.user_id, 0) ;
506: fnd_profile.get('RESP_ID',orig_resp_id);
507: fnd_profile.get('RESP_APPL_ID',orig_resp_appl_id);
563: token2 => 'ERR_NUMBER',
564: value2 => '035',
565: token3 => 'SUBROUTINE',
566: value3 => 'PO_REQ_SUPPLY()');
567: RAISE FND_API.G_EXC_ERROR;
568: END IF;
569: END LOOP;
570: ELSE
571: IF(l_oe_header_id IS NOT NULL) THEN
633: Nvl(l_oe_line_old_tbl(i).cancelled_flag,'N') <> 'Y' AND
634: Nvl(l_oe_line_old_tbl(i).ordered_quantity,0) <> 0 THEN
635: J := J + 1;
636: l_oe_line_tbl(J) := l_oe_line_old_tbl(I);
637: l_oe_line_tbl(J).db_flag := FND_API.G_TRUE;
638: l_oe_line_tbl(J).cancelled_quantity := l_oe_line_old_tbl(J).ordered_quantity;
639:
640: l_oe_line_tbl(j).ordered_quantity :=0;
641: l_oe_line_tbl(j).operation := OE_GLOBALS.G_OPR_UPDATE;
703: Nvl(l_oe_line_old_tbl(i).cancelled_flag,'N') <> 'Y' AND
704: Nvl(l_oe_line_old_tbl(i).ordered_quantity,0) <> 0 THEN
705: J := J + 1;
706: l_oe_line_tbl(J) := l_oe_line_old_tbl(I);
707: l_oe_line_tbl(J).db_flag := FND_API.G_TRUE;
708: l_oe_line_tbl(J).cancelled_quantity := l_oe_line_tbl(J).ordered_quantity;
709:
710: l_oe_line_tbl(j).ordered_quantity :=0;
711: l_oe_line_tbl(j).operation := OE_GLOBALS.G_OPR_UPDATE;
736: fnd_msg_pub.count_and_get
737: ( p_count => x_msg_count
738: , p_data => x_msg_data);
739:
740: x_return_status := FND_API.G_RET_STS_ERROR;
741:
742: RAISE FND_API.G_EXC_ERROR;
743: END IF;
744:
738: , p_data => x_msg_data);
739:
740: x_return_status := FND_API.G_RET_STS_ERROR;
741:
742: RAISE FND_API.G_EXC_ERROR;
743: END IF;
744:
745: l_oe_control_rec.controlled_operation := TRUE;
746: l_oe_control_rec.change_attributes := TRUE;
769: -- Call to Process Order
770: OE_Order_PUB.Process_Order(
771: p_org_id => l_source_operating_unit
772: , p_api_version_number => l_api_version_number
773: ,p_init_msg_list => FND_API.G_TRUE
774: ,p_return_values => FND_API.G_FALSE
775: ,p_action_commit => FND_API.G_FALSE
776: -- Passing just the entity records that are a part of this order
777: ,p_header_rec => l_oe_header_rec
770: OE_Order_PUB.Process_Order(
771: p_org_id => l_source_operating_unit
772: , p_api_version_number => l_api_version_number
773: ,p_init_msg_list => FND_API.G_TRUE
774: ,p_return_values => FND_API.G_FALSE
775: ,p_action_commit => FND_API.G_FALSE
776: -- Passing just the entity records that are a part of this order
777: ,p_header_rec => l_oe_header_rec
778: ,p_line_tbl => l_oe_line_tbl
771: p_org_id => l_source_operating_unit
772: , p_api_version_number => l_api_version_number
773: ,p_init_msg_list => FND_API.G_TRUE
774: ,p_return_values => FND_API.G_FALSE
775: ,p_action_commit => FND_API.G_FALSE
776: -- Passing just the entity records that are a part of this order
777: ,p_header_rec => l_oe_header_rec
778: ,p_line_tbl => l_oe_line_tbl
779: ,p_old_line_tbl => l_oe_line_old_tbl
815: fnd_global.apps_initialize(l_user_id,orig_resp_id,orig_resp_appl_id);
816: mo_global.set_policy_context('S',l_org_id);
817: END If;
818:
819: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
820: x_return_status := l_return_status;
821: for counter in REVERSE 1..l_msg_count Loop
822: l_msg := OE_MSG_PUB.Get(counter,FND_API.G_FALSE) ;
823: FND_MESSAGE.SET_NAME('CSP', 'CSP_PROCESS_ORDER_ERRORS');
818:
819: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
820: x_return_status := l_return_status;
821: for counter in REVERSE 1..l_msg_count Loop
822: l_msg := OE_MSG_PUB.Get(counter,FND_API.G_FALSE) ;
823: FND_MESSAGE.SET_NAME('CSP', 'CSP_PROCESS_ORDER_ERRORS');
824: FND_MESSAGE.SET_TOKEN('OM_MSG', l_msg, FALSE);
825: FND_MSG_PUB.ADD;
826: fnd_msg_pub.count_and_get
826: fnd_msg_pub.count_and_get
827: ( p_count => x_msg_count
828: , p_data => x_msg_data);
829: End loop;
830: RAISE FND_API.G_EXC_ERROR;
831: ELSE
832: -- cancel the internal requisitions lines and header for the above order lines and header
833:
834: FOR I in 1..lx_oe_line_tbl.count LOOP
866: token2 => 'ERR_NUMBER',
867: value2 => '035',
868: token3 => 'SUBROUTINE',
869: value3 => 'PO_REQ_SUPPLY()');
870: RAISE FND_API.G_EXC_ERROR;
871: END;
872: -- END IF;
873: END LOOP;
874:
928: -- call to Process Order
929: OE_Order_PUB.Process_Order(
930: p_org_id => l_source_operating_unit
931: ,p_api_version_number => l_api_version_number
932: ,p_init_msg_list => FND_API.G_TRUE
933: ,p_return_values => FND_API.G_FALSE
934: ,p_action_commit => FND_API.G_FALSE
935: -- Passing just the entity records that are a part of this order
936: ,p_header_rec => l_oe_header_rec
929: OE_Order_PUB.Process_Order(
930: p_org_id => l_source_operating_unit
931: ,p_api_version_number => l_api_version_number
932: ,p_init_msg_list => FND_API.G_TRUE
933: ,p_return_values => FND_API.G_FALSE
934: ,p_action_commit => FND_API.G_FALSE
935: -- Passing just the entity records that are a part of this order
936: ,p_header_rec => l_oe_header_rec
937: ,p_line_tbl => l_oe_line_tbl
930: p_org_id => l_source_operating_unit
931: ,p_api_version_number => l_api_version_number
932: ,p_init_msg_list => FND_API.G_TRUE
933: ,p_return_values => FND_API.G_FALSE
934: ,p_action_commit => FND_API.G_FALSE
935: -- Passing just the entity records that are a part of this order
936: ,p_header_rec => l_oe_header_rec
937: ,p_line_tbl => l_oe_line_tbl
938: ,p_old_line_tbl => l_oe_line_old_tbl
974: fnd_global.apps_initialize(l_user_id,orig_resp_id,orig_resp_appl_id);
975: mo_global.set_policy_context('S',l_org_id);
976: END If;
977:
978: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
979: x_return_status := l_return_status;
980: for counter in REVERSE 1..l_msg_count Loop
981: l_msg := OE_MSG_PUB.Get(counter,FND_API.G_FALSE) ;
982: FND_MESSAGE.SET_NAME('CSP', 'CSP_PROCESS_ORDER_ERRORS');
977:
978: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
979: x_return_status := l_return_status;
980: for counter in REVERSE 1..l_msg_count Loop
981: l_msg := OE_MSG_PUB.Get(counter,FND_API.G_FALSE) ;
982: FND_MESSAGE.SET_NAME('CSP', 'CSP_PROCESS_ORDER_ERRORS');
983: FND_MESSAGE.SET_TOKEN('OM_MSG', l_msg, FALSE);
984: FND_MSG_PUB.ADD;
985: fnd_msg_pub.count_and_get
985: fnd_msg_pub.count_and_get
986: ( p_count => x_msg_count
987: , p_data => x_msg_data);
988: End loop;
989: RAISE FND_API.G_EXC_ERROR;
990: END If;
991: END IF;
992: END IF;
993: END If;
1014: 'exiting with x_return_status = ' || x_return_status);
1015: end if;
1016:
1017: EXCEPTION
1018: WHEN FND_API.G_EXC_ERROR THEN
1019: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1020: P_API_NAME => L_API_NAME
1021: ,P_PKG_NAME => G_PKG_NAME
1022: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1023: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
1024: ,X_MSG_COUNT => X_MSG_COUNT
1025: ,X_MSG_DATA => X_MSG_DATA
1026: ,X_RETURN_STATUS => X_RETURN_STATUS);
1027: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1028: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
1029: P_API_NAME => L_API_NAME
1030: ,P_PKG_NAME => G_PKG_NAME
1031: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1041: FND_MSG_PUB.ADD;
1042: fnd_msg_pub.count_and_get
1043: ( p_count => x_msg_count
1044: , p_data => x_msg_data);
1045: x_return_status := FND_API.G_RET_STS_ERROR;
1046:
1047: END;
1048:
1049:
1089: IS
1090: l_action_request_tbl oe_order_pub.request_tbl_type;
1091: l_api_version_number CONSTANT NUMBER := 1.0;
1092: l_api_name CONSTANT VARCHAR2(30) := 'process_order';
1093: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1094: l_msg_count NUMBER;
1095: l_msg_data VARCHAR2(4000);
1096: l_commit VARCHAR2(1) := FND_API.G_FALSE;
1097: l_user_id NUMBER;
1092: l_api_name CONSTANT VARCHAR2(30) := 'process_order';
1093: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1094: l_msg_count NUMBER;
1095: l_msg_data VARCHAR2(4000);
1096: l_commit VARCHAR2(1) := FND_API.G_FALSE;
1097: l_user_id NUMBER;
1098: l_login_id NUMBER;
1099: l_today DATE;
1100:
1599: end if;
1600:
1601: SAVEPOINT Process_Order_PUB;
1602:
1603: IF fnd_api.to_boolean(P_Init_Msg_List) THEN
1604: -- initialize message list
1605: FND_MSG_PUB.initialize;
1606: END IF;
1607:
1605: FND_MSG_PUB.initialize;
1606: END IF;
1607:
1608: -- Standard call to check for call compatibility.
1609: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1610: p_api_version,
1611: l_api_name,
1612: G_PKG_NAME)
1613: THEN
1610: p_api_version,
1611: l_api_name,
1612: G_PKG_NAME)
1613: THEN
1614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1615: END IF;
1616:
1617: -- initialize return status
1618: x_return_status := FND_API.G_RET_STS_SUCCESS;
1614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1615: END IF;
1616:
1617: -- initialize return status
1618: x_return_status := FND_API.G_RET_STS_SUCCESS;
1619:
1620: l_user_id := nvl(fnd_global.user_id, 0) ;
1621: fnd_profile.get('RESP_ID',orig_resp_id);
1622: fnd_profile.get('RESP_APPL_ID',orig_resp_appl_id);
1734: x_msg_count => l_msg_count,
1735: x_msg_data => l_msg_data
1736: );
1737:
1738: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1739: RAISE FND_API.G_EXC_ERROR;
1740: END IF;
1741: ELSE
1742:
1735: x_msg_data => l_msg_data
1736: );
1737:
1738: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1739: RAISE FND_API.G_EXC_ERROR;
1740: END IF;
1741: ELSE
1742:
1743: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1843: ,X_MSG_COUNT => l_msg_count
1844: ,X_MSG_DATA => l_msg_data
1845: );
1846:
1847: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1848: RAISE FND_API.G_EXC_ERROR;
1849: END IF;
1850:
1851: END If;
1844: ,X_MSG_DATA => l_msg_data
1845: );
1846:
1847: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1848: RAISE FND_API.G_EXC_ERROR;
1849: END IF;
1850:
1851: END If;
1852: CLOSE rs_loc_exists_cur;*/
2381: -- get cust_site record in current ou
2382: --dbms_application_info.set_client_info(l_tmp_org_id);
2383: po_moac_utils_pvt.set_org_context(l_tmp_org_id);
2384: hz_cust_account_site_v2pub.get_cust_acct_site_rec (
2385: p_init_msg_list => FND_API.G_TRUE,
2386: p_cust_acct_site_id => l_cust_site_id,
2387: x_cust_acct_site_rec => v_cust_acct_site_rec,
2388: x_return_status => x_return_status,
2389: x_msg_count => x_msg_count,
2390: x_msg_data => x_msg_data);
2391: --dbms_application_info.set_client_info(l_org_id);
2392: po_moac_utils_pvt.set_org_context(l_tmp_org_id);
2393:
2394: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2395: l_msg := x_msg_data;
2396: FND_MESSAGE.SET_NAME('CSP', 'CSP_PROCESS_ORDER_ERRORS');
2397: FND_MESSAGE.SET_TOKEN('OM_MSG', l_msg, FALSE);
2398: FND_MSG_PUB.ADD;
2398: FND_MSG_PUB.ADD;
2399: fnd_msg_pub.count_and_get
2400: ( p_count => x_msg_count
2401: , p_data => x_msg_data);
2402: x_return_status := FND_API.G_RET_STS_ERROR;
2403: --dbms_application_info.set_client_info(l_org_id);
2404: RAISE FND_API.G_EXC_ERROR;
2405: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2406:
2400: ( p_count => x_msg_count
2401: , p_data => x_msg_data);
2402: x_return_status := FND_API.G_RET_STS_ERROR;
2403: --dbms_application_info.set_client_info(l_org_id);
2404: RAISE FND_API.G_EXC_ERROR;
2405: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2406:
2407: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2408: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2401: , p_data => x_msg_data);
2402: x_return_status := FND_API.G_RET_STS_ERROR;
2403: --dbms_application_info.set_client_info(l_org_id);
2404: RAISE FND_API.G_EXC_ERROR;
2405: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2406:
2407: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2408: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2409: 'csp.plsql.csp_parts_order.process_order',
2419: -- now create same site in source ou
2420: --dbms_application_info.set_client_info(l_source_operating_unit);
2421: po_moac_utils_pvt.set_org_context(l_source_operating_unit);
2422: hz_cust_account_site_v2pub.create_cust_acct_site (
2423: p_init_msg_list => FND_API.G_TRUE,
2424: p_cust_acct_site_rec => v_cust_acct_site_rec,
2425: x_cust_acct_site_id => x_cust_acct_site_id,
2426: x_return_status => x_return_status,
2427: x_msg_count => x_msg_count,
2428: x_msg_data => x_msg_data);
2429: --dbms_application_info.set_client_info(l_org_id);
2430: po_moac_utils_pvt.set_org_context(l_org_id);
2431:
2432: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2433: l_msg := x_msg_data;
2434: FND_MESSAGE.SET_NAME('CSP', 'CSP_PROCESS_ORDER_ERRORS');
2435: FND_MESSAGE.SET_TOKEN('OM_MSG', l_msg, FALSE);
2436: FND_MSG_PUB.ADD;
2436: FND_MSG_PUB.ADD;
2437: fnd_msg_pub.count_and_get
2438: ( p_count => x_msg_count
2439: , p_data => x_msg_data);
2440: x_return_status := FND_API.G_RET_STS_ERROR;
2441: RAISE FND_API.G_EXC_ERROR;
2442: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2443:
2444: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2437: fnd_msg_pub.count_and_get
2438: ( p_count => x_msg_count
2439: , p_data => x_msg_data);
2440: x_return_status := FND_API.G_RET_STS_ERROR;
2441: RAISE FND_API.G_EXC_ERROR;
2442: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2443:
2444: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2445: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2438: ( p_count => x_msg_count
2439: , p_data => x_msg_data);
2440: x_return_status := FND_API.G_RET_STS_ERROR;
2441: RAISE FND_API.G_EXC_ERROR;
2442: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2443:
2444: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2445: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2446: 'csp.plsql.csp_parts_order.process_order',
2457:
2458: --dbms_application_info.set_client_info(l_tmp_org_id);
2459: po_moac_utils_pvt.set_org_context(l_tmp_org_id);
2460: hz_cust_account_site_v2pub.get_cust_site_use_rec (
2461: p_init_msg_list => FND_API.G_TRUE,
2462: p_site_use_id => l_cust_acct_site_use_id,
2463: x_cust_site_use_rec => v_cust_site_use_rec,
2464: x_customer_profile_rec => v_customer_profile_rec,
2465: x_return_status => x_return_status,
2467: x_msg_data => x_msg_data);
2468: --dbms_application_info.set_client_info(l_org_id);
2469: po_moac_utils_pvt.set_org_context(l_org_id);
2470:
2471: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2472: l_msg := x_msg_data;
2473: FND_MESSAGE.SET_NAME('CSP', 'CSP_PROCESS_ORDER_ERRORS');
2474: FND_MESSAGE.SET_TOKEN('OM_MSG', l_msg, FALSE);
2475: FND_MSG_PUB.ADD;
2475: FND_MSG_PUB.ADD;
2476: fnd_msg_pub.count_and_get
2477: ( p_count => x_msg_count
2478: , p_data => x_msg_data);
2479: x_return_status := FND_API.G_RET_STS_ERROR;
2480: --dbms_application_info.set_client_info(l_org_id);
2481: RAISE FND_API.G_EXC_ERROR;
2482: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2483:
2477: ( p_count => x_msg_count
2478: , p_data => x_msg_data);
2479: x_return_status := FND_API.G_RET_STS_ERROR;
2480: --dbms_application_info.set_client_info(l_org_id);
2481: RAISE FND_API.G_EXC_ERROR;
2482: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2483:
2484: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2485: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2478: , p_data => x_msg_data);
2479: x_return_status := FND_API.G_RET_STS_ERROR;
2480: --dbms_application_info.set_client_info(l_org_id);
2481: RAISE FND_API.G_EXC_ERROR;
2482: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2483:
2484: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2485: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2486: 'csp.plsql.csp_parts_order.process_order',
2518:
2519: -- do lots of stuff here
2520: po_moac_utils_pvt.set_org_context(l_tmp_org_id);
2521: hz_cust_account_site_v2pub.get_cust_acct_site_rec (
2522: p_init_msg_list => FND_API.G_TRUE,
2523: p_cust_acct_site_id => v_bill_site_id,
2524: x_cust_acct_site_rec => v_bill_acct_site_rec,
2525: x_return_status => x_return_status,
2526: x_msg_count => x_msg_count,
2526: x_msg_count => x_msg_count,
2527: x_msg_data => x_msg_data);
2528: po_moac_utils_pvt.set_org_context(l_tmp_org_id);
2529:
2530: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2531: l_msg := x_msg_data;
2532: FND_MESSAGE.SET_NAME('CSP', 'CSP_PROCESS_ORDER_ERRORS');
2533: FND_MESSAGE.SET_TOKEN('OM_MSG', l_msg, FALSE);
2534: FND_MSG_PUB.ADD;
2534: FND_MSG_PUB.ADD;
2535: fnd_msg_pub.count_and_get
2536: ( p_count => x_msg_count
2537: , p_data => x_msg_data);
2538: x_return_status := FND_API.G_RET_STS_ERROR;
2539: RAISE FND_API.G_EXC_ERROR;
2540: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2541:
2542: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2535: fnd_msg_pub.count_and_get
2536: ( p_count => x_msg_count
2537: , p_data => x_msg_data);
2538: x_return_status := FND_API.G_RET_STS_ERROR;
2539: RAISE FND_API.G_EXC_ERROR;
2540: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2541:
2542: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2543: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2536: ( p_count => x_msg_count
2537: , p_data => x_msg_data);
2538: x_return_status := FND_API.G_RET_STS_ERROR;
2539: RAISE FND_API.G_EXC_ERROR;
2540: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2541:
2542: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2543: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2544: 'csp.plsql.csp_parts_order.process_order',
2553:
2554: -- now create same site in source ou
2555: po_moac_utils_pvt.set_org_context(l_source_operating_unit);
2556: hz_cust_account_site_v2pub.create_cust_acct_site (
2557: p_init_msg_list => FND_API.G_TRUE,
2558: p_cust_acct_site_rec => v_bill_acct_site_rec,
2559: x_cust_acct_site_id => x_bill_acct_site_id,
2560: x_return_status => x_return_status,
2561: x_msg_count => x_msg_count,
2561: x_msg_count => x_msg_count,
2562: x_msg_data => x_msg_data);
2563: po_moac_utils_pvt.set_org_context(l_org_id);
2564:
2565: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2566: l_msg := x_msg_data;
2567: FND_MESSAGE.SET_NAME('CSP', 'CSP_PROCESS_ORDER_ERRORS');
2568: FND_MESSAGE.SET_TOKEN('OM_MSG', l_msg, FALSE);
2569: FND_MSG_PUB.ADD;
2569: FND_MSG_PUB.ADD;
2570: fnd_msg_pub.count_and_get
2571: ( p_count => x_msg_count
2572: , p_data => x_msg_data);
2573: x_return_status := FND_API.G_RET_STS_ERROR;
2574: RAISE FND_API.G_EXC_ERROR;
2575: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2576:
2577: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2570: fnd_msg_pub.count_and_get
2571: ( p_count => x_msg_count
2572: , p_data => x_msg_data);
2573: x_return_status := FND_API.G_RET_STS_ERROR;
2574: RAISE FND_API.G_EXC_ERROR;
2575: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2576:
2577: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2578: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2571: ( p_count => x_msg_count
2572: , p_data => x_msg_data);
2573: x_return_status := FND_API.G_RET_STS_ERROR;
2574: RAISE FND_API.G_EXC_ERROR;
2575: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2576:
2577: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2578: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2579: 'csp.plsql.csp_parts_order.process_order',
2588: l_bill_acct_site_use_id := v_ship_bill_site;
2589:
2590: po_moac_utils_pvt.set_org_context(l_tmp_org_id);
2591: hz_cust_account_site_v2pub.get_cust_site_use_rec (
2592: p_init_msg_list => FND_API.G_TRUE,
2593: p_site_use_id => l_bill_acct_site_use_id,
2594: x_cust_site_use_rec => v_bill_site_use_rec,
2595: x_customer_profile_rec => v_bill_cust_profile_rec,
2596: x_return_status => x_return_status,
2597: x_msg_count => x_msg_count,
2598: x_msg_data => x_msg_data);
2599: po_moac_utils_pvt.set_org_context(l_org_id);
2600:
2601: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2602: l_msg := x_msg_data;
2603: FND_MESSAGE.SET_NAME('CSP', 'CSP_PROCESS_ORDER_ERRORS');
2604: FND_MESSAGE.SET_TOKEN('OM_MSG', l_msg, FALSE);
2605: FND_MSG_PUB.ADD;
2605: FND_MSG_PUB.ADD;
2606: fnd_msg_pub.count_and_get
2607: ( p_count => x_msg_count
2608: , p_data => x_msg_data);
2609: x_return_status := FND_API.G_RET_STS_ERROR;
2610: RAISE FND_API.G_EXC_ERROR;
2611: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2612:
2613: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2606: fnd_msg_pub.count_and_get
2607: ( p_count => x_msg_count
2608: , p_data => x_msg_data);
2609: x_return_status := FND_API.G_RET_STS_ERROR;
2610: RAISE FND_API.G_EXC_ERROR;
2611: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2612:
2613: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2614: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2607: ( p_count => x_msg_count
2608: , p_data => x_msg_data);
2609: x_return_status := FND_API.G_RET_STS_ERROR;
2610: RAISE FND_API.G_EXC_ERROR;
2611: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2612:
2613: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2614: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2615: 'csp.plsql.csp_parts_order.process_order',
2624: v_bill_site_use_rec.tax_code := NULL;
2625:
2626: po_moac_utils_pvt.set_org_context(l_source_operating_unit);
2627: hz_cust_account_site_v2pub.create_cust_site_use (
2628: p_init_msg_list => FND_API.G_TRUE,
2629: p_cust_site_use_rec => v_bill_site_use_rec,
2630: p_customer_profile_rec => v_bill_cust_profile_rec,
2631: p_create_profile => FND_API.G_FALSE,
2632: p_create_profile_amt => FND_API.G_FALSE,
2627: hz_cust_account_site_v2pub.create_cust_site_use (
2628: p_init_msg_list => FND_API.G_TRUE,
2629: p_cust_site_use_rec => v_bill_site_use_rec,
2630: p_customer_profile_rec => v_bill_cust_profile_rec,
2631: p_create_profile => FND_API.G_FALSE,
2632: p_create_profile_amt => FND_API.G_FALSE,
2633: x_site_use_id => x_site_use_id,
2634: x_return_status => x_return_status,
2635: x_msg_count => x_msg_count,
2628: p_init_msg_list => FND_API.G_TRUE,
2629: p_cust_site_use_rec => v_bill_site_use_rec,
2630: p_customer_profile_rec => v_bill_cust_profile_rec,
2631: p_create_profile => FND_API.G_FALSE,
2632: p_create_profile_amt => FND_API.G_FALSE,
2633: x_site_use_id => x_site_use_id,
2634: x_return_status => x_return_status,
2635: x_msg_count => x_msg_count,
2636: x_msg_data => x_msg_data);
2635: x_msg_count => x_msg_count,
2636: x_msg_data => x_msg_data);
2637: po_moac_utils_pvt.set_org_context(l_org_id);
2638:
2639: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2640: l_msg := x_msg_data;
2641: FND_MESSAGE.SET_NAME('CSP', 'CSP_PROCESS_ORDER_ERRORS');
2642: FND_MESSAGE.SET_TOKEN('OM_MSG', l_msg, FALSE);
2643: FND_MSG_PUB.ADD;
2643: FND_MSG_PUB.ADD;
2644: fnd_msg_pub.count_and_get
2645: ( p_count => x_msg_count
2646: , p_data => x_msg_data);
2647: x_return_status := FND_API.G_RET_STS_ERROR;
2648: po_moac_utils_pvt.set_org_context(l_org_id);
2649: RAISE FND_API.G_EXC_ERROR;
2650: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2651:
2645: ( p_count => x_msg_count
2646: , p_data => x_msg_data);
2647: x_return_status := FND_API.G_RET_STS_ERROR;
2648: po_moac_utils_pvt.set_org_context(l_org_id);
2649: RAISE FND_API.G_EXC_ERROR;
2650: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2651:
2652: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2653: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2646: , p_data => x_msg_data);
2647: x_return_status := FND_API.G_RET_STS_ERROR;
2648: po_moac_utils_pvt.set_org_context(l_org_id);
2649: RAISE FND_API.G_EXC_ERROR;
2650: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2651:
2652: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2653: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2654: 'csp.plsql.csp_parts_order.process_order',
2676:
2677: --dbms_application_info.set_client_info(l_source_operating_unit);
2678: po_moac_utils_pvt.set_org_context(l_source_operating_unit);
2679: hz_cust_account_site_v2pub.create_cust_site_use (
2680: p_init_msg_list => FND_API.G_TRUE,
2681: p_cust_site_use_rec => v_cust_site_use_rec,
2682: p_customer_profile_rec => v_customer_profile_rec,
2683: p_create_profile => FND_API.G_FALSE,
2684: p_create_profile_amt => FND_API.G_FALSE,
2679: hz_cust_account_site_v2pub.create_cust_site_use (
2680: p_init_msg_list => FND_API.G_TRUE,
2681: p_cust_site_use_rec => v_cust_site_use_rec,
2682: p_customer_profile_rec => v_customer_profile_rec,
2683: p_create_profile => FND_API.G_FALSE,
2684: p_create_profile_amt => FND_API.G_FALSE,
2685: x_site_use_id => x_site_use_id,
2686: x_return_status => x_return_status,
2687: x_msg_count => x_msg_count,
2680: p_init_msg_list => FND_API.G_TRUE,
2681: p_cust_site_use_rec => v_cust_site_use_rec,
2682: p_customer_profile_rec => v_customer_profile_rec,
2683: p_create_profile => FND_API.G_FALSE,
2684: p_create_profile_amt => FND_API.G_FALSE,
2685: x_site_use_id => x_site_use_id,
2686: x_return_status => x_return_status,
2687: x_msg_count => x_msg_count,
2688: x_msg_data => x_msg_data);
2688: x_msg_data => x_msg_data);
2689: --dbms_application_info.set_client_info(l_org_id);
2690: po_moac_utils_pvt.set_org_context(l_org_id);
2691:
2692: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2693: l_msg := x_msg_data;
2694: FND_MESSAGE.SET_NAME('CSP', 'CSP_PROCESS_ORDER_ERRORS');
2695: FND_MESSAGE.SET_TOKEN('OM_MSG', l_msg, FALSE);
2696: FND_MSG_PUB.ADD;
2696: FND_MSG_PUB.ADD;
2697: fnd_msg_pub.count_and_get
2698: ( p_count => x_msg_count
2699: , p_data => x_msg_data);
2700: x_return_status := FND_API.G_RET_STS_ERROR;
2701: --dbms_application_info.set_client_info(l_org_id);
2702: po_moac_utils_pvt.set_org_context(l_org_id);
2703: RAISE FND_API.G_EXC_ERROR;
2704: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2699: , p_data => x_msg_data);
2700: x_return_status := FND_API.G_RET_STS_ERROR;
2701: --dbms_application_info.set_client_info(l_org_id);
2702: po_moac_utils_pvt.set_org_context(l_org_id);
2703: RAISE FND_API.G_EXC_ERROR;
2704: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2705:
2706: if v_cust_site_use_rec.site_use_code = 'BILL_TO' then
2707: temp_bill_to_site_id := x_site_use_id;
2700: x_return_status := FND_API.G_RET_STS_ERROR;
2701: --dbms_application_info.set_client_info(l_org_id);
2702: po_moac_utils_pvt.set_org_context(l_org_id);
2703: RAISE FND_API.G_EXC_ERROR;
2704: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2705:
2706: if v_cust_site_use_rec.site_use_code = 'BILL_TO' then
2707: temp_bill_to_site_id := x_site_use_id;
2708: end if;
2799:
2800: -- do lots of stuff here
2801: po_moac_utils_pvt.set_org_context(l_tmp_org_id);
2802: hz_cust_account_site_v2pub.get_cust_acct_site_rec (
2803: p_init_msg_list => FND_API.G_TRUE,
2804: p_cust_acct_site_id => v_primary_bill_site_id,
2805: x_cust_acct_site_rec => v_pri_bill_acct_site_rec,
2806: x_return_status => x_return_status,
2807: x_msg_count => x_msg_count,
2807: x_msg_count => x_msg_count,
2808: x_msg_data => x_msg_data);
2809: po_moac_utils_pvt.set_org_context(l_org_id);
2810:
2811: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2812: l_msg := x_msg_data;
2813: FND_MESSAGE.SET_NAME('CSP', 'CSP_PROCESS_ORDER_ERRORS');
2814: FND_MESSAGE.SET_TOKEN('OM_MSG', l_msg, FALSE);
2815: FND_MSG_PUB.ADD;
2815: FND_MSG_PUB.ADD;
2816: fnd_msg_pub.count_and_get
2817: ( p_count => x_msg_count
2818: , p_data => x_msg_data);
2819: x_return_status := FND_API.G_RET_STS_ERROR;
2820: RAISE FND_API.G_EXC_ERROR;
2821: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2822:
2823: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2816: fnd_msg_pub.count_and_get
2817: ( p_count => x_msg_count
2818: , p_data => x_msg_data);
2819: x_return_status := FND_API.G_RET_STS_ERROR;
2820: RAISE FND_API.G_EXC_ERROR;
2821: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2822:
2823: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2824: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2817: ( p_count => x_msg_count
2818: , p_data => x_msg_data);
2819: x_return_status := FND_API.G_RET_STS_ERROR;
2820: RAISE FND_API.G_EXC_ERROR;
2821: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2822:
2823: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2824: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2825: 'csp.plsql.csp_parts_order.process_order',
2834:
2835: -- now create same site in source ou
2836: po_moac_utils_pvt.set_org_context(l_source_operating_unit);
2837: hz_cust_account_site_v2pub.create_cust_acct_site (
2838: p_init_msg_list => FND_API.G_TRUE,
2839: p_cust_acct_site_rec => v_pri_bill_acct_site_rec,
2840: x_cust_acct_site_id => x_pri_bill_acct_site_id,
2841: x_return_status => x_return_status,
2842: x_msg_count => x_msg_count,
2842: x_msg_count => x_msg_count,
2843: x_msg_data => x_msg_data);
2844: po_moac_utils_pvt.set_org_context(l_org_id);
2845:
2846: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2847: l_msg := x_msg_data;
2848: FND_MESSAGE.SET_NAME('CSP', 'CSP_PROCESS_ORDER_ERRORS');
2849: FND_MESSAGE.SET_TOKEN('OM_MSG', l_msg, FALSE);
2850: FND_MSG_PUB.ADD;
2850: FND_MSG_PUB.ADD;
2851: fnd_msg_pub.count_and_get
2852: ( p_count => x_msg_count
2853: , p_data => x_msg_data);
2854: x_return_status := FND_API.G_RET_STS_ERROR;
2855: RAISE FND_API.G_EXC_ERROR;
2856: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2857:
2858: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2851: fnd_msg_pub.count_and_get
2852: ( p_count => x_msg_count
2853: , p_data => x_msg_data);
2854: x_return_status := FND_API.G_RET_STS_ERROR;
2855: RAISE FND_API.G_EXC_ERROR;
2856: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2857:
2858: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2859: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2852: ( p_count => x_msg_count
2853: , p_data => x_msg_data);
2854: x_return_status := FND_API.G_RET_STS_ERROR;
2855: RAISE FND_API.G_EXC_ERROR;
2856: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2857:
2858: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2859: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2860: 'csp.plsql.csp_parts_order.process_order',
2863:
2864:
2865: po_moac_utils_pvt.set_org_context(l_tmp_org_id);
2866: hz_cust_account_site_v2pub.get_cust_site_use_rec (
2867: p_init_msg_list => FND_API.G_TRUE,
2868: p_site_use_id => v_primary_bill_site_use_id,
2869: x_cust_site_use_rec => v_pri_bill_site_use_rec,
2870: x_customer_profile_rec => v_pri_bill_cust_prf_rec,
2871: x_return_status => x_return_status,
2872: x_msg_count => x_msg_count,
2873: x_msg_data => x_msg_data);
2874: po_moac_utils_pvt.set_org_context(l_org_id);
2875:
2876: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2877: l_msg := x_msg_data;
2878: FND_MESSAGE.SET_NAME('CSP', 'CSP_PROCESS_ORDER_ERRORS');
2879: FND_MESSAGE.SET_TOKEN('OM_MSG', l_msg, FALSE);
2880: FND_MSG_PUB.ADD;
2880: FND_MSG_PUB.ADD;
2881: fnd_msg_pub.count_and_get
2882: ( p_count => x_msg_count
2883: , p_data => x_msg_data);
2884: x_return_status := FND_API.G_RET_STS_ERROR;
2885: RAISE FND_API.G_EXC_ERROR;
2886: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2887:
2888: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2881: fnd_msg_pub.count_and_get
2882: ( p_count => x_msg_count
2883: , p_data => x_msg_data);
2884: x_return_status := FND_API.G_RET_STS_ERROR;
2885: RAISE FND_API.G_EXC_ERROR;
2886: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2887:
2888: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2889: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2882: ( p_count => x_msg_count
2883: , p_data => x_msg_data);
2884: x_return_status := FND_API.G_RET_STS_ERROR;
2885: RAISE FND_API.G_EXC_ERROR;
2886: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2887:
2888: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2889: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2890: 'csp.plsql.csp_parts_order.process_order',
2899: v_pri_bill_site_use_rec.tax_code := NULL;
2900:
2901: po_moac_utils_pvt.set_org_context(l_source_operating_unit);
2902: hz_cust_account_site_v2pub.create_cust_site_use (
2903: p_init_msg_list => FND_API.G_TRUE,
2904: p_cust_site_use_rec => v_pri_bill_site_use_rec,
2905: p_customer_profile_rec => v_pri_bill_cust_prf_rec,
2906: p_create_profile => FND_API.G_FALSE,
2907: p_create_profile_amt => FND_API.G_FALSE,
2902: hz_cust_account_site_v2pub.create_cust_site_use (
2903: p_init_msg_list => FND_API.G_TRUE,
2904: p_cust_site_use_rec => v_pri_bill_site_use_rec,
2905: p_customer_profile_rec => v_pri_bill_cust_prf_rec,
2906: p_create_profile => FND_API.G_FALSE,
2907: p_create_profile_amt => FND_API.G_FALSE,
2908: x_site_use_id => x_site_use_id,
2909: x_return_status => x_return_status,
2910: x_msg_count => x_msg_count,
2903: p_init_msg_list => FND_API.G_TRUE,
2904: p_cust_site_use_rec => v_pri_bill_site_use_rec,
2905: p_customer_profile_rec => v_pri_bill_cust_prf_rec,
2906: p_create_profile => FND_API.G_FALSE,
2907: p_create_profile_amt => FND_API.G_FALSE,
2908: x_site_use_id => x_site_use_id,
2909: x_return_status => x_return_status,
2910: x_msg_count => x_msg_count,
2911: x_msg_data => x_msg_data);
2910: x_msg_count => x_msg_count,
2911: x_msg_data => x_msg_data);
2912: po_moac_utils_pvt.set_org_context(l_org_id);
2913:
2914: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2915: l_msg := x_msg_data;
2916: FND_MESSAGE.SET_NAME('CSP', 'CSP_PROCESS_ORDER_ERRORS');
2917: FND_MESSAGE.SET_TOKEN('OM_MSG', l_msg, FALSE);
2918: FND_MSG_PUB.ADD;
2918: FND_MSG_PUB.ADD;
2919: fnd_msg_pub.count_and_get
2920: ( p_count => x_msg_count
2921: , p_data => x_msg_data);
2922: x_return_status := FND_API.G_RET_STS_ERROR;
2923: po_moac_utils_pvt.set_org_context(l_org_id);
2924: RAISE FND_API.G_EXC_ERROR;
2925: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2926:
2920: ( p_count => x_msg_count
2921: , p_data => x_msg_data);
2922: x_return_status := FND_API.G_RET_STS_ERROR;
2923: po_moac_utils_pvt.set_org_context(l_org_id);
2924: RAISE FND_API.G_EXC_ERROR;
2925: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2926:
2927: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2928: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2921: , p_data => x_msg_data);
2922: x_return_status := FND_API.G_RET_STS_ERROR;
2923: po_moac_utils_pvt.set_org_context(l_org_id);
2924: RAISE FND_API.G_EXC_ERROR;
2925: END IF; -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2926:
2927: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2928: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2929: 'csp.plsql.csp_parts_order.process_order',
3015: l_oe_header_rec.order_source_id := l_order_source_id;
3016: l_oe_header_rec.source_document_type_id := l_order_source_id;
3017:
3018: -- bug 8220079
3019: l_oe_header_rec.shipping_method_code := nvl(l_header_rec.shipping_method_code, FND_API.G_MISS_CHAR);
3020:
3021:
3022: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
3023: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3116: FND_MESSAGE.SET_TOKEN ('ORG', l_line_tbl(i).ATTRIBUTE1, FALSE);
3117: end if;
3118:
3119: FND_MSG_PUB.ADD;
3120: RAISE FND_API.G_EXC_ERROR;
3121: END IF;
3122: CLOSE item_desc_cur;
3123:
3124:
3128: IF item_Desc_cur%NOTFOUND THEN
3129: CLOSE item_desc_cur;
3130: FND_MESSAGE.SET_NAME ('ONT', 'OE_INVALID_ITEM_WHSE');
3131: FND_MSG_PUB.ADD;
3132: RAISE FND_API.G_EXC_ERROR;
3133: END IF;
3134: CLOSE item_desc_cur;
3135: --END IF;
3136:
3598: l_oe_line_rec.source_document_type_id := l_order_source_id;
3599: l_oe_line_rec.source_document_id := l_header_rec.requisition_header_id;
3600: l_oe_line_rec.source_document_line_id := l_line_tbl(i).requisition_line_id;
3601: l_oe_line_rec.ship_set := l_line_tbl(i).ship_complete;
3602: l_oe_line_Rec.shipping_method_code := nvl(l_line_tbl(i).shipping_method_code, FND_API.G_MISS_CHAR);
3603:
3604: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
3605: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
3606: 'csp.plsql.csp_parts_order.process_order',
3660: token2 => 'ERR_NUMBER',
3661: value2 => '035',
3662: token3 => 'SUBROUTINE',
3663: value3 => 'PO_REQ_SUPPLY()');
3664: RAISE FND_API.G_EXC_ERROR;
3665: END IF;
3666:
3667: ELSIF (p_process_type in ('ORDER', 'BOTH')) THEN
3668: IF (l_line_tbl(i).order_line_id IS NULL) THEN
3808: token2 => 'ERR_NUMBER',
3809: value2 => '005',
3810: token3 => 'SUBROUTINE',
3811: value3 => 'PO_REQ_SUPPLY()');
3812: RAISE FND_API.G_EXC_ERROR;
3813: END;
3814:
3815:
3816: END IF;
3857: IF l_source_operating_unit <> new_org_id THEN
3858: FND_MESSAGE.Set_Name('CS','CS_CHG_NEW_CONTEXT_OU_NOT_MATCH'); --to be seeded.
3859: FND_MESSAGE.Set_Token('ROUTINE',l_api_name_full);
3860: FND_MSG_PUB.Add;
3861: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3862: END IF;
3863: */
3864: ELSE
3865: --dbms_application_info.set_client_info(l_source_operating_unit);
4064:
4065: OE_Order_PUB.Process_Order(
4066: p_org_id => l_source_operating_unit
4067: ,p_api_version_number => l_api_version_number
4068: ,p_init_msg_list => FND_API.G_TRUE
4069: ,p_return_values => FND_API.G_FALSE
4070: ,p_action_commit => FND_API.G_FALSE
4071: -- Passing just the entity records that are a part of this order
4072:
4065: OE_Order_PUB.Process_Order(
4066: p_org_id => l_source_operating_unit
4067: ,p_api_version_number => l_api_version_number
4068: ,p_init_msg_list => FND_API.G_TRUE
4069: ,p_return_values => FND_API.G_FALSE
4070: ,p_action_commit => FND_API.G_FALSE
4071: -- Passing just the entity records that are a part of this order
4072:
4073: ,p_header_rec => l_oe_header_rec
4066: p_org_id => l_source_operating_unit
4067: ,p_api_version_number => l_api_version_number
4068: ,p_init_msg_list => FND_API.G_TRUE
4069: ,p_return_values => FND_API.G_FALSE
4070: ,p_action_commit => FND_API.G_FALSE
4071: -- Passing just the entity records that are a part of this order
4072:
4073: ,p_header_rec => l_oe_header_rec
4074: ,p_line_tbl => l_oe_line_tbl
4103: --p_action_request_tbl => l_action_request_tbl
4104: OE_Order_PUB.Process_Order(
4105: p_org_id => l_source_operating_unit
4106: ,p_api_version_number => l_api_version_number
4107: ,p_init_msg_list => FND_API.G_TRUE
4108: ,p_return_values => FND_API.G_FALSE
4109: ,p_action_commit => FND_API.G_FALSE
4110: -- Passing just the entity records that are a part of this order
4111: -- OUT variables
4104: OE_Order_PUB.Process_Order(
4105: p_org_id => l_source_operating_unit
4106: ,p_api_version_number => l_api_version_number
4107: ,p_init_msg_list => FND_API.G_TRUE
4108: ,p_return_values => FND_API.G_FALSE
4109: ,p_action_commit => FND_API.G_FALSE
4110: -- Passing just the entity records that are a part of this order
4111: -- OUT variables
4112: ,x_header_rec => lx_oe_header_rec
4105: p_org_id => l_source_operating_unit
4106: ,p_api_version_number => l_api_version_number
4107: ,p_init_msg_list => FND_API.G_TRUE
4108: ,p_return_values => FND_API.G_FALSE
4109: ,p_action_commit => FND_API.G_FALSE
4110: -- Passing just the entity records that are a part of this order
4111: -- OUT variables
4112: ,x_header_rec => lx_oe_header_rec
4113: ,x_header_val_rec => l_oe_Header_Val_rec
4152: mo_global.set_org_context(l_first_org_id,null,'CSF');
4153: end if;
4154: --END If;
4155:
4156: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4157: for counter in REVERSE 1..l_msg_count Loop
4158: l_msg := OE_MSG_PUB.Get(counter,FND_API.G_FALSE) ;
4159: FND_MESSAGE.SET_NAME('CSP', 'CSP_PROCESS_ORDER_ERRORS');
4160: FND_MESSAGE.SET_TOKEN('OM_MSG', l_msg, FALSE);
4154: --END If;
4155:
4156: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4157: for counter in REVERSE 1..l_msg_count Loop
4158: l_msg := OE_MSG_PUB.Get(counter,FND_API.G_FALSE) ;
4159: FND_MESSAGE.SET_NAME('CSP', 'CSP_PROCESS_ORDER_ERRORS');
4160: FND_MESSAGE.SET_TOKEN('OM_MSG', l_msg, FALSE);
4161: FND_MSG_PUB.ADD;
4162: fnd_msg_pub.count_and_get
4162: fnd_msg_pub.count_and_get
4163: ( p_count => x_msg_count
4164: , p_data => x_msg_data);
4165: End loop;
4166: x_return_status := FND_API.G_RET_STS_ERROR;
4167:
4168: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
4169: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
4170: 'csp.plsql.csp_parts_order.process_order',
4171: 'Error in OE_Order_PUB.Process_Order API... Message = '
4172: || l_msg);
4173: end if;
4174:
4175: RAISE FND_API.G_EXC_ERROR;
4176: ELSE
4177: -- assign output variables with respected values if operation is CREATE
4178:
4179: IF (l_header_Rec.operation = G_OPR_CREATE) THEN
4188: -- update requisition line table with new quantity
4189: -- quantity is the only change allowed
4190: FOR i in 1..lx_oe_line_tbl.count LOOP
4191: IF (lx_oe_line_tbl(I).ordered_quantity IS NOT NULL OR
4192: lx_oe_line_tbl(I).ordered_quantity <> FND_API.G_MISS_NUM) THEN
4193: update po_requisition_lines
4194: set quantity = lx_oe_line_tbl(I).ordered_quantity
4195: where requisition_line_id = lx_oe_line_Tbl(I).source_document_line_id;
4196:
4217: token2 => 'ERR_NUMBER',
4218: value2 => '035',
4219: token3 => 'SUBROUTINE',
4220: value3 => 'PO_REQ_SUPPLY()');
4221: RAISE FND_API.G_EXC_ERROR;
4222: END IF;
4223: END IF;
4224: END LOOP;
4225: END If;
4246: END;
4247:
4248: -- bug # 12568146
4249: if x_return_status is null then
4250: x_return_status := FND_API.G_RET_STS_SUCCESS;
4251: end if;
4252:
4253: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
4254: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
4256: 'process_order API returning with x_return_status = ' || x_return_status);
4257: end if;
4258:
4259: EXCEPTION
4260: WHEN FND_API.G_EXC_ERROR THEN
4261: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
4262: P_API_NAME => L_API_NAME
4263: ,P_PKG_NAME => G_PKG_NAME
4264: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
4265: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
4266: ,X_MSG_COUNT => X_MSG_COUNT
4267: ,X_MSG_DATA => X_MSG_DATA
4268: ,X_RETURN_STATUS => X_RETURN_STATUS);
4269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4270: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
4271: P_API_NAME => L_API_NAME
4272: ,P_PKG_NAME => G_PKG_NAME
4273: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
4300: FND_MSG_PUB.ADD;
4301: fnd_msg_pub.count_and_get
4302: ( p_count => x_msg_count
4303: , p_data => x_msg_data);
4304: x_return_status := FND_API.G_RET_STS_ERROR;
4305: END;
4306:
4307:
4308:
4329: IS
4330:
4331: l_api_version_number CONSTANT NUMBER := 1.0;
4332: l_api_name CONSTANT VARCHAR2(30) := 'process_purchase_req';
4333: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4334: l_msg_count NUMBER;
4335: l_msg_data VARCHAR2(2000);
4336: l_commit VARCHAR2(1) := FND_API.G_FALSE;
4337: l_user_id NUMBER;
4332: l_api_name CONSTANT VARCHAR2(30) := 'process_purchase_req';
4333: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
4334: l_msg_count NUMBER;
4335: l_msg_data VARCHAR2(2000);
4336: l_commit VARCHAR2(1) := FND_API.G_FALSE;
4337: l_user_id NUMBER;
4338: l_login_id NUMBER;
4339: l_today DATE;
4340: l_employee_id NUMBER;
4395: BEGIN
4396:
4397: SAVEPOINT Process_Order_PUB;
4398:
4399: IF fnd_api.to_boolean(P_Init_Msg_List) THEN
4400: -- initialize message list
4401: FND_MSG_PUB.initialize;
4402: END IF;
4403:
4401: FND_MSG_PUB.initialize;
4402: END IF;
4403:
4404: -- Standard call to check for call compatibility.
4405: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4406: p_api_version,
4407: l_api_name,
4408: G_PKG_NAME)
4409: THEN
4406: p_api_version,
4407: l_api_name,
4408: G_PKG_NAME)
4409: THEN
4410: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4411: END IF;
4412:
4413: -- initialize return status
4414: x_return_status := FND_API.G_RET_STS_SUCCESS;
4410: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4411: END IF;
4412:
4413: -- initialize return status
4414: x_return_status := FND_API.G_RET_STS_SUCCESS;
4415:
4416: l_header_rec := px_header_rec;
4417: l_line_tbl := px_line_table;
4418:
4690:
4691: px_header_rec := l_header_rec;
4692: px_line_Table := l_line_Tbl;
4693:
4694: IF (p_commit = FND_API.G_TRUE) THEN
4695: commit;
4696: END IF;
4697:
4698: fnd_msg_pub.count_and_get( p_count => x_msg_count
4698: fnd_msg_pub.count_and_get( p_count => x_msg_count
4699: , p_data => x_msg_data);
4700:
4701: EXCEPTION
4702: WHEN FND_API.G_EXC_ERROR THEN
4703: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
4704: P_API_NAME => L_API_NAME
4705: ,P_PKG_NAME => G_PKG_NAME
4706: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
4707: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
4708: ,X_MSG_COUNT => X_MSG_COUNT
4709: ,X_MSG_DATA => X_MSG_DATA
4710: ,X_RETURN_STATUS => X_RETURN_STATUS);
4711: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4712: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
4713: P_API_NAME => L_API_NAME
4714: ,P_PKG_NAME => G_PKG_NAME
4715: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
4730: FND_MSG_PUB.ADD;
4731: fnd_msg_pub.count_and_get
4732: ( p_count => x_msg_count
4733: , p_data => x_msg_data);
4734: x_return_status := FND_API.G_RET_STS_ERROR;
4735: END;
4736:
4737: PROCEDURE book_order (
4738: p_oe_header_id IN NUMBER
4813:
4814: OE_ORDER_PUB.process_order(
4815: p_api_version_number => 1.0,
4816: p_org_id => l_org_id,
4817: p_init_msg_list => FND_API.G_TRUE,
4818: p_return_values => FND_API.G_FALSE,
4819: p_action_commit => FND_API.G_FALSE,
4820: x_return_status => x_return_status,
4821: x_msg_count => x_msg_count,
4814: OE_ORDER_PUB.process_order(
4815: p_api_version_number => 1.0,
4816: p_org_id => l_org_id,
4817: p_init_msg_list => FND_API.G_TRUE,
4818: p_return_values => FND_API.G_FALSE,
4819: p_action_commit => FND_API.G_FALSE,
4820: x_return_status => x_return_status,
4821: x_msg_count => x_msg_count,
4822: x_msg_data => x_msg_data,
4815: p_api_version_number => 1.0,
4816: p_org_id => l_org_id,
4817: p_init_msg_list => FND_API.G_TRUE,
4818: p_return_values => FND_API.G_FALSE,
4819: p_action_commit => FND_API.G_FALSE,
4820: x_return_status => x_return_status,
4821: x_msg_count => x_msg_count,
4822: x_msg_data => x_msg_data,
4823: p_action_request_tbl => l_action_request_tbl,
4863: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
4864: 'x_msg_data = ' || x_msg_data);
4865: end if;
4866:
4867: if x_return_status = FND_API.G_RET_STS_SUCCESS then
4868: commit;
4869: end if;
4870:
4871: end;
5009:
5010: OE_ORDER_PUB.process_order(
5011: p_api_version_number => 1.0,
5012: p_org_id => l_org_id,
5013: p_init_msg_list => FND_API.G_TRUE,
5014: p_return_values => FND_API.G_FALSE,
5015: p_action_commit => FND_API.G_FALSE,
5016: x_return_status => x_return_status,
5017: x_msg_count => x_msg_count,
5010: OE_ORDER_PUB.process_order(
5011: p_api_version_number => 1.0,
5012: p_org_id => l_org_id,
5013: p_init_msg_list => FND_API.G_TRUE,
5014: p_return_values => FND_API.G_FALSE,
5015: p_action_commit => FND_API.G_FALSE,
5016: x_return_status => x_return_status,
5017: x_msg_count => x_msg_count,
5018: x_msg_data => x_msg_data,
5011: p_api_version_number => 1.0,
5012: p_org_id => l_org_id,
5013: p_init_msg_list => FND_API.G_TRUE,
5014: p_return_values => FND_API.G_FALSE,
5015: p_action_commit => FND_API.G_FALSE,
5016: x_return_status => x_return_status,
5017: x_msg_count => x_msg_count,
5018: x_msg_data => x_msg_data,
5019: p_action_request_tbl => l_action_request_tbl,
5064: -- Stopping OE Debug...
5065: oe_debug_pub.debug_off;
5066: end if;
5067:
5068: if x_return_status = FND_API.G_RET_STS_SUCCESS then
5069: commit;
5070: end if;
5071:
5072: END;
5075: p_req_header_id IN NUMBER
5076: ,p_new_hr_loc_id IN NUMBER
5077: ,p_new_add_type IN VARCHAR2
5078: ,p_update_req_header IN VARCHAR2
5079: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
5080: ,x_return_status OUT NOCOPY VARCHAR2
5081: ,x_msg_count OUT NOCOPY NUMBER
5082: ,x_msg_data OUT NOCOPY VARCHAR2
5083: ) IS
5187: FND_MSG_PUB.ADD;
5188: fnd_msg_pub.count_and_get
5189: ( p_count => x_msg_count
5190: , p_data => x_msg_data);
5191: x_return_status := FND_API.G_RET_STS_ERROR;
5192:
5193: else -- we will do stuff here
5194:
5195: -- logic in brief
5326: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
5327: 'after cancel the order... x_return_status = ' || x_return_status);
5328: end if;
5329:
5330: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
5331: rollback to csp_upd_oe_ship_to_add;
5332:
5333: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
5334: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
5347: end if;
5348:
5349: process_order(
5350: p_api_version => 1.0
5351: ,p_Init_Msg_List => FND_API.G_TRUE
5352: ,p_commit => FND_API.G_FALSE
5353: ,px_header_rec => l_header_rec
5354: ,px_line_table => l_lines_tbl
5355: ,p_process_type => 'BOTH'
5348:
5349: process_order(
5350: p_api_version => 1.0
5351: ,p_Init_Msg_List => FND_API.G_TRUE
5352: ,p_commit => FND_API.G_FALSE
5353: ,px_header_rec => l_header_rec
5354: ,px_line_table => l_lines_tbl
5355: ,p_process_type => 'BOTH'
5356: ,p_book_order => 'N'
5363: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
5364: 'after calling process_order... x_return_status = ' || x_return_status);
5365: end if;
5366:
5367: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
5368: rollback to csp_upd_oe_ship_to_add;
5369:
5370: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
5371: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
5418: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
5419: 'after CSP_REQ_LINE_DETAILS_PVT.Update_req_line_details... x_return_status = ' || x_return_status);
5420: end if;
5421:
5422: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
5423: rollback to csp_upd_oe_ship_to_add;
5424:
5425: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
5426: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
5436: end if;
5437:
5438: end loop;
5439:
5440: if x_return_status = FND_API.G_RET_STS_SUCCESS then
5441:
5442: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
5443: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
5444: 'p_update_req_header = ' || p_update_req_header);
5467: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
5468: 'after calling CSP_Requirement_headers_PVT.Update_requirement_headers... x_return_status = ' || x_return_status);
5469: end if;
5470:
5471: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
5472: rollback to csp_upd_oe_ship_to_add;
5473:
5474: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
5475: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
5479: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
5480: 'x_msg_data = ' || x_msg_data);
5481: end if;
5482: else
5483: if p_commit = FND_API.G_TRUE then
5484: commit;
5485: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
5486: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_module_name,
5487: 'transaction commited...');