37: BEGIN
38: OPEN c_resource ;
39: FETCH c_resource INTO l_person_id ;
40: IF c_resource%NOTFOUND THEN
41: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
42: FND_MESSAGE.Set_Token('TEXT', sqlerrm );
43: FND_MSG_PUB.Add;
44: END IF;
45: CLOSE c_resource ;
38: OPEN c_resource ;
39: FETCH c_resource INTO l_person_id ;
40: IF c_resource%NOTFOUND THEN
41: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
42: FND_MESSAGE.Set_Token('TEXT', sqlerrm );
43: FND_MSG_PUB.Add;
44: END IF;
45: CLOSE c_resource ;
46: -- Pass the Employee ID to get the Role