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 |  Marked Items |  All
Print Page as PDF
Routine: BDMD999

Package: Diabetes Registry

Routine: BDMD999


Information

BDMD999 ; IHS/CMI/LAB - 1999 DIABETES AUDIT ; 21 Jan 2014 10:55 AM

Source Information

Source file <BDMD999.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
IHS VA Utilities 2 ^XBCLS  ^XBDBQUE  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Diabetes Registry 1 BDMD99  

Entry Points

Name Comments DBIA/ICR reference
ZIS ;
TEXTD ;EP
TAXCHK ;EP
LAB ;
XIT ;EP
PRINT
DONE ;
TAXS ;
BANNER ;EP - banner for 1999 audit menu
PAGE ;

External References

Name Field # of Occurrence
^DIR DONE+1, PAGE+1
^XBCLS PRINT
^XBDBQUE ZIS+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Checking for Taxonomies to support the 1999 Audit. ",!,"Please enter the device for printing.",!
  • Line Location: BDMD999+5
Function Call: WRITE
  • Prompt: !,"Checking for Taxonomies to support the 1999 Audit...",!
  • Line Location: TAXCHK+3
Function Call: WRITE
  • Prompt: !,"All taxonomies are present.",!
  • Line Location: TAXCHK+15
Function Call: WRITE
  • Prompt: !!,"In order for the 1999 Diabetes Audit to find all necessary data, several",!,"taxonomies must be established. The following taxonomies are missing or have",!,"no entries:"
  • Line Location: TAXCHK+16
Function Call: WRITE
  • Prompt: !?80-$L(BDMX)\2,BDMX
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !?80-(8+$L(BDM("VERSION")))/2,"Version ",BDM("VERSION")
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!?80-$L(BDM("SITE"))\2,BDM("SITE")
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+1
Routine Call
  • DIR
  • Line Location:
    • DONE+1
    • PAGE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ATXAX - [#9002226] TAXCHK+9
^ATXAX("B" TAXCHK+7, TAXCHK+8
^ATXLAB - [#9002228] TAXCHK+13
^ATXLAB("B" TAXCHK+11, TAXCHK+12
^DIC(4 - [#4] PRINT+3

Label References

Name Line Occurrences
PAGE TAXCHK+14, TAXCHK+18
XIT ZIS+3, PRINT+3, PRINT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A TAXCHK+4~, TAXCHK+5!, TAXCHK+15!
A( TAXCHK+7*, TAXCHK+9*, TAXCHK+11*, TAXCHK+13*, TAXCHK+17, TAXCHK+19
BDM XIT+1!
BDM("SITE" PRINT+3*
BDM("VERSION" BANNER+1*, PRINT+2
BDMJ XIT+1!, BANNER+2*, PRINT+1*
BDMLINE XIT+1!, BANNER+2*, PRINT+1
BDMQUIT TAXCHK+2!, TAXCHK+17, TAXCHK+18, XIT+1!, PAGE+1*
BDMTEXT XIT+1!, BANNER+1*
BDMX TAXCHK+4~, TAXCHK+6*, TAXCHK+7, TAXCHK+8, TAXCHK+9, TAXCHK+10*, TAXCHK+11, TAXCHK+12, TAXCHK+13, TAXCHK+15!
, TAXCHK+17*, TAXCHK+19, XIT+1!, BANNER+2*, PRINT+1*!
DIR DONE+1!, PAGE+1!
DIR("A" DONE+1*
DIR(0 DONE+1*, PAGE+1*
>> DIRUT DONE+1*
>> DTOUT PAGE+1
>> DUOUT DONE+1
DUZ(2 PRINT+3
I TAXCHK+4~, TAXCHK+8*, TAXCHK+9, TAXCHK+12*, TAXCHK+13, TAXCHK+15!
IO DONE+1, PAGE+1
IO(0 DONE+1, PAGE+1
IOF BDMD999+4, TAXCHK+1, PRINT
IOSL TAXCHK+14, TAXCHK+18
IOST DONE+1, PAGE+1
J TAXCHK+4~, TAXCHK+6*, TAXCHK+10*, XIT+2!
>> T TAXCHK+6*, TAXCHK+10*
U TAXCHK+19
X XIT+2!
>> XBNS ZIS+1*
>> XBRC ZIS+1*
>> XBRP ZIS+1*
>> XBRX ZIS+1*
Y TAXCHK+4~, TAXCHK+6*, TAXCHK+7, TAXCHK+9, TAXCHK+10*, TAXCHK+11, TAXCHK+13, TAXCHK+15!, XIT+2!, PAGE+1
Z TAXCHK+4~, TAXCHK+6*, TAXCHK+10*, TAXCHK+15!

Marked Items

Name Field # of Occurrence
$T(@BDMTEXT+BDMJ BANNER+2, PRINT+1
$T(@T+J TAXCHK+6, TAXCHK+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All