12: X_LAST_UPDATE_DATE in DATE,
13: X_LAST_UPDATED_BY in NUMBER,
14: X_LAST_UPDATE_LOGIN in NUMBER
15: ) is
16: cursor C is select ROWID from QPR_DISCOUNT_GRPS_B
17: where DISCOUNT_GRP_ID = X_DISCOUNT_GRP_ID
18: ;
19: begin
20: insert into QPR_DISCOUNT_GRPS_B (
16: cursor C is select ROWID from QPR_DISCOUNT_GRPS_B
17: where DISCOUNT_GRP_ID = X_DISCOUNT_GRP_ID
18: ;
19: begin
20: insert into QPR_DISCOUNT_GRPS_B (
21: DISCOUNT_GRP_ID,
22: PROGRAM_LOGIN_ID,
23: REQUEST_ID,
24: CREATION_DATE,
94: ) is
95: cursor c is select
96: PROGRAM_LOGIN_ID,
97: REQUEST_ID
98: from QPR_DISCOUNT_GRPS_B
99: where DISCOUNT_GRP_ID = X_DISCOUNT_GRP_ID
100: for update of DISCOUNT_GRP_ID nowait;
101: recinfo c%rowtype;
102:
154: X_LAST_UPDATED_BY in NUMBER,
155: X_LAST_UPDATE_LOGIN in NUMBER
156: ) is
157: begin
158: update QPR_DISCOUNT_GRPS_B set
159: PROGRAM_LOGIN_ID = X_PROGRAM_LOGIN_ID,
160: REQUEST_ID = X_REQUEST_ID,
161: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
162: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
192: if (sql%notfound) then
193: raise no_data_found;
194: end if;
195:
196: delete from QPR_DISCOUNT_GRPS_B
197: where DISCOUNT_GRP_ID = X_DISCOUNT_GRP_ID;
198:
199: if (sql%notfound) then
200: raise no_data_found;
206: begin
207: delete from QPR_DISCOUNT_GRPS_TL T
208: where not exists
209: (select NULL
210: from QPR_DISCOUNT_GRPS_B B
211: where B.DISCOUNT_GRP_ID = T.DISCOUNT_GRP_ID
212: );
213:
214: update QPR_DISCOUNT_GRPS_TL T set (