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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: AMERBIN

Package: Emergency Room

Routine: AMERBIN


Information

AMERBIN ; IHS/ANMC/GIS - MAKES AGE BIN REPORTS ;

Source Information

Source file <AMERBIN.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 ^%ZISC  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
PAUSE ;
SETA
HEADER
REP
ATT
FAIL
SETV ;
BLIST ; I IOST["C-" R !!,"<>",AMERX#1:DTIME
EXIT
B1 ;
VAR
BLVAR ;
SETBIN

External References

Name Field # of Occurrence
^%ZISC BLVAR+8, BLVAR+9
^DIR BLVAR+9, PAUSE+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *13,AMERZZZ
  • Line Location: VAR+3
Function Call: WRITE
  • Prompt: " (",AMERXXX,")"
  • Line Location: VAR+3
Function Call: WRITE
  • Prompt: !!!!,"CRUNCH, CRUNCH....",!!
  • Line Location: REP+3
Function Call: WRITE
  • Prompt: *13,AMERZZZ," (",AMERXXX,")"
  • Line Location: FAIL+1
Function Call: WRITE
  • Prompt: !,$E(N,1,12)
  • Line Location: BLVAR+3
Function Call: WRITE
  • Prompt: !!,"TOTAL"
  • Line Location: BLVAR+4
Function Call: WRITE
  • Prompt: ?J,^(I)
  • Line Location: BLVAR+5
Function Call: WRITE
  • Prompt: ?J,AMERZ
  • Line Location: BLVAR+6
Function Call: WRITE
  • Prompt: !!,AMERXXX," ENTR",$S(AMERXXX>1:"IES",1:"Y")," NOT INCLUDED BECAUSE OF BAD POINTERS OR LACK OF DOB"
  • Line Location: BLVAR+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BLVAR+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: BLVAR+9
Function Call: WRITE
  • Prompt: ?(J+7),^TMP("AMERBIN",$J,"V",N)
  • Line Location: B1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+0
Function Call: WRITE
  • Prompt: !,?35,"AGE GROUPS",!
  • Line Location: HEADER+1
Function Call: WRITE
  • Prompt: AMERNN
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: ?AMERJ,$S($P(AMERX,":")=$P(AMERX,":",2):" ",1:($P(AMERX,":")_"-")),$P(AMERX,":",2)
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: ?(AMERJ+2),"TOT"
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,AMERX
  • Line Location: HEADER+9
Routine Call
  • DIR
  • Line Location:
    • BLVAR+9
    • PAUSE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] VAR, VAR+1
^TMP("AMERAGE" REP, REP+1, BLIST+1, EXIT!, B1+2, B1+4, HEADER+5, SETBIN*
^TMP("AMERBIN" REP+4!, REP+7*, SETV+1, SETV+2*, SETV+3*, SETV+4, SETV+5*, BLVAR+3, BLVAR+5, EXIT!
, B1+3, B1+4

Label References

Name Line Occurrences
ATT VAR+5, REP+8
B1 BLVAR+3
EXIT BLVAR+8
FAIL VAR, VAR+2
HEADER BLIST+2, PAUSE+3
PAUSE BLVAR+3
SETA REP+5
SETBIN REP, BLIST+1
SETV ATT+1

Naked Globals

Name Field # of Occurrence
^( SETV+1*, SETV+4*, BLVAR+5, B1+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT AMERBIN+3~
A EXIT!
AMERA AMERBIN+3~, REP+1*, REP+6, REP+7, SETA+1*, SETA+2*, ATT*, ATT+1
AMERAV EXIT!
AMERBIN VAR+5, REP+6*, ATT, EXIT!
AMERDEEP VAR, EXIT!
AMERDFN VAR*, VAR+1, EXIT!
AMERDOB VAR+1*, VAR+2, ATT+1, EXIT!
AMERI HEADER+5*, HEADER+7*, HEADER+10!
AMERJ HEADER+6*, HEADER+7*, HEADER+8, HEADER+10!
AMERLINE AMERBIN+3~, BLVAR+2*, BLVAR+3*, EXIT!, PAUSE+2*
AMERNN REP+1*, REP+5, ATT+1*, EXIT!, HEADER+3*, HEADER+4, HEADER+5*, HEADER+7
AMERQ PAUSE+1*, PAUSE+2!
AMERSNA EXIT!, HEADER+2*, HEADER+3
AMERSNO EXIT!
AMERVAL VAR*, VAR+4*, SETV+1, SETV+2, SETV+4, SETV+5, EXIT!
AMERX AMERBIN+3~, REP+5*, SETA, ATT+1*, BLVAR+9*, HEADER+7*, HEADER+9*, HEADER+10!
AMERXXX AMERBIN+4*, VAR+3, FAIL*, FAIL+1, BLVAR+7, EXIT!
AMERY AMERBIN+3~, SETA*, SETA+2, ATT+1*
AMERZ AMERBIN+3~, SETA*, SETA+2, BLVAR+5*, BLVAR+6
AMERZZZ AMERBIN+4*, AMERBIN+5*, VAR+3, FAIL+1, EXIT!
>> DD0 VAR
>> DIOEND REP+2*
DIR BLVAR+9!, PAUSE+1!
DIR("A" BLVAR+9*, PAUSE+1*
DIR(0 BLVAR+9*, PAUSE+1*
DT SETA+2
G EXIT!
>> I REP+5*, REP+7*, ATT+1*, SETV+3, SETV+4, SETV+5, BLVAR+3*, BLVAR+5*, B1+2*, B1+3
, B1+4
IOF BLVAR+8, HEADER
IOSL BLVAR+3
IOST VAR+3, REP+3, BLVAR+8, PAUSE+1
>> J BLVAR+5*, BLVAR+6, B1+1*, B1+3, B1+4
N BLVAR+1*, BLVAR+3*, EXIT!, B1+3, B1+4
U VAR+1, PAUSE+2
X EXIT!
Y VAR, BLVAR+9!, EXIT!, PAUSE+1!
Z EXIT!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All