29:
30: -- to calculate the start date of the new version
31: PROCEDURE calc_start_date(
32: p_api_version IN NUMBER,
33: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false,
34: x_return_status OUT NOCOPY VARCHAR2,
35: x_msg_count OUT NOCOPY NUMBER,
36: x_msg_data OUT NOCOPY VARCHAR2,
37: p_pal_rec IN okl_pal_rec,
43: l_api_version NUMBER := 1.0;
44: l_pal_rec okl_pal_rec := p_pal_rec;
45: l_eff_from DATE;
46: l_eff_to DATE;
47: l_return_status VARCHAR2(1):= OKL_API.G_RET_STS_SUCCESS;
48: l_start_date l_start_date_type;
49: l_max_start_date DATE;
50: i NUMBER;
51:
85: WHERE ecl.criteria_set_id = ech.criteria_set_id
86: AND ech.source_id = p_version_id AND source_object_code = 'PAM';
87:
88: BEGIN
89: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
90: G_PKG_NAME,
91: p_init_msg_list,
92: l_api_version,
93: p_api_version,
93: p_api_version,
94: '_PVT',
95: x_return_status);
96:
97: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
98: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
99: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
100: RAISE OKL_API.G_EXCEPTION_ERROR;
101: END IF;
94: '_PVT',
95: x_return_status);
96:
97: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
98: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
99: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
100: RAISE OKL_API.G_EXCEPTION_ERROR;
101: END IF;
102:
95: x_return_status);
96:
97: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
98: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
99: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
100: RAISE OKL_API.G_EXCEPTION_ERROR;
101: END IF;
102:
103: OPEN prev_ver_csr(l_pal_rec.adj_mat_id, l_pal_rec.version_number);
96:
97: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
98: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
99: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
100: RAISE OKL_API.G_EXCEPTION_ERROR;
101: END IF;
102:
103: OPEN prev_ver_csr(l_pal_rec.adj_mat_id, l_pal_rec.version_number);
104: FETCH prev_ver_csr INTO l_eff_from, l_eff_to;
111: ELSE
112: l_max_start_date := l_eff_from + 1;
113: END IF;
114: ELSE
115: l_max_start_date:= okl_api.g_miss_date;
116: END IF;
117: CLOSE prev_ver_csr;
118:
119: IF (l_eff_to IS NULL) THEN
150: -- assign the max start date to the out parameter
151: x_cal_eff_from := l_max_start_date;
152:
153: --end activity
154: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
155: x_return_status := l_return_status;
156:
157: EXCEPTION
158: WHEN OKL_API.G_EXCEPTION_ERROR THEN
154: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
155: x_return_status := l_return_status;
156:
157: EXCEPTION
158: WHEN OKL_API.G_EXCEPTION_ERROR THEN
159: x_return_status := OKL_API.HANDLE_EXCEPTIONS
160: (
161: l_api_name,
162: G_PKG_NAME,
155: x_return_status := l_return_status;
156:
157: EXCEPTION
158: WHEN OKL_API.G_EXCEPTION_ERROR THEN
159: x_return_status := OKL_API.HANDLE_EXCEPTIONS
160: (
161: l_api_name,
162: G_PKG_NAME,
163: 'OKL_API.G_RET_STS_ERROR',
159: x_return_status := OKL_API.HANDLE_EXCEPTIONS
160: (
161: l_api_name,
162: G_PKG_NAME,
163: 'OKL_API.G_RET_STS_ERROR',
164: x_msg_count,
165: x_msg_data,
166: '_PVT'
167: );
165: x_msg_data,
166: '_PVT'
167: );
168:
169: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
170: x_return_status := OKL_API.HANDLE_EXCEPTIONS
171: (
172: l_api_name,
173: G_PKG_NAME,
166: '_PVT'
167: );
168:
169: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
170: x_return_status := OKL_API.HANDLE_EXCEPTIONS
171: (
172: l_api_name,
173: G_PKG_NAME,
174: 'OKL_API.G_RET_STS_UNEXP_ERROR',
170: x_return_status := OKL_API.HANDLE_EXCEPTIONS
171: (
172: l_api_name,
173: G_PKG_NAME,
174: 'OKL_API.G_RET_STS_UNEXP_ERROR',
175: x_msg_count,
176: x_msg_data,
177: '_PVT'
178: );
177: '_PVT'
178: );
179:
180: WHEN OTHERS THEN
181: x_return_status := OKL_API.HANDLE_EXCEPTIONS
182: (
183: l_api_name,
184: G_PKG_NAME,
185: 'OTHERS',
191:
192: -- procedure to validate the pricing adjustment matrix
193: PROCEDURE VALIDATE_ADJ_MAT(
194: p_api_version IN NUMBER,
195: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false,
196: x_return_status OUT NOCOPY VARCHAR2,
197: x_msg_count OUT NOCOPY NUMBER,
198: x_msg_data OUT NOCOPY VARCHAR2,
199: p_pal_rec IN okl_pal_rec,
206: l_pal_rec okl_pal_rec := p_pal_rec;
207: l_ecl_tbl okl_ecl_tbl := p_ecl_tbl;
208: i NUMBER;
209: l_crit_cat VARCHAR2(40) := 'Adjustment Categories';
210: l_return_status VARCHAR2(1):= OKL_API.G_RET_STS_SUCCESS;
211:
212: BEGIN
213: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
214: G_PKG_NAME,
209: l_crit_cat VARCHAR2(40) := 'Adjustment Categories';
210: l_return_status VARCHAR2(1):= OKL_API.G_RET_STS_SUCCESS;
211:
212: BEGIN
213: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
214: G_PKG_NAME,
215: p_init_msg_list,
216: l_api_version,
217: p_api_version,
217: p_api_version,
218: '_PVT',
219: x_return_status);
220:
221: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
222: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
223: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
224: RAISE OKL_API.G_EXCEPTION_ERROR;
225: END IF;
218: '_PVT',
219: x_return_status);
220:
221: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
222: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
223: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
224: RAISE OKL_API.G_EXCEPTION_ERROR;
225: END IF;
226:
219: x_return_status);
220:
221: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
222: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
223: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
224: RAISE OKL_API.G_EXCEPTION_ERROR;
225: END IF;
226:
227:
220:
221: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
222: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
223: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
224: RAISE OKL_API.G_EXCEPTION_ERROR;
225: END IF;
226:
227:
228: -- The Effective Dates of the Adjusment Categories should be in the range of the Adjustment matrix
230: FOR i in l_ecl_tbl.FIRST..l_ecl_tbl.LAST LOOP
231: IF (l_ecl_tbl(i).EFFECTIVE_FROM_DATE < l_pal_rec.EFFECTIVE_FROM_DATE) THEN
232: RAISE G_INVALID_ADJ_CAT_DATES;
233: END IF;
234: IF (l_ecl_tbl(i).EFFECTIVE_TO_DATE is null or l_ecl_tbl(i).EFFECTIVE_TO_DATE = OKL_API.G_MISS_DATE) THEN
235: IF (l_pal_rec.EFFECTIVE_TO_DATE is not null and l_pal_rec.EFFECTIVE_TO_DATE <> OKL_API.G_MISS_DATE) THEN
236: RAISE G_INVALID_ADJ_CAT_DATES;
237: END IF;
238: ELSIF (l_pal_rec.EFFECTIVE_TO_DATE is not null and l_pal_rec.EFFECTIVE_TO_DATE <> OKL_API.G_MISS_DATE) THEN
231: IF (l_ecl_tbl(i).EFFECTIVE_FROM_DATE < l_pal_rec.EFFECTIVE_FROM_DATE) THEN
232: RAISE G_INVALID_ADJ_CAT_DATES;
233: END IF;
234: IF (l_ecl_tbl(i).EFFECTIVE_TO_DATE is null or l_ecl_tbl(i).EFFECTIVE_TO_DATE = OKL_API.G_MISS_DATE) THEN
235: IF (l_pal_rec.EFFECTIVE_TO_DATE is not null and l_pal_rec.EFFECTIVE_TO_DATE <> OKL_API.G_MISS_DATE) THEN
236: RAISE G_INVALID_ADJ_CAT_DATES;
237: END IF;
238: ELSIF (l_pal_rec.EFFECTIVE_TO_DATE is not null and l_pal_rec.EFFECTIVE_TO_DATE <> OKL_API.G_MISS_DATE) THEN
239: IF (l_ecl_tbl(i).EFFECTIVE_TO_DATE > l_pal_rec.EFFECTIVE_TO_DATE) THEN
234: IF (l_ecl_tbl(i).EFFECTIVE_TO_DATE is null or l_ecl_tbl(i).EFFECTIVE_TO_DATE = OKL_API.G_MISS_DATE) THEN
235: IF (l_pal_rec.EFFECTIVE_TO_DATE is not null and l_pal_rec.EFFECTIVE_TO_DATE <> OKL_API.G_MISS_DATE) THEN
236: RAISE G_INVALID_ADJ_CAT_DATES;
237: END IF;
238: ELSIF (l_pal_rec.EFFECTIVE_TO_DATE is not null and l_pal_rec.EFFECTIVE_TO_DATE <> OKL_API.G_MISS_DATE) THEN
239: IF (l_ecl_tbl(i).EFFECTIVE_TO_DATE > l_pal_rec.EFFECTIVE_TO_DATE) THEN
240: RAISE G_INVALID_ADJ_CAT_DATES;
241: END IF;
242: END IF;
242: END IF;
243: END LOOP;
244:
245: --end activity
246: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
247: x_return_status := l_return_status;
248:
249: EXCEPTION
250: WHEN G_INVALID_ADJ_CAT_DATES THEN
247: x_return_status := l_return_status;
248:
249: EXCEPTION
250: WHEN G_INVALID_ADJ_CAT_DATES THEN
251: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
252: p_msg_name => 'OKL_CAT_INVALID_DATE_RANGE',
253: p_token1 => 'CRIT_CAT',
254: p_token1_value => l_crit_cat
255: );
252: p_msg_name => 'OKL_CAT_INVALID_DATE_RANGE',
253: p_token1 => 'CRIT_CAT',
254: p_token1_value => l_crit_cat
255: );
256: x_return_status := OKL_API.HANDLE_EXCEPTIONS
257: (
258: l_api_name,
259: G_PKG_NAME,
260: 'OKL_API.G_RET_STS_ERROR',
256: x_return_status := OKL_API.HANDLE_EXCEPTIONS
257: (
258: l_api_name,
259: G_PKG_NAME,
260: 'OKL_API.G_RET_STS_ERROR',
261: x_msg_count,
262: x_msg_data,
263: '_PVT'
264: );
263: '_PVT'
264: );
265:
266:
267: WHEN OKL_API.G_EXCEPTION_ERROR THEN
268: x_return_status := OKL_API.HANDLE_EXCEPTIONS
269: (
270: l_api_name,
271: G_PKG_NAME,
264: );
265:
266:
267: WHEN OKL_API.G_EXCEPTION_ERROR THEN
268: x_return_status := OKL_API.HANDLE_EXCEPTIONS
269: (
270: l_api_name,
271: G_PKG_NAME,
272: 'OKL_API.G_RET_STS_ERROR',
268: x_return_status := OKL_API.HANDLE_EXCEPTIONS
269: (
270: l_api_name,
271: G_PKG_NAME,
272: 'OKL_API.G_RET_STS_ERROR',
273: x_msg_count,
274: x_msg_data,
275: '_PVT'
276: );
274: x_msg_data,
275: '_PVT'
276: );
277:
278: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
279: x_return_status := OKL_API.HANDLE_EXCEPTIONS
280: (
281: l_api_name,
282: G_PKG_NAME,
275: '_PVT'
276: );
277:
278: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
279: x_return_status := OKL_API.HANDLE_EXCEPTIONS
280: (
281: l_api_name,
282: G_PKG_NAME,
283: 'OKL_API.G_RET_STS_UNEXP_ERROR',
279: x_return_status := OKL_API.HANDLE_EXCEPTIONS
280: (
281: l_api_name,
282: G_PKG_NAME,
283: 'OKL_API.G_RET_STS_UNEXP_ERROR',
284: x_msg_count,
285: x_msg_data,
286: '_PVT'
287: );
286: '_PVT'
287: );
288:
289: WHEN OTHERS THEN
290: x_return_status := OKL_API.HANDLE_EXCEPTIONS
291: (
292: l_api_name,
293: G_PKG_NAME,
294: 'OTHERS',
300:
301: END VALIDATE_ADJ_MAT;
302:
303: PROCEDURE GET_ADJUSTMENT_CATEGORIES( p_api_version IN NUMBER,
304: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false,
305: x_return_status OUT NOCOPY VARCHAR2,
306: x_msg_count OUT NOCOPY NUMBER,
307: x_msg_data OUT NOCOPY VARCHAR2,
308: source_id IN NUMBER,
384: i NUMBER :=1;
385: j NUMBER :=1;
386: data_type VARCHAR2(30);
387: BEGIN
388: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
389: G_PKG_NAME,
390: p_init_msg_list,
391: l_api_version,
392: p_api_version,
469: x_ecl_tbl(i).IS_NEW_FLAG := 'N';
470: i:=i+1;
471: END LOOP;
472: --end activity
473: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
474:
475: EXCEPTION
476:
477: WHEN others THEN
474:
475: EXCEPTION
476:
477: WHEN others THEN
478: x_return_status := OKL_API.HANDLE_EXCEPTIONS
479: (
480: l_api_name,
481: G_PKG_NAME,
482: 'OTHERS',
487:
488: END GET_ADJUSTMENT_CATEGORIES;
489:
490: PROCEDURE GET_ADJ_MATRIX(p_api_version IN NUMBER,
491: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false,
492: x_return_status OUT NOCOPY VARCHAR2,
493: x_msg_count OUT NOCOPY NUMBER,
494: x_msg_data OUT NOCOPY VARCHAR2,
495: p_adj_mat_id IN NUMBER,
567:
568: l_api_name VARCHAR2(40) := 'populate_adj_matrix';
569: l_api_version NUMBER := 1.0;
570: BEGIN
571: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
572: G_PKG_NAME,
573: p_init_msg_list,
574: l_api_version,
575: p_api_version,
644: x_pal_rec.LAST_UPDATE_LOGIN := cat_version_rec.LAST_UPDATE_LOGIN;
645: END LOOP;
646:
647: --end activity
648: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
649:
650: EXCEPTION
651:
652: WHEN others THEN
649:
650: EXCEPTION
651:
652: WHEN others THEN
653: x_return_status := OKL_API.HANDLE_EXCEPTIONS
654: (
655: l_api_name,
656: G_PKG_NAME,
657: 'OTHERS',
664: -- procedure to give the details of the adjustment matrix given the Adjustment
665: -- matrix id and the version number
666: PROCEDURE GET_VERSION(
667: p_api_version IN NUMBER,
668: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false,
669: x_return_status OUT NOCOPY VARCHAR2,
670: x_msg_count OUT NOCOPY NUMBER,
671: x_msg_data OUT NOCOPY VARCHAR2,
672: p_adj_mat_id IN NUMBER,
677: x_ecl_tbl OUT NOCOPY okl_ecl_tbl,
678: x_ecv_tbl OUT NOCOPY okl_ecv_tbl) IS
679: l_api_name VARCHAR2(40):='get_version';
680: l_api_version NUMBER:=1.0;
681: l_return_status VARCHAR2(1):= OKL_API.G_RET_STS_SUCCESS;
682: BEGIN
683: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
684: G_PKG_NAME,
685: p_init_msg_list,
679: l_api_name VARCHAR2(40):='get_version';
680: l_api_version NUMBER:=1.0;
681: l_return_status VARCHAR2(1):= OKL_API.G_RET_STS_SUCCESS;
682: BEGIN
683: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
684: G_PKG_NAME,
685: p_init_msg_list,
686: l_api_version,
687: p_api_version,
687: p_api_version,
688: '_PVT',
689: x_return_status);
690:
691: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
692: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
693: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
694: RAISE OKL_API.G_EXCEPTION_ERROR;
695: END IF;
688: '_PVT',
689: x_return_status);
690:
691: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
692: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
693: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
694: RAISE OKL_API.G_EXCEPTION_ERROR;
695: END IF;
696:
689: x_return_status);
690:
691: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
692: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
693: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
694: RAISE OKL_API.G_EXCEPTION_ERROR;
695: END IF;
696:
697: GET_ADJ_MATRIX(p_api_version ,
690:
691: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
692: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
693: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
694: RAISE OKL_API.G_EXCEPTION_ERROR;
695: END IF;
696:
697: GET_ADJ_MATRIX(p_api_version ,
698: p_init_msg_list,
703: p_version_number,
704: x_pamv_rec,
705: x_pal_rec);
706:
707: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
709: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
710: RAISE OKL_API.G_EXCEPTION_ERROR;
711: END IF;
704: x_pamv_rec,
705: x_pal_rec);
706:
707: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
709: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
710: RAISE OKL_API.G_EXCEPTION_ERROR;
711: END IF;
712:
705: x_pal_rec);
706:
707: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
709: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
710: RAISE OKL_API.G_EXCEPTION_ERROR;
711: END IF;
712:
713: GET_ADJUSTMENT_CATEGORIES( p_api_version,
706:
707: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
708: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
709: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
710: RAISE OKL_API.G_EXCEPTION_ERROR;
711: END IF;
712:
713: GET_ADJUSTMENT_CATEGORIES( p_api_version,
714: p_init_msg_list,
719: x_ech_rec,
720: x_ecl_tbl,
721: x_ecv_tbl);
722:
723: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
724: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
725: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
726: RAISE OKL_API.G_EXCEPTION_ERROR;
727: END IF;
720: x_ecl_tbl,
721: x_ecv_tbl);
722:
723: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
724: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
725: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
726: RAISE OKL_API.G_EXCEPTION_ERROR;
727: END IF;
728:
721: x_ecv_tbl);
722:
723: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
724: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
725: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
726: RAISE OKL_API.G_EXCEPTION_ERROR;
727: END IF;
728:
729: --end activity
722:
723: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
724: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
725: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
726: RAISE OKL_API.G_EXCEPTION_ERROR;
727: END IF;
728:
729: --end activity
730: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
726: RAISE OKL_API.G_EXCEPTION_ERROR;
727: END IF;
728:
729: --end activity
730: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
731: x_return_status := l_return_status;
732:
733: EXCEPTION
734: WHEN OKL_API.G_EXCEPTION_ERROR THEN
730: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
731: x_return_status := l_return_status;
732:
733: EXCEPTION
734: WHEN OKL_API.G_EXCEPTION_ERROR THEN
735: x_return_status := OKL_API.HANDLE_EXCEPTIONS
736: (
737: l_api_name,
738: G_PKG_NAME,
731: x_return_status := l_return_status;
732:
733: EXCEPTION
734: WHEN OKL_API.G_EXCEPTION_ERROR THEN
735: x_return_status := OKL_API.HANDLE_EXCEPTIONS
736: (
737: l_api_name,
738: G_PKG_NAME,
739: 'OKL_API.G_RET_STS_ERROR',
735: x_return_status := OKL_API.HANDLE_EXCEPTIONS
736: (
737: l_api_name,
738: G_PKG_NAME,
739: 'OKL_API.G_RET_STS_ERROR',
740: x_msg_count,
741: x_msg_data,
742: '_PVT'
743: );
741: x_msg_data,
742: '_PVT'
743: );
744:
745: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
746: x_return_status := OKL_API.HANDLE_EXCEPTIONS
747: (
748: l_api_name,
749: G_PKG_NAME,
742: '_PVT'
743: );
744:
745: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
746: x_return_status := OKL_API.HANDLE_EXCEPTIONS
747: (
748: l_api_name,
749: G_PKG_NAME,
750: 'OKL_API.G_RET_STS_UNEXP_ERROR',
746: x_return_status := OKL_API.HANDLE_EXCEPTIONS
747: (
748: l_api_name,
749: G_PKG_NAME,
750: 'OKL_API.G_RET_STS_UNEXP_ERROR',
751: x_msg_count,
752: x_msg_data,
753: '_PVT'
754: );
753: '_PVT'
754: );
755:
756: WHEN OTHERS THEN
757: x_return_status := OKL_API.HANDLE_EXCEPTIONS
758: (
759: l_api_name,
760: G_PKG_NAME,
761: 'OTHERS',
768: -- procedure to give the details of the latest versionadjustment matrix given the Adjustment
769: -- matrix id
770: PROCEDURE GET_VERSION(
771: p_api_version IN NUMBER,
772: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false,
773: x_return_status OUT NOCOPY VARCHAR2,
774: x_msg_count OUT NOCOPY NUMBER,
775: x_msg_data OUT NOCOPY VARCHAR2,
776: p_adj_mat_id IN NUMBER,
786:
787: l_version_number VARCHAR2(24);
788: l_api_name VARCHAR2(40):='get_version';
789: l_api_version NUMBER:=1.0;
790: l_return_status VARCHAR2(1):= OKL_API.G_RET_STS_SUCCESS;
791: BEGIN
792: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
793: G_PKG_NAME,
794: p_init_msg_list,
788: l_api_name VARCHAR2(40):='get_version';
789: l_api_version NUMBER:=1.0;
790: l_return_status VARCHAR2(1):= OKL_API.G_RET_STS_SUCCESS;
791: BEGIN
792: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
793: G_PKG_NAME,
794: p_init_msg_list,
795: l_api_version,
796: p_api_version,
796: p_api_version,
797: '_PVT',
798: x_return_status);
799:
800: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
802: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
803: RAISE OKL_API.G_EXCEPTION_ERROR;
804: END IF;
797: '_PVT',
798: x_return_status);
799:
800: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
802: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
803: RAISE OKL_API.G_EXCEPTION_ERROR;
804: END IF;
805:
798: x_return_status);
799:
800: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
802: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
803: RAISE OKL_API.G_EXCEPTION_ERROR;
804: END IF;
805:
806: OPEN get_version_number(p_adj_mat_id);
799:
800: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
802: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
803: RAISE OKL_API.G_EXCEPTION_ERROR;
804: END IF;
805:
806: OPEN get_version_number(p_adj_mat_id);
807: FETCH get_version_number into l_version_number;
816: l_version_number,
817: x_pamv_rec,
818: x_pal_rec);
819:
820: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
821: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
822: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
823: RAISE OKL_API.G_EXCEPTION_ERROR;
824: END IF;
817: x_pamv_rec,
818: x_pal_rec);
819:
820: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
821: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
822: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
823: RAISE OKL_API.G_EXCEPTION_ERROR;
824: END IF;
825:
818: x_pal_rec);
819:
820: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
821: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
822: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
823: RAISE OKL_API.G_EXCEPTION_ERROR;
824: END IF;
825:
826: GET_ADJUSTMENT_CATEGORIES( p_api_version,
819:
820: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
821: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
822: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
823: RAISE OKL_API.G_EXCEPTION_ERROR;
824: END IF;
825:
826: GET_ADJUSTMENT_CATEGORIES( p_api_version,
827: p_init_msg_list,
832: x_ech_rec,
833: x_ecl_tbl,
834: x_ecv_tbl);
835:
836: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
837: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
838: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
839: RAISE OKL_API.G_EXCEPTION_ERROR;
840: END IF;
833: x_ecl_tbl,
834: x_ecv_tbl);
835:
836: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
837: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
838: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
839: RAISE OKL_API.G_EXCEPTION_ERROR;
840: END IF;
841:
834: x_ecv_tbl);
835:
836: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
837: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
838: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
839: RAISE OKL_API.G_EXCEPTION_ERROR;
840: END IF;
841:
842: --end activity
835:
836: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
837: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
838: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
839: RAISE OKL_API.G_EXCEPTION_ERROR;
840: END IF;
841:
842: --end activity
843: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
839: RAISE OKL_API.G_EXCEPTION_ERROR;
840: END IF;
841:
842: --end activity
843: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
844: x_return_status := l_return_status;
845:
846: EXCEPTION
847: WHEN OKL_API.G_EXCEPTION_ERROR THEN
843: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
844: x_return_status := l_return_status;
845:
846: EXCEPTION
847: WHEN OKL_API.G_EXCEPTION_ERROR THEN
848: x_return_status := OKL_API.HANDLE_EXCEPTIONS
849: (
850: l_api_name,
851: G_PKG_NAME,
844: x_return_status := l_return_status;
845:
846: EXCEPTION
847: WHEN OKL_API.G_EXCEPTION_ERROR THEN
848: x_return_status := OKL_API.HANDLE_EXCEPTIONS
849: (
850: l_api_name,
851: G_PKG_NAME,
852: 'OKL_API.G_RET_STS_ERROR',
848: x_return_status := OKL_API.HANDLE_EXCEPTIONS
849: (
850: l_api_name,
851: G_PKG_NAME,
852: 'OKL_API.G_RET_STS_ERROR',
853: x_msg_count,
854: x_msg_data,
855: '_PVT'
856: );
854: x_msg_data,
855: '_PVT'
856: );
857:
858: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
859: x_return_status := OKL_API.HANDLE_EXCEPTIONS
860: (
861: l_api_name,
862: G_PKG_NAME,
855: '_PVT'
856: );
857:
858: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
859: x_return_status := OKL_API.HANDLE_EXCEPTIONS
860: (
861: l_api_name,
862: G_PKG_NAME,
863: 'OKL_API.G_RET_STS_UNEXP_ERROR',
859: x_return_status := OKL_API.HANDLE_EXCEPTIONS
860: (
861: l_api_name,
862: G_PKG_NAME,
863: 'OKL_API.G_RET_STS_UNEXP_ERROR',
864: x_msg_count,
865: x_msg_data,
866: '_PVT'
867: );
866: '_PVT'
867: );
868:
869: WHEN OTHERS THEN
870: x_return_status := OKL_API.HANDLE_EXCEPTIONS
871: (
872: l_api_name,
873: G_PKG_NAME,
874: 'OTHERS',
882:
883: --procedure to create a Pricing Adjusment Matrix with the associated adjustment categories
884: PROCEDURE INSERT_ADJ_MAT(
885: p_api_version IN NUMBER,
886: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false,
887: x_return_status OUT NOCOPY VARCHAR2,
888: x_msg_count OUT NOCOPY NUMBER,
889: x_msg_data OUT NOCOPY VARCHAR2,
890: p_pamv_rec IN okl_pamv_rec,
897: l_pal_rec okl_pal_rec := p_pal_rec;
898: l_api_version NUMBER := 1.0;
899: l_api_name VARCHAR2(40):='INSERT_ADJ_MAT';
900: l_init_msg_list VARCHAR2(1):=p_init_msg_list;
901: l_return_status VARCHAR2(1):=OKL_API.G_RET_STS_SUCCESS;
902: l_dummy_var VARCHAR2(1):='?';
903:
904: CURSOR pam_unique_chk(p_name IN varchar2) IS
905: SELECT 'x'
906: FROM okl_fe_adj_mat_v
907: WHERE adj_mat_name = p_name;
908:
909: BEGIN
910: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
911: G_PKG_NAME,
912: p_init_msg_list,
913: l_api_version,
914: p_api_version,
914: p_api_version,
915: '_PVT',
916: x_return_status);
917:
918: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
919: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
920: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
921: RAISE OKL_API.G_EXCEPTION_ERROR;
922: END IF;
915: '_PVT',
916: x_return_status);
917:
918: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
919: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
920: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
921: RAISE OKL_API.G_EXCEPTION_ERROR;
922: END IF;
923:
916: x_return_status);
917:
918: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
919: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
920: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
921: RAISE OKL_API.G_EXCEPTION_ERROR;
922: END IF;
923:
924: OPEN pam_unique_chk(l_pamv_rec.adj_mat_name);
917:
918: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
919: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
920: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
921: RAISE OKL_API.G_EXCEPTION_ERROR;
922: END IF;
923:
924: OPEN pam_unique_chk(l_pamv_rec.adj_mat_name);
925: FETCH pam_unique_chk INTO l_dummy_var ;
927:
928: -- if l_dummy_var is 'x' then name already exists
929:
930: IF (l_dummy_var = 'x') THEN
931: okl_api.set_message(p_app_name => g_app_name
932: ,p_msg_name => 'OKL_DUPLICATE_NAME'
933: ,p_token1 => 'NAME'
934: ,p_token1_value => l_pamv_rec.adj_mat_name);
935: RAISE okl_api.g_exception_error;
931: okl_api.set_message(p_app_name => g_app_name
932: ,p_msg_name => 'OKL_DUPLICATE_NAME'
933: ,p_token1 => 'NAME'
934: ,p_token1_value => l_pamv_rec.adj_mat_name);
935: RAISE okl_api.g_exception_error;
936: END IF;
937: -- fix for gmiss date
938: l_pal_rec.effective_to_date := rosetta_g_miss_date_in_map(l_pal_rec.effective_to_date);
939: -- setting the header attributes
949: ,x_msg_data
950: ,l_pamv_rec
951: ,x_pamv_rec);
952:
953: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
955: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
956: RAISE OKL_API.G_EXCEPTION_ERROR;
957: END IF;
950: ,l_pamv_rec
951: ,x_pamv_rec);
952:
953: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
955: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
956: RAISE OKL_API.G_EXCEPTION_ERROR;
957: END IF;
958:
951: ,x_pamv_rec);
952:
953: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
955: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
956: RAISE OKL_API.G_EXCEPTION_ERROR;
957: END IF;
958:
959: -- setting the version attributes
952:
953: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
954: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
955: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
956: RAISE OKL_API.G_EXCEPTION_ERROR;
957: END IF;
958:
959: -- setting the version attributes
960: l_pal_rec.STS_CODE := 'NEW';
969: ,x_msg_data
970: ,l_pal_rec
971: ,x_pal_rec);
972:
973: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
974: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
975: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
976: RAISE OKL_API.G_EXCEPTION_ERROR;
977: END IF;
970: ,l_pal_rec
971: ,x_pal_rec);
972:
973: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
974: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
975: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
976: RAISE OKL_API.G_EXCEPTION_ERROR;
977: END IF;
978:
971: ,x_pal_rec);
972:
973: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
974: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
975: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
976: RAISE OKL_API.G_EXCEPTION_ERROR;
977: END IF;
978:
979: --end activity
972:
973: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
974: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
975: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
976: RAISE OKL_API.G_EXCEPTION_ERROR;
977: END IF;
978:
979: --end activity
980: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
976: RAISE OKL_API.G_EXCEPTION_ERROR;
977: END IF;
978:
979: --end activity
980: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
981: x_return_status := l_return_status;
982:
983: EXCEPTION
984: WHEN OKL_API.G_EXCEPTION_ERROR THEN
980: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
981: x_return_status := l_return_status;
982:
983: EXCEPTION
984: WHEN OKL_API.G_EXCEPTION_ERROR THEN
985: x_return_status := OKL_API.HANDLE_EXCEPTIONS
986: (
987: l_api_name,
988: G_PKG_NAME,
981: x_return_status := l_return_status;
982:
983: EXCEPTION
984: WHEN OKL_API.G_EXCEPTION_ERROR THEN
985: x_return_status := OKL_API.HANDLE_EXCEPTIONS
986: (
987: l_api_name,
988: G_PKG_NAME,
989: 'OKL_API.G_RET_STS_ERROR',
985: x_return_status := OKL_API.HANDLE_EXCEPTIONS
986: (
987: l_api_name,
988: G_PKG_NAME,
989: 'OKL_API.G_RET_STS_ERROR',
990: x_msg_count,
991: x_msg_data,
992: '_PVT'
993: );
991: x_msg_data,
992: '_PVT'
993: );
994:
995: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
996: x_return_status := OKL_API.HANDLE_EXCEPTIONS
997: (
998: l_api_name,
999: G_PKG_NAME,
992: '_PVT'
993: );
994:
995: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
996: x_return_status := OKL_API.HANDLE_EXCEPTIONS
997: (
998: l_api_name,
999: G_PKG_NAME,
1000: 'OKL_API.G_RET_STS_UNEXP_ERROR',
996: x_return_status := OKL_API.HANDLE_EXCEPTIONS
997: (
998: l_api_name,
999: G_PKG_NAME,
1000: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1001: x_msg_count,
1002: x_msg_data,
1003: '_PVT'
1004: );
1003: '_PVT'
1004: );
1005:
1006: WHEN OTHERS THEN
1007: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1008: (
1009: l_api_name,
1010: G_PKG_NAME,
1011: 'OTHERS',
1017:
1018: -- procedure to update a particular version of the Pricing Adjustment matrix
1019: PROCEDURE UPDATE_ADJ_MAT(
1020: p_api_version IN NUMBER,
1021: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false,
1022: x_return_status OUT NOCOPY VARCHAR2,
1023: x_msg_count OUT NOCOPY NUMBER,
1024: x_msg_data OUT NOCOPY VARCHAR2,
1025: p_pal_rec IN okl_pal_rec,
1031: l_pal_rec okl_pal_rec := p_pal_rec;
1032: l_api_version NUMBER := 1.0;
1033: l_api_name VARCHAR2(40):='UPDATE_ADJ_MAT';
1034: l_init_msg_list VARCHAR2(1):=p_init_msg_list;
1035: l_return_status VARCHAR2(1):=OKL_API.G_RET_STS_SUCCESS;
1036: l_eff_from DATE;
1037: l_eff_to DATE;
1038: l_max_date DATE;
1039: k NUMBER :=1;
1055: ,okl_fe_criteria ecl
1056: WHERE ecl.criteria_set_id = ech.criteria_set_id
1057: AND ech.source_id = p_version_id AND source_object_code = 'PAM';
1058: BEGIN
1059: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1060: G_PKG_NAME,
1061: l_init_msg_list,
1062: l_api_version,
1063: p_api_version,
1063: p_api_version,
1064: '_PVT',
1065: x_return_status);
1066:
1067: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1069: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1070: RAISE OKL_API.G_EXCEPTION_ERROR;
1071: END IF;
1064: '_PVT',
1065: x_return_status);
1066:
1067: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1069: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1070: RAISE OKL_API.G_EXCEPTION_ERROR;
1071: END IF;
1072:
1065: x_return_status);
1066:
1067: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1069: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1070: RAISE OKL_API.G_EXCEPTION_ERROR;
1071: END IF;
1072:
1073: -- fix for gmiss date
1066:
1067: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1068: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1069: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1070: RAISE OKL_API.G_EXCEPTION_ERROR;
1071: END IF;
1072:
1073: -- fix for gmiss date
1074: l_pal_rec.effective_to_date := rosetta_g_miss_date_in_map(l_pal_rec.effective_to_date);
1090: l_pamv_rec.ADJ_MAT_ID := l_pal_rec.ADJ_MAT_ID;
1091: IF (l_pal_rec.EFFECTIVE_TO_DATE is not null) THEN
1092: l_pamv_rec.EFFECTIVE_TO_DATE := l_pal_rec.EFFECTIVE_TO_DATE;
1093: ELSE
1094: l_pamv_rec.EFFECTIVE_TO_DATE :=OKL_API.G_MISS_DATE;
1095: END IF;
1096: -- have to check if this effective to date > referenced end dates.
1097: -- update the header record
1098: okl_pam_pvt.update_row(l_api_version
1101: ,x_msg_count
1102: ,x_msg_data
1103: ,l_pamv_rec
1104: ,x_pamv_rec);
1105: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1106: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1107: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1108: RAISE OKL_API.G_EXCEPTION_ERROR;
1109: END IF;
1102: ,x_msg_data
1103: ,l_pamv_rec
1104: ,x_pamv_rec);
1105: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1106: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1107: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1108: RAISE OKL_API.G_EXCEPTION_ERROR;
1109: END IF;
1110: IF (l_pal_rec.effective_to_date IS NOT NULL) THEN
1103: ,l_pamv_rec
1104: ,x_pamv_rec);
1105: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1106: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1107: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1108: RAISE OKL_API.G_EXCEPTION_ERROR;
1109: END IF;
1110: IF (l_pal_rec.effective_to_date IS NOT NULL) THEN
1111: -- check whether the effective to date is greater than the maximum effective from that has been calculated.
1104: ,x_pamv_rec);
1105: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1106: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1107: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1108: RAISE OKL_API.G_EXCEPTION_ERROR;
1109: END IF;
1110: IF (l_pal_rec.effective_to_date IS NOT NULL) THEN
1111: -- check whether the effective to date is greater than the maximum effective from that has been calculated.
1112: calc_start_date(
1117: x_msg_data ,
1118: l_pal_rec ,
1119: l_cal_end_date );
1120:
1121: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1123: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1124: RAISE OKL_API.G_EXCEPTION_ERROR;
1125: END IF;
1118: l_pal_rec ,
1119: l_cal_end_date );
1120:
1121: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1123: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1124: RAISE OKL_API.G_EXCEPTION_ERROR;
1125: END IF;
1126:
1119: l_cal_end_date );
1120:
1121: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1123: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1124: RAISE OKL_API.G_EXCEPTION_ERROR;
1125: END IF;
1126:
1127: OPEN get_elig_crit_start_date(l_pal_rec.adj_mat_version_id);
1120:
1121: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1122: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1123: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1124: RAISE OKL_API.G_EXCEPTION_ERROR;
1125: END IF;
1126:
1127: OPEN get_elig_crit_start_date(l_pal_rec.adj_mat_version_id);
1128: FETCH get_elig_crit_start_date INTO l_max_date;
1131: IF(l_max_date > (l_cal_end_date-1)) THEN
1132: l_cal_end_date:= l_max_date +1;
1133: END IF;
1134: IF (l_pal_rec.effective_to_date < (l_cal_end_date-1) ) THEN
1135: okl_api.set_message(
1136: p_app_name => g_app_name
1137: ,p_msg_name => 'OKL_INVALID_EFFECTIVE_TO_DATE'
1138: ,p_token1 => 'DATE'
1139: ,p_token1_value => l_cal_end_date-1);
1136: p_app_name => g_app_name
1137: ,p_msg_name => 'OKL_INVALID_EFFECTIVE_TO_DATE'
1138: ,p_token1 => 'DATE'
1139: ,p_token1_value => l_cal_end_date-1);
1140: RAISE okl_api.g_exception_error;
1141: END IF;
1142:
1143: -- put an end date to the previous version of the eligibility criteria
1144: okl_ecc_values_pvt.end_date_eligibility_criteria(
1182: ,x_msg_data
1183: ,lp_lrtv_tbl
1184: ,l_pal_rec.effective_to_date
1185: );
1186: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1187: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1188: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1189: RAISE OKL_API.G_EXCEPTION_ERROR;
1190: END IF;
1183: ,lp_lrtv_tbl
1184: ,l_pal_rec.effective_to_date
1185: );
1186: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1187: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1188: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1189: RAISE OKL_API.G_EXCEPTION_ERROR;
1190: END IF;
1191: END IF;
1184: ,l_pal_rec.effective_to_date
1185: );
1186: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1187: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1188: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1189: RAISE OKL_API.G_EXCEPTION_ERROR;
1190: END IF;
1191: END IF;
1192: IF (l>1) THEN
1185: );
1186: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1187: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1188: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1189: RAISE OKL_API.G_EXCEPTION_ERROR;
1190: END IF;
1191: END IF;
1192: IF (l>1) THEN
1193: OKL_FE_STD_RATE_TMPL_PVT.enddate_std_rate_tmpl(
1198: ,x_msg_data
1199: ,lp_srtv_tbl
1200: ,l_pal_rec.effective_to_date
1201: );
1202: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1203: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1204: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1205: RAISE OKL_API.G_EXCEPTION_ERROR;
1206: END IF;
1199: ,lp_srtv_tbl
1200: ,l_pal_rec.effective_to_date
1201: );
1202: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1203: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1204: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1205: RAISE OKL_API.G_EXCEPTION_ERROR;
1206: END IF;
1207: END IF;
1200: ,l_pal_rec.effective_to_date
1201: );
1202: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1203: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1204: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1205: RAISE OKL_API.G_EXCEPTION_ERROR;
1206: END IF;
1207: END IF;
1208: END IF;
1201: );
1202: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1203: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1204: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1205: RAISE OKL_API.G_EXCEPTION_ERROR;
1206: END IF;
1207: END IF;
1208: END IF;
1209: END IF;
1215: ,x_msg_data
1216: ,l_pal_rec
1217: ,x_pal_rec);
1218:
1219: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1221: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1222: RAISE OKL_API.G_EXCEPTION_ERROR;
1223: END IF;
1216: ,l_pal_rec
1217: ,x_pal_rec);
1218:
1219: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1221: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1222: RAISE OKL_API.G_EXCEPTION_ERROR;
1223: END IF;
1224:
1217: ,x_pal_rec);
1218:
1219: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1221: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1222: RAISE OKL_API.G_EXCEPTION_ERROR;
1223: END IF;
1224:
1225: ELSE
1218:
1219: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1220: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1221: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1222: RAISE OKL_API.G_EXCEPTION_ERROR;
1223: END IF;
1224:
1225: ELSE
1226:
1232: ,x_msg_data
1233: ,l_pal_rec
1234: ,x_pal_rec);
1235:
1236: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1237: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1238: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1239: RAISE OKL_API.G_EXCEPTION_ERROR;
1240: END IF;
1233: ,l_pal_rec
1234: ,x_pal_rec);
1235:
1236: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1237: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1238: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1239: RAISE OKL_API.G_EXCEPTION_ERROR;
1240: END IF;
1241:
1234: ,x_pal_rec);
1235:
1236: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1237: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1238: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1239: RAISE OKL_API.G_EXCEPTION_ERROR;
1240: END IF;
1241:
1242:
1235:
1236: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1237: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1238: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1239: RAISE OKL_API.G_EXCEPTION_ERROR;
1240: END IF;
1241:
1242:
1243: END IF;
1244:
1245:
1246:
1247: --end activity
1248: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1249: x_return_status := l_return_status;
1250:
1251: EXCEPTION
1252: WHEN G_INVALID_ADJ_CAT_DATES THEN
1249: x_return_status := l_return_status;
1250:
1251: EXCEPTION
1252: WHEN G_INVALID_ADJ_CAT_DATES THEN
1253: OKL_API.SET_MESSAGE( p_app_name => g_app_name,
1254: p_msg_name => g_invalid_value,
1255: p_token1 => g_col_name_token,
1256: p_token1_value => 'effective_from ');
1257: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1253: OKL_API.SET_MESSAGE( p_app_name => g_app_name,
1254: p_msg_name => g_invalid_value,
1255: p_token1 => g_col_name_token,
1256: p_token1_value => 'effective_from ');
1257: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1258: (
1259: l_api_name,
1260: G_PKG_NAME,
1261: 'OKL_API.G_RET_STS_ERROR',
1257: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1258: (
1259: l_api_name,
1260: G_PKG_NAME,
1261: 'OKL_API.G_RET_STS_ERROR',
1262: x_msg_count,
1263: x_msg_data,
1264: '_PVT'
1265: );
1262: x_msg_count,
1263: x_msg_data,
1264: '_PVT'
1265: );
1266: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1267: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1268: (
1269: l_api_name,
1270: G_PKG_NAME,
1263: x_msg_data,
1264: '_PVT'
1265: );
1266: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1267: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1268: (
1269: l_api_name,
1270: G_PKG_NAME,
1271: 'OKL_API.G_RET_STS_ERROR',
1267: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1268: (
1269: l_api_name,
1270: G_PKG_NAME,
1271: 'OKL_API.G_RET_STS_ERROR',
1272: x_msg_count,
1273: x_msg_data,
1274: '_PVT'
1275: );
1273: x_msg_data,
1274: '_PVT'
1275: );
1276:
1277: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1278: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1279: (
1280: l_api_name,
1281: G_PKG_NAME,
1274: '_PVT'
1275: );
1276:
1277: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1278: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1279: (
1280: l_api_name,
1281: G_PKG_NAME,
1282: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1278: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1279: (
1280: l_api_name,
1281: G_PKG_NAME,
1282: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1283: x_msg_count,
1284: x_msg_data,
1285: '_PVT'
1286: );
1285: '_PVT'
1286: );
1287:
1288: WHEN OTHERS THEN
1289: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1290: (
1291: l_api_name,
1292: G_PKG_NAME,
1293: 'OTHERS',
1300:
1301: -- procedure to create a new version of the Pricing Adjustment Matrix
1302: PROCEDURE CREATE_VERSION(
1303: p_api_version IN NUMBER,
1304: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false,
1305: x_return_status OUT NOCOPY VARCHAR2,
1306: x_msg_count OUT NOCOPY NUMBER,
1307: x_msg_data OUT NOCOPY VARCHAR2,
1308: p_pal_rec IN okl_pal_rec,
1314: l_pal_rec okl_pal_rec := p_pal_rec;
1315: l_api_version NUMBER := 1.0;
1316: l_api_name VARCHAR2(40):='UPDATE_ADJ_MAT';
1317: l_init_msg_list VARCHAR2(1):=p_init_msg_list;
1318: l_return_status VARCHAR2(1):=OKL_API.G_RET_STS_SUCCESS;
1319: cal_eff_from DATE;
1320:
1321: BEGIN
1322: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1318: l_return_status VARCHAR2(1):=OKL_API.G_RET_STS_SUCCESS;
1319: cal_eff_from DATE;
1320:
1321: BEGIN
1322: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1323: G_PKG_NAME,
1324: l_init_msg_list,
1325: l_api_version,
1326: p_api_version,
1326: p_api_version,
1327: '_PVT',
1328: x_return_status);
1329:
1330: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1331: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1332: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1333: RAISE OKL_API.G_EXCEPTION_ERROR;
1334: END IF;
1327: '_PVT',
1328: x_return_status);
1329:
1330: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1331: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1332: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1333: RAISE OKL_API.G_EXCEPTION_ERROR;
1334: END IF;
1335:
1328: x_return_status);
1329:
1330: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1331: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1332: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1333: RAISE OKL_API.G_EXCEPTION_ERROR;
1334: END IF;
1335:
1336: -- fix for gmiss date
1329:
1330: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1331: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1332: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1333: RAISE OKL_API.G_EXCEPTION_ERROR;
1334: END IF;
1335:
1336: -- fix for gmiss date
1337: l_pal_rec.effective_to_date := rosetta_g_miss_date_in_map(l_pal_rec.effective_to_date);
1369: ,x_msg_count
1370: ,x_msg_data
1371: ,l_pal_rec
1372: ,x_pal_rec);
1373: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1375: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1376: RAISE OKL_API.G_EXCEPTION_ERROR;
1377: END IF;
1370: ,x_msg_data
1371: ,l_pal_rec
1372: ,x_pal_rec);
1373: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1375: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1376: RAISE OKL_API.G_EXCEPTION_ERROR;
1377: END IF;
1378:
1371: ,l_pal_rec
1372: ,x_pal_rec);
1373: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1375: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1376: RAISE OKL_API.G_EXCEPTION_ERROR;
1377: END IF;
1378:
1379:
1372: ,x_pal_rec);
1373: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1374: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1375: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1376: RAISE OKL_API.G_EXCEPTION_ERROR;
1377: END IF;
1378:
1379:
1380: --end activity
1377: END IF;
1378:
1379:
1380: --end activity
1381: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1382: x_return_status := l_return_status;
1383:
1384: EXCEPTION
1385: WHEN G_INVALID_ADJ_CAT_DATES THEN
1382: x_return_status := l_return_status;
1383:
1384: EXCEPTION
1385: WHEN G_INVALID_ADJ_CAT_DATES THEN
1386: OKL_API.SET_MESSAGE( p_app_name => g_app_name,
1387: p_msg_name => 'OKL_INVALID_EFF_FROM',
1388: p_token1 => 'DATE',
1389: p_token1_value => cal_eff_from);
1390: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1386: OKL_API.SET_MESSAGE( p_app_name => g_app_name,
1387: p_msg_name => 'OKL_INVALID_EFF_FROM',
1388: p_token1 => 'DATE',
1389: p_token1_value => cal_eff_from);
1390: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1391: (
1392: l_api_name,
1393: G_PKG_NAME,
1394: 'OKL_API.G_RET_STS_ERROR',
1390: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1391: (
1392: l_api_name,
1393: G_PKG_NAME,
1394: 'OKL_API.G_RET_STS_ERROR',
1395: x_msg_count,
1396: x_msg_data,
1397: '_PVT'
1398: );
1395: x_msg_count,
1396: x_msg_data,
1397: '_PVT'
1398: );
1399: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1400: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1401: (
1402: l_api_name,
1403: G_PKG_NAME,
1396: x_msg_data,
1397: '_PVT'
1398: );
1399: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1400: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1401: (
1402: l_api_name,
1403: G_PKG_NAME,
1404: 'OKL_API.G_RET_STS_ERROR',
1400: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1401: (
1402: l_api_name,
1403: G_PKG_NAME,
1404: 'OKL_API.G_RET_STS_ERROR',
1405: x_msg_count,
1406: x_msg_data,
1407: '_PVT'
1408: );
1406: x_msg_data,
1407: '_PVT'
1408: );
1409:
1410: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1411: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1412: (
1413: l_api_name,
1414: G_PKG_NAME,
1407: '_PVT'
1408: );
1409:
1410: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1411: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1412: (
1413: l_api_name,
1414: G_PKG_NAME,
1415: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1411: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1412: (
1413: l_api_name,
1414: G_PKG_NAME,
1415: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1416: x_msg_count,
1417: x_msg_data,
1418: '_PVT'
1419: );
1418: '_PVT'
1419: );
1420:
1421: WHEN OTHERS THEN
1422: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1423: (
1424: l_api_name,
1425: G_PKG_NAME,
1426: 'OTHERS',
1433:
1434: -- procedure to raise the workflow which submits the record and changes the status.
1435: PROCEDURE SUBMIT_ADJ_MAT(
1436: p_api_version IN NUMBER,
1437: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false,
1438: x_return_status OUT NOCOPY VARCHAR2,
1439: x_msg_count OUT NOCOPY NUMBER,
1440: x_msg_data OUT NOCOPY VARCHAR2,
1441: p_version_id IN NUMBER
1445: x_pal_rec okl_pal_rec;
1446: l_api_version NUMBER := 1.0;
1447: l_api_name VARCHAR2(40):='UPDATE_ADJ_MAT';
1448: l_init_msg_list VARCHAR2(1):=p_init_msg_list;
1449: l_return_status VARCHAR2(1):=OKL_API.G_RET_STS_SUCCESS;
1450: l_parameter_list wf_parameter_list_t;
1451: p_event_name varchar2(240):='oracle.apps.okl.fe.pamapproval';
1452: l_profile_value VARCHAR2(30);
1453:
1451: p_event_name varchar2(240):='oracle.apps.okl.fe.pamapproval';
1452: l_profile_value VARCHAR2(30);
1453:
1454: BEGIN
1455: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1456: G_PKG_NAME,
1457: l_init_msg_list,
1458: l_api_version,
1459: p_api_version,
1459: p_api_version,
1460: '_PVT',
1461: x_return_status);
1462:
1463: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1464: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1465: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1466: RAISE OKL_API.G_EXCEPTION_ERROR;
1467: END IF;
1460: '_PVT',
1461: x_return_status);
1462:
1463: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1464: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1465: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1466: RAISE OKL_API.G_EXCEPTION_ERROR;
1467: END IF;
1468:
1461: x_return_status);
1462:
1463: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1464: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1465: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1466: RAISE OKL_API.G_EXCEPTION_ERROR;
1467: END IF;
1468:
1469: l_pal_rec.ADJ_MAT_VERSION_ID := p_version_id;
1462:
1463: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1464: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1465: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1466: RAISE OKL_API.G_EXCEPTION_ERROR;
1467: END IF;
1468:
1469: l_pal_rec.ADJ_MAT_VERSION_ID := p_version_id;
1470: l_pal_rec.STS_CODE := 'SUBMITTED';
1476: ,x_msg_data
1477: ,l_pal_rec
1478: ,x_pal_rec);
1479:
1480: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1481: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1482: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1483: RAISE OKL_API.G_EXCEPTION_ERROR;
1484: END IF;
1477: ,l_pal_rec
1478: ,x_pal_rec);
1479:
1480: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1481: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1482: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1483: RAISE OKL_API.G_EXCEPTION_ERROR;
1484: END IF;
1485: fnd_profile.get('OKL_PE_APPROVAL_PROCESS',l_profile_value);
1478: ,x_pal_rec);
1479:
1480: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1481: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1482: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1483: RAISE OKL_API.G_EXCEPTION_ERROR;
1484: END IF;
1485: fnd_profile.get('OKL_PE_APPROVAL_PROCESS',l_profile_value);
1486:
1479:
1480: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1481: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1482: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1483: RAISE OKL_API.G_EXCEPTION_ERROR;
1484: END IF;
1485: fnd_profile.get('OKL_PE_APPROVAL_PROCESS',l_profile_value);
1486:
1487: IF (nvl(l_profile_value,'NONE') = 'NONE') THEN
1512:
1513: END IF;
1514:
1515: --end activity
1516: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1517: x_return_status := l_return_status;
1518:
1519: EXCEPTION
1520: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1516: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1517: x_return_status := l_return_status;
1518:
1519: EXCEPTION
1520: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1521: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1522: (
1523: l_api_name,
1524: G_PKG_NAME,
1517: x_return_status := l_return_status;
1518:
1519: EXCEPTION
1520: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1521: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1522: (
1523: l_api_name,
1524: G_PKG_NAME,
1525: 'OKL_API.G_RET_STS_ERROR',
1521: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1522: (
1523: l_api_name,
1524: G_PKG_NAME,
1525: 'OKL_API.G_RET_STS_ERROR',
1526: x_msg_count,
1527: x_msg_data,
1528: '_PVT'
1529: );
1527: x_msg_data,
1528: '_PVT'
1529: );
1530:
1531: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1532: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1533: (
1534: l_api_name,
1535: G_PKG_NAME,
1528: '_PVT'
1529: );
1530:
1531: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1532: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1533: (
1534: l_api_name,
1535: G_PKG_NAME,
1536: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1532: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1533: (
1534: l_api_name,
1535: G_PKG_NAME,
1536: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1537: x_msg_count,
1538: x_msg_data,
1539: '_PVT'
1540: );
1539: '_PVT'
1540: );
1541:
1542: WHEN OTHERS THEN
1543: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1544: (
1545: l_api_name,
1546: G_PKG_NAME,
1547: 'OTHERS',
1554:
1555: -- procedure to handle when the process is going through the process of approval
1556: PROCEDURE HANDLE_APPROVAL(
1557: p_api_version IN NUMBER,
1558: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false,
1559: x_return_status OUT NOCOPY VARCHAR2,
1560: x_msg_count OUT NOCOPY NUMBER,
1561: x_msg_data OUT NOCOPY VARCHAR2,
1562: p_version_id IN NUMBER
1604: lp_lrtv_tbl okl_lrs_id_tbl;
1605: lp_srtv_tbl okl_srt_id_tbl;
1606: x_obj_tbl invalid_object_tbl;
1607: BEGIN
1608: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
1609: G_PKG_NAME,
1610: p_init_msg_list,
1611: l_api_version,
1612: p_api_version,
1612: p_api_version,
1613: '_PVT',
1614: x_return_status);
1615:
1616: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1618: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1619: RAISE OKL_API.G_EXCEPTION_ERROR;
1620: END IF;
1613: '_PVT',
1614: x_return_status);
1615:
1616: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1618: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1619: RAISE OKL_API.G_EXCEPTION_ERROR;
1620: END IF;
1621: -- if it is the first version,
1614: x_return_status);
1615:
1616: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1618: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1619: RAISE OKL_API.G_EXCEPTION_ERROR;
1620: END IF;
1621: -- if it is the first version,
1622: -- change the header status and the end date of the header as the version end date
1615:
1616: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1617: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1618: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1619: RAISE OKL_API.G_EXCEPTION_ERROR;
1620: END IF;
1621: -- if it is the first version,
1622: -- change the header status and the end date of the header as the version end date
1623: -- change the version status to active
1644: l_pamv_rec.STS_CODE := 'ACTIVE';
1645: IF (l_effective_to IS NOT NULL) THEN
1646: l_pamv_rec.EFFECTIVE_TO_DATE :=l_effective_to;
1647: ELSE
1648: l_pamv_rec.EFFECTIVE_TO_DATE:= OKL_API.G_MISS_DATE;
1649: END IF;
1650: ELSIF (l_version_number < l_max_version) THEN
1651: -- only the last but one version can be updated in the case of Adjustment Matrix
1652:
1653: l_pamv_rec.ADJ_MAT_ID := l_adj_mat_id;
1654: IF (l_effective_to IS NOT NULL) THEN
1655: l_pamv_rec.EFFECTIVE_TO_DATE := l_effective_to;
1656: ELSE
1657: l_pamv_rec.EFFECTIVE_TO_DATE:= OKL_API.G_MISS_DATE;
1658: END IF;
1659: l_end_date:= l_effective_to;
1660: ELSIF (l_version_number = l_max_version) THEN
1661:
1673: x_msg_data ,
1674: lp_pal_rec ,
1675: l_cal_end_date );
1676:
1677: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1678: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1679: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1680: raise OKL_API.G_EXCEPTION_ERROR;
1681: END IF;
1674: lp_pal_rec ,
1675: l_cal_end_date );
1676:
1677: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1678: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1679: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1680: raise OKL_API.G_EXCEPTION_ERROR;
1681: END IF;
1682:
1675: l_cal_end_date );
1676:
1677: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1678: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1679: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1680: raise OKL_API.G_EXCEPTION_ERROR;
1681: END IF;
1682:
1683: IF (lp_pal_rec.effective_from_date < l_cal_end_date ) THEN
1676:
1677: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) then
1678: raise OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1679: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) then
1680: raise OKL_API.G_EXCEPTION_ERROR;
1681: END IF;
1682:
1683: IF (lp_pal_rec.effective_from_date < l_cal_end_date ) THEN
1684: RAISE okl_api.g_exception_error;
1680: raise OKL_API.G_EXCEPTION_ERROR;
1681: END IF;
1682:
1683: IF (lp_pal_rec.effective_from_date < l_cal_end_date ) THEN
1684: RAISE okl_api.g_exception_error;
1685: END IF;
1686:
1687: l_cal_end_date:= lp_pal_rec.effective_from_date -1;
1688:
1690: l_pamv_rec.STS_CODE:= 'ACTIVE';
1691: IF (l_effective_to IS NOT NULL) THEN
1692: l_pamv_rec.EFFECTIVE_TO_DATE := l_effective_to;
1693: ELSE
1694: l_pamv_rec.EFFECTIVE_TO_DATE:= OKL_API.G_MISS_DATE;
1695: END IF;
1696:
1697: -- update the previous version effective to
1698: IF (nvl(l_eff_prev_ver,okl_api.g_miss_date) <> l_cal_end_date) THEN
1694: l_pamv_rec.EFFECTIVE_TO_DATE:= OKL_API.G_MISS_DATE;
1695: END IF;
1696:
1697: -- update the previous version effective to
1698: IF (nvl(l_eff_prev_ver,okl_api.g_miss_date) <> l_cal_end_date) THEN
1699:
1700: l_pal_rec.ADJ_MAT_VERSION_ID :=l_adj_mat_ver_id;
1701: l_pal_rec.EFFECTIVE_TO_DATE := l_cal_end_date;
1702: okl_pal_pvt.update_row( l_api_version
1706: ,x_msg_data
1707: ,l_pal_rec
1708: ,x_pal_rec);
1709:
1710: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1711: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1712: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1713: RAISE OKL_API.G_EXCEPTION_ERROR;
1714: END IF;
1707: ,l_pal_rec
1708: ,x_pal_rec);
1709:
1710: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1711: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1712: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1713: RAISE OKL_API.G_EXCEPTION_ERROR;
1714: END IF;
1715: -- put an end date to the previous version of the eligibility criteria
1708: ,x_pal_rec);
1709:
1710: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1711: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1712: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1713: RAISE OKL_API.G_EXCEPTION_ERROR;
1714: END IF;
1715: -- put an end date to the previous version of the eligibility criteria
1716: okl_ecc_values_pvt.end_date_eligibility_criteria(
1709:
1710: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1711: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1712: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1713: RAISE OKL_API.G_EXCEPTION_ERROR;
1714: END IF;
1715: -- put an end date to the previous version of the eligibility criteria
1716: okl_ecc_values_pvt.end_date_eligibility_criteria(
1717: p_api_version => l_api_version,
1788: ,l_pal_rec
1789: ,x_pal_rec);
1790:
1791:
1792: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1794: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1795: RAISE OKL_API.G_EXCEPTION_ERROR;
1796: END IF;
1789: ,x_pal_rec);
1790:
1791:
1792: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1794: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1795: RAISE OKL_API.G_EXCEPTION_ERROR;
1796: END IF;
1797: okl_pam_pvt.update_row( l_api_version
1790:
1791:
1792: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1794: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1795: RAISE OKL_API.G_EXCEPTION_ERROR;
1796: END IF;
1797: okl_pam_pvt.update_row( l_api_version
1798: ,p_init_msg_list
1791:
1792: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1794: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1795: RAISE OKL_API.G_EXCEPTION_ERROR;
1796: END IF;
1797: okl_pam_pvt.update_row( l_api_version
1798: ,p_init_msg_list
1799: ,x_return_status
1801: ,x_msg_data
1802: ,l_pamv_rec
1803: ,x_pamv_rec);
1804:
1805: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1807: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1808: RAISE OKL_API.G_EXCEPTION_ERROR;
1809: END IF;
1802: ,l_pamv_rec
1803: ,x_pamv_rec);
1804:
1805: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1807: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1808: RAISE OKL_API.G_EXCEPTION_ERROR;
1809: END IF;
1810:
1803: ,x_pamv_rec);
1804:
1805: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1807: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1808: RAISE OKL_API.G_EXCEPTION_ERROR;
1809: END IF;
1810:
1811:
1804:
1805: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1806: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1807: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1808: RAISE OKL_API.G_EXCEPTION_ERROR;
1809: END IF;
1810:
1811:
1812: --end activity
1809: END IF;
1810:
1811:
1812: --end activity
1813: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1814:
1815: EXCEPTION
1816: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1817: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1812: --end activity
1813: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1814:
1815: EXCEPTION
1816: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1817: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1818: (
1819: l_api_name,
1820: G_PKG_NAME,
1813: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1814:
1815: EXCEPTION
1816: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1817: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1818: (
1819: l_api_name,
1820: G_PKG_NAME,
1821: 'OKL_API.G_RET_STS_ERROR',
1817: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1818: (
1819: l_api_name,
1820: G_PKG_NAME,
1821: 'OKL_API.G_RET_STS_ERROR',
1822: x_msg_count,
1823: x_msg_data,
1824: '_PVT'
1825: );
1823: x_msg_data,
1824: '_PVT'
1825: );
1826:
1827: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1828: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1829: (
1830: l_api_name,
1831: G_PKG_NAME,
1824: '_PVT'
1825: );
1826:
1827: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1828: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1829: (
1830: l_api_name,
1831: G_PKG_NAME,
1832: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1828: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1829: (
1830: l_api_name,
1831: G_PKG_NAME,
1832: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1833: x_msg_count,
1834: x_msg_data,
1835: '_PVT'
1836: );
1838: WHEN OTHERS THEN
1839: IF adj_mat_version_csr%ISOPEN THEN
1840: CLOSE adj_mat_version_csr;
1841: END IF;
1842: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1843: (
1844: l_api_name,
1845: G_PKG_NAME,
1846: 'OTHERS',
1852:
1853:
1854: PROCEDURE INVALID_OBJECTS(
1855: p_api_version IN NUMBER,
1856: p_init_msg_list IN VARCHAR2 DEFAULT okl_api.g_false,
1857: x_return_status OUT NOCOPY VARCHAR2,
1858: x_msg_count OUT NOCOPY NUMBER,
1859: x_msg_data OUT NOCOPY VARCHAR2,
1860: p_version_id IN NUMBER,
1863: l_version_id NUMBER :=p_version_id;
1864: i NUMBER:=1;
1865: l_api_version NUMBER := 1.0;
1866: l_api_name VARCHAR2(40):='invalid_objects';
1867: l_return_status VARCHAR2(1):= OKL_API.G_RET_STS_SUCCESS;
1868:
1869: -- cursor to calculate the SRT objects which are referncing this adjustment matrix
1870:
1871: CURSOR srt_invalids_csr(p_version_id IN NUMBER) IS
1893: AND vers.std_rate_tmpl_ver_id = p_version_id
1894: AND vers.sts_code = 'ACTIVE';
1895:
1896: BEGIN
1897: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
1898: G_PKG_NAME,
1899: p_init_msg_list,
1900: l_api_version,
1901: p_api_version,
1926: i:=i+1;
1927: END LOOP;
1928:
1929: --end activity
1930: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1931: x_return_status := l_return_status;
1932:
1933:
1934: EXCEPTION
1931: x_return_status := l_return_status;
1932:
1933:
1934: EXCEPTION
1935: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1936: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1937: (
1938: l_api_name,
1939: G_PKG_NAME,
1932:
1933:
1934: EXCEPTION
1935: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1936: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1937: (
1938: l_api_name,
1939: G_PKG_NAME,
1940: 'OKL_API.G_RET_STS_ERROR',
1936: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1937: (
1938: l_api_name,
1939: G_PKG_NAME,
1940: 'OKL_API.G_RET_STS_ERROR',
1941: x_msg_count,
1942: x_msg_data,
1943: '_PVT'
1944: );
1942: x_msg_data,
1943: '_PVT'
1944: );
1945:
1946: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1947: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1948: (
1949: l_api_name,
1950: G_PKG_NAME,
1943: '_PVT'
1944: );
1945:
1946: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1947: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1948: (
1949: l_api_name,
1950: G_PKG_NAME,
1951: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1947: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1948: (
1949: l_api_name,
1950: G_PKG_NAME,
1951: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1952: x_msg_count,
1953: x_msg_data,
1954: '_PVT'
1955: );
1954: '_PVT'
1955: );
1956:
1957: WHEN OTHERS THEN
1958: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1959: (
1960: l_api_name,
1961: G_PKG_NAME,
1962: 'OTHERS',