66: --
67: --------------------------------------------------------------------
68: PROCEDURE Process_Wf_Mapping (
69: p_api_version IN NUMBER := 1.0,
70: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
71: p_commit IN VARCHAR2 := Fnd_Api.g_false,
72: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
73: p_x_Wf_Mapping_tbl IN OUT NOCOPY Wf_Mapping_tbl,
74: x_return_status OUT NOCOPY VARCHAR2,
67: --------------------------------------------------------------------
68: PROCEDURE Process_Wf_Mapping (
69: p_api_version IN NUMBER := 1.0,
70: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
71: p_commit IN VARCHAR2 := Fnd_Api.g_false,
72: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
73: p_x_Wf_Mapping_tbl IN OUT NOCOPY Wf_Mapping_tbl,
74: x_return_status OUT NOCOPY VARCHAR2,
75: x_msg_count OUT NOCOPY NUMBER,
68: PROCEDURE Process_Wf_Mapping (
69: p_api_version IN NUMBER := 1.0,
70: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
71: p_commit IN VARCHAR2 := Fnd_Api.g_false,
72: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
73: p_x_Wf_Mapping_tbl IN OUT NOCOPY Wf_Mapping_tbl,
74: x_return_status OUT NOCOPY VARCHAR2,
75: x_msg_count OUT NOCOPY NUMBER,
76: x_msg_data OUT NOCOPY VARCHAR2
96: IF G_DEBUG='Y' THEN
97: Ahl_Debug_Pub.debug( l_full_name ||':Start');
98: END IF;
99:
100: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
101: Fnd_Msg_Pub.initialize;
102: END IF;
103: IF NOT Fnd_Api.compatible_api_call (
104: L_API_VERSION,
99:
100: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
101: Fnd_Msg_Pub.initialize;
102: END IF;
103: IF NOT Fnd_Api.compatible_api_call (
104: L_API_VERSION,
105: p_api_version,
106: L_API_NAME,
107: G_PKG_NAME
105: p_api_version,
106: L_API_NAME,
107: G_PKG_NAME
108: ) THEN
109: RAISE Fnd_Api.g_exc_unexpected_error;
110: END IF;
111: x_return_status := Fnd_Api.g_ret_sts_success;
112:
113: ----------------------- validate -----------------------
107: G_PKG_NAME
108: ) THEN
109: RAISE Fnd_Api.g_exc_unexpected_error;
110: END IF;
111: x_return_status := Fnd_Api.g_ret_sts_success;
112:
113: ----------------------- validate -----------------------
114: IF G_DEBUG='Y' THEN
115: Ahl_Debug_Pub.debug( l_full_name ||':Validate');
160: END IF;
161: END LOOP;
162: END IF;
163:
164: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
165: RAISE Fnd_Api.g_exc_error;
166: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
167: RAISE Fnd_Api.g_exc_unexpected_error;
168: END IF;
161: END LOOP;
162: END IF;
163:
164: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
165: RAISE Fnd_Api.g_exc_error;
166: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
167: RAISE Fnd_Api.g_exc_unexpected_error;
168: END IF;
169:
162: END IF;
163:
164: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
165: RAISE Fnd_Api.g_exc_error;
166: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
167: RAISE Fnd_Api.g_exc_unexpected_error;
168: END IF;
169:
170: --
163:
164: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
165: RAISE Fnd_Api.g_exc_error;
166: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
167: RAISE Fnd_Api.g_exc_unexpected_error;
168: END IF;
169:
170: --
171: -- END of API body.
170: --
171: -- END of API body.
172: --
173: -- Standard check of p_commit.
174: IF Fnd_Api.To_Boolean ( p_commit ) THEN
175: COMMIT WORK;
176: END IF;
177: Fnd_Msg_Pub.count_and_get(
178: p_encoded => Fnd_Api.g_false,
174: IF Fnd_Api.To_Boolean ( p_commit ) THEN
175: COMMIT WORK;
176: END IF;
177: Fnd_Msg_Pub.count_and_get(
178: p_encoded => Fnd_Api.g_false,
179: p_count => x_msg_count,
180: p_data => x_msg_data
181: );
182: IF G_DEBUG='Y' THEN
187: Ahl_Debug_Pub.disable_debug;
188: END IF;
189:
190: EXCEPTION
191: WHEN Fnd_Api.g_exc_error THEN
192: ROLLBACK TO Process_Wf_Mapping;
193: x_return_status := Fnd_Api.g_ret_sts_error;
194: Fnd_Msg_Pub.count_and_get(
195: p_encoded => Fnd_Api.g_false,
189:
190: EXCEPTION
191: WHEN Fnd_Api.g_exc_error THEN
192: ROLLBACK TO Process_Wf_Mapping;
193: x_return_status := Fnd_Api.g_ret_sts_error;
194: Fnd_Msg_Pub.count_and_get(
195: p_encoded => Fnd_Api.g_false,
196: p_count => x_msg_count,
197: p_data => x_msg_data
191: WHEN Fnd_Api.g_exc_error THEN
192: ROLLBACK TO Process_Wf_Mapping;
193: x_return_status := Fnd_Api.g_ret_sts_error;
194: Fnd_Msg_Pub.count_and_get(
195: p_encoded => Fnd_Api.g_false,
196: p_count => x_msg_count,
197: p_data => x_msg_data
198: );
199: WHEN Fnd_Api.g_exc_unexpected_error THEN
195: p_encoded => Fnd_Api.g_false,
196: p_count => x_msg_count,
197: p_data => x_msg_data
198: );
199: WHEN Fnd_Api.g_exc_unexpected_error THEN
200: ROLLBACK TO Process_Wf_Mapping;
201: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
202: Fnd_Msg_Pub.count_and_get (
203: p_encoded => Fnd_Api.g_false,
197: p_data => x_msg_data
198: );
199: WHEN Fnd_Api.g_exc_unexpected_error THEN
200: ROLLBACK TO Process_Wf_Mapping;
201: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
202: Fnd_Msg_Pub.count_and_get (
203: p_encoded => Fnd_Api.g_false,
204: p_count => x_msg_count,
205: p_data => x_msg_data
199: WHEN Fnd_Api.g_exc_unexpected_error THEN
200: ROLLBACK TO Process_Wf_Mapping;
201: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
202: Fnd_Msg_Pub.count_and_get (
203: p_encoded => Fnd_Api.g_false,
204: p_count => x_msg_count,
205: p_data => x_msg_data
206: );
207: WHEN OTHERS THEN
205: p_data => x_msg_data
206: );
207: WHEN OTHERS THEN
208: ROLLBACK TO Process_Wf_Mapping;
209: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
210: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
211: Fnd_Msg_Pub.add_exc_msg (g_pkg_name, l_api_name);
212: END IF;
213: Fnd_Msg_Pub.count_and_get (
210: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
211: Fnd_Msg_Pub.add_exc_msg (g_pkg_name, l_api_name);
212: END IF;
213: Fnd_Msg_Pub.count_and_get (
214: p_encoded => Fnd_Api.g_false,
215: p_count => x_msg_count,
216: p_data => x_msg_data
217: );
218:
226: --------------------------------------------------------------------
227:
228: PROCEDURE Create_Wf_Mapping (
229: p_api_version IN NUMBER := 1.0,
230: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
231: p_commit IN VARCHAR2 := Fnd_Api.g_false,
232: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
233: p_Wf_Mapping_rec IN Wf_Mapping_Rec_Type,
234:
227:
228: PROCEDURE Create_Wf_Mapping (
229: p_api_version IN NUMBER := 1.0,
230: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
231: p_commit IN VARCHAR2 := Fnd_Api.g_false,
232: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
233: p_Wf_Mapping_rec IN Wf_Mapping_Rec_Type,
234:
235: x_return_status OUT NOCOPY VARCHAR2,
228: PROCEDURE Create_Wf_Mapping (
229: p_api_version IN NUMBER := 1.0,
230: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
231: p_commit IN VARCHAR2 := Fnd_Api.g_false,
232: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
233: p_Wf_Mapping_rec IN Wf_Mapping_Rec_Type,
234:
235: x_return_status OUT NOCOPY VARCHAR2,
236: x_msg_count OUT NOCOPY NUMBER,
286: IF G_DEBUG='Y' THEN
287: Ahl_Debug_Pub.debug( l_full_name ||':Start');
288: END IF;
289:
290: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
291: Fnd_Msg_Pub.initialize;
292: END IF;
293: IF NOT Fnd_Api.compatible_api_call (
294: L_API_VERSION,
289:
290: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
291: Fnd_Msg_Pub.initialize;
292: END IF;
293: IF NOT Fnd_Api.compatible_api_call (
294: L_API_VERSION,
295: p_api_version,
296: L_API_NAME,
297: G_PKG_NAME
295: p_api_version,
296: L_API_NAME,
297: G_PKG_NAME
298: ) THEN
299: RAISE Fnd_Api.g_exc_unexpected_error;
300: END IF;
301: x_return_status := Fnd_Api.g_ret_sts_success;
302: ----------------------- validate -----------------------
303: IF G_DEBUG='Y' THEN
297: G_PKG_NAME
298: ) THEN
299: RAISE Fnd_Api.g_exc_unexpected_error;
300: END IF;
301: x_return_status := Fnd_Api.g_ret_sts_success;
302: ----------------------- validate -----------------------
303: IF G_DEBUG='Y' THEN
304: Ahl_Debug_Pub.debug( l_full_name ||':Validate');
305: END IF;
311: p_wf_mapping_rec => p_wf_mapping_rec,
312: p_complete_rec => l_wf_mapping_rec,
313: x_return_status => l_return_status
314: );
315: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
316: RAISE Fnd_Api.g_exc_unexpected_error;
317: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
318: RAISE Fnd_Api.g_exc_error;
319: END IF;
312: p_complete_rec => l_wf_mapping_rec,
313: x_return_status => l_return_status
314: );
315: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
316: RAISE Fnd_Api.g_exc_unexpected_error;
317: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
318: RAISE Fnd_Api.g_exc_error;
319: END IF;
320: END IF;
313: x_return_status => l_return_status
314: );
315: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
316: RAISE Fnd_Api.g_exc_unexpected_error;
317: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
318: RAISE Fnd_Api.g_exc_error;
319: END IF;
320: END IF;
321:
314: );
315: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
316: RAISE Fnd_Api.g_exc_unexpected_error;
317: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
318: RAISE Fnd_Api.g_exc_error;
319: END IF;
320: END IF;
321:
322: Validate_Wf_Mapping (
329: x_msg_data => x_msg_data,
330: p_Wf_Mapping_rec => l_Wf_Mapping_rec
331: );
332:
333: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
334: RAISE Fnd_Api.g_exc_error;
335: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
336: RAISE Fnd_Api.g_exc_unexpected_error;
337: END IF;
330: p_Wf_Mapping_rec => l_Wf_Mapping_rec
331: );
332:
333: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
334: RAISE Fnd_Api.g_exc_error;
335: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
336: RAISE Fnd_Api.g_exc_unexpected_error;
337: END IF;
338:
331: );
332:
333: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
334: RAISE Fnd_Api.g_exc_error;
335: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
336: RAISE Fnd_Api.g_exc_unexpected_error;
337: END IF;
338:
339: --
332:
333: IF l_return_status = Fnd_Api.g_ret_sts_error THEN
334: RAISE Fnd_Api.g_exc_error;
335: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
336: RAISE Fnd_Api.g_exc_unexpected_error;
337: END IF;
338:
339: --
340: -- Check for the ID.
338:
339: --
340: -- Check for the ID.
341: --
342: IF l_Wf_Mapping_rec.WF_Mapping_ID = fnd_api.g_miss_num OR l_Wf_Mapping_rec.WF_Mapping_ID is null THEN
343: --IF l_Wf_Mapping_rec.WF_Mapping_ID is null THEN
344: LOOP
345: --
346: -- If the ID is not passed into the API, then grab a value from the sequence.
367: x_item_type => l_item_type,
368: x_process_name => l_process_name,
369: x_return_status => l_return_status
370: );
371: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
372: RAISE Fnd_Api.g_exc_unexpected_error;
373: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
374: RAISE Fnd_Api.g_exc_error;
375: ELSE
368: x_process_name => l_process_name,
369: x_return_status => l_return_status
370: );
371: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
372: RAISE Fnd_Api.g_exc_unexpected_error;
373: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
374: RAISE Fnd_Api.g_exc_error;
375: ELSE
376: --if process name is valid then grab value of item type from c_item_type cursor
369: x_return_status => l_return_status
370: );
371: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
372: RAISE Fnd_Api.g_exc_unexpected_error;
373: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
374: RAISE Fnd_Api.g_exc_error;
375: ELSE
376: --if process name is valid then grab value of item type from c_item_type cursor
377: --
370: );
371: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
372: RAISE Fnd_Api.g_exc_unexpected_error;
373: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
374: RAISE Fnd_Api.g_exc_error;
375: ELSE
376: --if process name is valid then grab value of item type from c_item_type cursor
377: --
378: /*OPEN c_item_type;
387: Check_Appl_Usg_Code (p_wf_mapping_rec => p_wf_mapping_rec,
388: x_return_status => l_return_status
389: );
390:
391: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
392: RAISE Fnd_Api.g_exc_unexpected_error;
393: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
394: RAISE Fnd_Api.g_exc_error;
395: ELSE
388: x_return_status => l_return_status
389: );
390:
391: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
392: RAISE Fnd_Api.g_exc_unexpected_error;
393: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
394: RAISE Fnd_Api.g_exc_error;
395: ELSE
396: OPEN c_appl_usg;
389: );
390:
391: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
392: RAISE Fnd_Api.g_exc_unexpected_error;
393: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
394: RAISE Fnd_Api.g_exc_error;
395: ELSE
396: OPEN c_appl_usg;
397: FETCH c_appl_usg INTO l_Wf_Mapping_rec.Application_Usg_Code;
390:
391: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
392: RAISE Fnd_Api.g_exc_unexpected_error;
393: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
394: RAISE Fnd_Api.g_exc_error;
395: ELSE
396: OPEN c_appl_usg;
397: FETCH c_appl_usg INTO l_Wf_Mapping_rec.Application_Usg_Code;
398: IF c_appl_usg%NOTFOUND THEN
399: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
400: Fnd_Message.set_name ('AHL', 'AHL_APPR_APPUSG_INVALID');
401: Fnd_Msg_Pub.ADD;
402: END IF;
403: RAISE Fnd_Api.g_exc_unexpected_error;
404: END IF;
405: END IF;
406: END IF;
407: */
436: --
437: -- END of API body.
438: --
439: -- Standard check of p_commit.
440: IF Fnd_Api.To_Boolean ( p_commit ) THEN
441: COMMIT WORK;
442: END IF;
443: Fnd_Msg_Pub.count_and_get(
444: p_encoded => Fnd_Api.g_false,
440: IF Fnd_Api.To_Boolean ( p_commit ) THEN
441: COMMIT WORK;
442: END IF;
443: Fnd_Msg_Pub.count_and_get(
444: p_encoded => Fnd_Api.g_false,
445: p_count => x_msg_count,
446: p_data => x_msg_data
447: );
448: IF Ahl_Debug_Pub.G_FILE_DEBUG THEN
451: -- Check if API is called in debug mode. If yes, disable debug.
452: Ahl_Debug_Pub.disable_debug;
453:
454: EXCEPTION
455: WHEN Fnd_Api.g_exc_error THEN
456: ROLLBACK TO Create_Wf_Mapping;
457: x_return_status := Fnd_Api.g_ret_sts_error;
458: Fnd_Msg_Pub.count_and_get(
459: p_encoded => Fnd_Api.g_false,
453:
454: EXCEPTION
455: WHEN Fnd_Api.g_exc_error THEN
456: ROLLBACK TO Create_Wf_Mapping;
457: x_return_status := Fnd_Api.g_ret_sts_error;
458: Fnd_Msg_Pub.count_and_get(
459: p_encoded => Fnd_Api.g_false,
460: p_count => x_msg_count,
461: p_data => x_msg_data
455: WHEN Fnd_Api.g_exc_error THEN
456: ROLLBACK TO Create_Wf_Mapping;
457: x_return_status := Fnd_Api.g_ret_sts_error;
458: Fnd_Msg_Pub.count_and_get(
459: p_encoded => Fnd_Api.g_false,
460: p_count => x_msg_count,
461: p_data => x_msg_data
462: );
463: WHEN Fnd_Api.g_exc_unexpected_error THEN
459: p_encoded => Fnd_Api.g_false,
460: p_count => x_msg_count,
461: p_data => x_msg_data
462: );
463: WHEN Fnd_Api.g_exc_unexpected_error THEN
464: ROLLBACK TO Create_Wf_Mapping;
465: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
466: Fnd_Msg_Pub.count_and_get (
467: p_encoded => Fnd_Api.g_false,
461: p_data => x_msg_data
462: );
463: WHEN Fnd_Api.g_exc_unexpected_error THEN
464: ROLLBACK TO Create_Wf_Mapping;
465: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
466: Fnd_Msg_Pub.count_and_get (
467: p_encoded => Fnd_Api.g_false,
468: p_count => x_msg_count,
469: p_data => x_msg_data
463: WHEN Fnd_Api.g_exc_unexpected_error THEN
464: ROLLBACK TO Create_Wf_Mapping;
465: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
466: Fnd_Msg_Pub.count_and_get (
467: p_encoded => Fnd_Api.g_false,
468: p_count => x_msg_count,
469: p_data => x_msg_data
470: );
471: WHEN OTHERS THEN
469: p_data => x_msg_data
470: );
471: WHEN OTHERS THEN
472: ROLLBACK TO Create_Wf_Mapping;
473: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
474: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
475: Fnd_Msg_Pub.add_exc_msg (g_pkg_name, l_api_name);
476: END IF;
477: Fnd_Msg_Pub.count_and_get (
474: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
475: Fnd_Msg_Pub.add_exc_msg (g_pkg_name, l_api_name);
476: END IF;
477: Fnd_Msg_Pub.count_and_get (
478: p_encoded => Fnd_Api.g_false,
479: p_count => x_msg_count,
480: p_data => x_msg_data
481: );
482: END Create_Wf_Mapping;
487: --
488: --------------------------------------------------------------------
489: PROCEDURE Update_Wf_Mapping (
490: p_api_version IN NUMBER := 1.0,
491: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
492: p_commit IN VARCHAR2 := Fnd_Api.g_false,
493: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
494: p_Wf_Mapping_rec IN Wf_Mapping_Rec_Type,
495:
488: --------------------------------------------------------------------
489: PROCEDURE Update_Wf_Mapping (
490: p_api_version IN NUMBER := 1.0,
491: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
492: p_commit IN VARCHAR2 := Fnd_Api.g_false,
493: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
494: p_Wf_Mapping_rec IN Wf_Mapping_Rec_Type,
495:
496: x_return_status OUT NOCOPY VARCHAR2,
489: PROCEDURE Update_Wf_Mapping (
490: p_api_version IN NUMBER := 1.0,
491: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
492: p_commit IN VARCHAR2 := Fnd_Api.g_false,
493: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
494: p_Wf_Mapping_rec IN Wf_Mapping_Rec_Type,
495:
496: x_return_status OUT NOCOPY VARCHAR2,
497: x_msg_count OUT NOCOPY NUMBER,
531: -- Debug info.
532: IF G_DEBUG='Y' THEN
533: Ahl_Debug_Pub.debug( l_full_name ||':Start');
534: END IF;
535: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
536: Fnd_Msg_Pub.initialize;
537: END IF;
538: IF NOT Fnd_Api.compatible_api_call(
539: l_api_version,
534: END IF;
535: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
536: Fnd_Msg_Pub.initialize;
537: END IF;
538: IF NOT Fnd_Api.compatible_api_call(
539: l_api_version,
540: p_api_version,
541: l_api_name,
542: g_pkg_name
540: p_api_version,
541: l_api_name,
542: g_pkg_name
543: ) THEN
544: RAISE Fnd_Api.g_exc_unexpected_error;
545: END IF;
546: x_return_status := Fnd_Api.g_ret_sts_success;
547: ----------------------- validate ----------------------
548: IF G_DEBUG='Y' THEN
542: g_pkg_name
543: ) THEN
544: RAISE Fnd_Api.g_exc_unexpected_error;
545: END IF;
546: x_return_status := Fnd_Api.g_ret_sts_success;
547: ----------------------- validate ----------------------
548: IF G_DEBUG='Y' THEN
549: Ahl_Debug_Pub.debug( l_full_name ||':Validate');
550: END IF;
556: p_wf_mapping_rec => p_wf_mapping_rec,
557: p_complete_rec => l_wf_mapping_rec,
558: x_return_status => l_return_status
559: );
560: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
561: RAISE Fnd_Api.g_exc_unexpected_error;
562: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
563: RAISE Fnd_Api.g_exc_error;
564: END IF;
557: p_complete_rec => l_wf_mapping_rec,
558: x_return_status => l_return_status
559: );
560: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
561: RAISE Fnd_Api.g_exc_unexpected_error;
562: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
563: RAISE Fnd_Api.g_exc_error;
564: END IF;
565: END IF;
558: x_return_status => l_return_status
559: );
560: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
561: RAISE Fnd_Api.g_exc_unexpected_error;
562: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
563: RAISE Fnd_Api.g_exc_error;
564: END IF;
565: END IF;
566:
559: );
560: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
561: RAISE Fnd_Api.g_exc_unexpected_error;
562: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
563: RAISE Fnd_Api.g_exc_error;
564: END IF;
565: END IF;
566:
567: -- replace g_miss_char/num/date with current column values
573: p_validation_mode => Jtf_Plsql_Api.g_update,
574: x_return_status => l_return_status
575:
576: );
577: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
578: RAISE Fnd_Api.g_exc_unexpected_error;
579: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
580: RAISE Fnd_Api.g_exc_error;
581: END IF;
574: x_return_status => l_return_status
575:
576: );
577: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
578: RAISE Fnd_Api.g_exc_unexpected_error;
579: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
580: RAISE Fnd_Api.g_exc_error;
581: END IF;
582: END IF;
575:
576: );
577: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
578: RAISE Fnd_Api.g_exc_unexpected_error;
579: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
580: RAISE Fnd_Api.g_exc_error;
581: END IF;
582: END IF;
583:
576: );
577: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
578: RAISE Fnd_Api.g_exc_unexpected_error;
579: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
580: RAISE Fnd_Api.g_exc_error;
581: END IF;
582: END IF;
583:
584: -- Check whether procees name entered is valid not selected from LOV's
589: x_item_type => l_item_type,
590: x_process_name => l_process_name,
591: x_return_status => l_return_status
592: );
593: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
594: RAISE Fnd_Api.g_exc_unexpected_error;
595: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
596: RAISE Fnd_Api.g_exc_error;
597: ELSE
590: x_process_name => l_process_name,
591: x_return_status => l_return_status
592: );
593: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
594: RAISE Fnd_Api.g_exc_unexpected_error;
595: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
596: RAISE Fnd_Api.g_exc_error;
597: ELSE
598: --if process name is valid then grab value of item type from c_item_type cursor
591: x_return_status => l_return_status
592: );
593: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
594: RAISE Fnd_Api.g_exc_unexpected_error;
595: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
596: RAISE Fnd_Api.g_exc_error;
597: ELSE
598: --if process name is valid then grab value of item type from c_item_type cursor
599: --
592: );
593: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
594: RAISE Fnd_Api.g_exc_unexpected_error;
595: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
596: RAISE Fnd_Api.g_exc_error;
597: ELSE
598: --if process name is valid then grab value of item type from c_item_type cursor
599: --
600: /* OPEN c_item_type;
609: Check_Appl_Usg_Code (
610: p_wf_mapping_rec => p_wf_mapping_rec,
611: x_return_status => l_return_status
612: );
613: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
614: RAISE Fnd_Api.g_exc_unexpected_error;
615: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
616: RAISE Fnd_Api.g_exc_error;
617: ELSE
610: p_wf_mapping_rec => p_wf_mapping_rec,
611: x_return_status => l_return_status
612: );
613: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
614: RAISE Fnd_Api.g_exc_unexpected_error;
615: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
616: RAISE Fnd_Api.g_exc_error;
617: ELSE
618: OPEN c_appl_usg;
611: x_return_status => l_return_status
612: );
613: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
614: RAISE Fnd_Api.g_exc_unexpected_error;
615: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
616: RAISE Fnd_Api.g_exc_error;
617: ELSE
618: OPEN c_appl_usg;
619: FETCH c_appl_usg INTO l_Wf_Mapping_rec.Application_Usg_Code;
612: );
613: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
614: RAISE Fnd_Api.g_exc_unexpected_error;
615: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
616: RAISE Fnd_Api.g_exc_error;
617: ELSE
618: OPEN c_appl_usg;
619: FETCH c_appl_usg INTO l_Wf_Mapping_rec.Application_Usg_Code;
620: IF c_appl_usg%NOTFOUND THEN
621: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
622: Fnd_Message.set_name ('AHL', 'AHL_APPR_APPUSG_INVALID');
623: Fnd_Msg_Pub.ADD;
624: END IF;
625: RAISE Fnd_Api.g_exc_unexpected_error;
626: END IF;
627: END IF;
628: END IF;
629: */
646: X_APPLICATION_USG_CODE => l_Wf_Mapping_rec.APPLICATION_USG_CODE
647: );
648:
649: -------------------- finish --------------------------
650: IF Fnd_Api.to_boolean (p_commit) THEN
651: COMMIT;
652: END IF;
653: Fnd_Msg_Pub.count_and_get (
654: p_encoded => Fnd_Api.g_false,
650: IF Fnd_Api.to_boolean (p_commit) THEN
651: COMMIT;
652: END IF;
653: Fnd_Msg_Pub.count_and_get (
654: p_encoded => Fnd_Api.g_false,
655: p_count => x_msg_count,
656: p_data => x_msg_data
657: );
658: IF G_DEBUG='Y' THEN
662: IF G_DEBUG='Y' THEN
663: Ahl_Debug_Pub.disable_debug;
664: END IF;
665: EXCEPTION
666: WHEN Fnd_Api.g_exc_error THEN
667: ROLLBACK TO Update_Wf_Mapping;
668: x_return_status := Fnd_Api.g_ret_sts_error;
669: Fnd_Msg_Pub.count_and_get (
670: p_encoded => Fnd_Api.g_false,
664: END IF;
665: EXCEPTION
666: WHEN Fnd_Api.g_exc_error THEN
667: ROLLBACK TO Update_Wf_Mapping;
668: x_return_status := Fnd_Api.g_ret_sts_error;
669: Fnd_Msg_Pub.count_and_get (
670: p_encoded => Fnd_Api.g_false,
671: p_count => x_msg_count,
672: p_data => x_msg_data
666: WHEN Fnd_Api.g_exc_error THEN
667: ROLLBACK TO Update_Wf_Mapping;
668: x_return_status := Fnd_Api.g_ret_sts_error;
669: Fnd_Msg_Pub.count_and_get (
670: p_encoded => Fnd_Api.g_false,
671: p_count => x_msg_count,
672: p_data => x_msg_data
673: );
674: WHEN Fnd_Api.g_exc_unexpected_error THEN
670: p_encoded => Fnd_Api.g_false,
671: p_count => x_msg_count,
672: p_data => x_msg_data
673: );
674: WHEN Fnd_Api.g_exc_unexpected_error THEN
675: ROLLBACK TO Update_Wf_Mapping;
676: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
677: Fnd_Msg_Pub.count_and_get (
678: p_encoded => Fnd_Api.g_false,
672: p_data => x_msg_data
673: );
674: WHEN Fnd_Api.g_exc_unexpected_error THEN
675: ROLLBACK TO Update_Wf_Mapping;
676: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
677: Fnd_Msg_Pub.count_and_get (
678: p_encoded => Fnd_Api.g_false,
679: p_count => x_msg_count,
680: p_data => x_msg_data
674: WHEN Fnd_Api.g_exc_unexpected_error THEN
675: ROLLBACK TO Update_Wf_Mapping;
676: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
677: Fnd_Msg_Pub.count_and_get (
678: p_encoded => Fnd_Api.g_false,
679: p_count => x_msg_count,
680: p_data => x_msg_data
681: );
682: WHEN OTHERS THEN
680: p_data => x_msg_data
681: );
682: WHEN OTHERS THEN
683: ROLLBACK TO Update_Wf_Mapping;
684: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
685: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
686: THEN
687: Fnd_Msg_Pub.add_exc_msg (g_pkg_name, l_api_name);
688: END IF;
686: THEN
687: Fnd_Msg_Pub.add_exc_msg (g_pkg_name, l_api_name);
688: END IF;
689: Fnd_Msg_Pub.count_and_get (
690: p_encoded => Fnd_Api.g_false,
691: p_count => x_msg_count,
692: p_data => x_msg_data
693: );
694: END Update_Wf_Mapping;
763: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
764: Fnd_Message.set_name ('AHL', 'AHL_WF_NOT_PROCESS');
765: Fnd_Msg_Pub.ADD;
766: END IF;
767: x_return_status := Fnd_Api.g_ret_sts_error;
768: RETURN;
769: ELSIF cur_process_name%ROWCOUNT > 1 THEN
770: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
771: Fnd_Message.set_name ('AHL', 'AHL_WF_PROCESS_USELOV');
770: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
771: Fnd_Message.set_name ('AHL', 'AHL_WF_PROCESS_USELOV');
772: Fnd_Msg_Pub.ADD;
773: END IF;
774: x_return_status := Fnd_Api.g_ret_sts_error;
775: RETURN;
776: END IF;
777: close cur_process_name;
778: END IF;
829: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
830: Fnd_Message.set_name ('AHL', 'AHL_WF_DEFAULT_NOT_TWO');
831: Fnd_Msg_Pub.ADD;
832: END IF;
833: x_return_status := Fnd_Api.g_ret_sts_error;
834: RETURN;
835: ELSE
836: Close check_object ;
837: END IF;
846: --------------------------------------------------------------------
847:
848: PROCEDURE Delete_wf_mapping (
849: p_api_version IN NUMBER := 1.0,
850: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
851: p_commit IN VARCHAR2 := Fnd_Api.g_false,
852: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
853: x_return_status OUT NOCOPY VARCHAR2,
854: x_msg_count OUT NOCOPY NUMBER,
847:
848: PROCEDURE Delete_wf_mapping (
849: p_api_version IN NUMBER := 1.0,
850: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
851: p_commit IN VARCHAR2 := Fnd_Api.g_false,
852: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
853: x_return_status OUT NOCOPY VARCHAR2,
854: x_msg_count OUT NOCOPY NUMBER,
855: x_msg_data OUT NOCOPY VARCHAR2,
848: PROCEDURE Delete_wf_mapping (
849: p_api_version IN NUMBER := 1.0,
850: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
851: p_commit IN VARCHAR2 := Fnd_Api.g_false,
852: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
853: x_return_status OUT NOCOPY VARCHAR2,
854: x_msg_count OUT NOCOPY NUMBER,
855: x_msg_data OUT NOCOPY VARCHAR2,
856: p_wf_mapping_id IN NUMBER,
882: -- Debug info.
883: IF G_DEBUG='Y' THEN
884: Ahl_Debug_Pub.debug( l_full_name ||':Start');
885: END IF;
886: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
887: Fnd_Msg_Pub.initialize;
888: END IF;
889: IF NOT Fnd_Api.compatible_api_call (
890: l_api_version,
885: END IF;
886: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
887: Fnd_Msg_Pub.initialize;
888: END IF;
889: IF NOT Fnd_Api.compatible_api_call (
890: l_api_version,
891: p_api_version,
892: l_api_name,
893: g_pkg_name
891: p_api_version,
892: l_api_name,
893: g_pkg_name
894: ) THEN
895: RAISE Fnd_Api.g_exc_unexpected_error;
896: END IF;
897: x_return_status := Fnd_Api.g_ret_sts_success;
898:
899: ------------------------ delete ------------------------
893: g_pkg_name
894: ) THEN
895: RAISE Fnd_Api.g_exc_unexpected_error;
896: END IF;
897: x_return_status := Fnd_Api.g_ret_sts_success;
898:
899: ------------------------ delete ------------------------
900: IF G_DEBUG='Y' THEN
901: Ahl_Debug_Pub.debug( l_full_name ||':Delete');
908: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
909: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
910: Fnd_Msg_Pub.ADD;
911: END IF;
912: RAISE Fnd_Api.g_exc_error;
913: END IF;
914: CLOSE c_wf_mapping;
915: -- Delete TL data
916:
921: THEN
922: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
923: Fnd_Msg_Pub.ADD;
924: END IF;
925: RAISE Fnd_Api.g_exc_error;
926: END IF;
927:
928: -------------------- finish --------------------------
929: IF Fnd_Api.to_boolean (p_commit) THEN
925: RAISE Fnd_Api.g_exc_error;
926: END IF;
927:
928: -------------------- finish --------------------------
929: IF Fnd_Api.to_boolean (p_commit) THEN
930: COMMIT;
931: END IF;
932: Fnd_Msg_Pub.count_and_get (
933: p_encoded => Fnd_Api.g_false,
929: IF Fnd_Api.to_boolean (p_commit) THEN
930: COMMIT;
931: END IF;
932: Fnd_Msg_Pub.count_and_get (
933: p_encoded => Fnd_Api.g_false,
934: p_count => x_msg_count,
935: p_data => x_msg_data
936: );
937: IF G_DEBUG='Y' THEN
941: IF G_DEBUG='Y' THEN
942: Ahl_Debug_Pub.disable_debug;
943: END IF;
944: EXCEPTION
945: WHEN Fnd_Api.g_exc_error THEN
946: ROLLBACK TO Delete_wf_mapping;
947: x_return_status := Fnd_Api.g_ret_sts_error;
948: Fnd_Msg_Pub.count_and_get (
949: p_encoded => Fnd_Api.g_false,
943: END IF;
944: EXCEPTION
945: WHEN Fnd_Api.g_exc_error THEN
946: ROLLBACK TO Delete_wf_mapping;
947: x_return_status := Fnd_Api.g_ret_sts_error;
948: Fnd_Msg_Pub.count_and_get (
949: p_encoded => Fnd_Api.g_false,
950: p_count => x_msg_count,
951: p_data => x_msg_data
945: WHEN Fnd_Api.g_exc_error THEN
946: ROLLBACK TO Delete_wf_mapping;
947: x_return_status := Fnd_Api.g_ret_sts_error;
948: Fnd_Msg_Pub.count_and_get (
949: p_encoded => Fnd_Api.g_false,
950: p_count => x_msg_count,
951: p_data => x_msg_data
952: );
953: WHEN Fnd_Api.g_exc_unexpected_error THEN
949: p_encoded => Fnd_Api.g_false,
950: p_count => x_msg_count,
951: p_data => x_msg_data
952: );
953: WHEN Fnd_Api.g_exc_unexpected_error THEN
954: ROLLBACK TO Delete_wf_mapping;
955: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
956: Fnd_Msg_Pub.count_and_get (
957: p_encoded => Fnd_Api.g_false,
951: p_data => x_msg_data
952: );
953: WHEN Fnd_Api.g_exc_unexpected_error THEN
954: ROLLBACK TO Delete_wf_mapping;
955: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
956: Fnd_Msg_Pub.count_and_get (
957: p_encoded => Fnd_Api.g_false,
958: p_count => x_msg_count,
959: p_data => x_msg_data
953: WHEN Fnd_Api.g_exc_unexpected_error THEN
954: ROLLBACK TO Delete_wf_mapping;
955: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
956: Fnd_Msg_Pub.count_and_get (
957: p_encoded => Fnd_Api.g_false,
958: p_count => x_msg_count,
959: p_data => x_msg_data
960: );
961: WHEN OTHERS THEN
959: p_data => x_msg_data
960: );
961: WHEN OTHERS THEN
962: ROLLBACK TO Delete_wf_mapping;
963: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
964: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
965: THEN
966: Fnd_Msg_Pub.add_exc_msg (g_pkg_name, l_api_name);
967: END IF;
965: THEN
966: Fnd_Msg_Pub.add_exc_msg (g_pkg_name, l_api_name);
967: END IF;
968: Fnd_Msg_Pub.count_and_get (
969: p_encoded => Fnd_Api.g_false,
970: p_count => x_msg_count,
971: p_data => x_msg_data
972: );
973: END Delete_wf_mapping;
978: --
979: --------------------------------------------------------------------
980: PROCEDURE Validate_Wf_Mapping (
981: p_api_version IN NUMBER := 1.0,
982: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
983: p_commit IN VARCHAR2 := Fnd_Api.g_false,
984: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
985: x_return_status OUT NOCOPY VARCHAR2,
986: x_msg_count OUT NOCOPY NUMBER,
979: --------------------------------------------------------------------
980: PROCEDURE Validate_Wf_Mapping (
981: p_api_version IN NUMBER := 1.0,
982: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
983: p_commit IN VARCHAR2 := Fnd_Api.g_false,
984: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
985: x_return_status OUT NOCOPY VARCHAR2,
986: x_msg_count OUT NOCOPY NUMBER,
987: x_msg_data OUT NOCOPY VARCHAR2,
980: PROCEDURE Validate_Wf_Mapping (
981: p_api_version IN NUMBER := 1.0,
982: p_init_msg_list IN VARCHAR2 := Fnd_Api.g_false,
983: p_commit IN VARCHAR2 := Fnd_Api.g_false,
984: p_validation_level IN NUMBER := Fnd_Api.g_valid_level_full,
985: x_return_status OUT NOCOPY VARCHAR2,
986: x_msg_count OUT NOCOPY NUMBER,
987: x_msg_data OUT NOCOPY VARCHAR2,
988: p_Wf_Mapping_rec IN Wf_Mapping_Rec_Type
1002: -- Debug info.
1003: IF G_DEBUG='Y' THEN
1004: Ahl_Debug_Pub.debug( l_full_name ||':Start');
1005: END IF;
1006: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
1007: Fnd_Msg_Pub.initialize;
1008: END IF;
1009: IF NOT Fnd_Api.compatible_api_call (
1010: l_api_version,
1005: END IF;
1006: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
1007: Fnd_Msg_Pub.initialize;
1008: END IF;
1009: IF NOT Fnd_Api.compatible_api_call (
1010: l_api_version,
1011: p_api_version,
1012: l_api_name,
1013: g_pkg_name
1011: p_api_version,
1012: l_api_name,
1013: g_pkg_name
1014: ) THEN
1015: RAISE Fnd_Api.g_exc_unexpected_error;
1016: END IF;
1017: x_return_status := Fnd_Api.g_ret_sts_success;
1018: ---------------------- validate ------------------------
1019: IF G_DEBUG='Y' THEN
1013: g_pkg_name
1014: ) THEN
1015: RAISE Fnd_Api.g_exc_unexpected_error;
1016: END IF;
1017: x_return_status := Fnd_Api.g_ret_sts_success;
1018: ---------------------- validate ------------------------
1019: IF G_DEBUG='Y' THEN
1020: Ahl_Debug_Pub.debug( l_full_name ||':Check items');
1021: END IF;
1025: p_Wf_Mapping_rec => p_Wf_Mapping_rec,
1026: p_validation_mode => Jtf_Plsql_Api.g_create,
1027: x_return_status => l_return_status
1028: );
1029: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1030: RAISE Fnd_Api.g_exc_unexpected_error;
1031: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
1032: RAISE Fnd_Api.g_exc_error;
1033: END IF;
1026: p_validation_mode => Jtf_Plsql_Api.g_create,
1027: x_return_status => l_return_status
1028: );
1029: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1030: RAISE Fnd_Api.g_exc_unexpected_error;
1031: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
1032: RAISE Fnd_Api.g_exc_error;
1033: END IF;
1034: END IF;
1027: x_return_status => l_return_status
1028: );
1029: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1030: RAISE Fnd_Api.g_exc_unexpected_error;
1031: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
1032: RAISE Fnd_Api.g_exc_error;
1033: END IF;
1034: END IF;
1035: IF G_DEBUG='Y' THEN
1028: );
1029: IF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
1030: RAISE Fnd_Api.g_exc_unexpected_error;
1031: ELSIF l_return_status = Fnd_Api.g_ret_sts_error THEN
1032: RAISE Fnd_Api.g_exc_error;
1033: END IF;
1034: END IF;
1035: IF G_DEBUG='Y' THEN
1036: Ahl_Debug_Pub.debug( l_full_name ||':Check record');
1037: END IF;
1038:
1039: -------------------- finish --------------------------
1040: Fnd_Msg_Pub.count_and_get (
1041: p_encoded => Fnd_Api.g_false,
1042: p_count => x_msg_count,
1043: p_data => x_msg_data
1044: );
1045: IF G_DEBUG='Y' THEN
1049: IF G_DEBUG='Y' THEN
1050: Ahl_Debug_Pub.disable_debug;
1051: END IF;
1052: EXCEPTION
1053: WHEN Fnd_Api.g_exc_error THEN
1054: x_return_status := Fnd_Api.g_ret_sts_error;
1055: Fnd_Msg_Pub.count_and_get (
1056: p_encoded => Fnd_Api.g_false,
1057: p_count => x_msg_count,
1050: Ahl_Debug_Pub.disable_debug;
1051: END IF;
1052: EXCEPTION
1053: WHEN Fnd_Api.g_exc_error THEN
1054: x_return_status := Fnd_Api.g_ret_sts_error;
1055: Fnd_Msg_Pub.count_and_get (
1056: p_encoded => Fnd_Api.g_false,
1057: p_count => x_msg_count,
1058: p_data => x_msg_data
1052: EXCEPTION
1053: WHEN Fnd_Api.g_exc_error THEN
1054: x_return_status := Fnd_Api.g_ret_sts_error;
1055: Fnd_Msg_Pub.count_and_get (
1056: p_encoded => Fnd_Api.g_false,
1057: p_count => x_msg_count,
1058: p_data => x_msg_data
1059: );
1060: WHEN Fnd_Api.g_exc_unexpected_error THEN
1056: p_encoded => Fnd_Api.g_false,
1057: p_count => x_msg_count,
1058: p_data => x_msg_data
1059: );
1060: WHEN Fnd_Api.g_exc_unexpected_error THEN
1061: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1062: Fnd_Msg_Pub.count_and_get (
1063: p_encoded => Fnd_Api.g_false,
1064: p_count => x_msg_count,
1057: p_count => x_msg_count,
1058: p_data => x_msg_data
1059: );
1060: WHEN Fnd_Api.g_exc_unexpected_error THEN
1061: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1062: Fnd_Msg_Pub.count_and_get (
1063: p_encoded => Fnd_Api.g_false,
1064: p_count => x_msg_count,
1065: p_data => x_msg_data
1059: );
1060: WHEN Fnd_Api.g_exc_unexpected_error THEN
1061: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1062: Fnd_Msg_Pub.count_and_get (
1063: p_encoded => Fnd_Api.g_false,
1064: p_count => x_msg_count,
1065: p_data => x_msg_data
1066: );
1067: WHEN OTHERS THEN
1064: p_count => x_msg_count,
1065: p_data => x_msg_data
1066: );
1067: WHEN OTHERS THEN
1068: x_return_status := Fnd_Api.g_ret_sts_unexp_error;
1069: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1070: THEN
1071: Fnd_Msg_Pub.add_exc_msg (g_pkg_name, l_api_name);
1072: END IF;
1070: THEN
1071: Fnd_Msg_Pub.add_exc_msg (g_pkg_name, l_api_name);
1072: END IF;
1073: Fnd_Msg_Pub.count_and_get (
1074: p_encoded => Fnd_Api.g_false,
1075: p_count => x_msg_count,
1076: p_data => x_msg_data
1077: );
1078: END Validate_Wf_Mapping;
1095: Check_Wf_Mapping_Req_Items (
1096: p_Wf_Mapping_rec => p_Wf_Mapping_rec,
1097: x_return_status => x_return_status
1098: );
1099: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
1100: RETURN;
1101: END IF;
1102: --
1103: -- Validate uniqueness.
1105: p_Wf_Mapping_rec => p_Wf_Mapping_rec,
1106: p_validation_mode => p_validation_mode,
1107: x_return_status => x_return_status
1108: );
1109: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
1110: RETURN;
1111: END IF;
1112:
1113: END Check_Wf_Mapping_Items;
1130: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1131: Fnd_Message.set_name ('AHL', 'AHL_APPR_APPUSG_INVALID');
1132: Fnd_Msg_Pub.ADD;
1133: END IF;
1134: x_return_status := Fnd_Api.g_ret_sts_error;
1135: RETURN;
1136: ELSE
1137: CLOSE chk_appl_usg_code;
1138: END IF;
1147: x_Wf_Mapping_rec OUT NOCOPY Wf_Mapping_Rec_Type
1148: )
1149: IS
1150: BEGIN
1151: x_Wf_Mapping_rec.object_version_number := Fnd_Api.g_miss_num;
1152: x_Wf_Mapping_rec.active_flag := Fnd_Api.g_miss_char;
1153: x_Wf_Mapping_rec.wf_process_name := Fnd_Api.g_miss_char;
1154: x_Wf_Mapping_rec.approval_object := Fnd_Api.g_miss_char;
1155: x_Wf_Mapping_rec.item_type := Fnd_Api.g_miss_char;
1148: )
1149: IS
1150: BEGIN
1151: x_Wf_Mapping_rec.object_version_number := Fnd_Api.g_miss_num;
1152: x_Wf_Mapping_rec.active_flag := Fnd_Api.g_miss_char;
1153: x_Wf_Mapping_rec.wf_process_name := Fnd_Api.g_miss_char;
1154: x_Wf_Mapping_rec.approval_object := Fnd_Api.g_miss_char;
1155: x_Wf_Mapping_rec.item_type := Fnd_Api.g_miss_char;
1156:
1149: IS
1150: BEGIN
1151: x_Wf_Mapping_rec.object_version_number := Fnd_Api.g_miss_num;
1152: x_Wf_Mapping_rec.active_flag := Fnd_Api.g_miss_char;
1153: x_Wf_Mapping_rec.wf_process_name := Fnd_Api.g_miss_char;
1154: x_Wf_Mapping_rec.approval_object := Fnd_Api.g_miss_char;
1155: x_Wf_Mapping_rec.item_type := Fnd_Api.g_miss_char;
1156:
1157: END Init_Wf_Mapping_Rec;
1150: BEGIN
1151: x_Wf_Mapping_rec.object_version_number := Fnd_Api.g_miss_num;
1152: x_Wf_Mapping_rec.active_flag := Fnd_Api.g_miss_char;
1153: x_Wf_Mapping_rec.wf_process_name := Fnd_Api.g_miss_char;
1154: x_Wf_Mapping_rec.approval_object := Fnd_Api.g_miss_char;
1155: x_Wf_Mapping_rec.item_type := Fnd_Api.g_miss_char;
1156:
1157: END Init_Wf_Mapping_Rec;
1158: */
1151: x_Wf_Mapping_rec.object_version_number := Fnd_Api.g_miss_num;
1152: x_Wf_Mapping_rec.active_flag := Fnd_Api.g_miss_char;
1153: x_Wf_Mapping_rec.wf_process_name := Fnd_Api.g_miss_char;
1154: x_Wf_Mapping_rec.approval_object := Fnd_Api.g_miss_char;
1155: x_Wf_Mapping_rec.item_type := Fnd_Api.g_miss_char;
1156:
1157: END Init_Wf_Mapping_Rec;
1158: */
1159: ---------------------------------------------------------------------
1184: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1185: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
1186: Fnd_Msg_Pub.ADD;
1187: END IF;
1188: RAISE Fnd_Api.g_exc_error;
1189: END IF;
1190: CLOSE c_Wf_Mapping;
1191:
1192: --
1190: CLOSE c_Wf_Mapping;
1191:
1192: --
1193: -- OBJECT VERSION NUMBER
1194: IF p_Wf_Mapping_rec.object_version_number = Fnd_Api.g_miss_num THEN
1195: x_complete_rec.object_version_number := l_Wf_Mapping_rec.object_version_number;
1196: END IF;
1197: --
1198: -- ACTIVE FLAG
1195: x_complete_rec.object_version_number := l_Wf_Mapping_rec.object_version_number;
1196: END IF;
1197: --
1198: -- ACTIVE FLAG
1199: IF p_Wf_Mapping_rec.active_flag = Fnd_Api.g_miss_char THEN
1200: x_complete_rec.active_flag := l_Wf_Mapping_rec.active_flag;
1201: END IF;
1202: --
1203: -- WF_PROCESS_NAME
1200: x_complete_rec.active_flag := l_Wf_Mapping_rec.active_flag;
1201: END IF;
1202: --
1203: -- WF_PROCESS_NAME
1204: IF p_Wf_Mapping_rec.wf_process_name = Fnd_Api.g_miss_char THEN
1205: x_complete_rec.wf_process_name := l_Wf_Mapping_rec.wf_process_name;
1206: END IF;
1207:
1208: -- APPROVAL OBJECT
1205: x_complete_rec.wf_process_name := l_Wf_Mapping_rec.wf_process_name;
1206: END IF;
1207:
1208: -- APPROVAL OBJECT
1209: IF p_Wf_Mapping_rec.approval_object = Fnd_Api.g_miss_char THEN
1210: x_complete_rec.approval_object := l_Wf_Mapping_rec.approval_object;
1211: END IF;
1212: --
1213: -- ITEM TYPE
1210: x_complete_rec.approval_object := l_Wf_Mapping_rec.approval_object;
1211: END IF;
1212: --
1213: -- ITEM TYPE
1214: IF p_Wf_Mapping_rec.item_type = Fnd_Api.g_miss_char THEN
1215: x_complete_rec.item_type := l_Wf_Mapping_rec.item_type;
1216: END IF;
1217:
1218: END Complete_Wf_Mapping_Rec;
1231: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1232: Fnd_Message.set_name ('AHL', 'AHL_WF_PROCESS_NAME_MISSING');
1233: Fnd_Msg_Pub.ADD;
1234: END IF;
1235: x_return_status := Fnd_Api.g_ret_sts_error;
1236: RETURN;
1237: END IF;
1238: END IF;
1239: IF p_Wf_Mapping_rec.APPLICATION_USG_CODE IS NULL THEN
1240: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1241: Fnd_Message.set_name ('AHL', 'AHL_APPR_APPUSG_ISNULL');
1242: Fnd_Msg_Pub.ADD;
1243: END IF;
1244: x_return_status := Fnd_Api.g_ret_sts_error;
1245: RETURN;
1246: END IF;
1247:
1248: END Check_Wf_Mapping_Req_Items;
1262: FROM FND_LOOKUPS
1263: WHERE MEANING = p_Wf_Mapping_rec.application_usg
1264: AND LOOKUP_TYPE = 'AHL_APPLICATION_USAGE_CODE';*/
1265: BEGIN
1266: x_return_status := Fnd_Api.g_ret_sts_success;
1267: -- MEDIA_ID
1268: -- For Create_Wf_Mapping, when ID is passed in, we need to
1269: -- check if this ID is unique.
1270: IF p_validation_mode = Jtf_Plsql_Api.g_create
1272: THEN
1273: IF Ahl_Utility_Pvt.check_uniqueness(
1274: 'AHL_Wf_Mapping',
1275: 'WF_Mapping_ID = ' || p_Wf_Mapping_rec.WF_Mapping_ID
1276: ) = Fnd_Api.g_false
1277: THEN
1278: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1279: Fnd_Message.set_name ('AHL', 'AHL_WF_MAPPING_DUP_ID');
1280: Fnd_Msg_Pub.ADD;
1278: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1279: Fnd_Message.set_name ('AHL', 'AHL_WF_MAPPING_DUP_ID');
1280: Fnd_Msg_Pub.ADD;
1281: END IF;
1282: x_return_status := Fnd_Api.g_ret_sts_error;
1283: RETURN;
1284: END IF;
1285: END IF;
1286:
1306: 'APPROVAL_OBJECT = ''' || p_Wf_Mapping_rec.approval_object ||
1307: ''' AND APPLICATION_USG_CODE = ''' || p_Wf_Mapping_rec.application_usg_code ||
1308: ''' AND WF_Mapping_ID <> ' || p_Wf_Mapping_rec.WF_Mapping_ID );
1309: END IF;
1310: IF l_valid_flag = Fnd_Api.g_false THEN
1311: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1312: Fnd_Message.set_name ('AHL', 'AHL_WF_OBJECT_NOT_UNIQUE');
1313: Fnd_Msg_Pub.ADD;
1314: END IF;
1311: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
1312: Fnd_Message.set_name ('AHL', 'AHL_WF_OBJECT_NOT_UNIQUE');
1313: Fnd_Msg_Pub.ADD;
1314: END IF;
1315: x_return_status := Fnd_Api.g_ret_sts_error;
1316: RETURN;
1317: END IF;
1318: END Check_Wf_Mapping_UK_Items;
1319: