Routine: IBDFOSG

Information

IBDFOSG ;ALB/MAF/AAS - SCANNED EF FOR OUTPATIENTS WITH BILLS GENERATED REPORT ;8/21/95

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD ($$FMTE,$$HTE)^XLFDT
Registration	2	PAUSE^VALM1 DIVISION^VAUTOMA
Automated Information Collection System	1	START^IBDFOSG1
Integrated Billing	1	DATE^IBOUTL
VA Fileman	1	DT^DICRW

Package

Total

Call Graph

Kernel

(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD ($$FMTE,$$HTE)^XLFDT

Registration

PAUSE^VALM1 DIVISION^VAUTOMA

Automated Information Collection System

START^IBDFOSG1

Integrated Billing

DATE^IBOUTL

VA Fileman

DT^DICRW

Package	Total	Caller Graph
Automated Information Collection System	2	IBDF SCANNED W/BILL GEN IBDFOSG2
Integrated Billing	1	IBDF SCANNED W/BILL GEN

Package

Total

Caller Graph

Automated Information Collection System

IBDF SCANNED W/BILL GEN IBDFOSG2

Integrated Billing

IBDF SCANNED W/BILL GEN

Entry Points

Name	Comments	DBIA/ICR reference
PR
QUIT
END	; -- Clean up
HDR	; -- Print header for billing report
DIVH	; -- Write division header
DEV	; -- select device, run option
DASH
PRINT	; -- print one billing report ; Data sorted into ^tmp arrays ; := ^tmp("mccr",$j) = ; Clinic Totals := ^tmp("ctot",$j,division,clinic)= ; Division Totals := ^tmp("dtot",$j,division) = ; Grand Totals := ^tmp("gtot",$j) =
ONEDV	; -- Print Division totals
DATE	; -- select date
LINE(NAME,IBX)	; ; -- print detail line ; input Name := text to be printed ; ibx ;= 9 piece global node containing data
ONECL	; -- Print one clinics data
DQ

Name	Field # of Occurrence
^%ZIS	DEV+2
HOME^%ZIS	DEV+3
^%ZISC	END+3
^%ZTLOAD	DEV+3
$$S^%ZTLOAD	HDR+10
DT^DICRW	%
START^IBDFOSG1	PRINT+10
DATE^IBOUTL	DATE+1
PAUSE^VALM1	HDR+2
DIVISION^VAUTOMA	%+3
$$FMTE^XLFDT	HDR+6
$$HTE^XLFDT	%+5, PRINT+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Scanned Encounter Forms with Outpatient Bills Generated." Line Location: IBDFOSG+5
Function Call: WRITE	Prompt: !! Line Location: DATE+1
Function Call: WRITE	Prompt: !!,"You will need a 132 column printer for this report!",! Line Location: DEV+1
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request Queued Task="_ZTSK,1:"Request Canceled") Line Location: DEV+3
Function Call: WRITE	Prompt: ! Line Location: END+1
Function Call: WRITE	Prompt: !!,"No Data Meeting This Criteria for the Date Range Chosen",! Line Location: PR+1
Function Call: WRITE	Prompt: !,$E(NAME,1,25) Line Location: LINE+6
Function Call: WRITE	Prompt: ?27,$J($P(IBX,"^",4),8) Line Location: LINE+7
Function Call: WRITE	Prompt: ?39,$J($P(IBX,"^",3),8) Line Location: LINE+8
Function Call: WRITE	Prompt: ?51,$J($P(IBX,"^",1),8) Line Location: LINE+9
Function Call: WRITE	Prompt: ?63,$J($P(IBX,"^",2),8) Line Location: LINE+10
Function Call: WRITE	Prompt: ?75,$J(X,8,2) Line Location: LINE+12
Function Call: WRITE	Prompt: ?87,$J($P(IBX,"^",6),8) Line Location: LINE+13
Function Call: WRITE	Prompt: ?99,$J($P(IBX,"^",7),8) Line Location: LINE+14
Function Call: WRITE	Prompt: ?111,$J($P(IBX,"^",8),8) Line Location: LINE+15
Function Call: WRITE	Prompt: ?123,$J($P(IBX,"^",9),8) Line Location: LINE+16
Function Call: WRITE	Prompt: @IOF Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Scanned Encounters with Bill Generation Data",?(IOM-33),"Page ",IBPAG," ",IBHDT Line Location: HDR+5
Function Call: WRITE	Prompt: !,"For Period beginning on ",$$FMTE^XLFDT(IBBDT,2)," to ",$$FMTE^XLFDT(IBEDT,2) Line Location: HDR+6
Function Call: WRITE	Prompt: !,?53,"Visits",?65,"#Bills",?75,"Avg. Days",?114,"Total",?126,"Total" Line Location: HDR+7
Function Call: WRITE	Prompt: !,"Clinic",?27,"#Scanned",?39,"#Insured",?53,"Billed",?64,"Printed",?75,"to Print",?87,"$ Billed",?100,"$ Recvd",?114,"Bills",?125,"Visits" Line Location: HDR+8
Function Call: WRITE	Prompt: !,$TR($J(" ",IOM)," ","-") Line Location: HDR+9
Function Call: WRITE	Prompt: !!,"....task stopped at user request" Line Location: HDR+10
Function Call: WRITE	Prompt: ! Line Location: QUIT+0
Function Call: WRITE	Prompt: !,"------------------",?27,"--------",?39,"--------",?51,"--------",?63,"--------",?75,"--------",?87,"--------",?99,"--------",?111,"--------",?123,"--------" Line Location: DASH+0
Function Call: WRITE	Prompt: !!,?(IOM-$L(IBDFDV)+10/2),"DIVISION: ",IBDFDV,! Line Location: DIVH+3
Routine Call	%ZIS Line Location: DEV+3
Routine Call	%ZIS Line Location: DEV+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	DEV+6
^DG(43 - [#43]	%+3
^TMP("CTOT"	END+1!, PR+4, PR+7, ONECL+2, ONECL+3, QUIT!
^TMP("DTOT"	END+1!, PR+15, ONEDV+3, ONEDV+5, QUIT!, DIVH+2
^TMP("GTOT"	END+1!, PR+18, QUIT!
^TMP("IBD-BILL"	END+1!, QUIT!
^TMP("IBD-ENTERED"	END+1!
^TMP("IBD-PRINTED"	END+1!
^TMP("MCCR"	END+1!, PR+1, QUIT!

Name	Line Occurrences
DASH	PR+17, ONEDV+4
DIVH	PR+5
END	%+1, %+3, DATE+2, DEV+2, DEV+3, DQ
HDR	PR, PR+12, ONEDV+2, LINE+5, DIVH+1
LINE	PR+18, ONECL+3, ONEDV+5
ONECL	PR+7
ONEDV	PR+7, PR+15
PRINT	DQ
QUIT	PRINT+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEV+2*
DFN	END+4!
>> DIRUT	HDR+2
DT	%
IBBDT	DATE+2, DATE+3, END+4!, PRINT+8, HDR+6
IBCNT	END+5!
IBDFBEG	DATE+3*, END+5!
IBDFCL	PR+2~, PR+3, PR+6, PR+7, PR+13, ONECL+2, ONECL+3
IBDFCLI	END+5!, PR+7*
IBDFDA	END+5!
IBDFDAT	%+5*, END+5!
IBDFDIV	END+5!, PR+4, PR+15
IBDFDV	PR+2~, PR+3, PR+4, PR+7, PR+13, PR+15, ONECL+2, ONECL+3, ONEDV+3, ONEDV+5 , DIVH+2, DIVH+3
IBDFDVE	END+4!, PRINT+7, PR+7, PR+10, ONEDV+4
IBDFEND	DATE+3*, END+5!
IBDFIFN	END+5!
IBDFMUL	%+3*, END+5!
IBDFNODE	END+5!
IBDFNUM	END+5!
IBDFPAT	PR+2~
IBDFPT	PR+2~, PR+3, PR+13
IBDFSA	END+5!
IBDFT	END+5!, PR+2~
IBDFTMP	END+5!, PR+2~
IBDFTMP1	END+5!
IBDFTMP2	END+5!
IBDFTPRT	END+5!
IBDNODE	PR+2~
IBDT	END+4!
IBEDT	DATE+2, DATE+3, END+4!, PRINT+8, HDR+6
IBFLG1	END+6!
IBFLG2	END+6!
IBFLG3	END+6!
IBFLG4	END+6!, PR+14*, ONEDV+3
IBFLG5	END+6!
IBFLG6	END+6!
IBFLG7	END+6!
IBFLG8	END+6!
IBFLG9	END+6!
IBHDT	END+4!, PRINT+7*, HDR+5
IBMCNODE	END+6!
IBMCSND	END+6!
IBNAM	END+6!
IBPAG	END+4!, PRINT+7, HDR+2, HDR+3, HDR+4, HDR+5
IBQUIT	END+4!, PRINT+7, PR+4, PR+11, PR+15, PR+16, ONECL+1, ONEDV+1, ONEDV+2, LINE+5 , HDR+1, HDR+2, HDR+10*, DIVH+1
IBTSBDT	END+6!, PRINT+8*
IBTSEDT	END+6!, PRINT+8*
IBX	LINE~, LINE+7, LINE+8, LINE+9, LINE+10, LINE+11, LINE+13, LINE+14, LINE+15, LINE+16
IO	DEV+5
IO("Q"	DEV+3!
IOF	HDR+3
IOM	HDR+5, HDR+9, DIVH+3
IOSL	ONEDV+2, LINE+5, DIVH+1
IOST	HDR+2, HDR+3
NAME	LINE~, LINE+6
>> POP	DEV+2
VAUTC	%+4*, END+7!
VAUTD	END+7!
X	DEV+6, END+4!, LINE+11, LINE+12
Y	%+3, END+4!
>> ZTDESC	DEV+3*
>> ZTQUEUED	END+2, HDR+10
>> ZTREQ	END+2*
>> ZTRTN	DEV+3*
>> ZTSAVE("IB*"	DEV+3*
>> ZTSAVE("VA*"	DEV+3*
ZTSK	DEV+3!
>> ZTSTOP	HDR+10*

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFOSG

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: