112:
113: BEGIN
114:
115: --
116: -- Standard Start of API savepoint
117: --
118: SAVEPOINT Pay;
119: --
120: -- Standard call to check for call compatibility.
116: -- Standard Start of API savepoint
117: --
118: SAVEPOINT Pay;
119: --
120: -- Standard call to check for call compatibility.
121: --
122: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
123: p_api_version ,
124: l_api_name ,
367: END IF;
368: END IF;
369: END IF;
370:
371: -- Standard check of p_commit.
372: IF FND_API.To_Boolean( p_commit ) THEN
373: COMMIT WORK;
374: END IF;
375:
373: COMMIT WORK;
374: END IF;
375:
376: --
377: -- Standard call to get message count and if count is 1, get message info.
378: --
379:
380: FND_MSG_PUB.Count_And_Get
381: (