1: PACKAGE BODY CST_UninvoicedReceipts_PVT AS
2: /* $Header: CSTVURRB.pls 120.19 2011/11/30 22:32:39 hyu ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):='CST_UninvoicedReceipts_PVT';
5: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6:
7: G_GL_APPLICATION_ID CONSTANT NUMBER := 101;
8: G_PO_APPLICATION_ID CONSTANT NUMBER := 201;
9:
101: /* 2- PROCEDURE */
102: /* 1- STATEMENT */
103:
104: /* In general, we should use the following:
105: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
106: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
107: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
108: l_exceptionLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
109: l_eventLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
102: /* 1- STATEMENT */
103:
104: /* In general, we should use the following:
105: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
106: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
107: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
108: l_exceptionLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
109: l_eventLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
110: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
103:
104: /* In general, we should use the following:
105: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
106: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
107: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
108: l_exceptionLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
109: l_eventLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
110: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
111: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
104: /* In general, we should use the following:
105: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
106: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
107: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
108: l_exceptionLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
109: l_eventLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
110: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
111: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
112: */
105: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
106: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
107: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
108: l_exceptionLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
109: l_eventLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
110: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
111: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
112: */
113:
106: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
107: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
108: l_exceptionLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
109: l_eventLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
110: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
111: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
112: */
113:
114: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
107: l_errorLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_ERROR >= G_LOG_LEVEL);
108: l_exceptionLog CONSTANT BOOLEAN := l_errorLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
109: l_eventLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_EVENT >= G_LOG_LEVEL);
110: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
111: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
112: */
113:
114: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
115: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
110: l_pLog CONSTANT BOOLEAN := l_eventLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
111: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
112: */
113:
114: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
115: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
116: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
117: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
118:
111: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
112: */
113:
114: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
115: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
116: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
117: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
118:
119: l_msg_count NUMBER;
112: */
113:
114: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
115: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
116: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
117: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
118:
119: l_msg_count NUMBER;
120: l_msg_data VARCHAR2(240);
113:
114: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
115: l_exceptionLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_EXCEPTION >= G_LOG_LEVEL);
116: l_pLog CONSTANT BOOLEAN := l_exceptionLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
117: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
118:
119: l_msg_count NUMBER;
120: l_msg_data VARCHAR2(240);
121:
151: EXECUTE IMMEDIATE 'ALTER SESSION SET NLS_NUMERIC_CHARACTERS=''.,''';
152: l_stmt_num := 0;
153: -- Procedure level log message for Entry point
154: IF (l_pLog) THEN
155: FND_LOG.STRING(
156: FND_LOG.LEVEL_PROCEDURE,
157: l_module || '.begin',
158: 'Start_Process <<' ||
159: 'p_title = ' || p_title ||','||
152: l_stmt_num := 0;
153: -- Procedure level log message for Entry point
154: IF (l_pLog) THEN
155: FND_LOG.STRING(
156: FND_LOG.LEVEL_PROCEDURE,
157: l_module || '.begin',
158: 'Start_Process <<' ||
159: 'p_title = ' || p_title ||','||
160: 'p_accrued_receipts = ' || p_accrued_receipts ||','||
557: END IF;
558:
559: -- Procedure level log message for exit point
560: IF (l_pLog) THEN
561: FND_LOG.STRING(
562: FND_LOG.LEVEL_PROCEDURE,
563: l_module || '.end',
564: 'Start_Process >>'
565: );
558:
559: -- Procedure level log message for exit point
560: IF (l_pLog) THEN
561: FND_LOG.STRING(
562: FND_LOG.LEVEL_PROCEDURE,
563: l_module || '.end',
564: 'Start_Process >>'
565: );
566: END IF;
568: EXCEPTION
569: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
570:
571: IF (l_exceptionLog) THEN
572: FND_LOG.STRING(
573: FND_LOG.LEVEL_EXCEPTION,
574: l_module || '.' || l_stmt_num,
575: l_msg_data
576: );
569: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
570:
571: IF (l_exceptionLog) THEN
572: FND_LOG.STRING(
573: FND_LOG.LEVEL_EXCEPTION,
574: l_module || '.' || l_stmt_num,
575: l_msg_data
576: );
577: END IF;
588: l_conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',l_msg_data);
589:
590: WHEN OTHERS THEN
591:
592: -- Unexpected level log message for FND log
593: IF (l_uLog) THEN
594: FND_LOG.STRING(
595: FND_LOG.LEVEL_UNEXPECTED,
596: l_module || '.' || l_stmt_num,
590: WHEN OTHERS THEN
591:
592: -- Unexpected level log message for FND log
593: IF (l_uLog) THEN
594: FND_LOG.STRING(
595: FND_LOG.LEVEL_UNEXPECTED,
596: l_module || '.' || l_stmt_num,
597: SQLERRM
598: );
591:
592: -- Unexpected level log message for FND log
593: IF (l_uLog) THEN
594: FND_LOG.STRING(
595: FND_LOG.LEVEL_UNEXPECTED,
596: l_module || '.' || l_stmt_num,
597: SQLERRM
598: );
599: END IF;
650: l_return_status VARCHAR2(1);
651: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
652: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
653:
654: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
655: l_pLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
656: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
657:
658: l_stmt_num NUMBER;
651: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
652: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
653:
654: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
655: l_pLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
656: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
657:
658: l_stmt_num NUMBER;
659: l_ctx DBMS_XMLGEN.CTXHANDLE;
652: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
653:
654: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
655: l_pLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
656: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
657:
658: l_stmt_num NUMBER;
659: l_ctx DBMS_XMLGEN.CTXHANDLE;
660:
662:
663: l_stmt_num := 0;
664: -- Procedure level log message for Entry point
665: IF (l_pLog) THEN
666: FND_LOG.STRING(
667: FND_LOG.LEVEL_PROCEDURE,
668: l_module || '.begin',
669: 'Generate_XML <<');
670: END IF;
663: l_stmt_num := 0;
664: -- Procedure level log message for Entry point
665: IF (l_pLog) THEN
666: FND_LOG.STRING(
667: FND_LOG.LEVEL_PROCEDURE,
668: l_module || '.begin',
669: 'Generate_XML <<');
670: END IF;
671:
705: DBMS_XMLGEN.CLOSECONTEXT(l_ctx);
706:
707: -- Procedure level log message for exit point
708: IF (l_pLog) THEN
709: FND_LOG.STRING(
710: FND_LOG.LEVEL_PROCEDURE,
711: l_module || '.end',
712: 'Generate_XML >>'
713: );
706:
707: -- Procedure level log message for exit point
708: IF (l_pLog) THEN
709: FND_LOG.STRING(
710: FND_LOG.LEVEL_PROCEDURE,
711: l_module || '.end',
712: 'Generate_XML >>'
713: );
714: END IF;
733: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
734:
735: -- Unexpected level log message
736: IF (l_uLog) THEN
737: FND_LOG.STRING(
738: FND_LOG.LEVEL_UNEXPECTED,
739: l_module || '.' || l_stmt_num,
740: SQLERRM
741: );
734:
735: -- Unexpected level log message
736: IF (l_uLog) THEN
737: FND_LOG.STRING(
738: FND_LOG.LEVEL_UNEXPECTED,
739: l_module || '.' || l_stmt_num,
740: SQLERRM
741: );
742: END IF;
787: l_return_status VARCHAR2(1);
788: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
789: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
790:
791: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
792: l_pLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
793: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
794:
795: l_ctx DBMS_XMLGEN.CTXHANDLE;
788: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
789: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
790:
791: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
792: l_pLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
793: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
794:
795: l_ctx DBMS_XMLGEN.CTXHANDLE;
796: l_offset NUMBER;
789: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
790:
791: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
792: l_pLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
793: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
794:
795: l_ctx DBMS_XMLGEN.CTXHANDLE;
796: l_offset NUMBER;
797: l_stmt_num NUMBER;
805:
806: l_stmt_num := 0;
807: -- Procedure level log message for Entry point
808: IF (l_pLog) THEN
809: FND_LOG.STRING(
810: FND_LOG.LEVEL_PROCEDURE,
811: l_module || '.begin',
812: 'Merge_XML <<');
813: END IF;
806: l_stmt_num := 0;
807: -- Procedure level log message for Entry point
808: IF (l_pLog) THEN
809: FND_LOG.STRING(
810: FND_LOG.LEVEL_PROCEDURE,
811: l_module || '.begin',
812: 'Merge_XML <<');
813: END IF;
814:
889: END IF;
890:
891: -- Procedure level log message for exit point
892: IF (l_pLog) THEN
893: FND_LOG.STRING(
894: FND_LOG.LEVEL_PROCEDURE,
895: l_module || '.end',
896: 'Merge_XML >>'
897: );
890:
891: -- Procedure level log message for exit point
892: IF (l_pLog) THEN
893: FND_LOG.STRING(
894: FND_LOG.LEVEL_PROCEDURE,
895: l_module || '.end',
896: 'Merge_XML >>'
897: );
898: END IF;
917: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
918:
919: -- Unexpected level log message
920: IF (l_uLog) THEN
921: FND_LOG.STRING(
922: FND_LOG.LEVEL_UNEXPECTED,
923: l_module || '.' || l_stmt_num,
924: SQLERRM
925: );
918:
919: -- Unexpected level log message
920: IF (l_uLog) THEN
921: FND_LOG.STRING(
922: FND_LOG.LEVEL_UNEXPECTED,
923: l_module || '.' || l_stmt_num,
924: SQLERRM
925: );
926: END IF;
965: l_return_status VARCHAR2(1);
966: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
967: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
968:
969: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
970: l_pLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
971: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
972:
973: l_stmt_num NUMBER;
966: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || l_api_name;
967: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
968:
969: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
970: l_pLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
971: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
972:
973: l_stmt_num NUMBER;
974: l_amount NUMBER;
967: l_module CONSTANT VARCHAR2(60) := 'cst.plsql.'||l_full_name;
968:
969: l_uLog CONSTANT BOOLEAN := FND_LOG.TEST(FND_LOG.LEVEL_UNEXPECTED, l_module) AND (FND_LOG.LEVEL_UNEXPECTED >= G_LOG_LEVEL);
970: l_pLog CONSTANT BOOLEAN := l_uLog AND (FND_LOG.LEVEL_PROCEDURE >= G_LOG_LEVEL);
971: l_sLog CONSTANT BOOLEAN := l_pLog AND (FND_LOG.LEVEL_STATEMENT >= G_LOG_LEVEL);
972:
973: l_stmt_num NUMBER;
974: l_amount NUMBER;
975: l_offset NUMBER;
980:
981: l_stmt_num := 0;
982: -- Procedure level log message for Entry point
983: IF (l_pLog) THEN
984: FND_LOG.STRING(
985: FND_LOG.LEVEL_PROCEDURE,
986: l_module || '.begin',
987: 'Print_ClobOutput <<');
988: END IF;
981: l_stmt_num := 0;
982: -- Procedure level log message for Entry point
983: IF (l_pLog) THEN
984: FND_LOG.STRING(
985: FND_LOG.LEVEL_PROCEDURE,
986: l_module || '.begin',
987: 'Print_ClobOutput <<');
988: END IF;
989:
1032: END LOOP;
1033:
1034: -- Procedure level log message for exit point
1035: IF (l_pLog) THEN
1036: FND_LOG.STRING(
1037: FND_LOG.LEVEL_PROCEDURE,
1038: l_module || '.end',
1039: 'Print_ClobOutput >>'
1040: );
1033:
1034: -- Procedure level log message for exit point
1035: IF (l_pLog) THEN
1036: FND_LOG.STRING(
1037: FND_LOG.LEVEL_PROCEDURE,
1038: l_module || '.end',
1039: 'Print_ClobOutput >>'
1040: );
1041: END IF;
1060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1061:
1062: -- Unexpected level log message
1063: IF (l_uLog) THEN
1064: FND_LOG.STRING(
1065: FND_LOG.LEVEL_UNEXPECTED,
1066: l_module || '.' || l_stmt_num,
1067: SQLERRM
1068: );
1061:
1062: -- Unexpected level log message
1063: IF (l_uLog) THEN
1064: FND_LOG.STRING(
1065: FND_LOG.LEVEL_UNEXPECTED,
1066: l_module || '.' || l_stmt_num,
1067: SQLERRM
1068: );
1069: END IF;