[Home] [Help]
186: -- setting up module type
187: G_MODULE_TYPE := p_module_type;
188: -- Initialize message list if p_init_msg_list is set to TRUE
189: IF FND_API.To_Boolean( p_init_msg_list) THEN
190: FND_MSG_PUB.Initialize;
191: END IF;
192:
193: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
194: fnd_log.string
307: );
308: END IF;
309:
310: -- Check Error Message stack.
311: x_msg_count := FND_MSG_PUB.count_msg;
312: IF x_msg_count > 0 THEN
313: RAISE FND_API.G_EXC_ERROR;
314: END IF;
315:
320:
321:
322:
323: -- Standard call to get message count and if count is 1, get message info
324: FND_MSG_PUB.Count_And_Get
325: ( p_count => x_msg_count,
326: p_data => x_msg_data,
327: p_encoded => fnd_api.g_false
328: );
343: EXCEPTION
344: WHEN FND_API.G_EXC_ERROR THEN
345: Rollback to process_deferral;
346: x_return_status := FND_API.G_RET_STS_ERROR;
347: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
348: p_data => x_msg_data,
349: p_encoded => fnd_api.g_false);
350:
351:
351:
352: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
353: Rollback to process_deferral;
354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
355: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
356: p_data => x_msg_data,
357: p_encoded => fnd_api.g_false);
358:
359:
359:
360: WHEN OTHERS THEN
361: Rollback to process_deferral;
362: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
363: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
364: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
365: p_procedure_name => l_api_name,
366: p_error_text => SUBSTR(SQLERRM,1,500));
367: END IF;
360: WHEN OTHERS THEN
361: Rollback to process_deferral;
362: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
363: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
364: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
365: p_procedure_name => l_api_name,
366: p_error_text => SUBSTR(SQLERRM,1,500));
367: END IF;
368: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
364: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
365: p_procedure_name => l_api_name,
366: p_error_text => SUBSTR(SQLERRM,1,500));
367: END IF;
368: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
369: p_data => x_msg_data,
370: p_encoded => fnd_api.g_false);
371: END process_deferral;
372:
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: (
521: fnd_log.level_unexpected,
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: (
543: fnd_log.level_unexpected,
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: (
557: fnd_log.level_unexpected,
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: (
571: fnd_log.level_error,
748: x_attribute15 => p_x_df_header_rec.attribute15
749: );
750: END IF;
751:
752: IF(FND_MSG_PUB.count_msg > 0)THEN
753: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
754: END IF;
755:
756: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
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' );
1031: END IF;
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: (
1050: fnd_log.level_error,
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' );
1079: END IF;
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: (
1100: fnd_log.level_unexpected,
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: (
1123: fnd_log.level_unexpected,
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: (
1140: fnd_log.level_unexpected,
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: (
1159: fnd_log.level_unexpected,
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: (
1183: fnd_log.level_unexpected,
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: (
1196: fnd_log.level_unexpected,
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: (
1209: fnd_log.level_unexpected,
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:
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: (
1239: fnd_log.level_error,
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: (
1254: fnd_log.level_error,
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
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
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
1290: p_df_header_rec.skip_mr_flag = G_YES_FLAG AND l_mr_applicable = FND_API.G_TRUE) THEN
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: (
1296: fnd_log.level_unexpected,
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: (
1312: fnd_log.level_unexpected,
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: (
1326: fnd_log.level_unexpected,
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: (
1347: fnd_log.level_unexpected,
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: (
1362: fnd_log.level_unexpected,
1370: END IF;
1371:
1372:
1373: -- raise expected error
1374: IF(FND_MSG_PUB.count_msg > 0)THEN
1375: RAISE FND_API.G_EXC_ERROR;
1376: END IF;
1377:
1378: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
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: (
1430: fnd_log.level_unexpected,
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: (
1450: fnd_log.level_unexpected,
1461: END IF;
1462: EXIT WHEN exit_flag;
1463: END LOOP;
1464:
1465: IF(FND_MSG_PUB.count_msg > 0)THEN
1466: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1467: END IF;
1468:
1469: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
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: (
1528: fnd_log.level_error,
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: (
1542: fnd_log.level_unexpected,
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: (
1559: fnd_log.level_unexpected,
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: (
1576: fnd_log.level_unexpected,
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: (
1635: fnd_log.level_unexpected,
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: (
1750: fnd_log.level_unexpected,
1865: END IF;
1866: END IF;
1867:
1868: -- raise expected error
1869: IF(FND_MSG_PUB.count_msg > 0)THEN
1870: RAISE FND_API.G_EXC_ERROR;
1871: END IF;
1872:
1873: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
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: (
1916: fnd_log.level_unexpected,
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: (
1930: fnd_log.level_unexpected,
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: (
1943: fnd_log.level_unexpected,
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: (
1958: fnd_log.level_unexpected,
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: (
1974: fnd_log.level_unexpected,
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: (
1993: fnd_log.level_error,
2002: END IF;
2003: END LOOP;
2004:
2005: -- raise expected error
2006: IF(FND_MSG_PUB.count_msg > 0)THEN
2007: RAISE FND_API.G_EXC_ERROR;
2008: END IF;
2009:
2010: default_unchanged_df_schedules(p_x_df_schedules_tbl => p_x_df_schedules_tbl);
2023: p_df_header_rec => p_df_header_rec,
2024: p_df_schedules_tbl => p_x_df_schedules_tbl
2025: );
2026:
2027: IF(FND_MSG_PUB.count_msg > 0)THEN
2028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2029: END IF;
2030:
2031:
2116: );
2117: END IF;
2118: END LOOP;
2119:
2120: IF(FND_MSG_PUB.count_msg > 0)THEN
2121: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2122: END IF;
2123:
2124: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
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: (
2255: fnd_log.level_error,
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;*/
2272:
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: (
2283: fnd_log.level_error,
2290: END IF;
2291: END LOOP;
2292:
2293: -- raise expected error
2294: IF(FND_MSG_PUB.count_msg > 0)THEN
2295: RAISE FND_API.G_EXC_ERROR;
2296: END IF;
2297:
2298: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
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: (
2348: fnd_log.level_error,
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: (
2362: fnd_log.level_unexpected,
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: (
2397: fnd_log.level_error,
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: (
2412: fnd_log.level_unexpected,
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: (
2528: fnd_log.level_unexpected,
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: (
2544: fnd_log.level_error,
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: (
2561: fnd_log.level_error,
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: (
2575: fnd_log.level_unexpected,
2647: END IF;
2648: END LOOP;
2649:
2650: -- raise expected error
2651: IF(FND_MSG_PUB.count_msg > 0)THEN
2652: RAISE FND_API.G_EXC_ERROR;
2653: END IF;
2654:
2655: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
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: (
2781: fnd_log.level_error,
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: (
2795: fnd_log.level_error,
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: (
2812: fnd_log.level_error,
2816: END IF;
2817: END IF;
2818: END IF;
2819:
2820: IF(FND_MSG_PUB.count_msg > 0)THEN
2821: RAISE FND_API.G_EXC_ERROR;
2822: END IF;
2823:
2824: IF(l_calc_due_date_flag)THEN
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: (
2851: fnd_log.level_error,
2862: i := i + 1;
2863: END LOOP;
2864: CLOSE counter_values_csr;
2865: -- throw errors if any here and do not proceed.
2866: IF(FND_MSG_PUB.count_msg > 0)THEN
2867: RAISE FND_API.G_EXC_ERROR;
2868: END IF;
2869:
2870: IF((p_df_header_rec.deferral_type = G_DEFERRAL_TYPE_MR) AND
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: (
2886: fnd_log.level_unexpected,
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;
2944:
2941: END IF;
2942: END IF;
2943: END IF;
2944:
2945: IF(FND_MSG_PUB.count_msg > 0)THEN
2946: RAISE FND_API.G_EXC_ERROR;
2947: END IF;
2948:
2949: x_warning_msg_data := l_msg_data;
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: (
2999: fnd_log.level_unexpected,
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: (
3013: fnd_log.level_error,
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: (
3090: fnd_log.level_error,
3201: END IF;
3202: END IF;
3203:
3204: -- throw errors if any
3205: IF(FND_MSG_PUB.count_msg > 0)THEN
3206: RAISE FND_API.G_EXC_ERROR;
3207: END IF;
3208:
3209:
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: (
3422: fnd_log.level_error,
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
3996: (
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
4027: (
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;
4071: CLOSE ue_title_csr;
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;
4078: -- rroy
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;
4166: END IF;
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: (
4197: fnd_log.level_unexpected,
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: (
4256: fnd_log.level_unexpected,
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: (
4299: fnd_log.level_unexpected,
4316: );
4317: END IF;
4318:
4319: -- throw errors if any
4320: IF(FND_MSG_PUB.count_msg > 0)THEN
4321: RETURN;
4322: END IF;
4323:
4324: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
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: (
4356: fnd_log.level_unexpected,
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: (
4609: fnd_log.level_unexpected,
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: (
4636: fnd_log.level_unexpected, 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
5518: );
5519: END IF;
5520: -- Initialize message list if p_init_msg_list is set to TRUE
5521: IF FND_API.To_Boolean( p_init_msg_list) THEN
5522: FND_MSG_PUB.Initialize;
5523: END IF;
5524: -- Initialize API return status to success
5525: x_return_status := FND_API.G_RET_STS_SUCCESS;
5526:
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: (
5542: fnd_log.level_unexpected,
5549: --get applicable ue id and find out whether deferral record should be shown.
5550: l_applicable_ue_id := get_applicable_ue(p_unit_effectivity_id);
5551:
5552: -- throw errors if any
5553: IF(FND_MSG_PUB.count_msg > 0)THEN
5554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5555: END IF;
5556:
5557: IF(l_applicable_ue_id IS NULL)THEN
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: (
5564: fnd_log.level_error,
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: (
5586: fnd_log.level_unexpected,
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: (
5607: fnd_log.level_unexpected,
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: (
5627: fnd_log.level_unexpected,
5662: END IF;
5663: CLOSE is_ue_inst_serial_ctld;
5664:
5665: -- throw errors if any
5666: IF(FND_MSG_PUB.count_msg > 0)THEN
5667: RAISE FND_API.G_EXC_ERROR;
5668: END IF;
5669: -- fetch deferral header record
5670: OPEN df_header_info_csr(l_applicable_ue_id);
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: (
5725: fnd_log.level_unexpected,
5740:
5741: l_df_header_info_rec.CTR_UOM_REMAIN := get_uom_remain(l_applicable_ue_id);
5742:
5743: -- throw errors if any
5744: IF(FND_MSG_PUB.count_msg > 0)THEN
5745: RAISE FND_API.G_EXC_ERROR;
5746: END IF;
5747:
5748: -- fetch deferral schedule rec
5764: CLOSE df_schedule_tbl_csr;
5765: END IF;
5766:
5767: -- throw errors if any
5768: IF(FND_MSG_PUB.count_msg > 0)THEN
5769: RAISE FND_API.G_EXC_ERROR;
5770: END IF;
5771:
5772: IF(l_df_header_info_rec.deferral_type = G_DEFERRAL_TYPE_MR)THEN
5806: WHEN FND_API.G_EXC_ERROR THEN
5807: x_df_header_info_rec := l_df_header_info_rec;
5808: x_df_schedules_tbl := l_df_schedules_tbl;
5809: x_return_status := FND_API.G_RET_STS_ERROR;
5810: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5811: p_data => x_msg_data,
5812: p_encoded => fnd_api.g_false);
5813:
5814:
5815: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5816: x_df_header_info_rec := l_df_header_info_rec;
5817: x_df_schedules_tbl := l_df_schedules_tbl;
5818: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5819: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5820: p_data => x_msg_data,
5821: p_encoded => fnd_api.g_false);
5822:
5823:
5824: WHEN OTHERS THEN
5825: x_df_header_info_rec := l_df_header_info_rec;
5826: x_df_schedules_tbl := l_df_schedules_tbl;
5827: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5828: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5829: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
5830: p_procedure_name => l_api_name,
5831: p_error_text => SUBSTR(SQLERRM,1,500));
5832: END IF;
5825: x_df_header_info_rec := l_df_header_info_rec;
5826: x_df_schedules_tbl := l_df_schedules_tbl;
5827: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5828: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5829: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
5830: p_procedure_name => l_api_name,
5831: p_error_text => SUBSTR(SQLERRM,1,500));
5832: END IF;
5833: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5829: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
5830: p_procedure_name => l_api_name,
5831: p_error_text => SUBSTR(SQLERRM,1,500));
5832: END IF;
5833: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5834: p_data => x_msg_data,
5835: p_encoded => fnd_api.g_false);
5836: END get_deferral_details;
5837:
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: (
5862: fnd_log.level_unexpected,