[Home] [Help]
589: IF p_PA_DEBUG_MODE = 'Y' THEN
590: Write2FWKLog('Entering Convert_Event_Revenue_Type...','Convert_Event_Revenue_Type');
591: END IF;
592:
593: DELETE PJI_PMV_EC_RC_DIM_TMP where record_type = 'RC';
594: DELETE PJI_PMV_ET_RT_DIM_TMP where record_type = 'RT';
595:
596: IF p_Revenue_Category IS NOT NULL THEN
597: l_RCate_Dimension_List_Tab:=Decode_VARS(p_Revenue_Category);
610: IF p_PA_DEBUG_MODE = 'Y' THEN
611: Write2FWKLog('View BY RC and RC is not specified.');
612: Write2FWKLog('step6','step6');
613: END IF;
614: INSERT INTO PJI_PMV_EC_RC_DIM_TMP (ID, NAME,RECORD_TYPE)
615: SELECT ID, VALUE,'RC'
616: FROM pji_revenue_categories_v ;
617: l_RC_Parsed_Flag:='Y';
618: ELSIF l_RCate_Dimension_List_Tab IS NOT NULL THEN
619: IF p_PA_DEBUG_MODE = 'Y' THEN
620: Write2FWKLog('RC is specified.');
621: END IF;
622: FOR i IN 1..l_RCate_Dimension_List_Tab.Last LOOP
623: INSERT INTO PJI_PMV_EC_RC_DIM_TMP (ID, NAME,RECORD_TYPE)
624: SELECT ID, DECODE(p_View_By, 'RC', VALUE, '-1'),'RC'
625: FROM pji_revenue_categories_v
626: WHERE ID = l_RCate_Dimension_List_Tab(i);
627: END LOOP;
648: END IF;
649: INSERT INTO PJI_PMV_ET_RT_DIM_TMP (ID, NAME,RECORD_TYPE)
650: SELECT rtyp.id, DECODE(p_View_BY,'RC',usrx.name,'RT',rtyp.value,'-1'),'RT'
651: FROM pji_exp_evt_types_v rtyp
652: , PJI_PMV_EC_RC_DIM_TMP usrx
653: WHERE rtyp.revenue_category_code = usrx.id
654: and usrx.record_type = 'RC';
655: l_RT_Parsed_Flag:='Y';
656: END IF;
677: FOR i IN 1..l_RType_Dimension_List_Tab.Last LOOP
678: INSERT INTO PJI_PMV_ET_RT_DIM_TMP (ID, NAME,RECORD_TYPE)
679: SELECT rtyp.id, DECODE(p_View_BY,'RC',usrx.name,'RT',rtyp.value,'-1'),'RT'
680: FROM pji_exp_evt_types_v rtyp
681: , PJI_PMV_EC_RC_DIM_TMP usrx
682: WHERE rtyp.id = l_RType_Dimension_List_Tab(i)
683: AND rtyp.revenue_category_code = usrx.id
684: AND usrx.record_type = 'RC';
685: END LOOP;
763: Write2FWKLog('Entering Convert_Expenditure_Category...','Convert_Expenditure_Category');
764: END IF;
765:
766: DELETE PJI_PMV_ET_RT_DIM_TMP where record_type = 'ET';
767: DELETE PJI_PMV_EC_RC_DIM_TMP where record_type = 'EC';
768:
769: IF p_Expenditure_Category IS NOT NULL THEN
770: l_ECate_Dimension_List_Tab:=Decode_VARS(p_Expenditure_Category);
771: ELSE
782: IF l_ECate_Dimension_List_Tab IS NULL AND p_View_BY = 'EC' THEN
783: IF p_PA_DEBUG_MODE = 'Y' THEN
784: Write2FWKLog('View BY EC and EC is not specified.');
785: END IF;
786: INSERT INTO PJI_PMV_EC_RC_DIM_TMP (ID, NAME,RECORD_TYPE)
787: SELECT EXPENDITURE_CATEGORY, EXPENDITURE_CATEGORY,'EC'
788: FROM PA_EXPENDITURE_CATEGORIES ;
789: l_EC_Parsed_Flag:='Y';
790: ELSIF l_ECate_Dimension_List_Tab IS NOT NULL THEN
791: IF p_PA_DEBUG_MODE = 'Y' THEN
792: Write2FWKLog('EC is specified.');
793: END IF;
794: FOR i IN 1..l_ECate_Dimension_List_Tab.Last LOOP
795: INSERT INTO PJI_PMV_EC_RC_DIM_TMP (ID, NAME,RECORD_TYPE)
796: SELECT EXPENDITURE_CATEGORY, DECODE(p_View_By, 'EC', EXPENDITURE_CATEGORY, '-1'),'EC'
797: FROM PA_EXPENDITURE_CATEGORIES
798: WHERE EXPENDITURE_CATEGORY_ID = to_number(l_ECate_Dimension_List_Tab(i));
799: /* Changed the where clause to expenditure_category_id as l_ECate_Dimension_List_Tab
824: SELECT etyp.expenditure_type_id,
825:
826: DECODE(p_View_BY,'EC',usrx.name,'ET',etyp.expenditure_type,'-1'),'ET'
827: FROM pa_expenditure_types etyp
828: , PJI_PMV_EC_RC_DIM_TMP usrx
829: WHERE etyp.expenditure_category = usrx.id
830: and usrx.record_type = 'EC';
831: l_ET_Parsed_Flag:='Y';
832: END IF;
855: SELECT etyp.expenditure_type_id,
856:
857: DECODE(p_View_BY,'EC',usrx.name,'ET',etyp.expenditure_type,'-1'),'ET'
858: FROM pa_expenditure_types etyp
859: , PJI_PMV_EC_RC_DIM_TMP usrx
860: WHERE etyp.expenditure_type_id = l_EType_Dimension_List_Tab(i)
861: AND etyp.expenditure_category = usrx.id
862: AND usrx.record_type = 'EC';
863: END LOOP;