[Home] [Help]
1: PACKAGE BODY AHL_PRD_DF_PVT AS
2: /* $Header: AHLVPDFB.pls 120.27.12020000.2 2012/12/07 07:48:59 sareepar ship $ */
3: -- Package/App Name
4: G_PKG_NAME CONSTANT VARCHAR(30) := 'AHL_PRD_DF_PVT';
5: G_APP_NAME CONSTANT VARCHAR2(3) := 'AHL';
1: PACKAGE BODY AHL_PRD_DF_PVT AS
2: /* $Header: AHLVPDFB.pls 120.27.12020000.2 2012/12/07 07:48:59 sareepar ship $ */
3: -- Package/App Name
4: G_PKG_NAME CONSTANT VARCHAR(30) := 'AHL_PRD_DF_PVT';
5: G_APP_NAME CONSTANT VARCHAR2(3) := 'AHL';
6:
7: G_OP_SUBMIT_FOR_APPROVAL BOOLEAN := false;
8: G_MODULE_TYPE VARCHAR2(30) := 'JSP';
32: ------------------------------------------------------------------------------------
33: -- Internal procedure that this API uses For procedures defined in specs of this API
34: ------------------------------------------------------------------------------------
35: PROCEDURE process_df_header(
36: p_x_df_header_rec IN OUT NOCOPY AHL_PRD_DF_PVT.df_header_rec_type);
37:
38: PROCEDURE log_df_header(
39: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type);
40:
35: PROCEDURE process_df_header(
36: p_x_df_header_rec IN OUT NOCOPY AHL_PRD_DF_PVT.df_header_rec_type);
37:
38: PROCEDURE log_df_header(
39: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type);
40:
41: PROCEDURE validate_df_header(
42: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type);
43:
38: PROCEDURE log_df_header(
39: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type);
40:
41: PROCEDURE validate_df_header(
42: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type);
43:
44: PROCEDURE validate_reason_codes(
45: p_defer_reason_code IN VARCHAR2);
46:
44: PROCEDURE validate_reason_codes(
45: p_defer_reason_code IN VARCHAR2);
46:
47: PROCEDURE default_unchanged_df_header(
48: p_x_df_header_rec IN OUT NOCOPY AHL_PRD_DF_PVT.df_header_rec_type);
49:
50: PROCEDURE process_df_schedules(
51: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type,
52: p_x_df_schedules_tbl IN OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type);
47: PROCEDURE default_unchanged_df_header(
48: p_x_df_header_rec IN OUT NOCOPY AHL_PRD_DF_PVT.df_header_rec_type);
49:
50: PROCEDURE process_df_schedules(
51: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type,
52: p_x_df_schedules_tbl IN OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type);
53:
54: PROCEDURE log_df_schedules(
55: p_df_schedules_tbl IN AHL_PRD_DF_PVT.df_schedules_tbl_type);
48: p_x_df_header_rec IN OUT NOCOPY AHL_PRD_DF_PVT.df_header_rec_type);
49:
50: PROCEDURE process_df_schedules(
51: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type,
52: p_x_df_schedules_tbl IN OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type);
53:
54: PROCEDURE log_df_schedules(
55: p_df_schedules_tbl IN AHL_PRD_DF_PVT.df_schedules_tbl_type);
56:
51: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type,
52: p_x_df_schedules_tbl IN OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type);
53:
54: PROCEDURE log_df_schedules(
55: p_df_schedules_tbl IN AHL_PRD_DF_PVT.df_schedules_tbl_type);
56:
57: PROCEDURE validate_df_schedules(
58: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type,
59: p_df_schedules_tbl IN AHL_PRD_DF_PVT.df_schedules_tbl_type);
54: PROCEDURE log_df_schedules(
55: p_df_schedules_tbl IN AHL_PRD_DF_PVT.df_schedules_tbl_type);
56:
57: PROCEDURE validate_df_schedules(
58: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type,
59: p_df_schedules_tbl IN AHL_PRD_DF_PVT.df_schedules_tbl_type);
60:
61: PROCEDURE default_unchanged_df_schedules(
62: p_x_df_schedules_tbl IN OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type);
55: p_df_schedules_tbl IN AHL_PRD_DF_PVT.df_schedules_tbl_type);
56:
57: PROCEDURE validate_df_schedules(
58: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type,
59: p_df_schedules_tbl IN AHL_PRD_DF_PVT.df_schedules_tbl_type);
60:
61: PROCEDURE default_unchanged_df_schedules(
62: p_x_df_schedules_tbl IN OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type);
63:
58: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type,
59: p_df_schedules_tbl IN AHL_PRD_DF_PVT.df_schedules_tbl_type);
60:
61: PROCEDURE default_unchanged_df_schedules(
62: p_x_df_schedules_tbl IN OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type);
63:
64: PROCEDURE validate_deferral_updates(
65: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type,
66: x_warning_msg_data OUT NOCOPY VARCHAR2);
61: PROCEDURE default_unchanged_df_schedules(
62: p_x_df_schedules_tbl IN OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type);
63:
64: PROCEDURE validate_deferral_updates(
65: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type,
66: x_warning_msg_data OUT NOCOPY VARCHAR2);
67:
68: /* R12: moved to spec.
69: PROCEDURE process_approval_initiated (
73: x_return_status OUT NOCOPY VARCHAR2);
74: */
75:
76: PROCEDURE submit_for_approval(
77: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type);
78:
79: FUNCTION valid_for_submission(
80: p_unit_effectivity_id IN NUMBER) RETURN BOOLEAN;
81:
155: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
156: p_commit IN VARCHAR2 := FND_API.G_FALSE,
157: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
158: p_module_type IN VARCHAR2 := NULL,
159: p_x_df_header_rec IN OUT NOCOPY AHL_PRD_DF_PVT.df_header_rec_type,
160: p_x_df_schedules_tbl IN OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type,
161: x_return_status OUT NOCOPY VARCHAR2,
162: x_msg_count OUT NOCOPY NUMBER,
163: x_msg_data OUT NOCOPY VARCHAR2) IS
156: p_commit IN VARCHAR2 := FND_API.G_FALSE,
157: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
158: p_module_type IN VARCHAR2 := NULL,
159: p_x_df_header_rec IN OUT NOCOPY AHL_PRD_DF_PVT.df_header_rec_type,
160: p_x_df_schedules_tbl IN OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type,
161: x_return_status OUT NOCOPY VARCHAR2,
162: x_msg_count OUT NOCOPY NUMBER,
163: x_msg_data OUT NOCOPY VARCHAR2) IS
164:
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;
179: -- Standard start of API savepoint
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
201: (
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
207: (
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
213: (
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;
219: -- Initialize API return status to success
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);
230: END IF;
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);
244: END IF;
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
255: (
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
261: log_df_schedules(p_df_schedules_tbl => p_x_df_schedules_tbl);
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);
282: END IF;
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: );
304: END IF;
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;
342:
377: -- the unit_deferral_id. Hence no validation level check and no sperate procedure for value
378: -- to id conversion process.
379: -------------------------------------------------------------------------------------
380: PROCEDURE process_df_header(
381: p_x_df_header_rec IN OUT NOCOPY AHL_PRD_DF_PVT.df_header_rec_type)
382: IS
383:
384: l_rowid VARCHAR2(30);
385:
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;
490: -- initializaing submit for approval flag
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;
526: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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;
548: CLOSE unit_effectivity_info_csr;
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;
562: CLOSE unit_effectivity_info_csr;
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;
576: CLOSE unit_effectivity_info_csr;
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);
633: END IF;
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;
764:
766: --------------------------------------------------------------------------------
767: -- Procedure to dump deferral header record
768: --------------------------------------------------------------------------------
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
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
781: (
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
787: (
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
793: (
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
799: (
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
805: (
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
811: (
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
817: (
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
823: (
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
829: (
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
835: (
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
841: (
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
847: (
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
853: (
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
859: (
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
865: (
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
871: (
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
877: (
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;
883: END log_df_header;
882: END IF;
883: END log_df_header;
884:
885: PROCEDURE validate_df_header(
886: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type)IS
887:
888: -- check whether any record already exists related to deferral
889: CURSOR deferral_rec_exists_csr(p_unit_effectivity_id IN NUMBER) IS
890: SELECT 'x' from ahl_unit_deferrals_vl
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;
1033: ELSE
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;
1055: END IF;
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;
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;
1105: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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;
1128: CLOSE deferral_rec_exists_csr;
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;
1145: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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;
1164: CLOSE valid_deferral_up_csr;
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;
1188: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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;
1201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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;
1214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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;
1244: END IF;
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;
1259: END IF;
1260:
1261: -- MR/SR specific validations
1262: IF(p_df_header_rec.deferral_type = G_DEFERRAL_TYPE_MR) THEN
1263:
1264: AHL_PRD_DF_PVT.get_mr_termination_details(
1265: p_unit_effectivity_id => p_df_header_rec.unit_effectivity_id,
1266: x_mr_applicable => l_mr_applicable,
1267: x_active_end_date => l_active_end_date,
1268: x_new_mr_header_id => l_new_mr_header_id,
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;
1301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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;
1317: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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;
1331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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;
1352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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;
1367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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;
1386:
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;
1417:
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;
1435: CLOSE val_reason_code_csr;
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;
1455: CLOSE val_reason_code_csr;
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;
1477:
1482: -- defaulting values in case of create and update mode
1483: ---------------------------------------------------------------------------------------------------------
1484:
1485: PROCEDURE default_unchanged_df_header(
1486: p_x_df_header_rec IN OUT NOCOPY AHL_PRD_DF_PVT.df_header_rec_type)IS
1487:
1488: CURSOR df_header_csr(p_unit_deferral_id IN NUMBER, p_object_version_number IN NUMBER) IS
1489: SELECT unit_effectivity_id, unit_deferral_type, approval_status_code, defer_reason_code,skip_mr_flag,cancel_flag,
1490: affect_due_calc_flag, set_due_date, deferral_effective_on,remarks,approver_notes,attribute_category, attribute1,
1494: FROM ahl_unit_deferrals_vl
1495: WHERE object_version_number= p_object_version_number
1496: AND unit_deferral_id = p_unit_deferral_id;
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
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;
1509:
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;
1533: ELSE
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;
1547: CLOSE df_header_csr;
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;
1564: CLOSE df_header_csr;
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;
1581: CLOSE df_header_csr;
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;
1640: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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;
1755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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;
1881:
1881:
1882: END default_unchanged_df_header;
1883:
1884: PROCEDURE process_df_schedules(
1885: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type,
1886: p_x_df_schedules_tbl IN OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type)IS
1887:
1888: CURSOR counter_id_csr(p_counter_name IN VARCHAR2,p_unit_effectivity_id IN NUMBER) IS
1889: --SELECT CO.counter_id FROM CSI_CP_COUNTERS_V CO, AHL_UNIT_EFFECTIVITIES_APP_V UE
1882: END default_unchanged_df_header;
1883:
1884: PROCEDURE process_df_schedules(
1885: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type,
1886: p_x_df_schedules_tbl IN OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type)IS
1887:
1888: CURSOR counter_id_csr(p_counter_name IN VARCHAR2,p_unit_effectivity_id IN NUMBER) IS
1889: --SELECT CO.counter_id FROM CSI_CP_COUNTERS_V CO, AHL_UNIT_EFFECTIVITIES_APP_V UE
1890: SELECT CO.counter_id FROM CSI_CP_COUNTERS_V CO, AHL_UNIT_EFFECTIVITIES_B UE -- Undid App usage BLIND changes
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;
1907: -- record dml validations and key requirement validations
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;
1921: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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;
1935: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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;
1948: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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;
1963: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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;
1979: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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;
1998: ELSE
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);
2020: END IF;
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;
2132:
2134: -----------------------------------------------------------------------------------
2135: -- Procedure to dump deferral schedules records
2136: -----------------------------------------------------------------------------------
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
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
2150: (
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
2156: (
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
2162: (
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
2168: (
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
2174: (
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
2180: (
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
2186: (
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
2192: (
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;
2198: END IF;
2198: END IF;
2199: END log_df_schedules;
2200:
2201: PROCEDURE validate_df_schedules(
2202: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type,
2203: p_df_schedules_tbl IN AHL_PRD_DF_PVT.df_schedules_tbl_type)IS
2204:
2205:
2206: CURSOR valid_counter_csr(p_unit_deferral_id IN NUMBER,p_counter_id IN NUMBER) IS
2199: END log_df_schedules;
2200:
2201: PROCEDURE validate_df_schedules(
2202: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type,
2203: p_df_schedules_tbl IN AHL_PRD_DF_PVT.df_schedules_tbl_type)IS
2204:
2205:
2206: CURSOR valid_counter_csr(p_unit_deferral_id IN NUMBER,p_counter_id IN NUMBER) IS
2207: --SELECT 'x' FROM CSI_CP_COUNTERS_V CO, AHL_UNIT_EFFECTIVITIES_APP_V UE,AHL_UNIT_DEFERRALS_B UD
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;
2241:
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;
2260: END IF;
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;
2288: END IF;
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;
2306:
2306:
2307: END validate_df_schedules;
2308:
2309: PROCEDURE default_unchanged_df_schedules(
2310: p_x_df_schedules_tbl IN OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type)IS
2311:
2312: CURSOR df_schedules_csr(p_unit_threshold_id IN NUMBER, p_object_version_number IN NUMBER) IS
2313: SELECT unit_deferral_id,counter_id,counter_value,ctr_value_type_code,attribute_category, attribute1,attribute2, attribute3, attribute4,
2314: attribute5, attribute6, attribute7, attribute8, attribute9, attribute10, attribute11,
2316: FROM ahl_unit_thresholds
2317: WHERE object_version_number= p_object_version_number
2318: AND unit_threshold_id = p_unit_threshold_id;
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
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;
2331:
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;
2353: ELSE
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;
2367: CLOSE df_schedules_csr;
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;
2384: END IF;
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;
2402: END IF;
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;
2417: CLOSE df_schedules_csr;
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;
2533: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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;
2549: END IF;
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;
2566: END IF;
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;
2580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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;
2663:
2666: -- Validate deferral record as a whole
2667: --------------------------------------------------------------------------------
2668:
2669: PROCEDURE validate_deferral_updates(
2670: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type,
2671: x_warning_msg_data OUT NOCOPY VARCHAR2)IS
2672:
2673: l_count1 NUMBER;
2674: l_count2 NUMBER;
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;
2768:
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;
2786: END IF;
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;
2800: ELSE
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;
2817: END IF;
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;
2856: END IF;
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;
2891: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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;
2959:
2959:
2960: END validate_deferral_updates;
2961:
2962: PROCEDURE submit_for_approval(
2963: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type)IS
2964:
2965: l_object VARCHAR2(30):= G_WORKFLOW_OBJECT_KEY;
2966: l_approval_type VARCHAR2(100):='CONCEPT';
2967: l_active VARCHAR2(50):= 'N';
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:
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;
3004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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;
3018: RAISE FND_API.G_EXC_ERROR;
3041: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3042: fnd_log.string
3043: (
3044: fnd_log.level_error,
3045: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3046: 'Can not go ahead with aubmission of approval because Workorder dependencies exists'
3047: );
3048: END IF;
3049: RAISE FND_API.G_EXC_ERROR;
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
3069: (
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
3075: (
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:
3081: END IF;
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;
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;
3104: l_active := G_NO_FLAG;
3104: l_active := G_NO_FLAG;
3105: END IF;
3106:
3107: -- make a call to update job status to pending deferral approval and update approval status
3108: AHL_PRD_DF_PVT.process_approval_initiated(
3109: p_unit_deferral_id => p_df_header_rec.unit_deferral_id,
3110: p_object_version_number => p_df_header_rec.object_version_number,
3111: p_new_status => 'DEFERRAL_PENDING',
3112: x_return_status => l_return_status);
3116: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3117: fnd_log.string
3118: (
3119: fnd_log.level_error,
3120: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3121: 'Can not go ahead with approval because AHL_PRD_DF_PVT.process_approval_initiated threw error'
3122: );
3123: END IF;
3124: RAISE FND_API.G_EXC_ERROR;
3117: fnd_log.string
3118: (
3119: fnd_log.level_error,
3120: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3121: 'Can not go ahead with approval because AHL_PRD_DF_PVT.process_approval_initiated threw error'
3122: );
3123: END IF;
3124: RAISE FND_API.G_EXC_ERROR;
3125: END IF;
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;
3135:
3139: IF(l_mr_header_id IS NOT NULL)THEN
3140: -- find whether deferral type is MR or SR
3141: -- if MR find whether active else pluggin new mr
3142: -- if SR, find the same for immediate children if any and repeat it for them
3143: AHL_PRD_DF_PVT.get_mr_termination_details(
3144: p_unit_effectivity_id => p_df_header_rec.unit_effectivity_id,
3145: x_mr_applicable => l_mr_applicable,
3146: x_active_end_date => l_active_end_date,
3147: x_new_mr_header_id => l_new_mr_header_id,
3182: P_WORKFLOWPROCESS => 'AHL_GEN_APPROVAL',
3183: P_ITEM_TYPE => 'AHLGAPP');
3184: ELSE
3185: -- make a call for automatic approval
3186: AHL_PRD_DF_PVT.process_approval_approved(
3187: p_unit_deferral_id => p_df_header_rec.unit_deferral_id,
3188: p_object_version_number => p_df_header_rec.object_version_number,
3189: p_new_status => l_new_status_code,
3190: x_return_status => l_return_status);
3192: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3193: fnd_log.string
3194: (
3195: fnd_log.level_error,
3196: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3197: 'Can not go ahead with automatic approval because AHL_PRD_DF_PVT.process_approval_approved threw error'
3198: );
3199: END IF;
3200: RAISE FND_API.G_EXC_ERROR;
3193: fnd_log.string
3194: (
3195: fnd_log.level_error,
3196: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3197: 'Can not go ahead with automatic approval because AHL_PRD_DF_PVT.process_approval_approved threw error'
3198: );
3199: END IF;
3200: RAISE FND_API.G_EXC_ERROR;
3201: END IF;
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;
3218:
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;
3283: x_return_status := FND_API.G_RET_STS_SUCCESS;
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
3300: (
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
3306: (
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;
3312:
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;
3322: RETURN;
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;
3342: RETURN;
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;
3358:
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;
3410:
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;
3427: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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
3440: (
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
3446: (
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;
3452:
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;
3469:
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;
3479: RETURN;
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;
3501: RETURN;
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;
3520:
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;
3535: CLOSE csi_item_instance_id_csr;
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;
3546: -- decide whether due date calculation is needed
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;
3567: RETURN;
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;
3580:
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;
3611: -- check whether Internal Concurrent Manager is up
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;
3643: --l_req_id := fnd_request.submit_request('AHL','AHLUEFF',NULL,NULL,FALSE,NULL,NULL,p_csi_item_instance_id );
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;
3657: ELSE
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;
3667: END IF;
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;
3681:
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;
3700: RETURN;
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;
3714:
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;
3733:
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
3753: (
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
3759: (
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
3765: (
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;
3771:
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;
3781: RETURN;
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;
3802: RETURN;
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;
3819:
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;
3964:
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
3975: (
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
3981: (
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;
3987: -- validating ue and getting it
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;
4002: END IF;
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;
4017:
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;
4033: END IF;
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
4089: (
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
4095: (
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;
4101:
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
4143: (
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;
4149:
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;
4191: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
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;
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
4214: (
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;
4220: l_prd_workorder_rec.status_code := G_JOB_RELEASED;
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;
4250: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
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;
4261: EXIT;
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;
4293: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
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;
4304: EXIT;
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;
4361: END IF;
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;
4372: END process_workorders;
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;
4597:
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;
4614: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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;
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
4701: (
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
4707: (
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:
4713: END IF;
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
4730: (
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);
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;
4748: FOR ue_relns_rec IN ue_relns_csr(l_unit_effectivity_id) LOOP
4766: IF(ue_rec.mr_header_id IS NOT NULL AND l_deferral_type = 'MR' AND ue_rec.unit_effectivity_id = l_unit_effectivity_id)THEN
4767: -- find whether deferral type is MR or SR
4768: -- if MR find whether active else pluggin new mr
4769: -- if SR, find the same for immediate children if any and repeat it for them
4770: AHL_PRD_DF_PVT.get_mr_termination_details(
4771: p_unit_effectivity_id => l_unit_effectivity_id,
4772: x_mr_applicable => l_mr_applicable,
4773: x_active_end_date => l_active_end_date,
4774: x_new_mr_header_id => l_new_mr_header_id,
4790: -- verify whether immediate child if yes/expired mr pluggin new MR
4791: OPEN immediate_child_check_csr(l_unit_effectivity_id,ue_rec.unit_effectivity_id);
4792: FETCH immediate_child_check_csr INTO l_junc;
4793: IF(immediate_child_check_csr%FOUND)THEN
4794: AHL_PRD_DF_PVT.get_mr_termination_details(
4795: p_unit_effectivity_id => ue_rec.unit_effectivity_id,
4796: x_mr_applicable => l_mr_applicable,
4797: x_active_end_date => l_active_end_date,
4798: x_new_mr_header_id => l_new_mr_header_id,
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;
4832: -- these attributes need to be copied in this case
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;
4976: AHL_UNIT_EFFECTIVITIES_PKG.update_row(
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;
5049: AHL_UE_RELATIONSHIPS_PKG.Insert_Row(
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;
5166:
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;
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;
5254:
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;
5342:
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;
5359: END process_prior_ump_deferrals;
5366: PROCEDURE get_deferral_details (
5367:
5368: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5369: p_unit_effectivity_id IN NUMBER,
5370: x_df_header_info_rec OUT NOCOPY AHL_PRD_DF_PVT.df_header_info_rec_type,
5371: x_df_schedules_tbl OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type,
5372: x_return_status OUT NOCOPY VARCHAR2,
5373: x_msg_count OUT NOCOPY NUMBER,
5374: x_msg_data OUT NOCOPY VARCHAR2) IS
5367:
5368: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
5369: p_unit_effectivity_id IN NUMBER,
5370: x_df_header_info_rec OUT NOCOPY AHL_PRD_DF_PVT.df_header_info_rec_type,
5371: x_df_schedules_tbl OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type,
5372: x_return_status OUT NOCOPY VARCHAR2,
5373: x_msg_count OUT NOCOPY NUMBER,
5374: x_msg_data OUT NOCOPY VARCHAR2) IS
5375:
5374: x_msg_data OUT NOCOPY VARCHAR2) IS
5375:
5376: l_api_name CONSTANT VARCHAR2(30) := 'get_deferral_details';
5377:
5378: l_df_header_info_rec AHL_PRD_DF_PVT.df_header_info_rec_type;
5379: l_applicable_ue_id NUMBER;
5380:
5381: -- to fecth context information
5382: CURSOR context_info_csr(p_unit_effectivity_id IN NUMBER) IS
5495: ORDER BY CO.name;
5496:
5497:
5498: i NUMBER := 0;
5499: l_df_schedules_tbl AHL_PRD_DF_PVT.df_schedules_tbl_type;
5500:
5501: l_mr_applicable VARCHAR2(1);
5502: l_active_end_date DATE;
5503: l_new_mr_header_id NUMBER;
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;
5520: -- Initialize message list if p_init_msg_list is set to TRUE
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:
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;
5547: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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;*/
5569: END IF;
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;
5591: CLOSE context_info_csr;
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;
5612: CLOSE mr_status_meaning_csr;
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;
5632: CLOSE visit_info_csr;
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;
5730: CLOSE ue_status_meaning_csr;
5769: RAISE FND_API.G_EXC_ERROR;
5770: END IF;
5771:
5772: IF(l_df_header_info_rec.deferral_type = G_DEFERRAL_TYPE_MR)THEN
5773: AHL_PRD_DF_PVT.get_mr_termination_details(
5774: p_unit_effectivity_id => l_applicable_ue_id,
5775: x_mr_applicable => l_mr_applicable,
5776: x_active_end_date => l_active_end_date,
5777: x_new_mr_header_id => l_new_mr_header_id,
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;
5804:
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;
5867: ELSE
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;
6064:
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;
6083: EXIT;
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
6109: RETURN;
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;
6126: END IF;
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;
6143:
6248: RETURN l_fleet_header_id;
6249:
6250: END get_fleet_from_effectivity;
6251:
6252: END AHL_PRD_DF_PVT; -- Package body