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.

[Home] [Help]

APPS.AP_FUNDS_CONTROL_PKG dependencies on FND_LOG

Line 5: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

1: PACKAGE BODY AP_FUNDS_CONTROL_PKG AS
2: /* $Header: aprfundb.pls 120.58 2011/10/21 12:00:21 rseeta ship $ */
3:
4: -- Logging Infra
5: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;

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

2: /* $Header: aprfundb.pls 120.58 2011/10/21 12:00:21 rseeta ship $ */
3:
4: -- Logging Infra
5: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;

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

3:
4: -- Logging Infra
5: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
11: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;

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

4: -- Logging Infra
5: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
11: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;

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

5: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
11: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
13: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_FUNDS_CONTROL_PKG.';

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

6: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
11: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
13: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_FUNDS_CONTROL_PKG.';
14: G_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;

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

7: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
11: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
13: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_FUNDS_CONTROL_PKG.';
14: G_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
15: --1-STATEMENT, 2-PROCEDURE, 3-EVENT, 4-EXCEPTION, 5-ERROR, 6-UNEXPECTED

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

8: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
11: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
13: G_MODULE_NAME CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_FUNDS_CONTROL_PKG.';
14: G_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
15: --1-STATEMENT, 2-PROCEDURE, 3-EVENT, 4-EXCEPTION, 5-ERROR, 6-UNEXPECTED
16:

Line 83: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

79: l_enc_enabled VARCHAR2(1);
80:
81: -- Logging Infra:
82: l_procedure_name CONSTANT VARCHAR2(30) := 'Encumbrance_Enabled';
83: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
84:
85: BEGIN
86:
87: -- Logging Infra: Procedure level

Line 90: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

86:
87: -- Logging Infra: Procedure level
88: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
89: l_log_msg := 'Begin of procedure '|| l_procedure_name;
90: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
91: l_procedure_name||'.begin', l_log_msg);
92: END IF;
93:
94: BEGIN

Line 113: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

109:
110: -- Logging Infra: Procedure level
111: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
112: l_log_msg := 'End of procedure '|| l_procedure_name;
113: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
114: l_procedure_name, l_log_msg);
115: END IF;
116:
117: EXCEPTION

Line 157: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

153: p_calling_sequence IN VARCHAR2 DEFAULT NULL)
154: IS
155: l_curr_calling_sequence VARCHAR2(2000);
156: l_procedure_name CONSTANT VARCHAR2(30) := 'Encum_Unprocessed_Events_Del';
157: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
158: l_enc_enabled VARCHAR2(1);
159: l_org_id NUMBER;
160:
161: -- bug13114217, added join with AP_INVOICES_ALL

Line 187: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

183:
184: -- Logging Infra: Procedure level
185: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
186: l_log_msg := 'Begin of procedure '|| l_procedure_name;
187: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
188: l_procedure_name, l_log_msg);
189: END IF;
190:
191: l_curr_calling_sequence := 'AP_FUNDS_CONTROL_PKG.'||'<-'||p_calling_sequence;

Line 207: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);

203: IF (l_enc_enabled='Y') THEN
204:
205: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
206: l_log_msg := 'Before deletion of unprocessed events';
207: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||l_procedure_name, l_log_msg);
208: END IF;
209:
210: FOR rec_event IN c_get_unprocessed_events
211: LOOP

Line 247: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

243: END LOOP;
244:
245: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
246: l_log_msg := 'End of procedure '|| l_procedure_name;
247: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
248: l_procedure_name, l_log_msg);
249: END IF;
250: END IF;
251:

Line 310: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

306:
307:
308: -- Logging Infra:
309: l_procedure_name CONSTANT VARCHAR2(30) := 'Setup_Gl_FundsCtrl_Params';
310: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
311:
312: BEGIN
313:
314: -- Logging Infra: Procedure level

Line 317: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

313:
314: -- Logging Infra: Procedure level
315: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
316: l_log_msg := 'Begin of procedure '|| l_procedure_name;
317: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
318: l_procedure_name, l_log_msg);
319: END IF;
320:
321: /*-----------------------------------------------------------------+

Line 331: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

327:
328:
329: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
330: l_log_msg := 'Calling mode is ' || p_called_by ;
331: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
332: l_procedure_name, l_log_msg);
333: END IF;
334:
335: p_bc_mode := 'P'; -- reserve funds --

Line 341: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

337: ELSE
338:
339: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
340: l_log_msg := 'Called by Funds Check';
341: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
342: l_procedure_name||'.begin', l_log_msg);
343: END IF;
344:
345: p_bc_mode := 'C'; -- check funds --

Line 351: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

347: END IF;
348:
349: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
350: l_log_msg := 'End of procedure '|| l_procedure_name;
351: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
352: l_procedure_name, l_log_msg);
353: END IF;
354:
355: EXCEPTION

Line 406: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

402: l_resp_id NUMBER;
403:
404: -- Logging Infra:
405: l_procedure_name CONSTANT VARCHAR2(30) := 'FundsReserve_Init';
406: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
407:
408: BEGIN
409:
410: l_curr_calling_sequence := 'AP_FUNDS_CONTROL_PKG.'||

Line 422: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

418:
419: -- Logging Infra: Procedure level
420: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
421: l_log_msg := 'Begin of procedure '|| l_procedure_name;
422: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
423: l_procedure_name, l_log_msg);
424: END IF;
425:
426: p_override_mode := 'Y';

Line 437: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

433:
434: -- Logging Infra: Procedure level
435: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
436: l_log_msg := 'Check if insufficient funds hold was user released';
437: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
438: l_procedure_name, l_log_msg);
439: END IF;
440:
441: AP_APPROVAL_PKG.Get_Hold_Status(

Line 464: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME|| l_procedure_name, l_log_msg);

460:
461: -- Logging Infra: Procedure level
462: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
463: l_log_msg := 'Hold was released by user.';
464: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME|| l_procedure_name, l_log_msg);
465: END IF;
466:
467: IF (l_resp_id IS NOT NULL) THEN
468:

Line 478: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

474: END IF; -- l_hold_status = 'RELEASED BY USER' --
475:
476: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
477: l_log_msg := 'End of procedure '|| l_procedure_name;
478: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
479: l_procedure_name, l_log_msg);
480: END IF;
481: EXCEPTION
482: WHEN OTHERS THEN

Line 538: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

534: p_calling_sequence IN VARCHAR2) IS
535:
536: l_curr_calling_sequence VARCHAR2(2000);
537: l_procedure_name CONSTANT VARCHAR2(30) := 'Fundscheck_Init';
538: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
539:
540: BEGIN
541:
542: -- Update the calling sequence --

Line 553: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

549: +-----------------------------------------------------------------*/
550:
551: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
552: l_log_msg := 'Begin of procedure '|| l_procedure_name;
553: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
554: l_procedure_name, l_log_msg);
555: END IF;
556:
557: BEGIN

Line 589: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

585: FND_PROFILE.GET('USER_ID', p_gl_user_id);
586:
587: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
588: l_log_msg := 'End of procedure '|| l_procedure_name;
589: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
590: l_procedure_name, l_log_msg);
591: END IF;
592:
593:

Line 628: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

624: p_fc_result_code IN OUT NOCOPY VARCHAR2) IS
625:
626: -- Logging Infra:
627: l_procedure_name CONSTANT VARCHAR2(30) := 'Get_GL_FundsChk_Result_Code';
628: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
629:
630: BEGIN
631:
632: ---------------------------------------------------------------

Line 639: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

635:
636: -- Logging Infra: Procedure level
637: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
638: l_log_msg := 'Begin of procedure '|| l_procedure_name;
639: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
640: l_procedure_name, l_log_msg);
641: END IF;
642:
643: BEGIN

Line 663: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

659:
660: -- Logging Infra: Procedure level
661: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
662: l_log_msg := 'End of procedure '|| l_procedure_name;
663: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
664: l_procedure_name, l_log_msg);
665: END IF;
666:
667: EXCEPTION

Line 976: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

972: PSA_API_EXCEPTION EXCEPTION;
973:
974: -- Logging Infra:
975: l_procedure_name CONSTANT VARCHAR2(30) := 'Funds_Reserve';
976: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
977:
978:
979: BEGIN
980: l_curr_calling_sequence := 'AP_FUNDS_CONTROL_PKG.'||l_debug_loc||

Line 986: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

982:
983: -- Logging Infra: Procedure level
984: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
985: l_log_msg := 'Begin of procedure '|| l_procedure_name;
986: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
987: l_procedure_name, l_log_msg);
988: END IF;
989: l_debug_info := 'Initialize other variables';
990:

Line 1000: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

996:
997: --Bug 5487757
998: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
999: l_log_msg := 'Selecting Org_Id for determining Encumbrance Enabled or not' ;
1000: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
1001: l_procedure_name, l_log_msg);
1002: END IF;
1003:
1004: SELECT org_id

Line 1018: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

1014:
1015: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
1016: l_log_msg := 'FUNDSRESERVE - Encumbrance enabled and ' ||
1017: 'setup gl_fundschecker parameters ';
1018: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
1019: l_procedure_name, l_log_msg);
1020: END IF;
1021:
1022: /*-----------------------------------------------------------------+

Line 1041: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

1037:
1038: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
1039: l_log_msg := ' call api to get override mode ' ||
1040: 'ID informaiton';
1041: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
1042: l_procedure_name, l_log_msg);
1043: END IF;
1044:
1045: FundsReserve_Init(

Line 1063: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

1059:
1060: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
1061: l_log_msg := ' Update encumbered flag of recoverable ' ||
1062: 'tax distributions to R';
1063: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
1064: l_procedure_name, l_log_msg);
1065: END IF;
1066:
1067: Update ap_invoice_distributions_all

Line 1079: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1075: +-----------------------------------------------------------------*/
1076:
1077: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1078: l_log_msg := 'Step 3 - Open FundsCntrl_Inv_Dist_Cur Cursor';
1079: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1080: l_procedure_name, l_log_msg);
1081: END IF;
1082:
1083: OPEN cur_fc_dist;

Line 1095: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1091: +-----------------------------------------------------------------*/
1092:
1093: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1094: l_log_msg := 'Step 3 - Call psa_ap_bc_pvt.Create_Events';
1095: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1096: l_procedure_name, l_log_msg);
1097: END IF;
1098:
1099: IF ( t_funds_dist_tab.COUNT <> 0 ) THEN

Line 1127: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1123:
1124: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1125: l_log_msg := 'Call psa_ap_bc_pvt.reinstate_po_encumbrance returned' ||
1126: 'l_return_status =' || l_return_status;
1127: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1128: l_procedure_name, l_log_msg);
1129: END IF;
1130:
1131: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

Line 1141: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1137: WHEN OTHERS THEN
1138: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1139: l_log_msg := 'Call psa_ap_bc_pvt.reinstate_po_encumbrance '||
1140: 'raised an Exception' ||SQLERRM;
1141: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1142: l_procedure_name, l_log_msg);
1143: END IF;
1144:
1145: l_cant_fundsck_exists := 'Y';

Line 1165: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1161:
1162: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1163: l_log_msg := 'Call psa_ap_bc_pvt.Create_Events returned' ||
1164: 'l_return_status =' || l_return_status;
1165: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1166: l_procedure_name, l_log_msg);
1167: END IF;
1168:
1169: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

Line 1179: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1175: WHEN OTHERS THEN
1176: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1177: l_log_msg := 'Call psa_ap_bc_pvt.Create_Events '||
1178: 'raised an Exception' ||SQLERRM;
1179: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1180: l_procedure_name, l_log_msg);
1181: END IF;
1182:
1183: l_cant_fundsck_exists := 'Y';

Line 1195: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1191: +-----------------------------------------------------------------*/
1192:
1193: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1194: l_log_msg := 'Step 4 - Call PSA_BC_XLA_PUB.Budgetary_Control';
1195: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1196: l_procedure_name, l_log_msg);
1197: END IF;
1198:
1199: -- bug9026201

Line 1219: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1215: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1216: l_log_msg := 'Call psa_ap_bc_pvt.Budgetary_Control returned' ||
1217: 'l_return_status =' || l_return_status ||
1218: 'l_packet_id =' || to_char(l_packet_id);
1219: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1220: l_procedure_name, l_log_msg);
1221: END IF;
1222:
1223: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

Line 1233: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1229: WHEN OTHERS THEN
1230: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1231: l_log_msg := 'Call psa_ap_bc_pvt.Budgetary_Control '||
1232: 'raised an Exception' ||SQLERRM;
1233: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1234: l_procedure_name, l_log_msg);
1235: END IF;
1236:
1237: l_cant_fundsck_exists := 'Y';

Line 1252: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1248: +-----------------------------------------------------------------*/
1249:
1250: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1251: l_log_msg := 'Step 6.1 - process return code =' || l_return_code ;
1252: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1253: l_procedure_name, l_log_msg);
1254: END IF;
1255:
1256: --Bug 9136390 Starts

Line 1262: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1258: l_enc_acctg_fail_exists := 'Y';
1259: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1260: l_log_msg := 'l_enc_acctg_fail_exists is set' ||
1261: 'l_enc_acctg_fail_exists' || l_enc_acctg_fail_exists;
1262: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1263: l_procedure_name, l_log_msg);
1264: END IF;
1265: --Bug 9136390 Ends
1266: ELSIF ( l_return_code = 'FATAL' ) THEN --Bug 9136390

Line 1272: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1268: l_cant_fundsck_exists := 'Y';
1269: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1270: l_log_msg := 'l_cant_fundsck_exists is set' ||
1271: 'l_cant_fundsck_exists' || l_cant_fundsck_exists;
1272: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1273: l_procedure_name, l_log_msg);
1274: END IF;
1275:
1276: ELSE

Line 1282: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1278: l_insuff_funds_exists := 'Y';
1279: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1280: l_log_msg := 'l_insuff_funds_exists is set' ||
1281: 'l_insuff_funds_exists' || l_insuff_funds_exists;
1282: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1283: l_procedure_name, l_log_msg);
1284: END IF;
1285:
1286: END IF;

Line 1293: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1289:
1290: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1291: l_log_msg := 'funds reservation returned Partial and calling '||
1292: 'psa_ap_bc_pvt.Get_Detailed_Results';
1293: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1294: l_procedure_name, l_log_msg);
1295: END IF;
1296:
1297: -- bug9026201

Line 1311: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1307: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1308: l_log_msg := 'Call psa_ap_bc_pvt.Get_Detailed_Results returned' ||
1309: 'l_return_status =' || l_return_status;
1310:
1311: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1312: l_procedure_name, l_log_msg);
1313: END IF;
1314:
1315: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

Line 1325: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1321: WHEN OTHERS THEN
1322: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1323: l_log_msg := 'Call psa_ap_bc_pvt.Get_Detailed_Results '||
1324: 'raised an Exception' ||SQLERRM;
1325: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1326: l_procedure_name, l_log_msg);
1327: END IF;
1328:
1329: l_cant_fundsck_exists := 'Y';

Line 1338: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1334: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1335: l_log_msg := 'process t_funds_dist_tab touched by PSA' ||
1336: 'PL/SQL TABLE COUNT IS' || to_char(t_funds_dist_tab.COUNT)||
1337: 'now beginning to check the data sanity';
1338: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1339: l_procedure_name, l_log_msg);
1340: END IF;
1341:
1342:

Line 1368: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1364: 'the BC event_id '||l_bc_event_id||
1365: 'has a status '||l_bc_event_status||
1366: 'thus existing the loop for sanity check, AP will not update distributions'||
1367: 'to encumbered';
1368: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1369: l_procedure_name, l_log_msg);
1370: END IF;
1371:
1372: l_count_unproc := l_count_unproc + 1;

Line 1389: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1385:
1386: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1387: l_log_msg := 'none of the BC events for the distributions returned as Successfully '||
1388: 'encumbered by PSA were unprocessed';
1389: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1390: l_procedure_name, l_log_msg);
1391: END IF;
1392:
1393:

Line 1399: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1395: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1396: l_log_msg := 'in the loop to update encumbrance flag' ||
1397: 'for distribution table for distribution_id=' ||
1398: to_char(t_funds_dist_tab(i).inv_distribution_id);
1399: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1400: l_procedure_name, l_log_msg);
1401: END IF;
1402:
1403: IF t_funds_dist_tab(i).result_code = 'S' THEN

Line 1432: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1428: ELSE
1429: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1430: l_log_msg := 'PSA returned an incorrect status for atleast one distribution '||
1431: 'setting up the variable for CANT FUNDS CHECK hold';
1432: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1433: l_procedure_name, l_log_msg);
1434: END IF;
1435:
1436: l_cant_fundsck_exists := 'Y';

Line 1468: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1464: 'has a status '||l_bc_event_status||
1465: 'thus existing the loop for sanity check, AP will not update distributions'||
1466: 'to encumbered';
1467:
1468: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1469: l_procedure_name, l_log_msg);
1470: END IF;
1471:
1472: l_count_unproc := l_count_unproc + 1;

Line 1493: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1489:
1490: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1491: l_log_msg := 'none of the BC events for the distributions returned as Successfully '||
1492: 'encumbered by PSA were unprocessed';
1493: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1494: l_procedure_name, l_log_msg);
1495: END IF;
1496:
1497: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN

Line 1500: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1496:
1497: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1498: l_log_msg := 'Step 6.2 - funds reserve is done fully' ||
1499: ' and process sucess return code =' || l_return_code ;
1500: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1501: l_procedure_name, l_log_msg);
1502: END IF;
1503:
1504: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN

Line 1507: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1503:
1504: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1505: l_log_msg := 'number of distributions get funds reserved=' ||
1506: to_char(t_funds_dist_tab.COUNT);
1507: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1508: l_procedure_name, l_log_msg);
1509: END IF;
1510:
1511: BEGIN

Line 1516: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1512: FOR i IN 1..t_funds_dist_tab.COUNT LOOP
1513: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1514: l_log_msg := 'update encumbered flag for distribution id=' ||
1515: to_char(t_funds_dist_tab(i).inv_distribution_id);
1516: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1517: l_procedure_name, l_log_msg);
1518: END IF;
1519:
1520: -- Bug 6695993 added additional where clause

Line 1547: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1543: ELSE
1544: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1545: l_log_msg := 'PSA returned an incorrect status for atleast one distribution '||
1546: 'setting up the variable for CANT FUNDS CHECK hold';
1547: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1548: l_procedure_name, l_log_msg);
1549: END IF;
1550:
1551: l_cant_fundsck_exists := 'Y';

Line 1562: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1558:
1559: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1560: l_log_msg := 'p_funds_return_code out param is set' ||
1561: 'p_funds_return_code = ' || l_return_code ;
1562: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1563: l_procedure_name, l_log_msg);
1564: END IF;
1565:
1566: /*-----------------------------------------------------------------+

Line 1572: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

1568: +-----------------------------------------------------------------*/
1569:
1570: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
1571: l_log_msg := 'step 7 - process hold if exists';
1572: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
1573: l_procedure_name, l_log_msg);
1574: END IF;
1575:
1576:

Line 1595: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

1591: | Step 7.1 - Process Hold if PSA Accounging fails hold exists |
1592: +------------------------------------------------------------------------*/
1593: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
1594: l_log_msg := 'step 7.1 - process PSA accoutning hold if exists';
1595: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
1596: l_procedure_name, l_log_msg);
1597: END IF;
1598: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
1599: p_invoice_id,

Line 1618: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

1614: +-----------------------------------------------------------------*/
1615:
1616: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
1617: l_log_msg := 'Step 8 - put CANT FUNDS CHECK';
1618: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
1619: l_procedure_name, l_log_msg);
1620: END IF;
1621:
1622:

Line 1658: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

1654:
1655: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1656: l_log_msg := 'Step 3 - no Call of psa_ap_bc_pvt.Create_Events' ||
1657: 'distribution cursor count = 0';
1658: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
1659: l_procedure_name, l_log_msg);
1660: END IF;
1661:
1662: END IF;

Line 1673: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

1669: NULL;
1670:
1671: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
1672: l_log_msg := 'encumbered flag is not enabled for the OU';
1673: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
1674: l_procedure_name, l_log_msg);
1675: END IF;
1676:
1677: END IF; -- Encumbrance Enabled --

Line 1682: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

1678:
1679:
1680: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
1681: l_log_msg := 'End of '|| l_procedure_name;
1682: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
1683: l_procedure_name, l_log_msg);
1684: END IF;
1685:
1686: EXCEPTION

Line 1690: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);

1686: EXCEPTION
1687: WHEN PSA_API_EXCEPTION THEN
1688: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1689: l_log_msg := 'Encountered an Exception in the PSA api, inside the exception block';
1690: FND_LOG.STRING(G_LEVEL_STATEMENT, G_MODULE_NAME||l_procedure_name, l_log_msg);
1691: END IF;
1692:
1693: AP_APPROVAL_PKG.Process_Inv_Hold_Status(
1694: p_invoice_id,

Line 1777: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

1773:
1774:
1775: -- Logging Infra:
1776: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_ERV_CCID';
1777: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1778:
1779:
1780:
1781: BEGIN

Line 1796: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

1792:
1793: -- Logging Infra: Procedure level
1794: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
1795: l_log_msg := 'Begin of procedure '|| l_procedure_name;
1796: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
1797: l_procedure_name, l_log_msg);
1798: END IF;
1799:
1800:

Line 1807: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

1803: nvl(p_erv, 0 ) <> 0 ) THEN
1804:
1805: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1806: l_log_msg := 'GET_ERV_CCID - Query the exising erv ccid';
1807: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
1808: END IF;
1809:
1810: BEGIN
1811: SELECT D.dist_code_combination_id

Line 1845: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||l_procedure_name, l_log_msg);

1841: ---------------------------------------------------------------
1842:
1843: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
1844: l_log_msg := 'GET_ERV_CCID - expense item ';
1845: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||l_procedure_name, l_log_msg);
1846: END IF;
1847:
1848: p_erv_ccid := p_variance_ccid ;
1849:

Line 1891: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

1887:
1888: -- Logging Infra: Procedure level
1889: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
1890: l_log_msg := 'End of procedure '|| l_procedure_name;
1891: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
1892: l_procedure_name, l_log_msg);
1893: END IF;
1894: EXCEPTION
1895: WHEN OTHERS THEN

Line 1978: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

1974:
1975:
1976: -- Logging Infra:
1977: l_procedure_name CONSTANT VARCHAR2(30) := 'Calc_QV';
1978: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1979:
1980:
1981: BEGIN
1982:

Line 1986: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

1982:
1983: -- Logging Infra: Procedure level
1984: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
1985: l_log_msg := 'Begin of procedure '|| l_procedure_name;
1986: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
1987: l_procedure_name, l_log_msg);
1988: END IF;
1989:
1990: l_curr_calling_sequence := 'AP_FUNDS_CONTROL_PKG.'||l_debug_loc||

Line 2304: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

2300:
2301: -- Logging Infra: Procedure level
2302: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
2303: l_log_msg := 'End of procedure '|| l_procedure_name;
2304: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
2305: l_procedure_name, l_log_msg);
2306: END IF;
2307:
2308: EXCEPTION

Line 2391: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

2387: l_amt_received NUMBER;
2388:
2389: -- Logging Infra:
2390: l_procedure_name CONSTANT VARCHAR2(30) := 'Calc_AV';
2391: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2392:
2393: BEGIN
2394:
2395: -- Update the calling sequence --

Line 2403: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

2399:
2400: -- Logging Infra: Procedure level
2401: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
2402: l_log_msg := 'Begin of procedure '|| l_procedure_name;
2403: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
2404: l_procedure_name, l_log_msg);
2405: END IF;
2406:
2407: -----------------------------------------------------------------------

Line 2524: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

2520:
2521: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
2522: l_log_msg := 'CALC_AV - find dist line with min amt for ' ||
2523: 'negative amt_variance';
2524: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
2525: l_procedure_name, l_log_msg);
2526: END IF;
2527:
2528: select nvl(distribution_line_number,0),

Line 2603: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

2599:
2600: -- Logging Infra: Procedure level
2601: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
2602: l_log_msg := 'End of procedure '|| l_procedure_name;
2603: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
2604: l_procedure_name, l_log_msg);
2605: END IF;
2606:
2607: EXCEPTION

Line 2874: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;

2870: PSA_API_EXCEPTION EXCEPTION;
2871:
2872: -- Logging Infra:
2873: l_procedure_name CONSTANT VARCHAR2(30) := 'Funds_Check';
2874: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
2875:
2876: BEGIN
2877:
2878: -- Update the calling sequence --

Line 2886: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

2882:
2883: -- Logging Infra: Procedure level
2884: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
2885: l_log_msg := 'Begin of procedure '|| l_procedure_name;
2886: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
2887: l_procedure_name, l_log_msg);
2888: END IF;
2889:
2890: --Bug 5487757

Line 2893: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

2889:
2890: --Bug 5487757
2891: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
2892: l_log_msg := 'Selecting Org_Id for determining Encumbrance Enabled or not' ;
2893: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
2894: l_procedure_name, l_log_msg);
2895: END IF;
2896:
2897: SELECT org_id

Line 2916: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

2912:
2913: -- Logging Infra: Procedure level
2914: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
2915: l_log_msg := 'Setup Gl Fundsctrl Param';
2916: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
2917: l_procedure_name, l_log_msg);
2918: END IF;
2919:
2920: Setup_Gl_FundsCtrl_Params(

Line 2934: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

2930: +-----------------------------------------------------------------*/
2931: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
2932: l_log_msg := ' Update encumbered flag of recoverable ' ||
2933: 'tax distributions to R';
2934: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
2935: l_procedure_name, l_log_msg);
2936: END IF;
2937: Update ap_invoice_distributions_all
2938: set encumbered_flag = 'R'

Line 2948: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

2944: +-----------------------------------------------------------------*/
2945:
2946: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
2947: l_log_msg := 'Step 2 - Open FundsCntrl_Inv_Dist_Cur Cursor';
2948: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
2949: l_procedure_name, l_log_msg);
2950: END IF;
2951:
2952: OPEN Funds_Check_Dist_Cursor;

Line 2963: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

2959: +-----------------------------------------------------------------*/
2960:
2961: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
2962: l_log_msg := 'Step 3 - Call psa_ap_bc_pvt.Create_Events';
2963: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
2964: l_procedure_name, l_log_msg);
2965: END IF;
2966:
2967: IF ( t_funds_dist_tab.COUNT <> 0 ) THEN

Line 2982: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

2978:
2979: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
2980: l_log_msg := 'Call psa_ap_bc_pvt.Create_Events status result ' ||
2981: 'l_return_status =' || l_return_status;
2982: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
2983: l_procedure_name, l_log_msg);
2984: END IF;
2985:
2986: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

Line 2991: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

2987:
2988: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
2989: l_log_msg := 'Step 3 - Call psa_ap_bc_pvt.Create_Events not success ' ||
2990: 'l_return_status =' || l_return_status;
2991: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
2992: l_procedure_name, l_log_msg);
2993: END IF;
2994:
2995: RAISE PSA_API_EXCEPTION;

Line 3005: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

3001: +-------------------------------------------------------------------*/
3002:
3003: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
3004: l_log_msg := 'Step 4 - Call PSA_BC_XLA_PUB.Budgetary_Control';
3005: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
3006: l_procedure_name, l_log_msg);
3007: END IF;
3008:
3009: PSA_BC_XLA_PUB.Budgetary_Control(

Line 3028: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

3024: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
3025: l_log_msg := 'Call PSA_BC_XLA_PUB.Budgetary_Control success' ||
3026: 'l_return_code =' || l_return_code ||
3027: 'l_packet_id =' || to_char(l_packet_id);
3028: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
3029: l_procedure_name, l_log_msg);
3030: END IF;
3031:
3032:

Line 3038: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

3034:
3035: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
3036: l_log_msg := 'Call PSA_BC_XLA_PUB.Budgetary_Control not success' ||
3037: 'l_return_status =' || l_return_status;
3038: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
3039: l_procedure_name, l_log_msg);
3040: END IF;
3041:
3042: RAISE PSA_API_EXCEPTION;

Line 3053: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);

3049: +-------------------------------------------------------------------*/
3050:
3051: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
3052: l_log_msg := 'FUNDSCHECK - Process_Return_Code of GL funds check';
3053: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
3054: END IF;
3055:
3056: IF (l_return_code in ('FAIL', 'PARTIAL')) THEN
3057:

Line 3095: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

3091:
3092: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
3093: l_log_msg := 'returned message to form is ' ||
3094: 'p_return_message_name =' || p_return_message_name;
3095: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
3096: l_procedure_name, l_log_msg);
3097: END IF;
3098:
3099: ELSE

Line 3108: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

3104: p_return_message_name := 'AP_ENC_NO_DIST_APPL'; --added for bug 8639979
3105: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
3106: l_log_msg := 'no Call of psa_ap_bc_pvt.Create_Events' ||
3107: 'distribution cursor count = 0';
3108: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
3109: l_procedure_name, l_log_msg);
3110: END IF;
3111:
3112: END IF;

Line 3121: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||

3117: +-------------------------------------------------------------------*/
3118:
3119: IF (G_LEVEL_STATEMENT >= g_log_level ) THEN
3120: l_log_msg := 'encumberance is off';
3121: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME ||
3122: l_procedure_name, l_log_msg);
3123: END IF;
3124:
3125: p_return_message_name := 'AP_ALL_ENC_OFF';

Line 3133: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||

3129:
3130: -- Logging Infra: Procedure level
3131: IF (G_LEVEL_PROCEDURE >= g_log_level ) THEN
3132: l_log_msg := 'End of procedure '|| l_procedure_name;
3133: FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
3134: l_procedure_name, l_log_msg);
3135: END IF;
3136:
3137: EXCEPTION

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

3511: 'QTY_CORRECTION' ) ) THEN
3512:
3513: l_debug_info := 'Calculate Matched Variances';
3514: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3515: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3516: END IF;
3517:
3518: AP_APPROVAL_MATCHED_PKG.Exec_Matched_Variance_Checks(
3519: p_invoice_id => p_invoice_id,

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

3533: END LOOP;
3534:
3535: l_debug_info := 'Calculate Quantity Variance: '||p_invoice_id;
3536: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3537: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3538: END IF;
3539:
3540: AP_APPROVAL_MATCHED_PKG.Exec_Qty_Variance_Check(
3541: p_invoice_id => p_invoice_id,

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

3545: p_calling_sequence => l_curr_calling_sequence );
3546:
3547: l_debug_info := 'Create Tax Distributions';
3548: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3549: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3550: END IF;
3551:
3552: l_success := ap_etax_pkg.calling_etax (
3553: p_invoice_id => p_invoice_id,

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

3564: END IF; -- p_invoice_needs_validation
3565:
3566: l_debug_info := 'Before calling funds_check';
3567: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3568: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3569: END IF;
3570:
3571: ap_funds_control_pkg.funds_check(
3572: p_invoice_id => p_invoice_id,

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

3576: p_calling_sequence => l_curr_calling_sequence);
3577:
3578: l_debug_info := 'After calling funds_check: l_return_message_name: '||l_return_message_name;
3579: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3580: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,l_debug_info);
3581: END IF;
3582:
3583: p_error_code := l_return_message_name;
3584: return(TRUE);

Line 3603: g_log_enabled := fnd_log.test

3599:
3600:
3601: BEGIN
3602: g_log_level := G_CURRENT_RUNTIME_LEVEL;
3603: g_log_enabled := fnd_log.test
3604: (log_level => g_log_level
3605: ,module => G_MODULE_NAME);
3606:
3607: IF NOT g_log_enabled THEN