Routine: ADEPLV1

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZISC
IHS Dental System	1	$$INDIAN^ADEKNT
IHS VA Utilities	1	^XBKVAR

Package	Total	Caller Graph
IHS Dental System	1	ADEPLV

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	PRINT+4
^%ZISC	END2+1
$$INDIAN^ADEKNT	IND+5
^XBKVAR	START+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"TOTAL FOR ",ADEFAC,":" Line Location: P2+0
Function Call: WRITE	Prompt: !,"TOTAL FOR ",ADEFAC,":" Line Location: P2+2
Function Call: WRITE	Prompt: !,$P(^DIC(16,ADERPD,0),U) Line Location: P2+4
Function Call: WRITE	Prompt: !,$P(^DIC(16,ADERPD,0),U) Line Location: P2+6
Function Call: WRITE	Prompt: !,"TOTAL FOR ",ADEFAC,":" Line Location: P2+8
Function Call: WRITE	Prompt: !,"TOTAL FOR ",ADEFAC,":" Line Location: P2+10
Function Call: WRITE	Prompt: !,"LEVEL ",ADELV,": ",?20,$J($P(ADEDAT,U,(Z2-1)),4),?30,$J($P(ADEDAT,U,Z2),6) Line Location: CALC+5
Function Call: WRITE	Prompt: !,"LEVEL ",ADELV,":" Line Location: CALC+9
Function Call: WRITE	Prompt: ?20,$J($P(ADEDAT,U,(Z*2-1)),4) Line Location: CALC+10
Function Call: WRITE	Prompt: ?30,$J($P(ADEDAT,U,Z*2),6) Line Location: CALC+11
Function Call: WRITE	Prompt: ?40,$J(+$P($G(ADERVUD),U,Z*2),6) Line Location: CALC+12
Function Call: WRITE	Prompt: !,"LEVEL ",ADELV,": ",?20,$J($P(ADEDAT,U,(Z2-1)),4),?30,$J($P(ADEDAT,U,Z2),6),?40,$J(+$P($G(ADERVUD),U,Z*2),6) Line Location: CALC+18
Function Call: WRITE	Prompt: !,"TOTAL LVL 1-6: ",?20,$J(ADESVRT,4),?30,$J(ADESMRT,6),?40,$J(ADERVUTO,6) Line Location: CALC+22
Function Call: READ	Prompt: ! Timeout: DTIME Variable: X Line Location: EOP1+0
Function Call: WRITE	Prompt: @IOF,ADEFAC," LEVEL OF SERVICES"_ADETITL,?65,"PAGE ",ADEPAG,!,"FOR VISITS BETWEEN ",ADEBDT," AND ",$P(ADEND,"@") Line Location: HEADER+0
Function Call: WRITE	Prompt: !!,?20,"SVCS",?30,"MINUTES",?40,"RVUs",!,ADELIN Line Location: HEADER+3
Routine Call	%ZIS Line Location: PRINT+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ADEPCD - [#9002007]	RO1+1, RO1+2, RO1+18, RO3, RO3+2
^ADEPCD("AC"	ROLL, RO1
^AUPNPAT - [#9000001]	NON+1, NON+2
^AUTTADA - [#9999999.31]	RO3+3, RO3+5, RO3+7
^AUTTLOC - [#9999999.06]	RO1+8, P1+1
^DD("DD"	PRINT+7
^DIC(16 - [#16]	P2+6
^DIC(6 - [#6]	RO1+13
^DIC(7 - [#7]	RO1+13

Label References

Name	Line Occurrences
CALC	P2+2, P2+6, P2+10, FACTOT+2
END	START+1, PRINT+1, P1+1, P2+2, P2+6, P2+10, FACTOT+2
END2	ROLLEND+2
EOP	CALC+17, CALC+24
EOP1	P1+1, FACTOT+2
FACTOT	P1
HEADER	FACTOT+2, EOP1+1
IND	RO1+5, RO1+7
P1	P2+2, P2+10
P2	P2+6
RO1	RO1+1, RO1+3, RO1+5, RO1+7, RO1+8, RO1+13, RO1+19
RO3	RO1+18
ROLL	RO1
ROLLEND	ROLL

Naked Globals

Name	Field # of Occurrence
^(0	RO3+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS("IOPAR"	PRINT+3*
ADEACP	RO3*, RO3+3, RO3+5, RO3+7, END2+6!
ADEBDT	START+2, ROLLEND, PRINT+6, PRINT+7, END2+6!, HEADER
ADECON	RO1+3, END2+6!
ADEDAT	P2+2, P2+6, P2+10, CALC+10, CALC+11, CALC+14, CALC+15, FACTOT+2, END2+6!
ADEDFN	ROLL, RO1, RO1+1, RO1+2, RO1+18, RO3, RO3+2, END2+7!
ADEDIR	RO1+5, END2+6!
ADEDT	START+2, ROLL, RO1, END2+6!
ADEFAC	P1+1, P2+2, P2+10, FACTOT+2, END2+6!, HEADER
ADEGBL	START+1, START+5, START+7, RO1+9, RO1+11, RO1+14, RO1+16, RO3+9, RO3+11, RO3+13* , RO3+15, RO3+16, RO3+18, RO3+21, RO3+22*, ROLLEND, ROLLEND+3, ROLLEND+5, PRINT+1, PRINT+6 , P1, P2+2, P2+6, P2+10, FACTOT+2, END+1, END+2, END2+6!
ADEIOP	ROLLEND+4, PRINT+2, END2+5!
ADEIOPAR	PRINT+3, END2+5!
ADELIN	PRINT+6*, END2+6!, HEADER+3
ADELOE	RO1+8, RO1+9, RO1+11, RO1+14, RO1+16, RO3+9, RO3+11, RO3+18, RO3+21, RO3+22 , PRINT+6, P1*, P1+1, P2+2, P2+6, P2+10, END2+6!, EOP1+1
ADELV	CALC+7, CALC+8, CALC+9, CALC+13, END2+6!
ADELVL	RO3+7, RO3+8, END2+7!
ADEND	ROLL, ROLLEND, PRINT+6, PRINT+7, END2+6!, HEADER
ADENOD	RO1+2*, RO1+3, RO1+5, RO1+8, RO1+13, END2+6!, NON, IND+4, IND+5
ADENOLOK	PRINT+1*, END+2, END2+5!
ADENON	RO1+7, END2+7!
ADEOLD	END2+6!
ADEPAG	PRINT+6, END2+6!, EOP1, HEADER, HEADER+5
ADEPAT	END2+7!, NON*, NON+1, NON+2
ADEPC	RO3+8*, RO3+9, RO3+11, RO3+13, RO3+15, RO3+16, RO3+18, RO3+21, RO3+22, END2+7!
ADEPDET	RO1+13, RO1+14, RO1+16, RO3+9, RO3+11, P2+2, P2+6, END2+7!
ADEPRO	RO1+13, END2+6!
ADEQIT	PRINT+6, P1+1, P2+2, P2+6, P2+10, CALC+6, FACTOT+2, END2+6!, EOP1
ADERPD	RO1+13, RO1+14, RO1+16, RO3+9, RO3+11, P1, P2+2*, P2+6, END2+6!
>> ADERVU	RO3+5*, RO3+11, RO3+16, RO3+22
ADERVUD	P2+2, P2+6, P2+10, CALC+12, CALC+16, FACTOT+2, END2+3!
>> ADERVUTO	CALC+3, CALC+16, CALC+22
ADESM	RO3+7*, RO3+9, RO3+13, RO3+18, END2+7!
ADESMRT	CALC+3, CALC+15, CALC+22, END2+6!
ADESVC	RO1+18*, RO3, RO3+2, END2+7!
ADESVRT	CALC+3, CALC+14, CALC+22, END2+6!
ADETITL	ROLLEND, END2+6!, HEADER
ADEY	RO1+5, RO1+7, END2+7!, NON+3, IND+4, IND+5*
DT	ROLLEND
DTIME	EOP1
IO	PRINT+5
IOF	HEADER
>> IOP	PRINT+2*
IOSL	EOP
IOST	EOP1
>> IOT	ROLLEND+2
>> J	RO1+18*
U	RO1+3, RO1+5, RO1+8, RO1+13, RO3, RO3+2, RO3+5, RO3+7, RO3+9, RO3+11 , RO3+13, RO3+15, RO3+16, RO3+18, RO3+21, RO3+22, ROLLEND, ROLLEND+4, PRINT+6, P1+1 , P2+6, CALC+10, CALC+11, CALC+12, CALC+14, CALC+15, CALC+16, NON, NON+2, IND+4 , IND+5
>> X	EOP1*
>> Y	PRINT+7*
>> Z	CALC+6*, CALC+7, CALC+10, CALC+11, CALC+12, CALC+14, CALC+15, CALC+16
>> ZTQUEUED	START+1, START+4, ROLL, ROLLEND+2, ROLLEND+5, PRINT+1, END
>> ZTREQ	START+1, ROLLEND+4, END*

Customize PDF page

Package: IHS Dental System

Routine: ADEPLV1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
P2	;I ADEPDET S ADERPD=$O(@ADEGBL@(ADELOE,ADERPD)) I '+ADERPD S ADEDAT=@ADEGBL@(ADELOE,0) W !,"TOTAL FOR ",ADEFAC,":" D CALC G:ADEQIT END G P1
HEADER
P1
END
EOP1
FACTOT	;D EOP1 G:ADEQIT END S ADEFAC="TOTAL FOR ALL FACILITIES",ADEDAT=@ADEGBL@(0) D HEADER,CALC G:ADEQIT END
EOP
NON
ROLLEND
START	;EP - TASKMAN PROCESSING PHASE
END2	;
PRINT	;EP - TASKMAN PRINT PHASE
RO1
RO3
IND	;CALLED WITH ADEY=0
ROLL
CALC	;