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

Package: Diabetes Registry

Routine: BDMPG1


Information

BDMPG1 ; IHS/CMI/LAB - IHS PRE Diabetes Audit 2015 ;

Source Information

Source file <BDMPG1.m>

Call Graph

Call Graph Total: 20

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Diabetes Registry 2 BDMGRJ  BDMPG1  

Entry Points

Name Comments DBIA/ICR reference
RAND ;random sample or not
BEN ;
DEMO ;
PCP ;
GUIEP ;EP - called from taskman
BDMG(BDMJOB,BDMBTH,BDMDMRG,BDMADAT,BDMTYPE,BDMSTMP,BDMPGP,BDMCOM,BDMRAND,BDMRCNT,BDMCMS,BDMSTAT,BDMPREP,BDMFILE,BDMDSP,BDMGIEN,BDMSDPI,BDMSDPG,BDMPPN,BDMDUZ2,BDMDGMO,BDMBEN,BDMDQ) ;PEP - gui call
BEGIN ;EP - called from option
BROWSE ;
CTR(X,Y) ;EP - Center X in a field Y wide.
C1 ;
FLAT ;EP
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
PREG ;
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+21, ENDLOG+1
^%ZTLOAD BDMG+40
$$BEN^AUPNPAT BEN+7, BEN+8, BDMG+26, BDMG+27
KILL^AUPNPAT XIT+2
$$PREG^BDMDG1B PREG+11
BDMG^BDMPG1 TEST+3
^BDMPG10 GUIEP+1
TAXCHK^BDMPG19 BEGIN+1
DEMOCHK^BDMUTL DEMO+2
^DIC BEGIN+6, P1+1, S+3, PCP+6, CC+5, C+3
FILE^DICN BDMG+32
^DIE ENDLOG+4
IX1^DIK GUIEP+12
^DIR TYPE+4, IF+2, IF+7, DEMO+4, PREG+3, PCP+3, CC+2, C+8, C+12, BEN+3
, RAND+3, RAND+7, TIME+4, FLAT+2, FLAT+12
^XBDBQUE DEMO+9, BROWSE+2
^XBFMK XIT+2, BDMG+37
^XBGSAVE WRITEF+13
GUIR^XBLM GUIEP+5
EN^XBVK XIT+1
$$FMADD^XLFDT TIME+8, BDMG+15
$$FMTE^XLFDT TIME+7, TIME+9, BDMG+14, BDMG+16
$$NOW^XLFDT BDMG+40
$$LOW^XLFSTR FLAT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,$$CTR("ASSESSMENT OF PREDIABETES/METABOLIC SYNDROME CARE, 2019")
  • Line Location: BEGIN+3
Function Call: WRITE
  • Prompt: !!,$$CTR("PCC PREDIABETES/METABOLIC SYNDROME AUDIT")
  • Line Location: BEGIN+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: BEGIN+5
Function Call: WRITE
  • Prompt: !,"NO Register Selected!!! The CMS register will not be used in retrieving",!,"any data."
  • Line Location: BEGIN+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DEMO+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: !,"okay, hold on...this may take a few minutes.."
  • Line Location: PREG+7
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:
    • BEGIN+6
    • P1+1
    • S+3
    • PCP+6
    • CC+5
    • C+3
Routine Call
  • DIR
  • Line Location:
    • TYPE+4
    • IF+2
    • IF+7
    • DEMO+4
    • PREG+3
    • PCP+3
    • CC+2
    • C+8
    • C+12
    • BEN+3
    • 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
^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] WRITEF+10
^ATXAX - [#9002226] BDMG+11, BDMG+12
^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
^DD(9000001 PCP+6
^DIBT( S+5, S+6
^DPT - [#2] PREG+9
^TMP($J TYPE+2!, P+1!, S+1!, S+5*, PREG+8, PREG+11!, PCP+9!, PCP+10, CC+8!, CC+9
, C+1!, C1+2!, C1+3*, C1+4*, C1+5, BEN+6, BEN+7!, BEN+8!, RAND+1, RAND+5
, RAND+6!, RAND+10!, RAND+11!, XIT+3!, BDMG+25, BDMG+26!, BDMG+27!, GUIEP+3!, GUIEP+7, GUIEP+8
^VA(200 - [#200] WRITEF+11
^XTMP("BDMPG1" TYPE+2!, P+1!, P1+2, P1+4*, S+1!, C+1!, RAND+5*, RAND+10*, XIT1+2!, WRITEF+18!
, TEST+2*
^XTMP("BDMTAX" PREG+12!

Label References

Name Line Occurrences
$$CTR BEGIN+3, BEGIN+4
@( TYPE+7
BEN S+11, C1+9
BROWSE DEMO+7
C C+9, C+13, C1+5, RAND+4
C1 C+10
CC S+9, CC+6, C1+11
ENDLOG GUIEP+13
FLAT FLAT+4
GETDATES TYPE+5
GUIEP BDMG+19
IF IF+6, DEMO+2
P1 P1+5
PCP S+7, PCP+7, C1+7
PREG S+13, C1+13
RAND S+15, C1+15
TIME GETDATES+1
TYPE TYPE+8, IF+3
XIT GETDATES+1, DEMO+5, DEMO+7, DEMO+10, BDMG+41
XIT1 GETDATES+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % BDMG+22, ENDLOG+2
>> BDMACTI BDMG+9*, BDMG+13*
BDMADAT PREG+11, TIME+2*, TIME+6*, TIME+7, TIME+8, BDMG~, BDMG+4, BDMG+14, BDMG+15
>> BDMBDAT PREG+11, TIME+8*, TIME+9, BDMG+15*, BDMG+16
BDMBEN BEN+1*, BEN+5*, BEN+7, BEN+8, BDMG~, BDMG+26, BDMG+27
BDMBTH BEGIN+9*, TYPE+2, P+1, P1+2, P1+4, S+1, PREG+12, 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~, BDMG+10
>> BDMDATA GUIEP+8*, GUIEP+10
BDMDGMO DEMO+1*, DEMO+2, DEMO+3*, BDMG~
BDMDMRG BEGIN+7*, BEGIN+8*, BDMG~
BDMDQ BDMG~, BDMG+18
BDMDSP BDMG~, BDMG+19, GUIEP+6
BDMDUZ2 WRITEF+10, BDMG~
BDMFILE FLAT+1*, FLAT+5*, FLAT+6, FLAT+8, FLAT+10, WRITEF+11, BDMG~
BDMGIEN BDMG~, BDMG+36*
>> BDMGUI XIT+1, BDMG+17*
>> BDMIEN BDMG+2*, BDMG+3*, BDMG+4*, BDMG+5*, BDMG+6*, BDMG+34*, BDMG+35*, BDMG+36, GUIEP+10, GUIEP+11
, GUIEP+12, ENDLOG+3, TEST+3
BDMJOB BEGIN+9*, TYPE+2, P+1, P1+2, P1+4, S+1, PREG+12, C+1, RAND+5, RAND+10
, XIT1+2!, WRITEF+18!, BDMG~, BDMG+2, TEST+1*, TEST+2, TEST+3
>> BDMNOW BDMG+22*, BDMG+30, ENDLOG+2*, ENDLOG+3
BDMOPT DEMO+6*, BDMG+23~, BDMG+24*, BDMG+30
>> BDMPG S+5*
BDMPGP PCP+8*, PCP+9, BDMG~
BDMPPN IF+6*, IF+9*, BDMG~, BDMG+7*
>> BDMPREG PREG+1*, PREG+5*, PREG+6
BDMPREP IF+4*, IF+6, BDMG~, BDMG+6, BDMG+30
>> BDMQSRT BDMG+18*
BDMRAND BDMG~
>> BDMRBD TIME+2*, TIME+9*, BDMG+16*
BDMRCNT BDMG~
>> BDMRED TIME+2*, TIME+7*, BDMG+14*
BDMSDPG BDMG~
BDMSDPI BDMG~
BDMSTAT C+7*, C+14*, C1+3, C1+4, C1+6, BDMG~, BDMG+13
BDMSTMP BDMG~
>> BDMSTP GETDATES+1*, TYPE+1*, TYPE+7*, TYPE+8, IF+1*, IF+6, IF+8*, P+1*, P1+2*, S+1*
, S+4*, S+8, S+10, S+12, S+14, PREG+1*, PREG+4*, PCP+1*, PCP+4*, CC+1*
, CC+3*, C+2*, C+4*, C1+5*, C1+8, C1+10, C1+12, C1+14, BEN+1*, BEN+4*
, RAND+9*, TIME+1*, TIME+5*, FLAT+3*, FLAT+13*, FLAT+14*
>> BDMTAX( BDMG+12*
>> BDMTAXI BDMG+10*, BDMG+11, BDMG+12
BDMTYPE TYPE+3*, TYPE+6*, TYPE+7, DEMO+2, DEMO+3, BDMG~, BDMG+5, BDMG+10
>> C PCP+10*, PCP+11, CC+9*, CC+10, RAND+5*, RAND+10*, GUIEP+7*, GUIEP+10*, GUIEP+11
D0 BDMG+28!
DA TYPE+4!, IF+7!, DEMO+4!, PREG+3!, PCP+3!, CC+2!, C+8!, C+12!, BEN+3!, 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 BEGIN+6*, P1+1!*, S+2!, S+3*!, PCP+6!*, CC+5!*, C+3*, BDMG+28!, BDMG+31*, BDMG+33!
DIC("A" BEGIN+6*, S+2*, C+3*
DIC("DR" BDMG+30*
DIC("S" S+2*
DIC(0 BEGIN+6*, P1+1*, S+3*, PCP+6*, CC+5*, C+3*, BDMG+31*
DIE ENDLOG+3*, ENDLOG+5!
>> DIK GUIEP+12*
DIR TYPE+4!, IF+2!, IF+7!, DEMO+4!, PREG+3!, PCP+3!, CC+2!, C+8!, C+12!, BEN+3!
, RAND+3!, RAND+7!, TIME+4!, FLAT+2!, FLAT+12!
DIR("A" TYPE+4*, IF+2*, IF+7*, DEMO+4*, PREG+2*, PCP+3*, CC+2*, C+8*, C+12*, BEN+2*
, RAND+3*, RAND+7*, TIME+4*, FLAT+2*, FLAT+12*
DIR("B" TYPE+4*, IF+2*, IF+7*, DEMO+4*, PREG+3*, PCP+3*, CC+2*, C+8*, C+12*, BEN+3*
, RAND+3*, FLAT+12*
DIR(0 TYPE+4*, IF+2*, IF+7*, DEMO+4*, PREG+2*, PCP+3*, CC+2*, C+8*, C+12*, BEN+2*
, RAND+3*, RAND+7*, TIME+4*, FLAT+2*, FLAT+12*
>> DIRUT TYPE+5, IF+2*, IF+3, IF+8, DEMO+5, PREG+4, PCP+4, CC+3, C+9, C+13
, BEN+4, 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+29, BDMG+30
DUZ(2 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 PREG+8*, PREG+9, PREG+11, PCP+9*, CC+8*, BEN+6*, BEN+7, BEN+8, BDMG+25*, BDMG+26
, BDMG+27
U S+6, PREG+9, PCP+6, PCP+9, CC+7, CC+8, C1+3, C1+4, C1+6, FLAT+6
, WRITEF+10, WRITEF+11, BDMG+12
X PREG+8*, PREG+11, PCP+9*, PCP+10*, CC+8*, CC+9*, C1+2*, C1+3, C1+4, BEN+6*
, BEN+7, BEN+8, RAND+1*, RAND+5*, RAND+10*, CTR~, CTR+1, FLAT+4, WRITEF+5*, WRITEF+7*
, BDMG+1*, BDMG+11*, BDMG+12, BDMG+25*, BDMG+26, BDMG+27, 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!
>> XBIOP BROWSE+2*
XBMED WRITEF+11*, WRITEF+16!
>> XBNS DEMO+8*
XBQ WRITEF+12*, WRITEF+16!
>> XBRC DEMO+8*, BROWSE+2*
>> XBRP DEMO+8*, BROWSE+1*
>> XBRX DEMO+8*, BROWSE+2*
XBTLE WRITEF+11*, WRITEF+16!
XBUF WRITEF+10!*
Y BEGIN+7, BEGIN+8, TYPE+6, IF+4, IF+9, DEMO+6, DEMO+7, P1+2, P1+3, P1+4
, S+4, S+5, S+6, PREG+5, PCP+5, PCP+7, PCP+8, CC+4, CC+6, CC+7
, C+4, C+5, C+10, C+14, BEN+5, 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