[Home] [Help]
149:
150: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
151: IF FND_API.TO_BOOLEAN(p_init_msg_list)
152: THEN
153: FND_MSG_PUB.INITIALIZE;
154: END IF;
155:
156: -- Log API entry point
157: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
177: THEN
178: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_INVALID_DML_REC');
179: -- Invalid DML operation FIELD specified
180: FND_MESSAGE.SET_TOKEN('FIELD', p_x_ata_sequences_tbl(l_rec_idx).dml_operation);
181: FND_MSG_PUB.ADD;
182: RAISE FND_API.G_EXC_ERROR;
183: END IF;
184:
185: -- Verify MEL/CDL is in DRAFT status and change to DRAFT if APPROVAL_REJECTED; Also verify whether MEL/CDL information is provided
267: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_ATA_CHG_UPD');
268: -- Cannot modify System Sequence from "OLDATA" to "ATA" for existing record
269: FND_MESSAGE.SET_TOKEN('OLDATA', l_ata_code);
270: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
271: FND_MSG_PUB.ADD;
272: RAISE FND_API.G_EXC_ERROR;
273: END IF;
274: END IF;
275:
282: THEN
283: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_INST_NUM_MAND');
284: -- Installed Number for System Sequence "ATA" is invalid
285: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
286: FND_MSG_PUB.ADD;
287: END IF;
288:
289: IF (p_x_ata_sequences_tbl(l_rec_idx).dispatch_number IS NULL OR p_x_ata_sequences_tbl(l_rec_idx).dispatch_number = FND_API.G_MISS_NUM)
290: THEN
290: THEN
291: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_DISP_NUM_MAND');
292: -- Dispatch Number for System Sequence "ATA" is invalid
293: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
294: FND_MSG_PUB.ADD;
295: END IF;
296: */
297: IF ((p_x_ata_sequences_tbl(l_rec_idx).dispatch_number IS NOT NULL
298: AND p_x_ata_sequences_tbl(l_rec_idx).dispatch_number < 0)
303: -- Both Dispatch Number "DISP" and Installed Number "INST" for System Sequence "ATA" should be positive integers
304: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
305: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
306: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
307: FND_MSG_PUB.ADD;
308: END IF;
309:
310: IF (p_x_ata_sequences_tbl(l_rec_idx).dispatch_number IS NOT NULL AND
311: p_x_ata_sequences_tbl(l_rec_idx).installed_number IS NOT NULL AND
315: -- Dispatch Number "DISP" for System Sequence "ATA" should be less than Installed Number "INST"
316: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
317: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
318: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
319: FND_MSG_PUB.ADD;
320: END IF;
321: -- Fix for Bug# 8591484 Start
322: /*
323: IF (p_x_ata_sequences_tbl(l_rec_idx).dispatch_number IS NOT NULL AND
327: -- Installed Number should be entered when Required(Dispatch) Number is entered.
328: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
329: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
330: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
331: FND_MSG_PUB.ADD;
332: END IF;
333: */
334: -- Fix for Bug# 8591484 End
335: --amsriniv. End
333: */
334: -- Fix for Bug# 8591484 End
335: --amsriniv. End
336: -- Check Error Message stack.
337: x_msg_count := FND_MSG_PUB.count_msg;
338: IF (x_msg_count > 0)
339: THEN
340: RAISE FND_API.G_EXC_ERROR;
341: END IF;
532: THEN
533: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_INST_NUM_MAND');
534: -- Installed Number for System Sequence "ATA" is invalid
535: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
536: FND_MSG_PUB.ADD;
537: END IF;
538:
539: IF (p_x_ata_sequences_tbl(l_rec_idx).dispatch_number IS NULL OR p_x_ata_sequences_tbl(l_rec_idx).dispatch_number = FND_API.G_MISS_NUM)
540: THEN
540: THEN
541: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_DISP_NUM_MAND');
542: -- Dispatch Number for System Sequence "ATA" is invalid
543: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
544: FND_MSG_PUB.ADD;
545: END IF;
546: */
547: IF ((p_x_ata_sequences_tbl(l_rec_idx).dispatch_number IS NOT NULL AND
548: p_x_ata_sequences_tbl(l_rec_idx).dispatch_number < 0) OR
553: -- Both Dispatch Number "DISP" and Installed Number "INST" for System Sequence "ATA" should be positive integers
554: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
555: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
556: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
557: FND_MSG_PUB.ADD;
558: END IF;
559:
560: IF (p_x_ata_sequences_tbl(l_rec_idx).dispatch_number IS NOT NULL AND
561: p_x_ata_sequences_tbl(l_rec_idx).installed_number IS NOT NULL AND
565: -- Dispatch Number "DISP" for System Sequence "ATA" should be less than Installed Number "INST"
566: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
567: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
568: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
569: FND_MSG_PUB.ADD;
570: END IF;
571: -- Fix for Bug# 8591484 Start
572: /*
573: IF (p_x_ata_sequences_tbl(l_rec_idx).dispatch_number IS NOT NULL AND
577: -- Installed Number should be entered when Required(Dispatch) Number is entered.
578: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
579: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
580: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
581: FND_MSG_PUB.ADD;
582: END IF;
583: */
584: -- Fix for Bug# 8591484 End
585: --amsriniv. End
592: THEN
593: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_ATA_EXISTS');
594: -- System Sequence "ATA" is already associated with the MEL/CDL
595: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
596: FND_MSG_PUB.ADD;
597: END IF;
598: CLOSE check_ata_unique;
599:
600: -- Check Error Message stack.
597: END IF;
598: CLOSE check_ata_unique;
599:
600: -- Check Error Message stack.
601: x_msg_count := FND_MSG_PUB.count_msg;
602: IF (x_msg_count > 0)
603: THEN
604: RAISE FND_API.G_EXC_ERROR;
605: END IF;
778: );
779: END IF;
780:
781: -- Check Error Message stack.
782: x_msg_count := FND_MSG_PUB.count_msg;
783: IF (x_msg_count > 0)
784: THEN
785: RAISE FND_API.G_EXC_ERROR;
786: END IF;
791: COMMIT WORK;
792: END IF;
793:
794: -- Standard call to get message count and if count is 1, get message info
795: FND_MSG_PUB.count_and_get
796: (
797: p_count => x_msg_count,
798: p_data => x_msg_data,
799: p_encoded => FND_API.G_FALSE
802: EXCEPTION
803: WHEN FND_API.G_EXC_ERROR THEN
804: x_return_status := FND_API.G_RET_STS_ERROR;
805: Rollback to Process_Ata_Sequences_SP;
806: FND_MSG_PUB.count_and_get
807: (
808: p_count => x_msg_count,
809: p_data => x_msg_data,
810: p_encoded => FND_API.G_FALSE
812:
813: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
814: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
815: Rollback to Process_Ata_Sequences_SP;
816: FND_MSG_PUB.count_and_get
817: (
818: p_count => x_msg_count,
819: p_data => x_msg_data,
820: p_encoded => FND_API.G_FALSE
822:
823: WHEN OTHERS THEN
824: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
825: Rollback to Process_Ata_Sequences_SP;
826: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
827: THEN
828: FND_MSG_PUB.add_exc_msg
829: (
830: p_pkg_name => G_PKG_NAME,
824: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
825: Rollback to Process_Ata_Sequences_SP;
826: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
827: THEN
828: FND_MSG_PUB.add_exc_msg
829: (
830: p_pkg_name => G_PKG_NAME,
831: p_procedure_name => 'Process_Ata_Sequences',
832: p_error_text => SUBSTR(SQLERRM,1,240)
831: p_procedure_name => 'Process_Ata_Sequences',
832: p_error_text => SUBSTR(SQLERRM,1,240)
833: );
834: END IF;
835: FND_MSG_PUB.count_and_get
836: (
837: p_count => x_msg_count,
838: p_data => x_msg_data,
839: p_encoded => FND_API.G_FALSE
934:
935: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
936: IF FND_API.TO_BOOLEAN(p_init_msg_list)
937: THEN
938: FND_MSG_PUB.INITIALIZE;
939: END IF;
940:
941: -- Log API entry point
942: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
961: THEN
962: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_INVALID_DML_REC');
963: -- Invalid DML operation FIELD specified
964: FND_MESSAGE.SET_TOKEN('FIELD', p_x_mo_procedures_tbl(l_rec_idx).dml_operation);
965: FND_MSG_PUB.ADD;
966: RAISE FND_API.G_EXC_ERROR;
967: END IF;
968:
969: --Perform Deletion
994: IF (validate_mr_header_id%NOTFOUND)
995: THEN
996: FND_MESSAGE.Set_Name('AHL','AHL_MEL_CDL_MO_MR_NOTMO_INV');
997: FND_MESSAGE.SET_TOKEN('MRTITLE',p_x_mo_procedures_tbl(l_rec_idx).mr_title);
998: FND_MSG_PUB.ADD;
999: END IF;
1000: CLOSE validate_mr_header_id;
1001:
1002: -- Check if mr_header_id is in complete status
1006: IF (validate_mr_header_status%NOTFOUND)
1007: THEN
1008: FND_MESSAGE.Set_Name('AHL','AHL_MEL_CDL_MO_STATUS_INV');
1009: FND_MESSAGE.SET_TOKEN('MRTITLE',p_x_mo_procedures_tbl(l_rec_idx).mr_title);
1010: FND_MSG_PUB.ADD;
1011: END IF;
1012: CLOSE validate_mr_header_status;
1013:
1014: ELSIF (p_x_mo_procedures_tbl(l_rec_idx).mr_header_id IS NULL or p_x_mo_procedures_tbl(l_rec_idx).mr_header_id = FND_API.G_MISS_NUM)
1015: THEN
1016: IF (p_x_mo_procedures_tbl(l_rec_idx).mr_title IS NULL OR p_x_mo_procedures_tbl(l_rec_idx).mr_version_number IS NULL )
1017: THEN
1018: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_MO_MR_MAND');
1019: FND_MSG_PUB.ADD;
1020: ELSE
1021: --Get Mr Header Id using the Title and Version Number
1022: OPEN get_mr_header_id ( p_x_mo_procedures_tbl(l_rec_idx).mr_title, p_x_mo_procedures_tbl(l_rec_idx).mr_version_number );
1023: FETCH get_mr_header_id INTO p_x_mo_procedures_tbl(l_rec_idx).mr_header_id;
1025: IF (get_mr_header_id%NOTFOUND)
1026: THEN
1027: FND_MESSAGE.Set_Name('AHL','AHL_MEL_CDL_MO_INV');
1028: FND_MESSAGE.SET_TOKEN('MRTITLE',p_x_mo_procedures_tbl(l_rec_idx).mr_title);
1029: FND_MSG_PUB.ADD;
1030: END IF;
1031: CLOSE get_mr_header_id;
1032: END IF;
1033: END IF;
1041:
1042: IF(validate_ata_seq%NOTFOUND)
1043: THEN
1044: FND_MESSAGE.Set_Name('AHL','AHL_MEL_CDL_ATA_INV');
1045: FND_MSG_PUB.ADD;
1046: END IF;
1047: CLOSE validate_ata_seq;
1048:
1049: --Retrieve Mel Cdl Header Id for the Ata Sequence Id and validate id the MEL/CDL is in Draft /Approval Rejected
1054: IF (l_status NOT IN ('DRAFT', 'APPROVAL_REJECTED'))
1055: THEN
1056: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_UPDATA_STS_INV');
1057: -- Cannot process if MEL/CDL is not in draft or approval rejected status
1058: FND_MSG_PUB.ADD;
1059: RAISE FND_API.G_EXC_ERROR;
1060: END IF;
1061: END IF;
1062:
1074: WHEN NO_DATA_FOUND THEN
1075: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_MO_EXISTS');
1076: -- MO Proc Assocaition Already Exists for the ATA Seq
1077: FND_MESSAGE.SET_TOKEN('MRTitle', p_x_mo_procedures_tbl(l_rec_idx).mr_title);
1078: FND_MSG_PUB.ADD;
1079: END;
1080:
1081: -- Check Error Message stack.
1082: x_msg_count := FND_MSG_PUB.count_msg;
1078: FND_MSG_PUB.ADD;
1079: END;
1080:
1081: -- Check Error Message stack.
1082: x_msg_count := FND_MSG_PUB.count_msg;
1083: IF (x_msg_count > 0)
1084: THEN
1085: RAISE FND_API.G_EXC_ERROR;
1086: END IF;
1178: );
1179: END IF;
1180:
1181: -- Check Error Message stack.
1182: x_msg_count := FND_MSG_PUB.count_msg;
1183: IF (x_msg_count > 0)
1184: THEN
1185: RAISE FND_API.G_EXC_ERROR;
1186: END IF;
1191: COMMIT WORK;
1192: END IF;
1193:
1194: -- Standard call to get message count and if count is 1, get message info
1195: FND_MSG_PUB.count_and_get
1196: (
1197: p_count => x_msg_count,
1198: p_data => x_msg_data,
1199: p_encoded => FND_API.G_FALSE
1202: EXCEPTION
1203: WHEN FND_API.G_EXC_ERROR THEN
1204: x_return_status := FND_API.G_RET_STS_ERROR;
1205: Rollback to Process_Mo_Procedures_SP;
1206: FND_MSG_PUB.count_and_get
1207: (
1208: p_count => x_msg_count,
1209: p_data => x_msg_data,
1210: p_encoded => FND_API.G_FALSE
1212:
1213: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1214: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1215: Rollback to Process_Mo_Procedures_SP;
1216: FND_MSG_PUB.count_and_get
1217: (
1218: p_count => x_msg_count,
1219: p_data => x_msg_data,
1220: p_encoded => FND_API.G_FALSE
1222:
1223: WHEN OTHERS THEN
1224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1225: Rollback to Process_Mo_Procedures_SP;
1226: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1227: THEN
1228: FND_MSG_PUB.add_exc_msg
1229: (
1230: p_pkg_name => G_PKG_NAME,
1224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1225: Rollback to Process_Mo_Procedures_SP;
1226: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1227: THEN
1228: FND_MSG_PUB.add_exc_msg
1229: (
1230: p_pkg_name => G_PKG_NAME,
1231: p_procedure_name => 'Process_Mo_Procedures',
1232: p_error_text => SUBSTR(SQLERRM,1,240)
1231: p_procedure_name => 'Process_Mo_Procedures',
1232: p_error_text => SUBSTR(SQLERRM,1,240)
1233: );
1234: END IF;
1235: FND_MSG_PUB.count_and_get
1236: (
1237: p_count => x_msg_count,
1238: p_data => x_msg_data,
1239: p_encoded => FND_API.G_FALSE
1324:
1325: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
1326: IF FND_API.TO_BOOLEAN(p_init_msg_list)
1327: THEN
1328: FND_MSG_PUB.INITIALIZE;
1329: END IF;
1330:
1331: -- Log API entry point
1332: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1352:
1353: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_INVALID_DML_REC');
1354: -- Invalid DML operation FIELD specified
1355: FND_MESSAGE.SET_TOKEN('FIELD', p_x_ata_relations_tbl(l_rec_idx).dml_operation);
1356: FND_MSG_PUB.ADD;
1357: RAISE FND_API.G_EXC_ERROR;
1358: END IF;
1359:
1360: --Perform Deletion
1390: --Check if Ata Sequence Id is null , as its a mandatory field
1391: IF (p_x_ata_relations_tbl(l_rec_idx).ata_sequence_id IS NULL)
1392: THEN
1393: FND_MESSAGE.Set_Name('AHL', 'AHL_MEL_CDL_ATA_MAND');
1394: FND_MSG_PUB.ADD;
1395: END IF;
1396:
1397: --Check for the Related Ata Sequence Id, It is also a mandatory Field
1398: IF (p_x_ata_relations_tbl(l_rec_idx).related_ata_sequence_id IS NULL)
1397: --Check for the Related Ata Sequence Id, It is also a mandatory Field
1398: IF (p_x_ata_relations_tbl(l_rec_idx).related_ata_sequence_id IS NULL)
1399: THEN
1400: FND_MESSAGE.Set_Name('AHL', 'AHL_MEL_CDL_RELN_MAND');
1401: FND_MSG_PUB.ADD;
1402:
1403: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
1404: THEN
1405: fnd_log.message
1419:
1420: IF(validate_ata_seq%NOTFOUND)
1421: THEN
1422: FND_MESSAGE.Set_Name('AHL','AHL_MEL_CDL_ATA_INV');
1423: FND_MSG_PUB.ADD;
1424: END IF;
1425: CLOSE validate_ata_seq;
1426:
1427: --Retrieve Mel Cdl Header Id for the Ata Sequence Id and validate if the MEL/CDL is in Draft /Approval Rejected
1432: IF (l_status NOT IN ('DRAFT', 'APPROVAL_REJECTED'))
1433: THEN
1434: FND_MESSAGE.SET_NAME(G_APP_NAME, ' AHL_MEL_CDL_UPDATA_STS_INV');
1435: -- Cannot process if MEL/CDL is not in draft or approval rejected status
1436: FND_MSG_PUB.ADD;
1437: RAISE FND_API.G_EXC_ERROR;
1438: END IF;
1439: END IF;
1440:
1446:
1447: IF(validate_ata_seq%NOTFOUND)
1448: THEN
1449: FND_MESSAGE.Set_Name('AHL','AHL_MEL_CDL_ATA_INV');
1450: FND_MSG_PUB.ADD;
1451: END IF;
1452: CLOSE validate_ata_seq;
1453: END IF;
1454:
1475: THEN
1476: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_RELN_EXISTS');
1477: -- Interrelation alredy Exists for ATA Sequence
1478: FND_MESSAGE.SET_TOKEN('ATA',l_ata_mng);
1479: FND_MSG_PUB.ADD;
1480: END IF;
1481: CLOSE Check_Reln_Exists;
1482:
1483: --Check if both the ATA's belong to the same MEL/CDL as inter assocaitions is not allowed.
1488: THEN
1489: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_RELN_DIFF');
1490: FND_MESSAGE.SET_TOKEN('ATA', l_ata_mng);
1491: FND_MESSAGE.SET_TOKEN('RELATA', l_reln_ata_mng);
1492: FND_MSG_PUB.ADD;
1493: END IF;
1494: CLOSE Validate_For_Same_Mel_Cdl;
1495:
1496: -- Check for Cyclic Association (If the Ata Seq chosen for Association is same as the one to which it is getting associated
1501: THEN
1502: IF (p_x_ata_relations_tbl(l_rec_idx).ata_sequence_id = p_x_ata_relations_tbl(l_rec_idx).related_ata_sequence_id )
1503: THEN
1504: FND_MESSAGE.Set_Name('AHL','AHL_MEL_CDL_RELN_CYCLIC');
1505: FND_MSG_PUB.ADD;
1506: END IF;
1507:
1508: END IF;
1509:
1507:
1508: END IF;
1509:
1510: -- Check Error Message stack.
1511: x_msg_count := FND_MSG_PUB.count_msg;
1512: IF (x_msg_count > 0)
1513: THEN
1514: RAISE FND_API.G_EXC_ERROR;
1515: END IF;
1604: );
1605: END IF;
1606:
1607: -- Check Error Message stack.
1608: x_msg_count := FND_MSG_PUB.count_msg;
1609: IF (x_msg_count > 0)
1610: THEN
1611: RAISE FND_API.G_EXC_ERROR;
1612: END IF;
1617: COMMIT WORK;
1618: END IF;
1619:
1620: -- Standard call to get message count and if count is 1, get message info
1621: FND_MSG_PUB.count_and_get
1622: (
1623: p_count => x_msg_count,
1624: p_data => x_msg_data,
1625: p_encoded => FND_API.G_FALSE
1628: EXCEPTION
1629: WHEN FND_API.G_EXC_ERROR THEN
1630: x_return_status := FND_API.G_RET_STS_ERROR;
1631: Rollback to Process_Ata_Relations_SP;
1632: FND_MSG_PUB.count_and_get
1633: (
1634: p_count => x_msg_count,
1635: p_data => x_msg_data,
1636: p_encoded => FND_API.G_FALSE
1638:
1639: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1641: Rollback to Process_Ata_Relations_SP;
1642: FND_MSG_PUB.count_and_get
1643: (
1644: p_count => x_msg_count,
1645: p_data => x_msg_data,
1646: p_encoded => FND_API.G_FALSE
1648:
1649: WHEN OTHERS THEN
1650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1651: Rollback to Process_Ata_Relations_SP;
1652: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1653: THEN
1654: FND_MSG_PUB.add_exc_msg
1655: (
1656: p_pkg_name => G_PKG_NAME,
1650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1651: Rollback to Process_Ata_Relations_SP;
1652: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1653: THEN
1654: FND_MSG_PUB.add_exc_msg
1655: (
1656: p_pkg_name => G_PKG_NAME,
1657: p_procedure_name => 'Process_Ata_Relations',
1658: p_error_text => SUBSTR(SQLERRM,1,240)
1657: p_procedure_name => 'Process_Ata_Relations',
1658: p_error_text => SUBSTR(SQLERRM,1,240)
1659: );
1660: END IF;
1661: FND_MSG_PUB.count_and_get
1662: (
1663: p_count => x_msg_count,
1664: p_data => x_msg_data,
1665: p_encoded => FND_API.G_FALSE
1720:
1721: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
1722: IF FND_API.TO_BOOLEAN(p_init_msg_list)
1723: THEN
1724: FND_MSG_PUB.INITIALIZE;
1725: END IF;
1726:
1727: -- Log API entry point
1728: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1818: );
1819: END IF;
1820:
1821: -- Check Error Message stack.
1822: x_msg_count := FND_MSG_PUB.count_msg;
1823: IF (x_msg_count > 0)
1824: THEN
1825: RAISE FND_API.G_EXC_ERROR;
1826: END IF;
1831: COMMIT WORK;
1832: END IF;
1833:
1834: -- Standard call to get message count and if count is 1, get message info
1835: FND_MSG_PUB.count_and_get
1836: (
1837: p_count => x_msg_count,
1838: p_data => x_msg_data,
1839: p_encoded => FND_API.G_FALSE
1842: EXCEPTION
1843: WHEN FND_API.G_EXC_ERROR THEN
1844: x_return_status := FND_API.G_RET_STS_ERROR;
1845: Rollback to Copy_MO_Proc_Revision_SP;
1846: FND_MSG_PUB.count_and_get
1847: (
1848: p_count => x_msg_count,
1849: p_data => x_msg_data,
1850: p_encoded => FND_API.G_FALSE
1852:
1853: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1854: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1855: Rollback to Copy_MO_Proc_Revision_SP;
1856: FND_MSG_PUB.count_and_get
1857: (
1858: p_count => x_msg_count,
1859: p_data => x_msg_data,
1860: p_encoded => FND_API.G_FALSE
1862:
1863: WHEN OTHERS THEN
1864: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1865: Rollback to Copy_MO_Proc_Revision_SP;
1866: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1867: THEN
1868: FND_MSG_PUB.add_exc_msg
1869: (
1870: p_pkg_name => G_PKG_NAME,
1864: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1865: Rollback to Copy_MO_Proc_Revision_SP;
1866: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1867: THEN
1868: FND_MSG_PUB.add_exc_msg
1869: (
1870: p_pkg_name => G_PKG_NAME,
1871: p_procedure_name => 'Copy_MO_Proc_Revision',
1872: p_error_text => SUBSTR(SQLERRM,1,240)
1871: p_procedure_name => 'Copy_MO_Proc_Revision',
1872: p_error_text => SUBSTR(SQLERRM,1,240)
1873: );
1874: END IF;
1875: FND_MSG_PUB.count_and_get
1876: (
1877: p_count => x_msg_count,
1878: p_data => x_msg_data,
1879: p_encoded => FND_API.G_FALSE
1906: THEN
1907: CLOSE check_exists;
1908: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_ATA_NOTFOUND');
1909: -- System Sequence is not found
1910: FND_MSG_PUB.ADD;
1911: RAISE FND_API.G_EXC_ERROR;
1912: ELSE
1913: CLOSE check_exists;
1914: IF (l_ovn <> p_ata_object_version)
1914: IF (l_ovn <> p_ata_object_version)
1915: THEN
1916: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_RECORD_CHANGED');
1917: -- Record has been modified by another user
1918: FND_MSG_PUB.ADD;
1919: RAISE FND_API.G_EXC_ERROR;
1920: END IF;
1921: END IF;
1922:
1955: IF (p_x_ata_sequences_rec.ata_code IS NULL OR p_x_ata_sequences_rec.ata_code = FND_API.G_MISS_CHAR)
1956: THEN
1957: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_ATA_MAND');
1958: -- System Sequence is mandatory
1959: FND_MSG_PUB.ADD;
1960: ELSIF NOT (AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_ATA_CODE', p_x_ata_sequences_rec.ata_code))
1961: THEN
1962: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_ATA_INV');
1963: -- System Sequence is invalid
1960: ELSIF NOT (AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_ATA_CODE', p_x_ata_sequences_rec.ata_code))
1961: THEN
1962: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_ATA_INV');
1963: -- System Sequence is invalid
1964: FND_MSG_PUB.ADD;
1965: END IF;
1966:
1967: -- Convert value-to-id for sr_urgency
1968: IF (p_x_ata_sequences_rec.repair_category_id IS NULL OR p_x_ata_sequences_rec.repair_category_id = FND_API.G_MISS_NUM)
1971: THEN
1972: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_REPCAT_MAND');
1973: -- Repair Category for System Sequence "ATA" is mandatory
1974: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_rec.ata_code);
1975: FND_MSG_PUB.ADD;
1976: ELSE
1977: OPEN convert_repcat(p_x_ata_sequences_rec.repair_category_name);
1978: FETCH convert_repcat INTO p_x_ata_sequences_rec.repair_category_id;
1979: IF (convert_repcat%NOTFOUND)
1980: THEN
1981: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_REPCAT_INV');
1982: -- Repair Category for System Sequence "ATA" is invalid
1983: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_rec.ata_code);
1984: FND_MSG_PUB.ADD;
1985: END IF;
1986: CLOSE convert_repcat;
1987: END IF;
1988: ELSE
1992: THEN
1993: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_REPCAT_INV');
1994: -- Repair Category for System Sequence "ATA" is invalid
1995: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_rec.ata_code);
1996: FND_MSG_PUB.ADD;
1997: END IF;
1998: CLOSE validate_repcat;
1999: END IF;
2000:
2039: CLOSE get_ata_mel_cdl_status;
2040: ELSE
2041: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_HDR_MAND');
2042: -- MEL/CDL information is mandatory for processing System Sequence(s)
2043: FND_MSG_PUB.ADD;
2044: RAISE FND_API.G_EXC_ERROR;
2045: END IF;
2046:
2047: IF (l_status NOT IN ('DRAFT', 'APPROVAL_REJECTED'))
2047: IF (l_status NOT IN ('DRAFT', 'APPROVAL_REJECTED'))
2048: THEN
2049: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NOT_DRAFT_ATA');
2050: -- Cannot process System Sequence(s) for MEL/CDL not in draft or approval rejected status
2051: FND_MSG_PUB.ADD;
2052: RAISE FND_API.G_EXC_ERROR;
2053: ELSIF (l_status = 'APPROVAL_REJECTED')
2054: THEN
2055: UPDATE ahl_mel_cdl_headers
2086: THEN
2087: CLOSE check_exists;
2088: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_MO_PROC_NOTFOUND');
2089: -- MO Procedure is not found
2090: FND_MSG_PUB.ADD;
2091: RAISE FND_API.G_EXC_ERROR;
2092: ELSE
2093: CLOSE check_exists;
2094: IF (l_ovn <> p_mo_proc_object_version)
2094: IF (l_ovn <> p_mo_proc_object_version)
2095: THEN
2096: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_RECORD_CHANGED');
2097: -- Record has been modified by another user
2098: FND_MSG_PUB.ADD;
2099: RAISE FND_API.G_EXC_ERROR;
2100: END IF;
2101: END IF;
2102:
2130: CLOSE check_exists;
2131:
2132: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_REL_NOTFOUND');
2133: -- MO Procedure is not found
2134: FND_MSG_PUB.ADD;
2135: RAISE FND_API.G_EXC_ERROR;
2136:
2137: ELSE
2138: CLOSE check_exists;
2140: IF (l_ovn <> p_rel_object_version)
2141: THEN
2142: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_RECORD_CHANGED');
2143: -- Record has been modified by another user
2144: FND_MSG_PUB.ADD;
2145: RAISE FND_API.G_EXC_ERROR;
2146: END IF;
2147:
2148: END IF;