1: PACKAGE BODY IBY_PAYGROUP_PUB AS
2: /*$Header: ibypaygb.pls 120.108.12010000.13 2008/12/02 20:56:39 pschalla ship $*/
3:
4: --
5: -- Declare global variables
3:
4: --
5: -- Declare global variables
6: --
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'IBY_PAYGROUP_PUB';
8:
9: --
10: -- List of document statuses that are used / set in this
11: -- module (payment creation flow).
132: /* rejection level system options */
133: l_rejection_level VARCHAR2(200);
134: l_review_pmts_flag VARCHAR2(1) := 'N';
135:
136: l_paymentTab IBY_PAYGROUP_PUB.paymentTabType;
137: l_docsInPmtTab IBY_PAYGROUP_PUB.docsInPaymentTabType;
138:
139: /* these two are passed to calling app via hook */
140: l_hookPaymentTab IBY_PAYGROUP_PUB.hookPaymentTabType;
133: l_rejection_level VARCHAR2(200);
134: l_review_pmts_flag VARCHAR2(1) := 'N';
135:
136: l_paymentTab IBY_PAYGROUP_PUB.paymentTabType;
137: l_docsInPmtTab IBY_PAYGROUP_PUB.docsInPaymentTabType;
138:
139: /* these two are passed to calling app via hook */
140: l_hookPaymentTab IBY_PAYGROUP_PUB.hookPaymentTabType;
141: l_hookDocsInPmtTab IBY_PAYGROUP_PUB.hookDocsInPaymentTabType;
136: l_paymentTab IBY_PAYGROUP_PUB.paymentTabType;
137: l_docsInPmtTab IBY_PAYGROUP_PUB.docsInPaymentTabType;
138:
139: /* these two are passed to calling app via hook */
140: l_hookPaymentTab IBY_PAYGROUP_PUB.hookPaymentTabType;
141: l_hookDocsInPmtTab IBY_PAYGROUP_PUB.hookDocsInPaymentTabType;
142:
143: /* payment request imposed limits on payments */
144: l_payReqCriteria IBY_PAYGROUP_PUB.payReqImposedCriteria;
137: l_docsInPmtTab IBY_PAYGROUP_PUB.docsInPaymentTabType;
138:
139: /* these two are passed to calling app via hook */
140: l_hookPaymentTab IBY_PAYGROUP_PUB.hookPaymentTabType;
141: l_hookDocsInPmtTab IBY_PAYGROUP_PUB.hookDocsInPaymentTabType;
142:
143: /* payment request imposed limits on payments */
144: l_payReqCriteria IBY_PAYGROUP_PUB.payReqImposedCriteria;
145:
140: l_hookPaymentTab IBY_PAYGROUP_PUB.hookPaymentTabType;
141: l_hookDocsInPmtTab IBY_PAYGROUP_PUB.hookDocsInPaymentTabType;
142:
143: /* payment request imposed limits on payments */
144: l_payReqCriteria IBY_PAYGROUP_PUB.payReqImposedCriteria;
145:
146: /* central bank reporting requirements imposed on each payment */
147: --l_cbrTab IBY_PAYGROUP_PUB.centralBankReportTabType;
148:
143: /* payment request imposed limits on payments */
144: l_payReqCriteria IBY_PAYGROUP_PUB.payReqImposedCriteria;
145:
146: /* central bank reporting requirements imposed on each payment */
147: --l_cbrTab IBY_PAYGROUP_PUB.centralBankReportTabType;
148:
149: /* holds the error messages against failed documents */
150: l_docErrorTab IBY_VALIDATIONSETS_PUB.docErrorTabType;
151: l_docTokenTab IBY_VALIDATIONSETS_PUB.trxnErrTokenTabType;
647: *---------------------------------------------------------------------*/
648: PROCEDURE performDocumentGrouping(
649: p_payment_request_id IN IBY_PAY_SERVICE_REQUESTS.
650: payment_service_request_id%TYPE,
651: x_paymentTab IN OUT NOCOPY IBY_PAYGROUP_PUB.paymentTabType,
652: x_docsInPmtTab IN OUT NOCOPY IBY_PAYGROUP_PUB.docsInPaymentTabType,
653: x_ca_id IN OUT NOCOPY IBY_PAY_SERVICE_REQUESTS.
654: calling_app_id%TYPE,
655: x_ca_payreq_cd IN OUT NOCOPY IBY_PAY_SERVICE_REQUESTS.
648: PROCEDURE performDocumentGrouping(
649: p_payment_request_id IN IBY_PAY_SERVICE_REQUESTS.
650: payment_service_request_id%TYPE,
651: x_paymentTab IN OUT NOCOPY IBY_PAYGROUP_PUB.paymentTabType,
652: x_docsInPmtTab IN OUT NOCOPY IBY_PAYGROUP_PUB.docsInPaymentTabType,
653: x_ca_id IN OUT NOCOPY IBY_PAY_SERVICE_REQUESTS.
654: calling_app_id%TYPE,
655: x_ca_payreq_cd IN OUT NOCOPY IBY_PAY_SERVICE_REQUESTS.
656: call_app_pay_service_req_code
654: calling_app_id%TYPE,
655: x_ca_payreq_cd IN OUT NOCOPY IBY_PAY_SERVICE_REQUESTS.
656: call_app_pay_service_req_code
657: %TYPE,
658: x_payReqCriteria IN OUT NOCOPY IBY_PAYGROUP_PUB.
659: payReqImposedCriteria
660:
661: -- , x_cbrTab IN OUT NOCOPY IBY_PAYGROUP_PUB.
662: -- centralBankReportTabType
657: %TYPE,
658: x_payReqCriteria IN OUT NOCOPY IBY_PAYGROUP_PUB.
659: payReqImposedCriteria
660:
661: -- , x_cbrTab IN OUT NOCOPY IBY_PAYGROUP_PUB.
662: -- centralBankReportTabType
663: )
664: IS
665: l_module_name CONSTANT VARCHAR2(200) := G_PKG_NAME ||
707: l_decl_curr_fx_rate_type VARCHAR2(255) := '';
708: l_decl_curr_code VARCHAR2(10) := '';
709: l_decl_threshold_amount NUMBER(15) := 0;
710: /*
711: l_cbrRec IBY_PAYGROUP_PUB.centralBankReportRecType;
712: l_cbrTab IBY_PAYGROUP_PUB.centralBankReportTabType;
713: l_cbr_rec_exists BOOLEAN := FALSE;
714: */
715:
708: l_decl_curr_code VARCHAR2(10) := '';
709: l_decl_threshold_amount NUMBER(15) := 0;
710: /*
711: l_cbrRec IBY_PAYGROUP_PUB.centralBankReportRecType;
712: l_cbrTab IBY_PAYGROUP_PUB.centralBankReportTabType;
713: l_cbr_rec_exists BOOLEAN := FALSE;
714: */
715:
716: l_ca_payreq_cd VARCHAR2(255) := '';
723: l_rejection_level VARCHAR2(200);
724: l_review_pmts_flag VARCHAR2(1) := 'N';
725:
726: l_paymentRec IBY_PAYMENTS_ALL%ROWTYPE;
727: l_docsInPmtRec IBY_PAYGROUP_PUB.docsInPaymentRecType;
728:
729: /*
730: * These two are related data structures. Each row in paymentTabType
731: * PLSQL table is used in inserting a row into the IBY_PAYMENTS_ALL
763: * bulk updates.
764: */
765:
766: /* these two are passed to calling app via hook */
767: l_hookPaymentTab IBY_PAYGROUP_PUB.hookPaymentTabType;
768: l_hookDocsInPmtTab IBY_PAYGROUP_PUB.hookDocsInPaymentTabType;
769:
770: /* holds the error messages against failed documents */
771: l_docErrorTab IBY_VALIDATIONSETS_PUB.docErrorTabType;
764: */
765:
766: /* these two are passed to calling app via hook */
767: l_hookPaymentTab IBY_PAYGROUP_PUB.hookPaymentTabType;
768: l_hookDocsInPmtTab IBY_PAYGROUP_PUB.hookDocsInPaymentTabType;
769:
770: /* holds the error messages against failed documents */
771: l_docErrorTab IBY_VALIDATIONSETS_PUB.docErrorTabType;
772:
8071: IS
8072:
8073: l_module_name CONSTANT VARCHAR2(200) := G_PKG_NAME ||
8074: '.applyPaymentValidationSets';
8075: l_valSetsTab IBY_PAYGROUP_PUB.paymentValSetsTab;
8076: l_stmt VARCHAR2(200);
8077: l_result NUMBER := 0;
8078: l_check_val BOOLEAN := FALSE;
8079:
10738: )
10739: IS
10740:
10741: /* these two are passed to calling app via hook */
10742: l_hookPaymentTab IBY_PAYGROUP_PUB.hookPaymentTabType;
10743: l_hookDocsInPmtTab IBY_PAYGROUP_PUB.hookDocsInPaymentTabType;
10744:
10745: l_module_name CONSTANT VARCHAR2(200) := G_PKG_NAME ||
10746: '.handleJapaneseBankCharges';
10739: IS
10740:
10741: /* these two are passed to calling app via hook */
10742: l_hookPaymentTab IBY_PAYGROUP_PUB.hookPaymentTabType;
10743: l_hookDocsInPmtTab IBY_PAYGROUP_PUB.hookDocsInPaymentTabType;
10744:
10745: l_module_name CONSTANT VARCHAR2(200) := G_PKG_NAME ||
10746: '.handleJapaneseBankCharges';
10747:
10900: )
10901: IS
10902:
10903: /* these two are passed to calling app via hook */
10904: l_hookPaymentTab IBY_PAYGROUP_PUB.hookPaymentTabType;
10905: l_hookDocsInPmtTab IBY_PAYGROUP_PUB.hookDocsInPaymentTabType;
10906:
10907: l_module_name CONSTANT VARCHAR2(200) := G_PKG_NAME ||
10908: '.performExtendedWitholding';
10901: IS
10902:
10903: /* these two are passed to calling app via hook */
10904: l_hookPaymentTab IBY_PAYGROUP_PUB.hookPaymentTabType;
10905: l_hookDocsInPmtTab IBY_PAYGROUP_PUB.hookDocsInPaymentTabType;
10906:
10907: l_module_name CONSTANT VARCHAR2(200) := G_PKG_NAME ||
10908: '.performExtendedWitholding';
10909:
11181: *---------------------------------------------------------------------*/
11182: PROCEDURE rebuildPayments(
11183: p_payment_request_id IN IBY_PAY_SERVICE_REQUESTS.
11184: payment_service_request_id%TYPE,
11185: x_paymentTab IN OUT NOCOPY IBY_PAYGROUP_PUB.paymentTabType,
11186: x_docsInPmtTab IN OUT NOCOPY IBY_PAYGROUP_PUB.
11187: docsInPaymentTabType,
11188: x_ca_id IN OUT NOCOPY IBY_PAY_SERVICE_REQUESTS.
11189: calling_app_id%TYPE,
11182: PROCEDURE rebuildPayments(
11183: p_payment_request_id IN IBY_PAY_SERVICE_REQUESTS.
11184: payment_service_request_id%TYPE,
11185: x_paymentTab IN OUT NOCOPY IBY_PAYGROUP_PUB.paymentTabType,
11186: x_docsInPmtTab IN OUT NOCOPY IBY_PAYGROUP_PUB.
11187: docsInPaymentTabType,
11188: x_ca_id IN OUT NOCOPY IBY_PAY_SERVICE_REQUESTS.
11189: calling_app_id%TYPE,
11190: x_ca_payreq_cd IN OUT NOCOPY IBY_PAY_SERVICE_REQUESTS.
11189: calling_app_id%TYPE,
11190: x_ca_payreq_cd IN OUT NOCOPY IBY_PAY_SERVICE_REQUESTS.
11191: call_app_pay_service_req_code
11192: %TYPE,
11193: x_payReqCriteria IN OUT NOCOPY IBY_PAYGROUP_PUB.
11194: payReqImposedCriteria
11195: -- ,x_cbrTab IN OUT NOCOPY IBY_PAYGROUP_PUB.
11196: -- centralBankReportTabType
11197: )
11191: call_app_pay_service_req_code
11192: %TYPE,
11193: x_payReqCriteria IN OUT NOCOPY IBY_PAYGROUP_PUB.
11194: payReqImposedCriteria
11195: -- ,x_cbrTab IN OUT NOCOPY IBY_PAYGROUP_PUB.
11196: -- centralBankReportTabType
11197: )
11198: IS
11199: l_module_name CONSTANT VARCHAR2(200) := G_PKG_NAME ||
11201:
11202: l_ca_payreq_cd VARCHAR2(255) := '';
11203: l_ca_id NUMBER(15) := 0;
11204:
11205: l_paymentTab IBY_PAYGROUP_PUB.paymentTabType;
11206:
11207: /*
11208: * Stores the documents payable for all pmts in request.
11209: */
11206:
11207: /*
11208: * Stores the documents payable for all pmts in request.
11209: */
11210: l_docsInPmtTab IBY_PAYGROUP_PUB.docsInPaymentTabType;
11211:
11212: /*
11213: * Stores the documents payable for a single payment.
11214: */
11211:
11212: /*
11213: * Stores the documents payable for a single payment.
11214: */
11215: l_docsForPmtTab IBY_PAYGROUP_PUB.docsInPaymentTabType;
11216:
11217: l_pmt_amount IBY_PAYMENTS_ALL.payment_amount%TYPE;
11218:
11219: /*
11219: /*
11220: * For storing central bank reporting information related to
11221: * each payment.
11222: */
11223: -- l_cbrRec IBY_PAYGROUP_PUB.centralBankReportRecType;
11224: -- l_cbrTab IBY_PAYGROUP_PUB.centralBankReportTabType;
11225:
11226: /*
11227: * Cursor to pick up payments.
11220: * For storing central bank reporting information related to
11221: * each payment.
11222: */
11223: -- l_cbrRec IBY_PAYGROUP_PUB.centralBankReportRecType;
11224: -- l_cbrTab IBY_PAYGROUP_PUB.centralBankReportTabType;
11225:
11226: /*
11227: * Cursor to pick up payments.
11228: */
13835: ;
13836:
13837:
13838:
13839: l_pmtAuditRec IBY_PAYGROUP_PUB.paymentAuditRecType;
13840: l_pmtAuditTab IBY_PAYGROUP_PUB.paymentAuditTabType;
13841:
13842: BEGIN
13843:
13836:
13837:
13838:
13839: l_pmtAuditRec IBY_PAYGROUP_PUB.paymentAuditRecType;
13840: l_pmtAuditTab IBY_PAYGROUP_PUB.paymentAuditTabType;
13841:
13842: BEGIN
13843:
13844: print_debuginfo(l_module_name, 'ENTER');
14192: | NOTES:
14193: |
14194: *---------------------------------------------------------------------*/
14195: PROCEDURE sweepCommonPmtAttributes (
14196: x_paymentTab IN OUT NOCOPY IBY_PAYGROUP_PUB.paymentTabType,
14197: x_docsInPmtTab IN OUT NOCOPY IBY_PAYGROUP_PUB.docsInPaymentTabType
14198: )
14199: IS
14200: l_module_name CONSTANT VARCHAR2(200) := G_PKG_NAME
14193: |
14194: *---------------------------------------------------------------------*/
14195: PROCEDURE sweepCommonPmtAttributes (
14196: x_paymentTab IN OUT NOCOPY IBY_PAYGROUP_PUB.paymentTabType,
14197: x_docsInPmtTab IN OUT NOCOPY IBY_PAYGROUP_PUB.docsInPaymentTabType
14198: )
14199: IS
14200: l_module_name CONSTANT VARCHAR2(200) := G_PKG_NAME
14201: || '.sweepCommonPmtAttributes';
14619:
14620: END print_debuginfo;
14621:
14622:
14623: END IBY_PAYGROUP_PUB;