Routine: ADGSTAT1

Package	Total	Call Graph
IHS Changes To ADT	2	TIME^ADGUTIL PRTOPT^ADGVAR
VA Fileman	2	^%DTC ^DIR
Kernel	1	^%ZISC

Package	Total	Caller Graph
IHS Changes To ADT	1	ADGSTAT

Name	Comments	DBIA/ICR reference
A	; -- main
Q	; -- cleanup
DF(X)	; -- decimal format
P1
DT(X)	; -- date format
AD	; -- adult services
PT	; -- ped total
NB	; -- newborn
TR	; -- terms
LN(X,Y)	; -- line
A1
LP()	; -- losses, ped (dischages + tranfer outs + deaths)
GT	; -- grand total
AT	; -- adult totals
PD
LA()	; -- losses, adu (dischages + tranfer outs + deaths)
NL()	; -- newborn losses (dischages + tranfer outs + deaths)
ND(X1,X2,X)	; -- number of days
AS()	; -- admitting service
HD	; -- heading
PG	; -- page

Name	Field # of Occurrence
^%DTC	ND+1
^%ZISC	Q+3
TIME^ADGUTIL	HD+2
PRTOPT^ADGVAR	A+3
^DIR	PG+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?3,"ADULT PATIENTS" Line Location: AD+1
Function Call: WRITE	Prompt: !,$E($P(^DIC(45.7,TS,0),U),1,15),?19,$J(+$P(DGA(TS),U),3) Line Location: A1+13
Function Call: WRITE	Prompt: ?25,$J(+$P(DGA(TS),U,7),3),?31,$J(+$P(DGA(TS),U,6),3) Line Location: A1+14
Function Call: WRITE	Prompt: ?37,$J(+$P(DGA(TS),U,2),3),?43,$J(+$P(DGA(TS),U,3),3) Line Location: A1+15
Function Call: WRITE	Prompt: ?49,$J(+$P(DGA(TS),U,4),4),?56,$J(DGAV,5) Line Location: A1+16
Function Call: WRITE	Prompt: ?64,$J(+$P(DGA(TS),U,5),4),?71,$J(DGAL,5) Line Location: A1+17
Function Call: WRITE	Prompt: !,$$LN("-"),!!?8,"TOTAL:",?19,$J(DGADT,3) Line Location: AT+1
Function Call: WRITE	Prompt: ?25,$J(DGTIT,3),?31,$J(DGTOT,3),?37,$J(DGDST,3) Line Location: AT+2
Function Call: WRITE	Prompt: ?43,$J(DGDTT,3),?49,$J(DGINT,4),?56,$J($$DF(DGAVT),5) Line Location: AT+3
Function Call: WRITE	Prompt: ?64,$J(DGALT,4),?71,$J($$DF(DGALT/$S(DGDVT:DGDVT,1:1)),5) Line Location: AT+4
Function Call: WRITE	Prompt: !!?3,"PEDIATRIC PATIENTS" Line Location: PD+0
Function Call: WRITE	Prompt: !,$E($P(^DIC(45.7,TS,0),U),1,15),?19,$J(+$P(DGP(TS),U),3) Line Location: P1+13
Function Call: WRITE	Prompt: ?25,$J(+$P(DGP(TS),U,7),3),?31,$J(+$P(DGP(TS),U,6),3) Line Location: P1+14
Function Call: WRITE	Prompt: ?37,$J(+$P(DGP(TS),U,2),3),?43,$J(+$P(DGP(TS),U,3),3) Line Location: P1+15
Function Call: WRITE	Prompt: ?49,$J(+$P(DGP(TS),U,4),4),?56,$J(DGAV,5) Line Location: P1+16
Function Call: WRITE	Prompt: ?64,$J(+$P(DGP(TS),U,5),4),?71,$J(DGAL,5) Line Location: P1+17
Function Call: WRITE	Prompt: !,$$LN("-"),!!?8,"TOTAL:",?19,$J(DGADP,3),?25,$J(DGTIP,3) Line Location: PT+1
Function Call: WRITE	Prompt: ?31,$J(DGTOP,3),?37,$J(DGDSP,3),?43,$J(DGDTP,3) Line Location: PT+2
Function Call: WRITE	Prompt: ?49,$J(DGINP,4),?56,$J($$DF(DGAVP),5) Line Location: PT+3
Function Call: WRITE	Prompt: ?64,$J(DGALP,4),?71,$J($$DF(DGALP/$S(DGDVP:DGDVP,1:1)),5) Line Location: PT+4
Function Call: WRITE	Prompt: !!?2,"GRAND TOTAL:",?19,$J(DGADT+DGADP,3),?25,$J(DGTIT+DGTIP,3) Line Location: GT+2
Function Call: WRITE	Prompt: ?31,$J(DGTOT+DGTOP,3),?37,$J(DGDST+DGDSP,3),?43,$J(DGDTT+DGDTP,3) Line Location: GT+3
Function Call: WRITE	Prompt: ?49,$J(DGINT+DGINP,4),?56,$J($$DF(DGAVT+DGAVP),5) Line Location: GT+4
Function Call: WRITE	Prompt: ?63,$J(DGALT+DGALP,5) Line Location: GT+5
Function Call: WRITE	Prompt: ?71,$J($$DF((DGALT+DGALP)/$S(DGDVT+DGDVP:DGDVT+DGDVP,1:1)),5) Line Location: GT+6
Function Call: WRITE	Prompt: !,$$LN("-"),!!?3,"NEWBORN",?19,$J($P(N,U),3) Line Location: NB+1
Function Call: WRITE	Prompt: ?25,$J($P(N,U,7),3),?31,$J($P(N,U,6),3) Line Location: NB+2
Function Call: WRITE	Prompt: ?37,$J($P(N,U,2),5),?43,$J($P(N,U,3),3) Line Location: NB+3
Function Call: WRITE	Prompt: ?49,$J($P(N,U,4),4),?56,$J($$DF($P(N,U,4)/$$ND(DGEDT,DGBDT)),5) Line Location: NB+4
Function Call: WRITE	Prompt: ?64,$J($P(N,U,5),4),?71,$J($$DF($P(N,U,5)/$S($$NL:$$NL,1:1)),5) Line Location: NB+5
Function Call: WRITE	Prompt: !!!!,"TXI = transfers in, TXO = transfers out" Line Location: TR+1
Function Call: WRITE	Prompt: !,"DAYS = total inpatient service days" Line Location: TR+2
Function Call: WRITE	Prompt: !,"ADPL = average daily inpatient census" Line Location: TR+3
Function Call: WRITE	Prompt: !,"TLOS = total length of stay (discharge days)" Line Location: TR+4
Function Call: WRITE	Prompt: !,"ALOS = average length of stay (average stay)",!! Line Location: TR+5
Function Call: WRITE	Prompt: @IOF Line Location: Q+3
Function Call: WRITE	Prompt: @IOF Condition for execution: (IOST["C-") Line Location: HD+1
Function Call: WRITE	Prompt: DGDUZ,?80-$L(DGFAC)\2,DGFAC Line Location: HD+1
Function Call: WRITE	Prompt: ! Line Location: HD+2
Function Call: WRITE	Prompt: ?24,"INPATIENT STATISTICS BY SERVICE" Line Location: HD+2
Function Call: WRITE	Prompt: !,$$DT(DT),?25,"from ",$$DT(DGBDT)," to ",$$DT(DGEDT) Line Location: HD+3
Function Call: WRITE	Prompt: !!?5,"SERVICE",?19,"ADM",?25,"TXI",?31,"TXO",?37,"DIS",?43,"DTH" Line Location: HD+4
Function Call: WRITE	Prompt: ?49,"DAYS",?57,"ADPL",?64,"TLOS",?72,"ALOS",!,$$LN("="),! Line Location: HD+5
Function Call: WRITE	Prompt: ! Line Location: PG+2
Function Call: WRITE	Prompt: @IOF Line Location: PG+3
Routine Call	DIR Line Location: PG+2

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	ADGSTAT1+3
^DIC(45.7 - [#45.7]	A1, A1+13, P1, P1+13, AS+1
^VA(200 - [#200]	ADGSTAT1+3

Name	Line Occurrences
$$AS	AD+4, PD+3
$$DF	A1+2, A1+4, AT+3, AT+4, P1+2, P1+4, PT+3, PT+4, GT+4, GT+6 , NB+4, NB+5
$$DT	HD+3
$$LA	A1+4, A1+10
$$LN	AT+1, PT+1, NB+1, HD+5
$$LP	P1+4, P1+10
$$ND	A1+2, P1+2, NB+4
$$NL	NB+5
A1	AD+4
AD	A+1
AT	A+1
GT	A+3
HD	A+1, PG+3
NB	A+3
P1	PD+3
PD	A+2
PG	A+1, A+2, A1+12, P1+12, GT+1
PT	A+2
Q	A+1, A+2, A+3
TR	A+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DGA	Q+3!
DGA(	AD+3, A1+2, A1+4, A1+7, A1+8, A1+9, A1+10, A1+13, A1+14, A1+15 , A1+16, A1+17, LA+1
DGADP	PD+1, P1+7, PT+1, GT+2, Q+2!
DGADT	AD+2, A1+7, AT+1, GT+2, Q+1!
DGAL	A1+4, A1+17, P1+4, P1+17, Q+3!
DGALP	PD+1, P1+10, PT+4, GT+5, GT+6, Q+2!
DGALT	AD+2, A1+10, AT+4, GT+5, GT+6, Q+1!
DGAV	A1+2, A1+10, A1+16, P1+2, P1+10, P1+16, Q+3!
DGAVP	PD+1, P1+10, PT+3, GT+4, Q+2!
DGAVT	AD+2, A1+10, AT+3, GT+4, Q+1!
DGBDT	A1+2, P1+2, NB+4, Q+3!, HD+3
DGD	Q+3!
DGDSP	PD+1, P1+7, PT+2, GT+3, Q+2!
DGDST	AD+2, A1+7, AT+2, GT+3, Q+1!
DGDTP	PD+1, P1+9, PT+2, GT+3, Q+2!
DGDTT	AD+2, A1+9, AT+3, GT+3, Q+1!
DGDUZ	ADGSTAT1+3*, Q+1!, HD+1
DGDVP	PD+1, P1+10, PT+4, GT+6, Q+2!
DGDVT	AD+2, A1+10, AT+4, GT+6, Q+1!
DGEDT	A1+2, P1+2, NB+4, Q+3!, HD+3
DGFAC	ADGSTAT1+3*, Q+2!, HD+1
DGINP	PD+1, P1+9, PT+3, GT+4, Q+2!
DGINT	AD+2, A1+9, AT+3, GT+4, Q+1!
DGP	Q+3!
DGP(	PD+2, P1, P1+2, P1+4, P1+7, P1+8, P1+9, P1+10, P1+13, P1+14 , P1+15, P1+16, P1+17, LP+1
>> DGSTOP	ADGSTAT1+4, A+1, A+2, PG+2, PG+3
DGTIP	PD+1, P1+8, PT+1, GT+2, Q+2!
DGTIT	AD+2, A1+8, AT+2, GT+2, Q+1!
DGTOP	PD+1, P1+8, PT+2, GT+3, Q+2!
DGTOT	AD+2, A1+8, AT+2, GT+3, Q+1!
DGZ	Q+3!
DIR	PG+2!
DIR(0	PG+2*
DT	HD+3
DUZ	ADGSTAT1+3
DUZ(2	ADGSTAT1+3
IOF	Q+3, HD+1, PG+3
IOM	LN+1
IOSL	A1+12, P1+12, GT+1
IOST	HD+1, PG+1
N	P1*, NB+1, NB+2, NB+3, NB+4, NB+5, Q+1!, NL+1
TS	AD+3~, A1, A1+2, A1+4, A1+7, A1+8, A1+9, A1+10, A1+13, A1+14 , A1+15, A1+16, A1+17, PD+2~, P1, P1+2, P1+4, P1+7, P1+8, P1+9 , P1+10, P1+13, P1+14, P1+15, P1+16, P1+17, AS+1, LA+1, LP+1
U	ADGSTAT1+3, A+1, A+2, A1, A1+2, A1+4, A1+7, A1+8, A1+9, A1+10 , A1+13, A1+14, A1+15, A1+16, A1+17, P1, P1+2, P1+4, P1+7, P1+8 , P1+9, P1+10, P1+13, P1+14, P1+15, P1+16, P1+17, NB+1, NB+2, NB+3 , NB+4, NB+5, PG+3, AS+1, LA+1, LP+1, NL+1
X	Q+3!, PG+2~, DF~, DF+1, DT~, DT+1, LN~, LN+1, ND~, ND+1
X1	ND~
X2	ND~
Y	Q+3!, PG+2~, LN~, LN+1*

Customize PDF page

Package: IHS Changes To ADT

Routine: ADGSTAT1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: