Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ADGSTAW1

Package: IHS Changes To ADT

Routine: ADGSTAW1


Information

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

Source Information

Source file <ADGSTAW1.m>

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

External References

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

Global Variables Directly Accessed

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

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All