452: ;
453: EXIT WHEN c_na_info%NOTFOUND;
454:
455: --Only consider accounts with level, and the level should be a natural number and <16
456: IF JA_CN_UTILITY.Check_Account_Level(l_na_level)/*l_na_level is not null AND Is_Natural_Number(l_na_level) = 1 and l_na_level < 16*/
457: THEN
458: l_length := LENGTH(TO_CHAR(l_na_number)); --length of l_na_number
459:
460: IF l_acc_seg_serial >= l_na_level THEN --l_na_acc_str has l_na_level segments
569: ;
570: EXIT WHEN c_na_info%NOTFOUND;
571:
572: --Only consider accounts with level, and the level should be a natural number and <16
573: IF JA_CN_UTILITY.Check_Account_Level(l_na_level)/*l_na_level is not null AND Is_Natural_Number(l_na_level) = 1 and l_na_level < 16*/
574: THEN
575: /*IF l_na_parent = 'N' THEN --Only export lowest level (not parent) accounts*/
576: l_row_count := l_row_count + 1; --This account will be outputed
577:
635: l_na_bal := '';
636: END IF; --l_acc_type_code is null or not
637:
638: -- add to XML document
639: Ja_Cn_Utility.Add_Sub_Root_Node('CHART_OF_ACCOUNT',
640: Ja_Cn_Utility.GV_TAG_TYPE_START);
641:
642:
643: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_NUMBER',
636: END IF; --l_acc_type_code is null or not
637:
638: -- add to XML document
639: Ja_Cn_Utility.Add_Sub_Root_Node('CHART_OF_ACCOUNT',
640: Ja_Cn_Utility.GV_TAG_TYPE_START);
641:
642:
643: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_NUMBER',
644: l_na_number);
639: Ja_Cn_Utility.Add_Sub_Root_Node('CHART_OF_ACCOUNT',
640: Ja_Cn_Utility.GV_TAG_TYPE_START);
641:
642:
643: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_NUMBER',
644: l_na_number);
645: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_NAME',
646: l_na_name);
647: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_LEVEL',
641:
642:
643: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_NUMBER',
644: l_na_number);
645: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_NAME',
646: l_na_name);
647: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_LEVEL',
648: l_na_level,
649: Ja_Cn_Utility.GV_TYPE_NUMBER);
643: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_NUMBER',
644: l_na_number);
645: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_NAME',
646: l_na_name);
647: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_LEVEL',
648: l_na_level,
649: Ja_Cn_Utility.GV_TYPE_NUMBER);
650: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_TYPE',
651: l_na_type);
645: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_NAME',
646: l_na_name);
647: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_LEVEL',
648: l_na_level,
649: Ja_Cn_Utility.GV_TYPE_NUMBER);
650: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_TYPE',
651: l_na_type);
652: Ja_Cn_Utility.Add_Child_Node('BALANCE_SIDE',
653: l_na_bal);
646: l_na_name);
647: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_LEVEL',
648: l_na_level,
649: Ja_Cn_Utility.GV_TYPE_NUMBER);
650: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_TYPE',
651: l_na_type);
652: Ja_Cn_Utility.Add_Child_Node('BALANCE_SIDE',
653: l_na_bal);
654:
648: l_na_level,
649: Ja_Cn_Utility.GV_TYPE_NUMBER);
650: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_TYPE',
651: l_na_type);
652: Ja_Cn_Utility.Add_Child_Node('BALANCE_SIDE',
653: l_na_bal);
654:
655: Ja_Cn_Utility.Add_Sub_Root_Node('CHART_OF_ACCOUNT',
656: Ja_Cn_Utility.GV_TAG_TYPE_END);
651: l_na_type);
652: Ja_Cn_Utility.Add_Child_Node('BALANCE_SIDE',
653: l_na_bal);
654:
655: Ja_Cn_Utility.Add_Sub_Root_Node('CHART_OF_ACCOUNT',
656: Ja_Cn_Utility.GV_TAG_TYPE_END);
657: END IF; --Account Level should not null and be a natural number and <16
658: END LOOP;
659: CLOSE c_na_info;
652: Ja_Cn_Utility.Add_Child_Node('BALANCE_SIDE',
653: l_na_bal);
654:
655: Ja_Cn_Utility.Add_Sub_Root_Node('CHART_OF_ACCOUNT',
656: Ja_Cn_Utility.GV_TAG_TYPE_END);
657: END IF; --Account Level should not null and be a natural number and <16
658: END LOOP;
659: CLOSE c_na_info;
660:
659: CLOSE c_na_info;
660:
661: IF l_row_count = 0 --No account been outputed
662: THEN
663: Ja_Cn_Utility.Print_No_Data_Found_For_Log('CHART_OF_ACCOUNT');
664:
665: Ja_Cn_Utility.Add_Sub_Root_Node('CHART_OF_ACCOUNT',
666: Ja_Cn_Utility.GV_TAG_TYPE_START);
667:
661: IF l_row_count = 0 --No account been outputed
662: THEN
663: Ja_Cn_Utility.Print_No_Data_Found_For_Log('CHART_OF_ACCOUNT');
664:
665: Ja_Cn_Utility.Add_Sub_Root_Node('CHART_OF_ACCOUNT',
666: Ja_Cn_Utility.GV_TAG_TYPE_START);
667:
668:
669: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_NUMBER',
662: THEN
663: Ja_Cn_Utility.Print_No_Data_Found_For_Log('CHART_OF_ACCOUNT');
664:
665: Ja_Cn_Utility.Add_Sub_Root_Node('CHART_OF_ACCOUNT',
666: Ja_Cn_Utility.GV_TAG_TYPE_START);
667:
668:
669: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_NUMBER',
670: NULL);
665: Ja_Cn_Utility.Add_Sub_Root_Node('CHART_OF_ACCOUNT',
666: Ja_Cn_Utility.GV_TAG_TYPE_START);
667:
668:
669: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_NUMBER',
670: NULL);
671: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_NAME',
672: NULL);
673: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_LEVEL',
667:
668:
669: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_NUMBER',
670: NULL);
671: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_NAME',
672: NULL);
673: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_LEVEL',
674: NULL,
675: Ja_Cn_Utility.GV_TYPE_NUMBER);
669: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_NUMBER',
670: NULL);
671: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_NAME',
672: NULL);
673: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_LEVEL',
674: NULL,
675: Ja_Cn_Utility.GV_TYPE_NUMBER);
676: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_TYPE',
677: NULL);
671: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_NAME',
672: NULL);
673: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_LEVEL',
674: NULL,
675: Ja_Cn_Utility.GV_TYPE_NUMBER);
676: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_TYPE',
677: NULL);
678: Ja_Cn_Utility.Add_Child_Node('BALANCE_SIDE',
679: NULL);
672: NULL);
673: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_LEVEL',
674: NULL,
675: Ja_Cn_Utility.GV_TYPE_NUMBER);
676: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_TYPE',
677: NULL);
678: Ja_Cn_Utility.Add_Child_Node('BALANCE_SIDE',
679: NULL);
680:
674: NULL,
675: Ja_Cn_Utility.GV_TYPE_NUMBER);
676: Ja_Cn_Utility.Add_Child_Node('ACCOUNT_TYPE',
677: NULL);
678: Ja_Cn_Utility.Add_Child_Node('BALANCE_SIDE',
679: NULL);
680:
681: Ja_Cn_Utility.Add_Sub_Root_Node('CHART_OF_ACCOUNT',
682: Ja_Cn_Utility.GV_TAG_TYPE_END);
677: NULL);
678: Ja_Cn_Utility.Add_Child_Node('BALANCE_SIDE',
679: NULL);
680:
681: Ja_Cn_Utility.Add_Sub_Root_Node('CHART_OF_ACCOUNT',
682: Ja_Cn_Utility.GV_TAG_TYPE_END);
683: END IF;
684:
685: END IF; --The invalid account table has row or not
678: Ja_Cn_Utility.Add_Child_Node('BALANCE_SIDE',
679: NULL);
680:
681: Ja_Cn_Utility.Add_Sub_Root_Node('CHART_OF_ACCOUNT',
682: Ja_Cn_Utility.GV_TAG_TYPE_END);
683: END IF;
684:
685: END IF; --The invalid account table has row or not
686: