The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT project_role_id
FROM pa_project_parties
WHERE project_party_id <> nvl( P_Project_Party_ID , -9999 )
AND object_type = P_Object_Type
AND object_id = P_Object_ID
AND resource_type_id = 101
AND resource_source_id = P_Person_ID
AND ( --
-- Two date ranges overlap
--
GREATEST( trunc(P_Start_Date_Active) , trunc(start_date_active) ) <=
LEAST( nvl( trunc(end_date_active) , trunc(P_End_Date_Active) )
, nvl( trunc(P_End_Date_Active) , trunc(end_date_active) ) )
OR --
-- Two open ended assignments
--
( P_End_Date_Active is NULL AND end_date_active is NULL )
);
SELECT Record_Version_Number
FROM PA_Project_Parties PPP
WHERE Project_Party_ID = X_Project_Party_ID;
PROCEDURE UPDATE_CONTRACT_ACCESS
( P_COMMIT IN VARCHAR2
, P_OBJECT_TYPE IN VARCHAR2
, P_OBJECT_ID IN NUMBER
, P_ROLE_ID IN NUMBER
, P_PERSON_ID IN NUMBER
, P_START_DATE_ACTIVE IN DATE
, P_END_DATE_ACTIVE IN OUT NOCOPY DATE
, P_PROJECT_PARTY_ID IN NUMBER
, P_RECORD_VERSION_NUMBER IN NUMBER
, P_RESOURCE_ID IN NUMBER
, P_ASSIGNMENT_ID IN NUMBER
, X_ASSIGNMENT_ID OUT NOCOPY NUMBER
, X_RETURN_STATUS OUT NOCOPY VARCHAR2
, X_MSG_COUNT OUT NOCOPY NUMBER
, X_MSG_DATA OUT NOCOPY VARCHAR2
) IS
BEGIN
FND_MSG_PUB.initialize;
PA_PROJECT_PARTIES_PVT.Update_Project_Party
( P_Commit => P_Commit
, P_Validate_Only => FND_API.G_FALSE
, P_Validation_Level => FND_API.G_VALID_LEVEL_FULL
, P_Debug_Mode => 'N'
, P_Object_ID => P_Object_ID
, P_Object_Type => P_Object_Type
, P_Project_Role_ID => P_Role_ID
, P_Resource_Type_ID => 101
, P_Resource_Source_ID => P_Person_ID
, P_Resource_ID => P_Resource_ID
, P_Start_Date_Active => P_Start_Date_Active
, P_Scheduled_Flag => 'N'
, P_Record_Version_Number => P_Record_Version_Number
, P_Calling_Module => 'FORM'
, P_Project_ID => NULL
, P_Project_End_Date => NULL
, P_Project_Party_ID => P_Project_Party_ID
, P_Assignment_ID => FND_API.G_MISS_NUM
, P_Assign_Record_Version_Number => FND_API.G_MISS_NUM
, P_End_Date_Active => P_End_Date_Active
, X_Assignment_ID => X_Assignment_ID
, X_WF_Type => WF_Type
, X_WF_Item_Type => WF_Item_Type
, X_WF_Process => WF_Process
, X_Return_Status => X_Return_Status
, X_Msg_Count => X_Msg_Count
, X_Msg_Data => X_Msg_Data
);
END UPDATE_CONTRACT_ACCESS;