Creating a New Delivery:
Sample Script to Create a New Delivery with respect to its Location:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 |
DECLARE -- Standard Parameters. pApiVersion NUMBER := 1.0; pInitMsgList VARCHAR2(30); -- Sepcific Parameters for WSH_DELIVERIES_PUB.create_update_delivery pActionCode VARCHAR2(15); xDeliveryId NUMBER; pDeliveryInfo WSH_DELIVERIES_PUB.DELIVERY_PUB_REC_TYPE; pDeliveryName VARCHAR2(30); -- out parameters xReturnStatus VARCHAR2(10); xMsgCount NUMBER; xMsgData VARCHAR2(2000); xMsgDetails VARCHAR2(3000); xMsgSummary VARCHAR2(3000); -- Handle exceptions vFailApiException EXCEPTION; BEGIN -- Initialize return status xReturnStatus := WSH_UTIL_CORE.G_RET_STS_SUCCESS; -- Call this procedure to initialize applications parameters. FND_GLOBAL.APPS_INITIALIZE( user_id => 1318 , resp_id => 21623 , resp_appl_id => 660); -- Create a new delivery for the following pDeliveryInfo.name := 'AOATest-001'; -- Pass delivery name pDeliveryInfo.organization_id := 207; -- Pass Organization ID pDeliveryInfo.initial_pickup_location_id := 207; -- Pass the Pick up location ID pDeliveryInfo.ultimate_dropoff_location_id := 1091; -- pass the Drop off location ID pDeliveryInfo.ship_method_code := 'DHL'; -- pass Ship Method pActionCode := 'CREATE'; -- Action Code -- Call to WSH_DELIVERIES_PUB.create_update_delivery WSH_DELIVERIES_PUB.create_update_delivery ( p_api_version_number => pApiVersion, p_init_msg_list => pInitMsgList, x_return_status => xReturnStatus, x_msg_count => xMsgCount, x_msg_data => xMsgData, p_action_code => pActionCode, p_delivery_info => pDeliveryInfo, p_delivery_name => pDeliveryName, x_delivery_id => xDeliveryId, x_name => pDeliveryName ); -- If the return status is not success(S) then raise exception IF (xReturnStatus <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN RAISE vFailApiException; ELSE DBMS_OUTPUT.PUT_LINE('New Delivery ID : '||xDeliveryId); DBMS_OUTPUT.PUT_LINE('New Delivery Name: '||pDeliveryName); COMMIT; END IF; EXCEPTION WHEN vFailApiException THEN WSH_UTIL_CORE.get_messages('Y', xMsgSummary, xMsgDetails,xMsgCount); IF xMsgCount > 1 THEN xMsgData := xMsgSummary || xMsgDetails; DBMS_OUTPUT.PUT_LINE('Message Data : '||xMsgData); ELSE xMsgData := xMsgSummary; DBMS_OUTPUT.PUT_LINE('Message Data : '||xMsgData); END IF; END; / |
Result:
New Delivery ID : 3772374
New Delivery Name: AOATest-001
Script to verify the API:
|
1 2 3 |
SELECT * FROM wsh_new_deliveries WHERE delivery_id = 3772374; |
