36: pv_end IN VARCHAR2,
37: pn_branch NUMBER)
38: IS
39: lv_procedure_name VARCHAR2(40) := 'Combination_Exec';
40: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
41: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
42: BEGIN
43: --logging for debug
44: FND_FILE.PUT_LINE(FND_FILE.log, lv_procedure_name);
37: pn_branch NUMBER)
38: IS
39: lv_procedure_name VARCHAR2(40) := 'Combination_Exec';
40: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
41: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
42: BEGIN
43: --logging for debug
44: FND_FILE.PUT_LINE(FND_FILE.log, lv_procedure_name);
45: IF (ln_proc_level >= ln_dbg_level) THEN
42: BEGIN
43: --logging for debug
44: FND_FILE.PUT_LINE(FND_FILE.log, lv_procedure_name);
45: IF (ln_proc_level >= ln_dbg_level) THEN
46: FND_LOG.STRING(ln_proc_level,
47: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
48: '.begin',
49: 'Enter procedure');
50:
79: pv_end );
80: END IF;
81: --logging for debug
82: IF (ln_proc_level >= ln_dbg_level) THEN
83: FND_LOG.STRING(ln_proc_level,
84: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
85: 'Exit procedure');
86: END IF; -- (ln_proc_level>=ln_dbg_level)
87: EXCEPTION
85: 'Exit procedure');
86: END IF; -- (ln_proc_level>=ln_dbg_level)
87: EXCEPTION
88: WHEN OTHERS THEN
89: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
90: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
91: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
92: '.Other_Exception ',
93: SQLCODE || SQLERRM);
86: END IF; -- (ln_proc_level>=ln_dbg_level)
87: EXCEPTION
88: WHEN OTHERS THEN
89: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
90: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
91: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
92: '.Other_Exception ',
93: SQLCODE || SQLERRM);
94: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
90: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
91: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
92: '.Other_Exception ',
93: SQLCODE || SQLERRM);
94: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
95: FND_FILE.put_line(FND_FILE.log,
96: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
97: SQLCODE || SQLERRM);
98: RAISE;
107: pv_start IN VARCHAR2,
108: pv_end IN VARCHAR2,
109: pn_branch NUMBER) IS
110: lv_procedure_name VARCHAR2(40) := 'Recursion_BSV';
111: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
112: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
113: lv_summary VARCHAR2(2);
114: l_flex_valueset_id NUMBER;
115: l_bsv_temp VARCHAR2(100) :=pv_bsv;
108: pv_end IN VARCHAR2,
109: pn_branch NUMBER) IS
110: lv_procedure_name VARCHAR2(40) := 'Recursion_BSV';
111: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
112: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
113: lv_summary VARCHAR2(2);
114: l_flex_valueset_id NUMBER;
115: l_bsv_temp VARCHAR2(100) :=pv_bsv;
116:
124: BEGIN
125: --logging for debug
126: FND_FILE.PUT_LINE(FND_FILE.log, lv_procedure_name);
127: IF (ln_proc_level >= ln_dbg_level) THEN
128: FND_LOG.STRING(ln_proc_level,
129: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
130: '.begin',
131: 'Enter procedure');
132: FND_LOG.STRING(ln_proc_level,
128: FND_LOG.STRING(ln_proc_level,
129: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
130: '.begin',
131: 'Enter procedure');
132: FND_LOG.STRING(ln_proc_level,
133: lv_procedure_name || '.parameters',
134: 'pn_legal_entity_id=' || pn_legal_entity_id || ',' ||
135: 'pn_ledger_id=' || pn_ledger_id || ',' ||
136: 'pn_accounting_year=' || pv_accounting_year);
210: END IF;
211:
212: --logging for debug
213: IF (ln_proc_level >= ln_dbg_level) THEN
214: FND_LOG.STRING(ln_proc_level,
215: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
216: 'Exit procedure');
217: END IF; -- (ln_proc_level>=ln_dbg_level)
218: EXCEPTION
216: 'Exit procedure');
217: END IF; -- (ln_proc_level>=ln_dbg_level)
218: EXCEPTION
219: WHEN OTHERS THEN
220: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
221: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
222: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
223: '.Other_Exception ',
224: SQLCODE || SQLERRM);
217: END IF; -- (ln_proc_level>=ln_dbg_level)
218: EXCEPTION
219: WHEN OTHERS THEN
220: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
221: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
222: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
223: '.Other_Exception ',
224: SQLCODE || SQLERRM);
225: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
221: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
222: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
223: '.Other_Exception ',
224: SQLCODE || SQLERRM);
225: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
226: FND_FILE.put_line(FND_FILE.log,
227: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
228: SQLCODE || SQLERRM);
229: RAISE;
277: pv_xml_template_territory IN VARCHAR2,
278: pv_xml_output_format IN VARCHAR2) IS
279: lv_gl_element VARCHAR2(1000);
280: lv_procedure_name VARCHAR2(40) := 'Export_GL';
281: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
282: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
283: NO_DATA EXCEPTION;
284:
285: BEGIN
278: pv_xml_output_format IN VARCHAR2) IS
279: lv_gl_element VARCHAR2(1000);
280: lv_procedure_name VARCHAR2(40) := 'Export_GL';
281: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
282: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
283: NO_DATA EXCEPTION;
284:
285: BEGIN
286: --logging for debug
284:
285: BEGIN
286: --logging for debug
287: IF (ln_proc_level >= ln_dbg_level) THEN
288: FND_LOG.STRING(ln_proc_level,
289: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
290: '.begin',
291: 'Enter procedure');
292: -- logging the parameters
289: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
290: '.begin',
291: 'Enter procedure');
292: -- logging the parameters
293: FND_LOG.STRING(ln_proc_level,
294: lv_procedure_name || '.parameters',
295: 'pn_legal_entity_id=' || pn_legal_entity_id || ',' ||
296: 'pn_chart_of_account_id=' || pn_chart_of_account_id || ',' ||
297: 'pn_ledger_id=' || pn_ledger_id || ',' ||
394: FND_FILE.put_line(FND_FILE.output, Ja_Cn_Utility.Get_XML_Tag('GENERAL_LEDGER',Ja_Cn_Utility.GV_TAG_TYPE_END));
395: COMMIT;
396: --logging for debug
397: IF (ln_proc_level >= ln_dbg_level) THEN
398: FND_LOG.STRING(ln_proc_level,
399: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
400: 'Exit procedure');
401: END IF; -- (ln_proc_level>=ln_dbg_level)
402:
401: END IF; -- (ln_proc_level>=ln_dbg_level)
402:
403: EXCEPTION
404: WHEN OTHERS THEN
405: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
406: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
407: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
408: '.Other_Exception ',
409: SQLCODE || SQLERRM);
402:
403: EXCEPTION
404: WHEN OTHERS THEN
405: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
406: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
407: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
408: '.Other_Exception ',
409: SQLCODE || SQLERRM);
410: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
406: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
407: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
408: '.Other_Exception ',
409: SQLCODE || SQLERRM);
410: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
411: pv_retcode := '2';
412: pv_errbuf := SQLCODE || SQLERRM;
413: FND_FILE.put_line(FND_FILE.log,GV_MODULE_PREFIX||'.'||
414: lv_procedure_name ||': '|| SQLCODE || SQLERRM);
489: pv_accounting_year IN VARCHAR2,
490: pv_start IN VARCHAR2,
491: pv_end IN VARCHAR2) IS
492: lv_procedure_name VARCHAR2(40) := 'Add_GL_BALANCE';
493: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
494: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
495:
496: CURSOR CUR_GL_BAL(c_from date, c_to date) is
497: SELECT Ja_Cn_Utility.GET_ACCOUNTING_SEGMENT(GBS.CODE_COMBINATION_ID) ACCOUNT_SEG,
490: pv_start IN VARCHAR2,
491: pv_end IN VARCHAR2) IS
492: lv_procedure_name VARCHAR2(40) := 'Add_GL_BALANCE';
493: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
494: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
495:
496: CURSOR CUR_GL_BAL(c_from date, c_to date) is
497: SELECT Ja_Cn_Utility.GET_ACCOUNTING_SEGMENT(GBS.CODE_COMBINATION_ID) ACCOUNT_SEG,
498: GBS.CURRENCY_CODE,
558: l_period_from date;
559: l_period_to date;
560: BEGIN
561: IF (ln_proc_level >= ln_dbg_level) THEN
562: FND_LOG.STRING(ln_proc_level,
563: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
564: '.begin',
565: 'Enter procedure');
566: END IF;
609:
610: FND_FILE.put_line(FND_FILE.log, lv_procedure_name||'Setup1.3');
611: --logging for debug
612: IF (ln_proc_level >= ln_dbg_level) THEN
613: FND_LOG.STRING(ln_proc_level,
614: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
615: 'Exit procedure');
616: END IF; -- (ln_proc_level>=ln_dbg_level)
617: EXCEPTION
617: EXCEPTION
618: WHEN OTHERS THEN
619: IF (ln_proc_level >= ln_dbg_level)
620: THEN
621: FND_LOG.STRING(ln_proc_level
622: ,GV_MODULE_PREFIX||'.'||lv_procedure_name||'EXCEPTION'
623: ,SQLCODE||':'||SQLERRM
624: );
625: FND_LOG.String(ln_proc_level
621: FND_LOG.STRING(ln_proc_level
622: ,GV_MODULE_PREFIX||'.'||lv_procedure_name||'EXCEPTION'
623: ,SQLCODE||':'||SQLERRM
624: );
625: FND_LOG.String(ln_proc_level
626: ,GV_MODULE_PREFIX||'.'||lv_procedure_name||'. Other_Exception '
627: ,SQLCODE||':'||SQLERRM
628: );
629: END IF;
655: -- 25-Oct-2012 Jar Wang created
656: --==========================================================================
657: PROCEDURE Print_GL_BALANCE IS
658: lv_procedure_name VARCHAR2(40) := 'Add_GL_BALANCE';
659: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
660: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
661:
662: CURSOR CUR_GL_BAL is
663: SELECT ACCOUNT_SEG,
656: --==========================================================================
657: PROCEDURE Print_GL_BALANCE IS
658: lv_procedure_name VARCHAR2(40) := 'Add_GL_BALANCE';
659: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
660: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
661:
662: CURSOR CUR_GL_BAL is
663: SELECT ACCOUNT_SEG,
664: CURRENCY_CODE,
682: l_gl_bal CUR_GL_BAL%ROWTYPE;
683: l_row_count pls_integer:=0;
684: BEGIN
685: IF (ln_proc_level >= ln_dbg_level) THEN
686: FND_LOG.STRING(ln_proc_level,
687: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
688: '.begin',
689: 'Enter procedure');
690: END IF;
734:
735: FND_FILE.put_line(FND_FILE.log, lv_procedure_name||'Setup1.3');
736: --logging for debug
737: IF (ln_proc_level >= ln_dbg_level) THEN
738: FND_LOG.STRING(ln_proc_level,
739: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
740: 'Exit procedure');
741: END IF; -- (ln_proc_level>=ln_dbg_level)
742: EXCEPTION
742: EXCEPTION
743: WHEN OTHERS THEN
744: IF (ln_proc_level >= ln_dbg_level)
745: THEN
746: FND_LOG.STRING(ln_proc_level
747: ,GV_MODULE_PREFIX||'.'||lv_procedure_name||'EXCEPTION'
748: ,SQLCODE||':'||SQLERRM
749: );
750: END IF;
762: pv_start IN VARCHAR2,
763: pv_end IN VARCHAR2)
764: IS
765: lv_procedure_name VARCHAR2(40) := 'Add_GL_AVG_BAL';
766: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
767: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
768:
769: CURSOR CUR_AVG_JOURNAL(c_from date, c_to date)
770: IS
763: pv_end IN VARCHAR2)
764: IS
765: lv_procedure_name VARCHAR2(40) := 'Add_GL_AVG_BAL';
766: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
767: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
768:
769: CURSOR CUR_AVG_JOURNAL(c_from date, c_to date)
770: IS
771: SELECT JA_CN_UTILITY.GET_ACCOUNTING_SEGMENT(GJL.CODE_COMBINATION_ID) ACCOUNT_SEG,
795: l_journal CUR_AVG_JOURNAL%ROWTYPE;
796: BEGIN
797: FND_FILE.put_line(FND_FILE.log, 'Setup2.1');
798: IF (ln_proc_level >= ln_dbg_level) THEN
799: FND_LOG.STRING(ln_proc_level,
800: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
801: '.begin',
802: 'Enter procedure');
803: END IF;
842:
843: FND_FILE.put_line(FND_FILE.log, 'Setup2.4');
844: --logging for debug
845: IF (ln_proc_level >= ln_dbg_level) THEN
846: FND_LOG.STRING(ln_proc_level,
847: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
848: 'Exit procedure');
849: END IF; -- (ln_proc_level>=ln_dbg_level)
850: EXCEPTION
850: EXCEPTION
851: WHEN OTHERS THEN
852: IF (ln_proc_level >= ln_dbg_level)
853: THEN
854: FND_LOG.STRING(ln_proc_level
855: ,GV_MODULE_PREFIX||'.'||lv_procedure_name||'EXCEPTION'
856: ,SQLCODE||':'||SQLERRM
857: );
858: FND_LOG.String(ln_proc_level
854: FND_LOG.STRING(ln_proc_level
855: ,GV_MODULE_PREFIX||'.'||lv_procedure_name||'EXCEPTION'
856: ,SQLCODE||':'||SQLERRM
857: );
858: FND_LOG.String(ln_proc_level
859: ,GV_MODULE_PREFIX||'.'||lv_procedure_name||'. Other_Exception '
860: ,SQLCODE||':'||SQLERRM
861: );
862: END IF;
867:
868: PROCEDURE Print_GL_AVG_BAL
869: IS
870: lv_procedure_name VARCHAR2(40) := 'Pring_GL_AVG_BAL';
871: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
872: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
873: CURSOR CUR_AVG_JOURNAL
874: IS
875: SELECT ACCOUNT_SEG,
868: PROCEDURE Print_GL_AVG_BAL
869: IS
870: lv_procedure_name VARCHAR2(40) := 'Pring_GL_AVG_BAL';
871: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
872: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
873: CURSOR CUR_AVG_JOURNAL
874: IS
875: SELECT ACCOUNT_SEG,
876: CURRENCY_CODE,
887: l_journal CUR_AVG_JOURNAL%ROWTYPE;
888: l_row_count pls_integer:=0;
889: BEGIN
890: IF (ln_proc_level >= ln_dbg_level) THEN
891: FND_LOG.STRING(ln_proc_level,
892: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
893: '.begin',
894: 'Enter procedure');
895: END IF;
931: END IF;
932:
933: --logging for debug
934: IF (ln_proc_level >= ln_dbg_level) THEN
935: FND_LOG.STRING(ln_proc_level,
936: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
937: 'Exit procedure');
938: END IF; -- (ln_proc_level>=ln_dbg_level)
939: EXCEPTION
939: EXCEPTION
940: WHEN OTHERS THEN
941: IF (ln_proc_level >= ln_dbg_level)
942: THEN
943: FND_LOG.STRING(ln_proc_level
944: ,GV_MODULE_PREFIX||'.'||lv_procedure_name||'EXCEPTION'
945: ,SQLCODE||':'||SQLERRM
946: );
947: FND_LOG.String(ln_proc_level
943: FND_LOG.STRING(ln_proc_level
944: ,GV_MODULE_PREFIX||'.'||lv_procedure_name||'EXCEPTION'
945: ,SQLCODE||':'||SQLERRM
946: );
947: FND_LOG.String(ln_proc_level
948: ,GV_MODULE_PREFIX||'.'||lv_procedure_name||'. Other_Exception '
949: ,SQLCODE||':'||SQLERRM
950: );
951: END IF;
985: pv_end IN VARCHAR2)
986:
987: IS
988: lv_procedure_name VARCHAR2(40) := 'Add_GL_JOURNAL';
989: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
990: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
991: CURSOR CUR_JOURNAL(c_from date, c_to date)
992: IS
993: SELECT TO_CHAR(GJH.DEFAULT_EFFECTIVE_DATE, 'YYYYMMDD') JOURNAL_DATE,
986:
987: IS
988: lv_procedure_name VARCHAR2(40) := 'Add_GL_JOURNAL';
989: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
990: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
991: CURSOR CUR_JOURNAL(c_from date, c_to date)
992: IS
993: SELECT TO_CHAR(GJH.DEFAULT_EFFECTIVE_DATE, 'YYYYMMDD') JOURNAL_DATE,
994: GJH.DESCRIPTION,
1040: l_approver varchar2(50);
1041: l_poster varchar2(50);
1042: BEGIN
1043: IF (ln_proc_level >= ln_dbg_level) THEN
1044: FND_LOG.STRING(ln_proc_level,
1045: GV_MODULE_PREFIX || '.' || lv_procedure_name ||
1046: '.begin',
1047: 'Enter procedure');
1048: END IF;
1164:
1165: FND_FILE.put_line(FND_FILE.log,'GL Setup:3.5');
1166: --logging for debug
1167: IF (ln_proc_level >= ln_dbg_level) THEN
1168: FND_LOG.STRING(ln_proc_level,
1169: GV_MODULE_PREFIX || '.' || lv_procedure_name || '.end',
1170: 'Exit procedure');
1171: END IF; -- (ln_proc_level>=ln_dbg_level)
1172: EXCEPTION
1172: EXCEPTION
1173: WHEN OTHERS THEN
1174: IF (ln_proc_level >= ln_dbg_level)
1175: THEN
1176: FND_LOG.STRING(ln_proc_level
1177: ,GV_MODULE_PREFIX||'.'||lv_procedure_name||'EXCEPTION'
1178: ,SQLCODE||':'||SQLERRM
1179: );
1180: END IF;
1186: --added by jar.wang for bug 16075191
1187: FUNCTION Get_FullName(p_username VARCHAR2) return varchar2
1188: as
1189: lv_procedure_name VARCHAR2(40) := 'Get_FullName';
1190: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1191: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
1192: l_fullname varchar2(50);
1193: BEGIN
1194: BEGIN
1187: FUNCTION Get_FullName(p_username VARCHAR2) return varchar2
1188: as
1189: lv_procedure_name VARCHAR2(40) := 'Get_FullName';
1190: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1191: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
1192: l_fullname varchar2(50);
1193: BEGIN
1194: BEGIN
1195: select full_name into l_fullname
1208: EXCEPTION
1209: WHEN OTHERS THEN
1210: IF (ln_proc_level >= ln_dbg_level)
1211: THEN
1212: FND_LOG.STRING(ln_proc_level
1213: ,GV_MODULE_PREFIX||'.'||lv_procedure_name||'EXCEPTION'
1214: ,SQLCODE||':'||SQLERRM
1215: );
1216: END IF;
1223:
1224: FUNCTION Get_Approver(p_je_header pls_integer,p_fnd_user varchar2) return varchar2
1225: as
1226: lv_procedure_name VARCHAR2(40) := 'Get_Approver';
1227: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1228: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
1229: l_approver varchar2(50);
1230: BEGIN
1231: BEGIN
1224: FUNCTION Get_Approver(p_je_header pls_integer,p_fnd_user varchar2) return varchar2
1225: as
1226: lv_procedure_name VARCHAR2(40) := 'Get_Approver';
1227: ln_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1228: ln_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
1229: l_approver varchar2(50);
1230: BEGIN
1231: BEGIN
1232: select assigned_user into l_approver
1263: EXCEPTION
1264: WHEN OTHERS THEN
1265: IF (ln_proc_level >= ln_dbg_level)
1266: THEN
1267: FND_LOG.STRING(ln_proc_level
1268: ,GV_MODULE_PREFIX||'.'||lv_procedure_name||'EXCEPTION'
1269: ,SQLCODE||':'||SQLERRM
1270: );
1271: END IF;