40: x_return_status OUT NOCOPY VARCHAR2) IS
41:
42: BEGIN
43:
44: x_return_status := OKL_API.G_RET_STS_SUCCESS;
45:
46: IF p_ptmv_rec.id = OKL_API.G_MISS_NUM OR p_ptmv_rec.id IS NULL THEN
47:
48: OKL_API.set_message(G_APP_NAME,
42: BEGIN
43:
44: x_return_status := OKL_API.G_RET_STS_SUCCESS;
45:
46: IF p_ptmv_rec.id = OKL_API.G_MISS_NUM OR p_ptmv_rec.id IS NULL THEN
47:
48: OKL_API.set_message(G_APP_NAME,
49: G_REQUIRED_VALUE,
50: G_COL_NAME_TOKEN,
44: x_return_status := OKL_API.G_RET_STS_SUCCESS;
45:
46: IF p_ptmv_rec.id = OKL_API.G_MISS_NUM OR p_ptmv_rec.id IS NULL THEN
47:
48: OKL_API.set_message(G_APP_NAME,
49: G_REQUIRED_VALUE,
50: G_COL_NAME_TOKEN,
51: 'ID');
52: x_return_status := OKL_API.G_RET_STS_ERROR;
48: OKL_API.set_message(G_APP_NAME,
49: G_REQUIRED_VALUE,
50: G_COL_NAME_TOKEN,
51: 'ID');
52: x_return_status := OKL_API.G_RET_STS_ERROR;
53: RETURN;
54:
55: END IF;
56:
57: EXCEPTION
58:
59: WHEN OTHERS THEN
60:
61: OKL_API.set_message(G_APP_NAME,
62: G_UNEXPECTED_ERROR,
63: G_SQLCODE_TOKEN,
64: SQLCODE,
65: G_SQLERRM_TOKEN,
63: G_SQLCODE_TOKEN,
64: SQLCODE,
65: G_SQLERRM_TOKEN,
66: SQLERRM);
67: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
68:
69: END validate_id;
70:
71:
76: x_return_status OUT NOCOPY VARCHAR2) IS
77:
78: BEGIN
79:
80: x_return_status := OKL_API.G_RET_STS_SUCCESS;
81:
82: IF p_ptmv_rec.object_version_number = OKL_API.G_MISS_NUM OR
83: p_ptmv_rec.object_version_number IS NULL THEN
84:
78: BEGIN
79:
80: x_return_status := OKL_API.G_RET_STS_SUCCESS;
81:
82: IF p_ptmv_rec.object_version_number = OKL_API.G_MISS_NUM OR
83: p_ptmv_rec.object_version_number IS NULL THEN
84:
85: OKL_API.set_message(G_APP_NAME,
86: G_REQUIRED_VALUE,
81:
82: IF p_ptmv_rec.object_version_number = OKL_API.G_MISS_NUM OR
83: p_ptmv_rec.object_version_number IS NULL THEN
84:
85: OKL_API.set_message(G_APP_NAME,
86: G_REQUIRED_VALUE,
87: G_COL_NAME_TOKEN,
88: 'OBJECT_VERSION_NUMBER');
89: x_return_status := OKL_API.G_RET_STS_ERROR;
85: OKL_API.set_message(G_APP_NAME,
86: G_REQUIRED_VALUE,
87: G_COL_NAME_TOKEN,
88: 'OBJECT_VERSION_NUMBER');
89: x_return_status := OKL_API.G_RET_STS_ERROR;
90: RETURN;
91:
92: END IF;
93:
94: EXCEPTION
95:
96: WHEN OTHERS THEN
97:
98: OKL_API.set_message(G_APP_NAME,
99: G_UNEXPECTED_ERROR,
100: G_SQLCODE_TOKEN,
101: SQLCODE,
102: G_SQLERRM_TOKEN,
100: G_SQLCODE_TOKEN,
101: SQLCODE,
102: G_SQLERRM_TOKEN,
103: SQLERRM);
104: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
105:
106: END validate_object_version_number;
107:
108:
122: WHERE id = p_ptmv_rec.id;
123:
124: BEGIN
125:
126: x_return_status := OKL_API.G_RET_STS_SUCCESS;
127:
128: OPEN c_ptmv_org;
129: FETCH c_ptmv_org INTO l_org_id_original;
130:
135:
136: IF l_org_id_original <> NVL(l_org_id, -99) THEN
137:
138:
139: OKL_API.set_message(p_app_name => G_APP_NAME,
140: p_msg_name => 'OKL_UPDATING_OTHER_ORG_RECORD');
141:
142: x_return_status := OKL_API.G_RET_STS_ERROR;
143:
138:
139: OKL_API.set_message(p_app_name => G_APP_NAME,
140: p_msg_name => 'OKL_UPDATING_OTHER_ORG_RECORD');
141:
142: x_return_status := OKL_API.G_RET_STS_ERROR;
143:
144: END IF;
145:
146: END IF;
150: EXCEPTION
151:
152: WHEN OTHERS THEN
153:
154: OKL_API.set_message(G_APP_NAME,
155: G_UNEXPECTED_ERROR,
156: G_SQLCODE_TOKEN,
157: SQLCODE,
158: G_SQLERRM_TOKEN,
156: G_SQLCODE_TOKEN,
157: SQLCODE,
158: G_SQLERRM_TOKEN,
159: SQLERRM);
160: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
161:
162: END validate_org_id;
163:
164: ---------------------------------------------------------------------------
176: lookup_type = 'OKL_PROCESSES';
177:
178: BEGIN
179:
180: x_return_status := OKL_API.G_RET_STS_SUCCESS;
181:
182: IF p_ptmv_rec.ptm_code = OKL_API.G_MISS_CHAR OR p_ptmv_rec.ptm_code IS NULL THEN
183:
184: OKL_API.set_message(G_APP_NAME,
178: BEGIN
179:
180: x_return_status := OKL_API.G_RET_STS_SUCCESS;
181:
182: IF p_ptmv_rec.ptm_code = OKL_API.G_MISS_CHAR OR p_ptmv_rec.ptm_code IS NULL THEN
183:
184: OKL_API.set_message(G_APP_NAME,
185: G_REQUIRED_VALUE,
186: G_COL_NAME_TOKEN,
180: x_return_status := OKL_API.G_RET_STS_SUCCESS;
181:
182: IF p_ptmv_rec.ptm_code = OKL_API.G_MISS_CHAR OR p_ptmv_rec.ptm_code IS NULL THEN
183:
184: OKL_API.set_message(G_APP_NAME,
185: G_REQUIRED_VALUE,
186: G_COL_NAME_TOKEN,
187: 'PTM_CODE');
188: x_return_status := OKL_API.G_RET_STS_ERROR;
184: OKL_API.set_message(G_APP_NAME,
185: G_REQUIRED_VALUE,
186: G_COL_NAME_TOKEN,
187: 'PTM_CODE');
188: x_return_status := OKL_API.G_RET_STS_ERROR;
189: RETURN;
190:
191: END IF;
192:
193: OPEN l_ptmv_csr;
194: FETCH l_ptmv_csr into l_dummy_var;
195:
196: IF l_ptmv_csr%NOTFOUND THEN
197: OKL_API.set_message(p_app_name => G_APP_NAME,
198: p_msg_name => G_NO_PARENT_RECORD,
199: p_token1 => G_COL_NAME_TOKEN,
200: p_token1_value => 'PTM_CODE',
201: p_token2 => G_CHILD_TABLE_TOKEN,
201: p_token2 => G_CHILD_TABLE_TOKEN,
202: p_token2_value => 'OKL_PROCESS_TMPLTS_V',
203: p_token3 => G_PARENT_TABLE_TOKEN,
204: p_token3_value => 'FND_LOOKUPS');
205: x_return_status := OKL_API.G_RET_STS_ERROR;
206: END IF;
207:
208: CLOSE l_ptmv_csr;
209:
210: EXCEPTION
211:
212: WHEN OTHERS THEN
213:
214: OKL_API.set_message(G_APP_NAME,
215: G_UNEXPECTED_ERROR,
216: G_SQLCODE_TOKEN,
217: SQLCODE,
218: G_SQLERRM_TOKEN,
216: G_SQLCODE_TOKEN,
217: SQLCODE,
218: G_SQLERRM_TOKEN,
219: SQLERRM);
220: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
221:
222: END validate_ptm_code;
223:
224:
238: status_code = 'ACTIVE';
239:
240: BEGIN
241:
242: x_return_status := OKL_API.G_RET_STS_SUCCESS;
243:
244: IF p_ptmv_rec.jtf_amv_item_id = OKL_API.G_MISS_NUM OR p_ptmv_rec.jtf_amv_item_id IS NULL THEN
245:
246: OKL_API.set_message(G_APP_NAME,
240: BEGIN
241:
242: x_return_status := OKL_API.G_RET_STS_SUCCESS;
243:
244: IF p_ptmv_rec.jtf_amv_item_id = OKL_API.G_MISS_NUM OR p_ptmv_rec.jtf_amv_item_id IS NULL THEN
245:
246: OKL_API.set_message(G_APP_NAME,
247: G_REQUIRED_VALUE,
248: G_COL_NAME_TOKEN,
242: x_return_status := OKL_API.G_RET_STS_SUCCESS;
243:
244: IF p_ptmv_rec.jtf_amv_item_id = OKL_API.G_MISS_NUM OR p_ptmv_rec.jtf_amv_item_id IS NULL THEN
245:
246: OKL_API.set_message(G_APP_NAME,
247: G_REQUIRED_VALUE,
248: G_COL_NAME_TOKEN,
249: 'JTF_AMV_ITEM_ID');
250: x_return_status := OKL_API.G_RET_STS_ERROR;
246: OKL_API.set_message(G_APP_NAME,
247: G_REQUIRED_VALUE,
248: G_COL_NAME_TOKEN,
249: 'JTF_AMV_ITEM_ID');
250: x_return_status := OKL_API.G_RET_STS_ERROR;
251: RETURN;
252:
253: END IF;
254:
255: OPEN l_ptmv_csr;
256: FETCH l_ptmv_csr INTO l_dummy_var;
257:
258: IF l_ptmv_csr%NOTFOUND THEN
259: OKL_API.set_message( p_app_name => G_APP_NAME,
260: p_msg_name => G_NO_PARENT_RECORD,
261: p_token1 => G_COL_NAME_TOKEN,
262: p_token1_value => 'template',
263: p_token2 => G_CHILD_TABLE_TOKEN,
263: p_token2 => G_CHILD_TABLE_TOKEN,
264: p_token2_value => 'OKL_PROCESS_TMPLTS_V',
265: p_token3 => G_PARENT_TABLE_TOKEN,
266: p_token3_value => 'JTF_AMV_ITEMS_VL');
267: x_return_status := OKL_API.G_RET_STS_ERROR;
268:
269: END IF;
270:
271: CLOSE l_ptmv_csr;
274: EXCEPTION
275:
276: WHEN OTHERS THEN
277:
278: OKL_API.set_message(G_APP_NAME,
279: G_UNEXPECTED_ERROR,
280: G_SQLCODE_TOKEN,
281: SQLCODE,
282: G_SQLERRM_TOKEN,
280: G_SQLCODE_TOKEN,
281: SQLCODE,
282: G_SQLERRM_TOKEN,
283: SQLERRM);
284: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
285:
286: END validate_jtf_amv_item_id;
287:
288: /* 13-OCT-2006 ANSETHUR
304: WHERE template_code = p_ptmv_rec.xml_tmplt_code;
305:
306: BEGIN
307:
308: x_return_status := OKL_API.G_RET_STS_SUCCESS;
309:
310: IF (p_ptmv_rec.xml_tmplt_code = OKL_API.G_MISS_CHAR OR p_ptmv_rec.xml_tmplt_code IS NULL) THEN
311: OKL_API.set_message(G_APP_NAME,
312: G_REQUIRED_VALUE,
306: BEGIN
307:
308: x_return_status := OKL_API.G_RET_STS_SUCCESS;
309:
310: IF (p_ptmv_rec.xml_tmplt_code = OKL_API.G_MISS_CHAR OR p_ptmv_rec.xml_tmplt_code IS NULL) THEN
311: OKL_API.set_message(G_APP_NAME,
312: G_REQUIRED_VALUE,
313: G_COL_NAME_TOKEN,
314: 'XML_TMPLT_CODE');
307:
308: x_return_status := OKL_API.G_RET_STS_SUCCESS;
309:
310: IF (p_ptmv_rec.xml_tmplt_code = OKL_API.G_MISS_CHAR OR p_ptmv_rec.xml_tmplt_code IS NULL) THEN
311: OKL_API.set_message(G_APP_NAME,
312: G_REQUIRED_VALUE,
313: G_COL_NAME_TOKEN,
314: 'XML_TMPLT_CODE');
315: x_return_status := OKL_API.G_RET_STS_ERROR;
311: OKL_API.set_message(G_APP_NAME,
312: G_REQUIRED_VALUE,
313: G_COL_NAME_TOKEN,
314: 'XML_TMPLT_CODE');
315: x_return_status := OKL_API.G_RET_STS_ERROR;
316:
317: RETURN;
318:
319: END IF;
321: OPEN l_ptmv_csr;
322: FETCH l_ptmv_csr INTO l_dummy_var;
323:
324: IF l_ptmv_csr%NOTFOUND THEN
325: OKL_API.set_message(p_app_name => G_APP_NAME,
326: p_msg_name => G_INVALID_VALUE,
327: p_token1 => G_COL_NAME_TOKEN,
328: p_token1_value => 'XML_TMPLT_CODE');
329: x_return_status := OKL_API.G_RET_STS_ERROR;
325: OKL_API.set_message(p_app_name => G_APP_NAME,
326: p_msg_name => G_INVALID_VALUE,
327: p_token1 => G_COL_NAME_TOKEN,
328: p_token1_value => 'XML_TMPLT_CODE');
329: x_return_status := OKL_API.G_RET_STS_ERROR;
330: END IF;
331:
332: CLOSE l_ptmv_csr;
333:
335: EXCEPTION
336:
337: WHEN OTHERS THEN
338:
339: OKL_API.set_message(G_APP_NAME,
340: G_UNEXPECTED_ERROR,
341: G_SQLCODE_TOKEN,
342: SQLCODE,
343: G_SQLERRM_TOKEN,
341: G_SQLCODE_TOKEN,
342: SQLCODE,
343: G_SQLERRM_TOKEN,
344: SQLERRM);
345: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
346:
347: END Validate_xml_tmplt_code;
348:
349: ---------------------------------------------------------------------------
362: lookup_type = 'OKL_RECIPIENT_TYPE';
363:
364: BEGIN
365:
366: x_return_status := OKL_API.G_RET_STS_SUCCESS;
367:
368: IF p_ptmv_rec.recipient_type_code = OKL_API.G_MISS_CHAR OR p_ptmv_rec.recipient_type_code IS NULL THEN
369:
370: OKL_API.set_message(G_APP_NAME,
364: BEGIN
365:
366: x_return_status := OKL_API.G_RET_STS_SUCCESS;
367:
368: IF p_ptmv_rec.recipient_type_code = OKL_API.G_MISS_CHAR OR p_ptmv_rec.recipient_type_code IS NULL THEN
369:
370: OKL_API.set_message(G_APP_NAME,
371: G_REQUIRED_VALUE,
372: G_COL_NAME_TOKEN,
366: x_return_status := OKL_API.G_RET_STS_SUCCESS;
367:
368: IF p_ptmv_rec.recipient_type_code = OKL_API.G_MISS_CHAR OR p_ptmv_rec.recipient_type_code IS NULL THEN
369:
370: OKL_API.set_message(G_APP_NAME,
371: G_REQUIRED_VALUE,
372: G_COL_NAME_TOKEN,
373: 'RECIPIENT_TYPE_CODE');
374: x_return_status := OKL_API.G_RET_STS_ERROR;
370: OKL_API.set_message(G_APP_NAME,
371: G_REQUIRED_VALUE,
372: G_COL_NAME_TOKEN,
373: 'RECIPIENT_TYPE_CODE');
374: x_return_status := OKL_API.G_RET_STS_ERROR;
375: RETURN;
376:
377: END IF;
378:
379: OPEN l_ptmv_csr;
380: FETCH l_ptmv_csr into l_dummy_var;
381:
382: IF l_ptmv_csr%NOTFOUND THEN
383: OKL_API.set_message(p_app_name => G_APP_NAME,
384: p_msg_name => G_INVALID_VALUE,
385: p_token1 => G_COL_NAME_TOKEN,
386: p_token1_value => 'RECIPIENT_TYPE_CODE');
387:
384: p_msg_name => G_INVALID_VALUE,
385: p_token1 => G_COL_NAME_TOKEN,
386: p_token1_value => 'RECIPIENT_TYPE_CODE');
387:
388: x_return_status := OKL_API.G_RET_STS_ERROR;
389: END IF;
390:
391: CLOSE l_ptmv_csr;
392:
393: EXCEPTION
394:
395: WHEN OTHERS THEN
396:
397: OKL_API.set_message(G_APP_NAME,
398: G_UNEXPECTED_ERROR,
399: G_SQLCODE_TOKEN,
400: SQLCODE,
401: G_SQLERRM_TOKEN,
399: G_SQLCODE_TOKEN,
400: SQLCODE,
401: G_SQLERRM_TOKEN,
402: SQLERRM);
403: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
404:
405: END validate_recipient_type_code;
406:
407: /* End Changes */
411: PROCEDURE Validate_tmplt_record( p_ptmv_rec IN ptmv_rec_type,
412: x_return_status OUT NOCOPY VARCHAR2) IS
413:
414: l_dummy_var VARCHAR2(1);
415: -- l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
416: l_dummy VARCHAR2(1);
417: l_start_date DATE;
418:
419: CURSOR c_check_dates IS
442: BEGIN
443:
444: IF TRUNC(p_ptmv_rec.end_date) < TRUNC(p_ptmv_rec.start_date) THEN
445:
446: OKL_API.set_message(p_app_name => G_APP_NAME,
447: p_msg_name => 'OKL_INVALID_TO_DATE');
448:
449: x_return_status := OKL_API.G_RET_STS_ERROR;
450: RETURN ;
445:
446: OKL_API.set_message(p_app_name => G_APP_NAME,
447: p_msg_name => 'OKL_INVALID_TO_DATE');
448:
449: x_return_status := OKL_API.G_RET_STS_ERROR;
450: RETURN ;
451:
452: END IF;
453:
455: OPEN c_check_dates;
456: FETCH c_check_dates INTO l_start_date;
457: IF c_check_dates%FOUND THEN
458: IF ( nvl(TRUNC(p_ptmv_rec.end_date),l_start_date) >= l_start_date ) THEN
459: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
460: p_msg_name => 'OKL_OVERLAP_END_DATE',
461: p_token1 => 'START_DATE',
462: p_token1_value => l_start_date,
463: p_token2 => 'END_DATE',
461: p_token1 => 'START_DATE',
462: p_token1_value => l_start_date,
463: p_token2 => 'END_DATE',
464: p_token2_value => l_start_date);
465: x_return_status := OKL_API.G_RET_STS_ERROR;
466: CLOSE c_check_dates;
467: RETURN ;
468: END IF;
469: END IF;
474: FETCH c_ptmv_uk INTO l_dummy;
475:
476: IF c_ptmv_uk%FOUND THEN
477:
478: OKL_API.set_message(p_app_name => G_APP_NAME,
479: p_msg_name => 'OKL_TEMPLATE_EXISTS');
480:
481: x_return_status := OKL_API.G_RET_STS_ERROR;
482: return;
477:
478: OKL_API.set_message(p_app_name => G_APP_NAME,
479: p_msg_name => 'OKL_TEMPLATE_EXISTS');
480:
481: x_return_status := OKL_API.G_RET_STS_ERROR;
482: return;
483:
484: END IF;
485:
489:
490: EXCEPTION
491:
492: WHEN OTHERS THEN
493: OKL_API.set_message(p_app_name => g_app_name,
494: p_msg_name => g_unexpected_error,
495: p_token1 => g_sqlcode_token,
496: p_token1_value => sqlcode,
497: p_token2 => g_sqlerrm_token,
495: p_token1 => g_sqlcode_token,
496: p_token1_value => sqlcode,
497: p_token2 => g_sqlerrm_token,
498: p_token2_value => sqlerrm);
499: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
500:
501: RETURN;
502:
503: END Validate_tmplt_record;
517: l_start_date DATE;
518:
519: BEGIN
520:
521: x_return_status := OKL_API.G_RET_STS_SUCCESS;
522:
523: IF p_ptmv_rec.start_date = OKL_API.G_MISS_DATE OR p_ptmv_rec.start_date IS NULL THEN
524:
525: OKL_API.set_message(G_APP_NAME,
519: BEGIN
520:
521: x_return_status := OKL_API.G_RET_STS_SUCCESS;
522:
523: IF p_ptmv_rec.start_date = OKL_API.G_MISS_DATE OR p_ptmv_rec.start_date IS NULL THEN
524:
525: OKL_API.set_message(G_APP_NAME,
526: G_REQUIRED_VALUE,
527: G_COL_NAME_TOKEN,
521: x_return_status := OKL_API.G_RET_STS_SUCCESS;
522:
523: IF p_ptmv_rec.start_date = OKL_API.G_MISS_DATE OR p_ptmv_rec.start_date IS NULL THEN
524:
525: OKL_API.set_message(G_APP_NAME,
526: G_REQUIRED_VALUE,
527: G_COL_NAME_TOKEN,
528: 'START_DATE');
529:
526: G_REQUIRED_VALUE,
527: G_COL_NAME_TOKEN,
528: 'START_DATE');
529:
530: x_return_status := OKL_API.G_RET_STS_ERROR;
531: RETURN;
532:
533: END IF;
534:
543:
544: IF c_ptmv_sdate%FOUND AND
545: l_start_date <> TRUNC(p_ptmv_rec.start_date) AND
546: l_start_date < TRUNC(SYSDATE) THEN
547: OKL_API.set_message(p_app_name => G_APP_NAME,
548: p_msg_name => 'OKL_ACTIVE_REC_EFF_FROM');
549:
550: x_return_status := OKL_API.G_RET_STS_ERROR;
551: CLOSE c_ptmv_sdate;
546: l_start_date < TRUNC(SYSDATE) THEN
547: OKL_API.set_message(p_app_name => G_APP_NAME,
548: p_msg_name => 'OKL_ACTIVE_REC_EFF_FROM');
549:
550: x_return_status := OKL_API.G_RET_STS_ERROR;
551: CLOSE c_ptmv_sdate;
552: RETURN;
553:
554: ELSIF c_ptmv_sdate%NOTFOUND AND TRUNC(p_ptmv_rec.start_date) < TRUNC(SYSDATE) THEN
551: CLOSE c_ptmv_sdate;
552: RETURN;
553:
554: ELSIF c_ptmv_sdate%NOTFOUND AND TRUNC(p_ptmv_rec.start_date) < TRUNC(SYSDATE) THEN
555: OKL_API.set_message(p_app_name => G_APP_NAME,
556: p_msg_name => 'OKL_INVALID_EFF_FROM_DATE');
557: x_return_status := OKL_API.G_RET_STS_ERROR;
558: CLOSE c_ptmv_sdate;
559: RETURN;
553:
554: ELSIF c_ptmv_sdate%NOTFOUND AND TRUNC(p_ptmv_rec.start_date) < TRUNC(SYSDATE) THEN
555: OKL_API.set_message(p_app_name => G_APP_NAME,
556: p_msg_name => 'OKL_INVALID_EFF_FROM_DATE');
557: x_return_status := OKL_API.G_RET_STS_ERROR;
558: CLOSE c_ptmv_sdate;
559: RETURN;
560:
561: END IF;
566:
567: EXCEPTION
568:
569: WHEN OTHERS THEN
570: OKL_API.set_message(G_APP_NAME,
571: G_UNEXPECTED_ERROR,
572: G_SQLCODE_TOKEN,
573: SQLCODE,
574: G_SQLERRM_TOKEN,
572: G_SQLCODE_TOKEN,
573: SQLCODE,
574: G_SQLERRM_TOKEN,
575: SQLERRM);
576: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
577:
578: END validate_start_date;
579:
580:
585: x_return_status OUT NOCOPY VARCHAR2) IS
586:
587: BEGIN
588:
589: x_return_status := OKL_API.G_RET_STS_SUCCESS;
590:
591: IF TRUNC(p_ptmv_rec.end_date) < TRUNC(SYSDATE) THEN
592:
593: OKL_API.set_message(G_APP_NAME,
589: x_return_status := OKL_API.G_RET_STS_SUCCESS;
590:
591: IF TRUNC(p_ptmv_rec.end_date) < TRUNC(SYSDATE) THEN
592:
593: OKL_API.set_message(G_APP_NAME,
594: 'OKL_INVALID_EFF_TO_DATE');
595:
596: x_return_status := OKL_API.G_RET_STS_ERROR;
597: RETURN;
592:
593: OKL_API.set_message(G_APP_NAME,
594: 'OKL_INVALID_EFF_TO_DATE');
595:
596: x_return_status := OKL_API.G_RET_STS_ERROR;
597: RETURN;
598:
599: END IF;
600:
601: EXCEPTION
602:
603: WHEN OTHERS THEN
604:
605: OKL_API.set_message(G_APP_NAME,
606: G_UNEXPECTED_ERROR,
607: G_SQLCODE_TOKEN,
608: SQLCODE,
609: G_SQLERRM_TOKEN,
607: G_SQLCODE_TOKEN,
608: SQLCODE,
609: G_SQLERRM_TOKEN,
610: SQLERRM);
611: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
612:
613: END validate_end_date;
614:
615: ---------------------------------------------------------------------------
953:
954: l_ptmv_rec ptmv_rec_type := p_ptmv_rec;
955:
956: BEGIN
957: IF (l_ptmv_rec.org_id = OKL_API.G_MISS_NUM) THEN
958: l_ptmv_rec.org_id := NULL;
959: END IF;
960: IF (l_ptmv_rec.ptm_code = OKL_API.G_MISS_CHAR) THEN
961: l_ptmv_rec.ptm_code := NULL;
956: BEGIN
957: IF (l_ptmv_rec.org_id = OKL_API.G_MISS_NUM) THEN
958: l_ptmv_rec.org_id := NULL;
959: END IF;
960: IF (l_ptmv_rec.ptm_code = OKL_API.G_MISS_CHAR) THEN
961: l_ptmv_rec.ptm_code := NULL;
962: END IF;
963: /* 13-OCT-2006 ANSETHUR
964: BUILD : R12 B
963: /* 13-OCT-2006 ANSETHUR
964: BUILD : R12 B
965: Start Changes
966: */
967: IF (l_ptmv_rec.jtf_amv_item_id = OKL_API.G_MISS_NUM) THEN
968: -- l_ptmv_rec.jtf_amv_item_id := NULL;
969: l_ptmv_rec.jtf_amv_item_id := -1;
970: END IF;
971: /* End Changes */
968: -- l_ptmv_rec.jtf_amv_item_id := NULL;
969: l_ptmv_rec.jtf_amv_item_id := -1;
970: END IF;
971: /* End Changes */
972: IF (l_ptmv_rec.sfwt_flag = OKL_API.G_MISS_CHAR) THEN
973: l_ptmv_rec.sfwt_flag := NULL;
974: END IF;
975: IF (l_ptmv_rec.email_subject_line = OKL_API.G_MISS_CHAR) THEN
976: l_ptmv_rec.email_subject_line := NULL;
971: /* End Changes */
972: IF (l_ptmv_rec.sfwt_flag = OKL_API.G_MISS_CHAR) THEN
973: l_ptmv_rec.sfwt_flag := NULL;
974: END IF;
975: IF (l_ptmv_rec.email_subject_line = OKL_API.G_MISS_CHAR) THEN
976: l_ptmv_rec.email_subject_line := NULL;
977: END IF;
978: IF (l_ptmv_rec.start_date = OKL_API.G_MISS_DATE) THEN
979: l_ptmv_rec.start_date := NULL;
974: END IF;
975: IF (l_ptmv_rec.email_subject_line = OKL_API.G_MISS_CHAR) THEN
976: l_ptmv_rec.email_subject_line := NULL;
977: END IF;
978: IF (l_ptmv_rec.start_date = OKL_API.G_MISS_DATE) THEN
979: l_ptmv_rec.start_date := NULL;
980: END IF;
981: IF (l_ptmv_rec.end_date = OKL_API.G_MISS_DATE) THEN
982: l_ptmv_rec.end_date := NULL;
977: END IF;
978: IF (l_ptmv_rec.start_date = OKL_API.G_MISS_DATE) THEN
979: l_ptmv_rec.start_date := NULL;
980: END IF;
981: IF (l_ptmv_rec.end_date = OKL_API.G_MISS_DATE) THEN
982: l_ptmv_rec.end_date := NULL;
983: END IF;
984: IF (l_ptmv_rec.object_version_number = OKL_API.G_MISS_NUM) THEN
985: l_ptmv_rec.object_version_number := NULL;
980: END IF;
981: IF (l_ptmv_rec.end_date = OKL_API.G_MISS_DATE) THEN
982: l_ptmv_rec.end_date := NULL;
983: END IF;
984: IF (l_ptmv_rec.object_version_number = OKL_API.G_MISS_NUM) THEN
985: l_ptmv_rec.object_version_number := NULL;
986: END IF;
987: IF (l_ptmv_rec.attribute_category = OKL_API.G_MISS_CHAR) THEN
988: l_ptmv_rec.attribute_category := NULL;
983: END IF;
984: IF (l_ptmv_rec.object_version_number = OKL_API.G_MISS_NUM) THEN
985: l_ptmv_rec.object_version_number := NULL;
986: END IF;
987: IF (l_ptmv_rec.attribute_category = OKL_API.G_MISS_CHAR) THEN
988: l_ptmv_rec.attribute_category := NULL;
989: END IF;
990: IF (l_ptmv_rec.attribute1 = OKL_API.G_MISS_CHAR) THEN
991: l_ptmv_rec.attribute1 := NULL;
986: END IF;
987: IF (l_ptmv_rec.attribute_category = OKL_API.G_MISS_CHAR) THEN
988: l_ptmv_rec.attribute_category := NULL;
989: END IF;
990: IF (l_ptmv_rec.attribute1 = OKL_API.G_MISS_CHAR) THEN
991: l_ptmv_rec.attribute1 := NULL;
992: END IF;
993: IF (l_ptmv_rec.attribute2 = OKL_API.G_MISS_CHAR) THEN
994: l_ptmv_rec.attribute2 := NULL;
989: END IF;
990: IF (l_ptmv_rec.attribute1 = OKL_API.G_MISS_CHAR) THEN
991: l_ptmv_rec.attribute1 := NULL;
992: END IF;
993: IF (l_ptmv_rec.attribute2 = OKL_API.G_MISS_CHAR) THEN
994: l_ptmv_rec.attribute2 := NULL;
995: END IF;
996: IF (l_ptmv_rec.attribute3 = OKL_API.G_MISS_CHAR) THEN
997: l_ptmv_rec.attribute3 := NULL;
992: END IF;
993: IF (l_ptmv_rec.attribute2 = OKL_API.G_MISS_CHAR) THEN
994: l_ptmv_rec.attribute2 := NULL;
995: END IF;
996: IF (l_ptmv_rec.attribute3 = OKL_API.G_MISS_CHAR) THEN
997: l_ptmv_rec.attribute3 := NULL;
998: END IF;
999: IF (l_ptmv_rec.attribute4 = OKL_API.G_MISS_CHAR) THEN
1000: l_ptmv_rec.attribute4 := NULL;
995: END IF;
996: IF (l_ptmv_rec.attribute3 = OKL_API.G_MISS_CHAR) THEN
997: l_ptmv_rec.attribute3 := NULL;
998: END IF;
999: IF (l_ptmv_rec.attribute4 = OKL_API.G_MISS_CHAR) THEN
1000: l_ptmv_rec.attribute4 := NULL;
1001: END IF;
1002: IF (l_ptmv_rec.attribute5 = OKL_API.G_MISS_CHAR) THEN
1003: l_ptmv_rec.attribute5 := NULL;
998: END IF;
999: IF (l_ptmv_rec.attribute4 = OKL_API.G_MISS_CHAR) THEN
1000: l_ptmv_rec.attribute4 := NULL;
1001: END IF;
1002: IF (l_ptmv_rec.attribute5 = OKL_API.G_MISS_CHAR) THEN
1003: l_ptmv_rec.attribute5 := NULL;
1004: END IF;
1005: IF (l_ptmv_rec.attribute6 = OKL_API.G_MISS_CHAR) THEN
1006: l_ptmv_rec.attribute6 := NULL;
1001: END IF;
1002: IF (l_ptmv_rec.attribute5 = OKL_API.G_MISS_CHAR) THEN
1003: l_ptmv_rec.attribute5 := NULL;
1004: END IF;
1005: IF (l_ptmv_rec.attribute6 = OKL_API.G_MISS_CHAR) THEN
1006: l_ptmv_rec.attribute6 := NULL;
1007: END IF;
1008: IF (l_ptmv_rec.attribute7 = OKL_API.G_MISS_CHAR) THEN
1009: l_ptmv_rec.attribute7 := NULL;
1004: END IF;
1005: IF (l_ptmv_rec.attribute6 = OKL_API.G_MISS_CHAR) THEN
1006: l_ptmv_rec.attribute6 := NULL;
1007: END IF;
1008: IF (l_ptmv_rec.attribute7 = OKL_API.G_MISS_CHAR) THEN
1009: l_ptmv_rec.attribute7 := NULL;
1010: END IF;
1011: IF (l_ptmv_rec.attribute8 = OKL_API.G_MISS_CHAR) THEN
1012: l_ptmv_rec.attribute8 := NULL;
1007: END IF;
1008: IF (l_ptmv_rec.attribute7 = OKL_API.G_MISS_CHAR) THEN
1009: l_ptmv_rec.attribute7 := NULL;
1010: END IF;
1011: IF (l_ptmv_rec.attribute8 = OKL_API.G_MISS_CHAR) THEN
1012: l_ptmv_rec.attribute8 := NULL;
1013: END IF;
1014: IF (l_ptmv_rec.attribute9 = OKL_API.G_MISS_CHAR) THEN
1015: l_ptmv_rec.attribute9 := NULL;
1010: END IF;
1011: IF (l_ptmv_rec.attribute8 = OKL_API.G_MISS_CHAR) THEN
1012: l_ptmv_rec.attribute8 := NULL;
1013: END IF;
1014: IF (l_ptmv_rec.attribute9 = OKL_API.G_MISS_CHAR) THEN
1015: l_ptmv_rec.attribute9 := NULL;
1016: END IF;
1017: IF (l_ptmv_rec.attribute10 = OKL_API.G_MISS_CHAR) THEN
1018: l_ptmv_rec.attribute10 := NULL;
1013: END IF;
1014: IF (l_ptmv_rec.attribute9 = OKL_API.G_MISS_CHAR) THEN
1015: l_ptmv_rec.attribute9 := NULL;
1016: END IF;
1017: IF (l_ptmv_rec.attribute10 = OKL_API.G_MISS_CHAR) THEN
1018: l_ptmv_rec.attribute10 := NULL;
1019: END IF;
1020: IF (l_ptmv_rec.attribute11 = OKL_API.G_MISS_CHAR) THEN
1021: l_ptmv_rec.attribute11 := NULL;
1016: END IF;
1017: IF (l_ptmv_rec.attribute10 = OKL_API.G_MISS_CHAR) THEN
1018: l_ptmv_rec.attribute10 := NULL;
1019: END IF;
1020: IF (l_ptmv_rec.attribute11 = OKL_API.G_MISS_CHAR) THEN
1021: l_ptmv_rec.attribute11 := NULL;
1022: END IF;
1023: IF (l_ptmv_rec.attribute12 = OKL_API.G_MISS_CHAR) THEN
1024: l_ptmv_rec.attribute12 := NULL;
1019: END IF;
1020: IF (l_ptmv_rec.attribute11 = OKL_API.G_MISS_CHAR) THEN
1021: l_ptmv_rec.attribute11 := NULL;
1022: END IF;
1023: IF (l_ptmv_rec.attribute12 = OKL_API.G_MISS_CHAR) THEN
1024: l_ptmv_rec.attribute12 := NULL;
1025: END IF;
1026: IF (l_ptmv_rec.attribute13 = OKL_API.G_MISS_CHAR) THEN
1027: l_ptmv_rec.attribute13 := NULL;
1022: END IF;
1023: IF (l_ptmv_rec.attribute12 = OKL_API.G_MISS_CHAR) THEN
1024: l_ptmv_rec.attribute12 := NULL;
1025: END IF;
1026: IF (l_ptmv_rec.attribute13 = OKL_API.G_MISS_CHAR) THEN
1027: l_ptmv_rec.attribute13 := NULL;
1028: END IF;
1029: IF (l_ptmv_rec.attribute14 = OKL_API.G_MISS_CHAR) THEN
1030: l_ptmv_rec.attribute14 := NULL;
1025: END IF;
1026: IF (l_ptmv_rec.attribute13 = OKL_API.G_MISS_CHAR) THEN
1027: l_ptmv_rec.attribute13 := NULL;
1028: END IF;
1029: IF (l_ptmv_rec.attribute14 = OKL_API.G_MISS_CHAR) THEN
1030: l_ptmv_rec.attribute14 := NULL;
1031: END IF;
1032: IF (l_ptmv_rec.attribute15 = OKL_API.G_MISS_CHAR) THEN
1033: l_ptmv_rec.attribute15 := NULL;
1028: END IF;
1029: IF (l_ptmv_rec.attribute14 = OKL_API.G_MISS_CHAR) THEN
1030: l_ptmv_rec.attribute14 := NULL;
1031: END IF;
1032: IF (l_ptmv_rec.attribute15 = OKL_API.G_MISS_CHAR) THEN
1033: l_ptmv_rec.attribute15 := NULL;
1034: END IF;
1035: IF (l_ptmv_rec.created_by = OKL_API.G_MISS_NUM) THEN
1036: l_ptmv_rec.created_by := NULL;
1031: END IF;
1032: IF (l_ptmv_rec.attribute15 = OKL_API.G_MISS_CHAR) THEN
1033: l_ptmv_rec.attribute15 := NULL;
1034: END IF;
1035: IF (l_ptmv_rec.created_by = OKL_API.G_MISS_NUM) THEN
1036: l_ptmv_rec.created_by := NULL;
1037: END IF;
1038: IF (l_ptmv_rec.creation_date = OKL_API.G_MISS_DATE) THEN
1039: l_ptmv_rec.creation_date := NULL;
1034: END IF;
1035: IF (l_ptmv_rec.created_by = OKL_API.G_MISS_NUM) THEN
1036: l_ptmv_rec.created_by := NULL;
1037: END IF;
1038: IF (l_ptmv_rec.creation_date = OKL_API.G_MISS_DATE) THEN
1039: l_ptmv_rec.creation_date := NULL;
1040: END IF;
1041: IF (l_ptmv_rec.last_updated_by = OKL_API.G_MISS_NUM) THEN
1042: l_ptmv_rec.last_updated_by := NULL;
1037: END IF;
1038: IF (l_ptmv_rec.creation_date = OKL_API.G_MISS_DATE) THEN
1039: l_ptmv_rec.creation_date := NULL;
1040: END IF;
1041: IF (l_ptmv_rec.last_updated_by = OKL_API.G_MISS_NUM) THEN
1042: l_ptmv_rec.last_updated_by := NULL;
1043: END IF;
1044: IF (l_ptmv_rec.last_update_date = OKL_API.G_MISS_DATE) THEN
1045: l_ptmv_rec.last_update_date := NULL;
1040: END IF;
1041: IF (l_ptmv_rec.last_updated_by = OKL_API.G_MISS_NUM) THEN
1042: l_ptmv_rec.last_updated_by := NULL;
1043: END IF;
1044: IF (l_ptmv_rec.last_update_date = OKL_API.G_MISS_DATE) THEN
1045: l_ptmv_rec.last_update_date := NULL;
1046: END IF;
1047: IF (l_ptmv_rec.last_update_login = OKL_API.G_MISS_NUM) THEN
1048: l_ptmv_rec.last_update_login := NULL;
1043: END IF;
1044: IF (l_ptmv_rec.last_update_date = OKL_API.G_MISS_DATE) THEN
1045: l_ptmv_rec.last_update_date := NULL;
1046: END IF;
1047: IF (l_ptmv_rec.last_update_login = OKL_API.G_MISS_NUM) THEN
1048: l_ptmv_rec.last_update_login := NULL;
1049: END IF;
1050:
1051: /* 13-OCT-2006 ANSETHUR
1051: /* 13-OCT-2006 ANSETHUR
1052: BUILD : R12 B
1053: Start Changes
1054: */
1055: IF (l_ptmv_rec.xml_tmplt_code = OKL_API.G_MISS_CHAR) THEN
1056: l_ptmv_rec.xml_tmplt_code:= NULL;
1057: END IF;
1058: IF (l_ptmv_rec.recipient_type_Code = OKL_API.G_MISS_CHAR) THEN
1059: l_ptmv_rec.recipient_type_Code:= NULL;
1054: */
1055: IF (l_ptmv_rec.xml_tmplt_code = OKL_API.G_MISS_CHAR) THEN
1056: l_ptmv_rec.xml_tmplt_code:= NULL;
1057: END IF;
1058: IF (l_ptmv_rec.recipient_type_Code = OKL_API.G_MISS_CHAR) THEN
1059: l_ptmv_rec.recipient_type_Code:= NULL;
1060: END IF;
1061: /* End Changes */
1062:
1069: --------------------------------------------------
1070:
1071: FUNCTION Validate_Attributes (p_ptmv_rec IN ptmv_rec_type) RETURN VARCHAR2 IS
1072:
1073: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1074:
1075: BEGIN
1076:
1077: validate_id(p_ptmv_rec, l_return_status);
1075: BEGIN
1076:
1077: validate_id(p_ptmv_rec, l_return_status);
1078:
1079: IF NOT l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1080: RETURN(l_return_status);
1081: END IF;
1082:
1083: validate_object_version_number(p_ptmv_rec, l_return_status);
1081: END IF;
1082:
1083: validate_object_version_number(p_ptmv_rec, l_return_status);
1084:
1085: IF NOT l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1086: RETURN(l_return_status);
1087: END IF;
1088:
1089: validate_org_id(p_ptmv_rec, l_return_status);
1087: END IF;
1088:
1089: validate_org_id(p_ptmv_rec, l_return_status);
1090:
1091: IF NOT l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1092: RETURN(l_return_status);
1093: END IF;
1094:
1095: validate_ptm_code(p_ptmv_rec, l_return_status);
1093: END IF;
1094:
1095: validate_ptm_code(p_ptmv_rec, l_return_status);
1096:
1097: IF NOT l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1098: RETURN(l_return_status);
1099: END IF;
1100: /* 13-OCT-2006 ANSETHUR
1101: BUILD : R12 B
1102: Start Changes */
1103:
1104: /* validate_jtf_amv_item_id(p_ptmv_rec, l_return_status);
1105:
1106: IF NOT l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1107: RETURN(l_return_status);
1108: END IF;*/
1109:
1110:
1109:
1110:
1111: Validate_xml_tmplt_code(p_ptmv_rec ,l_return_status );
1112:
1113: IF NOT l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1114: RETURN(l_return_status);
1115: END IF;
1116:
1117: Validate_recipient_type_code(p_ptmv_rec ,l_return_status );
1115: END IF;
1116:
1117: Validate_recipient_type_code(p_ptmv_rec ,l_return_status );
1118:
1119: IF NOT l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1120: RETURN(l_return_status);
1121: END IF;
1122:
1123: /* End Changes */
1123: /* End Changes */
1124:
1125: validate_start_date(p_ptmv_rec, l_return_status);
1126:
1127: IF NOT l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1128: RETURN(l_return_status);
1129: END IF;
1130:
1131: validate_end_date(p_ptmv_rec, l_return_status);
1129: END IF;
1130:
1131: validate_end_date(p_ptmv_rec, l_return_status);
1132:
1133: IF NOT l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
1134: RETURN(l_return_status);
1135: END IF;
1136:
1137: RETURN(l_return_status);
1139: EXCEPTION
1140:
1141: WHEN OTHERS THEN
1142:
1143: OKL_API.set_message(G_APP_NAME,
1144: G_UNEXPECTED_ERROR,
1145: G_SQLCODE_TOKEN,
1146: SQLCODE,
1147: G_SQLERRM_TOKEN,
1145: G_SQLCODE_TOKEN,
1146: SQLCODE,
1147: G_SQLERRM_TOKEN,
1148: SQLERRM);
1149: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1150: RETURN(l_return_status);
1151:
1152: END Validate_Attributes;
1153:
1157: ----------------------------------------------
1158:
1159: FUNCTION Validate_Record (p_ptmv_rec IN ptmv_rec_type) RETURN VARCHAR2 IS
1160:
1161: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1162: l_dummy VARCHAR2(1);
1163: --varangan added the following code for bug#5094506
1164: l_start_date DATE;
1165:
1190: BEGIN
1191:
1192: IF TRUNC(p_ptmv_rec.end_date) < TRUNC(p_ptmv_rec.start_date) THEN
1193:
1194: OKL_API.set_message(p_app_name => G_APP_NAME,
1195: p_msg_name => 'OKL_INVALID_TO_DATE');
1196:
1197: l_return_status := OKL_API.G_RET_STS_ERROR;
1198:
1193:
1194: OKL_API.set_message(p_app_name => G_APP_NAME,
1195: p_msg_name => 'OKL_INVALID_TO_DATE');
1196:
1197: l_return_status := OKL_API.G_RET_STS_ERROR;
1198:
1199: RETURN (l_return_status);
1200:
1201:
1206: FETCH c_check_dates INTO l_start_date;
1207: IF c_check_dates%FOUND THEN
1208: IF ( nvl(TRUNC(p_ptmv_rec.end_date),l_start_date) >= l_start_date ) THEN
1209:
1210: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1211: p_msg_name => 'OKL_OVERLAP_END_DATE',
1212: p_token1 => 'START_DATE',
1213: p_token1_value => l_start_date,
1214: p_token2 => 'END_DATE',
1212: p_token1 => 'START_DATE',
1213: p_token1_value => l_start_date,
1214: p_token2 => 'END_DATE',
1215: p_token2_value => l_start_date);
1216: l_return_status := OKL_API.G_RET_STS_ERROR;
1217: CLOSE c_check_dates;
1218: RETURN (l_return_status);
1219: END IF;
1220: END IF;
1225: FETCH c_ptmv_uk INTO l_dummy;
1226:
1227: IF c_ptmv_uk%FOUND THEN
1228:
1229: OKL_API.set_message(p_app_name => G_APP_NAME,
1230: p_msg_name => 'OKL_DUPLICATE_PTMV_RECORD');
1231:
1232:
1233: l_return_status := OKL_API.G_RET_STS_ERROR;
1229: OKL_API.set_message(p_app_name => G_APP_NAME,
1230: p_msg_name => 'OKL_DUPLICATE_PTMV_RECORD');
1231:
1232:
1233: l_return_status := OKL_API.G_RET_STS_ERROR;
1234:
1235: END IF;
1236:
1237: CLOSE c_ptmv_uk;
1240:
1241: EXCEPTION
1242:
1243: WHEN OTHERS THEN
1244: OKL_API.set_message(p_app_name => g_app_name,
1245: p_msg_name => g_unexpected_error,
1246: p_token1 => g_sqlcode_token,
1247: p_token1_value => sqlcode,
1248: p_token2 => g_sqlerrm_token,
1246: p_token1 => g_sqlcode_token,
1247: p_token1_value => sqlcode,
1248: p_token2 => g_sqlerrm_token,
1249: p_token2_value => sqlerrm);
1250: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1251:
1252: RETURN(l_return_status);
1253:
1254: END Validate_Record;
1386: -------------------------------------------
1387:
1388: PROCEDURE validate_row(
1389: p_api_version IN NUMBER,
1390: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1391: x_return_status OUT NOCOPY VARCHAR2,
1392: x_msg_count OUT NOCOPY NUMBER,
1393: x_msg_data OUT NOCOPY VARCHAR2,
1394: p_ptmv_rec IN ptmv_rec_type) IS
1394: p_ptmv_rec IN ptmv_rec_type) IS
1395:
1396: l_api_version CONSTANT NUMBER := 1;
1397: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1398: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1399: l_ptmv_rec ptmv_rec_type := p_ptmv_rec;
1400:
1401: BEGIN
1402:
1399: l_ptmv_rec ptmv_rec_type := p_ptmv_rec;
1400:
1401: BEGIN
1402:
1403: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1404: G_PKG_NAME,
1405: p_init_msg_list,
1406: l_api_version,
1407: p_api_version,
1407: p_api_version,
1408: '_PVT',
1409: x_return_status);
1410:
1411: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1413: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1414: RAISE OKL_API.G_EXCEPTION_ERROR;
1415: END IF;
1408: '_PVT',
1409: x_return_status);
1410:
1411: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1413: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1414: RAISE OKL_API.G_EXCEPTION_ERROR;
1415: END IF;
1416:
1409: x_return_status);
1410:
1411: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1413: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1414: RAISE OKL_API.G_EXCEPTION_ERROR;
1415: END IF;
1416:
1417: l_return_status := Validate_Attributes(l_ptmv_rec);
1410:
1411: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1413: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1414: RAISE OKL_API.G_EXCEPTION_ERROR;
1415: END IF;
1416:
1417: l_return_status := Validate_Attributes(l_ptmv_rec);
1418: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1414: RAISE OKL_API.G_EXCEPTION_ERROR;
1415: END IF;
1416:
1417: l_return_status := Validate_Attributes(l_ptmv_rec);
1418: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1419: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1420: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1421: RAISE OKL_API.G_EXCEPTION_ERROR;
1422: END IF;
1415: END IF;
1416:
1417: l_return_status := Validate_Attributes(l_ptmv_rec);
1418: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1419: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1420: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1421: RAISE OKL_API.G_EXCEPTION_ERROR;
1422: END IF;
1423:
1416:
1417: l_return_status := Validate_Attributes(l_ptmv_rec);
1418: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1419: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1420: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1421: RAISE OKL_API.G_EXCEPTION_ERROR;
1422: END IF;
1423:
1424: /* 13-OCT-2006 ANSETHUR
1417: l_return_status := Validate_Attributes(l_ptmv_rec);
1418: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1419: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1420: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1421: RAISE OKL_API.G_EXCEPTION_ERROR;
1422: END IF;
1423:
1424: /* 13-OCT-2006 ANSETHUR
1425: BUILD : R12 B
1427: */
1428: -- l_return_status := Validate_Record(l_ptmv_rec);
1429: Validate_tmplt_record( l_ptmv_rec , l_return_status );
1430: /* End Changes */
1431: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1432: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1433: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1434: RAISE OKL_API.G_EXCEPTION_ERROR;
1435: END IF;
1428: -- l_return_status := Validate_Record(l_ptmv_rec);
1429: Validate_tmplt_record( l_ptmv_rec , l_return_status );
1430: /* End Changes */
1431: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1432: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1433: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1434: RAISE OKL_API.G_EXCEPTION_ERROR;
1435: END IF;
1436:
1429: Validate_tmplt_record( l_ptmv_rec , l_return_status );
1430: /* End Changes */
1431: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1432: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1433: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1434: RAISE OKL_API.G_EXCEPTION_ERROR;
1435: END IF;
1436:
1437: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1430: /* End Changes */
1431: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1432: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1433: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1434: RAISE OKL_API.G_EXCEPTION_ERROR;
1435: END IF;
1436:
1437: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1438:
1433: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1434: RAISE OKL_API.G_EXCEPTION_ERROR;
1435: END IF;
1436:
1437: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1438:
1439: EXCEPTION
1440: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1441: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1436:
1437: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1438:
1439: EXCEPTION
1440: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1441: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1442: (
1443: l_api_name,
1444: G_PKG_NAME,
1437: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1438:
1439: EXCEPTION
1440: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1441: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1442: (
1443: l_api_name,
1444: G_PKG_NAME,
1445: 'OKL_API.G_RET_STS_ERROR',
1441: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1442: (
1443: l_api_name,
1444: G_PKG_NAME,
1445: 'OKL_API.G_RET_STS_ERROR',
1446: x_msg_count,
1447: x_msg_data,
1448: '_PVT'
1449: );
1446: x_msg_count,
1447: x_msg_data,
1448: '_PVT'
1449: );
1450: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1451: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1452: (
1453: l_api_name,
1454: G_PKG_NAME,
1447: x_msg_data,
1448: '_PVT'
1449: );
1450: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1451: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1452: (
1453: l_api_name,
1454: G_PKG_NAME,
1455: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1451: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1452: (
1453: l_api_name,
1454: G_PKG_NAME,
1455: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1456: x_msg_count,
1457: x_msg_data,
1458: '_PVT'
1459: );
1457: x_msg_data,
1458: '_PVT'
1459: );
1460: WHEN OTHERS THEN
1461: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1462: (
1463: l_api_name,
1464: G_PKG_NAME,
1465: 'OTHERS',
1474: -- PL/SQL TBL validate_row for:PTMV_TBL --
1475: ------------------------------------------
1476: PROCEDURE validate_row(
1477: p_api_version IN NUMBER,
1478: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1479: x_return_status OUT NOCOPY VARCHAR2,
1480: x_msg_count OUT NOCOPY NUMBER,
1481: x_msg_data OUT NOCOPY VARCHAR2,
1482: p_ptmv_tbl IN ptmv_tbl_type) IS
1482: p_ptmv_tbl IN ptmv_tbl_type) IS
1483:
1484: l_api_version CONSTANT NUMBER := 1;
1485: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
1486: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1487: i NUMBER := 0;
1488:
1489: BEGIN
1490:
1487: i NUMBER := 0;
1488:
1489: BEGIN
1490:
1491: OKL_API.init_msg_list(p_init_msg_list);
1492: -- Make sure PL/SQL table has records in it before passing
1493: IF (p_ptmv_tbl.COUNT > 0) THEN
1494: i := p_ptmv_tbl.FIRST;
1495: LOOP
1494: i := p_ptmv_tbl.FIRST;
1495: LOOP
1496: validate_row (
1497: p_api_version => p_api_version,
1498: p_init_msg_list => OKL_API.G_FALSE,
1499: x_return_status => x_return_status,
1500: x_msg_count => x_msg_count,
1501: x_msg_data => x_msg_data,
1502: p_ptmv_rec => p_ptmv_tbl(i));
1504: i := p_ptmv_tbl.NEXT(i);
1505: END LOOP;
1506: END IF;
1507: EXCEPTION
1508: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1509: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1510: (
1511: l_api_name,
1512: G_PKG_NAME,
1505: END LOOP;
1506: END IF;
1507: EXCEPTION
1508: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1509: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1510: (
1511: l_api_name,
1512: G_PKG_NAME,
1513: 'OKL_API.G_RET_STS_ERROR',
1509: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1510: (
1511: l_api_name,
1512: G_PKG_NAME,
1513: 'OKL_API.G_RET_STS_ERROR',
1514: x_msg_count,
1515: x_msg_data,
1516: '_PVT'
1517: );
1514: x_msg_count,
1515: x_msg_data,
1516: '_PVT'
1517: );
1518: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1519: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1520: (
1521: l_api_name,
1522: G_PKG_NAME,
1515: x_msg_data,
1516: '_PVT'
1517: );
1518: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1519: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1520: (
1521: l_api_name,
1522: G_PKG_NAME,
1523: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1519: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1520: (
1521: l_api_name,
1522: G_PKG_NAME,
1523: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1524: x_msg_count,
1525: x_msg_data,
1526: '_PVT'
1527: );
1525: x_msg_data,
1526: '_PVT'
1527: );
1528: WHEN OTHERS THEN
1529: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1530: (
1531: l_api_name,
1532: G_PKG_NAME,
1533: 'OTHERS',
1541: -----------------------------------------
1542: -- insert_row for:OKL_PROCESS_TMPLTS_B --
1543: -----------------------------------------
1544: PROCEDURE insert_row(
1545: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1546: x_return_status OUT NOCOPY VARCHAR2,
1547: x_msg_count OUT NOCOPY NUMBER,
1548: x_msg_data OUT NOCOPY VARCHAR2,
1549: p_ptm_rec IN ptm_rec_type,
1550: x_ptm_rec OUT NOCOPY ptm_rec_type) IS
1551:
1552: l_api_version CONSTANT NUMBER := 1;
1553: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
1554: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1555: l_ptm_rec ptm_rec_type := p_ptm_rec;
1556: l_def_ptm_rec ptm_rec_type;
1557: ---------------------------------------------
1558: -- Set_Attributes for:OKL_PROCESS_TMPLTS --
1560: FUNCTION Set_Attributes (
1561: p_ptm_rec IN ptm_rec_type,
1562: x_ptm_rec OUT NOCOPY ptm_rec_type
1563: ) RETURN VARCHAR2 IS
1564: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1565: BEGIN
1566: x_ptm_rec := p_ptm_rec;
1567: RETURN(l_return_status);
1568: END Set_Attributes;
1568: END Set_Attributes;
1569:
1570: BEGIN
1571:
1572: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1573: p_init_msg_list,
1574: '_PVT',
1575: x_return_status);
1576:
1573: p_init_msg_list,
1574: '_PVT',
1575: x_return_status);
1576:
1577: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1579: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1580: RAISE OKL_API.G_EXCEPTION_ERROR;
1581: END IF;
1574: '_PVT',
1575: x_return_status);
1576:
1577: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1579: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1580: RAISE OKL_API.G_EXCEPTION_ERROR;
1581: END IF;
1582:
1575: x_return_status);
1576:
1577: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1579: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1580: RAISE OKL_API.G_EXCEPTION_ERROR;
1581: END IF;
1582:
1583: l_return_status := Set_Attributes(p_ptm_rec, l_ptm_rec);
1576:
1577: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1578: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1579: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1580: RAISE OKL_API.G_EXCEPTION_ERROR;
1581: END IF;
1582:
1583: l_return_status := Set_Attributes(p_ptm_rec, l_ptm_rec);
1584:
1581: END IF;
1582:
1583: l_return_status := Set_Attributes(p_ptm_rec, l_ptm_rec);
1584:
1585: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1586: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1587: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1588: RAISE OKL_API.G_EXCEPTION_ERROR;
1589: END IF;
1582:
1583: l_return_status := Set_Attributes(p_ptm_rec, l_ptm_rec);
1584:
1585: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1586: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1587: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1588: RAISE OKL_API.G_EXCEPTION_ERROR;
1589: END IF;
1590:
1583: l_return_status := Set_Attributes(p_ptm_rec, l_ptm_rec);
1584:
1585: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1586: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1587: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1588: RAISE OKL_API.G_EXCEPTION_ERROR;
1589: END IF;
1590:
1591:
1584:
1585: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1586: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1587: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1588: RAISE OKL_API.G_EXCEPTION_ERROR;
1589: END IF;
1590:
1591:
1592:
1664: /* End Changes */
1665:
1666: x_ptm_rec := l_ptm_rec;
1667:
1668: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1669:
1670: EXCEPTION
1671: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1672:
1667:
1668: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1669:
1670: EXCEPTION
1671: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1672:
1673: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1674: (
1675: l_api_name,
1669:
1670: EXCEPTION
1671: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1672:
1673: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1674: (
1675: l_api_name,
1676: G_PKG_NAME,
1677: 'OKL_API.G_RET_STS_ERROR',
1673: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1674: (
1675: l_api_name,
1676: G_PKG_NAME,
1677: 'OKL_API.G_RET_STS_ERROR',
1678: x_msg_count,
1679: x_msg_data,
1680: '_PVT'
1681: );
1678: x_msg_count,
1679: x_msg_data,
1680: '_PVT'
1681: );
1682: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1683:
1684: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1685: (
1686: l_api_name,
1680: '_PVT'
1681: );
1682: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1683:
1684: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1685: (
1686: l_api_name,
1687: G_PKG_NAME,
1688: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1684: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1685: (
1686: l_api_name,
1687: G_PKG_NAME,
1688: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1689: x_msg_count,
1690: x_msg_data,
1691: '_PVT'
1692: );
1690: x_msg_data,
1691: '_PVT'
1692: );
1693: WHEN OTHERS THEN
1694: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1695: (
1696: l_api_name,
1697: G_PKG_NAME,
1698: 'OTHERS',
1707: -- insert_row for: OKL_PROCESS_TMPLTS_TL --
1708: ------------------------------------------
1709:
1710: PROCEDURE insert_row(
1711: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1712: x_return_status OUT NOCOPY VARCHAR2,
1713: x_msg_count OUT NOCOPY NUMBER,
1714: x_msg_data OUT NOCOPY VARCHAR2,
1715: p_okl_process_tmplts_tl_rec IN okl_process_tmplts_tl_rec_type,
1716: x_okl_process_tmplts_tl_rec OUT NOCOPY okl_process_tmplts_tl_rec_type) IS
1717:
1718: l_api_version CONSTANT NUMBER := 1;
1719: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
1720: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1721: l_okl_process_tmplts_tl_rec okl_process_tmplts_tl_rec_type := p_okl_process_tmplts_tl_rec;
1722: ldefoklprocesstmpltstlrec okl_process_tmplts_tl_rec_type;
1723:
1724: CURSOR get_languages IS
1732: FUNCTION Set_Attributes (
1733: p_okl_process_tmplts_tl_rec IN okl_process_tmplts_tl_rec_type,
1734: x_okl_process_tmplts_tl_rec OUT NOCOPY okl_process_tmplts_tl_rec_type
1735: ) RETURN VARCHAR2 IS
1736: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1737: BEGIN
1738: x_okl_process_tmplts_tl_rec := p_okl_process_tmplts_tl_rec;
1739: x_okl_process_tmplts_tl_rec.LANGUAGE := USERENV('LANG'); -- Harmless but nonetheless incorrect
1740: x_okl_process_tmplts_tl_rec.SOURCE_LANG := USERENV('LANG');
1742: END Set_Attributes;
1743:
1744: BEGIN
1745:
1746: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1747: p_init_msg_list,
1748: '_PVT',
1749: x_return_status);
1750:
1747: p_init_msg_list,
1748: '_PVT',
1749: x_return_status);
1750:
1751: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1752: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1753: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1754: RAISE OKL_API.G_EXCEPTION_ERROR;
1755: END IF;
1748: '_PVT',
1749: x_return_status);
1750:
1751: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1752: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1753: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1754: RAISE OKL_API.G_EXCEPTION_ERROR;
1755: END IF;
1756:
1749: x_return_status);
1750:
1751: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1752: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1753: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1754: RAISE OKL_API.G_EXCEPTION_ERROR;
1755: END IF;
1756:
1757: l_return_status := Set_Attributes(p_okl_process_tmplts_tl_rec, l_okl_process_tmplts_tl_rec);
1750:
1751: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1752: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1753: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1754: RAISE OKL_API.G_EXCEPTION_ERROR;
1755: END IF;
1756:
1757: l_return_status := Set_Attributes(p_okl_process_tmplts_tl_rec, l_okl_process_tmplts_tl_rec);
1758: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1754: RAISE OKL_API.G_EXCEPTION_ERROR;
1755: END IF;
1756:
1757: l_return_status := Set_Attributes(p_okl_process_tmplts_tl_rec, l_okl_process_tmplts_tl_rec);
1758: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1759: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1760: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1761: RAISE OKL_API.G_EXCEPTION_ERROR;
1762: END IF;
1755: END IF;
1756:
1757: l_return_status := Set_Attributes(p_okl_process_tmplts_tl_rec, l_okl_process_tmplts_tl_rec);
1758: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1759: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1760: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1761: RAISE OKL_API.G_EXCEPTION_ERROR;
1762: END IF;
1763:
1756:
1757: l_return_status := Set_Attributes(p_okl_process_tmplts_tl_rec, l_okl_process_tmplts_tl_rec);
1758: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1759: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1760: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1761: RAISE OKL_API.G_EXCEPTION_ERROR;
1762: END IF;
1763:
1764: FOR l_lang_rec IN get_languages LOOP
1757: l_return_status := Set_Attributes(p_okl_process_tmplts_tl_rec, l_okl_process_tmplts_tl_rec);
1758: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1759: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1760: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1761: RAISE OKL_API.G_EXCEPTION_ERROR;
1762: END IF;
1763:
1764: FOR l_lang_rec IN get_languages LOOP
1765:
1790: END LOOP;
1791:
1792: x_okl_process_tmplts_tl_rec := l_okl_process_tmplts_tl_rec;
1793:
1794: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1795:
1796: EXCEPTION
1797:
1798: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1794: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1795:
1796: EXCEPTION
1797:
1798: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1799: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1800: (
1801: l_api_name,
1802: G_PKG_NAME,
1795:
1796: EXCEPTION
1797:
1798: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1799: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1800: (
1801: l_api_name,
1802: G_PKG_NAME,
1803: 'OKL_API.G_RET_STS_ERROR',
1799: x_return_status := OKL_API.HANDLE_EXCEPTIONS
1800: (
1801: l_api_name,
1802: G_PKG_NAME,
1803: 'OKL_API.G_RET_STS_ERROR',
1804: x_msg_count,
1805: x_msg_data,
1806: '_PVT'
1807: );
1804: x_msg_count,
1805: x_msg_data,
1806: '_PVT'
1807: );
1808: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1809: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1810: (
1811: l_api_name,
1812: G_PKG_NAME,
1805: x_msg_data,
1806: '_PVT'
1807: );
1808: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1809: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1810: (
1811: l_api_name,
1812: G_PKG_NAME,
1813: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1809: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1810: (
1811: l_api_name,
1812: G_PKG_NAME,
1813: 'OKL_API.G_RET_STS_UNEXP_ERROR',
1814: x_msg_count,
1815: x_msg_data,
1816: '_PVT'
1817: );
1816: '_PVT'
1817: );
1818: WHEN OTHERS THEN
1819:
1820: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
1821: (
1822: l_api_name,
1823: G_PKG_NAME,
1824: 'OTHERS',
1833: -- insert_row for: okl_process_tmplts_v --
1834: -----------------------------------------
1835: PROCEDURE insert_row(
1836: p_api_version IN NUMBER,
1837: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1838: x_return_status OUT NOCOPY VARCHAR2,
1839: x_msg_count OUT NOCOPY NUMBER,
1840: x_msg_data OUT NOCOPY VARCHAR2,
1841: p_ptmv_rec IN ptmv_rec_type,
1842: x_ptmv_rec OUT NOCOPY ptmv_rec_type) IS
1843:
1844: l_api_version CONSTANT NUMBER := 1;
1845: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
1846: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1847: l_ptmv_rec ptmv_rec_type;
1848: l_def_ptmv_rec ptmv_rec_type;
1849: l_ptm_rec ptm_rec_type;
1850: lx_ptm_rec ptm_rec_type;
1875: ---------------------------------------------
1876: FUNCTION Set_Attributes (p_ptmv_rec IN ptmv_rec_type, x_ptmv_rec OUT NOCOPY ptmv_rec_type)
1877: RETURN VARCHAR2 IS
1878:
1879: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1880: l_org_id hr_operating_units.organization_id%TYPE;
1881:
1882: BEGIN
1883:
1893:
1894: BEGIN
1895:
1896:
1897: l_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,
1902: '_PVT',
1903: x_return_status);
1904:
1905:
1906: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1907: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1908: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1909: RAISE OKL_API.G_EXCEPTION_ERROR;
1910: END IF;
1903: x_return_status);
1904:
1905:
1906: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1907: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1908: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1909: RAISE OKL_API.G_EXCEPTION_ERROR;
1910: END IF;
1911:
1904:
1905:
1906: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1907: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1908: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1909: RAISE OKL_API.G_EXCEPTION_ERROR;
1910: END IF;
1911:
1912: l_ptmv_rec := null_out_defaults(p_ptmv_rec);
1905:
1906: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1907: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1908: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1909: RAISE OKL_API.G_EXCEPTION_ERROR;
1910: END IF;
1911:
1912: l_ptmv_rec := null_out_defaults(p_ptmv_rec);
1913:
1914: l_ptmv_rec.ID := get_seq_id;
1915:
1916:
1917: l_return_status := Set_Attributes(l_ptmv_rec, l_def_ptmv_rec);
1918: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1919: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1920: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1921: RAISE OKL_API.G_EXCEPTION_ERROR;
1922: END IF;
1915:
1916:
1917: l_return_status := Set_Attributes(l_ptmv_rec, l_def_ptmv_rec);
1918: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1919: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1920: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1921: RAISE OKL_API.G_EXCEPTION_ERROR;
1922: END IF;
1923:
1916:
1917: l_return_status := Set_Attributes(l_ptmv_rec, l_def_ptmv_rec);
1918: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1919: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1920: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1921: RAISE OKL_API.G_EXCEPTION_ERROR;
1922: END IF;
1923:
1924: l_def_ptmv_rec := fill_who_columns(l_def_ptmv_rec);
1917: l_return_status := Set_Attributes(l_ptmv_rec, l_def_ptmv_rec);
1918: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1919: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1920: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1921: RAISE OKL_API.G_EXCEPTION_ERROR;
1922: END IF;
1923:
1924: l_def_ptmv_rec := fill_who_columns(l_def_ptmv_rec);
1925:
1924: l_def_ptmv_rec := fill_who_columns(l_def_ptmv_rec);
1925:
1926: l_return_status := Validate_Attributes(l_def_ptmv_rec);
1927:
1928: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1929: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1930: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1931: RAISE OKL_API.G_EXCEPTION_ERROR;
1932: END IF;
1925:
1926: l_return_status := Validate_Attributes(l_def_ptmv_rec);
1927:
1928: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1929: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1930: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1931: RAISE OKL_API.G_EXCEPTION_ERROR;
1932: END IF;
1933:
1926: l_return_status := Validate_Attributes(l_def_ptmv_rec);
1927:
1928: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1929: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1930: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1931: RAISE OKL_API.G_EXCEPTION_ERROR;
1932: END IF;
1933:
1934:
1927:
1928: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1929: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1930: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1931: RAISE OKL_API.G_EXCEPTION_ERROR;
1932: END IF;
1933:
1934:
1935: /* 13-OCT-2006 ANSETHUR
1939: -- l_return_status := Validate_Record(l_def_ptmv_rec);
1940: Validate_tmplt_record( l_def_ptmv_rec , l_return_status );
1941: /* End Changes */
1942:
1943: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1945: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1946: RAISE OKL_API.G_EXCEPTION_ERROR;
1947: END IF;
1940: Validate_tmplt_record( l_def_ptmv_rec , l_return_status );
1941: /* End Changes */
1942:
1943: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1945: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1946: RAISE OKL_API.G_EXCEPTION_ERROR;
1947: END IF;
1948:
1941: /* End Changes */
1942:
1943: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1945: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1946: RAISE OKL_API.G_EXCEPTION_ERROR;
1947: END IF;
1948:
1949: --------------------------------------
1942:
1943: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1944: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1945: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1946: RAISE OKL_API.G_EXCEPTION_ERROR;
1947: END IF;
1948:
1949: --------------------------------------
1950: -- Move VIEW record to "Child" records
1964: lx_ptm_rec);
1965:
1966:
1967:
1968: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1969: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1970: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1971: RAISE OKL_API.G_EXCEPTION_ERROR;
1972: END IF;
1965:
1966:
1967:
1968: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1969: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1970: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1971: RAISE OKL_API.G_EXCEPTION_ERROR;
1972: END IF;
1973:
1966:
1967:
1968: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1969: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1970: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1971: RAISE OKL_API.G_EXCEPTION_ERROR;
1972: END IF;
1973:
1974: migrate(lx_ptm_rec, l_def_ptmv_rec);
1967:
1968: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1969: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1970: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1971: RAISE OKL_API.G_EXCEPTION_ERROR;
1972: END IF;
1973:
1974: migrate(lx_ptm_rec, l_def_ptmv_rec);
1975:
1981: lx_okl_process_tmplts_tl_rec);
1982:
1983:
1984:
1985: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1986: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1987: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1988: RAISE OKL_API.G_EXCEPTION_ERROR;
1989: END IF;
1982:
1983:
1984:
1985: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1986: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1987: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1988: RAISE OKL_API.G_EXCEPTION_ERROR;
1989: END IF;
1990:
1983:
1984:
1985: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1986: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1987: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1988: RAISE OKL_API.G_EXCEPTION_ERROR;
1989: END IF;
1990:
1991: migrate(lx_okl_process_tmplts_tl_rec, l_def_ptmv_rec);
1984:
1985: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1986: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1987: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1988: RAISE OKL_API.G_EXCEPTION_ERROR;
1989: END IF;
1990:
1991: migrate(lx_okl_process_tmplts_tl_rec, l_def_ptmv_rec);
1992:
1991: migrate(lx_okl_process_tmplts_tl_rec, l_def_ptmv_rec);
1992:
1993: x_ptmv_rec := l_def_ptmv_rec;
1994:
1995: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1996:
1997: EXCEPTION
1998:
1999: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1995: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
1996:
1997: EXCEPTION
1998:
1999: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2000: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2001: (
2002: l_api_name,
2003: G_PKG_NAME,
1996:
1997: EXCEPTION
1998:
1999: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2000: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2001: (
2002: l_api_name,
2003: G_PKG_NAME,
2004: 'OKL_API.G_RET_STS_ERROR',
2000: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2001: (
2002: l_api_name,
2003: G_PKG_NAME,
2004: 'OKL_API.G_RET_STS_ERROR',
2005: x_msg_count,
2006: x_msg_data,
2007: '_PVT'
2008: );
2005: x_msg_count,
2006: x_msg_data,
2007: '_PVT'
2008: );
2009: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2010: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2011: (
2012: l_api_name,
2013: G_PKG_NAME,
2006: x_msg_data,
2007: '_PVT'
2008: );
2009: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2010: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2011: (
2012: l_api_name,
2013: G_PKG_NAME,
2014: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2010: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2011: (
2012: l_api_name,
2013: G_PKG_NAME,
2014: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2015: x_msg_count,
2016: x_msg_data,
2017: '_PVT'
2018: );
2016: x_msg_data,
2017: '_PVT'
2018: );
2019: WHEN OTHERS THEN
2020: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2021: (
2022: l_api_name,
2023: G_PKG_NAME,
2024: 'OTHERS',
2033: -- PL/SQL TBL insert_row for:PTMV_TBL --
2034: ----------------------------------------
2035: PROCEDURE insert_row(
2036: p_api_version IN NUMBER,
2037: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2038: x_return_status OUT NOCOPY VARCHAR2,
2039: x_msg_count OUT NOCOPY NUMBER,
2040: x_msg_data OUT NOCOPY VARCHAR2,
2041: p_ptmv_tbl IN ptmv_tbl_type,
2042: x_ptmv_tbl OUT NOCOPY ptmv_tbl_type) IS
2043:
2044: l_api_version CONSTANT NUMBER := 1;
2045: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
2046: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2047: i NUMBER := 0;
2048: BEGIN
2049:
2050:
2047: i NUMBER := 0;
2048: BEGIN
2049:
2050:
2051: OKL_API.init_msg_list(p_init_msg_list);
2052: -- Make sure PL/SQL table has records in it before passing
2053: IF (p_ptmv_tbl.COUNT > 0) THEN
2054: i := p_ptmv_tbl.FIRST;
2055: LOOP
2054: i := p_ptmv_tbl.FIRST;
2055: LOOP
2056: insert_row (
2057: p_api_version => p_api_version,
2058: p_init_msg_list => OKL_API.G_FALSE,
2059: x_return_status => x_return_status,
2060: x_msg_count => x_msg_count,
2061: x_msg_data => x_msg_data,
2062: p_ptmv_rec => p_ptmv_tbl(i),
2065: i := p_ptmv_tbl.NEXT(i);
2066: END LOOP;
2067: END IF;
2068: EXCEPTION
2069: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2070: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2071: (
2072: l_api_name,
2073: G_PKG_NAME,
2066: END LOOP;
2067: END IF;
2068: EXCEPTION
2069: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2070: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2071: (
2072: l_api_name,
2073: G_PKG_NAME,
2074: 'OKL_API.G_RET_STS_ERROR',
2070: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2071: (
2072: l_api_name,
2073: G_PKG_NAME,
2074: 'OKL_API.G_RET_STS_ERROR',
2075: x_msg_count,
2076: x_msg_data,
2077: '_PVT'
2078: );
2075: x_msg_count,
2076: x_msg_data,
2077: '_PVT'
2078: );
2079: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2080: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2081: (
2082: l_api_name,
2083: G_PKG_NAME,
2076: x_msg_data,
2077: '_PVT'
2078: );
2079: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2080: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2081: (
2082: l_api_name,
2083: G_PKG_NAME,
2084: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2080: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2081: (
2082: l_api_name,
2083: G_PKG_NAME,
2084: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2085: x_msg_count,
2086: x_msg_data,
2087: '_PVT'
2088: );
2086: x_msg_data,
2087: '_PVT'
2088: );
2089: WHEN OTHERS THEN
2090: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2091: (
2092: l_api_name,
2093: G_PKG_NAME,
2094: 'OTHERS',
2102: ---------------------------------------
2103: -- lock_row for: OKL_PROCESS_TMPLTS_B --
2104: ---------------------------------------
2105: PROCEDURE lock_row(
2106: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2107: x_return_status OUT NOCOPY VARCHAR2,
2108: x_msg_count OUT NOCOPY NUMBER,
2109: x_msg_data OUT NOCOPY VARCHAR2,
2110: p_ptm_rec IN ptm_rec_type) IS
2123: FROM okl_process_tmplts_b
2124: WHERE ID = p_ptm_rec.id;
2125: l_api_version CONSTANT NUMBER := 1;
2126: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
2127: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2128: l_object_version_number okl_process_tmplts_b.OBJECT_VERSION_NUMBER%TYPE;
2129: lc_object_version_number okl_process_tmplts_b.OBJECT_VERSION_NUMBER%TYPE;
2130: l_row_notfound BOOLEAN := FALSE;
2131: lc_row_notfound BOOLEAN := FALSE;
2129: lc_object_version_number okl_process_tmplts_b.OBJECT_VERSION_NUMBER%TYPE;
2130: l_row_notfound BOOLEAN := FALSE;
2131: lc_row_notfound BOOLEAN := FALSE;
2132: BEGIN
2133: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2134: p_init_msg_list,
2135: '_PVT',
2136: x_return_status);
2137: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2133: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2134: p_init_msg_list,
2135: '_PVT',
2136: x_return_status);
2137: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2139: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2140: RAISE OKL_API.G_EXCEPTION_ERROR;
2141: END IF;
2134: p_init_msg_list,
2135: '_PVT',
2136: x_return_status);
2137: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2139: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2140: RAISE OKL_API.G_EXCEPTION_ERROR;
2141: END IF;
2142: BEGIN
2135: '_PVT',
2136: x_return_status);
2137: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2139: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2140: RAISE OKL_API.G_EXCEPTION_ERROR;
2141: END IF;
2142: BEGIN
2143: OPEN lock_csr(p_ptm_rec);
2136: x_return_status);
2137: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2138: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2139: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2140: RAISE OKL_API.G_EXCEPTION_ERROR;
2141: END IF;
2142: BEGIN
2143: OPEN lock_csr(p_ptm_rec);
2144: FETCH lock_csr INTO l_object_version_number;
2148: WHEN E_Resource_Busy THEN
2149: IF (lock_csr%ISOPEN) THEN
2150: CLOSE lock_csr;
2151: END IF;
2152: OKL_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2153: RAISE App_Exceptions.RECORD_LOCK_EXCEPTION;
2154: END;
2155:
2156: IF ( l_row_notfound ) THEN
2159: lc_row_notfound := lchk_csr%NOTFOUND;
2160: CLOSE lchk_csr;
2161: END IF;
2162: IF (lc_row_notfound) THEN
2163: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2164: RAISE OKL_API.G_EXCEPTION_ERROR;
2165: ELSIF lc_object_version_number > p_ptm_rec.object_version_number THEN
2166: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2167: RAISE OKL_API.G_EXCEPTION_ERROR;
2160: CLOSE lchk_csr;
2161: END IF;
2162: IF (lc_row_notfound) THEN
2163: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2164: RAISE OKL_API.G_EXCEPTION_ERROR;
2165: ELSIF lc_object_version_number > p_ptm_rec.object_version_number THEN
2166: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2167: RAISE OKL_API.G_EXCEPTION_ERROR;
2168: ELSIF lc_object_version_number <> p_ptm_rec.object_version_number THEN
2162: IF (lc_row_notfound) THEN
2163: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2164: RAISE OKL_API.G_EXCEPTION_ERROR;
2165: ELSIF lc_object_version_number > p_ptm_rec.object_version_number THEN
2166: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2167: RAISE OKL_API.G_EXCEPTION_ERROR;
2168: ELSIF lc_object_version_number <> p_ptm_rec.object_version_number THEN
2169: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2170: RAISE OKL_API.G_EXCEPTION_ERROR;
2163: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2164: RAISE OKL_API.G_EXCEPTION_ERROR;
2165: ELSIF lc_object_version_number > p_ptm_rec.object_version_number THEN
2166: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2167: RAISE OKL_API.G_EXCEPTION_ERROR;
2168: ELSIF lc_object_version_number <> p_ptm_rec.object_version_number THEN
2169: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2170: RAISE OKL_API.G_EXCEPTION_ERROR;
2171: ELSIF lc_object_version_number = -1 THEN
2165: ELSIF lc_object_version_number > p_ptm_rec.object_version_number THEN
2166: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2167: RAISE OKL_API.G_EXCEPTION_ERROR;
2168: ELSIF lc_object_version_number <> p_ptm_rec.object_version_number THEN
2169: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2170: RAISE OKL_API.G_EXCEPTION_ERROR;
2171: ELSIF lc_object_version_number = -1 THEN
2172: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2173: RAISE OKL_API.G_EXCEPTION_ERROR;
2166: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2167: RAISE OKL_API.G_EXCEPTION_ERROR;
2168: ELSIF lc_object_version_number <> p_ptm_rec.object_version_number THEN
2169: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2170: RAISE OKL_API.G_EXCEPTION_ERROR;
2171: ELSIF lc_object_version_number = -1 THEN
2172: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2173: RAISE OKL_API.G_EXCEPTION_ERROR;
2174: END IF;
2168: ELSIF lc_object_version_number <> p_ptm_rec.object_version_number THEN
2169: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2170: RAISE OKL_API.G_EXCEPTION_ERROR;
2171: ELSIF lc_object_version_number = -1 THEN
2172: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2173: RAISE OKL_API.G_EXCEPTION_ERROR;
2174: END IF;
2175: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2176: EXCEPTION
2169: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
2170: RAISE OKL_API.G_EXCEPTION_ERROR;
2171: ELSIF lc_object_version_number = -1 THEN
2172: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2173: RAISE OKL_API.G_EXCEPTION_ERROR;
2174: END IF;
2175: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2176: EXCEPTION
2177: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2171: ELSIF lc_object_version_number = -1 THEN
2172: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2173: RAISE OKL_API.G_EXCEPTION_ERROR;
2174: END IF;
2175: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2176: EXCEPTION
2177: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2178: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2179: (
2173: RAISE OKL_API.G_EXCEPTION_ERROR;
2174: END IF;
2175: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2176: EXCEPTION
2177: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2178: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2179: (
2180: l_api_name,
2181: G_PKG_NAME,
2174: END IF;
2175: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2176: EXCEPTION
2177: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2178: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2179: (
2180: l_api_name,
2181: G_PKG_NAME,
2182: 'OKL_API.G_RET_STS_ERROR',
2178: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2179: (
2180: l_api_name,
2181: G_PKG_NAME,
2182: 'OKL_API.G_RET_STS_ERROR',
2183: x_msg_count,
2184: x_msg_data,
2185: '_PVT'
2186: );
2183: x_msg_count,
2184: x_msg_data,
2185: '_PVT'
2186: );
2187: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2188: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2189: (
2190: l_api_name,
2191: G_PKG_NAME,
2184: x_msg_data,
2185: '_PVT'
2186: );
2187: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2188: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2189: (
2190: l_api_name,
2191: G_PKG_NAME,
2192: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2188: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2189: (
2190: l_api_name,
2191: G_PKG_NAME,
2192: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2193: x_msg_count,
2194: x_msg_data,
2195: '_PVT'
2196: );
2194: x_msg_data,
2195: '_PVT'
2196: );
2197: WHEN OTHERS THEN
2198: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2199: (
2200: l_api_name,
2201: G_PKG_NAME,
2202: 'OTHERS',
2210: ----------------------------------------
2211: -- lock_row for:OKL_PROCESS_TMPLTS_TL --
2212: ----------------------------------------
2213: PROCEDURE lock_row(
2214: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2215: x_return_status OUT NOCOPY VARCHAR2,
2216: x_msg_count OUT NOCOPY NUMBER,
2217: x_msg_data OUT NOCOPY VARCHAR2,
2218: p_okl_process_tmplts_tl_rec IN okl_process_tmplts_tl_rec_type) IS
2226: FOR UPDATE NOWAIT;
2227:
2228: l_api_version CONSTANT NUMBER := 1;
2229: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
2230: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2231: l_lock_var lock_csr%ROWTYPE;
2232: l_row_notfound BOOLEAN := FALSE;
2233: lc_row_notfound BOOLEAN := FALSE;
2234: BEGIN
2231: l_lock_var lock_csr%ROWTYPE;
2232: l_row_notfound BOOLEAN := FALSE;
2233: lc_row_notfound BOOLEAN := FALSE;
2234: BEGIN
2235: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2236: p_init_msg_list,
2237: '_PVT',
2238: x_return_status);
2239: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2235: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2236: p_init_msg_list,
2237: '_PVT',
2238: x_return_status);
2239: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2241: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2242: RAISE OKL_API.G_EXCEPTION_ERROR;
2243: END IF;
2236: p_init_msg_list,
2237: '_PVT',
2238: x_return_status);
2239: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2241: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2242: RAISE OKL_API.G_EXCEPTION_ERROR;
2243: END IF;
2244: BEGIN
2237: '_PVT',
2238: x_return_status);
2239: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2241: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2242: RAISE OKL_API.G_EXCEPTION_ERROR;
2243: END IF;
2244: BEGIN
2245: OPEN lock_csr(p_okl_process_tmplts_tl_rec);
2238: x_return_status);
2239: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2241: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2242: RAISE OKL_API.G_EXCEPTION_ERROR;
2243: END IF;
2244: BEGIN
2245: OPEN lock_csr(p_okl_process_tmplts_tl_rec);
2246: FETCH lock_csr INTO l_lock_var;
2250: WHEN E_Resource_Busy THEN
2251: IF (lock_csr%ISOPEN) THEN
2252: CLOSE lock_csr;
2253: END IF;
2254: OKL_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
2255: RAISE App_Exceptions.RECORD_LOCK_EXCEPTION;
2256: END;
2257:
2258: IF ( l_row_notfound ) THEN
2255: RAISE App_Exceptions.RECORD_LOCK_EXCEPTION;
2256: END;
2257:
2258: IF ( l_row_notfound ) THEN
2259: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2260: RAISE OKL_API.G_EXCEPTION_ERROR;
2261: END IF;
2262: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2263: EXCEPTION
2256: END;
2257:
2258: IF ( l_row_notfound ) THEN
2259: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2260: RAISE OKL_API.G_EXCEPTION_ERROR;
2261: END IF;
2262: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2263: EXCEPTION
2264: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2258: IF ( l_row_notfound ) THEN
2259: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
2260: RAISE OKL_API.G_EXCEPTION_ERROR;
2261: END IF;
2262: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2263: EXCEPTION
2264: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2265: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2266: (
2260: RAISE OKL_API.G_EXCEPTION_ERROR;
2261: END IF;
2262: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2263: EXCEPTION
2264: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2265: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2266: (
2267: l_api_name,
2268: G_PKG_NAME,
2261: END IF;
2262: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2263: EXCEPTION
2264: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2265: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2266: (
2267: l_api_name,
2268: G_PKG_NAME,
2269: 'OKL_API.G_RET_STS_ERROR',
2265: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2266: (
2267: l_api_name,
2268: G_PKG_NAME,
2269: 'OKL_API.G_RET_STS_ERROR',
2270: x_msg_count,
2271: x_msg_data,
2272: '_PVT'
2273: );
2270: x_msg_count,
2271: x_msg_data,
2272: '_PVT'
2273: );
2274: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2275: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2276: (
2277: l_api_name,
2278: G_PKG_NAME,
2271: x_msg_data,
2272: '_PVT'
2273: );
2274: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2275: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2276: (
2277: l_api_name,
2278: G_PKG_NAME,
2279: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2275: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2276: (
2277: l_api_name,
2278: G_PKG_NAME,
2279: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2280: x_msg_count,
2281: x_msg_data,
2282: '_PVT'
2283: );
2281: x_msg_data,
2282: '_PVT'
2283: );
2284: WHEN OTHERS THEN
2285: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2286: (
2287: l_api_name,
2288: G_PKG_NAME,
2289: 'OTHERS',
2297: -- lock_row for:OKL_PROCESS_TMPLTS_V --
2298: ---------------------------------------
2299: PROCEDURE lock_row(
2300: p_api_version IN NUMBER,
2301: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2302: x_return_status OUT NOCOPY VARCHAR2,
2303: x_msg_count OUT NOCOPY NUMBER,
2304: x_msg_data OUT NOCOPY VARCHAR2,
2305: p_ptmv_rec IN ptmv_rec_type) IS
2305: p_ptmv_rec IN ptmv_rec_type) IS
2306:
2307: l_api_version CONSTANT NUMBER := 1;
2308: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
2309: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2310: l_ptm_rec ptm_rec_type;
2311: l_okl_process_tmplts_tl_rec okl_process_tmplts_tl_rec_type;
2312: BEGIN
2313: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2309: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2310: l_ptm_rec ptm_rec_type;
2311: l_okl_process_tmplts_tl_rec okl_process_tmplts_tl_rec_type;
2312: BEGIN
2313: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2314: G_PKG_NAME,
2315: p_init_msg_list,
2316: l_api_version,
2317: p_api_version,
2316: l_api_version,
2317: p_api_version,
2318: '_PVT',
2319: x_return_status);
2320: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2321: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2322: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2323: RAISE OKL_API.G_EXCEPTION_ERROR;
2324: END IF;
2317: p_api_version,
2318: '_PVT',
2319: x_return_status);
2320: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2321: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2322: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2323: RAISE OKL_API.G_EXCEPTION_ERROR;
2324: END IF;
2325: --------------------------------------
2318: '_PVT',
2319: x_return_status);
2320: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2321: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2322: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2323: RAISE OKL_API.G_EXCEPTION_ERROR;
2324: END IF;
2325: --------------------------------------
2326: -- Move VIEW record to "Child" records
2319: x_return_status);
2320: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2321: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2322: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2323: RAISE OKL_API.G_EXCEPTION_ERROR;
2324: END IF;
2325: --------------------------------------
2326: -- Move VIEW record to "Child" records
2327: --------------------------------------
2336: x_msg_count,
2337: x_msg_data,
2338: l_ptm_rec
2339: );
2340: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2341: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2342: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2343: RAISE OKL_API.G_EXCEPTION_ERROR;
2344: END IF;
2337: x_msg_data,
2338: l_ptm_rec
2339: );
2340: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2341: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2342: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2343: RAISE OKL_API.G_EXCEPTION_ERROR;
2344: END IF;
2345: lock_row(
2338: l_ptm_rec
2339: );
2340: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2341: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2342: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2343: RAISE OKL_API.G_EXCEPTION_ERROR;
2344: END IF;
2345: lock_row(
2346: p_init_msg_list,
2339: );
2340: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2341: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2342: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2343: RAISE OKL_API.G_EXCEPTION_ERROR;
2344: END IF;
2345: lock_row(
2346: p_init_msg_list,
2347: x_return_status,
2348: x_msg_count,
2349: x_msg_data,
2350: l_okl_process_tmplts_tl_rec
2351: );
2352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2355: RAISE OKL_API.G_EXCEPTION_ERROR;
2356: END IF;
2349: x_msg_data,
2350: l_okl_process_tmplts_tl_rec
2351: );
2352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2355: RAISE OKL_API.G_EXCEPTION_ERROR;
2356: END IF;
2357: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2350: l_okl_process_tmplts_tl_rec
2351: );
2352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2355: RAISE OKL_API.G_EXCEPTION_ERROR;
2356: END IF;
2357: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2358: EXCEPTION
2351: );
2352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2355: RAISE OKL_API.G_EXCEPTION_ERROR;
2356: END IF;
2357: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2358: EXCEPTION
2359: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2355: RAISE OKL_API.G_EXCEPTION_ERROR;
2356: END IF;
2357: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2358: EXCEPTION
2359: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2360: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2361: (
2355: RAISE OKL_API.G_EXCEPTION_ERROR;
2356: END IF;
2357: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2358: EXCEPTION
2359: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2360: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2361: (
2362: l_api_name,
2363: G_PKG_NAME,
2356: END IF;
2357: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2358: EXCEPTION
2359: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2360: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2361: (
2362: l_api_name,
2363: G_PKG_NAME,
2364: 'OKL_API.G_RET_STS_ERROR',
2360: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2361: (
2362: l_api_name,
2363: G_PKG_NAME,
2364: 'OKL_API.G_RET_STS_ERROR',
2365: x_msg_count,
2366: x_msg_data,
2367: '_PVT'
2368: );
2365: x_msg_count,
2366: x_msg_data,
2367: '_PVT'
2368: );
2369: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2370: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2371: (
2372: l_api_name,
2373: G_PKG_NAME,
2366: x_msg_data,
2367: '_PVT'
2368: );
2369: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2370: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2371: (
2372: l_api_name,
2373: G_PKG_NAME,
2374: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2370: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2371: (
2372: l_api_name,
2373: G_PKG_NAME,
2374: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2375: x_msg_count,
2376: x_msg_data,
2377: '_PVT'
2378: );
2376: x_msg_data,
2377: '_PVT'
2378: );
2379: WHEN OTHERS THEN
2380: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2381: (
2382: l_api_name,
2383: G_PKG_NAME,
2384: 'OTHERS',
2392: -- PL/SQL TBL lock_row for:PTMV_TBL --
2393: --------------------------------------
2394: PROCEDURE lock_row(
2395: p_api_version IN NUMBER,
2396: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2397: x_return_status OUT NOCOPY VARCHAR2,
2398: x_msg_count OUT NOCOPY NUMBER,
2399: x_msg_data OUT NOCOPY VARCHAR2,
2400: p_ptmv_tbl IN ptmv_tbl_type) IS
2400: p_ptmv_tbl IN ptmv_tbl_type) IS
2401:
2402: l_api_version CONSTANT NUMBER := 1;
2403: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2404: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2405: i NUMBER := 0;
2406: BEGIN
2407: OKL_API.init_msg_list(p_init_msg_list);
2408: -- Make sure PL/SQL table has records in it before passing
2403: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
2404: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2405: i NUMBER := 0;
2406: BEGIN
2407: OKL_API.init_msg_list(p_init_msg_list);
2408: -- Make sure PL/SQL table has records in it before passing
2409: IF (p_ptmv_tbl.COUNT > 0) THEN
2410: i := p_ptmv_tbl.FIRST;
2411: LOOP
2410: i := p_ptmv_tbl.FIRST;
2411: LOOP
2412: lock_row (
2413: p_api_version => p_api_version,
2414: p_init_msg_list => OKL_API.G_FALSE,
2415: x_return_status => x_return_status,
2416: x_msg_count => x_msg_count,
2417: x_msg_data => x_msg_data,
2418: p_ptmv_rec => p_ptmv_tbl(i));
2420: i := p_ptmv_tbl.NEXT(i);
2421: END LOOP;
2422: END IF;
2423: EXCEPTION
2424: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2425: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2426: (
2427: l_api_name,
2428: G_PKG_NAME,
2421: END LOOP;
2422: END IF;
2423: EXCEPTION
2424: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2425: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2426: (
2427: l_api_name,
2428: G_PKG_NAME,
2429: 'OKL_API.G_RET_STS_ERROR',
2425: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2426: (
2427: l_api_name,
2428: G_PKG_NAME,
2429: 'OKL_API.G_RET_STS_ERROR',
2430: x_msg_count,
2431: x_msg_data,
2432: '_PVT'
2433: );
2430: x_msg_count,
2431: x_msg_data,
2432: '_PVT'
2433: );
2434: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2435: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2436: (
2437: l_api_name,
2438: G_PKG_NAME,
2431: x_msg_data,
2432: '_PVT'
2433: );
2434: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2435: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2436: (
2437: l_api_name,
2438: G_PKG_NAME,
2439: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2435: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2436: (
2437: l_api_name,
2438: G_PKG_NAME,
2439: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2440: x_msg_count,
2441: x_msg_data,
2442: '_PVT'
2443: );
2441: x_msg_data,
2442: '_PVT'
2443: );
2444: WHEN OTHERS THEN
2445: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2446: (
2447: l_api_name,
2448: G_PKG_NAME,
2449: 'OTHERS',
2457: -----------------------------------------
2458: -- update_row for:OKL_PROCESS_TMPLTS_B --
2459: -----------------------------------------
2460: PROCEDURE update_row(
2461: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2462: x_return_status OUT NOCOPY VARCHAR2,
2463: x_msg_count OUT NOCOPY NUMBER,
2464: x_msg_data OUT NOCOPY VARCHAR2,
2465: p_ptm_rec IN ptm_rec_type,
2466: x_ptm_rec OUT NOCOPY ptm_rec_type) IS
2467:
2468: l_api_version CONSTANT NUMBER := 1;
2469: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
2470: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2471: l_ptm_rec ptm_rec_type := p_ptm_rec;
2472: l_def_ptm_rec ptm_rec_type;
2473: l_row_notfound BOOLEAN := TRUE;
2474: ----------------------------------
2478: x_ptm_rec OUT NOCOPY ptm_rec_type) RETURN VARCHAR2 IS
2479:
2480: l_ptm_rec ptm_rec_type;
2481: l_row_notfound BOOLEAN := TRUE;
2482: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2483:
2484: BEGIN
2485:
2486: x_ptm_rec := p_ptm_rec;
2487: -- Get current database values
2488: l_ptm_rec := get_rec(p_ptm_rec, l_row_notfound);
2489:
2490: IF (l_row_notfound) THEN
2491: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2492: RETURN(l_return_status);
2493: END IF;
2494: IF (x_ptm_rec.org_id = OKL_API.G_MISS_NUM)
2495: THEN
2490: IF (l_row_notfound) THEN
2491: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2492: RETURN(l_return_status);
2493: END IF;
2494: IF (x_ptm_rec.org_id = OKL_API.G_MISS_NUM)
2495: THEN
2496: x_ptm_rec.org_id := l_ptm_rec.org_id;
2497: END IF;
2498: IF (x_ptm_rec.ptm_code = OKL_API.G_MISS_CHAR)
2494: IF (x_ptm_rec.org_id = OKL_API.G_MISS_NUM)
2495: THEN
2496: x_ptm_rec.org_id := l_ptm_rec.org_id;
2497: END IF;
2498: IF (x_ptm_rec.ptm_code = OKL_API.G_MISS_CHAR)
2499: THEN
2500: x_ptm_rec.ptm_code := l_ptm_rec.ptm_code;
2501: END IF;
2502: IF (x_ptm_rec.jtf_amv_item_id = OKL_API.G_MISS_NUM)
2498: IF (x_ptm_rec.ptm_code = OKL_API.G_MISS_CHAR)
2499: THEN
2500: x_ptm_rec.ptm_code := l_ptm_rec.ptm_code;
2501: END IF;
2502: IF (x_ptm_rec.jtf_amv_item_id = OKL_API.G_MISS_NUM)
2503: THEN
2504: x_ptm_rec.jtf_amv_item_id := l_ptm_rec.jtf_amv_item_id;
2505: END IF;
2506: IF (x_ptm_rec.start_date = OKL_API.G_MISS_DATE)
2502: IF (x_ptm_rec.jtf_amv_item_id = OKL_API.G_MISS_NUM)
2503: THEN
2504: x_ptm_rec.jtf_amv_item_id := l_ptm_rec.jtf_amv_item_id;
2505: END IF;
2506: IF (x_ptm_rec.start_date = OKL_API.G_MISS_DATE)
2507: THEN
2508: x_ptm_rec.start_date := l_ptm_rec.start_date;
2509: END IF;
2510: IF (x_ptm_rec.end_date = OKL_API.G_MISS_DATE)
2506: IF (x_ptm_rec.start_date = OKL_API.G_MISS_DATE)
2507: THEN
2508: x_ptm_rec.start_date := l_ptm_rec.start_date;
2509: END IF;
2510: IF (x_ptm_rec.end_date = OKL_API.G_MISS_DATE)
2511: THEN
2512: x_ptm_rec.end_date := l_ptm_rec.end_date;
2513: END IF;
2514: IF (x_ptm_rec.object_version_number = OKL_API.G_MISS_NUM)
2510: IF (x_ptm_rec.end_date = OKL_API.G_MISS_DATE)
2511: THEN
2512: x_ptm_rec.end_date := l_ptm_rec.end_date;
2513: END IF;
2514: IF (x_ptm_rec.object_version_number = OKL_API.G_MISS_NUM)
2515: THEN
2516: x_ptm_rec.object_version_number := l_ptm_rec.object_version_number;
2517: END IF;
2518: IF (x_ptm_rec.attribute_category = OKL_API.G_MISS_CHAR)
2514: IF (x_ptm_rec.object_version_number = OKL_API.G_MISS_NUM)
2515: THEN
2516: x_ptm_rec.object_version_number := l_ptm_rec.object_version_number;
2517: END IF;
2518: IF (x_ptm_rec.attribute_category = OKL_API.G_MISS_CHAR)
2519: THEN
2520: x_ptm_rec.attribute_category := l_ptm_rec.attribute_category;
2521: END IF;
2522: IF (x_ptm_rec.attribute1 = OKL_API.G_MISS_CHAR)
2518: IF (x_ptm_rec.attribute_category = OKL_API.G_MISS_CHAR)
2519: THEN
2520: x_ptm_rec.attribute_category := l_ptm_rec.attribute_category;
2521: END IF;
2522: IF (x_ptm_rec.attribute1 = OKL_API.G_MISS_CHAR)
2523: THEN
2524: x_ptm_rec.attribute1 := l_ptm_rec.attribute1;
2525: END IF;
2526: IF (x_ptm_rec.attribute2 = OKL_API.G_MISS_CHAR)
2522: IF (x_ptm_rec.attribute1 = OKL_API.G_MISS_CHAR)
2523: THEN
2524: x_ptm_rec.attribute1 := l_ptm_rec.attribute1;
2525: END IF;
2526: IF (x_ptm_rec.attribute2 = OKL_API.G_MISS_CHAR)
2527: THEN
2528: x_ptm_rec.attribute2 := l_ptm_rec.attribute2;
2529: END IF;
2530: IF (x_ptm_rec.attribute3 = OKL_API.G_MISS_CHAR)
2526: IF (x_ptm_rec.attribute2 = OKL_API.G_MISS_CHAR)
2527: THEN
2528: x_ptm_rec.attribute2 := l_ptm_rec.attribute2;
2529: END IF;
2530: IF (x_ptm_rec.attribute3 = OKL_API.G_MISS_CHAR)
2531: THEN
2532: x_ptm_rec.attribute3 := l_ptm_rec.attribute3;
2533: END IF;
2534: IF (x_ptm_rec.attribute4 = OKL_API.G_MISS_CHAR)
2530: IF (x_ptm_rec.attribute3 = OKL_API.G_MISS_CHAR)
2531: THEN
2532: x_ptm_rec.attribute3 := l_ptm_rec.attribute3;
2533: END IF;
2534: IF (x_ptm_rec.attribute4 = OKL_API.G_MISS_CHAR)
2535: THEN
2536: x_ptm_rec.attribute4 := l_ptm_rec.attribute4;
2537: END IF;
2538: IF (x_ptm_rec.attribute5 = OKL_API.G_MISS_CHAR)
2534: IF (x_ptm_rec.attribute4 = OKL_API.G_MISS_CHAR)
2535: THEN
2536: x_ptm_rec.attribute4 := l_ptm_rec.attribute4;
2537: END IF;
2538: IF (x_ptm_rec.attribute5 = OKL_API.G_MISS_CHAR)
2539: THEN
2540: x_ptm_rec.attribute5 := l_ptm_rec.attribute5;
2541: END IF;
2542: IF (x_ptm_rec.attribute6 = OKL_API.G_MISS_CHAR)
2538: IF (x_ptm_rec.attribute5 = OKL_API.G_MISS_CHAR)
2539: THEN
2540: x_ptm_rec.attribute5 := l_ptm_rec.attribute5;
2541: END IF;
2542: IF (x_ptm_rec.attribute6 = OKL_API.G_MISS_CHAR)
2543: THEN
2544: x_ptm_rec.attribute6 := l_ptm_rec.attribute6;
2545: END IF;
2546: IF (x_ptm_rec.attribute7 = OKL_API.G_MISS_CHAR)
2542: IF (x_ptm_rec.attribute6 = OKL_API.G_MISS_CHAR)
2543: THEN
2544: x_ptm_rec.attribute6 := l_ptm_rec.attribute6;
2545: END IF;
2546: IF (x_ptm_rec.attribute7 = OKL_API.G_MISS_CHAR)
2547: THEN
2548: x_ptm_rec.attribute7 := l_ptm_rec.attribute7;
2549: END IF;
2550: IF (x_ptm_rec.attribute8 = OKL_API.G_MISS_CHAR)
2546: IF (x_ptm_rec.attribute7 = OKL_API.G_MISS_CHAR)
2547: THEN
2548: x_ptm_rec.attribute7 := l_ptm_rec.attribute7;
2549: END IF;
2550: IF (x_ptm_rec.attribute8 = OKL_API.G_MISS_CHAR)
2551: THEN
2552: x_ptm_rec.attribute8 := l_ptm_rec.attribute8;
2553: END IF;
2554: IF (x_ptm_rec.attribute9 = OKL_API.G_MISS_CHAR)
2550: IF (x_ptm_rec.attribute8 = OKL_API.G_MISS_CHAR)
2551: THEN
2552: x_ptm_rec.attribute8 := l_ptm_rec.attribute8;
2553: END IF;
2554: IF (x_ptm_rec.attribute9 = OKL_API.G_MISS_CHAR)
2555: THEN
2556: x_ptm_rec.attribute9 := l_ptm_rec.attribute9;
2557: END IF;
2558: IF (x_ptm_rec.attribute10 = OKL_API.G_MISS_CHAR)
2554: IF (x_ptm_rec.attribute9 = OKL_API.G_MISS_CHAR)
2555: THEN
2556: x_ptm_rec.attribute9 := l_ptm_rec.attribute9;
2557: END IF;
2558: IF (x_ptm_rec.attribute10 = OKL_API.G_MISS_CHAR)
2559: THEN
2560: x_ptm_rec.attribute10 := l_ptm_rec.attribute10;
2561: END IF;
2562: IF (x_ptm_rec.attribute11 = OKL_API.G_MISS_CHAR)
2558: IF (x_ptm_rec.attribute10 = OKL_API.G_MISS_CHAR)
2559: THEN
2560: x_ptm_rec.attribute10 := l_ptm_rec.attribute10;
2561: END IF;
2562: IF (x_ptm_rec.attribute11 = OKL_API.G_MISS_CHAR)
2563: THEN
2564: x_ptm_rec.attribute11 := l_ptm_rec.attribute11;
2565: END IF;
2566: IF (x_ptm_rec.attribute12 = OKL_API.G_MISS_CHAR)
2562: IF (x_ptm_rec.attribute11 = OKL_API.G_MISS_CHAR)
2563: THEN
2564: x_ptm_rec.attribute11 := l_ptm_rec.attribute11;
2565: END IF;
2566: IF (x_ptm_rec.attribute12 = OKL_API.G_MISS_CHAR)
2567: THEN
2568: x_ptm_rec.attribute12 := l_ptm_rec.attribute12;
2569: END IF;
2570: IF (x_ptm_rec.attribute13 = OKL_API.G_MISS_CHAR)
2566: IF (x_ptm_rec.attribute12 = OKL_API.G_MISS_CHAR)
2567: THEN
2568: x_ptm_rec.attribute12 := l_ptm_rec.attribute12;
2569: END IF;
2570: IF (x_ptm_rec.attribute13 = OKL_API.G_MISS_CHAR)
2571: THEN
2572: x_ptm_rec.attribute13 := l_ptm_rec.attribute13;
2573: END IF;
2574: IF (x_ptm_rec.attribute14 = OKL_API.G_MISS_CHAR)
2570: IF (x_ptm_rec.attribute13 = OKL_API.G_MISS_CHAR)
2571: THEN
2572: x_ptm_rec.attribute13 := l_ptm_rec.attribute13;
2573: END IF;
2574: IF (x_ptm_rec.attribute14 = OKL_API.G_MISS_CHAR)
2575: THEN
2576: x_ptm_rec.attribute14 := l_ptm_rec.attribute14;
2577: END IF;
2578: IF (x_ptm_rec.attribute15 = OKL_API.G_MISS_CHAR)
2574: IF (x_ptm_rec.attribute14 = OKL_API.G_MISS_CHAR)
2575: THEN
2576: x_ptm_rec.attribute14 := l_ptm_rec.attribute14;
2577: END IF;
2578: IF (x_ptm_rec.attribute15 = OKL_API.G_MISS_CHAR)
2579: THEN
2580: x_ptm_rec.attribute15 := l_ptm_rec.attribute15;
2581: END IF;
2582: IF (x_ptm_rec.created_by = OKL_API.G_MISS_NUM)
2578: IF (x_ptm_rec.attribute15 = OKL_API.G_MISS_CHAR)
2579: THEN
2580: x_ptm_rec.attribute15 := l_ptm_rec.attribute15;
2581: END IF;
2582: IF (x_ptm_rec.created_by = OKL_API.G_MISS_NUM)
2583: THEN
2584: x_ptm_rec.created_by := l_ptm_rec.created_by;
2585: END IF;
2586: IF (x_ptm_rec.creation_date = OKL_API.G_MISS_DATE)
2582: IF (x_ptm_rec.created_by = OKL_API.G_MISS_NUM)
2583: THEN
2584: x_ptm_rec.created_by := l_ptm_rec.created_by;
2585: END IF;
2586: IF (x_ptm_rec.creation_date = OKL_API.G_MISS_DATE)
2587: THEN
2588: x_ptm_rec.creation_date := l_ptm_rec.creation_date;
2589: END IF;
2590: IF (x_ptm_rec.last_updated_by = OKL_API.G_MISS_NUM)
2586: IF (x_ptm_rec.creation_date = OKL_API.G_MISS_DATE)
2587: THEN
2588: x_ptm_rec.creation_date := l_ptm_rec.creation_date;
2589: END IF;
2590: IF (x_ptm_rec.last_updated_by = OKL_API.G_MISS_NUM)
2591: THEN
2592: x_ptm_rec.last_updated_by := l_ptm_rec.last_updated_by;
2593: END IF;
2594: IF (x_ptm_rec.last_update_date = OKL_API.G_MISS_DATE)
2590: IF (x_ptm_rec.last_updated_by = OKL_API.G_MISS_NUM)
2591: THEN
2592: x_ptm_rec.last_updated_by := l_ptm_rec.last_updated_by;
2593: END IF;
2594: IF (x_ptm_rec.last_update_date = OKL_API.G_MISS_DATE)
2595: THEN
2596: x_ptm_rec.last_update_date := l_ptm_rec.last_update_date;
2597: END IF;
2598: IF (x_ptm_rec.last_update_login = OKL_API.G_MISS_NUM)
2594: IF (x_ptm_rec.last_update_date = OKL_API.G_MISS_DATE)
2595: THEN
2596: x_ptm_rec.last_update_date := l_ptm_rec.last_update_date;
2597: END IF;
2598: IF (x_ptm_rec.last_update_login = OKL_API.G_MISS_NUM)
2599: THEN
2600: x_ptm_rec.last_update_login := l_ptm_rec.last_update_login;
2601: END IF;
2602: /* 13-OCT-2006 ANSETHUR
2602: /* 13-OCT-2006 ANSETHUR
2603: BUILD : R12 B
2604: Start Changes
2605: */
2606: IF (x_ptm_rec.xml_tmplt_code = OKL_API.G_MISS_CHAR)
2607: THEN
2608: x_ptm_rec.xml_tmplt_code:= l_ptm_rec.xml_tmplt_code;
2609: END IF;
2610: IF (x_ptm_rec.recipient_type_Code = OKL_API.G_MISS_CHAR)
2606: IF (x_ptm_rec.xml_tmplt_code = OKL_API.G_MISS_CHAR)
2607: THEN
2608: x_ptm_rec.xml_tmplt_code:= l_ptm_rec.xml_tmplt_code;
2609: END IF;
2610: IF (x_ptm_rec.recipient_type_Code = OKL_API.G_MISS_CHAR)
2611: THEN
2612: x_ptm_rec.recipient_type_Code:= l_ptm_rec.recipient_type_Code;
2613: END IF;
2614: /* End Changes */
2620: ---------------------------------------------
2621: FUNCTION Set_Attributes (p_ptm_rec IN ptm_rec_type,
2622: x_ptm_rec OUT NOCOPY ptm_rec_type) RETURN VARCHAR2 IS
2623:
2624: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2625:
2626: BEGIN
2627: x_ptm_rec := p_ptm_rec;
2628: RETURN(l_return_status);
2629: END Set_Attributes;
2630:
2631: BEGIN
2632:
2633: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2634: p_init_msg_list,
2635: '_PVT',
2636: x_return_status);
2637:
2634: p_init_msg_list,
2635: '_PVT',
2636: x_return_status);
2637:
2638: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2639: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2640: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2641: RAISE OKL_API.G_EXCEPTION_ERROR;
2642: END IF;
2635: '_PVT',
2636: x_return_status);
2637:
2638: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2639: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2640: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2641: RAISE OKL_API.G_EXCEPTION_ERROR;
2642: END IF;
2643:
2636: x_return_status);
2637:
2638: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2639: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2640: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2641: RAISE OKL_API.G_EXCEPTION_ERROR;
2642: END IF;
2643:
2644: l_return_status := Set_Attributes(p_ptm_rec, l_ptm_rec);
2637:
2638: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2639: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2640: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2641: RAISE OKL_API.G_EXCEPTION_ERROR;
2642: END IF;
2643:
2644: l_return_status := Set_Attributes(p_ptm_rec, l_ptm_rec);
2645: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2641: RAISE OKL_API.G_EXCEPTION_ERROR;
2642: END IF;
2643:
2644: l_return_status := Set_Attributes(p_ptm_rec, l_ptm_rec);
2645: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2647: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2648: RAISE OKL_API.G_EXCEPTION_ERROR;
2649: END IF;
2642: END IF;
2643:
2644: l_return_status := Set_Attributes(p_ptm_rec, l_ptm_rec);
2645: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2647: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2648: RAISE OKL_API.G_EXCEPTION_ERROR;
2649: END IF;
2650:
2643:
2644: l_return_status := Set_Attributes(p_ptm_rec, l_ptm_rec);
2645: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2647: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2648: RAISE OKL_API.G_EXCEPTION_ERROR;
2649: END IF;
2650:
2651: l_return_status := populate_new_record(l_ptm_rec, l_def_ptm_rec);
2644: l_return_status := Set_Attributes(p_ptm_rec, l_ptm_rec);
2645: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2646: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2647: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2648: RAISE OKL_API.G_EXCEPTION_ERROR;
2649: END IF;
2650:
2651: l_return_status := populate_new_record(l_ptm_rec, l_def_ptm_rec);
2652: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2648: RAISE OKL_API.G_EXCEPTION_ERROR;
2649: END IF;
2650:
2651: l_return_status := populate_new_record(l_ptm_rec, l_def_ptm_rec);
2652: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2654: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2655: RAISE OKL_API.G_EXCEPTION_ERROR;
2656: END IF;
2649: END IF;
2650:
2651: l_return_status := populate_new_record(l_ptm_rec, l_def_ptm_rec);
2652: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2654: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2655: RAISE OKL_API.G_EXCEPTION_ERROR;
2656: END IF;
2657:
2650:
2651: l_return_status := populate_new_record(l_ptm_rec, l_def_ptm_rec);
2652: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2654: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2655: RAISE OKL_API.G_EXCEPTION_ERROR;
2656: END IF;
2657:
2658: UPDATE OKL_PROCESS_TMPLTS_B
2651: l_return_status := populate_new_record(l_ptm_rec, l_def_ptm_rec);
2652: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2653: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2654: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2655: RAISE OKL_API.G_EXCEPTION_ERROR;
2656: END IF;
2657:
2658: UPDATE OKL_PROCESS_TMPLTS_B
2659: SET ORG_ID = l_def_ptm_rec.org_id,
2694: WHERE ID = l_def_ptm_rec.id;
2695:
2696: x_ptm_rec := l_def_ptm_rec;
2697:
2698: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2699:
2700: EXCEPTION
2701: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2702: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2697:
2698: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2699:
2700: EXCEPTION
2701: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2702: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2703: (
2704: l_api_name,
2705: G_PKG_NAME,
2698: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2699:
2700: EXCEPTION
2701: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2702: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2703: (
2704: l_api_name,
2705: G_PKG_NAME,
2706: 'OKL_API.G_RET_STS_ERROR',
2702: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2703: (
2704: l_api_name,
2705: G_PKG_NAME,
2706: 'OKL_API.G_RET_STS_ERROR',
2707: x_msg_count,
2708: x_msg_data,
2709: '_PVT'
2710: );
2707: x_msg_count,
2708: x_msg_data,
2709: '_PVT'
2710: );
2711: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2712: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2713: (
2714: l_api_name,
2715: G_PKG_NAME,
2708: x_msg_data,
2709: '_PVT'
2710: );
2711: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2712: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2713: (
2714: l_api_name,
2715: G_PKG_NAME,
2716: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2712: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2713: (
2714: l_api_name,
2715: G_PKG_NAME,
2716: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2717: x_msg_count,
2718: x_msg_data,
2719: '_PVT'
2720: );
2718: x_msg_data,
2719: '_PVT'
2720: );
2721: WHEN OTHERS THEN
2722: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2723: (
2724: l_api_name,
2725: G_PKG_NAME,
2726: 'OTHERS',
2733: ------------------------------------------
2734: -- update_row for:OKL_PROCESS_TMPLTS_TL --
2735: ------------------------------------------
2736: PROCEDURE update_row(
2737: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2738: x_return_status OUT NOCOPY VARCHAR2,
2739: x_msg_count OUT NOCOPY NUMBER,
2740: x_msg_data OUT NOCOPY VARCHAR2,
2741: p_okl_process_tmplts_tl_rec IN okl_process_tmplts_tl_rec_type,
2742: x_okl_process_tmplts_tl_rec OUT NOCOPY okl_process_tmplts_tl_rec_type) IS
2743:
2744: l_api_version CONSTANT NUMBER := 1;
2745: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
2746: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2747: l_okl_process_tmplts_tl_rec okl_process_tmplts_tl_rec_type := p_okl_process_tmplts_tl_rec;
2748: ldefoklprocesstmpltstlrec okl_process_tmplts_tl_rec_type;
2749: l_row_notfound BOOLEAN := TRUE;
2750: ----------------------------------
2755: x_okl_process_tmplts_tl_rec OUT NOCOPY okl_process_tmplts_tl_rec_type
2756: ) RETURN VARCHAR2 IS
2757: l_okl_process_tmplts_tl_rec okl_process_tmplts_tl_rec_type;
2758: l_row_notfound BOOLEAN := TRUE;
2759: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2760: BEGIN
2761: x_okl_process_tmplts_tl_rec := p_okl_process_tmplts_tl_rec;
2762: -- Get current database values
2763: l_okl_process_tmplts_tl_rec := get_rec(p_okl_process_tmplts_tl_rec, l_row_notfound);
2761: x_okl_process_tmplts_tl_rec := p_okl_process_tmplts_tl_rec;
2762: -- Get current database values
2763: l_okl_process_tmplts_tl_rec := get_rec(p_okl_process_tmplts_tl_rec, l_row_notfound);
2764: IF (l_row_notfound) THEN
2765: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2766: END IF;
2767: IF (x_okl_process_tmplts_tl_rec.id = OKL_API.G_MISS_NUM)
2768: THEN
2769: x_okl_process_tmplts_tl_rec.id := l_okl_process_tmplts_tl_rec.id;
2763: l_okl_process_tmplts_tl_rec := get_rec(p_okl_process_tmplts_tl_rec, l_row_notfound);
2764: IF (l_row_notfound) THEN
2765: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2766: END IF;
2767: IF (x_okl_process_tmplts_tl_rec.id = OKL_API.G_MISS_NUM)
2768: THEN
2769: x_okl_process_tmplts_tl_rec.id := l_okl_process_tmplts_tl_rec.id;
2770: END IF;
2771: IF (x_okl_process_tmplts_tl_rec.LANGUAGE = OKL_API.G_MISS_CHAR)
2767: IF (x_okl_process_tmplts_tl_rec.id = OKL_API.G_MISS_NUM)
2768: THEN
2769: x_okl_process_tmplts_tl_rec.id := l_okl_process_tmplts_tl_rec.id;
2770: END IF;
2771: IF (x_okl_process_tmplts_tl_rec.LANGUAGE = OKL_API.G_MISS_CHAR)
2772: THEN
2773: x_okl_process_tmplts_tl_rec.LANGUAGE := l_okl_process_tmplts_tl_rec.LANGUAGE;
2774: END IF;
2775: IF (x_okl_process_tmplts_tl_rec.source_lang = OKL_API.G_MISS_CHAR)
2771: IF (x_okl_process_tmplts_tl_rec.LANGUAGE = OKL_API.G_MISS_CHAR)
2772: THEN
2773: x_okl_process_tmplts_tl_rec.LANGUAGE := l_okl_process_tmplts_tl_rec.LANGUAGE;
2774: END IF;
2775: IF (x_okl_process_tmplts_tl_rec.source_lang = OKL_API.G_MISS_CHAR)
2776: THEN
2777: x_okl_process_tmplts_tl_rec.source_lang := l_okl_process_tmplts_tl_rec.source_lang;
2778: END IF;
2779: IF (x_okl_process_tmplts_tl_rec.sfwt_flag = OKL_API.G_MISS_CHAR)
2775: IF (x_okl_process_tmplts_tl_rec.source_lang = OKL_API.G_MISS_CHAR)
2776: THEN
2777: x_okl_process_tmplts_tl_rec.source_lang := l_okl_process_tmplts_tl_rec.source_lang;
2778: END IF;
2779: IF (x_okl_process_tmplts_tl_rec.sfwt_flag = OKL_API.G_MISS_CHAR)
2780: THEN
2781: x_okl_process_tmplts_tl_rec.sfwt_flag := l_okl_process_tmplts_tl_rec.sfwt_flag;
2782: END IF;
2783: IF (x_okl_process_tmplts_tl_rec.email_subject_line = OKL_API.G_MISS_CHAR)
2779: IF (x_okl_process_tmplts_tl_rec.sfwt_flag = OKL_API.G_MISS_CHAR)
2780: THEN
2781: x_okl_process_tmplts_tl_rec.sfwt_flag := l_okl_process_tmplts_tl_rec.sfwt_flag;
2782: END IF;
2783: IF (x_okl_process_tmplts_tl_rec.email_subject_line = OKL_API.G_MISS_CHAR)
2784: THEN
2785: x_okl_process_tmplts_tl_rec.email_subject_line := l_okl_process_tmplts_tl_rec.email_subject_line;
2786: END IF;
2787: IF (x_okl_process_tmplts_tl_rec.created_by = OKL_API.G_MISS_NUM)
2783: IF (x_okl_process_tmplts_tl_rec.email_subject_line = OKL_API.G_MISS_CHAR)
2784: THEN
2785: x_okl_process_tmplts_tl_rec.email_subject_line := l_okl_process_tmplts_tl_rec.email_subject_line;
2786: END IF;
2787: IF (x_okl_process_tmplts_tl_rec.created_by = OKL_API.G_MISS_NUM)
2788: THEN
2789: x_okl_process_tmplts_tl_rec.created_by := l_okl_process_tmplts_tl_rec.created_by;
2790: END IF;
2791: IF (x_okl_process_tmplts_tl_rec.creation_date = OKL_API.G_MISS_DATE)
2787: IF (x_okl_process_tmplts_tl_rec.created_by = OKL_API.G_MISS_NUM)
2788: THEN
2789: x_okl_process_tmplts_tl_rec.created_by := l_okl_process_tmplts_tl_rec.created_by;
2790: END IF;
2791: IF (x_okl_process_tmplts_tl_rec.creation_date = OKL_API.G_MISS_DATE)
2792: THEN
2793: x_okl_process_tmplts_tl_rec.creation_date := l_okl_process_tmplts_tl_rec.creation_date;
2794: END IF;
2795: IF (x_okl_process_tmplts_tl_rec.last_updated_by = OKL_API.G_MISS_NUM)
2791: IF (x_okl_process_tmplts_tl_rec.creation_date = OKL_API.G_MISS_DATE)
2792: THEN
2793: x_okl_process_tmplts_tl_rec.creation_date := l_okl_process_tmplts_tl_rec.creation_date;
2794: END IF;
2795: IF (x_okl_process_tmplts_tl_rec.last_updated_by = OKL_API.G_MISS_NUM)
2796: THEN
2797: x_okl_process_tmplts_tl_rec.last_updated_by := l_okl_process_tmplts_tl_rec.last_updated_by;
2798: END IF;
2799: IF (x_okl_process_tmplts_tl_rec.last_update_date = OKL_API.G_MISS_DATE)
2795: IF (x_okl_process_tmplts_tl_rec.last_updated_by = OKL_API.G_MISS_NUM)
2796: THEN
2797: x_okl_process_tmplts_tl_rec.last_updated_by := l_okl_process_tmplts_tl_rec.last_updated_by;
2798: END IF;
2799: IF (x_okl_process_tmplts_tl_rec.last_update_date = OKL_API.G_MISS_DATE)
2800: THEN
2801: x_okl_process_tmplts_tl_rec.last_update_date := l_okl_process_tmplts_tl_rec.last_update_date;
2802: END IF;
2803: IF (x_okl_process_tmplts_tl_rec.last_update_login = OKL_API.G_MISS_NUM)
2799: IF (x_okl_process_tmplts_tl_rec.last_update_date = OKL_API.G_MISS_DATE)
2800: THEN
2801: x_okl_process_tmplts_tl_rec.last_update_date := l_okl_process_tmplts_tl_rec.last_update_date;
2802: END IF;
2803: IF (x_okl_process_tmplts_tl_rec.last_update_login = OKL_API.G_MISS_NUM)
2804: THEN
2805: x_okl_process_tmplts_tl_rec.last_update_login := l_okl_process_tmplts_tl_rec.last_update_login;
2806: END IF;
2807: RETURN(l_return_status);
2812: FUNCTION Set_Attributes (
2813: p_okl_process_tmplts_tl_rec IN okl_process_tmplts_tl_rec_type,
2814: x_okl_process_tmplts_tl_rec OUT NOCOPY okl_process_tmplts_tl_rec_type
2815: ) RETURN VARCHAR2 IS
2816: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2817: BEGIN
2818: x_okl_process_tmplts_tl_rec := p_okl_process_tmplts_tl_rec;
2819: x_okl_process_tmplts_tl_rec.LANGUAGE := USERENV('LANG');
2820: x_okl_process_tmplts_tl_rec.SOURCE_LANG := USERENV('LANG');
2820: x_okl_process_tmplts_tl_rec.SOURCE_LANG := USERENV('LANG');
2821: RETURN(l_return_status);
2822: END Set_Attributes;
2823: BEGIN
2824: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2825: p_init_msg_list,
2826: '_PVT',
2827: x_return_status);
2828: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2824: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2825: p_init_msg_list,
2826: '_PVT',
2827: x_return_status);
2828: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2830: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2831: RAISE OKL_API.G_EXCEPTION_ERROR;
2832: END IF;
2825: p_init_msg_list,
2826: '_PVT',
2827: x_return_status);
2828: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2830: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2831: RAISE OKL_API.G_EXCEPTION_ERROR;
2832: END IF;
2833: --- Setting item attributes
2826: '_PVT',
2827: x_return_status);
2828: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2830: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2831: RAISE OKL_API.G_EXCEPTION_ERROR;
2832: END IF;
2833: --- Setting item attributes
2834: l_return_status := Set_Attributes(
2827: x_return_status);
2828: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2829: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2830: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2831: RAISE OKL_API.G_EXCEPTION_ERROR;
2832: END IF;
2833: --- Setting item attributes
2834: l_return_status := Set_Attributes(
2835: p_okl_process_tmplts_tl_rec, -- IN
2834: l_return_status := Set_Attributes(
2835: p_okl_process_tmplts_tl_rec, -- IN
2836: l_okl_process_tmplts_tl_rec); -- OUT
2837: --- If any errors happen abort API
2838: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2839: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2840: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2841: RAISE OKL_API.G_EXCEPTION_ERROR;
2842: END IF;
2835: p_okl_process_tmplts_tl_rec, -- IN
2836: l_okl_process_tmplts_tl_rec); -- OUT
2837: --- If any errors happen abort API
2838: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2839: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2840: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2841: RAISE OKL_API.G_EXCEPTION_ERROR;
2842: END IF;
2843: l_return_status := populate_new_record(l_okl_process_tmplts_tl_rec, ldefoklprocesstmpltstlrec);
2836: l_okl_process_tmplts_tl_rec); -- OUT
2837: --- If any errors happen abort API
2838: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2839: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2840: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2841: RAISE OKL_API.G_EXCEPTION_ERROR;
2842: END IF;
2843: l_return_status := populate_new_record(l_okl_process_tmplts_tl_rec, ldefoklprocesstmpltstlrec);
2844: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2837: --- If any errors happen abort API
2838: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2839: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2840: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2841: RAISE OKL_API.G_EXCEPTION_ERROR;
2842: END IF;
2843: l_return_status := populate_new_record(l_okl_process_tmplts_tl_rec, ldefoklprocesstmpltstlrec);
2844: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2845: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2840: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2841: RAISE OKL_API.G_EXCEPTION_ERROR;
2842: END IF;
2843: l_return_status := populate_new_record(l_okl_process_tmplts_tl_rec, ldefoklprocesstmpltstlrec);
2844: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2845: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2846: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2847: RAISE OKL_API.G_EXCEPTION_ERROR;
2848: END IF;
2841: RAISE OKL_API.G_EXCEPTION_ERROR;
2842: END IF;
2843: l_return_status := populate_new_record(l_okl_process_tmplts_tl_rec, ldefoklprocesstmpltstlrec);
2844: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2845: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2846: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2847: RAISE OKL_API.G_EXCEPTION_ERROR;
2848: END IF;
2849: UPDATE OKL_PROCESS_TMPLTS_TL
2842: END IF;
2843: l_return_status := populate_new_record(l_okl_process_tmplts_tl_rec, ldefoklprocesstmpltstlrec);
2844: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2845: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2846: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2847: RAISE OKL_API.G_EXCEPTION_ERROR;
2848: END IF;
2849: UPDATE OKL_PROCESS_TMPLTS_TL
2850: SET EMAIL_SUBJECT_LINE = ldefoklprocesstmpltstlrec.email_subject_line,
2843: l_return_status := populate_new_record(l_okl_process_tmplts_tl_rec, ldefoklprocesstmpltstlrec);
2844: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2845: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2846: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2847: RAISE OKL_API.G_EXCEPTION_ERROR;
2848: END IF;
2849: UPDATE OKL_PROCESS_TMPLTS_TL
2850: SET EMAIL_SUBJECT_LINE = ldefoklprocesstmpltstlrec.email_subject_line,
2851: SOURCE_LANG = ldefoklprocesstmpltstlrec.source_lang, --Fix for bug 3637102
2863: WHERE ID = ldefoklprocesstmpltstlrec.id
2864: AND SOURCE_LANG <> USERENV('LANG');
2865:
2866: x_okl_process_tmplts_tl_rec := ldefoklprocesstmpltstlrec;
2867: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2868:
2869: EXCEPTION
2870:
2871: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2867: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2868:
2869: EXCEPTION
2870:
2871: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2872: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2873: (
2874: l_api_name,
2875: G_PKG_NAME,
2868:
2869: EXCEPTION
2870:
2871: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2872: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2873: (
2874: l_api_name,
2875: G_PKG_NAME,
2876: 'OKL_API.G_RET_STS_ERROR',
2872: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2873: (
2874: l_api_name,
2875: G_PKG_NAME,
2876: 'OKL_API.G_RET_STS_ERROR',
2877: x_msg_count,
2878: x_msg_data,
2879: '_PVT'
2880: );
2877: x_msg_count,
2878: x_msg_data,
2879: '_PVT'
2880: );
2881: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2882: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2883: (
2884: l_api_name,
2885: G_PKG_NAME,
2878: x_msg_data,
2879: '_PVT'
2880: );
2881: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2882: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2883: (
2884: l_api_name,
2885: G_PKG_NAME,
2886: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2882: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2883: (
2884: l_api_name,
2885: G_PKG_NAME,
2886: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2887: x_msg_count,
2888: x_msg_data,
2889: '_PVT'
2890: );
2888: x_msg_data,
2889: '_PVT'
2890: );
2891: WHEN OTHERS THEN
2892: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
2893: (
2894: l_api_name,
2895: G_PKG_NAME,
2896: 'OTHERS',
2905: -- update_row for:okl_process_tmplts_v --
2906: -----------------------------------------
2907: PROCEDURE update_row(
2908: p_api_version IN NUMBER,
2909: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2910: x_return_status OUT NOCOPY VARCHAR2,
2911: x_msg_count OUT NOCOPY NUMBER,
2912: x_msg_data OUT NOCOPY VARCHAR2,
2913: p_ptmv_rec IN ptmv_rec_type,
2914: x_ptmv_rec OUT NOCOPY ptmv_rec_type) IS
2915:
2916: l_api_version CONSTANT NUMBER := 1;
2917: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
2918: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2919: l_ptmv_rec ptmv_rec_type := p_ptmv_rec;
2920: l_def_ptmv_rec ptmv_rec_type;
2921: l_okl_process_tmplts_tl_rec okl_process_tmplts_tl_rec_type;
2922: lx_okl_process_tmplts_tl_rec okl_process_tmplts_tl_rec_type;
2943: x_ptmv_rec OUT NOCOPY ptmv_rec_type
2944: ) RETURN VARCHAR2 IS
2945: l_ptmv_rec ptmv_rec_type;
2946: l_row_notfound BOOLEAN := TRUE;
2947: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2948:
2949: BEGIN
2950:
2951: x_ptmv_rec := p_ptmv_rec;
2952: -- Get current database values
2953: l_ptmv_rec := get_rec(p_ptmv_rec, l_row_notfound);
2954:
2955: IF (l_row_notfound) THEN
2956: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2957: RETURN(l_return_status);
2958: END IF;
2959: IF (x_ptmv_rec.org_id = OKL_API.G_MISS_NUM)
2960: THEN
2955: IF (l_row_notfound) THEN
2956: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
2957: RETURN(l_return_status);
2958: END IF;
2959: IF (x_ptmv_rec.org_id = OKL_API.G_MISS_NUM)
2960: THEN
2961: x_ptmv_rec.org_id := l_ptmv_rec.org_id;
2962: END IF;
2963: IF (x_ptmv_rec.ptm_code = OKL_API.G_MISS_CHAR)
2959: IF (x_ptmv_rec.org_id = OKL_API.G_MISS_NUM)
2960: THEN
2961: x_ptmv_rec.org_id := l_ptmv_rec.org_id;
2962: END IF;
2963: IF (x_ptmv_rec.ptm_code = OKL_API.G_MISS_CHAR)
2964: THEN
2965: x_ptmv_rec.ptm_code := l_ptmv_rec.ptm_code;
2966: END IF;
2967: IF (x_ptmv_rec.jtf_amv_item_id = OKL_API.G_MISS_NUM)
2963: IF (x_ptmv_rec.ptm_code = OKL_API.G_MISS_CHAR)
2964: THEN
2965: x_ptmv_rec.ptm_code := l_ptmv_rec.ptm_code;
2966: END IF;
2967: IF (x_ptmv_rec.jtf_amv_item_id = OKL_API.G_MISS_NUM)
2968: THEN
2969: x_ptmv_rec.jtf_amv_item_id := l_ptmv_rec.jtf_amv_item_id;
2970: END IF;
2971: IF (x_ptmv_rec.sfwt_flag = OKL_API.G_MISS_CHAR)
2967: IF (x_ptmv_rec.jtf_amv_item_id = OKL_API.G_MISS_NUM)
2968: THEN
2969: x_ptmv_rec.jtf_amv_item_id := l_ptmv_rec.jtf_amv_item_id;
2970: END IF;
2971: IF (x_ptmv_rec.sfwt_flag = OKL_API.G_MISS_CHAR)
2972: THEN
2973: x_ptmv_rec.sfwt_flag := l_ptmv_rec.sfwt_flag;
2974: END IF;
2975: IF (x_ptmv_rec.email_subject_line = OKL_API.G_MISS_CHAR)
2971: IF (x_ptmv_rec.sfwt_flag = OKL_API.G_MISS_CHAR)
2972: THEN
2973: x_ptmv_rec.sfwt_flag := l_ptmv_rec.sfwt_flag;
2974: END IF;
2975: IF (x_ptmv_rec.email_subject_line = OKL_API.G_MISS_CHAR)
2976: THEN
2977: x_ptmv_rec.email_subject_line := l_ptmv_rec.email_subject_line;
2978: END IF;
2979: IF (x_ptmv_rec.start_date = OKL_API.G_MISS_DATE)
2975: IF (x_ptmv_rec.email_subject_line = OKL_API.G_MISS_CHAR)
2976: THEN
2977: x_ptmv_rec.email_subject_line := l_ptmv_rec.email_subject_line;
2978: END IF;
2979: IF (x_ptmv_rec.start_date = OKL_API.G_MISS_DATE)
2980: THEN
2981: x_ptmv_rec.start_date := l_ptmv_rec.start_date;
2982: END IF;
2983: IF (x_ptmv_rec.end_date = OKL_API.G_MISS_DATE)
2979: IF (x_ptmv_rec.start_date = OKL_API.G_MISS_DATE)
2980: THEN
2981: x_ptmv_rec.start_date := l_ptmv_rec.start_date;
2982: END IF;
2983: IF (x_ptmv_rec.end_date = OKL_API.G_MISS_DATE)
2984: THEN
2985: x_ptmv_rec.end_date := l_ptmv_rec.end_date;
2986: END IF;
2987: IF (x_ptmv_rec.attribute_category = OKL_API.G_MISS_CHAR)
2983: IF (x_ptmv_rec.end_date = OKL_API.G_MISS_DATE)
2984: THEN
2985: x_ptmv_rec.end_date := l_ptmv_rec.end_date;
2986: END IF;
2987: IF (x_ptmv_rec.attribute_category = OKL_API.G_MISS_CHAR)
2988: THEN
2989: x_ptmv_rec.attribute_category := l_ptmv_rec.attribute_category;
2990: END IF;
2991: IF (x_ptmv_rec.attribute1 = OKL_API.G_MISS_CHAR)
2987: IF (x_ptmv_rec.attribute_category = OKL_API.G_MISS_CHAR)
2988: THEN
2989: x_ptmv_rec.attribute_category := l_ptmv_rec.attribute_category;
2990: END IF;
2991: IF (x_ptmv_rec.attribute1 = OKL_API.G_MISS_CHAR)
2992: THEN
2993: x_ptmv_rec.attribute1 := l_ptmv_rec.attribute1;
2994: END IF;
2995: IF (x_ptmv_rec.attribute2 = OKL_API.G_MISS_CHAR)
2991: IF (x_ptmv_rec.attribute1 = OKL_API.G_MISS_CHAR)
2992: THEN
2993: x_ptmv_rec.attribute1 := l_ptmv_rec.attribute1;
2994: END IF;
2995: IF (x_ptmv_rec.attribute2 = OKL_API.G_MISS_CHAR)
2996: THEN
2997: x_ptmv_rec.attribute2 := l_ptmv_rec.attribute2;
2998: END IF;
2999: IF (x_ptmv_rec.attribute3 = OKL_API.G_MISS_CHAR)
2995: IF (x_ptmv_rec.attribute2 = OKL_API.G_MISS_CHAR)
2996: THEN
2997: x_ptmv_rec.attribute2 := l_ptmv_rec.attribute2;
2998: END IF;
2999: IF (x_ptmv_rec.attribute3 = OKL_API.G_MISS_CHAR)
3000: THEN
3001: x_ptmv_rec.attribute3 := l_ptmv_rec.attribute3;
3002: END IF;
3003: IF (x_ptmv_rec.attribute4 = OKL_API.G_MISS_CHAR)
2999: IF (x_ptmv_rec.attribute3 = OKL_API.G_MISS_CHAR)
3000: THEN
3001: x_ptmv_rec.attribute3 := l_ptmv_rec.attribute3;
3002: END IF;
3003: IF (x_ptmv_rec.attribute4 = OKL_API.G_MISS_CHAR)
3004: THEN
3005: x_ptmv_rec.attribute4 := l_ptmv_rec.attribute4;
3006: END IF;
3007: IF (x_ptmv_rec.attribute5 = OKL_API.G_MISS_CHAR)
3003: IF (x_ptmv_rec.attribute4 = OKL_API.G_MISS_CHAR)
3004: THEN
3005: x_ptmv_rec.attribute4 := l_ptmv_rec.attribute4;
3006: END IF;
3007: IF (x_ptmv_rec.attribute5 = OKL_API.G_MISS_CHAR)
3008: THEN
3009: x_ptmv_rec.attribute5 := l_ptmv_rec.attribute5;
3010: END IF;
3011: IF (x_ptmv_rec.attribute6 = OKL_API.G_MISS_CHAR)
3007: IF (x_ptmv_rec.attribute5 = OKL_API.G_MISS_CHAR)
3008: THEN
3009: x_ptmv_rec.attribute5 := l_ptmv_rec.attribute5;
3010: END IF;
3011: IF (x_ptmv_rec.attribute6 = OKL_API.G_MISS_CHAR)
3012: THEN
3013: x_ptmv_rec.attribute6 := l_ptmv_rec.attribute6;
3014: END IF;
3015: IF (x_ptmv_rec.attribute7 = OKL_API.G_MISS_CHAR)
3011: IF (x_ptmv_rec.attribute6 = OKL_API.G_MISS_CHAR)
3012: THEN
3013: x_ptmv_rec.attribute6 := l_ptmv_rec.attribute6;
3014: END IF;
3015: IF (x_ptmv_rec.attribute7 = OKL_API.G_MISS_CHAR)
3016: THEN
3017: x_ptmv_rec.attribute7 := l_ptmv_rec.attribute7;
3018: END IF;
3019: IF (x_ptmv_rec.attribute8 = OKL_API.G_MISS_CHAR)
3015: IF (x_ptmv_rec.attribute7 = OKL_API.G_MISS_CHAR)
3016: THEN
3017: x_ptmv_rec.attribute7 := l_ptmv_rec.attribute7;
3018: END IF;
3019: IF (x_ptmv_rec.attribute8 = OKL_API.G_MISS_CHAR)
3020: THEN
3021: x_ptmv_rec.attribute8 := l_ptmv_rec.attribute8;
3022: END IF;
3023: IF (x_ptmv_rec.attribute9 = OKL_API.G_MISS_CHAR)
3019: IF (x_ptmv_rec.attribute8 = OKL_API.G_MISS_CHAR)
3020: THEN
3021: x_ptmv_rec.attribute8 := l_ptmv_rec.attribute8;
3022: END IF;
3023: IF (x_ptmv_rec.attribute9 = OKL_API.G_MISS_CHAR)
3024: THEN
3025: x_ptmv_rec.attribute9 := l_ptmv_rec.attribute9;
3026: END IF;
3027: IF (x_ptmv_rec.attribute10 = OKL_API.G_MISS_CHAR)
3023: IF (x_ptmv_rec.attribute9 = OKL_API.G_MISS_CHAR)
3024: THEN
3025: x_ptmv_rec.attribute9 := l_ptmv_rec.attribute9;
3026: END IF;
3027: IF (x_ptmv_rec.attribute10 = OKL_API.G_MISS_CHAR)
3028: THEN
3029: x_ptmv_rec.attribute10 := l_ptmv_rec.attribute10;
3030: END IF;
3031: IF (x_ptmv_rec.attribute11 = OKL_API.G_MISS_CHAR)
3027: IF (x_ptmv_rec.attribute10 = OKL_API.G_MISS_CHAR)
3028: THEN
3029: x_ptmv_rec.attribute10 := l_ptmv_rec.attribute10;
3030: END IF;
3031: IF (x_ptmv_rec.attribute11 = OKL_API.G_MISS_CHAR)
3032: THEN
3033: x_ptmv_rec.attribute11 := l_ptmv_rec.attribute11;
3034: END IF;
3035: IF (x_ptmv_rec.attribute12 = OKL_API.G_MISS_CHAR)
3031: IF (x_ptmv_rec.attribute11 = OKL_API.G_MISS_CHAR)
3032: THEN
3033: x_ptmv_rec.attribute11 := l_ptmv_rec.attribute11;
3034: END IF;
3035: IF (x_ptmv_rec.attribute12 = OKL_API.G_MISS_CHAR)
3036: THEN
3037: x_ptmv_rec.attribute12 := l_ptmv_rec.attribute12;
3038: END IF;
3039: IF (x_ptmv_rec.attribute13 = OKL_API.G_MISS_CHAR)
3035: IF (x_ptmv_rec.attribute12 = OKL_API.G_MISS_CHAR)
3036: THEN
3037: x_ptmv_rec.attribute12 := l_ptmv_rec.attribute12;
3038: END IF;
3039: IF (x_ptmv_rec.attribute13 = OKL_API.G_MISS_CHAR)
3040: THEN
3041: x_ptmv_rec.attribute13 := l_ptmv_rec.attribute13;
3042: END IF;
3043: IF (x_ptmv_rec.attribute14 = OKL_API.G_MISS_CHAR)
3039: IF (x_ptmv_rec.attribute13 = OKL_API.G_MISS_CHAR)
3040: THEN
3041: x_ptmv_rec.attribute13 := l_ptmv_rec.attribute13;
3042: END IF;
3043: IF (x_ptmv_rec.attribute14 = OKL_API.G_MISS_CHAR)
3044: THEN
3045: x_ptmv_rec.attribute14 := l_ptmv_rec.attribute14;
3046: END IF;
3047: IF (x_ptmv_rec.attribute15 = OKL_API.G_MISS_CHAR)
3043: IF (x_ptmv_rec.attribute14 = OKL_API.G_MISS_CHAR)
3044: THEN
3045: x_ptmv_rec.attribute14 := l_ptmv_rec.attribute14;
3046: END IF;
3047: IF (x_ptmv_rec.attribute15 = OKL_API.G_MISS_CHAR)
3048: THEN
3049: x_ptmv_rec.attribute15 := l_ptmv_rec.attribute15;
3050: END IF;
3051: IF (x_ptmv_rec.created_by = OKL_API.G_MISS_NUM)
3047: IF (x_ptmv_rec.attribute15 = OKL_API.G_MISS_CHAR)
3048: THEN
3049: x_ptmv_rec.attribute15 := l_ptmv_rec.attribute15;
3050: END IF;
3051: IF (x_ptmv_rec.created_by = OKL_API.G_MISS_NUM)
3052: THEN
3053: x_ptmv_rec.created_by := l_ptmv_rec.created_by;
3054: END IF;
3055: IF (x_ptmv_rec.creation_date = OKL_API.G_MISS_DATE)
3051: IF (x_ptmv_rec.created_by = OKL_API.G_MISS_NUM)
3052: THEN
3053: x_ptmv_rec.created_by := l_ptmv_rec.created_by;
3054: END IF;
3055: IF (x_ptmv_rec.creation_date = OKL_API.G_MISS_DATE)
3056: THEN
3057: x_ptmv_rec.creation_date := l_ptmv_rec.creation_date;
3058: END IF;
3059: IF (x_ptmv_rec.last_updated_by = OKL_API.G_MISS_NUM)
3055: IF (x_ptmv_rec.creation_date = OKL_API.G_MISS_DATE)
3056: THEN
3057: x_ptmv_rec.creation_date := l_ptmv_rec.creation_date;
3058: END IF;
3059: IF (x_ptmv_rec.last_updated_by = OKL_API.G_MISS_NUM)
3060: THEN
3061: x_ptmv_rec.last_updated_by := l_ptmv_rec.last_updated_by;
3062: END IF;
3063: IF (x_ptmv_rec.last_update_date = OKL_API.G_MISS_DATE)
3059: IF (x_ptmv_rec.last_updated_by = OKL_API.G_MISS_NUM)
3060: THEN
3061: x_ptmv_rec.last_updated_by := l_ptmv_rec.last_updated_by;
3062: END IF;
3063: IF (x_ptmv_rec.last_update_date = OKL_API.G_MISS_DATE)
3064: THEN
3065: x_ptmv_rec.last_update_date := l_ptmv_rec.last_update_date;
3066: END IF;
3067: IF (x_ptmv_rec.last_update_login = OKL_API.G_MISS_NUM)
3063: IF (x_ptmv_rec.last_update_date = OKL_API.G_MISS_DATE)
3064: THEN
3065: x_ptmv_rec.last_update_date := l_ptmv_rec.last_update_date;
3066: END IF;
3067: IF (x_ptmv_rec.last_update_login = OKL_API.G_MISS_NUM)
3068: THEN
3069: x_ptmv_rec.last_update_login := l_ptmv_rec.last_update_login;
3070: END IF;
3071: /* 13-OCT-2006 ANSETHUR
3071: /* 13-OCT-2006 ANSETHUR
3072: BUILD : R12 B
3073: Start Changes
3074: */
3075: IF (x_ptmv_rec.xml_tmplt_code = OKL_API.G_MISS_CHAR)
3076: THEN
3077: x_ptmv_rec.xml_tmplt_code:= l_ptmv_rec.xml_tmplt_code;
3078: END IF;
3079: IF (x_ptmv_rec.recipient_type_Code = OKL_API.G_MISS_CHAR)
3075: IF (x_ptmv_rec.xml_tmplt_code = OKL_API.G_MISS_CHAR)
3076: THEN
3077: x_ptmv_rec.xml_tmplt_code:= l_ptmv_rec.xml_tmplt_code;
3078: END IF;
3079: IF (x_ptmv_rec.recipient_type_Code = OKL_API.G_MISS_CHAR)
3080: THEN
3081: x_ptmv_rec.recipient_type_Code:= l_ptmv_rec.recipient_type_Code;
3082: END IF;
3083: /* End Changes */
3088: ---------------------------------------------
3089: FUNCTION Set_Attributes (p_ptmv_rec IN ptmv_rec_type,
3090: x_ptmv_rec OUT NOCOPY ptmv_rec_type) RETURN VARCHAR2 IS
3091:
3092: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3093: l_org_id hr_operating_units.organization_id%TYPE;
3094:
3095: BEGIN
3096: x_ptmv_rec := p_ptmv_rec;
3107: END Set_Attributes;
3108:
3109: BEGIN
3110:
3111: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3112: G_PKG_NAME,
3113: p_init_msg_list,
3114: l_api_version,
3115: p_api_version,
3115: p_api_version,
3116: '_PVT',
3117: x_return_status);
3118:
3119: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3120: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3121: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3122: RAISE OKL_API.G_EXCEPTION_ERROR;
3123: END IF;
3116: '_PVT',
3117: x_return_status);
3118:
3119: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3120: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3121: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3122: RAISE OKL_API.G_EXCEPTION_ERROR;
3123: END IF;
3124:
3117: x_return_status);
3118:
3119: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3120: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3121: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3122: RAISE OKL_API.G_EXCEPTION_ERROR;
3123: END IF;
3124:
3125: l_return_status := Set_Attributes(p_ptmv_rec, l_ptmv_rec);
3118:
3119: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3120: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3121: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3122: RAISE OKL_API.G_EXCEPTION_ERROR;
3123: END IF;
3124:
3125: l_return_status := Set_Attributes(p_ptmv_rec, l_ptmv_rec);
3126:
3123: END IF;
3124:
3125: l_return_status := Set_Attributes(p_ptmv_rec, l_ptmv_rec);
3126:
3127: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3128: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3129: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3130: RAISE OKL_API.G_EXCEPTION_ERROR;
3131: END IF;
3124:
3125: l_return_status := Set_Attributes(p_ptmv_rec, l_ptmv_rec);
3126:
3127: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3128: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3129: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3130: RAISE OKL_API.G_EXCEPTION_ERROR;
3131: END IF;
3132:
3125: l_return_status := Set_Attributes(p_ptmv_rec, l_ptmv_rec);
3126:
3127: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3128: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3129: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3130: RAISE OKL_API.G_EXCEPTION_ERROR;
3131: END IF;
3132:
3133: l_return_status := populate_new_record(l_ptmv_rec, l_def_ptmv_rec);
3126:
3127: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3128: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3129: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3130: RAISE OKL_API.G_EXCEPTION_ERROR;
3131: END IF;
3132:
3133: l_return_status := populate_new_record(l_ptmv_rec, l_def_ptmv_rec);
3134:
3131: END IF;
3132:
3133: l_return_status := populate_new_record(l_ptmv_rec, l_def_ptmv_rec);
3134:
3135: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3137: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3138: RAISE OKL_API.G_EXCEPTION_ERROR;
3139: END IF;
3132:
3133: l_return_status := populate_new_record(l_ptmv_rec, l_def_ptmv_rec);
3134:
3135: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3137: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3138: RAISE OKL_API.G_EXCEPTION_ERROR;
3139: END IF;
3140:
3133: l_return_status := populate_new_record(l_ptmv_rec, l_def_ptmv_rec);
3134:
3135: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3137: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3138: RAISE OKL_API.G_EXCEPTION_ERROR;
3139: END IF;
3140:
3141: l_def_ptmv_rec := fill_who_columns(l_def_ptmv_rec);
3134:
3135: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3136: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3137: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3138: RAISE OKL_API.G_EXCEPTION_ERROR;
3139: END IF;
3140:
3141: l_def_ptmv_rec := fill_who_columns(l_def_ptmv_rec);
3142:
3141: l_def_ptmv_rec := fill_who_columns(l_def_ptmv_rec);
3142:
3143: l_return_status := Validate_Attributes(l_def_ptmv_rec);
3144:
3145: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3148: RAISE OKL_API.G_EXCEPTION_ERROR;
3149: END IF;
3142:
3143: l_return_status := Validate_Attributes(l_def_ptmv_rec);
3144:
3145: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3148: RAISE OKL_API.G_EXCEPTION_ERROR;
3149: END IF;
3150:
3143: l_return_status := Validate_Attributes(l_def_ptmv_rec);
3144:
3145: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3148: RAISE OKL_API.G_EXCEPTION_ERROR;
3149: END IF;
3150:
3151: /* 13-OCT-2006 ANSETHUR
3144:
3145: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3146: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3148: RAISE OKL_API.G_EXCEPTION_ERROR;
3149: END IF;
3150:
3151: /* 13-OCT-2006 ANSETHUR
3152: BUILD : R12 B
3155: -- l_return_status := Validate_Record(l_def_ptmv_rec);
3156: Validate_tmplt_record( l_def_ptmv_rec , l_return_status );
3157: /* End Changes */
3158:
3159: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3161: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3162: RAISE OKL_API.G_EXCEPTION_ERROR;
3163: END IF;
3156: Validate_tmplt_record( l_def_ptmv_rec , l_return_status );
3157: /* End Changes */
3158:
3159: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3161: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3162: RAISE OKL_API.G_EXCEPTION_ERROR;
3163: END IF;
3164:
3157: /* End Changes */
3158:
3159: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3161: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3162: RAISE OKL_API.G_EXCEPTION_ERROR;
3163: END IF;
3164:
3165: --------------------------------------
3158:
3159: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3160: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3161: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3162: RAISE OKL_API.G_EXCEPTION_ERROR;
3163: END IF;
3164:
3165: --------------------------------------
3166: -- Move VIEW record to "Child" records
3176: x_msg_data,
3177: l_okl_process_tmplts_tl_rec,
3178: lx_okl_process_tmplts_tl_rec);
3179:
3180: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3182: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3183: RAISE OKL_API.G_EXCEPTION_ERROR;
3184: END IF;
3177: l_okl_process_tmplts_tl_rec,
3178: lx_okl_process_tmplts_tl_rec);
3179:
3180: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3182: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3183: RAISE OKL_API.G_EXCEPTION_ERROR;
3184: END IF;
3185:
3178: lx_okl_process_tmplts_tl_rec);
3179:
3180: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3182: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3183: RAISE OKL_API.G_EXCEPTION_ERROR;
3184: END IF;
3185:
3186: migrate(lx_okl_process_tmplts_tl_rec, l_def_ptmv_rec);
3179:
3180: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3181: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3182: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3183: RAISE OKL_API.G_EXCEPTION_ERROR;
3184: END IF;
3185:
3186: migrate(lx_okl_process_tmplts_tl_rec, l_def_ptmv_rec);
3187:
3191: x_msg_data,
3192: l_ptm_rec,
3193: lx_ptm_rec);
3194:
3195: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3197: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3198: RAISE OKL_API.G_EXCEPTION_ERROR;
3199: END IF;
3192: l_ptm_rec,
3193: lx_ptm_rec);
3194:
3195: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3197: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3198: RAISE OKL_API.G_EXCEPTION_ERROR;
3199: END IF;
3200:
3193: lx_ptm_rec);
3194:
3195: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3197: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3198: RAISE OKL_API.G_EXCEPTION_ERROR;
3199: END IF;
3200:
3201: migrate(lx_ptm_rec, l_def_ptmv_rec);
3194:
3195: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3196: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3197: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3198: RAISE OKL_API.G_EXCEPTION_ERROR;
3199: END IF;
3200:
3201: migrate(lx_ptm_rec, l_def_ptmv_rec);
3202: x_ptmv_rec := l_def_ptmv_rec;
3200:
3201: migrate(lx_ptm_rec, l_def_ptmv_rec);
3202: x_ptmv_rec := l_def_ptmv_rec;
3203:
3204: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3205:
3206: EXCEPTION
3207: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3208: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3203:
3204: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3205:
3206: EXCEPTION
3207: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3208: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3209: (
3210: l_api_name,
3211: G_PKG_NAME,
3204: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3205:
3206: EXCEPTION
3207: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3208: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3209: (
3210: l_api_name,
3211: G_PKG_NAME,
3212: 'OKL_API.G_RET_STS_ERROR',
3208: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3209: (
3210: l_api_name,
3211: G_PKG_NAME,
3212: 'OKL_API.G_RET_STS_ERROR',
3213: x_msg_count,
3214: x_msg_data,
3215: '_PVT'
3216: );
3213: x_msg_count,
3214: x_msg_data,
3215: '_PVT'
3216: );
3217: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3218: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3219: (
3220: l_api_name,
3221: G_PKG_NAME,
3214: x_msg_data,
3215: '_PVT'
3216: );
3217: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3218: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3219: (
3220: l_api_name,
3221: G_PKG_NAME,
3222: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3218: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3219: (
3220: l_api_name,
3221: G_PKG_NAME,
3222: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3223: x_msg_count,
3224: x_msg_data,
3225: '_PVT'
3226: );
3224: x_msg_data,
3225: '_PVT'
3226: );
3227: WHEN OTHERS THEN
3228: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3229: (
3230: l_api_name,
3231: G_PKG_NAME,
3232: 'OTHERS',
3241: -- PL/SQL TBL update_row for:PTMV_TBL --
3242: ----------------------------------------
3243: PROCEDURE update_row(
3244: p_api_version IN NUMBER,
3245: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3246: x_return_status OUT NOCOPY VARCHAR2,
3247: x_msg_count OUT NOCOPY NUMBER,
3248: x_msg_data OUT NOCOPY VARCHAR2,
3249: p_ptmv_tbl IN ptmv_tbl_type,
3250: x_ptmv_tbl OUT NOCOPY ptmv_tbl_type) IS
3251:
3252: l_api_version CONSTANT NUMBER := 1;
3253: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3254: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3255: i NUMBER := 0;
3256: BEGIN
3257: OKL_API.init_msg_list(p_init_msg_list);
3258: -- Make sure PL/SQL table has records in it before passing
3253: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
3254: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3255: i NUMBER := 0;
3256: BEGIN
3257: OKL_API.init_msg_list(p_init_msg_list);
3258: -- Make sure PL/SQL table has records in it before passing
3259: IF (p_ptmv_tbl.COUNT > 0) THEN
3260: i := p_ptmv_tbl.FIRST;
3261: LOOP
3260: i := p_ptmv_tbl.FIRST;
3261: LOOP
3262: update_row (
3263: p_api_version => p_api_version,
3264: p_init_msg_list => OKL_API.G_FALSE,
3265: x_return_status => x_return_status,
3266: x_msg_count => x_msg_count,
3267: x_msg_data => x_msg_data,
3268: p_ptmv_rec => p_ptmv_tbl(i),
3273: i := p_ptmv_tbl.NEXT(i);
3274: END LOOP;
3275: END IF;
3276: EXCEPTION
3277: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3278: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3279: (
3280: l_api_name,
3281: G_PKG_NAME,
3274: END LOOP;
3275: END IF;
3276: EXCEPTION
3277: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3278: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3279: (
3280: l_api_name,
3281: G_PKG_NAME,
3282: 'OKL_API.G_RET_STS_ERROR',
3278: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3279: (
3280: l_api_name,
3281: G_PKG_NAME,
3282: 'OKL_API.G_RET_STS_ERROR',
3283: x_msg_count,
3284: x_msg_data,
3285: '_PVT'
3286: );
3283: x_msg_count,
3284: x_msg_data,
3285: '_PVT'
3286: );
3287: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3288: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3289: (
3290: l_api_name,
3291: G_PKG_NAME,
3284: x_msg_data,
3285: '_PVT'
3286: );
3287: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3288: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3289: (
3290: l_api_name,
3291: G_PKG_NAME,
3292: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3288: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3289: (
3290: l_api_name,
3291: G_PKG_NAME,
3292: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3293: x_msg_count,
3294: x_msg_data,
3295: '_PVT'
3296: );
3294: x_msg_data,
3295: '_PVT'
3296: );
3297: WHEN OTHERS THEN
3298: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3299: (
3300: l_api_name,
3301: G_PKG_NAME,
3302: 'OTHERS',
3310: -----------------------------------------
3311: -- delete_row for:OKL_PROCESS_TMPLTS_B --
3312: -----------------------------------------
3313: PROCEDURE delete_row(
3314: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3315: x_return_status OUT NOCOPY VARCHAR2,
3316: x_msg_count OUT NOCOPY NUMBER,
3317: x_msg_data OUT NOCOPY VARCHAR2,
3318: p_ptm_rec IN ptm_rec_type) IS
3318: p_ptm_rec IN ptm_rec_type) IS
3319:
3320: l_api_version CONSTANT NUMBER := 1;
3321: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
3322: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3323: l_ptm_rec ptm_rec_type:= p_ptm_rec;
3324: l_row_notfound BOOLEAN := TRUE;
3325:
3326: BEGIN
3324: l_row_notfound BOOLEAN := TRUE;
3325:
3326: BEGIN
3327:
3328: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3329: p_init_msg_list,
3330: '_PVT',
3331: x_return_status);
3332:
3329: p_init_msg_list,
3330: '_PVT',
3331: x_return_status);
3332:
3333: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3335: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3336: RAISE OKL_API.G_EXCEPTION_ERROR;
3337: END IF;
3330: '_PVT',
3331: x_return_status);
3332:
3333: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3335: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3336: RAISE OKL_API.G_EXCEPTION_ERROR;
3337: END IF;
3338:
3331: x_return_status);
3332:
3333: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3335: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3336: RAISE OKL_API.G_EXCEPTION_ERROR;
3337: END IF;
3338:
3339: DELETE FROM OKL_PROCESS_TMPLTS_B
3332:
3333: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3334: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3335: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3336: RAISE OKL_API.G_EXCEPTION_ERROR;
3337: END IF;
3338:
3339: DELETE FROM OKL_PROCESS_TMPLTS_B
3340: WHERE ID = l_ptm_rec.id;
3338:
3339: DELETE FROM OKL_PROCESS_TMPLTS_B
3340: WHERE ID = l_ptm_rec.id;
3341:
3342: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3343:
3344: EXCEPTION
3345: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3346: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3341:
3342: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3343:
3344: EXCEPTION
3345: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3346: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3347: (
3348: l_api_name,
3349: G_PKG_NAME,
3342: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3343:
3344: EXCEPTION
3345: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3346: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3347: (
3348: l_api_name,
3349: G_PKG_NAME,
3350: 'OKL_API.G_RET_STS_ERROR',
3346: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3347: (
3348: l_api_name,
3349: G_PKG_NAME,
3350: 'OKL_API.G_RET_STS_ERROR',
3351: x_msg_count,
3352: x_msg_data,
3353: '_PVT'
3354: );
3351: x_msg_count,
3352: x_msg_data,
3353: '_PVT'
3354: );
3355: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3356: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3357: (
3358: l_api_name,
3359: G_PKG_NAME,
3352: x_msg_data,
3353: '_PVT'
3354: );
3355: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3356: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3357: (
3358: l_api_name,
3359: G_PKG_NAME,
3360: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3356: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3357: (
3358: l_api_name,
3359: G_PKG_NAME,
3360: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3361: x_msg_count,
3362: x_msg_data,
3363: '_PVT'
3364: );
3362: x_msg_data,
3363: '_PVT'
3364: );
3365: WHEN OTHERS THEN
3366: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3367: (
3368: l_api_name,
3369: G_PKG_NAME,
3370: 'OTHERS',
3377: ------------------------------------------
3378: -- delete_row for:OKL_PROCESS_TMPLTS_TL --
3379: ------------------------------------------
3380: PROCEDURE delete_row(
3381: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3382: x_return_status OUT NOCOPY VARCHAR2,
3383: x_msg_count OUT NOCOPY NUMBER,
3384: x_msg_data OUT NOCOPY VARCHAR2,
3385: p_okl_process_tmplts_tl_rec IN okl_process_tmplts_tl_rec_type) IS
3385: p_okl_process_tmplts_tl_rec IN okl_process_tmplts_tl_rec_type) IS
3386:
3387: l_api_version CONSTANT NUMBER := 1;
3388: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
3389: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3390: l_okl_process_tmplts_tl_rec okl_process_tmplts_tl_rec_type:= p_okl_process_tmplts_tl_rec;
3391: l_row_notfound BOOLEAN := TRUE;
3392: ----------------------------------------------
3393: -- Set_Attributes for:OKL_PROCESS_TMPLTS_TL --
3395: FUNCTION Set_Attributes (
3396: p_okl_process_tmplts_tl_rec IN okl_process_tmplts_tl_rec_type,
3397: x_okl_process_tmplts_tl_rec OUT NOCOPY okl_process_tmplts_tl_rec_type
3398: ) RETURN VARCHAR2 IS
3399: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3400: BEGIN
3401: x_okl_process_tmplts_tl_rec := p_okl_process_tmplts_tl_rec;
3402: x_okl_process_tmplts_tl_rec.LANGUAGE := USERENV('LANG');
3403: RETURN(l_return_status);
3402: x_okl_process_tmplts_tl_rec.LANGUAGE := USERENV('LANG');
3403: RETURN(l_return_status);
3404: END Set_Attributes;
3405: BEGIN
3406: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3407: p_init_msg_list,
3408: '_PVT',
3409: x_return_status);
3410: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3406: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3407: p_init_msg_list,
3408: '_PVT',
3409: x_return_status);
3410: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3411: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3412: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3413: RAISE OKL_API.G_EXCEPTION_ERROR;
3414: END IF;
3407: p_init_msg_list,
3408: '_PVT',
3409: x_return_status);
3410: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3411: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3412: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3413: RAISE OKL_API.G_EXCEPTION_ERROR;
3414: END IF;
3415: --- Setting item attributes
3408: '_PVT',
3409: x_return_status);
3410: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3411: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3412: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3413: RAISE OKL_API.G_EXCEPTION_ERROR;
3414: END IF;
3415: --- Setting item attributes
3416: l_return_status := Set_Attributes(
3409: x_return_status);
3410: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3411: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3412: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3413: RAISE OKL_API.G_EXCEPTION_ERROR;
3414: END IF;
3415: --- Setting item attributes
3416: l_return_status := Set_Attributes(
3417: p_okl_process_tmplts_tl_rec, -- IN
3416: l_return_status := Set_Attributes(
3417: p_okl_process_tmplts_tl_rec, -- IN
3418: l_okl_process_tmplts_tl_rec); -- OUT
3419: --- If any errors happen abort API
3420: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3422: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3423: RAISE OKL_API.G_EXCEPTION_ERROR;
3424: END IF;
3417: p_okl_process_tmplts_tl_rec, -- IN
3418: l_okl_process_tmplts_tl_rec); -- OUT
3419: --- If any errors happen abort API
3420: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3422: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3423: RAISE OKL_API.G_EXCEPTION_ERROR;
3424: END IF;
3425: DELETE FROM OKL_PROCESS_TMPLTS_TL
3418: l_okl_process_tmplts_tl_rec); -- OUT
3419: --- If any errors happen abort API
3420: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3422: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3423: RAISE OKL_API.G_EXCEPTION_ERROR;
3424: END IF;
3425: DELETE FROM OKL_PROCESS_TMPLTS_TL
3426: WHERE ID = l_okl_process_tmplts_tl_rec.id;
3419: --- If any errors happen abort API
3420: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3421: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3422: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3423: RAISE OKL_API.G_EXCEPTION_ERROR;
3424: END IF;
3425: DELETE FROM OKL_PROCESS_TMPLTS_TL
3426: WHERE ID = l_okl_process_tmplts_tl_rec.id;
3427:
3424: END IF;
3425: DELETE FROM OKL_PROCESS_TMPLTS_TL
3426: WHERE ID = l_okl_process_tmplts_tl_rec.id;
3427:
3428: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3429: EXCEPTION
3430: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3431: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3432: (
3426: WHERE ID = l_okl_process_tmplts_tl_rec.id;
3427:
3428: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3429: EXCEPTION
3430: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3431: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3432: (
3433: l_api_name,
3434: G_PKG_NAME,
3427:
3428: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3429: EXCEPTION
3430: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3431: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3432: (
3433: l_api_name,
3434: G_PKG_NAME,
3435: 'OKL_API.G_RET_STS_ERROR',
3431: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3432: (
3433: l_api_name,
3434: G_PKG_NAME,
3435: 'OKL_API.G_RET_STS_ERROR',
3436: x_msg_count,
3437: x_msg_data,
3438: '_PVT'
3439: );
3436: x_msg_count,
3437: x_msg_data,
3438: '_PVT'
3439: );
3440: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3441: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3442: (
3443: l_api_name,
3444: G_PKG_NAME,
3437: x_msg_data,
3438: '_PVT'
3439: );
3440: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3441: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3442: (
3443: l_api_name,
3444: G_PKG_NAME,
3445: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3441: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3442: (
3443: l_api_name,
3444: G_PKG_NAME,
3445: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3446: x_msg_count,
3447: x_msg_data,
3448: '_PVT'
3449: );
3447: x_msg_data,
3448: '_PVT'
3449: );
3450: WHEN OTHERS THEN
3451: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3452: (
3453: l_api_name,
3454: G_PKG_NAME,
3455: 'OTHERS',
3462: -- delete_row for:OKL_PROCESS_TMPLTS_V --
3463: -----------------------------------------
3464: PROCEDURE delete_row(
3465: p_api_version IN NUMBER,
3466: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3467: x_return_status OUT NOCOPY VARCHAR2,
3468: x_msg_count OUT NOCOPY NUMBER,
3469: x_msg_data OUT NOCOPY VARCHAR2,
3470: p_ptmv_rec IN ptmv_rec_type) IS
3470: p_ptmv_rec IN ptmv_rec_type) IS
3471:
3472: l_api_version CONSTANT NUMBER := 1;
3473: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
3474: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3475: l_ptmv_rec ptmv_rec_type := p_ptmv_rec;
3476: l_okl_process_tmplts_tl_rec okl_process_tmplts_tl_rec_type;
3477: l_ptm_rec ptm_rec_type;
3478: BEGIN
3475: l_ptmv_rec ptmv_rec_type := p_ptmv_rec;
3476: l_okl_process_tmplts_tl_rec okl_process_tmplts_tl_rec_type;
3477: l_ptm_rec ptm_rec_type;
3478: BEGIN
3479: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3480: G_PKG_NAME,
3481: p_init_msg_list,
3482: l_api_version,
3483: p_api_version,
3482: l_api_version,
3483: p_api_version,
3484: '_PVT',
3485: x_return_status);
3486: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3487: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3488: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3489: RAISE OKL_API.G_EXCEPTION_ERROR;
3490: END IF;
3483: p_api_version,
3484: '_PVT',
3485: x_return_status);
3486: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3487: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3488: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3489: RAISE OKL_API.G_EXCEPTION_ERROR;
3490: END IF;
3491: --------------------------------------
3484: '_PVT',
3485: x_return_status);
3486: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3487: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3488: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3489: RAISE OKL_API.G_EXCEPTION_ERROR;
3490: END IF;
3491: --------------------------------------
3492: -- Move VIEW record to "Child" records
3485: x_return_status);
3486: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3487: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3488: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3489: RAISE OKL_API.G_EXCEPTION_ERROR;
3490: END IF;
3491: --------------------------------------
3492: -- Move VIEW record to "Child" records
3493: --------------------------------------
3502: x_msg_count,
3503: x_msg_data,
3504: l_okl_process_tmplts_tl_rec
3505: );
3506: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3507: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3508: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3509: RAISE OKL_API.G_EXCEPTION_ERROR;
3510: END IF;
3503: x_msg_data,
3504: l_okl_process_tmplts_tl_rec
3505: );
3506: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3507: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3508: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3509: RAISE OKL_API.G_EXCEPTION_ERROR;
3510: END IF;
3511: delete_row(
3504: l_okl_process_tmplts_tl_rec
3505: );
3506: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3507: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3508: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3509: RAISE OKL_API.G_EXCEPTION_ERROR;
3510: END IF;
3511: delete_row(
3512: p_init_msg_list,
3505: );
3506: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3507: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3508: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3509: RAISE OKL_API.G_EXCEPTION_ERROR;
3510: END IF;
3511: delete_row(
3512: p_init_msg_list,
3513: x_return_status,
3514: x_msg_count,
3515: x_msg_data,
3516: l_ptm_rec
3517: );
3518: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3521: RAISE OKL_API.G_EXCEPTION_ERROR;
3522: END IF;
3515: x_msg_data,
3516: l_ptm_rec
3517: );
3518: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3521: RAISE OKL_API.G_EXCEPTION_ERROR;
3522: END IF;
3523: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3516: l_ptm_rec
3517: );
3518: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3521: RAISE OKL_API.G_EXCEPTION_ERROR;
3522: END IF;
3523: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3524: EXCEPTION
3517: );
3518: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3521: RAISE OKL_API.G_EXCEPTION_ERROR;
3522: END IF;
3523: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3524: EXCEPTION
3525: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3519: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3520: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
3521: RAISE OKL_API.G_EXCEPTION_ERROR;
3522: END IF;
3523: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3524: EXCEPTION
3525: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3526: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3527: (
3521: RAISE OKL_API.G_EXCEPTION_ERROR;
3522: END IF;
3523: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3524: EXCEPTION
3525: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3526: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3527: (
3528: l_api_name,
3529: G_PKG_NAME,
3522: END IF;
3523: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3524: EXCEPTION
3525: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3526: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3527: (
3528: l_api_name,
3529: G_PKG_NAME,
3530: 'OKL_API.G_RET_STS_ERROR',
3526: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3527: (
3528: l_api_name,
3529: G_PKG_NAME,
3530: 'OKL_API.G_RET_STS_ERROR',
3531: x_msg_count,
3532: x_msg_data,
3533: '_PVT'
3534: );
3531: x_msg_count,
3532: x_msg_data,
3533: '_PVT'
3534: );
3535: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3536: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3537: (
3538: l_api_name,
3539: G_PKG_NAME,
3532: x_msg_data,
3533: '_PVT'
3534: );
3535: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3536: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3537: (
3538: l_api_name,
3539: G_PKG_NAME,
3540: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3536: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3537: (
3538: l_api_name,
3539: G_PKG_NAME,
3540: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3541: x_msg_count,
3542: x_msg_data,
3543: '_PVT'
3544: );
3542: x_msg_data,
3543: '_PVT'
3544: );
3545: WHEN OTHERS THEN
3546: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3547: (
3548: l_api_name,
3549: G_PKG_NAME,
3550: 'OTHERS',
3557: -- PL/SQL TBL delete_row for:PTMV_TBL --
3558: ----------------------------------------
3559: PROCEDURE delete_row(
3560: p_api_version IN NUMBER,
3561: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3562: x_return_status OUT NOCOPY VARCHAR2,
3563: x_msg_count OUT NOCOPY NUMBER,
3564: x_msg_data OUT NOCOPY VARCHAR2,
3565: p_ptmv_tbl IN ptmv_tbl_type) IS
3565: p_ptmv_tbl IN ptmv_tbl_type) IS
3566:
3567: l_api_version CONSTANT NUMBER := 1;
3568: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3569: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3570: i NUMBER := 0;
3571: BEGIN
3572: OKL_API.init_msg_list(p_init_msg_list);
3573: -- Make sure PL/SQL table has records in it before passing
3568: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
3569: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3570: i NUMBER := 0;
3571: BEGIN
3572: OKL_API.init_msg_list(p_init_msg_list);
3573: -- Make sure PL/SQL table has records in it before passing
3574: IF (p_ptmv_tbl.COUNT > 0) THEN
3575: i := p_ptmv_tbl.FIRST;
3576: LOOP
3575: i := p_ptmv_tbl.FIRST;
3576: LOOP
3577: delete_row (
3578: p_api_version => p_api_version,
3579: p_init_msg_list => OKL_API.G_FALSE,
3580: x_return_status => x_return_status,
3581: x_msg_count => x_msg_count,
3582: x_msg_data => x_msg_data,
3583: p_ptmv_rec => p_ptmv_tbl(i));
3585: i := p_ptmv_tbl.NEXT(i);
3586: END LOOP;
3587: END IF;
3588: EXCEPTION
3589: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3590: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3591: (
3592: l_api_name,
3593: G_PKG_NAME,
3586: END LOOP;
3587: END IF;
3588: EXCEPTION
3589: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3590: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3591: (
3592: l_api_name,
3593: G_PKG_NAME,
3594: 'OKL_API.G_RET_STS_ERROR',
3590: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3591: (
3592: l_api_name,
3593: G_PKG_NAME,
3594: 'OKL_API.G_RET_STS_ERROR',
3595: x_msg_count,
3596: x_msg_data,
3597: '_PVT'
3598: );
3595: x_msg_count,
3596: x_msg_data,
3597: '_PVT'
3598: );
3599: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3600: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3601: (
3602: l_api_name,
3603: G_PKG_NAME,
3596: x_msg_data,
3597: '_PVT'
3598: );
3599: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3600: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3601: (
3602: l_api_name,
3603: G_PKG_NAME,
3604: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3600: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3601: (
3602: l_api_name,
3603: G_PKG_NAME,
3604: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3605: x_msg_count,
3606: x_msg_data,
3607: '_PVT'
3608: );
3606: x_msg_data,
3607: '_PVT'
3608: );
3609: WHEN OTHERS THEN
3610: x_return_status :=OKL_API.HANDLE_EXCEPTIONS
3611: (
3612: l_api_name,
3613: G_PKG_NAME,
3614: 'OTHERS',