eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.AP_BANK_CHARGE_PKG dependencies on FND_LOG

Line 13: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

9: G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;
10: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
11: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
12:
13: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;

Line 14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;

10: G_MSG_LOW CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW;
11: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
12:
13: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;

Line 15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;

11: G_LINES_PER_FETCH CONSTANT NUMBER := 1000;
12:
13: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;

Line 16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;

12:
13: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
20: G_MODULE_NAME CONSTANT VARCHAR2(80) := 'AP_BANK_CHARGE_PKG';

Line 17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;

13: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
20: G_MODULE_NAME CONSTANT VARCHAR2(80) := 'AP_BANK_CHARGE_PKG';
21:

Line 18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;

14: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
20: G_MODULE_NAME CONSTANT VARCHAR2(80) := 'AP_BANK_CHARGE_PKG';
21:
22: PROCEDURE get_bank_number(

Line 19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;

15: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
16: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
17: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
18: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
19: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
20: G_MODULE_NAME CONSTANT VARCHAR2(80) := 'AP_BANK_CHARGE_PKG';
21:
22: PROCEDURE get_bank_number(
23: P_bank_name IN VARCHAR2,

Line 38: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

34: BEGIN
35:
36: l_debug_info := 'Getting the Bank Number';
37: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
38: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
39: END IF;
40:
41: OPEN C_bank(P_bank_name);
42: FETCH C_bank INTO P_bank_number;

Line 60: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

56: BEGIN
57:
58: l_debug_info := 'Getting Bank Branch Info';
59: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
60: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
61: END IF;
62:
63: select bank_number, branch_number, bank_branch_name
64: into P_bank_number, P_branch_number, P_branch_name

Line 105: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

101: begin
102:
103: l_debug_info := 'Checking Bank Combination';
104: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
105: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
106: END IF;
107:
108: unique_check := 0;
109: if (P_transferring_bank_branch_id is NULL) then

Line 116: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

112: if (P_receiving_bank = 'ONE') then
113: /*1A1A*/
114: l_debug_info := '*1A1A*';
115: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
116: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
117: END IF;
118: select count(*) into unique_check
119: from ap_bank_charges
120: where transferring_bank_name = P_transferring_bank_name

Line 129: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

125: and currency_code = P_currency_code;
126: else /*1AAA*/
127: l_debug_info := '*1AAA*';
128: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
129: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
130: END IF;
131:
132: select count(*) into unique_check
133: from ap_bank_charges

Line 146: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

142: if (P_receiving_bank = 'ONE') then
143: /*AA1A*/
144: l_debug_info := '*AA1A*';
145: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
146: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
147: END IF;
148:
149: select count(*) into unique_check
150: from ap_bank_charges

Line 160: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

156: and currency_code = P_currency_code;
157: else /*AAAA*/
158: l_debug_info := '*AAAA*';
159: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
160: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
161: END IF;
162:
163: select count(*) into unique_check
164: from ap_bank_charges

Line 177: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

173: else /*1A11*/
174: if (P_transferring_bank = 'ONE') then
175: l_debug_info := '*1A11*';
176: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
177: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
178: END IF;
179:
180: select count(*) into unique_check
181: from ap_bank_charges

Line 192: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

188: and receiving_bank_name = P_receiving_bank_name ;
189: else /*AA11*/
190: l_debug_info := '*AA11*';
191: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
192: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
193: END IF;
194:
195: select count(*) into unique_check
196: from ap_bank_charges

Line 211: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

207: /* 11A1 */
208: if (P_receiving_bank = 'ONE') then
209: l_debug_info := '*11A1*';
210: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
211: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
212: END IF;
213:
214: select count(*) into unique_check
215: from ap_bank_charges

Line 226: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

222: and transferring_bank_name = P_transferring_bank_name;
223: else
224: l_debug_info := '*111A*';
225: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
226: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
227: END IF;
228: select count(*) into unique_check
229: from ap_bank_charges
230: where transferring_bank_branch_id = P_transferring_bank_branch_id

Line 241: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

237: end if/*P_receiving_bank_branch_id*/;
238: else /*1111*/
239: l_debug_info := '*1111*';
240: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
241: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
242: END IF;
243:
244: select count(*) into unique_check
245: from ap_bank_charges

Line 304: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

300: BEGIN
301:
302: l_debug_info := 'Checking Amount Range Overlap';
303: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
304: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
305: END IF;
306:
307: overlap :=0;
308: OPEN C_lines(X_bank_charge_id);

Line 318: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

314: EXIT WHEN C_lines%NOTFOUND;
315:
316: l_debug_info := 'Checking Whether any Amount Overlap exists';
317: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
318: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
319: END IF;
320:
321: select count(*) INTO overlap
322: from ap_bank_charge_lines

Line 381: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

377: BEGIN
378:
379: l_debug_info := 'Checking Amount Range Gap';
380: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
381: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
382: END IF;
383:
384: gap :=0;
385: zero_check :=0;

Line 396: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

392: EXIT WHEN C_lines%NOTFOUND;
393:
394: l_debug_info := 'Checking whether Amount Range Gap exists';
395: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
396: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
397: END IF;
398:
399: if (v_trans_amount_from <> 0) then
400: select count(*) INTO gap

Line 461: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

457: BEGIN
458:
459: l_debug_info := 'Checking Amount Last Range ';
460: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
461: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
462: END IF;
463:
464: cursor_check := 0;
465: OPEN C_lines(X_bank_charge_id);

Line 472: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

468: EXIT WHEN C_lines%NOTFOUND;
469:
470: l_debug_info := 'Checking whether it is Amount Last Range ';
471: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
472: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
473: END IF;
474:
475: cursor_check := 1;
476: select trans_amount_from into v_trans_amount_from

Line 490: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

486:
487: if SQL%FOUND then
488: l_debug_info := 'Amount Last Range Found ';
489: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
490: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
491: END IF;
492:
493: select max(trans_amount_to)
494: into v_trans_amount_to

Line 661: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

657: BEGIN
658:
659: l_debug_info := 'Get Bank Charge Begin';
660: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
661: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
662: END IF;
663:
664: v_precision := 0;
665: P_bank_charge_id := 0;

Line 677: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

673: (P_transfer_priority is null) then
674:
675: l_debug_info := 'Opening cursor for transferring bank info';
676: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
677: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
678: END IF;
679: OPEN C_get_bank_name(P_transferring_bank_branch_id);
680: FETCH C_get_bank_name INTO P_transferring_bank_name;
681: CLOSE C_get_bank_name;

Line 685: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

681: CLOSE C_get_bank_name;
682:
683: l_debug_info := 'Opening cursor for receiving bank info';
684: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
685: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
686: END IF;
687: OPEN C_get_bank_name(P_receiving_bank_branch_id);
688: FETCH C_get_bank_name INTO P_receiving_bank_name;
689: CLOSE C_get_bank_name;

Line 693: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

689: CLOSE C_get_bank_name;
690:
691: l_debug_info := 'Opening cursor for charge header';
692: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
693: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
694: END IF;
695: OPEN C_CHARGE_HEADER(
696: P_transferring_bank_branch_id,
697: P_transferring_bank_name,

Line 798: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

794: /* N: Supplier/Negotiated */
795:
796: l_debug_info := 'Bank Charge Id exits';
797: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
798: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
799: END IF;
800:
801: if(P_transaction_amount is NULL) then
802: v_transaction_amount := 0;

Line 811: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

807: ((P_bank_charge_bearer is null)and
808: (P_transfer_priority is null)) then
809: l_debug_info := 'Bank Charge Bearer is I';
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,

Line 833: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

829: (P_bank_charge_bearer = 'N') then
830:
831: l_debug_info := 'Bank Charge Bearer is not I';
832: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
833: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
834: END IF;
835:
836: OPEN C_CHARGE_LINE(P_bank_charge_id,
837: P_transaction_date);

Line 1049: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1045: BEGIN
1046:
1047: l_debug_info := 'Check Bank Charge Begin';
1048: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1049: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1050: END IF;
1051:
1052: v_precision := 0;
1053: P_bank_charge_id := 0;

Line 1064: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1060: if (P_bank_charge_bearer is not null) or
1061: (P_transfer_priority is null) then
1062: l_debug_info := 'Opening Cursor for transferring bank info';
1063: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1064: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1065: END IF;
1066:
1067: OPEN C_get_bank_name(P_transferring_bank_branch_id);
1068: FETCH C_get_bank_name INTO P_transferring_bank_name;

Line 1073: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1069: CLOSE C_get_bank_name;
1070:
1071: l_debug_info := 'Opening Cursor for receiving bank info';
1072: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1073: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1074: END IF;
1075:
1076: OPEN C_get_bank_name(P_receiving_bank_branch_id);
1077: FETCH C_get_bank_name INTO P_receiving_bank_name;

Line 1082: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1078: CLOSE C_get_bank_name;
1079:
1080: l_debug_info := 'Opening Charge Header Cursor';
1081: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1082: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1083: END IF;
1084:
1085: OPEN C_CHARGE_HEADER(
1086: P_transferring_bank_branch_id,

Line 1187: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1183: /* N: Supplier/Negotiated */
1184:
1185: l_debug_info := 'Bank Charge Id exits';
1186: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1187: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1188: END IF;
1189:
1190: if(P_transaction_amount is NULL) then
1191: v_transaction_amount := 0;

Line 1200: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1196: ((P_bank_charge_bearer is null)and
1197: (P_transfer_priority is null)) then
1198: l_debug_info := 'Bank Charge Bearer is I';
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,

Line 1223: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1219: (P_bank_charge_bearer = 'N') then
1220:
1221: l_debug_info := 'Bank Charge Bearer is not I';
1222: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1223: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1224: END IF;
1225:
1226:
1227: OPEN C_CHARGE_LINE(P_bank_charge_id,

Line 1314: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,current_calling_sequence);

1310: BEGIN
1311:
1312: current_calling_sequence := 'bank_charge_get_info<-'||P_calling_sequence;
1313: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1314: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,current_calling_sequence);
1315: END IF;
1316:
1317: l_debug_info := 'Get bank charge bearer from po vendor sites';
1318: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN

Line 1319: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1315: END IF;
1316:
1317: l_debug_info := 'Get bank charge bearer from po vendor sites';
1318: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1319: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1320: END IF;
1321:
1322:
1323: IF p_supplier_site_id IS NOT NULL THEN

Line 1334: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1330: END IF;
1331:
1332: l_debug_info := 'Get p_transferring_bank_branch_id';
1333: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1334: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1335: END IF;
1336:
1337: SELECT ABA.bank_branch_id
1338: INTO p_transferring_bank_branch_id

Line 1344: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1340: WHERE aba.bank_account_id = p_internal_bank_account_id;
1341:
1342: l_debug_info := 'Get p_receiving_bank_branch_id';
1343: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1344: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1345: END IF;
1346:
1347: if p_external_bank_account_id is not null then
1348:

Line 1358: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1354: end if;
1355:
1356: l_debug_info := 'Get transfer_priority and currency code';
1357: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1358: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1359: END IF;
1360:
1361:
1362: SELECT AISC.transfer_priority

Line 1372: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1368:
1369:
1370: l_debug_info := 'Get number of invoices for this check';
1371: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1372: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1373: END IF;
1374:
1375: SELECT count(*)
1376: INTO p_num_of_invoices

Line 1382: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1378: WHERE payment_id = p_selected_check_id;
1379:
1380: l_debug_info := 'Get min_account_unit and precision for currency';
1381: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1382: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1383: END IF;
1384:
1385: SELECT minimum_accountable_unit,
1386: nvl(precision, 0)

Line 1532: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1528: -------------------------------------------------------------------------
1529:
1530: l_debug_info := 'Creating 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;

Line 1540: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1536: SAVEPOINT AP_JAPANBANKCHARGEHOOK;
1537:
1538: l_debug_info := 'Checking API 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,

Line 1559: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1555: END IF;
1556:
1557: l_debug_info := 'Calling AP Void Pkg.Iby_Void_Check';
1558: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1559: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1560: END IF;
1561:
1562: -- Initialize API return status to success
1563: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 1577: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1573: LOOP
1574:
1575: l_debug_info := 'Fetch selected_checks Cursor';
1576: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1577: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1578: END IF;
1579:
1580:
1581: FETCH selected_checks

Line 1598: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1594: -- Step 2, Call Bank_charge_get_info for each check
1595: -------------------------------------------------------
1596: l_debug_info := 'Call Bank_charge_get_info';
1597: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1598: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1599: END IF;
1600:
1601:
1602: IF (bank_charge_get_info(

Line 1619: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1615: l_supplier_site_id) <> TRUE) THEN
1616: x_msg_data := 'Failed to derive transferring/receiving bank/branch info';
1617: l_debug_info := 'Failed to derive transferring/receiving bank/branch info';
1618: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1619: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1620: END IF;
1621: RAISE bank_charge_failure;
1622: END IF;
1623:

Line 1630: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1626: -- Step 3, Call Bank_charge_get_amt_due for each check
1627: -------------------------------------------------------
1628: l_debug_info := 'Call Bank_charge_get_amt_due';
1629: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1630: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1631: END IF;
1632:
1633:
1634: IF (bank_charge_get_amt_due(l_selected_check_id,

Line 1640: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1636: current_calling_sequence) <> TRUE) THEN
1637: x_msg_data := 'Failed to derive bank charge amount due';
1638: l_debug_info := 'Failed to derive bank charge amount due';
1639: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1640: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1641: END IF;
1642: RAISE bank_charge_failure;
1643: END IF;
1644:

Line 1659: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1655: -- Step 4.1
1656: -----------
1657: l_debug_info := 'Check all the mandatory parameters for ap_bank_charge_pkg.check_bank_charge';
1658: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1659: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1660: END IF;
1661:
1662: IF (l_bank_charge_bearer IS NULL OR
1663: l_transfer_priority IS NULL OR

Line 1670: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1666: l_payment_date IS NULL) THEN
1667: x_msg_data := 'Can not call Check_Bank_Charge function because of mandatory parameter';
1668: l_debug_info := 'Can not call Check_Bank_Charge function because of mandatory parameter';
1669: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1670: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1671: END IF;
1672: RAISE bank_charge_failure;
1673:
1674: END IF;

Line 1680: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1676: -- Step 4.2
1677: ------------
1678: l_debug_info := 'Call ap_bank_charge_pkg.check_bank_charge';
1679: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1680: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1681: END IF;
1682:
1683: CHECK_BANK_CHARGE(
1684: l_bank_charge_bearer,

Line 1725: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1721: -------------------------------------------------
1722: if (NVL(l_bc_ok_to_pay_flag,'Y') = 'N') then
1723: l_debug_info := 'Update iby_hook_payments_t if ok_to_pay_flag is N';
1724: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1725: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1726: END IF;
1727:
1728: UPDATE iby_hook_payments_t
1729: SET payment_amount = 0,

Line 1759: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1755: -- Step 5.1
1756: -----------
1757: l_debug_info := 'Check all the mandatory parameters for ap_bank_charge_pkg.get_bank_charge';
1758: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1759: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1760: END IF;
1761:
1762:
1763: IF (l_bank_charge_bearer IS NULL OR

Line 1777: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1773: -- Step 5.2
1774: -----------
1775: l_debug_info := 'Call ap_bank_charge_pkg.get_bank_charge';
1776: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1777: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1778: END IF;
1779:
1780:
1781: GET_BANK_CHARGE(

Line 1826: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1822: -- Step 6, Get the best deal for bank charge
1823: -------------------------------------------------------------
1824: l_debug_info := 'Get the best bank charge';
1825: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1826: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1827: END IF;
1828:
1829:
1830: IF (l_bank_charge_bearer = 'S') then

Line 1853: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1849: -- 2, subtract the bank charge amount from the check amount
1850: ----------------------------------------------------------
1851: l_debug_info := 'Update iby_hook_payments_t';
1852: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1853: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1854: END IF;
1855:
1856: UPDATE iby_hook_payments_t
1857: SET DISCOUNT_AMOUNT_TAKEN= l_best_bank_charge,

Line 1872: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1868: -- payment_amount and proposed_payment_amount
1869: ----------------------------------------------------------
1870: l_debug_info := 'Update iby_hook_docs_in_pmt_t';
1871: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1872: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1873: END IF;
1874:
1875:
1876: UPDATE iby_hook_docs_in_pmt_t

Line 1912: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1908: -- for all invoices and the new check_amount
1909: ----------------------------------------------------------
1910: l_debug_info := 'Calculate the rounding error';
1911: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1912: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1913: END IF;
1914:
1915:
1916: SELECT l_amt_due - l_best_bank_charge - SUM(payment_amount)

Line 1928: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

1924: -- proposed_payment_amount of the first invoice
1925: ----------------------------------------------------------
1926: l_debug_info := 'Fix rounding error';
1927: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1928: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
1929: END IF;
1930:
1931: IF (l_rounding_error <> 0) then
1932:

Line 2029: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);

2025: END LOOP;
2026:
2027: l_debug_info := 'Close selected_checks Cursor';
2028: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2029: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
2030: END IF;
2031:
2032:
2033: CLOSE selected_checks;