44: IS
45:
46: cursor c is
47: select ROWID
48: from ASO_SUP_COMPONENT_B
49: where COMPONENT_ID = PX_COMPONENT_ID ;
50:
51: cursor CU_COMPONENT_ID IS
52: select ASO_SUP_COMPONENT_B_S.NEXTVAL from sys.dual;
48: from ASO_SUP_COMPONENT_B
49: where COMPONENT_ID = PX_COMPONENT_ID ;
50:
51: cursor CU_COMPONENT_ID IS
52: select ASO_SUP_COMPONENT_B_S.NEXTVAL from sys.dual;
53:
54: Begin
55:
56: IF (PX_COMPONENT_ID IS NULL) OR (PX_COMPONENT_ID = FND_API.G_MISS_NUM) THEN
59: CLOSE CU_COMPONENT_ID;
60:
61: END IF;
62:
63: insert into ASO_SUP_COMPONENT_B (
64: COMPONENT_ID,
65: COMPONENT_TYPE,
66: MANDATORY_FLAG,
67: RESPONSE_TYPE,
207: IS
208:
209: Begin
210:
211: update ASO_SUP_COMPONENT_B
212: set
213: COMPONENT_TYPE = P_COMPONENT_TYPE,
214: MANDATORY_FLAG = P_MANDATORY_FLAG,
215: RESPONSE_TYPE = P_RESPONSE_TYPE,
279: raise no_data_found;
280: end if;
281:
282:
283: delete from ASO_SUP_COMPONENT_B
284: where COMPONENT_ID = P_COMPONENT_ID;
285:
286: if (sql%notfound) then
287: raise no_data_found;
350: ATTRIBUTE13 ,
351: ATTRIBUTE14 ,
352: ATTRIBUTE15
353:
354: from ASO_SUP_COMPONENT_B a
355: where a.COMPONENT_ID = P_COMPONENT_ID
356: for update of a.COMPONENT_ID nowait;
357:
358: recinfo i_csr%rowtype;
480:
481: delete from ASO_SUP_COMPONENT_TL T
482: where not exists
483: ( select NULL
484: from ASO_SUP_COMPONENT_B B
485: where B.COMPONENT_ID = T.COMPONENT_ID
486: );
487:
488: update ASO_SUP_COMPONENT_TL T set (