[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;
774: X_LAST_UPDATE_LOGIN => Fnd_Global.LOGIN_ID);
775:
776: p_x_simulation_plan_rec.plan_id := l_simulation_plan_id;
777: ---------------------------End of Body---------------------------------------
778: --Standard check to count messages
779: l_msg_count := Fnd_Msg_Pub.count_msg;
780:
781: IF l_msg_count > 0 THEN
782: X_msg_count := l_msg_count;
783: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
784: RAISE Fnd_Api.G_EXC_ERROR;
785: END IF;
786:
787: --Standard check for commit
788: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
789: COMMIT;
790: END IF;
791: -- Debug info
897: BEGIN
898:
899:
900: --------------------Initialize ----------------------------------
901: -- Standard Start of API savepoint
902: SAVEPOINT update_simulation_plan;
903: -- Check if API is called in debug mode. If yes, enable debug.
904: IF G_DEBUG='Y' THEN
905: AHL_DEBUG_PUB.enable_debug;
907: -- Debug info.
908: IF G_DEBUG='Y' THEN
909: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pvt.Update Simulation plan','+SMPNL+');
910: END IF;
911: -- Standard call to check for call compatibility.
912: IF FND_API.to_boolean(p_init_msg_list)
913: THEN
914: FND_MSG_PUB.initialize;
915: END IF;
977: Fnd_Message.SET_NAME('AHL','AHL_LTP_PRIMARY_PLAN');
978: Fnd_Msg_Pub.ADD;
979: END IF;
980: END IF;
981: --Standard check to count messages
982: l_msg_count := Fnd_Msg_Pub.count_msg;
983:
984: IF l_msg_count > 0 THEN
985: X_msg_count := l_msg_count;
1017: X_LAST_UPDATE_LOGIN => Fnd_Global.LOGIN_ID);
1018:
1019:
1020: ---------------------------End of Body---------------------------------------
1021: --Standard check to count messages
1022: l_msg_count := Fnd_Msg_Pub.count_msg;
1023:
1024: IF l_msg_count > 0 THEN
1025: X_msg_count := l_msg_count;
1026: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1027: RAISE Fnd_Api.G_EXC_ERROR;
1028: END IF;
1029:
1030: --Standard check for commit
1031: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1032: COMMIT;
1033: END IF;
1034: -- Debug info
1163: l_space_assignment_id NUMBER;
1164:
1165: BEGIN
1166: --------------------Initialize ----------------------------------
1167: -- Standard Start of API savepoint
1168: SAVEPOINT delete_simulation_plan;
1169: -- Check if API is called in debug mode. If yes, enable debug.
1170: IF G_DEBUG='Y' THEN
1171: AHL_DEBUG_PUB.enable_debug;
1173: -- Debug info.
1174: IF G_DEBUG='Y' THEN
1175: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pvt.Delete Simulation plan','+SMPLN+');
1176: END IF;
1177: -- Standard call to check for call compatibility.
1178: IF FND_API.to_boolean(p_init_msg_list)
1179: THEN
1180: FND_MSG_PUB.initialize;
1181: END IF;
1255: AHL_SIMULATION_PLANS_PKG.DELETE_ROW (
1256: X_SIMULATION_PLAN_ID => l_simulation_plan_id
1257: );
1258: ---------------------------End of Body---------------------------------------
1259: --Standard check to count messages
1260: l_msg_count := Fnd_Msg_Pub.count_msg;
1261:
1262: IF l_msg_count > 0 THEN
1263: X_msg_count := l_msg_count;
1264: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1265: RAISE Fnd_Api.G_EXC_ERROR;
1266: END IF;
1267:
1268: --Standard check for commit
1269: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
1270: COMMIT;
1271: END IF;
1272: -- Debug info
1704:
1705: --
1706: BEGIN
1707: --------------------Initialize ----------------------------------
1708: -- Standard Start of API savepoint
1709: SAVEPOINT copy_visits_to_plan;
1710: -- Check if API is called in debug mode. If yes, enable debug.
1711: IF G_DEBUG='Y' THEN
1712: AHL_DEBUG_PUB.enable_debug;
1712: AHL_DEBUG_PUB.enable_debug;
1713: -- Debug info.
1714: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pvt.Copy Visits to Plan','+SMPNL+');
1715: END IF;
1716: -- Standard call to check for call compatibility.
1717: IF FND_API.to_boolean(p_init_msg_list)
1718: THEN
1719: FND_MSG_PUB.initialize;
1720: END IF;
2330: END LOOP;
2331: CLOSE Get_space_Assign_cur;
2332:
2333: ---------------------------End of Body---------------------------------------
2334: --Standard check to count messages
2335: l_msg_count := Fnd_Msg_Pub.count_msg;
2336:
2337: IF l_msg_count > 0 THEN
2338: X_msg_count := l_msg_count;
2339: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2340: RAISE Fnd_Api.G_EXC_ERROR;
2341: END IF;
2342:
2343: --Standard check for commit
2344: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2345: COMMIT;
2346: END IF;
2347: -- Debug info
2483: l_delete_unit_effectivity_tbl delete_unit_effectivity_tbl;
2484: ue_count NUMBER :=0 ;
2485: BEGIN
2486: --------------------Initialize ----------------------------------
2487: -- Standard Start of API savepoint
2488: SAVEPOINT remove_visits_fr_plan;
2489: -- Check if API is called in debug mode. If yes, enable debug.
2490: IF G_DEBUG='Y' THEN
2491: AHL_DEBUG_PUB.enable_debug;
2493: -- Debug info.
2494: IF G_DEBUG='Y' THEN
2495: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pvt.Remove Visits from Plan','+SMPNL+');
2496: END IF;
2497: -- Standard call to check for call compatibility.
2498: IF FND_API.to_boolean(p_init_msg_list)
2499: THEN
2500: FND_MSG_PUB.initialize;
2501: END IF;
2669: AHL_VISITS_PKG.DELETE_ROW (
2670: X_VISIT_ID => p_visit_id);
2671:
2672: ---------------------------End of Body---------------------------------------
2673: --Standard check to count messages
2674: l_msg_count := Fnd_Msg_Pub.count_msg;
2675:
2676: IF l_msg_count > 0 THEN
2677: X_msg_count := l_msg_count;
2678: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2679: RAISE Fnd_Api.G_EXC_ERROR;
2680: END IF;
2681:
2682: --Standard check for commit
2683: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2684: COMMIT;
2685: END IF;
2686: IF G_DEBUG='Y' THEN
2790: l_object_version_number NUMBER;
2791: l_simulation_delete_flag VARCHAR2(1);
2792: BEGIN
2793: --------------------Initialize ----------------------------------
2794: -- Standard Start of API savepoint
2795: SAVEPOINT toggle_simulation_delete;
2796: -- Check if API is called in debug mode. If yes, enable debug.
2797: IF G_DEBUG='Y' THEN
2798: AHL_DEBUG_PUB.enable_debug;
2798: AHL_DEBUG_PUB.enable_debug;
2799: -- Debug info.
2800: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pvt.toggle simulation delete','+SMPNL+');
2801: END IF;
2802: -- Standard call to check for call compatibility.
2803: IF FND_API.to_boolean(p_init_msg_list)
2804: THEN
2805: FND_MSG_PUB.initialize;
2806: END IF;
2848: -- mpothuku End
2849: WHERE visit_id = p_visit_id;
2850: END IF;
2851: ---------------------------End of Body---------------------------------------
2852: --Standard check to count messages
2853: l_msg_count := Fnd_Msg_Pub.count_msg;
2854:
2855: IF l_msg_count > 0 THEN
2856: X_msg_count := l_msg_count;
2857: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2858: RAISE Fnd_Api.G_EXC_ERROR;
2859: END IF;
2860:
2861: --Standard check for commit
2862: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
2863: COMMIT;
2864: END IF;
2865: IF G_DEBUG='Y' THEN
2988: l_visit_id NUMBER;
2989: l_dummy NUMBER;
2990: BEGIN
2991: --------------------Initialize ----------------------------------
2992: -- Standard Start of API savepoint
2993: SAVEPOINT set_plan_as_primary;
2994: -- Check if API is called in debug mode. If yes, enable debug.
2995: IF G_DEBUG='Y' THEN
2996: AHL_DEBUG_PUB.enable_debug;
2998: -- Debug info.
2999: IF G_DEBUG='Y' THEN
3000: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pvt.set plan as primary','+SMPNL+');
3001: END IF;
3002: -- Standard call to check for call compatibility.
3003: IF FND_API.to_boolean(p_init_msg_list)
3004: THEN
3005: FND_MSG_PUB.initialize;
3006: END IF;
3074: ---------------------------End of Body---------------------------------------
3075:
3076: -- Changes by mpothuku end
3077:
3078: --Standard check to count messages
3079: l_msg_count := Fnd_Msg_Pub.count_msg;
3080:
3081: IF l_msg_count > 0 THEN
3082: X_msg_count := l_msg_count;
3083: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3084: RAISE Fnd_Api.G_EXC_ERROR;
3085: END IF;
3086:
3087: --Standard check for commit
3088: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
3089: COMMIT;
3090: END IF;
3091: -- Debug info
3585: l_locator_id NUMBER := 0;
3586:
3587: BEGIN
3588: --------------------Initialize ----------------------------------
3589: -- Standard Start of API savepoint
3590: SAVEPOINT set_visit_as_primary;
3591: -- Check if API is called in debug mode. If yes, enable debug.
3592: IF G_DEBUG='Y' THEN
3593: AHL_DEBUG_PUB.enable_debug;
3595: -- Debug info.
3596: IF G_DEBUG='Y' THEN
3597: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pvt.set visit as primary','+SMPNL+');
3598: END IF;
3599: -- Standard call to check for call compatibility.
3600: IF FND_API.to_boolean(p_init_msg_list)
3601: THEN
3602: FND_MSG_PUB.initialize;
3603: END IF;
4557: RAISE FND_API.G_EXC_ERROR;
4558: END IF;
4559: END IF;
4560: ---------------------------End of Body---------------------------------------
4561: --Standard check to count messages
4562: l_msg_count := Fnd_Msg_Pub.count_msg;
4563:
4564: IF l_msg_count > 0 THEN
4565: X_msg_count := l_msg_count;
4566: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4567: RAISE Fnd_Api.G_EXC_ERROR;
4568: END IF;
4569:
4570: --Standard check for commit
4571: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
4572: COMMIT;
4573: END IF;
4574: -- Debug info
4688: l_space_assignment_id NUMBER;
4689: --
4690: BEGIN
4691: --------------------Initialize ----------------------------------
4692: -- Standard Start of API savepoint
4693: SAVEPOINT Delete_Simul_Visits;
4694: -- Check if API is called in debug mode. If yes, enable debug.
4695: IF G_DEBUG='Y' THEN
4696: AHL_DEBUG_PUB.enable_debug;
4698: -- Debug info.
4699: IF G_DEBUG='Y' THEN
4700: AHL_DEBUG_PUB.debug( 'enter ahl_ltp_simul_plan_pvt.Delete Simul Visits','+SMPNL+');
4701: END IF;
4702: -- Standard call to check for call compatibility.
4703: IF FND_API.to_boolean(p_init_msg_list)
4704: THEN
4705: FND_MSG_PUB.initialize;
4706: END IF;
4749: CLOSE Get_simul_visits_cur;
4750: --
4751: -- mpothuku End
4752: ---------------------------End of Body---------------------------------------
4753: --Standard check to count messages
4754: l_msg_count := Fnd_Msg_Pub.count_msg;
4755:
4756: IF l_msg_count > 0 THEN
4757: X_msg_count := l_msg_count;
4758: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
4759: RAISE Fnd_Api.G_EXC_ERROR;
4760: END IF;
4761:
4762: --Standard check for commit
4763: IF Fnd_Api.TO_BOOLEAN(p_commit) THEN
4764: COMMIT;
4765: END IF;
4766: -- Debug info