[Home] [Help]
512: END IF;
513: END IF;
514: -- raise error if input keys are wrong.
515: IF(l_input_key_error_flag)THEN
516: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_HREC_KMISS');
517: FND_MSG_PUB.ADD;
518: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
519: fnd_log.string
520: (
534: l_ue_status_code,
535: l_def_status_code,
536: l_manually_planned_flag;
537: IF(unit_effectivity_info_csr%NOTFOUND) THEN
538: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_HREC_UE_ID');
539: FND_MSG_PUB.ADD;
540: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
541: fnd_log.string
542: (
548: CLOSE unit_effectivity_info_csr;
549: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
550: ELSE
551: IF(l_orig_deferral_ue_id IS NOT NULL) THEN
552: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_HREC_UE_ID');
553: FND_MSG_PUB.ADD;
554: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
555: fnd_log.string
556: (
562: CLOSE unit_effectivity_info_csr;
563: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
564: ELSIF((NVL(l_ue_status_code,'x') IN ('ACCOMPLISHED','DEFERRED','EXCEPTION','TERMINATED','CANCELLED','MR-TERMINATE'))
565: OR (NVL(l_def_status_code,'x')IN ('DEFERRED','DEFERRAL_PENDING','TERMINATED','CANCELLED')))THEN
566: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_MRSR_STATUS');
567: FND_MSG_PUB.ADD;
568: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
569: fnd_log.string
570: (
1022: );
1023: END IF;
1024:
1025: IF(p_df_header_rec.operation_flag IS NOT NULL AND p_df_header_rec.operation_flag NOT IN(G_OP_CREATE,G_OP_UPDATE,G_OP_DELETE))THEN
1026: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_HD_OP_FLAG');
1027: FND_MSG_PUB.ADD;
1028: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1029: fnd_log.string ( fnd_log.level_unexpected, 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1030: 'Operation Flag is invalid in the header record' );
1041: -- do not allow cancellation of MR/SR if not already in execution
1042: OPEN wo_exists_csr(p_df_header_rec.unit_effectivity_id);
1043: FETCH wo_exists_csr INTO l_exists;
1044: IF (wo_exists_csr%NOTFOUND and p_df_header_rec.cancel_flag = G_YES_FLAG) THEN
1045: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_UMP_SR_MR_CAN');
1046: FND_MSG_PUB.ADD;
1047: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1048: fnd_log.string
1049: (
1070: CLOSE valid_sr_deferral_csr;
1071: OPEN valid_deferral_csr(p_df_header_rec.unit_effectivity_id);
1072: FETCH valid_deferral_csr INTO l_exists;
1073: IF(valid_deferral_csr%NOTFOUND) THEN
1074: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_MRSR_STATUS');
1075: FND_MSG_PUB.ADD;
1076: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
1077: fnd_log.string ( fnd_log.level_unexpected, 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1078: 'invalid mr or sr status invalid for update or delete 1' );
1091: OPEN is_orig_ue_nonserial(p_df_header_rec.unit_effectivity_id);
1092: FETCH is_orig_ue_nonserial INTO l_serial_number;
1093: CLOSE is_orig_ue_nonserial;
1094: IF (l_serial_number IS NULL) THEN
1095: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_NS_DF_INVALID');
1096: FND_MSG_PUB.ADD;
1097: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1098: fnd_log.string
1099: (
1114: -- check whether any record alreasy exists for the UE, IF yes raise error
1115: OPEN deferral_rec_exists_csr(p_df_header_rec.unit_effectivity_id);
1116: FETCH deferral_rec_exists_csr INTO l_exists;
1117: IF(deferral_rec_exists_csr%FOUND)THEN
1118: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_HD_OP_REXIST');
1119: FND_MSG_PUB.ADD;
1120: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1121: fnd_log.string
1122: (
1131: CLOSE deferral_rec_exists_csr;
1132:
1133: -- check whether status is nothing but draft while creating record for deferral
1134: IF(p_df_header_rec.approval_status_code <> 'DRAFT')THEN
1135: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_APPR_STATUS');
1136: FND_MSG_PUB.ADD;
1137: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1138: fnd_log.string
1139: (
1150: -- check whether deferral record can be updated or deleted
1151: OPEN valid_deferral_up_csr(p_df_header_rec.unit_deferral_id);
1152: FETCH valid_deferral_up_csr INTO l_exists;
1153: IF(valid_deferral_up_csr%NOTFOUND)THEN
1154: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_MRSR_STATUS');
1155: FND_MSG_PUB.ADD;
1156: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1157: fnd_log.string
1158: (
1174: validate_reason_codes(p_df_header_rec.defer_reason_code);
1175: END IF;
1176: -- general validations for flags
1177: IF(p_df_header_rec.cancel_flag NOT IN(G_YES_FLAG,G_NO_FLAG))THEN
1178: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CANCEL_FLAG');
1179: FND_MSG_PUB.ADD;
1180: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1181: fnd_log.string
1182: (
1187: END IF;
1188: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1189: END IF;
1190: IF(p_df_header_rec.skip_mr_flag NOT IN(G_YES_FLAG,G_NO_FLAG))THEN
1191: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_SKIP_FLAG');
1192: FND_MSG_PUB.ADD;
1193: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1194: fnd_log.string
1195: (
1200: END IF;
1201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1202: END IF;
1203: IF(p_df_header_rec.affect_due_calc_flag NOT IN(G_YES_FLAG,G_NO_FLAG))THEN
1204: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_AFFDUE_FLAG');
1205: FND_MSG_PUB.ADD;
1206: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1207: fnd_log.string
1208: (
1219: p_df_header_rec.user_deferral_type_code <> FND_API.G_MISS_CHAR) THEN
1220: OPEN validate_user_defer_csr(p_df_header_rec.user_deferral_type_code);
1221: FETCH validate_user_defer_csr INTO l_exists;
1222: IF (validate_user_defer_csr%NOTFOUND) THEN
1223: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INVALID_DEF_TYPE');
1224: FND_MESSAGE.Set_token('CODE', p_df_header_rec.user_deferral_type_code);
1225: FND_MSG_PUB.ADD;
1226: END IF;
1227: CLOSE validate_user_defer_csr;
1220: OPEN validate_user_defer_csr(p_df_header_rec.user_deferral_type_code);
1221: FETCH validate_user_defer_csr INTO l_exists;
1222: IF (validate_user_defer_csr%NOTFOUND) THEN
1223: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INVALID_DEF_TYPE');
1224: FND_MESSAGE.Set_token('CODE', p_df_header_rec.user_deferral_type_code);
1225: FND_MSG_PUB.ADD;
1226: END IF;
1227: CLOSE validate_user_defer_csr;
1228: END IF;
1229:
1230: IF(p_df_header_rec.skip_mr_flag = G_NO_FLAG AND p_df_header_rec.cancel_flag = G_NO_FLAG AND
1231: (p_df_header_rec.set_due_date IS NOT NULL AND
1232: trunc(p_df_header_rec.set_due_date) < trunc(SYSDATE))) THEN
1233: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_SET_DUE_DT');
1234: FND_MESSAGE.Set_Token('SET_DUE_DATE',p_df_header_rec.set_due_date);
1235: FND_MSG_PUB.ADD;
1236: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1237: fnd_log.string
1230: IF(p_df_header_rec.skip_mr_flag = G_NO_FLAG AND p_df_header_rec.cancel_flag = G_NO_FLAG AND
1231: (p_df_header_rec.set_due_date IS NOT NULL AND
1232: trunc(p_df_header_rec.set_due_date) < trunc(SYSDATE))) THEN
1233: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_SET_DUE_DT');
1234: FND_MESSAGE.Set_Token('SET_DUE_DATE',p_df_header_rec.set_due_date);
1235: FND_MSG_PUB.ADD;
1236: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1237: fnd_log.string
1238: (
1244: END IF;
1245:
1246: IF(p_df_header_rec.deferral_effective_on IS NULL OR
1247: p_df_header_rec.deferral_effective_on > SYSDATE) THEN
1248: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_DF_EFF_DT');
1249: FND_MESSAGE.Set_Token('DEFERRAL_EFFECTIVE_ON',p_df_header_rec.deferral_effective_on);
1250: FND_MSG_PUB.ADD;
1251: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1252: fnd_log.string
1245:
1246: IF(p_df_header_rec.deferral_effective_on IS NULL OR
1247: p_df_header_rec.deferral_effective_on > SYSDATE) THEN
1248: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_DF_EFF_DT');
1249: FND_MESSAGE.Set_Token('DEFERRAL_EFFECTIVE_ON',p_df_header_rec.deferral_effective_on);
1250: FND_MSG_PUB.ADD;
1251: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1252: fnd_log.string
1253: (
1275: END IF;
1276: -- if MR is not applicable anymore, it must be terminated. Whether Planned or unplanned
1277: IF(l_mr_applicable = FND_API.G_FALSE AND l_new_mr_applicable = FND_API.G_FALSE
1278: AND (p_df_header_rec.skip_mr_flag = G_NO_FLAG OR p_df_header_rec.cancel_flag = G_YES_FLAG) )THEN
1279: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_MR_EXPIRED');
1280: FND_MSG_PUB.ADD;
1281: RAISE FND_API.G_EXC_ERROR;
1282: END IF;
1283: IF (p_df_header_rec.manually_planned_flag = G_NO_FLAG)THEN -- MR is planned
1281: RAISE FND_API.G_EXC_ERROR;
1282: END IF;
1283: IF (p_df_header_rec.manually_planned_flag = G_NO_FLAG)THEN -- MR is planned
1284: IF(p_df_header_rec.cancel_flag = G_NO_FLAG AND p_df_header_rec.affect_due_calc_flag = G_NO_FLAG AND p_df_header_rec.reset_counter_flag = G_YES_FLAG) THEN
1285: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_AFFDUE_FLAG');
1286: FND_MSG_PUB.ADD;
1287: RAISE FND_API.G_EXC_ERROR;
1288: END IF;
1289: IF(p_df_header_rec.mr_repetitive_flag = G_NO_FLAG AND
1287: RAISE FND_API.G_EXC_ERROR;
1288: END IF;
1289: IF(p_df_header_rec.mr_repetitive_flag = G_NO_FLAG AND
1290: p_df_header_rec.skip_mr_flag = G_YES_FLAG AND l_mr_applicable = FND_API.G_TRUE) THEN
1291: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_SKIP_FLAG');
1292: FND_MSG_PUB.ADD;
1293: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1294: fnd_log.string
1295: (
1303: ELSE -- MR is unplanned
1304: IF(p_df_header_rec.cancel_flag = G_NO_FLAG AND p_df_header_rec.skip_mr_flag = G_NO_FLAG) THEN
1305: IF(p_df_header_rec.affect_due_calc_flag = G_NO_FLAG AND
1306: p_df_header_rec.reset_counter_flag = G_YES_FLAG) THEN
1307: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_AFFDUE_FLAG');
1308: FND_MSG_PUB.ADD;
1309: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1310: fnd_log.string
1311: (
1317: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1318: END IF;
1319: ELSE -- MR is being terminated or cancelled
1320: IF(p_df_header_rec.affect_due_calc_flag = G_YES_FLAG) THEN
1321: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_AFFDUE_FLAG');
1322: FND_MSG_PUB.ADD;
1323: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1324: fnd_log.string
1325: (
1338: OPEN is_sr_ue_nonserial(p_df_header_rec.unit_effectivity_id);
1339: FETCH is_sr_ue_nonserial INTO l_serial_number;
1340: CLOSE is_sr_ue_nonserial;
1341: IF (l_serial_number IS NULL) THEN
1342: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_NS_DF_INVALID');
1343: FND_MSG_PUB.ADD;
1344: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1345: fnd_log.string
1346: (
1353: END IF;
1354: END IF;
1355:
1356: IF(p_df_header_rec.cancel_flag = G_NO_FLAG AND p_df_header_rec.affect_due_calc_flag = G_NO_FLAG)THEN
1357: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_AFFDUE_FLAG');
1358: FND_MSG_PUB.ADD;
1359: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1360: fnd_log.string
1361: (
1421: l_string := substr(p_defer_reason_code,l_temp1);
1422: OPEN val_reason_code_csr(l_string);
1423: FETCH val_reason_code_csr INTO l_exists;
1424: IF(val_reason_code_csr%NOTFOUND) THEN
1425: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_RSN_CODE');
1426: FND_MSG_PUB.ADD;
1427: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1428: fnd_log.string
1429: (
1441: l_string := substr(p_defer_reason_code,l_temp1,l_temp2 - l_temp1);
1442: OPEN val_reason_code_csr(l_string);
1443: FETCH val_reason_code_csr INTO l_exists;
1444: IF(val_reason_code_csr%NOTFOUND) THEN
1445: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_RSN_CODE');
1446: FND_MSG_PUB.ADD;
1447: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1448: fnd_log.string
1449: (
1519: l_df_header_rec.attribute9, l_df_header_rec.attribute10, l_df_header_rec.attribute11,
1520: l_df_header_rec.attribute12, l_df_header_rec.attribute13, l_df_header_rec.attribute14,
1521: l_df_header_rec.attribute15;
1522: IF (df_header_csr%NOTFOUND) THEN
1523: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INVOP_HREC_MISS');
1524: FND_MSG_PUB.ADD;
1525: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1526: fnd_log.string
1527: (
1533: ELSE
1534: IF (p_x_df_header_rec.unit_effectivity_id IS NULL) THEN
1535: p_x_df_header_rec.unit_effectivity_id := l_df_header_rec.unit_effectivity_id;
1536: ELSIF(p_x_df_header_rec.unit_effectivity_id <> l_df_header_rec.unit_effectivity_id ) THEN
1537: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_UE');
1538: FND_MSG_PUB.ADD;
1539: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1540: fnd_log.string
1541: (
1550:
1551: IF (p_x_df_header_rec.unit_deferral_type IS NULL) THEN
1552: p_x_df_header_rec.unit_deferral_type := l_df_header_rec.unit_deferral_type;
1553: ELSIF(p_x_df_header_rec.unit_deferral_type <> l_df_header_rec.unit_deferral_type) THEN
1554: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_UDF_TYPE');
1555: FND_MSG_PUB.ADD;
1556: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1557: fnd_log.string
1558: (
1567:
1568: IF (p_x_df_header_rec.approval_status_code IS NULL) THEN
1569: p_x_df_header_rec.approval_status_code := l_df_header_rec.approval_status_code;
1570: ELSIF(p_x_df_header_rec.approval_status_code <> l_df_header_rec.approval_status_code) THEN
1571: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_APPR_STATUS');
1572: FND_MSG_PUB.ADD;
1573: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1574: fnd_log.string
1575: (
1626:
1627: IF (p_x_df_header_rec.approver_notes IS NULL) THEN
1628: p_x_df_header_rec.approver_notes := l_df_header_rec.approver_notes;
1629: ELSIF(p_x_df_header_rec.approver_notes <> l_df_header_rec.approver_notes) THEN
1630: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_APPR_NOTES');
1631: FND_MSG_PUB.ADD;
1632: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1633: fnd_log.string
1634: (
1741: ELSIF (p_x_df_header_rec.operation_flag = G_OP_CREATE) THEN
1742:
1743: IF (p_x_df_header_rec.unit_effectivity_id IS NULL OR
1744: p_x_df_header_rec.unit_effectivity_id = FND_API.G_MISS_NUM) THEN
1745: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_UE');
1746: FND_MSG_PUB.ADD;
1747: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1748: fnd_log.string
1749: (
1907: -- record dml validations and key requirement validations
1908: FOR i IN p_x_df_schedules_tbl.FIRST..p_x_df_schedules_tbl.LAST LOOP
1909: -- key requirements
1910: IF(p_x_df_schedules_tbl(i).operation_flag NOT IN (G_OP_CREATE,G_OP_UPDATE,G_OP_DELETE)) THEN
1911: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_INV_OP');
1912: FND_MSG_PUB.ADD;
1913: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1914: fnd_log.string
1915: (
1921: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1922: ELSIF(p_x_df_schedules_tbl(i).operation_flag IN (G_OP_UPDATE,G_OP_DELETE)) THEN
1923: IF(p_x_df_schedules_tbl(i).unit_threshold_id IS NULL OR
1924: p_x_df_schedules_tbl(i).object_version_number IS NULL) THEN
1925: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_REC_KEY_MISS');
1926: FND_MSG_PUB.ADD;
1927: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1928: fnd_log.string
1929: (
1934: END IF;
1935: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1936: ELSIF (p_x_df_schedules_tbl(i).unit_deferral_id IS NOT NULL AND
1937: p_x_df_schedules_tbl(i).unit_deferral_id <> p_df_header_rec.unit_deferral_id) THEN
1938: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_HDR_MISS');
1939: FND_MSG_PUB.ADD;
1940: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1941: fnd_log.string
1942: (
1949: END IF;
1950: ELSIF(p_x_df_schedules_tbl(i).operation_flag = G_OP_CREATE) THEN
1951: IF(p_x_df_schedules_tbl(i).unit_threshold_id IS NOT NULL OR
1952: p_x_df_schedules_tbl(i).object_version_number IS NOT NULL) THEN
1953: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_INV_OP');
1954: FND_MSG_PUB.ADD;
1955: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1956: fnd_log.string
1957: (
1965: IF(p_x_df_schedules_tbl(i).unit_deferral_id IS NULL OR
1966: p_x_df_schedules_tbl(i).unit_deferral_id = FND_API.G_MISS_NUM) THEN
1967: p_x_df_schedules_tbl(i).unit_deferral_id := p_df_header_rec.unit_deferral_id;
1968: ELSIF(p_x_df_schedules_tbl(i).unit_deferral_id <> p_df_header_rec.unit_deferral_id)THEN
1969: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_HDR_MISS');
1970: FND_MSG_PUB.ADD;
1971: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1972: fnd_log.string
1973: (
1983: IF(G_MODULE_TYPE = 'JSP' AND p_x_df_schedules_tbl(i).operation_flag IN (G_OP_CREATE,G_OP_UPDATE))THEN
1984: OPEN counter_id_csr(p_x_df_schedules_tbl(i).counter_name, p_df_header_rec.unit_effectivity_id);
1985: FETCH counter_id_csr INTO l_counter_id;
1986: IF(counter_id_csr%NOTFOUND)THEN
1987: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNT_NAME');
1988: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
1989: FND_MSG_PUB.ADD;
1990: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1991: fnd_log.string
1984: OPEN counter_id_csr(p_x_df_schedules_tbl(i).counter_name, p_df_header_rec.unit_effectivity_id);
1985: FETCH counter_id_csr INTO l_counter_id;
1986: IF(counter_id_csr%NOTFOUND)THEN
1987: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNT_NAME');
1988: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
1989: FND_MSG_PUB.ADD;
1990: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1991: fnd_log.string
1992: (
2245: -- validate whether valid items' counter
2246: OPEN valid_counter_csr(p_df_schedules_tbl(i).unit_deferral_id,p_df_schedules_tbl(i).counter_id);
2247: FETCH valid_counter_csr INTO l_exists;
2248: IF(valid_counter_csr%NOTFOUND)THEN
2249: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNT_NAME');
2250: FND_MESSAGE.Set_Token('COUNTER_NAME',p_df_schedules_tbl(i).counter_name);
2251: FND_MSG_PUB.ADD;
2252: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2253: fnd_log.string
2246: OPEN valid_counter_csr(p_df_schedules_tbl(i).unit_deferral_id,p_df_schedules_tbl(i).counter_id);
2247: FETCH valid_counter_csr INTO l_exists;
2248: IF(valid_counter_csr%NOTFOUND)THEN
2249: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNT_NAME');
2250: FND_MESSAGE.Set_Token('COUNTER_NAME',p_df_schedules_tbl(i).counter_name);
2251: FND_MSG_PUB.ADD;
2252: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2253: fnd_log.string
2254: (
2263: /*IF(p_df_header_rec.deferral_type = 'MR')THEN
2264: OPEN mr_valid_counter_csr(p_df_schedules_tbl(i).unit_deferral_id,p_df_schedules_tbl(i).counter_id);
2265: FETCH mr_valid_counter_csr INTO l_exists;
2266: IF(mr_valid_counter_csr%NOTFOUND)THEN
2267: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_INV_CNT');
2268: FND_MSG_PUB.ADD;
2269: END IF;
2270: CLOSE mr_valid_counter_csr;
2271: END IF;*/
2274: -- validate whether record exists for delete
2275: OPEN valid_df_rec_del_csr(p_df_schedules_tbl(i).unit_threshold_id,p_df_schedules_tbl(i).object_version_number);
2276: FETCH valid_df_rec_del_csr INTO l_exists;
2277: IF(valid_df_rec_del_csr%NOTFOUND) THEN
2278: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_REC_MISS');
2279: FND_MSG_PUB.ADD;
2280: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2281: fnd_log.string
2282: (
2339: l_df_schedules_rec.attribute6, l_df_schedules_rec.attribute7, l_df_schedules_rec.attribute8,
2340: l_df_schedules_rec.attribute9, l_df_schedules_rec.attribute10, l_df_schedules_rec.attribute11,
2341: l_df_schedules_rec.attribute12, l_df_schedules_rec.attribute13, l_df_schedules_rec.attribute14, l_df_schedules_rec.attribute15;
2342: IF (df_schedules_csr%NOTFOUND) THEN
2343: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_REC_MISS');
2344: FND_MSG_PUB.ADD;
2345: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2346: fnd_log.string
2347: (
2353: ELSE
2354: IF (p_x_df_schedules_tbl(i).unit_deferral_id IS NULL) THEN
2355: p_x_df_schedules_tbl(i).unit_deferral_id := l_df_schedules_rec.unit_deferral_id;
2356: ELSIF(p_x_df_schedules_tbl(i).unit_deferral_id <> l_df_schedules_rec.unit_deferral_id) THEN
2357: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_HDR_MISS');
2358: FND_MSG_PUB.ADD;
2359: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2360: fnd_log.string
2361: (
2370:
2371: IF (p_x_df_schedules_tbl(i).counter_id IS NULL) THEN
2372: p_x_df_schedules_tbl(i).counter_id := l_df_schedules_rec.counter_id;
2373: ELSIF(p_x_df_schedules_tbl(i).counter_id = FND_API.G_MISS_NUM) THEN
2374: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNT_NAME');
2375: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
2376: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2377: fnd_log.string
2378: (
2371: IF (p_x_df_schedules_tbl(i).counter_id IS NULL) THEN
2372: p_x_df_schedules_tbl(i).counter_id := l_df_schedules_rec.counter_id;
2373: ELSIF(p_x_df_schedules_tbl(i).counter_id = FND_API.G_MISS_NUM) THEN
2374: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNT_NAME');
2375: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
2376: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2377: fnd_log.string
2378: (
2379: fnd_log.level_error,
2386: IF (p_x_df_schedules_tbl(i).counter_value IS NULL) THEN
2387: p_x_df_schedules_tbl(i).counter_value := l_df_schedules_rec.counter_value;
2388: ELSIF(p_x_df_schedules_tbl(i).counter_value = FND_API.G_MISS_NUM OR
2389: p_x_df_schedules_tbl(i).counter_value <= 0) THEN
2390: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNTVAL');
2391: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
2392: FND_MESSAGE.Set_Token('COUNTER_VALUE',p_x_df_schedules_tbl(i).counter_value);
2393: FND_MSG_PUB.ADD;
2394: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2387: p_x_df_schedules_tbl(i).counter_value := l_df_schedules_rec.counter_value;
2388: ELSIF(p_x_df_schedules_tbl(i).counter_value = FND_API.G_MISS_NUM OR
2389: p_x_df_schedules_tbl(i).counter_value <= 0) THEN
2390: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNTVAL');
2391: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
2392: FND_MESSAGE.Set_Token('COUNTER_VALUE',p_x_df_schedules_tbl(i).counter_value);
2393: FND_MSG_PUB.ADD;
2394: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2395: fnd_log.string
2388: ELSIF(p_x_df_schedules_tbl(i).counter_value = FND_API.G_MISS_NUM OR
2389: p_x_df_schedules_tbl(i).counter_value <= 0) THEN
2390: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNTVAL');
2391: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
2392: FND_MESSAGE.Set_Token('COUNTER_VALUE',p_x_df_schedules_tbl(i).counter_value);
2393: FND_MSG_PUB.ADD;
2394: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2395: fnd_log.string
2396: (
2403:
2404: IF (p_x_df_schedules_tbl(i).ctr_value_type_code IS NULL) THEN
2405: p_x_df_schedules_tbl(i).ctr_value_type_code := l_df_schedules_rec.ctr_value_type_code;
2406: ELSIF(p_x_df_schedules_tbl(i).ctr_value_type_code NOT IN(G_DEFER_BY,G_DEFER_TO)) THEN
2407: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNTVL_TPCD');
2408: FND_MSG_PUB.ADD;
2409: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2410: fnd_log.string
2411: (
2519: ELSIF (p_x_df_schedules_tbl(i).operation_flag = G_OP_CREATE) THEN
2520:
2521: IF (p_x_df_schedules_tbl(i).unit_deferral_id IS NULL OR
2522: p_x_df_schedules_tbl(i).unit_deferral_id = FND_API.G_MISS_NUM) THEN
2523: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_UDID');
2524: FND_MSG_PUB.ADD;
2525: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2526: fnd_log.string
2527: (
2534: END IF;
2535:
2536: IF (p_x_df_schedules_tbl(i).counter_id IS NULL OR
2537: p_x_df_schedules_tbl(i).counter_id = FND_API.G_MISS_NUM) THEN
2538: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNT_NAME');
2539: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
2540: FND_MSG_PUB.ADD;
2541: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2542: fnd_log.string
2535:
2536: IF (p_x_df_schedules_tbl(i).counter_id IS NULL OR
2537: p_x_df_schedules_tbl(i).counter_id = FND_API.G_MISS_NUM) THEN
2538: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNT_NAME');
2539: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
2540: FND_MSG_PUB.ADD;
2541: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2542: fnd_log.string
2543: (
2550:
2551: IF (p_x_df_schedules_tbl(i).counter_value IS NULL OR
2552: p_x_df_schedules_tbl(i).counter_value = FND_API.G_MISS_NUM OR
2553: p_x_df_schedules_tbl(i).counter_value <= 0 ) THEN
2554: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNTVAL');
2555: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
2556: FND_MESSAGE.Set_Token('COUNTER_VALUE',p_x_df_schedules_tbl(i).counter_value);
2557: FND_MSG_PUB.ADD;
2558: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2551: IF (p_x_df_schedules_tbl(i).counter_value IS NULL OR
2552: p_x_df_schedules_tbl(i).counter_value = FND_API.G_MISS_NUM OR
2553: p_x_df_schedules_tbl(i).counter_value <= 0 ) THEN
2554: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNTVAL');
2555: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
2556: FND_MESSAGE.Set_Token('COUNTER_VALUE',p_x_df_schedules_tbl(i).counter_value);
2557: FND_MSG_PUB.ADD;
2558: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2559: fnd_log.string
2552: p_x_df_schedules_tbl(i).counter_value = FND_API.G_MISS_NUM OR
2553: p_x_df_schedules_tbl(i).counter_value <= 0 ) THEN
2554: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNTVAL');
2555: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
2556: FND_MESSAGE.Set_Token('COUNTER_VALUE',p_x_df_schedules_tbl(i).counter_value);
2557: FND_MSG_PUB.ADD;
2558: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2559: fnd_log.string
2560: (
2566: END IF;
2567:
2568: IF (p_x_df_schedules_tbl(i).ctr_value_type_code IS NULL OR
2569: p_x_df_schedules_tbl(i).ctr_value_type_code NOT IN(G_DEFER_BY,G_DEFER_TO)) THEN
2570: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNTVL_TPCD');
2571: FND_MSG_PUB.ADD;
2572: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2573: fnd_log.string
2574: (
2772:
2773: SELECT count(*) INTO l_count2 from (SELECT DISTINCT counter_id FROM ahl_unit_thresholds
2774: WHERE unit_deferral_id = p_df_header_rec.unit_deferral_id);
2775: IF(l_count1 <> l_count2) THEN
2776: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_CNT_NAME_REP');
2777: FND_MSG_PUB.ADD;
2778: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2779: fnd_log.string
2780: (
2786: END IF;
2787:
2788: IF(l_count2 = 0)THEN
2789: IF(p_df_header_rec.set_due_date IS NULL)THEN
2790: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_SET_DUE_MAND');
2791: FND_MSG_PUB.ADD;
2792: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2793: fnd_log.string
2794: (
2802: END IF;
2803: ELSE
2804: l_calc_due_date_flag := true;
2805: IF(p_df_header_rec.deferral_effective_on IS NULL OR p_df_header_rec.deferral_effective_on > SYSDATE)THEN
2806: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_DF_EFF_DT');
2807: FND_MESSAGE.Set_Token('DEFERRAL_EFFECTIVE_ON',p_df_header_rec.deferral_effective_on);
2808: FND_MSG_PUB.ADD;
2809: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2810: fnd_log.string
2803: ELSE
2804: l_calc_due_date_flag := true;
2805: IF(p_df_header_rec.deferral_effective_on IS NULL OR p_df_header_rec.deferral_effective_on > SYSDATE)THEN
2806: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_DF_EFF_DT');
2807: FND_MESSAGE.Set_Token('DEFERRAL_EFFECTIVE_ON',p_df_header_rec.deferral_effective_on);
2808: FND_MSG_PUB.ADD;
2809: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2810: fnd_log.string
2811: (
2840: IF(l_ctr_value_type_code = G_DEFER_BY) THEN
2841: l_counter_value := l_current_counter_value + l_counter_value;
2842: ELSE
2843: IF(l_counter_value < l_current_counter_value) THEN
2844: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_LS_CNTVAL');
2845: FND_MESSAGE.Set_Token('COUNTER_NAME',l_counter_name);
2846: FND_MESSAGE.Set_Token('COUNTER_VALUE',l_counter_value);
2847: FND_MSG_PUB.ADD;
2848: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2841: l_counter_value := l_current_counter_value + l_counter_value;
2842: ELSE
2843: IF(l_counter_value < l_current_counter_value) THEN
2844: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_LS_CNTVAL');
2845: FND_MESSAGE.Set_Token('COUNTER_NAME',l_counter_name);
2846: FND_MESSAGE.Set_Token('COUNTER_VALUE',l_counter_value);
2847: FND_MSG_PUB.ADD;
2848: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2849: fnd_log.string
2842: ELSE
2843: IF(l_counter_value < l_current_counter_value) THEN
2844: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_LS_CNTVAL');
2845: FND_MESSAGE.Set_Token('COUNTER_NAME',l_counter_name);
2846: FND_MESSAGE.Set_Token('COUNTER_VALUE',l_counter_value);
2847: FND_MSG_PUB.ADD;
2848: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2849: fnd_log.string
2850: (
2877: x_return_status => l_return_status ,
2878: x_msg_data => l_msg_data,
2879: x_msg_count => l_msg_count);
2880: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2881: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_DUE_DT_CALC_ERR');
2882: FND_MSG_PUB.ADD;
2883: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2884: fnd_log.string
2885: (
2913: FETCH next_due_date_csr INTO l_next_due_date;
2914: IF(next_due_date_csr%NOTFOUND)THEN
2915: NULL;-- thorw warning here
2916: ELSIF( TRUNC(l_next_due_date) < TRUNC(l_defer_due_date))THEN
2917: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_DUE_DATE_WARN');
2918: FND_MESSAGE.SET_TOKEN('DEFER_DUE_DATE',l_defer_due_date,false);
2919: FND_MESSAGE.SET_TOKEN('NEXT_DUE_DATE',l_next_due_date,false);
2920: l_msg_data := FND_MESSAGE.get;
2921: END IF;
2914: IF(next_due_date_csr%NOTFOUND)THEN
2915: NULL;-- thorw warning here
2916: ELSIF( TRUNC(l_next_due_date) < TRUNC(l_defer_due_date))THEN
2917: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_DUE_DATE_WARN');
2918: FND_MESSAGE.SET_TOKEN('DEFER_DUE_DATE',l_defer_due_date,false);
2919: FND_MESSAGE.SET_TOKEN('NEXT_DUE_DATE',l_next_due_date,false);
2920: l_msg_data := FND_MESSAGE.get;
2921: END IF;
2922: CLOSE next_due_date_csr;
2915: NULL;-- thorw warning here
2916: ELSIF( TRUNC(l_next_due_date) < TRUNC(l_defer_due_date))THEN
2917: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_DUE_DATE_WARN');
2918: FND_MESSAGE.SET_TOKEN('DEFER_DUE_DATE',l_defer_due_date,false);
2919: FND_MESSAGE.SET_TOKEN('NEXT_DUE_DATE',l_next_due_date,false);
2920: l_msg_data := FND_MESSAGE.get;
2921: END IF;
2922: CLOSE next_due_date_csr;
2923: END IF;
2916: ELSIF( TRUNC(l_next_due_date) < TRUNC(l_defer_due_date))THEN
2917: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_DUE_DATE_WARN');
2918: FND_MESSAGE.SET_TOKEN('DEFER_DUE_DATE',l_defer_due_date,false);
2919: FND_MESSAGE.SET_TOKEN('NEXT_DUE_DATE',l_next_due_date,false);
2920: l_msg_data := FND_MESSAGE.get;
2921: END IF;
2922: CLOSE next_due_date_csr;
2923: END IF;
2924:
2935: FETCH get_csi_item_instance_id INTO l_csi_item_inst_id;
2936: CLOSE get_csi_item_instance_id;
2937: l_uc_header_id := AHL_UTIL_UC_PKG.get_uc_header_id(l_csi_item_inst_id);
2938: IF(l_fleet_header_id <> nvl(AHL_UMP_ProcessUnit_PVT.get_fleet_from_unit_asso(l_uc_header_id,l_defer_due_date,null),-1)) THEN
2939: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_FLT_ASSO');
2940: FND_MSG_PUB.ADD;
2941: END IF;
2942: END IF;
2943: END IF;
2990: );
2991: END IF;
2992:
2993: IF(p_df_header_rec.approval_status_code NOT IN('DRAFT','DEFERRAL_REJECTED'))THEN
2994: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_SUB_APPR_STS');
2995: FND_MSG_PUB.ADD;
2996: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2997: fnd_log.string
2998: (
3004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3005: END IF;
3006:
3007: IF(valid_for_submission( p_df_header_rec.unit_effectivity_id) = FALSE)THEN
3008: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_SUB_PRC_STS');
3009: FND_MSG_PUB.ADD;
3010: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3011: fnd_log.string
3012: (
3081: END IF;
3082:
3083: IF((l_return_status <> FND_API.G_RET_STS_SUCCESS) OR
3084: ( l_active <> G_YES_FLAG))THEN
3085: /*FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_WF_INACTIVE');
3086: FND_MSG_PUB.ADD;
3087: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3088: fnd_log.string
3089: (
3413:
3414: /*OPEN valid_mr_csr(p_unit_deferral_id ,p_object_version_number);
3415: FETCH valid_mr_csr INTO l_exists;
3416: IF(valid_mr_csr%NOTFOUND)THEN
3417: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_MR_TERM');
3418: FND_MSG_PUB.ADD;
3419: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3420: fnd_log.string
3421: (
3987: -- validating ue and getting it
3988: OPEN unit_effectivity_id_csr(p_unit_deferral_id, p_object_version_number);
3989: FETCH unit_effectivity_id_csr INTO l_unit_effectivity_id, l_object_type;
3990: IF(unit_effectivity_id_csr%NOTFOUND)THEN
3991: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INVOP_HREC_MISS');
3992: FND_MSG_PUB.ADD;
3993: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3994: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3995: fnd_log.string
4018: IF (p_approval_result_code IN ( G_DEFERRAL_REJECTED,G_DEFERRAL_APPROVED ))THEN
4019: OPEN validate_approver_privilages(l_unit_effectivity_id);
4020: FETCH validate_approver_privilages INTO l_workorder_id;
4021: IF(validate_approver_privilages%NOTFOUND)THEN
4022: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_APPR_SETUP');
4023: FND_MSG_PUB.ADD;
4024: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4025: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
4026: fnd_log.string
4061: --tokens passed changed to MR_TITLE
4062:
4063: IF l_return_status = FND_API.G_TRUE THEN
4064: IF l_object_type IS NOT NULL AND l_object_type = 'SR' THEN
4065: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_DFSR_UNTLCKD');
4066: FND_MESSAGE.Set_Token('WO_NAME', workorder_rec.workorder_name);
4067: FND_MSG_PUB.ADD;
4068: ELSE
4069: OPEN ue_title_csr(l_unit_effectivity_id);
4062:
4063: IF l_return_status = FND_API.G_TRUE THEN
4064: IF l_object_type IS NOT NULL AND l_object_type = 'SR' THEN
4065: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_DFSR_UNTLCKD');
4066: FND_MESSAGE.Set_Token('WO_NAME', workorder_rec.workorder_name);
4067: FND_MSG_PUB.ADD;
4068: ELSE
4069: OPEN ue_title_csr(l_unit_effectivity_id);
4070: FETCH ue_title_csr into l_ue_title;
4068: ELSE
4069: OPEN ue_title_csr(l_unit_effectivity_id);
4070: FETCH ue_title_csr into l_ue_title;
4071: CLOSE ue_title_csr;
4072: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_DFMR_UNTLCKD');
4073: FND_MESSAGE.Set_Token('MR_TITLE', l_ue_title);
4074: FND_MSG_PUB.ADD;
4075: END IF;
4076: EXIT;
4069: OPEN ue_title_csr(l_unit_effectivity_id);
4070: FETCH ue_title_csr into l_ue_title;
4071: CLOSE ue_title_csr;
4072: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_DFMR_UNTLCKD');
4073: FND_MESSAGE.Set_Token('MR_TITLE', l_ue_title);
4074: FND_MSG_PUB.ADD;
4075: END IF;
4076: EXIT;
4077: END IF;
4155: SELECT meaning INTO l_status_meaning
4156: FROM fnd_lookup_values_vl
4157: WHERE lookup_type = 'AHL_JOB_STATUS'
4158: AND LOOKUP_CODE = l_prd_workorder_rec.status_code;
4159: FND_MESSAGE.set_name('AHL','AHL_PRD_MAT_NOT_RETURN');
4160: FND_MESSAGE.set_token('WO_STATUS', l_status_meaning);
4161: FND_MESSAGE.set_token('WO_NAME', workorder_rec.workorder_name);
4162: FND_MSG_PUB.add;
4163: x_return_status := FND_API.G_RET_STS_ERROR;
4156: FROM fnd_lookup_values_vl
4157: WHERE lookup_type = 'AHL_JOB_STATUS'
4158: AND LOOKUP_CODE = l_prd_workorder_rec.status_code;
4159: FND_MESSAGE.set_name('AHL','AHL_PRD_MAT_NOT_RETURN');
4160: FND_MESSAGE.set_token('WO_STATUS', l_status_meaning);
4161: FND_MESSAGE.set_token('WO_NAME', workorder_rec.workorder_name);
4162: FND_MSG_PUB.add;
4163: x_return_status := FND_API.G_RET_STS_ERROR;
4164: END IF;
4157: WHERE lookup_type = 'AHL_JOB_STATUS'
4158: AND LOOKUP_CODE = l_prd_workorder_rec.status_code;
4159: FND_MESSAGE.set_name('AHL','AHL_PRD_MAT_NOT_RETURN');
4160: FND_MESSAGE.set_token('WO_STATUS', l_status_meaning);
4161: FND_MESSAGE.set_token('WO_NAME', workorder_rec.workorder_name);
4162: FND_MSG_PUB.add;
4163: x_return_status := FND_API.G_RET_STS_ERROR;
4164: END IF;
4165: CLOSE chk_inst_in_job;
4188: 'Status after AHL_PRD_WORKORDER_PVT.update_job API call : ' || x_return_status
4189: );
4190: END IF;
4191: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4192: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_APPR_UPD_JB_FAIL');
4193: FND_MSG_PUB.ADD;
4194: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4195: fnd_log.string
4196: (
4247: 'Status after AHL_PRD_WORKORDER_PVT.update_job API call : ' || x_return_status
4248: );
4249: END IF;
4250: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4251: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_APPR_UPD_JB_FAIL');
4252: FND_MSG_PUB.ADD;
4253: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4254: fnd_log.string
4255: (
4290: 'Status after AHL_COMPLETIONS_PVT.defer_workorder API call : ' || x_return_status
4291: );
4292: END IF;
4293: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4294: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_APPR_CMP_JB_FAIL');
4295: FND_MSG_PUB.ADD;
4296: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4297: fnd_log.string
4298: (
4347: p_unit_effectivity_id => l_unit_effectivity_id,
4348: p_workorder_id => NULL
4349: );
4350: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4351: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_APPR_CMP_JB_FAIL');
4352: FND_MSG_PUB.ADD;
4353: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4354: fnd_log.string
4355: (
4599:
4600: OPEN unit_effectivity_id_csr(p_unit_deferral_id ,p_object_version_number);
4601: FETCH unit_effectivity_id_csr INTO l_unit_effectivity_id,l_mr_header_id,l_manually_planned_flag,l_curr_defer_from_ue_id;
4602: IF(unit_effectivity_id_csr%NOTFOUND)THEN
4603: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_APPR_INV_DF');
4604: FND_MESSAGE.SET_TOKEN('DEFERRAL_ID',p_unit_deferral_id);
4605: FND_MSG_PUB.ADD;
4606: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4607: fnd_log.string
4600: OPEN unit_effectivity_id_csr(p_unit_deferral_id ,p_object_version_number);
4601: FETCH unit_effectivity_id_csr INTO l_unit_effectivity_id,l_mr_header_id,l_manually_planned_flag,l_curr_defer_from_ue_id;
4602: IF(unit_effectivity_id_csr%NOTFOUND)THEN
4603: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_APPR_INV_DF');
4604: FND_MESSAGE.SET_TOKEN('DEFERRAL_ID',p_unit_deferral_id);
4605: FND_MSG_PUB.ADD;
4606: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4607: fnd_log.string
4608: (
4626:
4627: IF (l_ue_obj_type IS NOT NULL AND l_ue_obj_type = 'SR' AND p_new_status IS NOT NULL
4628: AND p_new_status IN ('DEFERRED','CANCELLED')) THEN
4629: IF NOT (l_cs_incident_id IS NOT NULL AND l_cs_incident_id > 0) THEN
4630: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_INVALID_INCIDENT_ID');
4631: FND_MESSAGE.SET_TOKEN('INCIDENT_ID', l_cs_incident_id);
4632: FND_MSG_PUB.ADD;
4633: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4634: fnd_log.string
4627: IF (l_ue_obj_type IS NOT NULL AND l_ue_obj_type = 'SR' AND p_new_status IS NOT NULL
4628: AND p_new_status IN ('DEFERRED','CANCELLED')) THEN
4629: IF NOT (l_cs_incident_id IS NOT NULL AND l_cs_incident_id > 0) THEN
4630: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_INVALID_INCIDENT_ID');
4631: FND_MESSAGE.SET_TOKEN('INCIDENT_ID', l_cs_incident_id);
4632: FND_MSG_PUB.ADD;
4633: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4634: fnd_log.string
4635: (
5533: );
5534: END IF;
5535:
5536: IF(p_unit_effectivity_id IS NULL OR p_unit_effectivity_id = FND_API.G_MISS_NUM)THEN
5537: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_HREC_KMISS');
5538: FND_MSG_PUB.ADD;
5539: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5540: fnd_log.string
5541: (
5555: END IF;
5556:
5557: IF(l_applicable_ue_id IS NULL)THEN
5558: l_applicable_ue_id := p_unit_effectivity_id;
5559: /*FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_MRSR_STATUS');
5560: FND_MSG_PUB.ADD;
5561: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
5562: fnd_log.string
5563: (
5577: l_df_header_info_rec.incident_number,l_df_header_info_rec.summary,
5578: l_df_header_info_rec.manually_planned_flag;
5579:
5580: IF(context_info_csr%NOTFOUND)THEN
5581: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_HREC_UE_ID');
5582: FND_MSG_PUB.ADD;
5583: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5584: fnd_log.string
5585: (
5598:
5599: OPEN mr_status_meaning_csr(l_df_header_info_rec.ue_status_code);
5600: FETCH mr_status_meaning_csr INTO l_df_header_info_rec.ue_status_meaning;
5601: IF(mr_status_meaning_csr%NOTFOUND)THEN
5602: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_UE_MR');
5603: FND_MSG_PUB.ADD;
5604: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5605: fnd_log.string
5606: (
5618: OPEN visit_info_csr(l_applicable_ue_id);
5619: FETCH visit_info_csr INTO l_df_header_info_rec.visit_id,l_df_header_info_rec.visit_number;
5620: /* R12: UMP Deferral.
5621: IF(visit_info_csr%NOTFOUND)THEN
5622: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_UE_VISIT');
5623: FND_MSG_PUB.ADD;
5624: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5625: fnd_log.string
5626: (
5716: l_df_header_info_rec.ue_status_code := 'CANCEL_REJECTED';
5717: OPEN ue_status_meaning_csr(l_df_header_info_rec.ue_status_code);
5718: FETCH ue_status_meaning_csr INTO l_df_header_info_rec.ue_status_meaning;
5719: IF(ue_status_meaning_csr%NOTFOUND)THEN
5720: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_UE_MR');
5721: FND_MSG_PUB.ADD;
5722: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5723: fnd_log.string
5724: (
5853: FETCH applicable_ue_csr INTO l_orig_deferral_ue_id,
5854: l_ue_status_code,
5855: l_def_status_code;
5856: IF(applicable_ue_csr%NOTFOUND)THEN
5857: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_HREC_UE_ID');
5858: FND_MSG_PUB.ADD;
5859: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5860: fnd_log.string
5861: (