[Home] [Help]
31: P_ATTRIBUTE13 in VARCHAR2,
32: P_ATTRIBUTE14 in VARCHAR2,
33: P_ATTRIBUTE15 in VARCHAR2
34: ) is
35: cursor C is select ROWID from CSD_DIAGNOSTIC_CODES_B
36: where DIAGNOSTIC_CODE_ID = PX_DIAGNOSTIC_CODE_ID
37: ;
38: begin
39:
40: select CSD_DIAGNOSTIC_CODES_S1.nextval
41: into PX_DIAGNOSTIC_CODE_ID
42: from dual;
43:
44: insert into CSD_DIAGNOSTIC_CODES_B (
45: DIAGNOSTIC_CODE_ID,
46: OBJECT_VERSION_NUMBER,
47: CREATED_BY,
48: CREATION_DATE,
193: ATTRIBUTE14,
194: ATTRIBUTE15
195: */
196: --
197: from CSD_DIAGNOSTIC_CODES_B
198: where DIAGNOSTIC_CODE_ID = P_DIAGNOSTIC_CODE_ID
199: for update of DIAGNOSTIC_CODE_ID nowait;
200: recinfo c%rowtype;
201:
329: P_ATTRIBUTE14 in VARCHAR2,
330: P_ATTRIBUTE15 in VARCHAR2
331: ) is
332: begin
333: update CSD_DIAGNOSTIC_CODES_B set
334: OBJECT_VERSION_NUMBER = decode( P_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, NULL, OBJECT_VERSION_NUMBER, P_OBJECT_VERSION_NUMBER)
335: ,CREATED_BY = decode( P_CREATED_BY, FND_API.G_MISS_NUM, NULL, NULL, CREATED_BY, P_CREATED_BY)
336: ,CREATION_DATE = decode( P_CREATION_DATE, FND_API.G_MISS_DATE, NULL, NULL, CREATION_DATE, P_CREATION_DATE)
337: ,LAST_UPDATED_BY = decode( P_LAST_UPDATED_BY, FND_API.G_MISS_NUM, NULL, NULL, LAST_UPDATED_BY, P_LAST_UPDATED_BY)
389: if (sql%notfound) then
390: raise no_data_found;
391: end if;
392:
393: delete from CSD_DIAGNOSTIC_CODES_B
394: where DIAGNOSTIC_CODE_ID = P_DIAGNOSTIC_CODE_ID;
395:
396: if (sql%notfound) then
397: raise no_data_found;
403: begin
404: delete from CSD_DIAGNOSTIC_CODES_TL T
405: where not exists
406: (select NULL
407: from CSD_DIAGNOSTIC_CODES_B B
408: where B.DIAGNOSTIC_CODE_ID = T.DIAGNOSTIC_CODE_ID
409: );
410:
411: update CSD_DIAGNOSTIC_CODES_TL T set (