52: l_error_code NUMBER;
53: l_error_mesg VARCHAR2(1000);
54: BEGIN
55: -- Standard call to check for call compatibility
56: IF NOT fnd_api.Compatible_API_Call ( l_api_version, p_api_version, l_api_name, G_PKG_NAME )
57: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
58: END IF;
59:
60: -- Initialize message list if the caller asks me to do so
53: l_error_mesg VARCHAR2(1000);
54: BEGIN
55: -- Standard call to check for call compatibility
56: IF NOT fnd_api.Compatible_API_Call ( l_api_version, p_api_version, l_api_name, G_PKG_NAME )
57: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
58: END IF;
59:
60: -- Initialize message list if the caller asks me to do so
61: IF FND_API.to_Boolean( p_init_msg_list ) THEN
57: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
58: END IF;
59:
60: -- Initialize message list if the caller asks me to do so
61: IF FND_API.to_Boolean( p_init_msg_list ) THEN
62: FND_MSG_PUB.initialize;
63: END IF;
64:
65: -- Initialize API return status to success
62: FND_MSG_PUB.initialize;
63: END IF;
64:
65: -- Initialize API return status to success
66: x_return_status := FND_API.G_RET_STS_SUCCESS;
67:
68: edr_psig.openDocument( P_PSIG_XML => p_psig_xml,
69: P_PSIG_DOCUMENT => p_psig_document,
70: P_PSIG_DOCUMENTFORMAT => p_psig_documentFormat,
80: fnd_message.Set_Name( 'EDR', 'EDR_PLS_STDMSG_GENERATED' );
81: fnd_message.Set_Token( 'ERR_CODE', l_error_code );
82: fnd_message.Set_Token( 'ERR_MESG', l_error_mesg );
83: fnd_msg_pub.Add;
84: raise fnd_api.G_EXC_ERROR;
85: END IF;
86: -- fetch the message off the dictionary stack and add to API message list
87: -- would only add the last one message in the above api call
88: -- need to do this in the above api after each fnd_message.set_name/set_token
87: -- would only add the last one message in the above api call
88: -- need to do this in the above api after each fnd_message.set_name/set_token
89: FND_MSG_PUB.Add;
90:
91: IF FND_API.To_Boolean( p_commit ) THEN
92: COMMIT WORK;
93: END IF;
94: -- Standard call to get message count, and if count is 1, get message info
95: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
94: -- Standard call to get message count, and if count is 1, get message info
95: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
96:
97: EXCEPTION
98: WHEN FND_API.G_EXC_ERROR THEN
99: x_return_status := FND_API.G_RET_STS_ERROR ;
100: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
101: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
95: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
96:
97: EXCEPTION
98: WHEN FND_API.G_EXC_ERROR THEN
99: x_return_status := FND_API.G_RET_STS_ERROR ;
100: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
101: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
103: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
97: EXCEPTION
98: WHEN FND_API.G_EXC_ERROR THEN
99: x_return_status := FND_API.G_RET_STS_ERROR ;
100: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
101: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
103: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
104: WHEN OTHERS THEN
105: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
98: WHEN FND_API.G_EXC_ERROR THEN
99: x_return_status := FND_API.G_RET_STS_ERROR ;
100: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
101: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
103: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
104: WHEN OTHERS THEN
105: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
106: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
101: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
103: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
104: WHEN OTHERS THEN
105: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
106: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
107: FND_MSG_PUB.Add_Exc_Msg ( g_pkg_name, l_api_name );
108: END IF;
109: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
136: l_api_version CONSTANT NUMBER := 1.0;
137: l_error_code NUMBER;
138: l_error_mesg VARCHAR2(1000);
139: BEGIN
140: IF NOT fnd_api.Compatible_API_Call ( l_api_version, p_api_version, l_api_name, G_PKG_NAME )
141: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
142: END IF;
143:
144: -- Initialize message list if the caller asks me to do so
137: l_error_code NUMBER;
138: l_error_mesg VARCHAR2(1000);
139: BEGIN
140: IF NOT fnd_api.Compatible_API_Call ( l_api_version, p_api_version, l_api_name, G_PKG_NAME )
141: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
142: END IF;
143:
144: -- Initialize message list if the caller asks me to do so
145: IF FND_API.to_Boolean( p_init_msg_list ) THEN
141: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
142: END IF;
143:
144: -- Initialize message list if the caller asks me to do so
145: IF FND_API.to_Boolean( p_init_msg_list ) THEN
146: FND_MSG_PUB.initialize;
147: END IF;
148:
149: -- Initialize API return status to success
146: FND_MSG_PUB.initialize;
147: END IF;
148:
149: -- Initialize API return status to success
150: x_return_status := FND_API.G_RET_STS_SUCCESS;
151:
152: edr_psig.changeDocumentStatus(
153: P_DOCUMENT_ID => p_document_id,
154: p_status => p_document_status,
159: fnd_message.Set_Name('EDR', 'EDR_PLS_STDMSG_GENERATED' );
160: fnd_message.Set_Token( 'ERR_CODE', l_error_code );
161: fnd_message.Set_Token( 'ERR_MESG', l_error_mesg );
162: fnd_msg_pub.Add;
163: raise fnd_api.G_EXC_ERROR;
164: END IF;
165:
166: IF FND_API.To_Boolean( p_commit ) THEN
167: COMMIT WORK;
162: fnd_msg_pub.Add;
163: raise fnd_api.G_EXC_ERROR;
164: END IF;
165:
166: IF FND_API.To_Boolean( p_commit ) THEN
167: COMMIT WORK;
168: END IF;
169: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data );
170:
168: END IF;
169: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data );
170:
171: EXCEPTION
172: WHEN FND_API.G_EXC_ERROR THEN
173: x_return_status := FND_API.G_RET_STS_ERROR ;
174: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
175: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
169: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count, p_data => x_msg_data );
170:
171: EXCEPTION
172: WHEN FND_API.G_EXC_ERROR THEN
173: x_return_status := FND_API.G_RET_STS_ERROR ;
174: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
175: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
177: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
171: EXCEPTION
172: WHEN FND_API.G_EXC_ERROR THEN
173: x_return_status := FND_API.G_RET_STS_ERROR ;
174: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
175: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
177: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
178: WHEN OTHERS THEN
179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
172: WHEN FND_API.G_EXC_ERROR THEN
173: x_return_status := FND_API.G_RET_STS_ERROR ;
174: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
175: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
177: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
178: WHEN OTHERS THEN
179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
180: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
175: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
177: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
178: WHEN OTHERS THEN
179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
180: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
181: FND_MSG_PUB.Add_Exc_Msg ( g_pkg_name, l_api_name );
182: END IF;
183: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
223: l_api_version CONSTANT NUMBER := 1.0;
224: l_error_code NUMBER;
225: l_error_mesg VARCHAR2(1000);
226: BEGIN
227: IF NOT fnd_api.Compatible_API_Call ( l_api_version, p_api_version, l_api_name, G_PKG_NAME )
228: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
229: END IF;
230:
231: -- Initialize message list if the caller asks me to do so
224: l_error_code NUMBER;
225: l_error_mesg VARCHAR2(1000);
226: BEGIN
227: IF NOT fnd_api.Compatible_API_Call ( l_api_version, p_api_version, l_api_name, G_PKG_NAME )
228: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
229: END IF;
230:
231: -- Initialize message list if the caller asks me to do so
232: IF FND_API.to_Boolean( p_init_msg_list ) THEN
228: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
229: END IF;
230:
231: -- Initialize message list if the caller asks me to do so
232: IF FND_API.to_Boolean( p_init_msg_list ) THEN
233: FND_MSG_PUB.initialize;
234: END IF;
235:
236: -- Initialize API return status to success
233: FND_MSG_PUB.initialize;
234: END IF;
235:
236: -- Initialize API return status to success
237: x_return_status := FND_API.G_RET_STS_SUCCESS;
238:
239: edr_psig.updateDocument( P_DOCUMENT_ID => p_document_id,
240: P_PSIG_XML => p_psig_xml,
241: P_PSIG_DOCUMENT => p_psig_document,
251: fnd_message.Set_Name( 'EDR', 'EDR_PLS_STDMSG_GENERATED' );
252: fnd_message.Set_Token( 'ERR_CODE', l_error_code );
253: fnd_message.Set_Token( 'ERR_MESG', l_error_mesg );
254: fnd_msg_pub.Add;
255: raise fnd_api.G_EXC_ERROR;
256: END IF;
257: FND_MSG_PUB.Add;
258:
259: IF FND_API.To_Boolean( p_commit ) THEN
255: raise fnd_api.G_EXC_ERROR;
256: END IF;
257: FND_MSG_PUB.Add;
258:
259: IF FND_API.To_Boolean( p_commit ) THEN
260: COMMIT WORK;
261: END IF;
262: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
263:
261: END IF;
262: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
263:
264: EXCEPTION
265: WHEN FND_API.G_EXC_ERROR THEN
266: x_return_status := FND_API.G_RET_STS_ERROR ;
267: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
262: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
263:
264: EXCEPTION
265: WHEN FND_API.G_EXC_ERROR THEN
266: x_return_status := FND_API.G_RET_STS_ERROR ;
267: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
270: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
264: EXCEPTION
265: WHEN FND_API.G_EXC_ERROR THEN
266: x_return_status := FND_API.G_RET_STS_ERROR ;
267: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
270: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
271: WHEN OTHERS THEN
272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
265: WHEN FND_API.G_EXC_ERROR THEN
266: x_return_status := FND_API.G_RET_STS_ERROR ;
267: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
270: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
271: WHEN OTHERS THEN
272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
273: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
270: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
271: WHEN OTHERS THEN
272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
273: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
274: FND_MSG_PUB.Add_Exc_Msg ( g_pkg_name, l_api_name );
275: END IF;
276: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
304: l_error_mesg VARCHAR2(1000);
305: l_params_tbl edr_psig.params_table;
306: lth NUMBER;
307: BEGIN
308: IF NOT fnd_api.Compatible_API_Call ( l_api_version, p_api_version, l_api_name, G_PKG_NAME )
309: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
310: END IF;
311:
312: -- Initialize message list if the caller asks me to do so
305: l_params_tbl edr_psig.params_table;
306: lth NUMBER;
307: BEGIN
308: IF NOT fnd_api.Compatible_API_Call ( l_api_version, p_api_version, l_api_name, G_PKG_NAME )
309: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
310: END IF;
311:
312: -- Initialize message list if the caller asks me to do so
313: IF FND_API.to_Boolean( p_init_msg_list ) THEN
309: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
310: END IF;
311:
312: -- Initialize message list if the caller asks me to do so
313: IF FND_API.to_Boolean( p_init_msg_list ) THEN
314: FND_MSG_PUB.initialize;
315: END IF;
316:
317: -- Initialize API return status to success
314: FND_MSG_PUB.initialize;
315: END IF;
316:
317: -- Initialize API return status to success
318: x_return_status := FND_API.G_RET_STS_SUCCESS;
319:
320: FOR lth in 1..p_doc_parameters_tbl.COUNT LOOP
321: l_params_tbl(lth) := p_doc_parameters_tbl(lth);
322: END LOOP;
329: fnd_message.Set_Name( 'EDR', 'EDR_PLS_STDMSG_GENERATED' );
330: fnd_message.Set_Token( 'ERR_CODE', l_error_code );
331: fnd_message.Set_Token( 'ERR_MESG', l_error_mesg );
332: fnd_msg_pub.Add;
333: raise fnd_api.G_EXC_ERROR;
334: END IF;
335: IF FND_API.To_Boolean( p_commit ) THEN
336: COMMIT WORK;
337: END IF;
331: fnd_message.Set_Token( 'ERR_MESG', l_error_mesg );
332: fnd_msg_pub.Add;
333: raise fnd_api.G_EXC_ERROR;
334: END IF;
335: IF FND_API.To_Boolean( p_commit ) THEN
336: COMMIT WORK;
337: END IF;
338: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
339:
337: END IF;
338: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
339:
340: EXCEPTION
341: WHEN FND_API.G_EXC_ERROR THEN
342: x_return_status := FND_API.G_RET_STS_ERROR ;
343: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
338: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
339:
340: EXCEPTION
341: WHEN FND_API.G_EXC_ERROR THEN
342: x_return_status := FND_API.G_RET_STS_ERROR ;
343: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
346: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
340: EXCEPTION
341: WHEN FND_API.G_EXC_ERROR THEN
342: x_return_status := FND_API.G_RET_STS_ERROR ;
343: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
346: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
347: WHEN OTHERS THEN
348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
341: WHEN FND_API.G_EXC_ERROR THEN
342: x_return_status := FND_API.G_RET_STS_ERROR ;
343: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
346: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
347: WHEN OTHERS THEN
348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
349: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
346: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
347: WHEN OTHERS THEN
348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
349: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
350: FND_MSG_PUB.Add_Exc_Msg ( g_pkg_name, l_api_name );
351: END IF;
352: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
379: l_error_code NUMBER;
380: l_error_mesg VARCHAR2(1000);
381: l_mesg_text varchar2(4000);
382: BEGIN
383: IF NOT fnd_api.Compatible_API_Call ( l_api_version, p_api_version, l_api_name, G_PKG_NAME )
384: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
385: END IF;
386:
387: -- Initialize message list if the caller asks me to do so
380: l_error_mesg VARCHAR2(1000);
381: l_mesg_text varchar2(4000);
382: BEGIN
383: IF NOT fnd_api.Compatible_API_Call ( l_api_version, p_api_version, l_api_name, G_PKG_NAME )
384: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
385: END IF;
386:
387: -- Initialize message list if the caller asks me to do so
388: IF FND_API.to_Boolean( p_init_msg_list ) THEN
384: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
385: END IF;
386:
387: -- Initialize message list if the caller asks me to do so
388: IF FND_API.to_Boolean( p_init_msg_list ) THEN
389: FND_MSG_PUB.initialize;
390: END IF;
391:
392: -- Initialize API return status to success
389: FND_MSG_PUB.initialize;
390: END IF;
391:
392: -- Initialize API return status to success
393: x_return_status := FND_API.G_RET_STS_SUCCESS;
394:
395: edr_psig.closeDocument( P_DOCUMENT_ID => p_document_id,
396: P_ERROR => l_error_code,
397: P_ERROR_MSG => l_error_mesg );
399: fnd_message.Set_Name( 'EDR', 'EDR_PLS_STDMSG_GENERATED' );
400: fnd_message.Set_Token( 'ERR_CODE', l_error_code );
401: fnd_message.Set_Token( 'ERR_MESG', l_error_mesg );
402: fnd_msg_pub.Add;
403: raise fnd_api.G_EXC_ERROR;
404: END IF;
405:
406: IF FND_API.To_Boolean( p_commit ) THEN
407: COMMIT WORK;
402: fnd_msg_pub.Add;
403: raise fnd_api.G_EXC_ERROR;
404: END IF;
405:
406: IF FND_API.To_Boolean( p_commit ) THEN
407: COMMIT WORK;
408: END IF;
409: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
410:
408: END IF;
409: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
410:
411: EXCEPTION
412: WHEN FND_API.G_EXC_ERROR THEN
413: x_return_status := FND_API.G_RET_STS_ERROR ;
414: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
415: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
416: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
409: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
410:
411: EXCEPTION
412: WHEN FND_API.G_EXC_ERROR THEN
413: x_return_status := FND_API.G_RET_STS_ERROR ;
414: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
415: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
416: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
417: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
411: EXCEPTION
412: WHEN FND_API.G_EXC_ERROR THEN
413: x_return_status := FND_API.G_RET_STS_ERROR ;
414: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
415: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
416: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
417: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
418: WHEN OTHERS THEN
419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
412: WHEN FND_API.G_EXC_ERROR THEN
413: x_return_status := FND_API.G_RET_STS_ERROR ;
414: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
415: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
416: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
417: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
418: WHEN OTHERS THEN
419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
420: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
415: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
416: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
417: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
418: WHEN OTHERS THEN
419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
420: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
421: FND_MSG_PUB.Add_Exc_Msg ( g_pkg_name, l_api_name );
422: END IF;
423: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
448: l_api_version CONSTANT NUMBER := 1.0;
449: l_error_code NUMBER;
450: l_error_mesg VARCHAR2(1000);
451: BEGIN
452: IF NOT fnd_api.Compatible_API_Call ( l_api_version, p_api_version, l_api_name, G_PKG_NAME )
453: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
454: END IF;
455:
456: -- Initialize message list if the caller asks me to do so
449: l_error_code NUMBER;
450: l_error_mesg VARCHAR2(1000);
451: BEGIN
452: IF NOT fnd_api.Compatible_API_Call ( l_api_version, p_api_version, l_api_name, G_PKG_NAME )
453: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
454: END IF;
455:
456: -- Initialize message list if the caller asks me to do so
457: IF FND_API.to_Boolean( p_init_msg_list ) THEN
453: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
454: END IF;
455:
456: -- Initialize message list if the caller asks me to do so
457: IF FND_API.to_Boolean( p_init_msg_list ) THEN
458: FND_MSG_PUB.initialize;
459: END IF;
460:
461: -- Initialize API return status to success
458: FND_MSG_PUB.initialize;
459: END IF;
460:
461: -- Initialize API return status to success
462: x_return_status := FND_API.G_RET_STS_SUCCESS;
463:
464:
465: edr_psig.cancelDocument( P_DOCUMENT_ID => p_document_id,
466: P_ERROR => l_error_code,
470: fnd_message.Set_Name( 'EDR', 'EDR_PLS_STDMSG_GENERATED' );
471: fnd_message.Set_Token( 'ERR_CODE', l_error_code );
472: fnd_message.Set_Token( 'ERR_MESG', l_error_mesg );
473: fnd_msg_pub.Add;
474: raise fnd_api.G_EXC_ERROR;
475: END IF;
476:
477: IF FND_API.To_Boolean( p_commit ) THEN
478: COMMIT WORK;
473: fnd_msg_pub.Add;
474: raise fnd_api.G_EXC_ERROR;
475: END IF;
476:
477: IF FND_API.To_Boolean( p_commit ) THEN
478: COMMIT WORK;
479: END IF;
480: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
481:
479: END IF;
480: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
481:
482: EXCEPTION
483: WHEN FND_API.G_EXC_ERROR THEN
484: x_return_status := FND_API.G_RET_STS_ERROR ;
485: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
486: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
480: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
481:
482: EXCEPTION
483: WHEN FND_API.G_EXC_ERROR THEN
484: x_return_status := FND_API.G_RET_STS_ERROR ;
485: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
486: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
488: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
482: EXCEPTION
483: WHEN FND_API.G_EXC_ERROR THEN
484: x_return_status := FND_API.G_RET_STS_ERROR ;
485: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
486: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
488: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
489: WHEN OTHERS THEN
490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
483: WHEN FND_API.G_EXC_ERROR THEN
484: x_return_status := FND_API.G_RET_STS_ERROR ;
485: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
486: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
488: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
489: WHEN OTHERS THEN
490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
491: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
486: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
488: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
489: WHEN OTHERS THEN
490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
491: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
492: FND_MSG_PUB.Add_Exc_Msg ( g_pkg_name, l_api_name );
493: END IF;
494: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
527: l_api_version CONSTANT NUMBER := 1.0;
528: l_error_code NUMBER;
529: l_error_mesg VARCHAR2(1000);
530: BEGIN
531: IF NOT fnd_api.Compatible_API_Call ( l_api_version, p_api_version, l_api_name, G_PKG_NAME )
532: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
533: END IF;
534:
535: -- Initialize message list if the caller asks me to do so
528: l_error_code NUMBER;
529: l_error_mesg VARCHAR2(1000);
530: BEGIN
531: IF NOT fnd_api.Compatible_API_Call ( l_api_version, p_api_version, l_api_name, G_PKG_NAME )
532: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
533: END IF;
534:
535: -- Initialize message list if the caller asks me to do so
536: IF FND_API.to_Boolean( p_init_msg_list ) THEN
532: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
533: END IF;
534:
535: -- Initialize message list if the caller asks me to do so
536: IF FND_API.to_Boolean( p_init_msg_list ) THEN
537: FND_MSG_PUB.initialize;
538: END IF;
539:
540: -- Initialize API return status to success
537: FND_MSG_PUB.initialize;
538: END IF;
539:
540: -- Initialize API return status to success
541: x_return_status := FND_API.G_RET_STS_SUCCESS;
542:
543: edr_psig.requestSignature( P_DOCUMENT_ID => p_document_id,
544: P_USER_NAME => p_user_name,
545: P_ORIGINAL_RECIPIENT => p_original_recipient,
552: fnd_message.Set_Name( 'EDR', 'EDR_PLS_STDMSG_GENERATED' );
553: fnd_message.Set_Token( 'ERR_CODE', l_error_code );
554: fnd_message.Set_Token( 'ERR_MESG', l_error_mesg );
555: fnd_msg_pub.Add;
556: raise fnd_api.G_EXC_ERROR;
557: END IF;
558:
559:
560: IF FND_API.To_Boolean( p_commit ) THEN
556: raise fnd_api.G_EXC_ERROR;
557: END IF;
558:
559:
560: IF FND_API.To_Boolean( p_commit ) THEN
561: COMMIT WORK;
562: END IF;
563: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
564:
562: END IF;
563: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
564:
565: EXCEPTION
566: WHEN FND_API.G_EXC_ERROR THEN
567: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
568: x_return_status := FND_API.G_RET_STS_ERROR ;
569: --FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
564:
565: EXCEPTION
566: WHEN FND_API.G_EXC_ERROR THEN
567: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
568: x_return_status := FND_API.G_RET_STS_ERROR ;
569: --FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
571: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
572: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
566: WHEN FND_API.G_EXC_ERROR THEN
567: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
568: x_return_status := FND_API.G_RET_STS_ERROR ;
569: --FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
571: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
572: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
573: WHEN OTHERS THEN
574: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
567: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
568: x_return_status := FND_API.G_RET_STS_ERROR ;
569: --FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
571: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
572: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
573: WHEN OTHERS THEN
574: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
575: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
571: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
572: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
573: WHEN OTHERS THEN
574: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
575: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
576: FND_MSG_PUB.Add_Exc_Msg ( g_pkg_name, l_api_name );
577: END IF;
578: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
615: l_api_version CONSTANT NUMBER := 1.0;
616: l_error_code NUMBER;
617: l_error_mesg VARCHAR2(1000);
618: BEGIN
619: IF NOT fnd_api.Compatible_API_Call ( l_api_version, p_api_version, l_api_name, G_PKG_NAME )
620: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
621: END IF;
622:
623: -- Initialize message list if the caller asks me to do so
616: l_error_code NUMBER;
617: l_error_mesg VARCHAR2(1000);
618: BEGIN
619: IF NOT fnd_api.Compatible_API_Call ( l_api_version, p_api_version, l_api_name, G_PKG_NAME )
620: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
621: END IF;
622:
623: -- Initialize message list if the caller asks me to do so
624: IF FND_API.to_Boolean( p_init_msg_list ) THEN
620: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
621: END IF;
622:
623: -- Initialize message list if the caller asks me to do so
624: IF FND_API.to_Boolean( p_init_msg_list ) THEN
625: FND_MSG_PUB.initialize;
626: END IF;
627:
628: -- Initialize API return status to success
625: FND_MSG_PUB.initialize;
626: END IF;
627:
628: -- Initialize API return status to success
629: x_return_status := FND_API.G_RET_STS_SUCCESS;
630:
631: edr_psig.postSignature( P_DOCUMENT_ID => p_document_id,
632: P_EVIDENCE_STORE_ID => p_evidenceStore_id,
633: P_USER_NAME => p_user_name,
642: fnd_message.Set_Name( 'EDR', 'EDR_PLS_STDMSG_GENERATED' );
643: fnd_message.Set_Token( 'ERR_CODE', l_error_code );
644: fnd_message.Set_Token( 'ERR_MESG', l_error_mesg );
645: fnd_msg_pub.Add;
646: raise fnd_api.G_EXC_ERROR;
647: END IF;
648:
649: IF FND_API.To_Boolean( p_commit ) THEN
650: COMMIT WORK;
645: fnd_msg_pub.Add;
646: raise fnd_api.G_EXC_ERROR;
647: END IF;
648:
649: IF FND_API.To_Boolean( p_commit ) THEN
650: COMMIT WORK;
651: END IF;
652: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
653:
651: END IF;
652: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
653:
654: EXCEPTION
655: WHEN FND_API.G_EXC_ERROR THEN
656: x_return_status := FND_API.G_RET_STS_ERROR ;
657: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
658: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
659: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
652: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
653:
654: EXCEPTION
655: WHEN FND_API.G_EXC_ERROR THEN
656: x_return_status := FND_API.G_RET_STS_ERROR ;
657: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
658: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
659: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
660: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
654: EXCEPTION
655: WHEN FND_API.G_EXC_ERROR THEN
656: x_return_status := FND_API.G_RET_STS_ERROR ;
657: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
658: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
659: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
660: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
661: WHEN OTHERS THEN
662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
655: WHEN FND_API.G_EXC_ERROR THEN
656: x_return_status := FND_API.G_RET_STS_ERROR ;
657: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
658: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
659: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
660: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
661: WHEN OTHERS THEN
662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
663: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
658: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
659: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
660: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
661: WHEN OTHERS THEN
662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
663: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
664: FND_MSG_PUB.Add_Exc_Msg ( g_pkg_name, l_api_name );
665: END IF;
666: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
694: l_error_mesg VARCHAR2(1000);
695: l_params_tbl edr_psig.Params_Table;
696: lth NUMBER;
697: BEGIN
698: IF NOT fnd_api.Compatible_API_Call ( l_api_version, p_api_version, l_api_name, G_PKG_NAME )
699: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
700: END IF;
701:
702: -- Initialize message list if the caller asks me to do so
695: l_params_tbl edr_psig.Params_Table;
696: lth NUMBER;
697: BEGIN
698: IF NOT fnd_api.Compatible_API_Call ( l_api_version, p_api_version, l_api_name, G_PKG_NAME )
699: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
700: END IF;
701:
702: -- Initialize message list if the caller asks me to do so
703: IF FND_API.to_Boolean( p_init_msg_list ) THEN
699: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
700: END IF;
701:
702: -- Initialize message list if the caller asks me to do so
703: IF FND_API.to_Boolean( p_init_msg_list ) THEN
704: FND_MSG_PUB.initialize;
705: END IF;
706:
707: -- Initialize API return status to success
704: FND_MSG_PUB.initialize;
705: END IF;
706:
707: -- Initialize API return status to success
708: x_return_status := FND_API.G_RET_STS_SUCCESS;
709:
710:
711: FOR lth in 1..p_sig_parameters_tbl.COUNT LOOP
712: l_params_tbl(lth) := p_sig_parameters_tbl(lth);
721: fnd_message.Set_Name( 'EDR', 'EDR_PLS_STDMSG_GENERATED' );
722: fnd_message.Set_Token( 'ERR_CODE', l_error_code );
723: fnd_message.Set_Token( 'ERR_MESG', l_error_mesg );
724: fnd_msg_pub.Add;
725: raise fnd_api.G_EXC_ERROR;
726: END IF;
727: IF FND_API.To_Boolean( p_commit ) THEN
728: COMMIT WORK;
729: END IF;
723: fnd_message.Set_Token( 'ERR_MESG', l_error_mesg );
724: fnd_msg_pub.Add;
725: raise fnd_api.G_EXC_ERROR;
726: END IF;
727: IF FND_API.To_Boolean( p_commit ) THEN
728: COMMIT WORK;
729: END IF;
730: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
731:
729: END IF;
730: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
731:
732: EXCEPTION
733: WHEN FND_API.G_EXC_ERROR THEN
734: x_return_status := FND_API.G_RET_STS_ERROR ;
735: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
736: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
730: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
731:
732: EXCEPTION
733: WHEN FND_API.G_EXC_ERROR THEN
734: x_return_status := FND_API.G_RET_STS_ERROR ;
735: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
736: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
738: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
732: EXCEPTION
733: WHEN FND_API.G_EXC_ERROR THEN
734: x_return_status := FND_API.G_RET_STS_ERROR ;
735: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
736: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
738: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
739: WHEN OTHERS THEN
740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
733: WHEN FND_API.G_EXC_ERROR THEN
734: x_return_status := FND_API.G_RET_STS_ERROR ;
735: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
736: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
738: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
739: WHEN OTHERS THEN
740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
741: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
736: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
737: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
738: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
739: WHEN OTHERS THEN
740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
741: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
742: FND_MSG_PUB.Add_Exc_Msg ( g_pkg_name, l_api_name );
743: END IF;
744: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
778: l_params_tbl edr_psig.Params_Table;
779: l_sig_tbl edr_psig.SignatureTable;
780: lth NUMBER;
781: BEGIN
782: IF NOT fnd_api.Compatible_API_Call ( l_api_version, p_api_version, l_api_name, G_PKG_NAME )
783: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
784: END IF;
785:
786: -- Initialize message list if the caller asks me to do so
779: l_sig_tbl edr_psig.SignatureTable;
780: lth NUMBER;
781: BEGIN
782: IF NOT fnd_api.Compatible_API_Call ( l_api_version, p_api_version, l_api_name, G_PKG_NAME )
783: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
784: END IF;
785:
786: -- Initialize message list if the caller asks me to do so
787: IF FND_API.to_Boolean( p_init_msg_list ) THEN
783: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
784: END IF;
785:
786: -- Initialize message list if the caller asks me to do so
787: IF FND_API.to_Boolean( p_init_msg_list ) THEN
788: FND_MSG_PUB.initialize;
789: END IF;
790:
791: -- Initialize API return status to success
788: FND_MSG_PUB.initialize;
789: END IF;
790:
791: -- Initialize API return status to success
792: x_return_status := FND_API.G_RET_STS_SUCCESS;
793:
794: edr_psig.getDocumentDetails (
795: P_DOCUMENT_ID => p_document_id,
796: P_DOCUMENT => l_docDetl_rec,
825: fnd_message.Set_Name( 'EDR', 'EDR_PLS_STDMSG_GENERATED' );
826: fnd_message.Set_Token( 'ERR_CODE', l_error_code );
827: fnd_message.Set_Token( 'ERR_MESG', l_error_mesg );
828: fnd_msg_pub.Add;
829: raise fnd_api.G_EXC_ERROR;
830: END IF;
831: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
832:
833: EXCEPTION
830: END IF;
831: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
832:
833: EXCEPTION
834: WHEN FND_API.G_EXC_ERROR THEN
835: x_return_status := FND_API.G_RET_STS_ERROR ;
836: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
837: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
838: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
831: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
832:
833: EXCEPTION
834: WHEN FND_API.G_EXC_ERROR THEN
835: x_return_status := FND_API.G_RET_STS_ERROR ;
836: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
837: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
838: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
839: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
833: EXCEPTION
834: WHEN FND_API.G_EXC_ERROR THEN
835: x_return_status := FND_API.G_RET_STS_ERROR ;
836: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
837: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
838: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
839: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
840: WHEN OTHERS THEN
841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
834: WHEN FND_API.G_EXC_ERROR THEN
835: x_return_status := FND_API.G_RET_STS_ERROR ;
836: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
837: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
838: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
839: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
840: WHEN OTHERS THEN
841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
842: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
837: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
838: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
839: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
840: WHEN OTHERS THEN
841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
842: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
843: FND_MSG_PUB.Add_Exc_Msg ( g_pkg_name, l_api_name );
844: END IF;
845: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
882: l_signatureparams EDR_PSIG.params_table;
883: lth NUMBER;
884:
885: BEGIN
886: IF NOT fnd_api.Compatible_API_Call ( l_api_version, p_api_version, l_api_name, G_PKG_NAME )
887: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
888: END IF;
889:
890: -- Initialize message list if the caller asks me to do so
883: lth NUMBER;
884:
885: BEGIN
886: IF NOT fnd_api.Compatible_API_Call ( l_api_version, p_api_version, l_api_name, G_PKG_NAME )
887: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
888: END IF;
889:
890: -- Initialize message list if the caller asks me to do so
891: IF FND_API.to_Boolean( p_init_msg_list ) THEN
887: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
888: END IF;
889:
890: -- Initialize message list if the caller asks me to do so
891: IF FND_API.to_Boolean( p_init_msg_list ) THEN
892: FND_MSG_PUB.initialize;
893: END IF;
894:
895: -- Initialize API return status to success
892: FND_MSG_PUB.initialize;
893: END IF;
894:
895: -- Initialize API return status to success
896: x_return_status := FND_API.G_RET_STS_SUCCESS;
897:
898: EDR_PSIG.getSignatureDetails
899: (
900: P_SIGNATURE_ID => p_signature_id,
926: fnd_message.Set_Name( 'EDR', 'EDR_PLS_STDMSG_GENERATED' );
927: fnd_message.Set_Token( 'ERR_CODE', l_error_code );
928: fnd_message.Set_Token( 'ERR_MESG', l_error_mesg );
929: fnd_msg_pub.Add;
930: raise fnd_api.G_EXC_ERROR;
931: END IF;
932: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
933:
934: EXCEPTION
931: END IF;
932: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
933:
934: EXCEPTION
935: WHEN FND_API.G_EXC_ERROR THEN
936: x_return_status := FND_API.G_RET_STS_ERROR ;
937: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
932: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
933:
934: EXCEPTION
935: WHEN FND_API.G_EXC_ERROR THEN
936: x_return_status := FND_API.G_RET_STS_ERROR ;
937: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
940: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
934: EXCEPTION
935: WHEN FND_API.G_EXC_ERROR THEN
936: x_return_status := FND_API.G_RET_STS_ERROR ;
937: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
940: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
941: WHEN OTHERS THEN
942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
935: WHEN FND_API.G_EXC_ERROR THEN
936: x_return_status := FND_API.G_RET_STS_ERROR ;
937: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
940: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
941: WHEN OTHERS THEN
942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
943: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
940: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
941: WHEN OTHERS THEN
942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
943: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
944: FND_MSG_PUB.Add_Exc_Msg ( g_pkg_name, l_api_name );
945: END IF;
946: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
1010: l_api_version CONSTANT NUMBER := 1.0;
1011: l_document_id NUMBER;
1012: l_signature_id NUMBER;
1013: BEGIN
1014: IF NOT fnd_api.Compatible_API_Call ( l_api_version, p_api_version, l_api_name, G_PKG_NAME )
1015: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
1016: END IF;
1017:
1018: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1011: l_document_id NUMBER;
1012: l_signature_id NUMBER;
1013: BEGIN
1014: IF NOT fnd_api.Compatible_API_Call ( l_api_version, p_api_version, l_api_name, G_PKG_NAME )
1015: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
1016: END IF;
1017:
1018: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1019: FND_MSG_PUB.initialize;
1014: IF NOT fnd_api.Compatible_API_Call ( l_api_version, p_api_version, l_api_name, G_PKG_NAME )
1015: THEN RAISE fnd_api.G_EXC_UNEXPECTED_ERROR;
1016: END IF;
1017:
1018: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1019: FND_MSG_PUB.initialize;
1020: END IF;
1021:
1022: x_return_status := FND_API.G_RET_STS_SUCCESS;
1018: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1019: FND_MSG_PUB.initialize;
1020: END IF;
1021:
1022: x_return_status := FND_API.G_RET_STS_SUCCESS;
1023:
1024: Open_Document ( p_api_version, p_init_msg_list, p_commit, x_return_status, x_msg_count,
1025: x_msg_data, p_psig_xml, p_psig_document, p_psig_docFormat,
1026: p_psig_requester, p_psig_source, p_event_name, p_event_key,
1047: x_msg_count, x_msg_data, l_document_id );
1048:
1049: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
1050: EXCEPTION
1051: WHEN FND_API.G_EXC_ERROR THEN
1052: x_return_status := FND_API.G_RET_STS_ERROR ;
1053: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
1054: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1048:
1049: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
1050: EXCEPTION
1051: WHEN FND_API.G_EXC_ERROR THEN
1052: x_return_status := FND_API.G_RET_STS_ERROR ;
1053: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
1054: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1056: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
1050: EXCEPTION
1051: WHEN FND_API.G_EXC_ERROR THEN
1052: x_return_status := FND_API.G_RET_STS_ERROR ;
1053: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
1054: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1056: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
1057: WHEN OTHERS THEN
1058: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1051: WHEN FND_API.G_EXC_ERROR THEN
1052: x_return_status := FND_API.G_RET_STS_ERROR ;
1053: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
1054: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1056: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
1057: WHEN OTHERS THEN
1058: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1059: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1054: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1056: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );
1057: WHEN OTHERS THEN
1058: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1059: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1060: THEN FND_MSG_PUB.Add_Exc_Msg ( g_pkg_name, l_api_name );
1061: END IF;
1062: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count, p_data => x_msg_data );