[Home] [Help]
1: PACKAGE BODY AHL_PRD_DF_PVT AS
2: /* $Header: AHLVPDFB.pls 120.17.12010000.2 2008/12/27 00:49:43 sracha 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.17.12010000.2 2008/12/27 00:49:43 sracha 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:
150: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
151: p_commit IN VARCHAR2 := FND_API.G_FALSE,
152: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
153: p_module_type IN VARCHAR2 := NULL,
154: p_x_df_header_rec IN OUT NOCOPY AHL_PRD_DF_PVT.df_header_rec_type,
155: p_x_df_schedules_tbl IN OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type,
156: x_return_status OUT NOCOPY VARCHAR2,
157: x_msg_count OUT NOCOPY NUMBER,
158: x_msg_data OUT NOCOPY VARCHAR2) IS
151: p_commit IN VARCHAR2 := FND_API.G_FALSE,
152: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
153: p_module_type IN VARCHAR2 := NULL,
154: p_x_df_header_rec IN OUT NOCOPY AHL_PRD_DF_PVT.df_header_rec_type,
155: p_x_df_schedules_tbl IN OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type,
156: x_return_status OUT NOCOPY VARCHAR2,
157: x_msg_count OUT NOCOPY NUMBER,
158: x_msg_data OUT NOCOPY VARCHAR2) IS
159:
166: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
167: fnd_log.string
168: (
169: fnd_log.level_procedure,
170: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral.begin',
171: 'At the start of PLSQL procedure'
172: );
173: END IF;
174: -- Standard start of API savepoint
188: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
189: fnd_log.string
190: (
191: fnd_log.level_statement,
192: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
193: 'p_init_message_list : ' || p_init_msg_list
194: );
195: fnd_log.string
196: (
194: );
195: fnd_log.string
196: (
197: fnd_log.level_statement,
198: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
199: 'p_commit : ' || p_commit
200: );
201: fnd_log.string
202: (
200: );
201: fnd_log.string
202: (
203: fnd_log.level_statement,
204: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
205: 'p_validation_level : ' || p_validation_level
206: );
207: fnd_log.string
208: (
206: );
207: fnd_log.string
208: (
209: fnd_log.level_statement,
210: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
211: 'p_module_type : ' || p_module_type
212: );
213: END IF;
214: -- Initialize API return status to success
217: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
218: fnd_log.string
219: (
220: fnd_log.level_statement,
221: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
222: 'Logging deferral header record prior to processing'
223: );
224: log_df_header(p_df_header_rec => p_x_df_header_rec);
225: END IF;
231: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
232: fnd_log.string
233: (
234: fnd_log.level_statement,
235: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
236: 'Logging deferral header record after processing'
237: );
238: log_df_header(p_df_header_rec => p_x_df_header_rec);
239: END IF;
242: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
243: fnd_log.string
244: (
245: fnd_log.level_statement,
246: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
247: 'Number of records in schedules : ' || p_x_df_schedules_tbl.count
248: );
249: fnd_log.string
250: (
248: );
249: fnd_log.string
250: (
251: fnd_log.level_statement,
252: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
253: 'Logging deferral schedule records before processing'
254: );
255: IF(p_x_df_schedules_tbl.count > 0)THEN
256: log_df_schedules(p_df_schedules_tbl => p_x_df_schedules_tbl);
268: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
269: fnd_log.string
270: (
271: fnd_log.level_statement,
272: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
273: 'Logging deferral schedule records after processing'
274: );
275: log_df_schedules(p_df_schedules_tbl => p_x_df_schedules_tbl);
276: END IF;
289: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
290: fnd_log.string
291: (
292: fnd_log.level_event,
293: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral',
294: 'Submitting for Aprroval Unit Deferral ID : ' || p_x_df_header_rec.unit_deferral_id ||
295: ' Object Version Number : ' || p_x_df_header_rec.object_version_number
296: );
297: END IF;
327: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
328: fnd_log.string
329: (
330: fnd_log.level_procedure,
331: 'ahl.plsql.AHL_PRD_DF_PVT.process_deferral.end',
332: 'At the end of PLSQL procedure'
333: );
334: END IF;
335:
370: -- the unit_deferral_id. Hence no validation level check and no sperate procedure for value
371: -- to id conversion process.
372: -------------------------------------------------------------------------------------
373: PROCEDURE process_df_header(
374: p_x_df_header_rec IN OUT NOCOPY AHL_PRD_DF_PVT.df_header_rec_type)
375: IS
376:
377: l_rowid VARCHAR2(30);
378:
475: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
476: fnd_log.string
477: (
478: fnd_log.level_procedure,
479: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header.begin',
480: 'At the start of PLSQL procedure'
481: );
482: END IF;
483: -- initializaing submit for approval flag
511: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
512: fnd_log.string
513: (
514: fnd_log.level_unexpected,
515: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header',
516: 'Input Keys are missing or invalid'
517: );
518: END IF;
519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
533: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
534: fnd_log.string
535: (
536: fnd_log.level_unexpected,
537: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header',
538: 'unit effectivity record not found'
539: );
540: END IF;
541: CLOSE unit_effectivity_info_csr;
547: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
548: fnd_log.string
549: (
550: fnd_log.level_unexpected,
551: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header',
552: 'unit effectivity record not found'
553: );
554: END IF;
555: CLOSE unit_effectivity_info_csr;
561: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
562: fnd_log.string
563: (
564: fnd_log.level_error,
565: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header',
566: 'Status of MR or SR is not valid for deferral'
567: );
568: END IF;
569: CLOSE unit_effectivity_info_csr;
607: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
608: fnd_log.string
609: (
610: fnd_log.level_statement,
611: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header',
612: 'Dumping deferral header record prior to validating'
613: );
614: log_df_header(p_df_header_rec => p_x_df_header_rec);
615: END IF;
736: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
737: fnd_log.string
738: (
739: fnd_log.level_procedure,
740: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_header.end',
741: 'At the end of PLSQL procedure'
742: );
743: END IF;
744:
746: --------------------------------------------------------------------------------
747: -- Procedure to dump deferral header record
748: --------------------------------------------------------------------------------
749: PROCEDURE log_df_header(
750: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type) IS
751:
752: BEGIN
753: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
754: fnd_log.string
753: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
754: fnd_log.string
755: (
756: fnd_log.level_statement,
757: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
758: 'p_x_df_header_rec.operation_flag : ' || p_df_header_rec.operation_flag
759: );
760: fnd_log.string
761: (
759: );
760: fnd_log.string
761: (
762: fnd_log.level_statement,
763: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
764: 'p_x_df_header_rec.unit_deferral_id : ' || p_df_header_rec.unit_deferral_id
765: );
766: fnd_log.string
767: (
765: );
766: fnd_log.string
767: (
768: fnd_log.level_statement,
769: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
770: 'p_x_df_header_rec.object_version_number : ' || p_df_header_rec.object_version_number
771: );
772: fnd_log.string
773: (
771: );
772: fnd_log.string
773: (
774: fnd_log.level_statement,
775: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
776: 'p_x_df_header_rec.unit_effectivity_id : ' || p_df_header_rec.unit_effectivity_id
777: );
778: fnd_log.string
779: (
777: );
778: fnd_log.string
779: (
780: fnd_log.level_statement,
781: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
782: 'p_x_df_header_rec.defer_reason_code : ' || p_df_header_rec.defer_reason_code
783: );
784: fnd_log.string
785: (
783: );
784: fnd_log.string
785: (
786: fnd_log.level_statement,
787: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
788: 'p_x_df_header_rec.remarks : ' || p_df_header_rec.remarks
789: );
790: fnd_log.string
791: (
789: );
790: fnd_log.string
791: (
792: fnd_log.level_statement,
793: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
794: 'p_x_df_header_rec.skip_mr_flag : ' || p_df_header_rec.skip_mr_flag
795: );
796: fnd_log.string
797: (
795: );
796: fnd_log.string
797: (
798: fnd_log.level_statement,
799: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
800: 'p_x_df_header_rec.affect_due_calc_flag : ' || p_df_header_rec.affect_due_calc_flag
801: );
802: fnd_log.string
803: (
801: );
802: fnd_log.string
803: (
804: fnd_log.level_statement,
805: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
806: 'p_x_df_header_rec.set_due_date : ' || p_df_header_rec.set_due_date
807: );
808: fnd_log.string
809: (
807: );
808: fnd_log.string
809: (
810: fnd_log.level_statement,
811: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
812: 'p_x_df_header_rec.deferral_effective_on : ' || p_df_header_rec.deferral_effective_on
813: );
814: fnd_log.string
815: (
813: );
814: fnd_log.string
815: (
816: fnd_log.level_statement,
817: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
818: 'p_x_df_header_rec.deferral_type : ' || p_df_header_rec.deferral_type
819: );
820: fnd_log.string
821: (
819: );
820: fnd_log.string
821: (
822: fnd_log.level_statement,
823: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
824: 'p_x_df_header_rec.mr_repetitive_flag : ' || p_df_header_rec.mr_repetitive_flag
825: );
826: fnd_log.string
827: (
825: );
826: fnd_log.string
827: (
828: fnd_log.level_statement,
829: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
830: 'p_x_df_header_rec.reset_counter_flag : ' || p_df_header_rec.reset_counter_flag
831: );
832: fnd_log.string
833: (
831: );
832: fnd_log.string
833: (
834: fnd_log.level_statement,
835: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
836: 'p_x_df_header_rec.manually_planned_flag : ' || p_df_header_rec.manually_planned_flag
837: );
838: fnd_log.string
839: (
837: );
838: fnd_log.string
839: (
840: fnd_log.level_statement,
841: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
842: 'user id : ' || FND_GLOBAL.USER_ID()
843: );
844: fnd_log.string
845: (
843: );
844: fnd_log.string
845: (
846: fnd_log.level_statement,
847: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
848: 'resp id : ' || FND_GLOBAL.RESP_ID()
849: );
850: fnd_log.string
851: (
849: );
850: fnd_log.string
851: (
852: fnd_log.level_statement,
853: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_header',
854: 'resp appl id : ' || FND_GLOBAL.resp_appl_id()
855: );
856: END IF;
857: END log_df_header;
856: END IF;
857: END log_df_header;
858:
859: PROCEDURE validate_df_header(
860: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type)IS
861:
862: -- check whether any record already exists related to deferral
863: CURSOR deferral_rec_exists_csr(p_unit_effectivity_id IN NUMBER) IS
864: SELECT 'x' from ahl_unit_deferrals_vl
962: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
963: fnd_log.string
964: (
965: fnd_log.level_procedure,
966: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header.begin',
967: 'At the start of PLSQL procedure'
968: );
969: END IF;
970:
974: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
975: fnd_log.string
976: (
977: fnd_log.level_unexpected,
978: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
979: 'Operation Flag is invalid in the header record'
980: );
981: END IF;
982: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1013: THEN
1014: fnd_log.string
1015: (
1016: fnd_log.level_unexpected,
1017: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1018: 'invalid mr or sr status invalid for update or delete 1'
1019: );
1020: END IF;
1021: CLOSE valid_deferral_csr;
1038: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1039: fnd_log.string
1040: (
1041: fnd_log.level_unexpected,
1042: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1043: 'cannot defer child MR when parent MR is based on non-serial SR'
1044: );
1045: END IF;
1046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1062: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1063: fnd_log.string
1064: (
1065: fnd_log.level_unexpected,
1066: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1067: 'invalid mr or sr status invalid for update or delete 1'
1068: );
1069: END IF;
1070: CLOSE valid_deferral_csr;
1086: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1087: fnd_log.string
1088: (
1089: fnd_log.level_unexpected,
1090: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1091: 'Deferral record exist while operation flag is create'
1092: );
1093: END IF;
1094: CLOSE deferral_rec_exists_csr;
1103: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1104: fnd_log.string
1105: (
1106: fnd_log.level_unexpected,
1107: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1108: 'approval status is not DRAFT while creating a deferral record'
1109: );
1110: END IF;
1111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1122: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1123: fnd_log.string
1124: (
1125: fnd_log.level_unexpected,
1126: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1127: 'approval status invalid for update or delete : ue_id : ' || p_df_header_rec.unit_deferral_id
1128: );
1129: END IF;
1130: CLOSE valid_deferral_up_csr;
1146: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1147: fnd_log.string
1148: (
1149: fnd_log.level_error,
1150: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1151: 'Associated MR has been terminated in FMP'
1152: );
1153: END IF;
1154: CLOSE valid_mr_csr;
1168: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1169: fnd_log.string
1170: (
1171: fnd_log.level_unexpected,
1172: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1173: 'Skip flag is not Y or N'
1174: );
1175: END IF;
1176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1181: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1182: fnd_log.string
1183: (
1184: fnd_log.level_unexpected,
1185: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1186: 'Affect Due Calc Flag is not Y or N'
1187: );
1188: END IF;
1189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1212: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1213: fnd_log.string
1214: (
1215: fnd_log.level_unexpected,
1216: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1217: 'Skip MR flag is Y while MR is not repetitive'
1218: );
1219: END IF;
1220: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1232: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1233: fnd_log.string
1234: (
1235: fnd_log.level_unexpected,
1236: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1237: 'MR has resettable counters so affect due cal flag cant be N '
1238: );
1239: END IF;
1240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1246: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1247: fnd_log.string
1248: (
1249: fnd_log.level_unexpected,
1250: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1251: 'MR skip flag is Y so affect due cal flag can not be Y '
1252: );
1253: END IF;
1254: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1263: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1264: fnd_log.string
1265: (
1266: fnd_log.level_unexpected,
1267: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1268: 'For SR, skip flag cant be Y '
1269: );
1270: END IF;
1271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1277: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1278: fnd_log.string
1279: (
1280: fnd_log.level_unexpected,
1281: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1282: 'For SR, affect due date flag can not be N '
1283: );
1284: END IF;
1285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1296: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1297: fnd_log.string
1298: (
1299: fnd_log.level_error,
1300: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1301: 'Set due date cant be null or less than system date '
1302: );
1303: END IF;
1304: END IF;
1310: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1311: fnd_log.string
1312: (
1313: fnd_log.level_error,
1314: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header',
1315: 'Deferral Effective On Date can not be null or greater than system date '
1316: );
1317: END IF;
1318: END IF;
1326: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1327: fnd_log.string
1328: (
1329: fnd_log.level_procedure,
1330: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_header.end',
1331: 'At the end of PLSQL procedure'
1332: );
1333: END IF;
1334:
1357: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1358: fnd_log.string
1359: (
1360: fnd_log.level_procedure,
1361: 'ahl.plsql.AHL_PRD_DF_PVT.validate_reason_codes.begin',
1362: 'At the start of PLSQL procedure'
1363: );
1364: END IF;
1365:
1375: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1376: fnd_log.string
1377: (
1378: fnd_log.level_unexpected,
1379: 'ahl.plsql.AHL_PRD_DF_PVT.validate_reason_codes',
1380: 'Reason code is not defined in lookups '
1381: );
1382: END IF;
1383: CLOSE val_reason_code_csr;
1395: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1396: fnd_log.string
1397: (
1398: fnd_log.level_unexpected,
1399: 'ahl.plsql.AHL_PRD_DF_PVT.validate_reason_codes',
1400: 'Reason code is not defined in lookups '
1401: );
1402: END IF;
1403: CLOSE val_reason_code_csr;
1417: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1418: fnd_log.string
1419: (
1420: fnd_log.level_procedure,
1421: 'ahl.plsql.AHL_PRD_DF_PVT.validate_reason_codes.end',
1422: 'At the end of PLSQL procedure'
1423: );
1424: END IF;
1425:
1430: -- defaulting values in case of create and update mode
1431: ---------------------------------------------------------------------------------------------------------
1432:
1433: PROCEDURE default_unchanged_df_header(
1434: p_x_df_header_rec IN OUT NOCOPY AHL_PRD_DF_PVT.df_header_rec_type)IS
1435:
1436: CURSOR df_header_csr(p_unit_deferral_id IN NUMBER, p_object_version_number IN NUMBER) IS
1437: SELECT unit_effectivity_id, unit_deferral_type, approval_status_code, defer_reason_code,skip_mr_flag,
1438: affect_due_calc_flag, set_due_date, deferral_effective_on,remarks,approver_notes,attribute_category, attribute1,
1442: FROM ahl_unit_deferrals_vl
1443: WHERE object_version_number= p_object_version_number
1444: AND unit_deferral_id = p_unit_deferral_id;
1445:
1446: l_df_header_rec AHL_PRD_DF_PVT.df_header_Rec_type;
1447:
1448: BEGIN
1449: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1450: fnd_log.string
1449: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1450: fnd_log.string
1451: (
1452: fnd_log.level_procedure,
1453: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header.begin',
1454: 'At the start of PLSQL procedure'
1455: );
1456: END IF;
1457:
1473: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1474: fnd_log.string
1475: (
1476: fnd_log.level_error,
1477: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header',
1478: 'Missing Deferral Header Record'
1479: );
1480: END IF;
1481: ELSE
1487: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1488: fnd_log.string
1489: (
1490: fnd_log.level_unexpected,
1491: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header',
1492: 'Unit Effectivity ID does not match with deferral header record'
1493: );
1494: END IF;
1495: CLOSE df_header_csr;
1504: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1505: fnd_log.string
1506: (
1507: fnd_log.level_unexpected,
1508: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header',
1509: 'Unit Deferral Type does not match with deferral header record'
1510: );
1511: END IF;
1512: CLOSE df_header_csr;
1521: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1522: fnd_log.string
1523: (
1524: fnd_log.level_unexpected,
1525: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header',
1526: 'Approval status code can not be modified'
1527: );
1528: END IF;
1529: CLOSE df_header_csr;
1574: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1575: fnd_log.string
1576: (
1577: fnd_log.level_unexpected,
1578: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header',
1579: 'approver notes can not be updated by this API'
1580: );
1581: END IF;
1582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1689: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1690: fnd_log.string
1691: (
1692: fnd_log.level_unexpected,
1693: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header',
1694: 'Unit effectivity ID can not be null while creating deferral header record'
1695: );
1696: END IF;
1697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1810: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1811: fnd_log.string
1812: (
1813: fnd_log.level_procedure,
1814: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_header.end',
1815: 'At the end of PLSQL procedure'
1816: );
1817: END IF;
1818:
1818:
1819: END default_unchanged_df_header;
1820:
1821: PROCEDURE process_df_schedules(
1822: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type,
1823: p_x_df_schedules_tbl IN OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type)IS
1824:
1825: CURSOR counter_id_csr(p_counter_name IN VARCHAR2,p_unit_effectivity_id IN NUMBER) IS
1826: --SELECT CO.counter_id FROM CSI_CP_COUNTERS_V CO, AHL_UNIT_EFFECTIVITIES_APP_V UE
1819: END default_unchanged_df_header;
1820:
1821: PROCEDURE process_df_schedules(
1822: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type,
1823: p_x_df_schedules_tbl IN OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type)IS
1824:
1825: CURSOR counter_id_csr(p_counter_name IN VARCHAR2,p_unit_effectivity_id IN NUMBER) IS
1826: --SELECT CO.counter_id FROM CSI_CP_COUNTERS_V CO, AHL_UNIT_EFFECTIVITIES_APP_V UE
1827: SELECT CO.counter_id FROM CSI_CP_COUNTERS_V CO, AHL_UNIT_EFFECTIVITIES_B UE -- Undid App usage BLIND changes
1836: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
1837: fnd_log.string
1838: (
1839: fnd_log.level_procedure,
1840: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules.begin',
1841: 'At the start of PLSQL procedure'
1842: );
1843: END IF;
1844: -- record dml validations and key requirement validations
1850: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1851: fnd_log.string
1852: (
1853: fnd_log.level_unexpected,
1854: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1855: 'Operation Flag is invalid in the schedule record : ' || i
1856: );
1857: END IF;
1858: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1864: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1865: fnd_log.string
1866: (
1867: fnd_log.level_unexpected,
1868: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1869: 'Object version number or key missing in schedule record : ' || i
1870: );
1871: END IF;
1872: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1877: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1878: fnd_log.string
1879: (
1880: fnd_log.level_unexpected,
1881: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1882: 'Unit Deferral ID does not match in schedule record : ' || i
1883: );
1884: END IF;
1885: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1892: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1893: fnd_log.string
1894: (
1895: fnd_log.level_unexpected,
1896: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1897: 'For Create Operation, Unit Threshold ID or Object Version Number is not null in schedule record : ' || i
1898: );
1899: END IF;
1900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1908: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
1909: fnd_log.string
1910: (
1911: fnd_log.level_unexpected,
1912: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1913: 'For Create Operation, Header Unit Deferral ID does not match with same in schedule record : ' || i
1914: );
1915: END IF;
1916: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1927: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
1928: fnd_log.string
1929: (
1930: fnd_log.level_error,
1931: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1932: 'Invalid Counter name for schedule record : ' || i
1933: );
1934: END IF;
1935: ELSE
1949: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
1950: fnd_log.string
1951: (
1952: fnd_log.level_statement,
1953: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules',
1954: 'Logging deferral schedule records prior to validations'
1955: );
1956: log_df_schedules(p_df_schedules_tbl => p_x_df_schedules_tbl);
1957: END IF;
2061: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2062: fnd_log.string
2063: (
2064: fnd_log.level_procedure,
2065: 'ahl.plsql.AHL_PRD_DF_PVT.process_df_schedules.end',
2066: 'At the end of PLSQL procedure'
2067: );
2068: END IF;
2069:
2071: -----------------------------------------------------------------------------------
2072: -- Procedure to dump deferral schedules records
2073: -----------------------------------------------------------------------------------
2074: PROCEDURE log_df_schedules(
2075: p_df_schedules_tbl IN AHL_PRD_DF_PVT.df_schedules_tbl_type) IS
2076:
2077: BEGIN
2078: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2079: FOR i IN p_df_schedules_tbl.FIRST..p_df_schedules_tbl.LAST LOOP
2079: FOR i IN p_df_schedules_tbl.FIRST..p_df_schedules_tbl.LAST LOOP
2080: fnd_log.string
2081: (
2082: fnd_log.level_statement,
2083: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2084: 'p_df_schedules_tbl('|| i ||').operation_flag : ' || p_df_schedules_tbl(i).operation_flag
2085: );
2086: fnd_log.string
2087: (
2085: );
2086: fnd_log.string
2087: (
2088: fnd_log.level_statement,
2089: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2090: 'p_df_schedules_tbl('|| i ||').unit_threshold_id : ' || p_df_schedules_tbl(i).unit_threshold_id
2091: );
2092: fnd_log.string
2093: (
2091: );
2092: fnd_log.string
2093: (
2094: fnd_log.level_statement,
2095: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2096: 'p_df_schedules_tbl('|| i ||').object_version_number : ' || p_df_schedules_tbl(i).object_version_number
2097: );
2098: fnd_log.string
2099: (
2097: );
2098: fnd_log.string
2099: (
2100: fnd_log.level_statement,
2101: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2102: 'p_df_schedules_tbl('|| i ||').unit_deferral_id : ' || p_df_schedules_tbl(i).unit_deferral_id
2103: );
2104: fnd_log.string
2105: (
2103: );
2104: fnd_log.string
2105: (
2106: fnd_log.level_statement,
2107: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2108: 'p_df_schedules_tbl('|| i ||').counter_id : ' || p_df_schedules_tbl(i).counter_id
2109: );
2110: fnd_log.string
2111: (
2109: );
2110: fnd_log.string
2111: (
2112: fnd_log.level_statement,
2113: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2114: 'p_df_schedules_tbl('|| i ||').counter_name : ' || p_df_schedules_tbl(i).counter_name
2115: );
2116: fnd_log.string
2117: (
2115: );
2116: fnd_log.string
2117: (
2118: fnd_log.level_statement,
2119: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2120: 'p_df_schedules_tbl('|| i ||').ctr_value_type_code : ' || p_df_schedules_tbl(i).ctr_value_type_code
2121: );
2122: fnd_log.string
2123: (
2121: );
2122: fnd_log.string
2123: (
2124: fnd_log.level_statement,
2125: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2126: 'p_df_schedules_tbl('|| i ||').counter_value : ' || p_df_schedules_tbl(i).counter_value
2127: );
2128: fnd_log.string
2129: (
2127: );
2128: fnd_log.string
2129: (
2130: fnd_log.level_statement,
2131: 'ahl.plsql.AHL_PRD_DF_PVT.log_df_schedules',
2132: 'p_df_schedules_tbl('|| i ||').unit_of_measure : ' || p_df_schedules_tbl(i).unit_of_measure
2133: );
2134: END LOOP;
2135: END IF;
2135: END IF;
2136: END log_df_schedules;
2137:
2138: PROCEDURE validate_df_schedules(
2139: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type,
2140: p_df_schedules_tbl IN AHL_PRD_DF_PVT.df_schedules_tbl_type)IS
2141:
2142:
2143: CURSOR valid_counter_csr(p_unit_deferral_id IN NUMBER,p_counter_id IN NUMBER) IS
2136: END log_df_schedules;
2137:
2138: PROCEDURE validate_df_schedules(
2139: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type,
2140: p_df_schedules_tbl IN AHL_PRD_DF_PVT.df_schedules_tbl_type)IS
2141:
2142:
2143: CURSOR valid_counter_csr(p_unit_deferral_id IN NUMBER,p_counter_id IN NUMBER) IS
2144: --SELECT 'x' FROM CSI_CP_COUNTERS_V CO, AHL_UNIT_EFFECTIVITIES_APP_V UE,AHL_UNIT_DEFERRALS_B UD
2170: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2171: fnd_log.string
2172: (
2173: fnd_log.level_procedure,
2174: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_schedules.begin',
2175: 'At the start of PLSQL procedure'
2176: );
2177: END IF;
2178:
2189: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2190: fnd_log.string
2191: (
2192: fnd_log.level_error,
2193: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_schedules',
2194: 'Invalid Counter name for associated item instance in schedule record : ' || i
2195: );
2196: END IF;
2197: END IF;
2217: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2218: fnd_log.string
2219: (
2220: fnd_log.level_error,
2221: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_schedules',
2222: 'Record for delete operation not found with keys in schedule record : ' || i
2223: );
2224: END IF;
2225: END IF;
2235: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2236: fnd_log.string
2237: (
2238: fnd_log.level_procedure,
2239: 'ahl.plsql.AHL_PRD_DF_PVT.validate_df_schedules.end',
2240: 'At the end of PLSQL procedure'
2241: );
2242: END IF;
2243:
2243:
2244: END validate_df_schedules;
2245:
2246: PROCEDURE default_unchanged_df_schedules(
2247: p_x_df_schedules_tbl IN OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type)IS
2248:
2249: CURSOR df_schedules_csr(p_unit_threshold_id IN NUMBER, p_object_version_number IN NUMBER) IS
2250: SELECT unit_deferral_id,counter_id,counter_value,ctr_value_type_code,attribute_category, attribute1,attribute2, attribute3, attribute4,
2251: attribute5, attribute6, attribute7, attribute8, attribute9, attribute10, attribute11,
2253: FROM ahl_unit_thresholds
2254: WHERE object_version_number= p_object_version_number
2255: AND unit_threshold_id = p_unit_threshold_id;
2256:
2257: l_df_schedules_rec AHL_PRD_DF_PVT.df_schedules_rec_type;
2258:
2259: BEGIN
2260: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2261: fnd_log.string
2260: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2261: fnd_log.string
2262: (
2263: fnd_log.level_procedure,
2264: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules.begin',
2265: 'At the start of PLSQL procedure'
2266: );
2267: END IF;
2268:
2282: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2283: fnd_log.string
2284: (
2285: fnd_log.level_error,
2286: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2287: 'Missing Deferral Schedule Record : ' || i
2288: );
2289: END IF;
2290: ELSE
2296: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2297: fnd_log.string
2298: (
2299: fnd_log.level_unexpected,
2300: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2301: 'Unit Deferral ID does not match with deferral schedule record : ' || i
2302: );
2303: END IF;
2304: CLOSE df_schedules_csr;
2313: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2314: fnd_log.string
2315: (
2316: fnd_log.level_error,
2317: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2318: 'Missing counter ID in schedule Record : ' || i
2319: );
2320: END IF;
2321: END IF;
2331: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2332: fnd_log.string
2333: (
2334: fnd_log.level_error,
2335: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2336: 'Missing counter Value in schedule Record : ' || i
2337: );
2338: END IF;
2339: END IF;
2346: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2347: fnd_log.string
2348: (
2349: fnd_log.level_unexpected,
2350: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2351: 'Invalid counter value type code in deferral schedule record : ' || i
2352: );
2353: END IF;
2354: CLOSE df_schedules_csr;
2462: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2463: fnd_log.string
2464: (
2465: fnd_log.level_unexpected,
2466: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2467: 'Missing Unit Deferral ID for create operation in deferral schedule record : ' || i
2468: );
2469: END IF;
2470: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2478: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2479: fnd_log.string
2480: (
2481: fnd_log.level_error,
2482: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2483: 'Missing counter ID in schedule Record : ' || i
2484: );
2485: END IF;
2486: END IF;
2495: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2496: fnd_log.string
2497: (
2498: fnd_log.level_error,
2499: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2500: 'Missing or invalid counter Value in schedule Record : ' || i
2501: );
2502: END IF;
2503: END IF;
2509: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2510: fnd_log.string
2511: (
2512: fnd_log.level_unexpected,
2513: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules',
2514: 'Invalid counter value type code in deferral schedule record : ' || i
2515: );
2516: END IF;
2517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2592: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2593: fnd_log.string
2594: (
2595: fnd_log.level_procedure,
2596: 'ahl.plsql.AHL_PRD_DF_PVT.default_unchanged_df_schedules.end',
2597: 'At the end of PLSQL procedure'
2598: );
2599: END IF;
2600:
2603: -- Validate deferral record as a whole
2604: --------------------------------------------------------------------------------
2605:
2606: PROCEDURE validate_deferral_updates(
2607: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type,
2608: x_warning_msg_data OUT NOCOPY VARCHAR2)IS
2609:
2610: l_count1 NUMBER;
2611: l_count2 NUMBER;
2673: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2674: fnd_log.string
2675: (
2676: fnd_log.level_procedure,
2677: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates.begin',
2678: 'At the start of PLSQL procedure'
2679: );
2680: END IF;
2681:
2691: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2692: fnd_log.string
2693: (
2694: fnd_log.level_error,
2695: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates',
2696: 'Counters are repeating in schedules'
2697: );
2698: END IF;
2699: END IF;
2705: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2706: fnd_log.string
2707: (
2708: fnd_log.level_error,
2709: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates',
2710: 'Set due date or counter values are mandatory '
2711: );
2712: END IF;
2713: ELSE
2722: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2723: fnd_log.string
2724: (
2725: fnd_log.level_error,
2726: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates',
2727: 'Deferral Effective On Date can not be null or greater than system date '
2728: );
2729: END IF;
2730: END IF;
2761: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2762: fnd_log.string
2763: (
2764: fnd_log.level_error,
2765: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates',
2766: 'Defer to counter value is less than current counter value for counter name : ' || l_counter_name
2767: );
2768: END IF;
2769: END IF;
2796: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2797: fnd_log.string
2798: (
2799: fnd_log.level_unexpected,
2800: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates',
2801: 'Calculate Due Date API threw Error'
2802: );
2803: END IF;
2804: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2848: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2849: fnd_log.string
2850: (
2851: fnd_log.level_procedure,
2852: 'ahl.plsql.AHL_PRD_DF_PVT.validate_deferral_updates.end',
2853: 'At the end of PLSQL procedure'
2854: );
2855: END IF;
2856:
2856:
2857: END validate_deferral_updates;
2858:
2859: PROCEDURE submit_for_approval(
2860: p_df_header_rec IN AHL_PRD_DF_PVT.df_header_rec_type)IS
2861:
2862: l_object VARCHAR2(30):= G_WORKFLOW_OBJECT_KEY;
2863: l_approval_type VARCHAR2(100):='CONCEPT';
2864: l_active VARCHAR2(50):= 'N';
2874: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
2875: fnd_log.string
2876: (
2877: fnd_log.level_procedure,
2878: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval.begin',
2879: 'At the start of PLSQL procedure'
2880: );
2881: END IF;
2882:
2886: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
2887: fnd_log.string
2888: (
2889: fnd_log.level_unexpected,
2890: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
2891: 'Can not submit for approval because current status is : ' || p_df_header_rec.approval_status_code
2892: );
2893: END IF;
2894: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2900: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2901: fnd_log.string
2902: (
2903: fnd_log.level_error,
2904: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
2905: 'Can not submit for approval because a parent or child is in pending deferral approval status'
2906: );
2907: END IF;
2908: RAISE FND_API.G_EXC_ERROR;
2931: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2932: fnd_log.string
2933: (
2934: fnd_log.level_error,
2935: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
2936: 'Can not go ahead with aubmission of approval because Workorder dependencies exists'
2937: );
2938: END IF;
2939: RAISE FND_API.G_EXC_ERROR;
2951: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2952: fnd_log.string
2953: (
2954: fnd_log.level_statement,
2955: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
2956: 'Workflow active flag : ' || l_active
2957: );
2958: fnd_log.string
2959: (
2957: );
2958: fnd_log.string
2959: (
2960: fnd_log.level_statement,
2961: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
2962: 'l_process_name : ' || l_process_name
2963: );
2964: fnd_log.string
2965: (
2963: );
2964: fnd_log.string
2965: (
2966: fnd_log.level_statement,
2967: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
2968: 'l_item_type : ' || l_item_type
2969: );
2970:
2971: END IF;
2977: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
2978: fnd_log.string
2979: (
2980: fnd_log.level_error,
2981: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
2982: 'Can not submit for approval because workflow is not active for Deferral'
2983: );
2984: END IF;
2985: RAISE FND_API.G_EXC_ERROR;*/
2986: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
2987: fnd_log.string
2988: (
2989: fnd_log.level_statement,
2990: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
2991: 'Workflow is not active so going for automatic approval'
2992: );
2993: END IF;
2994: l_active := G_NO_FLAG;
2994: l_active := G_NO_FLAG;
2995: END IF;
2996:
2997: -- make a call to update job status to pending deferral approval and update approval status
2998: AHL_PRD_DF_PVT.process_approval_initiated(
2999: p_unit_deferral_id => p_df_header_rec.unit_deferral_id,
3000: p_object_version_number => p_df_header_rec.object_version_number,
3001: p_new_status => 'DEFERRAL_PENDING',
3002: x_return_status => l_return_status);
3006: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3007: fnd_log.string
3008: (
3009: fnd_log.level_error,
3010: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3011: 'Can not go ahead with approval because AHL_PRD_DF_PVT.process_approval_initiated threw error'
3012: );
3013: END IF;
3014: RAISE FND_API.G_EXC_ERROR;
3007: fnd_log.string
3008: (
3009: fnd_log.level_error,
3010: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3011: 'Can not go ahead with approval because AHL_PRD_DF_PVT.process_approval_initiated threw error'
3012: );
3013: END IF;
3014: RAISE FND_API.G_EXC_ERROR;
3015: END IF;
3017: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3018: fnd_log.string
3019: (
3020: fnd_log.level_statement,
3021: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3022: 'Workflow active flag : ' || l_active
3023: );
3024: END IF;
3025:
3045: P_WORKFLOWPROCESS => 'AHL_GEN_APPROVAL',
3046: P_ITEM_TYPE => 'AHLGAPP');
3047: ELSE
3048: -- make a call for automatic approval
3049: AHL_PRD_DF_PVT.process_approval_approved(
3050: p_unit_deferral_id => p_df_header_rec.unit_deferral_id,
3051: p_object_version_number => p_df_header_rec.object_version_number,
3052: p_new_status => l_new_status_code,
3053: x_return_status => l_return_status);
3055: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3056: fnd_log.string
3057: (
3058: fnd_log.level_error,
3059: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3060: 'Can not go ahead with automatic approval because AHL_PRD_DF_PVT.process_approval_approved threw error'
3061: );
3062: END IF;
3063: RAISE FND_API.G_EXC_ERROR;
3056: fnd_log.string
3057: (
3058: fnd_log.level_error,
3059: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval',
3060: 'Can not go ahead with automatic approval because AHL_PRD_DF_PVT.process_approval_approved threw error'
3061: );
3062: END IF;
3063: RAISE FND_API.G_EXC_ERROR;
3064: END IF;
3073: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3074: fnd_log.string
3075: (
3076: fnd_log.level_procedure,
3077: 'ahl.plsql.AHL_PRD_DF_PVT.submit_for_approval.end',
3078: 'At the end of PLSQL procedure'
3079: );
3080: END IF;
3081:
3138: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3139: fnd_log.string
3140: (
3141: fnd_log.level_procedure,
3142: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated.begin',
3143: 'At the start of PLSQL procedure'
3144: );
3145: END IF;
3146: x_return_status := FND_API.G_RET_STS_SUCCESS;
3155: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3156: fnd_log.string
3157: (
3158: fnd_log.level_statement,
3159: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated',
3160: 'unit_deferral_id : ' || p_unit_deferral_id
3161: );
3162: fnd_log.string
3163: (
3161: );
3162: fnd_log.string
3163: (
3164: fnd_log.level_statement,
3165: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated',
3166: 'object_version_number : ' || p_object_version_number
3167: );
3168: fnd_log.string
3169: (
3167: );
3168: fnd_log.string
3169: (
3170: fnd_log.level_statement,
3171: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated',
3172: 'Return status after process_workorders API call : ' || x_return_status
3173: );
3174: END IF;
3175:
3177: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3178: fnd_log.string
3179: (
3180: fnd_log.level_unexpected,
3181: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated',
3182: 'process_workorders API API threw error'
3183: );
3184: END IF;
3185: RETURN;
3197: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3198: fnd_log.string
3199: (
3200: fnd_log.level_unexpected,
3201: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated',
3202: 'process_unit_maint_plan API threw error'
3203: );
3204: END IF;
3205: RETURN;
3213: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3214: fnd_log.string
3215: (
3216: fnd_log.level_procedure,
3217: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_initiated.end',
3218: 'At the end of PLSQL procedure'
3219: );
3220: END IF;
3221:
3259: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3260: fnd_log.string
3261: (
3262: fnd_log.level_procedure,
3263: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved.begin',
3264: 'At the start of PLSQL procedure'
3265: );
3266: END IF;
3267:
3276: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
3277: fnd_log.string
3278: (
3279: fnd_log.level_error,
3280: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
3281: 'Associated MR has been terminated in FMP'
3282: );
3283: END IF;
3284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3289: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3290: fnd_log.string
3291: (
3292: fnd_log.level_statement,
3293: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3294: 'unit_deferral_id : ' || p_unit_deferral_id
3295: );
3296: fnd_log.string
3297: (
3295: );
3296: fnd_log.string
3297: (
3298: fnd_log.level_statement,
3299: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3300: 'object_version_number : ' || p_object_version_number
3301: );
3302: END IF;
3303:
3312: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3313: fnd_log.string
3314: (
3315: fnd_log.level_statement,
3316: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3317: 'Return status after process_workorders API call : ' || x_return_status
3318: );
3319: END IF;
3320:
3322: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3323: fnd_log.string
3324: (
3325: fnd_log.level_unexpected,
3326: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3327: 'process_workorders API threw error'
3328: );
3329: END IF;
3330: RETURN;
3344: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3345: fnd_log.string
3346: (
3347: fnd_log.level_unexpected,
3348: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3349: 'process_unit_maint_plan API threw error'
3350: );
3351: END IF;
3352: RETURN;
3363: IF (fnd_log.level_event >= fnd_log.g_current_runtime_level)THEN
3364: fnd_log.string
3365: (
3366: fnd_log.level_event,
3367: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3368: 'Succesfully approved deferral for unit_deferral_id : ' || p_unit_deferral_id
3369: );
3370: END IF;
3371:
3378: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3379: fnd_log.string
3380: (
3381: fnd_log.level_unexpected,
3382: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3383: 'Unit Effectivity record not found when fetching item instance id'
3384: );
3385: END IF;
3386: CLOSE csi_item_instance_id_csr;
3389: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3390: fnd_log.string
3391: (
3392: fnd_log.level_statement,
3393: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3394: 'p_csi_item_instance_id : ' || l_csi_item_instance_id
3395: );
3396: END IF;
3397: -- then call due date calc concurrent request
3404: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3405: fnd_log.string
3406: (
3407: fnd_log.level_unexpected,
3408: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3409: 'Could not calculate due date'
3410: );
3411: END IF;
3412: RETURN;
3416: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3417: fnd_log.string
3418: (
3419: fnd_log.level_procedure,
3420: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved.end',
3421: 'At the end of PLSQL procedure'
3422: );
3423: END IF;
3424:
3447: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3448: fnd_log.string
3449: (
3450: fnd_log.level_procedure,
3451: 'ahl.plsql.AHL_PRD_DF_PVT.calculate_due_date.begin',
3452: 'At the start of PLSQL procedure'
3453: );
3454: END IF;
3455: -- check whether Internal Concurrent Manager is up
3479: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3480: fnd_log.string
3481: (
3482: fnd_log.level_statement,
3483: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3484: 'Submitting concurrent request to calculate due date for p_csi_item_instance_id : ' || p_csi_item_instance_id
3485: );
3486: END IF;
3487: --l_req_id := fnd_request.submit_request('AHL','AHLUEFF',NULL,NULL,FALSE,NULL,NULL,p_csi_item_instance_id );
3493: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3494: fnd_log.string
3495: (
3496: fnd_log.level_statement,
3497: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3498: 'Tried to submit concurrent request but failed'
3499: );
3500: END IF;
3501: ELSE
3503: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3504: fnd_log.string
3505: (
3506: fnd_log.level_statement,
3507: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3508: 'Concurrent request to calculate due date successful'
3509: );
3510: END IF;
3511: END IF;
3517: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3518: fnd_log.string
3519: (
3520: fnd_log.level_statement,
3521: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_approved',
3522: 'Calculating due date online'
3523: );
3524: END IF;
3525:
3536: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3537: fnd_log.string
3538: (
3539: fnd_log.level_unexpected,
3540: 'ahl.plsql.AHL_PRD_DF_PVT.calculate_due_date',
3541: 'AHL_UMP_PROCESSUNIT_PVT.Process_Unit API threw error'
3542: );
3543: END IF;
3544: RETURN;
3550: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3551: fnd_log.string
3552: (
3553: fnd_log.level_procedure,
3554: 'ahl.plsql.AHL_PRD_DF_PVT.calculate_due_date.end',
3555: 'At the end of PLSQL procedure'
3556: );
3557: END IF;
3558:
3569: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3570: fnd_log.string
3571: (
3572: fnd_log.level_procedure,
3573: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected.begin',
3574: 'At the start of PLSQL procedure'
3575: );
3576: END IF;
3577:
3589: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3590: fnd_log.string
3591: (
3592: fnd_log.level_statement,
3593: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected',
3594: 'unit_deferral_id : ' || p_unit_deferral_id
3595: );
3596: fnd_log.string
3597: (
3595: );
3596: fnd_log.string
3597: (
3598: fnd_log.level_statement,
3599: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected',
3600: 'object_version_number : ' || p_object_version_number
3601: );
3602: fnd_log.string
3603: (
3601: );
3602: fnd_log.string
3603: (
3604: fnd_log.level_statement,
3605: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected',
3606: 'Return status after process_workorders API call : ' || x_return_status
3607: );
3608: fnd_log.string
3609: (
3607: );
3608: fnd_log.string
3609: (
3610: fnd_log.level_statement,
3611: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected',
3612: 'New approval status : ' || p_new_status
3613: );
3614: END IF;
3615:
3617: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3618: fnd_log.string
3619: (
3620: fnd_log.level_unexpected,
3621: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected',
3622: 'process_workorders API threw error'
3623: );
3624: END IF;
3625: RETURN;
3638: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3639: fnd_log.string
3640: (
3641: fnd_log.level_unexpected,
3642: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected',
3643: 'process_unit_maint_plan API threw error'
3644: );
3645: END IF;
3646: RETURN;
3655: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
3656: fnd_log.string
3657: (
3658: fnd_log.level_procedure,
3659: 'ahl.plsql.AHL_PRD_DF_PVT.process_approval_rejected.end',
3660: 'At the end of PLSQL procedure'
3661: );
3662: END IF;
3663:
3800: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
3801: fnd_log.string
3802: (
3803: fnd_log.level_procedure,
3804: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders.begin',
3805: 'At the start of PLSQL procedure'
3806: );
3807: END IF;
3808:
3811: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3812: fnd_log.string
3813: (
3814: fnd_log.level_statement,
3815: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
3816: 'unit_deferral_id : ' || p_unit_deferral_id
3817: );
3818: fnd_log.string
3819: (
3817: );
3818: fnd_log.string
3819: (
3820: fnd_log.level_statement,
3821: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
3822: 'object_version_number : ' || p_object_version_number
3823: );
3824: fnd_log.string
3825: (
3823: );
3824: fnd_log.string
3825: (
3826: fnd_log.level_statement,
3827: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
3828: 'Approval Result Code : ' || p_approval_result_code
3829: );
3830: END IF;
3831: -- validating ue and getting it
3838: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3839: fnd_log.string
3840: (
3841: fnd_log.level_unexpected,
3842: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
3843: 'Unit Effectivity Record not found for unit deferral id : ' || p_unit_deferral_id
3844: );
3845: END IF;
3846: END IF;
3853: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3854: fnd_log.string
3855: (
3856: fnd_log.level_statement,
3857: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
3858: 'unit_effectivity_id : ' || l_unit_effectivity_id
3859: );
3860: END IF;
3861:
3869: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level) THEN
3870: fnd_log.string
3871: (
3872: fnd_log.level_unexpected,
3873: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
3874: 'Approver client information not same as the requester. workorders not found for approver'
3875: );
3876: END IF;
3877: END IF;
3925: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3926: fnd_log.string
3927: (
3928: fnd_log.level_statement,
3929: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
3930: 'workorder_id : ' || l_prd_workorder_rec.workorder_id
3931: );
3932: fnd_log.string
3933: (
3931: );
3932: fnd_log.string
3933: (
3934: fnd_log.level_statement,
3935: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
3936: 'object_version_number : ' || l_prd_workorder_rec.object_version_number
3937: );
3938: fnd_log.string
3939: (
3937: );
3938: fnd_log.string
3939: (
3940: fnd_log.level_statement,
3941: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
3942: 'Current Workorder status : ' || l_prd_workorder_rec.status_code
3943: );
3944: END IF;
3945:
3979: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
3980: fnd_log.string
3981: (
3982: fnd_log.level_statement,
3983: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
3984: 'Workorder Update Flag :TRUE '
3985: );
3986: fnd_log.string
3987: (
3985: );
3986: fnd_log.string
3987: (
3988: fnd_log.level_statement,
3989: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
3990: 'new Workorder status/Update : ' || l_prd_workorder_rec.status_code
3991: );
3992: END IF;
3993:
4027: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4028: fnd_log.string
4029: (
4030: fnd_log.level_statement,
4031: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4032: 'Status after AHL_PRD_WORKORDER_PVT.update_job API call : ' || x_return_status
4033: );
4034: END IF;
4035: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4038: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4039: fnd_log.string
4040: (
4041: fnd_log.level_unexpected,
4042: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4043: 'AHL_PRD_WORKORDER_PVT.update_job API returned error '
4044: );
4045: END IF;
4046: EXIT;
4050: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4051: fnd_log.string
4052: (
4053: fnd_log.level_statement,
4054: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4055: 'Workorder Complete Flag :TRUE '
4056: );
4057: fnd_log.string
4058: (
4056: );
4057: fnd_log.string
4058: (
4059: fnd_log.level_statement,
4060: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4061: 'new Workorder status/Complete : ' || l_prd_workorder_rec.status_code
4062: );
4063: END IF;
4064: l_prd_workorder_rec.status_code := G_JOB_RELEASED;
4086: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4087: fnd_log.string
4088: (
4089: fnd_log.level_statement,
4090: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4091: 'Status after AHL_PRD_WORKORDER_PVT.update_job API call : ' || x_return_status
4092: );
4093: END IF;
4094: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4097: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4098: fnd_log.string
4099: (
4100: fnd_log.level_unexpected,
4101: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4102: 'AHL_PRD_WORKORDER_PVT.update_job API returned error '
4103: );
4104: END IF;
4105: EXIT;
4129: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4130: fnd_log.string
4131: (
4132: fnd_log.level_statement,
4133: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4134: 'Status after AHL_COMPLETIONS_PVT.defer_workorder API call : ' || x_return_status
4135: );
4136: END IF;
4137: IF(x_return_status <> FND_API.G_RET_STS_SUCCESS)THEN
4140: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4141: fnd_log.string
4142: (
4143: fnd_log.level_unexpected,
4144: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4145: 'AHL_COMPLETIONS_PVT.defer_workorder API returned error '
4146: );
4147: END IF;
4148: EXIT;
4197: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4198: fnd_log.string
4199: (
4200: fnd_log.level_unexpected,
4201: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders',
4202: 'AHL_PRD_WORKORDERS_PVT.cancel_visit_jobs API returned error '
4203: );
4204: END IF;
4205: END IF;
4208: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4209: fnd_log.string
4210: (
4211: fnd_log.level_procedure,
4212: 'ahl.plsql.AHL_PRD_DF_PVT.process_workorders.end',
4213: 'At the end of PLSQL procedure'
4214: );
4215: END IF;
4216: END process_workorders;
4381: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4382: fnd_log.string
4383: (
4384: fnd_log.level_procedure,
4385: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan.begin',
4386: 'At the start of PLSQL procedure'
4387: );
4388: END IF;
4389:
4398: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4399: fnd_log.string
4400: (
4401: fnd_log.level_unexpected,
4402: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4403: 'Deferral record details not found for unit deferral id : ' || p_unit_deferral_id
4404: );
4405: END IF;
4406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4601: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
4602: fnd_log.string
4603: (
4604: fnd_log.level_unexpected,
4605: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan',
4606: 'Wrong SR incident id: ' || l_cs_incident_id
4607: );
4608: END IF;
4609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4780: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
4781: fnd_log.string
4782: (
4783: fnd_log.level_procedure,
4784: 'ahl.plsql.AHL_PRD_DF_PVT.process_unit_maint_plan.end',
4785: 'At the end of PLSQL procedure'
4786: );
4787: END IF;
4788:
4859: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
4860: fnd_log.string
4861: (
4862: fnd_log.level_procedure,
4863: 'ahl.plsql.AHL_PRD_DF_PVT.process_prior_ump_deferrals.begin',
4864: 'At the start of PLSQL procedure'
4865: );
4866: END IF;
4867:
4868: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4869: fnd_log.string
4870: (
4871: fnd_log.level_statement,
4872: 'ahl.plsql.AHL_PRD_DF_PVT.process_prior_ump_deferrals',
4873: 'deleting redundant ue, relationships and marking as exception if assigned to visit'
4874: );
4875: END IF;
4876:
4956: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
4957: fnd_log.string
4958: (
4959: fnd_log.level_statement,
4960: 'ahl.plsql.AHL_PRD_DF_PVT.process_prior_ump_deferrals',
4961: 'deleting un-necessary deferral records'
4962: );
4963: END IF;
4964:
4973: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
4974: fnd_log.string
4975: (
4976: fnd_log.level_procedure,
4977: 'ahl.plsql.AHL_PRD_DF_PVT.process_prior_ump_deferrals.end',
4978: 'At the end of PLSQL procedure'
4979: );
4980: END IF;
4981: END process_prior_ump_deferrals;
4988: PROCEDURE get_deferral_details (
4989:
4990: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4991: p_unit_effectivity_id IN NUMBER,
4992: x_df_header_info_rec OUT NOCOPY AHL_PRD_DF_PVT.df_header_info_rec_type,
4993: x_df_schedules_tbl OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type,
4994: x_return_status OUT NOCOPY VARCHAR2,
4995: x_msg_count OUT NOCOPY NUMBER,
4996: x_msg_data OUT NOCOPY VARCHAR2) IS
4989:
4990: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4991: p_unit_effectivity_id IN NUMBER,
4992: x_df_header_info_rec OUT NOCOPY AHL_PRD_DF_PVT.df_header_info_rec_type,
4993: x_df_schedules_tbl OUT NOCOPY AHL_PRD_DF_PVT.df_schedules_tbl_type,
4994: x_return_status OUT NOCOPY VARCHAR2,
4995: x_msg_count OUT NOCOPY NUMBER,
4996: x_msg_data OUT NOCOPY VARCHAR2) IS
4997:
4996: x_msg_data OUT NOCOPY VARCHAR2) IS
4997:
4998: l_api_name CONSTANT VARCHAR2(30) := 'get_deferral_details';
4999:
5000: l_df_header_info_rec AHL_PRD_DF_PVT.df_header_info_rec_type;
5001: l_applicable_ue_id NUMBER;
5002:
5003: -- to fecth context information
5004: CURSOR context_info_csr(p_unit_effectivity_id IN NUMBER) IS
5105: ORDER BY CO.name;
5106:
5107:
5108: i NUMBER := 0;
5109: l_df_schedules_tbl AHL_PRD_DF_PVT.df_schedules_tbl_type;
5110:
5111: BEGIN
5112: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5113: fnd_log.string
5112: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5113: fnd_log.string
5114: (
5115: fnd_log.level_procedure,
5116: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details.begin',
5117: 'At the start of PLSQL procedure'
5118: );
5119: END IF;
5120: -- Initialize message list if p_init_msg_list is set to TRUE
5127: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5128: fnd_log.string
5129: (
5130: fnd_log.level_statement,
5131: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5132: 'Got request for deferral record of Unit effectivity ID : ' || p_unit_effectivity_id
5133: );
5134: END IF;
5135:
5139: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5140: fnd_log.string
5141: (
5142: fnd_log.level_unexpected,
5143: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5144: 'Invalid request, Unit Effectivity IS NULL'
5145: );
5146: END IF;
5147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5161: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
5162: fnd_log.string
5163: (
5164: fnd_log.level_error,
5165: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5166: 'Status of MR or SR is not valid for deferral'
5167: );
5168: END IF;*/
5169: END IF;
5183: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5184: fnd_log.string
5185: (
5186: fnd_log.level_unexpected,
5187: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5188: 'Unit Effectivity record not found'
5189: );
5190: END IF;
5191: CLOSE context_info_csr;
5204: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5205: fnd_log.string
5206: (
5207: fnd_log.level_unexpected,
5208: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5209: 'Invalid unit effectivity record, mr status meaning not found'
5210: );
5211: END IF;
5212: CLOSE mr_status_meaning_csr;
5224: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5225: fnd_log.string
5226: (
5227: fnd_log.level_unexpected,
5228: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details',
5229: 'Visit Information not found'
5230: );
5231: END IF;
5232: CLOSE visit_info_csr;
5323: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level)THEN
5324: fnd_log.string
5325: (
5326: fnd_log.level_procedure,
5327: 'ahl.plsql.AHL_PRD_DF_PVT.get_deferral_details.end',
5328: 'At the end of PLSQL procedure'
5329: );
5330: END IF;
5331:
5386: IF (fnd_log.level_unexpected >= fnd_log.g_current_runtime_level)THEN
5387: fnd_log.string
5388: (
5389: fnd_log.level_unexpected,
5390: 'ahl.plsql.AHL_PRD_DF_PVT.get_applicable_ue',
5391: 'Unit Effectivity record not found'
5392: );
5393: END IF;
5394: ELSE
5475:
5476: END Is_UMP_Deferral;
5477:
5478:
5479: END AHL_PRD_DF_PVT; -- Package body
5480: