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 820: /* S: Supplier/Standard */

816: if (P_bank_charge_id <>0) then
817: /**************************************************************/
818: /* Change the Supplier to appropriate value */
819: /* NOTE: Bank_Charge_Bearer I: Internal */
820: /* S: Supplier/Standard */
821: /* N: Supplier/Negotiated */
822:
823: l_debug_info := 'Bank Charge Id exits';
824: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 841: SELECT bank_charge_standard,

837: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
838: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
839: END IF;
840:
841: SELECT bank_charge_standard,
842: bank_charge_negotiated,
843: tolerance_limit
844: INTO P_bank_charge_standard,
845: P_bank_charge_negotiated,

Line 844: INTO P_bank_charge_standard,

840:
841: SELECT bank_charge_standard,
842: bank_charge_negotiated,
843: tolerance_limit
844: INTO P_bank_charge_standard,
845: P_bank_charge_negotiated,
846: P_tolerance_limit
847: FROM ap_bank_charge_lines
848: WHERE bank_charge_id = P_bank_charge_id

Line 870: v_bank_charge_standard,

866: LOOP
867:
868: FETCH C_CHARGE_LINE INTO v_trans_amount_from,
869: v_trans_amount_to,
870: v_bank_charge_standard,
871: v_bank_charge_negotiated,
872: v_tolerance_limit;
873: EXIT WHEN C_CHARGE_LINE%NOTFOUND;
874:

Line 883: v_bank_charge_standard;

879: Also replace amount_bank_charge with v_transaction_amount to.
880:
881: if(P_bank_charge_bearer = 'S') then
882: amount_bank_charge :=v_transaction_amount -
883: v_bank_charge_standard;
884: else
885: amount_bank_charge :=v_transaction_amount -
886: v_bank_charge_negotiated;
887: end if;

Line 893: P_bank_charge_standard := v_bank_charge_standard;

889:
890: if(v_transaction_amount >= 0 ) then
891: if(v_transaction_amount >= v_trans_amount_from) then
892: if(v_transaction_amount < v_trans_amount_to) then
893: P_bank_charge_standard := v_bank_charge_standard;
894: P_bank_charge_negotiated := v_bank_charge_negotiated;
895: P_tolerance_limit := v_tolerance_limit;
896: EXIT;
897: else

Line 898: P_bank_charge_standard := v_bank_charge_standard;

894: P_bank_charge_negotiated := v_bank_charge_negotiated;
895: P_tolerance_limit := v_tolerance_limit;
896: EXIT;
897: else
898: P_bank_charge_standard := v_bank_charge_standard;
899: P_bank_charge_negotiated := v_bank_charge_negotiated;
900: OPEN C_precision(P_currency_code);
901: FETCH C_precision INTO v_precision;
902: CLOSE C_precision;

Line 904: P_calc_bank_charge_standard :=

900: OPEN C_precision(P_currency_code);
901: FETCH C_precision INTO v_precision;
902: CLOSE C_precision;
903: if(P_bank_charge_bearer = 'S') then
904: P_calc_bank_charge_standard :=
905: v_transaction_amount - v_trans_amount_to
906: + 1/power(10, v_precision);
907: else
908: P_calc_bank_charge_negotiated :=

Line 1052: bank_charge_standard,

1048: CURSOR C_CHARGE_LINE(X_bank_charge_id NUMBER,
1049: X_transaction_date DATE) IS
1050: SELECT trans_amount_from,
1051: nvl(trans_amount_to, 99999999999999),
1052: bank_charge_standard,
1053: bank_charge_negotiated,
1054: tolerance_limit
1055: FROM ap_bank_charge_lines
1056: WHERE bank_charge_id = X_bank_charge_id

Line 1087: v_bank_charge_standard NUMBER;

1083:
1084: v_transaction_amount NUMBER;
1085: v_trans_amount_from NUMBER;
1086: v_trans_amount_to NUMBER;
1087: v_bank_charge_standard NUMBER;
1088: v_bank_charge_negotiated NUMBER;
1089: v_tolerance_limit NUMBER;
1090:
1091: amount_bank_charge NUMBER;

Line 1260: /* S: Supplier/Standard */

1256: if (P_bank_charge_id <>0) then
1257: /**************************************************************/
1258: /* Change the Supplier to appropriate value */
1259: /* NOTE: Bank_Charge_Bearer I: Internal */
1260: /* S: Supplier/Standard */
1261: /* N: Supplier/Negotiated */
1262:
1263: l_debug_info := 'Bank Charge Id exits';
1264: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 1281: SELECT bank_charge_standard,

1277: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1278: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1279: END IF;
1280:
1281: SELECT bank_charge_standard,
1282: bank_charge_negotiated,
1283: tolerance_limit
1284: INTO v_bank_charge_standard,
1285: v_bank_charge_negotiated,

Line 1284: INTO v_bank_charge_standard,

1280:
1281: SELECT bank_charge_standard,
1282: bank_charge_negotiated,
1283: tolerance_limit
1284: INTO v_bank_charge_standard,
1285: v_bank_charge_negotiated,
1286: v_tolerance_limit
1287: FROM ap_bank_charge_lines
1288: WHERE bank_charge_id = P_bank_charge_id

Line 1310: v_bank_charge_standard,

1306: P_transaction_date);
1307: LOOP
1308: FETCH C_CHARGE_LINE INTO v_trans_amount_from,
1309: v_trans_amount_to,
1310: v_bank_charge_standard,
1311: v_bank_charge_negotiated,
1312: v_tolerance_limit;
1313: EXIT WHEN C_CHARGE_LINE%NOTFOUND;
1314: if(P_bank_charge_bearer = 'S') then

Line 1316: v_bank_charge_standard;

1312: v_tolerance_limit;
1313: EXIT WHEN C_CHARGE_LINE%NOTFOUND;
1314: if(P_bank_charge_bearer = 'S') then
1315: amount_bank_charge :=v_transaction_amount -
1316: v_bank_charge_standard;
1317: else
1318: amount_bank_charge :=v_transaction_amount -
1319: v_bank_charge_negotiated;
1320: end if;

Line 1604: l_bank_charge_standard NUMBER;

1600: l_bc_ok_to_pay_flag VARCHAR2(1);
1601: l_bc_dont_pay_reason_code VARCHAR2(25);
1602: l_receiving_bank_branch_id NUMBER;
1603: l_transfer_priority VARCHAR2(25);
1604: l_bank_charge_standard NUMBER;
1605: l_bank_charge_negotiated NUMBER;
1606: l_calc_bank_charge_standard NUMBER;
1607: l_calc_bank_charge_negotiated NUMBER;
1608: l_tolerance_limit NUMBER;

Line 1606: l_calc_bank_charge_standard NUMBER;

1602: l_receiving_bank_branch_id NUMBER;
1603: l_transfer_priority VARCHAR2(25);
1604: l_bank_charge_standard NUMBER;
1605: l_bank_charge_negotiated NUMBER;
1606: l_calc_bank_charge_standard NUMBER;
1607: l_calc_bank_charge_negotiated NUMBER;
1608: l_tolerance_limit NUMBER;
1609: l_best_bank_charge NUMBER;
1610: l_num_of_invoices NUMBER;

Line 1644: -- Standard Start of API savepoint

1640: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1641: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1642: END IF;
1643:
1644: -- Standard Start of API savepoint
1645: SAVEPOINT AP_JAPANBANKCHARGEHOOK;
1646:
1647: l_debug_info := 'Checking API Compatibility';
1648: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

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

1648: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1649: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1650: END IF;
1651:
1652: -- Standard call to check for call compatibility.
1653: IF NOT FND_API.Compatible_API_Call (l_api_version,
1654: p_api_version,
1655: l_api_name,
1656: G_PKG_NAME )

Line 1904: l_bank_charge_standard, -- OUT

1900: l_transfer_priority,
1901: l_currency_code,
1902: l_amt_due,
1903: l_payment_date,
1904: l_bank_charge_standard, -- OUT
1905: l_bank_charge_negotiated, -- OUT
1906: l_calc_bank_charge_standard, -- OUT
1907: l_calc_bank_charge_negotiated, -- OUT
1908: l_tolerance_limit); -- OUT, should always be 0.

Line 1906: l_calc_bank_charge_standard, -- OUT

1902: l_amt_due,
1903: l_payment_date,
1904: l_bank_charge_standard, -- OUT
1905: l_bank_charge_negotiated, -- OUT
1906: l_calc_bank_charge_standard, -- OUT
1907: l_calc_bank_charge_negotiated, -- OUT
1908: l_tolerance_limit); -- OUT, should always be 0.
1909:
1910: IF l_tolerance_limit is NULL THEN

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

1942: END IF;
1943:
1944:
1945: IF (l_bank_charge_bearer = 'S') then
1946: SELECT greatest( nvl(l_bank_charge_standard,0),
1947: nvl(l_calc_bank_charge_standard,0))
1948: INTO l_best_bank_charge
1949: FROM sys.dual;
1950:

Line 1947: nvl(l_calc_bank_charge_standard,0))

1943:
1944:
1945: IF (l_bank_charge_bearer = 'S') then
1946: SELECT greatest( nvl(l_bank_charge_standard,0),
1947: nvl(l_calc_bank_charge_standard,0))
1948: INTO l_best_bank_charge
1949: FROM sys.dual;
1950:
1951: ELSIF (l_bank_charge_bearer = 'N') then