44: l_module VARCHAR2(30);
45: BEGIN
46: l_module := 'get_currency_code';
47:
48: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
49: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
50: g_api || '.' || l_module || '.begin',
51: '<
52: END IF;
45: BEGIN
46: l_module := 'get_currency_code';
47:
48: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
49: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
50: g_api || '.' || l_module || '.begin',
51: '<
52: END IF;
53:
56: FROM gcs_entity_cons_attrs eca
57: WHERE eca.hierarchy_id = p_hierarchy_id
58: AND eca.entity_id = p_entity_id;
59:
60: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
61: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
62: g_api || '.' || l_module || '.end',
63: '<
64: END IF;
57: WHERE eca.hierarchy_id = p_hierarchy_id
58: AND eca.entity_id = p_entity_id;
59:
60: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
61: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
62: g_api || '.' || l_module || '.end',
63: '<
64: END IF;
65:
66: RETURN l_ccy_code;
67:
68: EXCEPTION
69: WHEN OTHERS THEN
70: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
71: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
72: g_api || '.' || l_module || '.error',
73: SQLERRM);
74: END IF;
67:
68: EXCEPTION
69: WHEN OTHERS THEN
70: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
71: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
72: g_api || '.' || l_module || '.error',
73: SQLERRM);
74: END IF;
75: RAISE;
84: l_module VARCHAR2(30);
85: BEGIN
86: l_module := 'get_ledger_id';
87:
88: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
89: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
90: g_api || '.' || l_module || '.begin',
91: '<
92: END IF;
85: BEGIN
86: l_module := 'get_ledger_id';
87:
88: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
89: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
90: g_api || '.' || l_module || '.begin',
91: '<
92: END IF;
93:
97: WHERE fea.entity_id = p_entity_id
98: AND fea.attribute_id = g_entity_ledger_attr_id
99: AND fea.version_id = g_entity_ledger_v_id;
100:
101: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
102: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
103: g_api || '.' || l_module || '.end',
104: '<
105: END IF;
98: AND fea.attribute_id = g_entity_ledger_attr_id
99: AND fea.version_id = g_entity_ledger_v_id;
100:
101: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
102: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
103: g_api || '.' || l_module || '.end',
104: '<
105: END IF;
106:
107: RETURN l_ledger_id;
108:
109: EXCEPTION
110: WHEN OTHERS THEN
111: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
112: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
113: g_api || '.' || l_module || '.error',
114: SQLERRM);
115: END IF;
108:
109: EXCEPTION
110: WHEN OTHERS THEN
111: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
112: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
113: g_api || '.' || l_module || '.error',
114: SQLERRM);
115: END IF;
116: RAISE;
126: l_module VARCHAR2(30);
127: BEGIN
128: l_module := 'get_ledger_id_2param';
129:
130: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
131: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
132: g_api || '.' || l_module || '.begin',
133: '<
134: END IF;
127: BEGIN
128: l_module := 'get_ledger_id_2param';
129:
130: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
131: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
132: g_api || '.' || l_module || '.begin',
133: '<
134: END IF;
135:
145: AND fcpa_end_date.date_assign_value
146: BETWEEN gea.effective_start_date
147: AND nvl(gea.effective_end_date, fcpa_end_date.date_assign_value);
148:
149: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
150: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
151: g_api || '.' || l_module || '.end',
152: '<
153: END IF;
146: BETWEEN gea.effective_start_date
147: AND nvl(gea.effective_end_date, fcpa_end_date.date_assign_value);
148:
149: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
150: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
151: g_api || '.' || l_module || '.end',
152: '<
153: END IF;
154:
155: RETURN l_ledger_id;
156:
157: EXCEPTION
158: WHEN OTHERS THEN
159: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
160: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
161: g_api || '.' || l_module || '.error',
162: SQLERRM);
163: END IF;
156:
157: EXCEPTION
158: WHEN OTHERS THEN
159: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
160: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
161: g_api || '.' || l_module || '.error',
162: SQLERRM);
163: END IF;
164: RAISE;
174: l_module VARCHAR2(30);
175: BEGIN
176: l_module := 'get_src_sys_code';
177:
178: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
179: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
180: g_api || '.' || l_module || '.begin',
181: '<
182: END IF;
175: BEGIN
176: l_module := 'get_src_sys_code';
177:
178: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
179: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
180: g_api || '.' || l_module || '.begin',
181: '<
182: END IF;
183:
187: WHERE fea.entity_id = p_entity_id
188: AND fea.attribute_id = g_entity_srcsys_attr_id
189: AND fea.version_id = g_entity_srcsys_v_id;
190:
191: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
192: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
193: g_api || '.' || l_module || '.end',
194: '<
195: END IF;
188: AND fea.attribute_id = g_entity_srcsys_attr_id
189: AND fea.version_id = g_entity_srcsys_v_id;
190:
191: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
192: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
193: g_api || '.' || l_module || '.end',
194: '<
195: END IF;
196:
197: RETURN l_src_sys_code;
198:
199: EXCEPTION
200: WHEN OTHERS THEN
201: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
202: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
203: g_api || '.' || l_module || '.error',
204: SQLERRM);
205: END IF;
198:
199: EXCEPTION
200: WHEN OTHERS THEN
201: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
202: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
203: g_api || '.' || l_module || '.error',
204: SQLERRM);
205: END IF;
206: RAISE;
216: l_module VARCHAR2(30);
217: BEGIN
218: l_module := 'get_src_sys_code_2param';
219:
220: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
221: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
222: g_api || '.' || l_module || '.begin',
223: '<
224: END IF;
217: BEGIN
218: l_module := 'get_src_sys_code_2param';
219:
220: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
221: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
222: g_api || '.' || l_module || '.begin',
223: '<
224: END IF;
225:
235: AND fcpa_end_date.date_assign_value
236: BETWEEN gea.effective_start_date
237: AND nvl(gea.effective_end_date, fcpa_end_date.date_assign_value);
238:
239: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
240: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
241: g_api || '.' || l_module || '.end',
242: '<
243: END IF;
236: BETWEEN gea.effective_start_date
237: AND nvl(gea.effective_end_date, fcpa_end_date.date_assign_value);
238:
239: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
240: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
241: g_api || '.' || l_module || '.end',
242: '<
243: END IF;
244:
245: RETURN l_src_sys_code;
246:
247: EXCEPTION
248: WHEN OTHERS THEN
249: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
250: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
251: g_api || '.' || l_module || '.error',
252: SQLERRM);
253: END IF;
246:
247: EXCEPTION
248: WHEN OTHERS THEN
249: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
250: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
251: g_api || '.' || l_module || '.error',
252: SQLERRM);
253: END IF;
254: RAISE;
268: l_module VARCHAR2(30);
269: BEGIN
270: l_module := 'get_dataset_code';
271:
272: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
273: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
274: g_api || '.' || l_module || '.begin',
275: '<
276: END IF;
269: BEGIN
270: l_module := 'get_dataset_code';
271:
272: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
273: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
274: g_api || '.' || l_module || '.begin',
275: '<
276: END IF;
277:
286: AND fdl.source_system_code = l_src_sys_code
287: AND fdl.table_name = 'FEM_BALANCES'
288: AND fdl.balance_type_code = 'ACTUAL';
289:
290: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
291: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
292: g_api || '.' || l_module || '.end',
293: '<
294: END IF;
287: AND fdl.table_name = 'FEM_BALANCES'
288: AND fdl.balance_type_code = 'ACTUAL';
289:
290: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
291: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
292: g_api || '.' || l_module || '.end',
293: '<
294: END IF;
295:
296: RETURN l_dataset_code;
297:
298: EXCEPTION
299: WHEN OTHERS THEN
300: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
301: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
302: g_api || '.' || l_module || '.error',
303: SQLERRM);
304: END IF;
297:
298: EXCEPTION
299: WHEN OTHERS THEN
300: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
301: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
302: g_api || '.' || l_module || '.error',
303: SQLERRM);
304: END IF;
305: RAISE;
368: l_module VARCHAR2(30);
369: BEGIN
370: l_module := 'get_pristine_cal_period_id';
371:
372: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
373: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
374: g_api || '.' || l_module || '.begin',
375: '<
376: END IF;
369: BEGIN
370: l_module := 'get_pristine_cal_period_id';
371:
372: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
373: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
374: g_api || '.' || l_module || '.begin',
375: '<
376: END IF;
377:
392: RAISE NO_DATA_FOUND;
393: END IF;
394: END IF;
395:
396: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
397: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
398: g_api || '.' || l_module || '.end',
399: '<
400: END IF;
393: END IF;
394: END IF;
395:
396: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
397: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
398: g_api || '.' || l_module || '.end',
399: '<
400: END IF;
401:
402: RETURN to_char(l_pristine_cal_period_id);
403:
404: EXCEPTION
405: WHEN OTHERS THEN
406: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
407: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
408: g_api || '.' || l_module || '.error',
409: SQLERRM);
410: END IF;
403:
404: EXCEPTION
405: WHEN OTHERS THEN
406: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
407: FND_LOG.STRING(FND_LOG.LEVEL_ERROR,
408: g_api || '.' || l_module || '.error',
409: SQLERRM);
410: END IF;
411: RAISE;