[Home] [Help]
129: ) IS
130: BEGIN
131: DECLARE
132: CURSOR c_imp_address IS
133: SELECT DELETED_FLAG, ROWID FROM CZ_IMP_ADDRESS WHERE REC_STATUS IS NULL AND RUN_ID = inRUN_ID;
134: /* Internal vars */
135: nCommitCount PLS_INTEGER:=0; /*COMMIT buffer index */
136: nErrorCount PLS_INTEGER:=0; /*Error index */
137: nFailed PLS_INTEGER:=0; /*Failed records */
152:
153: EXIT WHEN(NOT x_imp_address_f Or nFailed >= Max_Err);
154: IF (p_imp_address.DELETED_FLAG IS NULL) THEN
155: BEGIN
156: UPDATE CZ_IMP_ADDRESS SET DELETED_FLAG=DECODE(DELETED_FLAG,NULL,'0',DELETED_FLAG) WHERE ROWID = p_imp_address.ROWID;
157: nCOmmitCount:=nCommitCount+1;
158: /* COMMIT if the buffer size is reached */
159: IF (nCommitCount>= COMMIT_SIZE) THEN
160: COMMIT;
185: ) IS
186: BEGIN
187: DECLARE
188: CURSOR c_imp_address_uses IS
189: SELECT DELETED_FLAG, ROWID FROM CZ_IMP_ADDRESS_USE
190: WHERE REC_STATUS IS NULL AND RUN_ID = inRUN_ID;
191: /* Internal vars */
192: nCommitCount PLS_INTEGER:=0; /*COMMIT buffer index */
193: nErrorCount PLS_INTEGER:=0; /*Error index */
208: EXIT WHEN(NOT x_imp_address_uses_f Or nFailed >= Max_Err);
209:
210: IF(p_imp_address_uses.DELETED_FLAG IS NULL) THEN
211: BEGIN
212: UPDATE CZ_IMP_ADDRESS_USE
213: SET DELETED_FLAG=DECODE(DELETED_FLAG,NULL,'0',DELETED_FLAG)
214: WHERE ROWID = p_imp_address_uses.ROWID;
215:
216: nCOmmitCount:=nCommitCount+1;
1221:
1222: DECLARE
1223: CURSOR c_xfr_run_result IS
1224: SELECT DISPOSITION,REC_STATUS,COUNT(*)
1225: FROM cz_imp_address
1226: WHERE RUN_ID = inRUN_ID
1227: GROUP BY DISPOSITION,REC_STATUS;
1228:
1229: ins_disposition cz_xfr_run_results.disposition%TYPE;
1285:
1286: DECLARE
1287: CURSOR c_xfr_run_result IS
1288: SELECT DISPOSITION,REC_STATUS,COUNT(*)
1289: FROM cz_imp_address_use
1290: WHERE RUN_ID = inRUN_ID
1291: GROUP BY DISPOSITION,REC_STATUS;
1292:
1293: ins_disposition cz_xfr_run_results.disposition%TYPE;