[Home] [Help]
61: -- Check if a valid value is passed in p_association_type_code
62: IF ( p_association_type_code = FND_API.G_MISS_CHAR OR
63: p_association_type_code IS NULL ) THEN
64: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ASSOC_TYPE_NULL' );
65: FND_MSG_PUB.add;
66: x_return_status := FND_API.G_RET_STS_ERROR;
67: RETURN;
68: ELSIF ( p_association_type_code <> 'OPERATION' AND
69: p_association_type_code <> 'ROUTE' ) THEN
68: ELSIF ( p_association_type_code <> 'OPERATION' AND
69: p_association_type_code <> 'ROUTE' ) THEN
70: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ASSOC_TYPE_INVALID' );
71: FND_MESSAGE.set_token( 'FIELD', p_association_type_code );
72: FND_MSG_PUB.add;
73: x_return_status := FND_API.G_RET_STS_ERROR;
74: RETURN;
75: END IF;
76:
83: x_msg_data => l_msg_data
84: );
85: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
86: FND_MESSAGE.set_name( 'AHL', l_msg_data );
87: FND_MSG_PUB.add;
88: x_return_status := FND_API.G_RET_STS_ERROR;
89: RETURN;
90: END IF;
91: ELSIF (p_association_type_code = 'ROUTE') THEN
96: x_msg_data => l_msg_data
97: );
98: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
99: FND_MESSAGE.set_name( 'AHL', l_msg_data );
100: FND_MSG_PUB.add;
101: x_return_status := FND_API.G_RET_STS_ERROR;
102: RETURN;
103: END IF;
104: END IF;
106: -- Check if at least one record is passed in p_rt_oper_resource_tbl
107: IF ( p_rt_oper_resource_tbl.count < 1 ) THEN
108: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
109: FND_MESSAGE.set_token( 'PROCEDURE', G_PKG_NAME || '.' || G_API_NAME1 );
110: FND_MSG_PUB.add;
111: x_return_status := FND_API.G_RET_STS_ERROR;
112: RETURN;
113: END IF;
114:
124: THEN
125: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
126: FND_MESSAGE.set_token( 'FIELD', p_rt_oper_resource_tbl(i).dml_operation );
127: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_tbl(i) ) );
128: FND_MSG_PUB.add;
129: x_return_status := FND_API.G_RET_STS_ERROR;
130: RETURN;
131: END IF;
132: END LOOP;
200: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_resource_rec.resource_type );
201: END IF;
202:
203: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_rt_oper_resource_rec ) );
204: FND_MSG_PUB.add;
205: END IF;
206:
207: END IF;
208:
231: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_resource_rec.aso_resource_name );
232: END IF;
233:
234: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_rt_oper_resource_rec ) );
235: FND_MSG_PUB.add;
236: END IF;
237:
238: END IF;
239:
269: ELSE
270: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_resource_rec.scheduled_type);
271: END IF;
272:
273: FND_MSG_PUB.add;
274: END IF;
275:
276: END IF;
277:
494:
495: IF get_old_rec%NOTFOUND THEN
496: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_RES_REC' );
497: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_rt_oper_resource_rec ) );
498: FND_MSG_PUB.add;
499: CLOSE get_old_rec;
500: RAISE FND_API.G_EXC_ERROR;
501: END IF;
502:
710: ( p_rt_oper_resource_rec.dml_operation <> 'D' AND
711: p_rt_oper_resource_rec.aso_resource_id = FND_API.G_MISS_NUM ) ) THEN
712: FND_MESSAGE.set_name( 'AHL','AHL_RM_ASO_RES_NULL' );
713: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
714: FND_MSG_PUB.add;
715: END IF;
716:
717: -- Check if the mandatory quantity column contains a positive value.
718: IF ( ( p_rt_oper_resource_rec.dml_operation = 'C' AND
720: ( p_rt_oper_resource_rec.dml_operation <> 'D' AND
721: p_rt_oper_resource_rec.quantity = FND_API.G_MISS_NUM ) ) THEN
722: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_QTY_NULL' );
723: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
724: FND_MSG_PUB.add;
725: ELSIF ( p_rt_oper_resource_rec.dml_operation <> 'D' AND
726: p_rt_oper_resource_rec.quantity <= 0 ) THEN
727: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_QTY_LESS_ZERO' );
728: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
725: ELSIF ( p_rt_oper_resource_rec.dml_operation <> 'D' AND
726: p_rt_oper_resource_rec.quantity <= 0 ) THEN
727: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_QTY_LESS_ZERO' );
728: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
729: FND_MSG_PUB.add;
730: END IF;
731:
732: -- Check if the mandatory duration column contains a positive value.
733: IF ( ( p_rt_oper_resource_rec.dml_operation = 'C' AND
735: ( p_rt_oper_resource_rec.dml_operation <> 'D' AND
736: p_rt_oper_resource_rec.duration = FND_API.G_MISS_NUM ) ) THEN
737: FND_MESSAGE.set_name( 'AHL','AHL_RM_DURATION_NULL' );
738: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
739: FND_MSG_PUB.add;
740: ELSIF ( p_rt_oper_resource_rec.dml_operation <> 'D' AND
741: p_rt_oper_resource_rec.duration <= 0 ) THEN
742: FND_MESSAGE.set_name( 'AHL','AHL_RM_DURATION_LESS_ZERO' );
743: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
740: ELSIF ( p_rt_oper_resource_rec.dml_operation <> 'D' AND
741: p_rt_oper_resource_rec.duration <= 0 ) THEN
742: FND_MESSAGE.set_name( 'AHL','AHL_RM_DURATION_LESS_ZERO' );
743: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
744: FND_MSG_PUB.add;
745: END IF;
746:
747: -- Bug # 7644260 (FP for ER # 6998882) -- start
748: --Check if the schedule sequence column contains a positive value.
751: p_rt_oper_resource_rec.schedule_seq <> FND_API.G_MISS_NUM AND
752: p_rt_oper_resource_rec.schedule_seq <= 0 ) THEN
753: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_SEQ_LESS_ZERO' );
754: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
755: FND_MSG_PUB.add;
756: --Check if the schedule sequence column contains a whole number.
757: ELSIF ( p_rt_oper_resource_rec.dml_operation <> 'D' AND
758: p_rt_oper_resource_rec.schedule_seq IS NOT NULL AND
759: p_rt_oper_resource_rec.schedule_seq <> FND_API.G_MISS_NUM AND
759: p_rt_oper_resource_rec.schedule_seq <> FND_API.G_MISS_NUM AND
760: TRUNC(p_rt_oper_resource_rec.schedule_seq) <> p_rt_oper_resource_rec.schedule_seq ) THEN
761: FND_MESSAGE.set_name( 'AHL','AHL_COM_SCHED_SEQ_INV' );
762: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
763: FND_MSG_PUB.add;
764: END IF;
765: -- Bug # 7644260 (FP for ER # 6998882) -- end
766:
767: -- Check if the mandatory Resource Type column does not contain a NULL value.
771: ( p_rt_oper_resource_rec.resource_type_id IS NULL OR
772: p_rt_oper_resource_rec.resource_type_id = FND_API.G_MISS_NUM ) ) THEN
773: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_TYPE_NULL' );
774: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
775: FND_MSG_PUB.add;
776: ELSIF ( p_rt_oper_resource_rec.dml_operation = 'U' AND
777: p_rt_oper_resource_rec.resource_type = FND_API.G_MISS_CHAR AND
778: p_rt_oper_resource_rec.resource_type_id = FND_API.G_MISS_NUM ) THEN
779: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_TYPE_NULL' );
777: p_rt_oper_resource_rec.resource_type = FND_API.G_MISS_CHAR AND
778: p_rt_oper_resource_rec.resource_type_id = FND_API.G_MISS_NUM ) THEN
779: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_TYPE_NULL' );
780: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
781: FND_MSG_PUB.add;
782: END IF;
783: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
784: l_msg_count := FND_MSG_PUB.count_msg;
785: IF l_msg_count > 0 THEN
780: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
781: FND_MSG_PUB.add;
782: END IF;
783: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
784: l_msg_count := FND_MSG_PUB.count_msg;
785: IF l_msg_count > 0 THEN
786: RAISE FND_API.G_EXC_ERROR;
787: END IF;
788:
808: FND_MESSAGE.set_name( 'AHL', l_msg_data );
809: FND_MESSAGE.set_token( 'FIELD1', p_rt_oper_resource_rec.duration );
810: FND_MESSAGE.set_token( 'FIELD2', l_max_rt_time_span );
811: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
812: FND_MSG_PUB.add;
813: END IF;
814: END IF;
815: -- end changes for fix 6512803. */
816:
823: FETCH check_alternate_resource into l_dummy;
824: IF check_alternate_resource%FOUND THEN
825: FND_MESSAGE.set_name( 'AHL','AHL_RM_ALTERNATE_RES_EXISTS' );
826: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
827: FND_MSG_PUB.add;
828: END IF;
829: CLOSE check_alternate_resource;
830:
831: -- Check if the mandatory Object Version Number column contains a null value.
832: IF ( p_rt_oper_resource_rec.object_version_number IS NULL OR
833: p_rt_oper_resource_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
834: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_OBJ_VERSION_NULL' );
835: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
836: FND_MSG_PUB.add;
837: END IF;
838:
839: -- Check if the mandatory rt_oper_resource ID column contains a null value.
840: IF ( p_rt_oper_resource_rec.rt_oper_resource_id IS NULL OR
840: IF ( p_rt_oper_resource_rec.rt_oper_resource_id IS NULL OR
841: p_rt_oper_resource_rec.rt_oper_resource_id = FND_API.G_MISS_NUM ) THEN
842: FND_MESSAGE.set_name( 'AHL','AHL_RM_RT_OPER_RES_ID_NULL' );
843: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
844: FND_MSG_PUB.add;
845: END IF;
846:
847: -- Get the old record from AHL_RT_OPER_RESOURCES.
848: OPEN get_old_rec( p_rt_oper_resource_rec.rt_oper_resource_id );
865: -- get_record_identifier can't be used here as it takes old record as parameter.
866: FND_MESSAGE.set_token( 'RECORD', l_old_rt_oper_resource_rec.resource_type
867: || ' - '
868: || l_old_rt_oper_resource_rec.aso_resource_name);
869: FND_MSG_PUB.add;
870: RAISE FND_API.G_EXC_ERROR;
871: END IF;
872: CLOSE alternate_resource_csr;
873: END IF;
872: CLOSE alternate_resource_csr;
873: END IF;
874:
875: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
876: l_msg_count := FND_MSG_PUB.count_msg;
877: IF l_msg_count > 0 THEN
878: RAISE FND_API.G_EXC_ERROR;
879: END IF;
880:
937: FND_MESSAGE.set_token( 'FIELD2', p_rt_oper_resource_rec.resource_type );
938: END IF;
939:
940: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
941: FND_MSG_PUB.add;
942: END IF;
943: END IF;
944:
945: -- Validate whether the Duration specified for the Route / Operation Resource is longer than The Route Time Span.
968: FND_MESSAGE.set_name( 'AHL', l_msg_data );
969: FND_MESSAGE.set_token( 'FIELD1', p_rt_oper_resource_rec.duration );
970: FND_MESSAGE.set_token( 'FIELD2', l_max_rt_time_span );
971: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_rt_oper_resource_rec ) );
972: FND_MSG_PUB.add;
973: --dbms_output.put_line('validate_resource_duration error');
974: END IF;
975: END IF;
976:
1083: IF ( get_dup_rec%ROWCOUNT > 0 ) THEN
1084: CLOSE get_dup_rec;
1085: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_RT_OPER_RESOURCE_DUP' );
1086: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( l_rt_oper_resource_rec ) );
1087: FND_MSG_PUB.add;
1088: x_return_status := FND_API.G_RET_STS_ERROR;
1089: RETURN;
1090: END IF;
1091:
1110: l_bom_asso_type := l_dummy;
1111:
1112: ELSIF l_bom_asso_type <> l_dummy THEN
1113: FND_MESSAGE.set_name('AHL', 'AHL_RM_DIFF_BOM_ASSO_TYPES');
1114: FND_MSG_PUB.add;
1115: x_return_status := FND_API.G_RET_STS_ERROR;
1116: RETURN;
1117: END IF;
1118: END LOOP;
1129:
1130: IF ( get_dept_conflicts%FOUND ) THEN
1131: CLOSE get_dept_conflicts;
1132: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_DEP_CONFLICT_RES' );
1133: FND_MSG_PUB.add;
1134: x_return_status := FND_API.G_RET_STS_ERROR;
1135: RETURN;
1136: END IF;
1137:
1153:
1154: IF ( get_dept_conflicts_alt_res%FOUND ) THEN
1155: CLOSE get_dept_conflicts_alt_res;
1156: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_DEP_CONFLICT_RES' );
1157: FND_MSG_PUB.add;
1158: x_return_status := FND_API.G_RET_STS_ERROR;
1159: RAISE FND_API.G_EXC_ERROR;
1160: END IF;
1161:
1239: END IF;
1240:
1241: -- Initialize message list if p_init_msg_list is set to TRUE.
1242: IF FND_API.to_boolean( p_init_msg_list ) THEN
1243: FND_MSG_PUB.initialize;
1244: END IF;
1245:
1246: IF G_DEBUG = 'Y' THEN
1247: AHL_DEBUG_PUB.enable_debug;
1430: );
1431:
1432: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1433: FND_MESSAGE.SET_NAME('AHL',l_msg_data);
1434: FND_MSG_PUB.ADD;
1435: x_return_status := l_return_status;
1436: RETURN;
1437: END IF;
1438:
1461: );
1462:
1463: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1464: FND_MESSAGE.SET_NAME('AHL',l_msg_data);
1465: FND_MSG_PUB.ADD;
1466: x_return_status := l_return_status;
1467: RETURN;
1468: END IF;
1469:
1480:
1481: END IF ;
1482:
1483: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
1484: l_msg_count := FND_MSG_PUB.count_msg;
1485: IF l_msg_count > 0 THEN
1486: x_msg_count := l_msg_count;
1487: RAISE FND_API.G_EXC_ERROR;
1488: END IF;
1571: WHEN OTHERS THEN
1572: IF ( SQLCODE = -1 ) THEN
1573: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_RT_OPER_RESOURCE_DUP' );
1574: FND_MESSAGE.set_token( 'RECORD', get_record_identifier(p_x_rt_oper_resource_tbl(i) ) );
1575: FND_MSG_PUB.add;
1576: ELSE
1577: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1578: fnd_log.string
1579: (
1624: -- If the record does not exist, then, abort API.
1625: IF ( SQL%ROWCOUNT = 0 ) THEN
1626: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
1627: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_rt_oper_resource_tbl(i) ) );
1628: FND_MSG_PUB.add;
1629: END IF;
1630:
1631: -- Set OUT values
1632: p_x_rt_oper_resource_tbl(i).object_version_number := p_x_rt_oper_resource_tbl(i).object_version_number + 1;
1635: WHEN OTHERS THEN
1636: IF ( SQLCODE = -1 ) THEN
1637: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_RT_OPER_RESOURCE_DUP' );
1638: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_rt_oper_resource_tbl(i) ) );
1639: FND_MSG_PUB.add;
1640: ELSE
1641: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1642: fnd_log.string
1643: (
1664: -- If the record does not exist, then, abort API.
1665: IF ( SQL%ROWCOUNT = 0 ) THEN
1666: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
1667: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( i ) );
1668: FND_MSG_PUB.add;
1669: END IF;
1670: END IF;
1671: END LOOP;
1672:
1674: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME1 || ' : after DML operation' );
1675: END IF;
1676:
1677: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
1678: l_msg_count := FND_MSG_PUB.count_msg;
1679: IF l_msg_count > 0 THEN
1680: x_msg_count := l_msg_count;
1681: RAISE FND_API.G_EXC_ERROR;
1682: END IF;
1718: COMMIT WORK;
1719: END IF;
1720:
1721: -- Count and Get messages (optional)
1722: FND_MSG_PUB.count_and_get
1723: (
1724: p_encoded => FND_API.G_FALSE,
1725: p_count => x_msg_count,
1726: p_data => x_msg_data
1733: EXCEPTION
1734: WHEN FND_API.G_EXC_ERROR THEN
1735: ROLLBACK TO process_rt_oper_resource_PVT;
1736: x_return_status := FND_API.G_RET_STS_ERROR ;
1737: FND_MSG_PUB.count_and_get
1738: (
1739: p_encoded => FND_API.G_FALSE,
1740: p_count => x_msg_count,
1741: p_data => x_msg_data
1748:
1749: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1750: ROLLBACK TO process_rt_oper_resource_PVT;
1751: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1752: FND_MSG_PUB.count_and_get
1753: (
1754: p_encoded => FND_API.G_FALSE,
1755: p_count => x_msg_count,
1756: p_data => x_msg_data
1763:
1764: WHEN OTHERS THEN
1765: ROLLBACK TO process_rt_oper_resource_PVT;
1766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1767: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1768: THEN
1769: FND_MSG_PUB.add_exc_msg
1770: (
1771: p_pkg_name => G_PKG_NAME,
1765: ROLLBACK TO process_rt_oper_resource_PVT;
1766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1767: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1768: THEN
1769: FND_MSG_PUB.add_exc_msg
1770: (
1771: p_pkg_name => G_PKG_NAME,
1772: p_procedure_name => G_API_NAME1,
1773: p_error_text => SUBSTRB(SQLERRM,1,240)
1772: p_procedure_name => G_API_NAME1,
1773: p_error_text => SUBSTRB(SQLERRM,1,240)
1774: );
1775: END IF;
1776: FND_MSG_PUB.count_and_get
1777: (
1778: p_encoded => FND_API.G_FALSE,
1779: p_count => x_msg_count,
1780: p_data => x_msg_data
1832: ELSE
1833: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_cost_rec.cost_basis );
1834: END IF;
1835:
1836: FND_MSG_PUB.add;
1837: END IF;
1838:
1839: END IF;
1840: /* activity look up obsoleted
1862: ELSE
1863: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_cost_rec.activity );
1864: END IF;
1865:
1866: FND_MSG_PUB.add;
1867: END IF;
1868:
1869: END IF;
1870: */
1899: ELSE
1900: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_cost_rec.scheduled_type );
1901: END IF;
1902:
1903: FND_MSG_PUB.add;
1904: END IF;
1905:
1906: END IF;
1907:
1936: ELSE
1937: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_cost_rec.autocharge_type );
1938: END IF;
1939:
1940: FND_MSG_PUB.add;
1941: END IF;
1942:
1943: END IF;
1944:
1973: ELSE
1974: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_cost_rec.standard_rate );
1975: END IF;
1976:
1977: FND_MSG_PUB.add;
1978: END IF;
1979:
1980: END IF;
1981: END convert_costing_values_to_ids;
2022: l_old_rt_oper_cost_rec.standard_rate;
2023:
2024: IF get_old_rec%NOTFOUND THEN
2025: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_RES' );
2026: FND_MSG_PUB.add;
2027: CLOSE get_old_rec;
2028: RAISE FND_API.G_EXC_ERROR;
2029: END IF;
2030:
2172: END IF;
2173:
2174: -- Initialize message list if p_init_msg_list is set to TRUE.
2175: IF FND_API.to_boolean( p_init_msg_list ) THEN
2176: FND_MSG_PUB.initialize;
2177: END IF;
2178:
2179: IF G_DEBUG = 'Y' THEN
2180: AHL_DEBUG_PUB.enable_debug;
2211: l_duration ,
2212: l_name ;
2213: IF get_object_rec%NOTFOUND THEN
2214: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_OBJECT' );
2215: FND_MSG_PUB.add;
2216: RAISE FND_API.G_EXC_ERROR;
2217: END IF;
2218: CLOSE get_object_rec;
2219:
2236: AND lookup_code = p_x_rt_oper_cost_rec.scheduled_type_id;
2237:
2238: END IF;
2239: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_cost_rec.scheduled_type );
2240: FND_MSG_PUB.add;
2241: RAISE FND_API.G_EXC_ERROR;
2242: END IF; -- p_x_rt_oper_cost_rec.scheduled_type_id = 1
2243: */
2244: -- validate time span based on scheduled_type_id.
2257: FND_MESSAGE.set_name( 'AHL', l_msg_data );
2258: FND_MESSAGE.set_token( 'FIELD1', l_duration );
2259: FND_MESSAGE.set_token( 'FIELD2', l_max_rt_time_span );
2260: FND_MESSAGE.set_token( 'RECORD', l_name);
2261: FND_MSG_PUB.add;
2262: --dbms_output.put_line('Cost: validate_resource_duration error');
2263: END IF;
2264: END IF;
2265:
2284: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : after default_costing_unchanged' );
2285: END IF;
2286:
2287: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2288: l_msg_count := FND_MSG_PUB.count_msg;
2289: IF l_msg_count > 0 THEN
2290: x_msg_count := l_msg_count;
2291: RAISE FND_API.G_EXC_ERROR;
2292: END IF;
2298: l_object_id ,
2299: l_association_type_code ;
2300: IF get_object_rec%NOTFOUND THEN
2301: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_OBJECT' );
2302: FND_MSG_PUB.add;
2303: RAISE FND_API.G_EXC_ERROR;
2304: END IF;
2305: CLOSE get_object_rec;
2306: */
2322: );
2323:
2324: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2325: FND_MESSAGE.SET_NAME('AHL',l_msg_data);
2326: FND_MSG_PUB.ADD;
2327: x_return_status := l_return_status;
2328: RETURN;
2329: END IF;
2330:
2370: );
2371:
2372: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2373: FND_MESSAGE.SET_NAME('AHL',l_msg_data);
2374: FND_MSG_PUB.ADD;
2375: x_return_status := l_return_status;
2376: RETURN;
2377: END IF;
2378:
2389:
2390: END IF ;
2391:
2392: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2393: l_msg_count := FND_MSG_PUB.count_msg;
2394: IF l_msg_count > 0 THEN
2395: x_msg_count := l_msg_count;
2396: RAISE FND_API.G_EXC_ERROR;
2397: END IF;
2412:
2413: -- If the record does not exist, then, abort API.
2414: IF ( SQL%ROWCOUNT = 0 ) THEN
2415: FND_MESSAGE.set_name('AHL','AHL_COM_RECORD_CHANGED');
2416: FND_MSG_PUB.add;
2417: END IF;
2418:
2419: -- Set OUT values
2420: p_x_rt_oper_cost_rec.object_version_number := p_x_rt_oper_cost_rec.object_version_number + 1;
2423: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : after DML operation' );
2424: END IF;
2425:
2426: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2427: l_msg_count := FND_MSG_PUB.count_msg;
2428: IF l_msg_count > 0 THEN
2429: x_msg_count := l_msg_count;
2430: RAISE FND_API.G_EXC_ERROR;
2431: END IF;
2435: COMMIT WORK;
2436: END IF;
2437:
2438: -- Count and Get messages (optional)
2439: FND_MSG_PUB.count_and_get
2440: (
2441: p_encoded => FND_API.G_FALSE,
2442: p_count => x_msg_count,
2443: p_data => x_msg_data
2451: EXCEPTION
2452: WHEN FND_API.G_EXC_ERROR THEN
2453: ROLLBACK TO define_cost_parameter_pvt;
2454: x_return_status := FND_API.G_RET_STS_ERROR ;
2455: FND_MSG_PUB.count_and_get
2456: (
2457: p_encoded => FND_API.G_FALSE,
2458: p_count => x_msg_count,
2459: p_data => x_msg_data
2466:
2467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2468: ROLLBACK TO define_cost_parameter_pvt;
2469: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2470: FND_MSG_PUB.count_and_get
2471: (
2472: p_encoded => FND_API.G_FALSE,
2473: p_count => x_msg_count,
2474: p_data => x_msg_data
2481:
2482: WHEN OTHERS THEN
2483: ROLLBACK TO define_cost_parameter_pvt;
2484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2485: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2486: THEN
2487: FND_MSG_PUB.add_exc_msg
2488: (
2489: p_pkg_name => G_PKG_NAME,
2483: ROLLBACK TO define_cost_parameter_pvt;
2484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2485: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2486: THEN
2487: FND_MSG_PUB.add_exc_msg
2488: (
2489: p_pkg_name => G_PKG_NAME,
2490: p_procedure_name => G_API_NAME2,
2491: p_error_text => SUBSTRB(SQLERRM,1,240)
2490: p_procedure_name => G_API_NAME2,
2491: p_error_text => SUBSTRB(SQLERRM,1,240)
2492: );
2493: END IF;
2494: FND_MSG_PUB.count_and_get
2495: (
2496: p_encoded => FND_API.G_FALSE,
2497: p_count => x_msg_count,
2498: p_data => x_msg_data
2523: -- Check if a valid value is passed in p_rt_oper_resource_id
2524: IF ( p_rt_oper_resource_id = FND_API.G_MISS_NUM OR
2525: p_rt_oper_resource_id IS NULL ) THEN
2526: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_RT_OPER_RES_NULL' );
2527: FND_MSG_PUB.add;
2528: x_return_status := FND_API.G_RET_STS_ERROR;
2529: RAISE FND_API.G_EXC_ERROR;
2530: END IF;
2531:
2532: -- Check if at least one record is passed in p_rt_oper_resource_tbl
2533: IF ( p_alt_resource_tbl.count < 1 ) THEN
2534: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
2535: FND_MESSAGE.set_token( 'PROCEDURE', G_PKG_NAME || '.' || G_API_NAME3 );
2536: FND_MSG_PUB.add;
2537: x_return_status := FND_API.G_RET_STS_ERROR;
2538: RAISE FND_API.G_EXC_ERROR;
2539: END IF;
2540:
2550: THEN
2551: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
2552: FND_MESSAGE.set_token( 'FIELD', p_alt_resource_tbl(i).dml_operation );
2553: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_tbl(i).aso_resource_name );
2554: FND_MSG_PUB.add;
2555: x_return_status := FND_API.G_RET_STS_ERROR;
2556: RAISE FND_API.G_EXC_ERROR;
2557: END IF;
2558: END LOOP;
2613: FND_MESSAGE.set_token( 'FIELD', p_x_alt_resource_rec.aso_resource_name );
2614: END IF;
2615:
2616: FND_MESSAGE.set_token( 'RECORD', p_x_alt_resource_rec.aso_resource_name );
2617: FND_MSG_PUB.add;
2618: END IF;
2619: x_return_status := l_return_status;
2620: END IF;
2621:
2793:
2794: IF get_old_rec%NOTFOUND THEN
2795: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_ALT_RES_REC' );
2796: FND_MESSAGE.set_token( 'RECORD', p_x_alt_resource_rec.aso_resource_name );
2797: FND_MSG_PUB.add;
2798: CLOSE get_old_rec;
2799: RAISE FND_API.G_EXC_ERROR;
2800: END IF;
2801:
2942: ( p_alt_resource_rec.dml_operation <> 'D' AND
2943: p_alt_resource_rec.priority = FND_API.G_MISS_NUM ) ) THEN
2944: FND_MESSAGE.set_name( 'AHL','AHL_RM_PRIORITY_NULL' );
2945: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
2946: FND_MSG_PUB.add;
2947: ELSIF ( p_alt_resource_rec.dml_operation <> 'D' AND
2948: p_alt_resource_rec.priority <= 0 ) THEN
2949: FND_MESSAGE.set_name( 'AHL','AHL_RM_PRIORITY_LESS_ZERO' );
2950: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
2947: ELSIF ( p_alt_resource_rec.dml_operation <> 'D' AND
2948: p_alt_resource_rec.priority <= 0 ) THEN
2949: FND_MESSAGE.set_name( 'AHL','AHL_RM_PRIORITY_LESS_ZERO' );
2950: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
2951: FND_MSG_PUB.add;
2952: ELSIF ( p_alt_resource_rec.dml_operation <> 'D' AND
2953: p_alt_resource_rec.priority > 0 ) THEN
2954: BEGIN
2955: l_dummy := TO_NUMBER(TO_CHAR(p_alt_resource_rec.priority), '999999');
2956: EXCEPTION
2957: WHEN OTHERS THEN
2958: FND_MESSAGE.set_name( 'AHL','AHL_RM_PRIORITY_NOT_INTEGER' );
2959: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
2960: FND_MSG_PUB.add;
2961: END;
2962: END IF;
2963:
2964: IF ( p_alt_resource_rec.dml_operation = 'C' ) THEN
2969: IF ( p_alt_resource_rec.dml_operation <> 'D' AND (p_alt_resource_rec.object_version_number IS NULL OR
2970: p_alt_resource_rec.object_version_number = FND_API.G_MISS_NUM) ) THEN
2971: FND_MESSAGE.set_name( 'AHL','AHL_RM_ALT_OBJ_VER_NUM_NULL' );
2972: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
2973: FND_MSG_PUB.add;
2974: END IF;
2975:
2976: -- Check if the mandatory rt_oper_resource ID column contains a null value.
2977: IF ( p_alt_resource_rec.dml_operation <> 'D' AND (p_alt_resource_rec.alternate_resource_id IS NULL OR
2977: IF ( p_alt_resource_rec.dml_operation <> 'D' AND (p_alt_resource_rec.alternate_resource_id IS NULL OR
2978: p_alt_resource_rec.alternate_resource_id = FND_API.G_MISS_NUM) ) THEN
2979: FND_MESSAGE.set_name( 'AHL','AHL_RM_ALT_RES_ID_NULL' );
2980: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
2981: FND_MSG_PUB.add;
2982: END IF;
2983:
2984: END validate_alt_attributes;
2985:
3011: OPEN check_resource_type1( p_rt_oper_resource_id);
3012: FETCH check_resource_type1 INTO l_res_type1;
3013: IF ( check_resource_type1%NOTFOUND ) THEN
3014: FND_MESSAGE.set_name( 'AHL','AHL_RM_INVALID_RT_OPER_RES_ID' );
3015: FND_MSG_PUB.add;
3016: x_return_status := FND_API.G_RET_STS_ERROR;
3017: ELSE
3018: OPEN check_resource_type2( p_alt_resource_rec.aso_resource_id);
3019: FETCH check_resource_type2 INTO l_res_type2;
3019: FETCH check_resource_type2 INTO l_res_type2;
3020: IF ( check_resource_type2%NOTFOUND ) THEN
3021: FND_MESSAGE.set_name( 'AHL','AHL_RM_INVALID_ASO_RES_ID' );
3022: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
3023: FND_MSG_PUB.add;
3024: x_return_status := FND_API.G_RET_STS_ERROR;
3025: ELSIF l_res_type1 <> l_res_type2 THEN
3026: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_TYPE_DIFF' );
3027: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
3024: x_return_status := FND_API.G_RET_STS_ERROR;
3025: ELSIF l_res_type1 <> l_res_type2 THEN
3026: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_TYPE_DIFF' );
3027: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
3028: FND_MSG_PUB.add;
3029: x_return_status := FND_API.G_RET_STS_ERROR;
3030: END IF;
3031: CLOSE check_resource_type2;
3032: END IF;
3121: FETCH get_primary_res_name INTO l_primary_name;
3122: IF get_primary_res_name%NOTFOUND THEN
3123: CLOSE get_primary_res_name;
3124: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_RT_OPER_RES_ID' );
3125: FND_MSG_PUB.add;
3126: x_return_status := FND_API.G_RET_STS_ERROR;
3127: RAISE FND_API.G_EXC_ERROR;
3128: ELSE
3129: CLOSE get_primary_res_name;
3132: IF get_alt_res_name%FOUND THEN
3133: CLOSE get_alt_res_name;
3134: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_PRIMARY_RESOURCE_NAME' );
3135: FND_MESSAGE.set_token( 'RECORD', l_primary_name);
3136: FND_MSG_PUB.add;
3137: x_return_status := FND_API.G_RET_STS_ERROR;
3138: RAISE FND_API.G_EXC_ERROR;
3139: ELSE
3140: CLOSE get_alt_res_name;
3149: IF ( get_dup_rec1%ROWCOUNT > 0 ) THEN
3150: CLOSE get_dup_rec1;
3151: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ALT_RESOURCE_DUP' );
3152: FND_MESSAGE.set_token( 'RECORD', l_res_name );
3153: FND_MSG_PUB.add;
3154: x_return_status := FND_API.G_RET_STS_ERROR;
3155: RAISE FND_API.G_EXC_ERROR;
3156: END IF;
3157: CLOSE get_dup_rec1;
3164: IF ( get_dup_rec2%ROWCOUNT > 0 ) THEN
3165: CLOSE get_dup_rec2;
3166: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ALT_RES_PRIORITY_DUP' );
3167: FND_MESSAGE.set_token( 'RECORD', l_priority );
3168: FND_MSG_PUB.add;
3169: x_return_status := FND_API.G_RET_STS_ERROR;
3170: RAISE FND_API.G_EXC_ERROR;
3171: END IF;
3172: CLOSE get_dup_rec2;
3197: FETCH get_dept_conflicts INTO l_dummy;
3198: IF ( get_dept_conflicts%FOUND ) THEN
3199: CLOSE get_dept_conflicts;
3200: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_DEP_CONFLICT_RES' );
3201: FND_MSG_PUB.add;
3202: x_return_status := FND_API.G_RET_STS_ERROR;
3203: RAISE FND_API.G_EXC_ERROR;
3204: END IF;
3205: CLOSE get_dept_conflicts;
3250: END IF;
3251:
3252: -- Initialize message list if p_init_msg_list is set to TRUE.
3253: IF FND_API.to_boolean( p_init_msg_list ) THEN
3254: FND_MSG_PUB.initialize;
3255: END IF;
3256:
3257: IF G_DEBUG = 'Y' THEN
3258: AHL_DEBUG_PUB.enable_debug;
3390: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME3 || ' : after validate_record' );
3391: END IF;
3392:
3393: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
3394: l_msg_count := FND_MSG_PUB.count_msg;
3395: IF l_msg_count > 0 THEN
3396: x_msg_count := l_msg_count;
3397: RAISE FND_API.G_EXC_ERROR;
3398: END IF;
3470: WHEN OTHERS THEN
3471: IF ( SQLCODE = -1 ) THEN
3472: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ALT_RESOURCE_DUP' );
3473: FND_MESSAGE.set_token( 'RECORD', p_x_alt_resource_tbl(i).aso_resource_name );
3474: FND_MSG_PUB.add;
3475: ELSE
3476: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
3477: fnd_log.string
3478: (
3517: -- If the record does not exist, then, abort API.
3518: IF ( SQL%ROWCOUNT = 0 ) THEN
3519: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
3520: FND_MESSAGE.set_token( 'RECORD', p_x_alt_resource_tbl(i).aso_resource_name );
3521: FND_MSG_PUB.add;
3522: END IF;
3523:
3524: -- Set OUT values
3525: p_x_alt_resource_tbl(i).object_version_number := p_x_alt_resource_tbl(i).object_version_number + 1;
3528: WHEN OTHERS THEN
3529: IF ( SQLCODE = -1 ) THEN
3530: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ALT_RESOURCE_DUP' );
3531: FND_MESSAGE.set_token( 'RECORD', p_x_alt_resource_tbl(i).aso_resource_name );
3532: FND_MSG_PUB.add;
3533: ELSE
3534: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
3535: fnd_log.string
3536: (
3552: -- If the record does not exist, then, abort API.
3553: IF ( SQL%ROWCOUNT = 0 ) THEN
3554: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
3555: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( i ) );
3556: FND_MSG_PUB.add;
3557: END IF;
3558: END IF;
3559: END LOOP;
3560:
3562: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME3 || ' : after DML operation' );
3563: END IF;
3564:
3565: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
3566: l_msg_count := FND_MSG_PUB.count_msg;
3567: IF l_msg_count > 0 THEN
3568: x_msg_count := l_msg_count;
3569: RAISE FND_API.G_EXC_ERROR;
3570: END IF;
3592: COMMIT WORK;
3593: END IF;
3594:
3595: -- Count and Get messages (optional)
3596: FND_MSG_PUB.count_and_get
3597: (
3598: p_encoded => FND_API.G_FALSE,
3599: p_count => x_msg_count,
3600: p_data => x_msg_data
3608: EXCEPTION
3609: WHEN FND_API.G_EXC_ERROR THEN
3610: ROLLBACK TO PROCESS_ALTERNATE_RESOURCE_PVT;
3611: x_return_status := FND_API.G_RET_STS_ERROR ;
3612: FND_MSG_PUB.count_and_get
3613: (
3614: p_encoded => FND_API.G_FALSE,
3615: p_count => x_msg_count,
3616: p_data => x_msg_data
3623:
3624: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3625: ROLLBACK TO PROCESS_ALTERNATE_RESOURCE_PVT;
3626: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3627: FND_MSG_PUB.count_and_get
3628: (
3629: p_encoded => FND_API.G_FALSE,
3630: p_count => x_msg_count,
3631: p_data => x_msg_data
3638:
3639: WHEN OTHERS THEN
3640: ROLLBACK TO PROCESS_ALTERNATE_RESOURCE_PVT;
3641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3642: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3643: THEN
3644: FND_MSG_PUB.add_exc_msg
3645: (
3646: p_pkg_name => G_PKG_NAME,
3640: ROLLBACK TO PROCESS_ALTERNATE_RESOURCE_PVT;
3641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3642: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3643: THEN
3644: FND_MSG_PUB.add_exc_msg
3645: (
3646: p_pkg_name => G_PKG_NAME,
3647: p_procedure_name => G_API_NAME3,
3648: p_error_text => SUBSTRB(SQLERRM,1,240)
3647: p_procedure_name => G_API_NAME3,
3648: p_error_text => SUBSTRB(SQLERRM,1,240)
3649: );
3650: END IF;
3651: FND_MSG_PUB.count_and_get
3652: (
3653: p_encoded => FND_API.G_FALSE,
3654: p_count => x_msg_count,
3655: p_data => x_msg_data