[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:
322: IF (p_x_ata_sequences_tbl(l_rec_idx).dispatch_number IS NOT NULL AND
323: p_x_ata_sequences_tbl(l_rec_idx).installed_number IS NULL)
326: -- Installed Number should be entered when Required(Dispatch) Number is entered.
327: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
328: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
329: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
330: FND_MSG_PUB.ADD;
331: END IF;
332: --amsriniv. End
333: -- Check Error Message stack.
334: x_msg_count := FND_MSG_PUB.count_msg;
330: FND_MSG_PUB.ADD;
331: END IF;
332: --amsriniv. End
333: -- Check Error Message stack.
334: x_msg_count := FND_MSG_PUB.count_msg;
335: IF (x_msg_count > 0)
336: THEN
337: RAISE FND_API.G_EXC_ERROR;
338: END IF;
529: THEN
530: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_INST_NUM_MAND');
531: -- Installed Number for System Sequence "ATA" is invalid
532: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
533: FND_MSG_PUB.ADD;
534: END IF;
535:
536: 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)
537: THEN
537: THEN
538: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_DISP_NUM_MAND');
539: -- Dispatch Number for System Sequence "ATA" is invalid
540: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
541: FND_MSG_PUB.ADD;
542: END IF;
543: */
544: IF ((p_x_ata_sequences_tbl(l_rec_idx).dispatch_number IS NOT NULL AND
545: p_x_ata_sequences_tbl(l_rec_idx).dispatch_number < 0) OR
550: -- Both Dispatch Number "DISP" and Installed Number "INST" for System Sequence "ATA" should be positive integers
551: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
552: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
553: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
554: FND_MSG_PUB.ADD;
555: END IF;
556:
557: IF (p_x_ata_sequences_tbl(l_rec_idx).dispatch_number IS NOT NULL AND
558: p_x_ata_sequences_tbl(l_rec_idx).installed_number IS NOT NULL AND
562: -- Dispatch Number "DISP" for System Sequence "ATA" should be less than Installed Number "INST"
563: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
564: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
565: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
566: FND_MSG_PUB.ADD;
567: END IF;
568:
569: IF (p_x_ata_sequences_tbl(l_rec_idx).dispatch_number IS NOT NULL AND
570: p_x_ata_sequences_tbl(l_rec_idx).installed_number IS NULL)
573: -- Installed Number should be entered when Required(Dispatch) Number is entered.
574: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
575: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
576: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
577: FND_MSG_PUB.ADD;
578: END IF;
579: --amsriniv. End
580:
581:
586: THEN
587: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_ATA_EXISTS');
588: -- System Sequence "ATA" is already associated with the MEL/CDL
589: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
590: FND_MSG_PUB.ADD;
591: END IF;
592: CLOSE check_ata_unique;
593:
594: -- Check Error Message stack.
591: END IF;
592: CLOSE check_ata_unique;
593:
594: -- Check Error Message stack.
595: x_msg_count := FND_MSG_PUB.count_msg;
596: IF (x_msg_count > 0)
597: THEN
598: RAISE FND_API.G_EXC_ERROR;
599: END IF;
772: );
773: END IF;
774:
775: -- Check Error Message stack.
776: x_msg_count := FND_MSG_PUB.count_msg;
777: IF (x_msg_count > 0)
778: THEN
779: RAISE FND_API.G_EXC_ERROR;
780: END IF;
785: COMMIT WORK;
786: END IF;
787:
788: -- Standard call to get message count and if count is 1, get message info
789: FND_MSG_PUB.count_and_get
790: (
791: p_count => x_msg_count,
792: p_data => x_msg_data,
793: p_encoded => FND_API.G_FALSE
796: EXCEPTION
797: WHEN FND_API.G_EXC_ERROR THEN
798: x_return_status := FND_API.G_RET_STS_ERROR;
799: Rollback to Process_Ata_Sequences_SP;
800: FND_MSG_PUB.count_and_get
801: (
802: p_count => x_msg_count,
803: p_data => x_msg_data,
804: p_encoded => FND_API.G_FALSE
806:
807: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
809: Rollback to Process_Ata_Sequences_SP;
810: FND_MSG_PUB.count_and_get
811: (
812: p_count => x_msg_count,
813: p_data => x_msg_data,
814: p_encoded => FND_API.G_FALSE
816:
817: WHEN OTHERS THEN
818: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
819: Rollback to Process_Ata_Sequences_SP;
820: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
821: THEN
822: FND_MSG_PUB.add_exc_msg
823: (
824: p_pkg_name => G_PKG_NAME,
818: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
819: Rollback to Process_Ata_Sequences_SP;
820: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
821: THEN
822: FND_MSG_PUB.add_exc_msg
823: (
824: p_pkg_name => G_PKG_NAME,
825: p_procedure_name => 'Process_Ata_Sequences',
826: p_error_text => SUBSTR(SQLERRM,1,240)
825: p_procedure_name => 'Process_Ata_Sequences',
826: p_error_text => SUBSTR(SQLERRM,1,240)
827: );
828: END IF;
829: FND_MSG_PUB.count_and_get
830: (
831: p_count => x_msg_count,
832: p_data => x_msg_data,
833: p_encoded => FND_API.G_FALSE
928:
929: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
930: IF FND_API.TO_BOOLEAN(p_init_msg_list)
931: THEN
932: FND_MSG_PUB.INITIALIZE;
933: END IF;
934:
935: -- Log API entry point
936: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
955: THEN
956: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_INVALID_DML_REC');
957: -- Invalid DML operation FIELD specified
958: FND_MESSAGE.SET_TOKEN('FIELD', p_x_mo_procedures_tbl(l_rec_idx).dml_operation);
959: FND_MSG_PUB.ADD;
960: RAISE FND_API.G_EXC_ERROR;
961: END IF;
962:
963: --Perform Deletion
988: IF (validate_mr_header_id%NOTFOUND)
989: THEN
990: FND_MESSAGE.Set_Name('AHL','AHL_MEL_CDL_MO_MR_NOTMO_INV');
991: FND_MESSAGE.SET_TOKEN('MRTITLE',p_x_mo_procedures_tbl(l_rec_idx).mr_title);
992: FND_MSG_PUB.ADD;
993: END IF;
994: CLOSE validate_mr_header_id;
995:
996: -- Check if mr_header_id is in complete status
1000: IF (validate_mr_header_status%NOTFOUND)
1001: THEN
1002: FND_MESSAGE.Set_Name('AHL','AHL_MEL_CDL_MO_STATUS_INV');
1003: FND_MESSAGE.SET_TOKEN('MRTITLE',p_x_mo_procedures_tbl(l_rec_idx).mr_title);
1004: FND_MSG_PUB.ADD;
1005: END IF;
1006: CLOSE validate_mr_header_status;
1007:
1008: 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)
1009: THEN
1010: 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 )
1011: THEN
1012: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_MO_MR_MAND');
1013: FND_MSG_PUB.ADD;
1014: ELSE
1015: --Get Mr Header Id using the Title and Version Number
1016: 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 );
1017: FETCH get_mr_header_id INTO p_x_mo_procedures_tbl(l_rec_idx).mr_header_id;
1019: IF (get_mr_header_id%NOTFOUND)
1020: THEN
1021: FND_MESSAGE.Set_Name('AHL','AHL_MEL_CDL_MO_INV');
1022: FND_MESSAGE.SET_TOKEN('MRTITLE',p_x_mo_procedures_tbl(l_rec_idx).mr_title);
1023: FND_MSG_PUB.ADD;
1024: END IF;
1025: CLOSE get_mr_header_id;
1026: END IF;
1027: END IF;
1035:
1036: IF(validate_ata_seq%NOTFOUND)
1037: THEN
1038: FND_MESSAGE.Set_Name('AHL','AHL_MEL_CDL_ATA_INV');
1039: FND_MSG_PUB.ADD;
1040: END IF;
1041: CLOSE validate_ata_seq;
1042:
1043: --Retrieve Mel Cdl Header Id for the Ata Sequence Id and validate id the MEL/CDL is in Draft /Approval Rejected
1048: IF (l_status NOT IN ('DRAFT', 'APPROVAL_REJECTED'))
1049: THEN
1050: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_UPDATA_STS_INV');
1051: -- Cannot process if MEL/CDL is not in draft or approval rejected status
1052: FND_MSG_PUB.ADD;
1053: RAISE FND_API.G_EXC_ERROR;
1054: END IF;
1055: END IF;
1056:
1068: WHEN NO_DATA_FOUND THEN
1069: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_MO_EXISTS');
1070: -- MO Proc Assocaition Already Exists for the ATA Seq
1071: FND_MESSAGE.SET_TOKEN('MRTitle', p_x_mo_procedures_tbl(l_rec_idx).mr_title);
1072: FND_MSG_PUB.ADD;
1073: END;
1074:
1075: -- Check Error Message stack.
1076: x_msg_count := FND_MSG_PUB.count_msg;
1072: FND_MSG_PUB.ADD;
1073: END;
1074:
1075: -- Check Error Message stack.
1076: x_msg_count := FND_MSG_PUB.count_msg;
1077: IF (x_msg_count > 0)
1078: THEN
1079: RAISE FND_API.G_EXC_ERROR;
1080: END IF;
1172: );
1173: END IF;
1174:
1175: -- Check Error Message stack.
1176: x_msg_count := FND_MSG_PUB.count_msg;
1177: IF (x_msg_count > 0)
1178: THEN
1179: RAISE FND_API.G_EXC_ERROR;
1180: END IF;
1185: COMMIT WORK;
1186: END IF;
1187:
1188: -- Standard call to get message count and if count is 1, get message info
1189: FND_MSG_PUB.count_and_get
1190: (
1191: p_count => x_msg_count,
1192: p_data => x_msg_data,
1193: p_encoded => FND_API.G_FALSE
1196: EXCEPTION
1197: WHEN FND_API.G_EXC_ERROR THEN
1198: x_return_status := FND_API.G_RET_STS_ERROR;
1199: Rollback to Process_Mo_Procedures_SP;
1200: FND_MSG_PUB.count_and_get
1201: (
1202: p_count => x_msg_count,
1203: p_data => x_msg_data,
1204: p_encoded => FND_API.G_FALSE
1206:
1207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1209: Rollback to Process_Mo_Procedures_SP;
1210: FND_MSG_PUB.count_and_get
1211: (
1212: p_count => x_msg_count,
1213: p_data => x_msg_data,
1214: p_encoded => FND_API.G_FALSE
1216:
1217: WHEN OTHERS THEN
1218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1219: Rollback to Process_Mo_Procedures_SP;
1220: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1221: THEN
1222: FND_MSG_PUB.add_exc_msg
1223: (
1224: p_pkg_name => G_PKG_NAME,
1218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1219: Rollback to Process_Mo_Procedures_SP;
1220: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1221: THEN
1222: FND_MSG_PUB.add_exc_msg
1223: (
1224: p_pkg_name => G_PKG_NAME,
1225: p_procedure_name => 'Process_Mo_Procedures',
1226: p_error_text => SUBSTR(SQLERRM,1,240)
1225: p_procedure_name => 'Process_Mo_Procedures',
1226: p_error_text => SUBSTR(SQLERRM,1,240)
1227: );
1228: END IF;
1229: FND_MSG_PUB.count_and_get
1230: (
1231: p_count => x_msg_count,
1232: p_data => x_msg_data,
1233: p_encoded => FND_API.G_FALSE
1318:
1319: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
1320: IF FND_API.TO_BOOLEAN(p_init_msg_list)
1321: THEN
1322: FND_MSG_PUB.INITIALIZE;
1323: END IF;
1324:
1325: -- Log API entry point
1326: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1346:
1347: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_INVALID_DML_REC');
1348: -- Invalid DML operation FIELD specified
1349: FND_MESSAGE.SET_TOKEN('FIELD', p_x_ata_relations_tbl(l_rec_idx).dml_operation);
1350: FND_MSG_PUB.ADD;
1351: RAISE FND_API.G_EXC_ERROR;
1352: END IF;
1353:
1354: --Perform Deletion
1384: --Check if Ata Sequence Id is null , as its a mandatory field
1385: IF (p_x_ata_relations_tbl(l_rec_idx).ata_sequence_id IS NULL)
1386: THEN
1387: FND_MESSAGE.Set_Name('AHL', 'AHL_MEL_CDL_ATA_MAND');
1388: FND_MSG_PUB.ADD;
1389: END IF;
1390:
1391: --Check for the Related Ata Sequence Id, It is also a mandatory Field
1392: IF (p_x_ata_relations_tbl(l_rec_idx).related_ata_sequence_id IS NULL)
1391: --Check for the Related Ata Sequence Id, It is also a mandatory Field
1392: IF (p_x_ata_relations_tbl(l_rec_idx).related_ata_sequence_id IS NULL)
1393: THEN
1394: FND_MESSAGE.Set_Name('AHL', 'AHL_MEL_CDL_RELN_MAND');
1395: FND_MSG_PUB.ADD;
1396:
1397: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
1398: THEN
1399: fnd_log.message
1413:
1414: IF(validate_ata_seq%NOTFOUND)
1415: THEN
1416: FND_MESSAGE.Set_Name('AHL','AHL_MEL_CDL_ATA_INV');
1417: FND_MSG_PUB.ADD;
1418: END IF;
1419: CLOSE validate_ata_seq;
1420:
1421: --Retrieve Mel Cdl Header Id for the Ata Sequence Id and validate if the MEL/CDL is in Draft /Approval Rejected
1426: IF (l_status NOT IN ('DRAFT', 'APPROVAL_REJECTED'))
1427: THEN
1428: FND_MESSAGE.SET_NAME(G_APP_NAME, ' AHL_MEL_CDL_UPDATA_STS_INV');
1429: -- Cannot process if MEL/CDL is not in draft or approval rejected status
1430: FND_MSG_PUB.ADD;
1431: RAISE FND_API.G_EXC_ERROR;
1432: END IF;
1433: END IF;
1434:
1440:
1441: IF(validate_ata_seq%NOTFOUND)
1442: THEN
1443: FND_MESSAGE.Set_Name('AHL','AHL_MEL_CDL_ATA_INV');
1444: FND_MSG_PUB.ADD;
1445: END IF;
1446: CLOSE validate_ata_seq;
1447: END IF;
1448:
1469: THEN
1470: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_RELN_EXISTS');
1471: -- Interrelation alredy Exists for ATA Sequence
1472: FND_MESSAGE.SET_TOKEN('ATA',l_ata_mng);
1473: FND_MSG_PUB.ADD;
1474: END IF;
1475: CLOSE Check_Reln_Exists;
1476:
1477: --Check if both the ATA's belong to the same MEL/CDL as inter assocaitions is not allowed.
1482: THEN
1483: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_RELN_DIFF');
1484: FND_MESSAGE.SET_TOKEN('ATA', l_ata_mng);
1485: FND_MESSAGE.SET_TOKEN('RELATA', l_reln_ata_mng);
1486: FND_MSG_PUB.ADD;
1487: END IF;
1488: CLOSE Validate_For_Same_Mel_Cdl;
1489:
1490: -- Check for Cyclic Association (If the Ata Seq chosen for Association is same as the one to which it is getting associated
1495: THEN
1496: IF (p_x_ata_relations_tbl(l_rec_idx).ata_sequence_id = p_x_ata_relations_tbl(l_rec_idx).related_ata_sequence_id )
1497: THEN
1498: FND_MESSAGE.Set_Name('AHL','AHL_MEL_CDL_RELN_CYCLIC');
1499: FND_MSG_PUB.ADD;
1500: END IF;
1501:
1502: END IF;
1503:
1501:
1502: END IF;
1503:
1504: -- Check Error Message stack.
1505: x_msg_count := FND_MSG_PUB.count_msg;
1506: IF (x_msg_count > 0)
1507: THEN
1508: RAISE FND_API.G_EXC_ERROR;
1509: END IF;
1598: );
1599: END IF;
1600:
1601: -- Check Error Message stack.
1602: x_msg_count := FND_MSG_PUB.count_msg;
1603: IF (x_msg_count > 0)
1604: THEN
1605: RAISE FND_API.G_EXC_ERROR;
1606: END IF;
1611: COMMIT WORK;
1612: END IF;
1613:
1614: -- Standard call to get message count and if count is 1, get message info
1615: FND_MSG_PUB.count_and_get
1616: (
1617: p_count => x_msg_count,
1618: p_data => x_msg_data,
1619: p_encoded => FND_API.G_FALSE
1622: EXCEPTION
1623: WHEN FND_API.G_EXC_ERROR THEN
1624: x_return_status := FND_API.G_RET_STS_ERROR;
1625: Rollback to Process_Ata_Relations_SP;
1626: FND_MSG_PUB.count_and_get
1627: (
1628: p_count => x_msg_count,
1629: p_data => x_msg_data,
1630: p_encoded => FND_API.G_FALSE
1632:
1633: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1635: Rollback to Process_Ata_Relations_SP;
1636: FND_MSG_PUB.count_and_get
1637: (
1638: p_count => x_msg_count,
1639: p_data => x_msg_data,
1640: p_encoded => FND_API.G_FALSE
1642:
1643: WHEN OTHERS THEN
1644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1645: Rollback to Process_Ata_Relations_SP;
1646: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1647: THEN
1648: FND_MSG_PUB.add_exc_msg
1649: (
1650: p_pkg_name => G_PKG_NAME,
1644: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1645: Rollback to Process_Ata_Relations_SP;
1646: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1647: THEN
1648: FND_MSG_PUB.add_exc_msg
1649: (
1650: p_pkg_name => G_PKG_NAME,
1651: p_procedure_name => 'Process_Ata_Relations',
1652: p_error_text => SUBSTR(SQLERRM,1,240)
1651: p_procedure_name => 'Process_Ata_Relations',
1652: p_error_text => SUBSTR(SQLERRM,1,240)
1653: );
1654: END IF;
1655: FND_MSG_PUB.count_and_get
1656: (
1657: p_count => x_msg_count,
1658: p_data => x_msg_data,
1659: p_encoded => FND_API.G_FALSE
1714:
1715: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
1716: IF FND_API.TO_BOOLEAN(p_init_msg_list)
1717: THEN
1718: FND_MSG_PUB.INITIALIZE;
1719: END IF;
1720:
1721: -- Log API entry point
1722: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)
1812: );
1813: END IF;
1814:
1815: -- Check Error Message stack.
1816: x_msg_count := FND_MSG_PUB.count_msg;
1817: IF (x_msg_count > 0)
1818: THEN
1819: RAISE FND_API.G_EXC_ERROR;
1820: END IF;
1825: COMMIT WORK;
1826: END IF;
1827:
1828: -- Standard call to get message count and if count is 1, get message info
1829: FND_MSG_PUB.count_and_get
1830: (
1831: p_count => x_msg_count,
1832: p_data => x_msg_data,
1833: p_encoded => FND_API.G_FALSE
1836: EXCEPTION
1837: WHEN FND_API.G_EXC_ERROR THEN
1838: x_return_status := FND_API.G_RET_STS_ERROR;
1839: Rollback to Copy_MO_Proc_Revision_SP;
1840: FND_MSG_PUB.count_and_get
1841: (
1842: p_count => x_msg_count,
1843: p_data => x_msg_data,
1844: p_encoded => FND_API.G_FALSE
1846:
1847: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1848: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1849: Rollback to Copy_MO_Proc_Revision_SP;
1850: FND_MSG_PUB.count_and_get
1851: (
1852: p_count => x_msg_count,
1853: p_data => x_msg_data,
1854: p_encoded => FND_API.G_FALSE
1856:
1857: WHEN OTHERS THEN
1858: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1859: Rollback to Copy_MO_Proc_Revision_SP;
1860: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1861: THEN
1862: FND_MSG_PUB.add_exc_msg
1863: (
1864: p_pkg_name => G_PKG_NAME,
1858: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1859: Rollback to Copy_MO_Proc_Revision_SP;
1860: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1861: THEN
1862: FND_MSG_PUB.add_exc_msg
1863: (
1864: p_pkg_name => G_PKG_NAME,
1865: p_procedure_name => 'Copy_MO_Proc_Revision',
1866: p_error_text => SUBSTR(SQLERRM,1,240)
1865: p_procedure_name => 'Copy_MO_Proc_Revision',
1866: p_error_text => SUBSTR(SQLERRM,1,240)
1867: );
1868: END IF;
1869: FND_MSG_PUB.count_and_get
1870: (
1871: p_count => x_msg_count,
1872: p_data => x_msg_data,
1873: p_encoded => FND_API.G_FALSE
1900: THEN
1901: CLOSE check_exists;
1902: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_ATA_NOTFOUND');
1903: -- System Sequence is not found
1904: FND_MSG_PUB.ADD;
1905: RAISE FND_API.G_EXC_ERROR;
1906: ELSE
1907: CLOSE check_exists;
1908: IF (l_ovn <> p_ata_object_version)
1908: IF (l_ovn <> p_ata_object_version)
1909: THEN
1910: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_RECORD_CHANGED');
1911: -- Record has been modified by another user
1912: FND_MSG_PUB.ADD;
1913: RAISE FND_API.G_EXC_ERROR;
1914: END IF;
1915: END IF;
1916:
1949: IF (p_x_ata_sequences_rec.ata_code IS NULL OR p_x_ata_sequences_rec.ata_code = FND_API.G_MISS_CHAR)
1950: THEN
1951: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_ATA_MAND');
1952: -- System Sequence is mandatory
1953: FND_MSG_PUB.ADD;
1954: ELSIF NOT (AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_ATA_CODE', p_x_ata_sequences_rec.ata_code))
1955: THEN
1956: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_ATA_INV');
1957: -- System Sequence is invalid
1954: ELSIF NOT (AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_ATA_CODE', p_x_ata_sequences_rec.ata_code))
1955: THEN
1956: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_ATA_INV');
1957: -- System Sequence is invalid
1958: FND_MSG_PUB.ADD;
1959: END IF;
1960:
1961: -- Convert value-to-id for sr_urgency
1962: 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)
1965: THEN
1966: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_REPCAT_MAND');
1967: -- Repair Category for System Sequence "ATA" is mandatory
1968: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_rec.ata_code);
1969: FND_MSG_PUB.ADD;
1970: ELSE
1971: OPEN convert_repcat(p_x_ata_sequences_rec.repair_category_name);
1972: FETCH convert_repcat INTO p_x_ata_sequences_rec.repair_category_id;
1973: IF (convert_repcat%NOTFOUND)
1974: THEN
1975: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_REPCAT_INV');
1976: -- Repair Category for System Sequence "ATA" is invalid
1977: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_rec.ata_code);
1978: FND_MSG_PUB.ADD;
1979: END IF;
1980: CLOSE convert_repcat;
1981: END IF;
1982: ELSE
1986: THEN
1987: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_REPCAT_INV');
1988: -- Repair Category for System Sequence "ATA" is invalid
1989: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_rec.ata_code);
1990: FND_MSG_PUB.ADD;
1991: END IF;
1992: CLOSE validate_repcat;
1993: END IF;
1994:
2033: CLOSE get_ata_mel_cdl_status;
2034: ELSE
2035: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_HDR_MAND');
2036: -- MEL/CDL information is mandatory for processing System Sequence(s)
2037: FND_MSG_PUB.ADD;
2038: RAISE FND_API.G_EXC_ERROR;
2039: END IF;
2040:
2041: IF (l_status NOT IN ('DRAFT', 'APPROVAL_REJECTED'))
2041: IF (l_status NOT IN ('DRAFT', 'APPROVAL_REJECTED'))
2042: THEN
2043: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NOT_DRAFT_ATA');
2044: -- Cannot process System Sequence(s) for MEL/CDL not in draft or approval rejected status
2045: FND_MSG_PUB.ADD;
2046: RAISE FND_API.G_EXC_ERROR;
2047: ELSIF (l_status = 'APPROVAL_REJECTED')
2048: THEN
2049: UPDATE ahl_mel_cdl_headers
2080: THEN
2081: CLOSE check_exists;
2082: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_MO_PROC_NOTFOUND');
2083: -- MO Procedure is not found
2084: FND_MSG_PUB.ADD;
2085: RAISE FND_API.G_EXC_ERROR;
2086: ELSE
2087: CLOSE check_exists;
2088: IF (l_ovn <> p_mo_proc_object_version)
2088: IF (l_ovn <> p_mo_proc_object_version)
2089: THEN
2090: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_RECORD_CHANGED');
2091: -- Record has been modified by another user
2092: FND_MSG_PUB.ADD;
2093: RAISE FND_API.G_EXC_ERROR;
2094: END IF;
2095: END IF;
2096:
2124: CLOSE check_exists;
2125:
2126: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_REL_NOTFOUND');
2127: -- MO Procedure is not found
2128: FND_MSG_PUB.ADD;
2129: RAISE FND_API.G_EXC_ERROR;
2130:
2131: ELSE
2132: CLOSE check_exists;
2134: IF (l_ovn <> p_rel_object_version)
2135: THEN
2136: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_RECORD_CHANGED');
2137: -- Record has been modified by another user
2138: FND_MSG_PUB.ADD;
2139: RAISE FND_API.G_EXC_ERROR;
2140: END IF;
2141:
2142: END IF;