eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.RRS_HIERARCHY_CRUD_PKG dependencies on FND_API

Line 13: p_nullify_flag IN VARCHAR2 DEFAULT FND_API.G_FALSE,

9: p_description IN VARCHAR2 DEFAULT NULL,
10: p_purpose_code IN VARCHAR2 DEFAULT NULL,
11: p_start_date IN DATE DEFAULT NULL,
12: p_end_date IN DATE DEFAULT NULL,
13: p_nullify_flag IN VARCHAR2 DEFAULT FND_API.G_FALSE,
14: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
15: x_return_status OUT NOCOPY varchar2,
16: x_msg_count OUT NOCOPY NUMBER,
17: x_msg_data OUT NOCOPY VARCHAR2

Line 14: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,

10: p_purpose_code IN VARCHAR2 DEFAULT NULL,
11: p_start_date IN DATE DEFAULT NULL,
12: p_end_date IN DATE DEFAULT NULL,
13: p_nullify_flag IN VARCHAR2 DEFAULT FND_API.G_FALSE,
14: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
15: x_return_status OUT NOCOPY varchar2,
16: x_msg_count OUT NOCOPY NUMBER,
17: x_msg_data OUT NOCOPY VARCHAR2
18: )IS

Line 30: IF p_nullify_flag <> FND_API.G_FALSE

26: BEGIN
27:
28: SAVEPOINT Update_Hierarchy_Header;
29:
30: IF p_nullify_flag <> FND_API.G_FALSE
31: AND p_nullify_flag <> FND_API.G_TRUE THEN
32: --RRS_INVALID_FLAG
33: FND_MESSAGE.set_name('RRS', 'RRS_INVALID_FLAG');
34: FND_MSG_PUB.add;

Line 31: AND p_nullify_flag <> FND_API.G_TRUE THEN

27:
28: SAVEPOINT Update_Hierarchy_Header;
29:
30: IF p_nullify_flag <> FND_API.G_FALSE
31: AND p_nullify_flag <> FND_API.G_TRUE THEN
32: --RRS_INVALID_FLAG
33: FND_MESSAGE.set_name('RRS', 'RRS_INVALID_FLAG');
34: FND_MSG_PUB.add;
35: RAISE FND_API.G_EXC_ERROR;

Line 35: RAISE FND_API.G_EXC_ERROR;

31: AND p_nullify_flag <> FND_API.G_TRUE THEN
32: --RRS_INVALID_FLAG
33: FND_MESSAGE.set_name('RRS', 'RRS_INVALID_FLAG');
34: FND_MSG_PUB.add;
35: RAISE FND_API.G_EXC_ERROR;
36: END IF;
37:
38: BEGIN
39: SELECT SITE_GROUP_ID

Line 50: RAISE FND_API.G_EXC_ERROR;

46: FND_MESSAGE.set_name('RRS', 'RRS_NO_HIER_FOUND');
47: FND_MESSAGE.set_token('HIERARCHY_NAME', p_name);
48: FND_MSG_PUB.add;
49: --dbms_output.put_line('invalid hier name: '||p_name);
50: RAISE FND_API.G_EXC_ERROR;
51: END;
52:
53: --dbms_output.put_line(v_id);
54: --dbms_output.put_line('valueof this:'||p_description);

Line 74: RAISE FND_API.G_EXC_ERROR;

70: FND_MESSAGE.set_name('RRS', 'RRS_NO_PURPOSE_FOUND');
71: FND_MESSAGE.set_token('PURPOSE_CODE', p_purpose_code);
72: FND_MSG_PUB.add;
73: --dbms_output.put_line('invalid purpose: '||p_purpose_code);
74: RAISE FND_API.G_EXC_ERROR;
75: END;
76: END IF;
77:
78: IF p_new_name IS NOT NULL THEN

Line 90: RAISE FND_API.G_EXC_ERROR;

86: FND_MESSAGE.set_name('RRS', 'RRS_HIER_EXISTS');
87: FND_MESSAGE.set_token('HIERARCHY_NAME', p_new_name);
88: FND_MSG_PUB.add;
89: --dbms_output.put_line('invalid hier new name:'|| p_new_name);
90: RAISE FND_API.G_EXC_ERROR;
91: END IF;
92: END IF;
93:
94: IF FND_API.To_Boolean(p_nullify_flag) AND p_new_name IS NULL THEN

Line 94: IF FND_API.To_Boolean(p_nullify_flag) AND p_new_name IS NULL THEN

90: RAISE FND_API.G_EXC_ERROR;
91: END IF;
92: END IF;
93:
94: IF FND_API.To_Boolean(p_nullify_flag) AND p_new_name IS NULL THEN
95: --RRS_NULL_NAME
96: FND_MESSAGE.set_name('RRS', 'RRS_NULL_NAME');
97: FND_MSG_PUB.add;
98: --dbms_output.put_line('new name cannot be null');

Line 99: RAISE FND_API.G_EXC_ERROR;

95: --RRS_NULL_NAME
96: FND_MESSAGE.set_name('RRS', 'RRS_NULL_NAME');
97: FND_MSG_PUB.add;
98: --dbms_output.put_line('new name cannot be null');
99: RAISE FND_API.G_EXC_ERROR;
100: END IF;
101:
102: --validate start/end date
103: IF FND_API.To_Boolean(p_nullify_flag) THEN

Line 103: IF FND_API.To_Boolean(p_nullify_flag) THEN

99: RAISE FND_API.G_EXC_ERROR;
100: END IF;
101:
102: --validate start/end date
103: IF FND_API.To_Boolean(p_nullify_flag) THEN
104: v_start_date := p_start_date;
105: v_end_date := p_end_date;
106: ELSE
107: IF p_start_date IS NULL THEN

Line 130: RAISE FND_API.G_EXC_ERROR;

126: AND p_start_date < sysdate THEN
127: --RRS_START_DATE_PAST_ERR
128: FND_MESSAGE.set_name('RRS', 'RRS_START_DATE_PAST_ERR');
129: FND_MSG_PUB.add;
130: RAISE FND_API.G_EXC_ERROR;
131: ELSIF p_end_date IS NOT NULL
132: AND p_end_date < sysdate THEN
133: --RRS_END_DATE_PAST_ERR
134: FND_MESSAGE.set_name('RRS', 'RRS_END_DATE_PAST_ERR');

Line 136: RAISE FND_API.G_EXC_ERROR;

132: AND p_end_date < sysdate THEN
133: --RRS_END_DATE_PAST_ERR
134: FND_MESSAGE.set_name('RRS', 'RRS_END_DATE_PAST_ERR');
135: FND_MSG_PUB.add;
136: RAISE FND_API.G_EXC_ERROR;
137: ELSIF v_start_date IS NOT NULL
138: AND v_end_date IS NOT NULL
139: AND v_start_date > v_end_date THEN
140: --RRS_INVALID_DATE_RANGE

Line 143: RAISE FND_API.G_EXC_ERROR;

139: AND v_start_date > v_end_date THEN
140: --RRS_INVALID_DATE_RANGE
141: FND_MESSAGE.set_name('RRS', 'RRS_INVALID_DATE_RANGE');
142: FND_MSG_PUB.add;
143: RAISE FND_API.G_EXC_ERROR;
144: END IF;
145:
146: --dbms_output.put_line('before update site group');
147:

Line 149: SET RSGB.START_DATE = DECODE(p_nullify_flag, FND_API.G_TRUE, p_start_date, NVL(p_start_date, RSGB.START_DATE)),

145:
146: --dbms_output.put_line('before update site group');
147:
148: UPDATE RRS_SITE_GROUPS_B RSGB
149: SET RSGB.START_DATE = DECODE(p_nullify_flag, FND_API.G_TRUE, p_start_date, NVL(p_start_date, RSGB.START_DATE)),
150: RSGB.END_DATE = DECODE(p_nullify_flag, FND_API.G_TRUE, p_end_date, NVL(p_end_date, RSGB.END_DATE)),
151: RSGB.GROUP_PURPOSE_CODE = DECODE(p_nullify_flag, FND_API.G_TRUE, p_purpose_code, NVL(p_purpose_code, RSGB.GROUP_PURPOSE_CODE))
152: WHERE RSGB.SITE_GROUP_ID = v_hier_id;
153:

Line 150: RSGB.END_DATE = DECODE(p_nullify_flag, FND_API.G_TRUE, p_end_date, NVL(p_end_date, RSGB.END_DATE)),

146: --dbms_output.put_line('before update site group');
147:
148: UPDATE RRS_SITE_GROUPS_B RSGB
149: SET RSGB.START_DATE = DECODE(p_nullify_flag, FND_API.G_TRUE, p_start_date, NVL(p_start_date, RSGB.START_DATE)),
150: RSGB.END_DATE = DECODE(p_nullify_flag, FND_API.G_TRUE, p_end_date, NVL(p_end_date, RSGB.END_DATE)),
151: RSGB.GROUP_PURPOSE_CODE = DECODE(p_nullify_flag, FND_API.G_TRUE, p_purpose_code, NVL(p_purpose_code, RSGB.GROUP_PURPOSE_CODE))
152: WHERE RSGB.SITE_GROUP_ID = v_hier_id;
153:
154: UPDATE RRS_SITE_GROUPS_TL RSGT

Line 151: RSGB.GROUP_PURPOSE_CODE = DECODE(p_nullify_flag, FND_API.G_TRUE, p_purpose_code, NVL(p_purpose_code, RSGB.GROUP_PURPOSE_CODE))

147:
148: UPDATE RRS_SITE_GROUPS_B RSGB
149: SET RSGB.START_DATE = DECODE(p_nullify_flag, FND_API.G_TRUE, p_start_date, NVL(p_start_date, RSGB.START_DATE)),
150: RSGB.END_DATE = DECODE(p_nullify_flag, FND_API.G_TRUE, p_end_date, NVL(p_end_date, RSGB.END_DATE)),
151: RSGB.GROUP_PURPOSE_CODE = DECODE(p_nullify_flag, FND_API.G_TRUE, p_purpose_code, NVL(p_purpose_code, RSGB.GROUP_PURPOSE_CODE))
152: WHERE RSGB.SITE_GROUP_ID = v_hier_id;
153:
154: UPDATE RRS_SITE_GROUPS_TL RSGT
155: SET RSGT.DESCRIPTION = DECODE(p_nullify_flag, FND_API.G_TRUE, p_description, NVL(p_description, RSGT.DESCRIPTION)),

Line 155: SET RSGT.DESCRIPTION = DECODE(p_nullify_flag, FND_API.G_TRUE, p_description, NVL(p_description, RSGT.DESCRIPTION)),

151: RSGB.GROUP_PURPOSE_CODE = DECODE(p_nullify_flag, FND_API.G_TRUE, p_purpose_code, NVL(p_purpose_code, RSGB.GROUP_PURPOSE_CODE))
152: WHERE RSGB.SITE_GROUP_ID = v_hier_id;
153:
154: UPDATE RRS_SITE_GROUPS_TL RSGT
155: SET RSGT.DESCRIPTION = DECODE(p_nullify_flag, FND_API.G_TRUE, p_description, NVL(p_description, RSGT.DESCRIPTION)),
156: RSGT.NAME = NVL(p_new_name, RSGT.NAME),
157: RSGT.SOURCE_LANG = userenv('LANG')
158: WHERE RSGT.SITE_GROUP_ID = v_hier_id
159: AND RSGT.LANGUAGE = userenv('LANG');

Line 184: IF FND_API.To_Boolean(p_commit) THEN

180: /*IF SQL%NOTFOUND THEN
181: RAISE e_update_failed;
182: END IF;*/
183:
184: IF FND_API.To_Boolean(p_commit) THEN
185: COMMIT;
186: END IF;
187:
188: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 188: x_return_status := FND_API.G_RET_STS_SUCCESS;

184: IF FND_API.To_Boolean(p_commit) THEN
185: COMMIT;
186: END IF;
187:
188: x_return_status := FND_API.G_RET_STS_SUCCESS;
189:
190: EXCEPTION
191: WHEN FND_API.G_EXC_ERROR THEN
192: ROLLBACK TO Update_Hierarchy_Header;

Line 191: WHEN FND_API.G_EXC_ERROR THEN

187:
188: x_return_status := FND_API.G_RET_STS_SUCCESS;
189:
190: EXCEPTION
191: WHEN FND_API.G_EXC_ERROR THEN
192: ROLLBACK TO Update_Hierarchy_Header;
193: x_msg_count := FND_MSG_PUB.Count_Msg;
194: x_return_status := FND_API.G_RET_STS_ERROR;
195: WHEN OTHERS THEN

Line 194: x_return_status := FND_API.G_RET_STS_ERROR;

190: EXCEPTION
191: WHEN FND_API.G_EXC_ERROR THEN
192: ROLLBACK TO Update_Hierarchy_Header;
193: x_msg_count := FND_MSG_PUB.Count_Msg;
194: x_return_status := FND_API.G_RET_STS_ERROR;
195: WHEN OTHERS THEN
196: ROLLBACK TO Update_Hierarchy_Header;
197: x_msg_data := G_PKG_NAME || '.Update_Hierarchy_Header:' || SQLERRM;
198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

194: x_return_status := FND_API.G_RET_STS_ERROR;
195: WHEN OTHERS THEN
196: ROLLBACK TO Update_Hierarchy_Header;
197: x_msg_data := G_PKG_NAME || '.Update_Hierarchy_Header:' || SQLERRM;
198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
199: END Update_Hierarchy_Header;
200:
201: procedure Update_Hierarchy_Node(
202: p_api_version IN NUMBER DEFAULT 1,

Line 207: p_nullify_flag IN VARCHAR2 DEFAULT FND_API.G_FALSE,

203: p_number IN VARCHAR2,
204: p_name IN VARCHAR2 DEFAULT NULL,
205: p_description IN VARCHAR2 DEFAULT NULL,
206: p_purpose_code IN VARCHAR2 DEFAULT NULL,
207: p_nullify_flag IN VARCHAR2 DEFAULT FND_API.G_FALSE,
208: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
209: x_return_status OUT NOCOPY varchar2,
210: x_msg_count OUT NOCOPY NUMBER,
211: x_msg_data OUT NOCOPY VARCHAR2

Line 208: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,

204: p_name IN VARCHAR2 DEFAULT NULL,
205: p_description IN VARCHAR2 DEFAULT NULL,
206: p_purpose_code IN VARCHAR2 DEFAULT NULL,
207: p_nullify_flag IN VARCHAR2 DEFAULT FND_API.G_FALSE,
208: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
209: x_return_status OUT NOCOPY varchar2,
210: x_msg_count OUT NOCOPY NUMBER,
211: x_msg_data OUT NOCOPY VARCHAR2
212: ) IS

Line 222: IF p_nullify_flag <> FND_API.G_FALSE

218:
219: SAVEPOINT Update_Hierarchy_Node;
220: --dbms_output.put_line(p_number);
221:
222: IF p_nullify_flag <> FND_API.G_FALSE
223: AND p_nullify_flag <> FND_API.G_TRUE THEN
224: --RRS_INVALID_FLAG
225: FND_MESSAGE.set_name('RRS', 'RRS_INVALID_FLAG');
226: FND_MSG_PUB.add;

Line 223: AND p_nullify_flag <> FND_API.G_TRUE THEN

219: SAVEPOINT Update_Hierarchy_Node;
220: --dbms_output.put_line(p_number);
221:
222: IF p_nullify_flag <> FND_API.G_FALSE
223: AND p_nullify_flag <> FND_API.G_TRUE THEN
224: --RRS_INVALID_FLAG
225: FND_MESSAGE.set_name('RRS', 'RRS_INVALID_FLAG');
226: FND_MSG_PUB.add;
227: RAISE FND_API.G_EXC_ERROR;

Line 227: RAISE FND_API.G_EXC_ERROR;

223: AND p_nullify_flag <> FND_API.G_TRUE THEN
224: --RRS_INVALID_FLAG
225: FND_MESSAGE.set_name('RRS', 'RRS_INVALID_FLAG');
226: FND_MSG_PUB.add;
227: RAISE FND_API.G_EXC_ERROR;
228: END IF;
229:
230: BEGIN
231: SELECT SITE_GROUP_NODE_ID, NODE_PURPOSE_CODE

Line 242: RAISE FND_API.G_EXC_ERROR;

238: FND_MESSAGE.set_name('RRS', 'RRS_NO_NODE_FOUND');
239: FND_MESSAGE.set_token('NODE_ID_NUM', p_number);
240: FND_MSG_PUB.add;
241: --dbms_output.put_line('no node found for:'||p_number);
242: RAISE FND_API.G_EXC_ERROR;
243: END;
244:
245: IF v_purpose_code = 'ROOT' THEN
246: --RRS_TRANSACT_ROOT

Line 250: RAISE FND_API.G_EXC_ERROR;

246: --RRS_TRANSACT_ROOT
247: FND_MESSAGE.set_name('RRS', 'RRS_TRANSACT_ROOT');
248: FND_MSG_PUB.add;
249: --dbms_output.put_line('cannot transact a root node');
250: RAISE FND_API.G_EXC_ERROR;
251: END IF;
252:
253: --dbms_output.put_line(v_id);
254:

Line 272: RAISE FND_API.G_EXC_ERROR;

268: FND_MESSAGE.set_name('RRS', 'RRS_NO_PURPOSE_FOUND');
269: FND_MESSAGE.set_token('PURPOSE_CODE', p_purpose_code);
270: FND_MSG_PUB.add;
271: --dbms_output.put_line('no purpose code found '||p_purpose_code);
272: RAISE FND_API.G_EXC_ERROR;
273: END;
274: END IF;
275:
276: IF FND_API.To_Boolean(p_nullify_flag) AND p_name IS NULL THEN

Line 276: IF FND_API.To_Boolean(p_nullify_flag) AND p_name IS NULL THEN

272: RAISE FND_API.G_EXC_ERROR;
273: END;
274: END IF;
275:
276: IF FND_API.To_Boolean(p_nullify_flag) AND p_name IS NULL THEN
277: --RRS_NULL_NAME
278: FND_MESSAGE.set_name('RRS', 'RRS_NULL_NAME');
279: FND_MSG_PUB.add;
280: --dbms_output.put_line('new name cannot be null');

Line 281: RAISE FND_API.G_EXC_ERROR;

277: --RRS_NULL_NAME
278: FND_MESSAGE.set_name('RRS', 'RRS_NULL_NAME');
279: FND_MSG_PUB.add;
280: --dbms_output.put_line('new name cannot be null');
281: RAISE FND_API.G_EXC_ERROR;
282: END IF;
283:
284: UPDATE RRS_SITE_GROUP_NODES_TL RSGNT
285: SET RSGNT.DESCRIPTION = DECODE(p_nullify_flag, FND_API.G_TRUE, p_description, NVL(p_description, RSGNT.DESCRIPTION)),

Line 285: SET RSGNT.DESCRIPTION = DECODE(p_nullify_flag, FND_API.G_TRUE, p_description, NVL(p_description, RSGNT.DESCRIPTION)),

281: RAISE FND_API.G_EXC_ERROR;
282: END IF;
283:
284: UPDATE RRS_SITE_GROUP_NODES_TL RSGNT
285: SET RSGNT.DESCRIPTION = DECODE(p_nullify_flag, FND_API.G_TRUE, p_description, NVL(p_description, RSGNT.DESCRIPTION)),
286: RSGNT.NAME = NVL(p_name, RSGNT.NAME),
287: RSGNT.SOURCE_LANG = userenv('LANG')
288: WHERE RSGNT.SITE_GROUP_NODE_ID = v_id
289: AND RSGNT.LANGUAGE = userenv('LANG');

Line 297: SET RSGNB.NODE_PURPOSE_CODE = DECODE(p_nullify_flag, FND_API.G_TRUE, p_purpose_code, NVL(p_purpose_code, RSGNB.NODE_PURPOSE_CODE))

293: RAISE e_update_failed;
294: END IF; */
295:
296: UPDATE RRS_SITE_GROUP_NODES_B RSGNB
297: SET RSGNB.NODE_PURPOSE_CODE = DECODE(p_nullify_flag, FND_API.G_TRUE, p_purpose_code, NVL(p_purpose_code, RSGNB.NODE_PURPOSE_CODE))
298: WHERE RSGNB.SITE_GROUP_NODE_ID = v_id;
299:
300: /*
301: IF SQL%NOTFOUND THEN

Line 305: IF FND_API.To_Boolean(p_commit) THEN

301: IF SQL%NOTFOUND THEN
302: RAISE e_update_failed;
303: END IF; */
304:
305: IF FND_API.To_Boolean(p_commit) THEN
306: COMMIT;
307: END IF;
308:
309: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 309: x_return_status := FND_API.G_RET_STS_SUCCESS;

305: IF FND_API.To_Boolean(p_commit) THEN
306: COMMIT;
307: END IF;
308:
309: x_return_status := FND_API.G_RET_STS_SUCCESS;
310:
311: EXCEPTION
312: WHEN FND_API.G_EXC_ERROR THEN
313: ROLLBACK TO Update_Hierarchy_Node;

Line 312: WHEN FND_API.G_EXC_ERROR THEN

308:
309: x_return_status := FND_API.G_RET_STS_SUCCESS;
310:
311: EXCEPTION
312: WHEN FND_API.G_EXC_ERROR THEN
313: ROLLBACK TO Update_Hierarchy_Node;
314: x_msg_count := FND_MSG_PUB.Count_Msg;
315: x_return_status := FND_API.G_RET_STS_ERROR;
316: WHEN OTHERS THEN

Line 315: x_return_status := FND_API.G_RET_STS_ERROR;

311: EXCEPTION
312: WHEN FND_API.G_EXC_ERROR THEN
313: ROLLBACK TO Update_Hierarchy_Node;
314: x_msg_count := FND_MSG_PUB.Count_Msg;
315: x_return_status := FND_API.G_RET_STS_ERROR;
316: WHEN OTHERS THEN
317: ROLLBACK TO Update_Hierarchy_Node;
318: x_msg_data := G_PKG_NAME || '.Update_Hierarchy_Node:' || SQLERRM;
319: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 319: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

315: x_return_status := FND_API.G_RET_STS_ERROR;
316: WHEN OTHERS THEN
317: ROLLBACK TO Update_Hierarchy_Node;
318: x_msg_data := G_PKG_NAME || '.Update_Hierarchy_Node:' || SQLERRM;
319: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
320: END Update_Hierarchy_Node;
321:
322: procedure Create_Hierarchy_Node(
323: p_api_version IN NUMBER DEFAULT 1,

Line 328: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,

324: p_number IN VARCHAR2,
325: p_name IN VARCHAR2 DEFAULT NULL,
326: p_description IN VARCHAR2 DEFAULT NULL,
327: p_purpose_code IN VARCHAR2 DEFAULT NULL,
328: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
329: x_return_status OUT NOCOPY varchar2,
330: x_msg_count OUT NOCOPY NUMBER,
331: x_msg_data OUT NOCOPY VARCHAR2
332: ) IS

Line 346: RAISE FND_API.G_EXC_ERROR;

342: --RRS_ID_NUMBER_BOTH_NULL
343: FND_MESSAGE.set_name('RRS', 'RRS_ID_NUMBER_BOTH_NULL');
344: FND_MSG_PUB.add;
345: --dbms_output.put_line('Id and number cannot both be NULL');
346: RAISE FND_API.G_EXC_ERROR;
347: END IF;
348:
349: SELECT count(*)
350: INTO v_count

Line 360: RAISE FND_API.G_EXC_ERROR;

356: FND_MESSAGE.set_name('RRS', 'RRS_NODE_EXISTS');
357: FND_MESSAGE.set_token('NODE_ID_NUM', p_number);
358: FND_MSG_PUB.add;
359: --dbms_output.put_line('node already exists '||p_number);
360: RAISE FND_API.G_EXC_ERROR;
361: END IF;
362:
363: IF p_purpose_code IS NOT NULL THEN
364: BEGIN

Line 380: RAISE FND_API.G_EXC_ERROR;

376: FND_MESSAGE.set_name('RRS', 'RRS_NO_PURPOSE_FOUND');
377: FND_MESSAGE.set_token('PURPOSE_CODE', p_purpose_code);
378: FND_MSG_PUB.add;
379: --dbms_output.put_line('invalid purpose '||p_purpose_code);
380: RAISE FND_API.G_EXC_ERROR;
381: END;
382: END IF;
383:
384: --dbms_output.put_line(p_name);

Line 390: RAISE FND_API.G_EXC_ERROR;

386: --RRS_NULL_NAME
387: FND_MESSAGE.set_name('RRS', 'RRS_NULL_NAME');
388: FND_MSG_PUB.add;
389: --dbms_output.put_line('null name');
390: RAISE FND_API.G_EXC_ERROR;
391: END IF;
392:
393: SELECT RRS_SITES_S.NEXTVAL
394: INTO v_id

Line 459: IF FND_API.To_Boolean(p_commit) THEN

455: IF SQL%NOTFOUND THEN
456: RAISE e_insert_failed;
457: END IF;*/
458:
459: IF FND_API.To_Boolean(p_commit) THEN
460: COMMIT;
461: END IF;
462:
463: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 463: x_return_status := FND_API.G_RET_STS_SUCCESS;

459: IF FND_API.To_Boolean(p_commit) THEN
460: COMMIT;
461: END IF;
462:
463: x_return_status := FND_API.G_RET_STS_SUCCESS;
464: --x_msg_count := FND_MSG_PUB.Count_Msg;
465:
466: EXCEPTION
467: WHEN FND_API.G_EXC_ERROR THEN

Line 467: WHEN FND_API.G_EXC_ERROR THEN

463: x_return_status := FND_API.G_RET_STS_SUCCESS;
464: --x_msg_count := FND_MSG_PUB.Count_Msg;
465:
466: EXCEPTION
467: WHEN FND_API.G_EXC_ERROR THEN
468: ROLLBACK TO Create_Hierarchy_Node;
469: x_msg_count := FND_MSG_PUB.Count_Msg;
470: x_return_status := FND_API.G_RET_STS_ERROR;
471: WHEN OTHERS THEN

Line 470: x_return_status := FND_API.G_RET_STS_ERROR;

466: EXCEPTION
467: WHEN FND_API.G_EXC_ERROR THEN
468: ROLLBACK TO Create_Hierarchy_Node;
469: x_msg_count := FND_MSG_PUB.Count_Msg;
470: x_return_status := FND_API.G_RET_STS_ERROR;
471: WHEN OTHERS THEN
472: ROLLBACK TO Create_Hierarchy_Node;
473: x_msg_data := G_PKG_NAME || '.Create_Hierarchy_Node:' || SQLERRM;
474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

470: x_return_status := FND_API.G_RET_STS_ERROR;
471: WHEN OTHERS THEN
472: ROLLBACK TO Create_Hierarchy_Node;
473: x_msg_data := G_PKG_NAME || '.Create_Hierarchy_Node:' || SQLERRM;
474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
475: END Create_Hierarchy_Node;
476:
477: procedure Create_Hierarchy_Coarse(
478: p_api_version IN NUMBER DEFAULT 1,

Line 485: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,

481: p_hier_purpose_code IN VARCHAR2 DEFAULT NULL,
482: p_hier_start_date IN DATE DEFAULT NULL,
483: p_hier_end_date IN DATE DEFAULT NULL,
484: p_hier_members_tab IN RRS_HIER_MEMBERS_COARSE_TAB DEFAULT NULL,
485: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
486: x_return_status OUT NOCOPY varchar2,
487: x_msg_count OUT NOCOPY NUMBER,
488: x_msg_data OUT NOCOPY VARCHAR2
489: ) IS

Line 505: RAISE FND_API.G_EXC_ERROR;

501: IF p_hier_name IS NULL THEN
502: --RRS_NULL_NAME
503: FND_MESSAGE.set_name('RRS', 'RRS_NULL_NAME');
504: FND_MSG_PUB.add;
505: RAISE FND_API.G_EXC_ERROR;
506: END IF;
507:
508: --check if the hierarchy already exists
509: SELECT COUNT(*)

Line 520: RAISE FND_API.G_EXC_ERROR;

516: FND_MESSAGE.set_name('RRS', 'RRS_HIER_EXISTS');
517: FND_MESSAGE.set_token('HIERARCHY_NAME', p_hier_name);
518: FND_MSG_PUB.add;
519: --dbms_output.put_line('hier name already exists');
520: RAISE FND_API.G_EXC_ERROR;
521: END IF;
522: --validate the hierarchy purpose code
523: IF p_hier_purpose_code IS NOT NULL THEN
524: BEGIN

Line 539: RAISE FND_API.G_EXC_ERROR;

535: --RRS_NO_PURPOSE_FOUND
536: FND_MESSAGE.set_name('RRS', 'RRS_NO_PURPOSE_FOUND');
537: FND_MESSAGE.set_token('PURPOSE_CODE', p_hier_purpose_code);
538: FND_MSG_PUB.add;
539: RAISE FND_API.G_EXC_ERROR;
540: END;
541: END IF;
542:
543: --validate start/end date

Line 549: RAISE FND_API.G_EXC_ERROR;

545: AND p_hier_start_date < sysdate THEN
546: --RRS_START_DATE_PAST_ERR
547: FND_MESSAGE.set_name('RRS', 'RRS_START_DATE_PAST_ERR');
548: FND_MSG_PUB.add;
549: RAISE FND_API.G_EXC_ERROR;
550: ELSIF p_hier_end_date IS NOT NULL
551: AND p_hier_end_date < sysdate THEN
552: --RRS_END_DATE_PAST_ERR
553: FND_MESSAGE.set_name('RRS', 'RRS_END_DATE_PAST_ERR');

Line 555: RAISE FND_API.G_EXC_ERROR;

551: AND p_hier_end_date < sysdate THEN
552: --RRS_END_DATE_PAST_ERR
553: FND_MESSAGE.set_name('RRS', 'RRS_END_DATE_PAST_ERR');
554: FND_MSG_PUB.add;
555: RAISE FND_API.G_EXC_ERROR;
556: ELSIF p_hier_start_date IS NOT NULL
557: AND p_hier_end_date IS NOT NULL
558: AND p_hier_start_date > p_hier_end_date THEN
559: --RRS_INVALID_DATE_RANGE

Line 562: RAISE FND_API.G_EXC_ERROR;

558: AND p_hier_start_date > p_hier_end_date THEN
559: --RRS_INVALID_DATE_RANGE
560: FND_MESSAGE.set_name('RRS', 'RRS_INVALID_DATE_RANGE');
561: FND_MSG_PUB.add;
562: RAISE FND_API.G_EXC_ERROR;
563: END IF;
564:
565: --retrieve new site group id from the sequence
566: SELECT RRS_SITE_GROUPS_S.NEXTVAL

Line 745: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

741: x_return_status => x_return_status,
742: x_msg_count => x_msg_count,
743: x_msg_data => x_msg_data);
744:
745: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
746: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
747: RAISE FND_API.G_EXC_ERROR;
748: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 746: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

742: x_msg_count => x_msg_count,
743: x_msg_data => x_msg_data);
744:
745: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
746: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
747: RAISE FND_API.G_EXC_ERROR;
748: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
750: END IF;

Line 747: RAISE FND_API.G_EXC_ERROR;

743: x_msg_data => x_msg_data);
744:
745: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
746: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
747: RAISE FND_API.G_EXC_ERROR;
748: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
750: END IF;
751: END IF;

Line 748: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

744:
745: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
746: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
747: RAISE FND_API.G_EXC_ERROR;
748: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
750: END IF;
751: END IF;
752:

Line 749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

745: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
746: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
747: RAISE FND_API.G_EXC_ERROR;
748: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
750: END IF;
751: END IF;
752:
753: IF FND_API.To_Boolean(p_commit) THEN

Line 753: IF FND_API.To_Boolean(p_commit) THEN

749: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
750: END IF;
751: END IF;
752:
753: IF FND_API.To_Boolean(p_commit) THEN
754: COMMIT;
755: END IF;
756:
757: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 757: x_return_status := FND_API.G_RET_STS_SUCCESS;

753: IF FND_API.To_Boolean(p_commit) THEN
754: COMMIT;
755: END IF;
756:
757: x_return_status := FND_API.G_RET_STS_SUCCESS;
758:
759: EXCEPTION
760: WHEN FND_API.G_EXC_ERROR THEN
761: ROLLBACK TO Create_Hierarchy_Coarse;

Line 760: WHEN FND_API.G_EXC_ERROR THEN

756:
757: x_return_status := FND_API.G_RET_STS_SUCCESS;
758:
759: EXCEPTION
760: WHEN FND_API.G_EXC_ERROR THEN
761: ROLLBACK TO Create_Hierarchy_Coarse;
762: x_msg_count := FND_MSG_PUB.Count_Msg;
763: x_return_status := FND_API.G_RET_STS_ERROR;
764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 763: x_return_status := FND_API.G_RET_STS_ERROR;

759: EXCEPTION
760: WHEN FND_API.G_EXC_ERROR THEN
761: ROLLBACK TO Create_Hierarchy_Coarse;
762: x_msg_count := FND_MSG_PUB.Count_Msg;
763: x_return_status := FND_API.G_RET_STS_ERROR;
764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
765: ROLLBACK TO Create_Hierarchy_Coarse;
766: x_msg_data := G_PKG_NAME || '.Create_Hierarchy_Coarse:' || x_msg_data;
767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

760: WHEN FND_API.G_EXC_ERROR THEN
761: ROLLBACK TO Create_Hierarchy_Coarse;
762: x_msg_count := FND_MSG_PUB.Count_Msg;
763: x_return_status := FND_API.G_RET_STS_ERROR;
764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
765: ROLLBACK TO Create_Hierarchy_Coarse;
766: x_msg_data := G_PKG_NAME || '.Create_Hierarchy_Coarse:' || x_msg_data;
767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
768: WHEN OTHERS THEN

Line 767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

763: x_return_status := FND_API.G_RET_STS_ERROR;
764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
765: ROLLBACK TO Create_Hierarchy_Coarse;
766: x_msg_data := G_PKG_NAME || '.Create_Hierarchy_Coarse:' || x_msg_data;
767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
768: WHEN OTHERS THEN
769: ROLLBACK TO Create_Hierarchy_Coarse;
770: x_msg_data := G_PKG_NAME || '.Create_Hierarchy_Coarse:' || SQLERRM;
771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
768: WHEN OTHERS THEN
769: ROLLBACK TO Create_Hierarchy_Coarse;
770: x_msg_data := G_PKG_NAME || '.Create_Hierarchy_Coarse:' || SQLERRM;
771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
772: END Create_Hierarchy_Coarse;
773:
774: procedure Validate_Rules_For_Members(
775: p_hier_purpose_code IN VARCHAR2,

Line 801: x_return_status := FND_API.G_RET_STS_SUCCESS;

797: v_c_type VARCHAR2(30);
798:
799: BEGIN
800: --initialize the return status
801: x_return_status := FND_API.G_RET_STS_SUCCESS;
802:
803: --dbms_output.put_line('before RulesFwk');
804: SELECT COUNT(*)
805: INTO v_count

Line 825: x_return_status := FND_API.G_RET_STS_ERROR;

821: FND_MESSAGE.set_token('C_TYPE', v_c_type);
822: FND_MESSAGE.set_token('C_NUM', v_c_num);
823: FND_MSG_PUB.add;
824: --dbms_output.put_line('The following member violates the RulesFwk: '||v_p_type||'/'||v_p_num||'/'||v_c_type||'/'||v_c_num);
825: x_return_status := FND_API.G_RET_STS_ERROR;
826: END LOOP;
827: CLOSE validate_rules_cursor;
828:
829: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

Line 829: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

825: x_return_status := FND_API.G_RET_STS_ERROR;
826: END LOOP;
827: CLOSE validate_rules_cursor;
828:
829: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
830: RAISE FND_API.G_EXC_ERROR;
831: END IF;
832:
833: END IF;

Line 830: RAISE FND_API.G_EXC_ERROR;

826: END LOOP;
827: CLOSE validate_rules_cursor;
828:
829: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
830: RAISE FND_API.G_EXC_ERROR;
831: END IF;
832:
833: END IF;
834:

Line 835: x_return_status := FND_API.G_RET_STS_SUCCESS;

831: END IF;
832:
833: END IF;
834:
835: x_return_status := FND_API.G_RET_STS_SUCCESS;
836:
837: EXCEPTION
838: WHEN FND_API.G_EXC_ERROR THEN
839: x_return_status := FND_API.G_RET_STS_ERROR;

Line 838: WHEN FND_API.G_EXC_ERROR THEN

834:
835: x_return_status := FND_API.G_RET_STS_SUCCESS;
836:
837: EXCEPTION
838: WHEN FND_API.G_EXC_ERROR THEN
839: x_return_status := FND_API.G_RET_STS_ERROR;
840: WHEN OTHERS THEN
841: x_msg_data := G_PKG_NAME || '.Validate_Rules_For_Members:' || SQLERRM;
842: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 839: x_return_status := FND_API.G_RET_STS_ERROR;

835: x_return_status := FND_API.G_RET_STS_SUCCESS;
836:
837: EXCEPTION
838: WHEN FND_API.G_EXC_ERROR THEN
839: x_return_status := FND_API.G_RET_STS_ERROR;
840: WHEN OTHERS THEN
841: x_msg_data := G_PKG_NAME || '.Validate_Rules_For_Members:' || SQLERRM;
842: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
843: END Validate_Rules_For_Members;

Line 842: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

838: WHEN FND_API.G_EXC_ERROR THEN
839: x_return_status := FND_API.G_RET_STS_ERROR;
840: WHEN OTHERS THEN
841: x_msg_data := G_PKG_NAME || '.Validate_Rules_For_Members:' || SQLERRM;
842: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
843: END Validate_Rules_For_Members;
844:
845: procedure Validate_Rules_For_Child(
846: p_hier_purpose_code IN VARCHAR2,

Line 888: RAISE FND_API.G_EXC_ERROR;

884: FND_MESSAGE.set_token('C_TYPE', p_child_object_type);
885: FND_MESSAGE.set_token('C_NUM', p_child_id_number);
886: FND_MSG_PUB.add;
887: --dbms_output.put_line('Rules validation failed');
888: RAISE FND_API.G_EXC_ERROR;
889: END IF;
890: END IF;
891:
892: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 892: x_return_status := FND_API.G_RET_STS_SUCCESS;

888: RAISE FND_API.G_EXC_ERROR;
889: END IF;
890: END IF;
891:
892: x_return_status := FND_API.G_RET_STS_SUCCESS;
893:
894: EXCEPTION
895: WHEN FND_API.G_EXC_ERROR THEN
896: x_return_status := FND_API.G_RET_STS_ERROR;

Line 895: WHEN FND_API.G_EXC_ERROR THEN

891:
892: x_return_status := FND_API.G_RET_STS_SUCCESS;
893:
894: EXCEPTION
895: WHEN FND_API.G_EXC_ERROR THEN
896: x_return_status := FND_API.G_RET_STS_ERROR;
897: WHEN OTHERS THEN
898: x_msg_data := G_PKG_NAME || '.Validate_Rules_For_Child:' || SQLERRM;
899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 896: x_return_status := FND_API.G_RET_STS_ERROR;

892: x_return_status := FND_API.G_RET_STS_SUCCESS;
893:
894: EXCEPTION
895: WHEN FND_API.G_EXC_ERROR THEN
896: x_return_status := FND_API.G_RET_STS_ERROR;
897: WHEN OTHERS THEN
898: x_msg_data := G_PKG_NAME || '.Validate_Rules_For_Child:' || SQLERRM;
899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
900: END Validate_Rules_For_Child;

Line 899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

895: WHEN FND_API.G_EXC_ERROR THEN
896: x_return_status := FND_API.G_RET_STS_ERROR;
897: WHEN OTHERS THEN
898: x_msg_data := G_PKG_NAME || '.Validate_Rules_For_Child:' || SQLERRM;
899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
900: END Validate_Rules_For_Child;
901:
902: procedure Create_Hierarchy_Members(
903: p_hier_version_id IN NUMBER,

Line 1038: x_return_status := FND_API.G_RET_STS_SUCCESS;

1034:
1035: SAVEPOINT Create_Hierarchy_Members;
1036:
1037: --initialize the return status
1038: x_return_status := FND_API.G_RET_STS_SUCCESS;
1039:
1040: --insert new row into RRS_SITE_GROUP_MEMBERS table
1041: INSERT INTO RRS_SITE_GROUP_MEMBERS
1042: (

Line 1087: RAISE FND_API.G_EXC_ERROR;

1083: FND_MESSAGE.set_name('RRS', 'RRS_INVALID_TYPE');
1084: FND_MESSAGE.set_token('TYPE', p_hier_members_tab(i).child_object_type);
1085: FND_MSG_PUB.add;
1086: --dbms_output.put_line('invalid transaction type');
1087: RAISE FND_API.G_EXC_ERROR;
1088: END IF;
1089:
1090: INSERT INTO RRS_SITE_GROUP_MEMBERS_TEMP
1091: (

Line 1136: RAISE FND_API.G_EXC_ERROR;

1132: --RRS_NO_ROOT_FOUND
1133: FND_MESSAGE.set_name('RRS', 'RRS_NO_ROOT_FOUND');
1134: FND_MSG_PUB.add;
1135: --dbms_output.put_line('no root found');
1136: RAISE FND_API.G_EXC_ERROR;
1137: WHEN TOO_MANY_ROWS THEN
1138: --RRS_MANY_ROOTS_FOUND
1139: FND_MESSAGE.set_name('RRS', 'RRS_MANY_ROOTS_FOUND');
1140: FND_MSG_PUB.add;

Line 1142: RAISE FND_API.G_EXC_ERROR;

1138: --RRS_MANY_ROOTS_FOUND
1139: FND_MESSAGE.set_name('RRS', 'RRS_MANY_ROOTS_FOUND');
1140: FND_MSG_PUB.add;
1141: --dbms_output.put_line('too many roots found');
1142: RAISE FND_API.G_EXC_ERROR;
1143: END;
1144:
1145: --validate the root number user input with the one in DB
1146: IF (p_root_number IS NOT NULL AND v_root_number IS NOT NULL)

Line 1152: RAISE FND_API.G_EXC_ERROR;

1148: --RRS_NO_ROOT_FOUND
1149: FND_MESSAGE.set_name('RRS', 'RRS_NO_ROOT_FOUND');
1150: FND_MSG_PUB.add;
1151: --dbms_output.put_line('no root found');
1152: RAISE FND_API.G_EXC_ERROR;
1153: END IF;
1154:
1155: IF v_root_id IS NOT NULL AND p_root_id <> v_root_id THEN
1156: --RRS_NO_ROOT_FOUND

Line 1160: RAISE FND_API.G_EXC_ERROR;

1156: --RRS_NO_ROOT_FOUND
1157: FND_MESSAGE.set_name('RRS', 'RRS_NO_ROOT_FOUND');
1158: FND_MSG_PUB.add;
1159: --dbms_output.put_line('no root found');
1160: RAISE FND_API.G_EXC_ERROR;
1161: END IF;
1162:
1163: IF p_root_number IS NULL AND v_root_number IS NOT NULL THEN
1164: SELECT COUNT(*)

Line 1176: RAISE FND_API.G_EXC_ERROR;

1172: FND_MESSAGE.set_name('RRS', 'RRS_NODE_EXISTS');
1173: FND_MESSAGE.set_token('NODE_ID_NUM', v_root_number);
1174: FND_MSG_PUB.add;
1175: --dbms_output.put_line('node number already exists '||v_root_number);
1176: RAISE FND_API.G_EXC_ERROR;
1177: END IF;
1178:
1179: --update the root node number
1180: UPDATE RRS_SITE_GROUP_NODES_B

Line 1204: RAISE FND_API.G_EXC_ERROR;

1200: --RRS_ID_NUMBER_BOTH_NULL
1201: FND_MESSAGE.set_name('RRS', 'RRS_ID_NUMBER_BOTH_NULL');
1202: FND_MSG_PUB.add;
1203: --dbms_output.put_line('Id and number cannot both be NULL');
1204: RAISE FND_API.G_EXC_ERROR;
1205: END IF;
1206:
1207: --case2: both not null
1208: --dbms_output.put_line('before case2');

Line 1220: x_return_status := FND_API.G_RET_STS_ERROR;

1216: FND_MESSAGE.set_token('ID', v_id);
1217: FND_MESSAGE.set_token('NUM', v_num);
1218: FND_MSG_PUB.add;
1219: --dbms_output.put_line('Invalid pair of id/number: '||v_id||'/'||v_num);
1220: x_return_status := FND_API.G_RET_STS_ERROR;
1221: END LOOP;
1222: CLOSE validate_p_id_num_cursor;
1223:
1224: OPEN validate_c_id_num_cursor;

Line 1234: x_return_status := FND_API.G_RET_STS_ERROR;

1230: FND_MESSAGE.set_token('ID', v_id);
1231: FND_MESSAGE.set_token('NUM', v_num);
1232: FND_MSG_PUB.add;
1233: --dbms_output.put_line('Invalid pair of id/number: '||v_id||'/'||v_num);
1234: x_return_status := FND_API.G_RET_STS_ERROR;
1235: END LOOP;
1236: CLOSE validate_c_id_num_cursor;
1237:
1238: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

Line 1238: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1234: x_return_status := FND_API.G_RET_STS_ERROR;
1235: END LOOP;
1236: CLOSE validate_c_id_num_cursor;
1237:
1238: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1239: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1240: RAISE FND_API.G_EXC_ERROR;
1241: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 1239: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

1235: END LOOP;
1236: CLOSE validate_c_id_num_cursor;
1237:
1238: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1239: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1240: RAISE FND_API.G_EXC_ERROR;
1241: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1243: END IF;

Line 1240: RAISE FND_API.G_EXC_ERROR;

1236: CLOSE validate_c_id_num_cursor;
1237:
1238: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1239: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1240: RAISE FND_API.G_EXC_ERROR;
1241: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1243: END IF;
1244: END IF;

Line 1241: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1237:
1238: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1239: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1240: RAISE FND_API.G_EXC_ERROR;
1241: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1243: END IF;
1244: END IF;
1245:

Line 1242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1238: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1239: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1240: RAISE FND_API.G_EXC_ERROR;
1241: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1243: END IF;
1244: END IF;
1245:
1246: --check for non-existing id

Line 1258: x_return_status := FND_API.G_RET_STS_ERROR;

1254: FND_MESSAGE.set_token('ID', v_id);
1255: FND_MESSAGE.set_token('TYPE', v_type);
1256: FND_MSG_PUB.add;
1257: --dbms_output.put_line('Non-existing type/id: '||v_type||'/'||v_id);
1258: x_return_status := FND_API.G_RET_STS_ERROR;
1259: END LOOP;
1260: CLOSE validate_p_id_cursor;
1261:
1262: OPEN validate_c_id_cursor;

Line 1272: x_return_status := FND_API.G_RET_STS_ERROR;

1268: FND_MESSAGE.set_token('ID', v_id);
1269: FND_MESSAGE.set_token('TYPE', v_type);
1270: FND_MSG_PUB.add;
1271: --dbms_output.put_line('Non-existing type/id: '||v_type||'/'||v_id);
1272: x_return_status := FND_API.G_RET_STS_ERROR;
1273: END LOOP;
1274: CLOSE validate_c_id_cursor;
1275:
1276: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

Line 1276: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1272: x_return_status := FND_API.G_RET_STS_ERROR;
1273: END LOOP;
1274: CLOSE validate_c_id_cursor;
1275:
1276: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1277: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1278: RAISE FND_API.G_EXC_ERROR;
1279: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 1277: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

1273: END LOOP;
1274: CLOSE validate_c_id_cursor;
1275:
1276: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1277: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1278: RAISE FND_API.G_EXC_ERROR;
1279: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1281: END IF;

Line 1278: RAISE FND_API.G_EXC_ERROR;

1274: CLOSE validate_c_id_cursor;
1275:
1276: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1277: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1278: RAISE FND_API.G_EXC_ERROR;
1279: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1281: END IF;
1282: END IF;

Line 1279: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1275:
1276: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1277: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1278: RAISE FND_API.G_EXC_ERROR;
1279: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1281: END IF;
1282: END IF;
1283:

Line 1280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1276: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1277: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1278: RAISE FND_API.G_EXC_ERROR;
1279: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1280: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1281: END IF;
1282: END IF;
1283:
1284: --create non-existing node

Line 1304: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1300: x_return_status => x_return_status,
1301: x_msg_count => x_msg_count,
1302: x_msg_data => x_msg_data);
1303:
1304: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1305: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1306: RAISE FND_API.G_EXC_ERROR;
1307: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 1305: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

1301: x_msg_count => x_msg_count,
1302: x_msg_data => x_msg_data);
1303:
1304: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1305: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1306: RAISE FND_API.G_EXC_ERROR;
1307: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1309: END IF;

Line 1306: RAISE FND_API.G_EXC_ERROR;

1302: x_msg_data => x_msg_data);
1303:
1304: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1305: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1306: RAISE FND_API.G_EXC_ERROR;
1307: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1309: END IF;
1310: END IF;

Line 1307: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1303:
1304: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1305: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1306: RAISE FND_API.G_EXC_ERROR;
1307: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1309: END IF;
1310: END IF;
1311:

Line 1308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1304: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1305: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1306: RAISE FND_API.G_EXC_ERROR;
1307: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1309: END IF;
1310: END IF;
1311:
1312: END LOOP;

Line 1366: x_return_status := FND_API.G_RET_STS_ERROR;

1362: FND_MESSAGE.set_token('NUM', v_num);
1363: FND_MESSAGE.set_token('TYPE', v_type);
1364: FND_MSG_PUB.add;
1365: --dbms_output.put_line('Duplicated type/num: '||v_type||'/'||v_num);
1366: x_return_status := FND_API.G_RET_STS_ERROR;
1367: END LOOP;
1368: CLOSE validate_dup_number_cursor;
1369:
1370: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

Line 1370: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

1366: x_return_status := FND_API.G_RET_STS_ERROR;
1367: END LOOP;
1368: CLOSE validate_dup_number_cursor;
1369:
1370: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1371: RAISE FND_API.G_EXC_ERROR;
1372: END IF;
1373:
1374: --check for invalid site num

Line 1371: RAISE FND_API.G_EXC_ERROR;

1367: END LOOP;
1368: CLOSE validate_dup_number_cursor;
1369:
1370: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1371: RAISE FND_API.G_EXC_ERROR;
1372: END IF;
1373:
1374: --check for invalid site num
1375: --dbms_output.put_line('before check invalid site num');

Line 1386: x_return_status := FND_API.G_RET_STS_ERROR;

1382: FND_MESSAGE.set_token('NUM', v_num);
1383: FND_MESSAGE.set_token('TYPE', v_type);
1384: FND_MSG_PUB.add;
1385: --dbms_output.put_line('Invalid num: '||v_num);
1386: x_return_status := FND_API.G_RET_STS_ERROR;
1387: END LOOP;
1388: CLOSE validate_num_cursor;
1389:
1390: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

Line 1390: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

1386: x_return_status := FND_API.G_RET_STS_ERROR;
1387: END LOOP;
1388: CLOSE validate_num_cursor;
1389:
1390: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1391: RAISE FND_API.G_EXC_ERROR;
1392: END IF;
1393:
1394: --check for site template

Line 1391: RAISE FND_API.G_EXC_ERROR;

1387: END LOOP;
1388: CLOSE validate_num_cursor;
1389:
1390: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1391: RAISE FND_API.G_EXC_ERROR;
1392: END IF;
1393:
1394: --check for site template
1395: --dbms_output.put_line('before check site template');

Line 1405: x_return_status := FND_API.G_RET_STS_ERROR;

1401: FND_MESSAGE.set_name('RRS', 'RRS_SITE_TEMPLATE');
1402: FND_MESSAGE.set_token('SITE_ID_NUM', v_num);
1403: FND_MSG_PUB.add;
1404: --dbms_output.put_line('site is a template: '||v_num);
1405: x_return_status := FND_API.G_RET_STS_ERROR;
1406: END LOOP;
1407: CLOSE validate_site_template_cursor;
1408:
1409: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

Line 1409: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

1405: x_return_status := FND_API.G_RET_STS_ERROR;
1406: END LOOP;
1407: CLOSE validate_site_template_cursor;
1408:
1409: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1410: RAISE FND_API.G_EXC_ERROR;
1411: END IF;
1412:
1413: --check for parent site/node does not exist in the hierarchy

Line 1410: RAISE FND_API.G_EXC_ERROR;

1406: END LOOP;
1407: CLOSE validate_site_template_cursor;
1408:
1409: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1410: RAISE FND_API.G_EXC_ERROR;
1411: END IF;
1412:
1413: --check for parent site/node does not exist in the hierarchy
1414: OPEN validate_p_in_hier_curosr;

Line 1424: x_return_status := FND_API.G_RET_STS_ERROR;

1420: FND_MESSAGE.set_token('NUM', v_num);
1421: FND_MESSAGE.set_token('TYPE', v_type);
1422: FND_MSG_PUB.add;
1423: --dbms_output.put_line('No parent found type/num: '||v_type||'/'||v_num);
1424: x_return_status := FND_API.G_RET_STS_ERROR;
1425: END LOOP;
1426: CLOSE validate_p_in_hier_curosr;
1427:
1428: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

Line 1428: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

1424: x_return_status := FND_API.G_RET_STS_ERROR;
1425: END LOOP;
1426: CLOSE validate_p_in_hier_curosr;
1427:
1428: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1429: RAISE FND_API.G_EXC_ERROR;
1430: END IF;
1431:
1432: --check for duplicated node name under a same parent

Line 1429: RAISE FND_API.G_EXC_ERROR;

1425: END LOOP;
1426: CLOSE validate_p_in_hier_curosr;
1427:
1428: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1429: RAISE FND_API.G_EXC_ERROR;
1430: END IF;
1431:
1432: --check for duplicated node name under a same parent
1433: --dbms_output.put_line('before check duplicated node name');

Line 1443: x_return_status := FND_API.G_RET_STS_ERROR;

1439: FND_MESSAGE.set_name('RRS', 'RRS_DUPLICATED_NODE_NAME');
1440: FND_MESSAGE.set_token('NODE_NAME', v_node_name);
1441: FND_MSG_PUB.add;
1442: --dbms_output.put_line('Duplicated node name under a same parent: '||v_node_name);
1443: x_return_status := FND_API.G_RET_STS_ERROR;
1444: END LOOP;
1445: CLOSE validate_node_name_cursor;
1446:
1447: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

Line 1447: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

1443: x_return_status := FND_API.G_RET_STS_ERROR;
1444: END LOOP;
1445: CLOSE validate_node_name_cursor;
1446:
1447: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1448: RAISE FND_API.G_EXC_ERROR;
1449: END IF;
1450:
1451: --update nodes

Line 1448: RAISE FND_API.G_EXC_ERROR;

1444: END LOOP;
1445: CLOSE validate_node_name_cursor;
1446:
1447: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1448: RAISE FND_API.G_EXC_ERROR;
1449: END IF;
1450:
1451: --update nodes
1452: --dbms_output.put_line('before update nodes');

Line 1465: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1461: x_return_status => x_return_status,
1462: x_msg_count => x_msg_count,
1463: x_msg_data => x_msg_data);
1464:
1465: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1466: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1467: RAISE FND_API.G_EXC_ERROR;
1468: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 1466: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

1462: x_msg_count => x_msg_count,
1463: x_msg_data => x_msg_data);
1464:
1465: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1466: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1467: RAISE FND_API.G_EXC_ERROR;
1468: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1470: END IF;

Line 1467: RAISE FND_API.G_EXC_ERROR;

1463: x_msg_data => x_msg_data);
1464:
1465: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1466: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1467: RAISE FND_API.G_EXC_ERROR;
1468: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1470: END IF;
1471: END IF;

Line 1468: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1464:
1465: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1466: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1467: RAISE FND_API.G_EXC_ERROR;
1468: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1470: END IF;
1471: END IF;
1472:

Line 1469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1465: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1466: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1467: RAISE FND_API.G_EXC_ERROR;
1468: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1470: END IF;
1471: END IF;
1472:
1473: END LOOP;

Line 1505: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1501: p_hier_purpose_code => p_hier_purpose_code,
1502: x_return_status => x_return_status,
1503: x_msg_data => x_msg_data);
1504:
1505: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1506: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1507: RAISE FND_API.G_EXC_ERROR;
1508: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 1506: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

1502: x_return_status => x_return_status,
1503: x_msg_data => x_msg_data);
1504:
1505: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1506: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1507: RAISE FND_API.G_EXC_ERROR;
1508: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1510: END IF;

Line 1507: RAISE FND_API.G_EXC_ERROR;

1503: x_msg_data => x_msg_data);
1504:
1505: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1506: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1507: RAISE FND_API.G_EXC_ERROR;
1508: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1510: END IF;
1511: END IF;

Line 1508: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1504:
1505: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1506: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1507: RAISE FND_API.G_EXC_ERROR;
1508: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1510: END IF;
1511: END IF;
1512:

Line 1509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1505: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1506: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1507: RAISE FND_API.G_EXC_ERROR;
1508: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1510: END IF;
1511: END IF;
1512:
1513: END IF;

Line 1548: x_return_status := FND_API.G_RET_STS_SUCCESS;

1544: mem_rec.SEQUENCE_NUMBER);
1545: END LOOP;
1546: END IF;
1547:
1548: x_return_status := FND_API.G_RET_STS_SUCCESS;
1549:
1550: EXCEPTION
1551: WHEN FND_API.G_EXC_ERROR THEN
1552: ROLLBACK TO Create_Hierarchy_Members;

Line 1551: WHEN FND_API.G_EXC_ERROR THEN

1547:
1548: x_return_status := FND_API.G_RET_STS_SUCCESS;
1549:
1550: EXCEPTION
1551: WHEN FND_API.G_EXC_ERROR THEN
1552: ROLLBACK TO Create_Hierarchy_Members;
1553: x_msg_count := FND_MSG_PUB.Count_Msg;
1554: x_return_status := FND_API.G_RET_STS_ERROR;
1555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 1554: x_return_status := FND_API.G_RET_STS_ERROR;

1550: EXCEPTION
1551: WHEN FND_API.G_EXC_ERROR THEN
1552: ROLLBACK TO Create_Hierarchy_Members;
1553: x_msg_count := FND_MSG_PUB.Count_Msg;
1554: x_return_status := FND_API.G_RET_STS_ERROR;
1555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1556: ROLLBACK TO Create_Hierarchy_Members;
1557: x_msg_data := G_PKG_NAME || '.Create_Hierarchy_Members:' || x_msg_data;
1558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1551: WHEN FND_API.G_EXC_ERROR THEN
1552: ROLLBACK TO Create_Hierarchy_Members;
1553: x_msg_count := FND_MSG_PUB.Count_Msg;
1554: x_return_status := FND_API.G_RET_STS_ERROR;
1555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1556: ROLLBACK TO Create_Hierarchy_Members;
1557: x_msg_data := G_PKG_NAME || '.Create_Hierarchy_Members:' || x_msg_data;
1558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1559: WHEN OTHERS THEN

Line 1558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1554: x_return_status := FND_API.G_RET_STS_ERROR;
1555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1556: ROLLBACK TO Create_Hierarchy_Members;
1557: x_msg_data := G_PKG_NAME || '.Create_Hierarchy_Members:' || x_msg_data;
1558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1559: WHEN OTHERS THEN
1560: ROLLBACK TO Create_Hierarchy_Members;
1561: x_msg_data := G_PKG_NAME || '.Create_Hierarchy_Members:' || SQLERRM;
1562: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1562: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1559: WHEN OTHERS THEN
1560: ROLLBACK TO Create_Hierarchy_Members;
1561: x_msg_data := G_PKG_NAME || '.Create_Hierarchy_Members:' || SQLERRM;
1562: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1563: END Create_Hierarchy_Members;
1564:
1565: procedure Update_Hierarchy_Coarse(
1566: p_api_version IN NUMBER DEFAULT 1,

Line 1574: p_nullify_flag IN VARCHAR2 DEFAULT FND_API.G_FALSE,

1570: p_hier_purpose_code IN VARCHAR2 DEFAULT NULL,
1571: p_hier_start_date IN DATE DEFAULT NULL,
1572: p_hier_end_date IN DATE DEFAULT NULL,
1573: p_hier_members_tab IN RRS_HIER_MEMBERS_COARSE_TAB DEFAULT NULL,
1574: p_nullify_flag IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1575: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1576: x_return_status OUT NOCOPY varchar2,
1577: x_msg_count OUT NOCOPY NUMBER,
1578: x_msg_data OUT NOCOPY VARCHAR2

Line 1575: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,

1571: p_hier_start_date IN DATE DEFAULT NULL,
1572: p_hier_end_date IN DATE DEFAULT NULL,
1573: p_hier_members_tab IN RRS_HIER_MEMBERS_COARSE_TAB DEFAULT NULL,
1574: p_nullify_flag IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1575: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1576: x_return_status OUT NOCOPY varchar2,
1577: x_msg_count OUT NOCOPY NUMBER,
1578: x_msg_data OUT NOCOPY VARCHAR2
1579: )IS

Line 1590: IF p_nullify_flag <> FND_API.G_FALSE

1586: v_purpose_code VARCHAR2(30);
1587: BEGIN
1588: SAVEPOINT Update_Hierarchy_Coarse;
1589:
1590: IF p_nullify_flag <> FND_API.G_FALSE
1591: AND p_nullify_flag <> FND_API.G_TRUE THEN
1592: --RRS_INVALID_FLAG
1593: FND_MESSAGE.set_name('RRS', 'RRS_INVALID_FLAG');
1594: FND_MSG_PUB.add;

Line 1591: AND p_nullify_flag <> FND_API.G_TRUE THEN

1587: BEGIN
1588: SAVEPOINT Update_Hierarchy_Coarse;
1589:
1590: IF p_nullify_flag <> FND_API.G_FALSE
1591: AND p_nullify_flag <> FND_API.G_TRUE THEN
1592: --RRS_INVALID_FLAG
1593: FND_MESSAGE.set_name('RRS', 'RRS_INVALID_FLAG');
1594: FND_MSG_PUB.add;
1595: RAISE FND_API.G_EXC_ERROR;

Line 1595: RAISE FND_API.G_EXC_ERROR;

1591: AND p_nullify_flag <> FND_API.G_TRUE THEN
1592: --RRS_INVALID_FLAG
1593: FND_MESSAGE.set_name('RRS', 'RRS_INVALID_FLAG');
1594: FND_MSG_PUB.add;
1595: RAISE FND_API.G_EXC_ERROR;
1596: END IF;
1597:
1598: BEGIN
1599: SELECT SITE_GROUP_ID

Line 1610: RAISE FND_API.G_EXC_ERROR;

1606: FND_MESSAGE.set_name('RRS', 'RRS_NO_HIER_FOUND');
1607: FND_MESSAGE.set_token('HIERARCHY_NAME', p_hier_name);
1608: FND_MSG_PUB.add;
1609: --dbms_output.put_line('invalid hier name');
1610: RAISE FND_API.G_EXC_ERROR;
1611: END;
1612:
1613: BEGIN
1614: SELECT RSGM.CHILD_MEMBER_ID, RSGNV.NODE_IDENTIFICATION_NUMBER

Line 1627: RAISE FND_API.G_EXC_ERROR;

1623: --RRS_NO_ROOT_FOUND
1624: FND_MESSAGE.set_name('RRS', 'RRS_NO_ROOT_FOUND');
1625: FND_MSG_PUB.add;
1626: --dbms_output.put_line('root node not found in members table');
1627: RAISE FND_API.G_EXC_ERROR;
1628: END;
1629:
1630: BEGIN
1631: SELECT SITE_GROUP_VERSION_ID

Line 1642: RAISE FND_API.G_EXC_ERROR;

1638: FND_MESSAGE.set_name('RRS', 'RRS_NO_HIER_VERSION_FOUND');
1639: FND_MESSAGE.set_token('HIERARCHY_NAME', p_hier_name);
1640: FND_MSG_PUB.add;
1641: --dbms_output.put_line('hier version id not found');
1642: RAISE FND_API.G_EXC_ERROR;
1643: END;
1644:
1645: --default the purpose code when nuulify flag is false and purpose code is not specified
1646: IF NOT FND_API.To_Boolean(p_nullify_flag) AND p_hier_purpose_code IS NULL THEN

Line 1646: IF NOT FND_API.To_Boolean(p_nullify_flag) AND p_hier_purpose_code IS NULL THEN

1642: RAISE FND_API.G_EXC_ERROR;
1643: END;
1644:
1645: --default the purpose code when nuulify flag is false and purpose code is not specified
1646: IF NOT FND_API.To_Boolean(p_nullify_flag) AND p_hier_purpose_code IS NULL THEN
1647: SELECT GROUP_PURPOSE_CODE
1648: INTO v_purpose_code
1649: FROM RRS_SITE_GROUPS_B RSGB
1650: WHERE RSGB.SITE_GROUP_ID = v_hier_id;

Line 1671: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1667: x_msg_count => x_msg_count,
1668: x_msg_data => x_msg_data);
1669:
1670: --dbms_output.put_line(x_return_status);
1671: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1672: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1673: RAISE FND_API.G_EXC_ERROR;
1674: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 1672: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

1668: x_msg_data => x_msg_data);
1669:
1670: --dbms_output.put_line(x_return_status);
1671: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1672: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1673: RAISE FND_API.G_EXC_ERROR;
1674: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1676: END IF;

Line 1673: RAISE FND_API.G_EXC_ERROR;

1669:
1670: --dbms_output.put_line(x_return_status);
1671: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1672: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1673: RAISE FND_API.G_EXC_ERROR;
1674: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1676: END IF;
1677: END IF;

Line 1674: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1670: --dbms_output.put_line(x_return_status);
1671: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1672: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1673: RAISE FND_API.G_EXC_ERROR;
1674: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1676: END IF;
1677: END IF;
1678:

Line 1675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1671: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1672: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1673: RAISE FND_API.G_EXC_ERROR;
1674: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1676: END IF;
1677: END IF;
1678:
1679: IF p_hier_members_tab IS NOT NULL OR FND_API.To_Boolean(p_nullify_flag) THEN

Line 1679: IF p_hier_members_tab IS NOT NULL OR FND_API.To_Boolean(p_nullify_flag) THEN

1675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1676: END IF;
1677: END IF;
1678:
1679: IF p_hier_members_tab IS NOT NULL OR FND_API.To_Boolean(p_nullify_flag) THEN
1680:
1681: --dbms_output.put_line('before delete members table');
1682: DELETE FROM RRS_SITE_GROUP_MEMBERS
1683: WHERE SITE_GROUP_ID = v_hier_id;

Line 1697: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

1693: x_return_status => x_return_status,
1694: x_msg_count => x_msg_count,
1695: x_msg_data => x_msg_data);
1696:
1697: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1698: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1699: RAISE FND_API.G_EXC_ERROR;
1700: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 1698: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

1694: x_msg_count => x_msg_count,
1695: x_msg_data => x_msg_data);
1696:
1697: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1698: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1699: RAISE FND_API.G_EXC_ERROR;
1700: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1702: END IF;

Line 1699: RAISE FND_API.G_EXC_ERROR;

1695: x_msg_data => x_msg_data);
1696:
1697: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1698: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1699: RAISE FND_API.G_EXC_ERROR;
1700: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1702: END IF;
1703: END IF;

Line 1700: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

1696:
1697: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1698: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1699: RAISE FND_API.G_EXC_ERROR;
1700: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1702: END IF;
1703: END IF;
1704:

Line 1701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

1697: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1698: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1699: RAISE FND_API.G_EXC_ERROR;
1700: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1701: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1702: END IF;
1703: END IF;
1704:
1705: END IF;

Line 1707: IF FND_API.To_Boolean(p_commit) THEN

1703: END IF;
1704:
1705: END IF;
1706:
1707: IF FND_API.To_Boolean(p_commit) THEN
1708: COMMIT;
1709: END IF;
1710:
1711: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 1711: x_return_status := FND_API.G_RET_STS_SUCCESS;

1707: IF FND_API.To_Boolean(p_commit) THEN
1708: COMMIT;
1709: END IF;
1710:
1711: x_return_status := FND_API.G_RET_STS_SUCCESS;
1712:
1713: EXCEPTION
1714: WHEN FND_API.G_EXC_ERROR THEN
1715: ROLLBACK TO Update_Hierarchy_Coarse;

Line 1714: WHEN FND_API.G_EXC_ERROR THEN

1710:
1711: x_return_status := FND_API.G_RET_STS_SUCCESS;
1712:
1713: EXCEPTION
1714: WHEN FND_API.G_EXC_ERROR THEN
1715: ROLLBACK TO Update_Hierarchy_Coarse;
1716: x_msg_count := FND_MSG_PUB.Count_Msg;
1717: x_return_status := FND_API.G_RET_STS_ERROR;
1718: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 1717: x_return_status := FND_API.G_RET_STS_ERROR;

1713: EXCEPTION
1714: WHEN FND_API.G_EXC_ERROR THEN
1715: ROLLBACK TO Update_Hierarchy_Coarse;
1716: x_msg_count := FND_MSG_PUB.Count_Msg;
1717: x_return_status := FND_API.G_RET_STS_ERROR;
1718: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1719: ROLLBACK TO Update_Hierarchy_Coarse;
1720: x_msg_data := G_PKG_NAME || '.Update_Hierarchy_Coarse:' || x_msg_data;
1721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1718: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1714: WHEN FND_API.G_EXC_ERROR THEN
1715: ROLLBACK TO Update_Hierarchy_Coarse;
1716: x_msg_count := FND_MSG_PUB.Count_Msg;
1717: x_return_status := FND_API.G_RET_STS_ERROR;
1718: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1719: ROLLBACK TO Update_Hierarchy_Coarse;
1720: x_msg_data := G_PKG_NAME || '.Update_Hierarchy_Coarse:' || x_msg_data;
1721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1722: WHEN OTHERS THEN

Line 1721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1717: x_return_status := FND_API.G_RET_STS_ERROR;
1718: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1719: ROLLBACK TO Update_Hierarchy_Coarse;
1720: x_msg_data := G_PKG_NAME || '.Update_Hierarchy_Coarse:' || x_msg_data;
1721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1722: WHEN OTHERS THEN
1723: ROLLBACK TO Update_Hierarchy_Coarse;
1724: x_msg_data := G_PKG_NAME || '.Update_Hierarchy_Coarse:' || SQLERRM;
1725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1721: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1722: WHEN OTHERS THEN
1723: ROLLBACK TO Update_Hierarchy_Coarse;
1724: x_msg_data := G_PKG_NAME || '.Update_Hierarchy_Coarse:' || SQLERRM;
1725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1726: END Update_Hierarchy_Coarse;
1727:
1728: procedure Update_Hierarchy_Fine(
1729: p_api_version IN NUMBER DEFAULT 1,

Line 1731: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,

1727:
1728: procedure Update_Hierarchy_Fine(
1729: p_api_version IN NUMBER DEFAULT 1,
1730: p_hier_members_rec IN RRS_HIER_MEMBERS_FINE_REC,
1731: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1732: x_return_status OUT NOCOPY varchar2,
1733: x_msg_count OUT NOCOPY NUMBER,
1734: x_msg_data OUT NOCOPY VARCHAR2
1735: )IS

Line 1819: RAISE FND_API.G_EXC_ERROR;

1815: FND_MESSAGE.set_name('RRS', 'RRS_NO_HIER_FOUND');
1816: FND_MESSAGE.set_token('HIERARCHY_NAME', p_hier_members_rec.dest_hier_name);
1817: FND_MSG_PUB.add;
1818: --dbms_output.put_line('invalid dest hier name: '||p_hier_members_rec.dest_hier_name);
1819: RAISE FND_API.G_EXC_ERROR;
1820: END;
1821: --get dest hier version id
1822: --dbms_output.put_line('before get dest hier version id');
1823: BEGIN

Line 1835: RAISE FND_API.G_EXC_ERROR;

1831: FND_MESSAGE.set_name('RRS', 'RRS_NO_HIER_VERSION_FOUND');
1832: FND_MESSAGE.set_token('HIERARCHY_NAME', p_hier_members_rec.dest_hier_name);
1833: FND_MSG_PUB.add;
1834: --dbms_output.put_line('version id not found: '||p_hier_members_rec.dest_hier_name);
1835: RAISE FND_API.G_EXC_ERROR;
1836: END;
1837:
1838: --validate child number
1839: --1. child number cannot be null

Line 1849: RAISE FND_API.G_EXC_ERROR;

1845: --RRS_NULL_CHILD_NUMBER
1846: FND_MESSAGE.set_name('RRS', 'RRS_NULL_CHILD_NUMBER');
1847: FND_MSG_PUB.add;
1848: --dbms_output.put_line('child number cannot be null');
1849: RAISE FND_API.G_EXC_ERROR;
1850: END IF;
1851:
1852: IF p_hier_members_rec.child_object_type = 'NODE' THEN
1853: BEGIN

Line 1865: RAISE FND_API.G_EXC_ERROR;

1861: FND_MESSAGE.set_name('RRS', 'RRS_NO_NODE_FOUND');
1862: FND_MESSAGE.set_token('NODE_ID_NUM', p_hier_members_rec.child_id_number);
1863: FND_MSG_PUB.add;
1864: --dbms_output.put_line('invalid node number: '|| p_hier_members_rec.child_id_number);
1865: RAISE FND_API.G_EXC_ERROR;
1866: END;
1867: IF v_child_purpose_code = 'ROOT' THEN
1868: --RRS_TRANSACT_ROOT
1869: FND_MESSAGE.set_name('RRS', 'RRS_TRANSACT_ROOT');

Line 1872: RAISE FND_API.G_EXC_ERROR;

1868: --RRS_TRANSACT_ROOT
1869: FND_MESSAGE.set_name('RRS', 'RRS_TRANSACT_ROOT');
1870: FND_MSG_PUB.add;
1871: --dbms_output.put_line('cannot transact on root node');
1872: RAISE FND_API.G_EXC_ERROR;
1873: END IF;
1874: ELSIF p_hier_members_rec.child_object_type = 'SITE' THEN
1875: BEGIN
1876: SELECT RSV.SITE_ID, RSU.SITE_USE_TYPE_CODE, RSV.IS_TEMPLATE_FLAG

Line 1889: RAISE FND_API.G_EXC_ERROR;

1885: FND_MESSAGE.set_name('RRS', 'RRS_NO_SITE_FOUND');
1886: FND_MESSAGE.set_token('SITE_ID_NUM', p_hier_members_rec.child_id_number);
1887: FND_MSG_PUB.add;
1888: --dbms_output.put_line('invalid site number: '|| p_hier_members_rec.child_id_number);
1889: RAISE FND_API.G_EXC_ERROR;
1890: END;
1891: IF v_flag = 'Y' THEN
1892: --RRS_SITE_TEMPLATE
1893: FND_MESSAGE.set_name('RRS', 'RRS_SITE_TEMPLATE');

Line 1897: RAISE FND_API.G_EXC_ERROR;

1893: FND_MESSAGE.set_name('RRS', 'RRS_SITE_TEMPLATE');
1894: FND_MESSAGE.set_token('SITE_ID_NUM', p_hier_members_rec.child_id_number);
1895: FND_MSG_PUB.add;
1896: --dbms_output.put_line('site is a template: '||p_hier_members_rec.child_id_number);
1897: RAISE FND_API.G_EXC_ERROR;
1898: END IF;
1899: ELSE
1900: --RRS_INVALID_TYPE
1901: FND_MESSAGE.set_name('RRS', 'RRS_INVALID_TYPE');

Line 1905: RAISE FND_API.G_EXC_ERROR;

1901: FND_MESSAGE.set_name('RRS', 'RRS_INVALID_TYPE');
1902: FND_MESSAGE.set_token('TYPE', p_hier_members_rec.child_object_type);
1903: FND_MSG_PUB.add;
1904: --dbms_output.put_line('Invalid child type: '||p_hier_members_rec.child_object_type);
1905: RAISE FND_API.G_EXC_ERROR;
1906: END IF;
1907:
1908: --get parent id, parent purpose code and source hier id
1909: IF p_hier_members_rec.transaction_type = 'ADD'

Line 1923: RAISE FND_API.G_EXC_ERROR;

1919: --RRS_NULL_DEST_PARENT_NUMBER
1920: FND_MESSAGE.set_name('RRS', 'RRS_NULL_DEST_PARENT_NUMBER');
1921: FND_MSG_PUB.add;
1922: --dbms_output.put_line('dest parent number cannot be null');
1923: RAISE FND_API.G_EXC_ERROR;
1924: END IF;
1925:
1926: IF p_hier_members_rec.dest_parent_object_type = 'NODE' THEN
1927: BEGIN

Line 1942: RAISE FND_API.G_EXC_ERROR;

1938: FND_MESSAGE.set_token('NODE_ID_NUM', p_hier_members_rec.dest_parent_id_number);
1939: FND_MESSAGE.set_token('HIERARCHY_NAME', p_hier_members_rec.dest_hier_name);
1940: FND_MSG_PUB.add;
1941: --dbms_output.put_line('node does not exist or appear in the hierarchy: '|| p_hier_members_rec.dest_parent_id_number);
1942: RAISE FND_API.G_EXC_ERROR;
1943: END;
1944: ELSIF p_hier_members_rec.dest_parent_object_type = 'SITE' THEN
1945: BEGIN
1946: SELECT RSV.SITE_ID, RSU.SITE_USE_TYPE_CODE

Line 1962: RAISE FND_API.G_EXC_ERROR;

1958: FND_MESSAGE.set_token('SITE_ID_NUM', p_hier_members_rec.dest_parent_id_number);
1959: FND_MESSAGE.set_token('HIERARCHY_NAME', p_hier_members_rec.dest_hier_name);
1960: FND_MSG_PUB.add;
1961: --dbms_output.put_line('site does not exist or appear in the hierarchy: '|| p_hier_members_rec.dest_parent_id_number);
1962: RAISE FND_API.G_EXC_ERROR;
1963: END;
1964: ELSE
1965: --RRS_INVALID_TYPE
1966: FND_MESSAGE.set_name('RRS', 'RRS_INVALID_TYPE');

Line 1970: RAISE FND_API.G_EXC_ERROR;

1966: FND_MESSAGE.set_name('RRS', 'RRS_INVALID_TYPE');
1967: FND_MESSAGE.set_token('TYPE', p_hier_members_rec.dest_parent_object_type);
1968: FND_MSG_PUB.add;
1969: --dbms_output.put_line('Invalid parent type: '||p_hier_members_rec.dest_parent_object_type);
1970: RAISE FND_API.G_EXC_ERROR;
1971: END IF;
1972:
1973: END IF;
1974:

Line 1992: RAISE FND_API.G_EXC_ERROR;

1988: FND_MESSAGE.set_token('TYPE', p_hier_members_rec.child_object_type);
1989: FND_MESSAGE.set_token('HIERARCHY_NAME', p_hier_members_rec.dest_hier_name);
1990: FND_MSG_PUB.add;
1991: --dbms_output.put_line('Child already exists in the destination hierarchy: '||p_hier_members_rec.child_id_number);
1992: RAISE FND_API.G_EXC_ERROR;
1993: END IF;
1994:
1995: --dbms_output.put_line(v_hier_purpose_code||' '||v_parent_purpose_code||' '||v_child_purpose_code);
1996:

Line 2013: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

2009: x_return_status => x_return_status,
2010: x_msg_data => x_msg_data
2011: );
2012:
2013: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2014: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2015: RAISE FND_API.G_EXC_ERROR;
2016: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2017: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 2014: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

2010: x_msg_data => x_msg_data
2011: );
2012:
2013: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2014: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2015: RAISE FND_API.G_EXC_ERROR;
2016: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2017: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2018: END IF;

Line 2015: RAISE FND_API.G_EXC_ERROR;

2011: );
2012:
2013: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2014: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2015: RAISE FND_API.G_EXC_ERROR;
2016: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2017: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2018: END IF;
2019: END IF;

Line 2016: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

2012:
2013: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2014: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2015: RAISE FND_API.G_EXC_ERROR;
2016: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2017: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2018: END IF;
2019: END IF;
2020:

Line 2017: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2013: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2014: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2015: RAISE FND_API.G_EXC_ERROR;
2016: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2017: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2018: END IF;
2019: END IF;
2020:
2021: END IF;

Line 2071: RAISE FND_API.G_EXC_ERROR;

2067: FND_MESSAGE.set_token('TYPE', p_hier_members_rec.child_object_type);
2068: FND_MESSAGE.set_token('HIERARCHY_NAME', p_hier_members_rec.dest_hier_name);
2069: FND_MSG_PUB.add;
2070: --dbms_output.put_line('Child does not appear in the destination hierarchy');
2071: RAISE FND_API.G_EXC_ERROR;
2072: END IF;
2073:
2074: --remove the subtree in members table
2075: DELETE FROM RRS_SITE_GROUP_MEMBERS

Line 2102: RAISE FND_API.G_EXC_ERROR;

2098: FND_MESSAGE.set_name('RRS', 'RRS_NO_HIER_FOUND');
2099: FND_MESSAGE.set_token('HIERARCHY_NAME', p_hier_members_rec.source_hier_name);
2100: FND_MSG_PUB.add;
2101: --dbms_output.put_line('invalid source hier name: '||p_hier_members_rec.source_hier_name);
2102: RAISE FND_API.G_EXC_ERROR;
2103: END;
2104:
2105: --1. child id must appear in the source hierarchy
2106: --2. get source parent id

Line 2122: RAISE FND_API.G_EXC_ERROR;

2118: FND_MESSAGE.set_token('TYPE', p_hier_members_rec.child_object_type);
2119: FND_MESSAGE.set_token('HIERARCHY_NAME', p_hier_members_rec.source_hier_name);
2120: FND_MSG_PUB.add;
2121: --dbms_output.put_line('Child does not appear in the source hierarchy');
2122: RAISE FND_API.G_EXC_ERROR;
2123: END;
2124:
2125: --source and dest hier cannot be the same for COPY transaction
2126: IF p_hier_members_rec.transaction_type = 'COPY'

Line 2132: RAISE FND_API.G_EXC_ERROR;

2128: --RRS_HIER_SAME_DEST_SOURCE
2129: FND_MESSAGE.set_name('RRS', 'RRS_HIER_SAME_DEST_SOURCE');
2130: FND_MSG_PUB.add;
2131: --dbms_output.put_line('dest hier cannot be the same as source hier');
2132: RAISE FND_API.G_EXC_ERROR;
2133: END IF;
2134:
2135: --cannot move into its subtree for MOVE transaction
2136: IF p_hier_members_rec.transaction_type = 'MOVE' THEN

Line 2153: RAISE FND_API.G_EXC_ERROR;

2149: --RRS_PARENT_DEST_UNDER_SOURCE
2150: FND_MESSAGE.set_name('RRS', 'RRS_PARENT_DEST_UNDER_SOURCE');
2151: FND_MSG_PUB.add;
2152: --dbms_output.put_line('Cannot move a site/node under its child');
2153: RAISE FND_API.G_EXC_ERROR;
2154: END IF;
2155: END IF;
2156:
2157: --delete rows in RRS_SITE_GROUP_MEMBERS_TEMP

Line 2178: RAISE FND_API.G_EXC_ERROR;

2174: FND_MESSAGE.set_token('TYPE', p_hier_members_rec.child_object_type);
2175: FND_MESSAGE.set_token('HIERARCHY_NAME', p_hier_members_rec.dest_hier_name);
2176: FND_MSG_PUB.add;
2177: --dbms_output.put_line('Child already exists in the destination hierarchy ');
2178: RAISE FND_API.G_EXC_ERROR;
2179: END IF;
2180: END IF;
2181:
2182: --insert into members temp table

Line 2202: RAISE FND_API.G_EXC_ERROR;

2198: FND_MESSAGE.set_name('RRS', 'RRS_DUPLICATED_NODE_NAME');
2199: FND_MESSAGE.set_token('NODE_NAME', v_child_name);
2200: FND_MSG_PUB.add;
2201: --dbms_output.put_line('Duplicated node names under the dest parent');
2202: RAISE FND_API.G_EXC_ERROR;
2203: END IF;
2204: END IF;
2205:
2206: --dbms_output.put_line('before insert into temp table 1');

Line 2274: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

2270: p_hier_purpose_code => v_dest_hier_purpose_code,
2271: x_return_status => x_return_status,
2272: x_msg_data => x_msg_data);
2273:
2274: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2275: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2276: RAISE FND_API.G_EXC_ERROR;
2277: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 2275: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

2271: x_return_status => x_return_status,
2272: x_msg_data => x_msg_data);
2273:
2274: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2275: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2276: RAISE FND_API.G_EXC_ERROR;
2277: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2279: END IF;

Line 2276: RAISE FND_API.G_EXC_ERROR;

2272: x_msg_data => x_msg_data);
2273:
2274: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2275: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2276: RAISE FND_API.G_EXC_ERROR;
2277: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2279: END IF;
2280: END IF;

Line 2277: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

2273:
2274: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2275: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2276: RAISE FND_API.G_EXC_ERROR;
2277: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2279: END IF;
2280: END IF;
2281:

Line 2278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2274: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2275: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2276: RAISE FND_API.G_EXC_ERROR;
2277: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2279: END IF;
2280: END IF;
2281:
2282: END IF;

Line 2337: RAISE FND_API.G_EXC_ERROR;

2333: FND_MESSAGE.set_name('RRS', 'RRS_INVALID_TYPE');
2334: FND_MESSAGE.set_token('TYPE', p_hier_members_rec.transaction_type);
2335: FND_MSG_PUB.add;
2336: --dbms_output.put_line('invalid transaction type');
2337: RAISE FND_API.G_EXC_ERROR;
2338: END IF;
2339:
2340: IF FND_API.To_Boolean(p_commit) THEN
2341: COMMIT;

Line 2340: IF FND_API.To_Boolean(p_commit) THEN

2336: --dbms_output.put_line('invalid transaction type');
2337: RAISE FND_API.G_EXC_ERROR;
2338: END IF;
2339:
2340: IF FND_API.To_Boolean(p_commit) THEN
2341: COMMIT;
2342: END IF;
2343:
2344: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 2344: x_return_status := FND_API.G_RET_STS_SUCCESS;

2340: IF FND_API.To_Boolean(p_commit) THEN
2341: COMMIT;
2342: END IF;
2343:
2344: x_return_status := FND_API.G_RET_STS_SUCCESS;
2345:
2346: EXCEPTION
2347: WHEN FND_API.G_EXC_ERROR THEN
2348: ROLLBACK TO Update_Hierarchy_Fine;

Line 2347: WHEN FND_API.G_EXC_ERROR THEN

2343:
2344: x_return_status := FND_API.G_RET_STS_SUCCESS;
2345:
2346: EXCEPTION
2347: WHEN FND_API.G_EXC_ERROR THEN
2348: ROLLBACK TO Update_Hierarchy_Fine;
2349: x_msg_count := FND_MSG_PUB.Count_Msg;
2350: x_return_status := FND_API.G_RET_STS_ERROR;
2351: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 2350: x_return_status := FND_API.G_RET_STS_ERROR;

2346: EXCEPTION
2347: WHEN FND_API.G_EXC_ERROR THEN
2348: ROLLBACK TO Update_Hierarchy_Fine;
2349: x_msg_count := FND_MSG_PUB.Count_Msg;
2350: x_return_status := FND_API.G_RET_STS_ERROR;
2351: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2352: ROLLBACK TO Update_Hierarchy_Fine;
2353: x_msg_data := G_PKG_NAME || '.Update_Hierarchy_Fine:' || x_msg_data;
2354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 2351: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2347: WHEN FND_API.G_EXC_ERROR THEN
2348: ROLLBACK TO Update_Hierarchy_Fine;
2349: x_msg_count := FND_MSG_PUB.Count_Msg;
2350: x_return_status := FND_API.G_RET_STS_ERROR;
2351: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2352: ROLLBACK TO Update_Hierarchy_Fine;
2353: x_msg_data := G_PKG_NAME || '.Update_Hierarchy_Fine:' || x_msg_data;
2354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2355: WHEN OTHERS THEN

Line 2354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2350: x_return_status := FND_API.G_RET_STS_ERROR;
2351: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2352: ROLLBACK TO Update_Hierarchy_Fine;
2353: x_msg_data := G_PKG_NAME || '.Update_Hierarchy_Fine:' || x_msg_data;
2354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2355: WHEN OTHERS THEN
2356: ROLLBACK TO Update_Hierarchy_Fine;
2357: x_msg_data := G_PKG_NAME || '.Update_Hierarchy_Fine:' || SQLERRM;
2358: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 2358: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2355: WHEN OTHERS THEN
2356: ROLLBACK TO Update_Hierarchy_Fine;
2357: x_msg_data := G_PKG_NAME || '.Update_Hierarchy_Fine:' || SQLERRM;
2358: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2359: END Update_Hierarchy_Fine;
2360:
2361: -- Hierarchy and Hierarchy Association Validation API
2362: procedure Validate_Hierarchy_Status(

Line 2415: RAISE FND_API.G_EXC_ERROR;

2411: FND_MESSAGE.set_name('RRS', 'RRS_NO_HIER_ID_FOUND');
2412: FND_MESSAGE.set_token('ID', p_hier_id);
2413: FND_MSG_PUB.add;
2414: --dbms_output.put_line('invalid dest hier id: '||p_hier_id);
2415: RAISE FND_API.G_EXC_ERROR;
2416: END;
2417:
2418: --RulesFwk
2419: --dbms_output.put_line('before RulesFwk');

Line 2463: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

2459: p_hier_purpose_code => v_hier_purpose_code,
2460: x_return_status => x_return_status,
2461: x_msg_data => x_msg_data);
2462:
2463: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2464: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2465: RAISE FND_API.G_EXC_ERROR;
2466: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 2464: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

2460: x_return_status => x_return_status,
2461: x_msg_data => x_msg_data);
2462:
2463: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2464: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2465: RAISE FND_API.G_EXC_ERROR;
2466: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2468: END IF;

Line 2465: RAISE FND_API.G_EXC_ERROR;

2461: x_msg_data => x_msg_data);
2462:
2463: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2464: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2465: RAISE FND_API.G_EXC_ERROR;
2466: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2468: END IF;
2469: END IF;

Line 2466: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

2462:
2463: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2464: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2465: RAISE FND_API.G_EXC_ERROR;
2466: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2468: END IF;
2469: END IF;
2470:

Line 2467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2463: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2464: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2465: RAISE FND_API.G_EXC_ERROR;
2466: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2468: END IF;
2469: END IF;
2470:
2471: END IF;

Line 2473: x_return_status := FND_API.G_RET_STS_SUCCESS;

2469: END IF;
2470:
2471: END IF;
2472:
2473: x_return_status := FND_API.G_RET_STS_SUCCESS;
2474:
2475: EXCEPTION
2476: WHEN FND_API.G_EXC_ERROR THEN
2477: x_msg_count := FND_MSG_PUB.Count_Msg;

Line 2476: WHEN FND_API.G_EXC_ERROR THEN

2472:
2473: x_return_status := FND_API.G_RET_STS_SUCCESS;
2474:
2475: EXCEPTION
2476: WHEN FND_API.G_EXC_ERROR THEN
2477: x_msg_count := FND_MSG_PUB.Count_Msg;
2478: x_return_status := FND_API.G_RET_STS_ERROR;
2479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2480: x_msg_data := G_PKG_NAME || '.Validate_Hierarchy_Status:' || x_msg_data;

Line 2478: x_return_status := FND_API.G_RET_STS_ERROR;

2474:
2475: EXCEPTION
2476: WHEN FND_API.G_EXC_ERROR THEN
2477: x_msg_count := FND_MSG_PUB.Count_Msg;
2478: x_return_status := FND_API.G_RET_STS_ERROR;
2479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2480: x_msg_data := G_PKG_NAME || '.Validate_Hierarchy_Status:' || x_msg_data;
2481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2482: WHEN OTHERS THEN

Line 2479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2475: EXCEPTION
2476: WHEN FND_API.G_EXC_ERROR THEN
2477: x_msg_count := FND_MSG_PUB.Count_Msg;
2478: x_return_status := FND_API.G_RET_STS_ERROR;
2479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2480: x_msg_data := G_PKG_NAME || '.Validate_Hierarchy_Status:' || x_msg_data;
2481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2482: WHEN OTHERS THEN
2483: x_msg_data := G_PKG_NAME || '.Validate_Hierarchy_Status:' || SQLERRM;

Line 2481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2477: x_msg_count := FND_MSG_PUB.Count_Msg;
2478: x_return_status := FND_API.G_RET_STS_ERROR;
2479: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2480: x_msg_data := G_PKG_NAME || '.Validate_Hierarchy_Status:' || x_msg_data;
2481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2482: WHEN OTHERS THEN
2483: x_msg_data := G_PKG_NAME || '.Validate_Hierarchy_Status:' || SQLERRM;
2484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2485: END Validate_Hierarchy_Status;

Line 2484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2480: x_msg_data := G_PKG_NAME || '.Validate_Hierarchy_Status:' || x_msg_data;
2481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2482: WHEN OTHERS THEN
2483: x_msg_data := G_PKG_NAME || '.Validate_Hierarchy_Status:' || SQLERRM;
2484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2485: END Validate_Hierarchy_Status;
2486:
2487: procedure Validate_Hierarchy_Association(
2488: p_hier_id IN VARCHAR2,

Line 2521: RAISE FND_API.G_EXC_ERROR;

2517: FND_MESSAGE.set_name('RRS', 'RRS_NO_HIER_ID_FOUND');
2518: FND_MESSAGE.set_token('ID', p_hier_id);
2519: FND_MSG_PUB.add;
2520: --dbms_output.put_line('invalid dest hier id: '||p_hier_id);
2521: RAISE FND_API.G_EXC_ERROR;
2522: END;
2523:
2524: --get parent and child info
2525: IF p_parent_object_type = 'SITE' THEN

Line 2539: RAISE FND_API.G_EXC_ERROR;

2535: --RRS_NO_SITE_FOUND
2536: FND_MESSAGE.set_name('RRS', 'RRS_NO_SITE_FOUND');
2537: FND_MESSAGE.set_token('SITE_ID_NUM', p_parent_id);
2538: FND_MSG_PUB.add;
2539: RAISE FND_API.G_EXC_ERROR;
2540: END;
2541: ELSIF p_parent_object_type = 'NODE' THEN
2542: BEGIN
2543: SELECT NODE_IDENTIFICATION_NUMBER, NODE_PURPOSE_CODE

Line 2553: RAISE FND_API.G_EXC_ERROR;

2549: --RRS_NO_NODE_FOUND
2550: FND_MESSAGE.set_name('RRS', 'RRS_NO_NODE_FOUND');
2551: FND_MESSAGE.set_token('NODE_ID_NUM', p_parent_id);
2552: FND_MSG_PUB.add;
2553: RAISE FND_API.G_EXC_ERROR;
2554: END;
2555: ELSE
2556: --RRS_INVALID_TYPE
2557: FND_MESSAGE.set_name('RRS', 'RRS_INVALID_TYPE');

Line 2560: RAISE FND_API.G_EXC_ERROR;

2556: --RRS_INVALID_TYPE
2557: FND_MESSAGE.set_name('RRS', 'RRS_INVALID_TYPE');
2558: FND_MESSAGE.set_token('TYPE', p_parent_object_type);
2559: FND_MSG_PUB.add;
2560: RAISE FND_API.G_EXC_ERROR;
2561: END IF;
2562:
2563: IF p_child_object_type = 'SITE' THEN
2564: BEGIN

Line 2577: RAISE FND_API.G_EXC_ERROR;

2573: --RRS_NO_SITE_FOUND
2574: FND_MESSAGE.set_name('RRS', 'RRS_NO_SITE_FOUND');
2575: FND_MESSAGE.set_token('SITE_ID_NUM', p_child_id);
2576: FND_MSG_PUB.add;
2577: RAISE FND_API.G_EXC_ERROR;
2578: END;
2579: ELSIF p_child_object_type = 'NODE' THEN
2580: BEGIN
2581: SELECT NODE_IDENTIFICATION_NUMBER, NODE_PURPOSE_CODE

Line 2591: RAISE FND_API.G_EXC_ERROR;

2587: --RRS_NO_NODE_FOUND
2588: FND_MESSAGE.set_name('RRS', 'RRS_NO_NODE_FOUND');
2589: FND_MESSAGE.set_token('NODE_ID_NUM', p_child_id);
2590: FND_MSG_PUB.add;
2591: RAISE FND_API.G_EXC_ERROR;
2592: END;
2593: ELSE
2594: --RRS_INVALID_TYPE
2595: FND_MESSAGE.set_name('RRS', 'RRS_INVALID_TYPE');

Line 2598: RAISE FND_API.G_EXC_ERROR;

2594: --RRS_INVALID_TYPE
2595: FND_MESSAGE.set_name('RRS', 'RRS_INVALID_TYPE');
2596: FND_MESSAGE.set_token('TYPE', p_child_object_type);
2597: FND_MSG_PUB.add;
2598: RAISE FND_API.G_EXC_ERROR;
2599: END IF;
2600:
2601: --child id should not appear in the dest hier
2602: SELECT COUNT(*)

Line 2615: RAISE FND_API.G_EXC_ERROR;

2611: FND_MESSAGE.set_token('TYPE', p_child_object_type);
2612: FND_MESSAGE.set_token('HIERARCHY_NAME', v_hier_name);
2613: FND_MSG_PUB.add;
2614: --dbms_output.put_line('Child already exists in the destination hierarchy: '||v_child_id_number);
2615: RAISE FND_API.G_EXC_ERROR;
2616: END IF;
2617:
2618: --dbms_output.put_line(v_hier_purpose_code||' '||v_parent_purpose_code||' '||v_child_purpose_code);
2619:

Line 2636: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

2632: x_return_status => x_return_status,
2633: x_msg_data => x_msg_data
2634: );
2635:
2636: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2637: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2638: RAISE FND_API.G_EXC_ERROR;
2639: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2640: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 2637: IF x_return_status = FND_API.G_RET_STS_ERROR THEN

2633: x_msg_data => x_msg_data
2634: );
2635:
2636: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2637: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2638: RAISE FND_API.G_EXC_ERROR;
2639: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2640: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2641: END IF;

Line 2638: RAISE FND_API.G_EXC_ERROR;

2634: );
2635:
2636: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2637: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2638: RAISE FND_API.G_EXC_ERROR;
2639: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2640: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2641: END IF;
2642: END IF;

Line 2639: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN

2635:
2636: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2637: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2638: RAISE FND_API.G_EXC_ERROR;
2639: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2640: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2641: END IF;
2642: END IF;
2643:

Line 2640: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2636: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2637: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2638: RAISE FND_API.G_EXC_ERROR;
2639: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2640: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2641: END IF;
2642: END IF;
2643:
2644: END IF;

Line 2646: x_return_status := FND_API.G_RET_STS_SUCCESS;

2642: END IF;
2643:
2644: END IF;
2645:
2646: x_return_status := FND_API.G_RET_STS_SUCCESS;
2647:
2648: EXCEPTION
2649: WHEN FND_API.G_EXC_ERROR THEN
2650: x_msg_count := FND_MSG_PUB.Count_Msg;

Line 2649: WHEN FND_API.G_EXC_ERROR THEN

2645:
2646: x_return_status := FND_API.G_RET_STS_SUCCESS;
2647:
2648: EXCEPTION
2649: WHEN FND_API.G_EXC_ERROR THEN
2650: x_msg_count := FND_MSG_PUB.Count_Msg;
2651: x_return_status := FND_API.G_RET_STS_ERROR;
2652: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2653: x_msg_data := G_PKG_NAME || '.Validate_Hierarchy_Association:' || x_msg_data;

Line 2651: x_return_status := FND_API.G_RET_STS_ERROR;

2647:
2648: EXCEPTION
2649: WHEN FND_API.G_EXC_ERROR THEN
2650: x_msg_count := FND_MSG_PUB.Count_Msg;
2651: x_return_status := FND_API.G_RET_STS_ERROR;
2652: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2653: x_msg_data := G_PKG_NAME || '.Validate_Hierarchy_Association:' || x_msg_data;
2654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2655: WHEN OTHERS THEN

Line 2652: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2648: EXCEPTION
2649: WHEN FND_API.G_EXC_ERROR THEN
2650: x_msg_count := FND_MSG_PUB.Count_Msg;
2651: x_return_status := FND_API.G_RET_STS_ERROR;
2652: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2653: x_msg_data := G_PKG_NAME || '.Validate_Hierarchy_Association:' || x_msg_data;
2654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2655: WHEN OTHERS THEN
2656: x_msg_data := G_PKG_NAME || '.Validate_Hierarchy_Association:' || SQLERRM;

Line 2654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2650: x_msg_count := FND_MSG_PUB.Count_Msg;
2651: x_return_status := FND_API.G_RET_STS_ERROR;
2652: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2653: x_msg_data := G_PKG_NAME || '.Validate_Hierarchy_Association:' || x_msg_data;
2654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2655: WHEN OTHERS THEN
2656: x_msg_data := G_PKG_NAME || '.Validate_Hierarchy_Association:' || SQLERRM;
2657: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2658: END Validate_Hierarchy_Association;

Line 2657: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2653: x_msg_data := G_PKG_NAME || '.Validate_Hierarchy_Association:' || x_msg_data;
2654: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2655: WHEN OTHERS THEN
2656: x_msg_data := G_PKG_NAME || '.Validate_Hierarchy_Association:' || SQLERRM;
2657: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2658: END Validate_Hierarchy_Association;
2659:
2660: -------Testing procedures------
2661: /*