185: -- Initialize API return status to success
186: x_return_status := FND_API.G_RET_STS_SUCCESS;
187:
188: -- API body starts here
189: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
190: THEN
191: fnd_log.string
192: (
193: fnd_log.level_procedure,
187:
188: -- API body starts here
189: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
190: THEN
191: fnd_log.string
192: (
193: fnd_log.level_procedure,
194: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
195: 'At the start of PLSQL procedure'
189: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
190: THEN
191: fnd_log.string
192: (
193: fnd_log.level_procedure,
194: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
195: 'At the start of PLSQL procedure'
196: );
197: END IF;
203: IF NOT (l_header_status IN ('DRAFT', 'APPROVAL_REJECTED'))
204: THEN
205: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NODE_STS_INV');
206: FND_MSG_PUB.ADD;
207: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
208: THEN
209: fnd_log.message
210: (
211: fnd_log.level_exception,
205: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NODE_STS_INV');
206: FND_MSG_PUB.ADD;
207: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
208: THEN
209: fnd_log.message
210: (
211: fnd_log.level_exception,
212: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
213: false
207: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
208: THEN
209: fnd_log.message
210: (
211: fnd_log.level_exception,
212: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
213: false
214: );
215: END IF;
243: THEN
244: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_DUP_POSKEY');
245: FND_MESSAGE.Set_Token('POSREF', p_x_node_rec.position_ref_meaning);
246: FND_MSG_PUB.ADD;
247: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
248: THEN
249: fnd_log.message
250: (
251: fnd_log.level_exception,
245: FND_MESSAGE.Set_Token('POSREF', p_x_node_rec.position_ref_meaning);
246: FND_MSG_PUB.ADD;
247: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
248: THEN
249: fnd_log.message
250: (
251: fnd_log.level_exception,
252: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
253: false
247: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
248: THEN
249: fnd_log.message
250: (
251: fnd_log.level_exception,
252: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
253: false
254: );
255: END IF;
262: IF x_msg_count > 0 THEN
263: RAISE FND_API.G_EXC_ERROR;
264: END IF;
265:
266: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
267: THEN
268: fnd_log.string
269: (
270: fnd_log.level_statement,
264: END IF;
265:
266: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
267: THEN
268: fnd_log.string
269: (
270: fnd_log.level_statement,
271: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
272: 'Node validation successful'
266: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
267: THEN
268: fnd_log.string
269: (
270: fnd_log.level_statement,
271: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
272: 'Node validation successful'
273: );
274: END IF;
360: --priyan MEL-CDL
361: p_x_node_rec.ata_code
362: );
363:
364: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
365: THEN
366: fnd_log.string
367: (
368: fnd_log.level_statement,
362: );
363:
364: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
365: THEN
366: fnd_log.string
367: (
368: fnd_log.level_statement,
369: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
370: 'Node ['||p_x_node_rec.relationship_id||'] created'
364: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
365: THEN
366: fnd_log.string
367: (
368: fnd_log.level_statement,
369: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
370: 'Node ['||p_x_node_rec.relationship_id||'] created'
371: );
372: END IF;
390: IF x_msg_count > 0 THEN
391: RAISE FND_API.G_EXC_ERROR;
392: END IF;
393:
394: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
395: THEN
396: fnd_log.string
397: (
398: fnd_log.level_statement,
392: END IF;
393:
394: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
395: THEN
396: fnd_log.string
397: (
398: fnd_log.level_statement,
399: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
400: 'Counter rule ['||p_x_counter_rules_tbl(i).ctr_update_rule_id||'] created'
394: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
395: THEN
396: fnd_log.string
397: (
398: fnd_log.level_statement,
399: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
400: 'Counter rule ['||p_x_counter_rules_tbl(i).ctr_update_rule_id||'] created'
401: );
402: END IF;
426: IF x_msg_count > 0 THEN
427: RAISE FND_API.G_EXC_ERROR;
428: END IF;
429:
430: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
431: THEN
432: fnd_log.string
433: (
434: fnd_log.level_statement,
428: END IF;
429:
430: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
431: THEN
432: fnd_log.string
433: (
434: fnd_log.level_statement,
435: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
436: 'Counter rule ['||p_x_subconfig_tbl(i).mc_config_relation_id||'] created'
430: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
431: THEN
432: fnd_log.string
433: (
434: fnd_log.level_statement,
435: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
436: 'Counter rule ['||p_x_subconfig_tbl(i).mc_config_relation_id||'] created'
437: );
438: END IF;
441: validate_priority(p_x_subconfig_tbl);
442:
443: END IF;
444:
445: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
446: THEN
447: fnd_log.string
448: (
449: fnd_log.level_procedure,
443: END IF;
444:
445: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
446: THEN
447: fnd_log.string
448: (
449: fnd_log.level_procedure,
450: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.end',
451: 'At the end of PLSQL procedure'
445: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
446: THEN
447: fnd_log.string
448: (
449: fnd_log.level_procedure,
450: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.end',
451: 'At the end of PLSQL procedure'
452: );
453: END IF;
639: -- Initialize API return status to success
640: x_return_status := FND_API.G_RET_STS_SUCCESS;
641:
642: -- API body starts here
643: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
644: THEN
645: fnd_log.string
646: (
647: fnd_log.level_procedure,
641:
642: -- API body starts here
643: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
644: THEN
645: fnd_log.string
646: (
647: fnd_log.level_procedure,
648: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
649: ' At the start of PLSQL procedure'
643: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
644: THEN
645: fnd_log.string
646: (
647: fnd_log.level_procedure,
648: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
649: ' At the start of PLSQL procedure'
650: );
651: END IF;
659: IF NOT (l_header_status IN ('DRAFT', 'APPROVAL_REJECTED'))
660: THEN
661: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NODE_STS_INV');
662: FND_MSG_PUB.ADD;
663: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
664: THEN
665: fnd_log.message
666: (
667: fnd_log.level_exception,
661: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NODE_STS_INV');
662: FND_MSG_PUB.ADD;
663: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
664: THEN
665: fnd_log.message
666: (
667: fnd_log.level_exception,
668: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
669: false
663: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
664: THEN
665: fnd_log.message
666: (
667: fnd_log.level_exception,
668: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
669: false
670: );
671: END IF;
701: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_POSKEY_NOUPD');
702: FND_MESSAGE.Set_Token('POSREF', p_x_node_rec.position_ref_meaning);
703: FND_MSG_PUB.ADD;
704:
705: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
706: THEN
707: fnd_log.message
708: (
709: fnd_log.level_exception,
703: FND_MSG_PUB.ADD;
704:
705: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
706: THEN
707: fnd_log.message
708: (
709: fnd_log.level_exception,
710: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
711: false
705: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
706: THEN
707: fnd_log.message
708: (
709: fnd_log.level_exception,
710: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
711: false
712: );
713: END IF;
722: IF x_msg_count > 0 THEN
723: RAISE FND_API.G_EXC_ERROR;
724: END IF;
725:
726: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
727: THEN
728: fnd_log.string
729: (
730: fnd_log.level_statement,
724: END IF;
725:
726: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
727: THEN
728: fnd_log.string
729: (
730: fnd_log.level_statement,
731: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
732: 'Node validation successful'
726: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
727: THEN
728: fnd_log.string
729: (
730: fnd_log.level_statement,
731: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
732: 'Node validation successful'
733: );
734: END IF;
772: ATA_CODE = p_x_node_rec.ata_code
773: WHERE RELATIONSHIP_ID = p_x_node_rec.relationship_id;
774:
775:
776: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
777: THEN
778: fnd_log.string
779: (
780: fnd_log.level_statement,
774:
775:
776: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
777: THEN
778: fnd_log.string
779: (
780: fnd_log.level_statement,
781: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
782: 'Node ['||p_x_node_rec.relationship_id||'] updated'
776: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
777: THEN
778: fnd_log.string
779: (
780: fnd_log.level_statement,
781: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
782: 'Node ['||p_x_node_rec.relationship_id||'] updated'
783: );
784: END IF;
796: IF NOT (l_header_status IN ('DRAFT', 'APPROVAL_REJECTED'))
797: THEN
798: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NODE_STS_INV');
799: FND_MSG_PUB.ADD;
800: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
801: THEN
802: fnd_log.message
803: (
804: fnd_log.level_exception,
798: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NODE_STS_INV');
799: FND_MSG_PUB.ADD;
800: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
801: THEN
802: fnd_log.message
803: (
804: fnd_log.level_exception,
805: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
806: false
800: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
801: THEN
802: fnd_log.message
803: (
804: fnd_log.level_exception,
805: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
806: false
807: );
808: END IF;
821: IF (trunc(nvl(l_end_date, G_SYSDATE + 1)) <= G_TRUNC_DATE)
822: THEN
823: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_END_DATE_INV');
824: FND_MSG_PUB.ADD;
825: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
826: THEN
827: fnd_log.message
828: (
829: fnd_log.level_exception,
823: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_END_DATE_INV');
824: FND_MSG_PUB.ADD;
825: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
826: THEN
827: fnd_log.message
828: (
829: fnd_log.level_exception,
830: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
831: false
825: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
826: THEN
827: fnd_log.message
828: (
829: fnd_log.level_exception,
830: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
831: false
832: );
833: END IF;
838: IF x_msg_count > 0 THEN
839: RAISE FND_API.G_EXC_ERROR;
840: END IF;
841:
842: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
843: THEN
844: fnd_log.string
845: (
846: fnd_log.level_statement,
840: END IF;
841:
842: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
843: THEN
844: fnd_log.string
845: (
846: fnd_log.level_statement,
847: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
848: 'Node validation successful'
842: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
843: THEN
844: fnd_log.string
845: (
846: fnd_log.level_statement,
847: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
848: 'Node validation successful'
849: );
850: END IF;
849: );
850: END IF;
851: END IF;
852:
853: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
854: THEN
855: fnd_log.string
856: (
857: fnd_log.level_statement,
851: END IF;
852:
853: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
854: THEN
855: fnd_log.string
856: (
857: fnd_log.level_statement,
858: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
859: 'Processing counter rules and subconfig table'
853: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
854: THEN
855: fnd_log.string
856: (
857: fnd_log.level_statement,
858: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
859: 'Processing counter rules and subconfig table'
860: );
861: END IF;
933:
934: validate_priority(p_x_subconfig_tbl);
935: END IF;
936:
937: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
938: THEN
939: fnd_log.string
940: (
941: fnd_log.level_procedure,
935: END IF;
936:
937: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
938: THEN
939: fnd_log.string
940: (
941: fnd_log.level_procedure,
942: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.end',
943: 'At the end of PLSQL procedure'
937: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
938: THEN
939: fnd_log.string
940: (
941: fnd_log.level_procedure,
942: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.end',
943: 'At the end of PLSQL procedure'
944: );
945: END IF;
1139: -- Initialize API return status to success
1140: x_return_status := FND_API.G_RET_STS_SUCCESS;
1141:
1142: -- API body starts here
1143: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1144: THEN
1145: fnd_log.string
1146: (
1147: fnd_log.level_procedure,
1141:
1142: -- API body starts here
1143: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1144: THEN
1145: fnd_log.string
1146: (
1147: fnd_log.level_procedure,
1148: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
1149: 'At the start of PLSQL procedure'
1143: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1144: THEN
1145: fnd_log.string
1146: (
1147: fnd_log.level_procedure,
1148: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
1149: 'At the start of PLSQL procedure'
1150: );
1151: END IF;
1158: IF NOT (l_header_status IN ('DRAFT', 'APPROVAL_REJECTED'))
1159: THEN
1160: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NODE_STS_INV');
1161: FND_MSG_PUB.ADD;
1162: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
1163: THEN
1164: fnd_log.message
1165: (
1166: fnd_log.level_exception,
1160: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NODE_STS_INV');
1161: FND_MSG_PUB.ADD;
1162: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
1163: THEN
1164: fnd_log.message
1165: (
1166: fnd_log.level_exception,
1167: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
1168: false
1162: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
1163: THEN
1164: fnd_log.message
1165: (
1166: fnd_log.level_exception,
1167: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
1168: false
1169: );
1170: END IF;
1185: -- 9d. Delete all subconfiguration associations with the current node
1186: DELETE FROM ahl_mc_config_relations
1187: WHERE relationship_id = l_node_csr_rec.relationship_id;
1188:
1189: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1190: THEN
1191: fnd_log.string
1192: (
1193: fnd_log.level_statement,
1187: WHERE relationship_id = l_node_csr_rec.relationship_id;
1188:
1189: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1190: THEN
1191: fnd_log.string
1192: (
1193: fnd_log.level_statement,
1194: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
1195: 'Detached subconfigs for node ['||l_node_csr_rec.relationship_id||']'
1189: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1190: THEN
1191: fnd_log.string
1192: (
1193: fnd_log.level_statement,
1194: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
1195: 'Detached subconfigs for node ['||l_node_csr_rec.relationship_id||']'
1196: );
1197: END IF;
1199: -- 9g. Delete all counter rule associations with the current node
1200: DELETE FROM ahl_ctr_update_rules
1201: WHERE relationship_id = l_node_csr_rec.relationship_id;
1202:
1203: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1204: THEN
1205: fnd_log.string
1206: (
1207: fnd_log.level_statement,
1201: WHERE relationship_id = l_node_csr_rec.relationship_id;
1202:
1203: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1204: THEN
1205: fnd_log.string
1206: (
1207: fnd_log.level_statement,
1208: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
1209: 'Detached counter rules for node ['||l_node_csr_rec.relationship_id||']'
1203: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1204: THEN
1205: fnd_log.string
1206: (
1207: fnd_log.level_statement,
1208: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
1209: 'Detached counter rules for node ['||l_node_csr_rec.relationship_id||']'
1210: );
1211: END IF;
1224: x_msg_count => l_msg_count,
1225: x_msg_data => l_msg_data
1226: );
1227:
1228: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1229: THEN
1230: fnd_log.string
1231: (
1232: fnd_log.level_statement,
1226: );
1227:
1228: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1229: THEN
1230: fnd_log.string
1231: (
1232: fnd_log.level_statement,
1233: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
1234: 'Deleted document associations for node ['||l_node_csr_rec.relationship_id||']'
1228: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1229: THEN
1230: fnd_log.string
1231: (
1232: fnd_log.level_statement,
1233: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
1234: 'Deleted document associations for node ['||l_node_csr_rec.relationship_id||']'
1235: );
1236: END IF;
1240: WHERE relationship_id = l_node_csr_rec.relationship_id;
1241:
1242: END LOOP;
1243:
1244: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1245: THEN
1246: fnd_log.string
1247: (
1248: fnd_log.level_procedure,
1242: END LOOP;
1243:
1244: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1245: THEN
1246: fnd_log.string
1247: (
1248: fnd_log.level_procedure,
1249: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.end',
1250: 'At the end of PLSQL procedure'
1244: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1245: THEN
1246: fnd_log.string
1247: (
1248: fnd_log.level_procedure,
1249: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.end',
1250: 'At the end of PLSQL procedure'
1251: );
1252: END IF;
1358: -- Initialize API return status to success
1359: x_return_status := FND_API.G_RET_STS_SUCCESS;
1360:
1361: -- API body starts here
1362: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1363: THEN
1364: fnd_log.string
1365: (
1366: fnd_log.level_procedure,
1360:
1361: -- API body starts here
1362: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1363: THEN
1364: fnd_log.string
1365: (
1366: fnd_log.level_procedure,
1367: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
1368: 'At the start of PLSQL procedure'
1362: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1363: THEN
1364: fnd_log.string
1365: (
1366: fnd_log.level_procedure,
1367: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
1368: 'At the start of PLSQL procedure'
1369: );
1370: END IF;
1378: IF NOT (l_header_status IN ('DRAFT', 'APPROVAL_REJECTED'))
1379: THEN
1380: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NODE_STS_INV');
1381: FND_MSG_PUB.ADD;
1382: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
1383: THEN
1384: fnd_log.message
1385: (
1386: fnd_log.level_exception,
1380: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NODE_STS_INV');
1381: FND_MSG_PUB.ADD;
1382: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
1383: THEN
1384: fnd_log.message
1385: (
1386: fnd_log.level_exception,
1387: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
1388: false
1382: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
1383: THEN
1384: fnd_log.message
1385: (
1386: fnd_log.level_exception,
1387: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
1388: false
1389: );
1390: END IF;
1403: IF x_msg_count > 0 THEN
1404: RAISE FND_API.G_EXC_ERROR;
1405: END IF;
1406:
1407: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1408: THEN
1409: fnd_log.string
1410: (
1411: fnd_log.level_statement,
1405: END IF;
1406:
1407: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1408: THEN
1409: fnd_log.string
1410: (
1411: fnd_log.level_statement,
1412: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
1413: 'Node validation successful... Calling Copy_MC_Nodes'
1407: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1408: THEN
1409: fnd_log.string
1410: (
1411: fnd_log.level_statement,
1412: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
1413: 'Node validation successful... Calling Copy_MC_Nodes'
1414: );
1415: END IF;
1442: WHEN OTHERS THEN
1443: NULL;
1444: END;
1445:
1446: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1447: THEN
1448: fnd_log.string
1449: (
1450: fnd_log.level_procedure,
1444: END;
1445:
1446: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1447: THEN
1448: fnd_log.string
1449: (
1450: fnd_log.level_procedure,
1451: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.end',
1452: 'At the end of PLSQL procedure'
1446: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1447: THEN
1448: fnd_log.string
1449: (
1450: fnd_log.level_procedure,
1451: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.end',
1452: 'At the end of PLSQL procedure'
1453: );
1454: END IF;
1647: -- Initialize API return status to success
1648: x_return_status := FND_API.G_RET_STS_SUCCESS;
1649:
1650: -- API body starts here
1651: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1652: THEN
1653: fnd_log.string
1654: (
1655: fnd_log.level_procedure,
1649:
1650: -- API body starts here
1651: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1652: THEN
1653: fnd_log.string
1654: (
1655: fnd_log.level_procedure,
1656: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
1657: 'At the start of PLSQL procedure'
1651: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1652: THEN
1653: fnd_log.string
1654: (
1655: fnd_log.level_procedure,
1656: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
1657: 'At the start of PLSQL procedure'
1658: );
1659: END IF;
1661: OPEN get_mc_header_id;
1662: FETCH get_mc_header_id INTO l_mc_header_id;
1663: CLOSE get_mc_header_id;
1664:
1665: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1666: THEN
1667: fnd_log.string
1668: (
1669: fnd_log.level_statement,
1663: CLOSE get_mc_header_id;
1664:
1665: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1666: THEN
1667: fnd_log.string
1668: (
1669: fnd_log.level_statement,
1670: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
1671: 'Starting the copy of the node tree for node ['||p_source_rel_id||'] to node ['||p_dest_rel_id||']'
1665: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1666: THEN
1667: fnd_log.string
1668: (
1669: fnd_log.level_statement,
1670: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
1671: 'Starting the copy of the node tree for node ['||p_source_rel_id||'] to node ['||p_dest_rel_id||']'
1672: );
1673: END IF;
1875: END IF;
1876:
1877: l_ctr_iterator := 0;
1878:
1879: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1880: THEN
1881: fnd_log.string
1882: (
1883: fnd_log.level_statement,
1877: l_ctr_iterator := 0;
1878:
1879: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1880: THEN
1881: fnd_log.string
1882: (
1883: fnd_log.level_statement,
1884: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
1885: 'Creating new node with parent node ['||l_nodes_tbl(i).parent_relationship_id||'], position reference ['||l_nodes_tbl(i).position_ref_code||']'
1879: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1880: THEN
1881: fnd_log.string
1882: (
1883: fnd_log.level_statement,
1884: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
1885: 'Creating new node with parent node ['||l_nodes_tbl(i).parent_relationship_id||'], position reference ['||l_nodes_tbl(i).position_ref_code||']'
1886: );
1887: END IF;
1895: THEN
1896: l_ctr_iterator := l_ctr_iterator + 1;
1897: l_node_ctr_rules_tbl(l_ctr_iterator) := l_ctr_rules_tbl(j);
1898:
1899: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1900: THEN
1901: fnd_log.string
1902: (
1903: fnd_log.level_statement,
1897: l_node_ctr_rules_tbl(l_ctr_iterator) := l_ctr_rules_tbl(j);
1898:
1899: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1900: THEN
1901: fnd_log.string
1902: (
1903: fnd_log.level_statement,
1904: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
1905: 'Creating new counter rule ['||l_node_ctr_rules_tbl(l_ctr_iterator).ctr_update_rule_id||']'
1899: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1900: THEN
1901: fnd_log.string
1902: (
1903: fnd_log.level_statement,
1904: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
1905: 'Creating new counter rule ['||l_node_ctr_rules_tbl(l_ctr_iterator).ctr_update_rule_id||']'
1906: );
1907: END IF;
1929: IF x_msg_count > 0 THEN
1930: RAISE FND_API.G_EXC_ERROR;
1931: END IF;
1932:
1933: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1934: THEN
1935: fnd_log.string
1936: (
1937: fnd_log.level_statement,
1931: END IF;
1932:
1933: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1934: THEN
1935: fnd_log.string
1936: (
1937: fnd_log.level_statement,
1938: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
1939: 'New Node ['||l_nodes_tbl(i).relationship_id||', '||l_nodes_tbl(i).position_ref_code||'] created'
1933: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1934: THEN
1935: fnd_log.string
1936: (
1937: fnd_log.level_statement,
1938: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
1939: 'New Node ['||l_nodes_tbl(i).relationship_id||', '||l_nodes_tbl(i).position_ref_code||'] created'
1940: );
1941: END IF;
1946: IF (l_nodes_tbl(x).PARENT_NODE_REC_INDEX = i)
1947: THEN
1948: l_nodes_tbl(x).PARENT_RELATIONSHIP_ID := l_nodes_tbl(i).RELATIONSHIP_ID;
1949:
1950: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1951: THEN
1952: fnd_log.string
1953: (
1954: fnd_log.level_statement,
1948: l_nodes_tbl(x).PARENT_RELATIONSHIP_ID := l_nodes_tbl(i).RELATIONSHIP_ID;
1949:
1950: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1951: THEN
1952: fnd_log.string
1953: (
1954: fnd_log.level_statement,
1955: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
1956: 'Populated node ['||l_nodes_tbl(x).position_ref_code||'] with parent relationship id ['||l_nodes_tbl(i).RELATIONSHIP_ID||']'
1950: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1951: THEN
1952: fnd_log.string
1953: (
1954: fnd_log.level_statement,
1955: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
1956: 'Populated node ['||l_nodes_tbl(x).position_ref_code||'] with parent relationship id ['||l_nodes_tbl(i).RELATIONSHIP_ID||']'
1957: );
1958: END IF;
1962:
1963: -- 7m. Iterate through the l_node_tbl table to copy all document and subconfiguration associations
1964: FOR i IN l_nodes_tbl.FIRST..l_nodes_tbl.LAST
1965: LOOP
1966: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1967: THEN
1968: fnd_log.string
1969: (
1970: fnd_log.level_statement,
1964: FOR i IN l_nodes_tbl.FIRST..l_nodes_tbl.LAST
1965: LOOP
1966: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1967: THEN
1968: fnd_log.string
1969: (
1970: fnd_log.level_statement,
1971: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
1972: 'Document associations for node ['||l_old_node_id_tbl(i)||'] copied to node ['||l_nodes_tbl(i).relationship_id||']'
1966: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1967: THEN
1968: fnd_log.string
1969: (
1970: fnd_log.level_statement,
1971: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
1972: 'Document associations for node ['||l_old_node_id_tbl(i)||'] copied to node ['||l_nodes_tbl(i).relationship_id||']'
1973: );
1974: END IF;
1993: IF x_msg_count > 0 THEN
1994: RAISE FND_API.G_EXC_ERROR;
1995: END IF;
1996:
1997: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1998: THEN
1999: fnd_log.string
2000: (
2001: fnd_log.level_statement,
1995: END IF;
1996:
1997: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1998: THEN
1999: fnd_log.string
2000: (
2001: fnd_log.level_statement,
2002: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
2003: 'Subconfig associations for node ['||l_old_node_id_tbl(i)||'] copied to node ['||l_nodes_tbl(i).relationship_id||']'
1997: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
1998: THEN
1999: fnd_log.string
2000: (
2001: fnd_log.level_statement,
2002: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
2003: 'Subconfig associations for node ['||l_old_node_id_tbl(i)||'] copied to node ['||l_nodes_tbl(i).relationship_id||']'
2004: );
2005: END IF;
2018: END IF;
2019: END LOOP;
2020: END IF;
2021:
2022: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2023: THEN
2024: fnd_log.string
2025: (
2026: fnd_log.level_procedure,
2020: END IF;
2021:
2022: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2023: THEN
2024: fnd_log.string
2025: (
2026: fnd_log.level_procedure,
2027: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.end',
2028: 'At the end of PLSQL procedure'
2022: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2023: THEN
2024: fnd_log.string
2025: (
2026: fnd_log.level_procedure,
2027: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.end',
2028: 'At the end of PLSQL procedure'
2029: );
2030: END IF;
2135: -- Initialize API return status to success
2136: x_return_status := FND_API.G_RET_STS_SUCCESS;
2137:
2138: -- API body starts here
2139: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2140: THEN
2141: fnd_log.string
2142: (
2143: fnd_log.level_procedure,
2137:
2138: -- API body starts here
2139: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2140: THEN
2141: fnd_log.string
2142: (
2143: fnd_log.level_procedure,
2144: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
2145: 'At the start of PLSQL procedure'
2139: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2140: THEN
2141: fnd_log.string
2142: (
2143: fnd_log.level_procedure,
2144: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
2145: 'At the start of PLSQL procedure'
2146: );
2147: END IF;
2155: IF NOT (l_header_status IN ('DRAFT', 'APPROVAL_REJECTED', 'COMPLETE'))
2156: THEN
2157: FND_MESSAGE.Set_Name('AHL', 'AHL_DI_ASSO_UPDATE_ERROR');
2158: FND_MSG_PUB.ADD;
2159: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2160: THEN
2161: fnd_log.message
2162: (
2163: fnd_log.level_exception,
2157: FND_MESSAGE.Set_Name('AHL', 'AHL_DI_ASSO_UPDATE_ERROR');
2158: FND_MSG_PUB.ADD;
2159: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2160: THEN
2161: fnd_log.message
2162: (
2163: fnd_log.level_exception,
2164: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
2165: false
2159: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2160: THEN
2161: fnd_log.message
2162: (
2163: fnd_log.level_exception,
2164: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
2165: false
2166: );
2167: END IF;
2177: IF x_msg_count > 0 THEN
2178: RAISE FND_API.G_EXC_ERROR;
2179: END IF;
2180:
2181: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2182: THEN
2183: fnd_log.string
2184: (
2185: fnd_log.level_statement,
2179: END IF;
2180:
2181: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2182: THEN
2183: fnd_log.string
2184: (
2185: fnd_log.level_statement,
2186: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
2187: 'Node validation successful'
2181: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2182: THEN
2183: fnd_log.string
2184: (
2185: fnd_log.level_statement,
2186: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
2187: 'Node validation successful'
2188: );
2189: END IF;
2200: THEN
2201: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_DOC_NO_REV');
2202: FND_MESSAGE.Set_Token('DOC', p_x_documents_tbl(i).DOCUMENT_NO);
2203: FND_MSG_PUB.ADD;
2204: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2205: THEN
2206: fnd_log.message
2207: (
2208: fnd_log.level_exception,
2202: FND_MESSAGE.Set_Token('DOC', p_x_documents_tbl(i).DOCUMENT_NO);
2203: FND_MSG_PUB.ADD;
2204: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2205: THEN
2206: fnd_log.message
2207: (
2208: fnd_log.level_exception,
2209: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
2210: false
2204: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2205: THEN
2206: fnd_log.message
2207: (
2208: fnd_log.level_exception,
2209: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
2210: false
2211: );
2212: END IF;
2218: IF x_msg_count > 0 THEN
2219: RAISE FND_API.G_EXC_ERROR;
2220: END IF;
2221:
2222: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2223: THEN
2224: fnd_log.string
2225: (
2226: fnd_log.level_statement,
2220: END IF;
2221:
2222: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2223: THEN
2224: fnd_log.string
2225: (
2226: fnd_log.level_statement,
2227: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
2228: 'Document association validations successful... Calling AHL_DI_ASSO_DOC_GEN_PUB.PROCESS_ASSOCIATION'
2222: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2223: THEN
2224: fnd_log.string
2225: (
2226: fnd_log.level_statement,
2227: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
2228: 'Document association validations successful... Calling AHL_DI_ASSO_DOC_GEN_PUB.PROCESS_ASSOCIATION'
2229: );
2230: END IF;
2243: x_msg_data => l_msg_data
2244: );
2245: END IF;
2246:
2247: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2248: THEN
2249: fnd_log.string
2250: (
2251: fnd_log.level_procedure,
2245: END IF;
2246:
2247: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2248: THEN
2249: fnd_log.string
2250: (
2251: fnd_log.level_procedure,
2252: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.end',
2253: 'At the end of PLSQL procedure'
2247: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2248: THEN
2249: fnd_log.string
2250: (
2251: fnd_log.level_procedure,
2252: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.end',
2253: 'At the end of PLSQL procedure'
2254: );
2255: END IF;
2381: -- Initialize API return status to success
2382: x_return_status := FND_API.G_RET_STS_SUCCESS;
2383:
2384: -- API body starts here
2385: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2386: THEN
2387: fnd_log.string
2388: (
2389: fnd_log.level_procedure,
2383:
2384: -- API body starts here
2385: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2386: THEN
2387: fnd_log.string
2388: (
2389: fnd_log.level_procedure,
2390: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
2391: 'At the start of PLSQL procedure'
2385: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2386: THEN
2387: fnd_log.string
2388: (
2389: fnd_log.level_procedure,
2390: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
2391: 'At the start of PLSQL procedure'
2392: );
2393: END IF;
2401: IF NOT (l_header_status IN ('DRAFT', 'APPROVAL_REJECTED'))
2402: THEN
2403: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NODE_STS_INV');
2404: FND_MSG_PUB.ADD;
2405: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2406: THEN
2407: fnd_log.message
2408: (
2409: fnd_log.level_exception,
2403: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NODE_STS_INV');
2404: FND_MSG_PUB.ADD;
2405: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2406: THEN
2407: fnd_log.message
2408: (
2409: fnd_log.level_exception,
2410: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
2411: false
2405: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2406: THEN
2407: fnd_log.message
2408: (
2409: fnd_log.level_exception,
2410: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
2411: false
2412: );
2413: END IF;
2430: THEN
2431: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_ITEMGRP_INVALID');
2432: FND_MESSAGE.Set_Token('ITEM_GRP', p_nodes_tbl(i).item_group_id);
2433: FND_MSG_PUB.ADD;
2434: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2435: THEN
2436: fnd_log.message
2437: (
2438: fnd_log.level_exception,
2432: FND_MESSAGE.Set_Token('ITEM_GRP', p_nodes_tbl(i).item_group_id);
2433: FND_MSG_PUB.ADD;
2434: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2435: THEN
2436: fnd_log.message
2437: (
2438: fnd_log.level_exception,
2439: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
2440: false
2434: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2435: THEN
2436: fnd_log.message
2437: (
2438: fnd_log.level_exception,
2439: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
2440: false
2441: );
2442: END IF;
2459: THEN
2460: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_ITEMGRP_INVALID');
2461: FND_MESSAGE.Set_Token('ITEM_GRP', p_nodes_tbl(i).item_group_name);
2462: FND_MSG_PUB.ADD;
2463: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2464: THEN
2465: fnd_log.message
2466: (
2467: fnd_log.level_exception,
2461: FND_MESSAGE.Set_Token('ITEM_GRP', p_nodes_tbl(i).item_group_name);
2462: FND_MSG_PUB.ADD;
2463: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2464: THEN
2465: fnd_log.message
2466: (
2467: fnd_log.level_exception,
2468: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
2469: false
2463: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2464: THEN
2465: fnd_log.message
2466: (
2467: fnd_log.level_exception,
2468: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
2469: false
2470: );
2471: END IF;
2477: CLOSE get_item_group_csr;
2478: ELSE
2479: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_ITEMGRP_NULL');
2480: FND_MSG_PUB.ADD;
2481: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2482: THEN
2483: fnd_log.message
2484: (
2485: fnd_log.level_exception,
2479: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_ITEMGRP_NULL');
2480: FND_MSG_PUB.ADD;
2481: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2482: THEN
2483: fnd_log.message
2484: (
2485: fnd_log.level_exception,
2486: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
2487: false
2481: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2482: THEN
2483: fnd_log.message
2484: (
2485: fnd_log.level_exception,
2486: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
2487: false
2488: );
2489: END IF;
2488: );
2489: END IF;
2490: END IF;
2491:
2492: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2493: THEN
2494: fnd_log.string
2495: (
2496: fnd_log.level_statement,
2490: END IF;
2491:
2492: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2493: THEN
2494: fnd_log.string
2495: (
2496: fnd_log.level_statement,
2497: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
2498: 'Validation successful'
2492: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2493: THEN
2494: fnd_log.string
2495: (
2496: fnd_log.level_statement,
2497: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
2498: 'Validation successful'
2499: );
2500: END IF;
2508: UPDATE ahl_mc_relationships
2509: SET item_group_id = l_item_group_id
2510: WHERE relationship_id = p_nodes_tbl(i).relationship_id;
2511:
2512: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2513: THEN
2514: fnd_log.string
2515: (
2516: fnd_log.level_statement,
2510: WHERE relationship_id = p_nodes_tbl(i).relationship_id;
2511:
2512: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2513: THEN
2514: fnd_log.string
2515: (
2516: fnd_log.level_statement,
2517: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
2518: 'Updated MC node ['||p_nodes_tbl(i).relationship_id||'] with new item group id ['||l_item_group_id||']'
2512: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
2513: THEN
2514: fnd_log.string
2515: (
2516: fnd_log.level_statement,
2517: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
2518: 'Updated MC node ['||p_nodes_tbl(i).relationship_id||'] with new item group id ['||l_item_group_id||']'
2519: );
2520: END IF;
2520: END IF;
2521: END LOOP;
2522: END IF;
2523:
2524: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2525: THEN
2526: fnd_log.string
2527: (
2528: fnd_log.level_procedure,
2522: END IF;
2523:
2524: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2525: THEN
2526: fnd_log.string
2527: (
2528: fnd_log.level_procedure,
2529: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.end',
2530: 'At the end of PLSQL procedure'
2524: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
2525: THEN
2526: fnd_log.string
2527: (
2528: fnd_log.level_procedure,
2529: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.end',
2530: 'At the end of PLSQL procedure'
2531: );
2532: END IF;
2617: IF (check_node_exists%NOTFOUND)
2618: THEN
2619: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NODE_NOT_FOUND');
2620: FND_MSG_PUB.ADD;
2621: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2622: THEN
2623: fnd_log.message
2624: (
2625: fnd_log.level_exception,
2619: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NODE_NOT_FOUND');
2620: FND_MSG_PUB.ADD;
2621: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2622: THEN
2623: fnd_log.message
2624: (
2625: fnd_log.level_exception,
2626: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node_Exists',
2627: false
2621: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2622: THEN
2623: fnd_log.message
2624: (
2625: fnd_log.level_exception,
2626: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node_Exists',
2627: false
2628: );
2629: END IF;
2632: ELSIF (NVL(p_object_ver_num, l_dummy_number) <> l_dummy_number)
2633: THEN
2634: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
2635: FND_MSG_PUB.ADD;
2636: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2637: THEN
2638: fnd_log.message
2639: (
2640: fnd_log.level_exception,
2634: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
2635: FND_MSG_PUB.ADD;
2636: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2637: THEN
2638: fnd_log.message
2639: (
2640: fnd_log.level_exception,
2641: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node_Exists',
2642: false
2636: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2637: THEN
2638: fnd_log.message
2639: (
2640: fnd_log.level_exception,
2641: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node_Exists',
2642: false
2643: );
2644: END IF;
2755: THEN
2756: -- 2a. Validate that the parent node exists
2757: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_PARENT_INVALID');
2758: FND_MSG_PUB.ADD;
2759: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2760: THEN
2761: fnd_log.message
2762: (
2763: fnd_log.level_exception,
2757: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_PARENT_INVALID');
2758: FND_MSG_PUB.ADD;
2759: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2760: THEN
2761: fnd_log.message
2762: (
2763: fnd_log.level_exception,
2764: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
2765: false
2759: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2760: THEN
2761: fnd_log.message
2762: (
2763: fnd_log.level_exception,
2764: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
2765: false
2766: );
2767: END IF;
2775: IF (l_qty <> 1)
2776: THEN
2777: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_PARENT_QTY_INV');
2778: FND_MSG_PUB.ADD;
2779: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2780: THEN
2781: fnd_log.message
2782: (
2783: fnd_log.level_exception,
2777: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_PARENT_QTY_INV');
2778: FND_MSG_PUB.ADD;
2779: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2780: THEN
2781: fnd_log.message
2782: (
2783: fnd_log.level_exception,
2784: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
2785: false
2779: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2780: THEN
2781: fnd_log.message
2782: (
2783: fnd_log.level_exception,
2784: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
2785: false
2786: );
2787: END IF;
2791: IF (trunc(nvl(l_end_date, G_SYSDATE + 1)) <= G_TRUNC_DATE)
2792: THEN
2793: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_PARENT_DATE_INV');
2794: FND_MSG_PUB.ADD;
2795: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2796: THEN
2797: fnd_log.message
2798: (
2799: fnd_log.level_exception,
2793: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_PARENT_DATE_INV');
2794: FND_MSG_PUB.ADD;
2795: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2796: THEN
2797: fnd_log.message
2798: (
2799: fnd_log.level_exception,
2800: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
2801: false
2795: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2796: THEN
2797: fnd_log.message
2798: (
2799: fnd_log.level_exception,
2800: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
2801: false
2802: );
2803: END IF;
2809: IF (check_subconfig_assos%FOUND)
2810: THEN
2811: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_PARENT_HAS_SUBMC');
2812: FND_MSG_PUB.ADD;
2813: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2814: THEN
2815: fnd_log.message
2816: (
2817: fnd_log.level_exception,
2811: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_PARENT_HAS_SUBMC');
2812: FND_MSG_PUB.ADD;
2813: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2814: THEN
2815: fnd_log.message
2816: (
2817: fnd_log.level_exception,
2818: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
2819: false
2813: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2814: THEN
2815: fnd_log.message
2816: (
2817: fnd_log.level_exception,
2818: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
2819: false
2820: );
2821: END IF;
2829: THEN
2830: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_PARCHD_INVALID');
2831: FND_MESSAGE.Set_Token('CHILD', p_x_node_rec.position_ref_meaning);
2832: FND_MSG_PUB.ADD;
2833: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2834: THEN
2835: fnd_log.message
2836: (
2837: fnd_log.level_exception,
2831: FND_MESSAGE.Set_Token('CHILD', p_x_node_rec.position_ref_meaning);
2832: FND_MSG_PUB.ADD;
2833: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2834: THEN
2835: fnd_log.message
2836: (
2837: fnd_log.level_exception,
2838: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
2839: false
2833: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2834: THEN
2835: fnd_log.message
2836: (
2837: fnd_log.level_exception,
2838: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
2839: false
2840: );
2841: END IF;
2850: IF (check_topnode_exists%FOUND)
2851: THEN
2852: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_PARENT_EXISTS');
2853: FND_MSG_PUB.ADD;
2854: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2855: THEN
2856: fnd_log.message
2857: (
2858: fnd_log.level_exception,
2852: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_PARENT_EXISTS');
2853: FND_MSG_PUB.ADD;
2854: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2855: THEN
2856: fnd_log.message
2857: (
2858: fnd_log.level_exception,
2859: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
2860: false
2854: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2855: THEN
2856: fnd_log.message
2857: (
2858: fnd_log.level_exception,
2859: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
2860: false
2861: );
2862: END IF;
2873: THEN
2874: -- This is a mandatory field, hence throw error
2875: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_POSREF_NULL');
2876: FND_MSG_PUB.ADD;
2877: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2878: THEN
2879: fnd_log.message
2880: (
2881: fnd_log.level_exception,
2875: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_POSREF_NULL');
2876: FND_MSG_PUB.ADD;
2877: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2878: THEN
2879: fnd_log.message
2880: (
2881: fnd_log.level_exception,
2882: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
2883: false
2877: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2878: THEN
2879: fnd_log.message
2880: (
2881: fnd_log.level_exception,
2882: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
2883: false
2884: );
2885: END IF;
2896: THEN
2897: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_POSREF_INVALID');
2898: FND_MESSAGE.Set_Token('POSREF', p_x_node_rec.position_ref_meaning);
2899: FND_MSG_PUB.ADD;
2900: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2901: THEN
2902: fnd_log.message
2903: (
2904: fnd_log.level_exception,
2898: FND_MESSAGE.Set_Token('POSREF', p_x_node_rec.position_ref_meaning);
2899: FND_MSG_PUB.ADD;
2900: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2901: THEN
2902: fnd_log.message
2903: (
2904: fnd_log.level_exception,
2905: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
2906: false
2900: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2901: THEN
2902: fnd_log.message
2903: (
2904: fnd_log.level_exception,
2905: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
2906: false
2907: );
2908: END IF;
2914: THEN
2915: -- This is a mandatory field, hence throw error
2916: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NECESSITY_NULL');
2917: FND_MSG_PUB.ADD;
2918: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2919: THEN
2920: fnd_log.message
2921: (
2922: fnd_log.level_exception,
2916: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NECESSITY_NULL');
2917: FND_MSG_PUB.ADD;
2918: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2919: THEN
2920: fnd_log.message
2921: (
2922: fnd_log.level_exception,
2923: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
2924: false
2918: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2919: THEN
2920: fnd_log.message
2921: (
2922: fnd_log.level_exception,
2923: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
2924: false
2925: );
2926: END IF;
2929: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NECESSITY_INVALID');
2930: FND_MESSAGE.Set_Token('POSREF', p_x_node_rec.position_ref_meaning);
2931: FND_MESSAGE.Set_Token('CODE', p_x_node_rec.position_necessity_code);
2932: FND_MSG_PUB.ADD;
2933: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2934: THEN
2935: fnd_log.message
2936: (
2937: fnd_log.level_exception,
2931: FND_MESSAGE.Set_Token('CODE', p_x_node_rec.position_necessity_code);
2932: FND_MSG_PUB.ADD;
2933: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2934: THEN
2935: fnd_log.message
2936: (
2937: fnd_log.level_exception,
2938: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
2939: false
2933: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2934: THEN
2935: fnd_log.message
2936: (
2937: fnd_log.level_exception,
2938: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
2939: false
2940: );
2941: END IF;
2952: THEN
2953: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_ITEMGRP_INVALID');
2954: FND_MESSAGE.Set_Token('ITEM_GRP', p_x_node_rec.item_group_name);
2955: FND_MSG_PUB.ADD;
2956: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2957: THEN
2958: fnd_log.message
2959: (
2960: fnd_log.level_exception,
2954: FND_MESSAGE.Set_Token('ITEM_GRP', p_x_node_rec.item_group_name);
2955: FND_MSG_PUB.ADD;
2956: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2957: THEN
2958: fnd_log.message
2959: (
2960: fnd_log.level_exception,
2961: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
2962: false
2956: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2957: THEN
2958: fnd_log.message
2959: (
2960: fnd_log.level_exception,
2961: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
2962: false
2963: );
2964: END IF;
2974: IF (check_item_assos_qty%FOUND)
2975: THEN
2976: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_ITEM_ASSOS_QTY_INV');
2977: FND_MSG_PUB.ADD;
2978: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2979: THEN
2980: fnd_log.message
2981: (
2982: fnd_log.level_exception,
2976: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_ITEM_ASSOS_QTY_INV');
2977: FND_MSG_PUB.ADD;
2978: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2979: THEN
2980: fnd_log.message
2981: (
2982: fnd_log.level_exception,
2983: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
2984: false
2978: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2979: THEN
2980: fnd_log.message
2981: (
2982: fnd_log.level_exception,
2983: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
2984: false
2985: );
2986: END IF;
2993: THEN
2994: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_IG_NOT_TRACKED');
2995: FND_MESSAGE.Set_Token('IG_NAME', p_x_node_rec.item_group_name);
2996: FND_MSG_PUB.ADD;
2997: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2998: THEN
2999: fnd_log.message
3000: (
3001: fnd_log.level_exception,
2995: FND_MESSAGE.Set_Token('IG_NAME', p_x_node_rec.item_group_name);
2996: FND_MSG_PUB.ADD;
2997: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2998: THEN
2999: fnd_log.message
3000: (
3001: fnd_log.level_exception,
3002: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3003: false
2997: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
2998: THEN
2999: fnd_log.message
3000: (
3001: fnd_log.level_exception,
3002: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3003: false
3004: );
3005: END IF;
3010: THEN
3011: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_IG_STS_INV');
3012: FND_MESSAGE.Set_Token('IG_NAME', p_x_node_rec.item_group_name);
3013: FND_MSG_PUB.ADD;
3014: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3015: THEN
3016: fnd_log.message
3017: (
3018: fnd_log.level_exception,
3012: FND_MESSAGE.Set_Token('IG_NAME', p_x_node_rec.item_group_name);
3013: FND_MSG_PUB.ADD;
3014: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3015: THEN
3016: fnd_log.message
3017: (
3018: fnd_log.level_exception,
3019: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3020: false
3014: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3015: THEN
3016: fnd_log.message
3017: (
3018: fnd_log.level_exception,
3019: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3020: false
3021: );
3022: END IF;
3033: THEN
3034: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_QUANTITY_NULL');
3035: FND_MESSAGE.Set_Token('POSREF', p_x_node_rec.position_ref_meaning);
3036: FND_MSG_PUB.ADD;
3037: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3038: THEN
3039: fnd_log.message
3040: (
3041: fnd_log.level_exception,
3035: FND_MESSAGE.Set_Token('POSREF', p_x_node_rec.position_ref_meaning);
3036: FND_MSG_PUB.ADD;
3037: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3038: THEN
3039: fnd_log.message
3040: (
3041: fnd_log.level_exception,
3042: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3043: false
3037: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3038: THEN
3039: fnd_log.message
3040: (
3041: fnd_log.level_exception,
3042: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3043: false
3044: );
3045: END IF;
3048: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_QUANTITY_INVALID');
3049: FND_MESSAGE.Set_Token('QTY', p_x_node_rec.quantity);
3050: FND_MESSAGE.Set_Token('POSREF', p_x_node_rec.position_ref_meaning);
3051: FND_MSG_PUB.ADD;
3052: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3053: THEN
3054: fnd_log.message
3055: (
3056: fnd_log.level_exception,
3050: FND_MESSAGE.Set_Token('POSREF', p_x_node_rec.position_ref_meaning);
3051: FND_MSG_PUB.ADD;
3052: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3053: THEN
3054: fnd_log.message
3055: (
3056: fnd_log.level_exception,
3057: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3058: false
3052: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3053: THEN
3054: fnd_log.message
3055: (
3056: fnd_log.level_exception,
3057: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3058: false
3059: );
3060: END IF;
3066: THEN
3067: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_PAR_QTY_INV');
3068: FND_MESSAGE.Set_Token('POSREF', p_x_node_rec.position_ref_meaning);
3069: FND_MSG_PUB.ADD;
3070: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3071: THEN
3072: fnd_log.message
3073: (
3074: fnd_log.level_exception,
3068: FND_MESSAGE.Set_Token('POSREF', p_x_node_rec.position_ref_meaning);
3069: FND_MSG_PUB.ADD;
3070: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3071: THEN
3072: fnd_log.message
3073: (
3074: fnd_log.level_exception,
3075: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3076: false
3070: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3071: THEN
3072: fnd_log.message
3073: (
3074: fnd_log.level_exception,
3075: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3076: false
3077: );
3078: END IF;
3085: THEN
3086: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_DISPORD_NULL');
3087: FND_MESSAGE.Set_Token('POSREF', p_x_node_rec.position_ref_meaning);
3088: FND_MSG_PUB.ADD;
3089: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3090: THEN
3091: fnd_log.message
3092: (
3093: fnd_log.level_exception,
3087: FND_MESSAGE.Set_Token('POSREF', p_x_node_rec.position_ref_meaning);
3088: FND_MSG_PUB.ADD;
3089: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3090: THEN
3091: fnd_log.message
3092: (
3093: fnd_log.level_exception,
3094: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3095: false
3089: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3090: THEN
3091: fnd_log.message
3092: (
3093: fnd_log.level_exception,
3094: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3095: false
3096: );
3097: END IF;
3100: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_DISPORD_INVALID');
3101: FND_MESSAGE.Set_Token('DSP', p_x_node_rec.display_order);
3102: FND_MESSAGE.Set_Token('POSREF', p_x_node_rec.position_ref_meaning);
3103: FND_MSG_PUB.ADD;
3104: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3105: THEN
3106: fnd_log.message
3107: (
3108: fnd_log.level_exception,
3102: FND_MESSAGE.Set_Token('POSREF', p_x_node_rec.position_ref_meaning);
3103: FND_MSG_PUB.ADD;
3104: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3105: THEN
3106: fnd_log.message
3107: (
3108: fnd_log.level_exception,
3109: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3110: false
3104: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3105: THEN
3106: fnd_log.message
3107: (
3108: fnd_log.level_exception,
3109: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3110: false
3111: );
3112: END IF;
3119: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_DISPORD_EXISTS');
3120: FND_MESSAGE.Set_Token('DSP', p_x_node_rec.display_order);
3121: FND_MESSAGE.Set_Token('POSREF', p_x_node_rec.position_ref_meaning);
3122: FND_MSG_PUB.ADD;
3123: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3124: THEN
3125: fnd_log.message
3126: (
3127: fnd_log.level_exception,
3121: FND_MESSAGE.Set_Token('POSREF', p_x_node_rec.position_ref_meaning);
3122: FND_MSG_PUB.ADD;
3123: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3124: THEN
3125: fnd_log.message
3126: (
3127: fnd_log.level_exception,
3128: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3129: false
3123: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3124: THEN
3125: fnd_log.message
3126: (
3127: fnd_log.level_exception,
3128: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3129: false
3130: );
3131: END IF;
3138: THEN
3139: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_UOM_NULL');
3140: FND_MESSAGE.Set_Token('POSREF', p_x_node_rec.position_ref_meaning);
3141: FND_MSG_PUB.ADD;
3142: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3143: THEN
3144: fnd_log.message
3145: (
3146: fnd_log.level_exception,
3140: FND_MESSAGE.Set_Token('POSREF', p_x_node_rec.position_ref_meaning);
3141: FND_MSG_PUB.ADD;
3142: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3143: THEN
3144: fnd_log.message
3145: (
3146: fnd_log.level_exception,
3147: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3148: false
3142: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3143: THEN
3144: fnd_log.message
3145: (
3146: fnd_log.level_exception,
3147: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3148: false
3149: );
3150: END IF;
3156: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_UOM_INVALID');
3157: FND_MESSAGE.Set_Token('POSREF', p_x_node_rec.position_ref_meaning);
3158: FND_MESSAGE.Set_Token('UOM', p_x_node_rec.uom_code);
3159: FND_MSG_PUB.ADD;
3160: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3161: THEN
3162: fnd_log.message
3163: (
3164: fnd_log.level_exception,
3158: FND_MESSAGE.Set_Token('UOM', p_x_node_rec.uom_code);
3159: FND_MSG_PUB.ADD;
3160: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3161: THEN
3162: fnd_log.message
3163: (
3164: fnd_log.level_exception,
3165: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3166: false
3160: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3161: THEN
3162: fnd_log.message
3163: (
3164: fnd_log.level_exception,
3165: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3166: false
3167: );
3168: END IF;
3184: IF (G_TRUNC_DATE >= trunc(nvl(l_end_date, G_SYSDATE + 1)))
3185: THEN
3186: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NODE_DATE_INV');
3187: FND_MSG_PUB.ADD;
3188: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3189: THEN
3190: fnd_log.message
3191: (
3192: fnd_log.level_exception,
3186: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NODE_DATE_INV');
3187: FND_MSG_PUB.ADD;
3188: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3189: THEN
3190: fnd_log.message
3191: (
3192: fnd_log.level_exception,
3193: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3194: false
3188: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3189: THEN
3190: fnd_log.message
3191: (
3192: fnd_log.level_exception,
3193: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3194: false
3195: );
3196: END IF;
3199: IF (p_x_node_rec.active_start_date IS NOT NULL AND trunc(nvl(l_start_date, G_SYSDATE)) <> trunc(p_x_node_rec.active_start_date) AND trunc(p_x_node_rec.active_start_date) < G_TRUNC_DATE)
3200: THEN
3201: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_START_DATE_INV');
3202: FND_MSG_PUB.ADD;
3203: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3204: THEN
3205: fnd_log.message
3206: (
3207: fnd_log.level_exception,
3201: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_START_DATE_INV');
3202: FND_MSG_PUB.ADD;
3203: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3204: THEN
3205: fnd_log.message
3206: (
3207: fnd_log.level_exception,
3208: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3209: false
3203: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3204: THEN
3205: fnd_log.message
3206: (
3207: fnd_log.level_exception,
3208: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3209: false
3210: );
3211: END IF;
3214: IF (trunc(nvl(l_end_date, G_SYSDATE)) <> trunc(nvl(p_x_node_rec.active_end_date, G_SYSDATE)) AND trunc(nvl(p_x_node_rec.active_end_date, G_SYSDATE + 1)) <= G_TRUNC_DATE)
3215: THEN
3216: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_END_DATE_INV');
3217: FND_MSG_PUB.ADD;
3218: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3219: THEN
3220: fnd_log.message
3221: (
3222: fnd_log.level_exception,
3216: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_END_DATE_INV');
3217: FND_MSG_PUB.ADD;
3218: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3219: THEN
3220: fnd_log.message
3221: (
3222: fnd_log.level_exception,
3223: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3224: false
3218: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3219: THEN
3220: fnd_log.message
3221: (
3222: fnd_log.level_exception,
3223: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3224: false
3225: );
3226: END IF;
3230: IF (trunc(nvl(p_x_node_rec.active_start_date, G_SYSDATE)) < G_TRUNC_DATE)
3231: THEN
3232: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_START_DATE_INV');
3233: FND_MSG_PUB.ADD;
3234: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3235: THEN
3236: fnd_log.message
3237: (
3238: fnd_log.level_exception,
3232: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_START_DATE_INV');
3233: FND_MSG_PUB.ADD;
3234: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3235: THEN
3236: fnd_log.message
3237: (
3238: fnd_log.level_exception,
3239: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3240: false
3234: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3235: THEN
3236: fnd_log.message
3237: (
3238: fnd_log.level_exception,
3239: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3240: false
3241: );
3242: END IF;
3245: IF (trunc(nvl(p_x_node_rec.active_end_date, G_SYSDATE + 1)) <= G_TRUNC_DATE)
3246: THEN
3247: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_END_DATE_INV');
3248: FND_MSG_PUB.ADD;
3249: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3250: THEN
3251: fnd_log.message
3252: (
3253: fnd_log.level_exception,
3247: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_END_DATE_INV');
3248: FND_MSG_PUB.ADD;
3249: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3250: THEN
3251: fnd_log.message
3252: (
3253: fnd_log.level_exception,
3254: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3255: false
3249: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3250: THEN
3251: fnd_log.message
3252: (
3253: fnd_log.level_exception,
3254: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3255: false
3256: );
3257: END IF;
3261: IF (p_x_node_rec.operation_flag <> G_DML_COPY AND trunc(nvl(p_x_node_rec.active_end_date, nvl(p_x_node_rec.active_start_date, G_SYSDATE) + 1)) <= trunc(nvl(p_x_node_rec.active_start_date, G_SYSDATE)))
3262: THEN
3263: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_START_END_INV');
3264: FND_MSG_PUB.ADD;
3265: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3266: THEN
3267: fnd_log.message
3268: (
3269: fnd_log.level_exception,
3263: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_START_END_INV');
3264: FND_MSG_PUB.ADD;
3265: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3266: THEN
3267: fnd_log.message
3268: (
3269: fnd_log.level_exception,
3270: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3271: false
3265: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3266: THEN
3267: fnd_log.message
3268: (
3269: fnd_log.level_exception,
3270: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Node',
3271: false
3272: );
3273: END IF;
3295: IF (check_counter_exists%NOTFOUND)
3296: THEN
3297: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_CTR_NOT_FOUND');
3298: FND_MSG_PUB.ADD;
3299: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3300: THEN
3301: fnd_log.message
3302: (
3303: fnd_log.level_exception,
3297: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_CTR_NOT_FOUND');
3298: FND_MSG_PUB.ADD;
3299: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3300: THEN
3301: fnd_log.message
3302: (
3303: fnd_log.level_exception,
3304: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Counter_Exists',
3305: false
3299: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3300: THEN
3301: fnd_log.message
3302: (
3303: fnd_log.level_exception,
3304: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Counter_Exists',
3305: false
3306: );
3307: END IF;
3310: ELSIF (NVL(p_object_ver_num, l_dummy_number) <> l_dummy_number)
3311: THEN
3312: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
3313: FND_MSG_PUB.ADD;
3314: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3315: THEN
3316: fnd_log.message
3317: (
3318: fnd_log.level_exception,
3312: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
3313: FND_MSG_PUB.ADD;
3314: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3315: THEN
3316: fnd_log.message
3317: (
3318: fnd_log.level_exception,
3319: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Counter_Exists',
3320: false
3314: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3315: THEN
3316: fnd_log.message
3317: (
3318: fnd_log.level_exception,
3319: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Counter_Exists',
3320: false
3321: );
3322: END IF;
3363: THEN
3364: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_UOM_NULL');
3365: FND_MESSAGE.Set_Token('POSREF', l_posref_meaning);
3366: FND_MSG_PUB.ADD;
3367: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3368: THEN
3369: fnd_log.message
3370: (
3371: fnd_log.level_exception,
3365: FND_MESSAGE.Set_Token('POSREF', l_posref_meaning);
3366: FND_MSG_PUB.ADD;
3367: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3368: THEN
3369: fnd_log.message
3370: (
3371: fnd_log.level_exception,
3372: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Counter_Rule',
3373: false
3367: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3368: THEN
3369: fnd_log.message
3370: (
3371: fnd_log.level_exception,
3372: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Counter_Rule',
3373: false
3374: );
3375: END IF;
3381: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_UOM_INVALID');
3382: FND_MESSAGE.Set_Token('POSREF', l_posref_meaning);
3383: FND_MESSAGE.Set_Token('UOM', p_counter_rule_rec.uom_code);
3384: FND_MSG_PUB.ADD;
3385: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3386: THEN
3387: fnd_log.message
3388: (
3389: fnd_log.level_exception,
3383: FND_MESSAGE.Set_Token('UOM', p_counter_rule_rec.uom_code);
3384: FND_MSG_PUB.ADD;
3385: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3386: THEN
3387: fnd_log.message
3388: (
3389: fnd_log.level_exception,
3390: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Counter_Rule',
3391: false
3385: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3386: THEN
3387: fnd_log.message
3388: (
3389: fnd_log.level_exception,
3390: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Counter_Rule',
3391: false
3392: );
3393: END IF;
3400: THEN
3401: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_RCODE_NULL');
3402: FND_MESSAGE.Set_Token('POSREF', l_posref_meaning);
3403: FND_MSG_PUB.ADD;
3404: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3405: THEN
3406: fnd_log.message
3407: (
3408: fnd_log.level_exception,
3402: FND_MESSAGE.Set_Token('POSREF', l_posref_meaning);
3403: FND_MSG_PUB.ADD;
3404: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3405: THEN
3406: fnd_log.message
3407: (
3408: fnd_log.level_exception,
3409: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Counter_Rule',
3410: false
3404: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3405: THEN
3406: fnd_log.message
3407: (
3408: fnd_log.level_exception,
3409: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Counter_Rule',
3410: false
3411: );
3412: END IF;
3415: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_RCODE_INVALID');
3416: FND_MESSAGE.Set_Token('POSREF', l_posref_meaning);
3417: FND_MESSAGE.Set_Token('RULE_CODE', p_counter_rule_rec.rule_meaning);
3418: FND_MSG_PUB.ADD;
3419: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3420: THEN
3421: fnd_log.message
3422: (
3423: fnd_log.level_exception,
3417: FND_MESSAGE.Set_Token('RULE_CODE', p_counter_rule_rec.rule_meaning);
3418: FND_MSG_PUB.ADD;
3419: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3420: THEN
3421: fnd_log.message
3422: (
3423: fnd_log.level_exception,
3424: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Counter_Rule',
3425: false
3419: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3420: THEN
3421: fnd_log.message
3422: (
3423: fnd_log.level_exception,
3424: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Counter_Rule',
3425: false
3426: );
3427: END IF;
3436: FND_MESSAGE.Set_Token('POSREF', l_posref_meaning);
3437: FND_MESSAGE.Set_Token('UOM', p_counter_rule_rec.uom_code);
3438: FND_MESSAGE.Set_Token('RULE', p_counter_rule_rec.rule_code);
3439: FND_MSG_PUB.ADD;
3440: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3441: THEN
3442: fnd_log.message
3443: (
3444: fnd_log.level_exception,
3438: FND_MESSAGE.Set_Token('RULE', p_counter_rule_rec.rule_code);
3439: FND_MSG_PUB.ADD;
3440: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3441: THEN
3442: fnd_log.message
3443: (
3444: fnd_log.level_exception,
3445: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Counter_Rule',
3446: false
3440: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3441: THEN
3442: fnd_log.message
3443: (
3444: fnd_log.level_exception,
3445: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Counter_Rule',
3446: false
3447: );
3448: END IF;
3455: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_RATIO_INVALID');
3456: FND_MESSAGE.Set_Token('POSREF', l_posref_meaning);
3457: FND_MESSAGE.Set_Token('RATIO', p_counter_rule_rec.ratio);
3458: FND_MSG_PUB.ADD;
3459: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3460: THEN
3461: fnd_log.message
3462: (
3463: fnd_log.level_exception,
3457: FND_MESSAGE.Set_Token('RATIO', p_counter_rule_rec.ratio);
3458: FND_MSG_PUB.ADD;
3459: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3460: THEN
3461: fnd_log.message
3462: (
3463: fnd_log.level_exception,
3464: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Counter_Rule',
3465: false
3459: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3460: THEN
3461: fnd_log.message
3462: (
3463: fnd_log.level_exception,
3464: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Counter_Rule',
3465: false
3466: );
3467: END IF;
3489: IF (check_submc_exists%NOTFOUND)
3490: THEN
3491: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_SUBMC_NOT_FOUND');
3492: FND_MSG_PUB.ADD;
3493: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3494: THEN
3495: fnd_log.message
3496: (
3497: fnd_log.level_exception,
3491: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_SUBMC_NOT_FOUND');
3492: FND_MSG_PUB.ADD;
3493: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3494: THEN
3495: fnd_log.message
3496: (
3497: fnd_log.level_exception,
3498: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Subconfig_Exists',
3499: false
3493: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3494: THEN
3495: fnd_log.message
3496: (
3497: fnd_log.level_exception,
3498: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Subconfig_Exists',
3499: false
3500: );
3501: END IF;
3504: ELSIF (NVL(p_object_ver_num, l_dummy_number) <> l_dummy_number)
3505: THEN
3506: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
3507: FND_MSG_PUB.ADD;
3508: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3509: THEN
3510: fnd_log.message
3511: (
3512: fnd_log.level_exception,
3506: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
3507: FND_MSG_PUB.ADD;
3508: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3509: THEN
3510: fnd_log.message
3511: (
3512: fnd_log.level_exception,
3513: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Subconfig_Exists',
3514: false
3508: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3509: THEN
3510: fnd_log.message
3511: (
3512: fnd_log.level_exception,
3513: 'ahl.plsql.'||G_PKG_NAME||'.Validate_Subconfig_Exists',
3514: false
3515: );
3516: END IF;
3545: IF (check_priority_dup_exists%FOUND)
3546: THEN
3547: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_PRIORITY_NON_UNIQUE');
3548: FND_MSG_PUB.ADD;
3549: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3550: THEN
3551: fnd_log.message
3552: (
3553: fnd_log.level_exception,
3547: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_PRIORITY_NON_UNIQUE');
3548: FND_MSG_PUB.ADD;
3549: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3550: THEN
3551: fnd_log.message
3552: (
3553: fnd_log.level_exception,
3554: 'ahl.plsql.'||G_PKG_NAME||'.Validate_priority',
3555: true
3549: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3550: THEN
3551: fnd_log.message
3552: (
3553: fnd_log.level_exception,
3554: 'ahl.plsql.'||G_PKG_NAME||'.Validate_priority',
3555: true
3556: );
3557: END IF;
3623: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_CYCLIC_REL_EXIST');
3624: FND_MESSAGE.Set_Token('MC', l_mc_name);
3625: FND_MESSAGE.Set_Token('SUBMC', l_submc_name);
3626: FND_MSG_PUB.ADD;
3627: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3628: THEN
3629: fnd_log.message
3630: (
3631: fnd_log.level_exception,
3625: FND_MESSAGE.Set_Token('SUBMC', l_submc_name);
3626: FND_MSG_PUB.ADD;
3627: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3628: THEN
3629: fnd_log.message
3630: (
3631: fnd_log.level_exception,
3632: 'ahl.plsql.'||G_PKG_NAME||'.Check_Cyclic_Rel',
3633: false
3627: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3628: THEN
3629: fnd_log.message
3630: (
3631: fnd_log.level_exception,
3632: 'ahl.plsql.'||G_PKG_NAME||'.Check_Cyclic_Rel',
3633: false
3634: );
3635: END IF;
3673: IF (get_node_mc_status%NOTFOUND)
3674: THEN
3675: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NOT_FOUND');
3676: FND_MSG_PUB.ADD;
3677: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3678: THEN
3679: fnd_log.message
3680: (
3681: fnd_log.level_exception,
3675: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NOT_FOUND');
3676: FND_MSG_PUB.ADD;
3677: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3678: THEN
3679: fnd_log.message
3680: (
3681: fnd_log.level_exception,
3682: 'ahl.plsql.'||G_PKG_NAME||'.Get_MC_Status',
3683: false
3677: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3678: THEN
3679: fnd_log.message
3680: (
3681: fnd_log.level_exception,
3682: 'ahl.plsql.'||G_PKG_NAME||'.Get_MC_Status',
3683: false
3684: );
3685: END IF;
3694: IF (get_mc_status%NOTFOUND)
3695: THEN
3696: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NOT_FOUND');
3697: FND_MSG_PUB.ADD;
3698: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3699: THEN
3700: fnd_log.message
3701: (
3702: fnd_log.level_exception,
3696: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NOT_FOUND');
3697: FND_MSG_PUB.ADD;
3698: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3699: THEN
3700: fnd_log.message
3701: (
3702: fnd_log.level_exception,
3703: 'ahl.plsql.'||G_PKG_NAME||'.Get_MC_Status',
3704: false
3698: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
3699: THEN
3700: fnd_log.message
3701: (
3702: fnd_log.level_exception,
3703: 'ahl.plsql.'||G_PKG_NAME||'.Get_MC_Status',
3704: false
3705: );
3706: END IF;
3840:
3841: BEGIN
3842:
3843: -- API body starts here
3844: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3845: THEN
3846: fnd_log.string
3847: (
3848: fnd_log.level_procedure,
3842:
3843: -- API body starts here
3844: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3845: THEN
3846: fnd_log.string
3847: (
3848: fnd_log.level_procedure,
3849: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
3850: 'At the start of PLSQL procedure'
3844: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3845: THEN
3846: fnd_log.string
3847: (
3848: fnd_log.level_procedure,
3849: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
3850: 'At the start of PLSQL procedure'
3851: );
3852: END IF;
3862: IF l_msg_count > 0 THEN
3863: RAISE FND_API.G_EXC_ERROR;
3864: END IF;
3865:
3866: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3867: THEN
3868: fnd_log.string
3869: (
3870: fnd_log.level_statement,
3864: END IF;
3865:
3866: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3867: THEN
3868: fnd_log.string
3869: (
3870: fnd_log.level_statement,
3871: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
3872: 'Counter rule validation successful'
3866: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
3867: THEN
3868: fnd_log.string
3869: (
3870: fnd_log.level_statement,
3871: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
3872: 'Counter rule validation successful'
3873: );
3874: END IF;
3976:
3977: BEGIN
3978:
3979: -- API body starts here
3980: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3981: THEN
3982: fnd_log.string
3983: (
3984: fnd_log.level_procedure,
3978:
3979: -- API body starts here
3980: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3981: THEN
3982: fnd_log.string
3983: (
3984: fnd_log.level_procedure,
3985: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
3986: 'At the start of PLSQL procedure'
3980: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
3981: THEN
3982: fnd_log.string
3983: (
3984: fnd_log.level_procedure,
3985: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
3986: 'At the start of PLSQL procedure'
3987: );
3988: END IF;
4001: IF l_msg_count > 0 THEN
4002: RAISE FND_API.G_EXC_ERROR;
4003: END IF;
4004:
4005: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4006: THEN
4007: fnd_log.string
4008: (
4009: fnd_log.level_statement,
4003: END IF;
4004:
4005: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4006: THEN
4007: fnd_log.string
4008: (
4009: fnd_log.level_statement,
4010: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4011: 'Counter rule validation successful'
4005: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4006: THEN
4007: fnd_log.string
4008: (
4009: fnd_log.level_statement,
4010: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4011: 'Counter rule validation successful'
4012: );
4013: END IF;
4056:
4057: BEGIN
4058:
4059: -- API body starts here
4060: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4061: THEN
4062: fnd_log.string
4063: (
4064: fnd_log.level_procedure,
4058:
4059: -- API body starts here
4060: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4061: THEN
4062: fnd_log.string
4063: (
4064: fnd_log.level_procedure,
4065: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
4066: 'At the start of PLSQL procedure'
4060: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4061: THEN
4062: fnd_log.string
4063: (
4064: fnd_log.level_procedure,
4065: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
4066: 'At the start of PLSQL procedure'
4067: );
4068: END IF;
4072:
4073: DELETE FROM ahl_ctr_update_rules
4074: WHERE ctr_update_rule_id = p_ctr_update_rule_id;
4075:
4076: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4077: THEN
4078: fnd_log.string
4079: (
4080: fnd_log.level_procedure,
4074: WHERE ctr_update_rule_id = p_ctr_update_rule_id;
4075:
4076: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4077: THEN
4078: fnd_log.string
4079: (
4080: fnd_log.level_procedure,
4081: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.end',
4082: 'At the end of PLSQL procedure'
4076: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4077: THEN
4078: fnd_log.string
4079: (
4080: fnd_log.level_procedure,
4081: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.end',
4082: 'At the end of PLSQL procedure'
4083: );
4084: END IF;
4151:
4152: BEGIN
4153:
4154: -- API body starts here
4155: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4156: THEN
4157: fnd_log.string
4158: (
4159: fnd_log.level_procedure,
4153:
4154: -- API body starts here
4155: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4156: THEN
4157: fnd_log.string
4158: (
4159: fnd_log.level_procedure,
4160: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
4161: 'At the start of PLSQL procedure'
4155: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4156: THEN
4157: fnd_log.string
4158: (
4159: fnd_log.level_procedure,
4160: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
4161: 'At the start of PLSQL procedure'
4162: );
4163: END IF;
4171: IF (check_root_node%FOUND)
4172: THEN
4173: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NOT_TOP_NODE');
4174: FND_MSG_PUB.ADD;
4175: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4176: THEN
4177: fnd_log.message
4178: (
4179: fnd_log.level_exception,
4173: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NOT_TOP_NODE');
4174: FND_MSG_PUB.ADD;
4175: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4176: THEN
4177: fnd_log.message
4178: (
4179: fnd_log.level_exception,
4180: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4181: false
4175: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4176: THEN
4177: fnd_log.message
4178: (
4179: fnd_log.level_exception,
4180: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4181: false
4182: );
4183: END IF;
4190: IF (check_leaf_node%FOUND)
4191: THEN
4192: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NOT_LEAF_NODE');
4193: FND_MSG_PUB.ADD;
4194: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4195: THEN
4196: fnd_log.message
4197: (
4198: fnd_log.level_exception,
4192: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NOT_LEAF_NODE');
4193: FND_MSG_PUB.ADD;
4194: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4195: THEN
4196: fnd_log.message
4197: (
4198: fnd_log.level_exception,
4199: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4200: false
4194: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4195: THEN
4196: fnd_log.message
4197: (
4198: fnd_log.level_exception,
4199: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4200: false
4201: );
4202: END IF;
4209: IF (l_header_status NOT IN ('APPROVAL_PENDING', 'COMPLETE', 'DRAFT', 'APPROVAL_REJECTED'))
4210: THEN
4211: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_SUBMC_STS_INV');
4212: FND_MSG_PUB.ADD;
4213: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4214: THEN
4215: fnd_log.message
4216: (
4217: fnd_log.level_exception,
4211: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_SUBMC_STS_INV');
4212: FND_MSG_PUB.ADD;
4213: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4214: THEN
4215: fnd_log.message
4216: (
4217: fnd_log.level_exception,
4218: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4219: false
4213: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4214: THEN
4215: fnd_log.message
4216: (
4217: fnd_log.level_exception,
4218: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4219: false
4220: );
4221: END IF;
4229: THEN
4230: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_SUBMC_EXISTS');
4231: FND_MESSAGE.Set_Token('SUBMC', l_mc_name);
4232: FND_MSG_PUB.ADD;
4233: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4234: THEN
4235: fnd_log.message
4236: (
4237: fnd_log.level_exception,
4231: FND_MESSAGE.Set_Token('SUBMC', l_mc_name);
4232: FND_MSG_PUB.ADD;
4233: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4234: THEN
4235: fnd_log.message
4236: (
4237: fnd_log.level_exception,
4238: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4239: false
4233: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4234: THEN
4235: fnd_log.message
4236: (
4237: fnd_log.level_exception,
4238: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4239: false
4240: );
4241: END IF;
4262: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_CYCLIC_REL_EXIST');
4263: FND_MESSAGE.Set_Token('MC', l_mc_name);
4264: FND_MESSAGE.Set_Token('SUBMC', l_submc_name);
4265: FND_MSG_PUB.ADD;
4266: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4267: THEN
4268: fnd_log.message
4269: (
4270: fnd_log.level_exception,
4264: FND_MESSAGE.Set_Token('SUBMC', l_submc_name);
4265: FND_MSG_PUB.ADD;
4266: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4267: THEN
4268: fnd_log.message
4269: (
4270: fnd_log.level_exception,
4271: 'ahl.plsql.'||G_PKG_NAME||'.Check_Cyclic_Rel',
4272: false
4266: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4267: THEN
4268: fnd_log.message
4269: (
4270: fnd_log.level_exception,
4271: 'ahl.plsql.'||G_PKG_NAME||'.Check_Cyclic_Rel',
4272: false
4273: );
4274: END IF;
4285: IF (trunc(nvl(p_x_subconfig_rec.active_start_date, G_SYSDATE)) < G_TRUNC_DATE)
4286: THEN
4287: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_START_DATE_INV');
4288: FND_MSG_PUB.ADD;
4289: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4290: THEN
4291: fnd_log.message
4292: (
4293: fnd_log.level_exception,
4287: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_START_DATE_INV');
4288: FND_MSG_PUB.ADD;
4289: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4290: THEN
4291: fnd_log.message
4292: (
4293: fnd_log.level_exception,
4294: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4295: false
4289: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4290: THEN
4291: fnd_log.message
4292: (
4293: fnd_log.level_exception,
4294: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4295: false
4296: );
4297: END IF;
4300: IF (trunc(nvl(p_x_subconfig_rec.active_end_date, G_SYSDATE + 1)) <= G_TRUNC_DATE)
4301: THEN
4302: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_END_DATE_INV');
4303: FND_MSG_PUB.ADD;
4304: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4305: THEN
4306: fnd_log.message
4307: (
4308: fnd_log.level_exception,
4302: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_END_DATE_INV');
4303: FND_MSG_PUB.ADD;
4304: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4305: THEN
4306: fnd_log.message
4307: (
4308: fnd_log.level_exception,
4309: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4310: false
4304: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4305: THEN
4306: fnd_log.message
4307: (
4308: fnd_log.level_exception,
4309: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4310: false
4311: );
4312: END IF;
4315: IF (trunc(nvl(p_x_subconfig_rec.active_end_date, nvl(p_x_subconfig_rec.active_start_date, G_SYSDATE) + 1)) <= trunc(nvl(p_x_subconfig_rec.active_start_date, G_SYSDATE)))
4316: THEN
4317: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_START_END_INV');
4318: FND_MSG_PUB.ADD;
4319: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4320: THEN
4321: fnd_log.message
4322: (
4323: fnd_log.level_exception,
4317: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_START_END_INV');
4318: FND_MSG_PUB.ADD;
4319: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4320: THEN
4321: fnd_log.message
4322: (
4323: fnd_log.level_exception,
4324: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4325: false
4319: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4320: THEN
4321: fnd_log.message
4322: (
4323: fnd_log.level_exception,
4324: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4325: false
4326: );
4327: END IF;
4331: THEN
4332: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_PRIORITY_SUBMC_NULL');
4333: FND_MESSAGE.Set_Token('SUB_MC',p_x_subconfig_rec.name);
4334: FND_MSG_PUB.ADD;
4335: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4336: THEN
4337: fnd_log.message
4338: (
4339: fnd_log.level_exception,
4333: FND_MESSAGE.Set_Token('SUB_MC',p_x_subconfig_rec.name);
4334: FND_MSG_PUB.ADD;
4335: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4336: THEN
4337: fnd_log.message
4338: (
4339: fnd_log.level_exception,
4340: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4341: false
4335: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4336: THEN
4337: fnd_log.message
4338: (
4339: fnd_log.level_exception,
4340: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4341: false
4342: );
4343: END IF;
4344: ELSIF (p_x_subconfig_rec.priority <= 0)
4345: THEN
4346: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_PRIORITY_INVALID_JSP');
4347: FND_MSG_PUB.ADD;
4348: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4349: THEN
4350: fnd_log.message
4351: (
4352: fnd_log.level_exception,
4346: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_PRIORITY_INVALID_JSP');
4347: FND_MSG_PUB.ADD;
4348: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4349: THEN
4350: fnd_log.message
4351: (
4352: fnd_log.level_exception,
4353: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4354: false
4348: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4349: THEN
4350: fnd_log.message
4351: (
4352: fnd_log.level_exception,
4353: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4354: false
4355: );
4356: END IF;
4361: IF l_msg_count > 0 THEN
4362: RAISE FND_API.G_EXC_ERROR;
4363: END IF;
4364:
4365: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4366: THEN
4367: fnd_log.string
4368: (
4369: fnd_log.level_statement,
4363: END IF;
4364:
4365: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4366: THEN
4367: fnd_log.string
4368: (
4369: fnd_log.level_statement,
4370: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4371: 'Subconfiguration association validation successful'
4365: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4366: THEN
4367: fnd_log.string
4368: (
4369: fnd_log.level_statement,
4370: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4371: 'Subconfiguration association validation successful'
4372: );
4373: END IF;
4472:
4473: BEGIN
4474:
4475: -- API body starts here
4476: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4477: THEN
4478: fnd_log.string
4479: (
4480: fnd_log.level_procedure,
4474:
4475: -- API body starts here
4476: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4477: THEN
4478: fnd_log.string
4479: (
4480: fnd_log.level_procedure,
4481: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
4482: 'At the start of PLSQL procedure'
4476: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4477: THEN
4478: fnd_log.string
4479: (
4480: fnd_log.level_procedure,
4481: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
4482: 'At the start of PLSQL procedure'
4483: );
4484: END IF;
4494: IF (l_header_status NOT IN ('APPROVAL_PENDING', 'COMPLETE', 'DRAFT', 'APPROVAL_REJECTED'))
4495: THEN
4496: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_SUBMC_STS_INV');
4497: FND_MSG_PUB.ADD;
4498: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4499: THEN
4500: fnd_log.message
4501: (
4502: fnd_log.level_exception,
4496: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_SUBMC_STS_INV');
4497: FND_MSG_PUB.ADD;
4498: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4499: THEN
4500: fnd_log.message
4501: (
4502: fnd_log.level_exception,
4503: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4504: false
4498: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4499: THEN
4500: fnd_log.message
4501: (
4502: fnd_log.level_exception,
4503: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4504: false
4505: );
4506: END IF;
4517: IF (G_TRUNC_DATE >= trunc(nvl(l_end_date, G_SYSDATE + 1)))
4518: THEN
4519: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_SUBMC_DATE_INV');
4520: FND_MSG_PUB.ADD;
4521: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4522: THEN
4523: fnd_log.message
4524: (
4525: fnd_log.level_exception,
4519: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_SUBMC_DATE_INV');
4520: FND_MSG_PUB.ADD;
4521: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4522: THEN
4523: fnd_log.message
4524: (
4525: fnd_log.level_exception,
4526: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4527: false
4521: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4522: THEN
4523: fnd_log.message
4524: (
4525: fnd_log.level_exception,
4526: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4527: false
4528: );
4529: END IF;
4533: IF (p_x_subconfig_rec.active_start_date IS NOT NULL AND trunc(nvl(l_start_date, G_SYSDATE)) <> trunc(p_x_subconfig_rec.active_start_date) AND trunc(p_x_subconfig_rec.active_start_date) < G_TRUNC_DATE)
4534: THEN
4535: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_START_DATE_INV');
4536: FND_MSG_PUB.ADD;
4537: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4538: THEN
4539: fnd_log.message
4540: (
4541: fnd_log.level_exception,
4535: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_START_DATE_INV');
4536: FND_MSG_PUB.ADD;
4537: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4538: THEN
4539: fnd_log.message
4540: (
4541: fnd_log.level_exception,
4542: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4543: false
4537: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4538: THEN
4539: fnd_log.message
4540: (
4541: fnd_log.level_exception,
4542: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4543: false
4544: );
4545: END IF;
4548: IF (trunc(nvl(l_end_date, G_SYSDATE)) <> trunc(nvl(p_x_subconfig_rec.active_end_date, G_SYSDATE)) AND trunc(nvl(p_x_subconfig_rec.active_end_date, G_SYSDATE + 1)) <= G_TRUNC_DATE)
4549: THEN
4550: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_END_DATE_INV');
4551: FND_MSG_PUB.ADD;
4552: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4553: THEN
4554: fnd_log.message
4555: (
4556: fnd_log.level_exception,
4550: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_END_DATE_INV');
4551: FND_MSG_PUB.ADD;
4552: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4553: THEN
4554: fnd_log.message
4555: (
4556: fnd_log.level_exception,
4557: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4558: false
4552: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4553: THEN
4554: fnd_log.message
4555: (
4556: fnd_log.level_exception,
4557: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4558: false
4559: );
4560: END IF;
4563: IF (trunc(nvl(p_x_subconfig_rec.active_end_date, nvl(p_x_subconfig_rec.active_start_date, G_SYSDATE) + 1)) <= trunc(nvl(p_x_subconfig_rec.active_start_date, G_SYSDATE)))
4564: THEN
4565: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_START_END_INV');
4566: FND_MSG_PUB.ADD;
4567: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4568: THEN
4569: fnd_log.message
4570: (
4571: fnd_log.level_exception,
4565: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_START_END_INV');
4566: FND_MSG_PUB.ADD;
4567: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4568: THEN
4569: fnd_log.message
4570: (
4571: fnd_log.level_exception,
4572: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4573: false
4567: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4568: THEN
4569: fnd_log.message
4570: (
4571: fnd_log.level_exception,
4572: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4573: false
4574: );
4575: END IF;
4580: THEN
4581: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_PRIORITY_SUBMC_NULL');
4582: FND_MESSAGE.Set_Token('SUB_MC',p_x_subconfig_rec.name);
4583: FND_MSG_PUB.ADD;
4584: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4585: THEN
4586: fnd_log.message
4587: (
4588: fnd_log.level_exception,
4582: FND_MESSAGE.Set_Token('SUB_MC',p_x_subconfig_rec.name);
4583: FND_MSG_PUB.ADD;
4584: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4585: THEN
4586: fnd_log.message
4587: (
4588: fnd_log.level_exception,
4589: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4590: false
4584: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4585: THEN
4586: fnd_log.message
4587: (
4588: fnd_log.level_exception,
4589: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4590: false
4591: );
4592: END IF;
4593: ELSIF (p_x_subconfig_rec.priority <= 0)
4594: THEN
4595: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_PRIORITY_INVALID_JSP');
4596: FND_MSG_PUB.ADD;
4597: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4598: THEN
4599: fnd_log.message
4600: (
4601: fnd_log.level_exception,
4595: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_PRIORITY_INVALID_JSP');
4596: FND_MSG_PUB.ADD;
4597: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4598: THEN
4599: fnd_log.message
4600: (
4601: fnd_log.level_exception,
4602: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4603: false
4597: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4598: THEN
4599: fnd_log.message
4600: (
4601: fnd_log.level_exception,
4602: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4603: false
4604: );
4605: END IF;
4611: IF l_msg_count > 0 THEN
4612: RAISE FND_API.G_EXC_ERROR;
4613: END IF;
4614:
4615: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4616: THEN
4617: fnd_log.string
4618: (
4619: fnd_log.level_statement,
4613: END IF;
4614:
4615: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4616: THEN
4617: fnd_log.string
4618: (
4619: fnd_log.level_statement,
4620: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4621: 'Subconfiguration association validation successful'
4615: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4616: THEN
4617: fnd_log.string
4618: (
4619: fnd_log.level_statement,
4620: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4621: 'Subconfiguration association validation successful'
4622: );
4623: END IF;
4667:
4668: BEGIN
4669:
4670: -- API body starts here
4671: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4672: THEN
4673: fnd_log.string
4674: (
4675: fnd_log.level_procedure,
4669:
4670: -- API body starts here
4671: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4672: THEN
4673: fnd_log.string
4674: (
4675: fnd_log.level_procedure,
4676: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
4677: 'At the start of PLSQL procedure'
4671: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4672: THEN
4673: fnd_log.string
4674: (
4675: fnd_log.level_procedure,
4676: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
4677: 'At the start of PLSQL procedure'
4678: );
4679: END IF;
4683:
4684: DELETE FROM ahl_mc_config_relations
4685: WHERE mc_config_relation_id = p_mc_config_relation_id;
4686:
4687: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4688: THEN
4689: fnd_log.string
4690: (
4691: fnd_log.level_procedure,
4685: WHERE mc_config_relation_id = p_mc_config_relation_id;
4686:
4687: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4688: THEN
4689: fnd_log.string
4690: (
4691: fnd_log.level_procedure,
4692: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.end',
4693: 'At the end of PLSQL procedure'
4687: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4688: THEN
4689: fnd_log.string
4690: (
4691: fnd_log.level_procedure,
4692: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.end',
4693: 'At the end of PLSQL procedure'
4694: );
4695: END IF;
4756:
4757: BEGIN
4758:
4759: -- API body starts here
4760: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4761: THEN
4762: fnd_log.string
4763: (
4764: fnd_log.level_procedure,
4758:
4759: -- API body starts here
4760: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4761: THEN
4762: fnd_log.string
4763: (
4764: fnd_log.level_procedure,
4765: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
4766: 'At the start of PLSQL procedure'
4760: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4761: THEN
4762: fnd_log.string
4763: (
4764: fnd_log.level_procedure,
4765: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.begin',
4766: 'At the start of PLSQL procedure'
4767: );
4768: END IF;
4778: IF l_msg_count > 0 THEN
4779: RAISE FND_API.G_EXC_ERROR;
4780: END IF;
4781:
4782: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4783: THEN
4784: fnd_log.string
4785: (
4786: fnd_log.level_statement,
4780: END IF;
4781:
4782: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4783: THEN
4784: fnd_log.string
4785: (
4786: fnd_log.level_statement,
4787: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4788: 'Source and destination node validation successful'
4782: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4783: THEN
4784: fnd_log.string
4785: (
4786: fnd_log.level_statement,
4787: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4788: 'Source and destination node validation successful'
4789: );
4790: END IF;
4801: IF (check_leaf_node%FOUND)
4802: THEN
4803: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NOT_LEAF_NODE');
4804: FND_MSG_PUB.ADD;
4805: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4806: THEN
4807: fnd_log.message
4808: (
4809: fnd_log.level_exception,
4803: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NOT_LEAF_NODE');
4804: FND_MSG_PUB.ADD;
4805: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4806: THEN
4807: fnd_log.message
4808: (
4809: fnd_log.level_exception,
4810: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4811: false
4805: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4806: THEN
4807: fnd_log.message
4808: (
4809: fnd_log.level_exception,
4810: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4811: false
4812: );
4813: END IF;
4837: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_CYCLIC_REL_EXIST');
4838: FND_MESSAGE.Set_Token('MC', l_mc_name);
4839: FND_MESSAGE.Set_Token('SUBMC', l_submc_name);
4840: FND_MSG_PUB.ADD;
4841: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4842: THEN
4843: fnd_log.message
4844: (
4845: fnd_log.level_exception,
4839: FND_MESSAGE.Set_Token('SUBMC', l_submc_name);
4840: FND_MSG_PUB.ADD;
4841: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4842: THEN
4843: fnd_log.message
4844: (
4845: fnd_log.level_exception,
4846: 'ahl.plsql.'||G_PKG_NAME||'.Check_Cyclic_Rel',
4847: false
4841: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
4842: THEN
4843: fnd_log.message
4844: (
4845: fnd_log.level_exception,
4846: 'ahl.plsql.'||G_PKG_NAME||'.Check_Cyclic_Rel',
4847: false
4848: );
4849: END IF;
4853: IF l_msg_count > 0 THEN
4854: RAISE FND_API.G_EXC_ERROR;
4855: END IF;
4856:
4857: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4858: THEN
4859: fnd_log.string
4860: (
4861: fnd_log.level_statement,
4855: END IF;
4856:
4857: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4858: THEN
4859: fnd_log.string
4860: (
4861: fnd_log.level_statement,
4862: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4863: 'Cyclic relation check for node ['||p_dest_rel_id||'] and subconfiguration ['||l_subconfig_csr_rec.mc_header_id||'] is successful'
4857: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4858: THEN
4859: fnd_log.string
4860: (
4861: fnd_log.level_statement,
4862: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4863: 'Cyclic relation check for node ['||p_dest_rel_id||'] and subconfiguration ['||l_subconfig_csr_rec.mc_header_id||'] is successful'
4864: );
4865: END IF;
4932: l_subconfig_csr_rec.ATTRIBUTE15,
4933: l_subconfig_csr_rec.PRIORITY
4934: );
4935:
4936: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4937: THEN
4938: fnd_log.string
4939: (
4940: fnd_log.level_statement,
4934: );
4935:
4936: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4937: THEN
4938: fnd_log.string
4939: (
4940: fnd_log.level_statement,
4941: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4942: 'Subconfiguration association ['||l_subconfig_csr_rec.mc_config_relation_id||'] copied to ['||l_mc_config_rel_id||']'
4936: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
4937: THEN
4938: fnd_log.string
4939: (
4940: fnd_log.level_statement,
4941: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name,
4942: 'Subconfiguration association ['||l_subconfig_csr_rec.mc_config_relation_id||'] copied to ['||l_mc_config_rel_id||']'
4943: );
4944: END IF;
4944: END IF;
4945: END LOOP;
4946: CLOSE get_subconfigs;
4947:
4948: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4949: THEN
4950: fnd_log.string
4951: (
4952: fnd_log.level_procedure,
4946: CLOSE get_subconfigs;
4947:
4948: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4949: THEN
4950: fnd_log.string
4951: (
4952: fnd_log.level_procedure,
4953: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.end',
4954: 'At the end of PLSQL procedure'
4948: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
4949: THEN
4950: fnd_log.string
4951: (
4952: fnd_log.level_procedure,
4953: 'ahl.plsql.'||G_PKG_NAME||'.'||l_api_name||'.end',
4954: 'At the end of PLSQL procedure'
4955: );
4956: END IF;