[Home] [Help]
55: l_msg_data VARCHAR2(2000);
56: --
57: BEGIN
58: --------------------Initialize ----------------------------------
59: -- Standard Start of API savepoint
60: SAVEPOINT process_simulation_plan;
61: -- Check if API is called in debug mode. If yes, enable debug.
62: IF G_DEBUG='Y' THEN
63: AHL_DEBUG_PUB.enable_debug;
65: -- Debug info.
66: IF G_DEBUG='Y' THEN
67: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pub.Process Simulation Plan','+SMPLN+');
68: END IF;
69: -- Standard call to check for call compatibility.
70: IF FND_API.to_boolean(p_init_msg_list)
71: THEN
72: FND_MSG_PUB.initialize;
73: END IF;
97: x_return_status => l_return_status,
98: x_msg_count => l_msg_count,
99: x_msg_data => l_msg_data
100: );
101: --Standard check to count messages
102: l_msg_count := Fnd_Msg_Pub.count_msg;
103:
104: IF l_msg_count > 0 THEN
105: X_msg_count := l_msg_count;
120: x_return_status => l_return_status,
121: x_msg_count => l_msg_count,
122: x_msg_data => l_msg_data
123: );
124: --Standard check to count messages
125: l_msg_count := Fnd_Msg_Pub.count_msg;
126:
127: IF l_msg_count > 0 THEN
128: X_msg_count := l_msg_count;
142: x_msg_count => l_msg_count,
143: x_msg_data => l_msg_data
144: );
145: END IF;
146: --Standard check to count messages
147: l_msg_count := Fnd_Msg_Pub.count_msg;
148:
149: IF l_msg_count > 0 THEN
150: X_msg_count := l_msg_count;
155: END LOOP;
156: END IF;
157:
158: ------------------------End of Body---------------------------------------
159: --Standard check to count messages
160: l_msg_count := Fnd_Msg_Pub.count_msg;
161:
162: IF l_msg_count > 0 THEN
163: X_msg_count := l_msg_count;
164: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
165: RAISE Fnd_Api.G_EXC_ERROR;
166: END IF;
167:
168: --Standard check for commit
169: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
170: COMMIT;
171: END IF;
172: -- Debug info
269: l_visit_id NUMBER;
270: --
271: BEGIN
272: --------------------Initialize ----------------------------------
273: -- Standard Start of API savepoint
274: SAVEPOINT process_simulation_visit;
275: -- Check if API is called in debug mode. If yes, enable debug.
276: IF G_DEBUG='Y' THEN
277: AHL_DEBUG_PUB.enable_debug;
279: -- Debug info.
280: IF G_DEBUG='Y' THEN
281: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pub.Process Visits to Plan','+SMPLN+');
282: END IF;
283: -- Standard call to check for call compatibility.
284: IF FND_API.to_boolean(p_init_msg_list)
285: THEN
286: FND_MSG_PUB.initialize;
287: END IF;
327: AHL_DEBUG_PUB.debug( 'pvisit_id'||p_simulation_visit_tbl(i).visit_id);
328: AHL_DEBUG_PUB.debug( 'plan_id'||p_simulation_visit_tbl(i).plan_id);
329: AHL_DEBUG_PUB.debug( 'flag'||p_simulation_visit_tbl(i).operation_flag);
330: END IF;
331: --Standard check to count messages
332: l_msg_count := Fnd_Msg_Pub.count_msg;
333:
334: IF l_msg_count > 0 THEN
335: X_msg_count := l_msg_count;
381: AHL_DEBUG_PUB.debug( 'pvisit_id'||p_simulation_visit_tbl(i).visit_id);
382: AHL_DEBUG_PUB.debug( 'plan_id'||p_simulation_visit_tbl(i).plan_id);
383: AHL_DEBUG_PUB.debug( 'flag'||p_simulation_visit_tbl(i).operation_flag);
384: END IF;
385: --Standard check to count messages
386: l_msg_count := Fnd_Msg_Pub.count_msg;
387:
388: IF l_msg_count > 0 THEN
389: X_msg_count := l_msg_count;
404: x_return_status => l_return_status,
405: x_msg_count => l_msg_count,
406: x_msg_data => l_msg_data);
407: END IF;
408: --Standard check to count messages
409: l_msg_count := Fnd_Msg_Pub.count_msg;
410:
411: IF l_msg_count > 0 THEN
412: X_msg_count := l_msg_count;
416:
417: END LOOP;
418: END IF;
419: ------------------------End of Body---------------------------------------
420: --Standard check to count messages
421: l_msg_count := Fnd_Msg_Pub.count_msg;
422:
423: IF l_msg_count > 0 THEN
424: X_msg_count := l_msg_count;
425: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
426: RAISE Fnd_Api.G_EXC_ERROR;
427: END IF;
428:
429: --Standard check for commit
430: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
431: COMMIT;
432: END IF;
433: -- Debug info
530: --
531:
532: BEGIN
533: --------------------Initialize ----------------------------------
534: -- Standard Start of API savepoint
535: SAVEPOINT toggle_simulation_delete;
536: -- Check if API is called in debug mode. If yes, enable debug.
537: IF G_DEBUG='Y' THEN
538: AHL_DEBUG_PUB.enable_debug;
540: -- Debug info.
541: IF G_DEBUG='Y' THEN
542: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pub.Toggle Simulation Delete','+SMPLN+');
543: END IF;
544: -- Standard call to check for call compatibility.
545: IF FND_API.to_boolean(p_init_msg_list)
546: THEN
547: FND_MSG_PUB.initialize;
548: END IF;
570: x_msg_data => l_msg_data);
571:
572:
573: ------------------------End of Body---------------------------------------
574: --Standard check to count messages
575: l_msg_count := Fnd_Msg_Pub.count_msg;
576:
577: IF l_msg_count > 0 THEN
578: X_msg_count := l_msg_count;
579: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
580: RAISE Fnd_Api.G_EXC_ERROR;
581: END IF;
582:
583: --Standard check for commit
584: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
585: COMMIT;
586: END IF;
587: -- Debug info
682: --
683:
684: BEGIN
685: --------------------Initialize ----------------------------------
686: -- Standard Start of API savepoint
687: SAVEPOINT set_plan_as_primary;
688: -- Check if API is called in debug mode. If yes, enable debug.
689: IF G_DEBUG='Y' THEN
690: AHL_DEBUG_PUB.enable_debug;
692: -- Debug info.
693: IF G_DEBUG='Y' THEN
694: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pub. Set Plan as Primary','+SMPLN+');
695: END IF;
696: -- Standard call to check for call compatibility.
697: IF FND_API.to_boolean(p_init_msg_list)
698: THEN
699: FND_MSG_PUB.initialize;
700: END IF;
722: x_msg_data => l_msg_data);
723:
724:
725: ------------------------End of Body---------------------------------------
726: --Standard check to count messages
727: l_msg_count := Fnd_Msg_Pub.count_msg;
728:
729: IF l_msg_count > 0 THEN
730: X_msg_count := l_msg_count;
731: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
732: RAISE Fnd_Api.G_EXC_ERROR;
733: END IF;
734:
735: --Standard check for commit
736: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
737: COMMIT;
738: END IF;
739: -- Debug info
835: --
836:
837: BEGIN
838: --------------------Initialize ----------------------------------
839: -- Standard Start of API savepoint
840: SAVEPOINT set_visit_as_primary;
841: -- Check if API is called in debug mode. If yes, enable debug.
842: IF G_DEBUG='Y' THEN
843: AHL_DEBUG_PUB.enable_debug;
845: -- Debug info.
846: IF G_DEBUG='Y' THEN
847: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pub. Set Visit as Primary','+SMPLN+');
848: END IF;
849: -- Standard call to check for call compatibility.
850: IF FND_API.to_boolean(p_init_msg_list)
851: THEN
852: FND_MSG_PUB.initialize;
853: END IF;
876: x_msg_data => l_msg_data);
877:
878:
879: ------------------------End of Body---------------------------------------
880: --Standard check to count messages
881: l_msg_count := Fnd_Msg_Pub.count_msg;
882:
883: IF l_msg_count > 0 THEN
884: X_msg_count := l_msg_count;
885: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
886: RAISE Fnd_Api.G_EXC_ERROR;
887: END IF;
888:
889: --Standard check for commit
890: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
891: COMMIT;
892: END IF;
893: -- Debug info