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

Package: Diabetes Registry

Routine: BDMDB1E


Information

BDMDB1E ; IHS/CMI/LAB - IHS Diabetes Audit 2014 ;

Source Information

Source file <BDMDB1E.m>

Call Graph

Call Graph Total: 17

Package Total Call Graph
VA Fileman 6 NOW^%DTC  ^DIC  FILE^DICN  ^DIE  IX1^DIK  ^DIR  
Diabetes Registry 4 (BDMG,FLAT,WRITEF)^BDMDB1  EAUDIT^BDMDB10  TAXCHK^BDMDB19  DEMOCHK^BDMUTL  
IHS VA Utilities 4 ^XBDBQUE  ^XBFMK  GUIR^XBLM  EN^XBVK  
Kernel 2 ^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  
IHS Patient 1 KILL^AUPNPAT  

Entry Points

Name Comments DBIA/ICR reference
RAND ;random sample or not
BEN ;
PCP ;
REGASK ;
GUIEP ;EP - called from taskman
ACT ;
BDMG(BDMJOB,BDMBTH,BDMDMRG,BDMADAT,BDMTYPE,BDMSTMP,BDMPCP,BDMCOM,BDMRAND,BDMRCNT,BDMCMS,BDMSTAT,BDMPREP,BDMFILE,BDMDSP,BDMGIEN,BDMSDPI,BDMSDPG,BDMDUZ2,BDMDEMO) ;PEP - gui call
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
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+27, ENDLOG+1
^%ZTLOAD BDMG+41
KILL^AUPNPAT XIT+2
BDMG^BDMDB1 TEST+3
FLAT^BDMDB1 FLAT+1
WRITEF^BDMDB1 WRITEF+1
EAUDIT^BDMDB10 GUIEP+1
TAXCHK^BDMDB19 BEGIN+1
DEMOCHK^BDMUTL ZIS+1
^DIC REGASK+26, COMM+7, P1+1, S+3, PCP+6, CC+5, C+3
FILE^DICN BDMG+33
^DIE ENDLOG+4
IX1^DIK GUIEP+12
^DIR REGASK+23, ACT+3, IF+2, PCP+3, CC+2, C+8, C+12, RAND+3, RAND+7, TIME+4
^XBDBQUE ZIS+4
^XBFMK COMM+4, XIT+2, BDMG+38
GUIR^XBLM GUIEP+5
EN^XBVK XIT+1
$$FMADD^XLFDT TIME+8, BDMG+21
$$FMTE^XLFDT TIME+7, TIME+9, BDMG+20, BDMG+22
$$NOW^XLFDT BDMG+41

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CTR("ASSESSMENT OF DIABETES CARE, 2014")
  • 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 2014 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
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
    • ACT+3
    • IF+2
    • PCP+3
    • CC+2
    • C+8
    • C+12
    • RAND+3
    • RAND+7
    • TIME+4

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
^ATXAX - [#9002226] COMM+6, COM1+1, COM1+2, BDMG+16, BDMG+17
^AUPNPAT - [#9000001] PCP+9, CC+8
^AUTTCOM - [#9999999.05] CC+7
^BDMDBTA("BDMEPI" XIT1+1!
^BDMDBTA($J XIT1+1!
^BDMGUI - [#9003201.4] GUIEP+10*, GUIEP+11*
^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
^XTMP("BDMDM14" P+1!, P1+2, P1+4*, S+1!, C+1!, RAND+5*, RAND+10*, XIT1+2!, 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
GETDATES IF+3
GUIEP BDMG+23
IF ACT+1, ZIS+1
P1 P1+5
PCP S+7, PCP+7, C1+7
RAND S+11, C1+11
TIME GETDATES+1
XIT GETDATES+1, ZIS+5, BDMG+42
XIT1 GETDATES+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % BDMG+28, ENDLOG+2
>> B COMM+6*
>> BDMACTI ACT+1*, ACT+5*, BDMG+11*, BDMG+14*
BDMADAT TIME+2*, TIME+6*, TIME+7, TIME+8, BDMG~, BDMG+4, BDMG+20, BDMG+21
>> BDMBDAT TIME+8*, TIME+9, BDMG+21*, BDMG+22
>> BDMBEN BEN+1*, BDMG+12*
BDMBTH REGASK+29*, P+1, P1+2, P1+4, S+1, C+1, RAND+5, RAND+10, XIT1+2!, BDMG~
, BDMG+3, BDMG+30, 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~
>> BDMDBTA GUIEP+8*, GUIEP+10
BDMDEMO ZIS+1, BDMG~, BDMG+7*
BDMDMRG REGASK+25*, REGASK+27*, REGASK+28*, ACT+1, ACT+2, BDMG~
BDMDSP BDMG~, BDMG+23, GUIEP+2, GUIEP+6
BDMDUZ2 BDMG~
BDMFILE BDMG~, BDMG+19
BDMGIEN BDMG~, BDMG+37*
>> BDMGUI XIT+1, BDMG+9*
>> BDMIEN BDMG+2*, BDMG+3*, BDMG+4*, BDMG+6*, BDMG+19*, BDMG+35*, BDMG+36*, BDMG+37, 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!, BDMG~
, BDMG+2, TEST+1*, TEST+2, TEST+3
>> BDMNOW BDMG+28*, BDMG+31, ENDLOG+2*, ENDLOG+3
BDMOPT BDMG+25~, BDMG+26*, BDMG+31
BDMPCP PCP+8*, PCP+9, BDMG~
>> BDMPD S+5*
BDMPREP IF+4*, IF+5, ZIS+2, ZIS+3, BDMG~, BDMG+6, BDMG+19, BDMG+31, GUIEP+2
BDMRAND BDMG~, BDMG+10
>> BDMRBD TIME+2*, TIME+9*, BDMG+22*
BDMRCNT BDMG~
>> BDMRED TIME+2*, TIME+7*, BDMG+20*
BDMSDPG SDPI+1*, BDMG~
BDMSDPI SDPI+1*, BDMG~
BDMSTAT C+7*, C+14*, C1+3, C1+4, C1+6, BDMG~, BDMG+13
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*
BDMTAX COMM+2!, COM1+4
BDMTAX( COM1+2*, BDMG+17*
>> BDMTAXI COMM+3*, COMM+9*, COM1+1, COM1+2, BDMG+10*, BDMG+16, BDMG+17
BDMTYPE BDMG~
>> C PCP+10*, PCP+11, CC+9*, CC+10, RAND+5*, RAND+10*, GUIEP+7*, GUIEP+10*, GUIEP+11
D0 BDMG+29!
DA ACT+2!, PCP+3!, CC+2!, C+8!, C+12!, RAND+3!, RAND+7!, TIME+4!, BDMG+34!, GUIEP+12*
, ENDLOG+3*, ENDLOG+5!
DD BDMG+29!
DIADD BDMG+32*, BDMG+34!
DIC REGASK+26*!, COMM+5*, COMM+7!, P1+1!*, S+2!, S+3*!, PCP+6!*, CC+5!*, C+3*, BDMG+29!
, BDMG+32*, BDMG+34!
DIC("A" REGASK+26*, COMM+5*, S+2*, C+3*
DIC("B" COMM+6*
DIC("DR" BDMG+31*
DIC("S" COMM+5*, S+2*
DIC(0 REGASK+26*, COMM+5*, P1+1*, S+3*, PCP+6*, CC+5*, C+3*, BDMG+32*
DIE ENDLOG+3*, ENDLOG+5!
>> DIK GUIEP+12*
DIR REGASK+23!, ACT+3!, IF+2!, PCP+3!, CC+2!, C+8!, C+12!, RAND+3!, RAND+7!, TIME+4!
DIR("A" REGASK+23*, ACT+2*, IF+2*, PCP+3*, CC+2*, C+8*, C+12*, RAND+3*, RAND+7*, TIME+4*
DIR("B" ACT+2*, IF+2*, PCP+3*, CC+2*, C+8*, C+12*, RAND+3*
DIR(0 REGASK+23*, ACT+2*, IF+2*, PCP+3*, CC+2*, C+8*, C+12*, RAND+3*, RAND+7*, TIME+4*
>> DIRUT ACT+4, IF+2*, IF+3, PCP+4, CC+3, C+9, C+13, RAND+4, RAND+9, TIME+5
DLAYGO BDMG+32*, BDMG+34!
DR ENDLOG+3*, ENDLOG+5!
DT GUIEP+11, TEST+3
>> DUOUT IF+2
DUZ BDMG+30, BDMG+31
DUZ(2 COMM+6
>> I RAND+10*
IOF BEGIN+2
IOM CTR+1, GUIEP+4*
>> N RAND+10*
>> 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, BDMG+17
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, BDMG+1*, BDMG+15*, BDMG+16*, BDMG+17, BDMG+30*
, GUIEP+7*, GUIEP+8, GUIEP+10, TEST+2*
>> XBNS ZIS+2*, ZIS+3*
>> XBRC ZIS+2*, ZIS+3*
>> XBRP ZIS+2*, ZIS+3*
>> XBRX ZIS+2*, ZIS+3*
Y REGASK+27, REGASK+28, 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, BDMG+35, BDMG+36
>> ZTDESC BDMG+41*
>> ZTDTH BDMG+41*
>> ZTIO BDMG+41*
>> ZTREQ GUIEP+14*
>> ZTRTN BDMG+41*
ZTSAVE BDMG+39!
ZTSAVE("*" BDMG+39*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All