DBA Data[Home] [Help]

APPS.AHL_LTP_REQST_MATRL_PVT dependencies on FND_MSG_PUB

Line 88: FND_MSG_PUB.initialize;

84: END IF;
85: -- Standard call to check for call compatibility.
86: IF FND_API.to_boolean(p_init_msg_list)
87: THEN
88: FND_MSG_PUB.initialize;
89: END IF;
90: -- Initialize API return status to success
91: x_return_status := FND_API.G_RET_STS_SUCCESS;
92: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 110: Fnd_Msg_Pub.ADD;

106: OPEN c_visit_task_matrl_cur(l_schedule_material_id);
107: FETCH c_visit_task_matrl_cur INTO l_scheduled_date,l_scheduled_quantity;
108: IF l_scheduled_date IS NOT NULL THEN
109: Fnd_Message.SET_NAME('AHL','AHL_LTP_MRP_SCHEDUl_ITEM');
110: Fnd_Msg_Pub.ADD;
111: CLOSE c_visit_task_matrl_cur;
112: RAISE Fnd_Api.G_EXC_ERROR;
113: ELSE
114: UPDATE ahl_schedule_materials

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

151: EXCEPTION
152: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
153: ROLLBACK TO unschedule_visit;
154: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
155: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
156: p_count => x_msg_count,
157: p_data => x_msg_data);
158: IF G_DEBUG='Y' THEN
159: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );

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

163: END IF;
164: WHEN FND_API.G_EXC_ERROR THEN
165: ROLLBACK TO unschedule_visit;
166: X_return_status := FND_API.G_RET_STS_ERROR;
167: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
168: p_count => x_msg_count,
169: p_data => X_msg_data);
170: IF G_DEBUG='Y' THEN
171: -- Debug info.

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

177: END IF;
178: WHEN OTHERS THEN
179: ROLLBACK TO unschedule_visit;
180: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
181: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
182: THEN
183: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_REQST_MATRL_PVT',
184: p_procedure_name => 'Unschedule_Visit_Materials ',
185: p_error_text => SUBSTR(SQLERRM,1,240));

Line 183: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_REQST_MATRL_PVT',

179: ROLLBACK TO unschedule_visit;
180: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
181: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
182: THEN
183: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_REQST_MATRL_PVT',
184: p_procedure_name => 'Unschedule_Visit_Materials ',
185: p_error_text => SUBSTR(SQLERRM,1,240));
186: END IF;
187: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

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

183: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_REQST_MATRL_PVT',
184: p_procedure_name => 'Unschedule_Visit_Materials ',
185: p_error_text => SUBSTR(SQLERRM,1,240));
186: END IF;
187: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
188: p_count => x_msg_count,
189: p_data => X_msg_data);
190: IF G_DEBUG='Y' THEN
191: -- Debug info.

Line 362: FND_MSG_PUB.Initialize;

358: -- Standard start of API savepoint
359: SAVEPOINT Insert_Planned_Matrls;
360: -- Initialize message list if p_init_msg_list is set to TRUE
361: IF FND_API.To_Boolean( l_init_msg_list) THEN
362: FND_MSG_PUB.Initialize;
363: END IF;
364: -- Initialize API return status to success
365: x_return_status := FND_API.G_RET_STS_SUCCESS;
366: --

Line 456: FND_MSG_PUB.add;

452: IF l_prim_quantity IS NULL THEN
453: FND_MESSAGE.Set_Name( 'AHL','AHL_LTP_UOM_CONV_NOT_EXIST' );
454: FND_MESSAGE.Set_Token('FUOM', l_uom_code);
455: FND_MESSAGE.Set_Token('TUOM', l_prim_uom_code);
456: FND_MSG_PUB.add;
457: RAISE FND_API.G_EXC_ERROR;
458: END IF;
459:
460: l_sched_prim_quantity := l_prim_quantity;

Line 672: l_msg_count := FND_MSG_PUB.count_msg;

668: NULL);
669: END IF; --Record doesnt exist
670:
671: -- Check Error Message stack.
672: l_msg_count := FND_MSG_PUB.count_msg;
673: IF l_msg_count > 0 THEN
674: RAISE FND_API.G_EXC_ERROR;
675: END IF;
676:

Line 690: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

686: EXCEPTION
687: WHEN FND_API.G_EXC_ERROR THEN
688: x_return_status := FND_API.G_RET_STS_ERROR;
689: ROLLBACK TO Insert_Planned_Matrls;
690: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
691: p_data => x_msg_data,
692: p_encoded => fnd_api.g_false);
693:
694:

Line 698: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

694:
695: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
697: ROLLBACK TO Insert_Planned_Matrls;
698: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
699: p_data => x_msg_data,
700: p_encoded => fnd_api.g_false);
701:
702:

Line 706: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

702:
703: WHEN OTHERS THEN
704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
705: ROLLBACK TO Insert_Planned_Matrls;
706: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
707: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
708: p_procedure_name => 'INSERT_PLANNED_MATRLS',
709: p_error_text => SUBSTR(SQLERRM,1,500));
710: END IF;

Line 707: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,

703: WHEN OTHERS THEN
704: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
705: ROLLBACK TO Insert_Planned_Matrls;
706: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
707: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
708: p_procedure_name => 'INSERT_PLANNED_MATRLS',
709: p_error_text => SUBSTR(SQLERRM,1,500));
710: END IF;
711: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

Line 711: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

707: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
708: p_procedure_name => 'INSERT_PLANNED_MATRLS',
709: p_error_text => SUBSTR(SQLERRM,1,500));
710: END IF;
711: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
712: p_data => x_msg_data,
713: p_encoded => fnd_api.g_false);
714:
715:

Line 817: FND_MSG_PUB.Initialize;

813: -- Standard start of API savepoint
814: SAVEPOINT Update_Planned_Materials;
815: -- Initialize message list if p_init_msg_list is set to TRUE
816: IF FND_API.To_Boolean( p_init_msg_list) THEN
817: FND_MSG_PUB.Initialize;
818: END IF;
819: -- Initialize API return status to success
820: x_return_status := FND_API.G_RET_STS_SUCCESS;
821: --

Line 843: FND_MSG_PUB.add;

839: OPEN Get_Planned_Items_cur(l_planned_materials_tbl(i).schedule_material_id);
840: FETCH Get_Planned_Items_cur INTO l_Planned_Items_rec;
841: IF Get_Planned_Items_cur%NOTFOUND THEN
842: FND_MESSAGE.set_name( 'AHL','AHL_LTP_SCHE_ID_INVALID' );
843: FND_MSG_PUB.add;
844: IF (l_log_error >= l_log_current_level)THEN
845: fnd_log.string
846: (
847: l_log_error,

Line 865: FND_MSG_PUB.add;

861: --
862: IF (l_planned_materials_tbl(i).object_version_number <> l_Planned_Items_rec.object_version_number )
863: THEN
864: FND_MESSAGE.set_name( 'AHL','AHL_LTP_RECORD_INVALID' );
865: FND_MSG_PUB.add;
866: IF (l_log_error >= l_log_current_level)THEN
867: fnd_log.string
868: (
869: l_log_error,

Line 886: FND_MSG_PUB.add;

882: l_planned_items_rec.organization_id);
883: FETCH Get_Inv_Item_cur INTO l_planned_materials_tbl(i).inventory_item_id;
884: IF Get_Inv_Item_cur%NOTFOUND THEN
885: FND_MESSAGE.set_name( 'AHL','AHL_LTP_ITEM_INVALID' );
886: FND_MSG_PUB.add;
887: IF (l_log_error >= l_log_current_level)THEN
888: fnd_log.string
889: (
890: l_log_error,

Line 921: FND_MSG_PUB.add;

917: -- This is based on PRIMARY_RESERVATION_QUANTITY is not null in mtl_reservations
918: IF l_rsvd_quantity IS NOT NULL THEN
919: FND_MESSAGE.set_name( 'AHL','AHL_LTP_ITEM_RSV_EXISTS' );
920: -- Cannot change the item required because at least one reservation already exists for this item.
921: FND_MSG_PUB.add;
922: RAISE FND_API.G_EXC_ERROR;
923: END IF;
924: END IF;
925: -- Serial Number Reservation Enhancement Changes Ends.

Line 940: Fnd_Msg_Pub.ADD;

936:
937: -- yazhou 03-JUL-2006 ends
938: --
939: Fnd_message.SET_NAME('AHL','AHL_LTP_QUANTITY_INVALID');
940: Fnd_Msg_Pub.ADD;
941: RAISE FND_API.G_EXC_ERROR;
942: END IF;
943:
944: -- Serial Number Reservation Enhancement Changes Starts.

Line 963: Fnd_Msg_Pub.ADD;

959: IF NVL((NVL(l_rsvd_quantity,0) + nvl(l_Planned_Items_rec.completed_quantity,0)),-9) > NVL(l_planned_materials_tbl(i).quantity,-9)
960: THEN
961: Fnd_message.SET_NAME('AHL','AHL_LTP_QTY_EXCEEDS');
962: --Completed quantity plus reserved quantity exceeded scheduled quantity
963: Fnd_Msg_Pub.ADD;
964: RAISE FND_API.G_EXC_ERROR;
965: END IF;
966: END IF;
967: END IF;

Line 975: Fnd_Msg_Pub.ADD;

971: l_planned_materials_tbl(i).requested_date <> FND_API.G_MISS_DATE) THEN
972: IF l_planned_materials_tbl(i).requested_date < trunc(sysdate) THEN
973: --
974: Fnd_message.SET_NAME('AHL','AHL_LTP_DATE_INVALID');
975: Fnd_Msg_Pub.ADD;
976: RAISE FND_API.G_EXC_ERROR;
977:
978: END IF;
979:

Line 995: Fnd_Msg_Pub.ADD;

991: (l_visit_end_date is not NULL AND
992: (TRUNC(l_planned_materials_tbl(i).requested_date) > TRUNC(l_visit_end_date))) THEN
993:
994: Fnd_message.SET_NAME('AHL','AHL_LTP_REQ_DATE_RANGE');
995: Fnd_Msg_Pub.ADD;
996: RAISE FND_API.G_EXC_ERROR;
997:
998: END IF;
999:

Line 1014: l_msg_count := FND_MSG_PUB.count_msg;

1010: P_REQUESTED_DATE => l_planned_materials_tbl(i).requested_date);
1011: END IF;
1012:
1013: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1014: l_msg_count := FND_MSG_PUB.count_msg;
1015: RAISE FND_API.G_EXC_ERROR;
1016: END IF;
1017:
1018: -- Serial Number Reservation Enhancement Changes. Ends

Line 1026: l_msg_count := FND_MSG_PUB.count_msg;

1022: END LOOP;
1023: END IF;
1024: -- Check Error Message stack.
1025: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1026: l_msg_count := FND_MSG_PUB.count_msg;
1027: IF l_msg_count > 0 THEN
1028: RAISE FND_API.G_EXC_ERROR;
1029: END IF;
1030: END IF;

Line 1050: x_msg_count := FND_MSG_PUB.count_msg;

1046: --
1047: END LOOP;
1048: END IF;
1049: -- Check Error Message stack.
1050: x_msg_count := FND_MSG_PUB.count_msg;
1051: IF x_msg_count > 0 THEN
1052: RAISE FND_API.G_EXC_ERROR;
1053: END IF;
1054:

Line 1072: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

1068: EXCEPTION
1069: WHEN FND_API.G_EXC_ERROR THEN
1070: x_return_status := FND_API.G_RET_STS_ERROR;
1071: ROLLBACK TO Update_Planned_Materials;
1072: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1073: p_data => x_msg_data,
1074: p_encoded => fnd_api.g_false);
1075:
1076:

Line 1080: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

1076:
1077: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1078: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1079: ROLLBACK TO Update_Planned_Materials;
1080: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1081: p_data => x_msg_data,
1082: p_encoded => fnd_api.g_false);
1083:
1084:

Line 1088: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

1084:
1085: WHEN OTHERS THEN
1086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1087: ROLLBACK TO Update_Planned_Materials;
1088: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1089: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1090: p_procedure_name => 'Update_Planned_Materials',
1091: p_error_text => SUBSTR(SQLERRM,1,500));
1092: END IF;

Line 1089: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,

1085: WHEN OTHERS THEN
1086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1087: ROLLBACK TO Update_Planned_Materials;
1088: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1089: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1090: p_procedure_name => 'Update_Planned_Materials',
1091: p_error_text => SUBSTR(SQLERRM,1,500));
1092: END IF;
1093: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

Line 1093: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

1089: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1090: p_procedure_name => 'Update_Planned_Materials',
1091: p_error_text => SUBSTR(SQLERRM,1,500));
1092: END IF;
1093: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1094: p_data => x_msg_data,
1095: p_encoded => fnd_api.g_false);
1096:
1097: END Update_Planned_Materials;

Line 1199: FND_MSG_PUB.Initialize;

1195: -- Standard start of API savepoint
1196: SAVEPOINT Create_Task_Materials;
1197: -- Initialize message list if p_init_msg_list is set to TRUE
1198: IF FND_API.To_Boolean( p_init_msg_list) THEN
1199: FND_MSG_PUB.Initialize;
1200: END IF;
1201: -- Initialize API return status to success
1202: x_return_status := FND_API.G_RET_STS_SUCCESS;
1203: --

Line 1335: l_msg_count := FND_MSG_PUB.count_msg;

1331: );
1332: END IF;
1333: -- Check Error Message stack.
1334: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1335: l_msg_count := FND_MSG_PUB.count_msg;
1336: IF l_msg_count > 0 THEN
1337: RAISE FND_API.G_EXC_ERROR;
1338: END IF;
1339: END IF;

Line 1389: l_msg_count := FND_MSG_PUB.count_msg;

1385: END IF;
1386:
1387: -- Check Error Message stack.
1388: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1389: l_msg_count := FND_MSG_PUB.count_msg;
1390: IF l_msg_count > 0 THEN
1391: RAISE FND_API.G_EXC_ERROR;
1392: END IF;
1393: END IF;

Line 1413: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

1409: EXCEPTION
1410: WHEN FND_API.G_EXC_ERROR THEN
1411: x_return_status := FND_API.G_RET_STS_ERROR;
1412: ROLLBACK TO Create_Task_Materials;
1413: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1414: p_data => x_msg_data,
1415: p_encoded => fnd_api.g_false);
1416:
1417:

Line 1421: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

1417:
1418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1420: ROLLBACK TO Create_Task_Materials;
1421: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1422: p_data => x_msg_data,
1423: p_encoded => fnd_api.g_false);
1424:
1425:

Line 1429: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

1425:
1426: WHEN OTHERS THEN
1427: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1428: ROLLBACK TO Create_Task_Materials;
1429: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1430: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1431: p_procedure_name => 'Create_Task_Materials',
1432: p_error_text => SUBSTR(SQLERRM,1,500));
1433: END IF;

Line 1430: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,

1426: WHEN OTHERS THEN
1427: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1428: ROLLBACK TO Create_Task_Materials;
1429: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1430: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1431: p_procedure_name => 'Create_Task_Materials',
1432: p_error_text => SUBSTR(SQLERRM,1,500));
1433: END IF;
1434: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

Line 1434: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

1430: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1431: p_procedure_name => 'Create_Task_Materials',
1432: p_error_text => SUBSTR(SQLERRM,1,500));
1433: END IF;
1434: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1435: p_data => x_msg_data,
1436: p_encoded => fnd_api.g_false);
1437:
1438:

Line 1591: FND_MSG_PUB.Initialize;

1587: -- Standard start of API savepoint
1588: SAVEPOINT Modify_Visit_Task_Matrls;
1589: -- Initialize message list if p_init_msg_list is set to TRUE
1590: IF FND_API.To_Boolean( p_init_msg_list) THEN
1591: FND_MSG_PUB.Initialize;
1592: END IF;
1593: -- Initialize API return status to success
1594: x_return_status := FND_API.G_RET_STS_SUCCESS;
1595: --

Line 1755: l_msg_count := FND_MSG_PUB.count_msg;

1751: );
1752: END IF;
1753: -- Check Error Message stack.
1754: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1755: l_msg_count := FND_MSG_PUB.count_msg;
1756: IF l_msg_count > 0 THEN
1757: RAISE FND_API.G_EXC_ERROR;
1758: END IF;
1759: END IF;

Line 1857: l_msg_count := FND_MSG_PUB.count_msg;

1853: END IF;
1854:
1855: -- Check Error Message stack.
1856: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1857: l_msg_count := FND_MSG_PUB.count_msg;
1858: IF l_msg_count > 0 THEN
1859: RAISE FND_API.G_EXC_ERROR;
1860: END IF;
1861: END IF;

Line 1883: l_msg_count := FND_MSG_PUB.count_msg;

1879: END IF;
1880:
1881: -- Check Error Message stack.
1882: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
1883: l_msg_count := FND_MSG_PUB.count_msg;
1884: RAISE FND_API.G_EXC_ERROR;
1885: END IF;
1886:
1887: -- Check Error Message stack.

Line 1888: x_msg_count := FND_MSG_PUB.count_msg;

1884: RAISE FND_API.G_EXC_ERROR;
1885: END IF;
1886:
1887: -- Check Error Message stack.
1888: x_msg_count := FND_MSG_PUB.count_msg;
1889: IF x_msg_count > 0 THEN
1890: RAISE FND_API.G_EXC_ERROR;
1891: END IF;
1892:

Line 1910: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

1906: EXCEPTION
1907: WHEN FND_API.G_EXC_ERROR THEN
1908: x_return_status := FND_API.G_RET_STS_ERROR;
1909: ROLLBACK TO Modify_Visit_Task_Matrls;
1910: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1911: p_data => x_msg_data,
1912: p_encoded => fnd_api.g_false);
1913:
1914:

Line 1918: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

1914:
1915: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1917: ROLLBACK TO Modify_Visit_Task_Matrls;
1918: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1919: p_data => x_msg_data,
1920: p_encoded => fnd_api.g_false);
1921:
1922:

Line 1926: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

1922:
1923: WHEN OTHERS THEN
1924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1925: ROLLBACK TO Modify_Visit_Task_Matrls;
1926: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1927: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1928: p_procedure_name => 'Modify_Visit_Task_Matrls',
1929: p_error_text => SUBSTR(SQLERRM,1,500));
1930: END IF;

Line 1927: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,

1923: WHEN OTHERS THEN
1924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1925: ROLLBACK TO Modify_Visit_Task_Matrls;
1926: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1927: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1928: p_procedure_name => 'Modify_Visit_Task_Matrls',
1929: p_error_text => SUBSTR(SQLERRM,1,500));
1930: END IF;
1931: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

Line 1931: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

1927: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
1928: p_procedure_name => 'Modify_Visit_Task_Matrls',
1929: p_error_text => SUBSTR(SQLERRM,1,500));
1930: END IF;
1931: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
1932: p_data => x_msg_data,
1933: p_encoded => fnd_api.g_false);
1934:
1935:

Line 2024: FND_MSG_PUB.initialize;

2020: END IF;
2021: -- Standard call to check for call compatibility.
2022: IF FND_API.to_boolean(p_init_msg_list)
2023: THEN
2024: FND_MSG_PUB.initialize;
2025: END IF;
2026: -- Initialize API return status to success
2027: x_return_status := FND_API.G_RET_STS_SUCCESS;
2028: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 2066: l_msg_count := Fnd_Msg_Pub.count_msg;

2062: CLOSE check_items_cur;
2063:
2064: ---------------------------End of Body---------------------------------------
2065: --Standard check to count messages
2066: l_msg_count := Fnd_Msg_Pub.count_msg;
2067:
2068: IF l_msg_count > 0 THEN
2069: X_msg_count := l_msg_count;
2070: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;

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

2085: EXCEPTION
2086: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2087: ROLLBACK TO Unschedule_Task_Items;
2088: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2089: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2090: p_count => x_msg_count,
2091: p_data => x_msg_data);
2092: IF G_DEBUG='Y' THEN
2093:

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

2100:
2101: WHEN FND_API.G_EXC_ERROR THEN
2102: ROLLBACK TO search_schedule_materials;
2103: X_return_status := FND_API.G_RET_STS_ERROR;
2104: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2105: p_count => x_msg_count,
2106: p_data => X_msg_data);
2107: IF G_DEBUG='Y' THEN
2108:

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

2116:
2117: WHEN OTHERS THEN
2118: ROLLBACK TO Unschedule_Task_Items;
2119: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2120: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2121: THEN
2122: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_REQST_MATRL_PVT',
2123: p_procedure_name => 'UNSCHEDULE_TASK_ITEMS',
2124: p_error_text => SUBSTR(SQLERRM,1,240));

Line 2122: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_REQST_MATRL_PVT',

2118: ROLLBACK TO Unschedule_Task_Items;
2119: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2120: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2121: THEN
2122: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_REQST_MATRL_PVT',
2123: p_procedure_name => 'UNSCHEDULE_TASK_ITEMS',
2124: p_error_text => SUBSTR(SQLERRM,1,240));
2125: END IF;
2126: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

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

2122: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_LTP_REQST_MATRL_PVT',
2123: p_procedure_name => 'UNSCHEDULE_TASK_ITEMS',
2124: p_error_text => SUBSTR(SQLERRM,1,240));
2125: END IF;
2126: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
2127: p_count => x_msg_count,
2128: p_data => X_msg_data);
2129: IF G_DEBUG='Y' THEN
2130:

Line 2214: FND_MSG_PUB.Initialize;

2210: -- Standard start of API savepoint
2211: SAVEPOINT Process_Planned_Materials;
2212: -- Initialize message list if p_init_msg_list is set to TRUE
2213: IF FND_API.To_Boolean( p_init_msg_list) THEN
2214: FND_MSG_PUB.Initialize;
2215: END IF;
2216:
2217: -- Initialize API return status to success
2218: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 2294: l_msg_count := FND_MSG_PUB.count_msg;

2290: );
2291: END IF;
2292: -- Check Error Message stack.
2293: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2294: l_msg_count := FND_MSG_PUB.count_msg;
2295: IF l_msg_count > 0 THEN
2296: RAISE FND_API.G_EXC_ERROR;
2297: END IF;
2298: END IF;

Line 2361: l_msg_count := FND_MSG_PUB.count_msg;

2357: );
2358: END IF;
2359: -- Check Error Message stack.
2360: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2361: l_msg_count := FND_MSG_PUB.count_msg;
2362: IF l_msg_count > 0 THEN
2363: RAISE FND_API.G_EXC_ERROR;
2364: END IF;
2365: END IF;

Line 2382: l_msg_count := FND_MSG_PUB.count_msg;

2378: x_msg_data => l_msg_data);
2379:
2380: -- Check Error Message stack.
2381: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2382: l_msg_count := FND_MSG_PUB.count_msg;
2383: IF l_msg_count > 0 THEN
2384: RAISE FND_API.G_EXC_ERROR;
2385: END IF;
2386: END IF;

Line 2438: l_msg_count := FND_MSG_PUB.count_msg;

2434: END IF;
2435:
2436: -- Check Error Message stack.
2437: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2438: l_msg_count := FND_MSG_PUB.count_msg;
2439: IF l_msg_count > 0 THEN
2440: RAISE FND_API.G_EXC_ERROR;
2441: END IF;
2442: END IF;

Line 2494: l_msg_count := FND_MSG_PUB.count_msg;

2490: );
2491: END IF;
2492: -- Check Error Message stack.
2493: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2494: l_msg_count := FND_MSG_PUB.count_msg;
2495: IF l_msg_count > 0 THEN
2496: RAISE FND_API.G_EXC_ERROR;
2497: END IF;
2498: END IF;

Line 2541: l_msg_count := FND_MSG_PUB.count_msg;

2537: );
2538: END IF;
2539: -- Check Error Message stack.
2540: IF (l_return_Status <> FND_API.G_RET_STS_SUCCESS) THEN
2541: l_msg_count := FND_MSG_PUB.count_msg;
2542: IF l_msg_count > 0 THEN
2543: RAISE FND_API.G_EXC_ERROR;
2544: END IF;
2545: END IF;

Line 2564: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

2560: EXCEPTION
2561: WHEN FND_API.G_EXC_ERROR THEN
2562: x_return_status := FND_API.G_RET_STS_ERROR;
2563: ROLLBACK TO Process_Planned_Materials;
2564: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2565: p_data => x_msg_data,
2566: p_encoded => fnd_api.g_false);
2567:
2568:

Line 2572: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

2568:
2569: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2570: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2571: ROLLBACK TO Process_Planned_Materials;
2572: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2573: p_data => x_msg_data,
2574: p_encoded => fnd_api.g_false);
2575:
2576:

Line 2580: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

2576:
2577: WHEN OTHERS THEN
2578: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2579: ROLLBACK TO Process_Planned_Materials;
2580: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2581: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2582: p_procedure_name => 'Process_Planned_Materials',
2583: p_error_text => SUBSTR(SQLERRM,1,500));
2584: END IF;

Line 2581: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,

2577: WHEN OTHERS THEN
2578: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2579: ROLLBACK TO Process_Planned_Materials;
2580: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2581: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2582: p_procedure_name => 'Process_Planned_Materials',
2583: p_error_text => SUBSTR(SQLERRM,1,500));
2584: END IF;
2585: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

Line 2585: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

2581: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2582: p_procedure_name => 'Process_Planned_Materials',
2583: p_error_text => SUBSTR(SQLERRM,1,500));
2584: END IF;
2585: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2586: p_data => x_msg_data,
2587: p_encoded => fnd_api.g_false);
2588:
2589:

Line 2692: FND_MSG_PUB.Initialize;

2688: -- Standard start of API savepoint
2689: SAVEPOINT Remove_Visit_Task_Matrls;
2690: -- Initialize message list if p_init_msg_list is set to TRUE
2691: IF FND_API.To_Boolean( p_init_msg_list) THEN
2692: FND_MSG_PUB.Initialize;
2693: END IF;
2694: -- Initialize API return status to success
2695: x_return_status := FND_API.G_RET_STS_SUCCESS;
2696:

Line 2802: l_msg_count := Fnd_Msg_Pub.count_msg;

2798: END IF;
2799: x_planned_order_flag := l_planned_order_flag;
2800:
2801: --Standard check to count messages
2802: l_msg_count := Fnd_Msg_Pub.count_msg;
2803:
2804: IF l_msg_count > 0 THEN
2805: X_msg_count := l_msg_count;
2806: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;

Line 2827: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

2823: EXCEPTION
2824: WHEN FND_API.G_EXC_ERROR THEN
2825: x_return_status := FND_API.G_RET_STS_ERROR;
2826: ROLLBACK TO Remove_Visit_Task_Matrls;
2827: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2828: p_data => x_msg_data,
2829: p_encoded => fnd_api.g_false);
2830:
2831:

Line 2835: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

2831:
2832: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2834: ROLLBACK TO Remove_Visit_Task_Matrls;
2835: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2836: p_data => x_msg_data,
2837: p_encoded => fnd_api.g_false);
2838:
2839:

Line 2843: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

2839:
2840: WHEN OTHERS THEN
2841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2842: ROLLBACK TO Remove_Visit_Task_Matrls;
2843: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2844: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2845: p_procedure_name => 'REMOVE_VISIT_TASK_MATRLS',
2846: p_error_text => SUBSTR(SQLERRM,1,500));
2847: END IF;

Line 2844: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,

2840: WHEN OTHERS THEN
2841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2842: ROLLBACK TO Remove_Visit_Task_Matrls;
2843: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2844: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2845: p_procedure_name => 'REMOVE_VISIT_TASK_MATRLS',
2846: p_error_text => SUBSTR(SQLERRM,1,500));
2847: END IF;
2848: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

Line 2848: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

2844: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
2845: p_procedure_name => 'REMOVE_VISIT_TASK_MATRLS',
2846: p_error_text => SUBSTR(SQLERRM,1,500));
2847: END IF;
2848: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2849: p_data => x_msg_data,
2850: p_encoded => fnd_api.g_false);
2851:
2852:

Line 2923: FND_MSG_PUB.Initialize;

2919: SAVEPOINT Update_Unplanned_Matrls;
2920:
2921: -- Initialize message list if p_init_msg_list is set to TRUE
2922: IF FND_API.To_Boolean( p_init_msg_list) THEN
2923: FND_MSG_PUB.Initialize;
2924: END IF;
2925: -- Initialize API return status to success
2926: x_return_status := FND_API.G_RET_STS_SUCCESS;
2927:

Line 2987: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

2983: EXCEPTION
2984: WHEN FND_API.G_EXC_ERROR THEN
2985: x_return_status := FND_API.G_RET_STS_ERROR;
2986: ROLLBACK TO Update_Unplanned_Matrls;
2987: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2988: p_data => x_msg_data,
2989: p_encoded => fnd_api.g_false);
2990: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 2993: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

2989: p_encoded => fnd_api.g_false);
2990: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2991: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2992: ROLLBACK TO Update_Unplanned_Matrls;
2993: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
2994: p_data => x_msg_data,
2995: p_encoded => fnd_api.g_false);
2996: WHEN OTHERS THEN
2997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 2999: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

2995: p_encoded => fnd_api.g_false);
2996: WHEN OTHERS THEN
2997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2998: ROLLBACK TO Update_Unplanned_Matrls;
2999: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3000: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3001: p_procedure_name => 'UPDATE_UNPLANNED_MATRLS',
3002: p_error_text => SUBSTR(SQLERRM,1,500));
3003: END IF;

Line 3000: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,

2996: WHEN OTHERS THEN
2997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2998: ROLLBACK TO Update_Unplanned_Matrls;
2999: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3000: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3001: p_procedure_name => 'UPDATE_UNPLANNED_MATRLS',
3002: p_error_text => SUBSTR(SQLERRM,1,500));
3003: END IF;
3004: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

Line 3004: FND_MSG_PUB.count_and_get( p_count => x_msg_count,

3000: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
3001: p_procedure_name => 'UPDATE_UNPLANNED_MATRLS',
3002: p_error_text => SUBSTR(SQLERRM,1,500));
3003: END IF;
3004: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
3005: p_data => x_msg_data,
3006: p_encoded => fnd_api.g_false);
3007: END Update_Unplanned_Matrls;
3008:

Line 3113: FND_MSG_PUB.ADD;

3109: IF l_prev_org_id IS NULL THEN
3110: Return;
3111: ELSIF l_org_count > 1 THEN
3112: FND_MESSAGE.set_name('AHL', 'AHL_LTP_MULTI_ORG');
3113: FND_MSG_PUB.ADD;
3114: RAISE Fnd_Api.g_exc_error;
3115: END IF;
3116:
3117: IF l_prev_org_id <> l_cur_org_id THEN

Line 3250: FND_MSG_PUB.INITIALIZE;

3246: END IF;
3247:
3248: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
3249: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
3250: FND_MSG_PUB.INITIALIZE;
3251: END IF;
3252:
3253: -- Log API entry point
3254: IF (l_log_procedure >= l_log_current_level) THEN

Line 3263: Fnd_Msg_Pub.ADD;

3259: IF (l_log_statement >= l_log_current_level) THEN
3260: fnd_log.string( l_log_statement,L_DEBUG_KEY,'Task id is null' );
3261: END IF;
3262: Fnd_Message.SET_NAME('AHL','AHL_VISIT_TASKID_NULL');
3263: Fnd_Msg_Pub.ADD;
3264: RAISE Fnd_Api.G_EXC_ERROR;
3265: END IF;
3266:
3267: --Update the status of the record to 'HISTORY'

Line 3295: Fnd_Msg_Pub.count_and_get (

3291: EXCEPTION
3292: WHEN Fnd_Api.g_exc_error THEN
3293: ROLLBACK TO Update_Material_Reqrs_sts;
3294: x_return_status := Fnd_Api.g_ret_sts_error;
3295: Fnd_Msg_Pub.count_and_get (
3296: p_encoded => Fnd_Api.g_false,
3297: p_count => x_msg_count,
3298: p_data => x_msg_data);
3299:

Line 3303: Fnd_Msg_Pub.count_and_get (

3299:
3300: WHEN Fnd_Api.g_exc_unexpected_error THEN
3301: ROLLBACK TO Update_Material_Reqrs_sts;
3302: x_return_status := Fnd_Api.g_ret_sts_unexp_error;
3303: Fnd_Msg_Pub.count_and_get (
3304: p_encoded => Fnd_Api.g_false,
3305: p_count => x_msg_count,
3306: p_data => x_msg_data);
3307:

Line 3311: Fnd_Msg_Pub.count_and_get (

3307:
3308: WHEN OTHERS THEN
3309: ROLLBACK TO Update_Material_Reqrs_sts;
3310: x_return_status := Fnd_Api.g_ret_sts_unexp_error;
3311: Fnd_Msg_Pub.count_and_get (
3312: p_encoded => Fnd_Api.g_false,
3313: p_count => x_msg_count,
3314: p_data => x_msg_data );
3315: END Update_Material_Reqrs_status;