[Home] [Help]
171:
172: IF l_valid_status_tbl(i) = 'V' THEN -- Insert records which are valid
173: print_msg('Inside IF loop :: ');
174:
175: select PA_TASKS_S.NEXTVAL INTO l_new_task_id from sys.dual;
176:
177:
178: INSERT INTO PA_ALTERNATE_TASKS (
179: ALT_TASK_ID ,
312: L_TEMP VARCHAR2(1) := 'N';
313:
314:
315: cursor isCostCodeAdded(c_Proj_Element_Id IN NUMBER, c_Cbs_Element_Id IN NUMBER) IS
316: select 'Y' from dual where
317: EXISTS
318: (SELECT *
319: FROM PA_ALTERNATE_TASKS pat , PA_RBS_ELEMENTS pre
320: WHERE (pat.CBS_ELEMENT_ID = c_Cbs_Element_Id
376: x_exist NUMBER := 0;
377:
378: cursor isCostCodeUsed(c_Alt_Task_Id IN NUMBER) IS
379: SELECT 'Y' validation_success /* If cursor returns a record, deletion is not allowed */
380: FROM DUAL
381: WHERE EXISTS (
382: SELECT 1
383: FROM pa_resource_assignments r
384: WHERE r.task_id = (select proj_element_id from pa_alternate_tasks where alt_task_id = c_Alt_Task_Id)
422: l_dummy := 0;
423: SELECT
424: 1 into l_dummy
425: FROM
426: sys.dual
427: WHERE
428: exists (SELECT NULL
429: FROM po_distributions_all poa
430: where poa.project_id = l_project_id
458: l_dummy := 0;
459: SELECT
460: 1 into l_dummy
461: FROM
462: sys.dual
463: WHERE
464: exists (SELECT NULL
465: FROM po_req_distributions_all prd
466: where prd.project_id = l_project_id
495: l_dummy := 0;
496: SELECT
497: 1 into l_dummy
498: FROM
499: sys.dual
500: WHERE
501: exists (SELECT NULL
502: FROM ap_invoices_all aia
503: where aia.project_id = l_project_id
531: l_dummy := 0;
532: SELECT
533: 1 into l_dummy
534: FROM
535: sys.dual
536: WHERE
537: exists (SELECT NULL
538: FROM ap_invoice_distributions_all aid
539: where aid.project_id = l_project_id
568: l_dummy := 0;
569: SELECT
570: 1 into l_dummy
571: FROM
572: sys.dual
573: WHERE
574: exists (SELECT NULL
575: FROM ap_exp_report_dists_all er
576: where er.project_id = l_project_id
604: l_dummy := 0;
605: SELECT
606: 1 into l_dummy
607: FROM
608: sys.dual
609: WHERE
610: exists (SELECT NULL
611: FROM mtl_material_transactions mtl
612: where mtl.project_id = l_project_id
640: l_dummy := 0;
641: SELECT
642: 1 into l_dummy
643: FROM
644: sys.dual
645: WHERE
646: exists (SELECT NULL
647: FROM PA_EXPENDITURE_ITEMS_all pei
648: where pei.CBS_ELEMENT_ID = l_cbs_element_id
677: l_dummy := 0;
678: SELECT
679: 1 into l_dummy
680: FROM
681: sys.dual
682: WHERE
683: exists (SELECT NULL
684: FROM pa_commitment_txns pct
685: where pct.CBS_ELEMENT_ID = p_Alt_Task_Id(i));
711: l_dummy := 0;
712: SELECT
713: 1 into l_dummy
714: FROM
715: sys.dual
716: WHERE
717: exists (SELECT NULL
718: FROM pa_draft_invoice_details_all pdi
719: where pdi.CC_TAX_TASK_ID = p_Alt_Task_Id(i));
887: L_Cbs_Enabled VARCHAR2(1) := 'N';
888: L_TEMP VARCHAR2(1) := 'N';
889:
890: CURSOR check_cost_code_enabled(c_project_id NUMBER) IS
891: select 'Y' from dual where
892: EXISTS
893: (SELECT *
894: FROM pa_projects_all
895: WHERE project_id = c_project_id
922: X_Msg_Data OUT NOCOPY Varchar2,
923: X_Msg_Count OUT NOCOPY Number)
924: IS
925: cursor validateCostCodes(c_Cbs_Element_Id IN NUMBER, c_Task_Id IN NUMBER) IS
926: select 'Y' from dual where
927: EXISTS
928: (SELECT *
929: FROM PA_ALTERNATE_TASKS
930: WHERE proj_element_id = c_Task_Id
931: AND cbs_element_id = c_Cbs_Element_Id
932: );
933:
934: cursor validateCBSStructure(c_Project_Id IN NUMBER, c_Cbs_Element_Id IN NUMBER) IS
935: select 'Y' from dual where
936: EXISTS
937: (SELECT *
938: FROM pa_projects_all
939: WHERE project_id = c_Project_Id
1019: X_Msg_Data OUT NOCOPY Varchar2,
1020: X_Msg_Count OUT NOCOPY Number)
1021: IS
1022: cursor validateCostCodes(c_Cost_Code IN Varchar2, c_Task_Id IN NUMBER, c_Project_Id IN NUMBER) IS
1023: select 'Y' from dual where
1024: EXISTS
1025: (SELECT *
1026: FROM PA_ALTERNATE_TASKS
1027: WHERE proj_element_id = c_Task_Id
1031: (select cbs_version_id from pa_projects_all where project_id = c_Project_Id))
1032: );
1033:
1034: cursor validateCBSStructure(c_Project_Id IN NUMBER, c_Cost_Code IN Varchar2) IS
1035: select 'Y' from dual where
1036: EXISTS
1037: (select * from pa_rbs_elements
1038: where cost_code = c_Cost_Code
1039: and rbs_version_id =
1119: select project_id from pa_budget_versions where
1120: budget_version_id = p_budget_version_id;
1121:
1122: cursor validateLowestTask IS
1123: select 'Y' from dual where
1124: EXISTS
1125: (select * from pa_proj_fp_options
1126: where (REVENUE_FIN_PLAN_LEVEL_CODE = 'P' OR
1127: COST_FIN_PLAN_LEVEL_CODE = 'P' OR
1128: ALL_FIN_PLAN_LEVEL_CODE = 'P') and FIN_PLAN_VERSION_ID = p_budget_version_id
1129: );
1130:
1131: cursor validateStaffPlan IS
1132: select 'Y' from dual where
1133: EXISTS
1134: (select * from pa_proj_fp_options
1135: where (GEN_ALL_ETC_SRC_CODE = 'RESOURCE_SCHEDULE' OR
1136: GEN_ALL_SRC_CODE = 'RESOURCE_SCHEDULE' OR
1140: GEN_REV_ETC_SRC_CODE = 'RESOURCE_SCHEDULE') and FIN_PLAN_VERSION_ID = p_budget_version_id
1141: );
1142:
1143: cursor validateBillEvent IS
1144: select 'Y' from dual where
1145: EXISTS
1146: (select * from pa_proj_fp_options
1147: where (GEN_REV_INCL_BILL_EVENT_FLAG = 'Y' OR
1148: GEN_ALL_INCL_BILL_EVENT_FLAG = 'Y') and FIN_PLAN_VERSION_ID = p_budget_version_id
1148: GEN_ALL_INCL_BILL_EVENT_FLAG = 'Y') and FIN_PLAN_VERSION_ID = p_budget_version_id
1149: );
1150:
1151: cursor validateRevDerv IS
1152: select 'Y' from dual where
1153: EXISTS
1154: (select * from pa_proj_fp_options
1155: where (REVENUE_DERIVATION_METHOD = 'EVENT' ) and FIN_PLAN_VERSION_ID = p_budget_version_id
1156: );