[Home] [Help]
4: g_module_name VARCHAR2(200) := 'fv.plsql.fv_treasury_payments_pkg.';
5: g_errmsg VARCHAR2(1000);
6: g_ledger_id gl_ledgers.ledger_id%TYPE;
7: g_org_id fv_operating_units.org_id%TYPE;
8: g_treasury_conf_id fv_treasury_confirmations.treasury_confirmation_id%TYPE;
9: g_accounting_date fv_treasury_confirmations.treasury_doc_date%TYPE;
10: g_payment_instr_id iby_pay_instructions_all.payment_instruction_id%TYPE;
11: g_checkrun_name ap_checks_all.checkrun_name%TYPE;
12: x_err_code NUMBER;
5: g_errmsg VARCHAR2(1000);
6: g_ledger_id gl_ledgers.ledger_id%TYPE;
7: g_org_id fv_operating_units.org_id%TYPE;
8: g_treasury_conf_id fv_treasury_confirmations.treasury_confirmation_id%TYPE;
9: g_accounting_date fv_treasury_confirmations.treasury_doc_date%TYPE;
10: g_payment_instr_id iby_pay_instructions_all.payment_instruction_id%TYPE;
11: g_checkrun_name ap_checks_all.checkrun_name%TYPE;
12: x_err_code NUMBER;
13: x_err_stage VARCHAR2(2000);
72: END;
73:
74: IF (l_dummy = 0) THEN
75: IF p_button_name = 'TREASURY_CONFIRMATION.CONFIRM' THEN
76: UPDATE fv_treasury_confirmations
77: SET confirmation_status_flag = 'N'
78: WHERE treasury_confirmation_id = g_treasury_conf_id;
79: ELSIF p_button_name = 'TREASURY_CONFIRMATION.BACK_OUT' THEN
80: UPDATE fv_treasury_confirmations
76: UPDATE fv_treasury_confirmations
77: SET confirmation_status_flag = 'N'
78: WHERE treasury_confirmation_id = g_treasury_conf_id;
79: ELSIF p_button_name = 'TREASURY_CONFIRMATION.BACK_OUT' THEN
80: UPDATE fv_treasury_confirmations
81: SET confirmation_status_flag = 'Y'
82: WHERE treasury_confirmation_id = g_treasury_conf_id;
83: END IF;
84: commit;
104: ,g_accounting_date
105: ,g_ledger_id
106: ,g_org_id
107: ,g_checkrun_name
108: FROM fv_treasury_confirmations
109: WHERE treasury_confirmation_id = g_treasury_conf_id;
110:
111: /* Bug: 5727409 - getting open period accounting date */
112: get_open_period(g_accounting_date);
163: END;
164:
165: IF (x_retcode = 2) THEN
166: IF p_button_name = 'TREASURY_CONFIRMATION.CONFIRM' THEN
167: UPDATE fv_treasury_confirmations
168: SET confirmation_status_flag = 'N'
169: WHERE treasury_confirmation_id = g_treasury_conf_id;
170: ELSIF p_button_name = 'TREASURY_CONFIRMATION.BACK_OUT' THEN
171: UPDATE fv_treasury_confirmations
167: UPDATE fv_treasury_confirmations
168: SET confirmation_status_flag = 'N'
169: WHERE treasury_confirmation_id = g_treasury_conf_id;
170: ELSIF p_button_name = 'TREASURY_CONFIRMATION.BACK_OUT' THEN
171: UPDATE fv_treasury_confirmations
172: SET confirmation_status_flag = 'Y'
173: WHERE treasury_confirmation_id = g_treasury_conf_id;
174: END IF;
175: commit;
187: do_confirm_process(x_status_code,x_return_status);
188: x_retcode := x_status_code;
189:
190: IF (x_status_code = 'SUCCESS') THEN
191: UPDATE fv_treasury_confirmations
192: SET confirmation_status_flag = 'Y'
193: WHERE treasury_confirmation_id = g_treasury_conf_id;
194:
195: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
201: ROLLBACK TO FV_TREAS;
202: x_retcode:=2;
203:
204:
205: UPDATE fv_treasury_confirmations
206: SET confirmation_status_flag = 'N'
207: WHERE treasury_confirmation_id = g_treasury_conf_id;
208:
209: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
228:
229: END IF;
230:
231: IF (x_status_code = 'SUCCESS') THEN
232: UPDATE fv_treasury_confirmations
233: SET confirmation_status_flag = 'B'
234: WHERE treasury_confirmation_id = g_treasury_conf_id;
235:
236: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
240: ELSE
241: ROLLBACK TO FV_TREAS;
242: x_retcode:=2;
243:
244: UPDATE fv_treasury_confirmations
245: SET confirmation_status_flag = 'Y'
246: WHERE treasury_confirmation_id = g_treasury_conf_id;
247:
248: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
271: PROCEDURE DO_CONFIRM_PROCESS (x_status_code OUT NOCOPY VARCHAR2
272: ,x_return_status OUT NOCOPY VARCHAR2)
273: IS
274: l_dummy NUMBER;
275: l_begin_doc fv_treasury_confirmations.begin_doc_num%TYPE;
276: l_end_doc fv_treasury_confirmations.end_doc_num%TYPE;
277: l_diff NUMBER;
278: l_row_num NUMBER;
279: l_module_name VARCHAR2(200);
272: ,x_return_status OUT NOCOPY VARCHAR2)
273: IS
274: l_dummy NUMBER;
275: l_begin_doc fv_treasury_confirmations.begin_doc_num%TYPE;
276: l_end_doc fv_treasury_confirmations.end_doc_num%TYPE;
277: l_diff NUMBER;
278: l_row_num NUMBER;
279: l_module_name VARCHAR2(200);
280: l_void_count NUMBER;
283: l_void_return_status VARCHAR2(1);
284:
285: --Variables used for 11i Upgrade rows
286: l_pay_fmt_program_name ap_payment_programs.program_name%TYPE;
287: l_checkrun_name fv_treasury_confirmations_all.checkrun_name%TYPE;
288: l_select_str VARCHAR2(1000);
289: TYPE t_refcur IS REF CURSOR;
290: l_upg_check_id_cur t_refcur;
291: l_corr_treas_pay_num fv_tc_offsets.corrected_treasury_pay_number%TYPE;
298:
299: CURSOR cur_get_checks IS
300: SELECT ac.check_id
301: FROM ap_checks ac
302: ,fv_treasury_confirmations ftc
303: WHERE ftc.treasury_confirmation_id = g_treasury_conf_id
304: AND ftc.payment_instruction_id = ac.payment_instruction_id
305: AND ac.org_id = g_org_id;
306:
335: -- select statement for 11i upgrade rows
336: BEGIN
337: SELECT checkrun_name
338: INTO l_checkrun_name
339: FROM FV_TREASURY_CONFIRMATIONS_ALL
340: WHERE payment_instruction_id = g_payment_instr_id
341: AND org_id = g_org_id;
342:
343: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
485: 'Treasury Confirmation Successful. Checking for Voided Checks');
486:
487: SELECT COUNT(ac.check_id) INTO l_void_count
488: FROM ap_checks_all ac
489: ,fv_treasury_confirmations_all ftc
490: WHERE ftc.treasury_confirmation_id = g_treasury_conf_id
491: AND ftc.payment_instruction_id = ac.payment_instruction_id
492: AND ac.org_id = g_org_id
493: AND ac.org_id = ftc.org_id
525: fnd_global.login_id,
526: ac.org_id,
527: g_payment_instr_id
528: FROM ap_checks_all ac,
529: fv_treasury_confirmations_all fvc
530: WHERE ac.org_id = g_org_id
531: AND fvc.org_id = ac.org_id
532: AND fvc.treasury_confirmation_id= g_treasury_conf_id
533: AND fvc.payment_instruction_id = ac.payment_instruction_id
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
542: SET confirmation_status_flag = 'Y'
543: WHERE treasury_confirmation_id = g_treasury_conf_id;
544:
545: commit;
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
573: from fv_treasury_confirmations_all fvtreas ,
574: ap_checks_all ac
575: where
576: fvtreas.org_id = g_org_id
577: and ac.org_id = fvtreas.org_id
685:
686: CURSOR cur_get_payment_info(p_treasury_conf_id NUMBER) IS
687: SELECT distinct ac.legal_entity_id, ftc.event_id
688: FROM ap_checks ac
689: ,fv_treasury_confirmations ftc
690: WHERE ftc.treasury_confirmation_id = p_treasury_conf_id
691: AND ftc.payment_instruction_id = ac.payment_instruction_id
692: AND ac.org_id = g_org_id;
693:
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
705: AND FVC.org_id = ftc.org_id
731: l_treas_conf_id NUMBER(15);
732: l_void_acctg_date DATE;
733: l_tc_event_id NUMBER(15);
734: l_void_event_id NUMBER(15);
735: l_pmt_id fv_treasury_confirmations_all.payment_instruction_id%TYPE;
736:
737: BEGIN
738: l_calling_sequence := p_calling_sequence || ' -> FV_TREASURY_PAYMENTS_PKG.CREATE_TREASURY_PAYMENT_EVENT';
739: l_module_name := g_module_name||'Create_Treasury_Payment_Event';
758:
759: SELECT payment_instruction_id
760: INTO
761: l_pmt_id
762: FROM fv_treasury_confirmations ftc
763: WHERE
764: ftc.treasury_confirmation_id = p_treasury_conf_id;
765:
766: l_event_source_info.application_id := 8901;
831:
832: Insert into XLA_ACCT_PROG_EVENTS_GT (Event_Id)
833: values (l_tc_Event_id);
834:
835: Update fv_treasury_confirmations_all
836: Set event_id = l_tc_event_id
837: Where treasury_confirmation_id = p_treasury_conf_id;
838:
839: ELSIF p_event_type = 'TREASURY_VOID' THEN
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
1024: fnd_global.user_id,
1025: fnd_global.login_id,
1026: ac.org_id
1027: FROM ap_checks_all ac,
1028: fv_treasury_confirmations_all fvtc
1029: WHERE ac.org_id = g_org_id
1030: AND fvtc.org_id = ac.org_id
1031: AND fvtc.payment_instruction_id = ac.payment_instruction_id
1032: AND ac.void_date IS NOT NULL
1056: l_void_count:=0;
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
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
1086: from fv_treasury_confirmations_all fvtreas ,
1087: ap_checks_all ac
1088: where
1089: fvtreas.org_id = g_org_id
1090: and ac.org_id = fvtreas.org_id