Routine: ADGSTAW1

Information

ADGSTAW1 ; IHS/ADC/PDW/ENM - INPATIENT STATS BY WARD (cont.) ; [ 03/25/1999 11:48 AM ]

Source Information

Call Graph

Call Graph Total: 4

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

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Changes To ADT	1	ADGSTAW

Entry Points

Name	Comments	DBIA/ICR reference
A	; -- main
Q	; -- cleanup
DT(X)	; -- date format
ADIC(X)	; -- average daily inpatient census (tisd / total # of days)
AW()	; -- admitting ward
H	; -- heading
K	; -- key
ND(X1,X2,X)	; -- number of days
L	; -- line
TISD(X)	; -- total inpatient service days
N	; -- newborn
1	; -- total ward counts (newborn 12-19; below + 10) ; (2 rem, 3 adm, 4 dis, 5 txi, 6 txo, 7 dth, 8 1day, 9 los)
LS(X)	; -- losses (dis+txo+dth)
UI()	; -- user's initials
LN(X,Y)	; -- line
T	; -- totals
W	; -- loop ward counts for a period
ALOS(X)	; -- average length of stay (los / losses)
P(Z)	; -- page
FAC()	; -- facility name

Name	Field # of Occurrence
^%DTC	ND+1
^%ZISC	Q+1
PRTOPT^ADGVAR	A+1
^DIR	P+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$E($P(^DIC(42,W,0),U),1,10) Line Location: L+2
Function Call: WRITE	Prompt: ?16,$J($P(DGWD(W),U,3),3),?22,$J($P(DGWD(W),U,5),3) Line Location: L+3
Function Call: WRITE	Prompt: ?28,$J($P(DGWD(W),U,6),3),?34,$J($P(DGWD(W),U,4),3) Line Location: L+4
Function Call: WRITE	Prompt: ?40,$J($P(DGWD(W),U,7),3),?46,$J($P(DGWD(W),U,8),3) Line Location: L+5
Function Call: WRITE	Prompt: ?52,$J($$TISD(DGWD(W)),4),?60,$J($$ADIC(DGWD(W)),5,2) Line Location: L+6
Function Call: WRITE	Prompt: ?69,$J($P(DGWD(W),U,9),3),?74,$J($$ALOS(DGWD(W)),5,2) Line Location: L+7
Function Call: WRITE	Prompt: !,$$LN("-"),!!,"TOTAL:",?16,$J($P(T,U,3),3) Line Location: T+2
Function Call: WRITE	Prompt: ?22,$J($P(T,U,5),3),?28,$J($P(T,U,6),3),?34,$J($P(T,U,4),3) Line Location: T+3
Function Call: WRITE	Prompt: ?40,$J($P(T,U,7),3),?46,$J($P(T,U,8),3),?52,$J($$TISD(T),4) Line Location: T+4
Function Call: WRITE	Prompt: ?59,$J($$ADIC(T),5,2),?68,$J($P(T,U,9),3) Line Location: T+5
Function Call: WRITE	Prompt: ?74,$J($$ALOS(T),5,2) Line Location: T+6
Function Call: WRITE	Prompt: !,$$LN("-"),!!,"NEWBORN",?16,$J($P(T,U,13),3) Line Location: N+2
Function Call: WRITE	Prompt: ?22,$J($P(T,U,15),3),?28,$J($P(T,U,16),3),?34,$J($P(T,U,14),3) Line Location: N+3
Function Call: WRITE	Prompt: ?40,$J($P(T,U,17),3),?46,$J($P(T,U,18),3) Line Location: N+4
Function Call: WRITE	Prompt: ?52,$J($$TISD($P(T,U,11,19)),4),?60,$J($$ADIC($P(T,U,11,19)),5,2) Line Location: N+5
Function Call: WRITE	Prompt: ?69,$J($P(T,U,19),3),?74,$J($$ALOS($P(T,U,11,19)),5,2) Line Location: N+6
Function Call: WRITE	Prompt: @IOF Line Location: Q+1
Function Call: WRITE	Prompt: @IOF Condition for execution: IOST["C-" Line Location: H+1
Function Call: WRITE	Prompt: $$UI,?80-$L($$FAC)\2,$$FAC,! Line Location: H+1
Function Call: WRITE	Prompt: ?24,"INPATIENT STATISTICS BY WARD",!,$$DT(DT),?25,"from " Line Location: H+2
Function Call: WRITE	Prompt: $$DT(DGBD)," to ",$$DT(DGED),!!,"WARD",?16,"ADM",?22,"TXI" Line Location: H+3
Function Call: WRITE	Prompt: ?28,"TXO",?34,"DIS",?40,"DTH",?46,"1DAY",?52,"TISD",?61,"ADIC" Line Location: H+4
Function Call: WRITE	Prompt: ?68,"TLOS",?75,"ALOS",!,$$LN("=") Line Location: H+5
Function Call: WRITE	Prompt: ! Line Location: P+1
Function Call: WRITE	Prompt: @IOF Line Location: P+1
Function Call: WRITE	Prompt: !!,"TXI = transfers in, TXO = transfers out" Line Location: K+1
Function Call: WRITE	Prompt: !,"TISD = total inpatient service days" Line Location: K+2
Function Call: WRITE	Prompt: !,"ADIC = average daily inpatient census (adpl)" Line Location: K+3
Function Call: WRITE	Prompt: !,"TLOS = total length of stay (discharge days)" Line Location: K+4
Function Call: WRITE	Prompt: !,"ALOS = average length of stay (average stay)" Line Location: K+5
Routine Call	DIR Line Location: P+1

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	FAC+1
^DIC(42 - [#42]	L+2, AW+1
^VA(200 - [#200]	UI+1

Label References

Name	Line Occurrences
$$ADIC	L+6, T+5, N+5
$$ALOS	L+7, T+6, N+6
$$AW	W+2
$$DT	H+2, H+3
$$FAC	H+1
$$LN	T+2, N+2, H+5
$$LS	ALOS+1
$$ND	ADIC+1
$$TISD	L+6, T+4, N+5, ADIC+1
$$UI	H+1
1	W+2
H	A+1, P+1
K	A+1
L	W+2
N	A+1
P	L+1, T+1, N+1
Q	A+1
T	A+1
W	A+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DGBD	Q+1!, H+3, ADIC+1
DGED	Q+1!, H+3, ADIC+1
DGWD	Q+1!
DGWD(	W+1, 1+2, L+3, L+4, L+5, L+6, L+7
DIR	P+1!
DIR(0	P+1*
DT	H+2
DUZ	UI+1
DUZ(2	FAC+1
IO	H+1
IOF	Q+1, H+1, P+1
IOM	LN+1
IOSL	L+1, T+1, N+1
IOST	H+1, P+1
>> P	1+2*
T	W+1, 1+2, T+2, T+3, T+4, T+5, T+6, N+2, N+3, N+4 , N+5, N+6, Q+1!
U	1+2, L+2, L+3, L+4, L+5, L+7, T+2, T+3, T+4, T+5 , N+2, N+3, N+4, N+5, N+6, FAC+1, UI+1, LS+1, TISD+1, ALOS+1
>> W	W+1*, 1+2, L+2, L+3, L+4, L+5, L+6, L+7, AW+1
X	P+1~, LS~, LS+1, DT~, DT+1, TISD~, TISD+1, ADIC~, ADIC+1, ALOS~ , ALOS+1, LN~, LN+1, ND~, ND+1
X1	ND~
X2	ND~
Y	P+1~, LN~, LN+1*
Z	P~, P+1

Customize PDF page

Package: IHS Changes To ADT

Routine: ADGSTAW1

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

Local Variables

Legend: