[Home] [Help]
499: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
500: 'Voided Checks = ' || l_void_count);
501:
502:
503: INSERT INTO fv_voided_checks
504: (
505: void_id,
506: checkrun_name,
507: check_id,
513: last_update_login,
514: org_id,
515: payment_instruction_id
516: )
517: SELECT fv_voided_checks_s.nextval,
518: ac.checkrun_name,
519: ac.check_id,
520: 'U',
521: SYSDATE,
533: AND fvc.payment_instruction_id = ac.payment_instruction_id
534: AND ac.void_date IS NOT NULL
535: AND (ac.checkrun_name IS NOT NULL OR ac.payment_id IS NOT NULL)
536: AND NOT EXISTS (SELECT 1
537: FROM fv_voided_checks fvc
538: WHERE fvc.check_id = ac.check_id
539: AND fvc.org_id = ac.org_id);
540:
541: UPDATE fv_treasury_confirmations
564:
565: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT,l_module_name,
566: 'Create treasury payment for Voided Checks is Successful');
567:
568: UPDATE fv_voided_checks
569: SET processed_flag = 'P'
570: WHERE processed_flag = 'U'
571: AND org_id = g_org_id
572: and check_id in ( select check_id
696: FVC.event_id,
697: FTC.payment_instruction_id,
698: FVC.check_id,
699: FTC.treasury_confirmation_id
700: FROM fv_voided_checks FVC,
701: fv_treasury_confirmations_all FTC,
702: ap_checks_all ac
703: WHERE
704: ftc.org_id = g_org_id
913:
914: INSERT INTO XLA_ACCT_PROG_EVENTS_GT (Event_Id)
915: VALUES (l_void_Event_id);
916:
917: UPDATE fv_voided_checks
918: SET event_id = l_void_event_id,
919: payment_instruction_id = l_payment_instr_id
920: WHERE check_id = l_check_id
921: AND org_id = g_org_id;
972:
973: CURSOR cur_treas_conf
974: IS
975: SELECT max(fvtreas.TREASURY_CONFIRMATION_ID) TREASURY_CONFIRMATION_ID
976: FROM fv_voided_checks fvc , ap_checks_all apchk,fv_treasury_confirmations_all fvtreas
977: WHERE
978: apchk.org_id = g_org_id
979: AND apchk.org_id = fvtreas.org_id
980: AND apchk.check_id = fvc.check_id
996: MO_UTILS.get_ledger_info(g_org_id, g_ledger_id, l_ledger_name);
997: END IF;
998:
999: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1000: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name,'INSERT INTO fv_voided_checks');
1001: END IF;
1002:
1003: BEGIN
1004: INSERT INTO fv_voided_checks
1000: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name,'INSERT INTO fv_voided_checks');
1001: END IF;
1002:
1003: BEGIN
1004: INSERT INTO fv_voided_checks
1005: (
1006: void_id,
1007: checkrun_name,
1008: check_id,
1013: last_updated_by,
1014: last_update_login,
1015: org_id
1016: )
1017: SELECT fv_voided_checks_s.nextval,
1018: ac.checkrun_name,
1019: ac.check_id,
1020: 'U',
1021: SYSDATE,
1031: AND fvtc.payment_instruction_id = ac.payment_instruction_id
1032: AND ac.void_date IS NOT NULL
1033: AND (ac.checkrun_name IS NOT NULL OR ac.payment_id IS NOT NULL)
1034: AND NOT EXISTS (SELECT 1
1035: FROM fv_voided_checks fvc
1036: WHERE fvc.check_id = ac.check_id
1037: AND fvc.org_id = ac.org_id);
1038:
1039: EXCEPTION
1040: WHEN OTHERS THEN
1041: l_err_code := SQLCODE;
1042: l_err_stage := SQLERRM;
1043: X_retcode:=2;
1044: fv_utility.log_mesg(fnd_log.level_exception,l_module_name||' insert fv_voided_checks1',l_err_stage);
1045: END;
1046:
1047: l_status_code:='SUCCESS';
1048:
1057:
1058: SELECT COUNT(ac.check_id) INTO l_void_count
1059: FROM ap_checks_all ac
1060: ,fv_treasury_confirmations_all ftc
1061: , fv_voided_checks fvc
1062: WHERE ftc.treasury_confirmation_id = treas_conf_rec.TREASURY_CONFIRMATION_ID
1063: AND ftc.payment_instruction_id = ac.payment_instruction_id
1064: AND ac.org_id = g_org_id
1065: AND ac.org_id = ftc.org_id
1077: BEGIN
1078:
1079: IF (l_status_code = 'SUCCESS') THEN
1080:
1081: UPDATE fv_voided_checks
1082: SET processed_flag = 'P'
1083: WHERE processed_flag = 'U'
1084: AND org_id = g_org_id
1085: and check_id in ( select check_id
1098: WHEN OTHERS THEN
1099: l_err_code := SQLCODE;
1100: l_err_stage := SQLERRM;
1101: fv_utility.log_mesg(fnd_log.level_exception,l_module_name||
1102: 'update fv_voided_checks1',l_err_stage);
1103: END;
1104: ELSE
1105: l_status_code:='SUCCESS';
1106: END IF ;
1109: CLOSE cur_treas_conf ;
1110: /*
1111: BEGIN
1112: IF (l_status_code = 'SUCCESS') THEN
1113: UPDATE fv_voided_checks
1114: SET processed_flag = 'P'
1115: WHERE processed_flag = 'U'
1116: AND org_id = g_org_id;
1117: ELSE
1114: SET processed_flag = 'P'
1115: WHERE processed_flag = 'U'
1116: AND org_id = g_org_id;
1117: ELSE
1118: UPDATE fv_voided_checks
1119: SET processed_flag = 'X'
1120: WHERE processed_flag = 'U'
1121: AND org_id = g_org_id;
1122:
1124: EXCEPTION
1125: WHEN OTHERS THEN
1126: l_err_code := SQLCODE;
1127: l_err_stage := SQLERRM;
1128: fv_utility.log_mesg(fnd_log.level_exception,l_module_name||'update fv_voided_checks1',l_err_stage);
1129: END;
1130: */
1131:
1132: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name,'End Of Void');