212: IF (l_log_statement >= l_log_current_level) THEN
213: FND_LOG.string(l_log_statement, l_full_name, 'invalid unit header id');
214: END IF;
215: -- The Unit Configuration header identifier UC_HEADER_ID is invalid.
216: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UC_HEADER_ID_INVALID');
217: FND_MESSAGE.Set_Token('UC_HEADER_ID', p_uc_header_id);
218: FND_MSG_PUB.ADD;
219: RAISE FND_API.G_EXC_ERROR;
220: END IF;
213: FND_LOG.string(l_log_statement, l_full_name, 'invalid unit header id');
214: END IF;
215: -- The Unit Configuration header identifier UC_HEADER_ID is invalid.
216: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UC_HEADER_ID_INVALID');
217: FND_MESSAGE.Set_Token('UC_HEADER_ID', p_uc_header_id);
218: FND_MSG_PUB.ADD;
219: RAISE FND_API.G_EXC_ERROR;
220: END IF;
221: CLOSE chk_unit_header_id_csr;
232: IF (l_log_statement >= l_log_current_level) THEN
233: FND_LOG.string(l_log_statement, l_full_name, 'invalid visit id');
234: END IF;
235: -- Visit id VISIT_ID is invalid.
236: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_VWP_INVALID_VST');
237: FND_MESSAGE.Set_Token('VISIT_ID', p_visit_id);
238: FND_MSG_PUB.ADD;
239: RAISE FND_API.G_EXC_ERROR;
240: END IF;
233: FND_LOG.string(l_log_statement, l_full_name, 'invalid visit id');
234: END IF;
235: -- Visit id VISIT_ID is invalid.
236: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_VWP_INVALID_VST');
237: FND_MESSAGE.Set_Token('VISIT_ID', p_visit_id);
238: FND_MSG_PUB.ADD;
239: RAISE FND_API.G_EXC_ERROR;
240: END IF;
241: CLOSE chk_visit_id_csr;
270: FETCH validate_sb_rule_csr INTO l_dummy;
271: IF (validate_sb_rule_csr%NOTFOUND) THEN
272: -- Put this erring rule in the OUT table parameter
273: -- Rule RULE_NAME evaluation failed for the unit UNIT_NAME.
274: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_MC_RULE_FAILED');
275: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_name_tbl(i));
276: FND_MESSAGE.Set_Token('UNIT_NAME',l_unit_name);
277: IF (p_x_erring_rules_tbl.COUNT > 0) THEN
278: p_x_erring_rules_tbl(p_x_erring_rules_tbl.LAST+1) := FND_MESSAGE.Get;
271: IF (validate_sb_rule_csr%NOTFOUND) THEN
272: -- Put this erring rule in the OUT table parameter
273: -- Rule RULE_NAME evaluation failed for the unit UNIT_NAME.
274: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_MC_RULE_FAILED');
275: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_name_tbl(i));
276: FND_MESSAGE.Set_Token('UNIT_NAME',l_unit_name);
277: IF (p_x_erring_rules_tbl.COUNT > 0) THEN
278: p_x_erring_rules_tbl(p_x_erring_rules_tbl.LAST+1) := FND_MESSAGE.Get;
279: ELSE
272: -- Put this erring rule in the OUT table parameter
273: -- Rule RULE_NAME evaluation failed for the unit UNIT_NAME.
274: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_MC_RULE_FAILED');
275: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_name_tbl(i));
276: FND_MESSAGE.Set_Token('UNIT_NAME',l_unit_name);
277: IF (p_x_erring_rules_tbl.COUNT > 0) THEN
278: p_x_erring_rules_tbl(p_x_erring_rules_tbl.LAST+1) := FND_MESSAGE.Get;
279: ELSE
280: p_x_erring_rules_tbl(0) := FND_MESSAGE.Get;
274: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_MC_RULE_FAILED');
275: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_name_tbl(i));
276: FND_MESSAGE.Set_Token('UNIT_NAME',l_unit_name);
277: IF (p_x_erring_rules_tbl.COUNT > 0) THEN
278: p_x_erring_rules_tbl(p_x_erring_rules_tbl.LAST+1) := FND_MESSAGE.Get;
279: ELSE
280: p_x_erring_rules_tbl(0) := FND_MESSAGE.Get;
281: END IF;
282: IF (l_log_statement >= l_log_current_level) THEN
276: FND_MESSAGE.Set_Token('UNIT_NAME',l_unit_name);
277: IF (p_x_erring_rules_tbl.COUNT > 0) THEN
278: p_x_erring_rules_tbl(p_x_erring_rules_tbl.LAST+1) := FND_MESSAGE.Get;
279: ELSE
280: p_x_erring_rules_tbl(0) := FND_MESSAGE.Get;
281: END IF;
282: IF (l_log_statement >= l_log_current_level) THEN
283: FND_LOG.string(l_log_statement, l_full_name, 'rule violated = '||l_rule_name_tbl(i));
284: END IF;
480: IF (l_log_statement >= l_log_current_level) THEN
481: FND_LOG.string(l_log_statement, l_full_name, 'invalid instance id');
482: END IF;
483: -- The item instance INSTANCE is invalid.
484: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_FMP_INVALID_ITEM_INSTANCE');
485: FND_MESSAGE.Set_Token('INSTANCE', p_csi_instance_id);
486: FND_MSG_PUB.ADD;
487: END IF;
488: CLOSE chk_instance_id_csr;
481: FND_LOG.string(l_log_statement, l_full_name, 'invalid instance id');
482: END IF;
483: -- The item instance INSTANCE is invalid.
484: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_FMP_INVALID_ITEM_INSTANCE');
485: FND_MESSAGE.Set_Token('INSTANCE', p_csi_instance_id);
486: FND_MSG_PUB.ADD;
487: END IF;
488: CLOSE chk_instance_id_csr;
489:
496: IF (l_log_statement >= l_log_current_level) THEN
497: FND_LOG.string(l_log_statement, l_full_name, 'invalid unit header id l_uc_header_id = '||l_uc_header_id);
498: END IF;
499: -- The Unit Configuration header identifier UC_HEADER_ID is invalid.
500: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UC_HEADER_ID_INVALID');
501: FND_MESSAGE.Set_Token('UC_HEADER_ID', l_uc_header_id);
502: FND_MSG_PUB.ADD;
503: END IF;
504: CLOSE get_unit_name_csr;
497: FND_LOG.string(l_log_statement, l_full_name, 'invalid unit header id l_uc_header_id = '||l_uc_header_id);
498: END IF;
499: -- The Unit Configuration header identifier UC_HEADER_ID is invalid.
500: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UC_HEADER_ID_INVALID');
501: FND_MESSAGE.Set_Token('UC_HEADER_ID', l_uc_header_id);
502: FND_MSG_PUB.ADD;
503: END IF;
504: CLOSE get_unit_name_csr;
505:
537: FETCH validate_sb_rule_csr INTO l_dummy;
538: IF (validate_sb_rule_csr%NOTFOUND) THEN
539: -- Put this erring rule in the OUT table parameter
540: -- Rule RULE_NAME evaluation failed for the unit UNIT_NAME.
541: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_MC_RULE_FAILED');
542: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_name_tbl(i));
543: FND_MESSAGE.Set_Token('UNIT_NAME',l_unit_name);
544: IF (p_x_erring_rules_tbl.COUNT > 0) THEN
545: p_x_erring_rules_tbl(p_x_erring_rules_tbl.LAST+1) := FND_MESSAGE.Get;
538: IF (validate_sb_rule_csr%NOTFOUND) THEN
539: -- Put this erring rule in the OUT table parameter
540: -- Rule RULE_NAME evaluation failed for the unit UNIT_NAME.
541: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_MC_RULE_FAILED');
542: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_name_tbl(i));
543: FND_MESSAGE.Set_Token('UNIT_NAME',l_unit_name);
544: IF (p_x_erring_rules_tbl.COUNT > 0) THEN
545: p_x_erring_rules_tbl(p_x_erring_rules_tbl.LAST+1) := FND_MESSAGE.Get;
546: ELSE
539: -- Put this erring rule in the OUT table parameter
540: -- Rule RULE_NAME evaluation failed for the unit UNIT_NAME.
541: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_MC_RULE_FAILED');
542: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_name_tbl(i));
543: FND_MESSAGE.Set_Token('UNIT_NAME',l_unit_name);
544: IF (p_x_erring_rules_tbl.COUNT > 0) THEN
545: p_x_erring_rules_tbl(p_x_erring_rules_tbl.LAST+1) := FND_MESSAGE.Get;
546: ELSE
547: p_x_erring_rules_tbl(0) := FND_MESSAGE.Get;
541: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_MC_RULE_FAILED');
542: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_name_tbl(i));
543: FND_MESSAGE.Set_Token('UNIT_NAME',l_unit_name);
544: IF (p_x_erring_rules_tbl.COUNT > 0) THEN
545: p_x_erring_rules_tbl(p_x_erring_rules_tbl.LAST+1) := FND_MESSAGE.Get;
546: ELSE
547: p_x_erring_rules_tbl(0) := FND_MESSAGE.Get;
548: END IF;
549: IF (l_log_statement >= l_log_current_level) THEN
543: FND_MESSAGE.Set_Token('UNIT_NAME',l_unit_name);
544: IF (p_x_erring_rules_tbl.COUNT > 0) THEN
545: p_x_erring_rules_tbl(p_x_erring_rules_tbl.LAST+1) := FND_MESSAGE.Get;
546: ELSE
547: p_x_erring_rules_tbl(0) := FND_MESSAGE.Get;
548: END IF;
549: IF (l_log_statement >= l_log_current_level) THEN
550: FND_LOG.string(l_log_statement, l_full_name, 'rule violated = '||l_rule_name_tbl(i));
551: END IF;
736: -- invalid MC and position
737: IF (l_log_statement >= l_log_current_level) THEN
738: FND_LOG.string(l_log_statement, l_full_name, 'invalid MC and position');
739: END IF;
740: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_MC_NODE_NOT_FOUND'); -- Master Configuration node not found.
741: FND_MSG_PUB.ADD;
742: END IF;
743: CLOSE get_mc_rel_id_csr;
744:
758: FETCH validate_sb_rule_csr INTO l_dummy;
759: IF (validate_sb_rule_csr%NOTFOUND) THEN
760: -- Put this erring rule in the message stack
761: -- Rule RULE_NAME evaluation failed for the unit UNIT_NAME.
762: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_MC_RULE_FAILED');
763: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_name_tbl(i));
764: FND_MESSAGE.Set_Token('UNIT_NAME',l_get_unit_det_csr_rec.name);
765: FND_MSG_PUB.ADD;
766: IF (l_log_statement >= l_log_current_level) THEN
759: IF (validate_sb_rule_csr%NOTFOUND) THEN
760: -- Put this erring rule in the message stack
761: -- Rule RULE_NAME evaluation failed for the unit UNIT_NAME.
762: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_MC_RULE_FAILED');
763: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_name_tbl(i));
764: FND_MESSAGE.Set_Token('UNIT_NAME',l_get_unit_det_csr_rec.name);
765: FND_MSG_PUB.ADD;
766: IF (l_log_statement >= l_log_current_level) THEN
767: FND_LOG.string(l_log_statement, l_full_name, 'rule violated = '||l_rule_name_tbl(i));
760: -- Put this erring rule in the message stack
761: -- Rule RULE_NAME evaluation failed for the unit UNIT_NAME.
762: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_MC_RULE_FAILED');
763: FND_MESSAGE.Set_Token('RULE_NAME',l_rule_name_tbl(i));
764: FND_MESSAGE.Set_Token('UNIT_NAME',l_get_unit_det_csr_rec.name);
765: FND_MSG_PUB.ADD;
766: IF (l_log_statement >= l_log_current_level) THEN
767: FND_LOG.string(l_log_statement, l_full_name, 'rule violated = '||l_rule_name_tbl(i));
768: END IF;
777: -- no matching unit found
778: IF (l_log_statement >= l_log_current_level) THEN
779: FND_LOG.string(l_log_statement, l_full_name, 'no matching unit found');
780: END IF;
781: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PC_UNIT_NOT_FOUND'); -- No such unit found in Unit Configuration.
782: FND_MSG_PUB.ADD;
783: END IF;
784:
785: IF (l_log_procedure >= l_log_current_level) THEN
879: -- invalid source MR header id
880: IF (l_log_statement >= l_log_current_level) THEN
881: FND_LOG.string(l_log_statement, l_full_name, 'invalid source MR header id');
882: END IF;
883: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UMP_PUE_MR_NOTFOUND'); -- Maintenance requirement ID (MR_ID) not found.
884: FND_MESSAGE.Set_Token('MR_ID', p_src_mr_header_id);
885: FND_MSG_PUB.ADD;
886: END IF;
887: CLOSE chk_mr_header_id_csr;
880: IF (l_log_statement >= l_log_current_level) THEN
881: FND_LOG.string(l_log_statement, l_full_name, 'invalid source MR header id');
882: END IF;
883: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UMP_PUE_MR_NOTFOUND'); -- Maintenance requirement ID (MR_ID) not found.
884: FND_MESSAGE.Set_Token('MR_ID', p_src_mr_header_id);
885: FND_MSG_PUB.ADD;
886: END IF;
887: CLOSE chk_mr_header_id_csr;
888: OPEN chk_mr_header_id_csr(p_dst_mr_header_id);
891: -- invalid destination MR header id
892: IF (l_log_statement >= l_log_current_level) THEN
893: FND_LOG.string(l_log_statement, l_full_name, 'invalid destination MR header id');
894: END IF;
895: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UMP_PUE_MR_NOTFOUND'); -- Maintenance requirement ID (MR_ID) not found.
896: FND_MESSAGE.Set_Token('MR_ID', p_dst_mr_header_id);
897: FND_MSG_PUB.ADD;
898: END IF;
899: CLOSE chk_mr_header_id_csr;
892: IF (l_log_statement >= l_log_current_level) THEN
893: FND_LOG.string(l_log_statement, l_full_name, 'invalid destination MR header id');
894: END IF;
895: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UMP_PUE_MR_NOTFOUND'); -- Maintenance requirement ID (MR_ID) not found.
896: FND_MESSAGE.Set_Token('MR_ID', p_dst_mr_header_id);
897: FND_MSG_PUB.ADD;
898: END IF;
899: CLOSE chk_mr_header_id_csr;
900:
904: END IF;
905:
906: -- Copy the SB rules from source MR to destination MR
907: -- 1) get the translated message AHL_COM_COPY
908: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_COM_COPY'); -- Copy
909: l_copy := FND_MESSAGE.Get;
910: IF (l_log_statement >= l_log_current_level) THEN
911: FND_LOG.string(l_log_statement, l_full_name, 'l_copy = '||l_copy);
912: END IF;
905:
906: -- Copy the SB rules from source MR to destination MR
907: -- 1) get the translated message AHL_COM_COPY
908: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_COM_COPY'); -- Copy
909: l_copy := FND_MESSAGE.Get;
910: IF (l_log_statement >= l_log_current_level) THEN
911: FND_LOG.string(l_log_statement, l_full_name, 'l_copy = '||l_copy);
912: END IF;
913:
1097: CLOSE chk_mr_header_id_csr;
1098: IF (l_log_statement >= l_log_current_level) THEN
1099: FND_LOG.string(l_log_statement, l_full_name, 'invalid MR header id');
1100: END IF;
1101: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UMP_PUE_MR_NOTFOUND'); -- Maintenance requirement ID (MR_ID) not found.
1102: FND_MESSAGE.Set_Token('MR_ID', p_mr_header_id);
1103: FND_MSG_PUB.ADD;
1104: RAISE FND_API.G_EXC_ERROR;
1105: END IF;
1098: IF (l_log_statement >= l_log_current_level) THEN
1099: FND_LOG.string(l_log_statement, l_full_name, 'invalid MR header id');
1100: END IF;
1101: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UMP_PUE_MR_NOTFOUND'); -- Maintenance requirement ID (MR_ID) not found.
1102: FND_MESSAGE.Set_Token('MR_ID', p_mr_header_id);
1103: FND_MSG_PUB.ADD;
1104: RAISE FND_API.G_EXC_ERROR;
1105: END IF;
1106: CLOSE chk_mr_header_id_csr;
1306: CLOSE chk_mr_header_id_csr;
1307: IF (l_log_statement >= l_log_current_level) THEN
1308: FND_LOG.string(l_log_statement, l_full_name, 'invalid MR header id');
1309: END IF;
1310: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UMP_PUE_MR_NOTFOUND'); -- Maintenance requirement ID (MR_ID) not found.
1311: FND_MESSAGE.Set_Token('MR_ID', p_mr_header_id);
1312: FND_MSG_PUB.ADD;
1313: RAISE FND_API.G_EXC_ERROR;
1314: END IF;
1307: IF (l_log_statement >= l_log_current_level) THEN
1308: FND_LOG.string(l_log_statement, l_full_name, 'invalid MR header id');
1309: END IF;
1310: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UMP_PUE_MR_NOTFOUND'); -- Maintenance requirement ID (MR_ID) not found.
1311: FND_MESSAGE.Set_Token('MR_ID', p_mr_header_id);
1312: FND_MSG_PUB.ADD;
1313: RAISE FND_API.G_EXC_ERROR;
1314: END IF;
1315: CLOSE chk_mr_header_id_csr;
1509: -- invalid item group id
1510: IF (l_log_statement >= l_log_current_level) THEN
1511: FND_LOG.string(l_log_statement, l_full_name, 'invalid item group id');
1512: END IF;
1513: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_MC_ITEMGRP_INVALID'); -- Item Group ITEM_GRP is invalid.
1514: FND_MESSAGE.Set_Token('ITEM_GRP', p_item_group_id);
1515: FND_MSG_PUB.ADD;
1516: END IF;
1517: CLOSE chk_item_group_id_csr;
1510: IF (l_log_statement >= l_log_current_level) THEN
1511: FND_LOG.string(l_log_statement, l_full_name, 'invalid item group id');
1512: END IF;
1513: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_MC_ITEMGRP_INVALID'); -- Item Group ITEM_GRP is invalid.
1514: FND_MESSAGE.Set_Token('ITEM_GRP', p_item_group_id);
1515: FND_MSG_PUB.ADD;
1516: END IF;
1517: CLOSE chk_item_group_id_csr;
1518: OPEN chk_item_group_id_csr(p_src_item_group_id);
1521: -- invalid source item group id
1522: IF (l_log_statement >= l_log_current_level) THEN
1523: FND_LOG.string(l_log_statement, l_full_name, 'invalid source item group id');
1524: END IF;
1525: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_MC_ITEMGRP_INVALID'); -- Item Group ITEM_GRP is invalid.
1526: FND_MESSAGE.Set_Token('ITEM_GRP', p_src_item_group_id);
1527: FND_MSG_PUB.ADD;
1528: END IF;
1529: CLOSE chk_item_group_id_csr;
1522: IF (l_log_statement >= l_log_current_level) THEN
1523: FND_LOG.string(l_log_statement, l_full_name, 'invalid source item group id');
1524: END IF;
1525: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_MC_ITEMGRP_INVALID'); -- Item Group ITEM_GRP is invalid.
1526: FND_MESSAGE.Set_Token('ITEM_GRP', p_src_item_group_id);
1527: FND_MSG_PUB.ADD;
1528: END IF;
1529: CLOSE chk_item_group_id_csr;
1530:
1781: IF (l_log_statement >= l_log_current_level) THEN
1782: FND_LOG.string(l_log_statement, l_full_name, 'invalid unit header id');
1783: END IF;
1784: -- The Unit Configuration header identifier UC_HEADER_ID is invalid.
1785: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UC_HEADER_ID_INVALID');
1786: FND_MESSAGE.Set_Token('UC_HEADER_ID', p_uc_header_id);
1787: FND_MSG_PUB.ADD;
1788: RAISE FND_API.G_EXC_ERROR;
1789: END IF;
1782: FND_LOG.string(l_log_statement, l_full_name, 'invalid unit header id');
1783: END IF;
1784: -- The Unit Configuration header identifier UC_HEADER_ID is invalid.
1785: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UC_HEADER_ID_INVALID');
1786: FND_MESSAGE.Set_Token('UC_HEADER_ID', p_uc_header_id);
1787: FND_MSG_PUB.ADD;
1788: RAISE FND_API.G_EXC_ERROR;
1789: END IF;
1790: CLOSE chk_unit_header_id_csr;
1950: CLOSE chk_mr_header_id_csr;
1951: IF (l_log_statement >= l_log_current_level) THEN
1952: FND_LOG.string(l_log_statement, l_full_name, 'invalid MR header id');
1953: END IF;
1954: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UMP_PUE_MR_NOTFOUND'); -- Maintenance requirement ID (MR_ID) not found.
1955: FND_MESSAGE.Set_Token('MR_ID', p_mr_header_id);
1956: FND_MSG_PUB.ADD;
1957: RAISE FND_API.G_EXC_ERROR;
1958: END IF;
1951: IF (l_log_statement >= l_log_current_level) THEN
1952: FND_LOG.string(l_log_statement, l_full_name, 'invalid MR header id');
1953: END IF;
1954: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_UMP_PUE_MR_NOTFOUND'); -- Maintenance requirement ID (MR_ID) not found.
1955: FND_MESSAGE.Set_Token('MR_ID', p_mr_header_id);
1956: FND_MSG_PUB.ADD;
1957: RAISE FND_API.G_EXC_ERROR;
1958: END IF;
1959: CLOSE chk_mr_header_id_csr;