45: l_prod VARCHAR2(3200) ; -- Product
46: l_page VARCHAR2(3200) ; --Page
47: l_site_area VARCHAR2(3200) ; --Site Area
48:
49: --FND Logging
50: l_full_path VARCHAR2(50) ;
51: gaflog_value VARCHAR2(10) ;
52:
53: -- Currency Variables
58: --Profile is : FND: Debug Log Enabled and FND: Debug Log Level for Log Level
59: BEGIN
60:
61: --Fetch all the Parameters into the Local Variables.
62: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
63: fnd_log.string(fnd_log.level_statement,l_full_path,'begin');
64: END IF;
65:
66: l_full_path := 'ibw.plsql.ibwbrepb.ref_analysis_sql'; --This would be stored in FND_LOG_MESSAGES.MODULE column
59: BEGIN
60:
61: --Fetch all the Parameters into the Local Variables.
62: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
63: fnd_log.string(fnd_log.level_statement,l_full_path,'begin');
64: END IF;
65:
66: l_full_path := 'ibw.plsql.ibwbrepb.ref_analysis_sql'; --This would be stored in FND_LOG_MESSAGES.MODULE column
67: gaflog_value := fnd_profile.value('AFLOG_ENABLED'); --Profile is : FND: Debug Log Enabled and FND: Debug Log Level for Log Level
62: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
63: fnd_log.string(fnd_log.level_statement,l_full_path,'begin');
64: END IF;
65:
66: l_full_path := 'ibw.plsql.ibwbrepb.ref_analysis_sql'; --This would be stored in FND_LOG_MESSAGES.MODULE column
67: gaflog_value := fnd_profile.value('AFLOG_ENABLED'); --Profile is : FND: Debug Log Enabled and FND: Debug Log Level for Log Level
68:
69: IF gaflog_value ='Y' AND (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
70: fnd_log.string(fnd_log.level_procedure,l_full_path,'Before the Call to UTL Package');
65:
66: l_full_path := 'ibw.plsql.ibwbrepb.ref_analysis_sql'; --This would be stored in FND_LOG_MESSAGES.MODULE column
67: gaflog_value := fnd_profile.value('AFLOG_ENABLED'); --Profile is : FND: Debug Log Enabled and FND: Debug Log Level for Log Level
68:
69: IF gaflog_value ='Y' AND (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
70: fnd_log.string(fnd_log.level_procedure,l_full_path,'Before the Call to UTL Package');
71: END IF;
72:
73: --To get all the Page Parameters.
66: l_full_path := 'ibw.plsql.ibwbrepb.ref_analysis_sql'; --This would be stored in FND_LOG_MESSAGES.MODULE column
67: gaflog_value := fnd_profile.value('AFLOG_ENABLED'); --Profile is : FND: Debug Log Enabled and FND: Debug Log Level for Log Level
68:
69: IF gaflog_value ='Y' AND (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
70: fnd_log.string(fnd_log.level_procedure,l_full_path,'Before the Call to UTL Package');
71: END IF;
72:
73: --To get all the Page Parameters.
74: IBW_BI_UTL_PVT.GET_PAGE_PARAMETERS
87: , x_campaign => l_campaign --Not Used
88: , x_view_by => l_view_by --Either Site Id or Referral Category
89: );
90:
91: IF gaflog_value ='Y' AND (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
92: fnd_log.string(fnd_log.level_procedure,l_full_path,'After the Call to UTL Package');
93: END IF;
94:
95: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
88: , x_view_by => l_view_by --Either Site Id or Referral Category
89: );
90:
91: IF gaflog_value ='Y' AND (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
92: fnd_log.string(fnd_log.level_procedure,l_full_path,'After the Call to UTL Package');
93: END IF;
94:
95: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
96: fnd_log.string(fnd_log.level_statement,l_full_path,'l_site : ' || l_site ||' l_site_area : '|| l_site_area ||' l_page : '|| l_page || ' l_view_by : ' || l_view_by );
91: IF gaflog_value ='Y' AND (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
92: fnd_log.string(fnd_log.level_procedure,l_full_path,'After the Call to UTL Package');
93: END IF;
94:
95: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
96: fnd_log.string(fnd_log.level_statement,l_full_path,'l_site : ' || l_site ||' l_site_area : '|| l_site_area ||' l_page : '|| l_page || ' l_view_by : ' || l_view_by );
97: END IF;
98:
99: --Initializing section.
92: fnd_log.string(fnd_log.level_procedure,l_full_path,'After the Call to UTL Package');
93: END IF;
94:
95: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
96: fnd_log.string(fnd_log.level_statement,l_full_path,'l_site : ' || l_site ||' l_site_area : '|| l_site_area ||' l_page : '|| l_page || ' l_view_by : ' || l_view_by );
97: END IF;
98:
99: --Initializing section.
100: l_gp_currency := '''FII_GLOBAL1''' ;
142: ' , SUM(nvl(booked_amt,0)) OVER() IBW_G_TOT9 '||
143: ' , DECODE(sum(nvl(orders,0)) over() ,0,null,sum(booked_amt) over() /sum(orders) over()) IBW_G_TOT10 '
144: ;
145:
146: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
147: fnd_log.string(fnd_log.level_statement,l_full_path,'After Outer Select ');
148: END IF;
149:
150: --The Inner Select statement is recorded in this variable.
143: ' , DECODE(sum(nvl(orders,0)) over() ,0,null,sum(booked_amt) over() /sum(orders) over()) IBW_G_TOT10 '
144: ;
145:
146: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
147: fnd_log.string(fnd_log.level_statement,l_full_path,'After Outer Select ');
148: END IF;
149:
150: --The Inner Select statement is recorded in this variable.
151:
161: ;
162: --The above statement has been changed for Fix for Bug 4654866 - issue # 11 E
163:
164:
165: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
166: fnd_log.string(fnd_log.level_statement,l_full_path,'After Inner Select ');
167: END IF;
168:
169: --The From Clause is recorded in this variable
162: --The above statement has been changed for Fix for Bug 4654866 - issue # 11 E
163:
164:
165: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
166: fnd_log.string(fnd_log.level_statement,l_full_path,'After Inner Select ');
167: END IF;
168:
169: --The From Clause is recorded in this variable
170:
173: ' ,ibw_bi_msite_dimn_v site ' || --Fix for Bug 4654866 - issue # 11 A , 11 B
174: ' ,ibw_ref_cat_v ref_dim '||
175: ' ,fii_party_mkt_class cust_class_map '; -- This is a mapping table between customer classification and customers ( party_id )
176:
177: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
178: fnd_log.string(fnd_log.level_statement,l_full_path,'After Initial From Clause ' );
179: END IF;
180:
181: --The Where Clause is recorded in this variable.
174: ' ,ibw_ref_cat_v ref_dim '||
175: ' ,fii_party_mkt_class cust_class_map '; -- This is a mapping table between customer classification and customers ( party_id )
176:
177: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
178: fnd_log.string(fnd_log.level_statement,l_full_path,'After Initial From Clause ' );
179: END IF;
180:
181: --The Where Clause is recorded in this variable.
182: --This Where clause will have all the Basic Conditions to join between the IBW_REFANALYSIS_TIME_MV and the Time Dimension table
190: ' and ref_mv.site_id = site.id '|| --Fix for Bug 4654866 - issue #11 A , 11 B
191: ' and ref_mv.referral_category_id = ref_dim.ID '||
192: ' and ref_mv.customer_id =cust_class_map.party_id ';
193:
194: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
195: fnd_log.string(fnd_log.level_statement,l_full_path,'After Initial Where Clause ' );
196: END IF;
197:
198: --------------------------------------------------------------------------------------------------------------
191: ' and ref_mv.referral_category_id = ref_dim.ID '||
192: ' and ref_mv.customer_id =cust_class_map.party_id ';
193:
194: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
195: fnd_log.string(fnd_log.level_statement,l_full_path,'After Initial Where Clause ' );
196: END IF;
197:
198: --------------------------------------------------------------------------------------------------------------
199:
243: END IF;
244:
245:
246:
247: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
248: fnd_log.string(fnd_log.level_statement,l_full_path,'After View by Comparisons ' );
249: END IF;
250:
251:
244:
245:
246:
247: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
248: fnd_log.string(fnd_log.level_statement,l_full_path,'After View by Comparisons ' );
249: END IF;
250:
251:
252:
249: END IF;
250:
251:
252:
253: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
254: fnd_log.string(fnd_log.level_statement,l_full_path,'After Site Id Validations ' );
255: END IF;
256:
257:
250:
251:
252:
253: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
254: fnd_log.string(fnd_log.level_statement,l_full_path,'After Site Id Validations ' );
255: END IF;
256:
257:
258: l_custom_sql := ' SELECT ' || l_outer_select ||
264: ')' ||
265: ' &ORDER_BY_CLAUSE ';
266:
267: --For Debug Purpose
268: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
269: fnd_log.string(fnd_log.level_statement,l_full_path,'The Final Query is ' || l_custom_sql);
270: END IF;
271:
272: x_custom_sql := l_custom_sql; --This sql is returned back to the PMV.
265: ' &ORDER_BY_CLAUSE ';
266:
267: --For Debug Purpose
268: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
269: fnd_log.string(fnd_log.level_statement,l_full_path,'The Final Query is ' || l_custom_sql);
270: END IF;
271:
272: x_custom_sql := l_custom_sql; --This sql is returned back to the PMV.
273:
298: l_custom_rec.attribute_data_type := BIS_PMV_PARAMETERS_PUB.VARCHAR2_BIND;
299: x_custom_output.EXTEND;
300: x_custom_output(3) := l_custom_rec;
301:
302: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
303: fnd_log.string(fnd_log.level_statement,l_full_path,'END');
304: END IF;
305:
306: EXCEPTION
299: x_custom_output.EXTEND;
300: x_custom_output(3) := l_custom_rec;
301:
302: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
303: fnd_log.string(fnd_log.level_statement,l_full_path,'END');
304: END IF;
305:
306: EXCEPTION
307: WHEN OTHERS THEN
304: END IF;
305:
306: EXCEPTION
307: WHEN OTHERS THEN
308: if (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) then
309: fnd_log.string(fnd_log.level_unexpected,l_full_path,SQLERRM);
310: end if;
311: END GET_WEB_REF_SQL;
312:
305:
306: EXCEPTION
307: WHEN OTHERS THEN
308: if (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) then
309: fnd_log.string(fnd_log.level_unexpected,l_full_path,SQLERRM);
310: end if;
311: END GET_WEB_REF_SQL;
312:
313: PROCEDURE GET_PROD_INT_SQL
361: l_gp_currency VARCHAR2(15) := '''FII_GLOBAL1''' ; --Global Primary Currency
362: l_gs_currency VARCHAR2(15) := '''FII_GLOBAL2''' ; --Global Secondary Curr
363: l_f_currency VARCHAR2(15); -- Functional Currency
364:
365: --FND Logging
366: l_full_path VARCHAR2(50);
367: gaflog_value VARCHAR2(10);
368:
369:
370: BEGIN
371:
372:
373: --Fetch all the Parameters into the Local Variables.
374: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
375: fnd_log.string(fnd_log.level_statement,l_full_path,'begin');
376: END IF;
377:
378: l_full_path := 'ibw.plsql.ibwrepab.ref_analysis_sql'; --This would be stored in FND_LOG_MESSAGES.MODULE column
371:
372:
373: --Fetch all the Parameters into the Local Variables.
374: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
375: fnd_log.string(fnd_log.level_statement,l_full_path,'begin');
376: END IF;
377:
378: l_full_path := 'ibw.plsql.ibwrepab.ref_analysis_sql'; --This would be stored in FND_LOG_MESSAGES.MODULE column
379: gaflog_value := fnd_profile.value('AFLOG_ENABLED'); --Profile is : FND: Debug Log Enabled and FND: Debug Log Level for Log Level
374: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
375: fnd_log.string(fnd_log.level_statement,l_full_path,'begin');
376: END IF;
377:
378: l_full_path := 'ibw.plsql.ibwrepab.ref_analysis_sql'; --This would be stored in FND_LOG_MESSAGES.MODULE column
379: gaflog_value := fnd_profile.value('AFLOG_ENABLED'); --Profile is : FND: Debug Log Enabled and FND: Debug Log Level for Log Level
380:
381: IF gaflog_value ='Y' AND (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
382: fnd_log.string(fnd_log.level_procedure,l_full_path,'Before the Call to UTL Package');
377:
378: l_full_path := 'ibw.plsql.ibwrepab.ref_analysis_sql'; --This would be stored in FND_LOG_MESSAGES.MODULE column
379: gaflog_value := fnd_profile.value('AFLOG_ENABLED'); --Profile is : FND: Debug Log Enabled and FND: Debug Log Level for Log Level
380:
381: IF gaflog_value ='Y' AND (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
382: fnd_log.string(fnd_log.level_procedure,l_full_path,'Before the Call to UTL Package');
383: END IF;
384:
385:
378: l_full_path := 'ibw.plsql.ibwrepab.ref_analysis_sql'; --This would be stored in FND_LOG_MESSAGES.MODULE column
379: gaflog_value := fnd_profile.value('AFLOG_ENABLED'); --Profile is : FND: Debug Log Enabled and FND: Debug Log Level for Log Level
380:
381: IF gaflog_value ='Y' AND (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
382: fnd_log.string(fnd_log.level_procedure,l_full_path,'Before the Call to UTL Package');
383: END IF;
384:
385:
386: IBW_BI_UTL_PVT.GET_PAGE_PARAMETERS
399: X_CUST_CLASS => l_cust_class, --Not Wanted
400: X_CUST => l_cust --Not Wanted
401: );
402:
403: IF gaflog_value ='Y' AND (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
404: fnd_log.string(fnd_log.level_procedure,l_full_path,'After the Call to UTL Package');
405: END IF;
406:
407: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
400: X_CUST => l_cust --Not Wanted
401: );
402:
403: IF gaflog_value ='Y' AND (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
404: fnd_log.string(fnd_log.level_procedure,l_full_path,'After the Call to UTL Package');
405: END IF;
406:
407: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
408: fnd_log.string(fnd_log.level_statement,l_full_path,'l_site : ' || l_site ||' l_site_area : '|| l_site_area ||' l_page : '|| l_page || ' l_view_by : ' || l_view_by );
403: IF gaflog_value ='Y' AND (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
404: fnd_log.string(fnd_log.level_procedure,l_full_path,'After the Call to UTL Package');
405: END IF;
406:
407: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
408: fnd_log.string(fnd_log.level_statement,l_full_path,'l_site : ' || l_site ||' l_site_area : '|| l_site_area ||' l_page : '|| l_page || ' l_view_by : ' || l_view_by );
409: END IF;
410:
411: l_outer_select := '';
404: fnd_log.string(fnd_log.level_procedure,l_full_path,'After the Call to UTL Package');
405: END IF;
406:
407: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
408: fnd_log.string(fnd_log.level_statement,l_full_path,'l_site : ' || l_site ||' l_site_area : '|| l_site_area ||' l_page : '|| l_page || ' l_view_by : ' || l_view_by );
409: END IF;
410:
411: l_outer_select := '';
412: l_inner_select0 := '';
456:
457:
458:
459:
460: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
461: fnd_log.string(fnd_log.level_statement,l_full_path,'After Outer Select ');
462: END IF;
463:
464:
457:
458:
459:
460: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
461: fnd_log.string(fnd_log.level_statement,l_full_path,'After Outer Select ');
462: END IF;
463:
464:
465: l_inner_select0 := ' SUM(page_views) page_views ' ||
499: ;
500:
501:
502:
503: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
504: fnd_log.string(fnd_log.level_statement,l_full_path,'After Inner Select ');
505: END IF;
506:
507: --The From Clause is recorded in this variable
500:
501:
502:
503: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
504: fnd_log.string(fnd_log.level_statement,l_full_path,'After Inner Select ');
505: END IF;
506:
507: --The From Clause is recorded in this variable
508:
510: 'ibw_bi_msite_dimn_v site, ' ||
511: ' fii_time_rpt_struct_v cal ';
512: l_from2 := l_from1;
513:
514: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
515: fnd_log.string(fnd_log.level_statement,l_full_path,'After Initial From Clause ' );
516: END IF;
517:
518: --The Where Clause is recorded in this variable.
511: ' fii_time_rpt_struct_v cal ';
512: l_from2 := l_from1;
513:
514: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
515: fnd_log.string(fnd_log.level_statement,l_full_path,'After Initial From Clause ' );
516: END IF;
517:
518: --The Where Clause is recorded in this variable.
519: --&BIS_CURRENT_ASOF_DATE gives the AS OF DATE selected in the report.
538: 'or SUM (booked_amt) is not null '||
539: 'or SUM (orders_site_visits) is not null' ;
540:
541:
542: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
543: fnd_log.string(fnd_log.level_statement,l_full_path,'After Initial Where Clause ' );
544: END IF;
545:
546: --------------------------------------------------------------------------------------------------------------
539: 'or SUM (orders_site_visits) is not null' ;
540:
541:
542: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
543: fnd_log.string(fnd_log.level_statement,l_full_path,'After Initial Where Clause ' );
544: END IF;
545:
546: --------------------------------------------------------------------------------------------------------------
547: --Fetching Site Area Name or Page Name according to the View by
682: END IF;
683:
684:
685:
686: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
687: fnd_log.string(fnd_log.level_statement,l_full_path,'After View by Comparisons ' );
688: END IF;
689:
690:
683:
684:
685:
686: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
687: fnd_log.string(fnd_log.level_statement,l_full_path,'After View by Comparisons ' );
688: END IF;
689:
690:
691:
688: END IF;
689:
690:
691:
692: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
693: fnd_log.string(fnd_log.level_statement,l_full_path,'After Site Id Validations ' );
694: END IF;
695:
696:
689:
690:
691:
692: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
693: fnd_log.string(fnd_log.level_statement,l_full_path,'After Site Id Validations ' );
694: END IF;
695:
696:
697:
795: ' ) ' ||
796: ' &ORDER_BY_CLAUSE ';
797:
798: --For Debug Purpose
799: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
800: fnd_log.string(fnd_log.level_statement,l_full_path,'The Final Query is ' || l_custom_sql);
801: END IF;
802:
803:
796: ' &ORDER_BY_CLAUSE ';
797:
798: --For Debug Purpose
799: IF gaflog_value ='Y' AND (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
800: fnd_log.string(fnd_log.level_statement,l_full_path,'The Final Query is ' || l_custom_sql);
801: END IF;
802:
803:
804:
829:
830:
831: EXCEPTION
832: WHEN OTHERS THEN
833: if (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) then
834: fnd_log.string(fnd_log.level_unexpected,l_full_path,SQLERRM);
835: end if;
836:
837: END GET_PROD_INT_SQL;
830:
831: EXCEPTION
832: WHEN OTHERS THEN
833: if (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) then
834: fnd_log.string(fnd_log.level_unexpected,l_full_path,SQLERRM);
835: end if;
836:
837: END GET_PROD_INT_SQL;
838: