eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.XDP_PROC_CTL dependencies on XDP_PROC_CTL

Line 1: PACKAGE BODY XDP_PROC_CTL AS

1: PACKAGE BODY XDP_PROC_CTL AS
2: /* $Header: XDPPCTLB.pls 120.1 2005/06/16 02:20:17 appldev $ */
3:
4:
5:

Line 339: ErrStr := 'Unhandeled Exception in XDP_PROC_CTL.CHECK_PARAM_NAME. Error: ' || SUBSTR(SQLERRM,1,200);

335:
336: exception
337: when others then
338: ErrCode := SQLCODE;
339: ErrStr := 'Unhandeled Exception in XDP_PROC_CTL.CHECK_PARAM_NAME. Error: ' || SUBSTR(SQLERRM,1,200);
340: end CHECK_PARAM_NAME;
341:
342:
343:

Line 503: ErrStr := 'Unhandeled Exception in XDP_PROC_CTL.GET_PARAMETER_VALUE. Error: ' || SUBSTR(SQLERRM,1,200);

499: ErrCode := -20001;
500: ErrStr := x_progress;
501: when others then
502: ErrCode := SQLCODE;
503: ErrStr := 'Unhandeled Exception in XDP_PROC_CTL.GET_PARAMETER_VALUE. Error: ' || SUBSTR(SQLERRM,1,200);
504: end GET_PARAMETER_VALUE;
505:
506:
507:

Line 666: ErrStr := 'Unhandeled Exception in XDP_PROC_CTL.FIND_PARAMETERS. Error: ' || SUBSTR(SQLERRM,1,200);

662: ErrCode := -20021;
663: ErrStr := x_progress;
664: when others then
665: ErrCode := SQLCODE;
666: ErrStr := 'Unhandeled Exception in XDP_PROC_CTL.FIND_PARAMETERS. Error: ' || SUBSTR(SQLERRM,1,200);
667: end FIND_PARAMETERS;
668:
669:
670:

Line 834: x_progress := 'In XDP_PROC_CTL.FIND_REPLACE_PARAMS Got parameter value exception when evaluating the value of: ' || l_param_wo_dollar || ' Error: ' || SUBSTR(ErrStr, 1, 1500);

830: * Get the parameter value at run time
831: */
832: GET_PARAMETER_VALUE(OrderID, LineItemID, WorkitemInstanceID, FAInstanceID, l_ActualParam, l_ParamType, l_old_flag, l_param_value, l_out_log_flag, l_param_log_value, ErrCode, ErrStr);
833: IF ErrCode <> 0 then
834: x_progress := 'In XDP_PROC_CTL.FIND_REPLACE_PARAMS Got parameter value exception when evaluating the value of: ' || l_param_wo_dollar || ' Error: ' || SUBSTR(ErrStr, 1, 1500);
835: CmdStr := Str;
836: LogStr := Str;
837: RAISE e_ParamValueException;
838: end IF;

Line 867: ErrStr := 'Unhandeled Exception in XDP_PROC_CTL.FIND_REPLACE_PARAMS. Error: ' || SUBSTR(SQLERRM,1,200);

863: ErrCode := -20021;
864: ErrStr := x_progress;
865: when others then
866: ErrCode := SQLCODE;
867: ErrStr := 'Unhandeled Exception in XDP_PROC_CTL.FIND_REPLACE_PARAMS. Error: ' || SUBSTR(SQLERRM,1,200);
868: end FIND_REPLACE_PARAMS;
869:
870:
871: Procedure GENERATE_PROC (ProcName in varchar2,

Line 919: l_replace_send_str := 'XDP_PROC_CTL.SEND(order_id, ' || g_new_line ||

915: *
916: * Form the strings here...
917: */
918:
919: l_replace_send_str := 'XDP_PROC_CTL.SEND(order_id, ' || g_new_line ||
920: ' line_item_id, ' || g_new_line ||
921: ' workitem_instance_id, ' || g_new_line ||
922: ' fa_instance_id, ' || g_new_line ||
923: ' db_channel_name, ' || g_new_line ||

Line 930: l_replace_send_http_str := 'XDP_PROC_CTL.SEND_HTTP(order_id, ' || g_new_line ||

926: ' sdp_internal_response, ' || g_new_line ||
927: ' sdp_internal_err_code, ' || g_new_line ||
928: ' sdp_internal_err_str, ';
929:
930: l_replace_send_http_str := 'XDP_PROC_CTL.SEND_HTTP(order_id, ' || g_new_line ||
931: ' line_item_id, ' || g_new_line ||
932: ' workitem_instance_id, ' ||g_new_line ||
933: ' fa_instance_id, ' || g_new_line ||
934: ' db_channel_name, ' || g_new_line ||

Line 941: l_replace_resp_str := 'XDP_PROC_CTL.RESPONSE_CONTAINS(sdp_internal_response, '||g_new_line;

937: ' sdp_internal_response, '||g_new_line ||
938: ' sdp_internal_err_code, '||g_new_line ||
939: ' sdp_internal_err_str, ';
940:
941: l_replace_resp_str := 'XDP_PROC_CTL.RESPONSE_CONTAINS(sdp_internal_response, '||g_new_line;
942:
943: l_replace_notify_str := 'XDP_PROC_CTL.NOTIFY_ERROR(sdp_internal_response, '||g_new_line||
944: ' sdp_internal_err_code, ' ||g_new_line||
945: ' sdp_internal_err_str, ';

Line 943: l_replace_notify_str := 'XDP_PROC_CTL.NOTIFY_ERROR(sdp_internal_response, '||g_new_line||

939: ' sdp_internal_err_str, ';
940:
941: l_replace_resp_str := 'XDP_PROC_CTL.RESPONSE_CONTAINS(sdp_internal_response, '||g_new_line;
942:
943: l_replace_notify_str := 'XDP_PROC_CTL.NOTIFY_ERROR(sdp_internal_response, '||g_new_line||
944: ' sdp_internal_err_code, ' ||g_new_line||
945: ' sdp_internal_err_str, ';
946:
947: l_replace_get_response_str := 'XDP_PROC_CTL.GET_RESPONSE(sdp_internal_response)';

Line 947: l_replace_get_response_str := 'XDP_PROC_CTL.GET_RESPONSE(sdp_internal_response)';

943: l_replace_notify_str := 'XDP_PROC_CTL.NOTIFY_ERROR(sdp_internal_response, '||g_new_line||
944: ' sdp_internal_err_code, ' ||g_new_line||
945: ' sdp_internal_err_str, ';
946:
947: l_replace_get_response_str := 'XDP_PROC_CTL.GET_RESPONSE(sdp_internal_response)';
948:
949: l_sync_str := 'XDP_PROC_CTL.SEND_SYNC(db_channel_name, ' || g_new_line ||
950: ' fe_name, ' || g_new_line ||
951: ' sdp_internal_err_code, ' || g_new_line ||

Line 949: l_sync_str := 'XDP_PROC_CTL.SEND_SYNC(db_channel_name, ' || g_new_line ||

945: ' sdp_internal_err_str, ';
946:
947: l_replace_get_response_str := 'XDP_PROC_CTL.GET_RESPONSE(sdp_internal_response)';
948:
949: l_sync_str := 'XDP_PROC_CTL.SEND_SYNC(db_channel_name, ' || g_new_line ||
950: ' fe_name, ' || g_new_line ||
951: ' sdp_internal_err_code, ' || g_new_line ||
952: ' sdp_internal_err_str);';
953:

Line 954: l_replace_get_param_str := 'XDP_PROC_CTL.GET_PARAM_VALUE(

950: ' fe_name, ' || g_new_line ||
951: ' sdp_internal_err_code, ' || g_new_line ||
952: ' sdp_internal_err_str);';
953:
954: l_replace_get_param_str := 'XDP_PROC_CTL.GET_PARAM_VALUE(
955: order_id, ' || g_new_line ||
956: ' line_item_id, ' || g_new_line ||
957: ' workitem_instance_id, '|| g_new_line ||
958: ' fa_instance_id, ';

Line 1031: l_send_loc := INSTR(UPPER(l_final_str), 'XDP_PROC_CTL.SEND(', 1, 1);

1027: /*
1028: * Find the first users's Send string and insert the SEND_SYNC procedure call before the
1029: * first call to send.
1030: */
1031: l_send_loc := INSTR(UPPER(l_final_str), 'XDP_PROC_CTL.SEND(', 1, 1);
1032:
1033: IF l_send_loc <> 0 then
1034: l_str_before_send := SUBSTR(l_final_str, 1, l_send_loc -1);
1035: l_str_after_send := SUBSTR(l_final_str, l_send_loc, LENGTH(l_final_str));

Line 1051: ErrStr := 'Unhandeled Exception in XDP_PROC_CTL.GENERATE_PROC. Procedure to be generated: ' || ProcName || ' Error: ' || SUBSTR(SQLERRM,1,200);

1047:
1048: exception
1049: when others then
1050: ErrCode := SQLCODE;
1051: ErrStr := 'Unhandeled Exception in XDP_PROC_CTL.GENERATE_PROC. Procedure to be generated: ' || ProcName || ' Error: ' || SUBSTR(SQLERRM,1,200);
1052: end GENERATE_PROC;
1053:
1054:
1055:

Line 1125: l_replace_send_str := 'XDP_PROC_CTL.SEND(order_id,

1121: * Remove the user written DECLARE as we will be generating the procedure on the fly
1122: *
1123: * Form the strings here...
1124: */
1125: l_replace_send_str := 'XDP_PROC_CTL.SEND(order_id,
1126: line_item_id,
1127: workitem_instance_id,
1128: fa_instance_id,
1129: db_channel_name,

Line 1135: l_replace_send_http_str := 'XDP_PROC_CTL.SEND_HTTP(

1131: ProcName ||''',
1132: sdp_internal_response,
1133: sdp_internal_err_code, sdp_internal_err_str, ';
1134:
1135: l_replace_send_http_str := 'XDP_PROC_CTL.SEND_HTTP(
1136: order_id,
1137: line_item_id,
1138: workitem_instance_id,
1139: fa_instance_id,

Line 1146: l_replace_resp_str := 'XDP_PROC_CTL.RESPONSE_CONTAINS(sdp_internal_response, ';

1142: sdp_internal_response,
1143: sdp_internal_err_code,
1144: sdp_internal_err_str, ';
1145:
1146: l_replace_resp_str := 'XDP_PROC_CTL.RESPONSE_CONTAINS(sdp_internal_response, ';
1147:
1148: l_replace_notify_str := 'XDP_PROC_CTL.NOTIFY_ERROR(sdp_internal_response,
1149: sdp_internal_err_code,
1150: sdp_internal_err_str, ';

Line 1148: l_replace_notify_str := 'XDP_PROC_CTL.NOTIFY_ERROR(sdp_internal_response,

1144: sdp_internal_err_str, ';
1145:
1146: l_replace_resp_str := 'XDP_PROC_CTL.RESPONSE_CONTAINS(sdp_internal_response, ';
1147:
1148: l_replace_notify_str := 'XDP_PROC_CTL.NOTIFY_ERROR(sdp_internal_response,
1149: sdp_internal_err_code,
1150: sdp_internal_err_str, ';
1151:
1152: l_replace_get_response_str := 'XDP_PROC_CTL.GET_RESPONSE(sdp_internal_response)';

Line 1152: l_replace_get_response_str := 'XDP_PROC_CTL.GET_RESPONSE(sdp_internal_response)';

1148: l_replace_notify_str := 'XDP_PROC_CTL.NOTIFY_ERROR(sdp_internal_response,
1149: sdp_internal_err_code,
1150: sdp_internal_err_str, ';
1151:
1152: l_replace_get_response_str := 'XDP_PROC_CTL.GET_RESPONSE(sdp_internal_response)';
1153:
1154: l_sync_str := 'XDP_PROC_CTL.SEND_SYNC(db_channel_name,
1155: fe_name,
1156: sdp_internal_err_code,

Line 1154: l_sync_str := 'XDP_PROC_CTL.SEND_SYNC(db_channel_name,

1150: sdp_internal_err_str, ';
1151:
1152: l_replace_get_response_str := 'XDP_PROC_CTL.GET_RESPONSE(sdp_internal_response)';
1153:
1154: l_sync_str := 'XDP_PROC_CTL.SEND_SYNC(db_channel_name,
1155: fe_name,
1156: sdp_internal_err_code,
1157: sdp_internal_err_str);';
1158:

Line 1159: l_replace_get_param_str := 'XDP_PROC_CTL.GET_PARAM_VALUE(order_id,

1155: fe_name,
1156: sdp_internal_err_code,
1157: sdp_internal_err_str);';
1158:
1159: l_replace_get_param_str := 'XDP_PROC_CTL.GET_PARAM_VALUE(order_id,
1160: line_item_id,
1161: workitem_instance_id,
1162: fa_instance_id, ';
1163:

Line 1212: l_send_loc := INSTR(UPPER(l_final_str), 'XDP_PROC_CTL.SEND(', 1, 1);

1208: /*
1209: * Find the first users's Send string and insert the SEND_SYNC procedure call before the
1210: * first call to send.
1211: */
1212: l_send_loc := INSTR(UPPER(l_final_str), 'XDP_PROC_CTL.SEND(', 1, 1);
1213:
1214: IF l_send_loc <> 0 then
1215: l_str_before_send := SUBSTR(l_final_str, 1, l_send_loc -1);
1216: l_str_after_send := SUBSTR(l_final_str, l_send_loc, LENGTH(l_final_str));

Line 1235: ErrStr := 'Unhandeled Exception in XDP_PROC_CTL.GENERATE_PROC. Procedure to be generated: ' || ProcName || ' Error: ' || SUBSTR(SQLERRM,1,200);

1231:
1232: exception
1233: when others then
1234: ErrCode := SQLCODE;
1235: ErrStr := 'Unhandeled Exception in XDP_PROC_CTL.GENERATE_PROC. Procedure to be generated: ' || ProcName || ' Error: ' || SUBSTR(SQLERRM,1,200);
1236: DBMS_SQL.CLOSE_CURSOR(l_cursorID);
1237: end GENERATE_PROC;
1238:
1239:

Line 1301: ERRORS := 'Unhandeled Exception in XDP_PROC_CTL.SHOW_PROC_ERRORS. for Procedure ' || ProcName || ' Error: ' || SUBSTR(SQLERRM,1,200);

1297: CLOSE c_GetAllErrors;
1298: end IF;
1299:
1300: ErrCode := SQLCODE;
1301: ERRORS := 'Unhandeled Exception in XDP_PROC_CTL.SHOW_PROC_ERRORS. for Procedure ' || ProcName || ' Error: ' || SUBSTR(SQLERRM,1,200);
1302: end SHOW_PROC_ERRORS;
1303:
1304:
1305:

Line 1394: ErrStr := 'Unhandeled Exception in XDP_PROC_CTL.GET_NEM_TOTAL_TIMEOUT. Error: ' || SUBSTR(SQLERRM,1,200);

1390:
1391: exception
1392: when others then
1393: ErrCode := SQLCODE;
1394: ErrStr := 'Unhandeled Exception in XDP_PROC_CTL.GET_NEM_TOTAL_TIMEOUT. Error: ' || SUBSTR(SQLERRM,1,200);
1395: end GET_ADAPTER_TOTAL_TIMEOUT;
1396:
1397:
1398:

Line 1546: ErrStr := 'Unhandeled Exception in XDP_PROC_CTL.LOG_COMMAND_AUDIT_TRAIL. Error: ' || SUBSTR(SQLERRM,1,200);

1542:
1543: exception
1544: when others then
1545: ErrCode := SQLCODE;
1546: ErrStr := 'Unhandeled Exception in XDP_PROC_CTL.LOG_COMMAND_AUDIT_TRAIL. Error: ' || SUBSTR(SQLERRM,1,200);
1547: end LOG_COMMAND_AUDIT_TRAIL;
1548:
1549:
1550:

Line 1590: ErrStr := 'Unhandeled Exception in XDP_PROC_CTL.SEND_ACK. Error: ' || SUBSTR(SQLERRM,1,200);

1586: ErrCode := -20101;
1587: ErrStr := 'SFM -20101 Could NOT send ACK message to the NEM';
1588: when others then
1589: ErrCode := SQLCODE;
1590: ErrStr := 'Unhandeled Exception in XDP_PROC_CTL.SEND_ACK. Error: ' || SUBSTR(SQLERRM,1,200);
1591: end SEND_ACK;
1592:
1593:
1594:

Line 1651: ErrStr := 'Unhandeled Exception in XDP_PROC_CTL.WAIT_FOR_MESSAGE. Error: ' || SUBSTR(SQLERRM,1,200);

1647: ErrCode := -20103;
1648: ErrStr := 'SFM-20103 Unknown error when waiting for response from NEM on Pipe: ' || ChannelName || ' Timeout: ' || TIMEOUT;
1649: when others then
1650: ErrCode := SQLCODE;
1651: ErrStr := 'Unhandeled Exception in XDP_PROC_CTL.WAIT_FOR_MESSAGE. Error: ' || SUBSTR(SQLERRM,1,200);
1652: end WAIT_FOR_MESSAGE;
1653:
1654:
1655:

Line 1749: x_progress := 'In XDP_PROC_CTL.SEND.FIND_REPLACE_PARAMS: Error when trying to get the value of parameters in: ' || CmdStr || ' Error: ' || SUBSTR(ErrStr, 1, 1500);

1745: * find and replace any parameters with their value
1746: */
1747: FIND_REPLACE_PARAMS(OrderID, LineItemID, WIInstanceID, FAInstanceID, CmdStr, l_ActualStr, l_LogFlag, l_LogCmd, ErrCode, ErrStr);
1748: IF ErrCode <> 0 then
1749: x_progress := 'In XDP_PROC_CTL.SEND.FIND_REPLACE_PARAMS: Error when trying to get the value of parameters in: ' || CmdStr || ' Error: ' || SUBSTR(ErrStr, 1, 1500);
1750: RAISE e_ParamValueException;
1751: end IF;
1752:
1753: l_PromptValue := PROMPT;

Line 1921: (xdp_adapter.pv_AdapterFailure,NULL, 'XDP_PROC_CTL.SEND', 'RESP',

1917: if l_Status = 'SUCCESS' then
1918: null;
1919: elsif (l_Status = 'FAILURE') then
1920: x_Progress := HandleMessageErrors
1921: (xdp_adapter.pv_AdapterFailure,NULL, 'XDP_PROC_CTL.SEND', 'RESP',
1922: l_ReturnChannelName, pv_MesgTimeout, l_LogFlag,
1923: l_ActualStr, l_LogCmd, Response, EncryptFlag, ErrStr);
1924: RAISE e_NeFailureException;
1925:

Line 1928: (xdp_adapter.pv_AdapterTimeout,NULL, 'XDP_PROC_CTL.SEND', 'RESP',

1924: RAISE e_NeFailureException;
1925:
1926: elsif (l_Status = 'TIMEOUT') then
1927: x_Progress := HandleMessageErrors
1928: (xdp_adapter.pv_AdapterTimeout,NULL, 'XDP_PROC_CTL.SEND', 'RESP',
1929: l_ReturnChannelName, pv_MesgTimeout, l_LogFlag,
1930: l_ActualStr, l_LogCmd, Response, EncryptFlag, ErrStr);
1931: RAISE e_NeTimedOutException;
1932:

Line 1935: xdp_adapter.pv_AdapterWarning, NULL, 'XDP_PROC_CTL.SEND', 'RESP',

1931: RAISE e_NeTimedOutException;
1932:
1933: elsif (l_Status = 'WARNING') then
1934: x_Progress := HandleMessageErrors(
1935: xdp_adapter.pv_AdapterWarning, NULL, 'XDP_PROC_CTL.SEND', 'RESP',
1936: l_ReturnChannelName, pv_MesgTimeout, l_LogFlag,
1937: l_ActualStr, l_LogCmd, Response, EncryptFlag, ErrStr);
1938: RAISE e_NeWarningException;
1939:

Line 1942: xdp_adapter.pv_AdapterSessionLost,NULL,'XDP_PROC_CTL.SEND','RESP',

1938: RAISE e_NeWarningException;
1939:
1940: elsif (l_Status = 'SESSION_LOST') then
1941: x_Progress := HandleMessageErrors(
1942: xdp_adapter.pv_AdapterSessionLost,NULL,'XDP_PROC_CTL.SEND','RESP',
1943: l_ReturnChannelName, pv_AckTimeout, l_LogFlag,
1944: l_ActualStr, l_LogCmd, Response, EncryptFlag, ErrStr);
1945: RAISE e_NeSessionLostException;
1946:

Line 2078: x_progress := 'In XDP_PROC_CTL.Send Got Unhandeled Exception while sending ' || l_ActualStr || 'Error:' || SUBSTR(SQLERRM,1,400);

2074: sdp_internal_err_str := ErrStr;
2075: DBMS_LOB.freetemporary(l_TempLob);
2076:
2077: when others then
2078: x_progress := 'In XDP_PROC_CTL.Send Got Unhandeled Exception while sending ' || l_ActualStr || 'Error:' || SUBSTR(SQLERRM,1,400);
2079: ErrCode := -20400;
2080: ErrStr := 'Unhandeled Exception in XDP_PROC_CTL.SEND. Error: ' || SUBSTR(x_progress,1,200);
2081: sdp_internal_err_code := ErrCode;
2082: sdp_internal_err_str := ErrStr;

Line 2080: ErrStr := 'Unhandeled Exception in XDP_PROC_CTL.SEND. Error: ' || SUBSTR(x_progress,1,200);

2076:
2077: when others then
2078: x_progress := 'In XDP_PROC_CTL.Send Got Unhandeled Exception while sending ' || l_ActualStr || 'Error:' || SUBSTR(SQLERRM,1,400);
2079: ErrCode := -20400;
2080: ErrStr := 'Unhandeled Exception in XDP_PROC_CTL.SEND. Error: ' || SUBSTR(x_progress,1,200);
2081: sdp_internal_err_code := ErrCode;
2082: sdp_internal_err_str := ErrStr;
2083: DBMS_LOB.freetemporary(l_TempLob);
2084:

Line 2169: x_progress := 'In XDP_PROC_CTL.SEND_HTTP.FIND_REPLACE_PARAMS: Error when trying to get the value of parameters in: ' || SUBSTR(CmdStr, 1, 600) || ' Error: ' || SUBSTR(ErrStr, 1, 600);

2165: * find and replace any parameters with their value
2166: */
2167: FIND_REPLACE_PARAMS(OrderID, LineItemID, WIInstanceID, FAInstanceID, CmdStr, l_ActualStr, l_LogFlag, l_LogCmd, ErrCode, ErrStr);
2168: IF ErrCode <> 0 then
2169: x_progress := 'In XDP_PROC_CTL.SEND_HTTP.FIND_REPLACE_PARAMS: Error when trying to get the value of parameters in: ' || SUBSTR(CmdStr, 1, 600) || ' Error: ' || SUBSTR(ErrStr, 1, 600);
2170: RAISE e_ParamValueException;
2171: end IF;
2172:
2173: l_Resp := UTL_HTTP.Request_pieces(l_ActualStr);

Line 2360: x_progress := 'In XDP_PROC_CTL.GET_PARAM_VALUE Got Unhandeled Exception while Trying to get value of parameter: ' || ParamName || 'Error:' || SUBSTR(SQLERRM,1,1000);

2356: when e_ProcExecException then
2357: RAISE_APPLICATION_ERROR(-20021, x_progress);
2358:
2359: when others then
2360: x_progress := 'In XDP_PROC_CTL.GET_PARAM_VALUE Got Unhandeled Exception while Trying to get value of parameter: ' || ParamName || 'Error:' || SUBSTR(SQLERRM,1,1000);
2361: RAISE_APPLICATION_ERROR(-20400,x_progress);
2362: end GET_PARAM_VALUE;
2363:
2364:

Line 2413: x_Progress := HandlePipeErrors(SQLCODE, 'PACK', 'XDP_PROC_CTL.SEND_SYNC', NULL, 'SYNC', SQLERRM);

2409: DBMS_PIPE.PACK_MESSAGE(l_ReturnChannelName);
2410: l_ReturnCode := DBMS_PIPE.SEND_MESSAGE(ChannelName);
2411: exception
2412: when others then
2413: x_Progress := HandlePipeErrors(SQLCODE, 'PACK', 'XDP_PROC_CTL.SEND_SYNC', NULL, 'SYNC', SQLERRM);
2414: RAISE e_PipePackMesgException;
2415: END;
2416:
2417: IF l_ReturnCode <> 0 then

Line 2427: x_Progress := HandleMessageErrors(-20103, NULL, 'XDP_PROC_CTL.SEND_SYNC', 'SYNC',

2423:
2424: WHILE (l_handshake <> 'ACK_SYNC') LOOP
2425: WAIT_FOR_MESSAGE(l_ReturnChannelName, pv_MesgTimeout, l_Handshake, ErrCode, ErrStr);
2426: IF ErrCode <> 0 then
2427: x_Progress := HandleMessageErrors(-20103, NULL, 'XDP_PROC_CTL.SEND_SYNC', 'SYNC',
2428: l_ReturnChannelName, pv_MesgTimeout, 0,
2429: 'SYNC', 'SYNC', NULL, 'N', ErrStr);
2430: RAISE e_PipeWaitForMesgException;
2431: end IF;

Line 2471: x_Progress := HandleMessageErrors(SQLCODE, NULL, 'XDP_PROC_CTL.SEND_SYNC', 'SYNC',

2467: ErrCode := -20107;
2468: ErrStr := x_progress;
2469: RAISE_APPLICATION_ERROR(-20107, x_progress);
2470: when others then
2471: x_Progress := HandleMessageErrors(SQLCODE, NULL, 'XDP_PROC_CTL.SEND_SYNC', 'SYNC',
2472: ChannelName, pv_MesgTimeout, 0,
2473: 'SYNC', 'SYNC', NULL, 'N', SQLERRM);
2474: ErrCode := SQLCODE;
2475: RAISE_APPLICATION_ERROR(-20021, x_progress);

Line 2566: x_Progress := HandlePipeErrors(SQLCODE, 'PACK', 'XDP_PROC_CTL.SEND_SYNC', NULL, 'SYNC', SQLERRM);

2562: DBMS_PIPE.PACK_MESSAGE(l_ReturnChannelName);
2563: l_ReturnCode := DBMS_PIPE.SEND_MESSAGE(ChannelName);
2564: exception
2565: when others then
2566: x_Progress := HandlePipeErrors(SQLCODE, 'PACK', 'XDP_PROC_CTL.SEND_SYNC', NULL, 'SYNC', SQLERRM);
2567: RAISE e_PipePackMesgException;
2568: END;
2569:
2570: IF l_ReturnCode <> 0 then

Line 2580: x_Progress := HandleMessageErrors(-20103, NULL, 'XDP_PROC_CTL.SEND_SYNC', 'SYNC',

2576:
2577: WHILE (l_handshake <> 'ACK_SYNC') LOOP
2578: WAIT_FOR_MESSAGE(l_ReturnChannelName, pv_MesgTimeout, l_Handshake, ErrCode, ErrStr);
2579: IF ErrCode <> 0 then
2580: x_Progress := HandleMessageErrors(-20103, NULL, 'XDP_PROC_CTL.SEND_SYNC', 'SYNC',
2581: l_ReturnChannelName, pv_MesgTimeout, 0,
2582: 'SYNC', 'SYNC', NULL, 'N', ErrStr);
2583: RAISE e_PipeWaitForMesgException;
2584: end IF;

Line 2624: x_Progress := HandleMessageErrors(SQLCODE, NULL, 'XDP_PROC_CTL.SEND_SYNC', 'SYNC',

2620: ErrCode := -20107;
2621: ErrStr := x_progress;
2622: RAISE_APPLICATION_ERROR(-20107, x_progress);
2623: when others then
2624: x_Progress := HandleMessageErrors(SQLCODE, NULL, 'XDP_PROC_CTL.SEND_SYNC', 'SYNC',
2625: ChannelName, pv_MesgTimeout, 0,
2626: 'SYNC', 'SYNC', NULL, 'N', SQLERRM);
2627: ErrCode := SQLCODE;
2628: RAISE_APPLICATION_ERROR(-20021, x_progress);

Line 2704: ErrStr := 'Unhandled Exception in XDP_PROC_CTL.CHECK_CONNECT_PARAM_NAME. Error: ' || SUBSTR(SQLERRM,1,200);

2700:
2701: exception
2702: when others then
2703: ErrCode := SQLCODE;
2704: ErrStr := 'Unhandled Exception in XDP_PROC_CTL.CHECK_CONNECT_PARAM_NAME. Error: ' || SUBSTR(SQLERRM,1,200);
2705: end CHECK_CONNECT_PARAM_NAME;
2706:
2707:
2708:

Line 2835: ErrStr := 'Unhandled Exception in XDP_PROC_CTL.FIND_CONNECT_PARAMETERS. Error: ' || SUBSTR(SQLERRM,1,200);

2831: WHEN e_check_param_exception THEN
2832: null;
2833: when others then
2834: ErrCode := SQLCODE;
2835: ErrStr := 'Unhandled Exception in XDP_PROC_CTL.FIND_CONNECT_PARAMETERS. Error: ' || SUBSTR(SQLERRM,1,200);
2836: end FIND_CONNECT_PARAMETERS;
2837:
2838:
2839: /******** PROCEDURE FIND_REPLACE_CONNECT_PARAMS ***********/

Line 2980: ErrStr := 'Unhandled Exception in XDP_PROC_CTL.FIND_REPLACE_CONNECT_PARAMS. Error: ' || SUBSTR(SQLERRM,1,200);

2976: WHEN e_ParamValueException THEN
2977: null;
2978: when others then
2979: ErrCode := SQLCODE;
2980: ErrStr := 'Unhandled Exception in XDP_PROC_CTL.FIND_REPLACE_CONNECT_PARAMS. Error: ' || SUBSTR(SQLERRM,1,200);
2981: end FIND_REPLACE_CONNECT_PARAMS;
2982:
2983:
2984: PROCEDURE GET_FE_PREFERENCES (FeName in varchar2,

Line 3103: ErrStr := 'Unhandled Exception in XDP_PROC_CTL.GET_NE_PREFERENCES. Error: ' || SUBSTR(SQLERRM,1,200);

3099: ErrCode := SQLCODE;
3100: ErrStr := 'Error when getting NE preferences. Error: ' || SUBSTR(SQLERRM,1,500);
3101: when others then
3102: ErrCode := SQLCODE;
3103: ErrStr := 'Unhandled Exception in XDP_PROC_CTL.GET_NE_PREFERENCES. Error: ' || SUBSTR(SQLERRM,1,200);
3104: end GET_FE_PREFERENCES;
3105:
3106:
3107:

Line 3140: x_progress := 'In XDP_PROC_CTL.SEND.FIND_REPLACE_CONNECT_PARAMS: Error when trying to get the value of parameters in: ' || SUBSTR(CmdStr, 1, 600) || ' Error: ' || SUBSTR(ErrStr,1,600);

3136: * find and replace any connect parameters with their value
3137: */
3138: FIND_REPLACE_CONNECT_PARAMS(FeName, CmdStr, l_actual_str, ErrCode, ErrStr);
3139: IF ErrCode < 0 OR ErrCode = 100 THEN
3140: x_progress := 'In XDP_PROC_CTL.SEND.FIND_REPLACE_CONNECT_PARAMS: Error when trying to get the value of parameters in: ' || SUBSTR(CmdStr, 1, 600) || ' Error: ' || SUBSTR(ErrStr,1,600);
3141: RAISE e_ParamValueException;
3142: end IF;
3143:
3144: /*

Line 3158: x_progress := 'In XDP_PROC_CTL.SEND.FIND_REPLACE_CONNECT_PARAMS: Error when trying to get the value of prompt: ' || SUBSTR(l_prompt, 1, 600) || ' Error: ' || SUBSTR(ErrStr,1,600);

3154:
3155: if l_prompt <> 'IGNORE' THEN
3156: FIND_REPLACE_CONNECT_PARAMS(FeName, l_prompt, l_prompt_value, ErrCode, ErrStr);
3157: IF ErrCode < 0 OR ErrCode = 100 THEN
3158: x_progress := 'In XDP_PROC_CTL.SEND.FIND_REPLACE_CONNECT_PARAMS: Error when trying to get the value of prompt: ' || SUBSTR(l_prompt, 1, 600) || ' Error: ' || SUBSTR(ErrStr,1,600);
3159: RAISE e_ParamValueException;
3160: end IF;
3161: end IF;
3162:

Line 3180: x_progress := 'Unhandeled Exception in XDP_PROC_CTL.Send while sending ' || l_actual_str || 'Error:' || SUBSTR(SQLERRM,1,400);

3176: AppendConnectCommands(l_actual_str, l_prompt_value);
3177:
3178: exception
3179: when others then
3180: x_progress := 'Unhandeled Exception in XDP_PROC_CTL.Send while sending ' || l_actual_str || 'Error:' || SUBSTR(SQLERRM,1,400);
3181: ErrCode := -20400;
3182: ErrStr := x_progress;
3183: sdp_internal_err_code := ErrCode;
3184: sdp_internal_err_str := ErrStr;

Line 3207: x_progress := 'Unhandeled Exception in XDP_PROC_CTL.Send while sending ' || CmdStr || 'Error:' || SUBSTR(SQLERRM,1,400);

3203: SEND_CONNECT(FeName, ChannelName, ProcName, Response, sdp_internal_err_code, sdp_internal_err_str, CmdStr, 'IGNORE', ErrCode, ErrStr);
3204:
3205: exception
3206: when others then
3207: x_progress := 'Unhandeled Exception in XDP_PROC_CTL.Send while sending ' || CmdStr || 'Error:' || SUBSTR(SQLERRM,1,400);
3208: ErrCode := -20400;
3209: ErrStr := x_progress;
3210: sdp_internal_err_code := ErrCode;
3211: sdp_internal_err_str := ErrStr;

Line 3281: l_replace_connect_str := 'XDP_PROC_CTL.SEND_CONNECT(Fe_Name, ' || g_new_line ||

3277: /*
3278: * Replace user written SEND, LOGIN to comply with the actual spec of those procedures
3279: * Remove the user written DECLARE as we will be generating the procedure on the fly
3280: */
3281: l_replace_connect_str := 'XDP_PROC_CTL.SEND_CONNECT(Fe_Name, ' || g_new_line ||
3282: ' Channel_Name, ' || g_new_line ||
3283: '''' || ProcName ||''', '|| g_new_line ||
3284: ' sdp_internal_response, '||g_new_line ||
3285: ' sdp_internal_err_code, '||g_new_line||

Line 3288: l_replace_send_str := 'XDP_PROC_CTL.SEND_CONNECT(Fe_Name, ' || g_new_line ||

3284: ' sdp_internal_response, '||g_new_line ||
3285: ' sdp_internal_err_code, '||g_new_line||
3286: ' sdp_internal_err_str, ';
3287:
3288: l_replace_send_str := 'XDP_PROC_CTL.SEND_CONNECT(Fe_Name, ' || g_new_line ||
3289: ' Channel_Name, ' || g_new_line ||
3290: '''' || ProcName ||''', ' ||g_new_line ||
3291: ' sdp_internal_response, ' || g_new_line ||
3292: ' sdp_internal_err_code, ' || g_new_line ||

Line 3295: l_sync_str := 'XDP_PROC_CTL.RESET_BUFFER; ' || g_new_line;

3291: ' sdp_internal_response, ' || g_new_line ||
3292: ' sdp_internal_err_code, ' || g_new_line ||
3293: ' sdp_internal_err_str, ';
3294:
3295: l_sync_str := 'XDP_PROC_CTL.RESET_BUFFER; ' || g_new_line;
3296:
3297:
3298: /*
3299: * Replace the strings here...

Line 3344: l_send_loc := INSTR(UPPER(l_final_str), 'XDP_PROC_CTL.SEND_CONNECT(', 1, 1);

3340: /*
3341: * Find the first users's Send string and insert the RESET_BUFFER procedure call before the
3342: * first call to send.
3343: */
3344: l_send_loc := INSTR(UPPER(l_final_str), 'XDP_PROC_CTL.SEND_CONNECT(', 1, 1);
3345:
3346: IF l_send_loc <> 0 THEN
3347: l_str_before_send := SUBSTR(l_final_str, 1, l_send_loc -1);
3348: l_str_after_send := SUBSTR(l_final_str, l_send_loc, LENGTH(l_final_str));

Line 3361: ErrStr := 'Unhandled Exception in XDP_PROC_CTL.GENERATE_CONNECT_PROC. Error: ' || SUBSTR(SQLERRM,1,200);

3357: ErrStr := 'Successfully generated the stored procedure ' || ProcName;
3358: exception
3359: when others then
3360: ErrCode := SQLCODE;
3361: ErrStr := 'Unhandled Exception in XDP_PROC_CTL.GENERATE_CONNECT_PROC. Error: ' || SUBSTR(SQLERRM,1,200);
3362: end GENERATE_CONNECT_PROC;
3363:
3364:
3365:

Line 3434: l_replace_send_str := 'XDP_PROC_CTL.SEND_CONNECT(Fe_Name, ' || g_new_line ||

3430: * Replace user written Send to comply with the actual spec of those procedures
3431: * Remove the user written DECLARE as we will be generating the procedure on the fly
3432: */
3433:
3434: l_replace_send_str := 'XDP_PROC_CTL.SEND_CONNECT(Fe_Name, ' || g_new_line ||
3435: ' Channel_Name, ' || g_new_line ||
3436: '''' || ProcName ||''', ' || g_new_line ||
3437: ' sdp_internal_response, ' || g_new_line ||
3438: ' sdp_internal_err_code, ' || g_new_line ||

Line 3441: l_sync_str := 'XDP_PROC_CTL.RESET_BUFFER; ' || g_new_line;

3437: ' sdp_internal_response, ' || g_new_line ||
3438: ' sdp_internal_err_code, ' || g_new_line ||
3439: ' sdp_internal_err_str, ';
3440:
3441: l_sync_str := 'XDP_PROC_CTL.RESET_BUFFER; ' || g_new_line;
3442:
3443:
3444: /*
3445: * Replace the strings here...

Line 3489: l_sync_loc := INSTR(UPPER(l_final_str), 'XDP_PROC_CTL.SEND_CONNECT', 1, 1);

3485: /*
3486: * Find the first users's DISCONNECT string and insert the RESET_BUFFER procedure call
3487: * before the first call to send.
3488: */
3489: l_sync_loc := INSTR(UPPER(l_final_str), 'XDP_PROC_CTL.SEND_CONNECT', 1, 1);
3490:
3491: IF l_sync_loc <> 0 THEN
3492: l_str_before_send := SUBSTR(l_final_str, 1, l_sync_loc -1);
3493: l_str_after_send := SUBSTR(l_final_str, l_sync_loc, LENGTH(l_final_str));

Line 3505: ErrStr := 'Unhandled Exception in XDP_PROC_CTL.GENERATE_DISCONNECT_PROC. Error: ' || SUBSTR(SQLERRM,1,200);

3501: ErrStr := 'Successfully generated the stored procedure ' || ProcName;
3502: exception
3503: when others then
3504: ErrCode := SQLCODE;
3505: ErrStr := 'Unhandled Exception in XDP_PROC_CTL.GENERATE_DISCONNECT_PROC. Error: ' || SUBSTR(SQLERRM,1,200);
3506: end GENERATE_DISCONNECT_PROC;
3507:
3508:
3509: Procedure RESET_BUFFER

Line 3556: end XDP_PROC_CTL;

3552: pv_DirtyBit := FALSE;
3553:
3554: reset_buffer;
3555:
3556: end XDP_PROC_CTL;