48: pn_ledger_id NUMBER,
49: pv_bsv VARCHAR2,
50: pn_accounting_year NUMBER) IS
51: lv_procedure_name VARCHAR2(40) := 'Add_Accounting_Unit_Info';
52: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
53: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
54:
55: ln_row_count NUMBER;
56: l_mes VARCHAR2(1000);
49: pv_bsv VARCHAR2,
50: pn_accounting_year NUMBER) IS
51: lv_procedure_name VARCHAR2(40) := 'Add_Accounting_Unit_Info';
52: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
53: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
54:
55: ln_row_count NUMBER;
56: l_mes VARCHAR2(1000);
57: CURSOR electronic_accounting_book_cur(ln_legal_entity_id NUMBER,
80: BEGIN
81: --logging for debug
82: FND_FILE.PUT_LINE(FND_FILE.log, lv_procedure_name);
83: IF (ln_proc_level >= ln_dbg_level) THEN
84: FND_LOG.STRING(ln_proc_level,
85: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
86: '.begin',
87: 'Enter procedure');
88: END IF; --ln_proc_level>=ln_dbg_level
137: --Ja_Cn_Utility.Add_Sub_Root_Node('ACC_UNIT_INFO_FILE', Ja_Cn_Utility.GV_TAG_TYPE_END);
138:
139: --logging for debug
140: IF (ln_proc_level >= ln_dbg_level) THEN
141: FND_LOG.STRING(ln_proc_level,
142: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
143: 'Exit procedure');
144: END IF; -- (ln_proc_level>=ln_dbg_level)
145: EXCEPTION
143: 'Exit procedure');
144: END IF; -- (ln_proc_level>=ln_dbg_level)
145: EXCEPTION
146: WHEN OTHERS THEN
147: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
148: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
149: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
150: '.Other_Exception ',
151: SQLCODE || SQLERRM);
144: END IF; -- (ln_proc_level>=ln_dbg_level)
145: EXCEPTION
146: WHEN OTHERS THEN
147: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
148: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
149: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
150: '.Other_Exception ',
151: SQLCODE || SQLERRM);
152: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
148: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
149: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
150: '.Other_Exception ',
151: SQLCODE || SQLERRM);
152: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
153: FND_FILE.put_line(FND_FILE.log,
154: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
155: SQLCODE || SQLERRM);
156: RAISE;
177: pv_bsv VARCHAR2,
178: pn_accounting_year NUMBER) IS
179:
180: lv_procedure_name VARCHAR2(40) := 'Add_Merchant_Bank_Info';
181: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
182: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
183: CURSOR CUR_BANKING IS
184: SELECT ffv.flex_value sub_flex_value,
185: ffv.description,
178: pn_accounting_year NUMBER) IS
179:
180: lv_procedure_name VARCHAR2(40) := 'Add_Merchant_Bank_Info';
181: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
182: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
183: CURSOR CUR_BANKING IS
184: SELECT ffv.flex_value sub_flex_value,
185: ffv.description,
186: ffv.parent_flex_value,
291: BEGIN
292: --logging for debug
293: FND_FILE.PUT_LINE(FND_FILE.log, lv_procedure_name);
294: IF (ln_proc_level >= ln_dbg_level) THEN
295: FND_LOG.STRING(ln_proc_level,
296: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
297: '.begin',
298: 'Enter procedure');
299:
359:
360: Ja_Cn_Utility.Add_Sub_Root_Node('COMMERCIAL_BANK_ORG',Ja_Cn_Utility.GV_TAG_TYPE_END);
361: Exception
362: WHEN OTHERS THEN
363: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
364: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
365: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
366: '.Other_Exception ',
367: SQLCODE || SQLERRM);
360: Ja_Cn_Utility.Add_Sub_Root_Node('COMMERCIAL_BANK_ORG',Ja_Cn_Utility.GV_TAG_TYPE_END);
361: Exception
362: WHEN OTHERS THEN
363: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
364: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
365: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
366: '.Other_Exception ',
367: SQLCODE || SQLERRM);
368: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
364: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
365: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
366: '.Other_Exception ',
367: SQLCODE || SQLERRM);
368: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
369: FND_FILE.put_line(FND_FILE.log,
370: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
371: SQLCODE || SQLERRM);
372: RAISE;
394: pv_bsv VARCHAR2,
395: pn_accounting_year NUMBER,
396: pn_branch PLS_INTEGER) IS
397: lv_procedure_name VARCHAR2(40) := 'Add_Parent_BSV';
398: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
399: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
400: lv_summary VARCHAR2(2);
401: l_flex_valueset_id NUMBER;
402: l_bsv_temp VARCHAR2(100) :=pv_bsv;
395: pn_accounting_year NUMBER,
396: pn_branch PLS_INTEGER) IS
397: lv_procedure_name VARCHAR2(40) := 'Add_Parent_BSV';
398: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
399: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
400: lv_summary VARCHAR2(2);
401: l_flex_valueset_id NUMBER;
402: l_bsv_temp VARCHAR2(100) :=pv_bsv;
403:
410: l_parent CUR_PARENT%ROWTYPE;
411: BEGIN
412: --logging for debug
413: IF (ln_proc_level >= ln_dbg_level) THEN
414: FND_LOG.STRING(ln_proc_level,
415: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
416: '.begin',
417: 'Enter procedure');
418: END IF; --ln_proc_level>=ln_dbg_level
501: END IF;
502:
503: EXCEPTION
504: WHEN OTHERS THEN
505: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
506: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
507: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
508: '.Other_Exception ',
509: SQLCODE || SQLERRM);
502:
503: EXCEPTION
504: WHEN OTHERS THEN
505: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
506: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
507: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
508: '.Other_Exception ',
509: SQLCODE || SQLERRM);
510: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
506: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
507: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
508: '.Other_Exception ',
509: SQLCODE || SQLERRM);
510: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
511: FND_FILE.put_line(FND_FILE.log,
512: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
513: SQLCODE || SQLERRM);
514: RAISE;
529: --===========================================================================
530: PROCEDURE Add_Accounting_Currency
531: IS
532: lv_procedure_name VARCHAR2(40) := 'Add_Accounting_Currency';
533: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
534: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
535: ln_row_count NUMBER :=0;
536: -- to get Currencies
537: CURSOR CUR_Currency IS
530: PROCEDURE Add_Accounting_Currency
531: IS
532: lv_procedure_name VARCHAR2(40) := 'Add_Accounting_Currency';
533: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
534: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
535: ln_row_count NUMBER :=0;
536: -- to get Currencies
537: CURSOR CUR_Currency IS
538: SELECT DISTINCT CURRENCY_CODE, Description CURRENCY_NAME, Description_TL CURRENCY_ENG_NAME
539: FROM JA_CN_SI_CURRENCIES_GT;
540: BEGIN
541: --logging for debug
542: IF (ln_proc_level >= ln_dbg_level) THEN
543: FND_LOG.STRING(ln_proc_level,
544: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
545: '.begin',
546: 'Enter procedure');
547: END IF; --ln_proc_level>=ln_dbg_level
573: Ja_Cn_Utility.Add_Sub_Root_Node('CURRENCY_FILE',
574: Ja_Cn_Utility.GV_TAG_TYPE_END);
575: --logging for debug
576: IF (ln_proc_level >= ln_dbg_level) THEN
577: FND_LOG.STRING(ln_proc_level,
578: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
579: 'Exit procedure');
580: END IF; -- (ln_proc_level>=ln_dbg_level)
581: EXCEPTION
604: pn_ledger_id NUMBER,
605: pv_bsv VARCHAR2,
606: pn_accounting_year NUMBER) IS
607: lv_procedure_name VARCHAR2(40) := 'List_Accounting_Currency';
608: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
609: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
610: -- to get Currencies
611: CURSOR CUR_Currency IS
612: SELECT fcv.currency_code, fcv.name currency_name
605: pv_bsv VARCHAR2,
606: pn_accounting_year NUMBER) IS
607: lv_procedure_name VARCHAR2(40) := 'List_Accounting_Currency';
608: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
609: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
610: -- to get Currencies
611: CURSOR CUR_Currency IS
612: SELECT fcv.currency_code, fcv.name currency_name
613: FROM fnd_currencies_vl fcv, GL_JE_LINES gjl, GL_JE_HEADERS gjh
629: l_currency_en varchar2(20);
630: BEGIN
631: --logging for debug
632: IF (ln_proc_level >= ln_dbg_level) THEN
633: FND_LOG.STRING(ln_proc_level,
634: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
635: '.begin',
636: 'Enter procedure');
637: END IF; --ln_proc_level>=ln_dbg_level
650: END LOOP;
651:
652: --logging for debug
653: IF (ln_proc_level >= ln_dbg_level) THEN
654: FND_LOG.STRING(ln_proc_level,
655: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
656: 'Exit procedure');
657: END IF; -- (ln_proc_level>=ln_dbg_level)
658: EXCEPTION
656: 'Exit procedure');
657: END IF; -- (ln_proc_level>=ln_dbg_level)
658: EXCEPTION
659: WHEN OTHERS THEN
660: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
661: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
662: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
663: '.Other_Exception ',
664: SQLCODE || SQLERRM);
657: END IF; -- (ln_proc_level>=ln_dbg_level)
658: EXCEPTION
659: WHEN OTHERS THEN
660: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
661: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
662: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
663: '.Other_Exception ',
664: SQLCODE || SQLERRM);
665: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
661: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
662: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
663: '.Other_Exception ',
664: SQLCODE || SQLERRM);
665: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
666: FND_FILE.put_line(FND_FILE.log,
667: GV_MODULE_PREFIX || '.' || lv_procedure_name || SQLCODE || SQLERRM);
668: RAISE;
669: END List_Accounting_Currency;
686: PROCEDURE Add_Accounting_Periods(pn_legal_entity_id NUMBER,
687: pn_ledger_id NUMBER,
688: pn_accounting_year NUMBER) IS
689: lv_procedure_name VARCHAR2(40) := 'Add_Accounting_Periods';
690: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
691: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
692:
693: NO_DATA EXCEPTION;
694:
687: pn_ledger_id NUMBER,
688: pn_accounting_year NUMBER) IS
689: lv_procedure_name VARCHAR2(40) := 'Add_Accounting_Periods';
690: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
691: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
692:
693: NO_DATA EXCEPTION;
694:
695: -- to get accounting periods
704:
705: BEGIN
706: --logging for debug
707: IF (ln_proc_level >= ln_dbg_level) THEN
708: FND_LOG.STRING(ln_proc_level,
709: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
710: '.begin',
711: 'Enter procedure');
712: END IF; --l_proc_level>=l_dbg_level
740: CLOSE accounting_periods_cur;
741:
742: --logging for debug
743: IF (ln_proc_level >= ln_dbg_level) THEN
744: FND_LOG.STRING(ln_proc_level,
745: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
746: 'Exit procedure');
747: END IF; -- (ln_proc_level>=ln_dbg_level)
748: EXCEPTION
748: EXCEPTION
749: WHEN NO_DATA THEN
750: --logging for debug
751: IF (ln_proc_level >= ln_dbg_level) THEN
752: FND_LOG.STRING(ln_proc_level,
753: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
754: '.begin',
755: 'The row count is 0');
756: END IF; --l_proc_level>=l_dbg_level
754: '.begin',
755: 'The row count is 0');
756: END IF; --l_proc_level>=l_dbg_level
757: WHEN OTHERS THEN
758: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
759: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
760: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
761: '.Other_Exception ',
762: SQLCODE || SQLERRM);
755: 'The row count is 0');
756: END IF; --l_proc_level>=l_dbg_level
757: WHEN OTHERS THEN
758: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
759: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
760: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
761: '.Other_Exception ',
762: SQLCODE || SQLERRM);
763: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
759: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
760: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
761: '.Other_Exception ',
762: SQLCODE || SQLERRM);
763: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
764:
765: END Add_Accounting_Periods;
766:
767:
778: l_code cur_code%rowtype;
779: l_rule varchar2(100);
780: l_row pls_integer:=0;
781: lv_procedure_name VARCHAR2(40) := 'Add_Accounting_Code_Rule';
782: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
783: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
784: BEGIN
785: --logging for debug
786: IF (ln_proc_level >= ln_dbg_level) THEN
779: l_rule varchar2(100);
780: l_row pls_integer:=0;
781: lv_procedure_name VARCHAR2(40) := 'Add_Accounting_Code_Rule';
782: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
783: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
784: BEGIN
785: --logging for debug
786: IF (ln_proc_level >= ln_dbg_level) THEN
787: FND_LOG.STRING(ln_proc_level,
783: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
784: BEGIN
785: --logging for debug
786: IF (ln_proc_level >= ln_dbg_level) THEN
787: FND_LOG.STRING(ln_proc_level,
788: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
789: '.begin',
790: 'Enter procedure');
791: END IF; --l_proc_level>=l_dbg_level
815: Ja_Cn_Utility.Add_Sub_Root_Node('ACCOUNT_STRUC_FILE',
816: Ja_Cn_Utility.GV_TAG_TYPE_END);
817: --logging for debug
818: IF (ln_proc_level >= ln_dbg_level) THEN
819: FND_LOG.STRING(ln_proc_level,
820: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
821: 'Exit procedure');
822: END IF; -- (ln_proc_level>=ln_dbg_level)
823: END Add_Accounting_Code_Rule;
876: instr(COMPILED_VALUE_ATTRIBUTES, fnd_global.local_chr(10), 1, 5)) = 'I'
877: and b.FLEX_VALUE_SET_ID = c_valueset_id;
878:
879: lv_procedure_name VARCHAR2(40) := 'Add_Inner_Sheet_Account';
880: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
881: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
882:
883: l_inner CUR_INNER%ROWTYPE;
884: l_valueset_id PLS_INTEGER;
877: and b.FLEX_VALUE_SET_ID = c_valueset_id;
878:
879: lv_procedure_name VARCHAR2(40) := 'Add_Inner_Sheet_Account';
880: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
881: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
882:
883: l_inner CUR_INNER%ROWTYPE;
884: l_valueset_id PLS_INTEGER;
885: l_parent_count PLS_INTEGER;
886: l_level PLS_INTEGER;
887: l_row PLS_INTEGER := 0;
888: BEGIN
889: IF (ln_proc_level >= ln_dbg_level) THEN
890: FND_LOG.STRING(ln_proc_level,
891: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
892: '.begin',
893: 'Enter procedure');
894: FND_LOG.STRING(ln_proc_level,
890: FND_LOG.STRING(ln_proc_level,
891: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
892: '.begin',
893: 'Enter procedure');
894: FND_LOG.STRING(ln_proc_level,
895: lv_procedure_name || '.parameters',
896: 'pn_legal_entity_id=' || pn_legal_entity_id || ',' ||
897: 'pn_ledger_id=' || pn_ledger_id || ',' ||
898: 'pn_accounting_year=' || pn_accounting_year);
977: Ja_Cn_Utility.Add_Sub_Root_Node('INTER_SHEET_ACC_FILE',
978: Ja_Cn_Utility.GV_TAG_TYPE_END);
979: --logging for debug
980: IF (ln_proc_level >= ln_dbg_level) THEN
981: FND_LOG.STRING(ln_proc_level,
982: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
983: 'Exit procedure');
984: END IF; -- (ln_proc_level>=ln_dbg_level)
985: EXCEPTION
1055: instr(COMPILED_VALUE_ATTRIBUTES, fnd_global.local_chr(10), 1, 5)) = 'E'
1056: and b.FLEX_VALUE_SET_ID = c_flex_id;
1057:
1058: lv_procedure_name VARCHAR2(40) := 'Add_Extra_Sheet_Account';
1059: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1060: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
1061:
1062: l_extra CUR_EXTRA%ROWTYPE;
1063: l_valueset_id PLS_INTEGER;
1056: and b.FLEX_VALUE_SET_ID = c_flex_id;
1057:
1058: lv_procedure_name VARCHAR2(40) := 'Add_Extra_Sheet_Account';
1059: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1060: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
1061:
1062: l_extra CUR_EXTRA%ROWTYPE;
1063: l_valueset_id PLS_INTEGER;
1064: l_parent_count PLS_INTEGER;
1065: l_level PLS_INTEGER;
1066: l_row PLS_INTEGER := 0;
1067: BEGIN
1068: IF (ln_proc_level >= ln_dbg_level) THEN
1069: FND_LOG.STRING(ln_proc_level,
1070: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
1071: '.begin',
1072: 'Enter procedure');
1073: END IF; --ln_proc_level>=ln_dbg_level
1155: Ja_Cn_Utility.Add_Sub_Root_Node('EXTRA_SHEET_ACC_FILE',
1156: Ja_Cn_Utility.GV_TAG_TYPE_END);
1157: --logging for debug
1158: IF (ln_proc_level >= ln_dbg_level) THEN
1159: FND_LOG.STRING(ln_proc_level,
1160: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
1161: 'Exit procedure');
1162: END IF; -- (ln_proc_level>=ln_dbg_level)
1163: EXCEPTION
1182: -- Nov-10-2012 Jar Wang Created
1183: --===========================================================================
1184: FUNCTION Get_Level(p_valueset pls_integer, p_parent varchar2) RETURN NUMBER IS
1185: lv_procedure_name VARCHAR2(40) := 'Get_Level';
1186: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1187: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
1188: l_level pls_integer := 1;
1189: l_temp varchar2(400);
1190: l_temp2 varchar2(400);
1183: --===========================================================================
1184: FUNCTION Get_Level(p_valueset pls_integer, p_parent varchar2) RETURN NUMBER IS
1185: lv_procedure_name VARCHAR2(40) := 'Get_Level';
1186: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1187: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
1188: l_level pls_integer := 1;
1189: l_temp varchar2(400);
1190: l_temp2 varchar2(400);
1191: l_count pls_integer;
1190: l_temp2 varchar2(400);
1191: l_count pls_integer;
1192: BEGIN
1193: IF (ln_proc_level >= ln_dbg_level) THEN
1194: FND_LOG.STRING(ln_proc_level,
1195: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
1196: '.begin',
1197: 'Enter procedure');
1198: END IF; --ln_proc_level>=ln_dbg_level
1368: end if;
1369: end loop;
1370: --logging for debug
1371: IF (ln_proc_level >= ln_dbg_level) THEN
1372: FND_LOG.STRING(ln_proc_level,
1373: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
1374: 'Exit procedure');
1375: END IF; -- (ln_proc_level>=ln_dbg_level)
1376: return l_level;