231: --
232: FETCH C INTO Recinfo;
233: IF (C%NOTFOUND) then
234: CLOSE C;
235: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
236: FND_MSG_PUB.Add;
237: RAISE FND_API.G_EXC_ERROR ;
238: END IF;
239: CLOSE C;
272: )
273: THEN
274: Null;
275: ELSE
276: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
277: FND_MSG_PUB.Add;
278: RAISE FND_API.G_EXC_ERROR ;
279: END IF;
280:
649: -- Validate the parameters.
650: --
651:
652: IF l_dual_posting_type NOT IN ( 'A', 'P' ) THEN
653: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_ARGUMENT') ;
654: Fnd_Message.Set_Token('ROUTINE', l_api_name ) ;
655: FND_MSG_PUB.Add;
656: RAISE FND_API.G_EXC_ERROR ;
657: END IF;
650: --
651:
652: IF l_dual_posting_type NOT IN ( 'A', 'P' ) THEN
653: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_ARGUMENT') ;
654: Fnd_Message.Set_Token('ROUTINE', l_api_name ) ;
655: FND_MSG_PUB.Add;
656: RAISE FND_API.G_EXC_ERROR ;
657: END IF;
658:
664: WHERE gl_budget_set_id = p_gl_budget_set_id ;
665:
666: EXCEPTION
667: WHEN no_data_found THEN
668: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_ARGUMENT') ;
669: Fnd_Message.Set_Token('ROUTINE', l_api_name ) ;
670: FND_MSG_PUB.Add;
671: RAISE FND_API.G_EXC_ERROR ;
672: END ;
665:
666: EXCEPTION
667: WHEN no_data_found THEN
668: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_ARGUMENT') ;
669: Fnd_Message.Set_Token('ROUTINE', l_api_name ) ;
670: FND_MSG_PUB.Add;
671: RAISE FND_API.G_EXC_ERROR ;
672: END ;
673: