DBA Data[Home] [Help]

APPS.OKC_DOC_QA_LIST_PVT dependencies on OKC_DEBUG

Line 83: Okc_Debug.Log('400: Entered get_rec', 2);

79: t.DOCUMENT_TYPE = cp_document_type;
80: BEGIN
81:
82: IF (l_debug = 'Y') THEN
83: Okc_Debug.Log('400: Entered get_rec', 2);
84: END IF;
85:
86: -- Get current database values
87: OPEN OKC_DOC_QA_LISTS_pk_csr (p_qa_code, p_document_type);

Line 103: Okc_Debug.Log('500: Leaving get_rec ', 2);

99: END IF;
100: CLOSE OKC_DOC_QA_LISTS_pk_csr;
101:
102: IF (l_debug = 'Y') THEN
103: Okc_Debug.Log('500: Leaving get_rec ', 2);
104: END IF;
105:
106: RETURN G_RET_STS_SUCCESS ;
107:

Line 112: Okc_Debug.Log('600: Leaving get_rec because of EXCEPTION: '||sqlerrm, 2);

108: EXCEPTION
109: WHEN OTHERS THEN
110:
111: IF (l_debug = 'Y') THEN
112: Okc_Debug.Log('600: Leaving get_rec because of EXCEPTION: '||sqlerrm, 2);
113: END IF;
114:
115: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
116: p_msg_name => G_UNEXPECTED_ERROR,

Line 153: Okc_Debug.Log('700: Entered Set_Attributes ', 2);

149: l_last_update_login OKC_DOC_QA_LISTS.LAST_UPDATE_LOGIN%TYPE;
150: l_last_update_date OKC_DOC_QA_LISTS.LAST_UPDATE_DATE%TYPE;
151: BEGIN
152: IF (l_debug = 'Y') THEN
153: Okc_Debug.Log('700: Entered Set_Attributes ', 2);
154: END IF;
155:
156: IF( p_qa_code IS NOT NULL AND p_document_type IS NOT NULL ) THEN
157: -- Get current database values

Line 195: Okc_Debug.Log('800: Leaving Set_Attributes ', 2);

191:
192: END IF;
193:
194: IF (l_debug = 'Y') THEN
195: Okc_Debug.Log('800: Leaving Set_Attributes ', 2);
196: END IF;
197:
198: RETURN G_RET_STS_SUCCESS ;
199: EXCEPTION

Line 202: Okc_Debug.Log('900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception', 2);

198: RETURN G_RET_STS_SUCCESS ;
199: EXCEPTION
200: WHEN FND_API.G_EXC_ERROR THEN
201: IF (l_debug = 'Y') THEN
202: Okc_Debug.Log('900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception', 2);
203: END IF;
204: RETURN G_RET_STS_ERROR;
205:
206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 208: Okc_Debug.Log('1000: Leaving Set_Attributes:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);

204: RETURN G_RET_STS_ERROR;
205:
206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
207: IF (l_debug = 'Y') THEN
208: Okc_Debug.Log('1000: Leaving Set_Attributes:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
209: END IF;
210: RETURN G_RET_STS_UNEXP_ERROR;
211:
212: WHEN OTHERS THEN

Line 214: Okc_Debug.Log('1100: Leaving Set_Attributes because of EXCEPTION: '||sqlerrm, 2);

210: RETURN G_RET_STS_UNEXP_ERROR;
211:
212: WHEN OTHERS THEN
213: IF (l_debug = 'Y') THEN
214: Okc_Debug.Log('1100: Leaving Set_Attributes because of EXCEPTION: '||sqlerrm, 2);
215: END IF;
216: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
217: p_msg_name => G_UNEXPECTED_ERROR,
218: p_token1 => G_SQLCODE_TOKEN,

Line 246: Okc_Debug.Log('1200: Entered Validate_Attributes', 2);

242: WHERE DOCUMENT_TYPE = p_document_type;
243: BEGIN
244:
245: IF (l_debug = 'Y') THEN
246: Okc_Debug.Log('1200: Entered Validate_Attributes', 2);
247: END IF;
248:
249: IF p_validation_level > G_REQUIRED_VALUE_VALID_LEVEL THEN
250: IF (l_debug = 'Y') THEN

Line 251: Okc_Debug.Log('1300: required values validation', 2);

247: END IF;
248:
249: IF p_validation_level > G_REQUIRED_VALUE_VALID_LEVEL THEN
250: IF (l_debug = 'Y') THEN
251: Okc_Debug.Log('1300: required values validation', 2);
252: END IF;
253:
254: IF (l_debug = 'Y') THEN
255: Okc_Debug.Log('1400: - attribute QA_CODE ', 2);

Line 255: Okc_Debug.Log('1400: - attribute QA_CODE ', 2);

251: Okc_Debug.Log('1300: required values validation', 2);
252: END IF;
253:
254: IF (l_debug = 'Y') THEN
255: Okc_Debug.Log('1400: - attribute QA_CODE ', 2);
256: END IF;
257: IF ( p_qa_code IS NULL) THEN
258: IF (l_debug = 'Y') THEN
259: Okc_Debug.Log('1500: - attribute QA_CODE is invalid', 2);

Line 259: Okc_Debug.Log('1500: - attribute QA_CODE is invalid', 2);

255: Okc_Debug.Log('1400: - attribute QA_CODE ', 2);
256: END IF;
257: IF ( p_qa_code IS NULL) THEN
258: IF (l_debug = 'Y') THEN
259: Okc_Debug.Log('1500: - attribute QA_CODE is invalid', 2);
260: END IF;
261: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'QA_CODE');
262: l_return_status := G_RET_STS_ERROR;
263: END IF;

Line 266: Okc_Debug.Log('1400: - attribute DOCUMENT_TYPE ', 2);

262: l_return_status := G_RET_STS_ERROR;
263: END IF;
264:
265: IF (l_debug = 'Y') THEN
266: Okc_Debug.Log('1400: - attribute DOCUMENT_TYPE ', 2);
267: END IF;
268: IF ( p_document_type IS NULL) THEN
269: IF (l_debug = 'Y') THEN
270: Okc_Debug.Log('1500: - attribute DOCUMENT_TYPE is invalid', 2);

Line 270: Okc_Debug.Log('1500: - attribute DOCUMENT_TYPE is invalid', 2);

266: Okc_Debug.Log('1400: - attribute DOCUMENT_TYPE ', 2);
267: END IF;
268: IF ( p_document_type IS NULL) THEN
269: IF (l_debug = 'Y') THEN
270: Okc_Debug.Log('1500: - attribute DOCUMENT_TYPE is invalid', 2);
271: END IF;
272: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'DOCUMENT_TYPE');
273: l_return_status := G_RET_STS_ERROR;
274: END IF;

Line 277: Okc_Debug.Log('1400: - attribute SEVERITY_FLAG ', 2);

273: l_return_status := G_RET_STS_ERROR;
274: END IF;
275:
276: IF (l_debug = 'Y') THEN
277: Okc_Debug.Log('1400: - attribute SEVERITY_FLAG ', 2);
278: END IF;
279: IF ( p_severity_flag IS NULL) THEN
280: IF (l_debug = 'Y') THEN
281: Okc_Debug.Log('1500: - attribute SEVERITY_FLAG is invalid', 2);

Line 281: Okc_Debug.Log('1500: - attribute SEVERITY_FLAG is invalid', 2);

277: Okc_Debug.Log('1400: - attribute SEVERITY_FLAG ', 2);
278: END IF;
279: IF ( p_severity_flag IS NULL) THEN
280: IF (l_debug = 'Y') THEN
281: Okc_Debug.Log('1500: - attribute SEVERITY_FLAG is invalid', 2);
282: END IF;
283: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'SEVERITY_FLAG');
284: l_return_status := G_RET_STS_ERROR;
285: END IF;

Line 288: Okc_Debug.Log('1400: - attribute ENABLE_QA_YN ', 2);

284: l_return_status := G_RET_STS_ERROR;
285: END IF;
286:
287: IF (l_debug = 'Y') THEN
288: Okc_Debug.Log('1400: - attribute ENABLE_QA_YN ', 2);
289: END IF;
290: IF ( p_enable_qa_yn IS NULL) THEN
291: IF (l_debug = 'Y') THEN
292: Okc_Debug.Log('1500: - attribute ENABLE_QA_YN is invalid', 2);

Line 292: Okc_Debug.Log('1500: - attribute ENABLE_QA_YN is invalid', 2);

288: Okc_Debug.Log('1400: - attribute ENABLE_QA_YN ', 2);
289: END IF;
290: IF ( p_enable_qa_yn IS NULL) THEN
291: IF (l_debug = 'Y') THEN
292: Okc_Debug.Log('1500: - attribute ENABLE_QA_YN is invalid', 2);
293: END IF;
294: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'ENABLE_QA_YN');
295: l_return_status := G_RET_STS_ERROR;
296: END IF;

Line 301: Okc_Debug.Log('1600: static values and range validation', 2);

297: END IF;
298:
299: IF p_validation_level > G_VALID_VALUE_VALID_LEVEL THEN
300: IF (l_debug = 'Y') THEN
301: Okc_Debug.Log('1600: static values and range validation', 2);
302: END IF;
303:
304: IF (l_debug = 'Y') THEN
305: Okc_Debug.Log('1700: - attribute SEVERITY_FLAG ', 2);

Line 305: Okc_Debug.Log('1700: - attribute SEVERITY_FLAG ', 2);

301: Okc_Debug.Log('1600: static values and range validation', 2);
302: END IF;
303:
304: IF (l_debug = 'Y') THEN
305: Okc_Debug.Log('1700: - attribute SEVERITY_FLAG ', 2);
306: END IF;
307: IF ( p_severity_flag NOT IN ('E','W') AND p_severity_flag IS NOT NULL) THEN
308: IF (l_debug = 'Y') THEN
309: Okc_Debug.Log('1800: - attribute SEVERITY_FLAG is invalid', 2);

Line 309: Okc_Debug.Log('1800: - attribute SEVERITY_FLAG is invalid', 2);

305: Okc_Debug.Log('1700: - attribute SEVERITY_FLAG ', 2);
306: END IF;
307: IF ( p_severity_flag NOT IN ('E','W') AND p_severity_flag IS NOT NULL) THEN
308: IF (l_debug = 'Y') THEN
309: Okc_Debug.Log('1800: - attribute SEVERITY_FLAG is invalid', 2);
310: END IF;
311: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'SEVERITY_FLAG');
312: l_return_status := G_RET_STS_ERROR;
313: END IF;

Line 317: Okc_Debug.Log('1700: - attribute ENABLE_QA_YN ', 2);

313: END IF;
314:
315:
316: IF (l_debug = 'Y') THEN
317: Okc_Debug.Log('1700: - attribute ENABLE_QA_YN ', 2);
318: END IF;
319: IF ( p_ENABLE_QA_YN NOT IN ('Y','N') AND p_ENABLE_QA_YN IS NOT NULL) THEN
320: IF (l_debug = 'Y') THEN
321: Okc_Debug.Log('1800: - attribute ENABLE_QA_YN is invalid', 2);

Line 321: Okc_Debug.Log('1800: - attribute ENABLE_QA_YN is invalid', 2);

317: Okc_Debug.Log('1700: - attribute ENABLE_QA_YN ', 2);
318: END IF;
319: IF ( p_ENABLE_QA_YN NOT IN ('Y','N') AND p_ENABLE_QA_YN IS NOT NULL) THEN
320: IF (l_debug = 'Y') THEN
321: Okc_Debug.Log('1800: - attribute ENABLE_QA_YN is invalid', 2);
322: END IF;
323: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'ENABLE_QA_YN');
324: l_return_status := G_RET_STS_ERROR;
325: END IF;

Line 330: Okc_Debug.Log('1900: lookup codes validation', 2);

326: END IF;
327:
328: IF p_validation_level > G_LOOKUP_CODE_VALID_LEVEL THEN
329: IF (l_debug = 'Y') THEN
330: Okc_Debug.Log('1900: lookup codes validation', 2);
331: END IF;
332: IF (l_debug = 'Y') THEN
333: Okc_Debug.Log('2000: - attribute QA_CODE ', 2);
334: END IF;

Line 333: Okc_Debug.Log('2000: - attribute QA_CODE ', 2);

329: IF (l_debug = 'Y') THEN
330: Okc_Debug.Log('1900: lookup codes validation', 2);
331: END IF;
332: IF (l_debug = 'Y') THEN
333: Okc_Debug.Log('2000: - attribute QA_CODE ', 2);
334: END IF;
335: IF p_qa_code IS NOT NULL THEN
336: l_return_status := Okc_Util.Check_Lookup_Code('OKC_TERM_QA_LIST',p_qa_code);
337: IF (l_return_status <> G_RET_STS_SUCCESS) THEN

Line 346: Okc_Debug.Log('2100: foreigh keys validation ', 2);

342: END IF;
343:
344: IF p_validation_level > G_FOREIGN_KEY_VALID_LEVEL THEN
345: IF (l_debug = 'Y') THEN
346: Okc_Debug.Log('2100: foreigh keys validation ', 2);
347: END IF;
348:
349: IF (l_debug = 'Y') THEN
350: Okc_Debug.Log('2200: - attribute DOCUMENT_TYPE ', 2);

Line 350: Okc_Debug.Log('2200: - attribute DOCUMENT_TYPE ', 2);

346: Okc_Debug.Log('2100: foreigh keys validation ', 2);
347: END IF;
348:
349: IF (l_debug = 'Y') THEN
350: Okc_Debug.Log('2200: - attribute DOCUMENT_TYPE ', 2);
351: END IF;
352: IF p_document_type IS NOT NULL THEN
353: l_dummy_var := '?';
354: OPEN l_doc_type_csr ;

Line 359: Okc_Debug.Log('2300: - attribute DOCUMENT_TYPE is invalid', 2);

355: FETCH l_doc_type_csr INTO l_dummy_var;
356: CLOSE l_doc_type_csr ;
357: IF (l_dummy_var = '?') THEN
358: IF (l_debug = 'Y') THEN
359: Okc_Debug.Log('2300: - attribute DOCUMENT_TYPE is invalid', 2);
360: END IF;
361: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'DOCUMENT_TYPE');
362: l_return_status := G_RET_STS_ERROR;
363: END IF;

Line 370: Okc_Debug.Log('2400: Leaving Validate_Attributes ', 2);

366: END IF;
367:
368:
369: IF (l_debug = 'Y') THEN
370: Okc_Debug.Log('2400: Leaving Validate_Attributes ', 2);
371: END IF;
372:
373: RETURN l_return_status;
374:

Line 377: Okc_Debug.Log('2500: Leaving Validate_Attributes because of EXCEPTION: '||sqlerrm, 2);

373: RETURN l_return_status;
374:
375: EXCEPTION
376: WHEN OTHERS THEN
377: Okc_Debug.Log('2500: Leaving Validate_Attributes because of EXCEPTION: '||sqlerrm, 2);
378: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
379: p_msg_name => G_UNEXPECTED_ERROR,
380: p_token1 => G_SQLCODE_TOKEN,
381: p_token1_value => sqlcode,

Line 413: Okc_Debug.Log('2600: Entered Validate_Record', 2);

409: l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
410: BEGIN
411:
412: IF (l_debug = 'Y') THEN
413: Okc_Debug.Log('2600: Entered Validate_Record', 2);
414: END IF;
415:
416: --- Validate all non-missing attributes (Item Level Validation)
417: l_return_status := Validate_Attributes(

Line 427: Okc_Debug.Log('2700: Leaving Validate_Record because of UNEXP_ERROR in Validate_Attributes: '||sqlerrm, 2);

423: p_enable_qa_yn => p_enable_qa_yn
424: );
425: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
426: IF (l_debug = 'Y') THEN
427: Okc_Debug.Log('2700: Leaving Validate_Record because of UNEXP_ERROR in Validate_Attributes: '||sqlerrm, 2);
428: END IF;
429: RETURN G_RET_STS_UNEXP_ERROR;
430: END IF;
431:

Line 435: Okc_Debug.Log('2800: Entered Record Level Validations', 2);

431:
432: --- Record Level Validation
433: IF p_validation_level > G_RECORD_VALID_LEVEL THEN
434: IF (l_debug = 'Y') THEN
435: Okc_Debug.Log('2800: Entered Record Level Validations', 2);
436: END IF;
437: /*+++++++++++++start of hand code +++++++++++++++++++*/
438: -- ?? manual coding for Record Level Validations if required ??
439: /*+++++++++++++End of hand code +++++++++++++++++++*/

Line 443: Okc_Debug.Log('2900: Leaving Validate_Record : '||sqlerrm, 2);

439: /*+++++++++++++End of hand code +++++++++++++++++++*/
440: END IF;
441:
442: IF (l_debug = 'Y') THEN
443: Okc_Debug.Log('2900: Leaving Validate_Record : '||sqlerrm, 2);
444: END IF;
445: RETURN l_return_status ;
446:
447: EXCEPTION

Line 451: Okc_Debug.Log('3000: Leaving Validate_Record because of EXCEPTION: '||sqlerrm, 2);

447: EXCEPTION
448: WHEN OTHERS THEN
449:
450: IF (l_debug = 'Y') THEN
451: Okc_Debug.Log('3000: Leaving Validate_Record because of EXCEPTION: '||sqlerrm, 2);
452: END IF;
453:
454: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
455: p_msg_name => G_UNEXPECTED_ERROR,

Line 495: Okc_Debug.Log('3100: Entered validate_row', 2);

491: l_last_update_date OKC_DOC_QA_LISTS.LAST_UPDATE_DATE%TYPE;
492: BEGIN
493:
494: IF (l_debug = 'Y') THEN
495: Okc_Debug.Log('3100: Entered validate_row', 2);
496: END IF;
497:
498: -- Setting attributes
499: x_return_status := Set_Attributes(

Line 525: Okc_Debug.Log('3200: Leaving validate_row', 2);

521: p_enable_qa_yn => l_enable_qa_yn
522: );
523:
524: IF (l_debug = 'Y') THEN
525: Okc_Debug.Log('3200: Leaving validate_row', 2);
526: END IF;
527:
528: EXCEPTION
529: WHEN FND_API.G_EXC_ERROR THEN

Line 531: Okc_Debug.Log('3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception', 2);

527:
528: EXCEPTION
529: WHEN FND_API.G_EXC_ERROR THEN
530: IF (l_debug = 'Y') THEN
531: Okc_Debug.Log('3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception', 2);
532: END IF;
533: x_return_status := G_RET_STS_ERROR;
534:
535: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 537: Okc_Debug.Log('3400: Leaving Validate_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);

533: x_return_status := G_RET_STS_ERROR;
534:
535: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
536: IF (l_debug = 'Y') THEN
537: Okc_Debug.Log('3400: Leaving Validate_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
538: END IF;
539: x_return_status := G_RET_STS_UNEXP_ERROR;
540:
541: WHEN OTHERS THEN

Line 543: Okc_Debug.Log('3500: Leaving Validate_Row because of EXCEPTION: '||sqlerrm, 2);

539: x_return_status := G_RET_STS_UNEXP_ERROR;
540:
541: WHEN OTHERS THEN
542: IF (l_debug = 'Y') THEN
543: Okc_Debug.Log('3500: Leaving Validate_Row because of EXCEPTION: '||sqlerrm, 2);
544: END IF;
545: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
546: p_msg_name => G_UNEXPECTED_ERROR,
547: p_token1 => G_SQLCODE_TOKEN,

Line 578: Okc_Debug.Log('3600: Entered Insert_Row function', 2);

574:
575: BEGIN
576:
577: IF (l_debug = 'Y') THEN
578: Okc_Debug.Log('3600: Entered Insert_Row function', 2);
579: END IF;
580:
581: INSERT INTO OKC_DOC_QA_LISTS(
582: QA_CODE,

Line 605: Okc_Debug.Log('3700: Leaving Insert_Row', 2);

601: p_last_update_login,
602: p_last_update_date);
603:
604: IF (l_debug = 'Y') THEN
605: Okc_Debug.Log('3700: Leaving Insert_Row', 2);
606: END IF;
607:
608: RETURN( G_RET_STS_SUCCESS );
609:

Line 614: Okc_Debug.Log('3800: Leaving Insert_Row:OTHERS Exception', 2);

610: EXCEPTION
611: WHEN OTHERS THEN
612:
613: IF (l_debug = 'Y') THEN
614: Okc_Debug.Log('3800: Leaving Insert_Row:OTHERS Exception', 2);
615: END IF;
616:
617: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
618: p_msg_name => G_UNEXPECTED_ERROR,

Line 659: Okc_Debug.Log('4200: Entered Insert_Row', 2);

655:
656: x_return_status := G_RET_STS_SUCCESS;
657:
658: IF (l_debug = 'Y') THEN
659: Okc_Debug.Log('4200: Entered Insert_Row', 2);
660: END IF;
661:
662: --- Setting item attributes
663: -- Set primary key value

Line 694: Okc_Debug.Log('4300: Call the internal Insert_Row for Base Table', 2);

690: --------------------------------------------
691: -- Call the internal Insert_Row for each child record
692: --------------------------------------------
693: IF (l_debug = 'Y') THEN
694: Okc_Debug.Log('4300: Call the internal Insert_Row for Base Table', 2);
695: END IF;
696:
697: x_return_status := Insert_Row(
698: p_qa_code => x_qa_code,

Line 718: Okc_Debug.Log('4500: Leaving Insert_Row', 2);

714:
715:
716:
717: IF (l_debug = 'Y') THEN
718: Okc_Debug.Log('4500: Leaving Insert_Row', 2);
719: END IF;
720:
721: EXCEPTION
722: WHEN FND_API.G_EXC_ERROR THEN

Line 724: Okc_Debug.Log('4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception', 2);

720:
721: EXCEPTION
722: WHEN FND_API.G_EXC_ERROR THEN
723: IF (l_debug = 'Y') THEN
724: Okc_Debug.Log('4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception', 2);
725: END IF;
726: x_return_status := G_RET_STS_ERROR;
727:
728: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 730: Okc_Debug.Log('4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);

726: x_return_status := G_RET_STS_ERROR;
727:
728: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
729: IF (l_debug = 'Y') THEN
730: Okc_Debug.Log('4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
731: END IF;
732: x_return_status := G_RET_STS_UNEXP_ERROR;
733:
734: WHEN OTHERS THEN

Line 736: Okc_Debug.Log('4800: Leaving Insert_Row because of EXCEPTION: '||sqlerrm, 2);

732: x_return_status := G_RET_STS_UNEXP_ERROR;
733:
734: WHEN OTHERS THEN
735: IF (l_debug = 'Y') THEN
736: Okc_Debug.Log('4800: Leaving Insert_Row because of EXCEPTION: '||sqlerrm, 2);
737: END IF;
738: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
739: p_msg_name => G_UNEXPECTED_ERROR,
740: p_token1 => G_SQLCODE_TOKEN,

Line 782: Okc_Debug.Log('4900: Entered Lock_Row', 2);

778: l_row_notfound BOOLEAN := FALSE;
779: BEGIN
780:
781: IF (l_debug = 'Y') THEN
782: Okc_Debug.Log('4900: Entered Lock_Row', 2);
783: END IF;
784:
785:
786: BEGIN

Line 797: Okc_Debug.Log('5000: Leaving Lock_Row:E_Resource_Busy Exception', 2);

793: EXCEPTION
794: WHEN E_Resource_Busy THEN
795:
796: IF (l_debug = 'Y') THEN
797: Okc_Debug.Log('5000: Leaving Lock_Row:E_Resource_Busy Exception', 2);
798: END IF;
799:
800: IF (lock_csr%ISOPEN) THEN
801: CLOSE lock_csr;

Line 829: Okc_Debug.Log('5100: Leaving Lock_Row', 2);

825: l_return_status := G_RET_STS_SUCCESS;
826: END IF;
827:
828: IF (l_debug = 'Y') THEN
829: Okc_Debug.Log('5100: Leaving Lock_Row', 2);
830: END IF;
831:
832: RETURN( l_return_status );
833:

Line 845: Okc_Debug.Log('5200: Leaving Lock_Row because of EXCEPTION: '||sqlerrm, 2);

841: CLOSE lchk_csr;
842: END IF;
843:
844: IF (l_debug = 'Y') THEN
845: Okc_Debug.Log('5200: Leaving Lock_Row because of EXCEPTION: '||sqlerrm, 2);
846: END IF;
847:
848: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
849: p_msg_name => G_UNEXPECTED_ERROR,

Line 871: Okc_Debug.Log('5700: Entered Lock_Row', 2);

867: ) IS
868: BEGIN
869:
870: IF (l_debug = 'Y') THEN
871: Okc_Debug.Log('5700: Entered Lock_Row', 2);
872: Okc_Debug.Log('5800: Locking Row for Base Table', 2);
873: END IF;
874:
875: --------------------------------------------

Line 872: Okc_Debug.Log('5800: Locking Row for Base Table', 2);

868: BEGIN
869:
870: IF (l_debug = 'Y') THEN
871: Okc_Debug.Log('5700: Entered Lock_Row', 2);
872: Okc_Debug.Log('5800: Locking Row for Base Table', 2);
873: END IF;
874:
875: --------------------------------------------
876: -- Call the LOCK_ROW for each _B child record

Line 892: Okc_Debug.Log('6000: Leaving Lock_Row', 2);

888:
889:
890:
891: IF (l_debug = 'Y') THEN
892: Okc_Debug.Log('6000: Leaving Lock_Row', 2);
893: END IF;
894:
895: EXCEPTION
896: WHEN FND_API.G_EXC_ERROR THEN

Line 898: Okc_Debug.Log('6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception', 2);

894:
895: EXCEPTION
896: WHEN FND_API.G_EXC_ERROR THEN
897: IF (l_debug = 'Y') THEN
898: Okc_Debug.Log('6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception', 2);
899: END IF;
900: x_return_status := G_RET_STS_ERROR;
901:
902: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 904: Okc_Debug.Log('6200: Leaving Lock_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);

900: x_return_status := G_RET_STS_ERROR;
901:
902: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
903: IF (l_debug = 'Y') THEN
904: Okc_Debug.Log('6200: Leaving Lock_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
905: END IF;
906: x_return_status := G_RET_STS_UNEXP_ERROR;
907:
908: WHEN OTHERS THEN

Line 910: Okc_Debug.Log('6300: Leaving Lock_Row because of EXCEPTION: '||sqlerrm, 2);

906: x_return_status := G_RET_STS_UNEXP_ERROR;
907:
908: WHEN OTHERS THEN
909: IF (l_debug = 'Y') THEN
910: Okc_Debug.Log('6300: Leaving Lock_Row because of EXCEPTION: '||sqlerrm, 2);
911: END IF;
912: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
913: p_msg_name => G_UNEXPECTED_ERROR,
914: p_token1 => G_SQLCODE_TOKEN,

Line 941: Okc_Debug.Log('6400: Entered Update_Row', 2);

937:
938: BEGIN
939:
940: IF (l_debug = 'Y') THEN
941: Okc_Debug.Log('6400: Entered Update_Row', 2);
942: END IF;
943:
944: UPDATE OKC_DOC_QA_LISTS
945: SET SEVERITY_FLAG = p_severity_flag,

Line 954: Okc_Debug.Log('6500: Leaving Update_Row', 2);

950: LAST_UPDATE_DATE = p_last_update_date
951: WHERE QA_CODE = p_qa_code AND DOCUMENT_TYPE = p_document_type;
952:
953: IF (l_debug = 'Y') THEN
954: Okc_Debug.Log('6500: Leaving Update_Row', 2);
955: END IF;
956:
957: RETURN G_RET_STS_SUCCESS ;
958:

Line 963: Okc_Debug.Log('6600: Leaving Update_Row because of EXCEPTION: '||sqlerrm, 2);

959: EXCEPTION
960: WHEN OTHERS THEN
961:
962: IF (l_debug = 'Y') THEN
963: Okc_Debug.Log('6600: Leaving Update_Row because of EXCEPTION: '||sqlerrm, 2);
964: END IF;
965:
966: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
967: p_msg_name => G_UNEXPECTED_ERROR,

Line 1004: Okc_Debug.Log('7000: Entered Update_Row', 2);

1000:
1001: BEGIN
1002:
1003: IF (l_debug = 'Y') THEN
1004: Okc_Debug.Log('7000: Entered Update_Row', 2);
1005: Okc_Debug.Log('7100: Locking _B row', 2);
1006: END IF;
1007:
1008: x_return_status := Lock_row(

Line 1005: Okc_Debug.Log('7100: Locking _B row', 2);

1001: BEGIN
1002:
1003: IF (l_debug = 'Y') THEN
1004: Okc_Debug.Log('7000: Entered Update_Row', 2);
1005: Okc_Debug.Log('7100: Locking _B row', 2);
1006: END IF;
1007:
1008: x_return_status := Lock_row(
1009: p_qa_code => p_qa_code,

Line 1021: Okc_Debug.Log('7300: Setting attributes', 2);

1017: END IF;
1018:
1019:
1020: IF (l_debug = 'Y') THEN
1021: Okc_Debug.Log('7300: Setting attributes', 2);
1022: END IF;
1023:
1024: x_return_status := Set_Attributes(
1025: p_qa_code => p_qa_code,

Line 1041: Okc_Debug.Log('7400: Record Validation', 2);

1037: RAISE FND_API.G_EXC_ERROR;
1038: END IF;
1039:
1040: IF (l_debug = 'Y') THEN
1041: Okc_Debug.Log('7400: Record Validation', 2);
1042: END IF;
1043:
1044: --- Validate all non-missing attributes
1045: x_return_status := Validate_Record(

Line 1060: Okc_Debug.Log('7500: Filling WHO columns', 2);

1056: RAISE FND_API.G_EXC_ERROR;
1057: END IF;
1058:
1059: IF (l_debug = 'Y') THEN
1060: Okc_Debug.Log('7500: Filling WHO columns', 2);
1061: END IF;
1062:
1063: -- Filling who columns
1064: l_last_update_date := SYSDATE;

Line 1077: Okc_Debug.Log('7600: Updating Row', 2);

1073: --------------------------------------------
1074: -- Call the Update_Row for each child record
1075: --------------------------------------------
1076: IF (l_debug = 'Y') THEN
1077: Okc_Debug.Log('7600: Updating Row', 2);
1078: END IF;
1079:
1080: x_return_status := Update_Row(
1081: p_qa_code => p_qa_code,

Line 1098: Okc_Debug.Log('7800: Leaving Update_Row', 2);

1094: END IF;
1095:
1096:
1097: IF (l_debug = 'Y') THEN
1098: Okc_Debug.Log('7800: Leaving Update_Row', 2);
1099: END IF;
1100:
1101: EXCEPTION
1102: WHEN FND_API.G_EXC_ERROR THEN

Line 1104: Okc_Debug.Log('7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception', 2);

1100:
1101: EXCEPTION
1102: WHEN FND_API.G_EXC_ERROR THEN
1103: IF (l_debug = 'Y') THEN
1104: Okc_Debug.Log('7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception', 2);
1105: END IF;
1106: x_return_status := G_RET_STS_ERROR;
1107:
1108: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 1110: Okc_Debug.Log('8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);

1106: x_return_status := G_RET_STS_ERROR;
1107:
1108: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1109: IF (l_debug = 'Y') THEN
1110: Okc_Debug.Log('8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1111: END IF;
1112: x_return_status := G_RET_STS_UNEXP_ERROR;
1113:
1114: WHEN OTHERS THEN

Line 1116: Okc_Debug.Log('8100: Leaving Update_Row because of EXCEPTION: '||sqlerrm, 2);

1112: x_return_status := G_RET_STS_UNEXP_ERROR;
1113:
1114: WHEN OTHERS THEN
1115: IF (l_debug = 'Y') THEN
1116: Okc_Debug.Log('8100: Leaving Update_Row because of EXCEPTION: '||sqlerrm, 2);
1117: END IF;
1118: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1119: p_msg_name => G_UNEXPECTED_ERROR,
1120: p_token1 => G_SQLCODE_TOKEN,

Line 1142: Okc_Debug.Log('8200: Entered Delete_Row', 2);

1138:
1139: BEGIN
1140:
1141: IF (l_debug = 'Y') THEN
1142: Okc_Debug.Log('8200: Entered Delete_Row', 2);
1143: END IF;
1144:
1145: DELETE FROM OKC_DOC_QA_LISTS
1146: WHERE QA_CODE = p_QA_CODE AND DOCUMENT_TYPE = p_DOCUMENT_TYPE;

Line 1149: Okc_Debug.Log('8300: Leaving Delete_Row', 2);

1145: DELETE FROM OKC_DOC_QA_LISTS
1146: WHERE QA_CODE = p_QA_CODE AND DOCUMENT_TYPE = p_DOCUMENT_TYPE;
1147:
1148: IF (l_debug = 'Y') THEN
1149: Okc_Debug.Log('8300: Leaving Delete_Row', 2);
1150: END IF;
1151:
1152: RETURN( G_RET_STS_SUCCESS );
1153:

Line 1158: Okc_Debug.Log('8400: Leaving Delete_Row because of EXCEPTION: '||sqlerrm, 2);

1154: EXCEPTION
1155: WHEN OTHERS THEN
1156:
1157: IF (l_debug = 'Y') THEN
1158: Okc_Debug.Log('8400: Leaving Delete_Row because of EXCEPTION: '||sqlerrm, 2);
1159: END IF;
1160:
1161: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1162: p_msg_name => G_UNEXPECTED_ERROR,

Line 1185: Okc_Debug.Log('8800: Entered Delete_Row', 2);

1181: l_api_name CONSTANT VARCHAR2(30) := 'B_Delete_Row';
1182: BEGIN
1183:
1184: IF (l_debug = 'Y') THEN
1185: Okc_Debug.Log('8800: Entered Delete_Row', 2);
1186: Okc_Debug.Log('8900: Locking _B row', 2);
1187: END IF;
1188:
1189: x_return_status := Lock_row(

Line 1186: Okc_Debug.Log('8900: Locking _B row', 2);

1182: BEGIN
1183:
1184: IF (l_debug = 'Y') THEN
1185: Okc_Debug.Log('8800: Entered Delete_Row', 2);
1186: Okc_Debug.Log('8900: Locking _B row', 2);
1187: END IF;
1188:
1189: x_return_status := Lock_row(
1190: p_qa_code => p_qa_code,

Line 1202: Okc_Debug.Log('9100: Removing _B row', 2);

1198: END IF;
1199:
1200:
1201: IF (l_debug = 'Y') THEN
1202: Okc_Debug.Log('9100: Removing _B row', 2);
1203: END IF;
1204: x_return_status := Delete_Row( p_qa_code => p_qa_code,p_document_type => p_document_type );
1205: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

Line 1213: Okc_Debug.Log('9300: Leaving Delete_Row', 2);

1209: END IF;
1210:
1211:
1212: IF (l_debug = 'Y') THEN
1213: Okc_Debug.Log('9300: Leaving Delete_Row', 2);
1214: END IF;
1215:
1216: EXCEPTION
1217: WHEN FND_API.G_EXC_ERROR THEN

Line 1219: Okc_Debug.Log('9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception', 2);

1215:
1216: EXCEPTION
1217: WHEN FND_API.G_EXC_ERROR THEN
1218: IF (l_debug = 'Y') THEN
1219: Okc_Debug.Log('9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception', 2);
1220: END IF;
1221: x_return_status := G_RET_STS_ERROR;
1222:
1223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 1225: Okc_Debug.Log('9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);

1221: x_return_status := G_RET_STS_ERROR;
1222:
1223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1224: IF (l_debug = 'Y') THEN
1225: Okc_Debug.Log('9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1226: END IF;
1227: x_return_status := G_RET_STS_UNEXP_ERROR;
1228:
1229: WHEN OTHERS THEN

Line 1231: Okc_Debug.Log('9600: Leaving Delete_Row because of EXCEPTION: '||sqlerrm, 2);

1227: x_return_status := G_RET_STS_UNEXP_ERROR;
1228:
1229: WHEN OTHERS THEN
1230: IF (l_debug = 'Y') THEN
1231: Okc_Debug.Log('9600: Leaving Delete_Row because of EXCEPTION: '||sqlerrm, 2);
1232: END IF;
1233: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1234: p_msg_name => G_UNEXPECTED_ERROR,
1235: p_token1 => G_SQLCODE_TOKEN,