APPS.PA_EVENTS_PKG dependencies on PA_EVENTS

Line 1: PACKAGE BODY PA_EVENTS_PKG as

1: PACKAGE BODY PA_EVENTS_PKG as
2: /* $Header: PAXPREVB.pls 120.2 2007/02/07 10:45:13 rgandhi ship $ */
3:
4: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5: X_Event_Id IN OUT NOCOPY NUMBER,

Line 102: CURSOR C IS SELECT rowid FROM PA_EVENTS

98: X_Record_Version_Number NUMBER DEFAULT NULL,
99: --End of changes for events amg
100: X_Agreement_ID NUMBER DEFAULT NULL -- Federal Uptake
101: ) IS
102: CURSOR C IS SELECT rowid FROM PA_EVENTS
103: WHERE project_id = X_Project_Id
104: AND ( (task_id = X_Task_Id)
105: or (task_id is NULL and X_Task_Id is NULL))
106: AND event_num = X_Event_Num;

Line 107: CURSOR C2 IS SELECT pa_events_s.nextval FROM sys.dual;

103: WHERE project_id = X_Project_Id
104: AND ( (task_id = X_Task_Id)
105: or (task_id is NULL and X_Task_Id is NULL))
106: AND event_num = X_Event_Num;
107: CURSOR C2 IS SELECT pa_events_s.nextval FROM sys.dual;
108:
109: BEGIN
110: if (X_Event_Id is NULL) then
111: OPEN C2;

Line 117: INSERT INTO PA_EVENTS(

113: CLOSE C2;
114: end if;
115:
116:
117: INSERT INTO PA_EVENTS(
118:
119: event_id,
120: task_id,
121: event_num,

Line 402: FROM PA_EVENTS A, PA_EVENT_TYPES B

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;

Line 709: UPDATE PA_EVENTS

705: --End of changes for events amg
706: X_Agreement_ID NUMBER DEFAULT NULL -- Federal Uptake
707: ) IS
708: BEGIN
709: UPDATE PA_EVENTS
710: SET
711: event_id = X_Event_Id,
712: task_id = X_Task_Id,
713: event_num = X_Event_Num,

Line 804: DELETE FROM PA_EVENTS

800: end if;
801: END Update_Row;
802: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
803: BEGIN
804: DELETE FROM PA_EVENTS
805: WHERE rowid = X_Rowid;
806:
807: if (SQL%NOTFOUND) then
808: Raise NO_DATA_FOUND;

Line 912: END PA_EVENTS_PKG;

908: exception when others then
909: raise;
910: end Is_Event_Billed;
911: ------------------------------------------------------------------------------
912: END PA_EVENTS_PKG;