13: X_LAST_UPDATE_DATE in DATE,
14: X_LAST_UPDATED_BY in NUMBER,
15: X_LAST_UPDATE_LOGIN in NUMBER
16: ) is
17: cursor C is select ROWID from FTP_REPRICE_PATTERN_B
18: where REPRICE_ID = X_REPRICE_ID
19: ;
20: begin
21: insert into FTP_REPRICE_PATTERN_B (
17: cursor C is select ROWID from FTP_REPRICE_PATTERN_B
18: where REPRICE_ID = X_REPRICE_ID
19: ;
20: begin
21: insert into FTP_REPRICE_PATTERN_B (
22: REPRICE_ID,
23: ADJUSTABLE_TYPE_CODE,
24: PATTERN_TYPE_CODE,
25: PATTERN_NAME,
96: ADJUSTABLE_TYPE_CODE,
97: PATTERN_TYPE_CODE,
98: PATTERN_NAME,
99: OBJECT_VERSION_NUMBER
100: from FTP_REPRICE_PATTERN_B
101: where REPRICE_ID = X_REPRICE_ID
102: for update of REPRICE_ID nowait;
103: recinfo c%rowtype;
104:
156: X_LAST_UPDATED_BY in NUMBER,
157: X_LAST_UPDATE_LOGIN in NUMBER
158: ) is
159: begin
160: update FTP_REPRICE_PATTERN_B set
161: ADJUSTABLE_TYPE_CODE = X_ADJUSTABLE_TYPE_CODE,
162: PATTERN_TYPE_CODE = X_PATTERN_TYPE_CODE,
163: PATTERN_NAME = X_PATTERN_NAME,
164: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
195: if (sql%notfound) then
196: raise no_data_found;
197: end if;
198:
199: delete from FTP_REPRICE_PATTERN_B
200: where REPRICE_ID = X_REPRICE_ID;
201:
202: if (sql%notfound) then
203: raise no_data_found;
209: begin
210: delete from FTP_REPRICE_PATTERN_TL T
211: where not exists
212: (select NULL
213: from FTP_REPRICE_PATTERN_B B
214: where B.REPRICE_ID = T.REPRICE_ID
215: );
216:
217: update FTP_REPRICE_PATTERN_TL T set (