4:
5: -- Logging Infra
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ZX_GL_TAX_OPTIONS_PKG';
7: G_CURRENT_RUNTIME_LEVEL NUMBER;
8: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
9: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
10: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
11: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
12: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
5: -- Logging Infra
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ZX_GL_TAX_OPTIONS_PKG';
7: G_CURRENT_RUNTIME_LEVEL NUMBER;
8: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
9: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
10: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
11: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
12: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
13: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ZX_GL_TAX_OPTIONS_PKG';
7: G_CURRENT_RUNTIME_LEVEL NUMBER;
8: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
9: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
10: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
11: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
12: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
13: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
14: G_MODULE_NAME CONSTANT VARCHAR2(60) := 'ZX.PLSQL.ZX_GL_TAX_OPTIONS_PKG.';
7: G_CURRENT_RUNTIME_LEVEL NUMBER;
8: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
9: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
10: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
11: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
12: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
13: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
14: G_MODULE_NAME CONSTANT VARCHAR2(60) := 'ZX.PLSQL.ZX_GL_TAX_OPTIONS_PKG.';
15:
8: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
9: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
10: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
11: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
12: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
13: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
14: G_MODULE_NAME CONSTANT VARCHAR2(60) := 'ZX.PLSQL.ZX_GL_TAX_OPTIONS_PKG.';
15:
16: -- ***** PUBLIC PROCEDURES *****
9: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
10: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
11: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
12: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
13: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
14: G_MODULE_NAME CONSTANT VARCHAR2(60) := 'ZX.PLSQL.ZX_GL_TAX_OPTIONS_PKG.';
15:
16: -- ***** PUBLIC PROCEDURES *****
17: /*===========================================================================+
168: -- Logging Infra
169: l_api_name CONSTANT VARCHAR2(30) := 'GET_DEFAULT_VALUES';
170: l_api_version CONSTANT NUMBER := 1.0;
171: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_DEFAULT_VALUES';
172: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
173: -- Logging Infra
174: l_set_security_context_flag VARCHAR2(1);
175:
176: BEGIN
175:
176: BEGIN
177:
178: -- Logging Infra: Setting up runtime level
179: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
180:
181: -- Logging Infra: Procedure level
182: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
183: FND_LOG.STRING(G_LEVEL_PROCEDURE,
179: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
180:
181: -- Logging Infra: Procedure level
182: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
183: FND_LOG.STRING(G_LEVEL_PROCEDURE,
184: G_MODULE_NAME || l_procedure_name,
185: 'get_default_values(+)');
186: END IF;
187: -- Logging Infra: Break point input parameters
191: ', org_id=' || p_org_id ||
192: ', account_segment=' || p_account_segment ||
193: ', account_type=' || p_account_type ||
194: ', trx_date=' || p_trx_date;
195: FND_LOG.STRING(G_LEVEL_STATEMENT,
196: G_MODULE_NAME || l_procedure_name,
197: l_log_msg);
198: END IF;
199:
215:
216: IF l_set_security_context_flag = 'Y' Then
217: -- Logging Infra: Procedure level
218: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
219: FND_LOG.STRING(G_LEVEL_PROCEDURE,
220: G_MODULE_NAME || l_procedure_name,
221: 'Setting Security Context');
222: END IF;
223:
225:
226: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
227: -- Logging Infra: Statement level
228: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
229: FND_LOG.STRING(G_LEVEL_STATEMENT,
230: G_MODULE_NAME || l_procedure_name,
231: 'Error Setting Security Context');
232: END IF;
233: Return;
235: END IF;
236:
237: -- Logging Infra: Procedure level
238: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
239: FND_LOG.STRING(G_LEVEL_PROCEDURE,
240: G_MODULE_NAME || l_procedure_name,
241: 'Fetching default tax rate info');
242: END IF;
243:
246: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
247: l_log_msg := 'B: CUR: acct_rate_cur: tax_class=' || l_tax_class_tmp ||
248: ', ledger_id=' || p_ledger_id ||
249: ', account_segment=' || p_account_segment;
250: FND_LOG.STRING(G_LEVEL_STATEMENT,
251: G_MODULE_NAME || l_procedure_name,
252: l_log_msg);
253: END IF;
254:
276: ', tax_status_code=' || x_default_tax_status_code ||
277: ', tax_rate_code=' || x_default_tax_rate_code ||
278: ', tax_rate_id=' || x_default_tax_rate_id ||
279: ', tax_class=' || l_tax_class;
280: FND_LOG.STRING(G_LEVEL_STATEMENT,
281: G_MODULE_NAME || l_procedure_name,
282: l_log_msg);
283: END IF;
284:
287:
288: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
289: l_log_msg := 'B: CUR: acct_rate_sob_cur: tax_class=' || l_tax_class_tmp ||
290: ', ledger_id=' || p_ledger_id;
291: FND_LOG.STRING(G_LEVEL_STATEMENT,
292: G_MODULE_NAME || l_procedure_name,
293: l_log_msg);
294: END IF;
295:
311: ', tax_status_code=' || x_default_tax_status_code ||
312: ', tax_rate_code=' || x_default_tax_rate_code ||
313: ', tax_rate_id=' || x_default_tax_rate_id ||
314: ', tax_class=' || l_tax_class;
315: FND_LOG.STRING(G_LEVEL_STATEMENT,
316: G_MODULE_NAME || l_procedure_name,
317: l_log_msg);
318: END IF;
319: END IF;
322: IF l_set_security_context_flag = 'Y' Then
323:
324: -- Logging Infra: Procedure level
325: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
326: FND_LOG.STRING(G_LEVEL_PROCEDURE,
327: G_MODULE_NAME || l_procedure_name,
328: 'Resetting First Party Org context to NULL');
329: END IF;
330:
345: END IF;
346:
347: -- Logging Infra: Procedure level
348: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
349: FND_LOG.STRING(G_LEVEL_PROCEDURE,
350: G_MODULE_NAME || l_procedure_name,
351: 'Fetching default rounding rule');
352: END IF;
353:
362:
363: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
364: -- Logging Infra: Statement level
365: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
366: FND_LOG.STRING(G_LEVEL_STATEMENT,
367: G_MODULE_NAME || l_procedure_name,
368: 'Error from API to default rounding rule');
369: END IF;
370: Return;
371: END IF;
372:
373: -- Logging Infra: Procedure level
374: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
375: FND_LOG.STRING(G_LEVEL_PROCEDURE,
376: G_MODULE_NAME || l_procedure_name,
377: 'Fetching default tax include flag');
378: END IF;
379:
389:
390: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
391: -- Logging Infra: Statement level
392: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
393: FND_LOG.STRING(G_LEVEL_STATEMENT,
394: G_MODULE_NAME || l_procedure_name,
395: 'Error from API to default tax include flag');
396: END IF;
397: Return;
401: IF x_default_rounding_code IS NULL THEN
402: -- Logging Infra: Break point acct_rate_sob_cur
403: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
404: l_log_msg := 'B: tax_regime_code/rounding_rule_code IS NULL';
405: FND_LOG.STRING(G_LEVEL_STATEMENT,
406: G_MODULE_NAME || l_procedure_name,
407: l_log_msg);
408: END IF;
409: l_return_status := FND_API.G_RET_STS_ERROR;
412: ELSE
413: -- ledger level information (rounding_rule_code) has been derived
414: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
415: l_log_msg := 'B: tax_regime_code IS NULL but rounding_rule_code IS NOT NULL';
416: FND_LOG.STRING(G_LEVEL_STATEMENT,
417: G_MODULE_NAME || l_procedure_name,
418: l_log_msg);
419: END IF;
420: END IF;
426: x_return_status := FND_API.G_RET_STS_ERROR;
427: x_msg_out := 'ZX_GL_RATE_ID_NULL';
428: -- Logging Infra: Statement level
429: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
430: FND_LOG.STRING(G_LEVEL_STATEMENT,
431: G_MODULE_NAME || l_procedure_name,
432: x_msg_out);
433: END IF;
434: Return;
444: ', tax_rate_code=' || x_default_tax_rate_code ||
445: ', rounding_rule_code=' || x_default_rounding_code ||
446: ', incl_tax_flag=' || x_default_incl_tax_flag ||
447: ', tax_rate_id=' || x_default_tax_rate_id;
448: FND_LOG.STRING(G_LEVEL_STATEMENT,
449: G_MODULE_NAME || l_procedure_name,
450: l_log_msg);
451: END IF;
452: -- Logging Infra: Procedure level
450: l_log_msg);
451: END IF;
452: -- Logging Infra: Procedure level
453: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
454: FND_LOG.STRING(G_LEVEL_PROCEDURE,
455: G_MODULE_NAME,
456: 'get_default_value(-)');
457: END IF;
458:
461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
462: x_msg_out := TO_CHAR(SQLCODE);
463: -- Logging Infra:
464: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
465: FND_LOG.STRING(G_LEVEL_STATEMENT,
466: G_MODULE_NAME || l_procedure_name,
467: TO_CHAR(SQLCODE) || ': ' || SQLERRM);
468: END IF;
469: app_exception.raise_exception;
546: -- Logging Infra
547: l_api_name CONSTANT VARCHAR2(30) := 'GET_TAX_RATE_AND_ACCOUNT';
548: l_api_version CONSTANT NUMBER := 1.0;
549: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_TAX_RATE_AND_ACCOUNT';
550: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
551: -- Logging Infra
552:
553: BEGIN
554: -- Logging Infra: Setting up runtime level
551: -- Logging Infra
552:
553: BEGIN
554: -- Logging Infra: Setting up runtime level
555: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
556:
557: -- Logging Infra: Procedure level
558: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
559: FND_LOG.STRING(G_LEVEL_PROCEDURE,
555: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
556:
557: -- Logging Infra: Procedure level
558: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
559: FND_LOG.STRING(G_LEVEL_PROCEDURE,
560: G_MODULE_NAME || l_procedure_name,
561: 'get_tax_rate_and_account(+)');
562: END IF;
563: -- Logging Infra: Break point input parameters
564: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
565: l_log_msg := 'B: IN: api_version=' || p_api_version ||
566: ', tax_type_code=' || p_tax_type_code ||
567: ', tax_rate_id=' || p_tax_rate_id;
568: FND_LOG.STRING(G_LEVEL_STATEMENT,
569: G_MODULE_NAME || l_procedure_name,
570: l_log_msg);
571: END IF;
572:
586: -- Logging Infra: Break point get_pct_rate_ccid_cur
587: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
588: l_log_msg := 'B: CUR: get_pct_rate_ccid_cur: pct_rate=' || l_pct_rate ||
589: ', tax_account_ccid=' || l_tax_account_ccid;
590: FND_LOG.STRING(G_LEVEL_STATEMENT,
591: G_MODULE_NAME || l_procedure_name,
592: l_log_msg);
593: END IF;
594:
601: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
602: l_log_msg := 'B: OUT: tax_rate_pct=' || l_pct_rate ||
603: ', tax_account_ccid=' || l_tax_account_ccid ||
604: ', return_status=' || l_return_status;
605: FND_LOG.STRING(G_LEVEL_STATEMENT,
606: G_MODULE_NAME || l_procedure_name,
607: l_log_msg);
608: END IF;
609: -- Logging Infra: Procedure level
607: l_log_msg);
608: END IF;
609: -- Logging Infra: Procedure level
610: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
611: FND_LOG.STRING(G_LEVEL_PROCEDURE,
612: G_MODULE_NAME || l_procedure_name,
613: 'get_tax_rate_and_account(-)');
614: END IF;
615:
618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
619: x_msg_out := TO_CHAR(SQLCODE);
620: -- Logging Infra:
621: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
622: FND_LOG.STRING(G_LEVEL_STATEMENT,
623: G_MODULE_NAME || l_procedure_name,
624: TO_CHAR(SQLCODE) || ': ' || SQLERRM);
625: END IF;
626: app_exception.raise_exception;
690: -- Logging Infra
691: l_api_name CONSTANT VARCHAR2(30) := 'GET_TAX_CCID';
692: l_api_version CONSTANT NUMBER := 1.0;
693: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_TAX_CCID';
694: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
695: -- Logging Infra
696:
697: BEGIN
698: -- Logging Infra: Setting up runtime level
695: -- Logging Infra
696:
697: BEGIN
698: -- Logging Infra: Setting up runtime level
699: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
700:
701: -- Logging Infra: Procedure level
702: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
703: FND_LOG.STRING(G_LEVEL_PROCEDURE,
699: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
700:
701: -- Logging Infra: Procedure level
702: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
703: FND_LOG.STRING(G_LEVEL_PROCEDURE,
704: G_MODULE_NAME || l_procedure_name,
705: 'get_tax_ccid(+)');
706: END IF;
707:
710: l_log_msg := 'B: IN: api_version=' || p_api_version ||
711: ', tax_rate_id=' || p_tax_rate_id ||
712: ', org_id=' || p_org_id ||
713: ', ledger_id=' || p_ledger_id;
714: FND_LOG.STRING(G_LEVEL_STATEMENT,
715: G_MODULE_NAME || l_procedure_name,
716: l_log_msg);
717: END IF;
718:
734: -- Logging Infra: Break point output parameters
735: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
736: l_log_msg := 'B: OUT: tax_account_ccid=' || x_tax_account_ccid ||
737: ', return_status=' || x_return_status;
738: FND_LOG.STRING(G_LEVEL_STATEMENT,
739: G_MODULE_NAME || l_procedure_name,
740: l_log_msg);
741: END IF;
742:
741: END IF;
742:
743: -- Logging Infra: Procedure level
744: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
745: FND_LOG.STRING(G_LEVEL_PROCEDURE,
746: G_MODULE_NAME || l_procedure_name,
747: 'get_tax_ccid(-)');
748: END IF;
749:
752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
753: x_msg_out := TO_CHAR(SQLCODE);
754: -- Logging Infra:
755: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
756: FND_LOG.STRING(G_LEVEL_STATEMENT,
757: G_MODULE_NAME || l_procedure_name,
758: TO_CHAR(SQLCODE) || ': ' || SQLERRM);
759: END IF;
760: app_exception.raise_exception;
874: -- Logging Infra
875: l_api_name CONSTANT VARCHAR2(30) := 'GET_TAX_RATE_ID';
876: l_api_version CONSTANT NUMBER := 1.0;
877: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_TAX_RATE_ID';
878: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
879: -- Logging Infra
880: l_set_security_context_flag VARCHAR2(1);
881:
882: BEGIN
880: l_set_security_context_flag VARCHAR2(1);
881:
882: BEGIN
883: -- Logging Infra: Setting up runtime level
884: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
885:
886: -- Logging Infra: Procedure level
887: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
888: FND_LOG.STRING(G_LEVEL_PROCEDURE,
884: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
885:
886: -- Logging Infra: Procedure level
887: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
888: FND_LOG.STRING(G_LEVEL_PROCEDURE,
889: G_MODULE_NAME || l_procedure_name,
890: 'get_tax_rate_id(+)');
891: END IF;
892: -- Logging Infra: Break point input parameters
895: ', org_id=' || p_org_id ||
896: ', tax_rate_code=' || p_tax_rate_code ||
897: ', trx_date=' || p_trx_date ||
898: ', tax_type_code=' || p_tax_type_code;
899: FND_LOG.STRING(G_LEVEL_STATEMENT,
900: G_MODULE_NAME || l_procedure_name,
901: l_log_msg);
902: END IF;
903:
908: x_return_status := FND_API.G_RET_STS_ERROR;
909: x_msg_out := 'ZX_GL_INVALID_TAX_RATE_CODE';
910: -- Logging Infra:
911: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
912: FND_LOG.STRING(G_LEVEL_STATEMENT,
913: G_MODULE_NAME || l_procedure_name,
914: 'p_tax_rate_code is STD_AR_INPUT');
915: END IF;
916: Return;
926: IF l_set_security_context_flag = 'Y' Then
927:
928: -- Logging Infra: Procedure level
929: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
930: FND_LOG.STRING(G_LEVEL_PROCEDURE,
931: G_MODULE_NAME || l_procedure_name,
932: 'Setting Security Context');
933: END IF;
934:
936:
937: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
938: -- Logging Infra: Statement level
939: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
940: FND_LOG.STRING(G_LEVEL_STATEMENT,
941: G_MODULE_NAME || l_procedure_name,
942: 'Error Setting Security Context');
943: END IF;
944: Return;
947: END IF; -- l_set_security_context_flag
948:
949: -- Logging Infra: Procedure level
950: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
951: FND_LOG.STRING(G_LEVEL_PROCEDURE,
952: G_MODULE_NAME || l_procedure_name,
953: 'Fetching Tax Rate Id');
954: END IF;
955:
971: -- Logging Infra: Break point rate_id_for_null_type_cur
972: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
973: l_log_msg := 'B: CUR: rate_id_for_null_type: tax_rate_id=' || l_tax_rate_id ||
974: ', tax_type_code=' || p_tax_type_code;
975: FND_LOG.STRING(G_LEVEL_STATEMENT,
976: G_MODULE_NAME || l_procedure_name,
977: l_log_msg);
978: END IF;
979: ELSIF p_tax_type_code IN ('I', 'O') THEN
993: -- Logging Infra: Break point rate_id_for_mig_cur
994: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
995: l_log_msg := 'B: CUR: rate_id_for_mig_cur: tax_rate_id=' || l_tax_rate_id ||
996: ', tax_type_code=' || p_tax_type_code;
997: FND_LOG.STRING(G_LEVEL_STATEMENT,
998: G_MODULE_NAME || l_procedure_name,
999: l_log_msg);
1000: END IF;
1001:
1007: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
1008: l_log_msg := 'B: OUT: tax_type_code=' || l_tax_type_code ||
1009: ', tax_rate_id=' || l_tax_rate_id ||
1010: ', return_status=' || x_return_status;
1011: FND_LOG.STRING(G_LEVEL_STATEMENT,
1012: G_MODULE_NAME || l_procedure_name,
1013: l_log_msg);
1014: END IF;
1015:
1014: END IF;
1015:
1016: -- Logging Infra: Procedure level
1017: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1018: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1019: G_MODULE_NAME || l_procedure_name,
1020: 'Resetting First Party Org context to NULL');
1021: END IF;
1022:
1027: END IF;
1028:
1029: -- Logging Infra: Procedure level
1030: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1031: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1032: G_MODULE_NAME || l_procedure_name,
1033: 'get_tax_rate_id(-)');
1034: END IF;
1035: EXCEPTION
1036: WHEN OTHERS THEN
1037: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1038: x_msg_out := TO_CHAR(SQLCODE);
1039: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1040: FND_LOG.STRING(G_LEVEL_STATEMENT,
1041: G_MODULE_NAME || l_procedure_name,
1042: TO_CHAR(SQLCODE) || ': ' || SQLERRM);
1043: END IF;
1044: app_exception.raise_exception;
1145: -- Logging Infra
1146: l_api_name CONSTANT VARCHAR2(30) := 'GET_TAX_RATE_CODE';
1147: l_api_version CONSTANT NUMBER := 1.0;
1148: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_TAX_RATE_CODE';
1149: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1150: -- Logging Infra
1151:
1152: BEGIN
1153: -- Logging Infra: Setting up runtime level
1150: -- Logging Infra
1151:
1152: BEGIN
1153: -- Logging Infra: Setting up runtime level
1154: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1155:
1156: -- Logging Infra: Procedure level
1157: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1158: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1154: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1155:
1156: -- Logging Infra: Procedure level
1157: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1158: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1159: G_MODULE_NAME || l_procedure_name,
1160: 'get_tax_rate_code(+)');
1161: END IF;
1162: -- Logging Infra: Break point input parameters
1163: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
1164: l_log_msg := 'B: IN: api_version=' || p_api_version ||
1165: ', tax_type_code=' || p_tax_type_code ||
1166: ', tax_rate_id=' || p_tax_rate_id;
1167: FND_LOG.STRING(G_LEVEL_STATEMENT,
1168: G_MODULE_NAME || l_procedure_name,
1169: l_log_msg);
1170: END IF;
1171:
1184:
1185: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
1186: l_log_msg := 'B: CUR: get_source_rate_code_cur: tax_rate_code=' ||
1187: l_tax_rate_code;
1188: FND_LOG.STRING(G_LEVEL_STATEMENT,
1189: G_MODULE_NAME || l_procedure_name,
1190: l_log_msg);
1191: FND_LOG.STRING(G_LEVEL_STATEMENT,
1192: G_MODULE_NAME || l_procedure_name,
1187: l_tax_rate_code;
1188: FND_LOG.STRING(G_LEVEL_STATEMENT,
1189: G_MODULE_NAME || l_procedure_name,
1190: l_log_msg);
1191: FND_LOG.STRING(G_LEVEL_STATEMENT,
1192: G_MODULE_NAME || l_procedure_name,
1193: 'l_source_indicator : ' || l_source_indicator);
1194:
1195: END IF;
1204: x_msg_out := 'ZX_GL_INVALID_PARAM';
1205: -- Logging Infra:
1206: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1207: l_log_msg := 'B: Unexpected tax_type_code';
1208: FND_LOG.STRING(G_LEVEL_STATEMENT,
1209: G_MODULE_NAME || l_procedure_name,
1210: l_log_msg);
1211: END IF;
1212: Return;
1223:
1224: -- Logging Infra: Break point get_tax_rate_code_cur
1225: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
1226: l_log_msg := 'B: CUR: get_tax_rate_code_cur: tax_rate_code=' || l_tax_rate_code;
1227: FND_LOG.STRING(G_LEVEL_STATEMENT,
1228: G_MODULE_NAME || l_procedure_name,
1229: l_log_msg);
1230:
1231: END IF;
1236: -- Logging Infra: Break point output parameters
1237: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
1238: l_log_msg := 'B: OUT: tax_rate_code=' || l_tax_rate_code ||
1239: ', return_status=' || l_return_status;
1240: FND_LOG.STRING(G_LEVEL_STATEMENT,
1241: G_MODULE_NAME || l_procedure_name,
1242: l_log_msg);
1243: END IF;
1244:
1243: END IF;
1244:
1245: -- Logging Infra: Procedure level
1246: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1247: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1248: G_MODULE_NAME || l_procedure_name,
1249: 'get_tax_rate_and_account(-)');
1250: END IF;
1251:
1254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1255: x_msg_out := TO_CHAR(SQLCODE);
1256: -- Logging Infra:
1257: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1258: FND_LOG.STRING(G_LEVEL_STATEMENT,
1259: G_MODULE_NAME || l_procedure_name,
1260: TO_CHAR(SQLCODE) || ': ' || SQLERRM);
1261: END IF;
1262: app_exception.raise_exception;
1323: -- Logging Infrastructure
1324: l_api_name CONSTANT VARCHAR2(30) := 'GET_ROUNDING_RULE_CODE';
1325: l_api_version CONSTANT NUMBER := 1.0;
1326: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_ROUNDING_RULE_CODE';
1327: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1328: -- Logging Infrastructure
1329: l_set_security_context_flag VARCHAR2(1);
1330:
1331: BEGIN
1330:
1331: BEGIN
1332:
1333: -- Logging Infra: Setting up runtime level
1334: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1335:
1336: -- Logging Infra: Procedure level
1337: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1338: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1334: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1335:
1336: -- Logging Infra: Procedure level
1337: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1338: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1339: G_MODULE_NAME || l_procedure_name,
1340: 'get_rounding_rule_code(+)');
1341: END IF;
1342:
1346: ', ledger_id=' || p_ledger_id ||
1347: ', org_id=' || p_org_id ||
1348: ', le_id=' || p_le_id ||
1349: ', tax_class=' || p_tax_class;
1350: FND_LOG.STRING(G_LEVEL_STATEMENT,
1351: G_MODULE_NAME || l_procedure_name,
1352: l_log_msg);
1353: END IF;
1354:
1363: IF l_set_security_context_flag = 'Y' Then
1364:
1365: -- Logging Infra: Procedure level
1366: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1367: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1368: G_MODULE_NAME || l_procedure_name,
1369: 'Setting Security Context');
1370: END IF;
1371:
1373:
1374: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1375: -- Logging Infra: Statement level
1376: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
1377: FND_LOG.STRING(G_LEVEL_STATEMENT,
1378: G_MODULE_NAME || l_procedure_name,
1379: 'Error Setting Security Context');
1380: END IF;
1381: Return;
1383: END IF; -- l_set_security_context_flag
1384:
1385: -- Logging Infra: Procedure level
1386: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1387: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1388: G_MODULE_NAME || l_procedure_name,
1389: 'Fetching rounding rule code');
1390: END IF;
1391:
1411: IF l_set_security_context_flag = 'Y' Then
1412:
1413: -- Logging Infra: Procedure level
1414: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1415: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1416: G_MODULE_NAME || l_procedure_name,
1417: 'Resetting First Party Org context to NULL');
1418: END IF;
1419:
1423: END IF;
1424:
1425: -- Logging Infra: Procedure level
1426: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1427: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1428: G_MODULE_NAME || l_procedure_name,
1429: 'get_rounding_rule_code(-)');
1430: END IF;
1431:
1434: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1435: x_msg_out := TO_CHAR(SQLCODE);
1436: -- Logging Infra:
1437: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1438: FND_LOG.STRING(G_LEVEL_STATEMENT,
1439: G_MODULE_NAME || l_procedure_name,
1440: TO_CHAR(SQLCODE) || ': ' || SQLERRM);
1441: END IF;
1442: app_exception.raise_exception;
1501: -- Logging Infrastructure
1502: l_api_name CONSTANT VARCHAR2(30) := 'GET_PRECISION_MAU';
1503: l_api_version CONSTANT NUMBER := 1.0;
1504: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_PRECISION_MAU';
1505: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1506: -- Logging Infrastructure
1507: l_set_security_context_flag VARCHAR2(1);
1508:
1509: BEGIN
1508:
1509: BEGIN
1510:
1511: -- Logging Infra: Setting up runtime level
1512: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1513:
1514: -- Logging Infra: Procedure level
1515: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1516: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1512: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1513:
1514: -- Logging Infra: Procedure level
1515: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1516: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1517: G_MODULE_NAME || l_procedure_name,
1518: 'get_precision_mau(+)');
1519: END IF;
1520:
1523: l_log_msg := 'B: IN: api_version=' || p_api_version ||
1524: ', ledger_id=' || p_ledger_id ||
1525: ', org_id=' || p_org_id ||
1526: ', le_id=' || p_le_id;
1527: FND_LOG.STRING(G_LEVEL_STATEMENT,
1528: G_MODULE_NAME || l_procedure_name,
1529: l_log_msg);
1530: END IF;
1531:
1532: x_return_status := FND_API.G_RET_STS_SUCCESS;
1533:
1534: -- Logging Infra: Procedure level
1535: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1536: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1537: G_MODULE_NAME || l_procedure_name,
1538: 'Setting Security Context');
1539: END IF;
1540:
1554:
1555: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1556: -- Logging Infra: Statement level
1557: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
1558: FND_LOG.STRING(G_LEVEL_STATEMENT,
1559: G_MODULE_NAME || l_procedure_name,
1560: 'Error Setting Security Context');
1561: END IF;
1562: Return;
1564: END IF; -- l_set_security_context_flag
1565:
1566: -- Logging Infra: Procedure level
1567: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1568: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1569: G_MODULE_NAME || l_procedure_name,
1570: 'Fetching precision and mau');
1571: END IF;
1572:
1583: CLOSE precision_mau_cur;
1584:
1585: -- Logging Infra: Procedure level
1586: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1587: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1588: G_MODULE_NAME || l_procedure_name,
1589: 'Resetting First Party Org context to NULL');
1590: END IF;
1591:
1602: END IF;
1603:
1604: -- Logging Infra: Procedure level
1605: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1606: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1607: G_MODULE_NAME || l_procedure_name,
1608: 'get_precision_mau(-)');
1609: END IF;
1610:
1613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1614: x_msg_out := TO_CHAR(SQLCODE);
1615: -- Logging Infra:
1616: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1617: FND_LOG.STRING(G_LEVEL_STATEMENT,
1618: G_MODULE_NAME || l_procedure_name,
1619: TO_CHAR(SQLCODE) || ': ' || SQLERRM);
1620: END IF;
1621: app_exception.raise_exception;
1664: -- Logging Infrastructure
1665: l_api_name CONSTANT VARCHAR2(30) := 'GET_DEFAULT_TAX_INCLUDE_FLAG';
1666: l_api_version CONSTANT NUMBER := 1.0;
1667: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_DEFAULT_TAX_INCLUDE_FLAG';
1668: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1669: -- Logging Infrastructure
1670: l_set_security_context_flag VARCHAR2(1);
1671:
1672: BEGIN
1671:
1672: BEGIN
1673:
1674: -- Logging Infra: Setting up runtime level
1675: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1676:
1677: -- Logging Infra: Procedure level
1678: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1679: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1675: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1676:
1677: -- Logging Infra: Procedure level
1678: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1679: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1680: G_MODULE_NAME || l_procedure_name,
1681: 'get_default_tax_include_flag(+)');
1682: END IF;
1683:
1688: ', org_id=' || p_org_id ||
1689: ', le_id=' || p_le_id ||
1690: ', account_value=' || p_account_value ||
1691: ', tax_type_code=' || p_tax_type_code;
1692: FND_LOG.STRING(G_LEVEL_STATEMENT,
1693: G_MODULE_NAME || l_procedure_name,
1694: l_log_msg);
1695: END IF;
1696:
1705: IF l_set_security_context_flag = 'Y' Then
1706:
1707: -- Logging Infra: Procedure level
1708: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1709: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1710: G_MODULE_NAME || l_procedure_name,
1711: 'Setting Security Context');
1712: END IF;
1713:
1715:
1716: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1717: -- Logging Infra: Statement level
1718: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
1719: FND_LOG.STRING(G_LEVEL_STATEMENT,
1720: G_MODULE_NAME || l_procedure_name,
1721: 'Error Setting Security Context');
1722: END IF;
1723: Return;
1725: END IF; -- l_set_security_context_flag
1726:
1727: -- Logging Infra: Procedure level
1728: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1729: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1730: G_MODULE_NAME || l_procedure_name,
1731: 'Fetching amount includes tax flag');
1732: END IF;
1733:
1774: IF l_set_security_context_flag = 'Y' Then
1775:
1776: -- Logging Infra: Procedure level
1777: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1778: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1779: G_MODULE_NAME || l_procedure_name,
1780: 'Resetting First Party Org context to NULL');
1781: END IF;
1782:
1786: END IF;
1787:
1788: -- Logging Infra: Procedure level
1789: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1790: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1791: G_MODULE_NAME || l_procedure_name,
1792: 'get_default_tax_include_flag(-)');
1793: END IF;
1794:
1797: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1798: x_msg_out := TO_CHAR(SQLCODE);
1799: -- Logging Infra:
1800: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1801: FND_LOG.STRING(G_LEVEL_STATEMENT,
1802: G_MODULE_NAME || l_procedure_name,
1803: TO_CHAR(SQLCODE) || ': ' || SQLERRM);
1804: END IF;
1805: app_exception.raise_exception;
1819: -- Logging Infrastructure
1820: l_api_name CONSTANT VARCHAR2(30) := 'GET_LEDGER_CONTROLS';
1821: l_api_version CONSTANT NUMBER := 1.0;
1822: l_procedure_name CONSTANT VARCHAR2(30) := 'GET_LEDGER_CONTROLS';
1823: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
1824: -- Logging Infrastructure
1825: l_set_security_context_flag VARCHAR2(1);
1826:
1827: BEGIN
1826:
1827: BEGIN
1828:
1829: -- Logging Infra: Setting up runtime level
1830: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1831:
1832: -- Logging Infra: Procedure level
1833: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1834: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1830: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1831:
1832: -- Logging Infra: Procedure level
1833: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1834: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1835: G_MODULE_NAME || l_procedure_name,
1836: 'get_ledger_controls(+)');
1837: END IF;
1838:
1841: l_log_msg := 'B: IN: api_version=' || p_api_version ||
1842: ', ledger_id=' || p_ledger_id ||
1843: ', org_id=' || p_org_id ||
1844: ', le_id=' || p_le_id;
1845: FND_LOG.STRING(G_LEVEL_STATEMENT,
1846: G_MODULE_NAME || l_procedure_name,
1847: l_log_msg);
1848: END IF;
1849:
1858: IF l_set_security_context_flag = 'Y' Then
1859:
1860: -- Logging Infra: Procedure level
1861: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1862: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1863: G_MODULE_NAME || l_procedure_name,
1864: 'Setting Security Context');
1865: END IF;
1866:
1868:
1869: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1870: -- Logging Infra: Statement level
1871: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
1872: FND_LOG.STRING(G_LEVEL_STATEMENT,
1873: G_MODULE_NAME || l_procedure_name,
1874: 'Error Setting Security Context');
1875: END IF;
1876: Return;
1878: END IF; -- l_set_security_context_flag
1879:
1880: -- Logging Infra: Procedure level
1881: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1882: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1883: G_MODULE_NAME || l_procedure_name,
1884: 'Fetching calc level code and tax mau');
1885: END IF;
1886:
1895:
1896: IF l_set_security_context_flag = 'Y' Then
1897: -- Logging Infra: Procedure level
1898: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1899: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1900: G_MODULE_NAME || l_procedure_name,
1901: 'Resetting First Party Org context to NULL');
1902: END IF;
1903:
1907: END IF;
1908:
1909: -- Logging Infra: Procedure level
1910: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1911: FND_LOG.STRING(G_LEVEL_PROCEDURE,
1912: G_MODULE_NAME || l_procedure_name,
1913: 'get_ledger_controls(-)');
1914: END IF;
1915:
1918: x_return_status := FND_API.G_RET_STS_ERROR;
1919: x_msg_out := 'ZX_GL_LEDGER_CONTROLS_NOTFOUND';
1920: -- Logging Infra:
1921: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1922: FND_LOG.STRING(G_LEVEL_STATEMENT,
1923: G_MODULE_NAME || l_procedure_name,
1924: 'NO_DATA_FOUND');
1925: END IF;
1926: WHEN OTHERS THEN
1927: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1928: x_msg_out := TO_CHAR(SQLCODE);
1929: -- Logging Infra:
1930: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1931: FND_LOG.STRING(G_LEVEL_STATEMENT,
1932: G_MODULE_NAME || l_procedure_name,
1933: TO_CHAR(SQLCODE) || ': ' || SQLERRM);
1934: END IF;
1935: app_exception.raise_exception;