25:
26:
27: PROCEDURE Create_Directory_Node(
28: P_Api_Version_Number IN NUMBER,
29: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
30: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
31: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
32: P_Directory_Node_Rec IN Ibc_Directory_Node_Grp.Directory_Node_Rec_Type := Ibc_Directory_Node_Grp.G_MISS_Directory_Node_Rec,
33: p_parent_dir_node_id IN NUMBER,
26:
27: PROCEDURE Create_Directory_Node(
28: P_Api_Version_Number IN NUMBER,
29: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
30: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
31: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
32: P_Directory_Node_Rec IN Ibc_Directory_Node_Grp.Directory_Node_Rec_Type := Ibc_Directory_Node_Grp.G_MISS_Directory_Node_Rec,
33: p_parent_dir_node_id IN NUMBER,
34: x_Directory_Node_Rec OUT NOCOPY Ibc_Directory_Node_Grp.Directory_Node_Rec_Type,
27: PROCEDURE Create_Directory_Node(
28: P_Api_Version_Number IN NUMBER,
29: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
30: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
31: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
32: P_Directory_Node_Rec IN Ibc_Directory_Node_Grp.Directory_Node_Rec_Type := Ibc_Directory_Node_Grp.G_MISS_Directory_Node_Rec,
33: p_parent_dir_node_id IN NUMBER,
34: x_Directory_Node_Rec OUT NOCOPY Ibc_Directory_Node_Grp.Directory_Node_Rec_Type,
35: X_Return_Status OUT NOCOPY VARCHAR2,
45: AND directory_node_id IN (SELECT child_dir_node_id
46: FROM IBC_DIRECTORY_NODE_RELS WHERE parent_dir_node_id = P_parent_dir_node_id);
47:
48: l_temp CHAR(1);
49: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
50:
51: l_api_version_number NUMBER := 1.0;
52: l_api_name VARCHAR2(50) := 'Create_Directory_Node';
53: l_Directory_Node_Code VARCHAR2(100);
60:
61: BEGIN
62:
63: -- Initialize API return status to SUCCESS
64: x_return_status := FND_API.G_RET_STS_SUCCESS;
65:
66: --
67: -- API body
68: --
77: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
78: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
79: FND_MSG_PUB.ADD;
80: END IF;
81: RAISE FND_API.G_EXC_ERROR;
82: END IF;
83:
84: -- Check for all the NOT NULL Columns
85: -- Directory_Node_Code Cannot be NULL
83:
84: -- Check for all the NOT NULL Columns
85: -- Directory_Node_Code Cannot be NULL
86: Ibc_Validate_Pvt.Validate_NotNULL_VARCHAR2 (
87: p_init_msg_list => FND_API.G_FALSE,
88: p_column_name => 'Directory_Node_Code',
89: p_notnull_column=> l_Directory_Node_rec.Directory_Node_code,
90: x_return_status => x_return_status,
91: x_msg_count => x_msg_count,
92: x_msg_data => x_msg_data);
93:
94: -- Don't RAISE the EXCEPTION Yet. RUN ALL the validation procedures
95: -- and show Exceptions all at once.
96: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
97: l_return_status := x_return_status;
98: END IF;
99:
100: -- Directory_Node_Name Cannot be NULL
98: END IF;
99:
100: -- Directory_Node_Name Cannot be NULL
101: Ibc_Validate_Pvt.Validate_NotNULL_VARCHAR2 (
102: p_init_msg_list => FND_API.G_FALSE,
103: p_column_name => 'Directory_Node_Name',
104: p_notnull_column=> l_Directory_Node_rec.Directory_Node_Name,
105: x_return_status => x_return_status,
106: x_msg_count => x_msg_count,
105: x_return_status => x_return_status,
106: x_msg_count => x_msg_count,
107: x_msg_data => x_msg_data);
108:
109: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
110: l_return_status := x_return_status;
111: END IF;
112:
113:
112:
113:
114: -- Node_Type Cannot be NULL
115: Ibc_Validate_Pvt.Validate_NotNULL_VARCHAR2 (
116: p_init_msg_list => FND_API.G_FALSE,
117: p_column_name => 'Node_Type',
118: p_notnull_column=> l_Directory_Node_rec.Node_Type,
119: x_return_status => x_return_status,
120: x_msg_count => x_msg_count,
119: x_return_status => x_return_status,
120: x_msg_count => x_msg_count,
121: x_msg_data => x_msg_data);
122:
123: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
124: l_return_status := x_return_status;
125: END IF;
126:
127:
134: FND_MESSAGE.Set_Token('COLUMN', 'Directory_Node_Code', FALSE);
135: FND_MSG_PUB.ADD;
136: END IF;
137: CLOSE C_Directory_Node;
138: RAISE FND_API.G_EXC_ERROR;
139: END IF;
140: CLOSE C_Directory_Node;
141:
142:
141:
142:
143: -- Validate Object Version Number
144: IF l_Directory_Node_rec.OBJECT_VERSION_NUMBER IS NULL
145: OR l_Directory_Node_rec.OBJECT_VERSION_NUMBER = FND_API.G_MISS_NUM THEN
146: l_Directory_Node_rec.OBJECT_VERSION_NUMBER := 1;
147: END IF;
148:
149: --
184: p_LAST_UPDATE_LOGIN => l_Directory_Node_rec.LAST_UPDATE_LOGIN ,
185: p_OBJECT_VERSION_NUMBER => l_Directory_Node_rec.OBJECT_VERSION_NUMBER);
186:
187:
188: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
189: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
190: FND_MESSAGE.Set_Name('IBC', 'IBC_INSERT_ERROR');
191: FND_MSG_PUB.ADD;
192: END IF;
190: FND_MESSAGE.Set_Name('IBC', 'IBC_INSERT_ERROR');
191: FND_MSG_PUB.ADD;
192: END IF;
193:
194: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
197: RAISE FND_API.G_EXC_ERROR;
198: END IF;
191: FND_MSG_PUB.ADD;
192: END IF;
193:
194: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
197: RAISE FND_API.G_EXC_ERROR;
198: END IF;
199: END IF;
192: END IF;
193:
194: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
197: RAISE FND_API.G_EXC_ERROR;
198: END IF;
199: END IF;
200:
193:
194: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
197: RAISE FND_API.G_EXC_ERROR;
198: END IF;
199: END IF;
200:
201: x_Directory_Node_rec := Query_Directory_Node_Row(l_Directory_Node_rec.DIRECTORY_NODE_ID);
205: -- End of API body
206: --
207:
208: -- Standard check for p_commit
209: IF FND_API.to_Boolean( p_commit )
210: THEN
211: COMMIT WORK;
212: END IF;
213:
218: );
219:
220:
221: EXCEPTION
222: WHEN FND_API.G_EXC_ERROR THEN
223: ROLLBACK;
224: Ibc_Utilities_Pvt.HANDLE_EXCEPTIONS(
225: P_API_NAME => L_API_NAME
226: ,P_PKG_NAME => G_PKG_NAME
231: ,X_MSG_COUNT => X_MSG_COUNT
232: ,X_MSG_DATA => X_MSG_DATA
233: ,X_RETURN_STATUS => X_RETURN_STATUS);
234:
235: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
236: ROLLBACK;
237: Ibc_Utilities_Pvt.HANDLE_EXCEPTIONS(
238: P_API_NAME => L_API_NAME
239: ,P_PKG_NAME => G_PKG_NAME
263:
264:
265: PROCEDURE Move_Directory_Node(
266: P_Api_Version_Number IN NUMBER,
267: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
268: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
269: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
270: p_Current_parent_node_id IN NUMBER,
271: p_New_parent_node_id IN NUMBER,
264:
265: PROCEDURE Move_Directory_Node(
266: P_Api_Version_Number IN NUMBER,
267: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
268: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
269: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
270: p_Current_parent_node_id IN NUMBER,
271: p_New_parent_node_id IN NUMBER,
272: p_Directory_node_id IN NUMBER,
265: PROCEDURE Move_Directory_Node(
266: P_Api_Version_Number IN NUMBER,
267: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
268: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
269: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
270: p_Current_parent_node_id IN NUMBER,
271: p_New_parent_node_id IN NUMBER,
272: p_Directory_node_id IN NUMBER,
273: X_Return_Status OUT NOCOPY VARCHAR2,
278:
279:
280:
281: l_temp CHAR(1);
282: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
283:
284: l_api_version_number NUMBER := 1.0;
285: l_api_name VARCHAR2(50) := 'MOve_Directory_Node';
286: l_Directory_Node_Code VARCHAR2(100);
300: BEGIN
301:
302:
303: -- Initialize API return status to SUCCESS
304: x_return_status := FND_API.G_RET_STS_SUCCESS;
305:
306: --
307: -- API body
308: --
317: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
318: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
319: FND_MSG_PUB.ADD;
320: END IF;
321: RAISE FND_API.G_EXC_ERROR;
322: END IF;
323:
324: l_Directory_Node_Rec := Query_directory_Node_row(p_directory_node_id);
325:
326:
327: -- Check for all the NOT NULL Columns
328: -- Directory_Node_Code Cannot be NULL
329: Ibc_Validate_Pvt.Validate_NotNULL_VARCHAR2 (
330: p_init_msg_list => FND_API.G_FALSE,
331: p_column_name => 'Directory_Node_id',
332: p_notnull_column=> p_current_parent_node_id,
333: x_return_status => x_return_status,
334: x_msg_count => x_msg_count,
335: x_msg_data => x_msg_data);
336:
337: -- Don't RAISE the EXCEPTION Yet. RUN ALL the validation procedures
338: -- and show Exceptions all at once.
339: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
340: l_return_status := x_return_status;
341: END IF;
342:
343: -- Don't RAISE the EXCEPTION Yet. RUN ALL the validation procedures
344: -- and show Exceptions all at once.
345: -- Check for all the NOT NULL Columns
346: -- Directory_Node_Code Cannot be NULL
347: Ibc_Validate_Pvt.Validate_NotNULL_VARCHAR2 (
348: p_init_msg_list => FND_API.G_FALSE,
349: p_column_name => 'Directory_Node_id',
350: p_notnull_column=> p_New_parent_node_id,
351: x_return_status => x_return_status,
352: x_msg_count => x_msg_count,
353: x_msg_data => x_msg_data);
354:
355: -- Don't RAISE the EXCEPTION Yet. RUN ALL the validation procedures
356: -- and show Exceptions all at once.
357: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
358: l_return_status := x_return_status;
359: END IF;
360:
361: -- Check If the Directory Node Exists under the New Parent
368: FND_MESSAGE.Set_Token('COLUMN', 'Directory_Node_Code', FALSE);
369: FND_MSG_PUB.ADD;
370: END IF;
371: CLOSE C_Directory_Node;
372: RAISE FND_API.G_EXC_ERROR;
373: END IF;
374: CLOSE C_Directory_Node;
375:
376:
392: p_LAST_UPDATE_LOGIN => l_Directory_Node_rec.LAST_UPDATE_LOGIN ,
393: p_OBJECT_VERSION_NUMBER => l_Directory_Node_rec.OBJECT_VERSION_NUMBER);
394:
395:
396: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
397: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
398: FND_MESSAGE.Set_Name('IBC', 'IBC_UPDATE_ERROR');
399: FND_MSG_PUB.ADD;
400: END IF;
398: FND_MESSAGE.Set_Name('IBC', 'IBC_UPDATE_ERROR');
399: FND_MSG_PUB.ADD;
400: END IF;
401:
402: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
404: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
405: RAISE FND_API.G_EXC_ERROR;
406: END IF;
399: FND_MSG_PUB.ADD;
400: END IF;
401:
402: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
404: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
405: RAISE FND_API.G_EXC_ERROR;
406: END IF;
407: END IF;
400: END IF;
401:
402: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
404: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
405: RAISE FND_API.G_EXC_ERROR;
406: END IF;
407: END IF;
408:
401:
402: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
403: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
404: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
405: RAISE FND_API.G_EXC_ERROR;
406: END IF;
407: END IF;
408:
409: --
411: --
412:
413:
414: -- Standard check for p_commit
415: IF FND_API.to_Boolean( p_commit )
416: THEN
417: COMMIT WORK;
418: END IF;
419:
423: p_data => x_msg_data
424: );
425:
426: EXCEPTION
427: WHEN FND_API.G_EXC_ERROR THEN
428: ROLLBACK;
429: Ibc_Utilities_Pvt.HANDLE_EXCEPTIONS(
430: P_API_NAME => L_API_NAME
431: ,P_PKG_NAME => G_PKG_NAME
436: ,X_MSG_COUNT => X_MSG_COUNT
437: ,X_MSG_DATA => X_MSG_DATA
438: ,X_RETURN_STATUS => X_RETURN_STATUS);
439:
440: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
441: ROLLBACK;
442: Ibc_Utilities_Pvt.HANDLE_EXCEPTIONS(
443: P_API_NAME => L_API_NAME
444: ,P_PKG_NAME => G_PKG_NAME
467:
468:
469: PROCEDURE Update_Directory_Node(
470: P_Api_Version_Number IN NUMBER,
471: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
472: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
473: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
474: P_Directory_Node_Rec IN Ibc_Directory_Node_Grp.Directory_Node_Rec_Type := Ibc_Directory_Node_Grp.G_MISS_Directory_Node_Rec,
475: p_parent_dir_node_id IN NUMBER,
468:
469: PROCEDURE Update_Directory_Node(
470: P_Api_Version_Number IN NUMBER,
471: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
472: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
473: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
474: P_Directory_Node_Rec IN Ibc_Directory_Node_Grp.Directory_Node_Rec_Type := Ibc_Directory_Node_Grp.G_MISS_Directory_Node_Rec,
475: p_parent_dir_node_id IN NUMBER,
476: x_Directory_Node_Rec OUT NOCOPY Ibc_Directory_Node_Grp.Directory_Node_Rec_Type,
469: PROCEDURE Update_Directory_Node(
470: P_Api_Version_Number IN NUMBER,
471: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
472: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
473: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
474: P_Directory_Node_Rec IN Ibc_Directory_Node_Grp.Directory_Node_Rec_Type := Ibc_Directory_Node_Grp.G_MISS_Directory_Node_Rec,
475: p_parent_dir_node_id IN NUMBER,
476: x_Directory_Node_Rec OUT NOCOPY Ibc_Directory_Node_Grp.Directory_Node_Rec_Type,
477: X_Return_Status OUT NOCOPY VARCHAR2,
490: AND Directory_Node_id <> P_Directory_Node_Rec.directory_node_id;
491:
492:
493: l_temp CHAR(1);
494: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
495:
496: l_api_version_number NUMBER := 1.0;
497: l_api_name VARCHAR2(50) := 'Update_Directory_Node';
498: l_Directory_Node_Code VARCHAR2(100);
503:
504: BEGIN
505:
506: -- Initialize API return status to SUCCESS
507: x_return_status := FND_API.G_RET_STS_SUCCESS;
508:
509: --
510: -- API body
511: --
520: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
521: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
522: FND_MSG_PUB.ADD;
523: END IF;
524: RAISE FND_API.G_EXC_ERROR;
525: END IF;
526:
527:
528: -- Check for all the NOT NULL Columns
527:
528: -- Check for all the NOT NULL Columns
529: -- Directory_Node_Code Cannot be NULL
530: Ibc_Validate_Pvt.Validate_NotNULL_VARCHAR2 (
531: p_init_msg_list => FND_API.G_FALSE,
532: p_column_name => 'Directory_Node_id',
533: p_notnull_column=> l_Directory_Node_rec.Directory_Node_id,
534: x_return_status => x_return_status,
535: x_msg_count => x_msg_count,
536: x_msg_data => x_msg_data);
537:
538: -- Don't RAISE the EXCEPTION Yet. RUN ALL the validation procedures
539: -- and show Exceptions all at once.
540: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
541: l_return_status := x_return_status;
542: END IF;
543:
544: -- Don't RAISE the EXCEPTION Yet. RUN ALL the validation procedures
542: END IF;
543:
544: -- Don't RAISE the EXCEPTION Yet. RUN ALL the validation procedures
545: -- and show Exceptions all at once.
546: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
547: l_return_status := x_return_status;
548: END IF;
549:
550: -- Check If the Record Exists
557: FND_MESSAGE.Set_Token('COLUMN', 'Directory_Node_Code', FALSE);
558: FND_MSG_PUB.ADD;
559: END IF;
560: CLOSE C_Directory_Node;
561: RAISE FND_API.G_EXC_ERROR;
562: END IF;
563: CLOSE C_Directory_Node;
564:
565:
589: -- p_LAST_UPDATE_LOGIN => l_Directory_Node_rec.LAST_UPDATE_LOGIN ,
590: -- p_OBJECT_VERSION_NUMBER => l_Directory_Node_rec.OBJECT_VERSION_NUMBER);
591:
592:
593: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
594: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
595: FND_MESSAGE.Set_Name('IBC', 'IBC_UPDATE_ERROR');
596: FND_MSG_PUB.ADD;
597: END IF;
595: FND_MESSAGE.Set_Name('IBC', 'IBC_UPDATE_ERROR');
596: FND_MSG_PUB.ADD;
597: END IF;
598:
599: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
600: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
601: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
602: RAISE FND_API.G_EXC_ERROR;
603: END IF;
596: FND_MSG_PUB.ADD;
597: END IF;
598:
599: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
600: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
601: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
602: RAISE FND_API.G_EXC_ERROR;
603: END IF;
604: END IF;
597: END IF;
598:
599: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
600: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
601: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
602: RAISE FND_API.G_EXC_ERROR;
603: END IF;
604: END IF;
605:
598:
599: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
600: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
601: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
602: RAISE FND_API.G_EXC_ERROR;
603: END IF;
604: END IF;
605:
606: --
609:
610: x_Directory_Node_rec := Query_Directory_Node_Row(l_Directory_Node_rec.DIRECTORY_NODE_ID);
611:
612: -- Standard check for p_commit
613: IF FND_API.to_Boolean( p_commit )
614: THEN
615: COMMIT WORK;
616: END IF;
617:
621: p_data => x_msg_data
622: );
623:
624: EXCEPTION
625: WHEN FND_API.G_EXC_ERROR THEN
626: ROLLBACK;
627: Ibc_Utilities_Pvt.HANDLE_EXCEPTIONS(
628: P_API_NAME => L_API_NAME
629: ,P_PKG_NAME => G_PKG_NAME
634: ,X_MSG_COUNT => X_MSG_COUNT
635: ,X_MSG_DATA => X_MSG_DATA
636: ,X_RETURN_STATUS => X_RETURN_STATUS);
637:
638: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
639: ROLLBACK;
640: Ibc_Utilities_Pvt.HANDLE_EXCEPTIONS(
641: P_API_NAME => L_API_NAME
642: ,P_PKG_NAME => G_PKG_NAME
665:
666:
667: PROCEDURE delete_Directory_Node(
668: P_Api_Version_Number IN NUMBER,
669: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
670: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
671: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
672: P_Directory_Node_id IN NUMBER,
673: X_Return_Status OUT NOCOPY VARCHAR2,
666:
667: PROCEDURE delete_Directory_Node(
668: P_Api_Version_Number IN NUMBER,
669: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
670: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
671: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
672: P_Directory_Node_id IN NUMBER,
673: X_Return_Status OUT NOCOPY VARCHAR2,
674: X_Msg_Count OUT NOCOPY NUMBER,
667: PROCEDURE delete_Directory_Node(
668: P_Api_Version_Number IN NUMBER,
669: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
670: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
671: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
672: P_Directory_Node_id IN NUMBER,
673: X_Return_Status OUT NOCOPY VARCHAR2,
674: X_Msg_Count OUT NOCOPY NUMBER,
675: X_Msg_Data OUT NOCOPY VARCHAR2
692: SELECT directory_node_id FROM ibc_content_items
693: WHERE directory_node_id = p_ci_dir_node_id;
694:
695:
696: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
697:
698: l_api_version_number NUMBER := 1.0;
699: l_api_name VARCHAR2(50) := 'Delete_Directory_Node';
700: l_Directory_Node_ID NUMBER;
701:
702: BEGIN
703:
704: -- Initialize API return status to SUCCESS
705: x_return_status := FND_API.G_RET_STS_SUCCESS;
706:
707: --
708: -- API body
709: --
718: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
719: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
720: FND_MSG_PUB.ADD;
721: END IF;
722: RAISE FND_API.G_EXC_ERROR;
723: END IF;
724:
725:
726: -- Check for all the NOT NULL Columns
725:
726: -- Check for all the NOT NULL Columns
727: -- Directory_Node_Code Cannot be NULL
728: Ibc_Validate_Pvt.Validate_NotNULL_NUMBER (
729: p_init_msg_list => FND_API.G_FALSE,
730: p_column_name => 'Directory_Node_ID',
731: p_notnull_column=> p_Directory_Node_ID,
732: x_return_status => x_return_status,
733: x_msg_count => x_msg_count,
734: x_msg_data => x_msg_data);
735:
736: -- Don't RAISE the EXCEPTION Yet. RUN ALL the validation procedures
737: -- and show Exceptions all at once.
738: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
739: l_return_status := x_return_status;
740: END IF;
741:
742:
749: FND_MESSAGE.Set_Token('COLUMN', 'Directory_Node_ID', FALSE);
750: FND_MSG_PUB.ADD;
751: END IF;
752: CLOSE C_Directory_Node;
753: RAISE FND_API.G_EXC_ERROR;
754: END IF;
755: CLOSE C_Directory_Node;
756:
757:
754: END IF;
755: CLOSE C_Directory_Node;
756:
757:
758: IF x_return_status<>FND_API.G_RET_STS_SUCCESS
759: OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
760: RAISE FND_API.G_EXC_ERROR;
761: END IF;
762:
755: CLOSE C_Directory_Node;
756:
757:
758: IF x_return_status<>FND_API.G_RET_STS_SUCCESS
759: OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
760: RAISE FND_API.G_EXC_ERROR;
761: END IF;
762:
763: --
756:
757:
758: IF x_return_status<>FND_API.G_RET_STS_SUCCESS
759: OR l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
760: RAISE FND_API.G_EXC_ERROR;
761: END IF;
762:
763: --
764: -- Table Handler to Delete Row from IBC_Directory_Node
775: FND_MESSAGE.Set_Token('COLUMN', 'Directory_Node_ID', FALSE);
776: FND_MSG_PUB.ADD;
777: END IF;
778: CLOSE C_Content_Item;
779: RAISE FND_API.G_EXC_ERROR;
780: END IF;
781: CLOSE C_Content_Item;
782:
783:
787: p_directory_node_rel_id =>i_rec.directory_node_rel_id);
788: END LOOP;
789:
790:
791: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
792: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
793: FND_MESSAGE.Set_Name('IBC', 'IBC_DELETE_ERROR');
794: FND_MSG_PUB.ADD;
795: END IF;
793: FND_MESSAGE.Set_Name('IBC', 'IBC_DELETE_ERROR');
794: FND_MSG_PUB.ADD;
795: END IF;
796:
797: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
799: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
800: RAISE FND_API.G_EXC_ERROR;
801: END IF;
794: FND_MSG_PUB.ADD;
795: END IF;
796:
797: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
799: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
800: RAISE FND_API.G_EXC_ERROR;
801: END IF;
802: END IF;
795: END IF;
796:
797: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
799: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
800: RAISE FND_API.G_EXC_ERROR;
801: END IF;
802: END IF;
803:
796:
797: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
798: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
799: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
800: RAISE FND_API.G_EXC_ERROR;
801: END IF;
802: END IF;
803:
804: --
805: -- End of API body
806: --
807:
808: -- Standard check for p_commit
809: IF FND_API.to_Boolean( p_commit )
810: THEN
811: COMMIT WORK;
812: END IF;
813:
818: );
819:
820:
821: EXCEPTION
822: WHEN FND_API.G_EXC_ERROR THEN
823: ROLLBACK;
824: Ibc_Utilities_Pvt.HANDLE_EXCEPTIONS(
825: P_API_NAME => L_API_NAME
826: ,P_PKG_NAME => G_PKG_NAME
831: ,X_MSG_COUNT => X_MSG_COUNT
832: ,X_MSG_DATA => X_MSG_DATA
833: ,X_RETURN_STATUS => X_RETURN_STATUS);
834:
835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
836: ROLLBACK;
837: Ibc_Utilities_Pvt.HANDLE_EXCEPTIONS(
838: P_API_NAME => L_API_NAME
839: ,P_PKG_NAME => G_PKG_NAME
903: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
904: FND_MESSAGE.Set_Name('IBC', 'Directory Node RECORD Error');
905: FND_MSG_PUB.ADD;
906: END IF;
907: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
908: END Query_Directory_Node_Row;
909:
910: FUNCTION get_directory_node_rec RETURN Ibc_Directory_Node_Grp.Directory_Node_rec_type
911: IS