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 781: l_msg_count := Fnd_Msg_Pub.count_msg;

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;

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

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

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

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

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

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

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

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

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

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

Line 916: FND_MSG_PUB.initialize;

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

Line 952: Fnd_Msg_Pub.ADD;

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
956: l_simulation_plan_rec.simulation_plan_id := l_simulation_plan_id;

Line 980: Fnd_Msg_Pub.ADD;

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
984: l_msg_count := Fnd_Msg_Pub.count_msg;

Line 984: l_msg_count := Fnd_Msg_Pub.count_msg;

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

Line 1026: l_msg_count := Fnd_Msg_Pub.count_msg;

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;

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

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

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

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

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

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

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

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

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

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

Line 1184: FND_MSG_PUB.initialize;

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

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

1198: FETCH c_simulation_plan_cur INTO l_simulation_plan_id,
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;

Line 1204: FND_MSG_PUB.add;

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;
1208: END IF;

Line 1215: FND_MSG_PUB.add;

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:
1219: /* Added by mpothuku on 12/22/04 to delete the associated simulation visits.

Line 1242: l_msg_count := FND_MSG_PUB.count_msg;

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

Line 1255: FND_MSG_PUB.add;

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------------
1259: AHL_SIMULATION_PLANS_PKG.DELETE_ROW (

Line 1264: l_msg_count := Fnd_Msg_Pub.count_msg;

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;

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

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

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

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

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

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

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

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

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

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

Line 1735: FND_MSG_PUB.initialize;

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

Line 1759: Fnd_Msg_Pub.ADD;

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: --
1763: END IF;

Line 1778: Fnd_Msg_Pub.ADD;

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;
1782: CLOSE get_visit_num_cur;

Line 1794: Fnd_Msg_Pub.ADD;

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
1798: IF l_plan_flag = 'Y' THEN

Line 1800: Fnd_Msg_Pub.ADD;

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: --
1804: OPEN visit_detail_cur(l_pvisit_id);

Line 1812: Fnd_Msg_Pub.ADD;

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;
1816:

Line 1822: Fnd_Msg_Pub.ADD;

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;
1826: --

Line 1834: Fnd_Msg_Pub.ADD;

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;
1838: --Check for duplicate records

Line 1845: Fnd_Msg_Pub.ADD;

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
1849: AHL_DEBUG_PUB.debug( 'plan_id'||p_plan_id);

Line 2098: Fnd_Msg_Pub.ADD;

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;
2102: END IF;

Line 2374: l_msg_count := Fnd_Msg_Pub.count_msg;

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;

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

2393: EXCEPTION
2394: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2395: ROLLBACK TO copy_visits_to_plan;
2396: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2397: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2398: p_count => x_msg_count,
2399: p_data => x_msg_data);
2400: IF G_DEBUG='Y' THEN
2401:

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

2408:
2409: WHEN FND_API.G_EXC_ERROR THEN
2410: ROLLBACK TO copy_visits_to_plan;
2411: X_return_status := FND_API.G_RET_STS_ERROR;
2412: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2413: p_count => x_msg_count,
2414: p_data => X_msg_data);
2415: IF G_DEBUG='Y' THEN
2416:

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

2424:
2425: WHEN OTHERS THEN
2426: ROLLBACK TO copy_visits_to_plan;
2427: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2428: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2429: THEN
2430: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
2431: p_procedure_name => 'COPY_VISITS_TO_PLAN',
2432: p_error_text => SUBSTR(SQLERRM,1,240));

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

2426: ROLLBACK TO copy_visits_to_plan;
2427: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2428: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2429: THEN
2430: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
2431: p_procedure_name => 'COPY_VISITS_TO_PLAN',
2432: p_error_text => SUBSTR(SQLERRM,1,240));
2433: END IF;
2434: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

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

2430: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
2431: p_procedure_name => 'COPY_VISITS_TO_PLAN',
2432: p_error_text => SUBSTR(SQLERRM,1,240));
2433: END IF;
2434: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2435: p_count => x_msg_count,
2436: p_data => X_msg_data);
2437: IF G_DEBUG='Y' THEN
2438:

Line 2539: FND_MSG_PUB.initialize;

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

Line 2714: l_msg_count := Fnd_Msg_Pub.count_msg;

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;

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

2733: EXCEPTION
2734: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2735: ROLLBACK TO remove_visits_fr_plan;
2736: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2737: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2738: p_count => x_msg_count,
2739: p_data => x_msg_data);
2740: IF G_DEBUG='Y' THEN
2741:

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

2748:
2749: WHEN FND_API.G_EXC_ERROR THEN
2750: ROLLBACK TO remove_visits_fr_plan;
2751: X_return_status := FND_API.G_RET_STS_ERROR;
2752: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2753: p_count => x_msg_count,
2754: p_data => X_msg_data);
2755: IF G_DEBUG='Y' THEN
2756:

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

2764:
2765: WHEN OTHERS THEN
2766: ROLLBACK TO remove_visits_fr_plan;
2767: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2768: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2769: THEN
2770: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
2771: p_procedure_name => 'REMOVE_VISITS_FR_PLAN',
2772: p_error_text => SUBSTR(SQLERRM,1,240));

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

2766: ROLLBACK TO remove_visits_fr_plan;
2767: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2768: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2769: THEN
2770: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
2771: p_procedure_name => 'REMOVE_VISITS_FR_PLAN',
2772: p_error_text => SUBSTR(SQLERRM,1,240));
2773: END IF;
2774: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

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

2770: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
2771: p_procedure_name => 'REMOVE_VISITS_FR_PLAN',
2772: p_error_text => SUBSTR(SQLERRM,1,240));
2773: END IF;
2774: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2775: p_count => x_msg_count,
2776: p_data => X_msg_data);
2777: IF G_DEBUG='Y' THEN
2778:

Line 2845: FND_MSG_PUB.initialize;

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

Line 2866: Fnd_Msg_Pub.ADD;

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;
2870: --Check for object version number

Line 2873: Fnd_Msg_Pub.ADD;

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
2877: UPDATE AHL_VISITS_B

Line 2893: l_msg_count := Fnd_Msg_Pub.count_msg;

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;

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

2912: EXCEPTION
2913: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2914: ROLLBACK TO toggle_simulation_delete;
2915: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2916: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2917: p_count => x_msg_count,
2918: p_data => x_msg_data);
2919: IF G_DEBUG='Y' THEN
2920:

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

2929:
2930: WHEN FND_API.G_EXC_ERROR THEN
2931: ROLLBACK TO toggle_simulation_delete;
2932: X_return_status := FND_API.G_RET_STS_ERROR;
2933: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2934: p_count => x_msg_count,
2935: p_data => X_msg_data);
2936: IF G_DEBUG='Y' THEN
2937:

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

2947:
2948: WHEN OTHERS THEN
2949: ROLLBACK TO toggle_simulation_delete;
2950: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2951: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2952: THEN
2953: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
2954: p_procedure_name => 'TOGGLE_SIMULATION_DELETE',
2955: p_error_text => SUBSTR(SQLERRM,1,240));

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

2949: ROLLBACK TO toggle_simulation_delete;
2950: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2951: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2952: THEN
2953: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
2954: p_procedure_name => 'TOGGLE_SIMULATION_DELETE',
2955: p_error_text => SUBSTR(SQLERRM,1,240));
2956: END IF;
2957: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

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

2953: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
2954: p_procedure_name => 'TOGGLE_SIMULATION_DELETE',
2955: p_error_text => SUBSTR(SQLERRM,1,240));
2956: END IF;
2957: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2958: p_count => x_msg_count,
2959: p_data => X_msg_data);
2960: IF G_DEBUG='Y' THEN
2961:

Line 3045: FND_MSG_PUB.initialize;

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

Line 3065: Fnd_Msg_Pub.ADD;

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

Line 3074: Fnd_Msg_Pub.ADD;

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;

Line 3083: Fnd_Msg_Pub.ADD;

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
3087: THEN

Line 3119: l_msg_count := Fnd_Msg_Pub.count_msg;

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;

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

3138: EXCEPTION
3139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3140: ROLLBACK TO toggle_simulation_delete;
3141: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3142: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3143: p_count => x_msg_count,
3144: p_data => x_msg_data);
3145: IF G_DEBUG='Y' THEN
3146:

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

3153:
3154: WHEN FND_API.G_EXC_ERROR THEN
3155: ROLLBACK TO set_plan_as_primary;
3156: X_return_status := FND_API.G_RET_STS_ERROR;
3157: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3158: p_count => x_msg_count,
3159: p_data => X_msg_data);
3160: IF G_DEBUG='Y' THEN
3161:

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

3168: END IF;
3169: WHEN OTHERS THEN
3170: ROLLBACK TO set_plan_as_primary;
3171: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3172: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3173: THEN
3174: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
3175: p_procedure_name => 'SET_PLAN_AS_PRIMARY',
3176: p_error_text => SUBSTR(SQLERRM,1,240));

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

3170: ROLLBACK TO set_plan_as_primary;
3171: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3172: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3173: THEN
3174: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
3175: p_procedure_name => 'SET_PLAN_AS_PRIMARY',
3176: p_error_text => SUBSTR(SQLERRM,1,240));
3177: END IF;
3178: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

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

3174: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
3175: p_procedure_name => 'SET_PLAN_AS_PRIMARY',
3176: p_error_text => SUBSTR(SQLERRM,1,240));
3177: END IF;
3178: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
3179: p_count => x_msg_count,
3180: p_data => X_msg_data);
3181:
3182: -- Debug info.

Line 3648: FND_MSG_PUB.initialize;

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

Line 3668: Fnd_Msg_Pub.ADD;

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
3672: SELECT simulation_plan_id,

Line 3682: Fnd_Msg_Pub.ADD;

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

Line 3691: Fnd_Msg_Pub.ADD;

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;
3695: CLOSE simul_visit_cur;

Line 3701: Fnd_Msg_Pub.ADD;

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
3705:

Line 3724: Fnd_Msg_Pub.ADD;

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
3728: l_visit_tbl(l_visit_count).visit_id := l_primary_visit_id;

Line 3762: l_msg_count := FND_MSG_PUB.count_msg;

3758: );
3759: END IF;
3760: -- Check Error Message stack.
3761: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3762: l_msg_count := FND_MSG_PUB.count_msg;
3763: IF l_msg_count > 0 THEN
3764: RAISE FND_API.G_EXC_ERROR;
3765: END IF;
3766: END IF;

Line 3904: l_msg_count := FND_MSG_PUB.count_msg;

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

Line 3952: l_msg_count := FND_MSG_PUB.count_msg;

3948: );
3949:
3950: -- Check Error Message stack.
3951: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
3952: l_msg_count := FND_MSG_PUB.count_msg;
3953: IF l_msg_count > 0 THEN
3954: CLOSE get_tasks_delete_csr;
3955: RAISE FND_API.G_EXC_ERROR;
3956: END IF;

Line 4020: Fnd_Msg_Pub.ADD;

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);
4024: FETCH c_ue_mr_details INTO ue_mr_details_rec;

Line 4033: Fnd_Msg_Pub.ADD;

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: /*
4037: AnRaj: End of Fix bug#:4919576

Line 4121: l_msg_count := FND_MSG_PUB.count_msg;

4117: );
4118:
4119: -- Check Error Message stack.
4120: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
4121: l_msg_count := FND_MSG_PUB.count_msg;
4122: IF l_msg_count > 0 THEN
4123: RAISE FND_API.G_EXC_ERROR;
4124: END IF;
4125: END IF;

Line 4331: l_msg_count := FND_MSG_PUB.count_msg;

4327: );
4328:
4329: -- Check Error Message stack.
4330: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
4331: l_msg_count := FND_MSG_PUB.count_msg;
4332: IF l_msg_count > 0 THEN
4333: RAISE FND_API.G_EXC_ERROR;
4334: END IF;
4335: END IF;

Line 4619: l_msg_count := FND_MSG_PUB.count_msg;

4615: --mpothuku End
4616:
4617: -- Check Error Message stack.
4618: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
4619: l_msg_count := FND_MSG_PUB.count_msg;
4620: IF l_msg_count > 0 THEN
4621: RAISE FND_API.G_EXC_ERROR;
4622: END IF;
4623: END IF;

Line 4626: l_msg_count := Fnd_Msg_Pub.count_msg;

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;

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

4645: EXCEPTION
4646: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4647: ROLLBACK TO set_visit_as_primary;
4648: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4649: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4650: p_count => x_msg_count,
4651: p_data => x_msg_data);
4652:
4653: IF G_DEBUG='Y' THEN

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

4660:
4661: WHEN FND_API.G_EXC_ERROR THEN
4662: ROLLBACK TO set_visit_as_primary;
4663: X_return_status := FND_API.G_RET_STS_ERROR;
4664: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4665: p_count => x_msg_count,
4666: p_data => X_msg_data);
4667: -- Debug info.
4668: IF G_DEBUG='Y' THEN

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

4675:
4676: WHEN OTHERS THEN
4677: ROLLBACK TO set_visit_as_primary;
4678: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4679: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4680: THEN
4681: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
4682: p_procedure_name => 'SET_VISIT_AS_PRIMARY',
4683: p_error_text => SUBSTR(SQLERRM,1,240));

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

4677: ROLLBACK TO set_visit_as_primary;
4678: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4679: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4680: THEN
4681: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
4682: p_procedure_name => 'SET_VISIT_AS_PRIMARY',
4683: p_error_text => SUBSTR(SQLERRM,1,240));
4684: END IF;
4685: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

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

4681: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
4682: p_procedure_name => 'SET_VISIT_AS_PRIMARY',
4683: p_error_text => SUBSTR(SQLERRM,1,240));
4684: END IF;
4685: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4686: p_count => x_msg_count,
4687: p_data => X_msg_data);
4688:
4689: -- Debug info.

Line 4769: FND_MSG_PUB.initialize;

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

Line 4806: l_msg_count := FND_MSG_PUB.count_msg;

4802: x_msg_data => l_msg_data);
4803:
4804: -- Check Error Message stack.
4805: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
4806: l_msg_count := FND_MSG_PUB.count_msg;
4807: IF l_msg_count > 0 THEN
4808: RAISE FND_API.G_EXC_ERROR;
4809: END IF;
4810: END IF;

Line 4818: l_msg_count := Fnd_Msg_Pub.count_msg;

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;

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

4837: EXCEPTION
4838: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4839: ROLLBACK TO Delete_Simul_Visits;
4840: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4841: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4842: p_count => x_msg_count,
4843: p_data => x_msg_data);
4844:
4845: IF G_DEBUG='Y' THEN

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

4852:
4853: WHEN FND_API.G_EXC_ERROR THEN
4854: ROLLBACK TO Delete_Simul_Visits;
4855: X_return_status := FND_API.G_RET_STS_ERROR;
4856: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4857: p_count => x_msg_count,
4858: p_data => X_msg_data);
4859: -- Debug info.
4860: IF G_DEBUG='Y' THEN

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

4867:
4868: WHEN OTHERS THEN
4869: ROLLBACK TO Delete_Simul_Visits;
4870: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4871: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4872: THEN
4873: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
4874: p_procedure_name => 'DELETE_SIMUL_VISITS',
4875: p_error_text => SUBSTR(SQLERRM,1,240));

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

4869: ROLLBACK TO Delete_Simul_Visits;
4870: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4871: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4872: THEN
4873: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
4874: p_procedure_name => 'DELETE_SIMUL_VISITS',
4875: p_error_text => SUBSTR(SQLERRM,1,240));
4876: END IF;
4877: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

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

4873: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_SIMUL_PLAN_PVT',
4874: p_procedure_name => 'DELETE_SIMUL_VISITS',
4875: p_error_text => SUBSTR(SQLERRM,1,240));
4876: END IF;
4877: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
4878: p_count => x_msg_count,
4879: p_data => X_msg_data);
4880: -- Debug info.
4881: IF G_DEBUG='Y' THEN