[Home] [Help]
279: l_void_return_status VARCHAR2(1);
280:
281: --Variables used for 11i Upgrade rows
282: l_pay_fmt_program_name ap_payment_programs.program_name%TYPE;
283: l_checkrun_name fv_treasury_confirmations_all.checkrun_name%TYPE;
284: l_select_str VARCHAR2(1000);
285: TYPE t_refcur IS REF CURSOR;
286: l_upg_check_id_cur t_refcur;
287: l_corr_treas_pay_num fv_tc_offsets.corrected_treasury_pay_number%TYPE;
332: -- select statement for 11i upgrade rows
333: BEGIN
334: SELECT checkrun_name
335: INTO l_checkrun_name
336: FROM FV_TREASURY_CONFIRMATIONS_ALL
337: WHERE payment_instruction_id = g_payment_instr_id
338: AND org_id = g_org_id;
339:
340: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
642: FTC.payment_instruction_id,
643: FVC.check_id,
644: FTC.treasury_confirmation_id
645: FROM fv_voided_checks FVC,
646: fv_treasury_confirmations_all FTC,
647: ap_checks_all ac
648: WHERE
649: ftc.org_id = g_org_id
650: AND FVC.org_id = ftc.org_id
676: l_treas_conf_id NUMBER(15);
677: l_void_acctg_date DATE;
678: l_tc_event_id NUMBER(15);
679: l_void_event_id NUMBER(15);
680: l_pmt_id fv_treasury_confirmations_all.payment_instruction_id%TYPE;
681:
682: BEGIN
683: l_calling_sequence := p_calling_sequence || ' -> FV_TREASURY_PAYMENTS_PKG.CREATE_TREASURY_PAYMENT_EVENT';
684: l_module_name := g_module_name||'Create_Treasury_Payment_Event';
780:
781: Insert into XLA_ACCT_PROG_EVENTS_GT (Event_Id)
782: values (l_tc_Event_id);
783:
784: Update fv_treasury_confirmations_all
785: Set event_id = l_tc_event_id
786: Where treasury_confirmation_id = p_treasury_conf_id;
787:
788: ELSIF p_event_type = 'TREASURY_VOID' THEN
930:
931: CURSOR cur_treas_conf
932: IS
933: SELECT max(fvtreas.TREASURY_CONFIRMATION_ID) TREASURY_CONFIRMATION_ID
934: FROM fv_voided_checks fvc , ap_checks_all apchk,fv_treasury_confirmations_all fvtreas
935: WHERE
936: apchk.org_id = g_org_id
937: AND apchk.org_id = fvtreas.org_id
938: AND apchk.check_id = fvc.check_id
946: FROM fv_voided_checks fc
947: WHERE fc.processed_flag = 'U'
948: AND fc.org_id = g_org_id
949: and fc.check_id in ( select check_id
950: from fv_treasury_confirmations_all fvtreas ,
951: ap_checks_all ac
952: where fvtreas.org_id = g_org_id
953: and ac.org_id = fvtreas.org_id
954: and fvtreas.treasury_confirmation_id = p_treas_conf_id
976:
977: treas_conf_rec cur_treas_conf%ROWTYPE;
978: cur_event_id fv_voided_checks.event_id%TYPE;
979: p_treasury_conf_id NUMBER;
980: l_pmt_id fv_treasury_confirmations_all.payment_instruction_id%TYPE;
981:
982: BEGIN
983: fv_utility.debug_mesg(fnd_log.level_statement,l_module_name,'Start Of Void');
984:
1002: EXIT WHEN unprocessed_event_cur%NOTFOUND;
1003:
1004: SELECT max(fvtreas.TREASURY_CONFIRMATION_ID) TREASURY_CONFIRMATION_ID into p_treasury_conf_id
1005: FROM fv_voided_checks fvc , ap_checks_all apchk,
1006: fv_treasury_confirmations_all fvtreas
1007: WHERE apchk.org_id = g_org_id
1008: AND apchk.org_id = fvtreas.org_id
1009: AND apchk.check_id = fvc.check_id
1010: AND apchk.payment_instruction_id = fvtreas.payment_instruction_id
1080: fnd_global.user_id,
1081: fnd_global.login_id,
1082: ac.org_id
1083: FROM ap_checks_all ac,
1084: fv_treasury_confirmations_all fvtc
1085: , ap_payment_history_all aph
1086: WHERE ac.org_id = g_org_id
1087: AND fvtc.org_id = ac.org_id
1088: AND fvtc.payment_instruction_id = ac.payment_instruction_id
1122: l_void_count:=0;
1123:
1124: SELECT COUNT(ac.check_id) INTO l_void_count
1125: FROM ap_checks_all ac
1126: ,fv_treasury_confirmations_all ftc
1127: , fv_voided_checks fvc
1128: WHERE ftc.treasury_confirmation_id = treas_conf_rec.TREASURY_CONFIRMATION_ID
1129: AND ftc.payment_instruction_id = ac.payment_instruction_id
1130: AND ac.org_id = g_org_id
1166: SET processed_flag = 'P'
1167: WHERE processed_flag = 'U'
1168: AND org_id = g_org_id
1169: and check_id in ( select check_id
1170: from fv_treasury_confirmations_all fvtreas ,
1171: ap_checks_all ac
1172: where
1173: fvtreas.org_id = g_org_id
1174: and ac.org_id = fvtreas.org_id