[Home] [Help]
1: PACKAGE BODY AP_CHECKS_PKG as
2: /* $Header: apichecb.pls 120.25.12020000.5 2012/07/26 15:37:31 shubhgup ship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5: X_Amount NUMBER,
150: BEGIN
151:
152: -- Update the calling sequence
153: --
154: current_calling_sequence := 'AP_CHECKS_PKG.INSERT_ROW<-' ||
155: X_calling_sequence;
156:
157: /* Added for bug#12393780 Start */
158: debug_info := 'Deriving the remit to Address';
226: l_Country := X_Country;
227: END;
228: /* Added for bug#12393780 End */
229:
230: debug_info := 'Insert into ap_checks';
231: AP_AC_TABLE_HANDLER_PKG.Insert_Row(
232: X_Rowid,
233: X_Amount,
234: X_Ce_Bank_Acct_Use_Id,
661: Relationship_Id,
662: Paycard_authorization_number,
663: Paycard_reference_id,
664: acknowledged_flag /* Added for NOEX */
665: FROM ap_checks_all
666: WHERE rowid = X_Rowid
667: FOR UPDATE of Check_Id NOWAIT;
668: Recinfo C%ROWTYPE;
669: current_calling_sequence VARCHAR2(2000);
672:
673: BEGIN
674: -- Update the calling sequence
675: --
676: current_calling_sequence := 'AP_CHECKS_PKG.LOCK_ROW<-' ||
677: X_calling_sequence;
678:
679: debug_info := 'Open cursor C';
680: OPEN C;
1217: X_paycard_reference_id NUMBER DEFAULT NULL
1218: ) IS
1219: current_calling_sequence VARCHAR2(2000);
1220: debug_info VARCHAR2(100);
1221: l_old_status_lookup_code AP_CHECKS.status_lookup_code%TYPE;
1222: BEGIN
1223: -- Update the calling sequence
1224: --
1225: current_calling_sequence := 'AP_CHECKS_PKG.UPDATE_ROW<-' ||
1221: l_old_status_lookup_code AP_CHECKS.status_lookup_code%TYPE;
1222: BEGIN
1223: -- Update the calling sequence
1224: --
1225: current_calling_sequence := 'AP_CHECKS_PKG.UPDATE_ROW<-' ||
1226: X_calling_sequence;
1227:
1228: -- We need to check if the payment is being matured/unmatured during this
1229: -- updated, i.e. if the status_lookup_code is going from ISSUED to MATURED
1248:
1249: debug_info := 'Retrieve existing status_lookup_code in the DB';
1250: SELECT status_lookup_code
1251: INTO l_old_status_lookup_code
1252: FROM ap_checks_all
1253: WHERE rowid = X_RowID;
1254:
1255: If (l_old_status_lookup_code = 'ISSUED' AND
1256: X_status_lookup_code = 'NEGOTIABLE')
1313: End If;
1314:
1315: End IF;
1316:
1317: debug_info := 'Update ap_checks';
1318: AP_AC_TABLE_HANDLER_PKG.Update_Row(
1319: X_Rowid,
1320: X_Amount,
1321: X_Ce_Bank_Acct_Use_Id,
1470:
1471: BEGIN
1472: -- Update the calling sequence
1473: --
1474: current_calling_sequence := 'AP_CHECKS_PKG.DELETE_ROW<-' ||
1475: X_calling_sequence;
1476: debug_info := 'Delete from ap_checks';
1477: AP_AC_TABLE_HANDLER_PKG.Delete_Row(
1478: X_Rowid,
1472: -- Update the calling sequence
1473: --
1474: current_calling_sequence := 'AP_CHECKS_PKG.DELETE_ROW<-' ||
1475: X_calling_sequence;
1476: debug_info := 'Delete from ap_checks';
1477: AP_AC_TABLE_HANDLER_PKG.Delete_Row(
1478: X_Rowid,
1479: current_calling_sequence);
1480:
1547: l_num_accounted_pay_hist NUMBER;
1548: BEGIN
1549: -- Update the calling sequence
1550: --
1551: current_calling_sequence := 'AP_CHECKS_PKG.is_maturity_accounted<-' ||
1552: X_calling_sequence;
1553: debug_info := 'Selecting from ap_payment_history';
1554: SELECT count(*)
1555: INTO l_num_accounted_pay_hist
1591: l_num_pay_hist NUMBER;
1592: BEGIN
1593: -- Update the calling sequence
1594: --
1595: current_calling_sequence := 'AP_CHECKS_PKG.is_payment_matured<-' ||
1596: X_calling_sequence;
1597: debug_info := 'Selecting from ap_payment_history';
1598: SELECT count(*)
1599: INTO l_num_pay_hist
1760: BEGIN
1761:
1762: -- Update the calling sequence
1763: --
1764: current_calling_sequence := 'AP_CHECKS_PKG.Subscribe_To_Payment_Event<-' ||
1765: P_calling_sequence;
1766:
1767: debug_info := 'Calling the subscribe payment event API';
1768:
1813:
1814: END Subscribe_To_Payment_Event;
1815:
1816:
1817: END AP_CHECKS_PKG;