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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BDMDR6

Package: Diabetes Registry

Routine: BDMDR6


Information

BDMDR6 ; IHS/CMI/LAB - patients w/o dm on problem list ;

Source Information

Source file <BDMDR6.m>

Call Graph

Call Graph Total: 23

Package Total Call Graph
VA Fileman 7 (C,NOW)^%DTC  ^DIC  FILE^DICN  ^DIE  IX1^DIK  $$GET1^DIQ  ^DIR  
IHS VA Utilities 5 ^XBDBQUE  $$VALI^XBDIQ1  ^XBFMK  GUIR^XBLM  EN^XBVK  
Diabetes Registry 4 XTMP^BDMOSUT  EN2^BDMRML  $$DATE^BDMS9B1  ($$DEMO,$$LBLK,DEMOCHK)^BDMUTL  
Kernel 4 ^%ZISC  $$OPEN^%ZISH  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
Patient Care Component Reports 2 ALLV^APCLAPIU  $$START1^APCLDF  
IHS Patient 1 ($$COMMRES,$$DOB,$$DOD,$$HRN,KILL)^AUPNPAT  

Entry Points

Name Comments DBIA/ICR reference
BD ;
NUMDXS(P,BD,ED) ;
GUIEP ;EP
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
DONE ;
PRINT ;EP - called from xbdbque
ZIS ;
PIH
LOC() ;EP - Return location name from file 4 based on DUZ(2).
BROWSE ;
CTR(X,Y) ;EP - Center X in a field Y wide.
ONREG(P,R) ;
RSTAT(REG,PAT) ;
INFORM ;
DEMO ;
DATE(D) ;EP
HEAD
R1 ;
ED ;
SCREEN ;
LASTV(P) ;
ENDLOG ;-- write the end of the log
D ;
START ;
R ;
PT ;EP
HEAD1 ;
VLOCS(P,BDATE,EDATE) ;
ST ;
LASTDMDX(P,BDATE,EDATE,N) ;
GETDATES ;
EXIT ;clean up and exit
CM(REG,PAT) ;
BDMG(BDMTR,BDMREG,BDMSTAT,BDMND,BDMLDAT) ;EP - GUI DMS Entry Point
TEST ;
PROC ;EP - called from XBDBQUE
DELR ;
WRITEF ;

External References

Name Field # of Occurrence
C^%DTC ED+5
NOW^%DTC BDMG+6, ENDLOG+1
^%ZISC WRITEF+8
$$OPEN^%ZISH WRITEF+2
^%ZTLOAD BDMG+20
ALLV^APCLAPIU VLOCS+2
$$START1^APCLDF NUMDXS+4, LASTDMDX+5
$$COMMRES^AUPNPAT PRINT+14, DELR+6
$$DOB^AUPNPAT PRINT+13, PRINT+18, DELR+5, DELR+10
$$DOD^AUPNPAT PROC+8
$$HRN^AUPNPAT PRINT+13, DELR+4
KILL^AUPNPAT EXIT+3
XTMP^BDMOSUT PROC+3
EN2^BDMRML ZIS+7
$$DATE^BDMS9B1 PRINT+13, DELR+5
$$DEMO^BDMUTL PROC+7
$$LBLK^BDMUTL PRINT+17
DEMOCHK^BDMUTL DEMO+1
^DIC R1+1
FILE^DICN BDMG+12
^DIE ENDLOG+4
IX1^DIK GUIEP+10
$$GET1^DIQ PROC+13, LASTV+11, CM+4, RSTAT+4
^DIR BD+2, ED+1, D+3, ZIS+2, DONE+3, HEAD+2, EOP+5, PT+5, PT+9
^XBDBQUE DEMO+5, BROWSE+2
$$VALI^XBDIQ1 VLOCS+5
^XBFMK EXIT+2, BDMG+17
GUIR^XBLM GUIEP+4
EN^XBVK EXIT+1
$$FMTE^XLFDT HEAD1+10
$$NOW^XLFDT BDMG+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No register selected."
  • Line Location: R1+3
Function Call: WRITE
  • Prompt: !!!,"Enter the time frame to look for visits with a diabetes diagnosis.",!
  • Line Location: BD+1
Function Call: WRITE
  • Prompt: !,"Ending date must be greater than or equal to beginning date!"
  • Line Location: ED+3
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC)
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !,$$CTR($$USR)
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !!,"This report will list patients who are not on any diabetes register ",!
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: "but who have had a visit with a diagnosis of diabetes in a date range",!
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: "specified by the user. If you are multi-divisional with multiple registers",!
  • Line Location: INFORM+6
Function Call: WRITE
  • Prompt: "you can enter all of the register names. Only patients who are not on ANY",!
  • Line Location: INFORM+7
Function Call: WRITE
  • Prompt: "of the registers will be displayed on the list.",!
  • Line Location: INFORM+8
Function Call: WRITE
  • Prompt: !
  • Line Location: INFORM+9
Function Call: WRITE
  • Prompt: !!,"NO PATIENTS TO REPORT"
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !!,"Search Template ",$P(^DIBT(BDMSTMP,0),U,1)," has been created.",!
  • Line Location: DONE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: !,"ZZZZZZZ"
  • Line Location: HEAD1+2
Function Call: WRITE
  • Prompt: !?13,"********** CONFIDENTIAL PATIENT INFORMATION **********"
  • Line Location: HEAD1+3
Function Call: WRITE
  • Prompt: !,$P(^VA(200,DUZ,0),U,2),?72,"Page ",BDMPG,!
  • Line Location: HEAD1+4
Function Call: WRITE
  • Prompt: ?(80-$L($P(^DIC(4,$S($G(BDMDUZ2):BDMDUZ2,1:DUZ(2)),0),U))/2),$P(^DIC(4,$S($G(BDMDUZ2):BDMDUZ2,1:DUZ(2)),0),U),!
  • Line Location: HEAD1+5
Function Call: WRITE
  • Prompt: $$CTR("Patients NOT on any of the following Registers:"),!
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: $$CTR("with at least "_BDMND_" visits with a DX of Diabetes between ",80),!
  • Line Location: HEAD1+9
Function Call: WRITE
  • Prompt: $$CTR($$FMTE^XLFDT(BDMBD)_" and "_$$FMTE^XLFDT(BDMED),80),!
  • Line Location: HEAD1+10
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?22,"HRN",?29,"DOB",?40,"COMMUNITY",?53,"LAST VISIT",?64,"# DM",?70,"LAST DM",!,?64,"DXS",?70,"DX",!,BDM80D
  • Line Location: PIH+0
Function Call: WRITE
  • Prompt: !!,"You have selected to create a delimited output file. You can have this",!,"output file created as a text file in the pub directory, ",!,"OR you can have the delimited output display on your screen so that"
  • Line Location: PT+3
Function Call: WRITE
  • Prompt: !,"you can do a file capture. Keep in mind that if you choose to",!,"do a screen capture you CANNOT Queue your report to run in the background!!",!!
  • Line Location: PT+4
Function Call: WRITE
  • Prompt: !!,"When the report is finished your delimited output will be found in the",!,BDMHDIR," directory. The filename will be ",BDMDELF,".txt",!
  • Line Location: PT+14
Function Call: WRITE
  • Prompt: !,"NAME^HRN^DOB^COMMUNITY^LAST VISIT^# DM DXS^LAST DM DXS^LOCATIONS WHERE SEEN"
  • Line Location: WRITEF+5
Function Call: WRITE
  • Prompt: !,^TMP($J,"DELIMITED",X)
  • Line Location: WRITEF+6
Function Call: WRITE
  • Prompt: !
  • Line Location: WRITEF+7
Function Call: WRITE
  • Prompt: !,"NAME^HRN^DOB^COMMUNITY^LAST VISIT^# DM DXS^LAST DM DXS^LOCATIONS WHERE SEEN"
  • Line Location: SCREEN+1
Function Call: WRITE
  • Prompt: !,^TMP($J,"DELIMITED",X)
  • Line Location: SCREEN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SCREEN+3
Routine Call
  • DIE
  • Line Location:
    • ENDLOG+4
Routine Call
  • DIC
  • Line Location:
    • R1+1
Routine Call
  • DIR
  • Line Location:
    • BD+2
    • ED+1
    • D+3
    • ZIS+2
    • DONE+3
    • HEAD+2
    • EOP+5
    • PT+5
    • PT+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^AUPNVSIT - [#9000010] GET1^DIQ
^ACM(41 - [#9002241] GET1^DIQ
^ACM(41.1 - [#9002241.1] Classic Fileman Calls
^BDMGUI - [#9003201.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACM(41 - [#9002241] ONREG+3, CM+2, RSTAT+2
^ACM(41.1 - [#9002241.1] HEAD1+8
^AUPNPAT - [#9000001] PROC+4, PROC+9, PROC+10
^AUPNVSIT - [#9000010] LASTV+5, LASTV+6, LASTV+7, LASTV+8
^AUPNVSIT("AA" LASTV+3, LASTV+4
^AUTTLOC - [#9999999.06] VLOCS+6
^AUTTSITE(1 PT+12
^BDMGUI - [#9003201.4] GUIEP+8*, GUIEP+9*
^DIBT( PRINT+10*, DONE+1
^DIC(4 - [#4] HEAD1+5, VLOCS+8, LOC+1
^DPT - [#2] PROC+5, PROC+6
^TMP($J PRINT+4!, DELR+12*, GUIEP+2!, GUIEP+5, GUIEP+6, GUIEP+12!, WRITEF+6, SCREEN+2
^VA(200 - [#200] HEAD1+4, USR+1
^XTMP("BDMDR6" PROC+2!, PROC+13*, PRINT+5, PRINT+8, PRINT+9, DONE+5!
^XTV(8989.3 - [#8989.3] PT+12

Label References

Name Line Occurrences
$$CTR INFORM+2, INFORM+3, HEAD1+6, HEAD1+8, HEAD1+9, HEAD1+10
$$DATE PRINT+16, PRINT+18, DELR+8, DELR+10
$$LASTDMDX PROC+12, PRINT+18, DELR+10
$$LASTV PRINT+15, DELR+7
$$LOC INFORM+2
$$NUMDXS PRINT+17, DELR+9
$$ONREG PROC+11
$$USR INFORM+3
$$VLOCS PRINT+19, DELR+11
BDMG TEST+1
BROWSE DEMO+3
DELR PRINT+11
DEMO ZIS+5, ZIS+6
DONE PRINT+5
ED ED+3
ENDLOG GUIEP+11
EXIT START+2, R1+3, DEMO+2, DEMO+3, DEMO+6, BDMG+21, GUIEP+13
GETDATES R1+2, ED+2, D+4, ZIS+3
HEAD PRINT+3, PRINT+12
HEAD1 HEAD+1
INFORM START+1
PROC GUIEP+1
PT ZIS+9, PT+6, PT+10
R BD+3
R1 R1+5
SCREEN WRITEF+1
WRITEF DONE+2
ZIS ZIS+6, ZIS+9

Naked Globals

Name Field # of Occurrence
^(0 USR+1, LOC+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % BDMG+7, ENDLOG+2
BD NUMDXS~, NUMDXS+4
BDATE LASTDMDX~, LASTDMDX+5, VLOCS~, VLOCS+2
BDM NUMDXS+2~, LASTDMDX+3~
BDM( NUMDXS+6, LASTDMDX+6
>> BDM80D PRINT+2*, PIH
>> BDMBD BD+4*, ED+3, ED+5, PROC+12, PRINT+17, PRINT+19, DELR+9, DELR+11, HEAD1+10
BDMBTH PROC+1*, PROC+2, PROC+13, PRINT+5, PRINT+8, PRINT+9, DONE+5!
>> BDMDATA GUIEP+6*, GUIEP+8
>> BDMDCNT PRINT+7*, DELR+1*, DELR+12
>> BDMDELF ZIS+9, PT+1*, PT+2*, PT+11*, PT+14, WRITEF+2
>> BDMDELT ZIS+9, PT+1*, PT+2*, PT+7*, PT+8, WRITEF+1
>> BDMDEMO DEMO+1, DEMO+2, PROC+7
>> BDMDUZ2 PROC+9, PROC+10, PRINT+13, DELR+4, HEAD1+5
>> BDMED ED+4*, PROC+12, PRINT+17, PRINT+19, DELR+9, DELR+11, HEAD1+10
>> BDMGIEN BDMG+16*
>> BDMGUI EXIT+1, PRINT+1, HEAD1+2, BDMG+2*
>> BDMHDIR PT+12*, PT+13*, PT+14, WRITEF+2
BDMIEN BDMG+4~, BDMG+14*, BDMG+15*, BDMG+16, GUIEP+8, GUIEP+9, GUIEP+10, ENDLOG+3
>> BDMIOSL PRINT+1*, PRINT+12
BDMJOB PROC+1*, PROC+2, PROC+13, PRINT+5, PRINT+8, PRINT+9, DONE+5!
BDMLDAT BDMG~, BDMG+3*
BDMLOCS VLOCS+1~
BDMLOCS( VLOCS+9*, VLOCS+11
>> BDMNAME PRINT+6*, PRINT+8*, PRINT+9, PRINT+13, DELR+3
BDMND D+2*, D+5*, PROC+12, HEAD1+9, BDMG~, BDMG+1*
BDMNOW BDMG+4~, BDMG+7*, BDMG+9, BDMG+10, ENDLOG+2*, ENDLOG+3
BDMOPT BDMG+4~, BDMG+5*, BDMG+10
>> BDMPG PRINT+3*, HEAD+1, HEAD1+1*, HEAD1+2, HEAD1+4
BDMQ PRINT+6!, PRINT+8, PRINT+9, PRINT+12, HEAD+2*
>> BDMREC DELR+2*, DELR+3*, DELR+4*, DELR+5*, DELR+6*, DELR+8*, DELR+9*, DELR+10*, DELR+11*, DELR+12
BDMREG R+1!, R1+1, R1+2, R1+3, PROC+11, BDMG~
BDMREG( R1+4*, ONREG+3, HEAD1+7
>> BDMROT PT+1*
>> BDMSD ED+5*
BDMSTAT BDMG~
>> BDMSTMP ZIS+6, PRINT+10, DONE+1
>> BDMTEMP ZIS+1*, ZIS+4*, ZIS+5, ZIS+6, DEMO+3, PRINT+5, PRINT+10, PRINT+11, DONE+1, DONE+2
, HEAD
BDMTR BDMG~
BDMVS VLOCS+1~
BDMVS( VLOCS+3, VLOCS+4
>> BDMX PRINT+9*
>> C GUIEP+5*, GUIEP+8*, GUIEP+9
D LASTV+1~, LASTV+3*, LASTV+4, DATE~, DATE+1, DATE+2
DA D+3!, ZIS+2!, BDMG+13!, GUIEP+10*, ENDLOG+3*, ENDLOG+5!, PT+5!, PT+9!
DD BDMG+8!
>> DFN PROC+4*, PROC+5, PROC+6, PROC+7, PROC+8, PROC+9, PROC+10, PROC+11, PROC+12, PROC+13
, ONREG+3, PRINT+9*, PRINT+10, PRINT+13, PRINT+14, PRINT+15, PRINT+17, PRINT+18, PRINT+19, DELR+4
, DELR+5, DELR+6, DELR+7, DELR+9, DELR+10, DELR+11
DFOUT EOP+4!
DIADD BDMG+11*, BDMG+13!
DIC R1+1*, BDMG+8!, BDMG+11*, BDMG+13!
DIC("A" R1+1*
DIC("DR" BDMG+10*
DIC(0 R1+1*, BDMG+11*
DIE ENDLOG+3*, ENDLOG+5!
>> DIK GUIEP+10*
DIR BD+2!, ED+1!, D+3!, ZIS+2!, DONE+3!, HEAD+2!, EOP+3~, PT+5!, PT+9!
DIR("?" BD+2*
DIR("A" BD+2*, ED+1*, D+3*, ZIS+2*, DONE+3*, PT+5*, PT+9*
DIR("B" D+3*, ZIS+2*, PT+5*
DIR(0 BD+2*, ED+1*, D+3*, ZIS+2*, DONE+3*, HEAD+2*, EOP+5*, PT+5*, PT+9*
DIRUT BD+2*, BD+3, ED+1*, ED+2, D+4, ZIS+3, DONE+3*, EOP+4!, PT+6, PT+10
DLAYGO BDMG+11*, BDMG+13!
DLOUT EOP+4!
DO BDMG+8!
DR ENDLOG+3*, ENDLOG+5!
DT PRINT+18, DELR+10, GUIEP+9
DTOUT HEAD+2, EOP+4!
DUOUT BD+2, ED+1, DONE+3, EOP+4!
DUZ HEAD1+4, USR+1, BDMG+9, BDMG+10
DUZ(2 PROC+9, PROC+10, PRINT+13, DELR+4, HEAD1+5, LOC+1
E NUMDXS+2~, NUMDXS+4*, LASTDMDX+3~, LASTDMDX+5*
ED NUMDXS~, NUMDXS+4
EDATE LASTDMDX~, LASTDMDX+5, VLOCS~, VLOCS+2
G ONREG+1~, ONREG+2*, ONREG+3*, ONREG+4
IO DONE+3, HEAD+2, WRITEF+4
IO("S" EOP+2
IO(0 DONE+3, HEAD+2
IOF INFORM+1, DONE+4, HEAD1+1
IOM CTR+1, GUIEP+3*
IOSL PRINT+1
IOST DONE+3, HEAD+2, EOP+1
>> IOT EOP+2
L VLOCS+1~, VLOCS+5*, VLOCS+6, VLOCS+8*, VLOCS+9, VLOCS+10*, VLOCS+11*
N LASTDMDX~, LASTDMDX+2*, LASTDMDX+5, LASTDMDX+6
P ONREG~, NUMDXS~, NUMDXS+1, NUMDXS+4, LASTV~, LASTV+3, LASTV+4, LASTDMDX~, LASTDMDX+1, LASTDMDX+5
, VLOCS~, VLOCS+2
PAT CM~, CM+2, RSTAT~, RSTAT+2
R ONREG~
REG CM~, CM+2, RSTAT~, RSTAT+2
U PROC+5, PROC+9, PROC+10, PRINT+16, DONE+1, DELR+3, DELR+4, DELR+5, DELR+6, DELR+8
, DELR+9, DELR+10, DELR+11, HEAD1+4, HEAD1+5, HEAD1+8, LASTV+6, LASTV+7, LASTV+8, LASTV+11
, LASTDMDX+6, VLOCS+4, VLOCS+8, USR+1, LOC+1, PT+12
V PRINT+15*, PRINT+16, DELR+7*, DELR+8, LASTV+1~, LASTV+2*, LASTV+3, LASTV+4, LASTV+9*, LASTV+10
, LASTV+11, VLOCS+1~, VLOCS+4*, VLOCS+5, VLOCS+10*, VLOCS+11*, VLOCS+12
X ED+5, PROC+12*, PROC+13, ONREG+1~, ONREG+3*, HEAD1+7*, HEAD1+8, NUMDXS+2~, NUMDXS+4*, NUMDXS+5*
, NUMDXS+6*, LASTV+1~, LASTV+4*, LASTV+5, LASTV+6, LASTV+7, LASTV+8, LASTV+9, LASTDMDX+3~, LASTDMDX+5*
, VLOCS+1~, VLOCS+3*, VLOCS+4, CM+1~, CM+2*, CM+3, CM+4, RSTAT+1~, RSTAT+2*, RSTAT+3
, RSTAT+4, CTR~, CTR+1, BDMG+9*, GUIEP+5*, GUIEP+6, GUIEP+8, WRITEF+6*, SCREEN+2*
>> X1 ED+5*
>> X2 ED+5*
>> XBIOP BROWSE+2*
>> XBNS DEMO+4*
>> XBRC DEMO+4*, BROWSE+2*
>> XBRP DEMO+4*, BROWSE+1*
>> XBRX DEMO+4*, BROWSE+2*
Y R1+2, R1+3, R1+4, BD+4, ED+3, ED+4, D+5, ZIS+4, HEAD+2, NUMDXS+2~
, NUMDXS+3*, NUMDXS+4, NUMDXS+5*, NUMDXS+6*, NUMDXS+7, LASTV+1~, LASTDMDX+3~, LASTDMDX+4*, LASTDMDX+5, CTR~
, CTR+1, BDMG+14, BDMG+15, PT+7, PT+11, WRITEF+2*, WRITEF+3
Z LASTV+1~
>> ZTDESC BDMG+20*
>> ZTDTH BDMG+20*
>> ZTIO BDMG+20*
>> ZTQUEUED EOP+2, WRITEF+3
>> ZTREQ GUIEP+14*
>> ZTRTN BDMG+20*
ZTSAVE BDMG+18!
ZTSAVE("*" BDMG+18*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All