[Home] [Help]
1033: l_dstatus VARCHAR2(30);
1034: l_message VARCHAR2(240);
1035: l_dummy NUMBER;
1036: -- l_je_exists_for_check BOOLEAN := FALSE;
1037: l_processed_flag fv_voided_checks.processed_flag%TYPE;
1038: l_treasury_conf_id1 NUMBER;
1039: l_insert_je_line BOOLEAN := FALSE;
1040: l_treasury_conf_id NUMBER;
1041: v_accounting_date gl_period_statuses.end_date%TYPE;
1053: fvt.processed_flag,
1054: ac.exchange_date,
1055: ac.void_date
1056: FROM fv_treasury_confirmations_all ftc,
1057: fv_voided_checks fvt,
1058: ap_checks_all ac ,
1059: ap_invoice_payments_all apip,
1060: iby_payments_all ipa
1061: WHERE ac.check_id = fvt.check_id
1146: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name,'set of books id = '||v_set_of_books_id);
1147: END IF;
1148:
1149: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1150: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name,'INSERT INTO fv_voided_checks');
1151: END IF;
1152:
1153: BEGIN
1154: INSERT INTO fv_voided_checks
1150: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name,'INSERT INTO fv_voided_checks');
1151: END IF;
1152:
1153: BEGIN
1154: INSERT INTO fv_voided_checks
1155: (
1156: void_id,
1157: checkrun_name,
1158: check_id,
1163: last_updated_by,
1164: last_update_login,
1165: org_id
1166: )
1167: SELECT fv_voided_checks_s.nextval,
1168: checkrun_name,
1169: check_id,
1170: 'U',
1171: SYSDATE,
1178: WHERE org_id = l_org_id
1179: AND void_date IS NOT NULL
1180: AND (ac.checkrun_name IS NOT NULL OR ac.payment_id IS NOT NULL)
1181: AND NOT EXISTS (SELECT 1
1182: FROM fv_voided_checks fvc
1183: WHERE fvc.check_id = ac.check_id
1184: AND fvc.org_id = ac.org_id);
1185:
1186: EXCEPTION
1187: WHEN OTHERS THEN
1188: l_err_code := SQLCODE;
1189: l_err_stage := SQLERRM;
1190: retcode := '2';
1191: fv_utility.log_mesg(fnd_log.level_exception,l_module_name||'insert fv_voided_checks1',l_err_stage);
1192: END;
1193:
1194:
1195: IF (retcode = '0') THEN
1362:
1363: IF (retcode = '0') THEN
1364: BEGIN
1365:
1366: UPDATE fv_voided_checks
1367: SET processed_flag = 'S'
1368: WHERE check_id = voided_checks_list_rec.check_id
1369: AND org_id = l_org_id;
1370:
1372: WHEN OTHERS THEN
1373: l_err_code := SQLCODE;
1374: l_err_stage := SQLERRM;
1375: retcode := '2';
1376: fv_utility.log_mesg(fnd_log.level_exception,l_module_name||'update fv_voided_checks1',l_err_stage);
1377: EXIT;
1378: END;
1379: END IF;
1380: IF (retcode <> '0') THEN
1504: retcode := l_err_code;
1505: errbuf := l_err_stage;
1506: ELSE
1507: BEGIN
1508: UPDATE fv_voided_checks
1509: SET processed_flag = 'P'
1510: WHERE processed_flag = 'S'
1511: AND org_id = l_org_id;
1512: EXCEPTION
1514: l_err_code := SQLCODE;
1515: l_err_stage := SQLERRM;
1516: retcode := '2';
1517: errbuf := l_err_stage;
1518: fv_utility.log_mesg(fnd_log.level_exception,l_module_name||'update fv_voided_checks2',l_err_stage);
1519: END;
1520: BEGIN
1521: UPDATE fv_voided_checks
1522: SET processed_flag = 'X'
1517: errbuf := l_err_stage;
1518: fv_utility.log_mesg(fnd_log.level_exception,l_module_name||'update fv_voided_checks2',l_err_stage);
1519: END;
1520: BEGIN
1521: UPDATE fv_voided_checks
1522: SET processed_flag = 'X'
1523: WHERE processed_flag = 'U'
1524: AND org_id = l_org_id;
1525: EXCEPTION
1527: l_err_code := SQLCODE;
1528: l_err_stage := SQLERRM;
1529: retcode := '2';
1530: errbuf := l_err_stage;
1531: fv_utility.log_mesg(fnd_log.level_exception,l_module_name||'update fv_voided_checks2',l_err_stage);
1532: END;
1533: END IF;
1534: END IF;
1535: