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
172: fnd_log.string
173: (
174: fnd_log.level_procedure,
175: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral.begin',
168: l_warning_msg_data VARCHAR2(4000);
169:
170: BEGIN
171: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
172: fnd_log.string
173: (
174: fnd_log.level_procedure,
175: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral.begin',
176: 'At the start of PLSQL procedure'
170: BEGIN
171: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
172: fnd_log.string
173: (
174: fnd_log.level_procedure,
175: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral.begin',
176: 'At the start of PLSQL procedure'
177: );
178: END IF;
189: IF FND_API.To_Boolean( p_init_msg_list) THEN
190: FND_MSG_PUB.Initialize;
191: END IF;
192:
193: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
194: fnd_log.string
195: (
196: fnd_log.level_statement,
197: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
190: FND_MSG_PUB.Initialize;
191: END IF;
192:
193: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
194: fnd_log.string
195: (
196: fnd_log.level_statement,
197: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
198: 'p_init_message_list : ' || p_init_msg_list
192:
193: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
194: fnd_log.string
195: (
196: fnd_log.level_statement,
197: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
198: 'p_init_message_list : ' || p_init_msg_list
199: );
200: fnd_log.string
196: fnd_log.level_statement,
197: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
198: 'p_init_message_list : ' || p_init_msg_list
199: );
200: fnd_log.string
201: (
202: fnd_log.level_statement,
203: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
204: 'p_commit : ' || p_commit
198: 'p_init_message_list : ' || p_init_msg_list
199: );
200: fnd_log.string
201: (
202: fnd_log.level_statement,
203: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
204: 'p_commit : ' || p_commit
205: );
206: fnd_log.string
202: fnd_log.level_statement,
203: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
204: 'p_commit : ' || p_commit
205: );
206: fnd_log.string
207: (
208: fnd_log.level_statement,
209: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
210: 'p_validation_level : ' || p_validation_level
204: 'p_commit : ' || p_commit
205: );
206: fnd_log.string
207: (
208: fnd_log.level_statement,
209: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
210: 'p_validation_level : ' || p_validation_level
211: );
212: fnd_log.string
208: fnd_log.level_statement,
209: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
210: 'p_validation_level : ' || p_validation_level
211: );
212: fnd_log.string
213: (
214: fnd_log.level_statement,
215: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
216: 'p_module_type : ' || p_module_type
210: 'p_validation_level : ' || p_validation_level
211: );
212: fnd_log.string
213: (
214: fnd_log.level_statement,
215: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
216: 'p_module_type : ' || p_module_type
217: );
218: END IF;
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: (
225: fnd_log.level_statement,
226: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
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: (
225: fnd_log.level_statement,
226: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
227: 'Logging deferral header record prior to processing'
221:
222: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
223: fnd_log.string
224: (
225: fnd_log.level_statement,
226: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
227: 'Logging deferral header record prior to processing'
228: );
229: log_df_header(p_df_header_rec => p_x_df_header_rec);
232: process_df_header(
233: p_x_df_header_rec => p_x_df_header_rec
234: );
235:
236: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
237: fnd_log.string
238: (
239: fnd_log.level_statement,
240: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
233: p_x_df_header_rec => p_x_df_header_rec
234: );
235:
236: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
237: fnd_log.string
238: (
239: fnd_log.level_statement,
240: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
241: 'Logging deferral header record after processing'
235:
236: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
237: fnd_log.string
238: (
239: fnd_log.level_statement,
240: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
241: 'Logging deferral header record after processing'
242: );
243: log_df_header(p_df_header_rec => p_x_df_header_rec);
243: log_df_header(p_df_header_rec => p_x_df_header_rec);
244: END IF;
245:
246:
247: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
248: fnd_log.string
249: (
250: fnd_log.level_statement,
251: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
244: END IF;
245:
246:
247: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
248: fnd_log.string
249: (
250: fnd_log.level_statement,
251: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
252: 'Number of records in schedules : ' || p_x_df_schedules_tbl.count
246:
247: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
248: fnd_log.string
249: (
250: fnd_log.level_statement,
251: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
252: 'Number of records in schedules : ' || p_x_df_schedules_tbl.count
253: );
254: fnd_log.string
250: fnd_log.level_statement,
251: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
252: 'Number of records in schedules : ' || p_x_df_schedules_tbl.count
253: );
254: fnd_log.string
255: (
256: fnd_log.level_statement,
257: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
258: 'Logging deferral schedule records before processing'
252: 'Number of records in schedules : ' || p_x_df_schedules_tbl.count
253: );
254: fnd_log.string
255: (
256: fnd_log.level_statement,
257: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
258: 'Logging deferral schedule records before processing'
259: );
260: IF(p_x_df_schedules_tbl.count > 0)THEN
270: process_df_schedules(
271: p_df_header_rec => p_x_df_header_rec,
272: p_x_df_schedules_tbl => p_x_df_schedules_tbl
273: );
274: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
275: fnd_log.string
276: (
277: fnd_log.level_statement,
278: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
271: p_df_header_rec => p_x_df_header_rec,
272: p_x_df_schedules_tbl => p_x_df_schedules_tbl
273: );
274: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
275: fnd_log.string
276: (
277: fnd_log.level_statement,
278: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
279: 'Logging deferral schedule records after processing'
273: );
274: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
275: fnd_log.string
276: (
277: fnd_log.level_statement,
278: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
279: 'Logging deferral schedule records after processing'
280: );
281: log_df_schedules(p_df_schedules_tbl => p_x_df_schedules_tbl);
292: );
293: END IF;
294:
295: IF G_OP_SUBMIT_FOR_APPROVAL THEN
296: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
297: fnd_log.string
298: (
299: fnd_log.level_event,
300: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
293: END IF;
294:
295: IF G_OP_SUBMIT_FOR_APPROVAL THEN
296: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
297: fnd_log.string
298: (
299: fnd_log.level_event,
300: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
301: 'Submitting for Aprroval Unit Deferral ID : ' || p_x_df_header_rec.unit_deferral_id ||
295: IF G_OP_SUBMIT_FOR_APPROVAL THEN
296: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
297: fnd_log.string
298: (
299: fnd_log.level_event,
300: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
301: 'Submitting for Aprroval Unit Deferral ID : ' || p_x_df_header_rec.unit_deferral_id ||
302: ' Object Version Number : ' || p_x_df_header_rec.object_version_number
303: );
330: x_msg_count := 1;
331: x_msg_data := l_warning_msg_data;
332: END IF;
333:
334: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
335: fnd_log.string
336: (
337: fnd_log.level_procedure,
338: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral.end',
331: x_msg_data := l_warning_msg_data;
332: END IF;
333:
334: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
335: fnd_log.string
336: (
337: fnd_log.level_procedure,
338: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral.end',
339: 'At the end of PLSQL procedure'
333:
334: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
335: fnd_log.string
336: (
337: fnd_log.level_procedure,
338: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral.end',
339: 'At the end of PLSQL procedure'
340: );
341: END IF;
478: l_exists VARCHAR2(1);
479:
480:
481: BEGIN
482: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
483: fnd_log.string
484: (
485: fnd_log.level_procedure,
486: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header.begin',
479:
480:
481: BEGIN
482: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
483: fnd_log.string
484: (
485: fnd_log.level_procedure,
486: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header.begin',
487: 'At the start of PLSQL procedure'
481: BEGIN
482: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
483: fnd_log.string
484: (
485: fnd_log.level_procedure,
486: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header.begin',
487: 'At the start of PLSQL procedure'
488: );
489: END IF;
514: -- raise error if input keys are wrong.
515: IF(l_input_key_error_flag)THEN
516: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_HREC_KMISS');
517: FND_MSG_PUB.ADD;
518: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
519: fnd_log.string
520: (
521: fnd_log.level_unexpected,
522: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header',
515: IF(l_input_key_error_flag)THEN
516: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_HREC_KMISS');
517: FND_MSG_PUB.ADD;
518: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
519: fnd_log.string
520: (
521: fnd_log.level_unexpected,
522: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header',
523: 'Input Keys are missing or invalid'
517: FND_MSG_PUB.ADD;
518: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
519: fnd_log.string
520: (
521: fnd_log.level_unexpected,
522: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header',
523: 'Input Keys are missing or invalid'
524: );
525: END IF;
536: l_manually_planned_flag;
537: IF(unit_effectivity_info_csr%NOTFOUND) THEN
538: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_HREC_UE_ID');
539: FND_MSG_PUB.ADD;
540: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
541: fnd_log.string
542: (
543: fnd_log.level_unexpected,
544: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header',
537: IF(unit_effectivity_info_csr%NOTFOUND) THEN
538: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_HREC_UE_ID');
539: FND_MSG_PUB.ADD;
540: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
541: fnd_log.string
542: (
543: fnd_log.level_unexpected,
544: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header',
545: 'unit effectivity record not found'
539: FND_MSG_PUB.ADD;
540: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
541: fnd_log.string
542: (
543: fnd_log.level_unexpected,
544: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header',
545: 'unit effectivity record not found'
546: );
547: END IF;
550: ELSE
551: IF(l_orig_deferral_ue_id IS NOT NULL) THEN
552: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_HREC_UE_ID');
553: FND_MSG_PUB.ADD;
554: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
555: fnd_log.string
556: (
557: fnd_log.level_unexpected,
558: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header',
551: IF(l_orig_deferral_ue_id IS NOT NULL) THEN
552: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_HREC_UE_ID');
553: FND_MSG_PUB.ADD;
554: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
555: fnd_log.string
556: (
557: fnd_log.level_unexpected,
558: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header',
559: 'unit effectivity record not found'
553: FND_MSG_PUB.ADD;
554: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
555: fnd_log.string
556: (
557: fnd_log.level_unexpected,
558: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header',
559: 'unit effectivity record not found'
560: );
561: END IF;
564: ELSIF((NVL(l_ue_status_code,'x') IN ('ACCOMPLISHED','DEFERRED','EXCEPTION','TERMINATED','CANCELLED','MR-TERMINATE'))
565: OR (NVL(l_def_status_code,'x')IN ('DEFERRED','DEFERRAL_PENDING','TERMINATED','CANCELLED')))THEN
566: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_MRSR_STATUS');
567: FND_MSG_PUB.ADD;
568: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
569: fnd_log.string
570: (
571: fnd_log.level_error,
572: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header',
565: OR (NVL(l_def_status_code,'x')IN ('DEFERRED','DEFERRAL_PENDING','TERMINATED','CANCELLED')))THEN
566: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_MRSR_STATUS');
567: FND_MSG_PUB.ADD;
568: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
569: fnd_log.string
570: (
571: fnd_log.level_error,
572: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header',
573: 'Status of MR or SR is not valid for deferral'
567: FND_MSG_PUB.ADD;
568: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
569: fnd_log.string
570: (
571: fnd_log.level_error,
572: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header',
573: 'Status of MR or SR is not valid for deferral'
574: );
575: END IF;
621: END IF;
622: -- doing defaulting before validation because of future OA needs
623: default_unchanged_df_header(p_x_df_header_rec => p_x_df_header_rec);
624:
625: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
626: fnd_log.string
627: (
628: fnd_log.level_statement,
629: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header',
622: -- doing defaulting before validation because of future OA needs
623: default_unchanged_df_header(p_x_df_header_rec => p_x_df_header_rec);
624:
625: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
626: fnd_log.string
627: (
628: fnd_log.level_statement,
629: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header',
630: 'Dumping deferral header record prior to validating'
624:
625: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
626: fnd_log.string
627: (
628: fnd_log.level_statement,
629: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header',
630: 'Dumping deferral header record prior to validating'
631: );
632: log_df_header(p_df_header_rec => p_x_df_header_rec);
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
758: (
759: fnd_log.level_procedure,
760: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header.end',
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
758: (
759: fnd_log.level_procedure,
760: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header.end',
761: 'At the end of PLSQL procedure'
755:
756: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
757: fnd_log.string
758: (
759: fnd_log.level_procedure,
760: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header.end',
761: 'At the end of PLSQL procedure'
762: );
763: END IF;
769: PROCEDURE log_df_header(
770: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type) IS
771:
772: BEGIN
773: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
774: fnd_log.string
775: (
776: fnd_log.level_statement,
777: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
770: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type) IS
771:
772: BEGIN
773: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
774: fnd_log.string
775: (
776: fnd_log.level_statement,
777: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
778: 'p_x_df_header_rec.operation_flag : ' || p_df_header_rec.operation_flag
772: BEGIN
773: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
774: fnd_log.string
775: (
776: fnd_log.level_statement,
777: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
778: 'p_x_df_header_rec.operation_flag : ' || p_df_header_rec.operation_flag
779: );
780: fnd_log.string
776: fnd_log.level_statement,
777: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
778: 'p_x_df_header_rec.operation_flag : ' || p_df_header_rec.operation_flag
779: );
780: fnd_log.string
781: (
782: fnd_log.level_statement,
783: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
784: 'p_x_df_header_rec.unit_deferral_id : ' || p_df_header_rec.unit_deferral_id
778: 'p_x_df_header_rec.operation_flag : ' || p_df_header_rec.operation_flag
779: );
780: fnd_log.string
781: (
782: fnd_log.level_statement,
783: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
784: 'p_x_df_header_rec.unit_deferral_id : ' || p_df_header_rec.unit_deferral_id
785: );
786: fnd_log.string
782: fnd_log.level_statement,
783: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
784: 'p_x_df_header_rec.unit_deferral_id : ' || p_df_header_rec.unit_deferral_id
785: );
786: fnd_log.string
787: (
788: fnd_log.level_statement,
789: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
790: 'p_x_df_header_rec.object_version_number : ' || p_df_header_rec.object_version_number
784: 'p_x_df_header_rec.unit_deferral_id : ' || p_df_header_rec.unit_deferral_id
785: );
786: fnd_log.string
787: (
788: fnd_log.level_statement,
789: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
790: 'p_x_df_header_rec.object_version_number : ' || p_df_header_rec.object_version_number
791: );
792: fnd_log.string
788: fnd_log.level_statement,
789: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
790: 'p_x_df_header_rec.object_version_number : ' || p_df_header_rec.object_version_number
791: );
792: fnd_log.string
793: (
794: fnd_log.level_statement,
795: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
796: 'p_x_df_header_rec.unit_effectivity_id : ' || p_df_header_rec.unit_effectivity_id
790: 'p_x_df_header_rec.object_version_number : ' || p_df_header_rec.object_version_number
791: );
792: fnd_log.string
793: (
794: fnd_log.level_statement,
795: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
796: 'p_x_df_header_rec.unit_effectivity_id : ' || p_df_header_rec.unit_effectivity_id
797: );
798: fnd_log.string
794: fnd_log.level_statement,
795: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
796: 'p_x_df_header_rec.unit_effectivity_id : ' || p_df_header_rec.unit_effectivity_id
797: );
798: fnd_log.string
799: (
800: fnd_log.level_statement,
801: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
802: 'p_x_df_header_rec.defer_reason_code : ' || p_df_header_rec.defer_reason_code
796: 'p_x_df_header_rec.unit_effectivity_id : ' || p_df_header_rec.unit_effectivity_id
797: );
798: fnd_log.string
799: (
800: fnd_log.level_statement,
801: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
802: 'p_x_df_header_rec.defer_reason_code : ' || p_df_header_rec.defer_reason_code
803: );
804: fnd_log.string
800: fnd_log.level_statement,
801: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
802: 'p_x_df_header_rec.defer_reason_code : ' || p_df_header_rec.defer_reason_code
803: );
804: fnd_log.string
805: (
806: fnd_log.level_statement,
807: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
808: 'p_x_df_header_rec.remarks : ' || p_df_header_rec.remarks
802: 'p_x_df_header_rec.defer_reason_code : ' || p_df_header_rec.defer_reason_code
803: );
804: fnd_log.string
805: (
806: fnd_log.level_statement,
807: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
808: 'p_x_df_header_rec.remarks : ' || p_df_header_rec.remarks
809: );
810: fnd_log.string
806: fnd_log.level_statement,
807: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
808: 'p_x_df_header_rec.remarks : ' || p_df_header_rec.remarks
809: );
810: fnd_log.string
811: (
812: fnd_log.level_statement,
813: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
814: 'p_x_df_header_rec.skip_mr_flag : ' || p_df_header_rec.skip_mr_flag
808: 'p_x_df_header_rec.remarks : ' || p_df_header_rec.remarks
809: );
810: fnd_log.string
811: (
812: fnd_log.level_statement,
813: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
814: 'p_x_df_header_rec.skip_mr_flag : ' || p_df_header_rec.skip_mr_flag
815: );
816: fnd_log.string
812: fnd_log.level_statement,
813: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
814: 'p_x_df_header_rec.skip_mr_flag : ' || p_df_header_rec.skip_mr_flag
815: );
816: fnd_log.string
817: (
818: fnd_log.level_statement,
819: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
820: 'p_x_df_header_rec.cancel_flag : ' || p_df_header_rec.cancel_flag
814: 'p_x_df_header_rec.skip_mr_flag : ' || p_df_header_rec.skip_mr_flag
815: );
816: fnd_log.string
817: (
818: fnd_log.level_statement,
819: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
820: 'p_x_df_header_rec.cancel_flag : ' || p_df_header_rec.cancel_flag
821: );
822: fnd_log.string
818: fnd_log.level_statement,
819: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
820: 'p_x_df_header_rec.cancel_flag : ' || p_df_header_rec.cancel_flag
821: );
822: fnd_log.string
823: (
824: fnd_log.level_statement,
825: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
826: 'p_x_df_header_rec.affect_due_calc_flag : ' || p_df_header_rec.affect_due_calc_flag
820: 'p_x_df_header_rec.cancel_flag : ' || p_df_header_rec.cancel_flag
821: );
822: fnd_log.string
823: (
824: fnd_log.level_statement,
825: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
826: 'p_x_df_header_rec.affect_due_calc_flag : ' || p_df_header_rec.affect_due_calc_flag
827: );
828: fnd_log.string
824: fnd_log.level_statement,
825: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
826: 'p_x_df_header_rec.affect_due_calc_flag : ' || p_df_header_rec.affect_due_calc_flag
827: );
828: fnd_log.string
829: (
830: fnd_log.level_statement,
831: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
832: 'p_x_df_header_rec.set_due_date : ' || p_df_header_rec.set_due_date
826: 'p_x_df_header_rec.affect_due_calc_flag : ' || p_df_header_rec.affect_due_calc_flag
827: );
828: fnd_log.string
829: (
830: fnd_log.level_statement,
831: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
832: 'p_x_df_header_rec.set_due_date : ' || p_df_header_rec.set_due_date
833: );
834: fnd_log.string
830: fnd_log.level_statement,
831: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
832: 'p_x_df_header_rec.set_due_date : ' || p_df_header_rec.set_due_date
833: );
834: fnd_log.string
835: (
836: fnd_log.level_statement,
837: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
838: 'p_x_df_header_rec.deferral_effective_on : ' || p_df_header_rec.deferral_effective_on
832: 'p_x_df_header_rec.set_due_date : ' || p_df_header_rec.set_due_date
833: );
834: fnd_log.string
835: (
836: fnd_log.level_statement,
837: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
838: 'p_x_df_header_rec.deferral_effective_on : ' || p_df_header_rec.deferral_effective_on
839: );
840: fnd_log.string
836: fnd_log.level_statement,
837: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
838: 'p_x_df_header_rec.deferral_effective_on : ' || p_df_header_rec.deferral_effective_on
839: );
840: fnd_log.string
841: (
842: fnd_log.level_statement,
843: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
844: 'p_x_df_header_rec.deferral_type : ' || p_df_header_rec.deferral_type
838: 'p_x_df_header_rec.deferral_effective_on : ' || p_df_header_rec.deferral_effective_on
839: );
840: fnd_log.string
841: (
842: fnd_log.level_statement,
843: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
844: 'p_x_df_header_rec.deferral_type : ' || p_df_header_rec.deferral_type
845: );
846: fnd_log.string
842: fnd_log.level_statement,
843: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
844: 'p_x_df_header_rec.deferral_type : ' || p_df_header_rec.deferral_type
845: );
846: fnd_log.string
847: (
848: fnd_log.level_statement,
849: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
850: 'p_x_df_header_rec.mr_repetitive_flag : ' || p_df_header_rec.mr_repetitive_flag
844: 'p_x_df_header_rec.deferral_type : ' || p_df_header_rec.deferral_type
845: );
846: fnd_log.string
847: (
848: fnd_log.level_statement,
849: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
850: 'p_x_df_header_rec.mr_repetitive_flag : ' || p_df_header_rec.mr_repetitive_flag
851: );
852: fnd_log.string
848: fnd_log.level_statement,
849: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
850: 'p_x_df_header_rec.mr_repetitive_flag : ' || p_df_header_rec.mr_repetitive_flag
851: );
852: fnd_log.string
853: (
854: fnd_log.level_statement,
855: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
856: 'p_x_df_header_rec.reset_counter_flag : ' || p_df_header_rec.reset_counter_flag
850: 'p_x_df_header_rec.mr_repetitive_flag : ' || p_df_header_rec.mr_repetitive_flag
851: );
852: fnd_log.string
853: (
854: fnd_log.level_statement,
855: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
856: 'p_x_df_header_rec.reset_counter_flag : ' || p_df_header_rec.reset_counter_flag
857: );
858: fnd_log.string
854: fnd_log.level_statement,
855: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
856: 'p_x_df_header_rec.reset_counter_flag : ' || p_df_header_rec.reset_counter_flag
857: );
858: fnd_log.string
859: (
860: fnd_log.level_statement,
861: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
862: 'p_x_df_header_rec.manually_planned_flag : ' || p_df_header_rec.manually_planned_flag
856: 'p_x_df_header_rec.reset_counter_flag : ' || p_df_header_rec.reset_counter_flag
857: );
858: fnd_log.string
859: (
860: fnd_log.level_statement,
861: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
862: 'p_x_df_header_rec.manually_planned_flag : ' || p_df_header_rec.manually_planned_flag
863: );
864: fnd_log.string
860: fnd_log.level_statement,
861: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
862: 'p_x_df_header_rec.manually_planned_flag : ' || p_df_header_rec.manually_planned_flag
863: );
864: fnd_log.string
865: (
866: fnd_log.level_statement,
867: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
868: 'user id : ' || FND_GLOBAL.USER_ID()
862: 'p_x_df_header_rec.manually_planned_flag : ' || p_df_header_rec.manually_planned_flag
863: );
864: fnd_log.string
865: (
866: fnd_log.level_statement,
867: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
868: 'user id : ' || FND_GLOBAL.USER_ID()
869: );
870: fnd_log.string
866: fnd_log.level_statement,
867: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
868: 'user id : ' || FND_GLOBAL.USER_ID()
869: );
870: fnd_log.string
871: (
872: fnd_log.level_statement,
873: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
874: 'resp id : ' || FND_GLOBAL.RESP_ID()
868: 'user id : ' || FND_GLOBAL.USER_ID()
869: );
870: fnd_log.string
871: (
872: fnd_log.level_statement,
873: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
874: 'resp id : ' || FND_GLOBAL.RESP_ID()
875: );
876: fnd_log.string
872: fnd_log.level_statement,
873: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
874: 'resp id : ' || FND_GLOBAL.RESP_ID()
875: );
876: fnd_log.string
877: (
878: fnd_log.level_statement,
879: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
880: 'resp appl id : ' || FND_GLOBAL.resp_appl_id()
874: 'resp id : ' || FND_GLOBAL.RESP_ID()
875: );
876: fnd_log.string
877: (
878: fnd_log.level_statement,
879: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
880: 'resp appl id : ' || FND_GLOBAL.resp_appl_id()
881: );
882: END IF;
1012: AND rownum < 2;
1013:
1014: BEGIN
1015:
1016: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1017: fnd_log.string
1018: (
1019: fnd_log.level_procedure,
1020: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header.begin',
1013:
1014: BEGIN
1015:
1016: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1017: fnd_log.string
1018: (
1019: fnd_log.level_procedure,
1020: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header.begin',
1021: 'At the start of PLSQL procedure'
1015:
1016: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1017: fnd_log.string
1018: (
1019: fnd_log.level_procedure,
1020: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header.begin',
1021: 'At the start of PLSQL procedure'
1022: );
1023: END IF;
1024:
1025: IF(p_df_header_rec.operation_flag IS NOT NULL AND p_df_header_rec.operation_flag NOT IN(G_OP_CREATE,G_OP_UPDATE,G_OP_DELETE))THEN
1026: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_HD_OP_FLAG');
1027: FND_MSG_PUB.ADD;
1028: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1029: fnd_log.string ( fnd_log.level_unexpected, 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1030: 'Operation Flag is invalid in the header record' );
1031: END IF;
1032: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1025: IF(p_df_header_rec.operation_flag IS NOT NULL AND p_df_header_rec.operation_flag NOT IN(G_OP_CREATE,G_OP_UPDATE,G_OP_DELETE))THEN
1026: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_HD_OP_FLAG');
1027: FND_MSG_PUB.ADD;
1028: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1029: fnd_log.string ( fnd_log.level_unexpected, 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1030: 'Operation Flag is invalid in the header record' );
1031: END IF;
1032: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1033: ELSE
1043: FETCH wo_exists_csr INTO l_exists;
1044: IF (wo_exists_csr%NOTFOUND and p_df_header_rec.cancel_flag = G_YES_FLAG) THEN
1045: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_UMP_SR_MR_CAN');
1046: FND_MSG_PUB.ADD;
1047: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1048: fnd_log.string
1049: (
1050: fnd_log.level_error,
1051: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1044: IF (wo_exists_csr%NOTFOUND and p_df_header_rec.cancel_flag = G_YES_FLAG) THEN
1045: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_UMP_SR_MR_CAN');
1046: FND_MSG_PUB.ADD;
1047: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1048: fnd_log.string
1049: (
1050: fnd_log.level_error,
1051: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1052: 'This MR/SR can not be cancelled from Unit Maintenance Plan.'
1046: FND_MSG_PUB.ADD;
1047: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1048: fnd_log.string
1049: (
1050: fnd_log.level_error,
1051: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1052: 'This MR/SR can not be cancelled from Unit Maintenance Plan.'
1053: );
1054: END IF;
1072: FETCH valid_deferral_csr INTO l_exists;
1073: IF(valid_deferral_csr%NOTFOUND) THEN
1074: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_MRSR_STATUS');
1075: FND_MSG_PUB.ADD;
1076: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
1077: fnd_log.string ( fnd_log.level_unexpected, 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1078: 'invalid mr or sr status invalid for update or delete 1' );
1079: END IF;
1080: CLOSE valid_deferral_csr;
1073: IF(valid_deferral_csr%NOTFOUND) THEN
1074: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_MRSR_STATUS');
1075: FND_MSG_PUB.ADD;
1076: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
1077: fnd_log.string ( fnd_log.level_unexpected, 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1078: 'invalid mr or sr status invalid for update or delete 1' );
1079: END IF;
1080: CLOSE valid_deferral_csr;
1081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1093: CLOSE is_orig_ue_nonserial;
1094: IF (l_serial_number IS NULL) THEN
1095: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_NS_DF_INVALID');
1096: FND_MSG_PUB.ADD;
1097: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1098: fnd_log.string
1099: (
1100: fnd_log.level_unexpected,
1101: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1094: IF (l_serial_number IS NULL) THEN
1095: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_NS_DF_INVALID');
1096: FND_MSG_PUB.ADD;
1097: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1098: fnd_log.string
1099: (
1100: fnd_log.level_unexpected,
1101: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1102: 'cannot defer child MR when parent MR is based on non-serial SR'
1096: FND_MSG_PUB.ADD;
1097: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1098: fnd_log.string
1099: (
1100: fnd_log.level_unexpected,
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;
1116: FETCH deferral_rec_exists_csr INTO l_exists;
1117: IF(deferral_rec_exists_csr%FOUND)THEN
1118: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_HD_OP_REXIST');
1119: FND_MSG_PUB.ADD;
1120: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1121: fnd_log.string
1122: (
1123: fnd_log.level_unexpected,
1124: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1117: IF(deferral_rec_exists_csr%FOUND)THEN
1118: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_HD_OP_REXIST');
1119: FND_MSG_PUB.ADD;
1120: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1121: fnd_log.string
1122: (
1123: fnd_log.level_unexpected,
1124: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1125: 'Deferral record exist while operation flag is create'
1119: FND_MSG_PUB.ADD;
1120: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1121: fnd_log.string
1122: (
1123: fnd_log.level_unexpected,
1124: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1125: 'Deferral record exist while operation flag is create'
1126: );
1127: END IF;
1133: -- check whether status is nothing but draft while creating record for deferral
1134: IF(p_df_header_rec.approval_status_code <> 'DRAFT')THEN
1135: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_APPR_STATUS');
1136: FND_MSG_PUB.ADD;
1137: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1138: fnd_log.string
1139: (
1140: fnd_log.level_unexpected,
1141: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1134: IF(p_df_header_rec.approval_status_code <> 'DRAFT')THEN
1135: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_APPR_STATUS');
1136: FND_MSG_PUB.ADD;
1137: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1138: fnd_log.string
1139: (
1140: fnd_log.level_unexpected,
1141: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1142: 'approval status is not DRAFT while creating a deferral record'
1136: FND_MSG_PUB.ADD;
1137: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1138: fnd_log.string
1139: (
1140: fnd_log.level_unexpected,
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;
1152: FETCH valid_deferral_up_csr INTO l_exists;
1153: IF(valid_deferral_up_csr%NOTFOUND)THEN
1154: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_MRSR_STATUS');
1155: FND_MSG_PUB.ADD;
1156: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1157: fnd_log.string
1158: (
1159: fnd_log.level_unexpected,
1160: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1153: IF(valid_deferral_up_csr%NOTFOUND)THEN
1154: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_MRSR_STATUS');
1155: FND_MSG_PUB.ADD;
1156: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1157: fnd_log.string
1158: (
1159: fnd_log.level_unexpected,
1160: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1161: 'approval status invalid for update or delete : ue_id : ' || p_df_header_rec.unit_deferral_id
1155: FND_MSG_PUB.ADD;
1156: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1157: fnd_log.string
1158: (
1159: fnd_log.level_unexpected,
1160: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1161: 'approval status invalid for update or delete : ue_id : ' || p_df_header_rec.unit_deferral_id
1162: );
1163: END IF;
1176: -- general validations for flags
1177: IF(p_df_header_rec.cancel_flag NOT IN(G_YES_FLAG,G_NO_FLAG))THEN
1178: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CANCEL_FLAG');
1179: FND_MSG_PUB.ADD;
1180: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1181: fnd_log.string
1182: (
1183: fnd_log.level_unexpected,
1184: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1177: IF(p_df_header_rec.cancel_flag NOT IN(G_YES_FLAG,G_NO_FLAG))THEN
1178: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CANCEL_FLAG');
1179: FND_MSG_PUB.ADD;
1180: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1181: fnd_log.string
1182: (
1183: fnd_log.level_unexpected,
1184: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1185: 'Cancel flag is not Y or N'
1179: FND_MSG_PUB.ADD;
1180: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1181: fnd_log.string
1182: (
1183: fnd_log.level_unexpected,
1184: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1185: 'Cancel flag is not Y or N'
1186: );
1187: END IF;
1189: END IF;
1190: IF(p_df_header_rec.skip_mr_flag NOT IN(G_YES_FLAG,G_NO_FLAG))THEN
1191: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_SKIP_FLAG');
1192: FND_MSG_PUB.ADD;
1193: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1194: fnd_log.string
1195: (
1196: fnd_log.level_unexpected,
1197: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1190: IF(p_df_header_rec.skip_mr_flag NOT IN(G_YES_FLAG,G_NO_FLAG))THEN
1191: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_SKIP_FLAG');
1192: FND_MSG_PUB.ADD;
1193: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1194: fnd_log.string
1195: (
1196: fnd_log.level_unexpected,
1197: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1198: 'Skip flag is not Y or N'
1192: FND_MSG_PUB.ADD;
1193: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1194: fnd_log.string
1195: (
1196: fnd_log.level_unexpected,
1197: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1198: 'Skip flag is not Y or N'
1199: );
1200: END IF;
1202: END IF;
1203: IF(p_df_header_rec.affect_due_calc_flag NOT IN(G_YES_FLAG,G_NO_FLAG))THEN
1204: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_AFFDUE_FLAG');
1205: FND_MSG_PUB.ADD;
1206: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1207: fnd_log.string
1208: (
1209: fnd_log.level_unexpected,
1210: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1203: IF(p_df_header_rec.affect_due_calc_flag NOT IN(G_YES_FLAG,G_NO_FLAG))THEN
1204: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_AFFDUE_FLAG');
1205: FND_MSG_PUB.ADD;
1206: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1207: fnd_log.string
1208: (
1209: fnd_log.level_unexpected,
1210: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1211: 'Affect Due Calc Flag is not Y or N'
1205: FND_MSG_PUB.ADD;
1206: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1207: fnd_log.string
1208: (
1209: fnd_log.level_unexpected,
1210: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1211: 'Affect Due Calc Flag is not Y or N'
1212: );
1213: END IF;
1232: trunc(p_df_header_rec.set_due_date) < trunc(SYSDATE))) THEN
1233: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_SET_DUE_DT');
1234: FND_MESSAGE.Set_Token('SET_DUE_DATE',p_df_header_rec.set_due_date);
1235: FND_MSG_PUB.ADD;
1236: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1237: fnd_log.string
1238: (
1239: fnd_log.level_error,
1240: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1233: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_SET_DUE_DT');
1234: FND_MESSAGE.Set_Token('SET_DUE_DATE',p_df_header_rec.set_due_date);
1235: FND_MSG_PUB.ADD;
1236: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1237: fnd_log.string
1238: (
1239: fnd_log.level_error,
1240: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1241: 'Set due date cant be null or less than system date '
1235: FND_MSG_PUB.ADD;
1236: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1237: fnd_log.string
1238: (
1239: fnd_log.level_error,
1240: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1241: 'Set due date cant be null or less than system date '
1242: );
1243: END IF;
1247: p_df_header_rec.deferral_effective_on > SYSDATE) THEN
1248: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_DF_EFF_DT');
1249: FND_MESSAGE.Set_Token('DEFERRAL_EFFECTIVE_ON',p_df_header_rec.deferral_effective_on);
1250: FND_MSG_PUB.ADD;
1251: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1252: fnd_log.string
1253: (
1254: fnd_log.level_error,
1255: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1248: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_DF_EFF_DT');
1249: FND_MESSAGE.Set_Token('DEFERRAL_EFFECTIVE_ON',p_df_header_rec.deferral_effective_on);
1250: FND_MSG_PUB.ADD;
1251: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1252: fnd_log.string
1253: (
1254: fnd_log.level_error,
1255: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1256: 'Deferral Effective On Date can not be null or greater than system date '
1250: FND_MSG_PUB.ADD;
1251: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1252: fnd_log.string
1253: (
1254: fnd_log.level_error,
1255: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1256: 'Deferral Effective On Date can not be null or greater than system date '
1257: );
1258: END IF;
1289: IF(p_df_header_rec.mr_repetitive_flag = G_NO_FLAG AND
1290: p_df_header_rec.skip_mr_flag = G_YES_FLAG AND l_mr_applicable = FND_API.G_TRUE) THEN
1291: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_SKIP_FLAG');
1292: FND_MSG_PUB.ADD;
1293: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1294: fnd_log.string
1295: (
1296: fnd_log.level_unexpected,
1297: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1290: p_df_header_rec.skip_mr_flag = G_YES_FLAG AND l_mr_applicable = FND_API.G_TRUE) THEN
1291: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_SKIP_FLAG');
1292: FND_MSG_PUB.ADD;
1293: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1294: fnd_log.string
1295: (
1296: fnd_log.level_unexpected,
1297: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1298: 'Skip MR flag is Y while MR is not repetitive'
1292: FND_MSG_PUB.ADD;
1293: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1294: fnd_log.string
1295: (
1296: fnd_log.level_unexpected,
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;
1305: IF(p_df_header_rec.affect_due_calc_flag = G_NO_FLAG AND
1306: p_df_header_rec.reset_counter_flag = G_YES_FLAG) THEN
1307: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_AFFDUE_FLAG');
1308: FND_MSG_PUB.ADD;
1309: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1310: fnd_log.string
1311: (
1312: fnd_log.level_unexpected,
1313: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1306: p_df_header_rec.reset_counter_flag = G_YES_FLAG) THEN
1307: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_AFFDUE_FLAG');
1308: FND_MSG_PUB.ADD;
1309: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1310: fnd_log.string
1311: (
1312: fnd_log.level_unexpected,
1313: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1314: 'MR has resettable counters so affect due cal flag cant be N '
1308: FND_MSG_PUB.ADD;
1309: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1310: fnd_log.string
1311: (
1312: fnd_log.level_unexpected,
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;
1319: ELSE -- MR is being terminated or cancelled
1320: IF(p_df_header_rec.affect_due_calc_flag = G_YES_FLAG) THEN
1321: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_AFFDUE_FLAG');
1322: FND_MSG_PUB.ADD;
1323: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1324: fnd_log.string
1325: (
1326: fnd_log.level_unexpected,
1327: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1320: IF(p_df_header_rec.affect_due_calc_flag = G_YES_FLAG) THEN
1321: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_AFFDUE_FLAG');
1322: FND_MSG_PUB.ADD;
1323: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1324: fnd_log.string
1325: (
1326: fnd_log.level_unexpected,
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 '
1322: FND_MSG_PUB.ADD;
1323: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1324: fnd_log.string
1325: (
1326: fnd_log.level_unexpected,
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;
1340: CLOSE is_sr_ue_nonserial;
1341: IF (l_serial_number IS NULL) THEN
1342: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_NS_DF_INVALID');
1343: FND_MSG_PUB.ADD;
1344: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1345: fnd_log.string
1346: (
1347: fnd_log.level_unexpected,
1348: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1341: IF (l_serial_number IS NULL) THEN
1342: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_NS_DF_INVALID');
1343: FND_MSG_PUB.ADD;
1344: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1345: fnd_log.string
1346: (
1347: fnd_log.level_unexpected,
1348: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1349: 'cannot defer SR based on non-serial item'
1343: FND_MSG_PUB.ADD;
1344: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1345: fnd_log.string
1346: (
1347: fnd_log.level_unexpected,
1348: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1349: 'cannot defer SR based on non-serial item'
1350: );
1351: END IF;
1355:
1356: IF(p_df_header_rec.cancel_flag = G_NO_FLAG AND p_df_header_rec.affect_due_calc_flag = G_NO_FLAG)THEN
1357: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_AFFDUE_FLAG');
1358: FND_MSG_PUB.ADD;
1359: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1360: fnd_log.string
1361: (
1362: fnd_log.level_unexpected,
1363: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1356: IF(p_df_header_rec.cancel_flag = G_NO_FLAG AND p_df_header_rec.affect_due_calc_flag = G_NO_FLAG)THEN
1357: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_AFFDUE_FLAG');
1358: FND_MSG_PUB.ADD;
1359: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1360: fnd_log.string
1361: (
1362: fnd_log.level_unexpected,
1363: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1364: 'For SR, affect due date flag can not be N '
1358: FND_MSG_PUB.ADD;
1359: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1360: fnd_log.string
1361: (
1362: fnd_log.level_unexpected,
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;
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
1380: (
1381: fnd_log.level_procedure,
1382: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header.end',
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
1380: (
1381: fnd_log.level_procedure,
1382: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header.end',
1383: 'At the end of PLSQL procedure'
1377:
1378: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1379: fnd_log.string
1380: (
1381: fnd_log.level_procedure,
1382: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header.end',
1383: 'At the end of PLSQL procedure'
1384: );
1385: END IF;
1405:
1406: l_exists VARCHAR2(1);
1407:
1408: BEGIN
1409: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1410: fnd_log.string
1411: (
1412: fnd_log.level_procedure,
1413: 'ahl.plsql.AHL_PRD_DF_PVT.validate_reason_codes.begin',
1406: l_exists VARCHAR2(1);
1407:
1408: BEGIN
1409: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1410: fnd_log.string
1411: (
1412: fnd_log.level_procedure,
1413: 'ahl.plsql.AHL_PRD_DF_PVT.validate_reason_codes.begin',
1414: 'At the start of PLSQL procedure'
1408: BEGIN
1409: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1410: fnd_log.string
1411: (
1412: fnd_log.level_procedure,
1413: 'ahl.plsql.AHL_PRD_DF_PVT.validate_reason_codes.begin',
1414: 'At the start of PLSQL procedure'
1415: );
1416: END IF;
1423: FETCH val_reason_code_csr INTO l_exists;
1424: IF(val_reason_code_csr%NOTFOUND) THEN
1425: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_RSN_CODE');
1426: FND_MSG_PUB.ADD;
1427: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1428: fnd_log.string
1429: (
1430: fnd_log.level_unexpected,
1431: 'ahl.plsql.AHL_PRD_DF_PVT.validate_reason_codes',
1424: IF(val_reason_code_csr%NOTFOUND) THEN
1425: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_RSN_CODE');
1426: FND_MSG_PUB.ADD;
1427: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1428: fnd_log.string
1429: (
1430: fnd_log.level_unexpected,
1431: 'ahl.plsql.AHL_PRD_DF_PVT.validate_reason_codes',
1432: 'Reason code is not defined in lookups '
1426: FND_MSG_PUB.ADD;
1427: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1428: fnd_log.string
1429: (
1430: fnd_log.level_unexpected,
1431: 'ahl.plsql.AHL_PRD_DF_PVT.validate_reason_codes',
1432: 'Reason code is not defined in lookups '
1433: );
1434: END IF;
1443: FETCH val_reason_code_csr INTO l_exists;
1444: IF(val_reason_code_csr%NOTFOUND) THEN
1445: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_RSN_CODE');
1446: FND_MSG_PUB.ADD;
1447: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1448: fnd_log.string
1449: (
1450: fnd_log.level_unexpected,
1451: 'ahl.plsql.AHL_PRD_DF_PVT.validate_reason_codes',
1444: IF(val_reason_code_csr%NOTFOUND) THEN
1445: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_RSN_CODE');
1446: FND_MSG_PUB.ADD;
1447: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1448: fnd_log.string
1449: (
1450: fnd_log.level_unexpected,
1451: 'ahl.plsql.AHL_PRD_DF_PVT.validate_reason_codes',
1452: 'Reason code is not defined in lookups '
1446: FND_MSG_PUB.ADD;
1447: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1448: fnd_log.string
1449: (
1450: fnd_log.level_unexpected,
1451: 'ahl.plsql.AHL_PRD_DF_PVT.validate_reason_codes',
1452: 'Reason code is not defined in lookups '
1453: );
1454: END IF;
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
1471: (
1472: fnd_log.level_procedure,
1473: 'ahl.plsql.AHL_PRD_DF_PVT.validate_reason_codes.end',
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
1471: (
1472: fnd_log.level_procedure,
1473: 'ahl.plsql.AHL_PRD_DF_PVT.validate_reason_codes.end',
1474: 'At the end of PLSQL procedure'
1468:
1469: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1470: fnd_log.string
1471: (
1472: fnd_log.level_procedure,
1473: 'ahl.plsql.AHL_PRD_DF_PVT.validate_reason_codes.end',
1474: 'At the end of PLSQL procedure'
1475: );
1476: END IF;
1497:
1498: l_df_header_rec AHL_PRD_DF_PVT.df_header_Rec_type;
1499:
1500: BEGIN
1501: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1502: fnd_log.string
1503: (
1504: fnd_log.level_procedure,
1505: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header.begin',
1498: l_df_header_rec AHL_PRD_DF_PVT.df_header_Rec_type;
1499:
1500: BEGIN
1501: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1502: fnd_log.string
1503: (
1504: fnd_log.level_procedure,
1505: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header.begin',
1506: 'At the start of PLSQL procedure'
1500: BEGIN
1501: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1502: fnd_log.string
1503: (
1504: fnd_log.level_procedure,
1505: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header.begin',
1506: 'At the start of PLSQL procedure'
1507: );
1508: END IF;
1521: l_df_header_rec.attribute15;
1522: IF (df_header_csr%NOTFOUND) THEN
1523: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INVOP_HREC_MISS');
1524: FND_MSG_PUB.ADD;
1525: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1526: fnd_log.string
1527: (
1528: fnd_log.level_error,
1529: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header',
1522: IF (df_header_csr%NOTFOUND) THEN
1523: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INVOP_HREC_MISS');
1524: FND_MSG_PUB.ADD;
1525: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1526: fnd_log.string
1527: (
1528: fnd_log.level_error,
1529: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header',
1530: 'Missing Deferral Header Record'
1524: FND_MSG_PUB.ADD;
1525: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1526: fnd_log.string
1527: (
1528: fnd_log.level_error,
1529: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header',
1530: 'Missing Deferral Header Record'
1531: );
1532: END IF;
1535: p_x_df_header_rec.unit_effectivity_id := l_df_header_rec.unit_effectivity_id;
1536: ELSIF(p_x_df_header_rec.unit_effectivity_id <> l_df_header_rec.unit_effectivity_id ) THEN
1537: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_UE');
1538: FND_MSG_PUB.ADD;
1539: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1540: fnd_log.string
1541: (
1542: fnd_log.level_unexpected,
1543: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header',
1536: ELSIF(p_x_df_header_rec.unit_effectivity_id <> l_df_header_rec.unit_effectivity_id ) THEN
1537: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_UE');
1538: FND_MSG_PUB.ADD;
1539: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1540: fnd_log.string
1541: (
1542: fnd_log.level_unexpected,
1543: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header',
1544: 'Unit Effectivity ID does not match with deferral header record'
1538: FND_MSG_PUB.ADD;
1539: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1540: fnd_log.string
1541: (
1542: fnd_log.level_unexpected,
1543: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header',
1544: 'Unit Effectivity ID does not match with deferral header record'
1545: );
1546: END IF;
1552: p_x_df_header_rec.unit_deferral_type := l_df_header_rec.unit_deferral_type;
1553: ELSIF(p_x_df_header_rec.unit_deferral_type <> l_df_header_rec.unit_deferral_type) THEN
1554: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_UDF_TYPE');
1555: FND_MSG_PUB.ADD;
1556: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1557: fnd_log.string
1558: (
1559: fnd_log.level_unexpected,
1560: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header',
1553: ELSIF(p_x_df_header_rec.unit_deferral_type <> l_df_header_rec.unit_deferral_type) THEN
1554: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_UDF_TYPE');
1555: FND_MSG_PUB.ADD;
1556: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1557: fnd_log.string
1558: (
1559: fnd_log.level_unexpected,
1560: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header',
1561: 'Unit Deferral Type does not match with deferral header record'
1555: FND_MSG_PUB.ADD;
1556: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1557: fnd_log.string
1558: (
1559: fnd_log.level_unexpected,
1560: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header',
1561: 'Unit Deferral Type does not match with deferral header record'
1562: );
1563: END IF;
1569: p_x_df_header_rec.approval_status_code := l_df_header_rec.approval_status_code;
1570: ELSIF(p_x_df_header_rec.approval_status_code <> l_df_header_rec.approval_status_code) THEN
1571: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_APPR_STATUS');
1572: FND_MSG_PUB.ADD;
1573: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1574: fnd_log.string
1575: (
1576: fnd_log.level_unexpected,
1577: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header',
1570: ELSIF(p_x_df_header_rec.approval_status_code <> l_df_header_rec.approval_status_code) THEN
1571: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_APPR_STATUS');
1572: FND_MSG_PUB.ADD;
1573: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1574: fnd_log.string
1575: (
1576: fnd_log.level_unexpected,
1577: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header',
1578: 'Approval status code can not be modified'
1572: FND_MSG_PUB.ADD;
1573: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1574: fnd_log.string
1575: (
1576: fnd_log.level_unexpected,
1577: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header',
1578: 'Approval status code can not be modified'
1579: );
1580: END IF;
1628: p_x_df_header_rec.approver_notes := l_df_header_rec.approver_notes;
1629: ELSIF(p_x_df_header_rec.approver_notes <> l_df_header_rec.approver_notes) THEN
1630: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_APPR_NOTES');
1631: FND_MSG_PUB.ADD;
1632: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1633: fnd_log.string
1634: (
1635: fnd_log.level_unexpected,
1636: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header',
1629: ELSIF(p_x_df_header_rec.approver_notes <> l_df_header_rec.approver_notes) THEN
1630: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_APPR_NOTES');
1631: FND_MSG_PUB.ADD;
1632: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1633: fnd_log.string
1634: (
1635: fnd_log.level_unexpected,
1636: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header',
1637: 'approver notes can not be updated by this API'
1631: FND_MSG_PUB.ADD;
1632: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1633: fnd_log.string
1634: (
1635: fnd_log.level_unexpected,
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;
1743: IF (p_x_df_header_rec.unit_effectivity_id IS NULL OR
1744: p_x_df_header_rec.unit_effectivity_id = FND_API.G_MISS_NUM) THEN
1745: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_UE');
1746: FND_MSG_PUB.ADD;
1747: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1748: fnd_log.string
1749: (
1750: fnd_log.level_unexpected,
1751: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header',
1744: p_x_df_header_rec.unit_effectivity_id = FND_API.G_MISS_NUM) THEN
1745: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_UE');
1746: FND_MSG_PUB.ADD;
1747: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1748: fnd_log.string
1749: (
1750: fnd_log.level_unexpected,
1751: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header',
1752: 'Unit effectivity ID can not be null while creating deferral header record'
1746: FND_MSG_PUB.ADD;
1747: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1748: fnd_log.string
1749: (
1750: fnd_log.level_unexpected,
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;
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
1875: (
1876: fnd_log.level_procedure,
1877: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header.end',
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
1875: (
1876: fnd_log.level_procedure,
1877: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header.end',
1878: 'At the end of PLSQL procedure'
1872:
1873: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1874: fnd_log.string
1875: (
1876: fnd_log.level_procedure,
1877: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header.end',
1878: 'At the end of PLSQL procedure'
1879: );
1880: END IF;
1895: l_counter_id NUMBER;
1896:
1897: BEGIN
1898:
1899: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1900: fnd_log.string
1901: (
1902: fnd_log.level_procedure,
1903: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules.begin',
1896:
1897: BEGIN
1898:
1899: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1900: fnd_log.string
1901: (
1902: fnd_log.level_procedure,
1903: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules.begin',
1904: 'At the start of PLSQL procedure'
1898:
1899: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1900: fnd_log.string
1901: (
1902: fnd_log.level_procedure,
1903: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules.begin',
1904: 'At the start of PLSQL procedure'
1905: );
1906: END IF;
1909: -- key requirements
1910: IF(p_x_df_schedules_tbl(i).operation_flag NOT IN (G_OP_CREATE,G_OP_UPDATE,G_OP_DELETE)) THEN
1911: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_INV_OP');
1912: FND_MSG_PUB.ADD;
1913: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1914: fnd_log.string
1915: (
1916: fnd_log.level_unexpected,
1917: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1910: IF(p_x_df_schedules_tbl(i).operation_flag NOT IN (G_OP_CREATE,G_OP_UPDATE,G_OP_DELETE)) THEN
1911: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_INV_OP');
1912: FND_MSG_PUB.ADD;
1913: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1914: fnd_log.string
1915: (
1916: fnd_log.level_unexpected,
1917: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1918: 'Operation Flag is invalid in the schedule record : ' || i
1912: FND_MSG_PUB.ADD;
1913: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1914: fnd_log.string
1915: (
1916: fnd_log.level_unexpected,
1917: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1918: 'Operation Flag is invalid in the schedule record : ' || i
1919: );
1920: END IF;
1923: IF(p_x_df_schedules_tbl(i).unit_threshold_id IS NULL OR
1924: p_x_df_schedules_tbl(i).object_version_number IS NULL) THEN
1925: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_REC_KEY_MISS');
1926: FND_MSG_PUB.ADD;
1927: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1928: fnd_log.string
1929: (
1930: fnd_log.level_unexpected,
1931: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1924: p_x_df_schedules_tbl(i).object_version_number IS NULL) THEN
1925: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_REC_KEY_MISS');
1926: FND_MSG_PUB.ADD;
1927: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1928: fnd_log.string
1929: (
1930: fnd_log.level_unexpected,
1931: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1932: 'Object version number or key missing in schedule record : ' || i
1926: FND_MSG_PUB.ADD;
1927: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1928: fnd_log.string
1929: (
1930: fnd_log.level_unexpected,
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;
1936: ELSIF (p_x_df_schedules_tbl(i).unit_deferral_id IS NOT NULL AND
1937: p_x_df_schedules_tbl(i).unit_deferral_id <> p_df_header_rec.unit_deferral_id) THEN
1938: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_HDR_MISS');
1939: FND_MSG_PUB.ADD;
1940: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1941: fnd_log.string
1942: (
1943: fnd_log.level_unexpected,
1944: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1937: p_x_df_schedules_tbl(i).unit_deferral_id <> p_df_header_rec.unit_deferral_id) THEN
1938: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_HDR_MISS');
1939: FND_MSG_PUB.ADD;
1940: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1941: fnd_log.string
1942: (
1943: fnd_log.level_unexpected,
1944: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1945: 'Unit Deferral ID does not match in schedule record : ' || i
1939: FND_MSG_PUB.ADD;
1940: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1941: fnd_log.string
1942: (
1943: fnd_log.level_unexpected,
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;
1951: IF(p_x_df_schedules_tbl(i).unit_threshold_id IS NOT NULL OR
1952: p_x_df_schedules_tbl(i).object_version_number IS NOT NULL) THEN
1953: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_INV_OP');
1954: FND_MSG_PUB.ADD;
1955: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1956: fnd_log.string
1957: (
1958: fnd_log.level_unexpected,
1959: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1952: p_x_df_schedules_tbl(i).object_version_number IS NOT NULL) THEN
1953: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_INV_OP');
1954: FND_MSG_PUB.ADD;
1955: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1956: fnd_log.string
1957: (
1958: fnd_log.level_unexpected,
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
1954: FND_MSG_PUB.ADD;
1955: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1956: fnd_log.string
1957: (
1958: fnd_log.level_unexpected,
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;
1967: p_x_df_schedules_tbl(i).unit_deferral_id := p_df_header_rec.unit_deferral_id;
1968: ELSIF(p_x_df_schedules_tbl(i).unit_deferral_id <> p_df_header_rec.unit_deferral_id)THEN
1969: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_HDR_MISS');
1970: FND_MSG_PUB.ADD;
1971: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1972: fnd_log.string
1973: (
1974: fnd_log.level_unexpected,
1975: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1968: ELSIF(p_x_df_schedules_tbl(i).unit_deferral_id <> p_df_header_rec.unit_deferral_id)THEN
1969: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_HDR_MISS');
1970: FND_MSG_PUB.ADD;
1971: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1972: fnd_log.string
1973: (
1974: fnd_log.level_unexpected,
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
1970: FND_MSG_PUB.ADD;
1971: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1972: fnd_log.string
1973: (
1974: fnd_log.level_unexpected,
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;
1986: IF(counter_id_csr%NOTFOUND)THEN
1987: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNT_NAME');
1988: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
1989: FND_MSG_PUB.ADD;
1990: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1991: fnd_log.string
1992: (
1993: fnd_log.level_error,
1994: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1987: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNT_NAME');
1988: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
1989: FND_MSG_PUB.ADD;
1990: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1991: fnd_log.string
1992: (
1993: fnd_log.level_error,
1994: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1995: 'Invalid Counter name for schedule record : ' || i
1989: FND_MSG_PUB.ADD;
1990: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1991: fnd_log.string
1992: (
1993: fnd_log.level_error,
1994: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1995: 'Invalid Counter name for schedule record : ' || i
1996: );
1997: END IF;
2008: END IF;
2009:
2010: default_unchanged_df_schedules(p_x_df_schedules_tbl => p_x_df_schedules_tbl);
2011:
2012: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2013: fnd_log.string
2014: (
2015: fnd_log.level_statement,
2016: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
2009:
2010: default_unchanged_df_schedules(p_x_df_schedules_tbl => p_x_df_schedules_tbl);
2011:
2012: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2013: fnd_log.string
2014: (
2015: fnd_log.level_statement,
2016: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
2017: 'Logging deferral schedule records prior to validations'
2011:
2012: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2013: fnd_log.string
2014: (
2015: fnd_log.level_statement,
2016: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
2017: 'Logging deferral schedule records prior to validations'
2018: );
2019: log_df_schedules(p_df_schedules_tbl => p_x_df_schedules_tbl);
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
2126: (
2127: fnd_log.level_procedure,
2128: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules.end',
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
2126: (
2127: fnd_log.level_procedure,
2128: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules.end',
2129: 'At the end of PLSQL procedure'
2123:
2124: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2125: fnd_log.string
2126: (
2127: fnd_log.level_procedure,
2128: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules.end',
2129: 'At the end of PLSQL procedure'
2130: );
2131: END IF;
2137: PROCEDURE log_df_schedules(
2138: p_df_schedules_tbl IN AHL_PRD_DF_PVT.df_schedules_tbl_type) IS
2139:
2140: BEGIN
2141: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2142: FOR i IN p_df_schedules_tbl.FIRST..p_df_schedules_tbl.LAST LOOP
2143: fnd_log.string
2144: (
2145: fnd_log.level_statement,
2139:
2140: BEGIN
2141: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2142: FOR i IN p_df_schedules_tbl.FIRST..p_df_schedules_tbl.LAST LOOP
2143: fnd_log.string
2144: (
2145: fnd_log.level_statement,
2146: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2147: 'p_df_schedules_tbl('|| i ||').operation_flag : ' || p_df_schedules_tbl(i).operation_flag
2141: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2142: FOR i IN p_df_schedules_tbl.FIRST..p_df_schedules_tbl.LAST LOOP
2143: fnd_log.string
2144: (
2145: fnd_log.level_statement,
2146: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2147: 'p_df_schedules_tbl('|| i ||').operation_flag : ' || p_df_schedules_tbl(i).operation_flag
2148: );
2149: fnd_log.string
2145: fnd_log.level_statement,
2146: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2147: 'p_df_schedules_tbl('|| i ||').operation_flag : ' || p_df_schedules_tbl(i).operation_flag
2148: );
2149: fnd_log.string
2150: (
2151: fnd_log.level_statement,
2152: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2153: 'p_df_schedules_tbl('|| i ||').unit_threshold_id : ' || p_df_schedules_tbl(i).unit_threshold_id
2147: 'p_df_schedules_tbl('|| i ||').operation_flag : ' || p_df_schedules_tbl(i).operation_flag
2148: );
2149: fnd_log.string
2150: (
2151: fnd_log.level_statement,
2152: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2153: 'p_df_schedules_tbl('|| i ||').unit_threshold_id : ' || p_df_schedules_tbl(i).unit_threshold_id
2154: );
2155: fnd_log.string
2151: fnd_log.level_statement,
2152: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2153: 'p_df_schedules_tbl('|| i ||').unit_threshold_id : ' || p_df_schedules_tbl(i).unit_threshold_id
2154: );
2155: fnd_log.string
2156: (
2157: fnd_log.level_statement,
2158: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2159: 'p_df_schedules_tbl('|| i ||').object_version_number : ' || p_df_schedules_tbl(i).object_version_number
2153: 'p_df_schedules_tbl('|| i ||').unit_threshold_id : ' || p_df_schedules_tbl(i).unit_threshold_id
2154: );
2155: fnd_log.string
2156: (
2157: fnd_log.level_statement,
2158: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2159: 'p_df_schedules_tbl('|| i ||').object_version_number : ' || p_df_schedules_tbl(i).object_version_number
2160: );
2161: fnd_log.string
2157: fnd_log.level_statement,
2158: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2159: 'p_df_schedules_tbl('|| i ||').object_version_number : ' || p_df_schedules_tbl(i).object_version_number
2160: );
2161: fnd_log.string
2162: (
2163: fnd_log.level_statement,
2164: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2165: 'p_df_schedules_tbl('|| i ||').unit_deferral_id : ' || p_df_schedules_tbl(i).unit_deferral_id
2159: 'p_df_schedules_tbl('|| i ||').object_version_number : ' || p_df_schedules_tbl(i).object_version_number
2160: );
2161: fnd_log.string
2162: (
2163: fnd_log.level_statement,
2164: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2165: 'p_df_schedules_tbl('|| i ||').unit_deferral_id : ' || p_df_schedules_tbl(i).unit_deferral_id
2166: );
2167: fnd_log.string
2163: fnd_log.level_statement,
2164: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2165: 'p_df_schedules_tbl('|| i ||').unit_deferral_id : ' || p_df_schedules_tbl(i).unit_deferral_id
2166: );
2167: fnd_log.string
2168: (
2169: fnd_log.level_statement,
2170: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2171: 'p_df_schedules_tbl('|| i ||').counter_id : ' || p_df_schedules_tbl(i).counter_id
2165: 'p_df_schedules_tbl('|| i ||').unit_deferral_id : ' || p_df_schedules_tbl(i).unit_deferral_id
2166: );
2167: fnd_log.string
2168: (
2169: fnd_log.level_statement,
2170: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2171: 'p_df_schedules_tbl('|| i ||').counter_id : ' || p_df_schedules_tbl(i).counter_id
2172: );
2173: fnd_log.string
2169: fnd_log.level_statement,
2170: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2171: 'p_df_schedules_tbl('|| i ||').counter_id : ' || p_df_schedules_tbl(i).counter_id
2172: );
2173: fnd_log.string
2174: (
2175: fnd_log.level_statement,
2176: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2177: 'p_df_schedules_tbl('|| i ||').counter_name : ' || p_df_schedules_tbl(i).counter_name
2171: 'p_df_schedules_tbl('|| i ||').counter_id : ' || p_df_schedules_tbl(i).counter_id
2172: );
2173: fnd_log.string
2174: (
2175: fnd_log.level_statement,
2176: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2177: 'p_df_schedules_tbl('|| i ||').counter_name : ' || p_df_schedules_tbl(i).counter_name
2178: );
2179: fnd_log.string
2175: fnd_log.level_statement,
2176: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2177: 'p_df_schedules_tbl('|| i ||').counter_name : ' || p_df_schedules_tbl(i).counter_name
2178: );
2179: fnd_log.string
2180: (
2181: fnd_log.level_statement,
2182: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2183: 'p_df_schedules_tbl('|| i ||').ctr_value_type_code : ' || p_df_schedules_tbl(i).ctr_value_type_code
2177: 'p_df_schedules_tbl('|| i ||').counter_name : ' || p_df_schedules_tbl(i).counter_name
2178: );
2179: fnd_log.string
2180: (
2181: fnd_log.level_statement,
2182: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2183: 'p_df_schedules_tbl('|| i ||').ctr_value_type_code : ' || p_df_schedules_tbl(i).ctr_value_type_code
2184: );
2185: fnd_log.string
2181: fnd_log.level_statement,
2182: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2183: 'p_df_schedules_tbl('|| i ||').ctr_value_type_code : ' || p_df_schedules_tbl(i).ctr_value_type_code
2184: );
2185: fnd_log.string
2186: (
2187: fnd_log.level_statement,
2188: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2189: 'p_df_schedules_tbl('|| i ||').counter_value : ' || p_df_schedules_tbl(i).counter_value
2183: 'p_df_schedules_tbl('|| i ||').ctr_value_type_code : ' || p_df_schedules_tbl(i).ctr_value_type_code
2184: );
2185: fnd_log.string
2186: (
2187: fnd_log.level_statement,
2188: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2189: 'p_df_schedules_tbl('|| i ||').counter_value : ' || p_df_schedules_tbl(i).counter_value
2190: );
2191: fnd_log.string
2187: fnd_log.level_statement,
2188: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2189: 'p_df_schedules_tbl('|| i ||').counter_value : ' || p_df_schedules_tbl(i).counter_value
2190: );
2191: fnd_log.string
2192: (
2193: fnd_log.level_statement,
2194: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2195: 'p_df_schedules_tbl('|| i ||').unit_of_measure : ' || p_df_schedules_tbl(i).unit_of_measure
2189: 'p_df_schedules_tbl('|| i ||').counter_value : ' || p_df_schedules_tbl(i).counter_value
2190: );
2191: fnd_log.string
2192: (
2193: fnd_log.level_statement,
2194: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2195: 'p_df_schedules_tbl('|| i ||').unit_of_measure : ' || p_df_schedules_tbl(i).unit_of_measure
2196: );
2197: END LOOP;
2229: l_exists VARCHAR2(1);
2230: --l_current_counter_value NUMBER;
2231:
2232: BEGIN
2233: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2234: fnd_log.string
2235: (
2236: fnd_log.level_procedure,
2237: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_schedules.begin',
2230: --l_current_counter_value NUMBER;
2231:
2232: BEGIN
2233: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2234: fnd_log.string
2235: (
2236: fnd_log.level_procedure,
2237: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_schedules.begin',
2238: 'At the start of PLSQL procedure'
2232: BEGIN
2233: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2234: fnd_log.string
2235: (
2236: fnd_log.level_procedure,
2237: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_schedules.begin',
2238: 'At the start of PLSQL procedure'
2239: );
2240: END IF;
2248: IF(valid_counter_csr%NOTFOUND)THEN
2249: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNT_NAME');
2250: FND_MESSAGE.Set_Token('COUNTER_NAME',p_df_schedules_tbl(i).counter_name);
2251: FND_MSG_PUB.ADD;
2252: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2253: fnd_log.string
2254: (
2255: fnd_log.level_error,
2256: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_schedules',
2249: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNT_NAME');
2250: FND_MESSAGE.Set_Token('COUNTER_NAME',p_df_schedules_tbl(i).counter_name);
2251: FND_MSG_PUB.ADD;
2252: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2253: fnd_log.string
2254: (
2255: fnd_log.level_error,
2256: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_schedules',
2257: 'Invalid Counter name for associated item instance in schedule record : ' || i
2251: FND_MSG_PUB.ADD;
2252: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2253: fnd_log.string
2254: (
2255: fnd_log.level_error,
2256: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_schedules',
2257: 'Invalid Counter name for associated item instance in schedule record : ' || i
2258: );
2259: END IF;
2276: FETCH valid_df_rec_del_csr INTO l_exists;
2277: IF(valid_df_rec_del_csr%NOTFOUND) THEN
2278: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_REC_MISS');
2279: FND_MSG_PUB.ADD;
2280: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2281: fnd_log.string
2282: (
2283: fnd_log.level_error,
2284: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_schedules',
2277: IF(valid_df_rec_del_csr%NOTFOUND) THEN
2278: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_REC_MISS');
2279: FND_MSG_PUB.ADD;
2280: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2281: fnd_log.string
2282: (
2283: fnd_log.level_error,
2284: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_schedules',
2285: 'Record for delete operation not found with keys in schedule record : ' || i
2279: FND_MSG_PUB.ADD;
2280: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2281: fnd_log.string
2282: (
2283: fnd_log.level_error,
2284: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_schedules',
2285: 'Record for delete operation not found with keys in schedule record : ' || i
2286: );
2287: END IF;
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
2300: (
2301: fnd_log.level_procedure,
2302: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_schedules.end',
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
2300: (
2301: fnd_log.level_procedure,
2302: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_schedules.end',
2303: 'At the end of PLSQL procedure'
2297:
2298: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2299: fnd_log.string
2300: (
2301: fnd_log.level_procedure,
2302: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_schedules.end',
2303: 'At the end of PLSQL procedure'
2304: );
2305: END IF;
2319:
2320: l_df_schedules_rec AHL_PRD_DF_PVT.df_schedules_rec_type;
2321:
2322: BEGIN
2323: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2324: fnd_log.string
2325: (
2326: fnd_log.level_procedure,
2327: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules.begin',
2320: l_df_schedules_rec AHL_PRD_DF_PVT.df_schedules_rec_type;
2321:
2322: BEGIN
2323: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2324: fnd_log.string
2325: (
2326: fnd_log.level_procedure,
2327: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules.begin',
2328: 'At the start of PLSQL procedure'
2322: BEGIN
2323: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2324: fnd_log.string
2325: (
2326: fnd_log.level_procedure,
2327: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules.begin',
2328: 'At the start of PLSQL procedure'
2329: );
2330: END IF;
2341: l_df_schedules_rec.attribute12, l_df_schedules_rec.attribute13, l_df_schedules_rec.attribute14, l_df_schedules_rec.attribute15;
2342: IF (df_schedules_csr%NOTFOUND) THEN
2343: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_REC_MISS');
2344: FND_MSG_PUB.ADD;
2345: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2346: fnd_log.string
2347: (
2348: fnd_log.level_error,
2349: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2342: IF (df_schedules_csr%NOTFOUND) THEN
2343: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_REC_MISS');
2344: FND_MSG_PUB.ADD;
2345: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2346: fnd_log.string
2347: (
2348: fnd_log.level_error,
2349: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2350: 'Missing Deferral Schedule Record : ' || i
2344: FND_MSG_PUB.ADD;
2345: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2346: fnd_log.string
2347: (
2348: fnd_log.level_error,
2349: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2350: 'Missing Deferral Schedule Record : ' || i
2351: );
2352: END IF;
2355: p_x_df_schedules_tbl(i).unit_deferral_id := l_df_schedules_rec.unit_deferral_id;
2356: ELSIF(p_x_df_schedules_tbl(i).unit_deferral_id <> l_df_schedules_rec.unit_deferral_id) THEN
2357: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_HDR_MISS');
2358: FND_MSG_PUB.ADD;
2359: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2360: fnd_log.string
2361: (
2362: fnd_log.level_unexpected,
2363: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2356: ELSIF(p_x_df_schedules_tbl(i).unit_deferral_id <> l_df_schedules_rec.unit_deferral_id) THEN
2357: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_SCH_HDR_MISS');
2358: FND_MSG_PUB.ADD;
2359: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2360: fnd_log.string
2361: (
2362: fnd_log.level_unexpected,
2363: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2364: 'Unit Deferral ID does not match with deferral schedule record : ' || i
2358: FND_MSG_PUB.ADD;
2359: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2360: fnd_log.string
2361: (
2362: fnd_log.level_unexpected,
2363: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2364: 'Unit Deferral ID does not match with deferral schedule record : ' || i
2365: );
2366: END IF;
2372: p_x_df_schedules_tbl(i).counter_id := l_df_schedules_rec.counter_id;
2373: ELSIF(p_x_df_schedules_tbl(i).counter_id = FND_API.G_MISS_NUM) THEN
2374: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNT_NAME');
2375: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
2376: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2377: fnd_log.string
2378: (
2379: fnd_log.level_error,
2380: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2373: ELSIF(p_x_df_schedules_tbl(i).counter_id = FND_API.G_MISS_NUM) THEN
2374: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNT_NAME');
2375: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
2376: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2377: fnd_log.string
2378: (
2379: fnd_log.level_error,
2380: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2381: 'Missing counter ID in schedule Record : ' || i
2375: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
2376: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2377: fnd_log.string
2378: (
2379: fnd_log.level_error,
2380: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2381: 'Missing counter ID in schedule Record : ' || i
2382: );
2383: END IF;
2390: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNTVAL');
2391: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
2392: FND_MESSAGE.Set_Token('COUNTER_VALUE',p_x_df_schedules_tbl(i).counter_value);
2393: FND_MSG_PUB.ADD;
2394: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2395: fnd_log.string
2396: (
2397: fnd_log.level_error,
2398: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2391: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
2392: FND_MESSAGE.Set_Token('COUNTER_VALUE',p_x_df_schedules_tbl(i).counter_value);
2393: FND_MSG_PUB.ADD;
2394: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2395: fnd_log.string
2396: (
2397: fnd_log.level_error,
2398: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2399: 'Missing counter Value in schedule Record : ' || i
2393: FND_MSG_PUB.ADD;
2394: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2395: fnd_log.string
2396: (
2397: fnd_log.level_error,
2398: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2399: 'Missing counter Value in schedule Record : ' || i
2400: );
2401: END IF;
2405: p_x_df_schedules_tbl(i).ctr_value_type_code := l_df_schedules_rec.ctr_value_type_code;
2406: ELSIF(p_x_df_schedules_tbl(i).ctr_value_type_code NOT IN(G_DEFER_BY,G_DEFER_TO)) THEN
2407: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNTVL_TPCD');
2408: FND_MSG_PUB.ADD;
2409: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2410: fnd_log.string
2411: (
2412: fnd_log.level_unexpected,
2413: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2406: ELSIF(p_x_df_schedules_tbl(i).ctr_value_type_code NOT IN(G_DEFER_BY,G_DEFER_TO)) THEN
2407: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNTVL_TPCD');
2408: FND_MSG_PUB.ADD;
2409: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2410: fnd_log.string
2411: (
2412: fnd_log.level_unexpected,
2413: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2414: 'Invalid counter value type code in deferral schedule record : ' || i
2408: FND_MSG_PUB.ADD;
2409: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2410: fnd_log.string
2411: (
2412: fnd_log.level_unexpected,
2413: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2414: 'Invalid counter value type code in deferral schedule record : ' || i
2415: );
2416: END IF;
2521: IF (p_x_df_schedules_tbl(i).unit_deferral_id IS NULL OR
2522: p_x_df_schedules_tbl(i).unit_deferral_id = FND_API.G_MISS_NUM) THEN
2523: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_UDID');
2524: FND_MSG_PUB.ADD;
2525: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2526: fnd_log.string
2527: (
2528: fnd_log.level_unexpected,
2529: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2522: p_x_df_schedules_tbl(i).unit_deferral_id = FND_API.G_MISS_NUM) THEN
2523: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_UDID');
2524: FND_MSG_PUB.ADD;
2525: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2526: fnd_log.string
2527: (
2528: fnd_log.level_unexpected,
2529: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2530: 'Missing Unit Deferral ID for create operation in deferral schedule record : ' || i
2524: FND_MSG_PUB.ADD;
2525: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2526: fnd_log.string
2527: (
2528: fnd_log.level_unexpected,
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;
2537: p_x_df_schedules_tbl(i).counter_id = FND_API.G_MISS_NUM) THEN
2538: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNT_NAME');
2539: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
2540: FND_MSG_PUB.ADD;
2541: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2542: fnd_log.string
2543: (
2544: fnd_log.level_error,
2545: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2538: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNT_NAME');
2539: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
2540: FND_MSG_PUB.ADD;
2541: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2542: fnd_log.string
2543: (
2544: fnd_log.level_error,
2545: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2546: 'Missing counter ID in schedule Record : ' || i
2540: FND_MSG_PUB.ADD;
2541: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2542: fnd_log.string
2543: (
2544: fnd_log.level_error,
2545: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2546: 'Missing counter ID in schedule Record : ' || i
2547: );
2548: END IF;
2554: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNTVAL');
2555: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
2556: FND_MESSAGE.Set_Token('COUNTER_VALUE',p_x_df_schedules_tbl(i).counter_value);
2557: FND_MSG_PUB.ADD;
2558: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2559: fnd_log.string
2560: (
2561: fnd_log.level_error,
2562: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2555: FND_MESSAGE.Set_Token('COUNTER_NAME',p_x_df_schedules_tbl(i).counter_name);
2556: FND_MESSAGE.Set_Token('COUNTER_VALUE',p_x_df_schedules_tbl(i).counter_value);
2557: FND_MSG_PUB.ADD;
2558: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2559: fnd_log.string
2560: (
2561: fnd_log.level_error,
2562: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2563: 'Missing or invalid counter Value in schedule Record : ' || i
2557: FND_MSG_PUB.ADD;
2558: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2559: fnd_log.string
2560: (
2561: fnd_log.level_error,
2562: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2563: 'Missing or invalid counter Value in schedule Record : ' || i
2564: );
2565: END IF;
2568: IF (p_x_df_schedules_tbl(i).ctr_value_type_code IS NULL OR
2569: p_x_df_schedules_tbl(i).ctr_value_type_code NOT IN(G_DEFER_BY,G_DEFER_TO)) THEN
2570: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNTVL_TPCD');
2571: FND_MSG_PUB.ADD;
2572: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2573: fnd_log.string
2574: (
2575: fnd_log.level_unexpected,
2576: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2569: p_x_df_schedules_tbl(i).ctr_value_type_code NOT IN(G_DEFER_BY,G_DEFER_TO)) THEN
2570: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_CNTVL_TPCD');
2571: FND_MSG_PUB.ADD;
2572: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2573: fnd_log.string
2574: (
2575: fnd_log.level_unexpected,
2576: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2577: 'Invalid counter value type code in deferral schedule record : ' || i
2571: FND_MSG_PUB.ADD;
2572: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2573: fnd_log.string
2574: (
2575: fnd_log.level_unexpected,
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;
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
2657: (
2658: fnd_log.level_procedure,
2659: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules.end',
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
2657: (
2658: fnd_log.level_procedure,
2659: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules.end',
2660: 'At the end of PLSQL procedure'
2654:
2655: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2656: fnd_log.string
2657: (
2658: fnd_log.level_procedure,
2659: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules.end',
2660: 'At the end of PLSQL procedure'
2661: );
2662: END IF;
2756: l_uc_header_id NUMBER;
2757:
2758:
2759: BEGIN
2760: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2761: fnd_log.string
2762: (
2763: fnd_log.level_procedure,
2764: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates.begin',
2757:
2758:
2759: BEGIN
2760: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2761: fnd_log.string
2762: (
2763: fnd_log.level_procedure,
2764: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates.begin',
2765: 'At the start of PLSQL procedure'
2759: BEGIN
2760: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2761: fnd_log.string
2762: (
2763: fnd_log.level_procedure,
2764: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates.begin',
2765: 'At the start of PLSQL procedure'
2766: );
2767: END IF;
2774: WHERE unit_deferral_id = p_df_header_rec.unit_deferral_id);
2775: IF(l_count1 <> l_count2) THEN
2776: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_CNT_NAME_REP');
2777: FND_MSG_PUB.ADD;
2778: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2779: fnd_log.string
2780: (
2781: fnd_log.level_error,
2782: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates',
2775: IF(l_count1 <> l_count2) THEN
2776: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_CNT_NAME_REP');
2777: FND_MSG_PUB.ADD;
2778: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2779: fnd_log.string
2780: (
2781: fnd_log.level_error,
2782: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates',
2783: 'Counters are repeating in schedules'
2777: FND_MSG_PUB.ADD;
2778: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2779: fnd_log.string
2780: (
2781: fnd_log.level_error,
2782: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates',
2783: 'Counters are repeating in schedules'
2784: );
2785: END IF;
2788: IF(l_count2 = 0)THEN
2789: IF(p_df_header_rec.set_due_date IS NULL)THEN
2790: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_SET_DUE_MAND');
2791: FND_MSG_PUB.ADD;
2792: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2793: fnd_log.string
2794: (
2795: fnd_log.level_error,
2796: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates',
2789: IF(p_df_header_rec.set_due_date IS NULL)THEN
2790: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_SET_DUE_MAND');
2791: FND_MSG_PUB.ADD;
2792: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2793: fnd_log.string
2794: (
2795: fnd_log.level_error,
2796: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates',
2797: 'Set due date or counter values are mandatory '
2791: FND_MSG_PUB.ADD;
2792: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2793: fnd_log.string
2794: (
2795: fnd_log.level_error,
2796: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates',
2797: 'Set due date or counter values are mandatory '
2798: );
2799: END IF;
2805: IF(p_df_header_rec.deferral_effective_on IS NULL OR p_df_header_rec.deferral_effective_on > SYSDATE)THEN
2806: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_DF_EFF_DT');
2807: FND_MESSAGE.Set_Token('DEFERRAL_EFFECTIVE_ON',p_df_header_rec.deferral_effective_on);
2808: FND_MSG_PUB.ADD;
2809: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2810: fnd_log.string
2811: (
2812: fnd_log.level_error,
2813: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates',
2806: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_DF_EFF_DT');
2807: FND_MESSAGE.Set_Token('DEFERRAL_EFFECTIVE_ON',p_df_header_rec.deferral_effective_on);
2808: FND_MSG_PUB.ADD;
2809: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2810: fnd_log.string
2811: (
2812: fnd_log.level_error,
2813: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates',
2814: 'Deferral Effective On Date can not be null or greater than system date '
2808: FND_MSG_PUB.ADD;
2809: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2810: fnd_log.string
2811: (
2812: fnd_log.level_error,
2813: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates',
2814: 'Deferral Effective On Date can not be null or greater than system date '
2815: );
2816: END IF;
2844: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_LS_CNTVAL');
2845: FND_MESSAGE.Set_Token('COUNTER_NAME',l_counter_name);
2846: FND_MESSAGE.Set_Token('COUNTER_VALUE',l_counter_value);
2847: FND_MSG_PUB.ADD;
2848: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2849: fnd_log.string
2850: (
2851: fnd_log.level_error,
2852: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates',
2845: FND_MESSAGE.Set_Token('COUNTER_NAME',l_counter_name);
2846: FND_MESSAGE.Set_Token('COUNTER_VALUE',l_counter_value);
2847: FND_MSG_PUB.ADD;
2848: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2849: fnd_log.string
2850: (
2851: fnd_log.level_error,
2852: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates',
2853: 'Defer to counter value is less than current counter value for counter name : ' || l_counter_name
2847: FND_MSG_PUB.ADD;
2848: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2849: fnd_log.string
2850: (
2851: fnd_log.level_error,
2852: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates',
2853: 'Defer to counter value is less than current counter value for counter name : ' || l_counter_name
2854: );
2855: END IF;
2879: x_msg_count => l_msg_count);
2880: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2881: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_DUE_DT_CALC_ERR');
2882: FND_MSG_PUB.ADD;
2883: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2884: fnd_log.string
2885: (
2886: fnd_log.level_unexpected,
2887: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates',
2880: IF(l_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
2881: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_DUE_DT_CALC_ERR');
2882: FND_MSG_PUB.ADD;
2883: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2884: fnd_log.string
2885: (
2886: fnd_log.level_unexpected,
2887: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates',
2888: 'Calculate Due Date API threw Error'
2882: FND_MSG_PUB.ADD;
2883: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2884: fnd_log.string
2885: (
2886: fnd_log.level_unexpected,
2887: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates',
2888: 'Calculate Due Date API threw Error'
2889: );
2890: END IF;
2947: END IF;
2948:
2949: x_warning_msg_data := l_msg_data;
2950:
2951: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2952: fnd_log.string
2953: (
2954: fnd_log.level_procedure,
2955: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates.end',
2948:
2949: x_warning_msg_data := l_msg_data;
2950:
2951: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2952: fnd_log.string
2953: (
2954: fnd_log.level_procedure,
2955: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates.end',
2956: 'At the end of PLSQL procedure'
2950:
2951: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2952: fnd_log.string
2953: (
2954: fnd_log.level_procedure,
2955: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates.end',
2956: 'At the end of PLSQL procedure'
2957: );
2958: END IF;
2980: l_mr_expired VARCHAR2(3);
2981: l_mr_header_id NUMBER;
2982:
2983: BEGIN
2984: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2985: fnd_log.string
2986: (
2987: fnd_log.level_procedure,
2988: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval.begin',
2981: l_mr_header_id NUMBER;
2982:
2983: BEGIN
2984: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2985: fnd_log.string
2986: (
2987: fnd_log.level_procedure,
2988: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval.begin',
2989: 'At the start of PLSQL procedure'
2983: BEGIN
2984: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2985: fnd_log.string
2986: (
2987: fnd_log.level_procedure,
2988: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval.begin',
2989: 'At the start of PLSQL procedure'
2990: );
2991: END IF;
2992:
2993: IF(p_df_header_rec.approval_status_code NOT IN('DRAFT','DEFERRAL_REJECTED'))THEN
2994: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_SUB_APPR_STS');
2995: FND_MSG_PUB.ADD;
2996: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2997: fnd_log.string
2998: (
2999: fnd_log.level_unexpected,
3000: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
2993: IF(p_df_header_rec.approval_status_code NOT IN('DRAFT','DEFERRAL_REJECTED'))THEN
2994: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_SUB_APPR_STS');
2995: FND_MSG_PUB.ADD;
2996: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2997: fnd_log.string
2998: (
2999: fnd_log.level_unexpected,
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
2995: FND_MSG_PUB.ADD;
2996: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2997: fnd_log.string
2998: (
2999: fnd_log.level_unexpected,
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;
3006:
3007: IF(valid_for_submission( p_df_header_rec.unit_effectivity_id) = FALSE)THEN
3008: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_SUB_PRC_STS');
3009: FND_MSG_PUB.ADD;
3010: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3011: fnd_log.string
3012: (
3013: fnd_log.level_error,
3014: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3007: IF(valid_for_submission( p_df_header_rec.unit_effectivity_id) = FALSE)THEN
3008: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_SUB_PRC_STS');
3009: FND_MSG_PUB.ADD;
3010: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3011: fnd_log.string
3012: (
3013: fnd_log.level_error,
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'
3009: FND_MSG_PUB.ADD;
3010: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3011: fnd_log.string
3012: (
3013: fnd_log.level_error,
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;
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',
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'
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;
3057: x_item_type =>l_item_type,
3058: x_return_status=>l_return_status,
3059: x_msg_count =>l_msg_count,
3060: x_msg_data =>l_msg_data);
3061: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3062: fnd_log.string
3063: (
3064: fnd_log.level_statement,
3065: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3058: x_return_status=>l_return_status,
3059: x_msg_count =>l_msg_count,
3060: x_msg_data =>l_msg_data);
3061: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3062: fnd_log.string
3063: (
3064: fnd_log.level_statement,
3065: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3066: 'Workflow active flag : ' || l_active
3060: x_msg_data =>l_msg_data);
3061: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3062: fnd_log.string
3063: (
3064: fnd_log.level_statement,
3065: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3066: 'Workflow active flag : ' || l_active
3067: );
3068: fnd_log.string
3064: fnd_log.level_statement,
3065: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3066: 'Workflow active flag : ' || l_active
3067: );
3068: fnd_log.string
3069: (
3070: fnd_log.level_statement,
3071: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3072: 'l_process_name : ' || l_process_name
3066: 'Workflow active flag : ' || l_active
3067: );
3068: fnd_log.string
3069: (
3070: fnd_log.level_statement,
3071: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3072: 'l_process_name : ' || l_process_name
3073: );
3074: fnd_log.string
3070: fnd_log.level_statement,
3071: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3072: 'l_process_name : ' || l_process_name
3073: );
3074: fnd_log.string
3075: (
3076: fnd_log.level_statement,
3077: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3078: 'l_item_type : ' || l_item_type
3072: 'l_process_name : ' || l_process_name
3073: );
3074: fnd_log.string
3075: (
3076: fnd_log.level_statement,
3077: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3078: 'l_item_type : ' || l_item_type
3079: );
3080:
3083: IF((l_return_status <> FND_API.G_RET_STS_SUCCESS) OR
3084: ( l_active <> G_YES_FLAG))THEN
3085: /*FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_WF_INACTIVE');
3086: FND_MSG_PUB.ADD;
3087: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3088: fnd_log.string
3089: (
3090: fnd_log.level_error,
3091: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3084: ( l_active <> G_YES_FLAG))THEN
3085: /*FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_WF_INACTIVE');
3086: FND_MSG_PUB.ADD;
3087: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3088: fnd_log.string
3089: (
3090: fnd_log.level_error,
3091: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3092: 'Can not submit for approval because workflow is not active for Deferral'
3086: FND_MSG_PUB.ADD;
3087: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3088: fnd_log.string
3089: (
3090: fnd_log.level_error,
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;
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,
3100: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
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,
3100: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3101: 'Workflow is not active so going for automatic approval'
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,
3100: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3101: 'Workflow is not active so going for automatic approval'
3102: );
3103: END IF;
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',
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'
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;
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
3129: (
3130: fnd_log.level_statement,
3131: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
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
3129: (
3130: fnd_log.level_statement,
3131: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3132: 'Workflow active flag : ' || l_active
3126:
3127: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3128: fnd_log.string
3129: (
3130: fnd_log.level_statement,
3131: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3132: 'Workflow active flag : ' || l_active
3133: );
3134: END IF;
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',
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'
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;
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
3211: fnd_log.string
3212: (
3213: fnd_log.level_procedure,
3214: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval.end',
3207: END IF;
3208:
3209:
3210: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3211: fnd_log.string
3212: (
3213: fnd_log.level_procedure,
3214: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval.end',
3215: 'At the end of PLSQL procedure'
3209:
3210: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3211: fnd_log.string
3212: (
3213: fnd_log.level_procedure,
3214: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval.end',
3215: 'At the end of PLSQL procedure'
3216: );
3217: END IF;
3271: p_new_status IN VARCHAR2,
3272: x_return_status OUT NOCOPY VARCHAR2)IS
3273:
3274: BEGIN
3275: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3276: fnd_log.string
3277: (
3278: fnd_log.level_procedure,
3279: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated.begin',
3272: x_return_status OUT NOCOPY VARCHAR2)IS
3273:
3274: BEGIN
3275: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3276: fnd_log.string
3277: (
3278: fnd_log.level_procedure,
3279: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated.begin',
3280: 'At the start of PLSQL procedure'
3274: BEGIN
3275: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3276: fnd_log.string
3277: (
3278: fnd_log.level_procedure,
3279: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated.begin',
3280: 'At the start of PLSQL procedure'
3281: );
3282: END IF;
3288: p_object_version_number => p_object_version_number,
3289: p_approval_result_code => G_DEFERRAL_INITIATED,
3290: x_return_status => x_return_status );
3291:
3292: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3293: fnd_log.string
3294: (
3295: fnd_log.level_statement,
3296: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated',
3289: p_approval_result_code => G_DEFERRAL_INITIATED,
3290: x_return_status => x_return_status );
3291:
3292: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3293: fnd_log.string
3294: (
3295: fnd_log.level_statement,
3296: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated',
3297: 'unit_deferral_id : ' || p_unit_deferral_id
3291:
3292: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3293: fnd_log.string
3294: (
3295: fnd_log.level_statement,
3296: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated',
3297: 'unit_deferral_id : ' || p_unit_deferral_id
3298: );
3299: fnd_log.string
3295: fnd_log.level_statement,
3296: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated',
3297: 'unit_deferral_id : ' || p_unit_deferral_id
3298: );
3299: fnd_log.string
3300: (
3301: fnd_log.level_statement,
3302: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated',
3303: 'object_version_number : ' || p_object_version_number
3297: 'unit_deferral_id : ' || p_unit_deferral_id
3298: );
3299: fnd_log.string
3300: (
3301: fnd_log.level_statement,
3302: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated',
3303: 'object_version_number : ' || p_object_version_number
3304: );
3305: fnd_log.string
3301: fnd_log.level_statement,
3302: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated',
3303: 'object_version_number : ' || p_object_version_number
3304: );
3305: fnd_log.string
3306: (
3307: fnd_log.level_statement,
3308: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated',
3309: 'Return status after process_workorders API call : ' || x_return_status
3303: 'object_version_number : ' || p_object_version_number
3304: );
3305: fnd_log.string
3306: (
3307: fnd_log.level_statement,
3308: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated',
3309: 'Return status after process_workorders API call : ' || x_return_status
3310: );
3311: END IF;
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,
3318: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated',
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,
3318: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated',
3319: 'process_workorders API API threw error'
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,
3318: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated',
3319: 'process_workorders API API threw error'
3320: );
3321: END IF;
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,
3338: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated',
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,
3338: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated',
3339: 'process_unit_maint_plan API threw error'
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,
3338: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated',
3339: 'process_unit_maint_plan API threw error'
3340: );
3341: END IF;
3346: SET approval_status_code = p_new_status
3347: WHERE unit_deferral_id = p_unit_deferral_id
3348: AND object_version_number = p_object_version_number;--same transaction of caller API and update already happened
3349:
3350: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3351: fnd_log.string
3352: (
3353: fnd_log.level_procedure,
3354: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated.end',
3347: WHERE unit_deferral_id = p_unit_deferral_id
3348: AND object_version_number = p_object_version_number;--same transaction of caller API and update already happened
3349:
3350: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3351: fnd_log.string
3352: (
3353: fnd_log.level_procedure,
3354: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated.end',
3355: 'At the end of PLSQL procedure'
3349:
3350: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3351: fnd_log.string
3352: (
3353: fnd_log.level_procedure,
3354: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated.end',
3355: 'At the end of PLSQL procedure'
3356: );
3357: END IF;
3398: l_cancel_flag VARCHAR2(1);
3399:
3400:
3401: BEGIN
3402: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3403: fnd_log.string
3404: (
3405: fnd_log.level_procedure,
3406: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved.begin',
3399:
3400:
3401: BEGIN
3402: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3403: fnd_log.string
3404: (
3405: fnd_log.level_procedure,
3406: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved.begin',
3407: 'At the start of PLSQL procedure'
3401: BEGIN
3402: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3403: fnd_log.string
3404: (
3405: fnd_log.level_procedure,
3406: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved.begin',
3407: 'At the start of PLSQL procedure'
3408: );
3409: END IF;
3415: FETCH valid_mr_csr INTO l_exists;
3416: IF(valid_mr_csr%NOTFOUND)THEN
3417: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_MR_TERM');
3418: FND_MSG_PUB.ADD;
3419: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3420: fnd_log.string
3421: (
3422: fnd_log.level_error,
3423: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
3416: IF(valid_mr_csr%NOTFOUND)THEN
3417: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_MR_TERM');
3418: FND_MSG_PUB.ADD;
3419: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3420: fnd_log.string
3421: (
3422: fnd_log.level_error,
3423: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
3424: 'Associated MR has been terminated in FMP'
3418: FND_MSG_PUB.ADD;
3419: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3420: fnd_log.string
3421: (
3422: fnd_log.level_error,
3423: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
3424: 'Associated MR has been terminated in FMP'
3425: );
3426: END IF;
3428: CLOSE valid_mr_csr;
3429: RETURN;
3430: END IF;
3431: CLOSE valid_mr_csr; */
3432: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3433: fnd_log.string
3434: (
3435: fnd_log.level_statement,
3436: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3429: RETURN;
3430: END IF;
3431: CLOSE valid_mr_csr; */
3432: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3433: fnd_log.string
3434: (
3435: fnd_log.level_statement,
3436: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3437: 'unit_deferral_id : ' || p_unit_deferral_id
3431: CLOSE valid_mr_csr; */
3432: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3433: fnd_log.string
3434: (
3435: fnd_log.level_statement,
3436: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3437: 'unit_deferral_id : ' || p_unit_deferral_id
3438: );
3439: fnd_log.string
3435: fnd_log.level_statement,
3436: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3437: 'unit_deferral_id : ' || p_unit_deferral_id
3438: );
3439: fnd_log.string
3440: (
3441: fnd_log.level_statement,
3442: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3443: 'object_version_number : ' || p_object_version_number
3437: 'unit_deferral_id : ' || p_unit_deferral_id
3438: );
3439: fnd_log.string
3440: (
3441: fnd_log.level_statement,
3442: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3443: 'object_version_number : ' || p_object_version_number
3444: );
3445: fnd_log.string
3441: fnd_log.level_statement,
3442: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3443: 'object_version_number : ' || p_object_version_number
3444: );
3445: fnd_log.string
3446: (
3447: fnd_log.level_statement,
3448: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3449: 'p_new_status : ' || p_new_status
3443: 'object_version_number : ' || p_object_version_number
3444: );
3445: fnd_log.string
3446: (
3447: fnd_log.level_statement,
3448: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3449: 'p_new_status : ' || p_new_status
3450: );
3451: END IF;
3457: p_object_version_number => p_object_version_number,
3458: p_approval_result_code => G_DEFERRAL_APPROVED,
3459: x_return_status => x_return_status);
3460:
3461: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3462: fnd_log.string
3463: (
3464: fnd_log.level_statement,
3465: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3458: p_approval_result_code => G_DEFERRAL_APPROVED,
3459: x_return_status => x_return_status);
3460:
3461: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3462: fnd_log.string
3463: (
3464: fnd_log.level_statement,
3465: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3466: 'Return status after process_workorders API call : ' || x_return_status
3460:
3461: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3462: fnd_log.string
3463: (
3464: fnd_log.level_statement,
3465: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3466: 'Return status after process_workorders API call : ' || x_return_status
3467: );
3468: END IF;
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,
3475: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
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,
3475: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3476: 'process_workorders API threw error'
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,
3475: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3476: 'process_workorders API threw error'
3477: );
3478: END IF;
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: (
3496: fnd_log.level_unexpected,
3497: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
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: (
3496: fnd_log.level_unexpected,
3497: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3498: 'process_unit_maint_plan API threw error'
3492:
3493: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3494: fnd_log.string
3495: (
3496: fnd_log.level_unexpected,
3497: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3498: 'process_unit_maint_plan API threw error'
3499: );
3500: END IF;
3508: WHERE unit_deferral_id = p_unit_deferral_id
3509: AND object_version_number = p_object_version_number;
3510:
3511:
3512: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
3513: fnd_log.string
3514: (
3515: fnd_log.level_event,
3516: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3509: AND object_version_number = p_object_version_number;
3510:
3511:
3512: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
3513: fnd_log.string
3514: (
3515: fnd_log.level_event,
3516: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3517: 'Succesfully approved deferral for unit_deferral_id : ' || p_unit_deferral_id
3511:
3512: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
3513: fnd_log.string
3514: (
3515: fnd_log.level_event,
3516: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3517: 'Succesfully approved deferral for unit_deferral_id : ' || p_unit_deferral_id
3518: );
3519: END IF;
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,
3531: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
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,
3531: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3532: 'Unit Effectivity record not found when fetching item instance id'
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,
3531: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3532: 'Unit Effectivity record not found when fetching item instance id'
3533: );
3534: END IF;
3534: END IF;
3535: CLOSE csi_item_instance_id_csr;
3536: RETURN;
3537: ELSE
3538: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3539: fnd_log.string
3540: (
3541: fnd_log.level_statement,
3542: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3535: CLOSE csi_item_instance_id_csr;
3536: RETURN;
3537: ELSE
3538: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3539: fnd_log.string
3540: (
3541: fnd_log.level_statement,
3542: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3543: 'p_csi_item_instance_id : ' || l_csi_item_instance_id
3537: ELSE
3538: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3539: fnd_log.string
3540: (
3541: fnd_log.level_statement,
3542: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3543: 'p_csi_item_instance_id : ' || l_csi_item_instance_id
3544: );
3545: END IF;
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,
3563: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
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,
3563: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3564: 'Could not calculate due date'
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,
3563: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3564: 'Could not calculate due date'
3565: );
3566: END IF;
3568: END IF;
3569: END IF;
3570: END IF;
3571:
3572: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3573: fnd_log.string
3574: (
3575: fnd_log.level_procedure,
3576: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved.end',
3569: END IF;
3570: END IF;
3571:
3572: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3573: fnd_log.string
3574: (
3575: fnd_log.level_procedure,
3576: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved.end',
3577: 'At the end of PLSQL procedure'
3571:
3572: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3573: fnd_log.string
3574: (
3575: fnd_log.level_procedure,
3576: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved.end',
3577: 'At the end of PLSQL procedure'
3578: );
3579: END IF;
3599: l_msg_count NUMBER;
3600: l_msg_data VARCHAR2(4000);
3601:
3602: BEGIN
3603: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3604: fnd_log.string
3605: (
3606: fnd_log.level_procedure,
3607: 'ahl.plsql.AHL_PRD_DF_PVT.calculate_due_date.begin',
3600: l_msg_data VARCHAR2(4000);
3601:
3602: BEGIN
3603: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3604: fnd_log.string
3605: (
3606: fnd_log.level_procedure,
3607: 'ahl.plsql.AHL_PRD_DF_PVT.calculate_due_date.begin',
3608: 'At the start of PLSQL procedure'
3602: BEGIN
3603: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3604: fnd_log.string
3605: (
3606: fnd_log.level_procedure,
3607: 'ahl.plsql.AHL_PRD_DF_PVT.calculate_due_date.begin',
3608: 'At the start of PLSQL procedure'
3609: );
3610: END IF;
3631: END IF;
3632:
3633: -- submit request
3634: --IF(l_can_submit_request)THEN
3635: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3636: fnd_log.string
3637: (
3638: fnd_log.level_statement,
3639: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3632:
3633: -- submit request
3634: --IF(l_can_submit_request)THEN
3635: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3636: fnd_log.string
3637: (
3638: fnd_log.level_statement,
3639: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3640: 'Submitting concurrent request to calculate due date for p_csi_item_instance_id : ' || p_csi_item_instance_id
3634: --IF(l_can_submit_request)THEN
3635: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3636: fnd_log.string
3637: (
3638: fnd_log.level_statement,
3639: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3640: 'Submitting concurrent request to calculate due date for p_csi_item_instance_id : ' || p_csi_item_instance_id
3641: );
3642: END IF;
3645: l_req_id := fnd_request.submit_request('AHL','AHLUEFF',NULL,NULL,FALSE,NULL,NULL,p_csi_item_instance_id,NULL,NULL,1);
3646:
3647: IF (l_req_id = 0 ) THEN
3648: l_concurrent_request_sucess := FALSE;
3649: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3650: fnd_log.string
3651: (
3652: fnd_log.level_statement,
3653: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3646:
3647: IF (l_req_id = 0 ) THEN
3648: l_concurrent_request_sucess := FALSE;
3649: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3650: fnd_log.string
3651: (
3652: fnd_log.level_statement,
3653: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3654: 'Tried to submit concurrent request but failed'
3648: l_concurrent_request_sucess := FALSE;
3649: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3650: fnd_log.string
3651: (
3652: fnd_log.level_statement,
3653: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3654: 'Tried to submit concurrent request but failed'
3655: );
3656: END IF;
3655: );
3656: END IF;
3657: ELSE
3658: l_concurrent_request_sucess := TRUE;
3659: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3660: fnd_log.string
3661: (
3662: fnd_log.level_statement,
3663: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3656: END IF;
3657: ELSE
3658: l_concurrent_request_sucess := TRUE;
3659: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3660: fnd_log.string
3661: (
3662: fnd_log.level_statement,
3663: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3664: 'Concurrent request to calculate due date successful'
3658: l_concurrent_request_sucess := TRUE;
3659: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3660: fnd_log.string
3661: (
3662: fnd_log.level_statement,
3663: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3664: 'Concurrent request to calculate due date successful'
3665: );
3666: END IF;
3669:
3670: /* -- launching concurrent program always
3671: IF NOT (l_concurrent_request_sucess) THEN
3672: -- submit online request
3673: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3674: fnd_log.string
3675: (
3676: fnd_log.level_statement,
3677: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3670: /* -- launching concurrent program always
3671: IF NOT (l_concurrent_request_sucess) THEN
3672: -- submit online request
3673: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3674: fnd_log.string
3675: (
3676: fnd_log.level_statement,
3677: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3678: 'Calculating due date online'
3672: -- submit online request
3673: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3674: fnd_log.string
3675: (
3676: fnd_log.level_statement,
3677: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3678: 'Calculating due date online'
3679: );
3680: END IF;
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,
3696: 'ahl.plsql.AHL_PRD_DF_PVT.calculate_due_date',
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,
3696: 'ahl.plsql.AHL_PRD_DF_PVT.calculate_due_date',
3697: 'AHL_UMP_PROCESSUNIT_PVT.Process_Unit API threw error'
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,
3696: 'ahl.plsql.AHL_PRD_DF_PVT.calculate_due_date',
3697: 'AHL_UMP_PROCESSUNIT_PVT.Process_Unit API threw error'
3698: );
3699: 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: (
3709: fnd_log.level_procedure,
3710: 'ahl.plsql.AHL_PRD_DF_PVT.calculate_due_date.end',
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: (
3709: fnd_log.level_procedure,
3710: 'ahl.plsql.AHL_PRD_DF_PVT.calculate_due_date.end',
3711: 'At the end of PLSQL procedure'
3705:
3706: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3707: fnd_log.string
3708: (
3709: fnd_log.level_procedure,
3710: 'ahl.plsql.AHL_PRD_DF_PVT.calculate_due_date.end',
3711: 'At the end of PLSQL procedure'
3712: );
3713: END IF;
3721: p_object_version_number IN NUMBER,
3722: p_new_status IN VARCHAR2,
3723: x_return_status OUT NOCOPY VARCHAR2)IS
3724: BEGIN
3725: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3726: fnd_log.string
3727: (
3728: fnd_log.level_procedure,
3729: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected.begin',
3722: p_new_status IN VARCHAR2,
3723: x_return_status OUT NOCOPY VARCHAR2)IS
3724: BEGIN
3725: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3726: fnd_log.string
3727: (
3728: fnd_log.level_procedure,
3729: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected.begin',
3730: 'At the start of PLSQL procedure'
3724: BEGIN
3725: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3726: fnd_log.string
3727: (
3728: fnd_log.level_procedure,
3729: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected.begin',
3730: 'At the start of PLSQL procedure'
3731: );
3732: END IF;
3741: p_object_version_number => p_object_version_number,
3742: p_approval_result_code => G_DEFERRAL_REJECTED,
3743: x_return_status => x_return_status);
3744:
3745: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3746: fnd_log.string
3747: (
3748: fnd_log.level_statement,
3749: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected',
3742: p_approval_result_code => G_DEFERRAL_REJECTED,
3743: x_return_status => x_return_status);
3744:
3745: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3746: fnd_log.string
3747: (
3748: fnd_log.level_statement,
3749: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected',
3750: 'unit_deferral_id : ' || p_unit_deferral_id
3744:
3745: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3746: fnd_log.string
3747: (
3748: fnd_log.level_statement,
3749: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected',
3750: 'unit_deferral_id : ' || p_unit_deferral_id
3751: );
3752: fnd_log.string
3748: fnd_log.level_statement,
3749: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected',
3750: 'unit_deferral_id : ' || p_unit_deferral_id
3751: );
3752: fnd_log.string
3753: (
3754: fnd_log.level_statement,
3755: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected',
3756: 'object_version_number : ' || p_object_version_number
3750: 'unit_deferral_id : ' || p_unit_deferral_id
3751: );
3752: fnd_log.string
3753: (
3754: fnd_log.level_statement,
3755: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected',
3756: 'object_version_number : ' || p_object_version_number
3757: );
3758: fnd_log.string
3754: fnd_log.level_statement,
3755: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected',
3756: 'object_version_number : ' || p_object_version_number
3757: );
3758: fnd_log.string
3759: (
3760: fnd_log.level_statement,
3761: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected',
3762: 'Return status after process_workorders API call : ' || x_return_status
3756: 'object_version_number : ' || p_object_version_number
3757: );
3758: fnd_log.string
3759: (
3760: fnd_log.level_statement,
3761: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected',
3762: 'Return status after process_workorders API call : ' || x_return_status
3763: );
3764: fnd_log.string
3760: fnd_log.level_statement,
3761: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected',
3762: 'Return status after process_workorders API call : ' || x_return_status
3763: );
3764: fnd_log.string
3765: (
3766: fnd_log.level_statement,
3767: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected',
3768: 'New approval status : ' || p_new_status
3762: 'Return status after process_workorders API call : ' || x_return_status
3763: );
3764: fnd_log.string
3765: (
3766: fnd_log.level_statement,
3767: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected',
3768: 'New approval status : ' || p_new_status
3769: );
3770: END IF;
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,
3777: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected',
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,
3777: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected',
3778: 'process_workorders API threw error'
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,
3777: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected',
3778: 'process_workorders API threw error'
3779: );
3780: END IF;
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,
3798: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected',
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,
3798: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected',
3799: 'process_unit_maint_plan API threw error'
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,
3798: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected',
3799: 'process_unit_maint_plan API threw error'
3800: );
3801: END IF;
3807: object_version_number = p_object_version_number + 1
3808: WHERE unit_deferral_id = p_unit_deferral_id
3809: AND object_version_number = p_object_version_number;
3810:
3811: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3812: fnd_log.string
3813: (
3814: fnd_log.level_procedure,
3815: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected.end',
3808: WHERE unit_deferral_id = p_unit_deferral_id
3809: AND object_version_number = p_object_version_number;
3810:
3811: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3812: fnd_log.string
3813: (
3814: fnd_log.level_procedure,
3815: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected.end',
3816: 'At the end of PLSQL procedure'
3810:
3811: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3812: fnd_log.string
3813: (
3814: fnd_log.level_procedure,
3815: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected.end',
3816: 'At the end of PLSQL procedure'
3817: );
3818: END IF;
3952:
3953: l_status_meaning VARCHAR2(80);
3954:
3955: BEGIN
3956: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3957: fnd_log.string
3958: (
3959: fnd_log.level_procedure,
3960: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders.begin',
3953: l_status_meaning VARCHAR2(80);
3954:
3955: BEGIN
3956: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3957: fnd_log.string
3958: (
3959: fnd_log.level_procedure,
3960: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders.begin',
3961: 'At the start of PLSQL procedure'
3955: BEGIN
3956: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3957: fnd_log.string
3958: (
3959: fnd_log.level_procedure,
3960: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders.begin',
3961: 'At the start of PLSQL procedure'
3962: );
3963: END IF;
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: (
3970: fnd_log.level_statement,
3971: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
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: (
3970: fnd_log.level_statement,
3971: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
3972: 'unit_deferral_id : ' || p_unit_deferral_id
3966:
3967: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3968: fnd_log.string
3969: (
3970: fnd_log.level_statement,
3971: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
3972: 'unit_deferral_id : ' || p_unit_deferral_id
3973: );
3974: fnd_log.string
3970: fnd_log.level_statement,
3971: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
3972: 'unit_deferral_id : ' || p_unit_deferral_id
3973: );
3974: fnd_log.string
3975: (
3976: fnd_log.level_statement,
3977: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
3978: 'object_version_number : ' || p_object_version_number
3972: 'unit_deferral_id : ' || p_unit_deferral_id
3973: );
3974: fnd_log.string
3975: (
3976: fnd_log.level_statement,
3977: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
3978: 'object_version_number : ' || p_object_version_number
3979: );
3980: fnd_log.string
3976: fnd_log.level_statement,
3977: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
3978: 'object_version_number : ' || p_object_version_number
3979: );
3980: fnd_log.string
3981: (
3982: fnd_log.level_statement,
3983: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
3984: 'Approval Result Code : ' || p_approval_result_code
3978: 'object_version_number : ' || p_object_version_number
3979: );
3980: fnd_log.string
3981: (
3982: fnd_log.level_statement,
3983: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
3984: 'Approval Result Code : ' || p_approval_result_code
3985: );
3986: END IF;
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,
3998: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
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,
3998: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
3999: 'Unit Effectivity Record not found for unit deferral id : ' || p_unit_deferral_id
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,
3998: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
3999: 'Unit Effectivity Record not found for unit deferral id : ' || p_unit_deferral_id
4000: );
4001: END IF;
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
4010: fnd_log.string
4011: (
4012: fnd_log.level_statement,
4013: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4006: RETURN;
4007: END IF;
4008:
4009: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4010: fnd_log.string
4011: (
4012: fnd_log.level_statement,
4013: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4014: 'unit_effectivity_id : ' || l_unit_effectivity_id
4008:
4009: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4010: fnd_log.string
4011: (
4012: fnd_log.level_statement,
4013: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4014: 'unit_effectivity_id : ' || l_unit_effectivity_id
4015: );
4016: END IF;
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,
4029: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
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,
4029: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4030: 'Approver client information not same as the requester. workorders not found for approver'
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,
4029: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4030: 'Approver client information not same as the requester. workorders not found for approver'
4031: );
4032: END IF;
4077: END IF;
4078: -- rroy
4079: -- ACL Changes
4080:
4081: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4082: fnd_log.string
4083: (
4084: fnd_log.level_statement,
4085: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4078: -- rroy
4079: -- ACL Changes
4080:
4081: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4082: fnd_log.string
4083: (
4084: fnd_log.level_statement,
4085: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4086: 'workorder_id : ' || l_prd_workorder_rec.workorder_id
4080:
4081: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4082: fnd_log.string
4083: (
4084: fnd_log.level_statement,
4085: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4086: 'workorder_id : ' || l_prd_workorder_rec.workorder_id
4087: );
4088: fnd_log.string
4084: fnd_log.level_statement,
4085: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4086: 'workorder_id : ' || l_prd_workorder_rec.workorder_id
4087: );
4088: fnd_log.string
4089: (
4090: fnd_log.level_statement,
4091: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4092: 'object_version_number : ' || l_prd_workorder_rec.object_version_number
4086: 'workorder_id : ' || l_prd_workorder_rec.workorder_id
4087: );
4088: fnd_log.string
4089: (
4090: fnd_log.level_statement,
4091: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4092: 'object_version_number : ' || l_prd_workorder_rec.object_version_number
4093: );
4094: fnd_log.string
4090: fnd_log.level_statement,
4091: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4092: 'object_version_number : ' || l_prd_workorder_rec.object_version_number
4093: );
4094: fnd_log.string
4095: (
4096: fnd_log.level_statement,
4097: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4098: 'Current Workorder status : ' || l_prd_workorder_rec.status_code
4092: 'object_version_number : ' || l_prd_workorder_rec.object_version_number
4093: );
4094: fnd_log.string
4095: (
4096: fnd_log.level_statement,
4097: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4098: 'Current Workorder status : ' || l_prd_workorder_rec.status_code
4099: );
4100: END IF;
4131: END IF;
4132:
4133: -- call production API to update job status or complete job
4134: IF(l_update_flag)THEN
4135: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4136: fnd_log.string
4137: (
4138: fnd_log.level_statement,
4139: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4132:
4133: -- call production API to update job status or complete job
4134: IF(l_update_flag)THEN
4135: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4136: fnd_log.string
4137: (
4138: fnd_log.level_statement,
4139: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4140: 'Workorder Update Flag :TRUE '
4134: IF(l_update_flag)THEN
4135: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4136: fnd_log.string
4137: (
4138: fnd_log.level_statement,
4139: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4140: 'Workorder Update Flag :TRUE '
4141: );
4142: fnd_log.string
4138: fnd_log.level_statement,
4139: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4140: 'Workorder Update Flag :TRUE '
4141: );
4142: fnd_log.string
4143: (
4144: fnd_log.level_statement,
4145: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4146: 'new Workorder status/Update : ' || l_prd_workorder_rec.status_code
4140: 'Workorder Update Flag :TRUE '
4141: );
4142: fnd_log.string
4143: (
4144: fnd_log.level_statement,
4145: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4146: 'new Workorder status/Update : ' || l_prd_workorder_rec.status_code
4147: );
4148: END IF;
4179: x_msg_data => l_msg_data,
4180: p_x_prd_workorder_rec => l_prd_workorder_rec,
4181: p_x_prd_workoper_tbl => l_prd_workoper_tbl
4182: );
4183: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4184: fnd_log.string
4185: (
4186: fnd_log.level_statement,
4187: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4180: p_x_prd_workorder_rec => l_prd_workorder_rec,
4181: p_x_prd_workoper_tbl => l_prd_workoper_tbl
4182: );
4183: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4184: fnd_log.string
4185: (
4186: fnd_log.level_statement,
4187: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4188: 'Status after AHL_PRD_WORKORDER_PVT.update_job API call : ' || x_return_status
4182: );
4183: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4184: fnd_log.string
4185: (
4186: fnd_log.level_statement,
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;
4190: END IF;
4191: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4192: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_APPR_UPD_JB_FAIL');
4193: FND_MSG_PUB.ADD;
4194: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4195: fnd_log.string
4196: (
4197: fnd_log.level_unexpected,
4198: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4191: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4192: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_APPR_UPD_JB_FAIL');
4193: FND_MSG_PUB.ADD;
4194: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4195: fnd_log.string
4196: (
4197: fnd_log.level_unexpected,
4198: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4199: 'AHL_PRD_WORKORDER_PVT.update_job API returned error '
4193: FND_MSG_PUB.ADD;
4194: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4195: fnd_log.string
4196: (
4197: fnd_log.level_unexpected,
4198: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4199: 'AHL_PRD_WORKORDER_PVT.update_job API returned error '
4200: );
4201: END IF;
4202: EXIT;
4203: END IF;
4204: /* sracha: commented out as workorder completion is no longer needed. */
4205: /* ELSIF(l_complete_flag)THEN
4206: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4207: fnd_log.string
4208: (
4209: fnd_log.level_statement,
4210: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4203: END IF;
4204: /* sracha: commented out as workorder completion is no longer needed. */
4205: /* ELSIF(l_complete_flag)THEN
4206: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4207: fnd_log.string
4208: (
4209: fnd_log.level_statement,
4210: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4211: 'Workorder Complete Flag :TRUE '
4205: /* ELSIF(l_complete_flag)THEN
4206: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4207: fnd_log.string
4208: (
4209: fnd_log.level_statement,
4210: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4211: 'Workorder Complete Flag :TRUE '
4212: );
4213: fnd_log.string
4209: fnd_log.level_statement,
4210: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4211: 'Workorder Complete Flag :TRUE '
4212: );
4213: fnd_log.string
4214: (
4215: fnd_log.level_statement,
4216: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4217: 'new Workorder status/Complete : ' || l_prd_workorder_rec.status_code
4211: 'Workorder Complete Flag :TRUE '
4212: );
4213: fnd_log.string
4214: (
4215: fnd_log.level_statement,
4216: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4217: 'new Workorder status/Complete : ' || l_prd_workorder_rec.status_code
4218: );
4219: END IF;
4238: x_msg_data => l_msg_data,
4239: p_x_prd_workorder_rec => l_prd_workorder_rec,
4240: p_x_prd_workoper_tbl => l_prd_workoper_tbl
4241: );
4242: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4243: fnd_log.string
4244: (
4245: fnd_log.level_statement,
4246: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4239: p_x_prd_workorder_rec => l_prd_workorder_rec,
4240: p_x_prd_workoper_tbl => l_prd_workoper_tbl
4241: );
4242: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4243: fnd_log.string
4244: (
4245: fnd_log.level_statement,
4246: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4247: 'Status after AHL_PRD_WORKORDER_PVT.update_job API call : ' || x_return_status
4241: );
4242: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4243: fnd_log.string
4244: (
4245: fnd_log.level_statement,
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;
4249: END IF;
4250: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4251: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_APPR_UPD_JB_FAIL');
4252: FND_MSG_PUB.ADD;
4253: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4254: fnd_log.string
4255: (
4256: fnd_log.level_unexpected,
4257: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4250: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4251: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_APPR_UPD_JB_FAIL');
4252: FND_MSG_PUB.ADD;
4253: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4254: fnd_log.string
4255: (
4256: fnd_log.level_unexpected,
4257: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4258: 'AHL_PRD_WORKORDER_PVT.update_job API returned error '
4252: FND_MSG_PUB.ADD;
4253: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4254: fnd_log.string
4255: (
4256: fnd_log.level_unexpected,
4257: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4258: 'AHL_PRD_WORKORDER_PVT.update_job API returned error '
4259: );
4260: END IF;
4281: x_msg_data => l_msg_data,
4282: p_workorder_id => l_prd_workorder_rec.workorder_id,
4283: p_object_version_no => l_prd_workorder_rec.object_version_number
4284: );
4285: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4286: fnd_log.string
4287: (
4288: fnd_log.level_statement,
4289: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4282: p_workorder_id => l_prd_workorder_rec.workorder_id,
4283: p_object_version_no => l_prd_workorder_rec.object_version_number
4284: );
4285: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4286: fnd_log.string
4287: (
4288: fnd_log.level_statement,
4289: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4290: 'Status after AHL_COMPLETIONS_PVT.defer_workorder API call : ' || x_return_status
4284: );
4285: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4286: fnd_log.string
4287: (
4288: fnd_log.level_statement,
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;
4292: END IF;
4293: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4294: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_APPR_CMP_JB_FAIL');
4295: FND_MSG_PUB.ADD;
4296: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4297: fnd_log.string
4298: (
4299: fnd_log.level_unexpected,
4300: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4293: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4294: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_APPR_CMP_JB_FAIL');
4295: FND_MSG_PUB.ADD;
4296: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4297: fnd_log.string
4298: (
4299: fnd_log.level_unexpected,
4300: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4301: 'AHL_COMPLETIONS_PVT.defer_workorder API returned error '
4295: FND_MSG_PUB.ADD;
4296: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4297: fnd_log.string
4298: (
4299: fnd_log.level_unexpected,
4300: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4301: 'AHL_COMPLETIONS_PVT.defer_workorder API returned error '
4302: );
4303: END IF;
4306: END IF;
4307: END IF;
4308: END LOOP;
4309:
4310: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4311: fnd_log.string
4312: (
4313: fnd_log.level_statement,
4314: 'before ahl.plsql.AHL_PRD_WORKORDER_PVT.cancel_visit_jobs',
4307: END IF;
4308: END LOOP;
4309:
4310: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4311: fnd_log.string
4312: (
4313: fnd_log.level_statement,
4314: 'before ahl.plsql.AHL_PRD_WORKORDER_PVT.cancel_visit_jobs',
4315: 'Workorder Cancel Visits Jobs '
4309:
4310: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4311: fnd_log.string
4312: (
4313: fnd_log.level_statement,
4314: 'before ahl.plsql.AHL_PRD_WORKORDER_PVT.cancel_visit_jobs',
4315: 'Workorder Cancel Visits Jobs '
4316: );
4317: END IF;
4320: IF(FND_MSG_PUB.count_msg > 0)THEN
4321: RETURN;
4322: END IF;
4323:
4324: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4325: fnd_log.string
4326: (
4327: fnd_log.level_statement,
4328: 'ahl.plsql.AHL_PRD_WORKORDER_PVT.cancel_visit_jobs',
4321: RETURN;
4322: END IF;
4323:
4324: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4325: fnd_log.string
4326: (
4327: fnd_log.level_statement,
4328: 'ahl.plsql.AHL_PRD_WORKORDER_PVT.cancel_visit_jobs',
4329: 'Workorder Cancel Visits Jobs '
4323:
4324: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4325: fnd_log.string
4326: (
4327: fnd_log.level_statement,
4328: 'ahl.plsql.AHL_PRD_WORKORDER_PVT.cancel_visit_jobs',
4329: 'Workorder Cancel Visits Jobs '
4330: );
4331: END IF;
4349: );
4350: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4351: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_APPR_CMP_JB_FAIL');
4352: FND_MSG_PUB.ADD;
4353: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4354: fnd_log.string
4355: (
4356: fnd_log.level_unexpected,
4357: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4350: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4351: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_APPR_CMP_JB_FAIL');
4352: FND_MSG_PUB.ADD;
4353: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4354: fnd_log.string
4355: (
4356: fnd_log.level_unexpected,
4357: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4358: 'AHL_PRD_WORKORDERS_PVT.cancel_visit_jobs API returned error '
4352: FND_MSG_PUB.ADD;
4353: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4354: fnd_log.string
4355: (
4356: fnd_log.level_unexpected,
4357: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4358: 'AHL_PRD_WORKORDERS_PVT.cancel_visit_jobs API returned error '
4359: );
4360: END IF;
4360: END IF;
4361: END IF;
4362: END IF;
4363:
4364: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4365: fnd_log.string
4366: (
4367: fnd_log.level_procedure,
4368: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders.end',
4361: END IF;
4362: END IF;
4363:
4364: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4365: fnd_log.string
4366: (
4367: fnd_log.level_procedure,
4368: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders.end',
4369: 'At the end of PLSQL procedure'
4363:
4364: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4365: fnd_log.string
4366: (
4367: fnd_log.level_procedure,
4368: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders.end',
4369: 'At the end of PLSQL procedure'
4370: );
4371: END IF;
4585:
4586: l_init_due_deferral_id NUMBER;
4587: BEGIN
4588:
4589: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4590: fnd_log.string
4591: (
4592: fnd_log.level_procedure,
4593: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan.begin',
4586: l_init_due_deferral_id NUMBER;
4587: BEGIN
4588:
4589: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4590: fnd_log.string
4591: (
4592: fnd_log.level_procedure,
4593: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan.begin',
4594: 'At the start of PLSQL procedure'
4588:
4589: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4590: fnd_log.string
4591: (
4592: fnd_log.level_procedure,
4593: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan.begin',
4594: 'At the start of PLSQL procedure'
4595: );
4596: END IF;
4602: IF(unit_effectivity_id_csr%NOTFOUND)THEN
4603: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_APPR_INV_DF');
4604: FND_MESSAGE.SET_TOKEN('DEFERRAL_ID',p_unit_deferral_id);
4605: FND_MSG_PUB.ADD;
4606: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4607: fnd_log.string
4608: (
4609: fnd_log.level_unexpected,
4610: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4603: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DF_APPR_INV_DF');
4604: FND_MESSAGE.SET_TOKEN('DEFERRAL_ID',p_unit_deferral_id);
4605: FND_MSG_PUB.ADD;
4606: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4607: fnd_log.string
4608: (
4609: fnd_log.level_unexpected,
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
4605: FND_MSG_PUB.ADD;
4606: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4607: fnd_log.string
4608: (
4609: fnd_log.level_unexpected,
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;
4629: IF NOT (l_cs_incident_id IS NOT NULL AND l_cs_incident_id > 0) THEN
4630: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_INVALID_INCIDENT_ID');
4631: FND_MESSAGE.SET_TOKEN('INCIDENT_ID', l_cs_incident_id);
4632: FND_MSG_PUB.ADD;
4633: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4634: fnd_log.string
4635: (
4636: fnd_log.level_unexpected, 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4637: 'Wrong SR incident id: ' || l_cs_incident_id
4630: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_INVALID_INCIDENT_ID');
4631: FND_MESSAGE.SET_TOKEN('INCIDENT_ID', l_cs_incident_id);
4632: FND_MSG_PUB.ADD;
4633: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4634: fnd_log.string
4635: (
4636: fnd_log.level_unexpected, 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4637: 'Wrong SR incident id: ' || l_cs_incident_id
4638: );
4632: FND_MSG_PUB.ADD;
4633: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4634: fnd_log.string
4635: (
4636: fnd_log.level_unexpected, 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4637: 'Wrong SR incident id: ' || l_cs_incident_id
4638: );
4639: END IF;
4640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4689: END IF;
4690: END IF;
4691: CLOSE unit_effectivity_id_csr;
4692:
4693: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4694: fnd_log.string
4695: (
4696: fnd_log.level_statement,
4697: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4690: END IF;
4691: CLOSE unit_effectivity_id_csr;
4692:
4693: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4694: fnd_log.string
4695: (
4696: fnd_log.level_statement,
4697: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4698: 'x_return_status : ' || x_return_status
4692:
4693: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4694: fnd_log.string
4695: (
4696: fnd_log.level_statement,
4697: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4698: 'x_return_status : ' || x_return_status
4699: );
4700: fnd_log.string
4696: fnd_log.level_statement,
4697: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4698: 'x_return_status : ' || x_return_status
4699: );
4700: fnd_log.string
4701: (
4702: fnd_log.level_statement,
4703: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4704: 'p_new_status : ' || p_new_status
4698: 'x_return_status : ' || x_return_status
4699: );
4700: fnd_log.string
4701: (
4702: fnd_log.level_statement,
4703: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4704: 'p_new_status : ' || p_new_status
4705: );
4706: fnd_log.string
4702: fnd_log.level_statement,
4703: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4704: 'p_new_status : ' || p_new_status
4705: );
4706: fnd_log.string
4707: (
4708: fnd_log.level_statement,
4709: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4710: 'p_approval_result_code : ' || p_approval_result_code
4704: 'p_new_status : ' || p_new_status
4705: );
4706: fnd_log.string
4707: (
4708: fnd_log.level_statement,
4709: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4710: 'p_approval_result_code : ' || p_approval_result_code
4711: );
4712:
4718:
4719: IF(p_approval_result_code = G_DEFERRAL_APPROVED)THEN
4720: -- clean up prior deferrals
4721: process_prior_ump_deferrals(l_unit_effectivity_id);
4722: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4723: fnd_log.string
4724: (
4725: fnd_log.level_statement,
4726: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4719: IF(p_approval_result_code = G_DEFERRAL_APPROVED)THEN
4720: -- clean up prior deferrals
4721: process_prior_ump_deferrals(l_unit_effectivity_id);
4722: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4723: fnd_log.string
4724: (
4725: fnd_log.level_statement,
4726: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4727: 'l_deferral_type : ' || l_deferral_type
4721: process_prior_ump_deferrals(l_unit_effectivity_id);
4722: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4723: fnd_log.string
4724: (
4725: fnd_log.level_statement,
4726: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4727: 'l_deferral_type : ' || l_deferral_type
4728: );
4729: fnd_log.string
4725: fnd_log.level_statement,
4726: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4727: 'l_deferral_type : ' || l_deferral_type
4728: );
4729: fnd_log.string
4730: (
4731: fnd_log.level_statement,
4732: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4733: 'l_manually_planned_flag : ' || l_manually_planned_flag
4727: 'l_deferral_type : ' || l_deferral_type
4728: );
4729: fnd_log.string
4730: (
4731: fnd_log.level_statement,
4732: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4733: 'l_manually_planned_flag : ' || l_manually_planned_flag
4734: );
4735: END IF;
4736: l_manually_planned_flag := NVL(l_manually_planned_flag,G_NO_FLAG);
4737: -- get relationship tree snapshot
4738: IF(p_new_status = 'DEFERRED' OR (l_deferral_type = 'MR' AND l_manually_planned_flag = G_NO_FLAG AND p_new_status = 'CANCELLED')
4739: OR (l_deferral_type = 'SR' AND p_new_status = 'CANCELLED' AND l_serial_number IS NOT NULL))THEN
4740: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4741: fnd_log.string
4742: (
4743: fnd_log.level_statement,
4744: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4737: -- get relationship tree snapshot
4738: IF(p_new_status = 'DEFERRED' OR (l_deferral_type = 'MR' AND l_manually_planned_flag = G_NO_FLAG AND p_new_status = 'CANCELLED')
4739: OR (l_deferral_type = 'SR' AND p_new_status = 'CANCELLED' AND l_serial_number IS NOT NULL))THEN
4740: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4741: fnd_log.string
4742: (
4743: fnd_log.level_statement,
4744: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4745: 'copying child tree : '
4739: OR (l_deferral_type = 'SR' AND p_new_status = 'CANCELLED' AND l_serial_number IS NOT NULL))THEN
4740: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4741: fnd_log.string
4742: (
4743: fnd_log.level_statement,
4744: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4745: 'copying child tree : '
4746: );
4747: END IF;
4820: ELSE
4821: l_new_defer_from_ue_id := l_unit_effectivity_id;
4822: END IF;
4823:
4824: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4825: fnd_log.string
4826: (
4827: fnd_log.level_statement,
4828: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4821: l_new_defer_from_ue_id := l_unit_effectivity_id;
4822: END IF;
4823:
4824: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4825: fnd_log.string
4826: (
4827: fnd_log.level_statement,
4828: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4829: 'inserting new UMP :l_new_defer_from_ue_id : ' || l_new_defer_from_ue_id
4823:
4824: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4825: fnd_log.string
4826: (
4827: fnd_log.level_statement,
4828: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4829: 'inserting new UMP :l_new_defer_from_ue_id : ' || l_new_defer_from_ue_id
4830: );
4831: END IF;
4964: END IF;
4965: CLOSE is_initdue_def;
4966: END IF;
4967: -- update status here
4968: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4969: fnd_log.string
4970: (
4971: fnd_log.level_statement,
4972: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4965: CLOSE is_initdue_def;
4966: END IF;
4967: -- update status here
4968: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4969: fnd_log.string
4970: (
4971: fnd_log.level_statement,
4972: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4973: 'updating UMP :l_update_status : ' || l_update_status
4967: -- update status here
4968: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4969: fnd_log.string
4970: (
4971: fnd_log.level_statement,
4972: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4973: 'updating UMP :l_update_status : ' || l_update_status
4974: );
4975: END IF;
5037: IF (l_ue_relns_tbl.count > 0 AND (p_new_status = 'DEFERRED' OR (l_deferral_type = 'MR' AND l_manually_planned_flag = G_NO_FLAG AND p_new_status = 'CANCELLED')
5038: OR (l_deferral_type = 'SR' AND p_new_status = 'CANCELLED' AND l_serial_number IS NOT NULL)))THEN
5039: FOR k IN l_ue_relns_tbl.FIRST..l_ue_relns_tbl.LAST LOOP
5040: -- Insert into ahl_ue_relationships.
5041: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5042: fnd_log.string
5043: (
5044: fnd_log.level_statement,
5045: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
5038: OR (l_deferral_type = 'SR' AND p_new_status = 'CANCELLED' AND l_serial_number IS NOT NULL)))THEN
5039: FOR k IN l_ue_relns_tbl.FIRST..l_ue_relns_tbl.LAST LOOP
5040: -- Insert into ahl_ue_relationships.
5041: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5042: fnd_log.string
5043: (
5044: fnd_log.level_statement,
5045: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
5046: 'inserting Relationships :l_ue_relns_tbl.count : ' || l_ue_relns_tbl.count
5040: -- Insert into ahl_ue_relationships.
5041: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5042: fnd_log.string
5043: (
5044: fnd_log.level_statement,
5045: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
5046: 'inserting Relationships :l_ue_relns_tbl.count : ' || l_ue_relns_tbl.count
5047: );
5048: END IF;
5154: END IF;
5155: END LOOP;
5156: END IF;
5157:
5158: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5159: fnd_log.string
5160: (
5161: fnd_log.level_procedure,
5162: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan.end',
5155: END LOOP;
5156: END IF;
5157:
5158: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5159: fnd_log.string
5160: (
5161: fnd_log.level_procedure,
5162: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan.end',
5163: 'At the end of PLSQL procedure'
5157:
5158: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
5159: fnd_log.string
5160: (
5161: fnd_log.level_procedure,
5162: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan.end',
5163: 'At the end of PLSQL procedure'
5164: );
5165: END IF;
5233: WHERE unit_deferral_id = p_unit_deferral_id;
5234:
5235:
5236: BEGIN
5237: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5238: fnd_log.string
5239: (
5240: fnd_log.level_procedure,
5241: 'ahl.plsql.AHL_PRD_DF_PVT.process_prior_ump_deferrals.begin',
5234:
5235:
5236: BEGIN
5237: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5238: fnd_log.string
5239: (
5240: fnd_log.level_procedure,
5241: 'ahl.plsql.AHL_PRD_DF_PVT.process_prior_ump_deferrals.begin',
5242: 'At the start of PLSQL procedure'
5236: BEGIN
5237: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5238: fnd_log.string
5239: (
5240: fnd_log.level_procedure,
5241: 'ahl.plsql.AHL_PRD_DF_PVT.process_prior_ump_deferrals.begin',
5242: 'At the start of PLSQL procedure'
5243: );
5244: END IF;
5242: 'At the start of PLSQL procedure'
5243: );
5244: END IF;
5245:
5246: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5247: fnd_log.string
5248: (
5249: fnd_log.level_statement,
5250: 'ahl.plsql.AHL_PRD_DF_PVT.process_prior_ump_deferrals',
5243: );
5244: END IF;
5245:
5246: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5247: fnd_log.string
5248: (
5249: fnd_log.level_statement,
5250: 'ahl.plsql.AHL_PRD_DF_PVT.process_prior_ump_deferrals',
5251: 'deleting redundant ue, relationships and marking as exception if assigned to visit'
5245:
5246: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5247: fnd_log.string
5248: (
5249: fnd_log.level_statement,
5250: 'ahl.plsql.AHL_PRD_DF_PVT.process_prior_ump_deferrals',
5251: 'deleting redundant ue, relationships and marking as exception if assigned to visit'
5252: );
5253: END IF;
5330: END IF;
5331: CLOSE assigned_to_visit_csr;
5332: END LOOP;
5333:
5334: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5335: fnd_log.string
5336: (
5337: fnd_log.level_statement,
5338: 'ahl.plsql.AHL_PRD_DF_PVT.process_prior_ump_deferrals',
5331: CLOSE assigned_to_visit_csr;
5332: END LOOP;
5333:
5334: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5335: fnd_log.string
5336: (
5337: fnd_log.level_statement,
5338: 'ahl.plsql.AHL_PRD_DF_PVT.process_prior_ump_deferrals',
5339: 'deleting un-necessary deferral records'
5333:
5334: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5335: fnd_log.string
5336: (
5337: fnd_log.level_statement,
5338: 'ahl.plsql.AHL_PRD_DF_PVT.process_prior_ump_deferrals',
5339: 'deleting un-necessary deferral records'
5340: );
5341: END IF;
5347: AHL_UNIT_DEFERRALS_PKG.delete_row(redundant_deferral_rec.unit_deferral_id);
5348: END LOOP;
5349:
5350:
5351: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5352: fnd_log.string
5353: (
5354: fnd_log.level_procedure,
5355: 'ahl.plsql.AHL_PRD_DF_PVT.process_prior_ump_deferrals.end',
5348: END LOOP;
5349:
5350:
5351: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5352: fnd_log.string
5353: (
5354: fnd_log.level_procedure,
5355: 'ahl.plsql.AHL_PRD_DF_PVT.process_prior_ump_deferrals.end',
5356: 'At the end of PLSQL procedure'
5350:
5351: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5352: fnd_log.string
5353: (
5354: fnd_log.level_procedure,
5355: 'ahl.plsql.AHL_PRD_DF_PVT.process_prior_ump_deferrals.end',
5356: 'At the end of PLSQL procedure'
5357: );
5358: END IF;
5508: WHERE ue.UNIT_EFFECTIVITY_ID = p_unit_effectivity_id
5509: AND csi.instance_id = ue.CSI_ITEM_INSTANCE_ID AND csi.SERIAL_NUMBER IS NOT NULL;
5510:
5511: BEGIN
5512: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5513: fnd_log.string
5514: (
5515: fnd_log.level_procedure,
5516: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details.begin',
5509: AND csi.instance_id = ue.CSI_ITEM_INSTANCE_ID AND csi.SERIAL_NUMBER IS NOT NULL;
5510:
5511: BEGIN
5512: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5513: fnd_log.string
5514: (
5515: fnd_log.level_procedure,
5516: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details.begin',
5517: 'At the start of PLSQL procedure'
5511: BEGIN
5512: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5513: fnd_log.string
5514: (
5515: fnd_log.level_procedure,
5516: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details.begin',
5517: 'At the start of PLSQL procedure'
5518: );
5519: END IF;
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: (
5530: fnd_log.level_statement,
5531: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
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: (
5530: fnd_log.level_statement,
5531: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5532: 'Got request for deferral record of Unit effectivity ID : ' || p_unit_effectivity_id
5526:
5527: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5528: fnd_log.string
5529: (
5530: fnd_log.level_statement,
5531: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
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
5541: (
5542: fnd_log.level_unexpected,
5543: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5536: IF(p_unit_effectivity_id IS NULL OR p_unit_effectivity_id = FND_API.G_MISS_NUM)THEN
5537: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_HREC_KMISS');
5538: FND_MSG_PUB.ADD;
5539: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5540: fnd_log.string
5541: (
5542: fnd_log.level_unexpected,
5543: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5544: 'Invalid request, Unit Effectivity IS NULL'
5538: FND_MSG_PUB.ADD;
5539: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5540: fnd_log.string
5541: (
5542: fnd_log.level_unexpected,
5543: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5544: 'Invalid request, Unit Effectivity IS NULL'
5545: );
5546: END IF;
5557: IF(l_applicable_ue_id IS NULL)THEN
5558: l_applicable_ue_id := p_unit_effectivity_id;
5559: /*FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_MRSR_STATUS');
5560: FND_MSG_PUB.ADD;
5561: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
5562: fnd_log.string
5563: (
5564: fnd_log.level_error,
5565: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5558: l_applicable_ue_id := p_unit_effectivity_id;
5559: /*FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_MRSR_STATUS');
5560: FND_MSG_PUB.ADD;
5561: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
5562: fnd_log.string
5563: (
5564: fnd_log.level_error,
5565: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5566: 'Status of MR or SR is not valid for deferral'
5560: FND_MSG_PUB.ADD;
5561: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
5562: fnd_log.string
5563: (
5564: fnd_log.level_error,
5565: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5566: 'Status of MR or SR is not valid for deferral'
5567: );
5568: END IF;*/
5579:
5580: IF(context_info_csr%NOTFOUND)THEN
5581: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_HREC_UE_ID');
5582: FND_MSG_PUB.ADD;
5583: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5584: fnd_log.string
5585: (
5586: fnd_log.level_unexpected,
5587: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5580: IF(context_info_csr%NOTFOUND)THEN
5581: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_HREC_UE_ID');
5582: FND_MSG_PUB.ADD;
5583: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5584: fnd_log.string
5585: (
5586: fnd_log.level_unexpected,
5587: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5588: 'Unit Effectivity record not found'
5582: FND_MSG_PUB.ADD;
5583: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5584: fnd_log.string
5585: (
5586: fnd_log.level_unexpected,
5587: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5588: 'Unit Effectivity record not found'
5589: );
5590: END IF;
5600: FETCH mr_status_meaning_csr INTO l_df_header_info_rec.ue_status_meaning;
5601: IF(mr_status_meaning_csr%NOTFOUND)THEN
5602: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_UE_MR');
5603: FND_MSG_PUB.ADD;
5604: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5605: fnd_log.string
5606: (
5607: fnd_log.level_unexpected,
5608: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5601: IF(mr_status_meaning_csr%NOTFOUND)THEN
5602: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_UE_MR');
5603: FND_MSG_PUB.ADD;
5604: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5605: fnd_log.string
5606: (
5607: fnd_log.level_unexpected,
5608: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5609: 'Invalid unit effectivity record, mr status meaning not found'
5603: FND_MSG_PUB.ADD;
5604: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5605: fnd_log.string
5606: (
5607: fnd_log.level_unexpected,
5608: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5609: 'Invalid unit effectivity record, mr status meaning not found'
5610: );
5611: END IF;
5620: /* R12: UMP Deferral.
5621: IF(visit_info_csr%NOTFOUND)THEN
5622: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_UE_VISIT');
5623: FND_MSG_PUB.ADD;
5624: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5625: fnd_log.string
5626: (
5627: fnd_log.level_unexpected,
5628: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5621: IF(visit_info_csr%NOTFOUND)THEN
5622: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_UE_VISIT');
5623: FND_MSG_PUB.ADD;
5624: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5625: fnd_log.string
5626: (
5627: fnd_log.level_unexpected,
5628: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5629: 'Visit Information not found'
5623: FND_MSG_PUB.ADD;
5624: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5625: fnd_log.string
5626: (
5627: fnd_log.level_unexpected,
5628: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5629: 'Visit Information not found'
5630: );
5631: END IF;
5718: FETCH ue_status_meaning_csr INTO l_df_header_info_rec.ue_status_meaning;
5719: IF(ue_status_meaning_csr%NOTFOUND)THEN
5720: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_UE_MR');
5721: FND_MSG_PUB.ADD;
5722: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5723: fnd_log.string
5724: (
5725: fnd_log.level_unexpected,
5726: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5719: IF(ue_status_meaning_csr%NOTFOUND)THEN
5720: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_UE_MR');
5721: FND_MSG_PUB.ADD;
5722: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5723: fnd_log.string
5724: (
5725: fnd_log.level_unexpected,
5726: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5727: 'Invalid unit effectivity record, mr status meaning not found'
5721: FND_MSG_PUB.ADD;
5722: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5723: fnd_log.string
5724: (
5725: fnd_log.level_unexpected,
5726: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5727: 'Invalid unit effectivity record, mr status meaning not found'
5728: );
5729: END IF;
5792: x_df_header_info_rec := l_df_header_info_rec;
5793: x_df_schedules_tbl := l_df_schedules_tbl;
5794:
5795:
5796: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5797: fnd_log.string
5798: (
5799: fnd_log.level_procedure,
5800: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details.end',
5793: x_df_schedules_tbl := l_df_schedules_tbl;
5794:
5795:
5796: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5797: fnd_log.string
5798: (
5799: fnd_log.level_procedure,
5800: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details.end',
5801: 'At the end of PLSQL procedure'
5795:
5796: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5797: fnd_log.string
5798: (
5799: fnd_log.level_procedure,
5800: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details.end',
5801: 'At the end of PLSQL procedure'
5802: );
5803: END IF;
5855: l_def_status_code;
5856: IF(applicable_ue_csr%NOTFOUND)THEN
5857: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_HREC_UE_ID');
5858: FND_MSG_PUB.ADD;
5859: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5860: fnd_log.string
5861: (
5862: fnd_log.level_unexpected,
5863: 'ahl.plsql.AHL_PRD_DF_PVT.get_applicable_ue',
5856: IF(applicable_ue_csr%NOTFOUND)THEN
5857: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DF_INV_HREC_UE_ID');
5858: FND_MSG_PUB.ADD;
5859: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5860: fnd_log.string
5861: (
5862: fnd_log.level_unexpected,
5863: 'ahl.plsql.AHL_PRD_DF_PVT.get_applicable_ue',
5864: 'Unit Effectivity record not found'
5858: FND_MSG_PUB.ADD;
5859: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5860: fnd_log.string
5861: (
5862: fnd_log.level_unexpected,
5863: 'ahl.plsql.AHL_PRD_DF_PVT.get_applicable_ue',
5864: 'Unit Effectivity record not found'
5865: );
5866: END IF;
6052: p_mr_header_id => l_new_mr_header_id,
6053: p_components_flag => 'N',
6054: x_applicable_mr_tbl => l_mr_item_instance_tbl) ;
6055:
6056: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
6057: fnd_log.string
6058: (
6059: fnd_log.level_statement,
6060: 'ahl.plsql.AHL_PRD_DF_PVT.get_mr_termination_details',
6053: p_components_flag => 'N',
6054: x_applicable_mr_tbl => l_mr_item_instance_tbl) ;
6055:
6056: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
6057: fnd_log.string
6058: (
6059: fnd_log.level_statement,
6060: 'ahl.plsql.AHL_PRD_DF_PVT.get_mr_termination_details',
6061: 'returned from AHL_FMP_PVT.Get_Applicable_MRs:status:' || x_return_status
6055:
6056: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
6057: fnd_log.string
6058: (
6059: fnd_log.level_statement,
6060: 'ahl.plsql.AHL_PRD_DF_PVT.get_mr_termination_details',
6061: 'returned from AHL_FMP_PVT.Get_Applicable_MRs:status:' || x_return_status
6062: );
6063: END IF;
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: (
6078: fnd_log.level_statement,
6079: 'ahl.plsql.AHL_PRD_DF_PVT.get_mr_termination_details',
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: (
6078: fnd_log.level_statement,
6079: 'ahl.plsql.AHL_PRD_DF_PVT.get_mr_termination_details',
6080: 'Found new version of MR applicable:x_new_mr_header_id:' || x_new_mr_header_id
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: (
6078: fnd_log.level_statement,
6079: 'ahl.plsql.AHL_PRD_DF_PVT.get_mr_termination_details',
6080: 'Found new version of MR applicable:x_new_mr_header_id:' || x_new_mr_header_id
6081: );
6082: END IF;
6097: p_mr_header_id => l_mr_header_id,
6098: p_components_flag => 'N',
6099: x_applicable_mr_tbl => l_mr_item_instance_tbl) ;
6100:
6101: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
6102: fnd_log.string
6103: (
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
6098: p_components_flag => 'N',
6099: x_applicable_mr_tbl => l_mr_item_instance_tbl) ;
6100:
6101: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
6102: fnd_log.string
6103: (
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: );
6100:
6101: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
6102: fnd_log.string
6103: (
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
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,
6122: 'ahl.plsql.AHL_PRD_DF_PVT.get_mr_termination_details', 'Found MR applicable:l_mr_header_id:' || l_mr_header_id
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,
6122: 'ahl.plsql.AHL_PRD_DF_PVT.get_mr_termination_details', 'Found MR applicable:l_mr_header_id:' || l_mr_header_id
6123: );
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,
6122: 'ahl.plsql.AHL_PRD_DF_PVT.get_mr_termination_details', 'Found MR applicable:l_mr_header_id:' || l_mr_header_id
6123: );
6124: END IF;
6125: EXIT;
6131: END IF; -- l_mr_item_instance_tbl.COUNT
6132:
6133: END IF; -- x_mr_applicable
6134:
6135: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
6136: fnd_log.string
6137: (
6138: fnd_log.level_procedure,
6139: 'ahl.plsql.AHL_PRD_DF_PVT.get_mr_termination_details',
6132:
6133: END IF; -- x_mr_applicable
6134:
6135: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
6136: fnd_log.string
6137: (
6138: fnd_log.level_procedure,
6139: 'ahl.plsql.AHL_PRD_DF_PVT.get_mr_termination_details',
6140: 'End of procedure'
6134:
6135: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
6136: fnd_log.string
6137: (
6138: fnd_log.level_procedure,
6139: 'ahl.plsql.AHL_PRD_DF_PVT.get_mr_termination_details',
6140: 'End of procedure'
6141: );
6142: END IF;