154: OPEN c_simulation_rec;
155: FETCH c_simulation_rec INTO l_simulation_rec;
156: IF c_simulation_rec%NOTFOUND THEN
157: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
158: FND_MESSAGE.set_name('AHL', 'AHL_LTP_RECORD_NOT_FOUND');
159: FND_MSG_PUB.add;
160: RAISE Fnd_Api.G_EXC_ERROR;
161: END IF;
162: END IF;
163: CLOSE c_simulation_rec;
164: --Check for object version number
165: IF (l_simulation_rec.object_version_number <> p_simulation_rec.object_version_number)
166: THEN
167: Fnd_Message.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
168: Fnd_Msg_Pub.ADD;
169: RAISE Fnd_Api.G_EXC_ERROR;
170: END IF;
171:
360:
361: -- missing required fields
362: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)
363: THEN
364: Fnd_Message.set_name('AHL', 'AHL_LTP_PLAN_NAME_NOT_EXIST');
365: Fnd_Msg_Pub.ADD;
366: END IF;
367: x_return_status := Fnd_Api.G_RET_STS_ERROR;
368: END IF;
369: -- Validate uniqueness
370: OPEN check_plan_name_cur(p_simulation_plan_rec.simulation_plan_name);
371: FETCH check_plan_name_cur INTO l_dummy;
372: IF check_plan_name_cur%FOUND THEN
373: Fnd_Message.set_name('AHL', 'AHL_LTP_SIMUL_DUPLE_NAME');
374: Fnd_Msg_Pub.ADD;
375: END IF;
376: x_return_status := Fnd_Api.g_ret_sts_error;
377: CLOSE check_plan_name_cur;
376: x_return_status := Fnd_Api.g_ret_sts_error;
377: CLOSE check_plan_name_cur;
378: --Check for primary plan
379: IF p_simulation_plan_rec.primary_plan_flag = 'Y' THEN
380: Fnd_Message.set_name('AHL', 'AHL_LTP_SIMUL_DUPLE_NAME');
381: Fnd_Msg_Pub.ADD;
382: x_return_status := Fnd_Api.g_ret_sts_error;
383: END IF;
384:
626: -- If the value for the ID already exists, then
627: -- l_dummy would be populated with '1', otherwise,
628: -- it receives NULL.
629: IF l_dummy IS NOT NULL THEN
630: Fnd_Message.SET_NAME('AHL','AHL_LTP_SEQUENCE_NOT_EXISTS');
631: Fnd_Msg_Pub.ADD;
632: END IF;
633: -- For optional fields
634: IF p_x_simulation_plan_rec.description = FND_API.G_MISS_CHAR THEN
946: x_error_msg_code => l_msg_data);
947:
948: IF NVL(l_return_status,'x') <> 'S'
949: THEN
950: Fnd_Message.SET_NAME('AHL','AHL_LTP_PLAN_NOT_EXISTS');
951: Fnd_Message.SET_TOKEN('PLANID',p_simulation_plan_rec.plan_name);
952: Fnd_Msg_Pub.ADD;
953: END IF;
954: END IF;
947:
948: IF NVL(l_return_status,'x') <> 'S'
949: THEN
950: Fnd_Message.SET_NAME('AHL','AHL_LTP_PLAN_NOT_EXISTS');
951: Fnd_Message.SET_TOKEN('PLANID',p_simulation_plan_rec.plan_name);
952: Fnd_Msg_Pub.ADD;
953: END IF;
954: END IF;
955: --Assign the returned value
975: OPEN primary_plan_cur(l_ASimulation_plan_rec.simulation_plan_id);
976: FETCH primary_plan_cur INTO l_primary_plan_flag;
977: CLOSE primary_plan_cur;
978: IF l_primary_plan_flag = 'Y' THEN
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
1199: l_object_version_number,
1200: l_primary_plan_flag;
1201: IF c_simulation_plan_cur%NOTFOUND THEN
1202: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1203: FND_MESSAGE.set_name('AHL', 'AHL_LTP_RECORD_NOT_FOUND');
1204: FND_MSG_PUB.add;
1205: END IF;
1206: CLOSE c_simulation_plan_cur;
1207: RAISE FND_API.g_exc_error;
1210: --
1211: --Check for primary plan
1212: IF l_primary_plan_flag = 'Y'
1213: THEN
1214: FND_MESSAGE.set_name('AHL', 'AHL_LTP_PRIMARY_PLAN');
1215: FND_MSG_PUB.add;
1216: RAISE FND_API.g_exc_error;
1217: END IF;
1218:
1250:
1251: --Check for object version number
1252: IF l_object_version_number <> p_simulation_plan_rec.object_version_number
1253: THEN
1254: FND_MESSAGE.set_name('AHL', 'AHL_LTP_RECORD_CHANGED');
1255: FND_MSG_PUB.add;
1256: RAISE FND_API.g_exc_error;
1257: END IF;
1258: -------------------Call Table handler generated procedure------------
1754: --
1755: OPEN get_visit_id_cur(p_visit_number);
1756: FETCH get_visit_id_cur INTO l_pvisit_id, l_primary_visit_id;
1757: IF get_visit_id_cur%NOTFOUND THEN
1758: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_VISIT_NUMBER');
1759: Fnd_Msg_Pub.ADD;
1760: CLOSE get_visit_id_cur;
1761: RAISE Fnd_Api.G_EXC_ERROR;
1762: --
1773: p_visit_id <> FND_API.G_MISS_NUM) THEN
1774: OPEN get_visit_num_cur(p_visit_id);
1775: FETCH get_visit_num_cur INTO l_pvisit_id, l_primary_visit_id;
1776: IF get_visit_num_cur%NOTFOUND THEN
1777: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_VISIT_NUMBER');
1778: Fnd_Msg_Pub.ADD;
1779: CLOSE get_visit_num_cur;
1780: RAISE Fnd_Api.G_EXC_ERROR;
1781: END IF;
1789: INTO l_simulation_plan_id, l_plan_flag
1790: FROM AHL_SIMULATION_PLANS_VL
1791: WHERE simulation_plan_id = p_plan_id;
1792: ELSE
1793: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_SIMUL_NAME');
1794: Fnd_Msg_Pub.ADD;
1795: RAISE Fnd_Api.G_EXC_ERROR;
1796: END IF;
1797: --Check for copying to priamry plan
1795: RAISE Fnd_Api.G_EXC_ERROR;
1796: END IF;
1797: --Check for copying to priamry plan
1798: IF l_plan_flag = 'Y' THEN
1799: Fnd_message.SET_NAME('AHL','AHL_LTP_NO_COPY_PRIM_PLAN');
1800: Fnd_Msg_Pub.ADD;
1801: RAISE Fnd_Api.G_EXC_ERROR;
1802: END IF;
1803: --
1807: --
1808: --Check for duplicate records
1809: IF l_visit_detail_rec.visit_id = l_pvisit_id THEN
1810: IF l_visit_detail_rec.simulation_plan_id = p_plan_id THEN
1811: Fnd_message.SET_NAME('AHL','AHL_LTP_RECORD_EXISTS');
1812: Fnd_Msg_Pub.ADD;
1813: RAISE Fnd_Api.G_EXC_ERROR;
1814: END IF;
1815: END IF;
1817: --Check for Object version number
1818: IF (p_v_ovn IS NOT NULL AND p_v_ovn <> FND_API.G_MISS_NUM )
1819: THEN
1820: IF p_v_ovn <> l_visit_detail_rec.object_version_number THEN
1821: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_VISIT_RECORD');
1822: Fnd_Msg_Pub.ADD;
1823: RAISE Fnd_Api.G_EXC_ERROR;
1824: END IF;
1825: END IF;
1829: --Check for plan object version number
1830: IF (p_p_ovn IS NOT NULL AND p_p_ovn <> FND_API.G_MISS_NUM )
1831: THEN
1832: IF p_p_ovn <> l_plan_ovn_number THEN
1833: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_PLAN_RECORD');
1834: Fnd_Msg_Pub.ADD;
1835: RAISE Fnd_Api.G_EXC_ERROR;
1836: END IF;
1837: END IF;
1840: FETCH check_visit_exist_cur INTO l_dup_id;
1841: CLOSE check_visit_exist_cur;
1842: --
1843: IF l_dup_id IS NOT NULL THEN
1844: Fnd_message.SET_NAME('AHL','AHL_LTP_VISIT_NUMBER_EXISTS');
1845: Fnd_Msg_Pub.ADD;
1846: RAISE Fnd_Api.G_EXC_ERROR;
1847: END IF;
1848: IF G_DEBUG='Y' THEN
2051: OPEN c_ue_sr_details(ue_mr_sr_rec.cs_incident_id,ue_mr_sr_rec.csi_item_instance_id);
2052: FETCH c_ue_sr_details INTO ue_sr_details_rec;
2053: CLOSE c_ue_sr_details;
2054:
2055: Fnd_Message.SET_NAME('AHL','AHL_LTP_SIM_VISIT_UNIT_FOUND');
2056: Fnd_Message.SET_TOKEN('UE_TITLE', ue_sr_details_rec.ue_title);
2057: Fnd_Message.SET_TOKEN('ITEM_NUMBER', ue_sr_details_rec.part_number);
2058: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', ue_sr_details_rec.serial_number);
2059: Fnd_Message.SET_TOKEN('MR_TITLE', ue_sr_details_rec.mr_title);
2052: FETCH c_ue_sr_details INTO ue_sr_details_rec;
2053: CLOSE c_ue_sr_details;
2054:
2055: Fnd_Message.SET_NAME('AHL','AHL_LTP_SIM_VISIT_UNIT_FOUND');
2056: Fnd_Message.SET_TOKEN('UE_TITLE', ue_sr_details_rec.ue_title);
2057: Fnd_Message.SET_TOKEN('ITEM_NUMBER', ue_sr_details_rec.part_number);
2058: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', ue_sr_details_rec.serial_number);
2059: Fnd_Message.SET_TOKEN('MR_TITLE', ue_sr_details_rec.mr_title);
2060: ELSE
2053: CLOSE c_ue_sr_details;
2054:
2055: Fnd_Message.SET_NAME('AHL','AHL_LTP_SIM_VISIT_UNIT_FOUND');
2056: Fnd_Message.SET_TOKEN('UE_TITLE', ue_sr_details_rec.ue_title);
2057: Fnd_Message.SET_TOKEN('ITEM_NUMBER', ue_sr_details_rec.part_number);
2058: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', ue_sr_details_rec.serial_number);
2059: Fnd_Message.SET_TOKEN('MR_TITLE', ue_sr_details_rec.mr_title);
2060: ELSE
2061: -- Else if UE corresponds to MR
2054:
2055: Fnd_Message.SET_NAME('AHL','AHL_LTP_SIM_VISIT_UNIT_FOUND');
2056: Fnd_Message.SET_TOKEN('UE_TITLE', ue_sr_details_rec.ue_title);
2057: Fnd_Message.SET_TOKEN('ITEM_NUMBER', ue_sr_details_rec.part_number);
2058: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', ue_sr_details_rec.serial_number);
2059: Fnd_Message.SET_TOKEN('MR_TITLE', ue_sr_details_rec.mr_title);
2060: ELSE
2061: -- Else if UE corresponds to MR
2062: OPEN c_ue_mr_details(ue_mr_sr_rec.mr_header_id,ue_mr_sr_rec.csi_item_instance_id);
2055: Fnd_Message.SET_NAME('AHL','AHL_LTP_SIM_VISIT_UNIT_FOUND');
2056: Fnd_Message.SET_TOKEN('UE_TITLE', ue_sr_details_rec.ue_title);
2057: Fnd_Message.SET_TOKEN('ITEM_NUMBER', ue_sr_details_rec.part_number);
2058: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', ue_sr_details_rec.serial_number);
2059: Fnd_Message.SET_TOKEN('MR_TITLE', ue_sr_details_rec.mr_title);
2060: ELSE
2061: -- Else if UE corresponds to MR
2062: OPEN c_ue_mr_details(ue_mr_sr_rec.mr_header_id,ue_mr_sr_rec.csi_item_instance_id);
2063: FETCH c_ue_mr_details INTO ue_mr_details_rec;
2062: OPEN c_ue_mr_details(ue_mr_sr_rec.mr_header_id,ue_mr_sr_rec.csi_item_instance_id);
2063: FETCH c_ue_mr_details INTO ue_mr_details_rec;
2064: CLOSE c_ue_mr_details;
2065:
2066: Fnd_Message.SET_NAME('AHL','AHL_LTP_SIM_VISIT_UNIT_FOUND');
2067: Fnd_Message.SET_TOKEN('UE_TITLE', ue_mr_details_rec.ue_title);
2068: Fnd_Message.SET_TOKEN('ITEM_NUMBER', ue_mr_details_rec.part_number);
2069: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', ue_mr_details_rec.serial_number);
2070: Fnd_Message.SET_TOKEN('MR_TITLE', ue_mr_details_rec.mr_title);
2063: FETCH c_ue_mr_details INTO ue_mr_details_rec;
2064: CLOSE c_ue_mr_details;
2065:
2066: Fnd_Message.SET_NAME('AHL','AHL_LTP_SIM_VISIT_UNIT_FOUND');
2067: Fnd_Message.SET_TOKEN('UE_TITLE', ue_mr_details_rec.ue_title);
2068: Fnd_Message.SET_TOKEN('ITEM_NUMBER', ue_mr_details_rec.part_number);
2069: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', ue_mr_details_rec.serial_number);
2070: Fnd_Message.SET_TOKEN('MR_TITLE', ue_mr_details_rec.mr_title);
2071: END IF;
2064: CLOSE c_ue_mr_details;
2065:
2066: Fnd_Message.SET_NAME('AHL','AHL_LTP_SIM_VISIT_UNIT_FOUND');
2067: Fnd_Message.SET_TOKEN('UE_TITLE', ue_mr_details_rec.ue_title);
2068: Fnd_Message.SET_TOKEN('ITEM_NUMBER', ue_mr_details_rec.part_number);
2069: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', ue_mr_details_rec.serial_number);
2070: Fnd_Message.SET_TOKEN('MR_TITLE', ue_mr_details_rec.mr_title);
2071: END IF;
2072:
2065:
2066: Fnd_Message.SET_NAME('AHL','AHL_LTP_SIM_VISIT_UNIT_FOUND');
2067: Fnd_Message.SET_TOKEN('UE_TITLE', ue_mr_details_rec.ue_title);
2068: Fnd_Message.SET_TOKEN('ITEM_NUMBER', ue_mr_details_rec.part_number);
2069: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', ue_mr_details_rec.serial_number);
2070: Fnd_Message.SET_TOKEN('MR_TITLE', ue_mr_details_rec.mr_title);
2071: END IF;
2072:
2073: OPEN get_visit_number (l_pvisit_id);
2066: Fnd_Message.SET_NAME('AHL','AHL_LTP_SIM_VISIT_UNIT_FOUND');
2067: Fnd_Message.SET_TOKEN('UE_TITLE', ue_mr_details_rec.ue_title);
2068: Fnd_Message.SET_TOKEN('ITEM_NUMBER', ue_mr_details_rec.part_number);
2069: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', ue_mr_details_rec.serial_number);
2070: Fnd_Message.SET_TOKEN('MR_TITLE', ue_mr_details_rec.mr_title);
2071: END IF;
2072:
2073: OPEN get_visit_number (l_pvisit_id);
2074: FETCH get_visit_number INTO l_primary_visit_number;
2081:
2082: x_return_status := Fnd_Api.g_ret_sts_error;
2083:
2084: /*
2085: Fnd_Message.SET_NAME('AHL','AHL_LTP_SIM_VISIT_UNIT_FOUND');
2086: Fnd_Message.SET_TOKEN('UE_TITLE', l_ue_details_rec.ue_title);
2087: Fnd_Message.SET_TOKEN('ITEM_NUMBER', l_ue_details_rec.part_number);
2088: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', l_ue_details_rec.serial_number);
2089: Fnd_Message.SET_TOKEN('MR_TITLE', l_ue_details_rec.mr_title);
2082: x_return_status := Fnd_Api.g_ret_sts_error;
2083:
2084: /*
2085: Fnd_Message.SET_NAME('AHL','AHL_LTP_SIM_VISIT_UNIT_FOUND');
2086: Fnd_Message.SET_TOKEN('UE_TITLE', l_ue_details_rec.ue_title);
2087: Fnd_Message.SET_TOKEN('ITEM_NUMBER', l_ue_details_rec.part_number);
2088: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', l_ue_details_rec.serial_number);
2089: Fnd_Message.SET_TOKEN('MR_TITLE', l_ue_details_rec.mr_title);
2090: */
2083:
2084: /*
2085: Fnd_Message.SET_NAME('AHL','AHL_LTP_SIM_VISIT_UNIT_FOUND');
2086: Fnd_Message.SET_TOKEN('UE_TITLE', l_ue_details_rec.ue_title);
2087: Fnd_Message.SET_TOKEN('ITEM_NUMBER', l_ue_details_rec.part_number);
2088: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', l_ue_details_rec.serial_number);
2089: Fnd_Message.SET_TOKEN('MR_TITLE', l_ue_details_rec.mr_title);
2090: */
2091: /*
2084: /*
2085: Fnd_Message.SET_NAME('AHL','AHL_LTP_SIM_VISIT_UNIT_FOUND');
2086: Fnd_Message.SET_TOKEN('UE_TITLE', l_ue_details_rec.ue_title);
2087: Fnd_Message.SET_TOKEN('ITEM_NUMBER', l_ue_details_rec.part_number);
2088: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', l_ue_details_rec.serial_number);
2089: Fnd_Message.SET_TOKEN('MR_TITLE', l_ue_details_rec.mr_title);
2090: */
2091: /*
2092: AnRaj: End of Fix bug#:4919576
2085: Fnd_Message.SET_NAME('AHL','AHL_LTP_SIM_VISIT_UNIT_FOUND');
2086: Fnd_Message.SET_TOKEN('UE_TITLE', l_ue_details_rec.ue_title);
2087: Fnd_Message.SET_TOKEN('ITEM_NUMBER', l_ue_details_rec.part_number);
2088: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', l_ue_details_rec.serial_number);
2089: Fnd_Message.SET_TOKEN('MR_TITLE', l_ue_details_rec.mr_title);
2090: */
2091: /*
2092: AnRaj: End of Fix bug#:4919576
2093: */
2092: AnRaj: End of Fix bug#:4919576
2093: */
2094:
2095:
2096: Fnd_Message.SET_TOKEN('VISIT1', l_primary_visit_number);
2097: Fnd_Message.SET_TOKEN('VISIT2', l_asso_prim_visit_number);
2098: Fnd_Msg_Pub.ADD;
2099: RAISE Fnd_Api.G_EXC_ERROR;
2100: ELSE
2093: */
2094:
2095:
2096: Fnd_Message.SET_TOKEN('VISIT1', l_primary_visit_number);
2097: Fnd_Message.SET_TOKEN('VISIT2', l_asso_prim_visit_number);
2098: Fnd_Msg_Pub.ADD;
2099: RAISE Fnd_Api.G_EXC_ERROR;
2100: ELSE
2101: CLOSE chk_unit_effectivities;
2861: FETCH visit_detail_cur INTO l_visit_id,
2862: l_object_version_number,
2863: l_simulation_delete_flag;
2864: IF visit_detail_cur%NOTFOUND THEN
2865: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_RECORD');
2866: Fnd_Msg_Pub.ADD;
2867: END IF;
2868: CLOSE visit_detail_cur;
2869: END IF;
2868: CLOSE visit_detail_cur;
2869: END IF;
2870: --Check for object version number
2871: IF p_visit_object_version_number <> l_object_version_number THEN
2872: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_RECORD');
2873: Fnd_Msg_Pub.ADD;
2874: END IF;
2875: --
2876: IF l_simulation_delete_flag = 'N' THEN
3060: FETCH plan_cur INTO l_simulation_plan_id,
3061: l_object_version_number,
3062: l_primary_plan_flag;
3063: IF plan_cur%NOTFOUND THEN
3064: Fnd_message.SET_NAME('AHL','AHL_LTP_RECORD_INVALID');
3065: Fnd_Msg_Pub.ADD;
3066: END IF;
3067: CLOSE plan_cur;
3068: END IF;
3069: --Check for any visits
3070: OPEN check_visit_cur(p_plan_id);
3071: FETCH check_visit_cur INTO l_dummy;
3072: IF check_visit_cur%NOTFOUND THEN
3073: Fnd_message.SET_NAME('AHL','AHL_LTP_SIMULATION_NO_VISITS');
3074: Fnd_Msg_Pub.ADD;
3075: CLOSE check_visit_cur;
3076: RAISE Fnd_Api.G_EXC_ERROR;
3077: END IF;
3078: CLOSE check_visit_cur;
3079: --
3080: --Check for Record change
3081: IF p_object_version_number <> l_object_version_number THEN
3082: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_PLAN_RECORD');
3083: Fnd_Msg_Pub.ADD;
3084: END IF;
3085: --Get all the simulated visits
3086: IF p_plan_id IS NOT NULL AND p_plan_id <> FND_API.G_MISS_NUM
3663: FETCH check_primary_cur INTO l_primary_plan_id;
3664: CLOSE check_primary_cur;
3665: --
3666: IF l_primary_plan_id IS NOT NULL THEN
3667: Fnd_message.SET_NAME('AHL','AHL_LTP_PRIMARY_PLAN');
3668: Fnd_Msg_Pub.ADD;
3669: RAISE Fnd_Api.G_EXC_ERROR;
3670: END IF;
3671: --Check for visit belongs to simulation plan
3677: WHERE simulation_plan_id = p_plan_id
3678: AND primary_plan_flag = 'N';
3679: --
3680: IF l_simulation_plan_id IS NULL THEN
3681: Fnd_message.SET_NAME('AHL','AHL_LTP_PRIMARY_PLAN');
3682: Fnd_Msg_Pub.ADD;
3683: RAISE Fnd_Api.G_EXC_ERROR;
3684: END IF;
3685:
3686: --Check for simulation plan
3687: OPEN simul_visit_cur(p_visit_id,p_plan_id);
3688: FETCH simul_visit_cur INTO l_simul_visit_rec;
3689: IF simul_visit_cur%NOTFOUND THEN
3690: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_RECORD');
3691: Fnd_Msg_Pub.ADD;
3692: CLOSE simul_visit_cur;
3693: RAISE Fnd_Api.G_EXC_ERROR;
3694: END IF;
3696:
3697: --Check for object version number
3698: IF p_object_version_number <> l_simul_visit_rec.object_version_number
3699: THEN
3700: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_PLAN_RECORD');
3701: Fnd_Msg_Pub.ADD;
3702: RAISE Fnd_Api.G_EXC_ERROR;
3703: END IF;
3704: --Get corresponding primary visit
3719: --Check for simulation delete flag
3720: IF l_simul_visit_rec.simulation_delete_flag = 'Y' THEN --Remove the Primary Visit
3721: /* Modified by mpothuku on 01/25/05 to delete the primary visit if the Simulation Flag is delete */
3722: /*
3723: Fnd_message.SET_NAME('AHL','AHL_LTP_VISIT_REMOVED');
3724: Fnd_Msg_Pub.ADD;
3725: RAISE Fnd_Api.G_EXC_ERROR;
3726: */
3727: IF l_primary_visit_id IS NOT NULL THEN
4009: IF ue_mr_sr_id_rec.cs_incident_id IS NOT NULL THEN
4010: OPEN c_ue_sr_details(ue_mr_sr_id_rec.cs_incident_id,ue_mr_sr_id_rec.csi_item_instance_id);
4011: FETCH c_ue_sr_details INTO ue_sr_details_rec;
4012: CLOSE c_ue_sr_details;
4013: Fnd_Message.SET_NAME('AHL','AHL_LTP_PRIM_VISIT_UNIT_FOUND');
4014: Fnd_Message.SET_TOKEN('UE_TITLE', ue_sr_details_rec.ue_title);
4015: Fnd_Message.SET_TOKEN('ITEM_NUMBER', ue_sr_details_rec.part_number);
4016: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', ue_sr_details_rec.serial_number);
4017: Fnd_Message.SET_TOKEN('MR_TITLE', ue_sr_details_rec.mr_title);
4010: OPEN c_ue_sr_details(ue_mr_sr_id_rec.cs_incident_id,ue_mr_sr_id_rec.csi_item_instance_id);
4011: FETCH c_ue_sr_details INTO ue_sr_details_rec;
4012: CLOSE c_ue_sr_details;
4013: Fnd_Message.SET_NAME('AHL','AHL_LTP_PRIM_VISIT_UNIT_FOUND');
4014: Fnd_Message.SET_TOKEN('UE_TITLE', ue_sr_details_rec.ue_title);
4015: Fnd_Message.SET_TOKEN('ITEM_NUMBER', ue_sr_details_rec.part_number);
4016: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', ue_sr_details_rec.serial_number);
4017: Fnd_Message.SET_TOKEN('MR_TITLE', ue_sr_details_rec.mr_title);
4018: Fnd_Message.SET_TOKEN('VISIT1', l_primary_visit_number);
4011: FETCH c_ue_sr_details INTO ue_sr_details_rec;
4012: CLOSE c_ue_sr_details;
4013: Fnd_Message.SET_NAME('AHL','AHL_LTP_PRIM_VISIT_UNIT_FOUND');
4014: Fnd_Message.SET_TOKEN('UE_TITLE', ue_sr_details_rec.ue_title);
4015: Fnd_Message.SET_TOKEN('ITEM_NUMBER', ue_sr_details_rec.part_number);
4016: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', ue_sr_details_rec.serial_number);
4017: Fnd_Message.SET_TOKEN('MR_TITLE', ue_sr_details_rec.mr_title);
4018: Fnd_Message.SET_TOKEN('VISIT1', l_primary_visit_number);
4019: Fnd_Message.SET_TOKEN('VISIT2', l_visit_number);
4012: CLOSE c_ue_sr_details;
4013: Fnd_Message.SET_NAME('AHL','AHL_LTP_PRIM_VISIT_UNIT_FOUND');
4014: Fnd_Message.SET_TOKEN('UE_TITLE', ue_sr_details_rec.ue_title);
4015: Fnd_Message.SET_TOKEN('ITEM_NUMBER', ue_sr_details_rec.part_number);
4016: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', ue_sr_details_rec.serial_number);
4017: Fnd_Message.SET_TOKEN('MR_TITLE', ue_sr_details_rec.mr_title);
4018: Fnd_Message.SET_TOKEN('VISIT1', l_primary_visit_number);
4019: Fnd_Message.SET_TOKEN('VISIT2', l_visit_number);
4020: Fnd_Msg_Pub.ADD;
4013: Fnd_Message.SET_NAME('AHL','AHL_LTP_PRIM_VISIT_UNIT_FOUND');
4014: Fnd_Message.SET_TOKEN('UE_TITLE', ue_sr_details_rec.ue_title);
4015: Fnd_Message.SET_TOKEN('ITEM_NUMBER', ue_sr_details_rec.part_number);
4016: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', ue_sr_details_rec.serial_number);
4017: Fnd_Message.SET_TOKEN('MR_TITLE', ue_sr_details_rec.mr_title);
4018: Fnd_Message.SET_TOKEN('VISIT1', l_primary_visit_number);
4019: Fnd_Message.SET_TOKEN('VISIT2', l_visit_number);
4020: Fnd_Msg_Pub.ADD;
4021: RAISE Fnd_Api.G_EXC_ERROR;
4014: Fnd_Message.SET_TOKEN('UE_TITLE', ue_sr_details_rec.ue_title);
4015: Fnd_Message.SET_TOKEN('ITEM_NUMBER', ue_sr_details_rec.part_number);
4016: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', ue_sr_details_rec.serial_number);
4017: Fnd_Message.SET_TOKEN('MR_TITLE', ue_sr_details_rec.mr_title);
4018: Fnd_Message.SET_TOKEN('VISIT1', l_primary_visit_number);
4019: Fnd_Message.SET_TOKEN('VISIT2', l_visit_number);
4020: Fnd_Msg_Pub.ADD;
4021: RAISE Fnd_Api.G_EXC_ERROR;
4022: ELSE
4015: Fnd_Message.SET_TOKEN('ITEM_NUMBER', ue_sr_details_rec.part_number);
4016: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', ue_sr_details_rec.serial_number);
4017: Fnd_Message.SET_TOKEN('MR_TITLE', ue_sr_details_rec.mr_title);
4018: Fnd_Message.SET_TOKEN('VISIT1', l_primary_visit_number);
4019: Fnd_Message.SET_TOKEN('VISIT2', l_visit_number);
4020: Fnd_Msg_Pub.ADD;
4021: RAISE Fnd_Api.G_EXC_ERROR;
4022: ELSE
4023: OPEN c_ue_mr_details(ue_mr_sr_id_rec.mr_header_id,ue_mr_sr_id_rec.csi_item_instance_id);
4022: ELSE
4023: OPEN c_ue_mr_details(ue_mr_sr_id_rec.mr_header_id,ue_mr_sr_id_rec.csi_item_instance_id);
4024: FETCH c_ue_mr_details INTO ue_mr_details_rec;
4025: CLOSE c_ue_mr_details;
4026: Fnd_Message.SET_NAME('AHL','AHL_LTP_PRIM_VISIT_UNIT_FOUND');
4027: Fnd_Message.SET_TOKEN('UE_TITLE', ue_mr_details_rec.ue_title);
4028: Fnd_Message.SET_TOKEN('ITEM_NUMBER', ue_mr_details_rec.part_number);
4029: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', ue_mr_details_rec.serial_number);
4030: Fnd_Message.SET_TOKEN('MR_TITLE', ue_mr_details_rec.mr_title);
4023: OPEN c_ue_mr_details(ue_mr_sr_id_rec.mr_header_id,ue_mr_sr_id_rec.csi_item_instance_id);
4024: FETCH c_ue_mr_details INTO ue_mr_details_rec;
4025: CLOSE c_ue_mr_details;
4026: Fnd_Message.SET_NAME('AHL','AHL_LTP_PRIM_VISIT_UNIT_FOUND');
4027: Fnd_Message.SET_TOKEN('UE_TITLE', ue_mr_details_rec.ue_title);
4028: Fnd_Message.SET_TOKEN('ITEM_NUMBER', ue_mr_details_rec.part_number);
4029: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', ue_mr_details_rec.serial_number);
4030: Fnd_Message.SET_TOKEN('MR_TITLE', ue_mr_details_rec.mr_title);
4031: Fnd_Message.SET_TOKEN('VISIT1', l_primary_visit_number);
4024: FETCH c_ue_mr_details INTO ue_mr_details_rec;
4025: CLOSE c_ue_mr_details;
4026: Fnd_Message.SET_NAME('AHL','AHL_LTP_PRIM_VISIT_UNIT_FOUND');
4027: Fnd_Message.SET_TOKEN('UE_TITLE', ue_mr_details_rec.ue_title);
4028: Fnd_Message.SET_TOKEN('ITEM_NUMBER', ue_mr_details_rec.part_number);
4029: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', ue_mr_details_rec.serial_number);
4030: Fnd_Message.SET_TOKEN('MR_TITLE', ue_mr_details_rec.mr_title);
4031: Fnd_Message.SET_TOKEN('VISIT1', l_primary_visit_number);
4032: Fnd_Message.SET_TOKEN('VISIT2', l_visit_number);
4025: CLOSE c_ue_mr_details;
4026: Fnd_Message.SET_NAME('AHL','AHL_LTP_PRIM_VISIT_UNIT_FOUND');
4027: Fnd_Message.SET_TOKEN('UE_TITLE', ue_mr_details_rec.ue_title);
4028: Fnd_Message.SET_TOKEN('ITEM_NUMBER', ue_mr_details_rec.part_number);
4029: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', ue_mr_details_rec.serial_number);
4030: Fnd_Message.SET_TOKEN('MR_TITLE', ue_mr_details_rec.mr_title);
4031: Fnd_Message.SET_TOKEN('VISIT1', l_primary_visit_number);
4032: Fnd_Message.SET_TOKEN('VISIT2', l_visit_number);
4033: Fnd_Msg_Pub.ADD;
4026: Fnd_Message.SET_NAME('AHL','AHL_LTP_PRIM_VISIT_UNIT_FOUND');
4027: Fnd_Message.SET_TOKEN('UE_TITLE', ue_mr_details_rec.ue_title);
4028: Fnd_Message.SET_TOKEN('ITEM_NUMBER', ue_mr_details_rec.part_number);
4029: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', ue_mr_details_rec.serial_number);
4030: Fnd_Message.SET_TOKEN('MR_TITLE', ue_mr_details_rec.mr_title);
4031: Fnd_Message.SET_TOKEN('VISIT1', l_primary_visit_number);
4032: Fnd_Message.SET_TOKEN('VISIT2', l_visit_number);
4033: Fnd_Msg_Pub.ADD;
4034: RAISE Fnd_Api.G_EXC_ERROR;
4027: Fnd_Message.SET_TOKEN('UE_TITLE', ue_mr_details_rec.ue_title);
4028: Fnd_Message.SET_TOKEN('ITEM_NUMBER', ue_mr_details_rec.part_number);
4029: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', ue_mr_details_rec.serial_number);
4030: Fnd_Message.SET_TOKEN('MR_TITLE', ue_mr_details_rec.mr_title);
4031: Fnd_Message.SET_TOKEN('VISIT1', l_primary_visit_number);
4032: Fnd_Message.SET_TOKEN('VISIT2', l_visit_number);
4033: Fnd_Msg_Pub.ADD;
4034: RAISE Fnd_Api.G_EXC_ERROR;
4035: END IF;
4028: Fnd_Message.SET_TOKEN('ITEM_NUMBER', ue_mr_details_rec.part_number);
4029: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', ue_mr_details_rec.serial_number);
4030: Fnd_Message.SET_TOKEN('MR_TITLE', ue_mr_details_rec.mr_title);
4031: Fnd_Message.SET_TOKEN('VISIT1', l_primary_visit_number);
4032: Fnd_Message.SET_TOKEN('VISIT2', l_visit_number);
4033: Fnd_Msg_Pub.ADD;
4034: RAISE Fnd_Api.G_EXC_ERROR;
4035: END IF;
4036: /*