275: 'ld_end_date=' || ld_end_date);
276:
277:
278: --add to XML
279: Ja_Cn_Utility.Add_Sub_Root_Node('BASIC_INFO_OF_FIXED_ASSET',
280: Ja_Cn_Utility.GV_TAG_TYPE_START,
281: Ja_Cn_Utility.GV_MODULE_FA);
282: ln_cost_row_count :=0;
283: FOR fixed_asset_account_row IN fixed_asset_account_cur
276:
277:
278: --add to XML
279: Ja_Cn_Utility.Add_Sub_Root_Node('BASIC_INFO_OF_FIXED_ASSET',
280: Ja_Cn_Utility.GV_TAG_TYPE_START,
281: Ja_Cn_Utility.GV_MODULE_FA);
282: ln_cost_row_count :=0;
283: FOR fixed_asset_account_row IN fixed_asset_account_cur
284: LOOP
277:
278: --add to XML
279: Ja_Cn_Utility.Add_Sub_Root_Node('BASIC_INFO_OF_FIXED_ASSET',
280: Ja_Cn_Utility.GV_TAG_TYPE_START,
281: Ja_Cn_Utility.GV_MODULE_FA);
282: ln_cost_row_count :=0;
283: FOR fixed_asset_account_row IN fixed_asset_account_cur
284: LOOP
285: ln_cost_row_count := ln_cost_row_count + 1;
284: LOOP
285: ln_cost_row_count := ln_cost_row_count + 1;
286: IF(fixed_asset_account_row.asset_cost_acct IS NOT NULL)
287: THEN
288: Ja_Cn_Utility.Add_Child_Node('FIXED_ASSET_ACCOUNT',
289: fixed_asset_account_row.asset_cost_acct,
290: Ja_Cn_Utility.GV_TYPE_VARCHAR2,
291: Ja_Cn_Utility.GV_REQUIRED_YES,
292: Ja_Cn_Utility.GV_MODULE_FA
286: IF(fixed_asset_account_row.asset_cost_acct IS NOT NULL)
287: THEN
288: Ja_Cn_Utility.Add_Child_Node('FIXED_ASSET_ACCOUNT',
289: fixed_asset_account_row.asset_cost_acct,
290: Ja_Cn_Utility.GV_TYPE_VARCHAR2,
291: Ja_Cn_Utility.GV_REQUIRED_YES,
292: Ja_Cn_Utility.GV_MODULE_FA
293: );
294: END IF; --(fixed_asset_account_row.asset_cost_acct IS NOT NULL)
287: THEN
288: Ja_Cn_Utility.Add_Child_Node('FIXED_ASSET_ACCOUNT',
289: fixed_asset_account_row.asset_cost_acct,
290: Ja_Cn_Utility.GV_TYPE_VARCHAR2,
291: Ja_Cn_Utility.GV_REQUIRED_YES,
292: Ja_Cn_Utility.GV_MODULE_FA
293: );
294: END IF; --(fixed_asset_account_row.asset_cost_acct IS NOT NULL)
295: END LOOP; --fixed_asset_account_row IN fixed_asset_account_cur
288: Ja_Cn_Utility.Add_Child_Node('FIXED_ASSET_ACCOUNT',
289: fixed_asset_account_row.asset_cost_acct,
290: Ja_Cn_Utility.GV_TYPE_VARCHAR2,
291: Ja_Cn_Utility.GV_REQUIRED_YES,
292: Ja_Cn_Utility.GV_MODULE_FA
293: );
294: END IF; --(fixed_asset_account_row.asset_cost_acct IS NOT NULL)
295: END LOOP; --fixed_asset_account_row IN fixed_asset_account_cur
296:
295: END LOOP; --fixed_asset_account_row IN fixed_asset_account_cur
296:
297: IF(ln_cost_row_count = 0)
298: THEN
299: Ja_Cn_Utility.Add_Child_Node('FIXED_ASSET_ACCOUNT',
300: NULL,
301: Ja_Cn_Utility.GV_TYPE_VARCHAR2,
302: Ja_Cn_Utility.GV_REQUIRED_YES,
303: Ja_Cn_Utility.GV_MODULE_FA
297: IF(ln_cost_row_count = 0)
298: THEN
299: Ja_Cn_Utility.Add_Child_Node('FIXED_ASSET_ACCOUNT',
300: NULL,
301: Ja_Cn_Utility.GV_TYPE_VARCHAR2,
302: Ja_Cn_Utility.GV_REQUIRED_YES,
303: Ja_Cn_Utility.GV_MODULE_FA
304: );
305: END IF; --(ln_cost_row_count = 0)
298: THEN
299: Ja_Cn_Utility.Add_Child_Node('FIXED_ASSET_ACCOUNT',
300: NULL,
301: Ja_Cn_Utility.GV_TYPE_VARCHAR2,
302: Ja_Cn_Utility.GV_REQUIRED_YES,
303: Ja_Cn_Utility.GV_MODULE_FA
304: );
305: END IF; --(ln_cost_row_count = 0)
306:
299: Ja_Cn_Utility.Add_Child_Node('FIXED_ASSET_ACCOUNT',
300: NULL,
301: Ja_Cn_Utility.GV_TYPE_VARCHAR2,
302: Ja_Cn_Utility.GV_REQUIRED_YES,
303: Ja_Cn_Utility.GV_MODULE_FA
304: );
305: END IF; --(ln_cost_row_count = 0)
306:
307: ln_impairment_row_count := 0;
309: LOOP
310: ln_impairment_row_count := ln_impairment_row_count + 1;
311: IF(impairment_account_row.impair_reserve_acct IS NOT NULL)
312: THEN
313: Ja_Cn_Utility.Add_Child_Node('ACCUM_IMPAIRMENT_ACCOUNT',
314: impairment_account_row.impair_reserve_acct,
315: Ja_Cn_Utility.GV_TYPE_VARCHAR2,
316: Ja_Cn_Utility.GV_REQUIRED_YES,
317: Ja_Cn_Utility.GV_MODULE_FA
311: IF(impairment_account_row.impair_reserve_acct IS NOT NULL)
312: THEN
313: Ja_Cn_Utility.Add_Child_Node('ACCUM_IMPAIRMENT_ACCOUNT',
314: impairment_account_row.impair_reserve_acct,
315: Ja_Cn_Utility.GV_TYPE_VARCHAR2,
316: Ja_Cn_Utility.GV_REQUIRED_YES,
317: Ja_Cn_Utility.GV_MODULE_FA
318: );
319: END IF; --(impairment_account_row.deprn_reserve_acct IS NOT NULL)
312: THEN
313: Ja_Cn_Utility.Add_Child_Node('ACCUM_IMPAIRMENT_ACCOUNT',
314: impairment_account_row.impair_reserve_acct,
315: Ja_Cn_Utility.GV_TYPE_VARCHAR2,
316: Ja_Cn_Utility.GV_REQUIRED_YES,
317: Ja_Cn_Utility.GV_MODULE_FA
318: );
319: END IF; --(impairment_account_row.deprn_reserve_acct IS NOT NULL)
320: END LOOP; --impairment_account_row IN impairment_account_cur
313: Ja_Cn_Utility.Add_Child_Node('ACCUM_IMPAIRMENT_ACCOUNT',
314: impairment_account_row.impair_reserve_acct,
315: Ja_Cn_Utility.GV_TYPE_VARCHAR2,
316: Ja_Cn_Utility.GV_REQUIRED_YES,
317: Ja_Cn_Utility.GV_MODULE_FA
318: );
319: END IF; --(impairment_account_row.deprn_reserve_acct IS NOT NULL)
320: END LOOP; --impairment_account_row IN impairment_account_cur
321:
320: END LOOP; --impairment_account_row IN impairment_account_cur
321:
322: IF(ln_impairment_row_count = 0)
323: THEN
324: Ja_Cn_Utility.Add_Child_Node('ACCUM_IMPAIRMENT_ACCOUNT',
325: NULL,
326: Ja_Cn_Utility.GV_TYPE_VARCHAR2,
327: Ja_Cn_Utility.GV_REQUIRED_YES,
328: Ja_Cn_Utility.GV_MODULE_FA
322: IF(ln_impairment_row_count = 0)
323: THEN
324: Ja_Cn_Utility.Add_Child_Node('ACCUM_IMPAIRMENT_ACCOUNT',
325: NULL,
326: Ja_Cn_Utility.GV_TYPE_VARCHAR2,
327: Ja_Cn_Utility.GV_REQUIRED_YES,
328: Ja_Cn_Utility.GV_MODULE_FA
329: );
330: END IF; --(ln_impairment_row_count = 0)
323: THEN
324: Ja_Cn_Utility.Add_Child_Node('ACCUM_IMPAIRMENT_ACCOUNT',
325: NULL,
326: Ja_Cn_Utility.GV_TYPE_VARCHAR2,
327: Ja_Cn_Utility.GV_REQUIRED_YES,
328: Ja_Cn_Utility.GV_MODULE_FA
329: );
330: END IF; --(ln_impairment_row_count = 0)
331:
324: Ja_Cn_Utility.Add_Child_Node('ACCUM_IMPAIRMENT_ACCOUNT',
325: NULL,
326: Ja_Cn_Utility.GV_TYPE_VARCHAR2,
327: Ja_Cn_Utility.GV_REQUIRED_YES,
328: Ja_Cn_Utility.GV_MODULE_FA
329: );
330: END IF; --(ln_impairment_row_count = 0)
331:
332: ln_depreciation_row_count := 0;
334: LOOP
335: ln_depreciation_row_count := ln_depreciation_row_count + 1;
336: IF(depreciation_account_row.deprn_reserve_acct IS NOT NULL)
337: THEN
338: Ja_Cn_Utility.Add_Child_Node('ACCUM_DEPRECIATION_ACCOUNT',
339: depreciation_account_row.deprn_reserve_acct,
340: Ja_Cn_Utility.GV_TYPE_VARCHAR2,
341: Ja_Cn_Utility.GV_REQUIRED_YES,
342: Ja_Cn_Utility.GV_MODULE_FA
336: IF(depreciation_account_row.deprn_reserve_acct IS NOT NULL)
337: THEN
338: Ja_Cn_Utility.Add_Child_Node('ACCUM_DEPRECIATION_ACCOUNT',
339: depreciation_account_row.deprn_reserve_acct,
340: Ja_Cn_Utility.GV_TYPE_VARCHAR2,
341: Ja_Cn_Utility.GV_REQUIRED_YES,
342: Ja_Cn_Utility.GV_MODULE_FA
343: );
344: END IF; --(depreciation_account_row.impair_reserve_acct IS NOT NULL)
337: THEN
338: Ja_Cn_Utility.Add_Child_Node('ACCUM_DEPRECIATION_ACCOUNT',
339: depreciation_account_row.deprn_reserve_acct,
340: Ja_Cn_Utility.GV_TYPE_VARCHAR2,
341: Ja_Cn_Utility.GV_REQUIRED_YES,
342: Ja_Cn_Utility.GV_MODULE_FA
343: );
344: END IF; --(depreciation_account_row.impair_reserve_acct IS NOT NULL)
345: END LOOP; --depreciation_account_row IN depreciation_account_cur
338: Ja_Cn_Utility.Add_Child_Node('ACCUM_DEPRECIATION_ACCOUNT',
339: depreciation_account_row.deprn_reserve_acct,
340: Ja_Cn_Utility.GV_TYPE_VARCHAR2,
341: Ja_Cn_Utility.GV_REQUIRED_YES,
342: Ja_Cn_Utility.GV_MODULE_FA
343: );
344: END IF; --(depreciation_account_row.impair_reserve_acct IS NOT NULL)
345: END LOOP; --depreciation_account_row IN depreciation_account_cur
346:
345: END LOOP; --depreciation_account_row IN depreciation_account_cur
346:
347: IF(ln_depreciation_row_count = 0)
348: THEN
349: Ja_Cn_Utility.Add_Child_Node('ACCUM_DEPRECIATION_ACCOUNT',
350: NULL,
351: Ja_Cn_Utility.GV_TYPE_VARCHAR2,
352: Ja_Cn_Utility.GV_REQUIRED_YES,
353: Ja_Cn_Utility.GV_MODULE_FA
347: IF(ln_depreciation_row_count = 0)
348: THEN
349: Ja_Cn_Utility.Add_Child_Node('ACCUM_DEPRECIATION_ACCOUNT',
350: NULL,
351: Ja_Cn_Utility.GV_TYPE_VARCHAR2,
352: Ja_Cn_Utility.GV_REQUIRED_YES,
353: Ja_Cn_Utility.GV_MODULE_FA
354: );
355: END IF; --(ln_impairment_row_count = 0)
348: THEN
349: Ja_Cn_Utility.Add_Child_Node('ACCUM_DEPRECIATION_ACCOUNT',
350: NULL,
351: Ja_Cn_Utility.GV_TYPE_VARCHAR2,
352: Ja_Cn_Utility.GV_REQUIRED_YES,
353: Ja_Cn_Utility.GV_MODULE_FA
354: );
355: END IF; --(ln_impairment_row_count = 0)
356:
349: Ja_Cn_Utility.Add_Child_Node('ACCUM_DEPRECIATION_ACCOUNT',
350: NULL,
351: Ja_Cn_Utility.GV_TYPE_VARCHAR2,
352: Ja_Cn_Utility.GV_REQUIRED_YES,
353: Ja_Cn_Utility.GV_MODULE_FA
354: );
355: END IF; --(ln_impairment_row_count = 0)
356:
357: Ja_Cn_Utility.Add_Sub_Root_Node('BASIC_INFO_OF_FIXED_ASSET',
353: Ja_Cn_Utility.GV_MODULE_FA
354: );
355: END IF; --(ln_impairment_row_count = 0)
356:
357: Ja_Cn_Utility.Add_Sub_Root_Node('BASIC_INFO_OF_FIXED_ASSET',
358: Ja_Cn_Utility.GV_TAG_TYPE_END,
359: Ja_Cn_Utility.GV_MODULE_FA);
360:
361:
354: );
355: END IF; --(ln_impairment_row_count = 0)
356:
357: Ja_Cn_Utility.Add_Sub_Root_Node('BASIC_INFO_OF_FIXED_ASSET',
358: Ja_Cn_Utility.GV_TAG_TYPE_END,
359: Ja_Cn_Utility.GV_MODULE_FA);
360:
361:
362: --logging for debug
355: END IF; --(ln_impairment_row_count = 0)
356:
357: Ja_Cn_Utility.Add_Sub_Root_Node('BASIC_INFO_OF_FIXED_ASSET',
358: Ja_Cn_Utility.GV_TAG_TYPE_END,
359: Ja_Cn_Utility.GV_MODULE_FA);
360:
361:
362: --logging for debug
363: IF (ln_proc_level >= ln_dbg_level)