eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.FV_CGAC_CRT_TAS dependencies on FV_UTILITY

Line 29: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START CGAC PURGE_INTERFACE_TABLE PROCESS.....');

25: BEGIN
26: l_module_name := g_module_name || 'purge_interface_table';
27:
28: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
29: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'START CGAC PURGE_INTERFACE_TABLE PROCESS.....');
30: END IF;
31:
32: DELETE FROM fv_cgac_crt_tas_temp;
33: COMMIT;

Line 43: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception',g_error_message);

39: --
40: WHEN OTHERS THEN
41: g_error_code := SQLCODE;
42: g_error_message := 'purge_interface_table '||SQLERRM;
43: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.exception',g_error_message);
44:
45: END purge_interface_table;
46:
47:

Line 189: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Start CGAC Create Process');

185: retcode := 0;
186: errbuf := NULL;
187:
188: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
189: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Start CGAC Create Process');
190: END IF;
191: /* Get delimiter fo accounting flexfield */
192: BEGIN
193: select concatenated_segment_delimiter

Line 204: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, errbuf);

200:
201: EXCEPTION
202: WHEN OTHERS THEN
203: errbuf := g_error_message|| SQLERRM;
204: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, errbuf);
205: retcode := -1;
206: RETURN;
207: END;
208:

Line 231: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Chart of accounts Id is.....'||g_coa_id);

227: RETURN;
228: END;
229:
230: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
231: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Chart of accounts Id is.....'||g_coa_id);
232: END IF;
233:
234: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
235: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Processing treasury symbols');

Line 235: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Processing treasury symbols');

231: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Chart of accounts Id is.....'||g_coa_id);
232: END IF;
233:
234: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
235: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Processing treasury symbols');
236: END IF;
237:
238: IF (p_tas_type = 'AGENCY_TAS' OR p_tas_type = 'BOTH') THEN
239:

Line 245: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Processing treasury symbol: '||treasury_symbol_record.treasury_symbol);

241: l_treasury_symbol_id := treasury_symbol_record.treasury_symbol_id ;
242: cgac_crttas_record := NULL;
243:
244: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
245: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Processing treasury symbol: '||treasury_symbol_record.treasury_symbol);
246: END IF;
247:
248: BEGIN
249: SELECT treasury_dept_code, treasury_acct_code into l_treasury_dept_code, l_treasury_acct_code

Line 257: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,errbuf);

253: AND a.set_of_books_id = p_ledger_id;
254: EXCEPTION
255: WHEN NO_DATA_FOUND THEN
256: errbuf := 'Error in Main: Error in retrieving treasury_dept_code, treasury_acct_code.'|| SQLERRM;
257: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,errbuf);
258: retcode :=-1;
259: ROLLBACK;
260: RETURN;
261: END;

Line 264: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' l_treasury_dept_code = '

260: RETURN;
261: END;
262:
263: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
264: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' l_treasury_dept_code = '
265: ||l_treasury_dept_code|| ' l_treasury_acct_code = '||l_treasury_acct_code);
266: END IF;
267:
268: -- Insert Original Treasury Symbol values into interface record

Line 329: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Cancellation Date = '

325: treasury_symbol_record.expiration_date := l_end_date;
326: l_cancellation_date := add_months(treasury_symbol_record.expiration_date,60);
327:
328: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
329: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Cancellation Date = '
330: ||TO_CHAR(l_cancellation_date));
331: END IF;
332: treasury_symbol_record.cancellation_date := l_cancellation_date;
333: treasury_symbol_record.SF224_QTR1_OUTLAY := NULL;

Line 384: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'New Treasury Symbol is '

380: END IF;
381:
382: treasury_symbol_record.treasury_symbol := l_ts_str;
383: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
384: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'New Treasury Symbol is '
385: ||l_ts_str);
386: END IF;
387:
388: -- Insert New Treasury Symbol values into interface record

Line 406: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Duplicate TAS: '||l_ts_str);

402: select count(*)into tas_duplicate_cnt1 from fv_cgac_crt_tas_temp where
403: treasury_symbol = treasury_symbol_record.treasury_symbol;
404:
405: IF tas_duplicate_cnt > 0 OR tas_duplicate_cnt1 > 0 THEN
406: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Duplicate TAS: '||l_ts_str);
407: errbuf := 'New Duplicate Treasury Account Symbol';
408: cgac_crttas_record.error_message := errbuf;
409: INSERT INTO fv_cgac_crt_tas_temp values cgac_crttas_record;
410: GOTO end_tas;

Line 548: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Inserted new treasury symbol');

544: treasury_symbol_record.NO_PYA_ACCT_FLAG,
545: treasury_symbol_record.AUTO_CREATE_FLAG_BETC,
546: treasury_symbol_record.GTAS_REPORTABLE_INDICATOR ) ;
547: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
548: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Inserted new treasury symbol');
549: END IF;
550:
551: IF l_auto_create_flag_betc ='Y' THEN
552:

Line 589: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Processing funds');

585: END IF;
586: END IF;
587:
588: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
589: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Processing funds');
590: END IF;
591:
592: FOR fund_values_record in c_fund_value(l_treasury_symbol_id) loop
593: l_fund_value := fund_values_record.fund_value;

Line 595: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Processing fund value: '||l_fund_value);

591:
592: FOR fund_values_record in c_fund_value(l_treasury_symbol_id) loop
593: l_fund_value := fund_values_record.fund_value;
594: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
595: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Processing fund value: '||l_fund_value);
596: END IF;
597:
598: -- Insert old fund value into interface record
599: cgac_crttas_record.original_fund_value := fund_values_record.fund_value;

Line 642: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'New fund value: '||fund_values_record.fund_value);

638: END IF;
639: END IF; --IF (fund_values_record.auto_create_fund_value is not null)then
640:
641: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
642: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'New fund value: '||fund_values_record.fund_value);
643: END IF;
644:
645: --Insert new fund records into fv_fund_parameters table and interface table only if a new fund is created.
646: IF fund_values_record.fund_value IS NOT NULL THEN

Line 651: FV_UTILITY.get_segment_col_names(g_coa_id,

647:
648: --Insert the fund value into the balancing segment value set
649: -- Getting the Account and Balancing segments' application column names
650: BEGIN
651: FV_UTILITY.get_segment_col_names(g_coa_id,
652: v_acc_seg_name,
653: v_bal_seg_name,
654: g_error,
655: g_error_message);

Line 659: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, errbuf);

655: g_error_message);
656: EXCEPTION
657: WHEN OTHERS THEN
658: errbuf := g_error_message || SQLERRM;
659: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, errbuf);
660: retcode := -1;
661: ROLLBACK;
662: RETURN;
663: END;

Line 666: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Balancing segment: '||v_bal_seg_name);

662: RETURN;
663: END;
664:
665: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
666: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Balancing segment: '||v_bal_seg_name);
667: END IF;
668:
669: --Fetch the value set name for the balancing segment
670: BEGIN

Line 682: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, errbuf);

678: x_value_set_name ) ;
679: EXCEPTION
680: WHEN OTHERS THEN
681: errbuf := g_error_message|| SQLERRM;
682: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, errbuf);
683: retcode := -1;
684: ROLLBACK;
685: RETURN;
686: END;

Line 689: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Value set: '||x_value_set_name);

685: RETURN;
686: END;
687:
688: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
689: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Value set: '||x_value_set_name);
690: END IF;
691:
692: --Bug13542164
693: --Get the maximum length of the value set being used for the fund value

Line 702: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, errbuf);

698: WHERE flex_value_set_name = x_value_set_name;
699:
700: EXCEPTION WHEN OTHERS THEN
701: errbuf := g_error_message|| SQLERRM;
702: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, errbuf);
703: retcode := -1;
704: ROLLBACK;
705: RETURN;
706: END;

Line 711: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

707:
708: -- Maximum fund length
709: --IF length(fund_values_record.fund_value)> 12 THEN
710: IF length(fund_values_record.fund_value)> l_max_fund_value_size THEN
711: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
712: 'Length of fund '||fund_values_record.fund_value|| ' is greater than value set length.
713: Fund length should not be greater than: '|| l_max_fund_value_size);
714: errbuf := 'New fund Exceeds Maximum Fund Length' ;
715: cgac_crttas_record.error_message := errbuf;

Line 720: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'fund_values_record.fund_value '||fund_values_record.fund_value);

716: INSERT INTO fv_cgac_crt_tas_temp values cgac_crttas_record;
717: GOTO end_fund;
718: END IF;
719: -- Duplicate fund value
720: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'fund_values_record.fund_value '||fund_values_record.fund_value);
721: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'x_value_set_name'||x_value_set_name);
722:
723: -- Insert new values for new fund into the interface record
724: cgac_crttas_record.fund_value := fund_values_record.fund_value;

Line 721: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'x_value_set_name'||x_value_set_name);

717: GOTO end_fund;
718: END IF;
719: -- Duplicate fund value
720: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'fund_values_record.fund_value '||fund_values_record.fund_value);
721: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'x_value_set_name'||x_value_set_name);
722:
723: -- Insert new values for new fund into the interface record
724: cgac_crttas_record.fund_value := fund_values_record.fund_value;
725: cgac_crttas_record.original_fund_parameter_id := fund_values_record.fund_parameter_id;

Line 735: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Duplicate Fund: '||fund_values_record.fund_value);

731: select count(*) into fund_duplicate_cnt1 from fv_cgac_crt_tas_temp where
732: fund_value = fund_values_record.fund_value;
733:
734: IF (fund_duplicate_cnt IS NOT NULL AND fund_duplicate_cnt > 0) OR (fund_duplicate_cnt1 IS NOT NULL AND fund_duplicate_cnt1 > 0) THEN
735: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Duplicate Fund: '||fund_values_record.fund_value);
736: errbuf := 'New Duplicate Fund Value';
737: cgac_crttas_record.error_message := errbuf;
738: INSERT INTO fv_cgac_crt_tas_temp values cgac_crttas_record;
739: -- Bug 10247675

Line 752: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Error in inserting fund into value set '||x_value_set_name|| SQLERRM);

748: fnd_flex_Val_api.create_independent_vset_value(x_value_set_name,fund_values_record.fund_value,fund_values_record.fund_value,'Y',sysdate,null,'N',null,null,x_storage_value);
749: EXCEPTION
750: WHEN OTHERS THEN
751: errbuf := 'Error in inserting fund into value set '||x_value_set_name|| SQLERRM;
752: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Error in inserting fund into value set '||x_value_set_name|| SQLERRM);
753: retcode := -1;
754: ROLLBACK;
755: RETURN;
756: END;

Line 759: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Fund inserted into balancing segment valueset ');

755: RETURN;
756: END;
757:
758: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
759: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Fund inserted into balancing segment valueset ');
760: END IF;
761: END IF;
762:
763: -- assigning the values to be inserted into the tables

Line 783: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Inserted new fund value');

779:
780: IF p_run_mode = 'F' THEN
781: INSERT INTO fv_fund_parameters VALUES fund_values_record;
782: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
783: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Inserted new fund value');
784: END IF;
785: END IF;
786:
787: BEGIN

Line 797: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_auto_create_dist'||l_auto_create_dist);

793: EXCEPTION
794: WHEN NO_DATA_FOUND THEN
795: l_auto_create_dist := NULL;
796: END;
797: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'l_auto_create_dist'||l_auto_create_dist);
798:
799: -- Inserting data into the interface
800: INSERT INTO fv_cgac_crt_tas_temp values cgac_crttas_record;
801: IF (SQL%rowcount >0) THEN

Line 802: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name,'Inserted into interface record') ;

798:
799: -- Inserting data into the interface
800: INSERT INTO fv_cgac_crt_tas_temp values cgac_crttas_record;
801: IF (SQL%rowcount >0) THEN
802: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name,'Inserted into interface record') ;
803: END IF;
804:
805: IF l_auto_create_dist is NOT NULL and l_auto_create_dist = 'Y' THEN
806: FOR budget_distribution_hdr_record IN c_budget_distribution_hdr(l_treasury_symbol_id,l_fund_value) LOOP

Line 887: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Inserted new budget header');

883: budget_distribution_hdr_record.FREEZE_DEFINITION_FLAG,
884: budget_distribution_hdr_record.AUTO_CREATE_FLAG);
885:
886: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
887: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Inserted new budget header');
888: END IF;
889: END IF;
890:
891: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN

Line 892: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Processing budget distributions');

888: END IF;
889: END IF;
890:
891: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
892: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Processing budget distributions');
893: END IF;
894:
895: FOR budget_distribution_dtl_record IN c_budget_distribution_dtl(l_bud_distribution_id,l_fund_value) LOOP
896: l_bud_distribution_dtl_id := budget_distribution_dtl_record.distribution_dtl_id;

Line 929: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Error in Main: Please set the segment value in Define Federal Financial Options form');

925: AND set_of_books_id = p_ledger_id;
926: EXCEPTION
927: WHEN NO_DATA_FOUND THEN
928: errbuf := 'Error in Main: Please set the segment value in Define Federal Financial Options form';
929: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Error in Main: Please set the segment value in Define Federal Financial Options form');
930: retcode := -1;
931: ROLLBACK;
932: RETURN;
933: END;

Line 941: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Error in Main: Please set the BFY segment value in Define Federal Financial Options form');

937: WHERE set_of_books_id=p_ledger_id ;
938: EXCEPTION
939: WHEN NO_DATA_FOUND THEN
940: errbuf := 'Error in Main: Please set the BFY segment value in Define Federal Financial Options form' ;
941: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Error in Main: Please set the BFY segment value in Define Federal Financial Options form');
942: retcode := -1;
943: ROLLBACK;
944: RETURN;
945: END;

Line 954: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Balancing segment suffix is: '||bal_seg_suffix);

950: bal_seg_suffix := substr(v_bal_seg_name,8);
951: bfy_seg_suffix := substr(v_bfy_Segment,8);
952:
953: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
954: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Balancing segment suffix is: '||bal_seg_suffix);
955: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Budget Fiscal Year segment suffix is: '||bfy_seg_suffix);
956: END IF;
957:
958: IF (bal_seg_suffix <>'1') then

Line 955: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Budget Fiscal Year segment suffix is: '||bfy_seg_suffix);

951: bfy_seg_suffix := substr(v_bfy_Segment,8);
952:
953: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
954: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Balancing segment suffix is: '||bal_seg_suffix);
955: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Budget Fiscal Year segment suffix is: '||bfy_seg_suffix);
956: END IF;
957:
958: IF (bal_seg_suffix <>'1') then
959: v_default_segment := substr(v_default_segment,1,

Line 964: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Default segment is ' ||v_default_segment);

960: instr(v_default_segment,l_flex_delimiter,1,bal_seg_suffix-1)) ||
961: fund_values_record.fund_value || substr(v_default_segment,instr(v_default_segment,l_flex_delimiter,1,bal_seg_suffix));
962:
963: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
964: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Default segment is ' ||v_default_segment);
965: END IF;
966:
967: cgac_crttas_record.default_segment := v_default_segment;
968: ELSE

Line 971: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Default segment is ' ||v_default_segment);

967: cgac_crttas_record.default_segment := v_default_segment;
968: ELSE
969: v_default_segment := fund_values_record.fund_value ||substr(v_default_segment,instr(v_default_segment,l_flex_delimiter,1,bal_seg_suffix));
970: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
971: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Default segment is ' ||v_default_segment);
972: END IF;
973: cgac_crttas_record.default_segment := v_default_segment;
974: END IF;
975:

Line 983: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Default segment is ' || v_default_segment);

979: v_fyr_segment_name || substr(v_default_segment,
980: instr(v_default_segment,l_flex_delimiter,1,bfy_seg_suffix));
981:
982: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
983: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Default segment is ' || v_default_segment);
984: END IF;
985: cgac_crttas_record.default_segment := v_default_segment;
986: ELSE
987: v_default_segment := v_fyr_segment_name ||substr(v_default_segment,

Line 990: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Default segment is ' ||v_default_segment);

986: ELSE
987: v_default_segment := v_fyr_segment_name ||substr(v_default_segment,
988: instr(v_default_segment,l_flex_delimiter,1,bfy_seg_suffix));
989: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
990: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Default segment is ' ||v_default_segment);
991: END IF;
992: cgac_crttas_record.default_segment := v_default_segment;
993: END IF;
994:

Line 999: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Inserted new budget header');

995: IF p_run_mode = 'F' then
996: INSERT INTO fv_budget_distribution_dtl values budget_distribution_dtl_record;
997:
998: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
999: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Inserted new budget header');
1000: END IF;
1001:
1002: l_update_query := 'UPDATE fv_budget_distribution_dtl SET '||
1003: v_bal_seg_name||'='''||fund_values_record.fund_value||''' , '|| v_bfy_Segment||' ='||

Line 1007: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,l_update_query);

1003: v_bal_seg_name||'='''||fund_values_record.fund_value||''' , '|| v_bfy_Segment||' ='||
1004: v_fyr_segment_name||' WHERE distribution_dtl_id = '||budget_distribution_dtl_record.distribution_dtl_id;
1005:
1006: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1007: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,l_update_query);
1008: END IF;
1009:
1010: BEGIN
1011: l_bud_dtl_cursor := DBMS_SQL.OPEN_CURSOR ;

Line 1015: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name||'.open_l_bud_dtl_cursor', errbuf) ;

1011: l_bud_dtl_cursor := DBMS_SQL.OPEN_CURSOR ;
1012: EXCEPTION
1013: WHEN OTHERS THEN
1014: errbuf := sqlerrm || ' Budget Detail - Open Cursor ' ;
1015: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name||'.open_l_bud_dtl_cursor', errbuf) ;
1016: retcode := -1;
1017: ROLLBACK;
1018: RETURN;
1019: END ;

Line 1026: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name||'.parsel_bud_dtl_cursor', errbuf) ;

1022: dbms_sql.parse(l_bud_dtl_cursor, l_update_query, DBMS_SQL.V7) ;
1023: EXCEPTION
1024: WHEN OTHERS THEN
1025: errbuf := sqlerrm || ' Budget Detail - Parse ' ;
1026: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name||'.parsel_bud_dtl_cursor', errbuf) ;
1027: retcode := -1;
1028: ROLLBACK;
1029: RETURN;
1030: END ;

Line 1034: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name||'.execute_bud_dtl_cursor', 'update statement executed') ;

1030: END ;
1031:
1032: BEGIN
1033: l_exec_ret := dbms_sql.execute(l_bud_dtl_cursor);
1034: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name||'.execute_bud_dtl_cursor', 'update statement executed') ;
1035: EXCEPTION
1036: WHEN OTHERS THEN
1037: errbuf := sqlerrm || ' Budget Detail - Execute Cursor ' ;
1038: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name||'.execute_bud_dtl_cursor', errbuf) ;

Line 1038: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name||'.execute_bud_dtl_cursor', errbuf) ;

1034: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name||'.execute_bud_dtl_cursor', 'update statement executed') ;
1035: EXCEPTION
1036: WHEN OTHERS THEN
1037: errbuf := sqlerrm || ' Budget Detail - Execute Cursor ' ;
1038: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name||'.execute_bud_dtl_cursor', errbuf) ;
1039: retcode := -1;
1040: ROLLBACK;
1041: RETURN;
1042: END ;

Line 1049: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name||'.close_bud_dtl_cursor',errbuf) ;

1045: dbms_sql.Close_Cursor(l_bud_dtl_cursor);
1046: EXCEPTION
1047: WHEN OTHERS THEN
1048: errbuf := sqlerrm ;
1049: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name||'.close_bud_dtl_cursor',errbuf) ;
1050: retcode := -1;
1051: ROLLBACK;
1052: RETURN;
1053: END ;

Line 1115: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, errbuf) ;

1111:
1112: IF vl_req_id = 0 THEN
1113: errbuf := 'Error submitting RX Report ';
1114: retcode := 2 ;
1115: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, errbuf) ;
1116: return;
1117: ElSIF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1118: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1119: 'Concurrent Request Id for RX Report - ' ||vl_req_id);

Line 1118: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

1114: retcode := 2 ;
1115: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, errbuf) ;
1116: return;
1117: ElSIF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1118: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1119: 'Concurrent Request Id for RX Report - ' ||vl_req_id);
1120: END IF;
1121: END IF; -- end of IF p_tas_type = "AGENCY_TAS' or p_tas_type = 'BOTH'
1122:

Line 1155: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Processing trading partner treasury account symbol: '||tp_treasury_symbol_record.treasury_symbol);

1151: l_tp_treasury_symbol := tp_treasury_symbol_record.treasury_symbol;
1152: cgac_crttas_record := null;
1153:
1154: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1155: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Processing trading partner treasury account symbol: '||tp_treasury_symbol_record.treasury_symbol);
1156: END IF;
1157:
1158: cgac_crttas_record.original_treasury_symbol := tp_treasury_symbol_record.treasury_symbol;
1159: cgac_crttas_record.original_treasury_symbol_id := tp_treasury_symbol_record.treasury_symbol_id;

Line 1256: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'New Trading Partner Treasury Symbol is '

1252: END IF;
1253:
1254: tp_treasury_symbol_record.treasury_symbol := l_tp_ts_str;
1255: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1256: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'New Trading Partner Treasury Symbol is '
1257: ||l_tp_ts_str);
1258: END IF;
1259: cgac_crttas_record.treasury_symbol := l_tp_ts_str;
1260:

Line 1268: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Duplicate Tradning Partner TAS: '||l_tp_ts_str);

1264: select count(*)into tp_tas_duplicate_cnt1 from fv_cgac_crt_tas_temp where
1265: treasury_symbol = tp_treasury_symbol_record.treasury_symbol;
1266:
1267: IF tp_tas_duplicate_cnt > 0 OR tp_tas_duplicate_cnt1 > 0 THEN
1268: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Duplicate Tradning Partner TAS: '||l_tp_ts_str);
1269: errbuf := 'New Trading Partner TAS value already exists';
1270: cgac_crttas_record.error_message := errbuf;
1271: INSERT INTO fv_cgac_crt_tas_temp values cgac_crttas_record;
1272: GOTO end_tp_tas;

Line 1280: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name,'Inserted TP TAS data into interface record') ;

1276: -- Insert into interface table to display on Rxi report
1277: INSERT INTO fv_cgac_crt_tas_temp values cgac_crttas_record;
1278:
1279: IF (SQL%rowcount >0) THEN
1280: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name,'Inserted TP TAS data into interface record') ;
1281: END IF;
1282:
1283: IF p_run_mode = 'F' then
1284:

Line 1374: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Inserted new Trading Partner Treasury Account symbol');

1370: tp_treasury_symbol_record.ORG_ID,
1371: tp_treasury_symbol_record.AUTO_CREATE_FLAG_BETC);
1372:
1373: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1374: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Inserted new Trading Partner Treasury Account symbol');
1375: END IF;
1376:
1377:
1378: -- Check whether the original TAS has any BETC mappings assigned

Line 1460: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, errbuf) ;

1456:
1457: IF vl_req_id = 0 THEN
1458: errbuf := 'Error submitting RX Report ';
1459: retcode := 2 ;
1460: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, errbuf) ;
1461: return;
1462: ElSIF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1463: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1464: 'Concurrent Request Id for RX Report - ' ||vl_req_id);

Line 1463: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,

1459: retcode := 2 ;
1460: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, errbuf) ;
1461: return;
1462: ElSIF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1463: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
1464: 'Concurrent Request Id for RX Report - ' ||vl_req_id);
1465: END IF;
1466: END IF;
1467:

Line 1470: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name,SQLERRM) ;

1466: END IF;
1467:
1468: EXCEPTION
1469: WHEN OTHERS THEN
1470: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name,SQLERRM) ;
1471: retcode := -1;
1472: errbuf := SQLERRM;
1473: ROLLBACK;
1474: RETURN;