[Home] [Help]
1: PACKAGE BODY AP_CHECKS_PKG as
2: /* $Header: apichecb.pls 120.15.12010000.5 2009/02/06 11:54:28 cjain ship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5: X_Amount NUMBER,
136: BEGIN
137:
138: -- Update the calling sequence
139: --
140: current_calling_sequence := 'AP_CHECKS_PKG.INSERT_ROW<-' ||
141: X_calling_sequence;
142:
143: debug_info := 'Insert into ap_checks';
144: AP_AC_TABLE_HANDLER_PKG.Insert_Row(
139: --
140: current_calling_sequence := 'AP_CHECKS_PKG.INSERT_ROW<-' ||
141: X_calling_sequence;
142:
143: debug_info := 'Insert into ap_checks';
144: AP_AC_TABLE_HANDLER_PKG.Insert_Row(
145: X_Rowid,
146: X_Amount,
147: X_Ce_Bank_Acct_Use_Id,
567: Remit_To_Supplier_Site_Id,
568: Relationship_Id,
569: Paycard_authorization_number,
570: Paycard_reference_id
571: FROM ap_checks_all
572: WHERE rowid = X_Rowid
573: FOR UPDATE of Check_Id NOWAIT;
574: Recinfo C%ROWTYPE;
575: current_calling_sequence VARCHAR2(2000);
578:
579: BEGIN
580: -- Update the calling sequence
581: --
582: current_calling_sequence := 'AP_CHECKS_PKG.LOCK_ROW<-' ||
583: X_calling_sequence;
584:
585: debug_info := 'Open cursor C';
586: OPEN C;
1099: X_paycard_reference_id NUMBER DEFAULT NULL
1100: ) IS
1101: current_calling_sequence VARCHAR2(2000);
1102: debug_info VARCHAR2(100);
1103: l_old_status_lookup_code AP_CHECKS.status_lookup_code%TYPE;
1104: BEGIN
1105: -- Update the calling sequence
1106: --
1107: current_calling_sequence := 'AP_CHECKS_PKG.UPDATE_ROW<-' ||
1103: l_old_status_lookup_code AP_CHECKS.status_lookup_code%TYPE;
1104: BEGIN
1105: -- Update the calling sequence
1106: --
1107: current_calling_sequence := 'AP_CHECKS_PKG.UPDATE_ROW<-' ||
1108: X_calling_sequence;
1109:
1110: -- We need to check if the payment is being matured/unmatured during this
1111: -- updated, i.e. if the status_lookup_code is going from ISSUED to MATURED
1130:
1131: debug_info := 'Retrieve existing status_lookup_code in the DB';
1132: SELECT status_lookup_code
1133: INTO l_old_status_lookup_code
1134: FROM ap_checks_all
1135: WHERE rowid = X_RowID;
1136:
1137: If (l_old_status_lookup_code = 'ISSUED' AND
1138: X_status_lookup_code = 'NEGOTIABLE')
1195: End If;
1196:
1197: End IF;
1198:
1199: debug_info := 'Update ap_checks';
1200: AP_AC_TABLE_HANDLER_PKG.Update_Row(
1201: X_Rowid,
1202: X_Amount,
1203: X_Ce_Bank_Acct_Use_Id,
1352:
1353: BEGIN
1354: -- Update the calling sequence
1355: --
1356: current_calling_sequence := 'AP_CHECKS_PKG.DELETE_ROW<-' ||
1357: X_calling_sequence;
1358: debug_info := 'Delete from ap_checks';
1359: AP_AC_TABLE_HANDLER_PKG.Delete_Row(
1360: X_Rowid,
1354: -- Update the calling sequence
1355: --
1356: current_calling_sequence := 'AP_CHECKS_PKG.DELETE_ROW<-' ||
1357: X_calling_sequence;
1358: debug_info := 'Delete from ap_checks';
1359: AP_AC_TABLE_HANDLER_PKG.Delete_Row(
1360: X_Rowid,
1361: current_calling_sequence);
1362:
1429: l_num_accounted_pay_hist NUMBER;
1430: BEGIN
1431: -- Update the calling sequence
1432: --
1433: current_calling_sequence := 'AP_CHECKS_PKG.is_maturity_accounted<-' ||
1434: X_calling_sequence;
1435: debug_info := 'Selecting from ap_payment_history';
1436: SELECT count(*)
1437: INTO l_num_accounted_pay_hist
1473: l_num_pay_hist NUMBER;
1474: BEGIN
1475: -- Update the calling sequence
1476: --
1477: current_calling_sequence := 'AP_CHECKS_PKG.is_payment_matured<-' ||
1478: X_calling_sequence;
1479: debug_info := 'Selecting from ap_payment_history';
1480: SELECT count(*)
1481: INTO l_num_pay_hist
1642: BEGIN
1643:
1644: -- Update the calling sequence
1645: --
1646: current_calling_sequence := 'AP_CHECKS_PKG.Subscribe_To_Payment_Event<-' ||
1647: P_calling_sequence;
1648:
1649: debug_info := 'Calling the subscribe payment event API';
1650:
1688:
1689: END Subscribe_To_Payment_Event;
1690:
1691:
1692: END AP_CHECKS_PKG;