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: BDMD71E

Package: Diabetes Registry

Routine: BDMD71E


Information

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

Source Information

Source file <BDMD71E.m>

Call Graph

Call Graph Total: 18

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 3 BDMG^BDMD71  EAUDIT^BDMD710  TAXCHK^BDMD719  
Kernel 3 ^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  $$LOW^XLFSTR  
IHS Patient 1 KILL^AUPNPAT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Diabetes Registry 1 BDMGRC  

Entry Points

Name Comments DBIA/ICR reference
RAND ;random sample or not
BEN ;
PCP ;
REGASK ;
GUIEP ;EP - called from taskman
ACT ;
BEGIN ;EP - called from option
COM1
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
BDMG(BDMJOB,BDMBTH,BDMDMRG,BDMADAT,BDMTYPE,BDMSTMP,BDMPCP,BDMCOM,BDMRAND,BDMRCNT,BDMCMS,BDMSTAT,BDMPREP,BDMFILE,BDMDSP,BDMGIEN,BDMSDPI,BDMSDPG) ;PEP - gui call
P ;
S ; Get patient name or cohort
COMM ;get gpra community taxonomy
IF ;PEP - called from BDM indivdual or epi
XIT1 ;
GETDATES ;
TIME ;PEP - called from BDM Get fiscal year or time frame
TEST ;
XIT ;
WRITEF ;EP write flat file

External References

Name Field # of Occurrence
NOW^%DTC BDMG+26, ENDLOG+1
^%ZTLOAD BDMG+40
KILL^AUPNPAT XIT+2
BDMG^BDMD71 TEST+3
EAUDIT^BDMD710 GUIEP+1
TAXCHK^BDMD719 BEGIN+1
^DIC REGASK+26, COMM+7, P1+1, S+3, PCP+6, CC+5, C+3
FILE^DICN BDMG+32
^DIE ENDLOG+4
IX1^DIK GUIEP+12
^DIR REGASK+23, SDPI+2, SDPI+6, ACT+3, IF+2, PCP+3, CC+2, C+8, C+12, RAND+3
, RAND+7, TIME+4, FLAT+2, FLAT+12
^XBDBQUE ZIS+3
^XBFMK COMM+4, XIT+2, BDMG+37
^XBGSAVE WRITEF+13
GUIR^XBLM GUIEP+5
EN^XBVK XIT+1
$$FMADD^XLFDT TIME+8, BDMG+20
$$FMTE^XLFDT TIME+7, TIME+9, BDMG+19, BDMG+21
$$NOW^XLFDT BDMG+40
$$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 E-AUDIT")
  • Line Location: REGASK+2
Function Call: WRITE
  • Prompt: !!,"This option is used to run the 2007 Electronic Diabetes Audit for a"
  • Line Location: REGASK+3
Function Call: WRITE
  • Prompt: !,"predefined set of patients. The patients selected are 'Active Diabetic"
  • Line Location: REGASK+4
Function Call: WRITE
  • Prompt: !,"Patients' as defined by the Clinical Reporting system (GPRA). In "
  • Line Location: REGASK+5
Function Call: WRITE
  • Prompt: !,"addition you can optionally only include the patient if they are an"
  • Line Location: REGASK+6
Function Call: WRITE
  • Prompt: !,"active member of the Diabetes register."
  • Line Location: REGASK+7
Function Call: WRITE
  • Prompt: !,"The definition used to select patients is the following:"
  • Line Location: REGASK+8
Function Call: WRITE
  • Prompt: !?3,"1. Must reside in a community specified in the official GPRA "
  • Line Location: REGASK+9
Function Call: WRITE
  • Prompt: !?6,"community taxonomy."
  • Line Location: REGASK+10
Function Call: WRITE
  • Prompt: !?3,"2. Must be alive on the audit date."
  • Line Location: REGASK+11
Function Call: WRITE
  • Prompt: !?3,"3. Indian/Alaska Natives Only - based on Classification of 01."
  • Line Location: REGASK+12
Function Call: WRITE
  • Prompt: !?3,"4. Must have 2 visits to medical clinics in the 3 years prior to the"
  • Line Location: REGASK+13
Function Call: WRITE
  • Prompt: !?6,"audit date. At least one visit must include: 01 General,"
  • Line Location: REGASK+14
Function Call: WRITE
  • Prompt: !?6,"06 Diabetic, 10 GYN, 12 Immunization, 13 Internal Med,"
  • Line Location: REGASK+15
Function Call: WRITE
  • Prompt: !?6,"20 Pediatrics, 24 Well Child, 28 Family Practice, 57 EPSDT,"
  • Line Location: REGASK+16
Function Call: WRITE
  • Prompt: !?6,"70 Women's Health, 80 Urgent, 89 Evening."
  • Line Location: REGASK+17
Function Call: WRITE
  • Prompt: !?3,"5. The patient must have been diagnosed with diabetes at"
  • Line Location: REGASK+18
Function Call: WRITE
  • Prompt: !?6,"least 1 year prior to the audit date."
  • Line Location: REGASK+19
Function Call: WRITE
  • Prompt: !?3,"6. The patient must have had at least 2 visits during the"
  • Line Location: REGASK+20
Function Call: WRITE
  • Prompt: !?6,"year prior to the Audit date, AND 2 DM-related visits ever."
  • Line Location: REGASK+21
Function Call: WRITE
  • Prompt: !
  • Line Location: REGASK+22
Function Call: WRITE
  • Prompt: !!
  • Line Location: REGASK+24
Function Call: WRITE
  • Prompt: !,"NO Register Selected!!! The CMS register will not be used in retrieving",!,"any data."
  • Line Location: REGASK+27
Function Call: WRITE
  • Prompt: !!,"Specify the community taxonomy to determine which patients will be",!,"included in the report. You should have created this taxonomy using QMAN.",!
  • Line Location: COMM+1
Function Call: WRITE
  • Prompt: !!,"There are no communities in that taxonomy."
  • Line Location: COM1+4
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 ",$S($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")," directory on your RPMS server. ",!
  • Line Location: FLAT+6
Function Call: WRITE
  • Prompt: "It is the same directory that the data export globals are placed."
  • Line Location: FLAT+7
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+8
Function Call: WRITE
  • Prompt: "It may be several hours (or overnight) before your report and flat file are ",!,"finished.",!
  • Line Location: FLAT+9
Function Call: WRITE
  • Prompt: !,"The records that are generated and placed in file ",BDMFILE
  • Line Location: FLAT+10
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+11
Routine Call
  • DIE
  • Line Location:
    • ENDLOG+4
Routine Call
  • DIC
  • Line Location:
    • REGASK+26
    • COMM+7
    • P1+1
    • S+3
    • PCP+6
    • CC+5
    • C+3
Routine Call
  • DIR
  • Line Location:
    • REGASK+23
    • SDPI+2
    • SDPI+6
    • ACT+3
    • IF+2
    • PCP+3
    • CC+2
    • C+8
    • C+12
    • RAND+3
    • RAND+7
    • TIME+4
    • FLAT+2
    • FLAT+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls
^ATXAX - [#9002226] 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] ACT+2, C1+6
^APCCCTRL - [#9001000] WRITEF+10
^ATXAX - [#9002226] COMM+6, COM1+1, COM1+2, BDMG+15, BDMG+16
^AUPNPAT - [#9000001] PCP+9, CC+8
^AUTTCOM - [#9999999.05] CC+7
^AUTTSITE(1 FLAT+6
^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
^BGPSITE - [#90241.02] COMM+6
^DD(9000001 PCP+6
^DIBT( S+5, S+6
^TMP($J 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
^VA(200 - [#200] WRITEF+11
^XTMP("BDMDM71" 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
C C+9, C+13, C1+5, RAND+4
C1 C+10
CC S+9, CC+6, C1+9
COMM COM1+4, ACT+4
ENDLOG GUIEP+2, GUIEP+13
FLAT IF+5, FLAT+4
GETDATES IF+3
GUIEP BDMG+22
IF ACT+1
P1 P1+5
PCP S+7, PCP+7, C1+7
RAND S+11, C1+11
TIME GETDATES+1
XIT SDPI+3, GETDATES+1, ZIS+4, BDMG+41
XIT1 SDPI+3, GETDATES+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % BDMG+27, ENDLOG+2
>> B COMM+6*
>> BDMACTI ACT+1*, ACT+5*, BDMG+10*, BDMG+13*
BDMADAT TIME+2*, TIME+6*, TIME+7, TIME+8, BDMG~, BDMG+4, BDMG+19, BDMG+20
>> BDMBDAT TIME+8*, TIME+9, BDMG+20*, BDMG+21
>> BDMBEN BEN+1*, BDMG+11*
BDMBTH REGASK+29*, P+1, P1+2, P1+4, S+1, C+1, RAND+5, RAND+10, XIT1+2!, WRITEF+18!
, BDMG~, BDMG+3, BDMG+29, 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
BDMDMRG REGASK+25*, REGASK+27*, REGASK+28*, ACT+1, ACT+2, BDMG~
BDMDSP BDMG~, BDMG+22, GUIEP+2, GUIEP+6
BDMFILE FLAT+1*, FLAT+5*, FLAT+6, FLAT+8, FLAT+10, WRITEF+11, BDMG~, BDMG+18
BDMGIEN BDMG~, BDMG+36*
>> BDMGUI XIT+1, BDMG+8*
>> BDMIEN BDMG+2*, BDMG+3*, BDMG+4*, BDMG+6*, BDMG+18*, BDMG+34*, BDMG+35*, BDMG+36, GUIEP+10, GUIEP+11
, GUIEP+12, ENDLOG+3, TEST+3
BDMJOB REGASK+29*, P+1, P1+2, P1+4, S+1, C+1, RAND+5, RAND+10, XIT1+2!, WRITEF+18!
, BDMG~, BDMG+2, BDMG+29, TEST+1*, TEST+2, TEST+3
>> BDMNOW BDMG+27*, BDMG+30, ENDLOG+2*, ENDLOG+3
BDMOPT BDMG+24~, BDMG+25*, BDMG+30
BDMPCP PCP+8*, PCP+9, BDMG~
>> BDMPD S+5*
BDMPREP IF+4*, IF+5, ZIS+1, ZIS+2, BDMG~, BDMG+6, BDMG+18, BDMG+30, GUIEP+2
BDMRAND BDMG~, BDMG+9
>> BDMRBD TIME+2*, TIME+9*, BDMG+21*
BDMRCNT BDMG~
>> BDMRED TIME+2*, TIME+7*, BDMG+19*
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~, BDMG+12
BDMSTMP BDMG~
>> BDMSTP GETDATES+1*, IF+1*, IF+5, 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+13*, FLAT+14*
BDMTAX COMM+2!, COM1+4
BDMTAX( COM1+2*, BDMG+16*
>> BDMTAXI COMM+3*, COMM+9*, COM1+1, COM1+2, BDMG+9*, BDMG+15, BDMG+16
BDMTYPE BDMG~
>> C PCP+10*, PCP+11, CC+9*, CC+10, RAND+5*, RAND+10*, GUIEP+7*, GUIEP+10*, GUIEP+11
D0 BDMG+28!
DA SDPI+2!, SDPI+6!, ACT+2!, PCP+3!, CC+2!, C+8!, C+12!, RAND+3!, RAND+7!, TIME+4!
, FLAT+2!, FLAT+12!, BDMG+33!, GUIEP+12*, ENDLOG+3*, ENDLOG+5!
DD BDMG+28!
DIADD BDMG+31*, BDMG+33!
DIC REGASK+26*!, COMM+5*, COMM+7!, P1+1!*, S+2!, S+3*!, PCP+6!*, CC+5!*, C+3*, BDMG+28!
, BDMG+31*, BDMG+33!
DIC("A" REGASK+26*, COMM+5*, S+2*, C+3*
DIC("B" COMM+6*
DIC("DR" BDMG+30*
DIC("S" COMM+5*, S+2*
DIC(0 REGASK+26*, COMM+5*, P1+1*, S+3*, PCP+6*, CC+5*, C+3*, BDMG+31*
DIE ENDLOG+3*, ENDLOG+5!
>> DIK GUIEP+12*
DIR REGASK+23!, SDPI+2!, SDPI+6!, ACT+3!, IF+2!, PCP+3!, CC+2!, C+8!, C+12!, RAND+3!
, RAND+7!, TIME+4!, FLAT+2!, FLAT+12!
DIR("A" REGASK+23*, SDPI+2*, SDPI+6*, ACT+2*, IF+2*, PCP+3*, CC+2*, C+8*, C+12*, RAND+3*
, RAND+7*, TIME+4*, FLAT+2*, FLAT+12*
DIR("B" ACT+2*, IF+2*, PCP+3*, CC+2*, C+8*, C+12*, RAND+3*, FLAT+12*
DIR(0 REGASK+23*, SDPI+2*, SDPI+6*, ACT+2*, IF+2*, PCP+3*, CC+2*, C+8*, C+12*, RAND+3*
, RAND+7*, TIME+4*, FLAT+2*, FLAT+12*
>> DIRUT SDPI+3, SDPI+7, ACT+4, IF+2*, IF+3, PCP+4, CC+3, C+9, C+13, RAND+4
, RAND+9, TIME+5, FLAT+3, FLAT+13
DLAYGO BDMG+31*, BDMG+33!
DR ENDLOG+3*, ENDLOG+5!
DT GUIEP+11, TEST+3
>> DUOUT IF+2
DUZ WRITEF+11, BDMG+30
DUZ(2 COMM+6, 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 COMM+6, COM1+2, ACT+2, S+6, PCP+6, PCP+9, CC+7, CC+8, C1+3, C1+4
, C1+6, FLAT+6, WRITEF+10, WRITEF+11, BDMG+16
X COM1*, COM1+1*, COM1+2, 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+1*, BDMG+14*
, BDMG+15*, BDMG+16, BDMG+29*, 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 ZIS+1*, ZIS+2*
XBQ WRITEF+12*, WRITEF+16!
>> XBRC ZIS+1*, ZIS+2*
>> XBRP ZIS+1*, ZIS+2*
>> XBRX ZIS+1*, ZIS+2*
XBTLE WRITEF+11*, WRITEF+16!
XBUF WRITEF+10!*
Y REGASK+27, REGASK+28, SDPI+4, SDPI+8, COMM+8, COMM+9, ACT+5, IF+4, 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+14, BDMG+34, BDMG+35
>> ZTDESC BDMG+40*
>> ZTDTH BDMG+40*
>> ZTIO BDMG+40*
>> ZTREQ GUIEP+14*
>> ZTRTN BDMG+40*
ZTSAVE BDMG+38!
ZTSAVE("*" BDMG+38*
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