DBA Data[Home] [Help]

APPS.AP_BANK_CHARGE_PKG dependencies on STANDARD

Line 548: P_bank_charge_standard OUT NOCOPY NUMBER,

544: P_transfer_priority IN VARCHAR2,
545: P_currency_code IN VARCHAR2,
546: P_transaction_amount IN NUMBER,
547: P_transaction_date IN DATE,
548: P_bank_charge_standard OUT NOCOPY NUMBER,
549: P_bank_charge_negotiated OUT NOCOPY NUMBER,
550: P_calc_bank_charge_standard OUT NOCOPY NUMBER,
551: P_calc_bank_charge_negotiated OUT NOCOPY NUMBER,
552: P_tolerance_limit OUT NOCOPY NUMBER) IS

Line 550: P_calc_bank_charge_standard OUT NOCOPY NUMBER,

546: P_transaction_amount IN NUMBER,
547: P_transaction_date IN DATE,
548: P_bank_charge_standard OUT NOCOPY NUMBER,
549: P_bank_charge_negotiated OUT NOCOPY NUMBER,
550: P_calc_bank_charge_standard OUT NOCOPY NUMBER,
551: P_calc_bank_charge_negotiated OUT NOCOPY NUMBER,
552: P_tolerance_limit OUT NOCOPY NUMBER) IS
553:
554:

Line 612: bank_charge_standard,

608: CURSOR C_CHARGE_LINE(X_bank_charge_id NUMBER,
609: X_transaction_date DATE) IS
610: SELECT trans_amount_from,
611: nvl(trans_amount_to, 99999999999999),
612: bank_charge_standard,
613: bank_charge_negotiated,
614: tolerance_limit
615: FROM ap_bank_charge_lines
616: WHERE bank_charge_id = X_bank_charge_id

Line 647: v_bank_charge_standard NUMBER;

643:
644: v_transaction_amount NUMBER;
645: v_trans_amount_from NUMBER;
646: v_trans_amount_to NUMBER;
647: v_bank_charge_standard NUMBER;
648: v_bank_charge_negotiated NUMBER;
649: v_tolerance_limit NUMBER;
650:
651: amount_bank_charge NUMBER;

Line 666: P_bank_charge_standard :=0;

662: END IF;
663:
664: v_precision := 0;
665: P_bank_charge_id := 0;
666: P_bank_charge_standard :=0;
667: P_bank_charge_negotiated :=0;
668: priority := 37;
669: temp_priority :=37;
670: temp_bank_charge_id := 0;

Line 793: /* S: Supplier/Standard */

789: if (P_bank_charge_id <>0) then
790: /**************************************************************/
791: /* Change the Supplier to appropriate value */
792: /* NOTE: Bank_Charge_Bearer I: Internal */
793: /* S: Supplier/Standard */
794: /* N: Supplier/Negotiated */
795:
796: l_debug_info := 'Bank Charge Id exits';
797: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 814: SELECT bank_charge_standard,

810: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
811: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
812: END IF;
813:
814: SELECT bank_charge_standard,
815: bank_charge_negotiated,
816: tolerance_limit
817: INTO P_bank_charge_standard,
818: P_bank_charge_negotiated,

Line 817: INTO P_bank_charge_standard,

813:
814: SELECT bank_charge_standard,
815: bank_charge_negotiated,
816: tolerance_limit
817: INTO P_bank_charge_standard,
818: P_bank_charge_negotiated,
819: P_tolerance_limit
820: FROM ap_bank_charge_lines
821: WHERE bank_charge_id = P_bank_charge_id

Line 843: v_bank_charge_standard,

839: LOOP
840:
841: FETCH C_CHARGE_LINE INTO v_trans_amount_from,
842: v_trans_amount_to,
843: v_bank_charge_standard,
844: v_bank_charge_negotiated,
845: v_tolerance_limit;
846: EXIT WHEN C_CHARGE_LINE%NOTFOUND;
847:

Line 856: v_bank_charge_standard;

852: Also replace amount_bank_charge with v_transaction_amount to.
853:
854: if(P_bank_charge_bearer = 'S') then
855: amount_bank_charge :=v_transaction_amount -
856: v_bank_charge_standard;
857: else
858: amount_bank_charge :=v_transaction_amount -
859: v_bank_charge_negotiated;
860: end if;

Line 866: P_bank_charge_standard := v_bank_charge_standard;

862:
863: if(v_transaction_amount >= 0 ) then
864: if(v_transaction_amount >= v_trans_amount_from) then
865: if(v_transaction_amount < v_trans_amount_to) then
866: P_bank_charge_standard := v_bank_charge_standard;
867: P_bank_charge_negotiated := v_bank_charge_negotiated;
868: P_tolerance_limit := v_tolerance_limit;
869: EXIT;
870: else

Line 871: P_bank_charge_standard := v_bank_charge_standard;

867: P_bank_charge_negotiated := v_bank_charge_negotiated;
868: P_tolerance_limit := v_tolerance_limit;
869: EXIT;
870: else
871: P_bank_charge_standard := v_bank_charge_standard;
872: P_bank_charge_negotiated := v_bank_charge_negotiated;
873: OPEN C_precision(P_currency_code);
874: FETCH C_precision INTO v_precision;
875: CLOSE C_precision;

Line 877: P_calc_bank_charge_standard :=

873: OPEN C_precision(P_currency_code);
874: FETCH C_precision INTO v_precision;
875: CLOSE C_precision;
876: if(P_bank_charge_bearer = 'S') then
877: P_calc_bank_charge_standard :=
878: v_transaction_amount - v_trans_amount_to
879: + 1/power(10, v_precision);
880: else
881: P_calc_bank_charge_negotiated :=

Line 999: bank_charge_standard,

995: CURSOR C_CHARGE_LINE(X_bank_charge_id NUMBER,
996: X_transaction_date DATE) IS
997: SELECT trans_amount_from,
998: nvl(trans_amount_to, 99999999999999),
999: bank_charge_standard,
1000: bank_charge_negotiated,
1001: tolerance_limit
1002: FROM ap_bank_charge_lines
1003: WHERE bank_charge_id = X_bank_charge_id

Line 1034: v_bank_charge_standard NUMBER;

1030:
1031: v_transaction_amount NUMBER;
1032: v_trans_amount_from NUMBER;
1033: v_trans_amount_to NUMBER;
1034: v_bank_charge_standard NUMBER;
1035: v_bank_charge_negotiated NUMBER;
1036: v_tolerance_limit NUMBER;
1037:
1038: amount_bank_charge NUMBER;

Line 1182: /* S: Supplier/Standard */

1178: if (P_bank_charge_id <>0) then
1179: /**************************************************************/
1180: /* Change the Supplier to appropriate value */
1181: /* NOTE: Bank_Charge_Bearer I: Internal */
1182: /* S: Supplier/Standard */
1183: /* N: Supplier/Negotiated */
1184:
1185: l_debug_info := 'Bank Charge Id exits';
1186: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 1203: SELECT bank_charge_standard,

1199: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1200: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1201: END IF;
1202:
1203: SELECT bank_charge_standard,
1204: bank_charge_negotiated,
1205: tolerance_limit
1206: INTO v_bank_charge_standard,
1207: v_bank_charge_negotiated,

Line 1206: INTO v_bank_charge_standard,

1202:
1203: SELECT bank_charge_standard,
1204: bank_charge_negotiated,
1205: tolerance_limit
1206: INTO v_bank_charge_standard,
1207: v_bank_charge_negotiated,
1208: v_tolerance_limit
1209: FROM ap_bank_charge_lines
1210: WHERE bank_charge_id = P_bank_charge_id

Line 1232: v_bank_charge_standard,

1228: P_transaction_date);
1229: LOOP
1230: FETCH C_CHARGE_LINE INTO v_trans_amount_from,
1231: v_trans_amount_to,
1232: v_bank_charge_standard,
1233: v_bank_charge_negotiated,
1234: v_tolerance_limit;
1235: EXIT WHEN C_CHARGE_LINE%NOTFOUND;
1236: if(P_bank_charge_bearer = 'S') then

Line 1238: v_bank_charge_standard;

1234: v_tolerance_limit;
1235: EXIT WHEN C_CHARGE_LINE%NOTFOUND;
1236: if(P_bank_charge_bearer = 'S') then
1237: amount_bank_charge :=v_transaction_amount -
1238: v_bank_charge_standard;
1239: else
1240: amount_bank_charge :=v_transaction_amount -
1241: v_bank_charge_negotiated;
1242: end if;

Line 1495: l_bank_charge_standard NUMBER;

1491: l_bc_ok_to_pay_flag VARCHAR2(1);
1492: l_bc_dont_pay_reason_code VARCHAR2(25);
1493: l_receiving_bank_branch_id NUMBER;
1494: l_transfer_priority VARCHAR2(25);
1495: l_bank_charge_standard NUMBER;
1496: l_bank_charge_negotiated NUMBER;
1497: l_calc_bank_charge_standard NUMBER;
1498: l_calc_bank_charge_negotiated NUMBER;
1499: l_tolerance_limit NUMBER;

Line 1497: l_calc_bank_charge_standard NUMBER;

1493: l_receiving_bank_branch_id NUMBER;
1494: l_transfer_priority VARCHAR2(25);
1495: l_bank_charge_standard NUMBER;
1496: l_bank_charge_negotiated NUMBER;
1497: l_calc_bank_charge_standard NUMBER;
1498: l_calc_bank_charge_negotiated NUMBER;
1499: l_tolerance_limit NUMBER;
1500: l_best_bank_charge NUMBER;
1501: l_num_of_invoices NUMBER;

Line 1535: -- Standard Start of API savepoint

1531: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1532: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1533: END IF;
1534:
1535: -- Standard Start of API savepoint
1536: SAVEPOINT AP_JAPANBANKCHARGEHOOK;
1537:
1538: l_debug_info := 'Checking API Compatibility';
1539: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 1543: -- Standard call to check for call compatibility.

1539: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1540: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1541: END IF;
1542:
1543: -- Standard call to check for call compatibility.
1544: IF NOT FND_API.Compatible_API_Call (l_api_version,
1545: p_api_version,
1546: l_api_name,
1547: G_PKG_NAME )

Line 1789: l_bank_charge_standard, -- OUT

1785: l_transfer_priority,
1786: l_currency_code,
1787: l_amt_due,
1788: l_payment_date,
1789: l_bank_charge_standard, -- OUT
1790: l_bank_charge_negotiated, -- OUT
1791: l_calc_bank_charge_standard, -- OUT
1792: l_calc_bank_charge_negotiated, -- OUT
1793: l_tolerance_limit); -- OUT, should always be 0.

Line 1791: l_calc_bank_charge_standard, -- OUT

1787: l_amt_due,
1788: l_payment_date,
1789: l_bank_charge_standard, -- OUT
1790: l_bank_charge_negotiated, -- OUT
1791: l_calc_bank_charge_standard, -- OUT
1792: l_calc_bank_charge_negotiated, -- OUT
1793: l_tolerance_limit); -- OUT, should always be 0.
1794:
1795: IF l_tolerance_limit is NULL THEN

Line 1831: SELECT greatest( nvl(l_bank_charge_standard,0),

1827: END IF;
1828:
1829:
1830: IF (l_bank_charge_bearer = 'S') then
1831: SELECT greatest( nvl(l_bank_charge_standard,0),
1832: nvl(l_calc_bank_charge_standard,0))
1833: INTO l_best_bank_charge
1834: FROM sys.dual;
1835:

Line 1832: nvl(l_calc_bank_charge_standard,0))

1828:
1829:
1830: IF (l_bank_charge_bearer = 'S') then
1831: SELECT greatest( nvl(l_bank_charge_standard,0),
1832: nvl(l_calc_bank_charge_standard,0))
1833: INTO l_best_bank_charge
1834: FROM sys.dual;
1835:
1836: ELSIF (l_bank_charge_bearer = 'N') then