14: X_LAST_UPDATE_DATE in DATE,
15: X_LAST_UPDATED_BY in NUMBER,
16: X_LAST_UPDATE_LOGIN in NUMBER
17: ) is
18: cursor C is select ROWID from IEC_P_RES_GRP_CAPS_B
19: where RES_GROUP_CAP_ID = X_RES_GROUP_CAP_ID
20: ;
21: begin
22: insert into IEC_P_RES_GRP_CAPS_B (
18: cursor C is select ROWID from IEC_P_RES_GRP_CAPS_B
19: where RES_GROUP_CAP_ID = X_RES_GROUP_CAP_ID
20: ;
21: begin
22: insert into IEC_P_RES_GRP_CAPS_B (
23: RES_GROUP_CAP_ID,
24: OBJECT_VERSION_NUMBER,
25: CAP_CODE,
26: VALUE_TYPE,
97: OBJECT_VERSION_NUMBER,
98: CAP_CODE,
99: VALUE_TYPE,
100: VALUE_LENGTH
101: from IEC_P_RES_GRP_CAPS_B
102: where RES_GROUP_CAP_ID = X_RES_GROUP_CAP_ID
103: for update of RES_GROUP_CAP_ID nowait;
104: recinfo c%rowtype;
105:
161: X_LAST_UPDATED_BY in NUMBER,
162: X_LAST_UPDATE_LOGIN in NUMBER
163: ) is
164: begin
165: update IEC_P_RES_GRP_CAPS_B set
166: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
167: CAP_CODE = X_CAP_CODE,
168: VALUE_TYPE = X_VALUE_TYPE,
169: VALUE_LENGTH = X_VALUE_LENGTH,
201: if (sql%notfound) then
202: raise no_data_found;
203: end if;
204:
205: delete from IEC_P_RES_GRP_CAPS_B
206: where RES_GROUP_CAP_ID = X_RES_GROUP_CAP_ID;
207: if (sql%notfound) then
208: raise no_data_found;
209: end if;
261: begin
262: delete from IEC_P_RES_GRP_CAPS_TL T
263: where not exists
264: (select NULL
265: from IEC_P_RES_GRP_CAPS_B B
266: where B.RES_GROUP_CAP_ID = T.RES_GROUP_CAP_ID
267: );
268:
269: update IEC_P_RES_GRP_CAPS_TL T set (