13: P_LAST_UPDATED_BY in NUMBER ,
14: P_LAST_UPDATE_LOGIN in NUMBER
15: ) is
16:
17: l_res_type_id pa_res_types_b.res_type_id%type;
18:
19:
20: cursor C is select ROWID from pa_res_types_b
21: where res_type_id = l_res_type_id;
16:
17: l_res_type_id pa_res_types_b.res_type_id%type;
18:
19:
20: cursor C is select ROWID from pa_res_types_b
21: where res_type_id = l_res_type_id;
22: begin
23:
24: select nvl(P_RES_TYPE_ID,PA_RES_TYPES_S.nextval)
24: select nvl(P_RES_TYPE_ID,PA_RES_TYPES_S.nextval)
25: into l_res_type_id
26: from dual;
27:
28: insert into pa_res_types_b (
29: RES_TYPE_ID ,
30: RES_TYPE_CODE ,
31: ENABLED_FLAG ,
32: CREATION_DATE ,
89: P_RES_TYPE_ID in NUMBER
90: ) is
91: cursor c is select
92: RES_TYPE_CODE
93: from pa_res_types_b
94: where RES_TYPE_ID = P_RES_TYPE_ID
95: for update of RES_TYPE_ID nowait;
96: recinfo c%rowtype;
97:
128: P_LAST_UPDATED_BY in NUMBER ,
129: P_LAST_UPDATE_LOGIN in NUMBER
130: ) is
131: begin
132: update pa_res_types_b set
133: RES_TYPE_CODE = P_RES_TYPE_CODE,
134: ENABLED_FLAG = P_ENABLED_FLAG,
135: LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
136: LAST_UPDATED_BY = P_LAST_UPDATED_BY,
166: if (sql%notfound) then
167: raise no_data_found;
168: end if;
169:
170: delete from pa_res_types_b
171: where RES_TYPE_ID = P_RES_TYPE_ID;
172:
173: if (sql%notfound) then
174: raise no_data_found;
180: begin
181: delete from pa_res_types_tl T
182: where not exists
183: (select NULL
184: from PA_RES_TYPES_B B
185: where B.RES_TYPE_ID = T.res_type_id
186: );
187:
188: update pa_res_types_tl T set (