[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: --
1128: -- Cursor to validate PA information for Inventory
1129: --
1130: cursor pi 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_PROJECT_NOT_SETUP'
1139: from dual
1140: where not exists (
1141: select 'Project valid for PJM'
1142: from pjm_project_parameters
1143: where organization_id = l_inv_org_id
1143: where organization_id = l_inv_org_id
1144: and project_id = l_project_id )
1145: /* union all
1146: select 'OKE_DTS_EXP_TASK_INVALID'
1147: from dual
1148: where not exists (
1149: select 'Task valid and chargeable'
1150: from pa_tasks_expend_v t
1151: where project_id = l_project_id
1152: and task_id = l_task_id
1153: and chargeable_flag = 'Y' ) */
1154: union all
1155: select 'OKE_TASK_REQUIRED'
1156: from dual
1157: where not exists (
1158: select 'Task Reference OK'
1159: from pjm_org_parameters
1160: where organization_id = l_inv_org_id
1166: -- Cursor to validate PA information for Expense
1167: --
1168: cursor pe is
1169: select 'OKE_DTS_EXP_PROJECT_INVALID'
1170: from dual
1171: where not exists (
1172: select 'Project is valid'
1173: from pa_projects_expend_v
1174: where project_id = l_project_id )
1173: from pa_projects_expend_v
1174: where project_id = l_project_id )
1175: union all
1176: select 'OKE_DTS_EXP_TASK_INVALID'
1177: from dual
1178: where not exists (
1179: select 'Task is valid and chargeable'
1180: from pa_tasks_expend_v
1181: where project_id = l_project_id
1182: and task_id = l_task_id
1183: and chargeable_flag = 'Y' )
1184: union all
1185: select 'OKE_DTS_EXP_DATE_INVALID'
1186: from dual
1187: where not exists (
1188: select 'Date is valid for task'
1189: from pa_tasks t
1190: , pa_projects_all p
1195: between nvl(t.start_date , nvl(p.start_date , l_exp_item_date - 1))
1196: and nvl(t.completion_date , nvl(p.completion_date , l_exp_item_date + 1)) )
1197: union all
1198: select 'OKE_DTS_EXP_TYPE_INVALID'
1199: from dual
1200: where not exists (
1201: select 'Expenditure Type exists and is valid'
1202: from pa_expenditure_types_expend_v
1203: where expenditure_type = l_exp_type
1203: where expenditure_type = l_exp_type
1204: and system_linkage_function = 'VI' )
1205: union all
1206: select 'OKE_DTS_EXP_ORG_INVALID'
1207: from dual
1208: where not exists (
1209: select 'Expenditure Org exists and is valid'
1210: from pa_organizations_expend_v
1211: where organization_id = l_exp_org_id );
1407:
1408: -- unique group id to be associate with all rows in the table
1409: select oke_interface_s.nextval
1410: into l_id
1411: from dual;
1412: /* Bug Number: 6011322 end */
1413:
1414: insert into po_requisitions_interface_all(
1415: last_updated_by,