136: PRAGMA AUTONOMOUS_TRANSACTION;
137: l_sqlerrno varchar2(20);
138: l_sqlerrmsg varchar2(2000);
139: l_markdirty boolean;
140: l_prog_update_date jtm_con_request_data.last_run_date%TYPE;
141: l_run_date date;
142:
143: TYPE l_num_tab_type IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
144: TYPE l_char_tab_type IS TABLE OF VARCHAR2(400) INDEX BY BINARY_INTEGER;
150:
151: CURSOR l_last_run_date_csr
152: IS
153: SELECT nvl(last_run_date, (sysdate - 365*50))
154: FROM jtm_con_request_data
155: WHERE package_name = 'CSM_MTL_SEC_INV_EVENT_PKG'
156: AND procedure_name = 'REFRESH_ACC';
157:
158:
284: COMMIT;
285: END LOOP;
286: CLOSE c_ins_cur;
287:
288: -- set the program update date in jtm_con_request_data to sysdate
289: UPDATE jtm_con_request_data
290: SET last_run_date = l_run_date
291: WHERE package_name = 'CSM_MTL_SEC_INV_EVENT_PKG'
292: AND procedure_name = 'REFRESH_ACC';
285: END LOOP;
286: CLOSE c_ins_cur;
287:
288: -- set the program update date in jtm_con_request_data to sysdate
289: UPDATE jtm_con_request_data
290: SET last_run_date = l_run_date
291: WHERE package_name = 'CSM_MTL_SEC_INV_EVENT_PKG'
292: AND procedure_name = 'REFRESH_ACC';
293: