[Home] [Help]
1: package body CS_SR_ACTION_TRIGGERS_PKG as
2: /* $Header: csxtnatb.pls 120.0 2005/08/12 15:29:23 aneemuch noship $ */
3: procedure INSERT_ROW (
4: PX_EVENT_CONDITION_ID in out NOCOPY NUMBER,
5: P_FROM_TO_STATUS_CODE in VARCHAR2,
16: P_LAST_UPDATED_BY in NUMBER,
17: P_LAST_UPDATE_LOGIN in NUMBER,
18: X_OBJECT_VERSION_NUMBER out NOCOPY NUMBER
19: ) is
20: CURSOR C2 IS SELECT CS_SR_ACTION_TRIGGERS_S.nextval FROM sys.dual;
21: l_object_version_number number := 1;
22: begin
23: If (px_EVENT_CONDITION_ID IS NULL) OR (px_EVENT_CONDITION_ID = FND_API.G_MISS_NUM) then
24: OPEN C2;
25: FETCH C2 INTO px_EVENT_CONDITION_ID;
26: CLOSE C2;
27: End If;
28:
29: insert into CS_SR_ACTION_TRIGGERS (
30: EVENT_CONDITION_ID,
31: EVENT_CODE,
32: FROM_TO_STATUS_CODE,
33: INCIDENT_STATUS_ID,
70: ) is
71:
72: cursor c is select
73: OBJECT_VERSION_NUMBER
74: from CS_SR_ACTION_TRIGGERS
75: where EVENT_CONDITION_ID = P_EVENT_CONDITION_ID
76: for update of EVENT_CONDITION_ID nowait;
77:
78: l_object_version_number number := 0;
113: X_OBJECT_VERSION_NUMBER out NOCOPY NUMBER
114: ) is
115: l_object_Version_number number;
116: begin
117: update CS_SR_ACTION_TRIGGERS set
118: OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1,
119: FROM_TO_STATUS_CODE = P_FROM_TO_STATUS_CODE,
120: INCIDENT_STATUS_ID = P_INCIDENT_STATUS_ID,
121: RELATIONSHIP_TYPE_ID = P_RELATIONSHIP_TYPE_ID,
140: procedure DELETE_ROW (
141: P_EVENT_CONDITION_ID in NUMBER
142: ) is
143: begin
144: delete from CS_SR_ACTION_TRIGGERS
145: where EVENT_CONDITION_ID = P_EVENT_CONDITION_ID;
146:
147: if (sql%notfound) then
148: raise no_data_found;
226: );
227:
228: END LOAD_ROW;
229:
230: end CS_SR_ACTION_TRIGGERS_PKG;