This appendix covers the following topics:
<FULFILL_SO_001> <CNTRLAREA> <BSR> <VERB>FULFILL</VERB> <NOUN>SO</NOUN> <REVISION>001</REVISION> </BSR> </CNTROLAREA>
<DATAAREA> <SOHEADER execmode = "ASYNC"> <ORDERNUM>RV_22004004</ORDERNUM> <VERSION>1</VERSION>
<SCHEDULE> <PRIORITY>100</PRIORITY> <JEOPARDYENABLED>N</JEOPARDYENABLED> </SCHEDULE>
<PARAM> <PARAMNAME>FULFILLMENT_STATUS</PARAMNAME> <PARAMVALUE>Open</PARAMVALUE> </PARAM> <PARAM> <PARAMNAME>FULFILLMENT_RESULT</PARAMNAME> <PARAMVALUE>Submitted</PARAMVALUE> </PARAM>
<EXTENSION> <ATTRIBUTE index = "1">Test</ATTRIBUTE> <ATTRIBUTE index = "2">Test 2</ATTRIBUTE> </EXTENSION> </SOHEADER>
<SOLINEITEM fulfillrequired = "Y"> <LINENUM>1</LINENUM> <ACTIONCODE>ADD</ACTIONCODE> <SERVICE> <ITEMNAME>SFM_NUM_PORT</ITEMNAME> </SERVICE> <ORGANIZATION> <ORGID>204</ORGID> </ORGANIZATION> <IBINSTANCEID source = "NONE"/> <SEQUENCE>2</SEQUENCE> <SCHEDULE> <PRIORITY>100</PRIORITY> <JEOPARDYENABLED>N</JEOPARDYENABLED> </SCHEDULE>
<PARAM> <PARAMNAME>SP_NAME</PARAMNAME> <PARAMVALUE>SUPERTEL1</PARAMVALUE> </PARAM> <PARAM> <PARAMNAME>DONOR_SP_ID</PARAMNAME> <PARAMVALUE>SUPERTEL2</PARAMVALUE> </PARAM>
<PARAM> <PARAMNAME>RECIPIENT_NAME</PARAMNAME> <PARAMVALUE>SUPERTEL1</PARAMVALUE> </PARAM> <PARAM> <PARAMNAME>RECIPIENT_SP_ID</PARAMNAME> <PARAMVALUE>SUPERTEL1</PARAMVALUE> </PARAM>
<PARAM> <PARAMNAME>ROUTING_NUMBER</PARAMNAME> <PARAMVALUE>2100</PARAMVALUE> </PARAM> <PARAM> <PARAMNAME>STARTING_NUMBER</PARAMNAME> <PARAMVALUE>22004004</PARAMVALUE> </PARAM>
<PARAM> <PARAMNAME>ENDING_NUMBER</PARAMNAME> <PARAMVALUE>22004004</PARAMVALUE> </PARAM> </SOLINEITEM> </DATAAREA> </FULFILL_SO_001>
--SET SERVEROUTPUT ON UNDEFINE SUFFIX UNDEFINE SUFFIX_TO
DECLARE l_error_code NUMBER := NULL; l_error_message VARCHAR(2000) := NULL; l_ORDER_HEADER XDP_TYPES.ORDER_HEADER; l_ORDER_PARAMETER_LIST XDP_TYPES.ORDER_PARAMETER_LIST; l_ORDER_LINE_LIST XDP_TYPES.ORDER_LINE_LIST ; l_PARAM_LIST XDP_TYPES.LINE_PARAM_LIST ; l_ORDER_ID NUMBER := 0; l_PORTING_ID NUMBER := 0; l_porting_date date := SYSDATE; l_can_porting_date varchar2(40) := NULL;
BEGIN l_ERROR_CODE := 0; SELECT XNP_SVA_ID_SEQ.NEXTVAL INTO l_PORTING_ID FROM DUAL; -- Get the date to provision in the Canonical format l_can_porting_date := XNP_UTILS.DATE_TO_CANONICAL(l_porting_date);
-- Set the Order Header values l_ORDER_HEADER.order_number := ’SUP1_22&GROUP.6&SUFFIX’; l_ORDER_HEADER.order_version := ’1’;
-- Set the number of Line items and number -- them sequentially. In this case there is just one l_ORDER_LINE_LIST(1).LINE_NUMBER := 1; -- l_ORDER_LINE_LIST(1).provisioning_required_flag := ’Y’; -- l_ORDER_LINE_LIST(1).PROVISIONING_DATE := SYSDATE;
-- Set the line item name as the Work Item name -- l_ORDER_LINE_LIST(1).LINE_ITEM_NAME := ’SUP1_PORT_IN’; l_ORDER_LINE_LIST(1).LINE_ITEM_NAME := ’PORTING_ORDER_FROM_ OMS’; l_ORDER_LINE_LIST(1).IS_WORKITEM_FLAG := ’Y’;
-- Set all the parameters needed for the -- porting inquiry Work Item l_PARAM_LIST(1).line_number := 1; l_PARAM_LIST(1).parameter_name := ’STARTING_NUMBER’; l_PARAM_LIST(1).parameter_value := ’22&GROUP.6&SUFFIX’;
l_PARAM_LIST(2).line_number := 1; l_PARAM_LIST(2).parameter_name := ’ENDING_NUMBER’; l_PARAM_LIST(2).parameter_value := ’22&GROUP.6&SUFFIX_TO’;
l_PARAM_LIST(3).line_number := 1; l_PARAM_LIST(3).parameter_name := ’CUSTOMER_ID’; l_PARAM_LIST(3).parameter_value := ’CUST_&SUFFIX’;
l_PARAM_LIST(4).line_number := 1; l_PARAM_LIST(4).parameter_name := ’NEW_SP_DUE_DATE’; l_PARAM_LIST(4).parameter_value := XNP_UTILS.DATE_TO_CANONICAL(TRUNC(SYSDATE) + 0);
l_PARAM_LIST(5).line_number := 1; l_PARAM_LIST(5).parameter_name := ’DONOR_SP_ID’; l_PARAM_LIST(5).parameter_value := ’SUPERTEL2’; /* SuperTel 2 */
l_PARAM_LIST(6).line_number := 1; l_PARAM_LIST(6).parameter_name := ’RECIPIENT_SP_ID’; l_PARAM_LIST(6).parameter_value := ’SUPERTEL1’; /* SuperTel 1 */
-- Assign routing numbers belonging to the -- recipient SP id only l_PARAM_LIST(7).line_number := 1; l_PARAM_LIST(7).parameter_name := ’ROUTING_NUMBER’; l_PARAM_LIST(7).parameter_value := to_char(2100);
l_PARAM_LIST(8).line_number := 1; l_PARAM_LIST(8).parameter_name := ’SP_NAME’; l_PARAM_LIST(8).parameter_value := ’SUPERTEL1’;
l_PARAM_LIST(9).line_number := 1; l_PARAM_LIST(9).parameter_name := ’PORTING_ID’; l_PARAM_LIST(9).parameter_value := to_char(l_porting_id);
l_PARAM_LIST(10).line_number := 1; l_PARAM_LIST(10).parameter_name := ’RV_FILENAME’; l_PARAM_LIST(10).parameter_value := ’RVfile1’; /* SuperTel 1 */
l_PARAM_LIST(11).line_number := 1; l_PARAM_LIST(11).parameter_name := ’PTO_FLAG’; l_PARAM_LIST(11).parameter_value := ’N’; /* SuperTel 1 */
-- Invoke the API to submit this order XDP_INTERFACES.PROCESS_ORDER (l_ORDER_HEADER ,l_ORDER_PARAMETER_LIST ,l_ORDER_LINE_LIST ,l_PARAM_LIST ,l_ORDER_ID ,l_ERROR_CODE ,l_ERROR_MESSAGE );
IF l_ERROR_CODE != 0 THEN DBMS_OUTPUT.put_line( ’Error Code: ’||substr(to_char(l_error_code),1,400)); DBMS_OUTPUT.put_line(’Error Message: ’||substr(l_error_message,1,400)); RETURN; ELSE DBMS_OUTPUT.put_line( ’PROCESS_ORDER: SUCCESS: ORDER ID = ’||to_char(l_ORDER_ID)); END IF; COMMIT; END; /