155: l_api_version CONSTANT NUMBER := 1.0;
156: l_tmp_id NUMBER;
157:
158: CURSOR c1(l_c_msite_resp_id IN NUMBER)
159: IS SELECT msite_resp_id FROM ibe_msite_resps_b
160: WHERE msite_resp_id = l_c_msite_resp_id;
161:
162: CURSOR c2(l_c_msite_id IN NUMBER, l_c_responsibility_id IN NUMBER,
163: l_c_application_id IN NUMBER)
160: WHERE msite_resp_id = l_c_msite_resp_id;
161:
162: CURSOR c2(l_c_msite_id IN NUMBER, l_c_responsibility_id IN NUMBER,
163: l_c_application_id IN NUMBER)
164: IS SELECT msite_resp_id FROM ibe_msite_resps_b
165: WHERE msite_id = l_c_msite_id
166: AND responsibility_id = l_c_responsibility_id
167: AND application_id = l_c_application_id;
168:
171: -- Initialize status to SUCCESS
172: x_return_status := FND_API.G_RET_STS_SUCCESS;
173:
174: -- Check if msite_resp_id or combination of msite_id, responsibility_id,
175: -- application_id exists in ibe_msite_resps_b
176: IF ((p_msite_resp_id IS NOT NULL) AND
177: (p_msite_resp_id <> FND_API.G_MISS_NUM))
178: THEN
179:
768: l_msite_resp_id NUMBER;
769:
770: CURSOR c1(l_c_msite_id IN NUMBER, l_c_responsibility_id IN NUMBER,
771: l_c_application_id IN NUMBER)
772: IS SELECT msite_resp_id FROM ibe_msite_resps_b
773: WHERE msite_id = l_c_msite_id
774: AND responsibility_id = l_c_responsibility_id
775: AND application_id = l_c_application_id;
776:
958: l_msite_resp_id NUMBER;
959:
960: CURSOR c1(l_c_msite_id IN NUMBER, l_c_responsibility_id IN NUMBER,
961: l_c_application_id IN NUMBER)
962: IS SELECT msite_resp_id FROM ibe_msite_resps_b
963: WHERE msite_id = l_c_msite_id
964: AND responsibility_id = l_c_responsibility_id
965: AND application_id = l_c_application_id;
966:
1024: FND_MSG_PUB.Add;
1025: RAISE FND_API.G_EXC_ERROR;
1026: END IF;
1027:
1028: -- delete for ibe_msite_resps_b and _tl tables
1029: BEGIN
1030: Ibe_Msite_Resp_Pkg.delete_row(l_msite_resp_id);
1031: EXCEPTION
1032: WHEN NO_DATA_FOUND THEN
1095:
1096: CURSOR c1(l_c_msite_id IN NUMBER, l_c_responsibility_id IN NUMBER,
1097: l_c_application_id IN NUMBER)
1098: IS SELECT msite_resp_id
1099: FROM ibe_msite_resps_b
1100: WHERE msite_id = l_c_msite_id
1101: AND responsibility_id = l_c_responsibility_id
1102: AND application_id = l_c_application_id;
1103:
1102: AND application_id = l_c_application_id;
1103:
1104: CURSOR c2(l_msite_resp_id IN NUMBER)
1105: IS SELECT count(*)
1106: FROM ibe_msite_resps_b
1107: WHERE msite_resp_id = l_msite_resp_id;
1108:
1109: BEGIN
1110:
1182: IF (l_count = 1) THEN
1183: -- update the last group code to be null
1184: BEGIN
1185:
1186: UPDATE ibe_msite_resps_b SET
1187: group_code = null
1188: where msite_resp_id = p_msite_resp_id
1189: AND group_code = p_group_code;
1190:
1205: END;
1206:
1207: ELSE
1208:
1209: -- delete for ibe_msite_resps_b and _tl tables
1210: BEGIN
1211:
1212: DELETE FROM ibe_msite_resps_b
1213: WHERE msite_resp_id = p_msite_resp_id
1208:
1209: -- delete for ibe_msite_resps_b and _tl tables
1210: BEGIN
1211:
1212: DELETE FROM ibe_msite_resps_b
1213: WHERE msite_resp_id = p_msite_resp_id
1214: AND group_code = p_group_code;
1215:
1216: IF (sql%NOTFOUND) THEN