[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
495:
496: SAVEPOINT Cancel_Order_PUB;
497:
498: -- initialize return status
499: x_return_status := FND_API.G_RET_STS_SUCCESS;
500:
501: l_user_id := nvl(fnd_global.user_id, 0) ;
502: fnd_profile.get('RESP_ID',orig_resp_id);
503: fnd_profile.get('RESP_APPL_ID',orig_resp_appl_id);
540: token2 => 'ERR_NUMBER',
541: value2 => '035',
542: token3 => 'SUBROUTINE',
543: value3 => 'PO_REQ_SUPPLY()');
544: RAISE FND_API.G_EXC_ERROR;
545: END IF;
546: END LOOP;
547: ELSE
548: IF(l_oe_header_id IS NOT NULL) THEN
593: Nvl(l_oe_line_old_tbl(i).cancelled_flag,'N') <> 'Y' AND
594: Nvl(l_oe_line_old_tbl(i).ordered_quantity,0) <> 0 THEN
595: J := J + 1;
596: l_oe_line_tbl(J) := l_oe_line_old_tbl(I);
597: l_oe_line_tbl(J).db_flag := FND_API.G_TRUE;
598: l_oe_line_tbl(J).cancelled_quantity := l_oe_line_old_tbl(J).ordered_quantity;
599:
600: l_oe_line_tbl(j).ordered_quantity :=0;
601: l_oe_line_tbl(j).operation := OE_GLOBALS.G_OPR_UPDATE;
646: Nvl(l_oe_line_old_tbl(i).cancelled_flag,'N') <> 'Y' AND
647: Nvl(l_oe_line_old_tbl(i).ordered_quantity,0) <> 0 THEN
648: J := J + 1;
649: l_oe_line_tbl(J) := l_oe_line_old_tbl(I);
650: l_oe_line_tbl(J).db_flag := FND_API.G_TRUE;
651: l_oe_line_tbl(J).cancelled_quantity := l_oe_line_tbl(J).ordered_quantity;
652:
653: l_oe_line_tbl(j).ordered_quantity :=0;
654: l_oe_line_tbl(j).operation := OE_GLOBALS.G_OPR_UPDATE;
679: fnd_msg_pub.count_and_get
680: ( p_count => x_msg_count
681: , p_data => x_msg_data);
682:
683: x_return_status := FND_API.G_RET_STS_ERROR;
684:
685: RAISE FND_API.G_EXC_ERROR;
686: END IF;
687:
681: , p_data => x_msg_data);
682:
683: x_return_status := FND_API.G_RET_STS_ERROR;
684:
685: RAISE FND_API.G_EXC_ERROR;
686: END IF;
687:
688: l_oe_control_rec.controlled_operation := TRUE;
689: l_oe_control_rec.change_attributes := TRUE;
699: -- Call to Process Order
700: OE_Order_PUB.Process_Order(
701: p_org_id => l_source_operating_unit
702: , p_api_version_number => l_api_version_number
703: ,p_init_msg_list => FND_API.G_TRUE
704: ,p_return_values => FND_API.G_FALSE
705: ,p_action_commit => FND_API.G_FALSE
706: -- Passing just the entity records that are a part of this order
707: ,p_header_rec => l_oe_header_rec
700: OE_Order_PUB.Process_Order(
701: p_org_id => l_source_operating_unit
702: , p_api_version_number => l_api_version_number
703: ,p_init_msg_list => FND_API.G_TRUE
704: ,p_return_values => FND_API.G_FALSE
705: ,p_action_commit => FND_API.G_FALSE
706: -- Passing just the entity records that are a part of this order
707: ,p_header_rec => l_oe_header_rec
708: ,p_line_tbl => l_oe_line_tbl
701: p_org_id => l_source_operating_unit
702: , p_api_version_number => l_api_version_number
703: ,p_init_msg_list => FND_API.G_TRUE
704: ,p_return_values => FND_API.G_FALSE
705: ,p_action_commit => FND_API.G_FALSE
706: -- Passing just the entity records that are a part of this order
707: ,p_header_rec => l_oe_header_rec
708: ,p_line_tbl => l_oe_line_tbl
709: ,p_old_line_tbl => l_oe_line_old_tbl
737: IF (l_source_operating_unit <> l_org_id) THEN
738: fnd_global.apps_initialize(l_user_id,orig_resp_id,orig_resp_appl_id);
739: END If;
740:
741: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
742: for counter in REVERSE 1..l_msg_count Loop
743: l_msg := OE_MSG_PUB.Get(counter,FND_API.G_FALSE) ;
744: FND_MESSAGE.SET_NAME('CSP', 'CSP_PROCESS_ORDER_ERRORS');
745: FND_MESSAGE.SET_TOKEN('OM_MSG', l_msg, FALSE);
739: END If;
740:
741: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
742: for counter in REVERSE 1..l_msg_count Loop
743: l_msg := OE_MSG_PUB.Get(counter,FND_API.G_FALSE) ;
744: FND_MESSAGE.SET_NAME('CSP', 'CSP_PROCESS_ORDER_ERRORS');
745: FND_MESSAGE.SET_TOKEN('OM_MSG', l_msg, FALSE);
746: FND_MSG_PUB.ADD;
747: fnd_msg_pub.count_and_get
747: fnd_msg_pub.count_and_get
748: ( p_count => x_msg_count
749: , p_data => x_msg_data);
750: End loop;
751: RAISE FND_API.G_EXC_ERROR;
752: ELSE
753: -- cancel the internal requisitions lines and header for the above order lines and header
754:
755: FOR I in 1..lx_oe_line_tbl.count LOOP
787: token2 => 'ERR_NUMBER',
788: value2 => '035',
789: token3 => 'SUBROUTINE',
790: value3 => 'PO_REQ_SUPPLY()');
791: RAISE FND_API.G_EXC_ERROR;
792: END;
793: -- END IF;
794: END LOOP;
795:
834:
835: -- call to Process Order
836: OE_Order_PUB.Process_Order(
837: p_api_version_number => l_api_version_number
838: ,p_init_msg_list => FND_API.G_TRUE
839: ,p_return_values => FND_API.G_FALSE
840: ,p_action_commit => FND_API.G_FALSE
841: -- Passing just the entity records that are a part of this order
842: ,p_header_rec => l_oe_header_rec
835: -- call to Process Order
836: OE_Order_PUB.Process_Order(
837: p_api_version_number => l_api_version_number
838: ,p_init_msg_list => FND_API.G_TRUE
839: ,p_return_values => FND_API.G_FALSE
840: ,p_action_commit => FND_API.G_FALSE
841: -- Passing just the entity records that are a part of this order
842: ,p_header_rec => l_oe_header_rec
843: ,p_line_tbl => l_oe_line_tbl
836: OE_Order_PUB.Process_Order(
837: p_api_version_number => l_api_version_number
838: ,p_init_msg_list => FND_API.G_TRUE
839: ,p_return_values => FND_API.G_FALSE
840: ,p_action_commit => FND_API.G_FALSE
841: -- Passing just the entity records that are a part of this order
842: ,p_header_rec => l_oe_header_rec
843: ,p_line_tbl => l_oe_line_tbl
844: ,p_old_line_tbl => l_oe_line_old_tbl
872: IF (l_source_operating_unit <> l_org_id) THEN
873: fnd_global.apps_initialize(l_user_id,orig_resp_id,orig_resp_appl_id);
874: END If;
875:
876: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
877: for counter in REVERSE 1..l_msg_count Loop
878: l_msg := OE_MSG_PUB.Get(counter,FND_API.G_FALSE) ;
879: FND_MESSAGE.SET_NAME('CSP', 'CSP_PROCESS_ORDER_ERRORS');
880: FND_MESSAGE.SET_TOKEN('OM_MSG', l_msg, FALSE);
874: END If;
875:
876: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
877: for counter in REVERSE 1..l_msg_count Loop
878: l_msg := OE_MSG_PUB.Get(counter,FND_API.G_FALSE) ;
879: FND_MESSAGE.SET_NAME('CSP', 'CSP_PROCESS_ORDER_ERRORS');
880: FND_MESSAGE.SET_TOKEN('OM_MSG', l_msg, FALSE);
881: FND_MSG_PUB.ADD;
882: fnd_msg_pub.count_and_get
882: fnd_msg_pub.count_and_get
883: ( p_count => x_msg_count
884: , p_data => x_msg_data);
885: End loop;
886: RAISE FND_API.G_EXC_ERROR;
887: END If;
888: END IF;
889: END IF;
890: END If;
893: ( p_count => x_msg_count
894: , p_data => x_msg_data);
895:
896: EXCEPTION
897: WHEN FND_API.G_EXC_ERROR THEN
898: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
899: P_API_NAME => L_API_NAME
900: ,P_PKG_NAME => G_PKG_NAME
901: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
902: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
903: ,X_MSG_COUNT => X_MSG_COUNT
904: ,X_MSG_DATA => X_MSG_DATA
905: ,X_RETURN_STATUS => X_RETURN_STATUS);
906: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
907: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
908: P_API_NAME => L_API_NAME
909: ,P_PKG_NAME => G_PKG_NAME
910: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
920: FND_MSG_PUB.ADD;
921: fnd_msg_pub.count_and_get
922: ( p_count => x_msg_count
923: , p_data => x_msg_data);
924: x_return_status := FND_API.G_RET_STS_ERROR;
925:
926: END;
927:
928:
967: IS
968: l_action_request_tbl oe_order_pub.request_tbl_type;
969: l_api_version_number CONSTANT NUMBER := 1.0;
970: l_api_name CONSTANT VARCHAR2(30) := 'process_order';
971: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
972: l_msg_count NUMBER;
973: l_msg_data VARCHAR2(4000);
974: l_commit VARCHAR2(1) := FND_API.G_FALSE;
975: l_user_id NUMBER;
970: l_api_name CONSTANT VARCHAR2(30) := 'process_order';
971: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
972: l_msg_count NUMBER;
973: l_msg_data VARCHAR2(4000);
974: l_commit VARCHAR2(1) := FND_API.G_FALSE;
975: l_user_id NUMBER;
976: l_login_id NUMBER;
977: l_today DATE;
978:
1257: end if;
1258:
1259: SAVEPOINT Process_Order_PUB;
1260:
1261: IF fnd_api.to_boolean(P_Init_Msg_List) THEN
1262: -- initialize message list
1263: FND_MSG_PUB.initialize;
1264: END IF;
1265:
1263: FND_MSG_PUB.initialize;
1264: END IF;
1265:
1266: -- Standard call to check for call compatibility.
1267: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1268: p_api_version,
1269: l_api_name,
1270: G_PKG_NAME)
1271: THEN
1268: p_api_version,
1269: l_api_name,
1270: G_PKG_NAME)
1271: THEN
1272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1273: END IF;
1274:
1275: -- initialize return status
1276: x_return_status := FND_API.G_RET_STS_SUCCESS;
1272: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1273: END IF;
1274:
1275: -- initialize return status
1276: x_return_status := FND_API.G_RET_STS_SUCCESS;
1277:
1278: l_user_id := nvl(fnd_global.user_id, 0) ;
1279: fnd_profile.get('RESP_ID',orig_resp_id);
1280: fnd_profile.get('RESP_APPL_ID',orig_resp_appl_id);
1329: x_msg_count => l_msg_count,
1330: x_msg_data => l_msg_data
1331: );
1332:
1333: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1334: RAISE FND_API.G_EXC_ERROR;
1335: END IF;
1336: ELSE
1337:
1330: x_msg_data => l_msg_data
1331: );
1332:
1333: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1334: RAISE FND_API.G_EXC_ERROR;
1335: END IF;
1336: ELSE
1337:
1338: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
1423: ,X_MSG_COUNT => l_msg_count
1424: ,X_MSG_DATA => l_msg_data
1425: );
1426:
1427: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1428: RAISE FND_API.G_EXC_ERROR;
1429: END IF;
1430:
1431: END If;
1424: ,X_MSG_DATA => l_msg_data
1425: );
1426:
1427: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1428: RAISE FND_API.G_EXC_ERROR;
1429: END IF;
1430:
1431: END If;
1432: CLOSE rs_loc_exists_cur;
1944: IF item_Desc_cur%NOTFOUND THEN
1945: CLOSE item_desc_cur;
1946: FND_MESSAGE.SET_NAME ('ONT', 'OE_INVALID_ITEM_WHSE');
1947: FND_MSG_PUB.ADD;
1948: RAISE FND_API.G_EXC_ERROR;
1949: END IF;
1950: CLOSE item_desc_cur;
1951: END IF;
1952:
2348: l_oe_line_rec.source_document_type_id := l_order_source_id;
2349: l_oe_line_rec.source_document_id := l_header_rec.requisition_header_id;
2350: l_oe_line_rec.source_document_line_id := l_line_tbl(i).requisition_line_id;
2351: l_oe_line_rec.ship_set := l_line_tbl(i).ship_complete;
2352: l_oe_line_Rec.shipping_method_code := nvl(l_line_tbl(i).shipping_method_code, FND_API.G_MISS_CHAR);
2353: l_oe_line_Rec.calculate_price_flag := 'N';
2354: l_oe_line_Rec.unit_list_price := l_item_cost;
2355: l_oe_line_Rec.unit_Selling_price := l_item_cost;
2356: l_oe_line_Rec.open_flag := 'Y';
2395: token2 => 'ERR_NUMBER',
2396: value2 => '035',
2397: token3 => 'SUBROUTINE',
2398: value3 => 'PO_REQ_SUPPLY()');
2399: RAISE FND_API.G_EXC_ERROR;
2400: END IF;
2401:
2402: ELSIF (p_process_type in ('ORDER', 'BOTH')) THEN
2403: IF (l_line_tbl(i).order_line_id IS NULL) THEN
2543: token2 => 'ERR_NUMBER',
2544: value2 => '005',
2545: token3 => 'SUBROUTINE',
2546: value3 => 'PO_REQ_SUPPLY()');
2547: RAISE FND_API.G_EXC_ERROR;
2548: END;
2549:
2550:
2551: END IF;
2583: IF l_source_operating_unit <> new_org_id THEN
2584: FND_MESSAGE.Set_Name('CS','CS_CHG_NEW_CONTEXT_OU_NOT_MATCH'); --to be seeded.
2585: FND_MESSAGE.Set_Token('ROUTINE',l_api_name_full);
2586: FND_MSG_PUB.Add;
2587: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2588: END IF;
2589: */
2590: ELSE
2591: dbms_application_info.set_client_info(l_source_operating_unit);
2611: l_action_request_tbl(1).request_type := OE_GLOBALS.G_BOOK_ORDER;
2612: OE_Order_PUB.Process_Order(
2613: p_org_id => l_source_operating_unit
2614: ,p_api_version_number => l_api_version_number
2615: ,p_init_msg_list => FND_API.G_TRUE
2616: ,p_return_values => FND_API.G_FALSE
2617: ,p_action_commit => FND_API.G_FALSE
2618: -- Passing just the entity records that are a part of this order
2619:
2612: OE_Order_PUB.Process_Order(
2613: p_org_id => l_source_operating_unit
2614: ,p_api_version_number => l_api_version_number
2615: ,p_init_msg_list => FND_API.G_TRUE
2616: ,p_return_values => FND_API.G_FALSE
2617: ,p_action_commit => FND_API.G_FALSE
2618: -- Passing just the entity records that are a part of this order
2619:
2620: ,p_header_rec => l_oe_header_rec
2613: p_org_id => l_source_operating_unit
2614: ,p_api_version_number => l_api_version_number
2615: ,p_init_msg_list => FND_API.G_TRUE
2616: ,p_return_values => FND_API.G_FALSE
2617: ,p_action_commit => FND_API.G_FALSE
2618: -- Passing just the entity records that are a part of this order
2619:
2620: ,p_header_rec => l_oe_header_rec
2621: ,p_line_tbl => l_oe_line_tbl
2650: --p_action_request_tbl => l_action_request_tbl
2651: OE_Order_PUB.Process_Order(
2652: p_org_id => l_source_operating_unit
2653: ,p_api_version_number => l_api_version_number
2654: ,p_init_msg_list => FND_API.G_TRUE
2655: ,p_return_values => FND_API.G_FALSE
2656: ,p_action_commit => FND_API.G_FALSE
2657: -- Passing just the entity records that are a part of this order
2658: -- OUT variables
2651: OE_Order_PUB.Process_Order(
2652: p_org_id => l_source_operating_unit
2653: ,p_api_version_number => l_api_version_number
2654: ,p_init_msg_list => FND_API.G_TRUE
2655: ,p_return_values => FND_API.G_FALSE
2656: ,p_action_commit => FND_API.G_FALSE
2657: -- Passing just the entity records that are a part of this order
2658: -- OUT variables
2659: ,x_header_rec => lx_oe_header_rec
2652: p_org_id => l_source_operating_unit
2653: ,p_api_version_number => l_api_version_number
2654: ,p_init_msg_list => FND_API.G_TRUE
2655: ,p_return_values => FND_API.G_FALSE
2656: ,p_action_commit => FND_API.G_FALSE
2657: -- Passing just the entity records that are a part of this order
2658: -- OUT variables
2659: ,x_header_rec => lx_oe_header_rec
2660: ,x_header_val_rec => l_oe_Header_Val_rec
2688: mo_global.set_org_context(l_org_id,null,'CSF');
2689:
2690: END If;
2691:
2692: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2693: for counter in REVERSE 1..l_msg_count Loop
2694: l_msg := OE_MSG_PUB.Get(counter,FND_API.G_FALSE) ;
2695: FND_MESSAGE.SET_NAME('CSP', 'CSP_PROCESS_ORDER_ERRORS');
2696: FND_MESSAGE.SET_TOKEN('OM_MSG', l_msg, FALSE);
2690: END If;
2691:
2692: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2693: for counter in REVERSE 1..l_msg_count Loop
2694: l_msg := OE_MSG_PUB.Get(counter,FND_API.G_FALSE) ;
2695: FND_MESSAGE.SET_NAME('CSP', 'CSP_PROCESS_ORDER_ERRORS');
2696: FND_MESSAGE.SET_TOKEN('OM_MSG', l_msg, FALSE);
2697: FND_MSG_PUB.ADD;
2698: fnd_msg_pub.count_and_get
2698: fnd_msg_pub.count_and_get
2699: ( p_count => x_msg_count
2700: , p_data => x_msg_data);
2701: End loop;
2702: x_return_status := FND_API.G_RET_STS_ERROR;
2703:
2704: if(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
2705: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
2706: 'csp.plsql.csp_parts_order.process_order',
2707: 'Error in OE_Order_PUB.Process_Order API... Message = '
2708: || l_msg);
2709: end if;
2710:
2711: RAISE FND_API.G_EXC_ERROR;
2712: ELSE
2713: -- assign output variables with respected values if operation is CREATE
2714:
2715: IF (l_header_Rec.operation = G_OPR_CREATE) THEN
2724: -- update requisition line table with new quantity
2725: -- quantity is the only change allowed
2726: FOR i in 1..lx_oe_line_tbl.count LOOP
2727: IF (lx_oe_line_tbl(I).ordered_quantity IS NOT NULL OR
2728: lx_oe_line_tbl(I).ordered_quantity <> FND_API.G_MISS_NUM) THEN
2729: update po_requisition_lines
2730: set quantity = lx_oe_line_tbl(I).ordered_quantity
2731: where requisition_line_id = lx_oe_line_Tbl(I).source_document_line_id;
2732:
2753: token2 => 'ERR_NUMBER',
2754: value2 => '035',
2755: token3 => 'SUBROUTINE',
2756: value3 => 'PO_REQ_SUPPLY()');
2757: RAISE FND_API.G_EXC_ERROR;
2758: END IF;
2759: END IF;
2760: END LOOP;
2761: END If;
2770: , p_data => x_msg_data);
2771:
2772: END If;
2773: EXCEPTION
2774: WHEN FND_API.G_EXC_ERROR THEN
2775: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2776: P_API_NAME => L_API_NAME
2777: ,P_PKG_NAME => G_PKG_NAME
2778: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2779: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
2780: ,X_MSG_COUNT => X_MSG_COUNT
2781: ,X_MSG_DATA => X_MSG_DATA
2782: ,X_RETURN_STATUS => X_RETURN_STATUS);
2783: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2784: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
2785: P_API_NAME => L_API_NAME
2786: ,P_PKG_NAME => G_PKG_NAME
2787: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
2814: FND_MSG_PUB.ADD;
2815: fnd_msg_pub.count_and_get
2816: ( p_count => x_msg_count
2817: , p_data => x_msg_data);
2818: x_return_status := FND_API.G_RET_STS_ERROR;
2819: END;
2820:
2821:
2822:
2843: IS
2844:
2845: l_api_version_number CONSTANT NUMBER := 1.0;
2846: l_api_name CONSTANT VARCHAR2(30) := 'process_purchase_req';
2847: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2848: l_msg_count NUMBER;
2849: l_msg_data VARCHAR2(2000);
2850: l_commit VARCHAR2(1) := FND_API.G_FALSE;
2851: l_user_id NUMBER;
2846: l_api_name CONSTANT VARCHAR2(30) := 'process_purchase_req';
2847: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2848: l_msg_count NUMBER;
2849: l_msg_data VARCHAR2(2000);
2850: l_commit VARCHAR2(1) := FND_API.G_FALSE;
2851: l_user_id NUMBER;
2852: l_login_id NUMBER;
2853: l_today DATE;
2854: l_employee_id NUMBER;
2903: BEGIN
2904:
2905: SAVEPOINT Process_Order_PUB;
2906:
2907: IF fnd_api.to_boolean(P_Init_Msg_List) THEN
2908: -- initialize message list
2909: FND_MSG_PUB.initialize;
2910: END IF;
2911:
2909: FND_MSG_PUB.initialize;
2910: END IF;
2911:
2912: -- Standard call to check for call compatibility.
2913: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
2914: p_api_version,
2915: l_api_name,
2916: G_PKG_NAME)
2917: THEN
2914: p_api_version,
2915: l_api_name,
2916: G_PKG_NAME)
2917: THEN
2918: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2919: END IF;
2920:
2921: -- initialize return status
2922: x_return_status := FND_API.G_RET_STS_SUCCESS;
2918: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2919: END IF;
2920:
2921: -- initialize return status
2922: x_return_status := FND_API.G_RET_STS_SUCCESS;
2923:
2924: l_header_rec := px_header_rec;
2925: l_line_tbl := px_line_table;
2926:
3134:
3135: px_header_rec := l_header_rec;
3136: px_line_Table := l_line_Tbl;
3137:
3138: IF (p_commit = FND_API.G_TRUE) THEN
3139: commit;
3140: END IF;
3141:
3142: fnd_msg_pub.count_and_get( p_count => x_msg_count
3142: fnd_msg_pub.count_and_get( p_count => x_msg_count
3143: , p_data => x_msg_data);
3144:
3145: EXCEPTION
3146: WHEN FND_API.G_EXC_ERROR THEN
3147: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
3148: P_API_NAME => L_API_NAME
3149: ,P_PKG_NAME => G_PKG_NAME
3150: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
3151: ,P_PACKAGE_TYPE => JTF_PLSQL_API.G_PUB
3152: ,X_MSG_COUNT => X_MSG_COUNT
3153: ,X_MSG_DATA => X_MSG_DATA
3154: ,X_RETURN_STATUS => X_RETURN_STATUS);
3155: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3156: JTF_PLSQL_API.HANDLE_EXCEPTIONS(
3157: P_API_NAME => L_API_NAME
3158: ,P_PKG_NAME => G_PKG_NAME
3159: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
3174: FND_MSG_PUB.ADD;
3175: fnd_msg_pub.count_and_get
3176: ( p_count => x_msg_count
3177: , p_data => x_msg_data);
3178: x_return_status := FND_API.G_RET_STS_ERROR;
3179: END;
3180:
3181: END;