Routine: FBAACR

Information

FBAACR ;AISC/CMR-OPT MED Cost Report ;6/1/1999

Source file <FBAACR.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,QQ,!!,"TOTAL PAYMENTS: ",?25,$J(FBCTR,7),?40,"TOTAL PATIENTS: ",?65,$J(FBTPT,7),!,"AVE. PAID FOR A PAYMENT:",?25 Line Location: START+9
Function Call: WRITE	Prompt: $J($FN(FBTAMT/FBCTR,",",2),10) Condition for execution: FBCTR>0 Line Location: START+9
Function Call: WRITE	Prompt: ?40,"AVE. PAID FOR A PATIENT:",?65 Line Location: START+9
Function Call: WRITE	Prompt: $J($FN(FBTAMT/FBTPT,",",2),10) Condition for execution: FBTPT>0 Line Location: START+9
Function Call: WRITE	Prompt: !?30,$E(FBPTC1,1,16),?48,$E(FBCPT,1,20),?70,$J($FN(FBAMT,",",2),10) Line Location: PRINT+2
Function Call: WRITE	Prompt: !!,$E(FBNAME,1,20),?22,$$SSN^FBAAUTL(DFN,1),?30,$E(FBPTC1,1,16),?48,$E(FBCPT,1,20),?70,$J($FN(FBAMT,",",2),10) Line Location: PRINT+3
Function Call: WRITE	Prompt: !?25,"OUTPATIENT COST REPORT",!?24,$$DATX^FBAAUTL(BEGDATE)," THROUGH ",$$DATX^FBAAUTL(ENDDATE),!,?24,Q,!!!,?21,"PATIENT",?31,"TREATING",!,"PATIENT NAME",?21," ID",?31,"SPECIALTY",?52,"CPT CODE",?69,"AMOUNT PAID",!,QQ Line Location: HED+0
Function Call: WRITE	Prompt: @IOF Line Location: CHK+1
Function Call: WRITE	Prompt: !?70,"----------",!?70,$J($FN(FBPAMT,",",2),10) Line Location: PSUM+0