73: IF FND_GLOBAL.User_Id IS NULL
74: THEN
75: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
76: THEN
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;
74: THEN
75: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
76: THEN
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;
129: OPEN C_Directory_Node;
130: FETCH C_Directory_Node INTO l_Directory_Node_Code;
131: IF C_Directory_Node%FOUND THEN
132: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
133: FND_MESSAGE.Set_Name('IBC', 'Node_Code Already EXISTS');
134: FND_MESSAGE.Set_Token('COLUMN', 'Directory_Node_Code', FALSE);
135: FND_MSG_PUB.ADD;
136: END IF;
137: CLOSE C_Directory_Node;
130: FETCH C_Directory_Node INTO l_Directory_Node_Code;
131: IF C_Directory_Node%FOUND THEN
132: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
133: FND_MESSAGE.Set_Name('IBC', 'Node_Code Already EXISTS');
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;
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;
193:
194: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
313: IF FND_GLOBAL.User_Id IS NULL
314: THEN
315: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
316: THEN
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;
314: THEN
315: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
316: THEN
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;
363: OPEN C_Directory_Node;
364: FETCH C_Directory_Node INTO l_Directory_Node_Code;
365: IF C_Directory_Node%FOUND THEN
366: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
367: FND_MESSAGE.Set_Name('IBC', 'Node_Code Already EXISTS');
368: FND_MESSAGE.Set_Token('COLUMN', 'Directory_Node_Code', FALSE);
369: FND_MSG_PUB.ADD;
370: END IF;
371: CLOSE C_Directory_Node;
364: FETCH C_Directory_Node INTO l_Directory_Node_Code;
365: IF C_Directory_Node%FOUND THEN
366: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
367: FND_MESSAGE.Set_Name('IBC', 'Node_Code Already EXISTS');
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;
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;
401:
402: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
516: IF FND_GLOBAL.User_Id IS NULL
517: THEN
518: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
519: THEN
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;
517: THEN
518: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
519: THEN
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;
552: OPEN C_Directory_Node;
553: FETCH C_Directory_Node INTO l_Directory_Node_Code;
554: IF C_Directory_Node%FOUND THEN
555: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
556: FND_MESSAGE.Set_Name('IBC', 'Node_Code Already EXISTS');
557: FND_MESSAGE.Set_Token('COLUMN', 'Directory_Node_Code', FALSE);
558: FND_MSG_PUB.ADD;
559: END IF;
560: CLOSE C_Directory_Node;
553: FETCH C_Directory_Node INTO l_Directory_Node_Code;
554: IF C_Directory_Node%FOUND THEN
555: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
556: FND_MESSAGE.Set_Name('IBC', 'Node_Code Already 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;
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;
598:
599: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
714: IF FND_GLOBAL.User_Id IS NULL
715: THEN
716: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
717: THEN
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;
715: THEN
716: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
717: THEN
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;
744: OPEN C_Directory_Node;
745: FETCH C_Directory_Node INTO l_Directory_Node_id;
746: IF C_Directory_Node%NOTFOUND THEN
747: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
748: FND_MESSAGE.Set_Name('IBC', 'Cannot Find Record to be Deleted');
749: FND_MESSAGE.Set_Token('COLUMN', 'Directory_Node_ID', FALSE);
750: FND_MSG_PUB.ADD;
751: END IF;
752: CLOSE C_Directory_Node;
745: FETCH C_Directory_Node INTO l_Directory_Node_id;
746: IF C_Directory_Node%NOTFOUND THEN
747: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
748: FND_MESSAGE.Set_Name('IBC', 'Cannot Find Record to be Deleted');
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;
770: OPEN C_Content_Item(p_ci_dir_node_id =>i_rec.child_dir_Node_id);
771: FETCH C_Content_Item INTO l_Directory_Node_id;
772: IF C_Directory_Node%FOUND THEN
773: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
774: FND_MESSAGE.Set_Name('IBC', 'Content Items Exists in this Node');
775: FND_MESSAGE.Set_Token('COLUMN', 'Directory_Node_ID', FALSE);
776: FND_MSG_PUB.ADD;
777: END IF;
778: CLOSE C_Content_Item;
771: FETCH C_Content_Item INTO l_Directory_Node_id;
772: IF C_Directory_Node%FOUND THEN
773: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
774: FND_MESSAGE.Set_Name('IBC', 'Content Items Exists in this 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;
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;
796:
797: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
900: WHEN NO_DATA_FOUND THEN
901: RAISE NO_DATA_FOUND;
902: WHEN OTHERS THEN
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;