APPS.AHL_LTP_SIMUL_PLAN_PVT dependencies on FND_MSG_PUB

Line 157: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN

153: x_simulation_rec := p_simulation_rec;
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;

Line 159: FND_MSG_PUB.add;

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;

Line 168: Fnd_Msg_Pub.ADD;

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:
172: IF G_DEBUG='Y' THEN

Line 362: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.G_MSG_LVL_ERROR)

358: p_simulation_plan_rec.SIMULATION_PLAN_NAME = FND_API.G_MISS_CHAR)
359: THEN
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;

Line 365: Fnd_Msg_Pub.ADD;

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

Line 374: Fnd_Msg_Pub.ADD;

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;
378: --Check for primary plan

Line 381: Fnd_Msg_Pub.ADD;

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:
385: END Validate_Simulation_plan_Items;

Line 447: Fnd_Msg_Pub.initialize;

443: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
444: END IF;
445: -- Initialize message list if p_init_msg_list is set to TRUE.
446: IF Fnd_Api.to_Boolean( p_init_msg_list ) THEN
447: Fnd_Msg_Pub.initialize;
448: END IF;
449: -- Initialize API return status to success
450: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
451: --

Line 490: Fnd_Msg_Pub.count_and_get(

486: --
487: -- END of API body.
488: --
489: -------------------- finish --------------------------
490: Fnd_Msg_Pub.count_and_get(
491: p_encoded => Fnd_Api.g_false,
492: p_count => x_msg_count,
493: p_data => x_msg_data);
494: EXCEPTION

Line 497: Fnd_Msg_Pub.Count_AND_Get

493: p_data => x_msg_data);
494: EXCEPTION
495: WHEN Fnd_Api.G_EXC_ERROR THEN
496: x_return_status := Fnd_Api.G_RET_STS_ERROR ;
497: Fnd_Msg_Pub.Count_AND_Get
498: ( p_count => x_msg_count,
499: p_data => x_msg_data,
500: p_encoded => Fnd_Api.G_FALSE
501: );

Line 504: Fnd_Msg_Pub.Count_AND_Get

500: p_encoded => Fnd_Api.G_FALSE
501: );
502: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
503: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
504: Fnd_Msg_Pub.Count_AND_Get
505: ( p_count => x_msg_count,
506: p_data => x_msg_data,
507: p_encoded => Fnd_Api.G_FALSE
508: );

Line 511: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )

507: p_encoded => Fnd_Api.G_FALSE
508: );
509: WHEN OTHERS THEN
510: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
511: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
512: THEN
513: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
514: END IF;
515: Fnd_Msg_Pub.Count_AND_Get

Line 513: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);

509: WHEN OTHERS THEN
510: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR ;
511: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
512: THEN
513: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
514: END IF;
515: Fnd_Msg_Pub.Count_AND_Get
516: ( p_count => x_msg_count,
517: p_data => x_msg_data,

Line 515: Fnd_Msg_Pub.Count_AND_Get

511: IF Fnd_Msg_Pub.Check_Msg_Level ( Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR )
512: THEN
513: Fnd_Msg_Pub.Add_Exc_Msg( G_PKG_NAME,l_api_name);
514: END IF;
515: Fnd_Msg_Pub.Count_AND_Get
516: ( p_count => x_msg_count,
517: p_data => x_msg_data,
518: p_encoded => Fnd_Api.G_FALSE
519: );

Line 583: FND_MSG_PUB.initialize;

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;
585: -- Initialize API return status to success
586: x_return_status := FND_API.G_RET_STS_SUCCESS;
587: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 631: Fnd_Msg_Pub.ADD;

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
635: l_simulation_plan_rec.description := NULL;

Line 737: l_msg_count := Fnd_Msg_Pub.count_msg;

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;
741: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;

Line 779: l_msg_count := Fnd_Msg_Pub.count_msg;

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;

Line 803: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

799: EXCEPTION
800: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
801: ROLLBACK TO create_simulation_plan;
802: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
803: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
804: p_count => x_msg_count,
805: p_data => x_msg_data);
806: IF G_DEBUG='Y' THEN
807:

Line 817: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

813: END IF;
814: WHEN FND_API.G_EXC_ERROR THEN
815: ROLLBACK TO create_simulation_plan;
816: X_return_status := FND_API.G_RET_STS_ERROR;
817: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
818: p_count => x_msg_count,
819: p_data => X_msg_data);
820: IF G_DEBUG='Y' THEN
821: -- Debug info.

Line 831: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

827: END IF;
828: WHEN OTHERS THEN
829: ROLLBACK TO create_simulation_plan;
830: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
831: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
832: THEN
833: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
834: p_procedure_name => 'CREATE_SIMULATION_PLAN',
835: p_error_text => SUBSTR(SQLERRM,1,240));

Line 833: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',

829: ROLLBACK TO create_simulation_plan;
830: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
831: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
832: THEN
833: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
834: p_procedure_name => 'CREATE_SIMULATION_PLAN',
835: p_error_text => SUBSTR(SQLERRM,1,240));
836: END IF;
837: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

Line 837: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

833: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
834: p_procedure_name => 'CREATE_SIMULATION_PLAN',
835: p_error_text => SUBSTR(SQLERRM,1,240));
836: END IF;
837: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
838: p_count => x_msg_count,
839: p_data => X_msg_data);
840: IF G_DEBUG='Y' THEN
841:

Line 914: FND_MSG_PUB.initialize;

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;
916: -- Initialize API return status to success
917: x_return_status := FND_API.G_RET_STS_SUCCESS;
918: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 950: Fnd_Msg_Pub.ADD;

946: IF NVL(l_return_status,'x') <> 'S'
947: THEN
948: Fnd_Message.SET_NAME('AHL','AHL_LTP_PLAN_NOT_EXISTS');
949: Fnd_Message.SET_TOKEN('PLANID',p_simulation_plan_rec.plan_name);
950: Fnd_Msg_Pub.ADD;
951: END IF;
952: END IF;
953: --Assign the returned value
954: l_simulation_plan_rec.simulation_plan_id := l_simulation_plan_id;

Line 978: Fnd_Msg_Pub.ADD;

974: FETCH primary_plan_cur INTO l_primary_plan_flag;
975: CLOSE primary_plan_cur;
976: IF l_primary_plan_flag = 'Y' THEN
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;

Line 982: l_msg_count := Fnd_Msg_Pub.count_msg;

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;
986: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;

Line 1022: l_msg_count := Fnd_Msg_Pub.count_msg;

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;

Line 1044: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

1040: EXCEPTION
1041: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1042: ROLLBACK TO update_simulation_plan;
1043: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1044: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1045: p_count => x_msg_count,
1046: p_data => x_msg_data);
1047: IF G_DEBUG='Y' THEN
1048:

Line 1058: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

1054: END IF;
1055: WHEN FND_API.G_EXC_ERROR THEN
1056: ROLLBACK TO update_simulation_plan;
1057: X_return_status := FND_API.G_RET_STS_ERROR;
1058: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1059: p_count => x_msg_count,
1060: p_data => X_msg_data);
1061: IF G_DEBUG='Y' THEN
1062:

Line 1073: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

1069: END IF;
1070: WHEN OTHERS THEN
1071: ROLLBACK TO update_simulation_plan;
1072: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1073: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1074: THEN
1075: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
1076: p_procedure_name => 'UPDATE_SIMULATION_PLAN',
1077: p_error_text => SUBSTR(SQLERRM,1,240));

Line 1075: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',

1071: ROLLBACK TO update_simulation_plan;
1072: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1073: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1074: THEN
1075: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
1076: p_procedure_name => 'UPDATE_SIMULATION_PLAN',
1077: p_error_text => SUBSTR(SQLERRM,1,240));
1078: END IF;
1079: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

Line 1079: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

1075: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
1076: p_procedure_name => 'UPDATE_SIMULATION_PLAN',
1077: p_error_text => SUBSTR(SQLERRM,1,240));
1078: END IF;
1079: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1080: p_count => x_msg_count,
1081: p_data => X_msg_data);
1082: IF G_DEBUG='Y' THEN
1083:

Line 1180: FND_MSG_PUB.initialize;

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;
1182: -- Initialize API return status to success
1183: x_return_status := FND_API.G_RET_STS_SUCCESS;
1184: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 1198: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN

1194: FETCH c_simulation_plan_cur INTO l_simulation_plan_id,
1195: l_object_version_number,
1196: l_primary_plan_flag;
1197: IF c_simulation_plan_cur%NOTFOUND THEN
1198: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1199: FND_MESSAGE.set_name('AHL', 'AHL_LTP_RECORD_NOT_FOUND');
1200: FND_MSG_PUB.add;
1201: END IF;
1202: CLOSE c_simulation_plan_cur;

Line 1200: FND_MSG_PUB.add;

1196: l_primary_plan_flag;
1197: IF c_simulation_plan_cur%NOTFOUND THEN
1198: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1199: FND_MESSAGE.set_name('AHL', 'AHL_LTP_RECORD_NOT_FOUND');
1200: FND_MSG_PUB.add;
1201: END IF;
1202: CLOSE c_simulation_plan_cur;
1203: RAISE FND_API.g_exc_error;
1204: END IF;

Line 1211: FND_MSG_PUB.add;

1207: --Check for primary plan
1208: IF l_primary_plan_flag = 'Y'
1209: THEN
1210: FND_MESSAGE.set_name('AHL', 'AHL_LTP_PRIMARY_PLAN');
1211: FND_MSG_PUB.add;
1212: RAISE FND_API.g_exc_error;
1213: END IF;
1214:
1215: /* Added by mpothuku on 12/22/04 to delete the associated simulation visits.

Line 1238: l_msg_count := FND_MSG_PUB.count_msg;

1234: x_msg_data => l_msg_data);
1235:
1236: -- Check Error Message stack.
1237: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1238: l_msg_count := FND_MSG_PUB.count_msg;
1239: IF l_msg_count > 0 THEN
1240: RAISE FND_API.G_EXC_ERROR;
1241: END IF;
1242: END IF;

Line 1251: FND_MSG_PUB.add;

1247: --Check for object version number
1248: IF l_object_version_number <> p_simulation_plan_rec.object_version_number
1249: THEN
1250: FND_MESSAGE.set_name('AHL', 'AHL_LTP_RECORD_CHANGED');
1251: FND_MSG_PUB.add;
1252: RAISE FND_API.g_exc_error;
1253: END IF;
1254: -------------------Call Table handler generated procedure------------
1255: AHL_SIMULATION_PLANS_PKG.DELETE_ROW (

Line 1260: l_msg_count := Fnd_Msg_Pub.count_msg;

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;

Line 1284: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

1280: EXCEPTION
1281: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1282: ROLLBACK TO delete_simulation_plan;
1283: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1284: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1285: p_count => x_msg_count,
1286: p_data => x_msg_data);
1287: IF G_DEBUG='Y' THEN
1288:

Line 1298: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

1294: END IF;
1295: WHEN FND_API.G_EXC_ERROR THEN
1296: ROLLBACK TO delete_simulation_plan;
1297: X_return_status := FND_API.G_RET_STS_ERROR;
1298: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1299: p_count => x_msg_count,
1300: p_data => X_msg_data);
1301: IF G_DEBUG='Y' THEN
1302: -- Debug info.

Line 1312: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

1308: END IF;
1309: WHEN OTHERS THEN
1310: ROLLBACK TO delete_simulation_plan;
1311: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1312: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1313: THEN
1314: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
1315: p_procedure_name => 'DELETE_SIMULATION_PLAN',
1316: p_error_text => SUBSTR(SQLERRM,1,240));

Line 1314: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',

1310: ROLLBACK TO delete_simulation_plan;
1311: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1312: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1313: THEN
1314: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
1315: p_procedure_name => 'DELETE_SIMULATION_PLAN',
1316: p_error_text => SUBSTR(SQLERRM,1,240));
1317: END IF;
1318: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

Line 1318: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

1314: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
1315: p_procedure_name => 'DELETE_SIMULATION_PLAN',
1316: p_error_text => SUBSTR(SQLERRM,1,240));
1317: END IF;
1318: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1319: p_count => x_msg_count,
1320: p_data => X_msg_data);
1321: IF G_DEBUG='Y' THEN
1322:

Line 1719: FND_MSG_PUB.initialize;

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;
1721: -- Initialize API return status to success
1722: x_return_status := FND_API.G_RET_STS_SUCCESS;
1723: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 1743: Fnd_Msg_Pub.ADD;

1739: OPEN get_visit_id_cur(p_visit_number);
1740: FETCH get_visit_id_cur INTO l_pvisit_id, l_primary_visit_id;
1741: IF get_visit_id_cur%NOTFOUND THEN
1742: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_VISIT_NUMBER');
1743: Fnd_Msg_Pub.ADD;
1744: CLOSE get_visit_id_cur;
1745: RAISE Fnd_Api.G_EXC_ERROR;
1746: --
1747: END IF;

Line 1762: Fnd_Msg_Pub.ADD;

1758: OPEN get_visit_num_cur(p_visit_id);
1759: FETCH get_visit_num_cur INTO l_pvisit_id, l_primary_visit_id;
1760: IF get_visit_num_cur%NOTFOUND THEN
1761: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_VISIT_NUMBER');
1762: Fnd_Msg_Pub.ADD;
1763: CLOSE get_visit_num_cur;
1764: RAISE Fnd_Api.G_EXC_ERROR;
1765: END IF;
1766: CLOSE get_visit_num_cur;

Line 1778: Fnd_Msg_Pub.ADD;

1774: FROM AHL_SIMULATION_PLANS_VL
1775: WHERE simulation_plan_id = p_plan_id;
1776: ELSE
1777: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_SIMUL_NAME');
1778: Fnd_Msg_Pub.ADD;
1779: RAISE Fnd_Api.G_EXC_ERROR;
1780: END IF;
1781: --Check for copying to priamry plan
1782: IF l_plan_flag = 'Y' THEN

Line 1784: Fnd_Msg_Pub.ADD;

1780: END IF;
1781: --Check for copying to priamry plan
1782: IF l_plan_flag = 'Y' THEN
1783: Fnd_message.SET_NAME('AHL','AHL_LTP_NO_COPY_PRIM_PLAN');
1784: Fnd_Msg_Pub.ADD;
1785: RAISE Fnd_Api.G_EXC_ERROR;
1786: END IF;
1787: --
1788: OPEN visit_detail_cur(l_pvisit_id);

Line 1796: Fnd_Msg_Pub.ADD;

1792: --Check for duplicate records
1793: IF l_visit_detail_rec.visit_id = l_pvisit_id THEN
1794: IF l_visit_detail_rec.simulation_plan_id = p_plan_id THEN
1795: Fnd_message.SET_NAME('AHL','AHL_LTP_RECORD_EXISTS');
1796: Fnd_Msg_Pub.ADD;
1797: RAISE Fnd_Api.G_EXC_ERROR;
1798: END IF;
1799: END IF;
1800:

Line 1806: Fnd_Msg_Pub.ADD;

1802: IF (p_v_ovn IS NOT NULL AND p_v_ovn <> FND_API.G_MISS_NUM )
1803: THEN
1804: IF p_v_ovn <> l_visit_detail_rec.object_version_number THEN
1805: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_VISIT_RECORD');
1806: Fnd_Msg_Pub.ADD;
1807: RAISE Fnd_Api.G_EXC_ERROR;
1808: END IF;
1809: END IF;
1810: --

Line 1818: Fnd_Msg_Pub.ADD;

1814: IF (p_p_ovn IS NOT NULL AND p_p_ovn <> FND_API.G_MISS_NUM )
1815: THEN
1816: IF p_p_ovn <> l_plan_ovn_number THEN
1817: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_PLAN_RECORD');
1818: Fnd_Msg_Pub.ADD;
1819: RAISE Fnd_Api.G_EXC_ERROR;
1820: END IF;
1821: END IF;
1822: --Check for duplicate records

Line 1829: Fnd_Msg_Pub.ADD;

1825: CLOSE check_visit_exist_cur;
1826: --
1827: IF l_dup_id IS NOT NULL THEN
1828: Fnd_message.SET_NAME('AHL','AHL_LTP_VISIT_NUMBER_EXISTS');
1829: Fnd_Msg_Pub.ADD;
1830: RAISE Fnd_Api.G_EXC_ERROR;
1831: END IF;
1832: IF G_DEBUG='Y' THEN
1833: AHL_DEBUG_PUB.debug( 'plan_id'||p_plan_id);

Line 2066: Fnd_Msg_Pub.ADD;

2062:
2063:
2064: Fnd_Message.SET_TOKEN('VISIT1', l_primary_visit_number);
2065: Fnd_Message.SET_TOKEN('VISIT2', l_asso_prim_visit_number);
2066: Fnd_Msg_Pub.ADD;
2067: RAISE Fnd_Api.G_EXC_ERROR;
2068: ELSE
2069: CLOSE chk_unit_effectivities;
2070: END IF;

Line 2335: l_msg_count := Fnd_Msg_Pub.count_msg;

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;

Line 2358: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

2354: EXCEPTION
2355: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2356: ROLLBACK TO copy_visits_to_plan;
2357: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2358: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2359: p_count => x_msg_count,
2360: p_data => x_msg_data);
2361: IF G_DEBUG='Y' THEN
2362:

Line 2373: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

2369:
2370: WHEN FND_API.G_EXC_ERROR THEN
2371: ROLLBACK TO copy_visits_to_plan;
2372: X_return_status := FND_API.G_RET_STS_ERROR;
2373: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2374: p_count => x_msg_count,
2375: p_data => X_msg_data);
2376: IF G_DEBUG='Y' THEN
2377:

Line 2389: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

2385:
2386: WHEN OTHERS THEN
2387: ROLLBACK TO copy_visits_to_plan;
2388: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2389: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2390: THEN
2391: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
2392: p_procedure_name => 'COPY_VISITS_TO_PLAN',
2393: p_error_text => SUBSTR(SQLERRM,1,240));

Line 2391: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',

2387: ROLLBACK TO copy_visits_to_plan;
2388: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2389: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2390: THEN
2391: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
2392: p_procedure_name => 'COPY_VISITS_TO_PLAN',
2393: p_error_text => SUBSTR(SQLERRM,1,240));
2394: END IF;
2395: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

Line 2395: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

2391: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
2392: p_procedure_name => 'COPY_VISITS_TO_PLAN',
2393: p_error_text => SUBSTR(SQLERRM,1,240));
2394: END IF;
2395: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2396: p_count => x_msg_count,
2397: p_data => X_msg_data);
2398: IF G_DEBUG='Y' THEN
2399:

Line 2500: FND_MSG_PUB.initialize;

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;
2502: -- Initialize API return status to success
2503: x_return_status := FND_API.G_RET_STS_SUCCESS;
2504: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 2674: l_msg_count := Fnd_Msg_Pub.count_msg;

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;

Line 2697: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

2693: EXCEPTION
2694: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2695: ROLLBACK TO remove_visits_fr_plan;
2696: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2697: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2698: p_count => x_msg_count,
2699: p_data => x_msg_data);
2700: IF G_DEBUG='Y' THEN
2701:

Line 2712: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

2708:
2709: WHEN FND_API.G_EXC_ERROR THEN
2710: ROLLBACK TO remove_visits_fr_plan;
2711: X_return_status := FND_API.G_RET_STS_ERROR;
2712: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2713: p_count => x_msg_count,
2714: p_data => X_msg_data);
2715: IF G_DEBUG='Y' THEN
2716:

Line 2728: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

2724:
2725: WHEN OTHERS THEN
2726: ROLLBACK TO remove_visits_fr_plan;
2727: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2728: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2729: THEN
2730: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
2731: p_procedure_name => 'REMOVE_VISITS_FR_PLAN',
2732: p_error_text => SUBSTR(SQLERRM,1,240));

Line 2730: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',

2726: ROLLBACK TO remove_visits_fr_plan;
2727: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2728: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2729: THEN
2730: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
2731: p_procedure_name => 'REMOVE_VISITS_FR_PLAN',
2732: p_error_text => SUBSTR(SQLERRM,1,240));
2733: END IF;
2734: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

Line 2734: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

2730: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
2731: p_procedure_name => 'REMOVE_VISITS_FR_PLAN',
2732: p_error_text => SUBSTR(SQLERRM,1,240));
2733: END IF;
2734: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2735: p_count => x_msg_count,
2736: p_data => X_msg_data);
2737: IF G_DEBUG='Y' THEN
2738:

Line 2805: FND_MSG_PUB.initialize;

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;
2807: -- Initialize API return status to success
2808: x_return_status := FND_API.G_RET_STS_SUCCESS;
2809: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 2826: Fnd_Msg_Pub.ADD;

2822: l_object_version_number,
2823: l_simulation_delete_flag;
2824: IF visit_detail_cur%NOTFOUND THEN
2825: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_RECORD');
2826: Fnd_Msg_Pub.ADD;
2827: END IF;
2828: CLOSE visit_detail_cur;
2829: END IF;
2830: --Check for object version number

Line 2833: Fnd_Msg_Pub.ADD;

2829: END IF;
2830: --Check for object version number
2831: IF p_visit_object_version_number <> l_object_version_number THEN
2832: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_RECORD');
2833: Fnd_Msg_Pub.ADD;
2834: END IF;
2835: --
2836: IF l_simulation_delete_flag = 'N' THEN
2837: UPDATE AHL_VISITS_B

Line 2853: l_msg_count := Fnd_Msg_Pub.count_msg;

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;

Line 2876: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

2872: EXCEPTION
2873: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2874: ROLLBACK TO toggle_simulation_delete;
2875: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2876: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2877: p_count => x_msg_count,
2878: p_data => x_msg_data);
2879: IF G_DEBUG='Y' THEN
2880:

Line 2893: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

2889:
2890: WHEN FND_API.G_EXC_ERROR THEN
2891: ROLLBACK TO toggle_simulation_delete;
2892: X_return_status := FND_API.G_RET_STS_ERROR;
2893: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2894: p_count => x_msg_count,
2895: p_data => X_msg_data);
2896: IF G_DEBUG='Y' THEN
2897:

Line 2911: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

2907:
2908: WHEN OTHERS THEN
2909: ROLLBACK TO toggle_simulation_delete;
2910: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2911: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2912: THEN
2913: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
2914: p_procedure_name => 'TOGGLE_SIMULATION_DELETE',
2915: p_error_text => SUBSTR(SQLERRM,1,240));

Line 2913: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',

2909: ROLLBACK TO toggle_simulation_delete;
2910: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2911: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2912: THEN
2913: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
2914: p_procedure_name => 'TOGGLE_SIMULATION_DELETE',
2915: p_error_text => SUBSTR(SQLERRM,1,240));
2916: END IF;
2917: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

Line 2917: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

2913: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
2914: p_procedure_name => 'TOGGLE_SIMULATION_DELETE',
2915: p_error_text => SUBSTR(SQLERRM,1,240));
2916: END IF;
2917: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2918: p_count => x_msg_count,
2919: p_data => X_msg_data);
2920: IF G_DEBUG='Y' THEN
2921:

Line 3005: FND_MSG_PUB.initialize;

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;
3007: -- Initialize API return status to success
3008: x_return_status := FND_API.G_RET_STS_SUCCESS;
3009: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 3025: Fnd_Msg_Pub.ADD;

3021: l_object_version_number,
3022: l_primary_plan_flag;
3023: IF plan_cur%NOTFOUND THEN
3024: Fnd_message.SET_NAME('AHL','AHL_LTP_RECORD_INVALID');
3025: Fnd_Msg_Pub.ADD;
3026: END IF;
3027: CLOSE plan_cur;
3028: END IF;
3029: --Check for any visits

Line 3034: Fnd_Msg_Pub.ADD;

3030: OPEN check_visit_cur(p_plan_id);
3031: FETCH check_visit_cur INTO l_dummy;
3032: IF check_visit_cur%NOTFOUND THEN
3033: Fnd_message.SET_NAME('AHL','AHL_LTP_SIMULATION_NO_VISITS');
3034: Fnd_Msg_Pub.ADD;
3035: CLOSE check_visit_cur;
3036: RAISE Fnd_Api.G_EXC_ERROR;
3037: END IF;
3038: CLOSE check_visit_cur;

Line 3043: Fnd_Msg_Pub.ADD;

3039: --
3040: --Check for Record change
3041: IF p_object_version_number <> l_object_version_number THEN
3042: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_PLAN_RECORD');
3043: Fnd_Msg_Pub.ADD;
3044: END IF;
3045: --Get all the simulated visits
3046: IF p_plan_id IS NOT NULL AND p_plan_id <> FND_API.G_MISS_NUM
3047: THEN

Line 3079: l_msg_count := Fnd_Msg_Pub.count_msg;

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;

Line 3102: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

3098: EXCEPTION
3099: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3100: ROLLBACK TO toggle_simulation_delete;
3101: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3102: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3103: p_count => x_msg_count,
3104: p_data => x_msg_data);
3105: IF G_DEBUG='Y' THEN
3106:

Line 3117: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

3113:
3114: WHEN FND_API.G_EXC_ERROR THEN
3115: ROLLBACK TO set_plan_as_primary;
3116: X_return_status := FND_API.G_RET_STS_ERROR;
3117: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3118: p_count => x_msg_count,
3119: p_data => X_msg_data);
3120: IF G_DEBUG='Y' THEN
3121:

Line 3132: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

3128: END IF;
3129: WHEN OTHERS THEN
3130: ROLLBACK TO set_plan_as_primary;
3131: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3132: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3133: THEN
3134: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
3135: p_procedure_name => 'SET_PLAN_AS_PRIMARY',
3136: p_error_text => SUBSTR(SQLERRM,1,240));

Line 3134: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',

3130: ROLLBACK TO set_plan_as_primary;
3131: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3132: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3133: THEN
3134: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
3135: p_procedure_name => 'SET_PLAN_AS_PRIMARY',
3136: p_error_text => SUBSTR(SQLERRM,1,240));
3137: END IF;
3138: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

Line 3138: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

3134: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
3135: p_procedure_name => 'SET_PLAN_AS_PRIMARY',
3136: p_error_text => SUBSTR(SQLERRM,1,240));
3137: END IF;
3138: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3139: p_count => x_msg_count,
3140: p_data => X_msg_data);
3141:
3142: -- Debug info.

Line 3602: FND_MSG_PUB.initialize;

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;
3604: -- Initialize API return status to success
3605: x_return_status := FND_API.G_RET_STS_SUCCESS;
3606: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 3622: Fnd_Msg_Pub.ADD;

3618: CLOSE check_primary_cur;
3619: --
3620: IF l_primary_plan_id IS NOT NULL THEN
3621: Fnd_message.SET_NAME('AHL','AHL_LTP_PRIMARY_PLAN');
3622: Fnd_Msg_Pub.ADD;
3623: RAISE Fnd_Api.G_EXC_ERROR;
3624: END IF;
3625: --Check for visit belongs to simulation plan
3626: SELECT simulation_plan_id,

Line 3636: Fnd_Msg_Pub.ADD;

3632: AND primary_plan_flag = 'N';
3633: --
3634: IF l_simulation_plan_id IS NULL THEN
3635: Fnd_message.SET_NAME('AHL','AHL_LTP_PRIMARY_PLAN');
3636: Fnd_Msg_Pub.ADD;
3637: RAISE Fnd_Api.G_EXC_ERROR;
3638: END IF;
3639:
3640: --Check for simulation plan

Line 3645: Fnd_Msg_Pub.ADD;

3641: OPEN simul_visit_cur(p_visit_id,p_plan_id);
3642: FETCH simul_visit_cur INTO l_simul_visit_rec;
3643: IF simul_visit_cur%NOTFOUND THEN
3644: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_RECORD');
3645: Fnd_Msg_Pub.ADD;
3646: CLOSE simul_visit_cur;
3647: RAISE Fnd_Api.G_EXC_ERROR;
3648: END IF;
3649: CLOSE simul_visit_cur;

Line 3655: Fnd_Msg_Pub.ADD;

3651: --Check for object version number
3652: IF p_object_version_number <> l_simul_visit_rec.object_version_number
3653: THEN
3654: Fnd_message.SET_NAME('AHL','AHL_LTP_INVALID_PLAN_RECORD');
3655: Fnd_Msg_Pub.ADD;
3656: RAISE Fnd_Api.G_EXC_ERROR;
3657: END IF;
3658: --Get corresponding primary visit
3659:

Line 3678: Fnd_Msg_Pub.ADD;

3674: IF l_simul_visit_rec.simulation_delete_flag = 'Y' THEN --Remove the Primary Visit
3675: /* Modified by mpothuku on 01/25/05 to delete the primary visit if the Simulation Flag is delete */
3676: /*
3677: Fnd_message.SET_NAME('AHL','AHL_LTP_VISIT_REMOVED');
3678: Fnd_Msg_Pub.ADD;
3679: RAISE Fnd_Api.G_EXC_ERROR;
3680: */
3681: IF l_primary_visit_id IS NOT NULL THEN
3682: l_visit_tbl(l_visit_count).visit_id := l_primary_visit_id;

Line 3716: l_msg_count := FND_MSG_PUB.count_msg;

3712: );
3713: END IF;
3714: -- Check Error Message stack.
3715: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3716: l_msg_count := FND_MSG_PUB.count_msg;
3717: IF l_msg_count > 0 THEN
3718: RAISE FND_API.G_EXC_ERROR;
3719: END IF;
3720: END IF;

Line 3858: l_msg_count := FND_MSG_PUB.count_msg;

3854:
3855: END IF;
3856: -- Check Error Message stack.
3857: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
3858: l_msg_count := FND_MSG_PUB.count_msg;
3859: IF l_msg_count > 0 THEN
3860: RAISE FND_API.G_EXC_ERROR;
3861: END IF;
3862: END IF;

Line 3906: l_msg_count := FND_MSG_PUB.count_msg;

3902: );
3903:
3904: -- Check Error Message stack.
3905: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
3906: l_msg_count := FND_MSG_PUB.count_msg;
3907: IF l_msg_count > 0 THEN
3908: CLOSE get_tasks_delete_csr;
3909: RAISE FND_API.G_EXC_ERROR;
3910: END IF;

Line 3974: Fnd_Msg_Pub.ADD;

3970: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', ue_sr_details_rec.serial_number);
3971: Fnd_Message.SET_TOKEN('MR_TITLE', ue_sr_details_rec.mr_title);
3972: Fnd_Message.SET_TOKEN('VISIT1', l_primary_visit_number);
3973: Fnd_Message.SET_TOKEN('VISIT2', l_visit_number);
3974: Fnd_Msg_Pub.ADD;
3975: RAISE Fnd_Api.G_EXC_ERROR;
3976: ELSE
3977: OPEN c_ue_mr_details(ue_mr_sr_id_rec.mr_header_id,ue_mr_sr_id_rec.csi_item_instance_id);
3978: FETCH c_ue_mr_details INTO ue_mr_details_rec;

Line 3987: Fnd_Msg_Pub.ADD;

3983: Fnd_Message.SET_TOKEN('SERIAL_NUMBER', ue_mr_details_rec.serial_number);
3984: Fnd_Message.SET_TOKEN('MR_TITLE', ue_mr_details_rec.mr_title);
3985: Fnd_Message.SET_TOKEN('VISIT1', l_primary_visit_number);
3986: Fnd_Message.SET_TOKEN('VISIT2', l_visit_number);
3987: Fnd_Msg_Pub.ADD;
3988: RAISE Fnd_Api.G_EXC_ERROR;
3989: END IF;
3990: /*
3991: AnRaj: End of Fix bug#:4919576

Line 4068: l_msg_count := FND_MSG_PUB.count_msg;

4064: );
4065:
4066: -- Check Error Message stack.
4067: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
4068: l_msg_count := FND_MSG_PUB.count_msg;
4069: IF l_msg_count > 0 THEN
4070: RAISE FND_API.G_EXC_ERROR;
4071: END IF;
4072: END IF;

Line 4271: l_msg_count := FND_MSG_PUB.count_msg;

4267: );
4268:
4269: -- Check Error Message stack.
4270: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
4271: l_msg_count := FND_MSG_PUB.count_msg;
4272: IF l_msg_count > 0 THEN
4273: RAISE FND_API.G_EXC_ERROR;
4274: END IF;
4275: END IF;

Line 4555: l_msg_count := FND_MSG_PUB.count_msg;

4551: --mpothuku End
4552:
4553: -- Check Error Message stack.
4554: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
4555: l_msg_count := FND_MSG_PUB.count_msg;
4556: IF l_msg_count > 0 THEN
4557: RAISE FND_API.G_EXC_ERROR;
4558: END IF;
4559: END IF;

Line 4562: l_msg_count := Fnd_Msg_Pub.count_msg;

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;

Line 4585: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

4581: EXCEPTION
4582: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4583: ROLLBACK TO set_visit_as_primary;
4584: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4585: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4586: p_count => x_msg_count,
4587: p_data => x_msg_data);
4588:
4589: IF G_DEBUG='Y' THEN

Line 4600: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

4596:
4597: WHEN FND_API.G_EXC_ERROR THEN
4598: ROLLBACK TO set_visit_as_primary;
4599: X_return_status := FND_API.G_RET_STS_ERROR;
4600: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4601: p_count => x_msg_count,
4602: p_data => X_msg_data);
4603: -- Debug info.
4604: IF G_DEBUG='Y' THEN

Line 4615: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

4611:
4612: WHEN OTHERS THEN
4613: ROLLBACK TO set_visit_as_primary;
4614: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4615: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4616: THEN
4617: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
4618: p_procedure_name => 'SET_VISIT_AS_PRIMARY',
4619: p_error_text => SUBSTR(SQLERRM,1,240));

Line 4617: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',

4613: ROLLBACK TO set_visit_as_primary;
4614: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4615: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4616: THEN
4617: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
4618: p_procedure_name => 'SET_VISIT_AS_PRIMARY',
4619: p_error_text => SUBSTR(SQLERRM,1,240));
4620: END IF;
4621: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

Line 4621: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

4617: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
4618: p_procedure_name => 'SET_VISIT_AS_PRIMARY',
4619: p_error_text => SUBSTR(SQLERRM,1,240));
4620: END IF;
4621: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4622: p_count => x_msg_count,
4623: p_data => X_msg_data);
4624:
4625: -- Debug info.

Line 4705: FND_MSG_PUB.initialize;

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;
4707: -- Initialize API return status to success
4708: x_return_status := FND_API.G_RET_STS_SUCCESS;
4709: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 4742: l_msg_count := FND_MSG_PUB.count_msg;

4738: x_msg_data => l_msg_data);
4739:
4740: -- Check Error Message stack.
4741: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
4742: l_msg_count := FND_MSG_PUB.count_msg;
4743: IF l_msg_count > 0 THEN
4744: RAISE FND_API.G_EXC_ERROR;
4745: END IF;
4746: END IF;

Line 4754: l_msg_count := Fnd_Msg_Pub.count_msg;

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;

Line 4777: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

4773: EXCEPTION
4774: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4775: ROLLBACK TO Delete_Simul_Visits;
4776: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4777: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4778: p_count => x_msg_count,
4779: p_data => x_msg_data);
4780:
4781: IF G_DEBUG='Y' THEN

Line 4792: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

4788:
4789: WHEN FND_API.G_EXC_ERROR THEN
4790: ROLLBACK TO Delete_Simul_Visits;
4791: X_return_status := FND_API.G_RET_STS_ERROR;
4792: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4793: p_count => x_msg_count,
4794: p_data => X_msg_data);
4795: -- Debug info.
4796: IF G_DEBUG='Y' THEN

Line 4807: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

4803:
4804: WHEN OTHERS THEN
4805: ROLLBACK TO Delete_Simul_Visits;
4806: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4807: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4808: THEN
4809: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
4810: p_procedure_name => 'DELETE_SIMUL_VISITS',
4811: p_error_text => SUBSTR(SQLERRM,1,240));

Line 4809: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',

4805: ROLLBACK TO Delete_Simul_Visits;
4806: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4807: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4808: THEN
4809: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
4810: p_procedure_name => 'DELETE_SIMUL_VISITS',
4811: p_error_text => SUBSTR(SQLERRM,1,240));
4812: END IF;
4813: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

Line 4813: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

4809: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
4810: p_procedure_name => 'DELETE_SIMUL_VISITS',
4811: p_error_text => SUBSTR(SQLERRM,1,240));
4812: END IF;
4813: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4814: p_count => x_msg_count,
4815: p_data => X_msg_data);
4816: -- Debug info.
4817: IF G_DEBUG='Y' THEN