1411: -- Process all expired records first and then Cancelled records
1412: FOR i IN 1..2 LOOP
1413: SELECT DECODE(i,1,'Expired',2,'Canceled')
1414: INTO vg_acct_flag
1415: FROM DUAL;
1416: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1417: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VG_ACCT_FLAG '||VG_ACCT_FLAG);
1418: END IF;
1419:
1426: END LOOP;
1427: ELSE
1428: SELECT DECODE(vl_status_flag,'E','Expired','C','Canceled','U','Unexpired')
1429: INTO vg_acct_flag
1430: FROM DUAL;
1431: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1432: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' VG_ACCT_FLAG '||VG_ACCT_FLAG);
1433: END IF;
1434:
2401:
2402: BEGIN
2403: SELECT DECODE(i,1,vl_dbt_flag,vl_crt_flag)
2404: INTO vl_drcr_flag
2405: FROM DUAL;
2406:
2407: SELECT DECODE(i,1,vg_balance_read_flag,'N')
2408: INTO vl_read_flag
2409: FROM DUAL;
2405: FROM DUAL;
2406:
2407: SELECT DECODE(i,1,vg_balance_read_flag,'N')
2408: INTO vl_read_flag
2409: FROM DUAL;
2410:
2411: EXCEPTION
2412: WHEN OTHERS THEN
2413: vp_retcode := 2 ;
2711: -- Get the period net dr, period net cr
2712: BEGIN
2713: SELECT DECODE(dr_cr,'D',ABS(bal_amt),0)
2714: INTO vl_period_dr
2715: FROM DUAL;
2716:
2717: SELECT DECODE(dr_cr,'D',0,ABS(bal_amt))
2718: INTO vl_period_cr
2719: FROM DUAL;
2715: FROM DUAL;
2716:
2717: SELECT DECODE(dr_cr,'D',0,ABS(bal_amt))
2718: INTO vl_period_cr
2719: FROM DUAL;
2720: EXCEPTION
2721: WHEN OTHERS THEN
2722: vp_retcode := 2 ;
2723: vp_errbuf := SQLERRM ||' -- Error in Insert_Balances procedure,'||
2742: -- Get the report sequence
2743: BEGIN
2744: SELECT Fv_Ye_Seq_Bal_Temp_S.NEXTVAL
2745: INTO vl_report_seq
2746: FROM DUAL;
2747: EXCEPTION
2748: WHEN OTHERS THEN
2749: vp_retcode := 2 ;
2750: vp_errbuf := SQLERRM ||' -- Error in Determine_DrCr procedure,'||
3272:
3273: -- Get the journal group_id
3274: SELECT Gl_Interface_Control_S.NEXTVAL
3275: INTO vg_jrnl_group_id
3276: FROM DUAL;
3277:
3278: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3279: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INTERFACE RUN ID: '||TO_CHAR(VG_INTERFACE_RUN_ID));
3280: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL GROUP ID: '||TO_CHAR(VG_JRNL_GROUP_ID));