[Home] [Help]
120: -- Parameters :
121: --
122: -- Standard IN Parameters :
123: -- p_api_version IN NUMBER Default 1.0
124: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
125: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
126: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
127: -- Standard OUT Parameters :
128: -- x_return_status OUT VARCHAR2 Required
121: --
122: -- Standard IN Parameters :
123: -- p_api_version IN NUMBER Default 1.0
124: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
125: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
126: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
127: -- Standard OUT Parameters :
128: -- x_return_status OUT VARCHAR2 Required
129: -- x_msg_count OUT NUMBER Required
122: -- Standard IN Parameters :
123: -- p_api_version IN NUMBER Default 1.0
124: -- p_init_msg_list IN VARCHAR2 Default FND_API.G_TRUE
125: -- p_commit IN VARCHAR2 Default FND_API.G_FALSE
126: -- p_validation_level IN NUMBER Default FND_API.G_VALID_LEVEL_FULL
127: -- Standard OUT Parameters :
128: -- x_return_status OUT VARCHAR2 Required
129: -- x_msg_count OUT NUMBER Required
130: -- x_msg_data OUT VARCHAR2 Required
146: -- End of Comments.
147:
148: PROCEDURE process_deferral(
149: p_api_version IN NUMBER := 1.0,
150: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
151: p_commit IN VARCHAR2 := FND_API.G_FALSE,
152: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
153: p_module_type IN VARCHAR2 := NULL,
154: p_x_df_header_rec IN OUT NOCOPY AHL_PRD_DF_PVT.df_header_rec_type,
147:
148: PROCEDURE process_deferral(
149: p_api_version IN NUMBER := 1.0,
150: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
151: p_commit IN VARCHAR2 := FND_API.G_FALSE,
152: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
153: p_module_type IN VARCHAR2 := NULL,
154: p_x_df_header_rec IN OUT NOCOPY AHL_PRD_DF_PVT.df_header_rec_type,
155: p_x_df_schedules_tbl IN OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type,
148: PROCEDURE process_deferral(
149: p_api_version IN NUMBER := 1.0,
150: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
151: p_commit IN VARCHAR2 := FND_API.G_FALSE,
152: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
153: p_module_type IN VARCHAR2 := NULL,
154: p_x_df_header_rec IN OUT NOCOPY AHL_PRD_DF_PVT.df_header_rec_type,
155: p_x_df_schedules_tbl IN OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type,
156: x_return_status OUT NOCOPY VARCHAR2,
158: x_msg_data OUT NOCOPY VARCHAR2) IS
159:
160: l_api_version CONSTANT NUMBER := 1.0;
161: l_api_name CONSTANT VARCHAR2(30) := 'process_deferral';
162: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
163: l_warning_msg_data VARCHAR2(4000);
164:
165: BEGIN
166: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
174: -- Standard start of API savepoint
175: SAVEPOINT process_deferral;
176:
177: -- Standard call to check for call compatibility
178: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
179: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
180: END IF;
181: -- setting up module type
182: G_MODULE_TYPE := p_module_type;
175: SAVEPOINT process_deferral;
176:
177: -- Standard call to check for call compatibility
178: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version,l_api_name, G_PKG_NAME ) THEN
179: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
180: END IF;
181: -- setting up module type
182: G_MODULE_TYPE := p_module_type;
183: -- Initialize message list if p_init_msg_list is set to TRUE
180: END IF;
181: -- setting up module type
182: G_MODULE_TYPE := p_module_type;
183: -- Initialize message list if p_init_msg_list is set to TRUE
184: IF FND_API.To_Boolean( p_init_msg_list) THEN
185: FND_MSG_PUB.Initialize;
186: END IF;
187:
188: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
211: 'p_module_type : ' || p_module_type
212: );
213: END IF;
214: -- Initialize API return status to success
215: x_return_status := FND_API.G_RET_STS_SUCCESS;
216:
217: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
218: fnd_log.string
219: (
302:
303: -- Check Error Message stack.
304: x_msg_count := FND_MSG_PUB.count_msg;
305: IF x_msg_count > 0 THEN
306: RAISE FND_API.G_EXC_ERROR;
307: END IF;
308:
309: -- Standard check of p_commit
310: IF FND_API.TO_BOOLEAN(p_commit) THEN
306: RAISE FND_API.G_EXC_ERROR;
307: END IF;
308:
309: -- Standard check of p_commit
310: IF FND_API.TO_BOOLEAN(p_commit) THEN
311: COMMIT WORK;
312: END IF;
313:
314:
316: -- Standard call to get message count and if count is 1, get message info
317: FND_MSG_PUB.Count_And_Get
318: ( p_count => x_msg_count,
319: p_data => x_msg_data,
320: p_encoded => fnd_api.g_false
321: );
322: IF(x_msg_count = 0 AND l_warning_msg_data IS NOT NULL)THEN
323: x_msg_count := 1;
324: x_msg_data := l_warning_msg_data;
333: );
334: END IF;
335:
336: EXCEPTION
337: WHEN FND_API.G_EXC_ERROR THEN
338: Rollback to process_deferral;
339: x_return_status := FND_API.G_RET_STS_ERROR;
340: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
341: p_data => x_msg_data,
335:
336: EXCEPTION
337: WHEN FND_API.G_EXC_ERROR THEN
338: Rollback to process_deferral;
339: x_return_status := FND_API.G_RET_STS_ERROR;
340: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
341: p_data => x_msg_data,
342: p_encoded => fnd_api.g_false);
343:
338: Rollback to process_deferral;
339: x_return_status := FND_API.G_RET_STS_ERROR;
340: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
341: p_data => x_msg_data,
342: p_encoded => fnd_api.g_false);
343:
344:
345: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
346: Rollback to process_deferral;
341: p_data => x_msg_data,
342: p_encoded => fnd_api.g_false);
343:
344:
345: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
346: Rollback to process_deferral;
347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
348: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
349: p_data => x_msg_data,
343:
344:
345: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
346: Rollback to process_deferral;
347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
348: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
349: p_data => x_msg_data,
350: p_encoded => fnd_api.g_false);
351:
346: Rollback to process_deferral;
347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
348: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
349: p_data => x_msg_data,
350: p_encoded => fnd_api.g_false);
351:
352:
353: WHEN OTHERS THEN
354: Rollback to process_deferral;
351:
352:
353: WHEN OTHERS THEN
354: Rollback to process_deferral;
355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
356: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
357: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
358: p_procedure_name => l_api_name,
359: p_error_text => SUBSTR(SQLERRM,1,500));
359: p_error_text => SUBSTR(SQLERRM,1,500));
360: END IF;
361: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
362: p_data => x_msg_data,
363: p_encoded => fnd_api.g_false);
364: END process_deferral;
365:
366: -------------------------------------------------------------------------------------
367: -- procedure processes the header information
515: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header',
516: 'Input Keys are missing or invalid'
517: );
518: END IF;
519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
520: END IF;
521: -- check whether unit effectivity is valid
522: OPEN unit_effectivity_info_csr(p_x_df_header_rec.unit_effectivity_id);
523: FETCH unit_effectivity_info_csr INTO l_mr_header_id,
538: 'unit effectivity record not found'
539: );
540: END IF;
541: CLOSE unit_effectivity_info_csr;
542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
543: ELSE
544: IF(l_orig_deferral_ue_id IS NOT NULL) THEN
545: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_HREC_UE_ID');
546: FND_MSG_PUB.ADD;
552: 'unit effectivity record not found'
553: );
554: END IF;
555: CLOSE unit_effectivity_info_csr;
556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
557: ELSIF((NVL(l_ue_status_code,'x') IN ('ACCOMPLISHED','DEFERRED','EXCEPTION','TERMINATED','CANCELLED','MR-TERMINATE'))
558: OR (NVL(l_def_status_code,'x')IN ('DEFERRED','DEFERRAL_PENDING','TERMINATED','CANCELLED')))THEN
559: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_MRSR_STATUS');
560: FND_MSG_PUB.ADD;
566: 'Status of MR or SR is not valid for deferral'
567: );
568: END IF;
569: CLOSE unit_effectivity_info_csr;
570: RAISE FND_API.G_EXC_ERROR;
571: ELSE
572: -- filling in additional info
573: IF(l_mr_header_id IS NULL)THEN
574: p_x_df_header_rec.deferral_type := G_DEFERRAL_TYPE_SR;
729: );
730: END IF;
731:
732: IF(FND_MSG_PUB.count_msg > 0)THEN
733: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
734: END IF;
735:
736: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
737: fnd_log.string
978: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
979: 'Operation Flag is invalid in the header record'
980: );
981: END IF;
982: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
983: ELSE
984: -- R12: UMP Deferral.
985: -- First validate UE ID. If UMP Deferral, then UE must not be in a 'planned' status.
986: OPEN valid_ue_csr(p_df_header_rec.unit_effectivity_id);
1018: 'invalid mr or sr status invalid for update or delete 1'
1019: );
1020: END IF;
1021: CLOSE valid_deferral_csr;
1022: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1023: ELSE
1024: CLOSE valid_deferral_csr;
1025: END IF; -- valid_deferral_csr
1026: ELSE
1042: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1043: 'cannot defer child MR when parent MR is based on non-serial SR'
1044: );
1045: END IF;
1046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1047:
1048: END IF;
1049:
1050: CLOSE is_orig_ue_nonserial;
1067: 'invalid mr or sr status invalid for update or delete 1'
1068: );
1069: END IF;
1070: CLOSE valid_deferral_csr;
1071: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1072: END IF;
1073: CLOSE valid_deferral_csr;*/
1074: -- TAMAL -- End changes for ER #3356804
1075: END IF;
1091: 'Deferral record exist while operation flag is create'
1092: );
1093: END IF;
1094: CLOSE deferral_rec_exists_csr;
1095: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1096: END IF;
1097: CLOSE deferral_rec_exists_csr;
1098:
1099: -- check whether status is nothing but draft while creating record for deferral
1107: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1108: 'approval status is not DRAFT while creating a deferral record'
1109: );
1110: END IF;
1111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1112: END IF;
1113:
1114: -- update and delete validations
1115: ELSIF (p_df_header_rec.operation_flag IN (G_OP_UPDATE,G_OP_DELETE)) THEN
1127: 'approval status invalid for update or delete : ue_id : ' || p_df_header_rec.unit_deferral_id
1128: );
1129: END IF;
1130: CLOSE valid_deferral_up_csr;
1131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1132: END IF;
1133: CLOSE valid_deferral_up_csr;
1134: END IF;
1135:
1151: 'Associated MR has been terminated in FMP'
1152: );
1153: END IF;
1154: CLOSE valid_mr_csr;
1155: RAISE FND_API.G_EXC_ERROR;
1156: END IF;
1157: CLOSE valid_mr_csr;
1158: END IF;*/
1159:
1172: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1173: 'Skip flag is not Y or N'
1174: );
1175: END IF;
1176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1177: END IF;
1178: IF(p_df_header_rec.affect_due_calc_flag NOT IN(G_YES_FLAG,G_NO_FLAG))THEN
1179: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_AFFDUE_FLAG');
1180: FND_MSG_PUB.ADD;
1185: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1186: 'Affect Due Calc Flag is not Y or N'
1187: );
1188: END IF;
1189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1190: END IF;
1191:
1192: -- Check user deferral type.(R12: UMP Deferral)
1193: IF (p_df_header_rec.user_deferral_type_code IS NOT NULL AND
1190: END IF;
1191:
1192: -- Check user deferral type.(R12: UMP Deferral)
1193: IF (p_df_header_rec.user_deferral_type_code IS NOT NULL AND
1194: p_df_header_rec.user_deferral_type_code <> FND_API.G_MISS_CHAR) THEN
1195: OPEN validate_user_defer_csr(p_df_header_rec.user_deferral_type_code);
1196: FETCH validate_user_defer_csr INTO l_exists;
1197: IF (validate_user_defer_csr%NOTFOUND) THEN
1198: FND_MESSAGE.Set_Name('AHL','AHL_UMP_INVALID_DEF_TYPE');
1216: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1217: 'Skip MR flag is Y while MR is not repetitive'
1218: );
1219: END IF;
1220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1221: END IF;
1222: IF(p_df_header_rec.affect_due_calc_flag = G_NO_FLAG AND p_df_header_rec.reset_counter_flag = G_YES_FLAG) THEN
1223: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_AFFDUE_FLAG');
1224: FND_MSG_PUB.ADD;
1236: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1237: 'MR has resettable counters so affect due cal flag cant be N '
1238: );
1239: END IF;
1240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1241: END IF;
1242: ELSE
1243: IF(p_df_header_rec.affect_due_calc_flag = G_YES_FLAG) THEN
1244: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_AFFDUE_FLAG');
1250: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1251: 'MR skip flag is Y so affect due cal flag can not be Y '
1252: );
1253: END IF;
1254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1255: END IF;
1256: END IF;
1257: END IF;
1258: ELSIF (p_df_header_rec.deferral_type = G_DEFERRAL_TYPE_SR) THEN
1267: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1268: 'For SR, skip flag cant be Y '
1269: );
1270: END IF;
1271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1272: END IF;
1273: */
1274: IF(p_df_header_rec.affect_due_calc_flag = G_NO_FLAG)THEN
1275: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_AFFDUE_FLAG');
1281: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1282: 'For SR, affect due date flag can not be N '
1283: );
1284: END IF;
1285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1286: END IF;
1287: END IF;
1288: -- set due date and deferral effective on date validations
1289: -- part of this validation has been moved for post processing
1319: END IF;
1320:
1321: -- raise expected error
1322: IF(FND_MSG_PUB.count_msg > 0)THEN
1323: RAISE FND_API.G_EXC_ERROR;
1324: END IF;
1325:
1326: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1327: fnd_log.string
1380: 'Reason code is not defined in lookups '
1381: );
1382: END IF;
1383: CLOSE val_reason_code_csr;
1384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1385: END IF;
1386: CLOSE val_reason_code_csr;
1387: exit_flag := true;
1388: ELSE
1400: 'Reason code is not defined in lookups '
1401: );
1402: END IF;
1403: CLOSE val_reason_code_csr;
1404: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1405: END IF;
1406: CLOSE val_reason_code_csr;
1407: l_index := l_index + 1;
1408: l_temp1 := l_temp2 + 1;
1410: EXIT WHEN exit_flag;
1411: END LOOP;
1412:
1413: IF(FND_MSG_PUB.count_msg > 0)THEN
1414: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1415: END IF;
1416:
1417: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1418: fnd_log.string
1492: 'Unit Effectivity ID does not match with deferral header record'
1493: );
1494: END IF;
1495: CLOSE df_header_csr;
1496: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1497: END IF;
1498:
1499: IF (p_x_df_header_rec.unit_deferral_type IS NULL) THEN
1500: p_x_df_header_rec.unit_deferral_type := l_df_header_rec.unit_deferral_type;
1509: 'Unit Deferral Type does not match with deferral header record'
1510: );
1511: END IF;
1512: CLOSE df_header_csr;
1513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1514: END IF;
1515:
1516: IF (p_x_df_header_rec.approval_status_code IS NULL) THEN
1517: p_x_df_header_rec.approval_status_code := l_df_header_rec.approval_status_code;
1526: 'Approval status code can not be modified'
1527: );
1528: END IF;
1529: CLOSE df_header_csr;
1530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1531: END IF;
1532:
1533: IF (p_x_df_header_rec.defer_reason_code IS NULL) THEN
1534: p_x_df_header_rec.defer_reason_code := l_df_header_rec.defer_reason_code;
1531: END IF;
1532:
1533: IF (p_x_df_header_rec.defer_reason_code IS NULL) THEN
1534: p_x_df_header_rec.defer_reason_code := l_df_header_rec.defer_reason_code;
1535: ELSIF(p_x_df_header_rec.defer_reason_code = FND_API.G_MISS_CHAR) THEN
1536: p_x_df_header_rec.defer_reason_code := NULL;
1537: END IF;
1538:
1539: IF (p_x_df_header_rec.skip_mr_flag IS NULL) THEN
1537: END IF;
1538:
1539: IF (p_x_df_header_rec.skip_mr_flag IS NULL) THEN
1540: p_x_df_header_rec.skip_mr_flag := l_df_header_rec.skip_mr_flag;
1541: ELSIF(p_x_df_header_rec.skip_mr_flag = FND_API.G_MISS_CHAR) THEN
1542: p_x_df_header_rec.skip_mr_flag := G_NO_FLAG;
1543: END IF;
1544:
1545: IF (p_x_df_header_rec.affect_due_calc_flag IS NULL) THEN
1543: END IF;
1544:
1545: IF (p_x_df_header_rec.affect_due_calc_flag IS NULL) THEN
1546: p_x_df_header_rec.affect_due_calc_flag := l_df_header_rec.affect_due_calc_flag;
1547: ELSIF(p_x_df_header_rec.affect_due_calc_flag = FND_API.G_MISS_CHAR) THEN
1548: p_x_df_header_rec.affect_due_calc_flag := G_NO_FLAG;
1549: END IF;
1550:
1551: IF (p_x_df_header_rec.set_due_date IS NULL) THEN
1549: END IF;
1550:
1551: IF (p_x_df_header_rec.set_due_date IS NULL) THEN
1552: p_x_df_header_rec.set_due_date := l_df_header_rec.set_due_date;
1553: ELSIF(p_x_df_header_rec.set_due_date = FND_API.G_MISS_DATE) THEN
1554: p_x_df_header_rec.set_due_date := NULL;
1555: END IF;
1556:
1557: IF (p_x_df_header_rec.deferral_effective_on IS NULL) THEN
1555: END IF;
1556:
1557: IF (p_x_df_header_rec.deferral_effective_on IS NULL) THEN
1558: p_x_df_header_rec.deferral_effective_on := l_df_header_rec.deferral_effective_on;
1559: ELSIF(p_x_df_header_rec.deferral_effective_on = FND_API.G_MISS_DATE) THEN
1560: p_x_df_header_rec.deferral_effective_on := NULL;
1561: END IF;
1562:
1563: IF (p_x_df_header_rec.remarks IS NULL) THEN
1561: END IF;
1562:
1563: IF (p_x_df_header_rec.remarks IS NULL) THEN
1564: p_x_df_header_rec.remarks := l_df_header_rec.remarks;
1565: ELSIF(p_x_df_header_rec.remarks = FND_API.G_MISS_CHAR) THEN
1566: p_x_df_header_rec.remarks := NULL;
1567: END IF;
1568:
1569: IF (p_x_df_header_rec.approver_notes IS NULL) THEN
1578: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header',
1579: 'approver notes can not be updated by this API'
1580: );
1581: END IF;
1582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1583: END IF;
1584:
1585: IF (p_x_df_header_rec.attribute_category IS NULL) THEN
1586: p_x_df_header_rec.attribute_category := l_df_header_rec.attribute_category;
1583: END IF;
1584:
1585: IF (p_x_df_header_rec.attribute_category IS NULL) THEN
1586: p_x_df_header_rec.attribute_category := l_df_header_rec.attribute_category;
1587: ELSIF(p_x_df_header_rec.attribute_category = FND_API.G_MISS_CHAR) THEN
1588: p_x_df_header_rec.attribute_category := NULL;
1589: END IF;
1590:
1591: IF (p_x_df_header_rec.attribute1 IS NULL) THEN
1589: END IF;
1590:
1591: IF (p_x_df_header_rec.attribute1 IS NULL) THEN
1592: p_x_df_header_rec.attribute1 := l_df_header_rec.attribute1;
1593: ELSIF(p_x_df_header_rec.attribute1 = FND_API.G_MISS_CHAR) THEN
1594: p_x_df_header_rec.attribute1 := NULL;
1595: END IF;
1596:
1597: IF (p_x_df_header_rec.attribute2 IS NULL) THEN
1595: END IF;
1596:
1597: IF (p_x_df_header_rec.attribute2 IS NULL) THEN
1598: p_x_df_header_rec.attribute2 := l_df_header_rec.attribute2;
1599: ELSIF(p_x_df_header_rec.attribute2 = FND_API.G_MISS_CHAR) THEN
1600: p_x_df_header_rec.attribute2 := NULL;
1601: END IF;
1602:
1603: IF (p_x_df_header_rec.attribute3 IS NULL) THEN
1601: END IF;
1602:
1603: IF (p_x_df_header_rec.attribute3 IS NULL) THEN
1604: p_x_df_header_rec.attribute3 := l_df_header_rec.attribute3;
1605: ELSIF(p_x_df_header_rec.attribute3 = FND_API.G_MISS_CHAR) THEN
1606: p_x_df_header_rec.attribute3 := NULL;
1607: END IF;
1608:
1609: IF (p_x_df_header_rec.attribute4 IS NULL) THEN
1607: END IF;
1608:
1609: IF (p_x_df_header_rec.attribute4 IS NULL) THEN
1610: p_x_df_header_rec.attribute4 := l_df_header_rec.attribute4;
1611: ELSIF(p_x_df_header_rec.attribute4 = FND_API.G_MISS_CHAR) THEN
1612: p_x_df_header_rec.attribute4 := NULL;
1613: END IF;
1614:
1615: IF (p_x_df_header_rec.attribute5 IS NULL) THEN
1613: END IF;
1614:
1615: IF (p_x_df_header_rec.attribute5 IS NULL) THEN
1616: p_x_df_header_rec.attribute5 := l_df_header_rec.attribute5;
1617: ELSIF(p_x_df_header_rec.attribute5 = FND_API.G_MISS_CHAR) THEN
1618: p_x_df_header_rec.attribute5 := NULL;
1619: END IF;
1620:
1621: IF (p_x_df_header_rec.attribute6 IS NULL) THEN
1619: END IF;
1620:
1621: IF (p_x_df_header_rec.attribute6 IS NULL) THEN
1622: p_x_df_header_rec.attribute6 := l_df_header_rec.attribute6;
1623: ELSIF(p_x_df_header_rec.attribute6 = FND_API.G_MISS_CHAR) THEN
1624: p_x_df_header_rec.attribute6 := NULL;
1625: END IF;
1626:
1627: IF (p_x_df_header_rec.attribute7 IS NULL) THEN
1625: END IF;
1626:
1627: IF (p_x_df_header_rec.attribute7 IS NULL) THEN
1628: p_x_df_header_rec.attribute7 := l_df_header_rec.attribute7;
1629: ELSIF(p_x_df_header_rec.attribute7 = FND_API.G_MISS_CHAR) THEN
1630: p_x_df_header_rec.attribute7 := NULL;
1631: END IF;
1632:
1633: IF (p_x_df_header_rec.attribute8 IS NULL) THEN
1631: END IF;
1632:
1633: IF (p_x_df_header_rec.attribute8 IS NULL) THEN
1634: p_x_df_header_rec.attribute8 := l_df_header_rec.attribute8;
1635: ELSIF(p_x_df_header_rec.attribute8 = FND_API.G_MISS_CHAR) THEN
1636: p_x_df_header_rec.attribute8 := NULL;
1637: END IF;
1638:
1639: IF (p_x_df_header_rec.attribute9 IS NULL) THEN
1637: END IF;
1638:
1639: IF (p_x_df_header_rec.attribute9 IS NULL) THEN
1640: p_x_df_header_rec.attribute9 := l_df_header_rec.attribute9;
1641: ELSIF(p_x_df_header_rec.attribute9 = FND_API.G_MISS_CHAR) THEN
1642: p_x_df_header_rec.attribute9 := NULL;
1643: END IF;
1644:
1645: IF (p_x_df_header_rec.attribute10 IS NULL) THEN
1643: END IF;
1644:
1645: IF (p_x_df_header_rec.attribute10 IS NULL) THEN
1646: p_x_df_header_rec.attribute10 := l_df_header_rec.attribute10;
1647: ELSIF(p_x_df_header_rec.attribute10 = FND_API.G_MISS_CHAR) THEN
1648: p_x_df_header_rec.attribute10 := NULL;
1649: END IF;
1650:
1651: IF (p_x_df_header_rec.attribute11 IS NULL) THEN
1649: END IF;
1650:
1651: IF (p_x_df_header_rec.attribute11 IS NULL) THEN
1652: p_x_df_header_rec.attribute11 := l_df_header_rec.attribute11;
1653: ELSIF(p_x_df_header_rec.attribute11 = FND_API.G_MISS_CHAR) THEN
1654: p_x_df_header_rec.attribute11 := NULL;
1655: END IF;
1656:
1657: IF (p_x_df_header_rec.attribute12 IS NULL) THEN
1655: END IF;
1656:
1657: IF (p_x_df_header_rec.attribute12 IS NULL) THEN
1658: p_x_df_header_rec.attribute12 := l_df_header_rec.attribute12;
1659: ELSIF(p_x_df_header_rec.attribute12 = FND_API.G_MISS_CHAR) THEN
1660: p_x_df_header_rec.attribute12 := NULL;
1661: END IF;
1662:
1663: IF (p_x_df_header_rec.attribute13 IS NULL) THEN
1661: END IF;
1662:
1663: IF (p_x_df_header_rec.attribute13 IS NULL) THEN
1664: p_x_df_header_rec.attribute13 := l_df_header_rec.attribute13;
1665: ELSIF(p_x_df_header_rec.attribute13 = FND_API.G_MISS_CHAR) THEN
1666: p_x_df_header_rec.attribute13 := NULL;
1667: END IF;
1668:
1669: IF (p_x_df_header_rec.attribute14 IS NULL) THEN
1667: END IF;
1668:
1669: IF (p_x_df_header_rec.attribute14 IS NULL) THEN
1670: p_x_df_header_rec.attribute14 := l_df_header_rec.attribute14;
1671: ELSIF(p_x_df_header_rec.attribute14 = FND_API.G_MISS_CHAR) THEN
1672: p_x_df_header_rec.attribute14 := NULL;
1673: END IF;
1674:
1675: IF (p_x_df_header_rec.attribute15 IS NULL) THEN
1673: END IF;
1674:
1675: IF (p_x_df_header_rec.attribute15 IS NULL) THEN
1676: p_x_df_header_rec.attribute15 := l_df_header_rec.attribute15;
1677: ELSIF(p_x_df_header_rec.attribute15 = FND_API.G_MISS_CHAR) THEN
1678: p_x_df_header_rec.attribute15 := NULL;
1679: END IF;
1680:
1681: END IF;
1682: CLOSE df_header_csr;
1683: ELSIF (p_x_df_header_rec.operation_flag = G_OP_CREATE) THEN
1684:
1685: IF (p_x_df_header_rec.unit_effectivity_id IS NULL OR
1686: p_x_df_header_rec.unit_effectivity_id = FND_API.G_MISS_NUM) THEN
1687: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_UE');
1688: FND_MSG_PUB.ADD;
1689: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1690: fnd_log.string
1693: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header',
1694: 'Unit effectivity ID can not be null while creating deferral header record'
1695: );
1696: END IF;
1697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1698: END IF;
1699:
1700: IF (p_x_df_header_rec.unit_deferral_type IS NULL OR
1701: p_x_df_header_rec.unit_deferral_type = FND_API.G_MISS_CHAR) THEN
1697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1698: END IF;
1699:
1700: IF (p_x_df_header_rec.unit_deferral_type IS NULL OR
1701: p_x_df_header_rec.unit_deferral_type = FND_API.G_MISS_CHAR) THEN
1702: p_x_df_header_rec.unit_deferral_type := 'DEFERRAL';
1703: END IF;
1704:
1705: IF(p_x_df_header_rec.approval_status_code IS NULL OR
1702: p_x_df_header_rec.unit_deferral_type := 'DEFERRAL';
1703: END IF;
1704:
1705: IF(p_x_df_header_rec.approval_status_code IS NULL OR
1706: p_x_df_header_rec.approval_status_code = FND_API.G_MISS_CHAR) THEN
1707: p_x_df_header_rec.approval_status_code := 'DRAFT';
1708: END IF;
1709:
1710: IF(p_x_df_header_rec.defer_reason_code = FND_API.G_MISS_CHAR) THEN
1706: p_x_df_header_rec.approval_status_code = FND_API.G_MISS_CHAR) THEN
1707: p_x_df_header_rec.approval_status_code := 'DRAFT';
1708: END IF;
1709:
1710: IF(p_x_df_header_rec.defer_reason_code = FND_API.G_MISS_CHAR) THEN
1711: p_x_df_header_rec.defer_reason_code := NULL;
1712: END IF;
1713:
1714: IF(p_x_df_header_rec.skip_mr_flag IS NULL OR
1711: p_x_df_header_rec.defer_reason_code := NULL;
1712: END IF;
1713:
1714: IF(p_x_df_header_rec.skip_mr_flag IS NULL OR
1715: p_x_df_header_rec.skip_mr_flag = FND_API.G_MISS_CHAR) THEN
1716: p_x_df_header_rec.skip_mr_flag := G_NO_FLAG;
1717: END IF;
1718:
1719: IF(p_x_df_header_rec.affect_due_calc_flag IS NULL OR
1716: p_x_df_header_rec.skip_mr_flag := G_NO_FLAG;
1717: END IF;
1718:
1719: IF(p_x_df_header_rec.affect_due_calc_flag IS NULL OR
1720: p_x_df_header_rec.affect_due_calc_flag = FND_API.G_MISS_CHAR) THEN
1721: p_x_df_header_rec.affect_due_calc_flag := G_YES_FLAG;
1722: END IF;
1723:
1724: IF(p_x_df_header_rec.set_due_date = FND_API.G_MISS_DATE) THEN
1720: p_x_df_header_rec.affect_due_calc_flag = FND_API.G_MISS_CHAR) THEN
1721: p_x_df_header_rec.affect_due_calc_flag := G_YES_FLAG;
1722: END IF;
1723:
1724: IF(p_x_df_header_rec.set_due_date = FND_API.G_MISS_DATE) THEN
1725: p_x_df_header_rec.set_due_date := NULL;
1726: END IF;
1727:
1728: IF(p_x_df_header_rec.deferral_effective_on = FND_API.G_MISS_DATE) THEN
1724: IF(p_x_df_header_rec.set_due_date = FND_API.G_MISS_DATE) THEN
1725: p_x_df_header_rec.set_due_date := NULL;
1726: END IF;
1727:
1728: IF(p_x_df_header_rec.deferral_effective_on = FND_API.G_MISS_DATE) THEN
1729: p_x_df_header_rec.deferral_effective_on := NULL;
1730: END IF;
1731:
1732: IF(p_x_df_header_rec.remarks = FND_API.G_MISS_CHAR) THEN
1728: IF(p_x_df_header_rec.deferral_effective_on = FND_API.G_MISS_DATE) THEN
1729: p_x_df_header_rec.deferral_effective_on := NULL;
1730: END IF;
1731:
1732: IF(p_x_df_header_rec.remarks = FND_API.G_MISS_CHAR) THEN
1733: p_x_df_header_rec.remarks := NULL;
1734: END IF;
1735:
1736: IF(p_x_df_header_rec.approver_notes = FND_API.G_MISS_CHAR) THEN
1732: IF(p_x_df_header_rec.remarks = FND_API.G_MISS_CHAR) THEN
1733: p_x_df_header_rec.remarks := NULL;
1734: END IF;
1735:
1736: IF(p_x_df_header_rec.approver_notes = FND_API.G_MISS_CHAR) THEN
1737: p_x_df_header_rec.approver_notes := NULL;
1738: END IF;
1739:
1740: IF(p_x_df_header_rec.attribute_category = FND_API.G_MISS_CHAR) THEN
1736: IF(p_x_df_header_rec.approver_notes = FND_API.G_MISS_CHAR) THEN
1737: p_x_df_header_rec.approver_notes := NULL;
1738: END IF;
1739:
1740: IF(p_x_df_header_rec.attribute_category = FND_API.G_MISS_CHAR) THEN
1741: p_x_df_header_rec.attribute_category := NULL;
1742: END IF;
1743:
1744: IF(p_x_df_header_rec.attribute1 = FND_API.G_MISS_CHAR) THEN
1740: IF(p_x_df_header_rec.attribute_category = FND_API.G_MISS_CHAR) THEN
1741: p_x_df_header_rec.attribute_category := NULL;
1742: END IF;
1743:
1744: IF(p_x_df_header_rec.attribute1 = FND_API.G_MISS_CHAR) THEN
1745: p_x_df_header_rec.attribute1 := NULL;
1746: END IF;
1747:
1748: IF(p_x_df_header_rec.attribute2 = FND_API.G_MISS_CHAR) THEN
1744: IF(p_x_df_header_rec.attribute1 = FND_API.G_MISS_CHAR) THEN
1745: p_x_df_header_rec.attribute1 := NULL;
1746: END IF;
1747:
1748: IF(p_x_df_header_rec.attribute2 = FND_API.G_MISS_CHAR) THEN
1749: p_x_df_header_rec.attribute2 := NULL;
1750: END IF;
1751:
1752: IF(p_x_df_header_rec.attribute3 = FND_API.G_MISS_CHAR) THEN
1748: IF(p_x_df_header_rec.attribute2 = FND_API.G_MISS_CHAR) THEN
1749: p_x_df_header_rec.attribute2 := NULL;
1750: END IF;
1751:
1752: IF(p_x_df_header_rec.attribute3 = FND_API.G_MISS_CHAR) THEN
1753: p_x_df_header_rec.attribute3 := NULL;
1754: END IF;
1755:
1756: IF(p_x_df_header_rec.attribute4 = FND_API.G_MISS_CHAR) THEN
1752: IF(p_x_df_header_rec.attribute3 = FND_API.G_MISS_CHAR) THEN
1753: p_x_df_header_rec.attribute3 := NULL;
1754: END IF;
1755:
1756: IF(p_x_df_header_rec.attribute4 = FND_API.G_MISS_CHAR) THEN
1757: p_x_df_header_rec.attribute4 := NULL;
1758: END IF;
1759:
1760: IF(p_x_df_header_rec.attribute5 = FND_API.G_MISS_CHAR) THEN
1756: IF(p_x_df_header_rec.attribute4 = FND_API.G_MISS_CHAR) THEN
1757: p_x_df_header_rec.attribute4 := NULL;
1758: END IF;
1759:
1760: IF(p_x_df_header_rec.attribute5 = FND_API.G_MISS_CHAR) THEN
1761: p_x_df_header_rec.attribute5 := NULL;
1762: END IF;
1763:
1764: IF(p_x_df_header_rec.attribute6 = FND_API.G_MISS_CHAR) THEN
1760: IF(p_x_df_header_rec.attribute5 = FND_API.G_MISS_CHAR) THEN
1761: p_x_df_header_rec.attribute5 := NULL;
1762: END IF;
1763:
1764: IF(p_x_df_header_rec.attribute6 = FND_API.G_MISS_CHAR) THEN
1765: p_x_df_header_rec.attribute6 := NULL;
1766: END IF;
1767:
1768: IF(p_x_df_header_rec.attribute7 = FND_API.G_MISS_CHAR) THEN
1764: IF(p_x_df_header_rec.attribute6 = FND_API.G_MISS_CHAR) THEN
1765: p_x_df_header_rec.attribute6 := NULL;
1766: END IF;
1767:
1768: IF(p_x_df_header_rec.attribute7 = FND_API.G_MISS_CHAR) THEN
1769: p_x_df_header_rec.attribute7 := NULL;
1770: END IF;
1771:
1772: IF(p_x_df_header_rec.attribute8 = FND_API.G_MISS_CHAR) THEN
1768: IF(p_x_df_header_rec.attribute7 = FND_API.G_MISS_CHAR) THEN
1769: p_x_df_header_rec.attribute7 := NULL;
1770: END IF;
1771:
1772: IF(p_x_df_header_rec.attribute8 = FND_API.G_MISS_CHAR) THEN
1773: p_x_df_header_rec.attribute8 := NULL;
1774: END IF;
1775:
1776: IF(p_x_df_header_rec.attribute9 = FND_API.G_MISS_CHAR) THEN
1772: IF(p_x_df_header_rec.attribute8 = FND_API.G_MISS_CHAR) THEN
1773: p_x_df_header_rec.attribute8 := NULL;
1774: END IF;
1775:
1776: IF(p_x_df_header_rec.attribute9 = FND_API.G_MISS_CHAR) THEN
1777: p_x_df_header_rec.attribute9 := NULL;
1778: END IF;
1779:
1780: IF(p_x_df_header_rec.attribute10 = FND_API.G_MISS_CHAR) THEN
1776: IF(p_x_df_header_rec.attribute9 = FND_API.G_MISS_CHAR) THEN
1777: p_x_df_header_rec.attribute9 := NULL;
1778: END IF;
1779:
1780: IF(p_x_df_header_rec.attribute10 = FND_API.G_MISS_CHAR) THEN
1781: p_x_df_header_rec.attribute10 := NULL;
1782: END IF;
1783:
1784: IF(p_x_df_header_rec.attribute11 = FND_API.G_MISS_CHAR) THEN
1780: IF(p_x_df_header_rec.attribute10 = FND_API.G_MISS_CHAR) THEN
1781: p_x_df_header_rec.attribute10 := NULL;
1782: END IF;
1783:
1784: IF(p_x_df_header_rec.attribute11 = FND_API.G_MISS_CHAR) THEN
1785: p_x_df_header_rec.attribute11 := NULL;
1786: END IF;
1787:
1788: IF(p_x_df_header_rec.attribute12 = FND_API.G_MISS_CHAR) THEN
1784: IF(p_x_df_header_rec.attribute11 = FND_API.G_MISS_CHAR) THEN
1785: p_x_df_header_rec.attribute11 := NULL;
1786: END IF;
1787:
1788: IF(p_x_df_header_rec.attribute12 = FND_API.G_MISS_CHAR) THEN
1789: p_x_df_header_rec.attribute12 := NULL;
1790: END IF;
1791:
1792: IF(p_x_df_header_rec.attribute13 = FND_API.G_MISS_CHAR) THEN
1788: IF(p_x_df_header_rec.attribute12 = FND_API.G_MISS_CHAR) THEN
1789: p_x_df_header_rec.attribute12 := NULL;
1790: END IF;
1791:
1792: IF(p_x_df_header_rec.attribute13 = FND_API.G_MISS_CHAR) THEN
1793: p_x_df_header_rec.attribute13 := NULL;
1794: END IF;
1795:
1796: IF(p_x_df_header_rec.attribute14 = FND_API.G_MISS_CHAR) THEN
1792: IF(p_x_df_header_rec.attribute13 = FND_API.G_MISS_CHAR) THEN
1793: p_x_df_header_rec.attribute13 := NULL;
1794: END IF;
1795:
1796: IF(p_x_df_header_rec.attribute14 = FND_API.G_MISS_CHAR) THEN
1797: p_x_df_header_rec.attribute14 := NULL;
1798: END IF;
1799:
1800: IF(p_x_df_header_rec.attribute15 = FND_API.G_MISS_CHAR) THEN
1796: IF(p_x_df_header_rec.attribute14 = FND_API.G_MISS_CHAR) THEN
1797: p_x_df_header_rec.attribute14 := NULL;
1798: END IF;
1799:
1800: IF(p_x_df_header_rec.attribute15 = FND_API.G_MISS_CHAR) THEN
1801: p_x_df_header_rec.attribute15 := NULL;
1802: END IF;
1803: END IF;
1804:
1803: END IF;
1804:
1805: -- raise expected error
1806: IF(FND_MSG_PUB.count_msg > 0)THEN
1807: RAISE FND_API.G_EXC_ERROR;
1808: END IF;
1809:
1810: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1811: fnd_log.string
1854: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1855: 'Operation Flag is invalid in the schedule record : ' || i
1856: );
1857: END IF;
1858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1859: ELSIF(p_x_df_schedules_tbl(i).operation_flag IN (G_OP_UPDATE,G_OP_DELETE)) THEN
1860: IF(p_x_df_schedules_tbl(i).unit_threshold_id IS NULL OR
1861: p_x_df_schedules_tbl(i).object_version_number IS NULL) THEN
1862: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_REC_KEY_MISS');
1868: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1869: 'Object version number or key missing in schedule record : ' || i
1870: );
1871: END IF;
1872: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1873: ELSIF (p_x_df_schedules_tbl(i).unit_deferral_id IS NOT NULL AND
1874: p_x_df_schedules_tbl(i).unit_deferral_id <> p_df_header_rec.unit_deferral_id) THEN
1875: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_HDR_MISS');
1876: FND_MSG_PUB.ADD;
1881: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1882: 'Unit Deferral ID does not match in schedule record : ' || i
1883: );
1884: END IF;
1885: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1886: END IF;
1887: ELSIF(p_x_df_schedules_tbl(i).operation_flag = G_OP_CREATE) THEN
1888: IF(p_x_df_schedules_tbl(i).unit_threshold_id IS NOT NULL OR
1889: p_x_df_schedules_tbl(i).object_version_number IS NOT NULL) THEN
1896: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1897: 'For Create Operation, Unit Threshold ID or Object Version Number is not null in schedule record : ' || i
1898: );
1899: END IF;
1900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1901: END IF;
1902: IF(p_x_df_schedules_tbl(i).unit_deferral_id IS NULL OR
1903: p_x_df_schedules_tbl(i).unit_deferral_id = FND_API.G_MISS_NUM) THEN
1904: p_x_df_schedules_tbl(i).unit_deferral_id := p_df_header_rec.unit_deferral_id;
1899: END IF;
1900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1901: END IF;
1902: IF(p_x_df_schedules_tbl(i).unit_deferral_id IS NULL OR
1903: p_x_df_schedules_tbl(i).unit_deferral_id = FND_API.G_MISS_NUM) THEN
1904: p_x_df_schedules_tbl(i).unit_deferral_id := p_df_header_rec.unit_deferral_id;
1905: ELSIF(p_x_df_schedules_tbl(i).unit_deferral_id <> p_df_header_rec.unit_deferral_id)THEN
1906: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_HDR_MISS');
1907: FND_MSG_PUB.ADD;
1912: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1913: 'For Create Operation, Header Unit Deferral ID does not match with same in schedule record : ' || i
1914: );
1915: END IF;
1916: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1917: END IF;
1918: END IF;
1919: -- value to id conversion for counter name
1920: IF(G_MODULE_TYPE = 'JSP' AND p_x_df_schedules_tbl(i).operation_flag IN (G_OP_CREATE,G_OP_UPDATE))THEN
1940: END LOOP;
1941:
1942: -- raise expected error
1943: IF(FND_MSG_PUB.count_msg > 0)THEN
1944: RAISE FND_API.G_EXC_ERROR;
1945: END IF;
1946:
1947: default_unchanged_df_schedules(p_x_df_schedules_tbl => p_x_df_schedules_tbl);
1948:
1961: p_df_schedules_tbl => p_x_df_schedules_tbl
1962: );
1963:
1964: IF(FND_MSG_PUB.count_msg > 0)THEN
1965: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1966: END IF;
1967:
1968:
1969:
2054: END IF;
2055: END LOOP;
2056:
2057: IF(FND_MSG_PUB.count_msg > 0)THEN
2058: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2059: END IF;
2060:
2061: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2062: fnd_log.string
2228: END LOOP;
2229:
2230: -- raise expected error
2231: IF(FND_MSG_PUB.count_msg > 0)THEN
2232: RAISE FND_API.G_EXC_ERROR;
2233: END IF;
2234:
2235: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2236: fnd_log.string
2301: 'Unit Deferral ID does not match with deferral schedule record : ' || i
2302: );
2303: END IF;
2304: CLOSE df_schedules_csr;
2305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2306: END IF;
2307:
2308: IF (p_x_df_schedules_tbl(i).counter_id IS NULL) THEN
2309: p_x_df_schedules_tbl(i).counter_id := l_df_schedules_rec.counter_id;
2306: END IF;
2307:
2308: IF (p_x_df_schedules_tbl(i).counter_id IS NULL) THEN
2309: p_x_df_schedules_tbl(i).counter_id := l_df_schedules_rec.counter_id;
2310: ELSIF(p_x_df_schedules_tbl(i).counter_id = FND_API.G_MISS_NUM) THEN
2311: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNT_NAME');
2312: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
2313: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2314: fnd_log.string
2321: END IF;
2322:
2323: IF (p_x_df_schedules_tbl(i).counter_value IS NULL) THEN
2324: p_x_df_schedules_tbl(i).counter_value := l_df_schedules_rec.counter_value;
2325: ELSIF(p_x_df_schedules_tbl(i).counter_value = FND_API.G_MISS_NUM OR
2326: p_x_df_schedules_tbl(i).counter_value <= 0) THEN
2327: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNTVAL');
2328: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
2329: FND_MESSAGE.Set_Token('COUNTER_VALUE',p_x_df_schedules_tbl(i).counter_value);
2351: 'Invalid counter value type code in deferral schedule record : ' || i
2352: );
2353: END IF;
2354: CLOSE df_schedules_csr;
2355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2356: END IF;
2357:
2358: IF (p_x_df_schedules_tbl(i).attribute_category IS NULL) THEN
2359: p_x_df_schedules_tbl(i).attribute_category := l_df_schedules_rec.attribute_category;
2356: END IF;
2357:
2358: IF (p_x_df_schedules_tbl(i).attribute_category IS NULL) THEN
2359: p_x_df_schedules_tbl(i).attribute_category := l_df_schedules_rec.attribute_category;
2360: ELSIF(p_x_df_schedules_tbl(i).attribute_category = FND_API.G_MISS_CHAR) THEN
2361: p_x_df_schedules_tbl(i).attribute_category := NULL;
2362: END IF;
2363:
2364: IF (p_x_df_schedules_tbl(i).attribute1 IS NULL) THEN
2362: END IF;
2363:
2364: IF (p_x_df_schedules_tbl(i).attribute1 IS NULL) THEN
2365: p_x_df_schedules_tbl(i).attribute1 := l_df_schedules_rec.attribute1;
2366: ELSIF(p_x_df_schedules_tbl(i).attribute1 = FND_API.G_MISS_CHAR) THEN
2367: p_x_df_schedules_tbl(i).attribute1 := NULL;
2368: END IF;
2369:
2370: IF (p_x_df_schedules_tbl(i).attribute2 IS NULL) THEN
2368: END IF;
2369:
2370: IF (p_x_df_schedules_tbl(i).attribute2 IS NULL) THEN
2371: p_x_df_schedules_tbl(i).attribute2 := l_df_schedules_rec.attribute2;
2372: ELSIF(p_x_df_schedules_tbl(i).attribute2 = FND_API.G_MISS_CHAR) THEN
2373: p_x_df_schedules_tbl(i).attribute2 := NULL;
2374: END IF;
2375:
2376: IF (p_x_df_schedules_tbl(i).attribute3 IS NULL) THEN
2374: END IF;
2375:
2376: IF (p_x_df_schedules_tbl(i).attribute3 IS NULL) THEN
2377: p_x_df_schedules_tbl(i).attribute3 := l_df_schedules_rec.attribute3;
2378: ELSIF(p_x_df_schedules_tbl(i).attribute3 = FND_API.G_MISS_CHAR) THEN
2379: p_x_df_schedules_tbl(i).attribute3 := NULL;
2380: END IF;
2381:
2382: IF (p_x_df_schedules_tbl(i).attribute4 IS NULL) THEN
2380: END IF;
2381:
2382: IF (p_x_df_schedules_tbl(i).attribute4 IS NULL) THEN
2383: p_x_df_schedules_tbl(i).attribute4 := l_df_schedules_rec.attribute4;
2384: ELSIF(p_x_df_schedules_tbl(i).attribute4 = FND_API.G_MISS_CHAR) THEN
2385: p_x_df_schedules_tbl(i).attribute4 := NULL;
2386: END IF;
2387:
2388: IF (p_x_df_schedules_tbl(i).attribute5 IS NULL) THEN
2386: END IF;
2387:
2388: IF (p_x_df_schedules_tbl(i).attribute5 IS NULL) THEN
2389: p_x_df_schedules_tbl(i).attribute5 := l_df_schedules_rec.attribute5;
2390: ELSIF(p_x_df_schedules_tbl(i).attribute5 = FND_API.G_MISS_CHAR) THEN
2391: p_x_df_schedules_tbl(i).attribute5 := NULL;
2392: END IF;
2393:
2394: IF (p_x_df_schedules_tbl(i).attribute6 IS NULL) THEN
2392: END IF;
2393:
2394: IF (p_x_df_schedules_tbl(i).attribute6 IS NULL) THEN
2395: p_x_df_schedules_tbl(i).attribute6 := l_df_schedules_rec.attribute6;
2396: ELSIF(p_x_df_schedules_tbl(i).attribute6 = FND_API.G_MISS_CHAR) THEN
2397: p_x_df_schedules_tbl(i).attribute6 := NULL;
2398: END IF;
2399:
2400: IF (p_x_df_schedules_tbl(i).attribute7 IS NULL) THEN
2398: END IF;
2399:
2400: IF (p_x_df_schedules_tbl(i).attribute7 IS NULL) THEN
2401: p_x_df_schedules_tbl(i).attribute7 := l_df_schedules_rec.attribute7;
2402: ELSIF(p_x_df_schedules_tbl(i).attribute7 = FND_API.G_MISS_CHAR) THEN
2403: p_x_df_schedules_tbl(i).attribute7 := NULL;
2404: END IF;
2405:
2406: IF (p_x_df_schedules_tbl(i).attribute8 IS NULL) THEN
2404: END IF;
2405:
2406: IF (p_x_df_schedules_tbl(i).attribute8 IS NULL) THEN
2407: p_x_df_schedules_tbl(i).attribute8 := l_df_schedules_rec.attribute8;
2408: ELSIF(p_x_df_schedules_tbl(i).attribute8 = FND_API.G_MISS_CHAR) THEN
2409: p_x_df_schedules_tbl(i).attribute8 := NULL;
2410: END IF;
2411:
2412: IF (p_x_df_schedules_tbl(i).attribute9 IS NULL) THEN
2410: END IF;
2411:
2412: IF (p_x_df_schedules_tbl(i).attribute9 IS NULL) THEN
2413: p_x_df_schedules_tbl(i).attribute9 := l_df_schedules_rec.attribute9;
2414: ELSIF(p_x_df_schedules_tbl(i).attribute9 = FND_API.G_MISS_CHAR) THEN
2415: p_x_df_schedules_tbl(i).attribute9 := NULL;
2416: END IF;
2417:
2418: IF (p_x_df_schedules_tbl(i).attribute10 IS NULL) THEN
2416: END IF;
2417:
2418: IF (p_x_df_schedules_tbl(i).attribute10 IS NULL) THEN
2419: p_x_df_schedules_tbl(i).attribute10 := l_df_schedules_rec.attribute10;
2420: ELSIF(p_x_df_schedules_tbl(i).attribute10 = FND_API.G_MISS_CHAR) THEN
2421: p_x_df_schedules_tbl(i).attribute10 := NULL;
2422: END IF;
2423:
2424: IF (p_x_df_schedules_tbl(i).attribute11 IS NULL) THEN
2422: END IF;
2423:
2424: IF (p_x_df_schedules_tbl(i).attribute11 IS NULL) THEN
2425: p_x_df_schedules_tbl(i).attribute11 := l_df_schedules_rec.attribute11;
2426: ELSIF(p_x_df_schedules_tbl(i).attribute11 = FND_API.G_MISS_CHAR) THEN
2427: p_x_df_schedules_tbl(i).attribute11 := NULL;
2428: END IF;
2429:
2430: IF (p_x_df_schedules_tbl(i).attribute12 IS NULL) THEN
2428: END IF;
2429:
2430: IF (p_x_df_schedules_tbl(i).attribute12 IS NULL) THEN
2431: p_x_df_schedules_tbl(i).attribute12 := l_df_schedules_rec.attribute12;
2432: ELSIF(p_x_df_schedules_tbl(i).attribute12 = FND_API.G_MISS_CHAR) THEN
2433: p_x_df_schedules_tbl(i).attribute12 := NULL;
2434: END IF;
2435:
2436: IF (p_x_df_schedules_tbl(i).attribute13 IS NULL) THEN
2434: END IF;
2435:
2436: IF (p_x_df_schedules_tbl(i).attribute13 IS NULL) THEN
2437: p_x_df_schedules_tbl(i).attribute13 := l_df_schedules_rec.attribute13;
2438: ELSIF(p_x_df_schedules_tbl(i).attribute13 = FND_API.G_MISS_CHAR) THEN
2439: p_x_df_schedules_tbl(i).attribute13 := NULL;
2440: END IF;
2441:
2442: IF (p_x_df_schedules_tbl(i).attribute14 IS NULL) THEN
2440: END IF;
2441:
2442: IF (p_x_df_schedules_tbl(i).attribute14 IS NULL) THEN
2443: p_x_df_schedules_tbl(i).attribute14 := l_df_schedules_rec.attribute14;
2444: ELSIF(p_x_df_schedules_tbl(i).attribute14 = FND_API.G_MISS_CHAR) THEN
2445: p_x_df_schedules_tbl(i).attribute14 := NULL;
2446: END IF;
2447:
2448: IF (p_x_df_schedules_tbl(i).attribute15 IS NULL) THEN
2446: END IF;
2447:
2448: IF (p_x_df_schedules_tbl(i).attribute15 IS NULL) THEN
2449: p_x_df_schedules_tbl(i).attribute15 := l_df_schedules_rec.attribute15;
2450: ELSIF(p_x_df_schedules_tbl(i).attribute15 = FND_API.G_MISS_CHAR) THEN
2451: p_x_df_schedules_tbl(i).attribute15 := NULL;
2452: END IF;
2453:
2454: END IF;
2455: CLOSE df_schedules_csr;
2456: ELSIF (p_x_df_schedules_tbl(i).operation_flag = G_OP_CREATE) THEN
2457:
2458: IF (p_x_df_schedules_tbl(i).unit_deferral_id IS NULL OR
2459: p_x_df_schedules_tbl(i).unit_deferral_id = FND_API.G_MISS_NUM) THEN
2460: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_UDID');
2461: FND_MSG_PUB.ADD;
2462: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2463: fnd_log.string
2466: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2467: 'Missing Unit Deferral ID for create operation in deferral schedule record : ' || i
2468: );
2469: END IF;
2470: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2471: END IF;
2472:
2473: IF (p_x_df_schedules_tbl(i).counter_id IS NULL OR
2474: p_x_df_schedules_tbl(i).counter_id = FND_API.G_MISS_NUM) THEN
2470: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2471: END IF;
2472:
2473: IF (p_x_df_schedules_tbl(i).counter_id IS NULL OR
2474: p_x_df_schedules_tbl(i).counter_id = FND_API.G_MISS_NUM) THEN
2475: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNT_NAME');
2476: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
2477: FND_MSG_PUB.ADD;
2478: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2485: END IF;
2486: END IF;
2487:
2488: IF (p_x_df_schedules_tbl(i).counter_value IS NULL OR
2489: p_x_df_schedules_tbl(i).counter_value = FND_API.G_MISS_NUM OR
2490: p_x_df_schedules_tbl(i).counter_value <= 0 ) THEN
2491: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNTVAL');
2492: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
2493: FND_MESSAGE.Set_Token('COUNTER_VALUE',p_x_df_schedules_tbl(i).counter_value);
2513: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2514: 'Invalid counter value type code in deferral schedule record : ' || i
2515: );
2516: END IF;
2517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2518: END IF;
2519:
2520: IF (p_x_df_schedules_tbl(i).attribute_category = FND_API.G_MISS_CHAR) THEN
2521: p_x_df_schedules_tbl(i).attribute_category := NULL;
2516: END IF;
2517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2518: END IF;
2519:
2520: IF (p_x_df_schedules_tbl(i).attribute_category = FND_API.G_MISS_CHAR) THEN
2521: p_x_df_schedules_tbl(i).attribute_category := NULL;
2522: END IF;
2523:
2524: IF (p_x_df_schedules_tbl(i).attribute1 = FND_API.G_MISS_CHAR) THEN
2520: IF (p_x_df_schedules_tbl(i).attribute_category = FND_API.G_MISS_CHAR) THEN
2521: p_x_df_schedules_tbl(i).attribute_category := NULL;
2522: END IF;
2523:
2524: IF (p_x_df_schedules_tbl(i).attribute1 = FND_API.G_MISS_CHAR) THEN
2525: p_x_df_schedules_tbl(i).attribute1 := NULL;
2526: END IF;
2527:
2528: IF (p_x_df_schedules_tbl(i).attribute2 = FND_API.G_MISS_CHAR) THEN
2524: IF (p_x_df_schedules_tbl(i).attribute1 = FND_API.G_MISS_CHAR) THEN
2525: p_x_df_schedules_tbl(i).attribute1 := NULL;
2526: END IF;
2527:
2528: IF (p_x_df_schedules_tbl(i).attribute2 = FND_API.G_MISS_CHAR) THEN
2529: p_x_df_schedules_tbl(i).attribute2 := NULL;
2530: END IF;
2531:
2532: IF (p_x_df_schedules_tbl(i).attribute3 = FND_API.G_MISS_CHAR) THEN
2528: IF (p_x_df_schedules_tbl(i).attribute2 = FND_API.G_MISS_CHAR) THEN
2529: p_x_df_schedules_tbl(i).attribute2 := NULL;
2530: END IF;
2531:
2532: IF (p_x_df_schedules_tbl(i).attribute3 = FND_API.G_MISS_CHAR) THEN
2533: p_x_df_schedules_tbl(i).attribute3 := NULL;
2534: END IF;
2535:
2536: IF (p_x_df_schedules_tbl(i).attribute4 = FND_API.G_MISS_CHAR) THEN
2532: IF (p_x_df_schedules_tbl(i).attribute3 = FND_API.G_MISS_CHAR) THEN
2533: p_x_df_schedules_tbl(i).attribute3 := NULL;
2534: END IF;
2535:
2536: IF (p_x_df_schedules_tbl(i).attribute4 = FND_API.G_MISS_CHAR) THEN
2537: p_x_df_schedules_tbl(i).attribute4 := NULL;
2538: END IF;
2539:
2540: IF (p_x_df_schedules_tbl(i).attribute5 = FND_API.G_MISS_CHAR) THEN
2536: IF (p_x_df_schedules_tbl(i).attribute4 = FND_API.G_MISS_CHAR) THEN
2537: p_x_df_schedules_tbl(i).attribute4 := NULL;
2538: END IF;
2539:
2540: IF (p_x_df_schedules_tbl(i).attribute5 = FND_API.G_MISS_CHAR) THEN
2541: p_x_df_schedules_tbl(i).attribute5 := NULL;
2542: END IF;
2543:
2544: IF (p_x_df_schedules_tbl(i).attribute6 = FND_API.G_MISS_CHAR) THEN
2540: IF (p_x_df_schedules_tbl(i).attribute5 = FND_API.G_MISS_CHAR) THEN
2541: p_x_df_schedules_tbl(i).attribute5 := NULL;
2542: END IF;
2543:
2544: IF (p_x_df_schedules_tbl(i).attribute6 = FND_API.G_MISS_CHAR) THEN
2545: p_x_df_schedules_tbl(i).attribute6 := NULL;
2546: END IF;
2547:
2548: IF (p_x_df_schedules_tbl(i).attribute7 = FND_API.G_MISS_CHAR) THEN
2544: IF (p_x_df_schedules_tbl(i).attribute6 = FND_API.G_MISS_CHAR) THEN
2545: p_x_df_schedules_tbl(i).attribute6 := NULL;
2546: END IF;
2547:
2548: IF (p_x_df_schedules_tbl(i).attribute7 = FND_API.G_MISS_CHAR) THEN
2549: p_x_df_schedules_tbl(i).attribute7 := NULL;
2550: END IF;
2551:
2552: IF (p_x_df_schedules_tbl(i).attribute8 = FND_API.G_MISS_CHAR) THEN
2548: IF (p_x_df_schedules_tbl(i).attribute7 = FND_API.G_MISS_CHAR) THEN
2549: p_x_df_schedules_tbl(i).attribute7 := NULL;
2550: END IF;
2551:
2552: IF (p_x_df_schedules_tbl(i).attribute8 = FND_API.G_MISS_CHAR) THEN
2553: p_x_df_schedules_tbl(i).attribute8 := NULL;
2554: END IF;
2555:
2556: IF (p_x_df_schedules_tbl(i).attribute9 = FND_API.G_MISS_CHAR) THEN
2552: IF (p_x_df_schedules_tbl(i).attribute8 = FND_API.G_MISS_CHAR) THEN
2553: p_x_df_schedules_tbl(i).attribute8 := NULL;
2554: END IF;
2555:
2556: IF (p_x_df_schedules_tbl(i).attribute9 = FND_API.G_MISS_CHAR) THEN
2557: p_x_df_schedules_tbl(i).attribute9 := NULL;
2558: END IF;
2559:
2560: IF (p_x_df_schedules_tbl(i).attribute10 = FND_API.G_MISS_CHAR) THEN
2556: IF (p_x_df_schedules_tbl(i).attribute9 = FND_API.G_MISS_CHAR) THEN
2557: p_x_df_schedules_tbl(i).attribute9 := NULL;
2558: END IF;
2559:
2560: IF (p_x_df_schedules_tbl(i).attribute10 = FND_API.G_MISS_CHAR) THEN
2561: p_x_df_schedules_tbl(i).attribute10 := NULL;
2562: END IF;
2563:
2564: IF (p_x_df_schedules_tbl(i).attribute11 = FND_API.G_MISS_CHAR) THEN
2560: IF (p_x_df_schedules_tbl(i).attribute10 = FND_API.G_MISS_CHAR) THEN
2561: p_x_df_schedules_tbl(i).attribute10 := NULL;
2562: END IF;
2563:
2564: IF (p_x_df_schedules_tbl(i).attribute11 = FND_API.G_MISS_CHAR) THEN
2565: p_x_df_schedules_tbl(i).attribute11 := NULL;
2566: END IF;
2567:
2568: IF (p_x_df_schedules_tbl(i).attribute12 = FND_API.G_MISS_CHAR) THEN
2564: IF (p_x_df_schedules_tbl(i).attribute11 = FND_API.G_MISS_CHAR) THEN
2565: p_x_df_schedules_tbl(i).attribute11 := NULL;
2566: END IF;
2567:
2568: IF (p_x_df_schedules_tbl(i).attribute12 = FND_API.G_MISS_CHAR) THEN
2569: p_x_df_schedules_tbl(i).attribute12 := NULL;
2570: END IF;
2571:
2572: IF (p_x_df_schedules_tbl(i).attribute13 = FND_API.G_MISS_CHAR) THEN
2568: IF (p_x_df_schedules_tbl(i).attribute12 = FND_API.G_MISS_CHAR) THEN
2569: p_x_df_schedules_tbl(i).attribute12 := NULL;
2570: END IF;
2571:
2572: IF (p_x_df_schedules_tbl(i).attribute13 = FND_API.G_MISS_CHAR) THEN
2573: p_x_df_schedules_tbl(i).attribute13 := NULL;
2574: END IF;
2575:
2576: IF (p_x_df_schedules_tbl(i).attribute14 = FND_API.G_MISS_CHAR) THEN
2572: IF (p_x_df_schedules_tbl(i).attribute13 = FND_API.G_MISS_CHAR) THEN
2573: p_x_df_schedules_tbl(i).attribute13 := NULL;
2574: END IF;
2575:
2576: IF (p_x_df_schedules_tbl(i).attribute14 = FND_API.G_MISS_CHAR) THEN
2577: p_x_df_schedules_tbl(i).attribute14 := NULL;
2578: END IF;
2579:
2580: IF (p_x_df_schedules_tbl(i).attribute15 = FND_API.G_MISS_CHAR) THEN
2576: IF (p_x_df_schedules_tbl(i).attribute14 = FND_API.G_MISS_CHAR) THEN
2577: p_x_df_schedules_tbl(i).attribute14 := NULL;
2578: END IF;
2579:
2580: IF (p_x_df_schedules_tbl(i).attribute15 = FND_API.G_MISS_CHAR) THEN
2581: p_x_df_schedules_tbl(i).attribute15 := NULL;
2582: END IF;
2583:
2584: END IF;
2585: END LOOP;
2586:
2587: -- raise expected error
2588: IF(FND_MSG_PUB.count_msg > 0)THEN
2589: RAISE FND_API.G_EXC_ERROR;
2590: END IF;
2591:
2592: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2593: fnd_log.string
2625: l_defer_due_date DATE;
2626: l_calc_due_date_flag BOOLEAN := false;
2627: l_current_counter_value NUMBER := 0;
2628:
2629: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
2630: l_msg_data VARCHAR2(4000);
2631: l_msg_count NUMBER;
2632:
2633: CURSOR curr_counter_val_csr(p_unit_deferral_id IN NUMBER, p_counter_id IN NUMBER,p_deferral_effective_on IN DATE) IS
2730: END IF;
2731: END IF;
2732:
2733: IF(FND_MSG_PUB.count_msg > 0)THEN
2734: RAISE FND_API.G_EXC_ERROR;
2735: END IF;
2736:
2737: IF(l_calc_due_date_flag)THEN
2738: -- validate counter values and populate table of counter, values to calculate due date
2776: END LOOP;
2777: CLOSE counter_values_csr;
2778: -- throw errors if any here and do not proceed.
2779: IF(FND_MSG_PUB.count_msg > 0)THEN
2780: RAISE FND_API.G_EXC_ERROR;
2781: END IF;
2782:
2783: IF((p_df_header_rec.deferral_type = G_DEFERRAL_TYPE_MR) AND
2784: (p_df_header_rec.mr_repetitive_flag = G_YES_FLAG)) THEN
2789: x_due_date => l_defer_due_date,
2790: x_return_status => l_return_status ,
2791: x_msg_data => l_msg_data,
2792: x_msg_count => l_msg_count);
2793: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2794: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_DUE_DT_CALC_ERR');
2795: FND_MSG_PUB.ADD;
2796: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2797: fnd_log.string
2800: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates',
2801: 'Calculate Due Date API threw Error'
2802: );
2803: END IF;
2804: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2805: END IF;
2806: IF(l_defer_due_date IS NOT NULL)THEN
2807: -- read whicever comes first or last code
2808: OPEN whichever_first_code_csr(p_df_header_rec.unit_effectivity_id);
2839: END IF;
2840: -- add validations here if needed in future
2841: -- throw errors if any
2842: IF(FND_MSG_PUB.count_msg > 0)THEN
2843: RAISE FND_API.G_EXC_ERROR;
2844: END IF;
2845:
2846: x_warning_msg_data := l_msg_data;
2847:
2863: l_approval_type VARCHAR2(100):='CONCEPT';
2864: l_active VARCHAR2(50):= 'N';
2865: l_process_name VARCHAR2(50);
2866: l_item_type VARCHAR2(50);
2867: l_return_status VARCHAR2(50) := FND_API.G_RET_STS_SUCCESS;
2868: l_msg_count NUMBER;
2869: l_msg_data VARCHAR2(2000);
2870:
2871: l_new_status_code VARCHAR2(30);
2890: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
2891: 'Can not submit for approval because current status is : ' || p_df_header_rec.approval_status_code
2892: );
2893: END IF;
2894: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2895: END IF;
2896:
2897: IF(valid_for_submission( p_df_header_rec.unit_effectivity_id) = FALSE)THEN
2898: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_SUB_PRC_STS');
2904: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
2905: 'Can not submit for approval because a parent or child is in pending deferral approval status'
2906: );
2907: END IF;
2908: RAISE FND_API.G_EXC_ERROR;
2909: END IF;
2910:
2911: -- Skip for UMP Deferral
2912: IF NOT(is_ump_deferral(p_df_header_rec.unit_deferral_id)) THEN
2913:
2914: AHL_PRD_WORKORDER_PVT.validate_dependencies
2915: (
2916: p_api_version => 1.0,
2917: p_init_msg_list => FND_API.G_TRUE,
2918: p_commit => FND_API.G_FALSE,
2919: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2920: p_default => FND_API.G_FALSE,
2921: p_module_type => NULL,
2914: AHL_PRD_WORKORDER_PVT.validate_dependencies
2915: (
2916: p_api_version => 1.0,
2917: p_init_msg_list => FND_API.G_TRUE,
2918: p_commit => FND_API.G_FALSE,
2919: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2920: p_default => FND_API.G_FALSE,
2921: p_module_type => NULL,
2922: x_return_status =>l_return_status,
2915: (
2916: p_api_version => 1.0,
2917: p_init_msg_list => FND_API.G_TRUE,
2918: p_commit => FND_API.G_FALSE,
2919: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2920: p_default => FND_API.G_FALSE,
2921: p_module_type => NULL,
2922: x_return_status =>l_return_status,
2923: x_msg_count =>l_msg_count,
2916: p_api_version => 1.0,
2917: p_init_msg_list => FND_API.G_TRUE,
2918: p_commit => FND_API.G_FALSE,
2919: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2920: p_default => FND_API.G_FALSE,
2921: p_module_type => NULL,
2922: x_return_status =>l_return_status,
2923: x_msg_count =>l_msg_count,
2924: x_msg_data =>l_msg_data,
2926: p_unit_effectivity_id =>p_df_header_rec.unit_effectivity_id,
2927: p_workorder_id => NULL
2928: );
2929: -- if workorders under UE has external dependencies, dont submit for approval, raise error.
2930: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2931: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2932: fnd_log.string
2933: (
2934: fnd_log.level_error,
2935: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
2936: 'Can not go ahead with aubmission of approval because Workorder dependencies exists'
2937: );
2938: END IF;
2939: RAISE FND_API.G_EXC_ERROR;
2940: END IF; -- l_return_status
2941: END IF; -- is_ump_deferral.
2942:
2943: ahl_utility_pvt.get_wf_process_name(
2969: );
2970:
2971: END IF;
2972:
2973: IF((l_return_status <> FND_API.G_RET_STS_SUCCESS) OR
2974: ( l_active <> G_YES_FLAG))THEN
2975: /*FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_WF_INACTIVE');
2976: FND_MSG_PUB.ADD;
2977: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2981: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
2982: 'Can not submit for approval because workflow is not active for Deferral'
2983: );
2984: END IF;
2985: RAISE FND_API.G_EXC_ERROR;*/
2986: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2987: fnd_log.string
2988: (
2989: fnd_log.level_statement,
3001: p_new_status => 'DEFERRAL_PENDING',
3002: x_return_status => l_return_status);
3003:
3004:
3005: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3006: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3007: fnd_log.string
3008: (
3009: fnd_log.level_error,
3010: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3011: 'Can not go ahead with approval because AHL_PRD_DF_PVT.process_approval_initiated threw error'
3012: );
3013: END IF;
3014: RAISE FND_API.G_EXC_ERROR;
3015: END IF;
3016:
3017: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3018: fnd_log.string
3050: p_unit_deferral_id => p_df_header_rec.unit_deferral_id,
3051: p_object_version_number => p_df_header_rec.object_version_number,
3052: p_new_status => l_new_status_code,
3053: x_return_status => l_return_status);
3054: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3055: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3056: fnd_log.string
3057: (
3058: fnd_log.level_error,
3059: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3060: 'Can not go ahead with automatic approval because AHL_PRD_DF_PVT.process_approval_approved threw error'
3061: );
3062: END IF;
3063: RAISE FND_API.G_EXC_ERROR;
3064: END IF;
3065: END IF;
3066:
3067: -- throw errors if any
3065: END IF;
3066:
3067: -- throw errors if any
3068: IF(FND_MSG_PUB.count_msg > 0)THEN
3069: RAISE FND_API.G_EXC_ERROR;
3070: END IF;
3071:
3072:
3073: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3142: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated.begin',
3143: 'At the start of PLSQL procedure'
3144: );
3145: END IF;
3146: x_return_status := FND_API.G_RET_STS_SUCCESS;
3147:
3148: IF NOT(is_ump_deferral(p_unit_deferral_id)) THEN
3149: process_workorders(
3150: p_unit_deferral_id => p_unit_deferral_id,
3172: 'Return status after process_workorders API call : ' || x_return_status
3173: );
3174: END IF;
3175:
3176: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
3177: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3178: fnd_log.string
3179: (
3180: fnd_log.level_unexpected,
3192: p_approval_result_code => G_DEFERRAL_INITIATED,
3193: p_new_status => NULL,
3194: x_return_status => x_return_status);
3195:
3196: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
3197: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3198: fnd_log.string
3199: (
3200: fnd_log.level_unexpected,
3264: 'At the start of PLSQL procedure'
3265: );
3266: END IF;
3267:
3268: x_return_status := FND_API.G_RET_STS_SUCCESS;
3269:
3270:
3271: /*OPEN valid_mr_csr(p_unit_deferral_id ,p_object_version_number);
3272: FETCH valid_mr_csr INTO l_exists;
3280: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
3281: 'Associated MR has been terminated in FMP'
3282: );
3283: END IF;
3284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3285: CLOSE valid_mr_csr;
3286: RETURN;
3287: END IF;
3288: CLOSE valid_mr_csr; */
3317: 'Return status after process_workorders API call : ' || x_return_status
3318: );
3319: END IF;
3320:
3321: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
3322: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3323: fnd_log.string
3324: (
3325: fnd_log.level_unexpected,
3338: p_approval_result_code => G_DEFERRAL_APPROVED,
3339: p_new_status => p_new_status,
3340: x_return_status => x_return_status);
3341:
3342: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
3343:
3344: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3345: fnd_log.string
3346: (
3373: OPEN csi_item_instance_id_csr(p_unit_deferral_id --,p_object_version_number
3374: );
3375: FETCH csi_item_instance_id_csr INTO l_csi_item_instance_id;
3376: IF(csi_item_instance_id_csr%NOTFOUND)THEN
3377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3378: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3379: fnd_log.string
3380: (
3381: fnd_log.level_unexpected,
3399: x_return_status => x_return_status ,
3400: p_csi_item_instance_id => l_csi_item_instance_id
3401: );
3402:
3403: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
3404: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3405: fnd_log.string
3406: (
3407: fnd_log.level_unexpected,
3523: );
3524: END IF;
3525:
3526: AHL_UMP_PROCESSUNIT_PVT.Process_Unit (
3527: p_commit => FND_API.G_FALSE,
3528: p_init_msg_list => FND_API.G_FALSE,
3529: x_msg_count => l_msg_count,
3530: x_msg_data => l_msg_data,
3531: x_return_status => x_return_status,
3524: END IF;
3525:
3526: AHL_UMP_PROCESSUNIT_PVT.Process_Unit (
3527: p_commit => FND_API.G_FALSE,
3528: p_init_msg_list => FND_API.G_FALSE,
3529: x_msg_count => l_msg_count,
3530: x_msg_data => l_msg_data,
3531: x_return_status => x_return_status,
3532: p_csi_item_instance_id => p_csi_item_instance_id,
3531: x_return_status => x_return_status,
3532: p_csi_item_instance_id => p_csi_item_instance_id,
3533: p_concurrent_flag => 'N');
3534:
3535: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
3536: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3537: fnd_log.string
3538: (
3539: fnd_log.level_unexpected,
3544: RETURN;
3545: END IF;
3546: END IF; */
3547:
3548: x_return_status := FND_API.G_RET_STS_SUCCESS;
3549:
3550: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3551: fnd_log.string
3552: (
3574: 'At the start of PLSQL procedure'
3575: );
3576: END IF;
3577:
3578: x_return_status := FND_API.G_RET_STS_SUCCESS;
3579:
3580: -- bypass for UMP Deferral
3581: IF NOT(Is_UMP_Deferral(p_unit_deferral_id)) THEN
3582:
3612: 'New approval status : ' || p_new_status
3613: );
3614: END IF;
3615:
3616: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
3617: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3618: fnd_log.string
3619: (
3620: fnd_log.level_unexpected,
3633: p_approval_result_code => G_DEFERRAL_REJECTED,
3634: p_new_status => NULL,
3635: x_return_status => x_return_status);
3636:
3637: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
3638: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3639: fnd_log.string
3640: (
3641: fnd_log.level_unexpected,
3805: 'At the start of PLSQL procedure'
3806: );
3807: END IF;
3808:
3809: x_return_status := FND_API.G_RET_STS_SUCCESS;
3810:
3811: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3812: fnd_log.string
3813: (
3833: FETCH unit_effectivity_id_csr INTO l_unit_effectivity_id, l_object_type;
3834: IF(unit_effectivity_id_csr%NOTFOUND)THEN
3835: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INVOP_HREC_MISS');
3836: FND_MSG_PUB.ADD;
3837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3838: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3839: fnd_log.string
3840: (
3841: fnd_log.level_unexpected,
3845: END IF;
3846: END IF;
3847: CLOSE unit_effectivity_id_csr;
3848:
3849: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
3850: RETURN;
3851: END IF;
3852:
3853: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3864: FETCH validate_approver_privilages INTO l_workorder_id;
3865: IF(validate_approver_privilages%NOTFOUND)THEN
3866: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_APPR_SETUP');
3867: FND_MSG_PUB.ADD;
3868: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3869: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3870: fnd_log.string
3871: (
3872: fnd_log.level_unexpected,
3877: END IF;
3878: CLOSE validate_approver_privilages;
3879: END IF;
3880:
3881: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
3882: RETURN;
3883: END IF;
3884:
3885: --OPEN workorder_csr(l_unit_effectivity_id);
3903: --nsikka
3904: --Changes made for Bug 5324101 .
3905: --tokens passed changed to MR_TITLE
3906:
3907: IF l_return_status = FND_API.G_TRUE THEN
3908: IF l_object_type IS NOT NULL AND l_object_type = 'SR' THEN
3909: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_DFSR_UNTLCKD');
3910: FND_MESSAGE.Set_Token('WO_NAME', workorder_rec.workorder_name);
3911: FND_MSG_PUB.ADD;
4003: FND_MESSAGE.set_name('AHL','AHL_PRD_MAT_NOT_RETURN');
4004: FND_MESSAGE.set_token('WO_STATUS', l_status_meaning);
4005: FND_MESSAGE.set_token('WO_NAME', workorder_rec.workorder_name);
4006: FND_MSG_PUB.add;
4007: x_return_status := FND_API.G_RET_STS_ERROR;
4008: END IF;
4009: CLOSE chk_inst_in_job;
4010: END IF;
4011: IF(x_return_status = FND_API.G_RET_STS_SUCCESS)THEN
4007: x_return_status := FND_API.G_RET_STS_ERROR;
4008: END IF;
4009: CLOSE chk_inst_in_job;
4010: END IF;
4011: IF(x_return_status = FND_API.G_RET_STS_SUCCESS)THEN
4012: -- call update job API
4013: AHL_PRD_WORKORDER_PVT.update_job
4014: (
4015: p_api_version => 1.0,
4012: -- call update job API
4013: AHL_PRD_WORKORDER_PVT.update_job
4014: (
4015: p_api_version => 1.0,
4016: p_init_msg_list => FND_API.G_FALSE,
4017: p_commit => FND_API.G_FALSE,
4018: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4019: p_default => FND_API.G_TRUE,
4020: p_module_type => 'API',
4013: AHL_PRD_WORKORDER_PVT.update_job
4014: (
4015: p_api_version => 1.0,
4016: p_init_msg_list => FND_API.G_FALSE,
4017: p_commit => FND_API.G_FALSE,
4018: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4019: p_default => FND_API.G_TRUE,
4020: p_module_type => 'API',
4021: x_return_status => x_return_status,
4014: (
4015: p_api_version => 1.0,
4016: p_init_msg_list => FND_API.G_FALSE,
4017: p_commit => FND_API.G_FALSE,
4018: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4019: p_default => FND_API.G_TRUE,
4020: p_module_type => 'API',
4021: x_return_status => x_return_status,
4022: x_msg_count => l_msg_count,
4015: p_api_version => 1.0,
4016: p_init_msg_list => FND_API.G_FALSE,
4017: p_commit => FND_API.G_FALSE,
4018: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4019: p_default => FND_API.G_TRUE,
4020: p_module_type => 'API',
4021: x_return_status => x_return_status,
4022: x_msg_count => l_msg_count,
4023: x_msg_data => l_msg_data,
4031: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4032: 'Status after AHL_PRD_WORKORDER_PVT.update_job API call : ' || x_return_status
4033: );
4034: END IF;
4035: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4036: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_APPR_UPD_JB_FAIL');
4037: FND_MSG_PUB.ADD;
4038: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4039: fnd_log.string
4071: -- call update job API
4072: AHL_PRD_WORKORDER_PVT.update_job
4073: (
4074: p_api_version => 1.0,
4075: p_init_msg_list => FND_API.G_FALSE,
4076: p_commit => FND_API.G_FALSE,
4077: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4078: p_default => FND_API.G_TRUE,
4079: p_module_type => 'API',
4072: AHL_PRD_WORKORDER_PVT.update_job
4073: (
4074: p_api_version => 1.0,
4075: p_init_msg_list => FND_API.G_FALSE,
4076: p_commit => FND_API.G_FALSE,
4077: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4078: p_default => FND_API.G_TRUE,
4079: p_module_type => 'API',
4080: x_return_status => x_return_status,
4073: (
4074: p_api_version => 1.0,
4075: p_init_msg_list => FND_API.G_FALSE,
4076: p_commit => FND_API.G_FALSE,
4077: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4078: p_default => FND_API.G_TRUE,
4079: p_module_type => 'API',
4080: x_return_status => x_return_status,
4081: x_msg_count => l_msg_count,
4074: p_api_version => 1.0,
4075: p_init_msg_list => FND_API.G_FALSE,
4076: p_commit => FND_API.G_FALSE,
4077: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4078: p_default => FND_API.G_TRUE,
4079: p_module_type => 'API',
4080: x_return_status => x_return_status,
4081: x_msg_count => l_msg_count,
4082: x_msg_data => l_msg_data,
4090: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4091: 'Status after AHL_PRD_WORKORDER_PVT.update_job API call : ' || x_return_status
4092: );
4093: END IF;
4094: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4095: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_APPR_UPD_JB_FAIL');
4096: FND_MSG_PUB.ADD;
4097: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4098: fnd_log.string
4114:
4115: AHL_COMPLETIONS_PVT.defer_workorder
4116: (
4117: p_api_version => 1.0,
4118: p_init_msg_list => FND_API.G_FALSE,
4119: p_commit => FND_API.G_FALSE,
4120: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4121: p_default => FND_API.G_TRUE,
4122: p_module_type => 'API',
4115: AHL_COMPLETIONS_PVT.defer_workorder
4116: (
4117: p_api_version => 1.0,
4118: p_init_msg_list => FND_API.G_FALSE,
4119: p_commit => FND_API.G_FALSE,
4120: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4121: p_default => FND_API.G_TRUE,
4122: p_module_type => 'API',
4123: x_return_status => x_return_status,
4116: (
4117: p_api_version => 1.0,
4118: p_init_msg_list => FND_API.G_FALSE,
4119: p_commit => FND_API.G_FALSE,
4120: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4121: p_default => FND_API.G_TRUE,
4122: p_module_type => 'API',
4123: x_return_status => x_return_status,
4124: x_msg_count => l_msg_count,
4117: p_api_version => 1.0,
4118: p_init_msg_list => FND_API.G_FALSE,
4119: p_commit => FND_API.G_FALSE,
4120: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4121: p_default => FND_API.G_TRUE,
4122: p_module_type => 'API',
4123: x_return_status => x_return_status,
4124: x_msg_count => l_msg_count,
4125: x_msg_data => l_msg_data,
4133: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4134: 'Status after AHL_COMPLETIONS_PVT.defer_workorder API call : ' || x_return_status
4135: );
4136: END IF;
4137: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4138: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_APPR_CMP_JB_FAIL');
4139: FND_MSG_PUB.ADD;
4140: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4141: fnd_log.string
4178: IF (p_approval_result_code = G_DEFERRAL_APPROVED)THEN
4179: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
4180: (
4181: p_api_version => 1.0,
4182: p_init_msg_list => FND_API.G_TRUE,
4183: p_commit => FND_API.G_FALSE,
4184: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4185: p_default => FND_API.G_FALSE,
4186: p_module_type => 'API',
4179: AHL_PRD_WORKORDER_PVT.cancel_visit_jobs
4180: (
4181: p_api_version => 1.0,
4182: p_init_msg_list => FND_API.G_TRUE,
4183: p_commit => FND_API.G_FALSE,
4184: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4185: p_default => FND_API.G_FALSE,
4186: p_module_type => 'API',
4187: x_return_status => x_return_status,
4180: (
4181: p_api_version => 1.0,
4182: p_init_msg_list => FND_API.G_TRUE,
4183: p_commit => FND_API.G_FALSE,
4184: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4185: p_default => FND_API.G_FALSE,
4186: p_module_type => 'API',
4187: x_return_status => x_return_status,
4188: x_msg_count => l_msg_count,
4181: p_api_version => 1.0,
4182: p_init_msg_list => FND_API.G_TRUE,
4183: p_commit => FND_API.G_FALSE,
4184: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4185: p_default => FND_API.G_FALSE,
4186: p_module_type => 'API',
4187: x_return_status => x_return_status,
4188: x_msg_count => l_msg_count,
4189: x_msg_data => l_msg_data,
4190: p_visit_id => NULL,
4191: p_unit_effectivity_id => l_unit_effectivity_id,
4192: p_workorder_id => NULL
4193: );
4194: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4195: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_APPR_CMP_JB_FAIL');
4196: FND_MSG_PUB.ADD;
4197: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4198: fnd_log.string
4386: 'At the start of PLSQL procedure'
4387: );
4388: END IF;
4389:
4390: x_return_status := FND_API.G_RET_STS_SUCCESS;
4391:
4392: OPEN unit_effectivity_id_csr(p_unit_deferral_id ,p_object_version_number);
4393: FETCH unit_effectivity_id_csr INTO l_unit_effectivity_id;
4394: IF(unit_effectivity_id_csr%NOTFOUND)THEN
4402: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4403: 'Deferral record details not found for unit deferral id : ' || p_unit_deferral_id
4404: );
4405: END IF;
4406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4407: END IF;
4408: CLOSE unit_effectivity_id_csr;
4409:
4410: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4407: END IF;
4408: CLOSE unit_effectivity_id_csr;
4409:
4410: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4411: RETURN;
4412: END IF;
4413:
4414: IF(p_approval_result_code = G_DEFERRAL_APPROVED)THEN
4605: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4606: 'Wrong SR incident id: ' || l_cs_incident_id
4607: );
4608: END IF;
4609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4610: RETURN;
4611: END IF;
4612:
4613: -- Support for cancelled SRs.
4627: -- Call SR Update_Status API
4628: CS_ServiceRequest_PUB.Update_Status
4629: (
4630: p_api_version => 2.0,
4631: p_init_msg_list => FND_API.G_FALSE,
4632: p_commit => FND_API.G_FALSE,
4633: p_resp_appl_id => NULL,
4634: p_resp_id => NULL,
4635: p_user_id => NULL,
4628: CS_ServiceRequest_PUB.Update_Status
4629: (
4630: p_api_version => 2.0,
4631: p_init_msg_list => FND_API.G_FALSE,
4632: p_commit => FND_API.G_FALSE,
4633: p_resp_appl_id => NULL,
4634: p_resp_id => NULL,
4635: p_user_id => NULL,
4636: p_login_id => NULL,
4637: --p_status_id => 1, --OPEN
4638: p_status_id => l_status_id,
4639: p_closed_date => NULL,
4640: p_audit_comments => NULL,
4641: p_called_by_workflow => FND_API.G_FALSE,
4642: p_workflow_process_id => NULL,
4643: p_comments => NULL,
4644: p_public_comment_flag => FND_API.G_FALSE,
4645: p_validate_sr_closure => 'N',
4640: p_audit_comments => NULL,
4641: p_called_by_workflow => FND_API.G_FALSE,
4642: p_workflow_process_id => NULL,
4643: p_comments => NULL,
4644: p_public_comment_flag => FND_API.G_FALSE,
4645: p_validate_sr_closure => 'N',
4646: p_auto_close_child_entities => 'N',
4647: p_request_id => NULL,
4648: p_request_number => l_cs_incident_number,
4655: );
4656: -- yazhou 29-Jun-2006 ends
4657:
4658: -- Abort if any error in calling the SR Update_Status API...
4659: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
4660: THEN
4661: x_return_status := l_return_status;
4662: RETURN;
4663: END IF;
4986: -- Procedure to get deferral details attached to any unit effectivity --
4987: --------------------------------------------------------------------------
4988: PROCEDURE get_deferral_details (
4989:
4990: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4991: p_unit_effectivity_id IN NUMBER,
4992: x_df_header_info_rec OUT NOCOPY AHL_PRD_DF_PVT.df_header_info_rec_type,
4993: x_df_schedules_tbl OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type,
4994: x_return_status OUT NOCOPY VARCHAR2,
5117: 'At the start of PLSQL procedure'
5118: );
5119: END IF;
5120: -- Initialize message list if p_init_msg_list is set to TRUE
5121: IF FND_API.To_Boolean( p_init_msg_list) THEN
5122: FND_MSG_PUB.Initialize;
5123: END IF;
5124: -- Initialize API return status to success
5125: x_return_status := FND_API.G_RET_STS_SUCCESS;
5121: IF FND_API.To_Boolean( p_init_msg_list) THEN
5122: FND_MSG_PUB.Initialize;
5123: END IF;
5124: -- Initialize API return status to success
5125: x_return_status := FND_API.G_RET_STS_SUCCESS;
5126:
5127: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5128: fnd_log.string
5129: (
5132: 'Got request for deferral record of Unit effectivity ID : ' || p_unit_effectivity_id
5133: );
5134: END IF;
5135:
5136: IF(p_unit_effectivity_id IS NULL OR p_unit_effectivity_id = FND_API.G_MISS_NUM)THEN
5137: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_HREC_KMISS');
5138: FND_MSG_PUB.ADD;
5139: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5140: fnd_log.string
5143: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5144: 'Invalid request, Unit Effectivity IS NULL'
5145: );
5146: END IF;
5147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5148: END IF;
5149: --get applicable ue id and find out whether deferral record should be shown.
5150: l_applicable_ue_id := get_applicable_ue(p_unit_effectivity_id);
5151:
5150: l_applicable_ue_id := get_applicable_ue(p_unit_effectivity_id);
5151:
5152: -- throw errors if any
5153: IF(FND_MSG_PUB.count_msg > 0)THEN
5154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5155: END IF;
5156:
5157: IF(l_applicable_ue_id IS NULL)THEN
5158: l_applicable_ue_id := p_unit_effectivity_id;
5188: 'Unit Effectivity record not found'
5189: );
5190: END IF;
5191: CLOSE context_info_csr;
5192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5193: END IF;
5194: CLOSE context_info_csr;
5195:
5196:
5209: 'Invalid unit effectivity record, mr status meaning not found'
5210: );
5211: END IF;
5212: CLOSE mr_status_meaning_csr;
5213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5214: END IF;
5215: CLOSE mr_status_meaning_csr;
5216:
5217: -- fill in visit information
5229: 'Visit Information not found'
5230: );
5231: END IF;
5232: CLOSE visit_info_csr;
5233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5234: END IF;
5235: */
5236: CLOSE visit_info_csr;
5237:
5254: END IF;
5255:
5256: -- throw errors if any
5257: IF(FND_MSG_PUB.count_msg > 0)THEN
5258: RAISE FND_API.G_EXC_ERROR;
5259: END IF;
5260: -- fetch deferral header record
5261: OPEN df_header_info_csr(l_applicable_ue_id);
5262: FETCH df_header_info_csr INTO l_df_header_info_rec.unit_deferral_id,
5288: CLOSE df_header_info_csr;
5289:
5290: -- throw errors if any
5291: IF(FND_MSG_PUB.count_msg > 0)THEN
5292: RAISE FND_API.G_EXC_ERROR;
5293: END IF;
5294:
5295: -- fetch deferral schedule rec
5296: IF(l_df_header_info_rec.unit_deferral_id IS NOT NULL)THEN
5312: END IF;
5313:
5314: -- throw errors if any
5315: IF(FND_MSG_PUB.count_msg > 0)THEN
5316: RAISE FND_API.G_EXC_ERROR;
5317: END IF;
5318:
5319: x_df_header_info_rec := l_df_header_info_rec;
5320: x_df_schedules_tbl := l_df_schedules_tbl;
5329: );
5330: END IF;
5331:
5332: EXCEPTION
5333: WHEN FND_API.G_EXC_ERROR THEN
5334: x_df_header_info_rec := l_df_header_info_rec;
5335: x_df_schedules_tbl := l_df_schedules_tbl;
5336: x_return_status := FND_API.G_RET_STS_ERROR;
5337: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5332: EXCEPTION
5333: WHEN FND_API.G_EXC_ERROR THEN
5334: x_df_header_info_rec := l_df_header_info_rec;
5335: x_df_schedules_tbl := l_df_schedules_tbl;
5336: x_return_status := FND_API.G_RET_STS_ERROR;
5337: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5338: p_data => x_msg_data,
5339: p_encoded => fnd_api.g_false);
5340:
5335: x_df_schedules_tbl := l_df_schedules_tbl;
5336: x_return_status := FND_API.G_RET_STS_ERROR;
5337: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5338: p_data => x_msg_data,
5339: p_encoded => fnd_api.g_false);
5340:
5341:
5342: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5343: x_df_header_info_rec := l_df_header_info_rec;
5338: p_data => x_msg_data,
5339: p_encoded => fnd_api.g_false);
5340:
5341:
5342: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5343: x_df_header_info_rec := l_df_header_info_rec;
5344: x_df_schedules_tbl := l_df_schedules_tbl;
5345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5346: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5341:
5342: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5343: x_df_header_info_rec := l_df_header_info_rec;
5344: x_df_schedules_tbl := l_df_schedules_tbl;
5345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5346: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5347: p_data => x_msg_data,
5348: p_encoded => fnd_api.g_false);
5349:
5344: x_df_schedules_tbl := l_df_schedules_tbl;
5345: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5346: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5347: p_data => x_msg_data,
5348: p_encoded => fnd_api.g_false);
5349:
5350:
5351: WHEN OTHERS THEN
5352: x_df_header_info_rec := l_df_header_info_rec;
5350:
5351: WHEN OTHERS THEN
5352: x_df_header_info_rec := l_df_header_info_rec;
5353: x_df_schedules_tbl := l_df_schedules_tbl;
5354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5355: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5356: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
5357: p_procedure_name => l_api_name,
5358: p_error_text => SUBSTR(SQLERRM,1,500));
5358: p_error_text => SUBSTR(SQLERRM,1,500));
5359: END IF;
5360: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5361: p_data => x_msg_data,
5362: p_encoded => fnd_api.g_false);
5363: END get_deferral_details;
5364:
5365: FUNCTION get_applicable_ue(
5366: p_unit_effectivity_id NUMBER) RETURN NUMBER IS