1: Package Body ASO_SUP_COMP_RESP_MAP_PKG AS
2: /* $Header: asospcrb.pls 120.1 2005/06/29 12:37:59 appldev ship $*/
3:
4: /* procedure to insert INSERT_ROW */
5:
40: IS
41:
42: cursor c is
43: select ROWID
44: from ASO_SUP_COMP_RESP_MAP
45: where COMPONENT_RESPONSE_ID = PX_COMPONENT_RESPONSE_ID ;
46:
47: cursor CU_COMPONENT_RESPONSE_ID IS
48: select aso_sup_comp_resp_map_s.NEXTVAL from sys.dual;
44: from ASO_SUP_COMP_RESP_MAP
45: where COMPONENT_RESPONSE_ID = PX_COMPONENT_RESPONSE_ID ;
46:
47: cursor CU_COMPONENT_RESPONSE_ID IS
48: select aso_sup_comp_resp_map_s.NEXTVAL from sys.dual;
49:
50: Begin
51:
52: IF (PX_COMPONENT_RESPONSE_ID IS NULL) OR (PX_COMPONENT_RESPONSE_ID = FND_API.G_MISS_NUM) THEN
55: CLOSE CU_COMPONENT_RESPONSE_ID;
56:
57: END IF;
58:
59: insert into ASO_SUP_COMP_RESP_MAP (
60: COMPONENT_RESPONSE_ID,
61: COMPONENT_ID,
62: RESPONSE_ID ,
63: DISPLAY_SEQUENCE,
169: IS
170:
171: Begin
172:
173: update ASO_SUP_COMP_RESP_MAP
174: set
175: COMPONENT_ID = P_COMPONENT_ID,
176: RESPONSE_ID = P_RESPONSE_ID,
177: DISPLAY_SEQUENCE = P_DISPLAY_SEQUENCE,
217: IS
218:
219: Begin
220:
221: delete from ASO_SUP_COMP_RESP_MAP
222: where COMPONENT_RESPONSE_ID = P_COMPONENT_RESPONSE_ID;
223:
224: if (sql%notfound) then
225: raise no_data_found;
286: ATTRIBUTE13 ,
287: ATTRIBUTE14 ,
288: ATTRIBUTE15
289:
290: from ASO_SUP_COMP_RESP_MAP a
291: where a.COMPONENT_RESPONSE_ID = P_COMPONENT_RESPONSE_ID
292: for update of a.COMPONENT_RESPONSE_ID nowait;
293:
294: recinfo i_csr%rowtype;
382: End Lock_Row;
383:
384:
385:
386: END; -- Package Body ASO_SUP_COMP_RESP_MAP_PKG