[Home] [Help]
112: AND SCHEDULE_LEVEL = L_Schedule_Level
113: AND SUPPLY_DEMAND_TYPE = L_Supply_Demand_Type;
114:
115: CURSOR l_id_csr IS
116: SELECT mrp_schedule_dates_s.NEXTVAL FROM dual;
117:
118: BEGIN
119:
120: --
1090: -- Cursor to validate PA information for Inventory
1091: --
1092: cursor pi is
1093: select 'OKE_DTS_EXP_PROJECT_INVALID'
1094: from dual
1095: where not exists (
1096: select 'Project is valid'
1097: from pa_projects_expend_v
1098: where project_id = l_project_id )
1097: from pa_projects_expend_v
1098: where project_id = l_project_id )
1099: union all
1100: select 'OKE_PROJECT_NOT_SETUP'
1101: from dual
1102: where not exists (
1103: select 'Project valid for PJM'
1104: from pjm_project_parameters
1105: where organization_id = l_inv_org_id
1105: where organization_id = l_inv_org_id
1106: and project_id = l_project_id )
1107: union all
1108: select 'OKE_DTS_EXP_TASK_INVALID'
1109: from dual
1110: where not exists (
1111: select 'Task valid and chargeable'
1112: from pa_tasks_expend_v t
1113: where project_id = l_project_id
1114: and task_id = l_task_id
1115: and chargeable_flag = 'Y' )
1116: union all
1117: select 'OKE_TASK_REQUIRED'
1118: from dual
1119: where not exists (
1120: select 'Task Reference OK'
1121: from pjm_org_parameters
1122: where organization_id = l_inv_org_id
1128: -- Cursor to validate PA information for Expense
1129: --
1130: cursor pe is
1131: select 'OKE_DTS_EXP_PROJECT_INVALID'
1132: from dual
1133: where not exists (
1134: select 'Project is valid'
1135: from pa_projects_expend_v
1136: where project_id = l_project_id )
1135: from pa_projects_expend_v
1136: where project_id = l_project_id )
1137: union all
1138: select 'OKE_DTS_EXP_TASK_INVALID'
1139: from dual
1140: where not exists (
1141: select 'Task is valid and chargeable'
1142: from pa_tasks_expend_v
1143: where project_id = l_project_id
1144: and task_id = l_task_id
1145: and chargeable_flag = 'Y' )
1146: union all
1147: select 'OKE_DTS_EXP_DATE_INVALID'
1148: from dual
1149: where not exists (
1150: select 'Date is valid for task'
1151: from pa_tasks t
1152: , pa_projects_all p
1157: between nvl(t.start_date , nvl(p.start_date , l_exp_item_date - 1))
1158: and nvl(t.completion_date , nvl(p.completion_date , l_exp_item_date + 1)) )
1159: union all
1160: select 'OKE_DTS_EXP_TYPE_INVALID'
1161: from dual
1162: where not exists (
1163: select 'Expenditure Type exists and is valid'
1164: from pa_expenditure_types_expend_v
1165: where expenditure_type = l_exp_type
1165: where expenditure_type = l_exp_type
1166: and system_linkage_function = 'VI' )
1167: union all
1168: select 'OKE_DTS_EXP_ORG_INVALID'
1169: from dual
1170: where not exists (
1171: select 'Expenditure Org exists and is valid'
1172: from pa_organizations_expend_v
1173: where organization_id = l_exp_org_id );
1364:
1365: -- unique group id to be associate with all rows in the table
1366: select oke_interface_s.nextval
1367: into l_id
1368: from dual;
1369: /* Bug Number: 6011322 end */
1370:
1371: insert into po_requisitions_interface_all(
1372: last_updated_by,