Routine: IBDFOSG2

Information

IBDFOSG2 ;ALB/TMP - ENCOUNTERS WITH BILLING DATA CONT. - SEP 11, 1995

Name	Comments	DBIA/ICR reference
TOT2	; #2a,b
TOT3	; #3a,b
TOT4	; #4
TOT7	; #7
TOT10	; #10a,b
TOT11	; #11
TOT11Q
PRT11	;
END
PRT(IBTOT,IBFLDS,IBBY,IBDHD,DIOBEG,DIOEND)	; Prt rpt
PRTQ
PRT1
BEG10	; DIOBEG
END10	; DIOEND
LAG	; Set up lag time accumulators-from computed fld
GEN30	; Was printed within 30 days of any visit on bill
DTRNG	;
SELDEV	; Device/queue tm (IOP,DQTIME returned)
SELDEVQ
DT()	; Display date format
SELMONTH	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"#3b" Line Location: TOT3+7
Function Call: WRITE	Prompt: !,"#11" Line Location: TOT11+4
Function Call: WRITE	Prompt: !!,"Scanned Encounter Forms with Outpatient Bills Generated." Line Location: TOT11+5
Function Call: WRITE	Prompt: !!,"You will need a 132 column printer for this report!",! Line Location: TOT11+11
Function Call: WRITE	Prompt: !,"#11 MONTH: "_$$DT() Line Location: PRT11+3
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request Queued Task="_ZTSK,1:"Request Canceled") Line Location: PRT11+9
Function Call: WRITE	Prompt: !,"#",IBTOT Line Location: PRT+2
Function Call: WRITE	Prompt: !,"TOTALS FOR #"_IBTOT_" ("_$$DT()_")" Line Location: PRT1+3
Function Call: WRITE	Prompt: !!,"(10a) AVERAGE # DAYS LAG FROM ENCOUNTER TO BILL CREATE: ",$J($S(^TMP($J,"EFDPTOT",2):^TMP($J,"EFDPTOT",1)/^TMP($J,"EFDPTOT",2),1:0),10,2) Line Location: END10+1
Function Call: WRITE	Prompt: !,"(10b) AVERAGE # DAYS LAG FROM ENCOUNTER TO BILL PRINT : ",$J($S(^TMP($J,"EFDPTOT",4):^TMP($J,"EFDPTOT",3)/^TMP($J,"EFDPTOT",4),1:0),10,2) Line Location: END10+2
Function Call: WRITE	Prompt: !,$C(7),"CANNOT BE YOUR HOME DEVICE" Line Location: SELDEV+4
Function Call: WRITE	Prompt: !,$C(7),"Must choose a month from 4/94 thru 3/96" Line Location: SELMONTH+1

FileNo	Call Tags
^DGCR(399 - [#399]	Classic Fileman Calls