72: )
73:
74: IS
75:
76: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
77: 'fem.plsql.fem_ledger_util_pkg.get_calendar';
78: C_API_VERSION CONSTANT NUMBER := 1.0;
79: C_API_NAME CONSTANT VARCHAR2(30) := 'Get_Calendar';
80: e_no_calendar EXCEPTION;
87:
88:
89: BEGIN
90:
91: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
92: FEM_ENGINES_PKG.TECH_MESSAGE(
93: p_severity => FND_LOG.level_procedure,
94: p_module => C_MODULE,
95: p_msg_text => 'Begin Procedure');
89: BEGIN
90:
91: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
92: FEM_ENGINES_PKG.TECH_MESSAGE(
93: p_severity => FND_LOG.level_procedure,
94: p_module => C_MODULE,
95: p_msg_text => 'Begin Procedure');
96: END IF;
97:
103: p_api_version,
104: C_API_NAME,
105: PC_PKG_NAME)
106: THEN
107: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
108: FEM_ENGINES_PKG.TECH_MESSAGE(
109: p_severity => FND_LOG.level_statement,
110: p_module => C_MODULE,
111: p_msg_text => 'API Version ('||C_API_VERSION||') not compatible with '
105: PC_PKG_NAME)
106: THEN
107: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
108: FEM_ENGINES_PKG.TECH_MESSAGE(
109: p_severity => FND_LOG.level_statement,
110: p_module => C_MODULE,
111: p_msg_text => 'API Version ('||C_API_VERSION||') not compatible with '
112: ||'passed in version ('||p_api_version||')');
113: END IF;
131: p_data => x_msg_data);
132: RETURN;
133: END IF;
134:
135: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
136: FEM_ENGINES_PKG.TECH_MESSAGE(
137: p_severity => FND_LOG.level_statement,
138: p_module => C_MODULE,
139: p_msg_text => 'p_ledger_id = '||to_char(p_ledger_id));
133: END IF;
134:
135: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
136: FEM_ENGINES_PKG.TECH_MESSAGE(
137: p_severity => FND_LOG.level_statement,
138: p_module => C_MODULE,
139: p_msg_text => 'p_ledger_id = '||to_char(p_ledger_id));
140: END IF;
141:
181: ELSE
182: x_return_status := pc_ret_sts_success;
183: END IF;
184:
185: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
186: FEM_ENGINES_PKG.TECH_MESSAGE(
187: p_severity => FND_LOG.level_statement,
188: p_module => C_MODULE,
189: p_msg_text => 'x_calendar_id = '||x_calendar_id);
183: END IF;
184:
185: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
186: FEM_ENGINES_PKG.TECH_MESSAGE(
187: p_severity => FND_LOG.level_statement,
188: p_module => C_MODULE,
189: p_msg_text => 'x_calendar_id = '||x_calendar_id);
190: FEM_ENGINES_PKG.TECH_MESSAGE(
191: p_severity => FND_LOG.level_statement,
187: p_severity => FND_LOG.level_statement,
188: p_module => C_MODULE,
189: p_msg_text => 'x_calendar_id = '||x_calendar_id);
190: FEM_ENGINES_PKG.TECH_MESSAGE(
191: p_severity => FND_LOG.level_statement,
192: p_module => C_MODULE,
193: p_msg_text => 'x_return_status = '||x_return_status);
194: END IF;
195: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
191: p_severity => FND_LOG.level_statement,
192: p_module => C_MODULE,
193: p_msg_text => 'x_return_status = '||x_return_status);
194: END IF;
195: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
196: FEM_ENGINES_PKG.TECH_MESSAGE(
197: p_severity => FND_LOG.level_procedure,
198: p_module => C_MODULE,
199: p_msg_text => 'End Procedure');
193: p_msg_text => 'x_return_status = '||x_return_status);
194: END IF;
195: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
196: FEM_ENGINES_PKG.TECH_MESSAGE(
197: p_severity => FND_LOG.level_procedure,
198: p_module => C_MODULE,
199: p_msg_text => 'End Procedure');
200: END IF;
201:
200: END IF;
201:
202: EXCEPTION
203: WHEN e_no_calendar THEN
204: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
205: FEM_ENGINES_PKG.TECH_MESSAGE(
206: p_severity => FND_LOG.level_procedure,
207: p_module => C_MODULE,
208: p_msg_text => 'End Procedure');
202: EXCEPTION
203: WHEN e_no_calendar THEN
204: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
205: FEM_ENGINES_PKG.TECH_MESSAGE(
206: p_severity => FND_LOG.level_procedure,
207: p_module => C_MODULE,
208: p_msg_text => 'End Procedure');
209: END IF;
210: x_calendar_id := NULL;
209: END IF;
210: x_calendar_id := NULL;
211: x_return_status := pc_ret_sts_error;
212: WHEN others THEN
213: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
214: FEM_ENGINES_PKG.TECH_MESSAGE(
215: p_severity => FND_LOG.level_statement,
216: p_module => C_MODULE,
217: p_msg_text => 'Unexpected error.');
211: x_return_status := pc_ret_sts_error;
212: WHEN others THEN
213: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
214: FEM_ENGINES_PKG.TECH_MESSAGE(
215: p_severity => FND_LOG.level_statement,
216: p_module => C_MODULE,
217: p_msg_text => 'Unexpected error.');
218: END IF;
219: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
215: p_severity => FND_LOG.level_statement,
216: p_module => C_MODULE,
217: p_msg_text => 'Unexpected error.');
218: END IF;
219: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
220: FEM_ENGINES_PKG.TECH_MESSAGE(
221: p_severity => FND_LOG.level_procedure,
222: p_module => C_MODULE,
223: p_msg_text => 'End Procedure');
217: p_msg_text => 'Unexpected error.');
218: END IF;
219: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
220: FEM_ENGINES_PKG.TECH_MESSAGE(
221: p_severity => FND_LOG.level_procedure,
222: p_module => C_MODULE,
223: p_msg_text => 'End Procedure');
224: END IF;
225: x_return_status := pc_ret_sts_unexp_error;