3:
4:
5: PROCEDURE create_ptl_qualitys(
6: p_api_version IN NUMBER
7: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
8: ,x_return_status OUT NOCOPY VARCHAR2
9: ,x_msg_count OUT NOCOPY NUMBER
10: ,x_msg_data OUT NOCOPY VARCHAR2
11: ,p_ptqv_rec IN ptqv_rec_type
15: ) IS
16:
17: i NUMBER;
18: l_ptqv_rec ptqv_rec_type;
19: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
20: l_ptvv_tbl ptvv_tbl_type := p_ptvv_tbl;
21:
22: BEGIN
23: -- Populate Template Qualitys
28: ,x_msg_count => x_msg_count
29: ,x_msg_data => x_msg_data
30: ,p_ptqv_rec => p_ptqv_rec
31: ,x_ptqv_rec => x_ptqv_rec);
32: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
33: RAISE G_EXCEPTION_HALT_VALIDATION;
34: ELSE
35: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
36: l_return_status := x_return_status;
31: ,x_ptqv_rec => x_ptqv_rec);
32: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
33: RAISE G_EXCEPTION_HALT_VALIDATION;
34: ELSE
35: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
36: l_return_status := x_return_status;
37: END IF;
38: END IF;
39: -- populate the foreign key for the detail
55: ,x_msg_count => x_msg_count
56: ,x_msg_data => x_msg_data
57: ,p_ptvv_tbl => l_ptvv_tbl
58: ,x_ptvv_tbl => x_ptvv_tbl);
59: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
60: RAISE G_EXCEPTION_HALT_VALIDATION;
61: ELSE
62: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
63: l_return_status := x_return_status;
58: ,x_ptvv_tbl => x_ptvv_tbl);
59: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
60: RAISE G_EXCEPTION_HALT_VALIDATION;
61: ELSE
62: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
63: l_return_status := x_return_status;
64: END IF;
65: END IF;
66:
68: WHEN G_EXCEPTION_HALT_VALIDATION THEN
69: NULL;
70:
71: WHEN OTHERS THEN
72: OKC_API.SET_MESSAGE(p_app_name => g_app_name
73: ,p_msg_name => g_unexpected_error
74: ,p_token1 => g_sqlcode_token
75: ,p_token1_value => sqlcode
76: ,p_token2 => g_sqlerrm_token
74: ,p_token1 => g_sqlcode_token
75: ,p_token1_value => sqlcode
76: ,p_token2 => g_sqlerrm_token
77: ,p_token2_value => sqlerrm);
78: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
79: END create_ptl_qualitys;
80:
81: PROCEDURE create_ptl_qualitys(
82: p_api_version IN NUMBER
79: END create_ptl_qualitys;
80:
81: PROCEDURE create_ptl_qualitys(
82: p_api_version IN NUMBER
83: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
84: ,x_return_status OUT NOCOPY VARCHAR2
85: ,x_msg_count OUT NOCOPY NUMBER
86: ,x_msg_data OUT NOCOPY VARCHAR2
87: ,p_ptqv_rec IN ptqv_rec_type
85: ,x_msg_count OUT NOCOPY NUMBER
86: ,x_msg_data OUT NOCOPY VARCHAR2
87: ,p_ptqv_rec IN ptqv_rec_type
88: ,x_ptqv_rec OUT NOCOPY ptqv_rec_type) IS
89: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
90: BEGIN
91: okl_ptq_pvt.insert_row(
92: p_api_version => p_api_version
93: ,p_init_msg_list => p_init_msg_list
97: ,p_ptqv_rec => p_ptqv_rec
98: ,x_ptqv_rec => x_ptqv_rec
99: );
100:
101: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
102: RAISE G_EXCEPTION_HALT_VALIDATION;
103: ELSE
104: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
105: l_return_status := x_return_status;
100:
101: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
102: RAISE G_EXCEPTION_HALT_VALIDATION;
103: ELSE
104: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
105: l_return_status := x_return_status;
106: END IF;
107: END IF;
108: -- Custom code if any
111: WHEN G_EXCEPTION_HALT_VALIDATION THEN
112: NULL;
113:
114: WHEN OTHERS THEN
115: OKC_API.SET_MESSAGE(p_app_name => g_app_name
116: ,p_msg_name => g_unexpected_error
117: ,p_token1 => g_sqlcode_token
118: ,p_token1_value => sqlcode
119: ,p_token2 => g_sqlerrm_token
117: ,p_token1 => g_sqlcode_token
118: ,p_token1_value => sqlcode
119: ,p_token2 => g_sqlerrm_token
120: ,p_token2_value => sqlerrm);
121: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
122: END create_ptl_qualitys;
123: --null;
124: PROCEDURE create_ptl_qualitys(
125: p_api_version IN NUMBER
122: END create_ptl_qualitys;
123: --null;
124: PROCEDURE create_ptl_qualitys(
125: p_api_version IN NUMBER
126: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
127: ,x_return_status OUT NOCOPY VARCHAR2
128: ,x_msg_count OUT NOCOPY NUMBER
129: ,x_msg_data OUT NOCOPY VARCHAR2
130: ,p_ptqv_tbl IN ptqv_tbl_type
128: ,x_msg_count OUT NOCOPY NUMBER
129: ,x_msg_data OUT NOCOPY VARCHAR2
130: ,p_ptqv_tbl IN ptqv_tbl_type
131: ,x_ptqv_tbl OUT NOCOPY ptqv_tbl_type) IS
132: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
133:
134: BEGIN
135: okl_ptq_pvt.insert_row(
136: p_api_version => p_api_version
140: ,x_msg_data => x_msg_data
141: ,p_ptqv_tbl => p_ptqv_tbl
142: ,x_ptqv_tbl => x_ptqv_tbl
143: );
144: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
145: RAISE G_EXCEPTION_HALT_VALIDATION;
146: ELSE
147: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
148: l_return_status := x_return_status;
143: );
144: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
145: RAISE G_EXCEPTION_HALT_VALIDATION;
146: ELSE
147: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
148: l_return_status := x_return_status;
149: END IF;
150: END IF;
151: -- Custom code if any
154: WHEN G_EXCEPTION_HALT_VALIDATION THEN
155: NULL;
156:
157: WHEN OTHERS THEN
158: OKC_API.SET_MESSAGE(p_app_name => g_app_name
159: ,p_msg_name => g_unexpected_error
160: ,p_token1 => g_sqlcode_token
161: ,p_token1_value => sqlcode
162: ,p_token2 => g_sqlerrm_token
160: ,p_token1 => g_sqlcode_token
161: ,p_token1_value => sqlcode
162: ,p_token2 => g_sqlerrm_token
163: ,p_token2_value => sqlerrm);
164: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
165:
166: END create_ptl_qualitys;
167:
168: -- Object type procedure for update
167:
168: -- Object type procedure for update
169: PROCEDURE update_ptl_qualitys(
170: p_api_version IN NUMBER,
171: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
172: x_return_status OUT NOCOPY VARCHAR2,
173: x_msg_count OUT NOCOPY NUMBER,
174: x_msg_data OUT NOCOPY VARCHAR2,
175: p_ptqv_rec IN ptqv_rec_type,
175: p_ptqv_rec IN ptqv_rec_type,
176: p_ptvv_tbl IN ptvv_tbl_type,
177: x_ptqv_rec OUT NOCOPY ptqv_rec_type,
178: x_ptvv_tbl OUT NOCOPY ptvv_tbl_type) IS
179: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
180: BEGIN
181: -- Update the master
182: update_ptl_qualitys(
183: p_api_version => p_api_version
187: ,x_msg_data => x_msg_data
188: ,p_ptqv_rec => p_ptqv_rec
189: ,x_ptqv_rec => x_ptqv_rec
190: );
191: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
192: RAISE G_EXCEPTION_HALT_VALIDATION;
193: ELSE
194: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
195: l_return_status := x_return_status;
190: );
191: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
192: RAISE G_EXCEPTION_HALT_VALIDATION;
193: ELSE
194: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
195: l_return_status := x_return_status;
196: END IF;
197: END IF;
198:
206: ,p_ptvv_tbl => p_ptvv_tbl
207: ,x_ptvv_tbl => x_ptvv_tbl
208: );
209:
210: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
211: RAISE G_EXCEPTION_HALT_VALIDATION;
212: ELSE
213: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
214: l_return_status := x_return_status;
209:
210: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
211: RAISE G_EXCEPTION_HALT_VALIDATION;
212: ELSE
213: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
214: l_return_status := x_return_status;
215: END IF;
216: END IF;
217:
219: WHEN G_EXCEPTION_HALT_VALIDATION THEN
220: NULL;
221:
222: WHEN OTHERS THEN
223: OKC_API.SET_MESSAGE(p_app_name => g_app_name
224: ,p_msg_name => g_unexpected_error
225: ,p_token1 => g_sqlcode_token
226: ,p_token1_value => sqlcode
227: ,p_token2 => g_sqlerrm_token
225: ,p_token1 => g_sqlcode_token
226: ,p_token1_value => sqlcode
227: ,p_token2 => g_sqlerrm_token
228: ,p_token2_value => sqlerrm);
229: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
230:
231: END update_ptl_qualitys;
232:
233: PROCEDURE validate_ptl_qualitys(
231: END update_ptl_qualitys;
232:
233: PROCEDURE validate_ptl_qualitys(
234: p_api_version IN NUMBER
235: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
236: ,x_return_status OUT NOCOPY VARCHAR2
237: ,x_msg_count OUT NOCOPY NUMBER
238: ,x_msg_data OUT NOCOPY VARCHAR2
239: ,p_ptqv_rec IN ptqv_rec_type
238: ,x_msg_data OUT NOCOPY VARCHAR2
239: ,p_ptqv_rec IN ptqv_rec_type
240: ,p_ptvv_tbl IN ptvv_tbl_type) IS
241:
242: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
243: BEGIN
244: -- Validate the master
245: validate_ptl_qualitys(
246: p_api_version => p_api_version
250: ,x_msg_data => x_msg_data
251: ,p_ptqv_rec => p_ptqv_rec
252: );
253:
254: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
255: RAISE G_EXCEPTION_HALT_VALIDATION;
256: ELSE
257: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
258: l_return_status := x_return_status;
253:
254: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
255: RAISE G_EXCEPTION_HALT_VALIDATION;
256: ELSE
257: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
258: l_return_status := x_return_status;
259: END IF;
260: END IF;
261:
268: ,x_msg_data => x_msg_data
269: ,p_ptvv_tbl => p_ptvv_tbl
270: );
271:
272: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
273: RAISE G_EXCEPTION_HALT_VALIDATION;
274: ELSE
275: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
276: l_return_status := x_return_status;
271:
272: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
273: RAISE G_EXCEPTION_HALT_VALIDATION;
274: ELSE
275: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
276: l_return_status := x_return_status;
277: END IF;
278: END IF;
279:
280: EXCEPTION
281: WHEN G_EXCEPTION_HALT_VALIDATION THEN
282: NULL;
283: WHEN OTHERS THEN
284: OKC_API.SET_MESSAGE(p_app_name => g_app_name
285: ,p_msg_name => g_unexpected_error
286: ,p_token1 => g_sqlcode_token
287: ,p_token1_value => sqlcode
288: ,p_token2 => g_sqlerrm_token
286: ,p_token1 => g_sqlcode_token
287: ,p_token1_value => sqlcode
288: ,p_token2 => g_sqlerrm_token
289: ,p_token2_value => sqlerrm);
290: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
291:
292: END validate_ptl_qualitys;
293:
294: PROCEDURE lock_ptl_qualitys(
292: END validate_ptl_qualitys;
293:
294: PROCEDURE lock_ptl_qualitys(
295: p_api_version IN NUMBER
296: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
297: ,x_return_status OUT NOCOPY VARCHAR2
298: ,x_msg_count OUT NOCOPY NUMBER
299: ,x_msg_data OUT NOCOPY VARCHAR2
300: ,p_ptqv_rec IN ptqv_rec_type) IS
297: ,x_return_status OUT NOCOPY VARCHAR2
298: ,x_msg_count OUT NOCOPY NUMBER
299: ,x_msg_data OUT NOCOPY VARCHAR2
300: ,p_ptqv_rec IN ptqv_rec_type) IS
301: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
302:
303: BEGIN
304: okl_ptq_pvt.lock_row(
305: p_api_version => p_api_version
308: ,x_msg_count => x_msg_count
309: ,x_msg_data => x_msg_data
310: ,p_ptqv_rec => p_ptqv_rec
311: );
312: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
313: RAISE G_EXCEPTION_HALT_VALIDATION;
314: ELSE
315: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
316: l_return_status := x_return_status;
311: );
312: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
313: RAISE G_EXCEPTION_HALT_VALIDATION;
314: ELSE
315: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
316: l_return_status := x_return_status;
317: END IF;
318: END IF;
319:
320: EXCEPTION
321: WHEN G_EXCEPTION_HALT_VALIDATION THEN
322: NULL;
323: WHEN OTHERS THEN
324: OKC_API.SET_MESSAGE(p_app_name => g_app_name
325: ,p_msg_name => g_unexpected_error
326: ,p_token1 => g_sqlcode_token
327: ,p_token1_value => sqlcode
328: ,p_token2 => g_sqlerrm_token
326: ,p_token1 => g_sqlcode_token
327: ,p_token1_value => sqlcode
328: ,p_token2 => g_sqlerrm_token
329: ,p_token2_value => sqlerrm);
330: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
331: END lock_ptl_qualitys;
332:
333: PROCEDURE lock_ptl_qualitys(
334: p_api_version IN NUMBER
331: END lock_ptl_qualitys;
332:
333: PROCEDURE lock_ptl_qualitys(
334: p_api_version IN NUMBER
335: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
336: ,x_return_status OUT NOCOPY VARCHAR2
337: ,x_msg_count OUT NOCOPY NUMBER
338: ,x_msg_data OUT NOCOPY VARCHAR2
339: ,p_ptqv_tbl IN ptqv_tbl_type) IS
336: ,x_return_status OUT NOCOPY VARCHAR2
337: ,x_msg_count OUT NOCOPY NUMBER
338: ,x_msg_data OUT NOCOPY VARCHAR2
339: ,p_ptqv_tbl IN ptqv_tbl_type) IS
340: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
341:
342: BEGIN
343: okl_ptq_pvt.lock_row(
344: p_api_version => p_api_version
347: ,x_msg_count => x_msg_count
348: ,x_msg_data => x_msg_data
349: ,p_ptqv_tbl => p_ptqv_tbl
350: );
351: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
352: RAISE G_EXCEPTION_HALT_VALIDATION;
353: ELSE
354: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
355: l_return_status := x_return_status;
350: );
351: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
352: RAISE G_EXCEPTION_HALT_VALIDATION;
353: ELSE
354: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
355: l_return_status := x_return_status;
356: END IF;
357: END IF;
358:
359: EXCEPTION
360: WHEN G_EXCEPTION_HALT_VALIDATION THEN
361: NULL;
362: WHEN OTHERS THEN
363: OKC_API.SET_MESSAGE(p_app_name => g_app_name
364: ,p_msg_name => g_unexpected_error
365: ,p_token1 => g_sqlcode_token
366: ,p_token1_value => sqlcode
367: ,p_token2 => g_sqlerrm_token
365: ,p_token1 => g_sqlcode_token
366: ,p_token1_value => sqlcode
367: ,p_token2 => g_sqlerrm_token
368: ,p_token2_value => sqlerrm);
369: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
370: END lock_ptl_qualitys;
371:
372: PROCEDURE update_ptl_qualitys(
373: p_api_version IN NUMBER
370: END lock_ptl_qualitys;
371:
372: PROCEDURE update_ptl_qualitys(
373: p_api_version IN NUMBER
374: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
375: ,x_return_status OUT NOCOPY VARCHAR2
376: ,x_msg_count OUT NOCOPY NUMBER
377: ,x_msg_data OUT NOCOPY VARCHAR2
378: ,p_ptqv_rec IN ptqv_rec_type
376: ,x_msg_count OUT NOCOPY NUMBER
377: ,x_msg_data OUT NOCOPY VARCHAR2
378: ,p_ptqv_rec IN ptqv_rec_type
379: ,x_ptqv_rec OUT NOCOPY ptqv_rec_type) IS
380: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
381:
382: BEGIN
383: okl_ptq_pvt.update_row(
384: p_api_version => p_api_version
388: ,x_msg_data => x_msg_data
389: ,p_ptqv_rec => p_ptqv_rec
390: ,x_ptqv_rec => x_ptqv_rec
391: );
392: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
393: RAISE G_EXCEPTION_HALT_VALIDATION;
394: ELSE
395: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
396: l_return_status := x_return_status;
391: );
392: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
393: RAISE G_EXCEPTION_HALT_VALIDATION;
394: ELSE
395: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
396: l_return_status := x_return_status;
397: END IF;
398: END IF;
399: EXCEPTION
399: EXCEPTION
400: WHEN G_EXCEPTION_HALT_VALIDATION THEN
401: NULL;
402: WHEN OTHERS THEN
403: OKC_API.SET_MESSAGE(p_app_name => g_app_name
404: ,p_msg_name => g_unexpected_error
405: ,p_token1 => g_sqlcode_token
406: ,p_token1_value => sqlcode
407: ,p_token2 => g_sqlerrm_token
405: ,p_token1 => g_sqlcode_token
406: ,p_token1_value => sqlcode
407: ,p_token2 => g_sqlerrm_token
408: ,p_token2_value => sqlerrm);
409: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
410: END update_ptl_qualitys;
411:
412: PROCEDURE update_ptl_qualitys(
413: p_api_version IN NUMBER
410: END update_ptl_qualitys;
411:
412: PROCEDURE update_ptl_qualitys(
413: p_api_version IN NUMBER
414: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
415: ,x_return_status OUT NOCOPY VARCHAR2
416: ,x_msg_count OUT NOCOPY NUMBER
417: ,x_msg_data OUT NOCOPY VARCHAR2
418: ,p_ptqv_tbl IN ptqv_tbl_type
416: ,x_msg_count OUT NOCOPY NUMBER
417: ,x_msg_data OUT NOCOPY VARCHAR2
418: ,p_ptqv_tbl IN ptqv_tbl_type
419: ,x_ptqv_tbl OUT NOCOPY ptqv_tbl_type) IS
420: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
421: BEGIN
422: okl_ptq_pvt.update_row(
423: p_api_version => p_api_version
424: ,p_init_msg_list => p_init_msg_list
427: ,x_msg_data => x_msg_data
428: ,p_ptqv_tbl => p_ptqv_tbl
429: ,x_ptqv_tbl => x_ptqv_tbl
430: );
431: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
432: RAISE G_EXCEPTION_HALT_VALIDATION;
433: ELSE
434: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
435: l_return_status := x_return_status;
430: );
431: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
432: RAISE G_EXCEPTION_HALT_VALIDATION;
433: ELSE
434: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
435: l_return_status := x_return_status;
436: END IF;
437: END IF;
438: EXCEPTION
438: EXCEPTION
439: WHEN G_EXCEPTION_HALT_VALIDATION THEN
440: NULL;
441: WHEN OTHERS THEN
442: OKC_API.SET_MESSAGE(p_app_name => g_app_name
443: ,p_msg_name => g_unexpected_error
444: ,p_token1 => g_sqlcode_token
445: ,p_token1_value => sqlcode
446: ,p_token2 => g_sqlerrm_token
444: ,p_token1 => g_sqlcode_token
445: ,p_token1_value => sqlcode
446: ,p_token2 => g_sqlerrm_token
447: ,p_token2_value => sqlerrm);
448: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
449: END update_ptl_qualitys;
450:
451: --Put custom code for cascade delete by developer
452: PROCEDURE delete_ptl_qualitys(
450:
451: --Put custom code for cascade delete by developer
452: PROCEDURE delete_ptl_qualitys(
453: p_api_version IN NUMBER
454: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
455: ,x_return_status OUT NOCOPY VARCHAR2
456: ,x_msg_count OUT NOCOPY NUMBER
457: ,x_msg_data OUT NOCOPY VARCHAR2
458: ,p_ptqv_rec IN ptqv_rec_type) IS
456: ,x_msg_count OUT NOCOPY NUMBER
457: ,x_msg_data OUT NOCOPY VARCHAR2
458: ,p_ptqv_rec IN ptqv_rec_type) IS
459: i NUMBER :=0;
460: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
461: l_ptvv_tbl ptvv_tbl_type;
462:
463: CURSOR ptv_csr IS
464: SELECT ptv.id
479: ,x_msg_data => x_msg_data
480: ,p_ptvv_tbl => l_ptvv_tbl
481: );
482:
483: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
484: RAISE G_EXCEPTION_HALT_VALIDATION;
485: ELSE
486: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
487: l_return_status := x_return_status;
482:
483: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
484: RAISE G_EXCEPTION_HALT_VALIDATION;
485: ELSE
486: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
487: l_return_status := x_return_status;
488: END IF;
489: END IF;
490: END IF;
497: ,x_msg_data => x_msg_data
498: ,p_ptqv_rec => p_ptqv_rec
499: );
500:
501: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
502: RAISE G_EXCEPTION_HALT_VALIDATION;
503: ELSE
504: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
505: l_return_status := x_return_status;
500:
501: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
502: RAISE G_EXCEPTION_HALT_VALIDATION;
503: ELSE
504: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
505: l_return_status := x_return_status;
506: END IF;
507: END IF;
508: EXCEPTION
508: EXCEPTION
509: WHEN G_EXCEPTION_HALT_VALIDATION THEN
510: NULL;
511: WHEN OTHERS THEN
512: OKC_API.SET_MESSAGE(p_app_name => g_app_name
513: ,p_msg_name => g_unexpected_error
514: ,p_token1 => g_sqlcode_token
515: ,p_token1_value => sqlcode
516: ,p_token2 => g_sqlerrm_token
515: ,p_token1_value => sqlcode
516: ,p_token2 => g_sqlerrm_token
517: ,p_token2_value => sqlerrm);
518:
519: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
520: END delete_ptl_qualitys;
521:
522: PROCEDURE delete_ptl_qualitys(
523: p_api_version IN NUMBER
520: END delete_ptl_qualitys;
521:
522: PROCEDURE delete_ptl_qualitys(
523: p_api_version IN NUMBER
524: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
525: ,x_return_status OUT NOCOPY VARCHAR2
526: ,x_msg_count OUT NOCOPY NUMBER
527: ,x_msg_data OUT NOCOPY VARCHAR2
528: ,p_ptqv_tbl IN ptqv_tbl_type) IS
526: ,x_msg_count OUT NOCOPY NUMBER
527: ,x_msg_data OUT NOCOPY VARCHAR2
528: ,p_ptqv_tbl IN ptqv_tbl_type) IS
529: i NUMBER :=0;
530: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
531: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS; --TCHGS
532: BEGIN
533: --Initialize the return status
534: x_return_status := OKC_API.G_RET_STS_SUCCESS;
527: ,x_msg_data OUT NOCOPY VARCHAR2
528: ,p_ptqv_tbl IN ptqv_tbl_type) IS
529: i NUMBER :=0;
530: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
531: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS; --TCHGS
532: BEGIN
533: --Initialize the return status
534: x_return_status := OKC_API.G_RET_STS_SUCCESS;
535: IF (p_ptqv_tbl.COUNT > 0) THEN
530: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
531: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS; --TCHGS
532: BEGIN
533: --Initialize the return status
534: x_return_status := OKC_API.G_RET_STS_SUCCESS;
535: IF (p_ptqv_tbl.COUNT > 0) THEN
536: i := p_ptqv_tbl.FIRST;
537: LOOP
538: delete_ptl_qualitys(
543: ,x_msg_data => x_msg_data
544: ,p_ptqv_rec => p_ptqv_tbl(i)
545: );
546: -- TCHGS: Store the highest degree of error
547: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
548: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
549: l_overall_status := x_return_status;
550: END IF;
551: END IF;
544: ,p_ptqv_rec => p_ptqv_tbl(i)
545: );
546: -- TCHGS: Store the highest degree of error
547: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
548: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
549: l_overall_status := x_return_status;
550: END IF;
551: END IF;
552: EXIT WHEN (i = p_ptqv_tbl.LAST);
554: END LOOP;
555: --TCHGS: return overall status
556: x_return_status := l_overall_status;
557: END IF;
558: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
559: RAISE G_EXCEPTION_HALT_VALIDATION;
560: ELSE
561: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
562: l_return_status := x_return_status;
557: END IF;
558: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
559: RAISE G_EXCEPTION_HALT_VALIDATION;
560: ELSE
561: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
562: l_return_status := x_return_status;
563: END IF;
564: END IF;
565: EXCEPTION
565: EXCEPTION
566: WHEN G_EXCEPTION_HALT_VALIDATION THEN
567: NULL;
568: WHEN OTHERS THEN
569: OKC_API.SET_MESSAGE(p_app_name => g_app_name
570: ,p_msg_name => g_unexpected_error
571: ,p_token1 => g_sqlcode_token
572: ,p_token1_value => sqlcode
573: ,p_token2 => g_sqlerrm_token
571: ,p_token1 => g_sqlcode_token
572: ,p_token1_value => sqlcode
573: ,p_token2 => g_sqlerrm_token
574: ,p_token2_value => sqlerrm);
575: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
576: END delete_ptl_qualitys;
577:
578: PROCEDURE validate_ptl_qualitys(
579: p_api_version IN NUMBER
576: END delete_ptl_qualitys;
577:
578: PROCEDURE validate_ptl_qualitys(
579: p_api_version IN NUMBER
580: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
581: ,x_return_status OUT NOCOPY VARCHAR2
582: ,x_msg_count OUT NOCOPY NUMBER
583: ,x_msg_data OUT NOCOPY VARCHAR2
584: ,p_ptqv_rec IN ptqv_rec_type) IS
581: ,x_return_status OUT NOCOPY VARCHAR2
582: ,x_msg_count OUT NOCOPY NUMBER
583: ,x_msg_data OUT NOCOPY VARCHAR2
584: ,p_ptqv_rec IN ptqv_rec_type) IS
585: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
586: BEGIN
587: okl_ptq_pvt.validate_row(
588: p_api_version => p_api_version
589: ,p_init_msg_list => p_init_msg_list
591: ,x_msg_count => x_msg_count
592: ,x_msg_data => x_msg_data
593: ,p_ptqv_rec => p_ptqv_rec
594: );
595: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
596: RAISE G_EXCEPTION_HALT_VALIDATION;
597: ELSE
598: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
599: l_return_status := x_return_status;
594: );
595: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
596: RAISE G_EXCEPTION_HALT_VALIDATION;
597: ELSE
598: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
599: l_return_status := x_return_status;
600: END IF;
601: END IF;
602: EXCEPTION
602: EXCEPTION
603: WHEN G_EXCEPTION_HALT_VALIDATION THEN
604: NULL;
605: WHEN OTHERS THEN
606: OKC_API.SET_MESSAGE(p_app_name => g_app_name
607: ,p_msg_name => g_unexpected_error
608: ,p_token1 => g_sqlcode_token
609: ,p_token1_value => sqlcode
610: ,p_token2 => g_sqlerrm_token
608: ,p_token1 => g_sqlcode_token
609: ,p_token1_value => sqlcode
610: ,p_token2 => g_sqlerrm_token
611: ,p_token2_value => sqlerrm);
612: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
613: END validate_ptl_qualitys;
614:
615: PROCEDURE validate_ptl_qualitys(
616: p_api_version IN NUMBER,
613: END validate_ptl_qualitys;
614:
615: PROCEDURE validate_ptl_qualitys(
616: p_api_version IN NUMBER,
617: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
618: x_return_status OUT NOCOPY VARCHAR2,
619: x_msg_count OUT NOCOPY NUMBER,
620: x_msg_data OUT NOCOPY VARCHAR2,
621: p_ptqv_tbl IN ptqv_tbl_type) IS
618: x_return_status OUT NOCOPY VARCHAR2,
619: x_msg_count OUT NOCOPY NUMBER,
620: x_msg_data OUT NOCOPY VARCHAR2,
621: p_ptqv_tbl IN ptqv_tbl_type) IS
622: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
623:
624: BEGIN
625: okl_ptq_pvt.validate_row(
626: p_api_version => p_api_version
629: ,x_msg_count => x_msg_count
630: ,x_msg_data => x_msg_data
631: ,p_ptqv_tbl => p_ptqv_tbl
632: );
633: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
634: RAISE G_EXCEPTION_HALT_VALIDATION;
635: ELSE
636: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
637: l_return_status := x_return_status;
632: );
633: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
634: RAISE G_EXCEPTION_HALT_VALIDATION;
635: ELSE
636: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
637: l_return_status := x_return_status;
638: END IF;
639: END IF;
640: EXCEPTION
640: EXCEPTION
641: WHEN G_EXCEPTION_HALT_VALIDATION THEN
642: NULL;
643: WHEN OTHERS THEN
644: OKC_API.SET_MESSAGE(p_app_name => g_app_name
645: ,p_msg_name => g_unexpected_error
646: ,p_token1 => g_sqlcode_token
647: ,p_token1_value => sqlcode
648: ,p_token2 => g_sqlerrm_token
646: ,p_token1 => g_sqlcode_token
647: ,p_token1_value => sqlcode
648: ,p_token2 => g_sqlerrm_token
649: ,p_token2_value => sqlerrm);
650: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
651: END validate_ptl_qualitys;
652:
653: PROCEDURE create_ptl_qlty_values(
654: p_api_version IN NUMBER
651: END validate_ptl_qualitys;
652:
653: PROCEDURE create_ptl_qlty_values(
654: p_api_version IN NUMBER
655: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
656: ,x_return_status OUT NOCOPY VARCHAR2
657: ,x_msg_count OUT NOCOPY NUMBER
658: ,x_msg_data OUT NOCOPY VARCHAR2
659: ,p_ptvv_rec IN ptvv_rec_type
657: ,x_msg_count OUT NOCOPY NUMBER
658: ,x_msg_data OUT NOCOPY VARCHAR2
659: ,p_ptvv_rec IN ptvv_rec_type
660: ,x_ptvv_rec OUT NOCOPY ptvv_rec_type) IS
661: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
662:
663: BEGIN
664: okl_ptv_pvt.insert_row(
665: p_api_version => p_api_version
669: ,x_msg_data => x_msg_data
670: ,p_ptvv_rec => p_ptvv_rec
671: ,x_ptvv_rec => x_ptvv_rec
672: );
673: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
674: RAISE G_EXCEPTION_HALT_VALIDATION;
675: ELSE
676: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
677: l_return_status := x_return_status;
672: );
673: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
674: RAISE G_EXCEPTION_HALT_VALIDATION;
675: ELSE
676: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
677: l_return_status := x_return_status;
678: END IF;
679: END IF;
680: EXCEPTION
680: EXCEPTION
681: WHEN G_EXCEPTION_HALT_VALIDATION THEN
682: NULL;
683: WHEN OTHERS THEN
684: OKC_API.SET_MESSAGE(p_app_name => g_app_name
685: ,p_msg_name => g_unexpected_error
686: ,p_token1 => g_sqlcode_token
687: ,p_token1_value => sqlcode
688: ,p_token2 => g_sqlerrm_token
686: ,p_token1 => g_sqlcode_token
687: ,p_token1_value => sqlcode
688: ,p_token2 => g_sqlerrm_token
689: ,p_token2_value => sqlerrm);
690: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
691: END create_ptl_qlty_values;
692:
693: PROCEDURE create_ptl_qlty_values(
694: p_api_version IN NUMBER
691: END create_ptl_qlty_values;
692:
693: PROCEDURE create_ptl_qlty_values(
694: p_api_version IN NUMBER
695: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
696: ,x_return_status OUT NOCOPY VARCHAR2
697: ,x_msg_count OUT NOCOPY NUMBER
698: ,x_msg_data OUT NOCOPY VARCHAR2
699: ,p_ptvv_tbl IN ptvv_tbl_type
697: ,x_msg_count OUT NOCOPY NUMBER
698: ,x_msg_data OUT NOCOPY VARCHAR2
699: ,p_ptvv_tbl IN ptvv_tbl_type
700: ,x_ptvv_tbl OUT NOCOPY ptvv_tbl_type) IS
701: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
702:
703: BEGIN
704: okl_ptv_pvt.insert_row(
705: p_api_version => p_api_version
709: ,x_msg_data => x_msg_data
710: ,p_ptvv_tbl => p_ptvv_tbl
711: ,x_ptvv_tbl => x_ptvv_tbl
712: );
713: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
714: RAISE G_EXCEPTION_HALT_VALIDATION;
715: ELSE
716: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
717: l_return_status := x_return_status;
712: );
713: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
714: RAISE G_EXCEPTION_HALT_VALIDATION;
715: ELSE
716: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
717: l_return_status := x_return_status;
718: END IF;
719: END IF;
720: EXCEPTION
720: EXCEPTION
721: WHEN G_EXCEPTION_HALT_VALIDATION THEN
722: NULL;
723: WHEN OTHERS THEN
724: OKC_API.SET_MESSAGE(p_app_name => g_app_name
725: ,p_msg_name => g_unexpected_error
726: ,p_token1 => g_sqlcode_token
727: ,p_token1_value => sqlcode
728: ,p_token2 => g_sqlerrm_token
726: ,p_token1 => g_sqlcode_token
727: ,p_token1_value => sqlcode
728: ,p_token2 => g_sqlerrm_token
729: ,p_token2_value => sqlerrm);
730: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
731: END create_ptl_qlty_values;
732:
733: PROCEDURE lock_ptl_qlty_values(
734: p_api_version IN NUMBER
731: END create_ptl_qlty_values;
732:
733: PROCEDURE lock_ptl_qlty_values(
734: p_api_version IN NUMBER
735: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
736: ,x_return_status OUT NOCOPY VARCHAR2
737: ,x_msg_count OUT NOCOPY NUMBER
738: ,x_msg_data OUT NOCOPY VARCHAR2
739: ,p_ptvv_rec IN ptvv_rec_type) IS
736: ,x_return_status OUT NOCOPY VARCHAR2
737: ,x_msg_count OUT NOCOPY NUMBER
738: ,x_msg_data OUT NOCOPY VARCHAR2
739: ,p_ptvv_rec IN ptvv_rec_type) IS
740: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
741: BEGIN
742: okl_ptv_pvt.lock_row(
743: p_api_version => p_api_version
744: ,p_init_msg_list => p_init_msg_list
746: ,x_msg_count => x_msg_count
747: ,x_msg_data => x_msg_data
748: ,p_ptvv_rec => p_ptvv_rec
749: );
750: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
751: RAISE G_EXCEPTION_HALT_VALIDATION;
752: ELSE
753: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
754: l_return_status := x_return_status;
749: );
750: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
751: RAISE G_EXCEPTION_HALT_VALIDATION;
752: ELSE
753: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
754: l_return_status := x_return_status;
755: END IF;
756: END IF;
757: EXCEPTION
757: EXCEPTION
758: WHEN G_EXCEPTION_HALT_VALIDATION THEN
759: NULL;
760: WHEN OTHERS THEN
761: OKC_API.SET_MESSAGE(p_app_name => g_app_name
762: ,p_msg_name => g_unexpected_error
763: ,p_token1 => g_sqlcode_token
764: ,p_token1_value => sqlcode
765: ,p_token2 => g_sqlerrm_token
763: ,p_token1 => g_sqlcode_token
764: ,p_token1_value => sqlcode
765: ,p_token2 => g_sqlerrm_token
766: ,p_token2_value => sqlerrm);
767: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
768:
769: END lock_ptl_qlty_values;
770:
771: PROCEDURE lock_ptl_qlty_values(
769: END lock_ptl_qlty_values;
770:
771: PROCEDURE lock_ptl_qlty_values(
772: p_api_version IN NUMBER
773: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
774: ,x_return_status OUT NOCOPY VARCHAR2
775: ,x_msg_count OUT NOCOPY NUMBER
776: ,x_msg_data OUT NOCOPY VARCHAR2
777: ,p_ptvv_tbl IN ptvv_tbl_type) IS
774: ,x_return_status OUT NOCOPY VARCHAR2
775: ,x_msg_count OUT NOCOPY NUMBER
776: ,x_msg_data OUT NOCOPY VARCHAR2
777: ,p_ptvv_tbl IN ptvv_tbl_type) IS
778: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
779:
780: BEGIN
781: okl_ptv_pvt.lock_row(
782: p_api_version => p_api_version
785: ,x_msg_count => x_msg_count
786: ,x_msg_data => x_msg_data
787: ,p_ptvv_tbl => p_ptvv_tbl
788: );
789: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
790: RAISE G_EXCEPTION_HALT_VALIDATION;
791: ELSE
792: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
793: l_return_status := x_return_status;
788: );
789: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
790: RAISE G_EXCEPTION_HALT_VALIDATION;
791: ELSE
792: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
793: l_return_status := x_return_status;
794: END IF;
795: END IF;
796: EXCEPTION
796: EXCEPTION
797: WHEN G_EXCEPTION_HALT_VALIDATION THEN
798: NULL;
799: WHEN OTHERS THEN
800: OKC_API.SET_MESSAGE(p_app_name => g_app_name
801: ,p_msg_name => g_unexpected_error
802: ,p_token1 => g_sqlcode_token
803: ,p_token1_value => sqlcode
804: ,p_token2 => g_sqlerrm_token
802: ,p_token1 => g_sqlcode_token
803: ,p_token1_value => sqlcode
804: ,p_token2 => g_sqlerrm_token
805: ,p_token2_value => sqlerrm);
806: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
807: END lock_ptl_qlty_values;
808:
809: PROCEDURE update_ptl_qlty_values(
810: p_api_version IN NUMBER
807: END lock_ptl_qlty_values;
808:
809: PROCEDURE update_ptl_qlty_values(
810: p_api_version IN NUMBER
811: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
812: ,x_return_status OUT NOCOPY VARCHAR2
813: ,x_msg_count OUT NOCOPY NUMBER
814: ,x_msg_data OUT NOCOPY VARCHAR2
815: ,p_ptvv_rec IN ptvv_rec_type
813: ,x_msg_count OUT NOCOPY NUMBER
814: ,x_msg_data OUT NOCOPY VARCHAR2
815: ,p_ptvv_rec IN ptvv_rec_type
816: ,x_ptvv_rec OUT NOCOPY ptvv_rec_type) IS
817: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
818:
819: BEGIN
820: okl_ptv_pvt.update_row(
821: p_api_version => p_api_version
825: ,x_msg_data => x_msg_data
826: ,p_ptvv_rec => p_ptvv_rec
827: ,x_ptvv_rec => x_ptvv_rec
828: );
829: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
830: RAISE G_EXCEPTION_HALT_VALIDATION;
831: ELSE
832: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
833: l_return_status := x_return_status;
828: );
829: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
830: RAISE G_EXCEPTION_HALT_VALIDATION;
831: ELSE
832: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
833: l_return_status := x_return_status;
834: END IF;
835: END IF;
836: EXCEPTION
836: EXCEPTION
837: WHEN G_EXCEPTION_HALT_VALIDATION THEN
838: NULL;
839: WHEN OTHERS THEN
840: OKC_API.SET_MESSAGE(p_app_name => g_app_name
841: ,p_msg_name => g_unexpected_error
842: ,p_token1 => g_sqlcode_token
843: ,p_token1_value => sqlcode
844: ,p_token2 => g_sqlerrm_token
842: ,p_token1 => g_sqlcode_token
843: ,p_token1_value => sqlcode
844: ,p_token2 => g_sqlerrm_token
845: ,p_token2_value => sqlerrm);
846: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
847: END update_ptl_qlty_values;
848:
849: PROCEDURE update_ptl_qlty_values(
850: p_api_version IN NUMBER
847: END update_ptl_qlty_values;
848:
849: PROCEDURE update_ptl_qlty_values(
850: p_api_version IN NUMBER
851: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
852: ,x_return_status OUT NOCOPY VARCHAR2
853: ,x_msg_count OUT NOCOPY NUMBER
854: ,x_msg_data OUT NOCOPY VARCHAR2
855: ,p_ptvv_tbl IN ptvv_tbl_type
853: ,x_msg_count OUT NOCOPY NUMBER
854: ,x_msg_data OUT NOCOPY VARCHAR2
855: ,p_ptvv_tbl IN ptvv_tbl_type
856: ,x_ptvv_tbl OUT NOCOPY ptvv_tbl_type) IS
857: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
858:
859: BEGIN
860: okl_ptv_pvt.update_row(
861: p_api_version => p_api_version
865: ,x_msg_data => x_msg_data
866: ,p_ptvv_tbl => p_ptvv_tbl
867: ,x_ptvv_tbl => x_ptvv_tbl
868: );
869: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
870: RAISE G_EXCEPTION_HALT_VALIDATION;
871: ELSE
872: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
873: l_return_status := x_return_status;
868: );
869: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
870: RAISE G_EXCEPTION_HALT_VALIDATION;
871: ELSE
872: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
873: l_return_status := x_return_status;
874: END IF;
875: END IF;
876: EXCEPTION
876: EXCEPTION
877: WHEN G_EXCEPTION_HALT_VALIDATION THEN
878: NULL;
879: WHEN OTHERS THEN
880: OKC_API.SET_MESSAGE(p_app_name => g_app_name
881: ,p_msg_name => g_unexpected_error
882: ,p_token1 => g_sqlcode_token
883: ,p_token1_value => sqlcode
884: ,p_token2 => g_sqlerrm_token
882: ,p_token1 => g_sqlcode_token
883: ,p_token1_value => sqlcode
884: ,p_token2 => g_sqlerrm_token
885: ,p_token2_value => sqlerrm);
886: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
887: END update_ptl_qlty_values;
888:
889: --Put custom code for cascade delete by developer
890: PROCEDURE delete_ptl_qlty_values(
888:
889: --Put custom code for cascade delete by developer
890: PROCEDURE delete_ptl_qlty_values(
891: p_api_version IN NUMBER
892: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
893: ,x_return_status OUT NOCOPY VARCHAR2
894: ,x_msg_count OUT NOCOPY NUMBER
895: ,x_msg_data OUT NOCOPY VARCHAR2
896: ,p_ptvv_rec IN ptvv_rec_type) IS
894: ,x_msg_count OUT NOCOPY NUMBER
895: ,x_msg_data OUT NOCOPY VARCHAR2
896: ,p_ptvv_rec IN ptvv_rec_type) IS
897: i NUMBER :=0;
898: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
899: BEGIN
900: okl_ptv_pvt.delete_row(
901: p_api_version => p_api_version
902: ,p_init_msg_list => p_init_msg_list
903: ,x_return_status => x_return_status
904: ,x_msg_count => x_msg_count
905: ,x_msg_data => x_msg_data
906: ,p_ptvv_rec => p_ptvv_rec);
907: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
908: RAISE G_EXCEPTION_HALT_VALIDATION;
909: ELSE
910: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
911: l_return_status := x_return_status;
906: ,p_ptvv_rec => p_ptvv_rec);
907: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
908: RAISE G_EXCEPTION_HALT_VALIDATION;
909: ELSE
910: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
911: l_return_status := x_return_status;
912: END IF;
913: END IF;
914: EXCEPTION
914: EXCEPTION
915: WHEN G_EXCEPTION_HALT_VALIDATION THEN
916: NULL;
917: WHEN OTHERS THEN
918: OKC_API.SET_MESSAGE(p_app_name => g_app_name
919: ,p_msg_name => g_unexpected_error
920: ,p_token1 => g_sqlcode_token
921: ,p_token1_value => sqlcode
922: ,p_token2 => g_sqlerrm_token
920: ,p_token1 => g_sqlcode_token
921: ,p_token1_value => sqlcode
922: ,p_token2 => g_sqlerrm_token
923: ,p_token2_value => sqlerrm);
924: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
925: END delete_ptl_qlty_values;
926:
927: PROCEDURE delete_ptl_qlty_values(
928: p_api_version IN NUMBER
925: END delete_ptl_qlty_values;
926:
927: PROCEDURE delete_ptl_qlty_values(
928: p_api_version IN NUMBER
929: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
930: ,x_return_status OUT NOCOPY VARCHAR2
931: ,x_msg_count OUT NOCOPY NUMBER
932: ,x_msg_data OUT NOCOPY VARCHAR2
933: ,p_ptvv_tbl IN ptvv_tbl_type) IS
931: ,x_msg_count OUT NOCOPY NUMBER
932: ,x_msg_data OUT NOCOPY VARCHAR2
933: ,p_ptvv_tbl IN ptvv_tbl_type) IS
934: i NUMBER :=0;
935: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
936: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS; --TCHGS
937: BEGIN
938: --Initialize the return status
939: x_return_status := OKC_API.G_RET_STS_SUCCESS;
932: ,x_msg_data OUT NOCOPY VARCHAR2
933: ,p_ptvv_tbl IN ptvv_tbl_type) IS
934: i NUMBER :=0;
935: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
936: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS; --TCHGS
937: BEGIN
938: --Initialize the return status
939: x_return_status := OKC_API.G_RET_STS_SUCCESS;
940: IF (p_ptvv_tbl.COUNT > 0) THEN
935: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
936: l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS; --TCHGS
937: BEGIN
938: --Initialize the return status
939: x_return_status := OKC_API.G_RET_STS_SUCCESS;
940: IF (p_ptvv_tbl.COUNT > 0) THEN
941: i := p_ptvv_tbl.FIRST;
942: LOOP
943: delete_ptl_qlty_values(
947: ,x_msg_count => x_msg_count
948: ,x_msg_data => x_msg_data
949: ,p_ptvv_rec => p_ptvv_tbl(i));
950: -- TCHGS: Store the highest degree of error
951: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
952: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
953: l_overall_status := x_return_status;
954: END IF;
955: END IF;
948: ,x_msg_data => x_msg_data
949: ,p_ptvv_rec => p_ptvv_tbl(i));
950: -- TCHGS: Store the highest degree of error
951: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
952: IF l_overall_status <> OKC_API.G_RET_STS_UNEXP_ERROR THEN
953: l_overall_status := x_return_status;
954: END IF;
955: END IF;
956: EXIT WHEN (i = p_ptvv_tbl.LAST);
958: END LOOP;
959: --TCHGS: return overall status
960: x_return_status := l_overall_status;
961: END IF;
962: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
963: RAISE G_EXCEPTION_HALT_VALIDATION;
964: ELSE
965: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
966: l_return_status := x_return_status;
961: END IF;
962: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
963: RAISE G_EXCEPTION_HALT_VALIDATION;
964: ELSE
965: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
966: l_return_status := x_return_status;
967: END IF;
968: END IF;
969: EXCEPTION
969: EXCEPTION
970: WHEN G_EXCEPTION_HALT_VALIDATION THEN
971: NULL;
972: WHEN OTHERS THEN
973: OKC_API.SET_MESSAGE(p_app_name => g_app_name
974: ,p_msg_name => g_unexpected_error
975: ,p_token1 => g_sqlcode_token
976: ,p_token1_value => sqlcode
977: ,p_token2 => g_sqlerrm_token
975: ,p_token1 => g_sqlcode_token
976: ,p_token1_value => sqlcode
977: ,p_token2 => g_sqlerrm_token
978: ,p_token2_value => sqlerrm);
979: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
980: END delete_ptl_qlty_values;
981:
982: PROCEDURE validate_ptl_qlty_values(
983: p_api_version IN NUMBER
980: END delete_ptl_qlty_values;
981:
982: PROCEDURE validate_ptl_qlty_values(
983: p_api_version IN NUMBER
984: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
985: ,x_return_status OUT NOCOPY VARCHAR2
986: ,x_msg_count OUT NOCOPY NUMBER
987: ,x_msg_data OUT NOCOPY VARCHAR2
988: ,p_ptvv_rec IN ptvv_rec_type) IS
985: ,x_return_status OUT NOCOPY VARCHAR2
986: ,x_msg_count OUT NOCOPY NUMBER
987: ,x_msg_data OUT NOCOPY VARCHAR2
988: ,p_ptvv_rec IN ptvv_rec_type) IS
989: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
990: BEGIN
991: okl_ptv_pvt.validate_row(
992: p_api_version => p_api_version
993: ,p_init_msg_list => p_init_msg_list
995: ,x_msg_count => x_msg_count
996: ,x_msg_data => x_msg_data
997: ,p_ptvv_rec => p_ptvv_rec
998: );
999: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1000: RAISE G_EXCEPTION_HALT_VALIDATION;
1001: ELSE
1002: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
1003: l_return_status := x_return_status;
998: );
999: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1000: RAISE G_EXCEPTION_HALT_VALIDATION;
1001: ELSE
1002: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
1003: l_return_status := x_return_status;
1004: END IF;
1005: END IF;
1006: EXCEPTION
1006: EXCEPTION
1007: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1008: NULL;
1009: WHEN OTHERS THEN
1010: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1011: ,p_msg_name => g_unexpected_error
1012: ,p_token1 => g_sqlcode_token
1013: ,p_token1_value => sqlcode
1014: ,p_token2 => g_sqlerrm_token
1012: ,p_token1 => g_sqlcode_token
1013: ,p_token1_value => sqlcode
1014: ,p_token2 => g_sqlerrm_token
1015: ,p_token2_value => sqlerrm);
1016: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1017: END validate_ptl_qlty_values;
1018:
1019: PROCEDURE validate_ptl_qlty_values(
1020: p_api_version IN NUMBER
1017: END validate_ptl_qlty_values;
1018:
1019: PROCEDURE validate_ptl_qlty_values(
1020: p_api_version IN NUMBER
1021: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
1022: ,x_return_status OUT NOCOPY VARCHAR2
1023: ,x_msg_count OUT NOCOPY NUMBER
1024: ,x_msg_data OUT NOCOPY VARCHAR2
1025: ,p_ptvv_tbl IN ptvv_tbl_type) IS
1022: ,x_return_status OUT NOCOPY VARCHAR2
1023: ,x_msg_count OUT NOCOPY NUMBER
1024: ,x_msg_data OUT NOCOPY VARCHAR2
1025: ,p_ptvv_tbl IN ptvv_tbl_type) IS
1026: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1027: BEGIN
1028: okl_ptv_pvt.validate_row(
1029: p_api_version => p_api_version
1030: ,p_init_msg_list => p_init_msg_list
1032: ,x_msg_count => x_msg_count
1033: ,x_msg_data => x_msg_data
1034: ,p_ptvv_tbl => p_ptvv_tbl
1035: );
1036: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1037: RAISE G_EXCEPTION_HALT_VALIDATION;
1038: ELSE
1039: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
1040: l_return_status := x_return_status;
1035: );
1036: IF x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1037: RAISE G_EXCEPTION_HALT_VALIDATION;
1038: ELSE
1039: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
1040: l_return_status := x_return_status;
1041: END IF;
1042: END IF;
1043: EXCEPTION
1043: EXCEPTION
1044: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1045: NULL;
1046: WHEN OTHERS THEN
1047: OKC_API.SET_MESSAGE(p_app_name => g_app_name
1048: ,p_msg_name => g_unexpected_error
1049: ,p_token1 => g_sqlcode_token
1050: ,p_token1_value => sqlcode
1051: ,p_token2 => g_sqlerrm_token
1049: ,p_token1 => g_sqlcode_token
1050: ,p_token1_value => sqlcode
1051: ,p_token2 => g_sqlerrm_token
1052: ,p_token2_value => sqlerrm);
1053: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1054: END validate_ptl_qlty_values;
1055:
1056: END OKL_PTL_QUALITYS_PVT;