[Home] [Help]
37: X_LAST_UPDATE_DATE in DATE,
38: X_LAST_UPDATED_BY in NUMBER,
39: X_LAST_UPDATE_LOGIN in NUMBER
40: ) is
41: cursor C is select ROWID from AHL_UNIT_DEFERRALS_B
42: where UNIT_DEFERRAL_ID = X_UNIT_DEFERRAL_ID
43: ;
44: begin
45: insert into AHL_UNIT_DEFERRALS_B (
41: cursor C is select ROWID from AHL_UNIT_DEFERRALS_B
42: where UNIT_DEFERRAL_ID = X_UNIT_DEFERRAL_ID
43: ;
44: begin
45: insert into AHL_UNIT_DEFERRALS_B (
46: ATA_SEQUENCE_ID,
47: ATTRIBUTE5,
48: ATTRIBUTE6,
49: ATTRIBUTE7,
88: X_ATTRIBUTE12,
89: X_ATTRIBUTE13,
90: X_ATTRIBUTE14,
91: X_ATTRIBUTE15,
92: AHL_UNIT_DEFERRALS_B_S.NEXTVAL,
93: X_UNIT_EFFECTIVITY_ID,
94: X_UNIT_DEFERRAL_TYPE,
95: X_SET_DUE_DATE,
96: X_APPROVAL_STATUS_CODE,
211: ATTRIBUTE1,
212: ATTRIBUTE2,
213: ATTRIBUTE3,
214: ATTRIBUTE4
215: from AHL_UNIT_DEFERRALS_B
216: where UNIT_DEFERRAL_ID = X_UNIT_DEFERRAL_ID
217: for update of UNIT_DEFERRAL_ID nowait;
218: recinfo c%rowtype;
219:
344: X_LAST_UPDATED_BY in NUMBER,
345: X_LAST_UPDATE_LOGIN in NUMBER
346: ) is
347: begin
348: update AHL_UNIT_DEFERRALS_B set
349: ATA_SEQUENCE_ID = X_ATA_SEQUENCE_ID,
350: ATTRIBUTE5 = X_ATTRIBUTE5,
351: ATTRIBUTE6 = X_ATTRIBUTE6,
352: ATTRIBUTE7 = X_ATTRIBUTE7,
407: if (sql%notfound) then
408: raise no_data_found;
409: end if;
410:
411: delete from AHL_UNIT_DEFERRALS_B
412: where UNIT_DEFERRAL_ID = X_UNIT_DEFERRAL_ID;
413:
414: if (sql%notfound) then
415: raise no_data_found;
421: begin
422: delete from AHL_UNIT_DEFERRALS_TL T
423: where not exists
424: (select NULL
425: from AHL_UNIT_DEFERRALS_B B
426: where B.UNIT_DEFERRAL_ID = T.UNIT_DEFERRAL_ID
427: );
428:
429: update AHL_UNIT_DEFERRALS_TL T set (