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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BDMD71

Package: Diabetes Registry

Routine: BDMD71


Information

BDMD71 ; IHS/CMI/LAB - IHS Diabetes Audit 2007 ;

Source Information

Source file <BDMD71.m>

Call Graph

Call Graph Total: 19

Package Total Call Graph
VA Fileman 6 NOW^%DTC  ^DIC  FILE^DICN  ^DIE  IX1^DIK  ^DIR  
IHS VA Utilities 5 ^XBDBQUE  ^XBFMK  ^XBGSAVE  GUIR^XBLM  EN^XBVK  
Diabetes Registry 4 BDMG^BDMD71  ^BDMD710  TAXCHK^BDMD719  DEMOCHK^BDMUTL  
Kernel 3 ^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  $$LOW^XLFSTR  
IHS Patient 1 KILL^AUPNPAT  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Diabetes Registry 4 BDMD71  BDMD710  BDMD71E  BDMGRC  

Entry Points

Name Comments DBIA/ICR reference
RAND ;random sample or not
DEMO ;
PCP ;
REGASK ;
GUIEP ;EP - called from taskman
BDMG(BDMJOB,BDMBTH,BDMDMRG,BDMADAT,BDMTYPE,BDMSTMP,BDMPCP,BDMCOM,BDMRAND,BDMRCNT,BDMCMS,BDMSTAT,BDMPREP,BDMFILE,BDMDSP,BDMGIEN,BDMSDPI,BDMSDPG,BDMPPN) ;PEP - gui call
BEGIN ;EP - called from option
CTR(X,Y) ;EP - Center X in a field Y wide.
SDPI ;
C1 ;
FLAT ;
C ;get register, status, random or not
P1 ;
ZIS ;
CC ;current community
ENDLOG ;-- write the end of the log
P ;
S ; Get patient name or cohort
XIT ;
IF ;PEP - called from BDM indivdual or epi
XIT1 ;
GETDATES ;
TIME ;PEP - called from BDM Get fiscal year or time frame
TEST ;
TYPE ;
WRITEF ;EP write flat file

External References

Name Field # of Occurrence
NOW^%DTC BDMG+16, ENDLOG+1
^%ZTLOAD BDMG+30
KILL^AUPNPAT XIT+2
BDMG^BDMD71 TEST+3
^BDMD710 GUIEP+1
TAXCHK^BDMD719 BEGIN+1
DEMOCHK^BDMUTL DEMO+1
^DIC REGASK+4, P1+1, S+3, PCP+6, CC+5, C+3
FILE^DICN BDMG+22
^DIE ENDLOG+4
IX1^DIK GUIEP+12
^DIR SDPI+2, SDPI+6, TYPE+4, IF+2, IF+7, PCP+3, CC+2, C+8, C+12, RAND+3
, RAND+7, TIME+4, FLAT+2, FLAT+14
^XBDBQUE DEMO+5
^XBFMK XIT+2, BDMG+27
^XBGSAVE WRITEF+13
GUIR^XBLM GUIEP+5
EN^XBVK XIT+1
$$FMADD^XLFDT TIME+8, BDMG+9
$$FMTE^XLFDT TIME+7, TIME+9, BDMG+8, BDMG+10
$$NOW^XLFDT BDMG+30
$$LOW^XLFSTR FLAT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,$$CTR("ASSESSMENT OF DIABETES CARE, 2007")
  • Line Location: REGASK+1
Function Call: WRITE
  • Prompt: !!,$$CTR("PCC DIABETES AUDIT")
  • Line Location: REGASK+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: REGASK+3
Function Call: WRITE
  • Prompt: !,"NO Register Selected!!! The CMS register will not be used in retrieving",!,"any data."
  • Line Location: REGASK+6
Function Call: WRITE
  • Prompt: !,"No patients selected"
  • Line Location: P1+2
Function Call: WRITE
  • Prompt: !,"No template selected."
  • Line Location: S+4
Function Call: WRITE
  • Prompt: !!,"There are ",BDMCNT," patients in the ",$P(^DIBT(+Y,0),U)," template/cohort.",!
  • Line Location: S+6
Function Call: WRITE
  • Prompt: !,"You have selected a register or template/cohort of patients. ",!,"You can run the audit just for the subset of patients in the cohort or register",!,"who live in a particular community or have a particular primary care provider.",!
  • Line Location: PCP+2
Function Call: WRITE
  • Prompt: !!,C," patients will be used in the audit.",!
  • Line Location: PCP+11
Function Call: WRITE
  • Prompt: !
  • Line Location: CC+2
Function Call: WRITE
  • Prompt: !!,C," patients will be used in the audit.",!
  • Line Location: CC+10
Function Call: WRITE
  • Prompt: !,"No register selected."
  • Line Location: C+4
Function Call: WRITE
  • Prompt: !,"No patients with that status in that register!"
  • Line Location: C1+5
Function Call: WRITE
  • Prompt: !!,"There are ",BDMCNT," patients in the ",$P(^ACM(41.1,BDMCMS,0),U)," register with a status of ",BDMSTAT,".",!!
  • Line Location: C1+6
Function Call: WRITE
  • Prompt: !!,"There are ",BDMCNT," patients selected so far to be used in the audit.",!
  • Line Location: RAND+2
Function Call: WRITE
  • Prompt: !!,"Enter the date of the audit. This date will be considered the ending",!,"date of the audit period. For most data items all data for the period one",!,"year prior to this date will be reviewed.",!
  • Line Location: TIME+3
Function Call: WRITE
  • Prompt: !!,"Invalid format, must be letters and numbers",!
  • Line Location: FLAT+4
Function Call: WRITE
  • Prompt: !!,"I am going to create a file called ",BDMFILE," which will reside in ",!,"the "
  • Line Location: FLAT+6
Function Call: WRITE
  • Prompt: $S($P($G(^APCCCTRL(DUZ(2),0)),U,11)]"":$P(^APCCCTRL(DUZ(2),0),U,11),$P(^AUTTSITE(1,0),U,21)=1:"/usr/spool/uucppublic",$P($G(^AUTTSITE(1,1)),U,2)]"":$P(^AUTTSITE(1,1),U,2),1:"C:\EXPORT")
  • Line Location: FLAT+7
Function Call: WRITE
  • Prompt: " directory on your RPMS server. ",!
  • Line Location: FLAT+8
Function Call: WRITE
  • Prompt: "It is the same directory that the data export globals are placed."
  • Line Location: FLAT+9
Function Call: WRITE
  • Prompt: !,"See your site manager for assistance in finding the file",!,"after it is created. PLEASE jot down and remember the following file name:",!?15,"********** ",BDMFILE," **********",!
  • Line Location: FLAT+10
Function Call: WRITE
  • Prompt: "It may be several hours (or overnight) before your report and flat file are ",!,"finished.",!
  • Line Location: FLAT+11
Function Call: WRITE
  • Prompt: !,"The records that are generated and placed in file ",BDMFILE
  • Line Location: FLAT+12
Function Call: WRITE
  • Prompt: !,"are in a format readable by EPI INFO. For a definition of the format",!,"please see your user manual.",!
  • Line Location: FLAT+13
Routine Call
  • DIE
  • Line Location:
    • ENDLOG+4
Routine Call
  • DIC
  • Line Location:
    • REGASK+4
    • P1+1
    • S+3
    • PCP+6
    • CC+5
    • C+3
Routine Call
  • DIR
  • Line Location:
    • SDPI+2
    • SDPI+6
    • TYPE+4
    • IF+2
    • IF+7
    • PCP+3
    • CC+2
    • C+8
    • C+12
    • RAND+3
    • RAND+7
    • TIME+4
    • FLAT+2
    • FLAT+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls
^ACM(41.1 - [#9002241.1] Classic Fileman Calls
^BDMGUI - [#9003201.4] Classic Fileman Calls
^AUTTCOM - [#9999999.05] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACM(41 - [#9002241] C1+2, C1+3, C1+4
^ACM(41.1 - [#9002241.1] C1+6
^APCCCTRL - [#9001000] FLAT+7, WRITEF+10
^AUPNPAT - [#9000001] PCP+9, CC+8
^AUTTCOM - [#9999999.05] CC+7
^AUTTSITE(1 FLAT+7
^BDMDATA("BDMEPI" XIT1+1!, WRITEF+2, WRITEF+7, WRITEF+8!, WRITEF+15!
^BDMDATA($J XIT1+1!, WRITEF+1!, WRITEF+5*, WRITEF+7*, WRITEF+17!
^BDMGUI - [#9003201.4] GUIEP+10*, GUIEP+11*
^BDMRECD - [#9003202.1] WRITEF+5
^BDMRECD("B" WRITEF+4
^DD(9000001 PCP+6
^DIBT( S+5, S+6
^TMP($J TYPE+2!, P+1!, S+1!, S+5*, PCP+9!, PCP+10, CC+8!, CC+9, C+1!, C1+2!
, C1+3*, C1+4*, C1+5, RAND+1, RAND+5, RAND+6!, RAND+10!, RAND+11!, XIT+3!, GUIEP+3!
, GUIEP+7, GUIEP+8, GUIEP+14!
^VA(200 - [#200] WRITEF+11
^XTMP("BDMDM71" TYPE+2!, P+1!, P1+2, P1+4*, S+1!, C+1!, RAND+5*, RAND+10*, XIT1+2!, WRITEF+18!
, TEST+2*

Label References

Name Line Occurrences
$$CTR REGASK+1, REGASK+2
@( TYPE+7
C C+9, C+13, C1+5, RAND+4
C1 C+10
CC S+9, CC+6, C1+9
ENDLOG GUIEP+2, GUIEP+13
FLAT IF+5, FLAT+4
GETDATES TYPE+5
GUIEP BDMG+12
IF IF+6, DEMO+2
P1 P1+5
PCP S+7, PCP+7, C1+7
RAND S+11, C1+11
REGASK SDPI+3
TIME GETDATES+1
TYPE TYPE+8, IF+3
XIT REGASK+5, GETDATES+1, DEMO+6, BDMG+31
XIT1 GETDATES+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % BDMG+17, ENDLOG+2
BDMADAT TIME+2*, TIME+6*, TIME+7, TIME+8, BDMG~, BDMG+3, BDMG+8, BDMG+9
>> BDMBDAT TIME+8*, TIME+9, BDMG+9*, BDMG+10
BDMBTH REGASK+8*, TYPE+2, P+1, P1+2, P1+4, S+1, C+1, RAND+5, RAND+10, XIT1+2!
, WRITEF+18!, BDMG~, BDMG+2, BDMG+19, TEST+1*, TEST+2, TEST+3
BDMCMS C+2*, C+5*, C1+2, C1+6, BDMG~
>> BDMCNT S+5*, S+6, C1+2*, C1+3*, C1+4*, C1+6, RAND+1*, RAND+2, RAND+7, RAND+10
BDMCOM CC+7*, CC+8, BDMG~
>> BDMDATA GUIEP+8*, GUIEP+10
>> BDMDEMO DEMO+1, DEMO+2
BDMDMRG REGASK+6*, REGASK+7*, BDMG~
BDMDSP BDMG~, BDMG+12, GUIEP+2, GUIEP+6
BDMFILE FLAT+1*, FLAT+5*, FLAT+6, FLAT+10, FLAT+12, WRITEF+11, BDMG~, BDMG+6
BDMGIEN BDMG~, BDMG+26*
>> BDMGUI XIT+1, BDMG+11*
>> BDMIEN BDMG+1*, BDMG+2*, BDMG+3*, BDMG+4*, BDMG+5*, BDMG+6*, BDMG+24*, BDMG+25*, BDMG+26, GUIEP+10
, GUIEP+11, GUIEP+12, ENDLOG+3, TEST+3
BDMJOB REGASK+8*, TYPE+2, P+1, P1+2, P1+4, S+1, C+1, RAND+5, RAND+10, XIT1+2!
, WRITEF+18!, BDMG~, BDMG+1, BDMG+19, TEST+1*, TEST+2, TEST+3
>> BDMNOW BDMG+17*, BDMG+20, ENDLOG+2*, ENDLOG+3
BDMOPT BDMG+14~, BDMG+15*, BDMG+20
BDMPCP PCP+8*, PCP+9, BDMG~
>> BDMPD S+5*
BDMPPN IF+6*, IF+9*, BDMG~, BDMG+7*
BDMPREP IF+4*, IF+5, IF+6, DEMO+3, DEMO+4, BDMG~, BDMG+5, BDMG+6, BDMG+20, GUIEP+2
BDMRAND BDMG~
>> BDMRBD TIME+2*, TIME+9*, BDMG+10*
BDMRCNT BDMG~
>> BDMRED TIME+2*, TIME+7*, BDMG+8*
BDMSDPG SDPI+1*, SDPI+8*, BDMG~
BDMSDPI SDPI+1*, SDPI+4*, SDPI+5, BDMG~
BDMSTAT C+7*, C+14*, C1+3, C1+4, C1+6, BDMG~
BDMSTMP BDMG~
>> BDMSTP GETDATES+1*, TYPE+1*, TYPE+7*, TYPE+8, IF+1*, IF+5, IF+6, IF+8*, P+1*, P1+2*
, S+1*, S+4*, S+8, S+10, PCP+1*, PCP+4*, CC+1*, CC+3*, C+2*, C+4*
, C1+5*, C1+8, C1+10, RAND+9*, TIME+1*, TIME+5*, FLAT+3*, FLAT+15*, FLAT+16*
BDMTYPE TYPE+3*, TYPE+6*, TYPE+7, BDMG~, BDMG+4
>> C PCP+10*, PCP+11, CC+9*, CC+10, RAND+5*, RAND+10*, GUIEP+7*, GUIEP+10*, GUIEP+11
D0 BDMG+18!
DA SDPI+2!, SDPI+6!, TYPE+4!, IF+7!, PCP+3!, CC+2!, C+8!, C+12!, RAND+3!, RAND+7!
, TIME+4!, FLAT+2!, FLAT+14!, BDMG+23!, GUIEP+12*, ENDLOG+3*, ENDLOG+5!
DD BDMG+18!
DIADD BDMG+21*, BDMG+23!
DIC REGASK+4*!, P1+1!*, S+2!, S+3*!, PCP+6!*, CC+5!*, C+3*!, BDMG+18!, BDMG+21*, BDMG+23!
DIC("A" REGASK+4*, S+2*, C+3*
DIC("DR" BDMG+20*
DIC("S" S+2*
DIC(0 REGASK+4*, P1+1*, S+3*, PCP+6*, CC+5*, C+3*, BDMG+21*
DIE ENDLOG+3*, ENDLOG+5!
>> DIK GUIEP+12*
DIR SDPI+2!, SDPI+6!, TYPE+4!, IF+2!, IF+7!, PCP+3!, CC+2!, C+8!, C+12!, RAND+3!
, RAND+7!, TIME+4!, FLAT+2!, FLAT+14!
DIR("A" SDPI+2*, SDPI+6*, TYPE+4*, IF+2*, IF+7*, PCP+3*, CC+2*, C+8*, C+12*, RAND+3*
, RAND+7*, TIME+4*, FLAT+2*, FLAT+14*
DIR("B" TYPE+4*, IF+2*, IF+7*, PCP+3*, CC+2*, C+8*, C+12*, RAND+3*, FLAT+14*
DIR(0 SDPI+2*, SDPI+6*, TYPE+4*, IF+2*, IF+7*, PCP+3*, CC+2*, C+8*, C+12*, RAND+3*
, RAND+7*, TIME+4*, FLAT+2*, FLAT+14*
>> DIRUT SDPI+3, SDPI+7, TYPE+5, IF+2*, IF+3, IF+8, PCP+4, CC+3, C+9, C+13
, RAND+4, RAND+9, TIME+5, FLAT+3, FLAT+15
DLAYGO BDMG+21*, BDMG+23!
DR ENDLOG+3*, ENDLOG+5!
DT GUIEP+11, TEST+3
>> DUOUT IF+2
DUZ WRITEF+11, BDMG+20
DUZ(2 FLAT+7, WRITEF+10
>> I RAND+10*, WRITEF+4*, WRITEF+5
IOF BEGIN+2
IOM CTR+1, GUIEP+4*
>> N RAND+10*, WRITEF+5*, WRITEF+7*
>> P PCP+9*, CC+8*
U S+6, PCP+6, PCP+9, CC+7, CC+8, C1+3, C1+4, C1+6, FLAT+7, WRITEF+10
, WRITEF+11
X REGASK+5, PCP+9*, PCP+10*, CC+8*, CC+9*, C1+2*, C1+3, C1+4, RAND+1*, RAND+5*
, RAND+10*, CTR~, CTR+1, FLAT+4, WRITEF+5*, WRITEF+7*, BDMG+19*, GUIEP+7*, GUIEP+8, GUIEP+10
, TEST+2*
XBE WRITEF+12*, WRITEF+16!
XBF WRITEF+12*, WRITEF+16!
XBFLT WRITEF+12*, WRITEF+16!
XBFN WRITEF+11*, WRITEF+16!
XBGL WRITEF+9*, WRITEF+16!
XBMED WRITEF+11*, WRITEF+16!
>> XBNS DEMO+3*, DEMO+4*
XBQ WRITEF+12*, WRITEF+16!
>> XBRC DEMO+3*, DEMO+4*
>> XBRP DEMO+3*, DEMO+4*
>> XBRX DEMO+3*, DEMO+4*
XBTLE WRITEF+11*, WRITEF+16!
XBUF WRITEF+10!*
Y REGASK+6, REGASK+7, SDPI+4, SDPI+8, TYPE+6, IF+4, IF+9, P1+2, P1+3, P1+4
, S+4, S+5, S+6, PCP+5, PCP+7, PCP+8, CC+4, CC+6, CC+7, C+4
, C+5, C+10, C+14, RAND+5, RAND+6, RAND+10, TIME+6, CTR~, CTR+1, FLAT+5
, FLAT+16, BDMG+24, BDMG+25
>> ZTDESC BDMG+30*
>> ZTDTH BDMG+30*
>> ZTIO BDMG+30*
>> ZTREQ GUIEP+15*
>> ZTRTN BDMG+30*
ZTSAVE BDMG+28!
ZTSAVE("*" BDMG+28*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All