[Home] [Help]
125: -- Parameters :
126: --
127: -- Standard IN Parameters :
128: -- p_api_version IN NUMBER Default 1.0
129: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
130: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
131: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
132: -- Standard OUT Parameters :
133: -- x_return_status OUT VARCHAR2 Required
126: --
127: -- Standard IN Parameters :
128: -- p_api_version IN NUMBER Default 1.0
129: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
130: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
131: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
132: -- Standard OUT Parameters :
133: -- x_return_status OUT VARCHAR2 Required
134: -- x_msg_count OUT NUMBER Required
127: -- Standard IN Parameters :
128: -- p_api_version IN NUMBER Default 1.0
129: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
130: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
131: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
132: -- Standard OUT Parameters :
133: -- x_return_status OUT VARCHAR2 Required
134: -- x_msg_count OUT NUMBER Required
135: -- x_msg_data OUT VARCHAR2 Required
151: -- End of Comments.
152:
153: PROCEDURE process_deferral(
154: p_api_version IN NUMBER := 1.0,
155: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
156: p_commit IN VARCHAR2 := FND_API.G_FALSE,
157: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
158: p_module_type IN VARCHAR2 := NULL,
159: p_x_df_header_rec IN OUT NOCOPY AHL_PRD_DF_PVT.df_header_rec_type,
152:
153: PROCEDURE process_deferral(
154: p_api_version IN NUMBER := 1.0,
155: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
156: p_commit IN VARCHAR2 := FND_API.G_FALSE,
157: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
158: p_module_type IN VARCHAR2 := NULL,
159: p_x_df_header_rec IN OUT NOCOPY AHL_PRD_DF_PVT.df_header_rec_type,
160: p_x_df_schedules_tbl IN OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type,
153: PROCEDURE process_deferral(
154: p_api_version IN NUMBER := 1.0,
155: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
156: p_commit IN VARCHAR2 := FND_API.G_FALSE,
157: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
158: p_module_type IN VARCHAR2 := NULL,
159: p_x_df_header_rec IN OUT NOCOPY AHL_PRD_DF_PVT.df_header_rec_type,
160: p_x_df_schedules_tbl IN OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type,
161: x_return_status OUT NOCOPY VARCHAR2,
163: x_msg_data OUT NOCOPY VARCHAR2) IS
164:
165: l_api_version CONSTANT NUMBER := 1.0;
166: l_api_name CONSTANT VARCHAR2(30) := 'process_deferral';
167: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
168: l_warning_msg_data VARCHAR2(4000);
169:
170: BEGIN
171: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
179: -- Standard start of API savepoint
180: SAVEPOINT process_deferral;
181:
182: -- Standard call to check for call compatibility
183: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
185: END IF;
186: -- setting up module type
187: G_MODULE_TYPE := p_module_type;
180: SAVEPOINT process_deferral;
181:
182: -- Standard call to check for call compatibility
183: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
185: END IF;
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
185: END IF;
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
216: 'p_module_type : ' || p_module_type
217: );
218: END IF;
219: -- Initialize API return status to success
220: x_return_status := FND_API.G_RET_STS_SUCCESS;
221:
222: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
223: fnd_log.string
224: (
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:
316: -- Standard check of p_commit
317: IF FND_API.TO_BOOLEAN(p_commit) THEN
313: RAISE FND_API.G_EXC_ERROR;
314: END IF;
315:
316: -- Standard check of p_commit
317: IF FND_API.TO_BOOLEAN(p_commit) THEN
318: COMMIT WORK;
319: END IF;
320:
321:
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: );
329: IF(x_msg_count = 0 AND l_warning_msg_data IS NOT NULL)THEN
330: x_msg_count := 1;
331: x_msg_data := l_warning_msg_data;
340: );
341: END IF;
342:
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,
342:
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:
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:
352: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
353: Rollback to process_deferral;
348: p_data => x_msg_data,
349: p_encoded => fnd_api.g_false);
350:
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,
350:
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:
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:
360: WHEN OTHERS THEN
361: Rollback to process_deferral;
358:
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));
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:
373: -------------------------------------------------------------------------------------
374: -- procedure processes the header information
522: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header',
523: 'Input Keys are missing or invalid'
524: );
525: END IF;
526: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
527: END IF;
528: -- check whether unit effectivity is valid
529: OPEN unit_effectivity_info_csr(p_x_df_header_rec.unit_effectivity_id);
530: FETCH unit_effectivity_info_csr INTO l_mr_header_id,
545: 'unit effectivity record not found'
546: );
547: END IF;
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;
559: 'unit effectivity record not found'
560: );
561: END IF;
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;
573: 'Status of MR or SR is not valid for deferral'
574: );
575: END IF;
576: CLOSE unit_effectivity_info_csr;
577: RAISE FND_API.G_EXC_ERROR;
578: ELSE
579: -- filling in additional info
580: IF(l_mr_header_id IS NULL)THEN
581: p_x_df_header_rec.deferral_type := G_DEFERRAL_TYPE_SR;
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
757: fnd_log.string
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;
1032: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1033: ELSE
1034: -- R12: UMP Deferral.
1035: -- First validate UE ID. If UMP Deferral, then UE must not be in a 'planned' status.
1036: OPEN valid_ue_csr(p_df_header_rec.unit_effectivity_id);
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;
1080: CLOSE valid_deferral_csr;
1081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1082: ELSE
1083: CLOSE valid_deferral_csr;
1084: END IF; -- valid_deferral_csr
1085: ELSE
1101: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1102: 'cannot defer child MR when parent MR is based on non-serial SR'
1103: );
1104: END IF;
1105: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1106: END IF;
1107: END IF;
1108: END IF; -- valid_ue_csr
1109: END IF;
1125: 'Deferral record exist while operation flag is create'
1126: );
1127: END IF;
1128: CLOSE deferral_rec_exists_csr;
1129: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1130: END IF;
1131: CLOSE deferral_rec_exists_csr;
1132:
1133: -- check whether status is nothing but draft while creating record for deferral
1141: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1142: 'approval status is not DRAFT while creating a deferral record'
1143: );
1144: END IF;
1145: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1146: END IF;
1147:
1148: -- update and delete validations
1149: ELSIF (p_df_header_rec.operation_flag IN (G_OP_UPDATE,G_OP_DELETE)) THEN
1161: 'approval status invalid for update or delete : ue_id : ' || p_df_header_rec.unit_deferral_id
1162: );
1163: END IF;
1164: CLOSE valid_deferral_up_csr;
1165: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1166: END IF;
1167: CLOSE valid_deferral_up_csr;
1168: END IF;
1169:
1184: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1185: 'Cancel flag is not Y or N'
1186: );
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;
1197: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1198: 'Skip flag is not Y or N'
1199: );
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;
1210: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1211: 'Affect Due Calc Flag is not Y or N'
1212: );
1213: END IF;
1214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1215: END IF;
1216:
1217: -- Check user deferral type.(R12: UMP Deferral)
1218: IF (p_df_header_rec.user_deferral_type_code IS NOT NULL AND
1215: END IF;
1216:
1217: -- Check user deferral type.(R12: UMP Deferral)
1218: IF (p_df_header_rec.user_deferral_type_code IS NOT NULL AND
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');
1269: x_new_mr_applicable => l_new_mr_applicable,
1270: x_return_status => l_return_status,
1271: x_msg_count => l_msg_count,
1272: x_msg_data => l_msg_data);
1273: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1274: RAISE FND_API.G_EXC_ERROR;
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
1270: x_return_status => l_return_status,
1271: x_msg_count => l_msg_count,
1272: x_msg_data => l_msg_data);
1273: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1274: RAISE FND_API.G_EXC_ERROR;
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
1273: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1274: RAISE FND_API.G_EXC_ERROR;
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;
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
1285: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_AFFDUE_FLAG');
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
1291: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_SKIP_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
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
1297: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1298: 'Skip MR flag is Y while MR is not repetitive'
1299: );
1300: END IF;
1301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1302: END IF;
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
1313: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1314: 'MR has resettable counters so affect due cal flag cant be N '
1315: );
1316: END IF;
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');
1327: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1328: 'MR skip flag is Y so affect due cal flag can not be Y '
1329: );
1330: END IF;
1331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1332: END IF;
1333: END IF;
1334: END IF;
1335: ELSIF(p_df_header_rec.deferral_type = G_DEFERRAL_TYPE_SR)THEN
1348: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1349: 'cannot defer SR based on non-serial item'
1350: );
1351: END IF;
1352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
1363: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1364: 'For SR, affect due date flag can not be N '
1365: );
1366: END IF;
1367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1368: END IF;
1369: END IF;
1370: END IF;
1371:
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
1379: fnd_log.string
1432: 'Reason code is not defined in lookups '
1433: );
1434: END IF;
1435: CLOSE val_reason_code_csr;
1436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1437: END IF;
1438: CLOSE val_reason_code_csr;
1439: exit_flag := true;
1440: ELSE
1452: 'Reason code is not defined in lookups '
1453: );
1454: END IF;
1455: CLOSE val_reason_code_csr;
1456: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1457: END IF;
1458: CLOSE val_reason_code_csr;
1459: l_index := l_index + 1;
1460: l_temp1 := l_temp2 + 1;
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
1470: fnd_log.string
1544: 'Unit Effectivity ID does not match with deferral header record'
1545: );
1546: END IF;
1547: CLOSE df_header_csr;
1548: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1549: END IF;
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;
1561: 'Unit Deferral Type does not match with deferral header record'
1562: );
1563: END IF;
1564: CLOSE df_header_csr;
1565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1566: END IF;
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;
1578: 'Approval status code can not be modified'
1579: );
1580: END IF;
1581: CLOSE df_header_csr;
1582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1583: END IF;
1584:
1585: IF (p_x_df_header_rec.defer_reason_code IS NULL) THEN
1586: p_x_df_header_rec.defer_reason_code := l_df_header_rec.defer_reason_code;
1583: END IF;
1584:
1585: IF (p_x_df_header_rec.defer_reason_code IS NULL) THEN
1586: p_x_df_header_rec.defer_reason_code := l_df_header_rec.defer_reason_code;
1587: ELSIF(p_x_df_header_rec.defer_reason_code = FND_API.G_MISS_CHAR) THEN
1588: p_x_df_header_rec.defer_reason_code := NULL;
1589: END IF;
1590:
1591: IF (p_x_df_header_rec.skip_mr_flag IS NULL) THEN
1589: END IF;
1590:
1591: IF (p_x_df_header_rec.skip_mr_flag IS NULL) THEN
1592: p_x_df_header_rec.skip_mr_flag := l_df_header_rec.skip_mr_flag;
1593: ELSIF(p_x_df_header_rec.skip_mr_flag = FND_API.G_MISS_CHAR) THEN
1594: p_x_df_header_rec.skip_mr_flag := G_NO_FLAG;
1595: END IF;
1596:
1597: IF (p_x_df_header_rec.cancel_flag IS NULL) THEN
1595: END IF;
1596:
1597: IF (p_x_df_header_rec.cancel_flag IS NULL) THEN
1598: p_x_df_header_rec.cancel_flag := l_df_header_rec.cancel_flag;
1599: ELSIF(p_x_df_header_rec.cancel_flag = FND_API.G_MISS_CHAR) THEN
1600: p_x_df_header_rec.cancel_flag := G_NO_FLAG;
1601: END IF;
1602:
1603: IF (p_x_df_header_rec.affect_due_calc_flag IS NULL) THEN
1601: END IF;
1602:
1603: IF (p_x_df_header_rec.affect_due_calc_flag IS NULL) THEN
1604: p_x_df_header_rec.affect_due_calc_flag := l_df_header_rec.affect_due_calc_flag;
1605: ELSIF(p_x_df_header_rec.affect_due_calc_flag = FND_API.G_MISS_CHAR) THEN
1606: p_x_df_header_rec.affect_due_calc_flag := G_NO_FLAG;
1607: END IF;
1608:
1609: IF (p_x_df_header_rec.set_due_date IS NULL) THEN
1607: END IF;
1608:
1609: IF (p_x_df_header_rec.set_due_date IS NULL) THEN
1610: p_x_df_header_rec.set_due_date := l_df_header_rec.set_due_date;
1611: ELSIF(p_x_df_header_rec.set_due_date = FND_API.G_MISS_DATE) THEN
1612: p_x_df_header_rec.set_due_date := NULL;
1613: END IF;
1614:
1615: IF (p_x_df_header_rec.deferral_effective_on IS NULL) THEN
1613: END IF;
1614:
1615: IF (p_x_df_header_rec.deferral_effective_on IS NULL) THEN
1616: p_x_df_header_rec.deferral_effective_on := l_df_header_rec.deferral_effective_on;
1617: ELSIF(p_x_df_header_rec.deferral_effective_on = FND_API.G_MISS_DATE) THEN
1618: p_x_df_header_rec.deferral_effective_on := NULL;
1619: END IF;
1620:
1621: IF (p_x_df_header_rec.remarks IS NULL) THEN
1619: END IF;
1620:
1621: IF (p_x_df_header_rec.remarks IS NULL) THEN
1622: p_x_df_header_rec.remarks := l_df_header_rec.remarks;
1623: ELSIF(p_x_df_header_rec.remarks = FND_API.G_MISS_CHAR) THEN
1624: p_x_df_header_rec.remarks := NULL;
1625: END IF;
1626:
1627: IF (p_x_df_header_rec.approver_notes IS NULL) THEN
1636: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header',
1637: 'approver notes can not be updated by this API'
1638: );
1639: END IF;
1640: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1641: END IF;
1642:
1643: IF (p_x_df_header_rec.attribute_category IS NULL) THEN
1644: p_x_df_header_rec.attribute_category := l_df_header_rec.attribute_category;
1641: END IF;
1642:
1643: IF (p_x_df_header_rec.attribute_category IS NULL) THEN
1644: p_x_df_header_rec.attribute_category := l_df_header_rec.attribute_category;
1645: ELSIF(p_x_df_header_rec.attribute_category = FND_API.G_MISS_CHAR) THEN
1646: p_x_df_header_rec.attribute_category := NULL;
1647: END IF;
1648:
1649: IF (p_x_df_header_rec.attribute1 IS NULL) THEN
1647: END IF;
1648:
1649: IF (p_x_df_header_rec.attribute1 IS NULL) THEN
1650: p_x_df_header_rec.attribute1 := l_df_header_rec.attribute1;
1651: ELSIF(p_x_df_header_rec.attribute1 = FND_API.G_MISS_CHAR) THEN
1652: p_x_df_header_rec.attribute1 := NULL;
1653: END IF;
1654:
1655: IF (p_x_df_header_rec.attribute2 IS NULL) THEN
1653: END IF;
1654:
1655: IF (p_x_df_header_rec.attribute2 IS NULL) THEN
1656: p_x_df_header_rec.attribute2 := l_df_header_rec.attribute2;
1657: ELSIF(p_x_df_header_rec.attribute2 = FND_API.G_MISS_CHAR) THEN
1658: p_x_df_header_rec.attribute2 := NULL;
1659: END IF;
1660:
1661: IF (p_x_df_header_rec.attribute3 IS NULL) THEN
1659: END IF;
1660:
1661: IF (p_x_df_header_rec.attribute3 IS NULL) THEN
1662: p_x_df_header_rec.attribute3 := l_df_header_rec.attribute3;
1663: ELSIF(p_x_df_header_rec.attribute3 = FND_API.G_MISS_CHAR) THEN
1664: p_x_df_header_rec.attribute3 := NULL;
1665: END IF;
1666:
1667: IF (p_x_df_header_rec.attribute4 IS NULL) THEN
1665: END IF;
1666:
1667: IF (p_x_df_header_rec.attribute4 IS NULL) THEN
1668: p_x_df_header_rec.attribute4 := l_df_header_rec.attribute4;
1669: ELSIF(p_x_df_header_rec.attribute4 = FND_API.G_MISS_CHAR) THEN
1670: p_x_df_header_rec.attribute4 := NULL;
1671: END IF;
1672:
1673: IF (p_x_df_header_rec.attribute5 IS NULL) THEN
1671: END IF;
1672:
1673: IF (p_x_df_header_rec.attribute5 IS NULL) THEN
1674: p_x_df_header_rec.attribute5 := l_df_header_rec.attribute5;
1675: ELSIF(p_x_df_header_rec.attribute5 = FND_API.G_MISS_CHAR) THEN
1676: p_x_df_header_rec.attribute5 := NULL;
1677: END IF;
1678:
1679: IF (p_x_df_header_rec.attribute6 IS NULL) THEN
1677: END IF;
1678:
1679: IF (p_x_df_header_rec.attribute6 IS NULL) THEN
1680: p_x_df_header_rec.attribute6 := l_df_header_rec.attribute6;
1681: ELSIF(p_x_df_header_rec.attribute6 = FND_API.G_MISS_CHAR) THEN
1682: p_x_df_header_rec.attribute6 := NULL;
1683: END IF;
1684:
1685: IF (p_x_df_header_rec.attribute7 IS NULL) THEN
1683: END IF;
1684:
1685: IF (p_x_df_header_rec.attribute7 IS NULL) THEN
1686: p_x_df_header_rec.attribute7 := l_df_header_rec.attribute7;
1687: ELSIF(p_x_df_header_rec.attribute7 = FND_API.G_MISS_CHAR) THEN
1688: p_x_df_header_rec.attribute7 := NULL;
1689: END IF;
1690:
1691: IF (p_x_df_header_rec.attribute8 IS NULL) THEN
1689: END IF;
1690:
1691: IF (p_x_df_header_rec.attribute8 IS NULL) THEN
1692: p_x_df_header_rec.attribute8 := l_df_header_rec.attribute8;
1693: ELSIF(p_x_df_header_rec.attribute8 = FND_API.G_MISS_CHAR) THEN
1694: p_x_df_header_rec.attribute8 := NULL;
1695: END IF;
1696:
1697: IF (p_x_df_header_rec.attribute9 IS NULL) THEN
1695: END IF;
1696:
1697: IF (p_x_df_header_rec.attribute9 IS NULL) THEN
1698: p_x_df_header_rec.attribute9 := l_df_header_rec.attribute9;
1699: ELSIF(p_x_df_header_rec.attribute9 = FND_API.G_MISS_CHAR) THEN
1700: p_x_df_header_rec.attribute9 := NULL;
1701: END IF;
1702:
1703: IF (p_x_df_header_rec.attribute10 IS NULL) THEN
1701: END IF;
1702:
1703: IF (p_x_df_header_rec.attribute10 IS NULL) THEN
1704: p_x_df_header_rec.attribute10 := l_df_header_rec.attribute10;
1705: ELSIF(p_x_df_header_rec.attribute10 = FND_API.G_MISS_CHAR) THEN
1706: p_x_df_header_rec.attribute10 := NULL;
1707: END IF;
1708:
1709: IF (p_x_df_header_rec.attribute11 IS NULL) THEN
1707: END IF;
1708:
1709: IF (p_x_df_header_rec.attribute11 IS NULL) THEN
1710: p_x_df_header_rec.attribute11 := l_df_header_rec.attribute11;
1711: ELSIF(p_x_df_header_rec.attribute11 = FND_API.G_MISS_CHAR) THEN
1712: p_x_df_header_rec.attribute11 := NULL;
1713: END IF;
1714:
1715: IF (p_x_df_header_rec.attribute12 IS NULL) THEN
1713: END IF;
1714:
1715: IF (p_x_df_header_rec.attribute12 IS NULL) THEN
1716: p_x_df_header_rec.attribute12 := l_df_header_rec.attribute12;
1717: ELSIF(p_x_df_header_rec.attribute12 = FND_API.G_MISS_CHAR) THEN
1718: p_x_df_header_rec.attribute12 := NULL;
1719: END IF;
1720:
1721: IF (p_x_df_header_rec.attribute13 IS NULL) THEN
1719: END IF;
1720:
1721: IF (p_x_df_header_rec.attribute13 IS NULL) THEN
1722: p_x_df_header_rec.attribute13 := l_df_header_rec.attribute13;
1723: ELSIF(p_x_df_header_rec.attribute13 = FND_API.G_MISS_CHAR) THEN
1724: p_x_df_header_rec.attribute13 := NULL;
1725: END IF;
1726:
1727: IF (p_x_df_header_rec.attribute14 IS NULL) THEN
1725: END IF;
1726:
1727: IF (p_x_df_header_rec.attribute14 IS NULL) THEN
1728: p_x_df_header_rec.attribute14 := l_df_header_rec.attribute14;
1729: ELSIF(p_x_df_header_rec.attribute14 = FND_API.G_MISS_CHAR) THEN
1730: p_x_df_header_rec.attribute14 := NULL;
1731: END IF;
1732:
1733: IF (p_x_df_header_rec.attribute15 IS NULL) THEN
1731: END IF;
1732:
1733: IF (p_x_df_header_rec.attribute15 IS NULL) THEN
1734: p_x_df_header_rec.attribute15 := l_df_header_rec.attribute15;
1735: ELSIF(p_x_df_header_rec.attribute15 = FND_API.G_MISS_CHAR) THEN
1736: p_x_df_header_rec.attribute15 := NULL;
1737: END IF;
1738:
1739: END IF;
1740: CLOSE df_header_csr;
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
1751: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header',
1752: 'Unit effectivity ID can not be null while creating deferral header record'
1753: );
1754: END IF;
1755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1756: END IF;
1757:
1758: IF (p_x_df_header_rec.unit_deferral_type IS NULL OR
1759: p_x_df_header_rec.unit_deferral_type = FND_API.G_MISS_CHAR) THEN
1755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1756: END IF;
1757:
1758: IF (p_x_df_header_rec.unit_deferral_type IS NULL OR
1759: p_x_df_header_rec.unit_deferral_type = FND_API.G_MISS_CHAR) THEN
1760: p_x_df_header_rec.unit_deferral_type := 'DEFERRAL';
1761: END IF;
1762:
1763: IF(p_x_df_header_rec.approval_status_code IS NULL OR
1760: p_x_df_header_rec.unit_deferral_type := 'DEFERRAL';
1761: END IF;
1762:
1763: IF(p_x_df_header_rec.approval_status_code IS NULL OR
1764: p_x_df_header_rec.approval_status_code = FND_API.G_MISS_CHAR) THEN
1765: p_x_df_header_rec.approval_status_code := 'DRAFT';
1766: END IF;
1767:
1768: IF(p_x_df_header_rec.defer_reason_code = FND_API.G_MISS_CHAR) THEN
1764: p_x_df_header_rec.approval_status_code = FND_API.G_MISS_CHAR) THEN
1765: p_x_df_header_rec.approval_status_code := 'DRAFT';
1766: END IF;
1767:
1768: IF(p_x_df_header_rec.defer_reason_code = FND_API.G_MISS_CHAR) THEN
1769: p_x_df_header_rec.defer_reason_code := NULL;
1770: END IF;
1771:
1772: IF(p_x_df_header_rec.skip_mr_flag IS NULL OR
1769: p_x_df_header_rec.defer_reason_code := NULL;
1770: END IF;
1771:
1772: IF(p_x_df_header_rec.skip_mr_flag IS NULL OR
1773: p_x_df_header_rec.skip_mr_flag = FND_API.G_MISS_CHAR) THEN
1774: p_x_df_header_rec.skip_mr_flag := G_NO_FLAG;
1775: END IF;
1776:
1777: IF(p_x_df_header_rec.cancel_flag IS NULL OR
1774: p_x_df_header_rec.skip_mr_flag := G_NO_FLAG;
1775: END IF;
1776:
1777: IF(p_x_df_header_rec.cancel_flag IS NULL OR
1778: p_x_df_header_rec.cancel_flag = FND_API.G_MISS_CHAR) THEN
1779: p_x_df_header_rec.cancel_flag := G_NO_FLAG;
1780: END IF;
1781:
1782: IF(p_x_df_header_rec.affect_due_calc_flag IS NULL OR
1779: p_x_df_header_rec.cancel_flag := G_NO_FLAG;
1780: END IF;
1781:
1782: IF(p_x_df_header_rec.affect_due_calc_flag IS NULL OR
1783: p_x_df_header_rec.affect_due_calc_flag = FND_API.G_MISS_CHAR) THEN
1784: p_x_df_header_rec.affect_due_calc_flag := G_YES_FLAG;
1785: END IF;
1786:
1787: IF(p_x_df_header_rec.set_due_date = FND_API.G_MISS_DATE) THEN
1783: p_x_df_header_rec.affect_due_calc_flag = FND_API.G_MISS_CHAR) THEN
1784: p_x_df_header_rec.affect_due_calc_flag := G_YES_FLAG;
1785: END IF;
1786:
1787: IF(p_x_df_header_rec.set_due_date = FND_API.G_MISS_DATE) THEN
1788: p_x_df_header_rec.set_due_date := NULL;
1789: END IF;
1790:
1791: IF(p_x_df_header_rec.deferral_effective_on = FND_API.G_MISS_DATE) THEN
1787: IF(p_x_df_header_rec.set_due_date = FND_API.G_MISS_DATE) THEN
1788: p_x_df_header_rec.set_due_date := NULL;
1789: END IF;
1790:
1791: IF(p_x_df_header_rec.deferral_effective_on = FND_API.G_MISS_DATE) THEN
1792: p_x_df_header_rec.deferral_effective_on := NULL;
1793: END IF;
1794:
1795: IF(p_x_df_header_rec.remarks = FND_API.G_MISS_CHAR) THEN
1791: IF(p_x_df_header_rec.deferral_effective_on = FND_API.G_MISS_DATE) THEN
1792: p_x_df_header_rec.deferral_effective_on := NULL;
1793: END IF;
1794:
1795: IF(p_x_df_header_rec.remarks = FND_API.G_MISS_CHAR) THEN
1796: p_x_df_header_rec.remarks := NULL;
1797: END IF;
1798:
1799: IF(p_x_df_header_rec.approver_notes = FND_API.G_MISS_CHAR) THEN
1795: IF(p_x_df_header_rec.remarks = FND_API.G_MISS_CHAR) THEN
1796: p_x_df_header_rec.remarks := NULL;
1797: END IF;
1798:
1799: IF(p_x_df_header_rec.approver_notes = FND_API.G_MISS_CHAR) THEN
1800: p_x_df_header_rec.approver_notes := NULL;
1801: END IF;
1802:
1803: IF(p_x_df_header_rec.attribute_category = FND_API.G_MISS_CHAR) THEN
1799: IF(p_x_df_header_rec.approver_notes = FND_API.G_MISS_CHAR) THEN
1800: p_x_df_header_rec.approver_notes := NULL;
1801: END IF;
1802:
1803: IF(p_x_df_header_rec.attribute_category = FND_API.G_MISS_CHAR) THEN
1804: p_x_df_header_rec.attribute_category := NULL;
1805: END IF;
1806:
1807: IF(p_x_df_header_rec.attribute1 = FND_API.G_MISS_CHAR) THEN
1803: IF(p_x_df_header_rec.attribute_category = FND_API.G_MISS_CHAR) THEN
1804: p_x_df_header_rec.attribute_category := NULL;
1805: END IF;
1806:
1807: IF(p_x_df_header_rec.attribute1 = FND_API.G_MISS_CHAR) THEN
1808: p_x_df_header_rec.attribute1 := NULL;
1809: END IF;
1810:
1811: IF(p_x_df_header_rec.attribute2 = FND_API.G_MISS_CHAR) THEN
1807: IF(p_x_df_header_rec.attribute1 = FND_API.G_MISS_CHAR) THEN
1808: p_x_df_header_rec.attribute1 := NULL;
1809: END IF;
1810:
1811: IF(p_x_df_header_rec.attribute2 = FND_API.G_MISS_CHAR) THEN
1812: p_x_df_header_rec.attribute2 := NULL;
1813: END IF;
1814:
1815: IF(p_x_df_header_rec.attribute3 = FND_API.G_MISS_CHAR) THEN
1811: IF(p_x_df_header_rec.attribute2 = FND_API.G_MISS_CHAR) THEN
1812: p_x_df_header_rec.attribute2 := NULL;
1813: END IF;
1814:
1815: IF(p_x_df_header_rec.attribute3 = FND_API.G_MISS_CHAR) THEN
1816: p_x_df_header_rec.attribute3 := NULL;
1817: END IF;
1818:
1819: IF(p_x_df_header_rec.attribute4 = FND_API.G_MISS_CHAR) THEN
1815: IF(p_x_df_header_rec.attribute3 = FND_API.G_MISS_CHAR) THEN
1816: p_x_df_header_rec.attribute3 := NULL;
1817: END IF;
1818:
1819: IF(p_x_df_header_rec.attribute4 = FND_API.G_MISS_CHAR) THEN
1820: p_x_df_header_rec.attribute4 := NULL;
1821: END IF;
1822:
1823: IF(p_x_df_header_rec.attribute5 = FND_API.G_MISS_CHAR) THEN
1819: IF(p_x_df_header_rec.attribute4 = FND_API.G_MISS_CHAR) THEN
1820: p_x_df_header_rec.attribute4 := NULL;
1821: END IF;
1822:
1823: IF(p_x_df_header_rec.attribute5 = FND_API.G_MISS_CHAR) THEN
1824: p_x_df_header_rec.attribute5 := NULL;
1825: END IF;
1826:
1827: IF(p_x_df_header_rec.attribute6 = FND_API.G_MISS_CHAR) THEN
1823: IF(p_x_df_header_rec.attribute5 = FND_API.G_MISS_CHAR) THEN
1824: p_x_df_header_rec.attribute5 := NULL;
1825: END IF;
1826:
1827: IF(p_x_df_header_rec.attribute6 = FND_API.G_MISS_CHAR) THEN
1828: p_x_df_header_rec.attribute6 := NULL;
1829: END IF;
1830:
1831: IF(p_x_df_header_rec.attribute7 = FND_API.G_MISS_CHAR) THEN
1827: IF(p_x_df_header_rec.attribute6 = FND_API.G_MISS_CHAR) THEN
1828: p_x_df_header_rec.attribute6 := NULL;
1829: END IF;
1830:
1831: IF(p_x_df_header_rec.attribute7 = FND_API.G_MISS_CHAR) THEN
1832: p_x_df_header_rec.attribute7 := NULL;
1833: END IF;
1834:
1835: IF(p_x_df_header_rec.attribute8 = FND_API.G_MISS_CHAR) THEN
1831: IF(p_x_df_header_rec.attribute7 = FND_API.G_MISS_CHAR) THEN
1832: p_x_df_header_rec.attribute7 := NULL;
1833: END IF;
1834:
1835: IF(p_x_df_header_rec.attribute8 = FND_API.G_MISS_CHAR) THEN
1836: p_x_df_header_rec.attribute8 := NULL;
1837: END IF;
1838:
1839: IF(p_x_df_header_rec.attribute9 = FND_API.G_MISS_CHAR) THEN
1835: IF(p_x_df_header_rec.attribute8 = FND_API.G_MISS_CHAR) THEN
1836: p_x_df_header_rec.attribute8 := NULL;
1837: END IF;
1838:
1839: IF(p_x_df_header_rec.attribute9 = FND_API.G_MISS_CHAR) THEN
1840: p_x_df_header_rec.attribute9 := NULL;
1841: END IF;
1842:
1843: IF(p_x_df_header_rec.attribute10 = FND_API.G_MISS_CHAR) THEN
1839: IF(p_x_df_header_rec.attribute9 = FND_API.G_MISS_CHAR) THEN
1840: p_x_df_header_rec.attribute9 := NULL;
1841: END IF;
1842:
1843: IF(p_x_df_header_rec.attribute10 = FND_API.G_MISS_CHAR) THEN
1844: p_x_df_header_rec.attribute10 := NULL;
1845: END IF;
1846:
1847: IF(p_x_df_header_rec.attribute11 = FND_API.G_MISS_CHAR) THEN
1843: IF(p_x_df_header_rec.attribute10 = FND_API.G_MISS_CHAR) THEN
1844: p_x_df_header_rec.attribute10 := NULL;
1845: END IF;
1846:
1847: IF(p_x_df_header_rec.attribute11 = FND_API.G_MISS_CHAR) THEN
1848: p_x_df_header_rec.attribute11 := NULL;
1849: END IF;
1850:
1851: IF(p_x_df_header_rec.attribute12 = FND_API.G_MISS_CHAR) THEN
1847: IF(p_x_df_header_rec.attribute11 = FND_API.G_MISS_CHAR) THEN
1848: p_x_df_header_rec.attribute11 := NULL;
1849: END IF;
1850:
1851: IF(p_x_df_header_rec.attribute12 = FND_API.G_MISS_CHAR) THEN
1852: p_x_df_header_rec.attribute12 := NULL;
1853: END IF;
1854:
1855: IF(p_x_df_header_rec.attribute13 = FND_API.G_MISS_CHAR) THEN
1851: IF(p_x_df_header_rec.attribute12 = FND_API.G_MISS_CHAR) THEN
1852: p_x_df_header_rec.attribute12 := NULL;
1853: END IF;
1854:
1855: IF(p_x_df_header_rec.attribute13 = FND_API.G_MISS_CHAR) THEN
1856: p_x_df_header_rec.attribute13 := NULL;
1857: END IF;
1858:
1859: IF(p_x_df_header_rec.attribute14 = FND_API.G_MISS_CHAR) THEN
1855: IF(p_x_df_header_rec.attribute13 = FND_API.G_MISS_CHAR) THEN
1856: p_x_df_header_rec.attribute13 := NULL;
1857: END IF;
1858:
1859: IF(p_x_df_header_rec.attribute14 = FND_API.G_MISS_CHAR) THEN
1860: p_x_df_header_rec.attribute14 := NULL;
1861: END IF;
1862:
1863: IF(p_x_df_header_rec.attribute15 = FND_API.G_MISS_CHAR) THEN
1859: IF(p_x_df_header_rec.attribute14 = FND_API.G_MISS_CHAR) THEN
1860: p_x_df_header_rec.attribute14 := NULL;
1861: END IF;
1862:
1863: IF(p_x_df_header_rec.attribute15 = FND_API.G_MISS_CHAR) THEN
1864: p_x_df_header_rec.attribute15 := NULL;
1865: END IF;
1866: END IF;
1867:
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
1874: fnd_log.string
1917: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1918: 'Operation Flag is invalid in the schedule record : ' || i
1919: );
1920: END IF;
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');
1931: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1932: 'Object version number or key missing in schedule record : ' || i
1933: );
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;
1944: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1945: 'Unit Deferral ID does not match in schedule record : ' || i
1946: );
1947: END IF;
1948: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
1959: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1960: 'For Create Operation, Unit Threshold ID or Object Version Number is not null in schedule record : ' || i
1961: );
1962: END IF;
1963: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1964: END IF;
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;
1962: END IF;
1963: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1964: END IF;
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;
1975: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1976: 'For Create Operation, Header Unit Deferral ID does not match with same in schedule record : ' || i
1977: );
1978: END IF;
1979: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1980: END IF;
1981: END IF;
1982: -- value to id conversion for counter name
1983: IF(G_MODULE_TYPE = 'JSP' AND p_x_df_schedules_tbl(i).operation_flag IN (G_OP_CREATE,G_OP_UPDATE))THEN
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);
2011:
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:
2032:
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
2125: fnd_log.string
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
2299: fnd_log.string
2364: 'Unit Deferral ID does not match with deferral schedule record : ' || i
2365: );
2366: END IF;
2367: CLOSE df_schedules_csr;
2368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2369: END IF;
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;
2369: END IF;
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
2384: END IF;
2385:
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);
2414: 'Invalid counter value type code in deferral schedule record : ' || i
2415: );
2416: END IF;
2417: CLOSE df_schedules_csr;
2418: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2419: END IF;
2420:
2421: IF (p_x_df_schedules_tbl(i).attribute_category IS NULL) THEN
2422: p_x_df_schedules_tbl(i).attribute_category := l_df_schedules_rec.attribute_category;
2419: END IF;
2420:
2421: IF (p_x_df_schedules_tbl(i).attribute_category IS NULL) THEN
2422: p_x_df_schedules_tbl(i).attribute_category := l_df_schedules_rec.attribute_category;
2423: ELSIF(p_x_df_schedules_tbl(i).attribute_category = FND_API.G_MISS_CHAR) THEN
2424: p_x_df_schedules_tbl(i).attribute_category := NULL;
2425: END IF;
2426:
2427: IF (p_x_df_schedules_tbl(i).attribute1 IS NULL) THEN
2425: END IF;
2426:
2427: IF (p_x_df_schedules_tbl(i).attribute1 IS NULL) THEN
2428: p_x_df_schedules_tbl(i).attribute1 := l_df_schedules_rec.attribute1;
2429: ELSIF(p_x_df_schedules_tbl(i).attribute1 = FND_API.G_MISS_CHAR) THEN
2430: p_x_df_schedules_tbl(i).attribute1 := NULL;
2431: END IF;
2432:
2433: IF (p_x_df_schedules_tbl(i).attribute2 IS NULL) THEN
2431: END IF;
2432:
2433: IF (p_x_df_schedules_tbl(i).attribute2 IS NULL) THEN
2434: p_x_df_schedules_tbl(i).attribute2 := l_df_schedules_rec.attribute2;
2435: ELSIF(p_x_df_schedules_tbl(i).attribute2 = FND_API.G_MISS_CHAR) THEN
2436: p_x_df_schedules_tbl(i).attribute2 := NULL;
2437: END IF;
2438:
2439: IF (p_x_df_schedules_tbl(i).attribute3 IS NULL) THEN
2437: END IF;
2438:
2439: IF (p_x_df_schedules_tbl(i).attribute3 IS NULL) THEN
2440: p_x_df_schedules_tbl(i).attribute3 := l_df_schedules_rec.attribute3;
2441: ELSIF(p_x_df_schedules_tbl(i).attribute3 = FND_API.G_MISS_CHAR) THEN
2442: p_x_df_schedules_tbl(i).attribute3 := NULL;
2443: END IF;
2444:
2445: IF (p_x_df_schedules_tbl(i).attribute4 IS NULL) THEN
2443: END IF;
2444:
2445: IF (p_x_df_schedules_tbl(i).attribute4 IS NULL) THEN
2446: p_x_df_schedules_tbl(i).attribute4 := l_df_schedules_rec.attribute4;
2447: ELSIF(p_x_df_schedules_tbl(i).attribute4 = FND_API.G_MISS_CHAR) THEN
2448: p_x_df_schedules_tbl(i).attribute4 := NULL;
2449: END IF;
2450:
2451: IF (p_x_df_schedules_tbl(i).attribute5 IS NULL) THEN
2449: END IF;
2450:
2451: IF (p_x_df_schedules_tbl(i).attribute5 IS NULL) THEN
2452: p_x_df_schedules_tbl(i).attribute5 := l_df_schedules_rec.attribute5;
2453: ELSIF(p_x_df_schedules_tbl(i).attribute5 = FND_API.G_MISS_CHAR) THEN
2454: p_x_df_schedules_tbl(i).attribute5 := NULL;
2455: END IF;
2456:
2457: IF (p_x_df_schedules_tbl(i).attribute6 IS NULL) THEN
2455: END IF;
2456:
2457: IF (p_x_df_schedules_tbl(i).attribute6 IS NULL) THEN
2458: p_x_df_schedules_tbl(i).attribute6 := l_df_schedules_rec.attribute6;
2459: ELSIF(p_x_df_schedules_tbl(i).attribute6 = FND_API.G_MISS_CHAR) THEN
2460: p_x_df_schedules_tbl(i).attribute6 := NULL;
2461: END IF;
2462:
2463: IF (p_x_df_schedules_tbl(i).attribute7 IS NULL) THEN
2461: END IF;
2462:
2463: IF (p_x_df_schedules_tbl(i).attribute7 IS NULL) THEN
2464: p_x_df_schedules_tbl(i).attribute7 := l_df_schedules_rec.attribute7;
2465: ELSIF(p_x_df_schedules_tbl(i).attribute7 = FND_API.G_MISS_CHAR) THEN
2466: p_x_df_schedules_tbl(i).attribute7 := NULL;
2467: END IF;
2468:
2469: IF (p_x_df_schedules_tbl(i).attribute8 IS NULL) THEN
2467: END IF;
2468:
2469: IF (p_x_df_schedules_tbl(i).attribute8 IS NULL) THEN
2470: p_x_df_schedules_tbl(i).attribute8 := l_df_schedules_rec.attribute8;
2471: ELSIF(p_x_df_schedules_tbl(i).attribute8 = FND_API.G_MISS_CHAR) THEN
2472: p_x_df_schedules_tbl(i).attribute8 := NULL;
2473: END IF;
2474:
2475: IF (p_x_df_schedules_tbl(i).attribute9 IS NULL) THEN
2473: END IF;
2474:
2475: IF (p_x_df_schedules_tbl(i).attribute9 IS NULL) THEN
2476: p_x_df_schedules_tbl(i).attribute9 := l_df_schedules_rec.attribute9;
2477: ELSIF(p_x_df_schedules_tbl(i).attribute9 = FND_API.G_MISS_CHAR) THEN
2478: p_x_df_schedules_tbl(i).attribute9 := NULL;
2479: END IF;
2480:
2481: IF (p_x_df_schedules_tbl(i).attribute10 IS NULL) THEN
2479: END IF;
2480:
2481: IF (p_x_df_schedules_tbl(i).attribute10 IS NULL) THEN
2482: p_x_df_schedules_tbl(i).attribute10 := l_df_schedules_rec.attribute10;
2483: ELSIF(p_x_df_schedules_tbl(i).attribute10 = FND_API.G_MISS_CHAR) THEN
2484: p_x_df_schedules_tbl(i).attribute10 := NULL;
2485: END IF;
2486:
2487: IF (p_x_df_schedules_tbl(i).attribute11 IS NULL) THEN
2485: END IF;
2486:
2487: IF (p_x_df_schedules_tbl(i).attribute11 IS NULL) THEN
2488: p_x_df_schedules_tbl(i).attribute11 := l_df_schedules_rec.attribute11;
2489: ELSIF(p_x_df_schedules_tbl(i).attribute11 = FND_API.G_MISS_CHAR) THEN
2490: p_x_df_schedules_tbl(i).attribute11 := NULL;
2491: END IF;
2492:
2493: IF (p_x_df_schedules_tbl(i).attribute12 IS NULL) THEN
2491: END IF;
2492:
2493: IF (p_x_df_schedules_tbl(i).attribute12 IS NULL) THEN
2494: p_x_df_schedules_tbl(i).attribute12 := l_df_schedules_rec.attribute12;
2495: ELSIF(p_x_df_schedules_tbl(i).attribute12 = FND_API.G_MISS_CHAR) THEN
2496: p_x_df_schedules_tbl(i).attribute12 := NULL;
2497: END IF;
2498:
2499: IF (p_x_df_schedules_tbl(i).attribute13 IS NULL) THEN
2497: END IF;
2498:
2499: IF (p_x_df_schedules_tbl(i).attribute13 IS NULL) THEN
2500: p_x_df_schedules_tbl(i).attribute13 := l_df_schedules_rec.attribute13;
2501: ELSIF(p_x_df_schedules_tbl(i).attribute13 = FND_API.G_MISS_CHAR) THEN
2502: p_x_df_schedules_tbl(i).attribute13 := NULL;
2503: END IF;
2504:
2505: IF (p_x_df_schedules_tbl(i).attribute14 IS NULL) THEN
2503: END IF;
2504:
2505: IF (p_x_df_schedules_tbl(i).attribute14 IS NULL) THEN
2506: p_x_df_schedules_tbl(i).attribute14 := l_df_schedules_rec.attribute14;
2507: ELSIF(p_x_df_schedules_tbl(i).attribute14 = FND_API.G_MISS_CHAR) THEN
2508: p_x_df_schedules_tbl(i).attribute14 := NULL;
2509: END IF;
2510:
2511: IF (p_x_df_schedules_tbl(i).attribute15 IS NULL) THEN
2509: END IF;
2510:
2511: IF (p_x_df_schedules_tbl(i).attribute15 IS NULL) THEN
2512: p_x_df_schedules_tbl(i).attribute15 := l_df_schedules_rec.attribute15;
2513: ELSIF(p_x_df_schedules_tbl(i).attribute15 = FND_API.G_MISS_CHAR) THEN
2514: p_x_df_schedules_tbl(i).attribute15 := NULL;
2515: END IF;
2516:
2517: END IF;
2518: CLOSE df_schedules_csr;
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
2529: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2530: 'Missing Unit Deferral ID for create operation in deferral schedule record : ' || i
2531: );
2532: END IF;
2533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
2533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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
2548: END IF;
2549: END IF;
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);
2576: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2577: 'Invalid counter value type code in deferral schedule record : ' || i
2578: );
2579: END IF;
2580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2581: END IF;
2582:
2583: IF (p_x_df_schedules_tbl(i).attribute_category = FND_API.G_MISS_CHAR) THEN
2584: p_x_df_schedules_tbl(i).attribute_category := NULL;
2579: END IF;
2580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2581: END IF;
2582:
2583: IF (p_x_df_schedules_tbl(i).attribute_category = FND_API.G_MISS_CHAR) THEN
2584: p_x_df_schedules_tbl(i).attribute_category := NULL;
2585: END IF;
2586:
2587: IF (p_x_df_schedules_tbl(i).attribute1 = FND_API.G_MISS_CHAR) THEN
2583: IF (p_x_df_schedules_tbl(i).attribute_category = FND_API.G_MISS_CHAR) THEN
2584: p_x_df_schedules_tbl(i).attribute_category := NULL;
2585: END IF;
2586:
2587: IF (p_x_df_schedules_tbl(i).attribute1 = FND_API.G_MISS_CHAR) THEN
2588: p_x_df_schedules_tbl(i).attribute1 := NULL;
2589: END IF;
2590:
2591: IF (p_x_df_schedules_tbl(i).attribute2 = FND_API.G_MISS_CHAR) THEN
2587: IF (p_x_df_schedules_tbl(i).attribute1 = FND_API.G_MISS_CHAR) THEN
2588: p_x_df_schedules_tbl(i).attribute1 := NULL;
2589: END IF;
2590:
2591: IF (p_x_df_schedules_tbl(i).attribute2 = FND_API.G_MISS_CHAR) THEN
2592: p_x_df_schedules_tbl(i).attribute2 := NULL;
2593: END IF;
2594:
2595: IF (p_x_df_schedules_tbl(i).attribute3 = FND_API.G_MISS_CHAR) THEN
2591: IF (p_x_df_schedules_tbl(i).attribute2 = FND_API.G_MISS_CHAR) THEN
2592: p_x_df_schedules_tbl(i).attribute2 := NULL;
2593: END IF;
2594:
2595: IF (p_x_df_schedules_tbl(i).attribute3 = FND_API.G_MISS_CHAR) THEN
2596: p_x_df_schedules_tbl(i).attribute3 := NULL;
2597: END IF;
2598:
2599: IF (p_x_df_schedules_tbl(i).attribute4 = FND_API.G_MISS_CHAR) THEN
2595: IF (p_x_df_schedules_tbl(i).attribute3 = FND_API.G_MISS_CHAR) THEN
2596: p_x_df_schedules_tbl(i).attribute3 := NULL;
2597: END IF;
2598:
2599: IF (p_x_df_schedules_tbl(i).attribute4 = FND_API.G_MISS_CHAR) THEN
2600: p_x_df_schedules_tbl(i).attribute4 := NULL;
2601: END IF;
2602:
2603: IF (p_x_df_schedules_tbl(i).attribute5 = FND_API.G_MISS_CHAR) THEN
2599: IF (p_x_df_schedules_tbl(i).attribute4 = FND_API.G_MISS_CHAR) THEN
2600: p_x_df_schedules_tbl(i).attribute4 := NULL;
2601: END IF;
2602:
2603: IF (p_x_df_schedules_tbl(i).attribute5 = FND_API.G_MISS_CHAR) THEN
2604: p_x_df_schedules_tbl(i).attribute5 := NULL;
2605: END IF;
2606:
2607: IF (p_x_df_schedules_tbl(i).attribute6 = FND_API.G_MISS_CHAR) THEN
2603: IF (p_x_df_schedules_tbl(i).attribute5 = FND_API.G_MISS_CHAR) THEN
2604: p_x_df_schedules_tbl(i).attribute5 := NULL;
2605: END IF;
2606:
2607: IF (p_x_df_schedules_tbl(i).attribute6 = FND_API.G_MISS_CHAR) THEN
2608: p_x_df_schedules_tbl(i).attribute6 := NULL;
2609: END IF;
2610:
2611: IF (p_x_df_schedules_tbl(i).attribute7 = FND_API.G_MISS_CHAR) THEN
2607: IF (p_x_df_schedules_tbl(i).attribute6 = FND_API.G_MISS_CHAR) THEN
2608: p_x_df_schedules_tbl(i).attribute6 := NULL;
2609: END IF;
2610:
2611: IF (p_x_df_schedules_tbl(i).attribute7 = FND_API.G_MISS_CHAR) THEN
2612: p_x_df_schedules_tbl(i).attribute7 := NULL;
2613: END IF;
2614:
2615: IF (p_x_df_schedules_tbl(i).attribute8 = FND_API.G_MISS_CHAR) THEN
2611: IF (p_x_df_schedules_tbl(i).attribute7 = FND_API.G_MISS_CHAR) THEN
2612: p_x_df_schedules_tbl(i).attribute7 := NULL;
2613: END IF;
2614:
2615: IF (p_x_df_schedules_tbl(i).attribute8 = FND_API.G_MISS_CHAR) THEN
2616: p_x_df_schedules_tbl(i).attribute8 := NULL;
2617: END IF;
2618:
2619: IF (p_x_df_schedules_tbl(i).attribute9 = FND_API.G_MISS_CHAR) THEN
2615: IF (p_x_df_schedules_tbl(i).attribute8 = FND_API.G_MISS_CHAR) THEN
2616: p_x_df_schedules_tbl(i).attribute8 := NULL;
2617: END IF;
2618:
2619: IF (p_x_df_schedules_tbl(i).attribute9 = FND_API.G_MISS_CHAR) THEN
2620: p_x_df_schedules_tbl(i).attribute9 := NULL;
2621: END IF;
2622:
2623: IF (p_x_df_schedules_tbl(i).attribute10 = FND_API.G_MISS_CHAR) THEN
2619: IF (p_x_df_schedules_tbl(i).attribute9 = FND_API.G_MISS_CHAR) THEN
2620: p_x_df_schedules_tbl(i).attribute9 := NULL;
2621: END IF;
2622:
2623: IF (p_x_df_schedules_tbl(i).attribute10 = FND_API.G_MISS_CHAR) THEN
2624: p_x_df_schedules_tbl(i).attribute10 := NULL;
2625: END IF;
2626:
2627: IF (p_x_df_schedules_tbl(i).attribute11 = FND_API.G_MISS_CHAR) THEN
2623: IF (p_x_df_schedules_tbl(i).attribute10 = FND_API.G_MISS_CHAR) THEN
2624: p_x_df_schedules_tbl(i).attribute10 := NULL;
2625: END IF;
2626:
2627: IF (p_x_df_schedules_tbl(i).attribute11 = FND_API.G_MISS_CHAR) THEN
2628: p_x_df_schedules_tbl(i).attribute11 := NULL;
2629: END IF;
2630:
2631: IF (p_x_df_schedules_tbl(i).attribute12 = FND_API.G_MISS_CHAR) THEN
2627: IF (p_x_df_schedules_tbl(i).attribute11 = FND_API.G_MISS_CHAR) THEN
2628: p_x_df_schedules_tbl(i).attribute11 := NULL;
2629: END IF;
2630:
2631: IF (p_x_df_schedules_tbl(i).attribute12 = FND_API.G_MISS_CHAR) THEN
2632: p_x_df_schedules_tbl(i).attribute12 := NULL;
2633: END IF;
2634:
2635: IF (p_x_df_schedules_tbl(i).attribute13 = FND_API.G_MISS_CHAR) THEN
2631: IF (p_x_df_schedules_tbl(i).attribute12 = FND_API.G_MISS_CHAR) THEN
2632: p_x_df_schedules_tbl(i).attribute12 := NULL;
2633: END IF;
2634:
2635: IF (p_x_df_schedules_tbl(i).attribute13 = FND_API.G_MISS_CHAR) THEN
2636: p_x_df_schedules_tbl(i).attribute13 := NULL;
2637: END IF;
2638:
2639: IF (p_x_df_schedules_tbl(i).attribute14 = FND_API.G_MISS_CHAR) THEN
2635: IF (p_x_df_schedules_tbl(i).attribute13 = FND_API.G_MISS_CHAR) THEN
2636: p_x_df_schedules_tbl(i).attribute13 := NULL;
2637: END IF;
2638:
2639: IF (p_x_df_schedules_tbl(i).attribute14 = FND_API.G_MISS_CHAR) THEN
2640: p_x_df_schedules_tbl(i).attribute14 := NULL;
2641: END IF;
2642:
2643: IF (p_x_df_schedules_tbl(i).attribute15 = FND_API.G_MISS_CHAR) THEN
2639: IF (p_x_df_schedules_tbl(i).attribute14 = FND_API.G_MISS_CHAR) THEN
2640: p_x_df_schedules_tbl(i).attribute14 := NULL;
2641: END IF;
2642:
2643: IF (p_x_df_schedules_tbl(i).attribute15 = FND_API.G_MISS_CHAR) THEN
2644: p_x_df_schedules_tbl(i).attribute15 := NULL;
2645: END IF;
2646:
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
2656: fnd_log.string
2688: l_defer_due_date DATE;
2689: l_calc_due_date_flag BOOLEAN := false;
2690: l_current_counter_value NUMBER := 0;
2691:
2692: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2693: l_msg_data VARCHAR2(4000);
2694: l_msg_count NUMBER;
2695:
2696: CURSOR curr_counter_val_csr(p_unit_deferral_id IN NUMBER, p_counter_id IN NUMBER,p_deferral_effective_on IN DATE) IS
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
2825: -- validate counter values and populate table of counter, values to calculate due date
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
2871: (p_df_header_rec.mr_repetitive_flag = G_YES_FLAG)) THEN
2876: x_due_date => l_defer_due_date,
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
2887: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates',
2888: 'Calculate Due Date API threw Error'
2889: );
2890: END IF;
2891: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2892: END IF;
2893: IF(l_defer_due_date IS NOT NULL)THEN
2894: -- read whicever comes first or last code
2895: OPEN whichever_first_code_csr(p_df_header_rec.unit_effectivity_id);
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;
2950:
2966: l_approval_type VARCHAR2(100):='CONCEPT';
2967: l_active VARCHAR2(50):= 'N';
2968: l_process_name VARCHAR2(50);
2969: l_item_type VARCHAR2(50);
2970: l_return_status VARCHAR2(50) := FND_API.G_RET_STS_SUCCESS;
2971: l_msg_count NUMBER;
2972: l_msg_data VARCHAR2(2000);
2973:
2974: l_new_status_code VARCHAR2(30);
3000: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3001: 'Can not submit for approval because current status is : ' || p_df_header_rec.approval_status_code
3002: );
3003: END IF;
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');
3014: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3015: 'Can not submit for approval because a parent or child is in pending deferral approval status'
3016: );
3017: END IF;
3018: RAISE FND_API.G_EXC_ERROR;
3019: END IF;
3020:
3021: -- Skip for UMP Deferral
3022: IF NOT(is_ump_deferral(p_df_header_rec.unit_deferral_id)) THEN
3023:
3024: AHL_PRD_WORKORDER_PVT.validate_dependencies
3025: (
3026: p_api_version => 1.0,
3027: p_init_msg_list => FND_API.G_TRUE,
3028: p_commit => FND_API.G_FALSE,
3029: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3030: p_default => FND_API.G_FALSE,
3031: p_module_type => NULL,
3024: AHL_PRD_WORKORDER_PVT.validate_dependencies
3025: (
3026: p_api_version => 1.0,
3027: p_init_msg_list => FND_API.G_TRUE,
3028: p_commit => FND_API.G_FALSE,
3029: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3030: p_default => FND_API.G_FALSE,
3031: p_module_type => NULL,
3032: x_return_status =>l_return_status,
3025: (
3026: p_api_version => 1.0,
3027: p_init_msg_list => FND_API.G_TRUE,
3028: p_commit => FND_API.G_FALSE,
3029: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3030: p_default => FND_API.G_FALSE,
3031: p_module_type => NULL,
3032: x_return_status =>l_return_status,
3033: x_msg_count =>l_msg_count,
3026: p_api_version => 1.0,
3027: p_init_msg_list => FND_API.G_TRUE,
3028: p_commit => FND_API.G_FALSE,
3029: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3030: p_default => FND_API.G_FALSE,
3031: p_module_type => NULL,
3032: x_return_status =>l_return_status,
3033: x_msg_count =>l_msg_count,
3034: x_msg_data =>l_msg_data,
3036: p_unit_effectivity_id =>p_df_header_rec.unit_effectivity_id,
3037: p_workorder_id => NULL
3038: );
3039: -- if workorders under UE has external dependencies, dont submit for approval, raise error.
3040: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3041: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3042: fnd_log.string
3043: (
3044: fnd_log.level_error,
3045: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3046: 'Can not go ahead with aubmission of approval because Workorder dependencies exists'
3047: );
3048: END IF;
3049: RAISE FND_API.G_EXC_ERROR;
3050: END IF; -- l_return_status
3051: END IF; -- is_ump_deferral.
3052:
3053: ahl_utility_pvt.get_wf_process_name(
3079: );
3080:
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
3091: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3092: 'Can not submit for approval because workflow is not active for Deferral'
3093: );
3094: END IF;
3095: RAISE FND_API.G_EXC_ERROR;*/
3096: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3097: fnd_log.string
3098: (
3099: fnd_log.level_statement,
3111: p_new_status => 'DEFERRAL_PENDING',
3112: x_return_status => l_return_status);
3113:
3114:
3115: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3116: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3117: fnd_log.string
3118: (
3119: fnd_log.level_error,
3120: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3121: 'Can not go ahead with approval because AHL_PRD_DF_PVT.process_approval_initiated threw error'
3122: );
3123: END IF;
3124: RAISE FND_API.G_EXC_ERROR;
3125: END IF;
3126:
3127: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3128: fnd_log.string
3132: 'Workflow active flag : ' || l_active
3133: );
3134: END IF;
3135:
3136: l_mr_expired := FND_API.G_FALSE;
3137: SELECT mr_header_id INTO l_mr_header_id FROM ahl_unit_effectivities_b
3138: WHERE unit_effectivity_id = p_df_header_rec.unit_effectivity_id;
3139: IF(l_mr_header_id IS NOT NULL)THEN
3140: -- find whether deferral type is MR or SR
3148: x_new_mr_applicable => l_new_mr_applicable,
3149: x_return_status => l_return_status,
3150: x_msg_count => l_msg_count,
3151: x_msg_data => l_msg_data);
3152: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3153: RAISE FND_API.G_EXC_ERROR;
3154: ELSIF (l_mr_applicable = FND_API.G_FALSE AND l_new_mr_applicable = FND_API.G_FALSE)THEN
3155: l_mr_expired := FND_API.G_TRUE;
3156: END IF;
3149: x_return_status => l_return_status,
3150: x_msg_count => l_msg_count,
3151: x_msg_data => l_msg_data);
3152: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3153: RAISE FND_API.G_EXC_ERROR;
3154: ELSIF (l_mr_applicable = FND_API.G_FALSE AND l_new_mr_applicable = FND_API.G_FALSE)THEN
3155: l_mr_expired := FND_API.G_TRUE;
3156: END IF;
3157: END IF;
3150: x_msg_count => l_msg_count,
3151: x_msg_data => l_msg_data);
3152: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3153: RAISE FND_API.G_EXC_ERROR;
3154: ELSIF (l_mr_applicable = FND_API.G_FALSE AND l_new_mr_applicable = FND_API.G_FALSE)THEN
3155: l_mr_expired := FND_API.G_TRUE;
3156: END IF;
3157: END IF;
3158: IF(p_df_header_rec.skip_mr_flag = G_YES_FLAG AND p_df_header_rec.manually_planned_flag = G_NO_FLAG
3151: x_msg_data => l_msg_data);
3152: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3153: RAISE FND_API.G_EXC_ERROR;
3154: ELSIF (l_mr_applicable = FND_API.G_FALSE AND l_new_mr_applicable = FND_API.G_FALSE)THEN
3155: l_mr_expired := FND_API.G_TRUE;
3156: END IF;
3157: END IF;
3158: IF(p_df_header_rec.skip_mr_flag = G_YES_FLAG AND p_df_header_rec.manually_planned_flag = G_NO_FLAG
3159: AND l_mr_expired = FND_API.G_TRUE)THEN
3155: l_mr_expired := FND_API.G_TRUE;
3156: END IF;
3157: END IF;
3158: IF(p_df_header_rec.skip_mr_flag = G_YES_FLAG AND p_df_header_rec.manually_planned_flag = G_NO_FLAG
3159: AND l_mr_expired = FND_API.G_TRUE)THEN
3160: l_new_status_code := 'MR-TERMINATE';
3161: ELSIF(p_df_header_rec.skip_mr_flag = G_YES_FLAG AND p_df_header_rec.manually_planned_flag = G_NO_FLAG)THEN
3162: l_new_status_code := 'TERMINATED';
3163: /*ELSIF(p_df_header_rec.skip_mr_flag = G_YES_FLAG AND p_df_header_rec.manually_planned_flag = G_YES_FLAG)THEN
3187: p_unit_deferral_id => p_df_header_rec.unit_deferral_id,
3188: p_object_version_number => p_df_header_rec.object_version_number,
3189: p_new_status => l_new_status_code,
3190: x_return_status => l_return_status);
3191: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3192: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3193: fnd_log.string
3194: (
3195: fnd_log.level_error,
3196: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3197: 'Can not go ahead with automatic approval because AHL_PRD_DF_PVT.process_approval_approved threw error'
3198: );
3199: END IF;
3200: RAISE FND_API.G_EXC_ERROR;
3201: END IF;
3202: END IF;
3203:
3204: -- throw errors if any
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:
3210: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3279: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated.begin',
3280: 'At the start of PLSQL procedure'
3281: );
3282: END IF;
3283: x_return_status := FND_API.G_RET_STS_SUCCESS;
3284:
3285: IF NOT(is_ump_deferral(p_unit_deferral_id)) THEN
3286: process_workorders(
3287: p_unit_deferral_id => p_unit_deferral_id,
3309: 'Return status after process_workorders API call : ' || x_return_status
3310: );
3311: END IF;
3312:
3313: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
3314: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3315: fnd_log.string
3316: (
3317: fnd_log.level_unexpected,
3329: p_approval_result_code => G_DEFERRAL_INITIATED,
3330: p_new_status => NULL,
3331: x_return_status => x_return_status);
3332:
3333: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
3334: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3335: fnd_log.string
3336: (
3337: fnd_log.level_unexpected,
3407: 'At the start of PLSQL procedure'
3408: );
3409: END IF;
3410:
3411: x_return_status := FND_API.G_RET_STS_SUCCESS;
3412:
3413:
3414: /*OPEN valid_mr_csr(p_unit_deferral_id ,p_object_version_number);
3415: FETCH valid_mr_csr INTO l_exists;
3423: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
3424: 'Associated MR has been terminated in FMP'
3425: );
3426: END IF;
3427: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3428: CLOSE valid_mr_csr;
3429: RETURN;
3430: END IF;
3431: CLOSE valid_mr_csr; */
3466: 'Return status after process_workorders API call : ' || x_return_status
3467: );
3468: END IF;
3469:
3470: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
3471: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3472: fnd_log.string
3473: (
3474: fnd_log.level_unexpected,
3487: p_approval_result_code => G_DEFERRAL_APPROVED,
3488: p_new_status => p_new_status,
3489: x_return_status => x_return_status);
3490:
3491: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
3492:
3493: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3494: fnd_log.string
3495: (
3522: OPEN csi_item_instance_id_csr(p_unit_deferral_id --,p_object_version_number
3523: );
3524: FETCH csi_item_instance_id_csr INTO l_csi_item_instance_id;
3525: IF(csi_item_instance_id_csr%NOTFOUND)THEN
3526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3527: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3528: fnd_log.string
3529: (
3530: fnd_log.level_unexpected,
3554: x_return_status => x_return_status ,
3555: p_csi_item_instance_id => l_csi_item_instance_id
3556: );
3557:
3558: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
3559: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3560: fnd_log.string
3561: (
3562: fnd_log.level_unexpected,
3679: );
3680: END IF;
3681:
3682: AHL_UMP_PROCESSUNIT_PVT.Process_Unit (
3683: p_commit => FND_API.G_FALSE,
3684: p_init_msg_list => FND_API.G_FALSE,
3685: x_msg_count => l_msg_count,
3686: x_msg_data => l_msg_data,
3687: x_return_status => x_return_status,
3680: END IF;
3681:
3682: AHL_UMP_PROCESSUNIT_PVT.Process_Unit (
3683: p_commit => FND_API.G_FALSE,
3684: p_init_msg_list => FND_API.G_FALSE,
3685: x_msg_count => l_msg_count,
3686: x_msg_data => l_msg_data,
3687: x_return_status => x_return_status,
3688: p_csi_item_instance_id => p_csi_item_instance_id,
3687: x_return_status => x_return_status,
3688: p_csi_item_instance_id => p_csi_item_instance_id,
3689: p_concurrent_flag => 'N');
3690:
3691: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
3692: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3693: fnd_log.string
3694: (
3695: fnd_log.level_unexpected,
3700: RETURN;
3701: END IF;
3702: END IF; */
3703:
3704: x_return_status := FND_API.G_RET_STS_SUCCESS;
3705:
3706: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3707: fnd_log.string
3708: (
3730: 'At the start of PLSQL procedure'
3731: );
3732: END IF;
3733:
3734: x_return_status := FND_API.G_RET_STS_SUCCESS;
3735:
3736: -- bypass for UMP Deferral
3737: IF NOT(Is_UMP_Deferral(p_unit_deferral_id)) THEN
3738:
3768: 'New approval status : ' || p_new_status
3769: );
3770: END IF;
3771:
3772: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
3773: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3774: fnd_log.string
3775: (
3776: fnd_log.level_unexpected,
3789: p_approval_result_code => G_DEFERRAL_REJECTED,
3790: p_new_status => NULL,
3791: x_return_status => x_return_status);
3792:
3793: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
3794: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3795: fnd_log.string
3796: (
3797: fnd_log.level_unexpected,
3961: 'At the start of PLSQL procedure'
3962: );
3963: END IF;
3964:
3965: x_return_status := FND_API.G_RET_STS_SUCCESS;
3966:
3967: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3968: fnd_log.string
3969: (
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: (
3997: fnd_log.level_unexpected,
4001: END IF;
4002: END IF;
4003: CLOSE unit_effectivity_id_csr;
4004:
4005: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4006: RETURN;
4007: END IF;
4008:
4009: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
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: (
4028: fnd_log.level_unexpected,
4033: END IF;
4034: CLOSE validate_approver_privilages;
4035: END IF;
4036:
4037: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4038: RETURN;
4039: END IF;
4040:
4041: --OPEN workorder_csr(l_unit_effectivity_id);
4059: --nsikka
4060: --Changes made for Bug 5324101 .
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;
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;
4167: IF(x_return_status = FND_API.G_RET_STS_SUCCESS)THEN
4163: x_return_status := FND_API.G_RET_STS_ERROR;
4164: END IF;
4165: CLOSE chk_inst_in_job;
4166: END IF;
4167: IF(x_return_status = FND_API.G_RET_STS_SUCCESS)THEN
4168: -- call update job API
4169: AHL_PRD_WORKORDER_PVT.update_job
4170: (
4171: p_api_version => 1.0,
4168: -- call update job API
4169: AHL_PRD_WORKORDER_PVT.update_job
4170: (
4171: p_api_version => 1.0,
4172: p_init_msg_list => FND_API.G_FALSE,
4173: p_commit => FND_API.G_FALSE,
4174: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4175: p_default => FND_API.G_TRUE,
4176: p_module_type => 'API',
4169: AHL_PRD_WORKORDER_PVT.update_job
4170: (
4171: p_api_version => 1.0,
4172: p_init_msg_list => FND_API.G_FALSE,
4173: p_commit => FND_API.G_FALSE,
4174: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4175: p_default => FND_API.G_TRUE,
4176: p_module_type => 'API',
4177: x_return_status => x_return_status,
4170: (
4171: p_api_version => 1.0,
4172: p_init_msg_list => FND_API.G_FALSE,
4173: p_commit => FND_API.G_FALSE,
4174: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4175: p_default => FND_API.G_TRUE,
4176: p_module_type => 'API',
4177: x_return_status => x_return_status,
4178: x_msg_count => l_msg_count,
4171: p_api_version => 1.0,
4172: p_init_msg_list => FND_API.G_FALSE,
4173: p_commit => FND_API.G_FALSE,
4174: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4175: p_default => FND_API.G_TRUE,
4176: p_module_type => 'API',
4177: x_return_status => x_return_status,
4178: x_msg_count => l_msg_count,
4179: x_msg_data => l_msg_data,
4187: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
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
4227: -- call update job API
4228: AHL_PRD_WORKORDER_PVT.update_job
4229: (
4230: p_api_version => 1.0,
4231: p_init_msg_list => FND_API.G_FALSE,
4232: p_commit => FND_API.G_FALSE,
4233: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4234: p_default => FND_API.G_TRUE,
4235: p_module_type => 'API',
4228: AHL_PRD_WORKORDER_PVT.update_job
4229: (
4230: p_api_version => 1.0,
4231: p_init_msg_list => FND_API.G_FALSE,
4232: p_commit => FND_API.G_FALSE,
4233: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4234: p_default => FND_API.G_TRUE,
4235: p_module_type => 'API',
4236: x_return_status => x_return_status,
4229: (
4230: p_api_version => 1.0,
4231: p_init_msg_list => FND_API.G_FALSE,
4232: p_commit => FND_API.G_FALSE,
4233: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4234: p_default => FND_API.G_TRUE,
4235: p_module_type => 'API',
4236: x_return_status => x_return_status,
4237: x_msg_count => l_msg_count,
4230: p_api_version => 1.0,
4231: p_init_msg_list => FND_API.G_FALSE,
4232: p_commit => FND_API.G_FALSE,
4233: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4234: p_default => FND_API.G_TRUE,
4235: p_module_type => 'API',
4236: x_return_status => x_return_status,
4237: x_msg_count => l_msg_count,
4238: x_msg_data => l_msg_data,
4246: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
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
4270:
4271: AHL_COMPLETIONS_PVT.defer_workorder
4272: (
4273: p_api_version => 1.0,
4274: p_init_msg_list => FND_API.G_FALSE,
4275: p_commit => FND_API.G_FALSE,
4276: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4277: p_default => FND_API.G_TRUE,
4278: p_module_type => 'API',
4271: AHL_COMPLETIONS_PVT.defer_workorder
4272: (
4273: p_api_version => 1.0,
4274: p_init_msg_list => FND_API.G_FALSE,
4275: p_commit => FND_API.G_FALSE,
4276: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4277: p_default => FND_API.G_TRUE,
4278: p_module_type => 'API',
4279: x_return_status => x_return_status,
4272: (
4273: p_api_version => 1.0,
4274: p_init_msg_list => FND_API.G_FALSE,
4275: p_commit => FND_API.G_FALSE,
4276: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4277: p_default => FND_API.G_TRUE,
4278: p_module_type => 'API',
4279: x_return_status => x_return_status,
4280: x_msg_count => l_msg_count,
4273: p_api_version => 1.0,
4274: p_init_msg_list => FND_API.G_FALSE,
4275: p_commit => FND_API.G_FALSE,
4276: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4277: p_default => FND_API.G_TRUE,
4278: p_module_type => 'API',
4279: x_return_status => x_return_status,
4280: x_msg_count => l_msg_count,
4281: x_msg_data => l_msg_data,
4289: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
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
4334: IF (p_approval_result_code = G_DEFERRAL_APPROVED)THEN
4335: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
4336: (
4337: p_api_version => 1.0,
4338: p_init_msg_list => FND_API.G_TRUE,
4339: p_commit => FND_API.G_FALSE,
4340: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4341: p_default => FND_API.G_FALSE,
4342: p_module_type => 'API',
4335: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
4336: (
4337: p_api_version => 1.0,
4338: p_init_msg_list => FND_API.G_TRUE,
4339: p_commit => FND_API.G_FALSE,
4340: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4341: p_default => FND_API.G_FALSE,
4342: p_module_type => 'API',
4343: x_return_status => x_return_status,
4336: (
4337: p_api_version => 1.0,
4338: p_init_msg_list => FND_API.G_TRUE,
4339: p_commit => FND_API.G_FALSE,
4340: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4341: p_default => FND_API.G_FALSE,
4342: p_module_type => 'API',
4343: x_return_status => x_return_status,
4344: x_msg_count => l_msg_count,
4337: p_api_version => 1.0,
4338: p_init_msg_list => FND_API.G_TRUE,
4339: p_commit => FND_API.G_FALSE,
4340: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4341: p_default => FND_API.G_FALSE,
4342: p_module_type => 'API',
4343: x_return_status => x_return_status,
4344: x_msg_count => l_msg_count,
4345: x_msg_data => l_msg_data,
4346: p_visit_id => NULL,
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
4594: 'At the start of PLSQL procedure'
4595: );
4596: END IF;
4597:
4598: x_return_status := FND_API.G_RET_STS_SUCCESS;
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
4610: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4611: 'Deferral record details not found for unit deferral id : ' || p_unit_deferral_id
4612: );
4613: END IF;
4614: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4615: ELSE
4616: IF(l_mr_header_id IS NOT NULL) THEN
4617: l_deferral_type := 'MR';
4618: ELSE
4636: fnd_log.level_unexpected, 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4637: 'Wrong SR incident id: ' || l_cs_incident_id
4638: );
4639: END IF;
4640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4641: CLOSE unit_effectivity_id_csr;
4642: RETURN;
4643: END IF;
4644: -- Support for cancelled SRs.
4653: -- Call SR Update_Status API
4654: CS_ServiceRequest_PUB.Update_Status
4655: (
4656: p_api_version => 2.0,
4657: p_init_msg_list => FND_API.G_FALSE,
4658: p_commit => FND_API.G_FALSE,
4659: p_resp_appl_id => NULL,
4660: p_resp_id => NULL,
4661: p_user_id => NULL,
4654: CS_ServiceRequest_PUB.Update_Status
4655: (
4656: p_api_version => 2.0,
4657: p_init_msg_list => FND_API.G_FALSE,
4658: p_commit => FND_API.G_FALSE,
4659: p_resp_appl_id => NULL,
4660: p_resp_id => NULL,
4661: p_user_id => NULL,
4662: p_login_id => NULL,
4663: --p_status_id => 1, --OPEN
4664: p_status_id => l_status_id,
4665: p_closed_date => NULL,
4666: p_audit_comments => NULL,
4667: p_called_by_workflow => FND_API.G_FALSE,
4668: p_workflow_process_id => NULL,
4669: p_comments => NULL,
4670: p_public_comment_flag => FND_API.G_FALSE,
4671: p_validate_sr_closure => 'N',
4666: p_audit_comments => NULL,
4667: p_called_by_workflow => FND_API.G_FALSE,
4668: p_workflow_process_id => NULL,
4669: p_comments => NULL,
4670: p_public_comment_flag => FND_API.G_FALSE,
4671: p_validate_sr_closure => 'N',
4672: p_auto_close_child_entities => 'N',
4673: p_request_id => NULL,
4674: p_request_number => l_cs_incident_number,
4680: x_interaction_id => l_interaction_id
4681: );
4682:
4683: -- Abort if any error in calling the SR Update_Status API...
4684: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4685: x_return_status := l_return_status;
4686: RETURN;
4687: END IF;
4688: END IF;
4711: );
4712:
4713: END IF;
4714:
4715: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4716: RETURN;
4717: END IF;
4718:
4719: IF(p_approval_result_code = G_DEFERRAL_APPROVED)THEN
4775: x_new_mr_applicable => l_new_mr_applicable,
4776: x_return_status => l_return_status,
4777: x_msg_count => l_msg_count,
4778: x_msg_data => l_msg_data);
4779: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4780: x_return_status := l_return_status;
4781: RETURN;
4782: ELSE
4783: IF(l_mr_applicable = FND_API.G_FALSE AND l_new_mr_applicable = FND_API.G_TRUE)THEN
4779: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4780: x_return_status := l_return_status;
4781: RETURN;
4782: ELSE
4783: IF(l_mr_applicable = FND_API.G_FALSE AND l_new_mr_applicable = FND_API.G_TRUE)THEN
4784: l_mr_header_id := l_new_mr_header_id;
4785: ELSIF (l_mr_applicable = FND_API.G_FALSE AND l_new_mr_applicable = FND_API.G_FALSE)THEN
4786: l_ue_status_code := 'MR-TERMINATE';
4787: END IF;
4781: RETURN;
4782: ELSE
4783: IF(l_mr_applicable = FND_API.G_FALSE AND l_new_mr_applicable = FND_API.G_TRUE)THEN
4784: l_mr_header_id := l_new_mr_header_id;
4785: ELSIF (l_mr_applicable = FND_API.G_FALSE AND l_new_mr_applicable = FND_API.G_FALSE)THEN
4786: l_ue_status_code := 'MR-TERMINATE';
4787: END IF;
4788: END IF;
4789: ELSIF(ue_rec.mr_header_id IS NOT NULL AND l_deferral_type = 'SR') THEN
4799: x_new_mr_applicable => l_new_mr_applicable,
4800: x_return_status => l_return_status,
4801: x_msg_count => l_msg_count,
4802: x_msg_data => l_msg_data);
4803: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4804: x_return_status := l_return_status;
4805: RETURN;
4806: ELSE
4807: IF(l_mr_applicable = FND_API.G_FALSE AND l_new_mr_applicable = FND_API.G_TRUE)THEN
4803: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4804: x_return_status := l_return_status;
4805: RETURN;
4806: ELSE
4807: IF(l_mr_applicable = FND_API.G_FALSE AND l_new_mr_applicable = FND_API.G_TRUE)THEN
4808: l_mr_header_id := l_new_mr_header_id;
4809: ELSIF (l_mr_applicable = FND_API.G_FALSE AND l_new_mr_applicable = FND_API.G_FALSE)THEN
4810: l_ue_status_code := 'MR-TERMINATE';
4811: END IF;
4805: RETURN;
4806: ELSE
4807: IF(l_mr_applicable = FND_API.G_FALSE AND l_new_mr_applicable = FND_API.G_TRUE)THEN
4808: l_mr_header_id := l_new_mr_header_id;
4809: ELSIF (l_mr_applicable = FND_API.G_FALSE AND l_new_mr_applicable = FND_API.G_FALSE)THEN
4810: l_ue_status_code := 'MR-TERMINATE';
4811: END IF;
4812: END IF;
4813: END IF;
5364: -- Procedure to get deferral details attached to any unit effectivity --
5365: --------------------------------------------------------------------------
5366: PROCEDURE get_deferral_details (
5367:
5368: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5369: p_unit_effectivity_id IN NUMBER,
5370: x_df_header_info_rec OUT NOCOPY AHL_PRD_DF_PVT.df_header_info_rec_type,
5371: x_df_schedules_tbl OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type,
5372: x_return_status OUT NOCOPY VARCHAR2,
5517: 'At the start of PLSQL procedure'
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;
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:
5527: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5528: fnd_log.string
5529: (
5532: 'Got request for deferral record of Unit effectivity ID : ' || p_unit_effectivity_id
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
5543: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5544: 'Invalid request, Unit Effectivity IS NULL'
5545: );
5546: END IF;
5547: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5548: END IF;
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:
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
5558: l_applicable_ue_id := p_unit_effectivity_id;
5588: 'Unit Effectivity record not found'
5589: );
5590: END IF;
5591: CLOSE context_info_csr;
5592: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5593: END IF;
5594: CLOSE context_info_csr;
5595:
5596:
5609: 'Invalid unit effectivity record, mr status meaning not found'
5610: );
5611: END IF;
5612: CLOSE mr_status_meaning_csr;
5613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5614: END IF;
5615: CLOSE mr_status_meaning_csr;
5616:
5617: -- fill in visit information
5629: 'Visit Information not found'
5630: );
5631: END IF;
5632: CLOSE visit_info_csr;
5633: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5634: END IF;
5635: */
5636: CLOSE visit_info_csr;
5637:
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);
5671: FETCH df_header_info_csr INTO l_df_header_info_rec.unit_deferral_id,
5727: 'Invalid unit effectivity record, mr status meaning not found'
5728: );
5729: END IF;
5730: CLOSE ue_status_meaning_csr;
5731: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5732: END IF;
5733: CLOSE ue_status_meaning_csr;
5734: ELSE
5735: l_df_header_info_rec.ue_status_code := l_df_header_info_rec.approval_status_code;
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
5749: IF(l_df_header_info_rec.unit_deferral_id IS NOT NULL)THEN
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
5773: AHL_PRD_DF_PVT.get_mr_termination_details(
5778: x_new_mr_applicable => l_new_mr_applicable,
5779: x_return_status => x_return_status,
5780: x_msg_count => x_msg_count,
5781: x_msg_data => x_msg_data);
5782: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5783: RETURN;
5784: ELSE
5785: IF(l_mr_applicable = FND_API.G_FALSE AND l_new_mr_applicable = FND_API.G_FALSE)THEN
5786: l_df_header_info_rec.MR_APPL_EXPIRED := FND_API.G_TRUE;
5781: x_msg_data => x_msg_data);
5782: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5783: RETURN;
5784: ELSE
5785: IF(l_mr_applicable = FND_API.G_FALSE AND l_new_mr_applicable = FND_API.G_FALSE)THEN
5786: l_df_header_info_rec.MR_APPL_EXPIRED := FND_API.G_TRUE;
5787: l_df_header_info_rec.cancel_flag := G_NO_FLAG;
5788: END IF;
5789: END IF;
5782: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5783: RETURN;
5784: ELSE
5785: IF(l_mr_applicable = FND_API.G_FALSE AND l_new_mr_applicable = FND_API.G_FALSE)THEN
5786: l_df_header_info_rec.MR_APPL_EXPIRED := FND_API.G_TRUE;
5787: l_df_header_info_rec.cancel_flag := G_NO_FLAG;
5788: END IF;
5789: END IF;
5790: END IF;
5802: );
5803: END IF;
5804:
5805: EXCEPTION
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,
5805: EXCEPTION
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:
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;
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,
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:
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;
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));
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:
5838: FUNCTION get_applicable_ue(
5839: p_unit_effectivity_id NUMBER) RETURN NUMBER IS
5993: --l_mr_item_instance_tbl AHL_FMP_PVT.MR_ITEM_INSTANCE_TBL_TYPE;
5994: l_mr_item_instance_tbl AHL_FMP_PVT.applicable_mr_tbl_type;
5995:
5996: BEGIN
5997: x_return_status := FND_API.G_RET_STS_SUCCESS;
5998: x_mr_applicable := FND_API.G_TRUE;
5999: x_new_mr_applicable := FND_API.G_TRUE;
6000:
6001: OPEN get_mr_details_csr(p_unit_effectivity_id);
5994: l_mr_item_instance_tbl AHL_FMP_PVT.applicable_mr_tbl_type;
5995:
5996: BEGIN
5997: x_return_status := FND_API.G_RET_STS_SUCCESS;
5998: x_mr_applicable := FND_API.G_TRUE;
5999: x_new_mr_applicable := FND_API.G_TRUE;
6000:
6001: OPEN get_mr_details_csr(p_unit_effectivity_id);
6002: FETCH get_mr_details_csr INTO l_mr_header_id,l_title, l_effective_from,
5995:
5996: BEGIN
5997: x_return_status := FND_API.G_RET_STS_SUCCESS;
5998: x_mr_applicable := FND_API.G_TRUE;
5999: x_new_mr_applicable := FND_API.G_TRUE;
6000:
6001: OPEN get_mr_details_csr(p_unit_effectivity_id);
6002: FETCH get_mr_details_csr INTO l_mr_header_id,l_title, l_effective_from,
6003: l_effective_to,l_version_number,l_item_instance_id,l_active_end_date;
6005:
6006: -- fix for bug# 12776603 ; sorao for backporting project
6007: -- if instance expired, return 'not applicable'.
6008: IF (l_active_end_date IS NOT NULL AND l_active_end_date < sysdate) THEN
6009: x_mr_applicable := FND_API.G_FALSE;
6010: x_new_mr_applicable := FND_API.G_FALSE;
6011: RETURN;
6012: END IF;
6013:
6006: -- fix for bug# 12776603 ; sorao for backporting project
6007: -- if instance expired, return 'not applicable'.
6008: IF (l_active_end_date IS NOT NULL AND l_active_end_date < sysdate) THEN
6009: x_mr_applicable := FND_API.G_FALSE;
6010: x_new_mr_applicable := FND_API.G_FALSE;
6011: RETURN;
6012: END IF;
6013:
6014: x_active_end_date := l_effective_to;
6012: END IF;
6013:
6014: x_active_end_date := l_effective_to;
6015: IF(trunc(NVL(x_active_end_date,SYSDATE+1)) <= trunc(SYSDATE))THEN
6016: x_mr_applicable := FND_API.G_FALSE;
6017: END IF;
6018:
6019: IF(x_mr_applicable = FND_API.G_FALSE)THEN
6020: OPEN get_new_mr_details_csr(l_title,l_mr_header_id,l_version_number);
6015: IF(trunc(NVL(x_active_end_date,SYSDATE+1)) <= trunc(SYSDATE))THEN
6016: x_mr_applicable := FND_API.G_FALSE;
6017: END IF;
6018:
6019: IF(x_mr_applicable = FND_API.G_FALSE)THEN
6020: OPEN get_new_mr_details_csr(l_title,l_mr_header_id,l_version_number);
6021: FETCH get_new_mr_details_csr INTO l_new_mr_header_id;
6022: IF(get_new_mr_details_csr%NOTFOUND) THEN
6023: x_new_mr_applicable := FND_API.G_FALSE;
6019: IF(x_mr_applicable = FND_API.G_FALSE)THEN
6020: OPEN get_new_mr_details_csr(l_title,l_mr_header_id,l_version_number);
6021: FETCH get_new_mr_details_csr INTO l_new_mr_header_id;
6022: IF(get_new_mr_details_csr%NOTFOUND) THEN
6023: x_new_mr_applicable := FND_API.G_FALSE;
6024: END IF;
6025: CLOSE get_new_mr_details_csr;
6026:
6027: IF(x_new_mr_applicable = FND_API.G_TRUE)THEN
6023: x_new_mr_applicable := FND_API.G_FALSE;
6024: END IF;
6025: CLOSE get_new_mr_details_csr;
6026:
6027: IF(x_new_mr_applicable = FND_API.G_TRUE)THEN
6028: /* replacing with call get_applicable_mrs instead.
6029: AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS (
6030: p_api_version => 1.0,
6031: p_init_msg_list => FND_API.G_FALSE,
6027: IF(x_new_mr_applicable = FND_API.G_TRUE)THEN
6028: /* replacing with call get_applicable_mrs instead.
6029: AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS (
6030: p_api_version => 1.0,
6031: p_init_msg_list => FND_API.G_FALSE,
6032: p_commit => FND_API.G_FALSE,
6033: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6034: x_return_status => x_return_status,
6035: x_msg_count => x_msg_count,
6028: /* replacing with call get_applicable_mrs instead.
6029: AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS (
6030: p_api_version => 1.0,
6031: p_init_msg_list => FND_API.G_FALSE,
6032: p_commit => FND_API.G_FALSE,
6033: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6034: x_return_status => x_return_status,
6035: x_msg_count => x_msg_count,
6036: x_msg_data => x_msg_data,
6029: AHL_FMP_PVT.GET_MR_AFFECTED_ITEMS (
6030: p_api_version => 1.0,
6031: p_init_msg_list => FND_API.G_FALSE,
6032: p_commit => FND_API.G_FALSE,
6033: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6034: x_return_status => x_return_status,
6035: x_msg_count => x_msg_count,
6036: x_msg_data => x_msg_data,
6037: p_mr_header_id => l_new_mr_header_id,
6061: 'returned from AHL_FMP_PVT.Get_Applicable_MRs:status:' || x_return_status
6062: );
6063: END IF;
6064:
6065: x_new_mr_applicable := FND_API.G_FALSE;
6066: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6067: RETURN;
6068: ELSE
6069: -- added count check to fix bug# 8917761
6062: );
6063: END IF;
6064:
6065: x_new_mr_applicable := FND_API.G_FALSE;
6066: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6067: RETURN;
6068: ELSE
6069: -- added count check to fix bug# 8917761
6070: IF (l_mr_item_instance_tbl.COUNT > 0) THEN
6069: -- added count check to fix bug# 8917761
6070: IF (l_mr_item_instance_tbl.COUNT > 0) THEN
6071: FOR i IN l_mr_item_instance_tbl.FIRST..l_mr_item_instance_tbl.LAST LOOP
6072: IF(l_mr_item_instance_tbl(i).ITEM_INSTANCE_ID = l_item_instance_id)THEN
6073: x_new_mr_applicable := FND_API.G_TRUE;
6074: x_new_mr_header_id := l_new_mr_header_id;
6075: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
6076: fnd_log.string
6077: (
6104: fnd_log.level_statement,
6105: 'ahl.plsql.AHL_PRD_DF_PVT.get_mr_termination_details', 'Current MR:returned from AHL_FMP_PVT.Get_Applicable_MRs:status:' || x_return_status
6106: );
6107: END IF;
6108: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6109: RETURN;
6110: END IF;
6111:
6112: x_mr_applicable := FND_API.G_FALSE;
6108: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6109: RETURN;
6110: END IF;
6111:
6112: x_mr_applicable := FND_API.G_FALSE;
6113: x_new_mr_applicable := FND_API.G_FALSE;
6114: IF (l_mr_item_instance_tbl.COUNT > 0) THEN
6115: FOR i IN l_mr_item_instance_tbl.FIRST..l_mr_item_instance_tbl.LAST LOOP
6116: IF(l_mr_item_instance_tbl(i).ITEM_INSTANCE_ID = l_item_instance_id)THEN
6109: RETURN;
6110: END IF;
6111:
6112: x_mr_applicable := FND_API.G_FALSE;
6113: x_new_mr_applicable := FND_API.G_FALSE;
6114: IF (l_mr_item_instance_tbl.COUNT > 0) THEN
6115: FOR i IN l_mr_item_instance_tbl.FIRST..l_mr_item_instance_tbl.LAST LOOP
6116: IF(l_mr_item_instance_tbl(i).ITEM_INSTANCE_ID = l_item_instance_id)THEN
6117: x_mr_applicable := FND_API.G_TRUE;
6113: x_new_mr_applicable := FND_API.G_FALSE;
6114: IF (l_mr_item_instance_tbl.COUNT > 0) THEN
6115: FOR i IN l_mr_item_instance_tbl.FIRST..l_mr_item_instance_tbl.LAST LOOP
6116: IF(l_mr_item_instance_tbl(i).ITEM_INSTANCE_ID = l_item_instance_id)THEN
6117: x_mr_applicable := FND_API.G_TRUE;
6118: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
6119: fnd_log.string
6120: (
6121: fnd_log.level_statement,
6124: END IF;
6125: EXIT;
6126: END IF;
6127: END LOOP;
6128: IF (x_mr_applicable = FND_API.G_TRUE) THEN
6129: x_new_mr_applicable := FND_API.G_TRUE;
6130: END IF;
6131: END IF; -- l_mr_item_instance_tbl.COUNT
6132:
6125: EXIT;
6126: END IF;
6127: END LOOP;
6128: IF (x_mr_applicable = FND_API.G_TRUE) THEN
6129: x_new_mr_applicable := FND_API.G_TRUE;
6130: END IF;
6131: END IF; -- l_mr_item_instance_tbl.COUNT
6132:
6133: END IF; -- x_mr_applicable