1006: PROCEDURE setRunID(inRun_ID IN PLS_INTEGER,table_name IN VARCHAR2) IS
1007: DC_CURSOR INTEGER;
1008: RESULT INTEGER;
1009: BEGIN
1010: DC_CURSOR:=DBMS_SQL.OPEN_CURSOR;
1011: DBMS_SQL.PARSE(DC_CURSOR,'UPDATE '||table_name||' SET RUN_ID='||inRun_ID||
1012: ',REC_STATUS=NULL,DISPOSITION=NULL WHERE RUN_ID IS NULL',DBMS_SQL.NATIVE);
1013: RESULT:=DBMS_SQL.EXECUTE(DC_CURSOR);
1014: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
1007: DC_CURSOR INTEGER;
1008: RESULT INTEGER;
1009: BEGIN
1010: DC_CURSOR:=DBMS_SQL.OPEN_CURSOR;
1011: DBMS_SQL.PARSE(DC_CURSOR,'UPDATE '||table_name||' SET RUN_ID='||inRun_ID||
1012: ',REC_STATUS=NULL,DISPOSITION=NULL WHERE RUN_ID IS NULL',DBMS_SQL.NATIVE);
1013: RESULT:=DBMS_SQL.EXECUTE(DC_CURSOR);
1014: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
1015: EXCEPTION
1008: RESULT INTEGER;
1009: BEGIN
1010: DC_CURSOR:=DBMS_SQL.OPEN_CURSOR;
1011: DBMS_SQL.PARSE(DC_CURSOR,'UPDATE '||table_name||' SET RUN_ID='||inRun_ID||
1012: ',REC_STATUS=NULL,DISPOSITION=NULL WHERE RUN_ID IS NULL',DBMS_SQL.NATIVE);
1013: RESULT:=DBMS_SQL.EXECUTE(DC_CURSOR);
1014: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
1015: EXCEPTION
1016: WHEN OTHERS THEN
1009: BEGIN
1010: DC_CURSOR:=DBMS_SQL.OPEN_CURSOR;
1011: DBMS_SQL.PARSE(DC_CURSOR,'UPDATE '||table_name||' SET RUN_ID='||inRun_ID||
1012: ',REC_STATUS=NULL,DISPOSITION=NULL WHERE RUN_ID IS NULL',DBMS_SQL.NATIVE);
1013: RESULT:=DBMS_SQL.EXECUTE(DC_CURSOR);
1014: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
1015: EXCEPTION
1016: WHEN OTHERS THEN
1017: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
1010: DC_CURSOR:=DBMS_SQL.OPEN_CURSOR;
1011: DBMS_SQL.PARSE(DC_CURSOR,'UPDATE '||table_name||' SET RUN_ID='||inRun_ID||
1012: ',REC_STATUS=NULL,DISPOSITION=NULL WHERE RUN_ID IS NULL',DBMS_SQL.NATIVE);
1013: RESULT:=DBMS_SQL.EXECUTE(DC_CURSOR);
1014: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
1015: EXCEPTION
1016: WHEN OTHERS THEN
1017: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
1018: END;
1013: RESULT:=DBMS_SQL.EXECUTE(DC_CURSOR);
1014: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
1015: EXCEPTION
1016: WHEN OTHERS THEN
1017: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
1018: END;
1019: ------------------------------------------------------------------------------------------
1020: PROCEDURE setRecStatus(inRun_ID IN PLS_INTEGER,table_name IN VARCHAR2) IS
1021: DC_CURSOR INTEGER;
1020: PROCEDURE setRecStatus(inRun_ID IN PLS_INTEGER,table_name IN VARCHAR2) IS
1021: DC_CURSOR INTEGER;
1022: RESULT INTEGER;
1023: BEGIN
1024: DC_CURSOR:=DBMS_SQL.OPEN_CURSOR;
1025: DBMS_SQL.PARSE(DC_CURSOR,'UPDATE '||table_name||
1026: ' SET REC_STATUS=NULL,DISPOSITION=NULL WHERE RUN_ID='||inRun_ID,DBMS_SQL.NATIVE);
1027: RESULT:=DBMS_SQL.EXECUTE(DC_CURSOR);
1028: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
1021: DC_CURSOR INTEGER;
1022: RESULT INTEGER;
1023: BEGIN
1024: DC_CURSOR:=DBMS_SQL.OPEN_CURSOR;
1025: DBMS_SQL.PARSE(DC_CURSOR,'UPDATE '||table_name||
1026: ' SET REC_STATUS=NULL,DISPOSITION=NULL WHERE RUN_ID='||inRun_ID,DBMS_SQL.NATIVE);
1027: RESULT:=DBMS_SQL.EXECUTE(DC_CURSOR);
1028: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
1029: EXCEPTION
1022: RESULT INTEGER;
1023: BEGIN
1024: DC_CURSOR:=DBMS_SQL.OPEN_CURSOR;
1025: DBMS_SQL.PARSE(DC_CURSOR,'UPDATE '||table_name||
1026: ' SET REC_STATUS=NULL,DISPOSITION=NULL WHERE RUN_ID='||inRun_ID,DBMS_SQL.NATIVE);
1027: RESULT:=DBMS_SQL.EXECUTE(DC_CURSOR);
1028: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
1029: EXCEPTION
1030: WHEN OTHERS THEN
1023: BEGIN
1024: DC_CURSOR:=DBMS_SQL.OPEN_CURSOR;
1025: DBMS_SQL.PARSE(DC_CURSOR,'UPDATE '||table_name||
1026: ' SET REC_STATUS=NULL,DISPOSITION=NULL WHERE RUN_ID='||inRun_ID,DBMS_SQL.NATIVE);
1027: RESULT:=DBMS_SQL.EXECUTE(DC_CURSOR);
1028: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
1029: EXCEPTION
1030: WHEN OTHERS THEN
1031: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
1024: DC_CURSOR:=DBMS_SQL.OPEN_CURSOR;
1025: DBMS_SQL.PARSE(DC_CURSOR,'UPDATE '||table_name||
1026: ' SET REC_STATUS=NULL,DISPOSITION=NULL WHERE RUN_ID='||inRun_ID,DBMS_SQL.NATIVE);
1027: RESULT:=DBMS_SQL.EXECUTE(DC_CURSOR);
1028: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
1029: EXCEPTION
1030: WHEN OTHERS THEN
1031: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
1032: END;
1027: RESULT:=DBMS_SQL.EXECUTE(DC_CURSOR);
1028: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
1029: EXCEPTION
1030: WHEN OTHERS THEN
1031: DBMS_SQL.CLOSE_CURSOR(DC_CURSOR);
1032: END;
1033: ------------------------------------------------------------------------------------------
1034:
1035: PROCEDURE check_for_common_bill