931: PROCEDURE setRunID(inRun_ID IN PLS_INTEGER,table_name IN VARCHAR2) IS
932: DC_CURSOR INTEGER;
933: RESULT INTEGER;
934: BEGIN
935: DC_CURSOR:=DBMS_SQL.OPEN_CURSOR;
936: DBMS_SQL.PARSE(DC_CURSOR,'UPDATE '||table_name||' SET RUN_ID='||inRun_ID||
937: ',REC_STATUS=NULL,DISPOSITION=NULL WHERE RUN_ID IS NULL',DBMS_SQL.NATIVE);
938: RESULT:=DBMS_SQL.EXECUTE(DC_CURSOR);
939: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
932: DC_CURSOR INTEGER;
933: RESULT INTEGER;
934: BEGIN
935: DC_CURSOR:=DBMS_SQL.OPEN_CURSOR;
936: DBMS_SQL.PARSE(DC_CURSOR,'UPDATE '||table_name||' SET RUN_ID='||inRun_ID||
937: ',REC_STATUS=NULL,DISPOSITION=NULL WHERE RUN_ID IS NULL',DBMS_SQL.NATIVE);
938: RESULT:=DBMS_SQL.EXECUTE(DC_CURSOR);
939: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
940: EXCEPTION
933: RESULT INTEGER;
934: BEGIN
935: DC_CURSOR:=DBMS_SQL.OPEN_CURSOR;
936: DBMS_SQL.PARSE(DC_CURSOR,'UPDATE '||table_name||' SET RUN_ID='||inRun_ID||
937: ',REC_STATUS=NULL,DISPOSITION=NULL WHERE RUN_ID IS NULL',DBMS_SQL.NATIVE);
938: RESULT:=DBMS_SQL.EXECUTE(DC_CURSOR);
939: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
940: EXCEPTION
941: WHEN OTHERS THEN
934: BEGIN
935: DC_CURSOR:=DBMS_SQL.OPEN_CURSOR;
936: DBMS_SQL.PARSE(DC_CURSOR,'UPDATE '||table_name||' SET RUN_ID='||inRun_ID||
937: ',REC_STATUS=NULL,DISPOSITION=NULL WHERE RUN_ID IS NULL',DBMS_SQL.NATIVE);
938: RESULT:=DBMS_SQL.EXECUTE(DC_CURSOR);
939: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
940: EXCEPTION
941: WHEN OTHERS THEN
942: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
935: DC_CURSOR:=DBMS_SQL.OPEN_CURSOR;
936: DBMS_SQL.PARSE(DC_CURSOR,'UPDATE '||table_name||' SET RUN_ID='||inRun_ID||
937: ',REC_STATUS=NULL,DISPOSITION=NULL WHERE RUN_ID IS NULL',DBMS_SQL.NATIVE);
938: RESULT:=DBMS_SQL.EXECUTE(DC_CURSOR);
939: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
940: EXCEPTION
941: WHEN OTHERS THEN
942: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
943: END;
938: RESULT:=DBMS_SQL.EXECUTE(DC_CURSOR);
939: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
940: EXCEPTION
941: WHEN OTHERS THEN
942: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
943: END;
944: ------------------------------------------------------------------------------------------
945: PROCEDURE setRecStatus(inRun_ID IN PLS_INTEGER,table_name IN VARCHAR2) IS
946: DC_CURSOR INTEGER;
945: PROCEDURE setRecStatus(inRun_ID IN PLS_INTEGER,table_name IN VARCHAR2) IS
946: DC_CURSOR INTEGER;
947: RESULT INTEGER;
948: BEGIN
949: DC_CURSOR:=DBMS_SQL.OPEN_CURSOR;
950: DBMS_SQL.PARSE(DC_CURSOR,'UPDATE '||table_name||
951: ' SET REC_STATUS=NULL,DISPOSITION=NULL WHERE RUN_ID='||inRun_ID,DBMS_SQL.NATIVE);
952: RESULT:=DBMS_SQL.EXECUTE(DC_CURSOR);
953: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
946: DC_CURSOR INTEGER;
947: RESULT INTEGER;
948: BEGIN
949: DC_CURSOR:=DBMS_SQL.OPEN_CURSOR;
950: DBMS_SQL.PARSE(DC_CURSOR,'UPDATE '||table_name||
951: ' SET REC_STATUS=NULL,DISPOSITION=NULL WHERE RUN_ID='||inRun_ID,DBMS_SQL.NATIVE);
952: RESULT:=DBMS_SQL.EXECUTE(DC_CURSOR);
953: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
954: EXCEPTION
947: RESULT INTEGER;
948: BEGIN
949: DC_CURSOR:=DBMS_SQL.OPEN_CURSOR;
950: DBMS_SQL.PARSE(DC_CURSOR,'UPDATE '||table_name||
951: ' SET REC_STATUS=NULL,DISPOSITION=NULL WHERE RUN_ID='||inRun_ID,DBMS_SQL.NATIVE);
952: RESULT:=DBMS_SQL.EXECUTE(DC_CURSOR);
953: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
954: EXCEPTION
955: WHEN OTHERS THEN
948: BEGIN
949: DC_CURSOR:=DBMS_SQL.OPEN_CURSOR;
950: DBMS_SQL.PARSE(DC_CURSOR,'UPDATE '||table_name||
951: ' SET REC_STATUS=NULL,DISPOSITION=NULL WHERE RUN_ID='||inRun_ID,DBMS_SQL.NATIVE);
952: RESULT:=DBMS_SQL.EXECUTE(DC_CURSOR);
953: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
954: EXCEPTION
955: WHEN OTHERS THEN
956: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
949: DC_CURSOR:=DBMS_SQL.OPEN_CURSOR;
950: DBMS_SQL.PARSE(DC_CURSOR,'UPDATE '||table_name||
951: ' SET REC_STATUS=NULL,DISPOSITION=NULL WHERE RUN_ID='||inRun_ID,DBMS_SQL.NATIVE);
952: RESULT:=DBMS_SQL.EXECUTE(DC_CURSOR);
953: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
954: EXCEPTION
955: WHEN OTHERS THEN
956: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
957: END;
952: RESULT:=DBMS_SQL.EXECUTE(DC_CURSOR);
953: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
954: EXCEPTION
955: WHEN OTHERS THEN
956: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
957: END;
958: ------------------------------------------------------------------------------------------
959:
960: PROCEDURE check_for_common_bill