1: package body AMS_APPROVAL_RULES_PKG as
2: /* $Header: amslappb.pls 120.1 2005/06/27 05:37:55 appldev ship $ */
3:
4: procedure INSERT_ROW (
5: X_ROWID in OUT NOCOPY VARCHAR2,
19: X_LAST_UPDATE_DATE in DATE,
20: X_LAST_UPDATED_BY in NUMBER,
21: X_LAST_UPDATE_LOGIN in NUMBER
22: ) is
23: cursor C is select ROWID from AMS_APPROVAL_RULES
24: where APPROVAL_RULE_ID = X_APPROVAL_RULE_ID ;
25: begin
26: insert into AMS_APPROVAL_RULES (
27: APPROVAL_RULE_ID,
22: ) is
23: cursor C is select ROWID from AMS_APPROVAL_RULES
24: where APPROVAL_RULE_ID = X_APPROVAL_RULE_ID ;
25: begin
26: insert into AMS_APPROVAL_RULES (
27: APPROVAL_RULE_ID,
28: LAST_UPDATE_DATE,
29: LAST_UPDATED_BY,
30: CREATION_DATE,
84: X_LAST_UPDATED_BY in NUMBER,
85: X_LAST_UPDATE_LOGIN in NUMBER
86: ) is
87: begin
88: update AMS_APPROVAL_RULES set
89: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
90: ARC_APPROVAL_FOR_OBJECT = X_ARC_APPROVAL_FOR_OBJECT,
91: APPROVAL_TYPE = X_APPROVAL_TYPE,
92: TIMEOUT_DAYS_LOW_PRIO = X_TIMEOUT_DAYS_LOW_PRIO,
109: procedure DELETE_ROW (
110: X_APPROVAL_RULE_ID in NUMBER
111: ) is
112: begin
113: delete from AMS_APPROVAL_RULES
114: where APPROVAL_RULE_ID = X_APPROVAL_RULE_ID;
115:
116: if (sql%notfound) then
117: raise no_data_found;
146: l_approval_rule_id number;
147:
148: cursor c_obj_verno is
149: select object_version_number
150: from AMS_APPROVAL_RULES
151: where APPROVAL_RULE_ID = X_APPROVAL_RULE_ID;
152:
153: cursor c_chk_app_exists is
154: select 'x'
151: where APPROVAL_RULE_ID = X_APPROVAL_RULE_ID;
152:
153: cursor c_chk_app_exists is
154: select 'x'
155: from AMS_APPROVAL_RULES
156: where APPROVAL_RULE_ID = X_APPROVAL_RULE_ID;
157:
158: cursor c_get_appruleid is
159: select AMS_APPROVAL_RULES_S.nextval
155: from AMS_APPROVAL_RULES
156: where APPROVAL_RULE_ID = X_APPROVAL_RULE_ID;
157:
158: cursor c_get_appruleid is
159: select AMS_APPROVAL_RULES_S.nextval
160: from dual;
161:
162: BEGIN
163:
178: l_APPROVAL_RULE_ID := X_APPROVAL_RULE_ID;
179: end if;
180: l_obj_verno := 1;
181:
182: AMS_APPROVAL_RULES_PKG.INSERT_ROW(
183: X_ROWID => l_row_id,
184: X_APPROVAL_RULE_ID => l_APPROVAL_RULE_ID ,
185: X_OBJECT_VERSION_NUMBER => l_obj_verno,
186: X_ARC_APPROVAL_FOR_OBJECT => X_ARC_APPROVAL_FOR_OBJECT ,
203: close c_chk_app_exists;
204: open c_obj_verno;
205: fetch c_obj_verno into l_obj_verno;
206: close c_obj_verno;
207: AMS_APPROVAL_RULES_PKG.UPDATE_ROW(
208: X_APPROVAL_RULE_ID => x_APPROVAL_RULE_ID ,
209: X_OBJECT_VERSION_NUMBER => l_obj_verno + 1,
210: X_ARC_APPROVAL_FOR_OBJECT => X_ARC_APPROVAL_FOR_OBJECT ,
211: X_APPROVAL_TYPE => X_APPROVAL_TYPE,
222: );
223: end if;
224: END LOAD_ROW;
225:
226: end AMS_APPROVAL_RULES_PKG;