10:
11: l_api_name CONSTANT VARCHAR2(30) := 'LOAD_CLAUSE_XML';
12: BEGIN
13:
14: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
16: 'LOAD_CLAUSE_XML procedure started. Params: p_token: '|| p_token || ', p_mode: '||p_mode);
17: END IF;
18:
11: l_api_name CONSTANT VARCHAR2(30) := 'LOAD_CLAUSE_XML';
12: BEGIN
13:
14: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
16: 'LOAD_CLAUSE_XML procedure started. Params: p_token: '|| p_token || ', p_mode: '||p_mode);
17: END IF;
18:
19: IF p_mode IS NULL OR NOT(p_mode = 'DOC' OR p_mode = 'LIB') THEN
19: IF p_mode IS NULL OR NOT(p_mode = 'DOC' OR p_mode = 'LIB') THEN
20: x_return_status := 'E';
21: x_err_msg := 'Invalid Mode';
22:
23: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
24: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSE_XML: Invalid Mode error. Received mode is: '|| p_mode);
25: END IF;
26:
27: RETURN;
20: x_return_status := 'E';
21: x_err_msg := 'Invalid Mode';
22:
23: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
24: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSE_XML: Invalid Mode error. Received mode is: '|| p_mode);
25: END IF;
26:
27: RETURN;
28:
32: IF p_token IS NULL OR p_token = '' THEN
33: x_return_status := 'E';
34: x_err_msg := 'Token is expected';
35:
36: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
37: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSE_XML: Error. No token is received for DOC mode');
38: END IF;
39:
40: RETURN;
33: x_return_status := 'E';
34: x_err_msg := 'Token is expected';
35:
36: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
37: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSE_XML: Error. No token is received for DOC mode');
38: END IF;
39:
40: RETURN;
41:
46: IF p_token IS NULL OR p_token = '' THEN
47: x_return_status := 'E';
48: x_err_msg := 'Token is not expected';
49:
50: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
51: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSE_XML: Error. Token received for Library mode.');
52: END IF;
53:
54: RETURN;
47: x_return_status := 'E';
48: x_err_msg := 'Token is not expected';
49:
50: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
51: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSE_XML: Error. Token received for Library mode.');
52: END IF;
53:
54: RETURN;
55:
59: IF p_data IS NULL OR p_data = '' THEN
60: x_return_status := 'E';
61: x_err_msg := 'Data is null';
62:
63: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
64: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSE_XML: No data is received for processing ');
65: END IF;
66:
67: RETURN;
60: x_return_status := 'E';
61: x_err_msg := 'Data is null';
62:
63: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
64: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSE_XML: No data is received for processing ');
65: END IF;
66:
67: RETURN;
68: END IF;
70: ---one more validation to check for error details in received xml
71:
72: IF p_mode = 'LIB' THEN
73:
74: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
75: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSE_XML: LIB mode processing started');
76: END IF;
77:
78: INSERT INTO OKC_CLS_CLAUSE_BUFFER_T(
71:
72: IF p_mode = 'LIB' THEN
73:
74: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
75: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSE_XML: LIB mode processing started');
76: END IF;
77:
78: INSERT INTO OKC_CLS_CLAUSE_BUFFER_T(
79: BUFFER_SEQ_ID,
167: "EFF_END_DATE" varchar2(50) PATH 'Clause/Revision/EffectiveEndDate'
168: ) as op);
169: ELSIF p_mode = 'DOC' THEN
170:
171: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
172: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSE_XML: DOC mode processing started');
173: END IF;
174:
175: -- delete the rows against the received token
168: ) as op);
169: ELSIF p_mode = 'DOC' THEN
170:
171: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
172: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSE_XML: DOC mode processing started');
173: END IF;
174:
175: -- delete the rows against the received token
176: DELETE FROM OKC_CLS_CLAUSE_BUFFER_T
254:
255: x_return_status := 'S';
256: x_err_msg := 'Success';
257:
258: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
259: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSE_XML: Completed Succesfully.');
260: END IF;
261:
262: EXCEPTION
255: x_return_status := 'S';
256: x_err_msg := 'Success';
257:
258: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
259: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSE_XML: Completed Succesfully.');
260: END IF;
261:
262: EXCEPTION
263: WHEN OTHERS THEN
264:
265: x_return_status := 'E';
266: x_err_msg := SQLCODE || ':' || SQLERRM;
267:
268: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
269: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSE_XML: Completed in error. Error - '|| x_err_msg);
270: END IF;
271:
272: END LOAD_CLAUSE_XML;
265: x_return_status := 'E';
266: x_err_msg := SQLCODE || ':' || SQLERRM;
267:
268: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
269: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSE_XML: Completed in error. Error - '|| x_err_msg);
270: END IF;
271:
272: END LOAD_CLAUSE_XML;
273:
365: l_cls_lib_in_sync VARCHAR2(10);
366: l_cls_clauses_in_ou_count NUMBER;
367: BEGIN
368:
369: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
370: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
371: 'LOAD_CLAUSES_FOR_DOC: Started with params - p_token: '|| p_token || ', p_doc_id: ' || p_doc_id ||
372: ', p_doc_type: ' || p_doc_type);
373: END IF;
366: l_cls_clauses_in_ou_count NUMBER;
367: BEGIN
368:
369: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
370: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
371: 'LOAD_CLAUSES_FOR_DOC: Started with params - p_token: '|| p_token || ', p_doc_id: ' || p_doc_id ||
372: ', p_doc_type: ' || p_doc_type);
373: END IF;
374:
398: END;
399:
400: IF l_section_id_found = 'N' THEN
401:
402: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
403: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSES_FOR_DOC: Section:'''
404: || l_xml_section_name || ''' is not existing. It is being added.');
405: END IF;
406:
399:
400: IF l_section_id_found = 'N' THEN
401:
402: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
403: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSES_FOR_DOC: Section:'''
404: || l_xml_section_name || ''' is not existing. It is being added.');
405: END IF;
406:
407: -- need to create a new scetion id
419: l_section_present_in_lib := 'N';
420: END;
421:
422: IF l_section_present_in_lib = 'Y' THEN
423: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
424: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSES_FOR_DOC: Section:'''||
425: l_xml_section_name || ''' is found in library. It being added from library.');
426: END IF;
427:
420: END;
421:
422: IF l_section_present_in_lib = 'Y' THEN
423: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
424: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSES_FOR_DOC: Section:'''||
425: l_xml_section_name || ''' is found in library. It being added from library.');
426: END IF;
427:
428: OKC_TERMS_MIGRATE_GRP.Add_Section (
438: p_orig_system_reference_code => 'CLS',
439: p_orig_system_reference_id1 => l_xml_section_id,
440: x_section_id => l_section_id);
441: ELSIF l_section_present_in_lib = 'N' THEN
442: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
443: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSES_FOR_DOC: Section: '''||
444: l_xml_section_name || ''' is not found in library. It being added as user defined section.');
445: END IF;
446:
439: p_orig_system_reference_id1 => l_xml_section_id,
440: x_section_id => l_section_id);
441: ELSIF l_section_present_in_lib = 'N' THEN
442: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
443: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSES_FOR_DOC: Section: '''||
444: l_xml_section_name || ''' is not found in library. It being added as user defined section.');
445: END IF;
446:
447: OKC_TERMS_MIGRATE_GRP.Add_Section (
461: END IF;
462:
463: --------------------------------------------
464: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
465: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
466: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSES_FOR_DOC: Adding sections failed '||
467: 'because of unexpected error.');
468: END IF;
469:
462:
463: --------------------------------------------
464: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
465: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
466: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSES_FOR_DOC: Adding sections failed '||
467: 'because of unexpected error.');
468: END IF;
469:
470: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
472: x_err_msg := 'LOAD_CLAUSES_FOR_DOC: Adding sections failed because of unexpected error.';
473: x_err_msg_code := 'OKC_CLS_SECTIONS_ADD_UNEXP';
474:
475: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
476: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
477: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSES_FOR_DOC: Adding sections failed. '||
478: 'All the requested operations are not performed.');
479: END IF;
480:
473: x_err_msg_code := 'OKC_CLS_SECTIONS_ADD_UNEXP';
474:
475: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
476: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
477: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSES_FOR_DOC: Adding sections failed. '||
478: 'All the requested operations are not performed.');
479: END IF;
480:
481: --RAISE FND_API.G_EXC_ERROR ;
500:
501: END LOOP;
502: CLOSE cur_distinct_sections_in_xml;
503:
504: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
505: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
506: 'LOAD_CLAUSES_FOR_DOC: Deleting the Clauses and variables that are already present and are added via CLS before');
507: END IF;
508:
501: END LOOP;
502: CLOSE cur_distinct_sections_in_xml;
503:
504: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
505: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
506: 'LOAD_CLAUSES_FOR_DOC: Deleting the Clauses and variables that are already present and are added via CLS before');
507: END IF;
508:
509: -- delete existing CLS clauses
520: WHERE SOURCE_FLAG = 'C'
521: AND DOCUMENT_TYPE = p_doc_type
522: AND DOCUMENT_ID = p_doc_id ;
523:
524: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
525: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
526: 'LOAD_CLAUSES_FOR_DOC: Deriving info required for adding clauses');
527: END IF;
528:
521: AND DOCUMENT_TYPE = p_doc_type
522: AND DOCUMENT_ID = p_doc_id ;
523:
524: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
525: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
526: 'LOAD_CLAUSES_FOR_DOC: Deriving info required for adding clauses');
527: END IF;
528:
529: -- do the derivations for clauses
576:
577:
578:
579: -- check if clause/version is present, if different version is present, throw error.
580: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
581: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
582: 'LOAD_CLAUSES_FOR_DOC: Checking clauses for conflict in versions');
583: END IF;
584: BEGIN
577:
578:
579: -- check if clause/version is present, if different version is present, throw error.
580: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
581: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
582: 'LOAD_CLAUSES_FOR_DOC: Checking clauses for conflict in versions');
583: END IF;
584: BEGIN
585: SELECT LISTAGG(CLAUSE_NUMBER,',') WITHIN GROUP (order BY CLAUSE_NUMBER) "err_values"
642: END;
643: END IF;
644:
645: -- check whether all clauses from CLS are present. If not an error should be sent
646: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
647: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSES_FOR_DOC: Checking if any clause from CLS is missing in local clause library.');
648: END IF;
649: l_missing_clause_count := -1;
650: SELECT Count(1)
643: END IF;
644:
645: -- check whether all clauses from CLS are present. If not an error should be sent
646: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
647: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSES_FOR_DOC: Checking if any clause from CLS is missing in local clause library.');
648: END IF;
649: l_missing_clause_count := -1;
650: SELECT Count(1)
651: INTO l_missing_clause_count
659: x_err_msg_code := 'OKC_CLS_CLAUSE_NOT_FOUND';
660: RETURN;
661: END IF;
662:
663: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
664: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSES_FOR_DOC: Inserting the clauses.');
665: END IF;
666:
667: -- add the clauses
660: RETURN;
661: END IF;
662:
663: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
664: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSES_FOR_DOC: Inserting the clauses.');
665: END IF;
666:
667: -- add the clauses
668: INSERT INTO okc_k_articles_b (
714: )
715: )
716: ;
717:
718: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
719: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSES_FOR_DOC: Inserting the Variables.');
720: END IF;
721:
722: -- add the variables
715: )
716: ;
717:
718: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
719: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSES_FOR_DOC: Inserting the Variables.');
720: END IF;
721:
722: -- add the variables
723: INSERT INTO okc_k_art_variables (
757:
758: x_return_status := 'S';
759: x_err_msg := 'Success';
760:
761: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
762: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSES_FOR_DOC: Completed successfully.');
763: END IF;
764:
765: EXCEPTION
758: x_return_status := 'S';
759: x_err_msg := 'Success';
760:
761: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
762: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,'LOAD_CLAUSES_FOR_DOC: Completed successfully.');
763: END IF;
764:
765: EXCEPTION
766: WHEN OTHERS THEN
767:
768: x_return_status := 'E';
769: x_err_msg := SQLCODE || ':' || SQLERRM;
770:
771: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
772: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
773: 'LOAD_CLAUSES_FOR_DOC: Completed in error. Error details -'|| x_err_msg);
774: END IF;
775:
768: x_return_status := 'E';
769: x_err_msg := SQLCODE || ':' || SQLERRM;
770:
771: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
772: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
773: 'LOAD_CLAUSES_FOR_DOC: Completed in error. Error details -'|| x_err_msg);
774: END IF;
775:
776: END LOAD_CLAUSES_FOR_DOC;
812: l_req_seq_id NUMBER;
813: PRAGMA AUTONOMOUS_TRANSACTION;
814: BEGIN
815:
816: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
817: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
818: l_api_name||': Called.');
819: END IF;
820:
813: PRAGMA AUTONOMOUS_TRANSACTION;
814: BEGIN
815:
816: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
817: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
818: l_api_name||': Called.');
819: END IF;
820:
821: IF p_request_method IS NULL THEN
821: IF p_request_method IS NULL THEN
822: x_return_status := 'E';
823: x_err_msg := 'Request Method is null.';
824: RETURN;
825: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
826: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
827: l_api_name||': Error.' || x_err_msg);
828: END IF;
829: END IF;
822: x_return_status := 'E';
823: x_err_msg := 'Request Method is null.';
824: RETURN;
825: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
826: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
827: l_api_name||': Error.' || x_err_msg);
828: END IF;
829: END IF;
830:
831: IF p_url IS NULL THEN
832: x_return_status := 'E';
833: x_err_msg := 'URL is null.';
834: RETURN;
835: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
836: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
837: l_api_name||': Error.' || x_err_msg);
838: END IF;
839: END IF;
832: x_return_status := 'E';
833: x_err_msg := 'URL is null.';
834: RETURN;
835: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
836: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
837: l_api_name||': Error.' || x_err_msg);
838: END IF;
839: END IF;
840:
841: IF p_uri IS NULL THEN
842: x_return_status := 'E';
843: x_err_msg := 'URI is null.';
844: RETURN;
845: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
846: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
847: l_api_name||': Error.' || x_err_msg);
848: END IF;
849: END IF;
842: x_return_status := 'E';
843: x_err_msg := 'URI is null.';
844: RETURN;
845: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
846: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
847: l_api_name||': Error.' || x_err_msg);
848: END IF;
849: END IF;
850:
895: x_return_status := 'S';
896: x_err_msg := 'Success';
897: x_req_seq_id := l_req_seq_id;
898:
899: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
900: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
901: l_api_name||': Request Logged with Id: '|| l_req_seq_id);
902: END IF;
903:
896: x_err_msg := 'Success';
897: x_req_seq_id := l_req_seq_id;
898:
899: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
900: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
901: l_api_name||': Request Logged with Id: '|| l_req_seq_id);
902: END IF;
903:
904: EXCEPTION
906:
907: x_return_status := 'E';
908: x_err_msg := SQLCODE || ':' || SQLERRM;
909:
910: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
911: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
912: l_api_name || ': Completed in error. Error details -'|| x_err_msg);
913: END IF;
914:
907: x_return_status := 'E';
908: x_err_msg := SQLCODE || ':' || SQLERRM;
909:
910: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
911: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
912: l_api_name || ': Completed in error. Error details -'|| x_err_msg);
913: END IF;
914:
915: END log_cls_rest_request;
923: ) AS
924: l_api_name CONSTANT VARCHAR2(30) := 'LOG_CLS_REST_RESPONSE';
925: l_transaction_status VARCHAR2(1);
926: BEGIN
927: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
928: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
929: l_api_name||': Called.');
930: END IF;
931:
924: l_api_name CONSTANT VARCHAR2(30) := 'LOG_CLS_REST_RESPONSE';
925: l_transaction_status VARCHAR2(1);
926: BEGIN
927: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
928: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
929: l_api_name||': Called.');
930: END IF;
931:
932: IF p_req_seq_id IS NULL THEN
932: IF p_req_seq_id IS NULL THEN
933: x_return_status := 'E';
934: x_err_msg := 'Sequence Id is null.';
935: RETURN;
936: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
937: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
938: l_api_name||': Error.' || x_err_msg);
939: END IF;
940: END IF;
933: x_return_status := 'E';
934: x_err_msg := 'Sequence Id is null.';
935: RETURN;
936: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
937: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
938: l_api_name||': Error.' || x_err_msg);
939: END IF;
940: END IF;
941:
942: IF p_response_status_code IS NULL THEN
943: x_return_status := 'E';
944: x_err_msg := 'Response code is null.';
945: RETURN;
946: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
947: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
948: l_api_name||': Error.' || x_err_msg);
949: END IF;
950: END IF;
943: x_return_status := 'E';
944: x_err_msg := 'Response code is null.';
945: RETURN;
946: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
947: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
948: l_api_name||': Error.' || x_err_msg);
949: END IF;
950: END IF;
951:
967: x_return_status := 'S';
968: x_err_msg := 'Success';
969: COMMIT;
970:
971: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
972: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
973: l_api_name||': Completed successfully.');
974: END IF;
975:
968: x_err_msg := 'Success';
969: COMMIT;
970:
971: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
972: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
973: l_api_name||': Completed successfully.');
974: END IF;
975:
976: EXCEPTION
978:
979: x_return_status := 'E';
980: x_err_msg := SQLCODE || ':' || SQLERRM;
981:
982: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
983: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
984: l_api_name || ': Completed in error. Error details -'|| x_err_msg);
985: END IF;
986:
979: x_return_status := 'E';
980: x_err_msg := SQLCODE || ':' || SQLERRM;
981:
982: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
983: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,'okc.plsql.OKC_CLS_UTIL.'||l_api_name,
984: l_api_name || ': Completed in error. Error details -'|| x_err_msg);
985: END IF;
986:
987: END log_cls_rest_response;