85: END IF;
86:
87: --Initialize the message list if p_init_msg_list is set to TRUE
88: If FND_API.to_Boolean(p_init_msg_list) THEN
89: FND_MSG_PUB.initialize;
90: END IF;
91:
92: --Initialize API status return
93: x_return_status := FND_API.G_RET_STS_SUCCESS;
108: COMMIT WORK;
109: END IF;
110:
111: -- Standard callto get message count and if count is 1, get message info.
112: FND_MSG_PUB.Count_And_Get
113: ( p_count => x_msg_count,
114: p_data => x_msg_data
115: );
116: EXCEPTION
118: WHEN FND_API.G_EXC_ERROR THEN
119:
120: ROLLBACK TO IEM_LAUNCH_WF_DPNTF_PUB;
121: x_return_status := FND_API.G_RET_STS_ERROR ;
122: FND_MSG_PUB.Count_And_Get
123: ( p_count => x_msg_count,
124: p_data => x_msg_data
125: );
126: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
126: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
127:
128: ROLLBACK TO IEM_LAUNCH_WF_DPNTF_PUB;
129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
130: FND_MSG_PUB.Count_And_Get
131: ( p_count => x_msg_count,
132: p_data => x_msg_data
133: );
134: WHEN OTHERS THEN
134: WHEN OTHERS THEN
135:
136: ROLLBACK TO IEM_LAUNCH_WF_DPNTF_PUB;
137: x_return_status := FND_API.G_RET_STS_ERROR;
138: IF FND_MSG_PUB.Check_Msg_Level
139: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
140: THEN
141: FND_MSG_PUB.Add_Exc_Msg
142: ( G_PKG_NAME ,
135:
136: ROLLBACK TO IEM_LAUNCH_WF_DPNTF_PUB;
137: x_return_status := FND_API.G_RET_STS_ERROR;
138: IF FND_MSG_PUB.Check_Msg_Level
139: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
140: THEN
141: FND_MSG_PUB.Add_Exc_Msg
142: ( G_PKG_NAME ,
143: l_api_name
137: x_return_status := FND_API.G_RET_STS_ERROR;
138: IF FND_MSG_PUB.Check_Msg_Level
139: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
140: THEN
141: FND_MSG_PUB.Add_Exc_Msg
142: ( G_PKG_NAME ,
143: l_api_name
144: );
145: END IF;
142: ( G_PKG_NAME ,
143: l_api_name
144: );
145: END IF;
146: FND_MSG_PUB.Count_And_Get
147: ( p_count => x_msg_count ,
148: p_data => x_msg_data
149: );
150: