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 |  Local Variables |  All
Print Page as PDF
Routine: BATRPT0

Package: Asthma Tracking System

Routine: BATRPT0


Information

BATRPT0 ; IHS/CMI/LAB - master list of all active patients ;

Source Information

Source file <BATRPT0.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
IHS VA Utilities 2 ^XBDBQUE  EN^XBVK  
Asthma Tracking System 1 ($$CTR,$$LASTSEV,$$LOC,XTMP)^BATU  
IHS Patient 1 ($$AGE,$$HRN)^AUPNPAT  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
SORT ;
ZIS ;
HEADER ;EP
BROWSE ;
EOJ ;
AGE ;Age Screening
AGER ;Age Screening
START ;
HEADER1 ;
EXIT ;
PRINT ;EP
PROC ;
GETSORT ;

External References

Name Field # of Occurrence
$$AGE^AUPNPAT PROC+5, GETSORT+3, PRINT+7
$$HRN^AUPNPAT PRINT+7
$$CTR^BATU HEADER1+3, HEADER1+4, HEADER1+5, HEADER1+6
$$LASTSEV^BATU PROC+8, GETSORT+4, PRINT+8
$$LOC^BATU HEADER1+3
XTMP^BATU PROC+2
^DIR START+5, AGE+4, AGER+2, SORT+2, ZIS+1, EOJ+1, HEADER+2
^XBDBQUE ZIS+6, BROWSE+2
EN^XBVK EXIT+1
$$FMTE^XLFDT PRINT+8, HEADER1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report will produce a list of all patients on the register who do not",!,"have severity documented.",!,"You will select which patients (based on status) to display.",!!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !
  • Line Location: AGE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: AGER+1
Function Call: WRITE
  • Prompt: !!,"No age range entered."
  • Line Location: AGER+3
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"Enter a numeric range in the format nnn-nnn. e.g. 0-5, 0-99, 5-20."
  • Line Location: AGER+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ZIS+1
Function Call: WRITE
  • Prompt: !!,"No patients to list"
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BATPG,!
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: $$CTR^BATU($$LOC^BATU),!
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: !,$$CTR^BATU("*** ASTHMA REGISTER PATIENTS WITHOUT SEVERITY DOCUMENTED ***",80),!
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: $$CTR^BATU(X,80),!
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: $$CTR^BATU(X,80),!
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?24,"HRN",?31,"AGE",?37,"LAST SEVERITY",?55,"LAST VISIT",?68,"NEXT DUE"
  • Line Location: HEADER1+7
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HEADER1+8
Routine Call
  • DIR
  • Line Location:
    • START+5
    • AGE+4
    • AGER+2
    • SORT+2
    • ZIS+1
    • EOJ+1
    • HEADER+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BATREG - [#90181.01] PROC+3, PROC+4, GETSORT+5, GETSORT+6, PRINT+8
^DPT - [#2] GETSORT+2, PRINT+7
^VA(200 - [#200] HEADER1+2
^XTMP("BATRPT0" PROC+10*, PRINT+3, PRINT+4, PRINT+5, EOJ+2!

Label References

Name Line Occurrences
AGE AGER+3
AGER AGER+4
BROWSE ZIS+4
EOJ PRINT+3
EXIT START+1, START+6, START+7, SORT+3, ZIS+2, ZIS+4, ZIS+7
GETSORT PROC+9
HEADER PRINT+2, PRINT+6
HEADER1 HEADER+1
SORT AGE+6
START AGE+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BATAGE AGE+1!, PROC+5*, PROC+6, PROC+7
BATAGET AGE+1!, AGER+5*, PROC+6, PROC+7, HEADER1+6
>> BATH PROC+1*, PROC+10, PRINT+3, PRINT+4, PRINT+5, EOJ+2
>> BATJ PROC+1*, PROC+10, PRINT+3, PRINT+4, PRINT+5, EOJ+2
>> BATOPT ZIS+3*, EOJ+1
>> BATPG PRINT+1*, HEADER+1, HEADER1+1*, HEADER1+2
>> BATQUIT PRINT+1*, PRINT+4, PRINT+5, PRINT+6, HEADER+2*
>> BATS START+4*, START+8*, PROC+4
>> BATSF START+8*, HEADER1+5
>> BATSORT SORT+1*, SORT+4*, GETSORT+2, GETSORT+3, GETSORT+4, GETSORT+5, GETSORT+6
>> BATSRTV PROC+10, GETSORT+1*, GETSORT+2*, GETSORT+3*, GETSORT+4*, GETSORT+5*, GETSORT+6*
>> BATST PRINT+4*, PRINT+5
>> BATX PROC+3*, PROC+4, PROC+5, PROC+8, PROC+10, GETSORT+2, GETSORT+4, GETSORT+5, GETSORT+6
DA START+5!, SORT+2!, ZIS+1!
DFN GETSORT+3, PRINT+5*, PRINT+7, PRINT+8, EOJ+2!
DIR START+5!, AGE+4!, SORT+2!, ZIS+1!, EOJ+1!, HEADER+2!
DIR("?" AGE+3*
DIR("A" START+5*, AGE+2*, AGER+2*, SORT+2*, ZIS+1*, EOJ+1*
DIR("B" START+5*, AGE+2*, SORT+2*, ZIS+1*
DIR(0 START+5*, AGE+2*, AGER+2*, SORT+2*, ZIS+1*, EOJ+1*, HEADER+2*
>> DIRUT START+6, AGE+5, SORT+3, ZIS+2, EOJ+1*
DT PROC+5, PRINT+7, HEADER1+2
>> DTOUT HEADER+2
>> DUOUT EOJ+1
DUZ HEADER1+2
DUZ(2 PRINT+7
IO EOJ+1, HEADER+2
IO(0 EOJ+1, HEADER+2
IOF START+2, EOJ+3, HEADER1+1
IOSL PRINT+6
IOST EOJ+1, HEADER+2
U PROC+4, GETSORT+2, GETSORT+5, GETSORT+6, PRINT+7, PRINT+8, HEADER1+2
>> X HEADER1+5*, HEADER1+6*
>> XBIOP BROWSE+2*
>> XBNS ZIS+5*
>> XBRC ZIS+5*, BROWSE+2*
>> XBRP ZIS+5*, BROWSE+1*
>> XBRX ZIS+5*, BROWSE+2*
>> Y START+7, START+8, AGE+6, AGER+3, AGER+4, AGER+5, SORT+4, ZIS+3, ZIS+4, HEADER+2
>> Y(0 START+8
>> ZTQUEUED HEADER+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All