[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:
1073: IF ( get_dup_rec%ROWCOUNT > 0 ) THEN
1074: CLOSE get_dup_rec;
1075: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_RT_OPER_RESOURCE_DUP' );
1076: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( l_rt_oper_resource_rec ) );
1077: FND_MSG_PUB.add;
1078: x_return_status := FND_API.G_RET_STS_ERROR;
1079: RETURN;
1080: END IF;
1081:
1089:
1090: IF ( get_dept_conflicts%FOUND ) THEN
1091: CLOSE get_dept_conflicts;
1092: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_DEP_CONFLICT_RES' );
1093: FND_MSG_PUB.add;
1094: x_return_status := FND_API.G_RET_STS_ERROR;
1095: RETURN;
1096: END IF;
1097:
1111:
1112: IF ( get_dept_conflicts_alt_res%FOUND ) THEN
1113: CLOSE get_dept_conflicts_alt_res;
1114: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_DEP_CONFLICT_RES' );
1115: FND_MSG_PUB.add;
1116: x_return_status := FND_API.G_RET_STS_ERROR;
1117: RAISE FND_API.G_EXC_ERROR;
1118: END IF;
1119:
1197: END IF;
1198:
1199: -- Initialize message list if p_init_msg_list is set to TRUE.
1200: IF FND_API.to_boolean( p_init_msg_list ) THEN
1201: FND_MSG_PUB.initialize;
1202: END IF;
1203:
1204: IF G_DEBUG = 'Y' THEN
1205: AHL_DEBUG_PUB.enable_debug;
1388: );
1389:
1390: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1391: FND_MESSAGE.SET_NAME('AHL',l_msg_data);
1392: FND_MSG_PUB.ADD;
1393: x_return_status := l_return_status;
1394: RETURN;
1395: END IF;
1396:
1419: );
1420:
1421: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1422: FND_MESSAGE.SET_NAME('AHL',l_msg_data);
1423: FND_MSG_PUB.ADD;
1424: x_return_status := l_return_status;
1425: RETURN;
1426: END IF;
1427:
1439: END IF ;
1440:
1441:
1442: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
1443: l_msg_count := FND_MSG_PUB.count_msg;
1444: IF l_msg_count > 0 THEN
1445: x_msg_count := l_msg_count;
1446: RAISE FND_API.G_EXC_ERROR;
1447: END IF;
1529: WHEN OTHERS THEN
1530: IF ( SQLCODE = -1 ) THEN
1531: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_RT_OPER_RESOURCE_DUP' );
1532: FND_MESSAGE.set_token( 'RECORD', get_record_identifier(p_x_rt_oper_resource_tbl(i) ) );
1533: FND_MSG_PUB.add;
1534: ELSE
1535: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1536: fnd_log.string
1537: (
1582: -- If the record does not exist, then, abort API.
1583: IF ( SQL%ROWCOUNT = 0 ) THEN
1584: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
1585: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_rt_oper_resource_tbl(i) ) );
1586: FND_MSG_PUB.add;
1587: END IF;
1588:
1589: -- Set OUT values
1590: p_x_rt_oper_resource_tbl(i).object_version_number := p_x_rt_oper_resource_tbl(i).object_version_number + 1;
1593: WHEN OTHERS THEN
1594: IF ( SQLCODE = -1 ) THEN
1595: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_RT_OPER_RESOURCE_DUP' );
1596: FND_MESSAGE.set_token( 'RECORD', get_record_identifier( p_x_rt_oper_resource_tbl(i) ) );
1597: FND_MSG_PUB.add;
1598: ELSE
1599: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1600: fnd_log.string
1601: (
1622: -- If the record does not exist, then, abort API.
1623: IF ( SQL%ROWCOUNT = 0 ) THEN
1624: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
1625: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( i ) );
1626: FND_MSG_PUB.add;
1627: END IF;
1628: END IF;
1629: END LOOP;
1630:
1632: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME1 || ' : after DML operation' );
1633: END IF;
1634:
1635: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
1636: l_msg_count := FND_MSG_PUB.count_msg;
1637: IF l_msg_count > 0 THEN
1638: x_msg_count := l_msg_count;
1639: RAISE FND_API.G_EXC_ERROR;
1640: END IF;
1676: COMMIT WORK;
1677: END IF;
1678:
1679: -- Count and Get messages (optional)
1680: FND_MSG_PUB.count_and_get
1681: (
1682: p_encoded => FND_API.G_FALSE,
1683: p_count => x_msg_count,
1684: p_data => x_msg_data
1691: EXCEPTION
1692: WHEN FND_API.G_EXC_ERROR THEN
1693: ROLLBACK TO process_rt_oper_resource_PVT;
1694: x_return_status := FND_API.G_RET_STS_ERROR ;
1695: FND_MSG_PUB.count_and_get
1696: (
1697: p_encoded => FND_API.G_FALSE,
1698: p_count => x_msg_count,
1699: p_data => x_msg_data
1706:
1707: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1708: ROLLBACK TO process_rt_oper_resource_PVT;
1709: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1710: FND_MSG_PUB.count_and_get
1711: (
1712: p_encoded => FND_API.G_FALSE,
1713: p_count => x_msg_count,
1714: p_data => x_msg_data
1721:
1722: WHEN OTHERS THEN
1723: ROLLBACK TO process_rt_oper_resource_PVT;
1724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1725: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1726: THEN
1727: FND_MSG_PUB.add_exc_msg
1728: (
1729: p_pkg_name => G_PKG_NAME,
1723: ROLLBACK TO process_rt_oper_resource_PVT;
1724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1725: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1726: THEN
1727: FND_MSG_PUB.add_exc_msg
1728: (
1729: p_pkg_name => G_PKG_NAME,
1730: p_procedure_name => G_API_NAME1,
1731: p_error_text => SUBSTRB(SQLERRM,1,240)
1730: p_procedure_name => G_API_NAME1,
1731: p_error_text => SUBSTRB(SQLERRM,1,240)
1732: );
1733: END IF;
1734: FND_MSG_PUB.count_and_get
1735: (
1736: p_encoded => FND_API.G_FALSE,
1737: p_count => x_msg_count,
1738: p_data => x_msg_data
1790: ELSE
1791: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_cost_rec.cost_basis );
1792: END IF;
1793:
1794: FND_MSG_PUB.add;
1795: END IF;
1796:
1797: END IF;
1798: /* activity look up obsoleted
1820: ELSE
1821: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_cost_rec.activity );
1822: END IF;
1823:
1824: FND_MSG_PUB.add;
1825: END IF;
1826:
1827: END IF;
1828: */
1857: ELSE
1858: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_cost_rec.scheduled_type );
1859: END IF;
1860:
1861: FND_MSG_PUB.add;
1862: END IF;
1863:
1864: END IF;
1865:
1894: ELSE
1895: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_cost_rec.autocharge_type );
1896: END IF;
1897:
1898: FND_MSG_PUB.add;
1899: END IF;
1900:
1901: END IF;
1902:
1931: ELSE
1932: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_cost_rec.standard_rate );
1933: END IF;
1934:
1935: FND_MSG_PUB.add;
1936: END IF;
1937:
1938: END IF;
1939: END convert_costing_values_to_ids;
1980: l_old_rt_oper_cost_rec.standard_rate;
1981:
1982: IF get_old_rec%NOTFOUND THEN
1983: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_RES' );
1984: FND_MSG_PUB.add;
1985: CLOSE get_old_rec;
1986: RAISE FND_API.G_EXC_ERROR;
1987: END IF;
1988:
2130: END IF;
2131:
2132: -- Initialize message list if p_init_msg_list is set to TRUE.
2133: IF FND_API.to_boolean( p_init_msg_list ) THEN
2134: FND_MSG_PUB.initialize;
2135: END IF;
2136:
2137: IF G_DEBUG = 'Y' THEN
2138: AHL_DEBUG_PUB.enable_debug;
2169: l_duration ,
2170: l_name ;
2171: IF get_object_rec%NOTFOUND THEN
2172: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_OBJECT' );
2173: FND_MSG_PUB.add;
2174: RAISE FND_API.G_EXC_ERROR;
2175: END IF;
2176: CLOSE get_object_rec;
2177:
2194: AND lookup_code = p_x_rt_oper_cost_rec.scheduled_type_id;
2195:
2196: END IF;
2197: FND_MESSAGE.set_token( 'FIELD', p_x_rt_oper_cost_rec.scheduled_type );
2198: FND_MSG_PUB.add;
2199: RAISE FND_API.G_EXC_ERROR;
2200: END IF; -- p_x_rt_oper_cost_rec.scheduled_type_id = 1
2201: */
2202: -- validate time span based on scheduled_type_id.
2215: FND_MESSAGE.set_name( 'AHL', l_msg_data );
2216: FND_MESSAGE.set_token( 'FIELD1', l_duration );
2217: FND_MESSAGE.set_token( 'FIELD2', l_max_rt_time_span );
2218: FND_MESSAGE.set_token( 'RECORD', l_name);
2219: FND_MSG_PUB.add;
2220: --dbms_output.put_line('Cost: validate_resource_duration error');
2221: END IF;
2222: END IF;
2223:
2242: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : after default_costing_unchanged' );
2243: END IF;
2244:
2245: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2246: l_msg_count := FND_MSG_PUB.count_msg;
2247: IF l_msg_count > 0 THEN
2248: x_msg_count := l_msg_count;
2249: RAISE FND_API.G_EXC_ERROR;
2250: END IF;
2256: l_object_id ,
2257: l_association_type_code ;
2258: IF get_object_rec%NOTFOUND THEN
2259: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_OBJECT' );
2260: FND_MSG_PUB.add;
2261: RAISE FND_API.G_EXC_ERROR;
2262: END IF;
2263: CLOSE get_object_rec;
2264: */
2280: );
2281:
2282: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2283: FND_MESSAGE.SET_NAME('AHL',l_msg_data);
2284: FND_MSG_PUB.ADD;
2285: x_return_status := l_return_status;
2286: RETURN;
2287: END IF;
2288:
2328: );
2329:
2330: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2331: FND_MESSAGE.SET_NAME('AHL',l_msg_data);
2332: FND_MSG_PUB.ADD;
2333: x_return_status := l_return_status;
2334: RETURN;
2335: END IF;
2336:
2347:
2348: END IF ;
2349:
2350: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2351: l_msg_count := FND_MSG_PUB.count_msg;
2352: IF l_msg_count > 0 THEN
2353: x_msg_count := l_msg_count;
2354: RAISE FND_API.G_EXC_ERROR;
2355: END IF;
2370:
2371: -- If the record does not exist, then, abort API.
2372: IF ( SQL%ROWCOUNT = 0 ) THEN
2373: FND_MESSAGE.set_name('AHL','AHL_COM_RECORD_CHANGED');
2374: FND_MSG_PUB.add;
2375: END IF;
2376:
2377: -- Set OUT values
2378: p_x_rt_oper_cost_rec.object_version_number := p_x_rt_oper_cost_rec.object_version_number + 1;
2381: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || l_api_name || ' : after DML operation' );
2382: END IF;
2383:
2384: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2385: l_msg_count := FND_MSG_PUB.count_msg;
2386: IF l_msg_count > 0 THEN
2387: x_msg_count := l_msg_count;
2388: RAISE FND_API.G_EXC_ERROR;
2389: END IF;
2393: COMMIT WORK;
2394: END IF;
2395:
2396: -- Count and Get messages (optional)
2397: FND_MSG_PUB.count_and_get
2398: (
2399: p_encoded => FND_API.G_FALSE,
2400: p_count => x_msg_count,
2401: p_data => x_msg_data
2409: EXCEPTION
2410: WHEN FND_API.G_EXC_ERROR THEN
2411: ROLLBACK TO define_cost_parameter_pvt;
2412: x_return_status := FND_API.G_RET_STS_ERROR ;
2413: FND_MSG_PUB.count_and_get
2414: (
2415: p_encoded => FND_API.G_FALSE,
2416: p_count => x_msg_count,
2417: p_data => x_msg_data
2424:
2425: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2426: ROLLBACK TO define_cost_parameter_pvt;
2427: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2428: FND_MSG_PUB.count_and_get
2429: (
2430: p_encoded => FND_API.G_FALSE,
2431: p_count => x_msg_count,
2432: p_data => x_msg_data
2439:
2440: WHEN OTHERS THEN
2441: ROLLBACK TO define_cost_parameter_pvt;
2442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2443: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2444: THEN
2445: FND_MSG_PUB.add_exc_msg
2446: (
2447: p_pkg_name => G_PKG_NAME,
2441: ROLLBACK TO define_cost_parameter_pvt;
2442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2443: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2444: THEN
2445: FND_MSG_PUB.add_exc_msg
2446: (
2447: p_pkg_name => G_PKG_NAME,
2448: p_procedure_name => G_API_NAME2,
2449: p_error_text => SUBSTRB(SQLERRM,1,240)
2448: p_procedure_name => G_API_NAME2,
2449: p_error_text => SUBSTRB(SQLERRM,1,240)
2450: );
2451: END IF;
2452: FND_MSG_PUB.count_and_get
2453: (
2454: p_encoded => FND_API.G_FALSE,
2455: p_count => x_msg_count,
2456: p_data => x_msg_data
2481: -- Check if a valid value is passed in p_rt_oper_resource_id
2482: IF ( p_rt_oper_resource_id = FND_API.G_MISS_NUM OR
2483: p_rt_oper_resource_id IS NULL ) THEN
2484: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_RT_OPER_RES_NULL' );
2485: FND_MSG_PUB.add;
2486: x_return_status := FND_API.G_RET_STS_ERROR;
2487: RAISE FND_API.G_EXC_ERROR;
2488: END IF;
2489:
2490: -- Check if at least one record is passed in p_rt_oper_resource_tbl
2491: IF ( p_alt_resource_tbl.count < 1 ) THEN
2492: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_PROCEDURE_CALL' );
2493: FND_MESSAGE.set_token( 'PROCEDURE', G_PKG_NAME || '.' || G_API_NAME3 );
2494: FND_MSG_PUB.add;
2495: x_return_status := FND_API.G_RET_STS_ERROR;
2496: RAISE FND_API.G_EXC_ERROR;
2497: END IF;
2498:
2508: THEN
2509: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
2510: FND_MESSAGE.set_token( 'FIELD', p_alt_resource_tbl(i).dml_operation );
2511: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_tbl(i).aso_resource_name );
2512: FND_MSG_PUB.add;
2513: x_return_status := FND_API.G_RET_STS_ERROR;
2514: RAISE FND_API.G_EXC_ERROR;
2515: END IF;
2516: END LOOP;
2571: FND_MESSAGE.set_token( 'FIELD', p_x_alt_resource_rec.aso_resource_name );
2572: END IF;
2573:
2574: FND_MESSAGE.set_token( 'RECORD', p_x_alt_resource_rec.aso_resource_name );
2575: FND_MSG_PUB.add;
2576: END IF;
2577: x_return_status := l_return_status;
2578: END IF;
2579:
2751:
2752: IF get_old_rec%NOTFOUND THEN
2753: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_ALT_RES_REC' );
2754: FND_MESSAGE.set_token( 'RECORD', p_x_alt_resource_rec.aso_resource_name );
2755: FND_MSG_PUB.add;
2756: CLOSE get_old_rec;
2757: RAISE FND_API.G_EXC_ERROR;
2758: END IF;
2759:
2900: ( p_alt_resource_rec.dml_operation <> 'D' AND
2901: p_alt_resource_rec.priority = FND_API.G_MISS_NUM ) ) THEN
2902: FND_MESSAGE.set_name( 'AHL','AHL_RM_PRIORITY_NULL' );
2903: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
2904: FND_MSG_PUB.add;
2905: ELSIF ( p_alt_resource_rec.dml_operation <> 'D' AND
2906: p_alt_resource_rec.priority <= 0 ) THEN
2907: FND_MESSAGE.set_name( 'AHL','AHL_RM_PRIORITY_LESS_ZERO' );
2908: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
2905: ELSIF ( p_alt_resource_rec.dml_operation <> 'D' AND
2906: p_alt_resource_rec.priority <= 0 ) THEN
2907: FND_MESSAGE.set_name( 'AHL','AHL_RM_PRIORITY_LESS_ZERO' );
2908: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
2909: FND_MSG_PUB.add;
2910: ELSIF ( p_alt_resource_rec.dml_operation <> 'D' AND
2911: p_alt_resource_rec.priority > 0 ) THEN
2912: BEGIN
2913: l_dummy := TO_NUMBER(TO_CHAR(p_alt_resource_rec.priority), '999999');
2914: EXCEPTION
2915: WHEN OTHERS THEN
2916: FND_MESSAGE.set_name( 'AHL','AHL_RM_PRIORITY_NOT_INTEGER' );
2917: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
2918: FND_MSG_PUB.add;
2919: END;
2920: END IF;
2921:
2922: IF ( p_alt_resource_rec.dml_operation = 'C' ) THEN
2927: IF ( p_alt_resource_rec.dml_operation <> 'D' AND (p_alt_resource_rec.object_version_number IS NULL OR
2928: p_alt_resource_rec.object_version_number = FND_API.G_MISS_NUM) ) THEN
2929: FND_MESSAGE.set_name( 'AHL','AHL_RM_ALT_OBJ_VER_NUM_NULL' );
2930: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
2931: FND_MSG_PUB.add;
2932: END IF;
2933:
2934: -- Check if the mandatory rt_oper_resource ID column contains a null value.
2935: IF ( p_alt_resource_rec.dml_operation <> 'D' AND (p_alt_resource_rec.alternate_resource_id IS NULL OR
2935: IF ( p_alt_resource_rec.dml_operation <> 'D' AND (p_alt_resource_rec.alternate_resource_id IS NULL OR
2936: p_alt_resource_rec.alternate_resource_id = FND_API.G_MISS_NUM) ) THEN
2937: FND_MESSAGE.set_name( 'AHL','AHL_RM_ALT_RES_ID_NULL' );
2938: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
2939: FND_MSG_PUB.add;
2940: END IF;
2941:
2942: END validate_alt_attributes;
2943:
2969: OPEN check_resource_type1( p_rt_oper_resource_id);
2970: FETCH check_resource_type1 INTO l_res_type1;
2971: IF ( check_resource_type1%NOTFOUND ) THEN
2972: FND_MESSAGE.set_name( 'AHL','AHL_RM_INVALID_RT_OPER_RES_ID' );
2973: FND_MSG_PUB.add;
2974: x_return_status := FND_API.G_RET_STS_ERROR;
2975: ELSE
2976: OPEN check_resource_type2( p_alt_resource_rec.aso_resource_id);
2977: FETCH check_resource_type2 INTO l_res_type2;
2977: FETCH check_resource_type2 INTO l_res_type2;
2978: IF ( check_resource_type2%NOTFOUND ) THEN
2979: FND_MESSAGE.set_name( 'AHL','AHL_RM_INVALID_ASO_RES_ID' );
2980: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
2981: FND_MSG_PUB.add;
2982: x_return_status := FND_API.G_RET_STS_ERROR;
2983: ELSIF l_res_type1 <> l_res_type2 THEN
2984: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_TYPE_DIFF' );
2985: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
2982: x_return_status := FND_API.G_RET_STS_ERROR;
2983: ELSIF l_res_type1 <> l_res_type2 THEN
2984: FND_MESSAGE.set_name( 'AHL','AHL_RM_RES_TYPE_DIFF' );
2985: FND_MESSAGE.set_token( 'RECORD', p_alt_resource_rec.aso_resource_name );
2986: FND_MSG_PUB.add;
2987: x_return_status := FND_API.G_RET_STS_ERROR;
2988: END IF;
2989: CLOSE check_resource_type2;
2990: END IF;
3078: FETCH get_primary_res_name INTO l_primary_name;
3079: IF get_primary_res_name%NOTFOUND THEN
3080: CLOSE get_primary_res_name;
3081: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_RT_OPER_RES_ID' );
3082: FND_MSG_PUB.add;
3083: x_return_status := FND_API.G_RET_STS_ERROR;
3084: RAISE FND_API.G_EXC_ERROR;
3085: ELSE
3086: CLOSE get_primary_res_name;
3089: IF get_alt_res_name%FOUND THEN
3090: CLOSE get_alt_res_name;
3091: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_PRIMARY_RESOURCE_NAME' );
3092: FND_MESSAGE.set_token( 'RECORD', l_primary_name);
3093: FND_MSG_PUB.add;
3094: x_return_status := FND_API.G_RET_STS_ERROR;
3095: RAISE FND_API.G_EXC_ERROR;
3096: ELSE
3097: CLOSE get_alt_res_name;
3106: IF ( get_dup_rec1%ROWCOUNT > 0 ) THEN
3107: CLOSE get_dup_rec1;
3108: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ALT_RESOURCE_DUP' );
3109: FND_MESSAGE.set_token( 'RECORD', l_res_name );
3110: FND_MSG_PUB.add;
3111: x_return_status := FND_API.G_RET_STS_ERROR;
3112: RAISE FND_API.G_EXC_ERROR;
3113: END IF;
3114: CLOSE get_dup_rec1;
3121: IF ( get_dup_rec2%ROWCOUNT > 0 ) THEN
3122: CLOSE get_dup_rec2;
3123: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ALT_RES_PRIORITY_DUP' );
3124: FND_MESSAGE.set_token( 'RECORD', l_priority );
3125: FND_MSG_PUB.add;
3126: x_return_status := FND_API.G_RET_STS_ERROR;
3127: RAISE FND_API.G_EXC_ERROR;
3128: END IF;
3129: CLOSE get_dup_rec2;
3144: FETCH get_dept_conflicts INTO l_dummy;
3145: IF ( get_dept_conflicts%FOUND ) THEN
3146: CLOSE get_dept_conflicts;
3147: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_DEP_CONFLICT_RES' );
3148: FND_MSG_PUB.add;
3149: x_return_status := FND_API.G_RET_STS_ERROR;
3150: RAISE FND_API.G_EXC_ERROR;
3151: END IF;
3152: CLOSE get_dept_conflicts;
3196: END IF;
3197:
3198: -- Initialize message list if p_init_msg_list is set to TRUE.
3199: IF FND_API.to_boolean( p_init_msg_list ) THEN
3200: FND_MSG_PUB.initialize;
3201: END IF;
3202:
3203: IF G_DEBUG = 'Y' THEN
3204: AHL_DEBUG_PUB.enable_debug;
3336: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME3 || ' : after validate_record' );
3337: END IF;
3338:
3339: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
3340: l_msg_count := FND_MSG_PUB.count_msg;
3341: IF l_msg_count > 0 THEN
3342: x_msg_count := l_msg_count;
3343: RAISE FND_API.G_EXC_ERROR;
3344: END IF;
3415: WHEN OTHERS THEN
3416: IF ( SQLCODE = -1 ) THEN
3417: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ALT_RESOURCE_DUP' );
3418: FND_MESSAGE.set_token( 'RECORD', p_x_alt_resource_tbl(i).aso_resource_name );
3419: FND_MSG_PUB.add;
3420: ELSE
3421: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
3422: fnd_log.string
3423: (
3462: -- If the record does not exist, then, abort API.
3463: IF ( SQL%ROWCOUNT = 0 ) THEN
3464: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
3465: FND_MESSAGE.set_token( 'RECORD', p_x_alt_resource_tbl(i).aso_resource_name );
3466: FND_MSG_PUB.add;
3467: END IF;
3468:
3469: -- Set OUT values
3470: p_x_alt_resource_tbl(i).object_version_number := p_x_alt_resource_tbl(i).object_version_number + 1;
3473: WHEN OTHERS THEN
3474: IF ( SQLCODE = -1 ) THEN
3475: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ALT_RESOURCE_DUP' );
3476: FND_MESSAGE.set_token( 'RECORD', p_x_alt_resource_tbl(i).aso_resource_name );
3477: FND_MSG_PUB.add;
3478: ELSE
3479: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
3480: fnd_log.string
3481: (
3497: -- If the record does not exist, then, abort API.
3498: IF ( SQL%ROWCOUNT = 0 ) THEN
3499: FND_MESSAGE.set_name('AHL','AHL_RM_RECORD_CHANGED');
3500: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( i ) );
3501: FND_MSG_PUB.add;
3502: END IF;
3503: END IF;
3504: END LOOP;
3505:
3507: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME3 || ' : after DML operation' );
3508: END IF;
3509:
3510: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
3511: l_msg_count := FND_MSG_PUB.count_msg;
3512: IF l_msg_count > 0 THEN
3513: x_msg_count := l_msg_count;
3514: RAISE FND_API.G_EXC_ERROR;
3515: END IF;
3537: COMMIT WORK;
3538: END IF;
3539:
3540: -- Count and Get messages (optional)
3541: FND_MSG_PUB.count_and_get
3542: (
3543: p_encoded => FND_API.G_FALSE,
3544: p_count => x_msg_count,
3545: p_data => x_msg_data
3553: EXCEPTION
3554: WHEN FND_API.G_EXC_ERROR THEN
3555: ROLLBACK TO PROCESS_ALTERNATE_RESOURCE_PVT;
3556: x_return_status := FND_API.G_RET_STS_ERROR ;
3557: FND_MSG_PUB.count_and_get
3558: (
3559: p_encoded => FND_API.G_FALSE,
3560: p_count => x_msg_count,
3561: p_data => x_msg_data
3568:
3569: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3570: ROLLBACK TO PROCESS_ALTERNATE_RESOURCE_PVT;
3571: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3572: FND_MSG_PUB.count_and_get
3573: (
3574: p_encoded => FND_API.G_FALSE,
3575: p_count => x_msg_count,
3576: p_data => x_msg_data
3583:
3584: WHEN OTHERS THEN
3585: ROLLBACK TO PROCESS_ALTERNATE_RESOURCE_PVT;
3586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3587: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3588: THEN
3589: FND_MSG_PUB.add_exc_msg
3590: (
3591: p_pkg_name => G_PKG_NAME,
3585: ROLLBACK TO PROCESS_ALTERNATE_RESOURCE_PVT;
3586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3587: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3588: THEN
3589: FND_MSG_PUB.add_exc_msg
3590: (
3591: p_pkg_name => G_PKG_NAME,
3592: p_procedure_name => G_API_NAME3,
3593: p_error_text => SUBSTRB(SQLERRM,1,240)
3592: p_procedure_name => G_API_NAME3,
3593: p_error_text => SUBSTRB(SQLERRM,1,240)
3594: );
3595: END IF;
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