398: X_Agreement_ID NUMBER DEFAULT NULL -- Federal Uptake
399: ) IS
400: CURSOR C IS
401: SELECT A.*, B.event_type_classification 402: FROM PA_EVENTS A, PA_EVENT_TYPES B 403: WHERE A.rowid = X_Rowid
404: and A.event_type = B.event_type
405: FOR UPDATE of Project_Id NOWAIT;
406: Recinfo C%ROWTYPE;