16: IS
17: BEGIN
18: if (p_msg_level >= G_MSG_LEVEL) then
19:
20: FND_LOG.STRING(p_msg_level, G_PKG_NAME, p_msg);
21:
22: end if;
23:
24: if FND_GLOBAL.Conc_Request_Id is not null then
26: end if;
27:
28: EXCEPTION
29: WHEN OTHERS THEN
30: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: ' || sqlerrm);
31: END;
32:
33:
34: PROCEDURE PRINT_CLOB (lob_loc in clob) IS
50: /*-----------------------------------------------------------------------+
51: | Cursor Declarations |
52: +-----------------------------------------------------------------------*/
53: BEGIN
54: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
55:
56: LOOP
57: l_end :=
58: DBMS_LOB.INSTR (lob_loc => lob_loc,
148: l_to_date date;
149:
150: begin
151:
152: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
153:
154: -- p_group_by_value_coll condition is added for bug 13844678 by bibeura
155: IF ( p_group_by_value_coll IS NULL AND p_group_by_mode = 'GROUP' ) THEN
156: FND_FILE.put_line( FND_FILE.LOG,'*******************************************************************************************************************************');
512: --print to the o/p file
513: print_clob(lob_loc => tempResult);
514:
515: FND_FILE.put_line( FND_FILE.LOG,'15--end') ;
516: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +end');
517:
518: EXCEPTION
519: WHEN OTHERS THEN
520: FND_FILE.put_line( FND_FILE.LOG,'err-->'||sqlerrm);
517:
518: EXCEPTION
519: WHEN OTHERS THEN
520: FND_FILE.put_line( FND_FILE.LOG,'err-->'||sqlerrm);
521: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME || '.' || l_api_name || '-'||sqlerrm);
522: END gen_xml_data;
523:
524: --Procedure to calculate Payment count and Payment amount
525: Procedure calc_pmt_amt_cnt(p_org_id in number,
552: l_resource_char varchar2(100);
553: l_source_code_char varchar2(100);
554: l_hash_value number;
555: begin
556: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
557: FND_FILE.put_line( FND_FILE.LOG,'*****Start of pmt_amt_cnt procedure***********') ;
558:
559:
560: select nvl(fnd_profile.value('IEX_COLLECTIONS_RATE_TYPE'),'N')
716: end loop;
717: --end if;
718: close pmtdet;
719: FND_FILE.put_line( FND_FILE.LOG,'29');
720: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
721: exception
722: when others then
723: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME || '.' || l_api_name || '-'||sqlerrm);
724: FND_FILE.put_line( FND_FILE.LOG,'err in proc-->'||sqlerrm);
719: FND_FILE.put_line( FND_FILE.LOG,'29');
720: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
721: exception
722: when others then
723: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME || '.' || l_api_name || '-'||sqlerrm);
724: FND_FILE.put_line( FND_FILE.LOG,'err in proc-->'||sqlerrm);
725: end calc_pmt_amt_cnt;
726:
727: function get_pmt_count(p_resource_id number,p_source_code_id in number) return number
798: end get_pmt_amount;
799:
800: BEGIN
801: G_LOG_ENABLED := 'N';
802: G_MSG_LEVEL := FND_LOG.LEVEL_UNEXPECTED;
803:
804: /* getting msg logging info */
805: G_LOG_ENABLED := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N');
806: if (G_LOG_ENABLED = 'N') then
803:
804: /* getting msg logging info */
805: G_LOG_ENABLED := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N');
806: if (G_LOG_ENABLED = 'N') then
807: G_MSG_LEVEL := FND_LOG.LEVEL_UNEXPECTED;
808: else
809: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
810: end if;
811:
805: G_LOG_ENABLED := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N');
806: if (G_LOG_ENABLED = 'N') then
807: G_MSG_LEVEL := FND_LOG.LEVEL_UNEXPECTED;
808: else
809: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
810: end if;
811:
812: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);
813:
808: else
809: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
810: end if;
811:
812: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);
813:
814: end;