[Home] [Help]
112: l_yes := 'Y';
113: g_sch_name := 'BIL';
114:
115:
116: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
117:
118: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_PROCEDURE,
119: MODULE => g_pkg || l_proc || 'begin',
120: MESSAGE => 'Start of Procedure '|| l_proc);
114:
115:
116: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
117:
118: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_PROCEDURE,
119: MODULE => g_pkg || l_proc || 'begin',
120: MESSAGE => 'Start of Procedure '|| l_proc);
121:
122: END IF;
164: l_prodcat_id := 'All';
165: END IF;
166:
167:
168: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
169:
170:
171: l_sql_error_desc := 'l_viewby => '|| l_viewby||', '||
172: 'l_curr_page_time_id => '|| l_curr_page_time_id ||', ' ||
184: 'l_record_type_id => '|| l_record_type_id ||', '||
185: 'l_prodcat_id => '|| l_prodcat_id;
186:
187:
188: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
189: MODULE => g_pkg || l_proc,
190: MESSAGE => 'Binds =>'||l_sql_error_desc);
191:
192: END IF;
572: AND restl.language(+) = USERENV(''LANG'')
573: AND restl.resource_id(+) = sumry.salesrep_id ';
574:
575:
576: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
577: l_ind :=1;
578: l_len:= length(x_custom_sql);
579:
580: WHILE l_ind <= l_len LOOP
579:
580: WHILE l_ind <= l_len LOOP
581: l_str:= substr(x_custom_sql, l_ind, 4000);
582:
583: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
584: MODULE => g_pkg || l_proc ||'.'|| ' statement ',
585: MESSAGE => l_str);
586:
587: l_ind := l_ind + 4000;
777:
778: x_custom_sql := x_custom_sql ||') GROUP BY SORTORDER,VIEWBYID,VIEWBY,BIL_URL1,BIL_URL2 ORDER BY SORTORDER, VIEWBY';
779:
780:
781: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
782: l_ind :=1;
783: l_len:= length(x_custom_sql);
784:
785: WHILE l_ind <= l_len LOOP
784:
785: WHILE l_ind <= l_len LOOP
786: l_str:= substr(x_custom_sql, l_ind, 4000);
787:
788: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
789: MODULE => g_pkg || l_proc ||'.'|| ' statement ',
790: MESSAGE => l_str);
791:
792: l_ind := l_ind + 4000;
866: -- l_cat_assign := bil_bi_util_pkg.getLookupMeaning(p_lookuptype => 'BIL_BI_LOOKUPS'
867: -- ,p_lookupcode => 'ASSIGN_CATEG');
868:
869:
870: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
871:
872: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
873: MODULE => g_pkg ||l_proc || ' Product cat is not all ',
874: MESSAGE => 'Product cat '||l_prodcat_id);
868:
869:
870: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
871:
872: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
873: MODULE => g_pkg ||l_proc || ' Product cat is not all ',
874: MESSAGE => 'Product cat '||l_prodcat_id);
875:
876: END IF;
895:
896: x_custom_sql := x_custom_sql ||') GROUP BY SORTORDER,VIEWBYID,VIEWBY,BIL_URL1,BIL_URL2 ';
897:
898:
899: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
900: l_ind :=1;
901: l_len:= length(x_custom_sql);
902:
903: WHILE l_ind <= l_len LOOP
902:
903: WHILE l_ind <= l_len LOOP
904: l_str:= substr(x_custom_sql, l_ind, 4000);
905:
906: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
907: MODULE => g_pkg || l_proc ||'.'|| ' statement ',
908: MESSAGE => l_str);
909:
910: l_ind := l_ind + 4000;
975:
976: x_custom_sql := x_custom_sql ||') GROUP BY SORTORDER,VIEWBYID,VIEWBY,BIL_URL1,BIL_URL2 ';
977:
978:
979: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
980: l_ind :=1;
981: l_len:= length(x_custom_sql);
982:
983: WHILE l_ind <= l_len LOOP
982:
983: WHILE l_ind <= l_len LOOP
984: l_str:= substr(x_custom_sql, l_ind, 4000);
985:
986: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
987: MODULE => g_pkg || l_proc ||'.'|| ' statement ',
988: MESSAGE => l_str);
989:
990: l_ind := l_ind + 4000;
1094: END IF; -- End category selected check
1095: END CASE;
1096:
1097:
1098: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1099: l_ind :=1;
1100: l_len:= length(x_custom_sql);
1101:
1102: WHILE l_ind <= l_len LOOP
1101:
1102: WHILE l_ind <= l_len LOOP
1103: l_str:= substr(x_custom_sql, l_ind, 4000);
1104:
1105: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
1106: MODULE => g_pkg || l_proc ||'.'|| 'Final Query to PMV ',
1107: MESSAGE => l_str);
1108:
1109: l_ind := l_ind + 4000;
1129:
1130: END IF;
1131:
1132:
1133: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1134:
1135: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_PROCEDURE,
1136: MODULE => g_pkg || l_proc || 'End',
1137: MESSAGE => 'End of Procedure '||l_proc);
1131:
1132:
1133: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1134:
1135: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_PROCEDURE,
1136: MODULE => g_pkg || l_proc || 'End',
1137: MESSAGE => 'End of Procedure '||l_proc);
1138:
1139: END IF;
1140:
1141: EXCEPTION
1142: WHEN OTHERS THEN
1143:
1144: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1145:
1146: fnd_message.set_name('FND','SQL_PLSQL_ERROR');
1147: fnd_message.set_token('ERROR' ,SQLCODE);
1148: fnd_message.set_token('REASON',SQLERRM);
1146: fnd_message.set_name('FND','SQL_PLSQL_ERROR');
1147: fnd_message.set_token('ERROR' ,SQLCODE);
1148: fnd_message.set_token('REASON',SQLERRM);
1149:
1150: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_UNEXPECTED,
1151: MODULE => g_pkg || l_proc || 'proc_error',
1152: MESSAGE => fnd_message.get );
1153:
1154: END IF;
1290: l_yes := 'Y';
1291: g_sch_name := 'BIL';
1292:
1293:
1294: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1295:
1296: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_PROCEDURE,
1297: MODULE => g_pkg || l_proc || 'begin',
1298: MESSAGE => 'Start of Procedure '|| l_proc);
1292:
1293:
1294: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1295:
1296: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_PROCEDURE,
1297: MODULE => g_pkg || l_proc || 'begin',
1298: MESSAGE => 'Start of Procedure '|| l_proc);
1299:
1300: END IF;
1332: --retrieve 'Item unassigned' message here. We should be retireving from Message dicts?
1333: l_cat_assign:=FND_MESSAGE.GET_STRING('BIL', 'BIL_BI_ASSIGN_CATEGORY');
1334:
1335:
1336: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1337:
1338: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
1339: MODULE => g_pkg || l_proc,
1340: MESSAGE => ' l_cat_assign is '||l_cat_assign );
1334:
1335:
1336: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1337:
1338: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
1339: MODULE => g_pkg || l_proc,
1340: MESSAGE => ' l_cat_assign is '||l_cat_assign );
1341:
1342:
1339: MODULE => g_pkg || l_proc,
1340: MESSAGE => ' l_cat_assign is '||l_cat_assign );
1341:
1342:
1343: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
1344: MODULE => g_pkg || l_proc,
1345: MESSAGE => 'Prod cat is '||nvl(l_prodcat_id, 0)||' Product is'||
1346: ' Lang '||USERENV('LANG'));
1347:
1404: x_prev_snap_date => l_prev_snap_date
1405: );
1406:
1407:
1408: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1409:
1410: l_sql_error_desc := 'l_viewby => '|| l_viewby||', '||
1411: 'l_curr_page_time_id => '|| l_curr_page_time_id ||', ' ||
1412: 'l_prev_page_time_id => '|| l_prev_page_time_id ||', ' ||
1421: 'l_record_type_id => '|| l_record_type_id ||', ' ||
1422: 'l_calendar_id => '|| l_calendar_id;
1423:
1424:
1425: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
1426: MODULE => g_pkg || l_proc,
1427: MESSAGE => 'Parameters =>'||l_sql_error_desc);
1428:
1429: END IF;
2008: END IF;
2009:
2010:
2011:
2012: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2013: l_ind :=1;
2014: l_len:= length(l_custom_sql);
2015:
2016: WHILE l_ind <= l_len LOOP
2015:
2016: WHILE l_ind <= l_len LOOP
2017: l_str:= substr(l_custom_sql, l_ind, 4000);
2018:
2019: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
2020: MODULE => g_pkg || l_proc ||'.'|| ' statement ',
2021: MESSAGE => l_str);
2022:
2023: l_ind := l_ind + 4000;
2025: END LOOP;
2026: END IF;
2027:
2028:
2029: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2030:
2031: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
2032: MODULE => g_pkg || l_proc,
2033: MESSAGE => 'length of query l_custom_sql is '|| length(l_custom_sql));
2027:
2028:
2029: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2030:
2031: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
2032: MODULE => g_pkg || l_proc,
2033: MESSAGE => 'length of query l_custom_sql is '|| length(l_custom_sql));
2034:
2035: END IF;
2180: product where clause). So now parent_id=id, and we can assign l_prod_url to switch the view by to
2181: product
2182: */
2183:
2184: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2185:
2186: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
2187: MODULE => g_pkg || l_proc || ' Prod cat view by ',
2188: MESSAGE => 'Product where clause '||l_product_where_clause);
2182: */
2183:
2184: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2185:
2186: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
2187: MODULE => g_pkg || l_proc || ' Prod cat view by ',
2188: MESSAGE => 'Product where clause '||l_product_where_clause);
2189:
2190: END IF;
2258: END IF;
2259: l_sql_error_desc := '';
2260:
2261:
2262: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2263: l_ind :=1;
2264: l_len:= length(l_custom_sql);
2265:
2266: WHILE l_ind <= l_len LOOP
2265:
2266: WHILE l_ind <= l_len LOOP
2267: l_str:= substr(l_custom_sql, l_ind, 4000);
2268:
2269: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
2270: MODULE => g_pkg || l_proc ||'.'|| ' statement ',
2271: MESSAGE => l_str);
2272:
2273: l_ind := l_ind + 4000;
2518: l_custom_sql :=l_custom_sql||
2519: ' ) GROUP BY VIEWBY, VIEWBYID, SORTORDER, BIL_URL1,BIL_URL2 ';
2520: END IF;
2521:
2522: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2523: l_ind :=1;
2524: l_len:= length(l_custom_sql);
2525:
2526: WHILE l_ind <= l_len LOOP
2525:
2526: WHILE l_ind <= l_len LOOP
2527: l_str:= substr(l_custom_sql, l_ind, 4000);
2528:
2529: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
2530: MODULE => g_pkg || l_proc ||'.'|| ' statement ',
2531: MESSAGE => l_str);
2532:
2533: l_ind := l_ind + 4000;
2535: END LOOP;
2536: END IF;
2537:
2538:
2539: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2540:
2541: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
2542: MODULE => g_pkg || l_proc,
2543: MESSAGE => 'length of query l_custom_sql is '|| length(l_custom_sql));
2537:
2538:
2539: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2540:
2541: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
2542: MODULE => g_pkg || l_proc,
2543: MESSAGE => 'length of query l_custom_sql is '|| length(l_custom_sql));
2544:
2545: END IF;
2744: END IF;--end drill down on specific product cat
2745:
2746: commit;
2747:
2748: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2749: l_ind :=1;
2750: l_len:= length(x_custom_sql);
2751:
2752: WHILE l_ind <= l_len LOOP
2751:
2752: WHILE l_ind <= l_len LOOP
2753: l_str:= substr(x_custom_sql, l_ind, 4000);
2754:
2755: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
2756: MODULE => g_pkg || l_proc ||'.'|| ' Final Query to PMF ',
2757: MESSAGE => l_str);
2758:
2759: l_ind := l_ind + 4000;
2787: ELSE --no valid parameters
2788: BIL_BI_UTIL_PKG.get_default_query(p_regionname => l_region_id
2789: ,x_sqlstr => x_custom_sql);
2790:
2791: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2792:
2793: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_ERROR,
2794: MODULE => g_pkg || l_proc || 'Parameter_Error',
2795: MESSAGE => 'Invalid Parameter '|| l_proc);
2789: ,x_sqlstr => x_custom_sql);
2790:
2791: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2792:
2793: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_ERROR,
2794: MODULE => g_pkg || l_proc || 'Parameter_Error',
2795: MESSAGE => 'Invalid Parameter '|| l_proc);
2796:
2797: END IF;
2797: END IF;
2798:
2799: END IF;
2800:
2801: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2802:
2803: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_PROCEDURE,
2804: MODULE => g_pkg || l_proc || 'End',
2805: MESSAGE => 'End of Procedure '||l_proc);
2799: END IF;
2800:
2801: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2802:
2803: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_PROCEDURE,
2804: MODULE => g_pkg || l_proc || 'End',
2805: MESSAGE => 'End of Procedure '||l_proc);
2806:
2807: END IF;
2808:
2809: EXCEPTION
2810: WHEN OTHERS THEN
2811:
2812: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2813: fnd_message.set_name('FND','SQL_PLSQL_ERROR'); -- Seeded Message
2814: fnd_message.set_token('Error is : ' ,SQLCODE);
2815: fnd_message.set_token('Reason is : ', SQLERRM);
2816:
2813: fnd_message.set_name('FND','SQL_PLSQL_ERROR'); -- Seeded Message
2814: fnd_message.set_token('Error is : ' ,SQLCODE);
2815: fnd_message.set_token('Reason is : ', SQLERRM);
2816:
2817: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_UNEXPECTED,
2818: MODULE => g_pkg || l_proc || 'proc_error',
2819: MESSAGE => fnd_message.get );
2820:
2821: END IF;
2951: l_yes := 'Y';
2952: g_sch_name := 'BIL';
2953:
2954:
2955: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2956:
2957: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_PROCEDURE,
2958: MODULE => g_pkg || l_proc || 'begin',
2959: MESSAGE => 'Start of Procedure '|| l_proc);
2953:
2954:
2955: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2956:
2957: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_PROCEDURE,
2958: MODULE => g_pkg || l_proc || 'begin',
2959: MESSAGE => 'Start of Procedure '|| l_proc);
2960:
2961: END IF;
2990: IF l_parameter_valid THEN
2991: --retrieve 'Item unassigned' message here. We should be retireving from Message dicts?
2992: l_cat_assign:=FND_MESSAGE.GET_STRING('BIL', 'BIL_BI_ASSIGN_CATEGORY');
2993:
2994: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2995:
2996: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
2997: MODULE => g_pkg || l_proc,
2998: MESSAGE => ' l_cat_assign is '||l_cat_assign );
2992: l_cat_assign:=FND_MESSAGE.GET_STRING('BIL', 'BIL_BI_ASSIGN_CATEGORY');
2993:
2994: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2995:
2996: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
2997: MODULE => g_pkg || l_proc,
2998: MESSAGE => ' l_cat_assign is '||l_cat_assign );
2999:
3000: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
2996: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
2997: MODULE => g_pkg || l_proc,
2998: MESSAGE => ' l_cat_assign is '||l_cat_assign );
2999:
3000: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
3001: MODULE => g_pkg || l_proc,
3002: MESSAGE => 'Prod cat is '||nvl(l_prodcat_id, 0)||' Product is'||
3003: ' Lang '||USERENV('LANG'));
3004:
3071: x_prev_snap_date => l_prev_snap_date
3072: );
3073:
3074:
3075: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3076:
3077: l_sql_error_desc := 'l_viewby => '|| l_viewby||', '||
3078: 'l_curr_page_time_id => '|| l_curr_page_time_id ||', ' ||
3079: 'l_prev_page_time_id => '|| l_prev_page_time_id ||', ' ||
3088: 'l_record_type_id => '|| l_record_type_id ||', ' ||
3089: 'l_calendar_id => '|| l_calendar_id;
3090:
3091:
3092: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
3093: MODULE => g_pkg || l_proc,
3094: MESSAGE => 'Parameters =>'||l_sql_error_desc);
3095:
3096: END IF;
3540: ' AND BIL_MEASURE18 IS NULL '||
3541: ' AND BIL_MEASURE21 IS NULL AND BIL_MEASURE22 IS NULL ';
3542:
3543:
3544: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3545:
3546: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
3547: MODULE => g_pkg || l_proc,
3548: MESSAGE => ' l_from3 '||l_from3);
3542:
3543:
3544: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3545:
3546: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
3547: MODULE => g_pkg || l_proc,
3548: MESSAGE => ' l_from3 '||l_from3);
3549:
3550: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
3546: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
3547: MODULE => g_pkg || l_proc,
3548: MESSAGE => ' l_from3 '||l_from3);
3549:
3550: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
3551: MODULE => g_pkg || l_proc,
3552: MESSAGE => ' l_inner_where_clause4 '||l_inner_where_clause4);
3553:
3554: END IF;
3730: ') GROUP BY VIEWBY, VIEWBYID, SORTORDER, BIL_URL1,BIL_URL2';
3731: END IF;
3732:
3733:
3734: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3735: l_ind :=1;
3736: l_len:= length(l_custom_sql);
3737:
3738: WHILE l_ind <= l_len LOOP
3737:
3738: WHILE l_ind <= l_len LOOP
3739: l_str:= substr(l_custom_sql, l_ind, 4000);
3740:
3741: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
3742: MODULE => g_pkg || l_proc ||'.'|| ' statement ',
3743: MESSAGE => l_str);
3744:
3745: l_ind := l_ind + 4000;
3748: END IF;
3749:
3750:
3751:
3752: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3753:
3754: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
3755: MODULE => g_pkg || l_proc,
3756: MESSAGE => 'length of query l_custom_sql is '|| length(l_custom_sql));
3750:
3751:
3752: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3753:
3754: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
3755: MODULE => g_pkg || l_proc,
3756: MESSAGE => 'length of query l_custom_sql is '|| length(l_custom_sql));
3757:
3758: END IF;
3838: ' ) WHERE NOT('||l_null_rem_where_clause||')';
3839: --view by Product category
3840:
3841:
3842: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3843: l_ind :=1;
3844: l_len:= length(x_custom_sql);
3845:
3846: WHILE l_ind <= l_len LOOP
3845:
3846: WHILE l_ind <= l_len LOOP
3847: l_str:= substr(x_custom_sql, l_ind, 4000);
3848:
3849: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
3850: MODULE => g_pkg || l_proc ||'.'|| ' Query to PMV ',
3851: MESSAGE => l_str);
3852:
3853: l_ind := l_ind + 4000;
3859: ELSE --no valid parameters
3860: BIL_BI_UTIL_PKG.get_default_query(p_regionname => l_region_id
3861: ,x_sqlstr => x_custom_sql);
3862:
3863: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3864:
3865: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_ERROR,
3866: MODULE => g_pkg || l_proc || 'Parameter_Error',
3867: MESSAGE => 'Invalid Parameter '|| l_proc);
3861: ,x_sqlstr => x_custom_sql);
3862:
3863: IF FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3864:
3865: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_ERROR,
3866: MODULE => g_pkg || l_proc || 'Parameter_Error',
3867: MESSAGE => 'Invalid Parameter '|| l_proc);
3868:
3869: END IF;
3868:
3869: END IF;
3870: END IF;
3871:
3872: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3873:
3874: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_PROCEDURE,
3875: MODULE => g_pkg || l_proc || 'End',
3876: MESSAGE => 'End of Procedure '||l_proc);
3870: END IF;
3871:
3872: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3873:
3874: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_PROCEDURE,
3875: MODULE => g_pkg || l_proc || 'End',
3876: MESSAGE => 'End of Procedure '||l_proc);
3877:
3878: END IF;
3878: END IF;
3879: EXCEPTION
3880: WHEN OTHERS THEN
3881:
3882: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3883: fnd_message.set_name('FND','SQL_PLSQL_ERROR'); -- Seeded Message
3884: fnd_message.set_token('Error is : ' ,SQLCODE);
3885: fnd_message.set_token('Reason is : ', SQLERRM);
3886:
3884: fnd_message.set_token('Error is : ' ,SQLCODE);
3885: fnd_message.set_token('Reason is : ', SQLERRM);
3886:
3887:
3888: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_UNEXPECTED,
3889: MODULE => g_pkg || l_proc || 'proc_error',
3890: MESSAGE => fnd_message.get );
3891:
3892: END IF;
3969: l_parameter_valid := FALSE;
3970: l_yes := 'Y';
3971:
3972:
3973: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3974:
3975: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_PROCEDURE,
3976: MODULE => g_pkg || l_proc || 'begin',
3977: MESSAGE => 'Start of Procedure '||l_proc);
3971:
3972:
3973: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3974:
3975: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_PROCEDURE,
3976: MODULE => g_pkg || l_proc || 'begin',
3977: MESSAGE => 'Start of Procedure '||l_proc);
3978:
3979: END IF;
4092:
4093: x_custom_sql := l_sql_stmt;
4094:
4095:
4096: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4097: l_ind :=1;
4098: l_len:= length(x_custom_sql);
4099:
4100: WHILE l_ind <= l_len LOOP
4099:
4100: WHILE l_ind <= l_len LOOP
4101: l_str:= substr(x_custom_sql, l_ind, 4000);
4102:
4103: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
4104: MODULE => g_pkg || l_proc ||'.'|| ' statement ',
4105: MESSAGE => l_str);
4106:
4107: l_ind := l_ind + 4000;
4229: x_custom_attr(l_bind_ctr):= l_custom_rec;
4230: l_bind_ctr:=l_bind_ctr+1;
4231:
4232:
4233: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4234:
4235: l_sql_error_desc :=
4236: 'l_viewby => '||l_viewby||', '||
4237: 'l_curr_page_time_id => '|| l_curr_page_time_id ||', ' ||
4244: 'l_sg_id_num => '|| l_sg_id_num ||', ' ||
4245: 'l_calendar_id => '|| l_calendar_id;
4246:
4247:
4248: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
4249: MODULE => g_pkg || l_proc || 'l_sql_error_desc',
4250: MESSAGE => l_sql_error_desc);
4251:
4252: END IF;
4258: END IF;
4259: EXCEPTION
4260: WHEN OTHERS THEN
4261:
4262: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4263: fnd_message.set_name('FND','SQL_PLSQL_ERROR'); -- Seeded Message
4264: fnd_message.set_token('Error is : ' ,SQLCODE);
4265: fnd_message.set_token('Reason is : ', SQLERRM);
4266:
4263: fnd_message.set_name('FND','SQL_PLSQL_ERROR'); -- Seeded Message
4264: fnd_message.set_token('Error is : ' ,SQLCODE);
4265: fnd_message.set_token('Reason is : ', SQLERRM);
4266:
4267: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_UNEXPECTED,
4268: MODULE => g_pkg || l_proc || 'proc_error',
4269: MESSAGE => fnd_message.get );
4270:
4271:
4400: l_yes :='Y';
4401: g_sch_name := 'BIL';
4402:
4403:
4404: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4405:
4406: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_PROCEDURE,
4407: MODULE => g_pkg || l_proc || 'begin',
4408: MESSAGE => 'Start of Procedure '||l_proc);
4402:
4403:
4404: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4405:
4406: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_PROCEDURE,
4407: MODULE => g_pkg || l_proc || 'begin',
4408: MESSAGE => 'Start of Procedure '||l_proc);
4409:
4410: END IF;
4520: x_prev_snap_date => l_prev_snap_date
4521: );
4522:
4523:
4524: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4525:
4526: l_sql_error_desc:= 'l_viewby => '||l_viewby||', '||
4527: 'l_curr_page_time_id => '|| l_curr_page_time_id ||', ' ||
4528: 'l_prev_page_time_id => '|| l_prev_page_time_id ||', ' ||
4537: 'l_fst_crdt_type => ' || l_fst_crdt_type||', '||
4538: 'l_record_type_id => '|| l_record_type_id;
4539:
4540:
4541: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
4542: MODULE => g_pkg || l_proc ||'Param values ',
4543: MESSAGE => 'Param values '||l_sql_error_desc);
4544:
4545: END IF;
4983: AND restl.language(+) = USERENV(''LANG'')
4984: AND restl.resource_id(+) = sumry.salesrep_id ';
4985:
4986:
4987: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
4988: l_ind :=1;
4989: l_len:= length(l_custom_sql);
4990:
4991: WHILE l_ind <= l_len LOOP
4990:
4991: WHILE l_ind <= l_len LOOP
4992: l_str:= substr(l_custom_sql, l_ind, 4000);
4993:
4994: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
4995: MODULE => g_pkg || l_proc ||'.'|| ' statement ',
4996: MESSAGE => l_str);
4997:
4998: l_ind := l_ind + 4000;
5233: ' '||l_where_clause4||
5234: ' '||l_group_flag||
5235: ' GROUP BY sumry.product_category_id';
5236:
5237: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5238: l_ind :=1;
5239: l_len:= length(l_custom_sql);
5240:
5241: WHILE l_ind <= l_len LOOP
5240:
5241: WHILE l_ind <= l_len LOOP
5242: l_str:= substr(l_custom_sql, l_ind, 4000);
5243:
5244: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
5245: MODULE => g_pkg || l_proc ||'.'|| ' statement ',
5246: MESSAGE => l_str);
5247:
5248: l_ind := l_ind + 4000;
5327:
5328: l_custom_sql := l_custom_sql||' GROUP BY sumry.product_category_id ';
5329:
5330:
5331: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5332: l_ind :=1;
5333: l_len:= length(l_custom_sql);
5334:
5335: WHILE l_ind <= l_len LOOP
5334:
5335: WHILE l_ind <= l_len LOOP
5336: l_str:= substr(l_custom_sql, l_ind, 4000);
5337:
5338: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
5339: MODULE => g_pkg || l_proc ||'.'|| 'Leads by PC ',
5340: MESSAGE => l_str);
5341:
5342: l_ind := l_ind + 4000;
5403: BIL_URL1, BIL_URL2)
5404: ORDER BY SORTORDER, VIEWBY ';
5405:
5406:
5407: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5408: l_ind :=1;
5409: l_len:= length(x_custom_sql);
5410:
5411: WHILE l_ind <= l_len LOOP
5410:
5411: WHILE l_ind <= l_len LOOP
5412: l_str:= substr(x_custom_sql, l_ind, 4000);
5413:
5414: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
5415: MODULE => g_pkg || l_proc ||'.'|| ' statement ',
5416: MESSAGE => l_str);
5417:
5418: l_ind := l_ind + 4000;
5428: l_cat_assign := bil_bi_util_pkg.getLookupMeaning(p_lookuptype => 'BIL_BI_LOOKUPS'
5429: ,p_lookupcode => 'ASSIGN_CATEG');
5430:
5431:
5432: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5433:
5434: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
5435: MODULE => g_pkg ||l_proc || ' Product cat is not all ',
5436: MESSAGE => 'Product cat '||l_prodcat_id);
5430:
5431:
5432: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5433:
5434: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
5435: MODULE => g_pkg ||l_proc || ' Product cat is not all ',
5436: MESSAGE => 'Product cat '||l_prodcat_id);
5437:
5438: END IF;
5503: ,DECODE(pcd.parent_id, pcd.id, NULL, '''||l_drill_link||''')
5504: , DECODE(pcd.parent_id, pcd.id, NULL, '''||l_cat_url||''') ';
5505:
5506:
5507: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5508: l_ind :=1;
5509: l_len:= length(l_custom_sql);
5510:
5511: WHILE l_ind <= l_len LOOP
5510:
5511: WHILE l_ind <= l_len LOOP
5512: l_str:= substr(l_custom_sql, l_ind, 4000);
5513:
5514: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
5515: MODULE => g_pkg || l_proc ||'.'|| ' View by PC, PC not null: ',
5516: MESSAGE => l_str);
5517:
5518: l_ind := l_ind + 4000;
5628:
5629:
5630: IF bil_bi_util_pkg.isleafnode(l_prodcat_id) THEN
5631:
5632: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5633:
5634: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
5635: MODULE => g_pkg || l_proc,
5636: MESSAGE => 'Leaf Node');
5630: IF bil_bi_util_pkg.isleafnode(l_prodcat_id) THEN
5631:
5632: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5633:
5634: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
5635: MODULE => g_pkg || l_proc,
5636: MESSAGE => 'Leaf Node');
5637:
5638: END IF;
5715: ORDER BY SORTORDER, VIEWBY ';
5716:
5717: ELSE
5718:
5719: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5720:
5721: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
5722: MODULE => g_pkg || l_proc,
5723: MESSAGE => 'Not a Leaf Node');
5717: ELSE
5718:
5719: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5720:
5721: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
5722: MODULE => g_pkg || l_proc,
5723: MESSAGE => 'Not a Leaf Node');
5724:
5725: END IF;
5741: END IF; -- end category selected check
5742:
5743: END CASE;
5744:
5745: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5746:
5747: l_sql_error_desc := length(x_custom_sql);
5748:
5749: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
5745: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5746:
5747: l_sql_error_desc := length(x_custom_sql);
5748:
5749: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
5750: MODULE => g_pkg || l_proc,
5751: MESSAGE => ' x_custom_sql length '||l_sql_error_desc);
5752:
5753: END IF;
5752:
5753: END IF;
5754:
5755:
5756: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5757: l_ind :=1;
5758: l_len:= length(x_custom_sql);
5759:
5760: WHILE l_ind <= l_len LOOP
5759:
5760: WHILE l_ind <= l_len LOOP
5761: l_str:= substr(x_custom_sql, l_ind, 4000);
5762:
5763: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
5764: MODULE => g_pkg || l_proc ||'.'|| ' statement ',
5765: MESSAGE => l_str);
5766:
5767: l_ind := l_ind + 4000;
5868: BIL_BI_UTIL_PKG.get_default_query(p_regionname => l_region_id
5869: ,x_sqlstr => x_custom_sql);
5870: END IF;
5871:
5872: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5873:
5874: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_PROCEDURE,
5875: MODULE => g_pkg || l_proc || 'end',
5876: MESSAGE => 'End of Procedure '|| l_proc);
5870: END IF;
5871:
5872: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5873:
5874: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_PROCEDURE,
5875: MODULE => g_pkg || l_proc || 'end',
5876: MESSAGE => 'End of Procedure '|| l_proc);
5877:
5878: END IF;
5878: END IF;
5879:
5880: EXCEPTION
5881: WHEN OTHERS THEN
5882: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
5883: fnd_message.set_name('FND','SQL_PLSQL_ERROR'); -- Seeded Message
5884: fnd_message.set_token('LDOPBKLOG Error is : ' ,SQLCODE);
5885: fnd_message.set_token('Reason is : ', SQLERRM);
5886:
5883: fnd_message.set_name('FND','SQL_PLSQL_ERROR'); -- Seeded Message
5884: fnd_message.set_token('LDOPBKLOG Error is : ' ,SQLCODE);
5885: fnd_message.set_token('Reason is : ', SQLERRM);
5886:
5887: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_UNEXPECTED,
5888: MODULE => g_pkg || l_proc || 'proc_error',
5889: MESSAGE => fnd_message.get );
5890: END IF;
5891:
6010: l_func_area_id:=11;
6011: g_sch_name := 'BIL';
6012:
6013:
6014: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6015:
6016: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_PROCEDURE,
6017: MODULE => g_pkg || l_proc || 'begin',
6018: MESSAGE => 'Start of Procedure '|| l_proc);
6012:
6013:
6014: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6015:
6016: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_PROCEDURE,
6017: MODULE => g_pkg || l_proc || 'begin',
6018: MESSAGE => 'Start of Procedure '|| l_proc);
6019:
6020: END IF;
6052: END IF;
6053: END LOOP;
6054: END IF;
6055:
6056: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6057:
6058: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
6059: MODULE => g_pkg || l_proc,
6060: MESSAGE => 'Prod cat is '||nvl(l_prodcat_id, 0)||' Lang '||USERENV('LANG'));
6054: END IF;
6055:
6056: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6057:
6058: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
6059: MODULE => g_pkg || l_proc,
6060: MESSAGE => 'Prod cat is '||nvl(l_prodcat_id, 0)||' Lang '||USERENV('LANG'));
6061:
6062: END IF;
6081: ,x_curr_date => l_bis_sysdate
6082: ,x_fii_struct => l_fii_struct
6083: );
6084:
6085: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6086:
6087: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
6088: MODULE => g_pkg || l_proc,
6089: MESSAGE => 'Date '||l_bis_sysdate);
6083: );
6084:
6085: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6086:
6087: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
6088: MODULE => g_pkg || l_proc,
6089: MESSAGE => 'Date '||l_bis_sysdate);
6090:
6091: END IF;
6097: l_period_type_num := TO_NUMBER(REPLACE(l_period_type , ''''));
6098:
6099: l_rpt_str:='BIL_BI_LEAD_OPP_CAMP';
6100:
6101: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6102:
6103:
6104: l_sql_error_desc := 'l_viewby => '|| l_viewby||', '||
6105: 'l_curr_page_time_id => '|| l_curr_page_time_id ||', ' ||
6115: 'l_calendar_id => '|| l_calendar_id||', ' ||
6116: 'l_campaign_id: => '||l_campaign_id;
6117:
6118:
6119: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
6120: MODULE => g_pkg || l_proc,
6121: MESSAGE => 'Parameters =>'||l_sql_error_desc);
6122:
6123: END IF;
6363: AND BIL_MEASURE7 IS NULL AND BIL_MEASURE9 IS NULL AND BIL_MEASURE11 IS NULL AND BIL_MEASURE13 IS NULL ) '||
6364: ' GROUP BY BIL_MEASURE15, VIEWBYID ';
6365: END IF;
6366:
6367: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6368: l_ind :=1;
6369: l_len:= length(l_custom_sql);
6370:
6371: WHILE l_ind <= l_len LOOP
6370:
6371: WHILE l_ind <= l_len LOOP
6372: l_str:= substr(l_custom_sql, l_ind, 4000);
6373:
6374: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
6375: MODULE => g_pkg || l_proc ||'.'|| ' statement ',
6376: MESSAGE => l_str);
6377:
6378: l_ind := l_ind + 4000;
6541: x_custom_sql:=
6542: l_outer_select ||' FROM ( '||l_inner_select2 ||' ) ORDER BY SORTORDER,VIEWBY) ';
6543:
6544:
6545: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6546: l_ind :=1;
6547: l_len:= length(x_custom_sql);
6548:
6549: WHILE l_ind <= l_len LOOP
6548:
6549: WHILE l_ind <= l_len LOOP
6550: l_str:= substr(x_custom_sql, l_ind, 4000);
6551:
6552: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
6553: MODULE => g_pkg || l_proc ||'.'|| ' statement ',
6554: MESSAGE => l_str);
6555:
6556: l_ind := l_ind + 4000;
6685: ,x_sqlstr => x_custom_sql
6686: );
6687: END IF;
6688:
6689: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6690:
6691: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_PROCEDURE,
6692: MODULE => g_pkg || l_proc || 'End',
6693: MESSAGE => 'End of Procedure '||l_proc);
6687: END IF;
6688:
6689: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6690:
6691: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_PROCEDURE,
6692: MODULE => g_pkg || l_proc || 'End',
6693: MESSAGE => 'End of Procedure '||l_proc);
6694:
6695: END IF;
6697:
6698: EXCEPTION
6699: WHEN OTHERS THEN
6700:
6701: IF FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6702: fnd_message.set_name('FND','SQL_PLSQL_ERROR'); -- Seeded Message
6703: fnd_message.set_token('Error is : ' ,SQLCODE);
6704: fnd_message.set_token('Reason is : ', SQLERRM);
6705:
6702: fnd_message.set_name('FND','SQL_PLSQL_ERROR'); -- Seeded Message
6703: fnd_message.set_token('Error is : ' ,SQLCODE);
6704: fnd_message.set_token('Reason is : ', SQLERRM);
6705:
6706: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_UNEXPECTED,
6707: MODULE => g_pkg || l_proc || 'proc_error',
6708: MESSAGE => fnd_message.get );
6709:
6710: END IF;
6816: l_parameter_valid := TRUE;
6817: g_pkg := 'bil.patch.115.sql.BIL_BI_SALES_MGMT_RPTS_PKG.';
6818: l_region_id := 'BIL_BI_SLS_PERF';
6819: l_proc := 'BIL_BI_SLS_PERF.';
6820: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6821: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_PROCEDURE,
6822: MODULE => g_pkg || l_proc || 'begin',
6823: MESSAGE => 'Start of Procedure '|| l_proc);
6824: END IF;
6817: g_pkg := 'bil.patch.115.sql.BIL_BI_SALES_MGMT_RPTS_PKG.';
6818: l_region_id := 'BIL_BI_SLS_PERF';
6819: l_proc := 'BIL_BI_SLS_PERF.';
6820: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6821: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_PROCEDURE,
6822: MODULE => g_pkg || l_proc || 'begin',
6823: MESSAGE => 'Start of Procedure '|| l_proc);
6824: END IF;
6825: /* Get the page parameters */
6898: ELSIF p_page_parameter_tbl(i).parameter_id = '2' THEN
6899: l_status_report := 'Bottom';
6900: ELSE
6901: l_status_report := 'Top';
6902: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6903: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
6904: MODULE => g_pkg || l_proc ,
6905: MESSAGE => 'Defaulted thru code to => '||l_status_report);
6906: END IF;
6899: l_status_report := 'Bottom';
6900: ELSE
6901: l_status_report := 'Top';
6902: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6903: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
6904: MODULE => g_pkg || l_proc ,
6905: MESSAGE => 'Defaulted thru code to => '||l_status_report);
6906: END IF;
6907: END IF;
6913: ELSIF p_page_parameter_tbl(i).parameter_id = '3' THEN
6914: l_status_rank := 'Win/Loss Ratio';
6915: ELSE
6916: l_status_rank := 'Won';
6917: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6918: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
6919: MODULE => g_pkg || l_proc ,
6920: MESSAGE => 'Defaulted thru code to => '||l_status_report);
6921: END IF;
6914: l_status_rank := 'Win/Loss Ratio';
6915: ELSE
6916: l_status_rank := 'Won';
6917: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
6918: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
6919: MODULE => g_pkg || l_proc ,
6920: MESSAGE => 'Defaulted thru code to => '||l_status_report);
6921: END IF;
6922: END IF;
7134: 'l_order => '|| l_order ||', ' ||
7135: 'l_orderBy => '|| l_orderBy ||', ' ||
7136: 'l_sortBy => '|| l_sortBy ||', ' ||
7137: 'l_comp_type => '|| l_comp_type ;
7138: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7139: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
7140: MODULE => g_pkg || l_proc ,
7141: MESSAGE => 'Parameters => '||l_sql_error_desc);
7142: END IF;
7135: 'l_orderBy => '|| l_orderBy ||', ' ||
7136: 'l_sortBy => '|| l_sortBy ||', ' ||
7137: 'l_comp_type => '|| l_comp_type ;
7138: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7139: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
7140: MODULE => g_pkg || l_proc ,
7141: MESSAGE => 'Parameters => '||l_sql_error_desc);
7142: END IF;
7143: /*** Query column mapping ******************************************************
7534:
7535:
7536:
7537: --Log the query being returned
7538: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7539: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
7540: MODULE => g_pkg || l_proc || 'Query LENGTH=>',
7541: MESSAGE => ' x_custom_sql LENGTH '||LENGTH(x_custom_sql));
7542: END IF;
7535:
7536:
7537: --Log the query being returned
7538: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7539: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
7540: MODULE => g_pkg || l_proc || 'Query LENGTH=>',
7541: MESSAGE => ' x_custom_sql LENGTH '||LENGTH(x_custom_sql));
7542: END IF;
7543: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7539: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
7540: MODULE => g_pkg || l_proc || 'Query LENGTH=>',
7541: MESSAGE => ' x_custom_sql LENGTH '||LENGTH(x_custom_sql));
7542: END IF;
7543: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7544: l_ind :=1;
7545: l_len:= LENGTH(x_custom_sql);
7546: WHILE l_ind <= l_len LOOP
7547: l_str:= SUBSTR(x_custom_sql, l_ind, 4000);
7544: l_ind :=1;
7545: l_len:= LENGTH(x_custom_sql);
7546: WHILE l_ind <= l_len LOOP
7547: l_str:= SUBSTR(x_custom_sql, l_ind, 4000);
7548: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_STATEMENT,
7549: MODULE => g_pkg || l_proc ||'.'|| ' statement ',
7550: MESSAGE => l_str);
7551: l_ind := l_ind + 4000;
7552: END LOOP;
7640: x_custom_attr.Extend();
7641: x_custom_attr(l_bind_ctr):=l_custom_rec;
7642: l_bind_ctr:=l_bind_ctr+1;
7643: END IF;
7644: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7645: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_PROCEDURE,
7646: MODULE => g_pkg || l_proc || 'END',
7647: MESSAGE => 'END of Procedure '||l_proc);
7648: END IF;
7641: x_custom_attr(l_bind_ctr):=l_custom_rec;
7642: l_bind_ctr:=l_bind_ctr+1;
7643: END IF;
7644: IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
7645: FND_LOG.STRING(LOG_LEVEL => fnd_log.LEVEL_PROCEDURE,
7646: MODULE => g_pkg || l_proc || 'END',
7647: MESSAGE => 'END of Procedure '||l_proc);
7648: END IF;
7649: END BIL_BI_SLS_PERF ;