53: errorMessage varchar2(2000);
54: logMessage varchar2(2000);
55:
56: BEGIN
57: -- Standard Start of API savepoint
58: SAVEPOINT LOAD_ACCOUNT_INFO_PVT;
59:
60: -- Standard call to check for call compatibility.
61:
56: BEGIN
57: -- Standard Start of API savepoint
58: SAVEPOINT LOAD_ACCOUNT_INFO_PVT;
59:
60: -- Standard call to check for call compatibility.
61:
62: IF NOT FND_API.Compatible_API_Call (l_api_version_number,
63: p_api_version_number,
64: l_api_name,
109: X_IN_HOST := l_in_host;
110: X_IN_PORT := l_in_port;
111: X_SSL_CONNECTION_FLAG := l_ssl_connection_flag;
112:
113: -- Standard Check Of p_commit.
114: IF FND_API.To_Boolean(p_commit) THEN
115: COMMIT WORK;
116: END IF;
117:
115: COMMIT WORK;
116: END IF;
117:
118:
119: -- Standard callto get message count and if count is 1, get message info.
120: FND_MSG_PUB.Count_And_Get
121: ( p_count => x_msg_count,
122: p_data => x_msg_data
123: );