[Home] [Help]
433: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
434: l_return_status VARCHAR2(1);
435: l_simulation_plan_rec simulation_plan_rec;
436: BEGIN
437: -- Standard call to check for call compatibility.
438: IF NOT Fnd_Api.Compatible_API_Call ( l_api_version,
439: p_api_version,
440: l_api_name,
441: G_PKG_NAME)
566: WHERE simulation_plan_id = x_id);
567: --
568: BEGIN
569: --------------------Initialize ----------------------------------
570: -- Standard Start of API savepoint
571: SAVEPOINT create_simulation_plan;
572: -- Check if API is called in debug mode. If yes, enable debug.
573: IF G_DEBUG='Y' THEN
574: AHL_DEBUG_PUB.enable_debug;
576: -- Debug info.
577: IF G_DEBUG='Y' THEN
578: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pvt.Create Simulation plan','+SIMPL+');
579: END IF;
580: -- Standard call to check for call compatibility.
581: IF FND_API.to_boolean(p_init_msg_list)
582: THEN
583: FND_MSG_PUB.initialize;
584: END IF;
732: ELSE
733: l_simulation_plan_rec.attribute15 := p_x_simulation_plan_rec.attribute15;
734: END IF;
735: END IF;
736: --Standard check to count messages
737: l_msg_count := Fnd_Msg_Pub.count_msg;
738:
739: IF l_msg_count > 0 THEN
740: X_msg_count := l_msg_count;
776: X_SIMULATION_TYPE => NULL);
777:
778: p_x_simulation_plan_rec.plan_id := l_simulation_plan_id;
779: ---------------------------End of Body---------------------------------------
780: --Standard check to count messages
781: l_msg_count := Fnd_Msg_Pub.count_msg;
782:
783: IF l_msg_count > 0 THEN
784: X_msg_count := l_msg_count;
785: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
786: RAISE Fnd_Api.G_EXC_ERROR;
787: END IF;
788:
789: --Standard check for commit
790: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
791: COMMIT;
792: END IF;
793: -- Debug info
899: BEGIN
900:
901:
902: --------------------Initialize ----------------------------------
903: -- Standard Start of API savepoint
904: SAVEPOINT update_simulation_plan;
905: -- Check if API is called in debug mode. If yes, enable debug.
906: IF G_DEBUG='Y' THEN
907: AHL_DEBUG_PUB.enable_debug;
909: -- Debug info.
910: IF G_DEBUG='Y' THEN
911: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pvt.Update Simulation plan','+SMPNL+');
912: END IF;
913: -- Standard call to check for call compatibility.
914: IF FND_API.to_boolean(p_init_msg_list)
915: THEN
916: FND_MSG_PUB.initialize;
917: END IF;
979: Fnd_Message.SET_NAME('AHL','AHL_LTP_PRIMARY_PLAN');
980: Fnd_Msg_Pub.ADD;
981: END IF;
982: END IF;
983: --Standard check to count messages
984: l_msg_count := Fnd_Msg_Pub.count_msg;
985:
986: IF l_msg_count > 0 THEN
987: X_msg_count := l_msg_count;
1021: X_SIMULATION_TYPE => NULL);
1022:
1023:
1024: ---------------------------End of Body---------------------------------------
1025: --Standard check to count messages
1026: l_msg_count := Fnd_Msg_Pub.count_msg;
1027:
1028: IF l_msg_count > 0 THEN
1029: X_msg_count := l_msg_count;
1030: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1031: RAISE Fnd_Api.G_EXC_ERROR;
1032: END IF;
1033:
1034: --Standard check for commit
1035: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1036: COMMIT;
1037: END IF;
1038: -- Debug info
1167: l_space_assignment_id NUMBER;
1168:
1169: BEGIN
1170: --------------------Initialize ----------------------------------
1171: -- Standard Start of API savepoint
1172: SAVEPOINT delete_simulation_plan;
1173: -- Check if API is called in debug mode. If yes, enable debug.
1174: IF G_DEBUG='Y' THEN
1175: AHL_DEBUG_PUB.enable_debug;
1177: -- Debug info.
1178: IF G_DEBUG='Y' THEN
1179: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pvt.Delete Simulation plan','+SMPLN+');
1180: END IF;
1181: -- Standard call to check for call compatibility.
1182: IF FND_API.to_boolean(p_init_msg_list)
1183: THEN
1184: FND_MSG_PUB.initialize;
1185: END IF;
1259: AHL_SIMULATION_PLANS_PKG.DELETE_ROW (
1260: X_SIMULATION_PLAN_ID => l_simulation_plan_id
1261: );
1262: ---------------------------End of Body---------------------------------------
1263: --Standard check to count messages
1264: l_msg_count := Fnd_Msg_Pub.count_msg;
1265:
1266: IF l_msg_count > 0 THEN
1267: X_msg_count := l_msg_count;
1268: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1269: RAISE Fnd_Api.G_EXC_ERROR;
1270: END IF;
1271:
1272: --Standard check for commit
1273: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1274: COMMIT;
1275: END IF;
1276: -- Debug info
1720:
1721: --
1722: BEGIN
1723: --------------------Initialize ----------------------------------
1724: -- Standard Start of API savepoint
1725: SAVEPOINT copy_visits_to_plan;
1726: -- Check if API is called in debug mode. If yes, enable debug.
1727: IF G_DEBUG='Y' THEN
1728: AHL_DEBUG_PUB.enable_debug;
1728: AHL_DEBUG_PUB.enable_debug;
1729: -- Debug info.
1730: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pvt.Copy Visits to Plan','+SMPNL+');
1731: END IF;
1732: -- Standard call to check for call compatibility.
1733: IF FND_API.to_boolean(p_init_msg_list)
1734: THEN
1735: FND_MSG_PUB.initialize;
1736: END IF;
2369: END LOOP;
2370: CLOSE Get_space_Assign_cur;
2371:
2372: ---------------------------End of Body---------------------------------------
2373: --Standard check to count messages
2374: l_msg_count := Fnd_Msg_Pub.count_msg;
2375:
2376: IF l_msg_count > 0 THEN
2377: X_msg_count := l_msg_count;
2378: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2379: RAISE Fnd_Api.G_EXC_ERROR;
2380: END IF;
2381:
2382: --Standard check for commit
2383: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2384: COMMIT;
2385: END IF;
2386: -- Debug info
2522: l_delete_unit_effectivity_tbl delete_unit_effectivity_tbl;
2523: ue_count NUMBER :=0 ;
2524: BEGIN
2525: --------------------Initialize ----------------------------------
2526: -- Standard Start of API savepoint
2527: SAVEPOINT remove_visits_fr_plan;
2528: -- Check if API is called in debug mode. If yes, enable debug.
2529: IF G_DEBUG='Y' THEN
2530: AHL_DEBUG_PUB.enable_debug;
2532: -- Debug info.
2533: IF G_DEBUG='Y' THEN
2534: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pvt.Remove Visits from Plan','+SMPNL+');
2535: END IF;
2536: -- Standard call to check for call compatibility.
2537: IF FND_API.to_boolean(p_init_msg_list)
2538: THEN
2539: FND_MSG_PUB.initialize;
2540: END IF;
2709: AHL_VISITS_PKG.DELETE_ROW (
2710: X_VISIT_ID => p_visit_id);
2711:
2712: ---------------------------End of Body---------------------------------------
2713: --Standard check to count messages
2714: l_msg_count := Fnd_Msg_Pub.count_msg;
2715:
2716: IF l_msg_count > 0 THEN
2717: X_msg_count := l_msg_count;
2718: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2719: RAISE Fnd_Api.G_EXC_ERROR;
2720: END IF;
2721:
2722: --Standard check for commit
2723: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2724: COMMIT;
2725: END IF;
2726: IF G_DEBUG='Y' THEN
2830: l_object_version_number NUMBER;
2831: l_simulation_delete_flag VARCHAR2(1);
2832: BEGIN
2833: --------------------Initialize ----------------------------------
2834: -- Standard Start of API savepoint
2835: SAVEPOINT toggle_simulation_delete;
2836: -- Check if API is called in debug mode. If yes, enable debug.
2837: IF G_DEBUG='Y' THEN
2838: AHL_DEBUG_PUB.enable_debug;
2838: AHL_DEBUG_PUB.enable_debug;
2839: -- Debug info.
2840: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pvt.toggle simulation delete','+SMPNL+');
2841: END IF;
2842: -- Standard call to check for call compatibility.
2843: IF FND_API.to_boolean(p_init_msg_list)
2844: THEN
2845: FND_MSG_PUB.initialize;
2846: END IF;
2888: -- mpothuku End
2889: WHERE visit_id = p_visit_id;
2890: END IF;
2891: ---------------------------End of Body---------------------------------------
2892: --Standard check to count messages
2893: l_msg_count := Fnd_Msg_Pub.count_msg;
2894:
2895: IF l_msg_count > 0 THEN
2896: X_msg_count := l_msg_count;
2897: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2898: RAISE Fnd_Api.G_EXC_ERROR;
2899: END IF;
2900:
2901: --Standard check for commit
2902: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2903: COMMIT;
2904: END IF;
2905: IF G_DEBUG='Y' THEN
3028: l_visit_id NUMBER;
3029: l_dummy NUMBER;
3030: BEGIN
3031: --------------------Initialize ----------------------------------
3032: -- Standard Start of API savepoint
3033: SAVEPOINT set_plan_as_primary;
3034: -- Check if API is called in debug mode. If yes, enable debug.
3035: IF G_DEBUG='Y' THEN
3036: AHL_DEBUG_PUB.enable_debug;
3038: -- Debug info.
3039: IF G_DEBUG='Y' THEN
3040: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pvt.set plan as primary','+SMPNL+');
3041: END IF;
3042: -- Standard call to check for call compatibility.
3043: IF FND_API.to_boolean(p_init_msg_list)
3044: THEN
3045: FND_MSG_PUB.initialize;
3046: END IF;
3114: ---------------------------End of Body---------------------------------------
3115:
3116: -- Changes by mpothuku end
3117:
3118: --Standard check to count messages
3119: l_msg_count := Fnd_Msg_Pub.count_msg;
3120:
3121: IF l_msg_count > 0 THEN
3122: X_msg_count := l_msg_count;
3123: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3124: RAISE Fnd_Api.G_EXC_ERROR;
3125: END IF;
3126:
3127: --Standard check for commit
3128: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
3129: COMMIT;
3130: END IF;
3131: -- Debug info
3631: l_locator_id NUMBER := 0;
3632:
3633: BEGIN
3634: --------------------Initialize ----------------------------------
3635: -- Standard Start of API savepoint
3636: SAVEPOINT set_visit_as_primary;
3637: -- Check if API is called in debug mode. If yes, enable debug.
3638: IF G_DEBUG='Y' THEN
3639: AHL_DEBUG_PUB.enable_debug;
3641: -- Debug info.
3642: IF G_DEBUG='Y' THEN
3643: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pvt.set visit as primary','+SMPNL+');
3644: END IF;
3645: -- Standard call to check for call compatibility.
3646: IF FND_API.to_boolean(p_init_msg_list)
3647: THEN
3648: FND_MSG_PUB.initialize;
3649: END IF;
4621: RAISE FND_API.G_EXC_ERROR;
4622: END IF;
4623: END IF;
4624: ---------------------------End of Body---------------------------------------
4625: --Standard check to count messages
4626: l_msg_count := Fnd_Msg_Pub.count_msg;
4627:
4628: IF l_msg_count > 0 THEN
4629: X_msg_count := l_msg_count;
4630: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4631: RAISE Fnd_Api.G_EXC_ERROR;
4632: END IF;
4633:
4634: --Standard check for commit
4635: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
4636: COMMIT;
4637: END IF;
4638: -- Debug info
4752: l_space_assignment_id NUMBER;
4753: --
4754: BEGIN
4755: --------------------Initialize ----------------------------------
4756: -- Standard Start of API savepoint
4757: SAVEPOINT Delete_Simul_Visits;
4758: -- Check if API is called in debug mode. If yes, enable debug.
4759: IF G_DEBUG='Y' THEN
4760: AHL_DEBUG_PUB.enable_debug;
4762: -- Debug info.
4763: IF G_DEBUG='Y' THEN
4764: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pvt.Delete Simul Visits','+SMPNL+');
4765: END IF;
4766: -- Standard call to check for call compatibility.
4767: IF FND_API.to_boolean(p_init_msg_list)
4768: THEN
4769: FND_MSG_PUB.initialize;
4770: END IF;
4813: CLOSE Get_simul_visits_cur;
4814: --
4815: -- mpothuku End
4816: ---------------------------End of Body---------------------------------------
4817: --Standard check to count messages
4818: l_msg_count := Fnd_Msg_Pub.count_msg;
4819:
4820: IF l_msg_count > 0 THEN
4821: X_msg_count := l_msg_count;
4822: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4823: RAISE Fnd_Api.G_EXC_ERROR;
4824: END IF;
4825:
4826: --Standard check for commit
4827: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
4828: COMMIT;
4829: END IF;
4830: -- Debug info