6: ------------------------------------------------------------------------------
7: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_XPRT_XRULE_VALUES_PVT';
8: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
9:
10: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
11: G_MODULE CONSTANT VARCHAR2(250) := 'okc.plsql.'||g_pkg_name||'.';
12: G_APPLICATION_ID CONSTANT NUMBER :=510; -- OKC Application
13:
14: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
53:
54: BEGIN
55:
56: -- start debug log
57: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
58: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
59: G_MODULE||l_api_name,
60: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
61: END IF;
54: BEGIN
55:
56: -- start debug log
57: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
58: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
59: G_MODULE||l_api_name,
60: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
61: END IF;
62:
81: END IF;
82:
83: -- Log all Variable values in the Pl/sql table
84:
85: /*IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
86: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
87: G_MODULE||l_api_name,
88: '110: All System Variables before removing Null values and Not_null values');
89: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
82:
83: -- Log all Variable values in the Pl/sql table
84:
85: /*IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
86: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
87: G_MODULE||l_api_name,
88: '110: All System Variables before removing Null values and Not_null values');
89: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
90: G_MODULE||l_api_name,
85: /*IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
86: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
87: G_MODULE||l_api_name,
88: '110: All System Variables before removing Null values and Not_null values');
89: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
90: G_MODULE||l_api_name,
91: '110: Variable name '||' ' ||'Variable value');
92: FOR i IN l_sys_var_value_tbl.first..l_sys_var_value_tbl.last LOOP
93: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
89: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
90: G_MODULE||l_api_name,
91: '110: Variable name '||' ' ||'Variable value');
92: FOR i IN l_sys_var_value_tbl.first..l_sys_var_value_tbl.last LOOP
93: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
94: l_sys_var_value_tbl(i).variable_code ||' '||
95: l_sys_var_value_tbl(i).variable_value_id);
96: END LOOP;
97: END IF;*/
111: -- l_sys_var_value_tbl(i).variable_value_id will always be NULL if the
112: -- document type is 'REPOSITORY'
113:
114: -- Log all Variable values in the Pl/sql table
115: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
116: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
117: G_MODULE||l_api_name,
118: '140: All system variables ');
119: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
112: -- document type is 'REPOSITORY'
113:
114: -- Log all Variable values in the Pl/sql table
115: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
116: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
117: G_MODULE||l_api_name,
118: '140: All system variables ');
119: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
120: G_MODULE||l_api_name,
115: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
116: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
117: G_MODULE||l_api_name,
118: '140: All system variables ');
119: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
120: G_MODULE||l_api_name,
121: '140: Variable name '||' ' ||'Variable value');
122: IF (x_sys_var_value_tbl.count <> 0) THEN -- For Bug# 6833184
123: FOR i IN x_sys_var_value_tbl.first..x_sys_var_value_tbl.last LOOP
120: G_MODULE||l_api_name,
121: '140: Variable name '||' ' ||'Variable value');
122: IF (x_sys_var_value_tbl.count <> 0) THEN -- For Bug# 6833184
123: FOR i IN x_sys_var_value_tbl.first..x_sys_var_value_tbl.last LOOP
124: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
125: x_sys_var_value_tbl(i).variable_code ||' '||
126: substr(x_sys_var_value_tbl(i).variable_value_id,1,100));
127: END LOOP;
128: END IF; -- For Bug# 6833184
129: END IF;
130:
131:
132: -- end debug log
133: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
134: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
135: G_MODULE||l_api_name,
136: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
137: END IF;
130:
131:
132: -- end debug log
133: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
134: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
135: G_MODULE||l_api_name,
136: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
137: END IF;
138:
139:
140: EXCEPTION
141:
142: WHEN FND_API.G_EXC_ERROR THEN
143: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
144: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
145: G_MODULE||l_api_name,
146: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
147: END IF;
140: EXCEPTION
141:
142: WHEN FND_API.G_EXC_ERROR THEN
143: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
144: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
145: G_MODULE||l_api_name,
146: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
147: END IF;
148:
149: x_return_status := G_RET_STS_ERROR ;
150: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
151:
152: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
153: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
154: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
155: G_MODULE||l_api_name,
156: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
157: END IF;
150: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
151:
152: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
153: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
154: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
155: G_MODULE||l_api_name,
156: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
157: END IF;
158:
159: x_return_status := G_RET_STS_UNEXP_ERROR ;
160: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
161:
162: WHEN OTHERS THEN
163: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
164: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
165: G_MODULE||l_api_name,
166: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
167: END IF;
160: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
161:
162: WHEN OTHERS THEN
163: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
164: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
165: G_MODULE||l_api_name,
166: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
167: END IF;
168:
264:
265: BEGIN
266:
267: -- start debug log
268: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
269: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
270: G_MODULE||l_api_name,
271: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
272: END IF;
265: BEGIN
266:
267: -- start debug log
268: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
269: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
270: G_MODULE||l_api_name,
271: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
272: END IF;
273:
319: END IF;
320: END IF;
321:
322: -- Log all Variable values in the Pl/sql table
323: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
324: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
325: G_MODULE||l_api_name,
326: '110: No. of Lines: '|| x_line_count);
327:
320: END IF;
321:
322: -- Log all Variable values in the Pl/sql table
323: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
324: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
325: G_MODULE||l_api_name,
326: '110: No. of Lines: '|| x_line_count);
327:
328: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
324: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
325: G_MODULE||l_api_name,
326: '110: No. of Lines: '|| x_line_count);
327:
328: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
329: G_MODULE||l_api_name,
330: '120: Line Number'||' ' ||
331: 'Variable Name '||' ' ||
332: 'Variable Value '||' ' ||
333: 'Item Id'||' ' ||
334: 'Org Id');
335: IF x_line_sys_var_value_tbl.COUNT > 0 THEN
336: FOR i IN x_line_sys_var_value_tbl.FIRST..x_line_sys_var_value_tbl.LAST LOOP
337: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
338: x_line_sys_var_value_tbl(i).line_number ||' '||
339: x_line_sys_var_value_tbl(i).variable_code ||' '||
340: x_line_sys_var_value_tbl(i).variable_value ||' '||
341: x_line_sys_var_value_tbl(i).item_id ||' '||
344: END IF;
345: END IF;
346:
347: -- end debug log
348: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
349: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
350: G_MODULE||l_api_name,
351: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
352: END IF;
345: END IF;
346:
347: -- end debug log
348: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
349: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
350: G_MODULE||l_api_name,
351: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
352: END IF;
353:
354: EXCEPTION
355:
356:
357: WHEN FND_API.G_EXC_ERROR THEN
358: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
359: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
360: G_MODULE||l_api_name,
361: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
362: END IF;
355:
356:
357: WHEN FND_API.G_EXC_ERROR THEN
358: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
359: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
360: G_MODULE||l_api_name,
361: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
362: END IF;
363:
364: x_return_status := G_RET_STS_ERROR ;
365: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
366:
367: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
368: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
369: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
370: G_MODULE||l_api_name,
371: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
372: END IF;
365: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
366:
367: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
368: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
369: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
370: G_MODULE||l_api_name,
371: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
372: END IF;
373:
374: x_return_status := G_RET_STS_UNEXP_ERROR ;
375: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
376:
377: WHEN OTHERS THEN
378: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
379: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
380: G_MODULE||l_api_name,
381: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
382: END IF;
375: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
376:
377: WHEN OTHERS THEN
378: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
379: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
380: G_MODULE||l_api_name,
381: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
382: END IF;
383:
479:
480: BEGIN
481:
482: -- start debug log
483: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
484: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
485: G_MODULE||l_api_name,
486: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
487: END IF;
480: BEGIN
481:
482: -- start debug log
483: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
484: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
485: G_MODULE||l_api_name,
486: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
487: END IF;
488:
493: CLOSE csr_get_udf_variables;
494:
495:
496: -- Log all User Defined Variable values in the Pl/sql table
497: /*IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
498: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
499: G_MODULE||l_api_name,
500: '110: User Defined Variable name '||' ' ||'User Defined Variable value');
501: FOR i IN x_udf_var_value_tbl.first..x_udf_var_value_tbl.last LOOP
494:
495:
496: -- Log all User Defined Variable values in the Pl/sql table
497: /*IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
498: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
499: G_MODULE||l_api_name,
500: '110: User Defined Variable name '||' ' ||'User Defined Variable value');
501: FOR i IN x_udf_var_value_tbl.first..x_udf_var_value_tbl.last LOOP
502: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
498: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
499: G_MODULE||l_api_name,
500: '110: User Defined Variable name '||' ' ||'User Defined Variable value');
501: FOR i IN x_udf_var_value_tbl.first..x_udf_var_value_tbl.last LOOP
502: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
503: x_udf_var_value_tbl(i).variable_code ||' '||
504: x_udf_var_value_tbl(i).variable_value_id);
505: END LOOP;
506: END IF;*/
505: END LOOP;
506: END IF;*/
507:
508: -- end debug log
509: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
510: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
511: G_MODULE||l_api_name,
512: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
513: END IF;
506: END IF;*/
507:
508: -- end debug log
509: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
510: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
511: G_MODULE||l_api_name,
512: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
513: END IF;
514:
515: EXCEPTION
516:
517:
518: WHEN FND_API.G_EXC_ERROR THEN
519: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
520: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
521: G_MODULE||l_api_name,
522: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
523: END IF;
516:
517:
518: WHEN FND_API.G_EXC_ERROR THEN
519: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
520: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
521: G_MODULE||l_api_name,
522: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
523: END IF;
524:
525: x_return_status := G_RET_STS_ERROR ;
526: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
527:
528: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
529: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
530: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
531: G_MODULE||l_api_name,
532: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
533: END IF;
526: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
527:
528: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
529: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
530: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
531: G_MODULE||l_api_name,
532: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
533: END IF;
534:
535: x_return_status := G_RET_STS_UNEXP_ERROR ;
536: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
537:
538: WHEN OTHERS THEN
539: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
540: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
541: G_MODULE||l_api_name,
542: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
543: END IF;
536: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
537:
538: WHEN OTHERS THEN
539: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
540: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
541: G_MODULE||l_api_name,
542: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
543: END IF;
544:
586:
587: BEGIN
588:
589: -- start debug log
590: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
591: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
592: G_MODULE||l_api_name,
593: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
594: END IF;
587: BEGIN
588:
589: -- start debug log
590: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
591: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
592: G_MODULE||l_api_name,
593: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
594: END IF;
595:
600: FETCH csr_constants BULK COLLECT INTO x_constant_tbl;
601: CLOSE csr_constants;
602:
603: -- Log all Variable values in the Pl/sql table
604: /*IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
605: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
606: G_MODULE||l_api_name,
607: '110: Constant name '||' ' ||'Constant value');
608: FOR i IN x_constant_tbl.first..x_constant_tbl.last LOOP
601: CLOSE csr_constants;
602:
603: -- Log all Variable values in the Pl/sql table
604: /*IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
605: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
606: G_MODULE||l_api_name,
607: '110: Constant name '||' ' ||'Constant value');
608: FOR i IN x_constant_tbl.first..x_constant_tbl.last LOOP
609: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
605: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
606: G_MODULE||l_api_name,
607: '110: Constant name '||' ' ||'Constant value');
608: FOR i IN x_constant_tbl.first..x_constant_tbl.last LOOP
609: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
610: x_constant_tbl(i).constant_id ||' '||
611: x_constant_tbl(i).value);
612: END LOOP;
613: END IF;*/
612: END LOOP;
613: END IF;*/
614:
615: -- end debug log
616: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
617: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
618: G_MODULE||l_api_name,
619: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
620: END IF;
613: END IF;*/
614:
615: -- end debug log
616: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
617: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
618: G_MODULE||l_api_name,
619: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
620: END IF;
621:
621:
622: EXCEPTION
623:
624: WHEN FND_API.G_EXC_ERROR THEN
625: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
626: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
627: G_MODULE||l_api_name,
628: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
629: END IF;
622: EXCEPTION
623:
624: WHEN FND_API.G_EXC_ERROR THEN
625: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
626: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
627: G_MODULE||l_api_name,
628: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
629: END IF;
630:
631: x_return_status := G_RET_STS_ERROR ;
632: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
633:
634: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
635: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
636: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
637: G_MODULE||l_api_name,
638: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
639: END IF;
632: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
633:
634: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
635: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
636: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
637: G_MODULE||l_api_name,
638: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
639: END IF;
640:
641: x_return_status := G_RET_STS_UNEXP_ERROR ;
642: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
643:
644: WHEN OTHERS THEN
645: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
646: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
647: G_MODULE||l_api_name,
648: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
649: END IF;
642: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
643:
644: WHEN OTHERS THEN
645: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
646: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
647: G_MODULE||l_api_name,
648: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
649: END IF;
650:
763:
764: BEGIN
765:
766: -- start debug log
767: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
768: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
769: G_MODULE||l_api_name,
770: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
771: END IF;
764: BEGIN
765:
766: -- start debug log
767: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
768: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
769: G_MODULE||l_api_name,
770: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
771: END IF;
772:
812: l_udf_var_value_tbl(i).variable_code := variableCode_tbl(i);
813:
814: --kkolukul: Modified Code to allow multi values variables to be used in Expert
815: -- start debug log
816: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
817: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
818: G_MODULE||l_api_name,
819: '106: Before Calling code Hook ');
820: END IF;
813:
814: --kkolukul: Modified Code to allow multi values variables to be used in Expert
815: -- start debug log
816: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
817: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
818: G_MODULE||l_api_name,
819: '106: Before Calling code Hook ');
820: END IF;
821:
831: x_cust_udf_var_mul_val_tbl => l_udf_with_proc_mul_val_tbl,
832: x_hook_used => l_hook_used );
833:
834:
835: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
836: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
837: G_MODULE||l_api_name,
838: '107: After Calling code Hook - l_hook_used value: ' || l_hook_used || ' "0": Hook not used, "-1": Error in hook, any other value, hook is used');
839: END IF;
832: x_hook_used => l_hook_used );
833:
834:
835: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
836: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
837: G_MODULE||l_api_name,
838: '107: After Calling code Hook - l_hook_used value: ' || l_hook_used || ' "0": Hook not used, "-1": Error in hook, any other value, hook is used');
839: END IF;
840:
864: '); END;';
865:
866: -- execute the dynamic sql
867: -- start debug log
868: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
869: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
870: G_MODULE||l_api_name,
871: '105: l_sql_stmt '|| l_sql_stmt);
872: END IF;
865:
866: -- execute the dynamic sql
867: -- start debug log
868: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
869: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
870: G_MODULE||l_api_name,
871: '105: l_sql_stmt '|| l_sql_stmt);
872: END IF;
873:
907: END LOOP;
908:
909:
910: -- Log all User Defined Variable values in the Pl/sql table
911: /*IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
912: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
913: G_MODULE||l_api_name,
914: '110: User Defined Variable name '||' ' ||'User Defined Variable value');
915: FOR i IN x_udf_var_value_tbl.first..x_udf_var_value_tbl.last LOOP
908:
909:
910: -- Log all User Defined Variable values in the Pl/sql table
911: /*IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
912: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
913: G_MODULE||l_api_name,
914: '110: User Defined Variable name '||' ' ||'User Defined Variable value');
915: FOR i IN x_udf_var_value_tbl.first..x_udf_var_value_tbl.last LOOP
916: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
912: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
913: G_MODULE||l_api_name,
914: '110: User Defined Variable name '||' ' ||'User Defined Variable value');
915: FOR i IN x_udf_var_value_tbl.first..x_udf_var_value_tbl.last LOOP
916: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
917: x_udf_var_value_tbl(i).variable_code ||' '||
918: x_udf_var_value_tbl(i).variable_value_id);
919: END LOOP;
920: END IF;*/
919: END LOOP;
920: END IF;*/
921:
922: -- end debug log
923: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
924: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
925: G_MODULE||l_api_name,
926: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
927: END IF;
920: END IF;*/
921:
922: -- end debug log
923: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
924: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
925: G_MODULE||l_api_name,
926: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
927: END IF;
928:
929: EXCEPTION
930:
931:
932: WHEN FND_API.G_EXC_ERROR THEN
933: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
934: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
935: G_MODULE||l_api_name,
936: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
937: END IF;
930:
931:
932: WHEN FND_API.G_EXC_ERROR THEN
933: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
934: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
935: G_MODULE||l_api_name,
936: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
937: END IF;
938:
939: x_return_status := G_RET_STS_ERROR ;
940: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
941:
942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
943: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
944: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
945: G_MODULE||l_api_name,
946: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
947: END IF;
940: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
941:
942: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
943: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
944: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
945: G_MODULE||l_api_name,
946: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
947: END IF;
948:
949: x_return_status := G_RET_STS_UNEXP_ERROR ;
950: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
951:
952: WHEN OTHERS THEN
953: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
954: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
955: G_MODULE||l_api_name,
956: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
957: END IF;
950: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
951:
952: WHEN OTHERS THEN
953: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
954: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
955: G_MODULE||l_api_name,
956: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
957: END IF;
958:
1046: );
1047:
1048: BEGIN
1049: -- start debug log
1050: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1051: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1052: G_MODULE||l_api_name,
1053: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
1054: END IF;
1047:
1048: BEGIN
1049: -- start debug log
1050: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1051: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1052: G_MODULE||l_api_name,
1053: '100: Entered '||G_PKG_NAME ||'.'||l_api_name);
1054: END IF;
1055:
1090: RAISE FND_API.G_EXC_ERROR;
1091: END IF;
1092:
1093: -- start debug log
1094: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1095: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1096: G_MODULE||l_api_name,
1097: '110: Finished Step1 - Get Header level document variabels');
1098: END IF;
1091: END IF;
1092:
1093: -- start debug log
1094: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1095: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1096: G_MODULE||l_api_name,
1097: '110: Finished Step1 - Get Header level document variabels');
1098: END IF;
1099:
1105: p_org_id => l_org_id);
1106:
1107:
1108: -- start debug log
1109: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1110: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1111: G_MODULE||l_api_name,
1112: '120: Finished Step2 - Check for Line level rules');
1113: END IF;
1106:
1107:
1108: -- start debug log
1109: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1110: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1111: G_MODULE||l_api_name,
1112: '120: Finished Step2 - Check for Line level rules');
1113: END IF;
1114:
1135: RAISE FND_API.G_EXC_ERROR;
1136: END IF;
1137:
1138: -- start debug log
1139: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1140: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1141: G_MODULE||l_api_name,
1142: '130: Finished Step3. Line level rules flag is Y. After calling get_line_system_variables');
1143: END IF;
1136: END IF;
1137:
1138: -- start debug log
1139: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1140: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1141: G_MODULE||l_api_name,
1142: '130: Finished Step3. Line level rules flag is Y. After calling get_line_system_variables');
1143: END IF;
1144:
1218: x_line_count := 1; -- Since no Lines, need to set line count to 1 for the CX Java code
1219: x_line_variables_count := 0; -- Since no Lines, need to set line variables count to 0 for the CX Java code
1220:
1221: -- start debug log
1222: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1223: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1224: G_MODULE||l_api_name,
1225: '140: Finished Step3. Line level rules flag is N. After calling OKC_TERMS_UTIL_GRP.get_item_dtl_for_expert');
1226: END IF;
1219: x_line_variables_count := 0; -- Since no Lines, need to set line variables count to 0 for the CX Java code
1220:
1221: -- start debug log
1222: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1223: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1224: G_MODULE||l_api_name,
1225: '140: Finished Step3. Line level rules flag is N. After calling OKC_TERMS_UTIL_GRP.get_item_dtl_for_expert');
1226: END IF;
1227:
1248: RAISE FND_API.G_EXC_ERROR;
1249: END IF;
1250:
1251: -- start debug log
1252: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1253: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1254: G_MODULE||l_api_name,
1255: '150: Finished Step4 - Get User Defined variabels');
1256: END IF;
1249: END IF;
1250:
1251: -- start debug log
1252: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1253: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1254: G_MODULE||l_api_name,
1255: '150: Finished Step4 - Get User Defined variabels');
1256: END IF;
1257:
1275: RAISE FND_API.G_EXC_ERROR;
1276: END IF;
1277:
1278: -- start debug log
1279: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1280: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1281: G_MODULE||l_api_name,
1282: '150: Finished Step4 - Get User Defined variabels');
1283: END IF;
1276: END IF;
1277:
1278: -- start debug log
1279: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1280: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1281: G_MODULE||l_api_name,
1282: '150: Finished Step4 - Get User Defined variabels');
1283: END IF;
1284:
1302: RAISE FND_API.G_EXC_ERROR;
1303: END IF;
1304:
1305: -- start debug log
1306: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1307: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1308: G_MODULE||l_api_name,
1309: '150: Finished Step4 - Get CLM UDA UDVariables');
1310: END IF;
1303: END IF;
1304:
1305: -- start debug log
1306: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1307: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1308: G_MODULE||l_api_name,
1309: '150: Finished Step4 - Get CLM UDA UDVariables');
1310: END IF;
1311:
1326: RAISE FND_API.G_EXC_ERROR;
1327: END IF;
1328:
1329: -- start debug log
1330: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1331: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1332: G_MODULE||l_api_name,
1333: '160: Finished Step5 - Get Constant values');
1334: END IF;
1327: END IF;
1328:
1329: -- start debug log
1330: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1331: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1332: G_MODULE||l_api_name,
1333: '160: Finished Step5 - Get Constant values');
1334: END IF;
1335:
1344: END LOOP;
1345: END IF;
1346:
1347: -- start debug log
1348: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1349: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1350: G_MODULE||l_api_name,
1351: '161: Finished adding system variable values');
1352: END IF;
1345: END IF;
1346:
1347: -- start debug log
1348: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1349: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1350: G_MODULE||l_api_name,
1351: '161: Finished adding system variable values');
1352: END IF;
1353:
1362: end loop;
1363: END IF;
1364:
1365: -- start debug log
1366: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1367: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1368: G_MODULE||l_api_name,
1369: '162: Finished adding constant values');
1370: END IF;
1363: END IF;
1364:
1365: -- start debug log
1366: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1367: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1368: G_MODULE||l_api_name,
1369: '162: Finished adding constant values');
1370: END IF;
1371:
1404: END IF;
1405: -- End: Added for CLM UDA
1406:
1407: -- start debug log
1408: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1409: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1410: G_MODULE||l_api_name,
1411: '163: Finished adding User defined variable values');
1412: END IF;
1405: -- End: Added for CLM UDA
1406:
1407: -- start debug log
1408: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1409: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1410: G_MODULE||l_api_name,
1411: '163: Finished adding User defined variable values');
1412: END IF;
1413:
1411: '163: Finished adding User defined variable values');
1412: END IF;
1413:
1414: -- Log all Variable values in the Pl/sql table
1415: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1416: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1417: G_MODULE||l_api_name,
1418: '170: Finished Step6 - Consolidate all variabels');
1419:
1412: END IF;
1413:
1414: -- Log all Variable values in the Pl/sql table
1415: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1416: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1417: G_MODULE||l_api_name,
1418: '170: Finished Step6 - Consolidate all variabels');
1419:
1420: -- Print All Header Variables
1417: G_MODULE||l_api_name,
1418: '170: Finished Step6 - Consolidate all variabels');
1419:
1420: -- Print All Header Variables
1421: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1422: G_MODULE||l_api_name,
1423: '180: All Header variables ');
1424: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1425: G_MODULE||l_api_name,
1420: -- Print All Header Variables
1421: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1422: G_MODULE||l_api_name,
1423: '180: All Header variables ');
1424: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1425: G_MODULE||l_api_name,
1426: '190: Variable name '||' ' ||'Variable value');
1427: IF x_hdr_var_value_tbl.Count > 0 THEN
1428: FOR i IN x_hdr_var_value_tbl.first..x_hdr_var_value_tbl.last LOOP
1425: G_MODULE||l_api_name,
1426: '190: Variable name '||' ' ||'Variable value');
1427: IF x_hdr_var_value_tbl.Count > 0 THEN
1428: FOR i IN x_hdr_var_value_tbl.first..x_hdr_var_value_tbl.last LOOP
1429: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1430: x_hdr_var_value_tbl(i).variable_code ||' '||
1431: x_hdr_var_value_tbl(i).variable_value_id);
1432: END LOOP;
1433: END IF;
1432: END LOOP;
1433: END IF;
1434: /*
1435: -- Print All Line Variables
1436: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1437: G_MODULE||l_api_name,
1438: '200: All Line variables ');
1439: IF (l_line_level_rules_flag = 'Y')
1440: FOR i IN x_line_sysvar_value_tbl.FIRST..x_line_sysvar_value_tbl.LAST LOOP
1438: '200: All Line variables ');
1439: IF (l_line_level_rules_flag = 'Y')
1440: FOR i IN x_line_sysvar_value_tbl.FIRST..x_line_sysvar_value_tbl.LAST LOOP
1441:
1442: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1443: G_MODULE||l_api_name,
1444: '210: Line Number'||' ' ||
1445: 'Variable Name '||' ' ||
1446: 'Variable Value '||' ' ||
1446: 'Variable Value '||' ' ||
1447: 'Item Id'||' ' ||
1448: 'Org Id');
1449:
1450: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE , G_MODULE||l_api_name,
1451: x_line_sysvar_value_tbl(i).line_number ||' '||
1452: x_line_sysvar_value_tbl(i).variable_code ||' '||
1453: x_line_sysvar_value_tbl(i).variable_value ||' '||
1454: x_line_sysvar_value_tbl(i).item_id ||' '||
1456: END LOOP;
1457: END IF;
1458:
1459: -- Print Line count
1460: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1461: G_MODULE||l_api_name,
1462: '220: No. of Lines: '|| x_line_count);
1463:
1464: */
1464: */
1465: END IF;
1466:
1467: -- end debug log
1468: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1469: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1470: G_MODULE||l_api_name,
1471: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1472: END IF;
1465: END IF;
1466:
1467: -- end debug log
1468: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1469: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1470: G_MODULE||l_api_name,
1471: '1000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1472: END IF;
1473:
1474: EXCEPTION
1475:
1476:
1477: WHEN FND_API.G_EXC_ERROR THEN
1478: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1479: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1480: G_MODULE||l_api_name,
1481: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1482: END IF;
1475:
1476:
1477: WHEN FND_API.G_EXC_ERROR THEN
1478: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1479: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1480: G_MODULE||l_api_name,
1481: '2000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1482: END IF;
1483:
1484: x_return_status := G_RET_STS_ERROR ;
1485: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1486:
1487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1488: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1489: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1490: G_MODULE||l_api_name,
1491: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1492: END IF;
1485: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1486:
1487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1488: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1489: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1490: G_MODULE||l_api_name,
1491: '3000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1492: END IF;
1493:
1494: x_return_status := G_RET_STS_UNEXP_ERROR ;
1495: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1496:
1497: WHEN OTHERS THEN
1498: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1499: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1500: G_MODULE||l_api_name,
1501: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1502: END IF;
1495: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1496:
1497: WHEN OTHERS THEN
1498: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1499: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE ,
1500: G_MODULE||l_api_name,
1501: '4000: Leaving '||G_PKG_NAME ||'.'||l_api_name);
1502: END IF;
1503: