[Home] [Help]
110: X_status number;
111: BEGIN
112: FOR c IN
113: (select expenditure_item_id
114: from pa_expenditure_items i
115: ,pa_expenditures e
116: where i.system_linkage_function ||'' = 'OT'
117: and i.expenditure_id = e.expenditure_id
118: and e.incurred_by_person_id = R_Person_Id
149: X_status NUMBER;
150: BEGIN
151: FOR c IN
152: (select
153: PA_EXPENDITURE_ITEMS_S.NEXTVAL X_expenditure_item_id
154: ,i.expenditure_id X_expenditure_id
155: ,i.expenditure_item_date X_expenditure_item_date
156: ,i.task_id X_task_id
157: ,i.expenditure_type X_expenditure_type
241: ,i.work_type_id X_work_type_id
242: ,i.tp_amt_type_code X_tp_amt_type_code
243: ,i.project_raw_cost* -1 x_project_raw_cost
244: ,i.project_burdened_cost* -1 x_project_burdened_cost
245: from pa_expenditure_items i
246: ,pa_expenditures e
247: where i.system_linkage_function ||'' = 'OT'
248: and i.expenditure_id = e.expenditure_id
249: and e.incurred_by_person_id = R_Person_Id
577:
578: Job_ID := Get_Job_ID(Expenditure_ID);
579:
580: -- insert_exp_item()
581: select PA_EXPENDITURE_ITEMS_S.NEXTVAL
582: into X_expenditure_item_id
583: from sys.dual;
584:
585: /*
823: SUM(DECODE(TO_CHAR(ITEM2.Expenditure_Item_Date,'D'),
824: '7',ITEM2.Quantity,0))
825: INTO Total_Hours, Sunday, Monday, Tuesday, Wednesday,
826: Thursday, Friday, Saturday
827: FROM PA_Expenditure_Items ITEM2,
828: PA_Expenditures EXP2
829: WHERE EXP2.Incurred_By_Person_ID = R_Person_ID
830: AND EXP2.Expenditure_Ending_Date = R_Expenditure_End_Date
831: AND EXP2.Expenditure_Status_Code||'' = 'APPROVED'
853: Existing_Half_Time_Hours,
854: Existing_Uncomp_Time_Hours,
855: Existing_Extra_OT_Hours_1,
856: Existing_Extra_OT_Hours_2
857: FROM PA_expenditure_items ITEM
858: ,PA_expenditures EXP
859: WHERE EXP.Incurred_By_Person_Id = R_Person_Id
860: AND EXP.Expenditure_Ending_Date = R_Expenditure_End_Date
861: AND ITEM.Expenditure_Id = EXP.Expenditure_Id