[Home] [Help]
1168: ELSIF p_psr_status = 'COMPLETED' THEN
1169: BEGIN
1170: select 1
1171: into l_valid_completed_pmt
1172: from dual
1173: where exists(select 'VALID_PAYMENT'
1174: from iby_payments_all
1175: where payment_service_request_id = p_psr_id
1176: and payments_complete_flag = 'Y'
1286: THEN
1287: l_access := g_instr_access_table(p_pay_instruction_id).access_flag;
1288: ELSE
1289: begin
1290: select 'N' into l_access from dual where exists ( select 'Inaccessible org' from iby_payments_all where
1291: payment_instruction_id = p_pay_instruction_id and MO_GLOBAL.CHECK_ACCESS(org_id) = 'N');
1292:
1293: Exception
1294: when NO_DATA_FOUND
1453: /* IBY IN PROCESS. */
1454: /* PAYMENTS_CREATED and it can be in either processing or need action group */
1455: --Special case Payment Created
1456: ELSIF c_rec_snap.payment_service_request_status IN ('PAYMENTS_CREATED') THEN
1457: -- Need to check the payment instruction and individual payments.
1458: l_access := 'N';
1459: --Check org access also verifies the Payment Instruction statuses that are valid.
1460: l_access := check_org_access(c_rec_snap.payment_service_request_id);
1461: IF l_access = 'Y'
1465: -- For Processing Action.
1466: BEGIN
1467: SELECT 'Y'
1468: INTO l_process_count
1469: FROM dual
1470: WHERE EXISTS
1471: (SELECT 'PROCESSING'
1472: FROM iby_payments_all pmt
1473: WHERE pmt.payment_service_request_id =c_rec_snap.payment_service_request_id
1518: -- dbms_output.put_line('Outputs:: Action::'||l_need_action ||' Processing::'||l_processing||' Terminated::'||l_terminated||' Errors::'||l_errors||' Completed::'|| l_completed);
1519:
1520: SELECT l_need_action,l_processing,l_terminated,l_errors,l_completed
1521: INTO l_ret_val
1522: FROM DUAL;
1523: --INSERTING INTO PIPE SO IT CAN BE QUERIED.
1524: PIPE ROW( l_ret_val);
1525: RETURN ;
1526: END get_psr_snapshot_pipe;