56: l_enrollment_key VARCHAR2(30);
57:
58: BEGIN
59: -- Initialize API return status to success
60: x_return_status := FND_API.G_RET_STS_SUCCESS;
61:
62: -- Initialize the flag to value 'N' which means that the principal
63: -- passed in is not referred by any of UM columns
64: -- x_if_referred_flag := 'N';
77: FND_MESSAGE.Set_Token('API_NAME', 'IS_AUTH_PRINCIPAL_REFERRED', FALSE);
78: FND_MESSAGE.Set_Token('FIELD', 'auth_principal_name', FALSE);
79: FND_MSG_PUB.ADD;
80: END IF;
81: RAISE FND_API.G_EXC_ERROR;
82: end if;
83:
84: -- business logic starts
85:
109: FND_MESSAGE.Set_Token('PRINCIPAL_NAME', auth_principal_name , FALSE);
110: FND_MESSAGE.Set_Token('USERTYPE_NAME', l_usertype_key , FALSE);
111:
112: FND_MSG_PUB.ADD;
113: RAISE FND_API.G_EXC_ERROR;
114: END IF;
115:
116: -- verify to see if the auth_principal_name passed as input is assigned to any enrollment
117: select count(*) into l_count
140: FND_MESSAGE.Set_Token('PRINCIPAL_NAME', auth_principal_name , FALSE);
141: FND_MESSAGE.Set_Token('ENROLLMENT_NAME', l_enrollment_key , FALSE);
142:
143: FND_MSG_PUB.ADD;
144: RAISE FND_API.G_EXC_ERROR;
145: END IF;
146:
147: -- verify to see if the auth_principal_name passed as input is assigned to any enrollment as delegation role
148: select count(*) into l_count
167: FND_MESSAGE.Set_Token('PRINCIPAL_NAME', auth_principal_name , FALSE);
168: FND_MESSAGE.Set_Token('ENROLLMENT_NAME', l_enrollment_key , FALSE);
169:
170: FND_MSG_PUB.ADD;
171: RAISE FND_API.G_EXC_ERROR;
172: END IF;
173: --
174:
175: -- business logic ends
179: p_count => x_msg_count,
180: p_data => x_msg_data);
181:
182: EXCEPTION
183: WHEN FND_API.G_EXC_ERROR THEN
184: JTF_DEBUG_PUB.HANDLE_EXCEPTIONS(
185: P_API_NAME => L_API_NAME
186: ,P_PKG_NAME => G_PKG_NAME
187: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
190: ,X_MSG_COUNT => X_MSG_COUNT
191: ,X_MSG_DATA => X_MSG_DATA
192: ,X_RETURN_STATUS => X_RETURN_STATUS);
193:
194: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
195: JTF_DEBUG_PUB.HANDLE_EXCEPTIONS(
196: P_API_NAME => L_API_NAME
197: ,P_PKG_NAME => G_PKG_NAME
198: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR