[Home] [Help]
83: x_msg_data OUT NOCOPY VARCHAR2,
84: x_job_id OUT NOCOPY VARCHAR2
85: );
86:
87: FUNCTION get_ddr_ws_job_id_seq_nextval
88: RETURN NUMBER;
89:
90: PROCEDURE getAgrSalesReturnItem (
91: p_api_version IN NUMBER,
855: l_proc_str VARCHAR2 (1000) := NULL;
856: BEGIN
857:
858: --get the job id from sequence
859: l_job_id := get_ddr_ws_job_id_seq_nextval;
860:
861: INSERT INTO ddr_ws_job(job_id, status, SRC_SYS_IDNT,SRC_SYS_DT, CRTD_BY_DSR, LAST_UPDT_BY_DSR, CREATED_BY, CREATION_DATE, LAST_UPDATED_BY, LAST_UPDATE_DATE, LAST_UPDATE_LOGIN)
862: VALUES (l_job_id, ddr_webservices_constants.g_ret_sts_initialize,'-1', sysdate, '-1', '-1', -1,sysdate, -1, sysdate,-1);
863:
857:
858: --get the job id from sequence
859: l_job_id := get_ddr_ws_job_id_seq_nextval;
860:
861: INSERT INTO ddr_ws_job(job_id, status, SRC_SYS_IDNT,SRC_SYS_DT, CRTD_BY_DSR, LAST_UPDT_BY_DSR, CREATED_BY, CREATION_DATE, LAST_UPDATED_BY, LAST_UPDATE_DATE, LAST_UPDATE_LOGIN)
862: VALUES (l_job_id, ddr_webservices_constants.g_ret_sts_initialize,'-1', sysdate, '-1', '-1', -1,sysdate, -1, sysdate,-1);
863:
864:
865: --triggere the DBMS_SCHEDULER to run the job which writes data to xml file
933: IS
934: l_job_id NUMBER := NULL;
935: l_proc_str VARCHAR2 (32767) := NULL;
936: BEGIN
937: l_job_id := get_ddr_ws_job_id_seq_nextval;
938:
939: INSERT INTO ddr_ws_job(job_id, status, SRC_SYS_IDNT,SRC_SYS_DT, CRTD_BY_DSR, LAST_UPDT_BY_DSR, CREATED_BY, CREATION_DATE, LAST_UPDATED_BY, LAST_UPDATE_DATE, LAST_UPDATE_LOGIN)
940: VALUES (l_job_id, ddr_webservices_constants.g_ret_sts_initialize,'-1', sysdate, '-1', '-1', -1,sysdate, -1, sysdate,-1);
941:
935: l_proc_str VARCHAR2 (32767) := NULL;
936: BEGIN
937: l_job_id := get_ddr_ws_job_id_seq_nextval;
938:
939: INSERT INTO ddr_ws_job(job_id, status, SRC_SYS_IDNT,SRC_SYS_DT, CRTD_BY_DSR, LAST_UPDT_BY_DSR, CREATED_BY, CREATION_DATE, LAST_UPDATED_BY, LAST_UPDATE_DATE, LAST_UPDATE_LOGIN)
940: VALUES (l_job_id, ddr_webservices_constants.g_ret_sts_initialize,'-1', sysdate, '-1', '-1', -1,sysdate, -1, sysdate,-1);
941:
942: --triggere the DBMS_SCHEDULER to run the job which writes data to xml file
943: l_proc_str := 'BEGIN ddr_webservices_pub.ddr_fact_details_prc (';
979: x_msg_count := 1;
980: x_msg_data:='Unexpected Error. Error code:'||sqlcode||' Error message:'||sqlerrm;
981: END invoke_detail_prc;
982:
983: FUNCTION get_ddr_ws_job_id_seq_nextval
984: RETURN NUMBER
985: IS
986: l_next_val NUMBER := NULL;
987: BEGIN
984: RETURN NUMBER
985: IS
986: l_next_val NUMBER := NULL;
987: BEGIN
988: SELECT ddr_ws_job_seq.NEXTVAL
989: INTO l_next_val
990: FROM DUAL;
991:
992: RETURN l_next_val;
989: INTO l_next_val
990: FROM DUAL;
991:
992: RETURN l_next_val;
993: END get_ddr_ws_job_id_seq_nextval;
994:
995: PROCEDURE getFileName (
996: p_api_version IN NUMBER,
997: x_job_id IN VARCHAR2,
1013: l_api_ver EXCEPTION;
1014: l_job_id EXCEPTION;
1015: l_mfg_code_null EXCEPTION;
1016: CURSOR file_name_cur (job_id_in NUMBER) IS
1017: SELECT file_name FROM ddr_ws_job_file_dls WHERE job_id = job_id_in;
1018: file_name_rec file_name_cur%ROWTYPE;
1019: BEGIN
1020: IF p_api_version IS NULL THEN
1021: RAISE l_api_ver;
1025: END IF;
1026: IF p_mfg_org_cd IS NULL THEN
1027: RAISE l_mfg_code_null;
1028: END IF;
1029: SELECT status,ERR_MESSAGE INTO l_job_status,l_job_error FROM ddr_ws_job WHERE job_id = x_job_id;
1030: IF l_job_status = ddr_webservices_constants.g_ret_sts_error THEN
1031: x_return_status := ddr_webservices_constants.g_ret_sts_error;
1032: x_msg_count := 1;
1033: x_msg_data := l_job_error;