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

Package: Diabetes Registry

Routine: BDMDR1


Information

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

Source Information

Source file <BDMDR1.m>

Call Graph

Call Graph Total: 17

Package Total Call Graph
VA Fileman 6 NOW^%DTC  ^DIC  FILE^DICN  ^DIE  IX1^DIK  ^DIR  
IHS VA Utilities 4 ^XBDBQUE  ^XBFMK  GUIR^XBLM  EN^XBVK  
Diabetes Registry 2 XTMP^BDMOSUT  ($$DEMO,DEMOCHK)^BDMUTL  
Kernel 2 ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  
IHS Patient 1 ($$DOB,$$DOD,$$HRN,KILL)^AUPNPAT  
Patient Care Component Reports 1 $$START1^APCLDF  
Taxonomy 1 $$ICD^ATXCHK  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Diabetes Registry 1 BDMGRB  

Entry Points

Name Comments DBIA/ICR reference
DMPROB(P) ;is DM on problem list 1=yes 0=no
REGPROC ;
DEMO ;
GUIEP ;EP
DATE ;
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
DONE ;
PRINT ;EP - called from xbdbque
ZIS ;
PIH
DXPROC ;
CHK1SET ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
BROWSE ;
CTR(X,Y) ;EP - Center X in a field Y wide.
NUMDXS(P) ;
INFORM ;
CHKSET ;
HEAD
D ;
ENDLOG ;-- write the end of the log
START ;
R ;
HEAD1 ;
GETINFO ;
EXIT ;clean up and exit
LASTDMDX(P) ;
BDMG(BDMTR,BDMREG,BDMSTAT,BDMND,BDMLDAT) ;EP - GUI DMS Entry Point
TEST ;
PROC ;EP - called from XBDBQUE

External References

Name Field # of Occurrence
NOW^%DTC BDMG+6, ENDLOG+1
^%ZTLOAD BDMG+20
$$START1^APCLDF LASTDMDX+4, NUMDXS+4
$$ICD^ATXCHK DMPROB+8
$$DOB^AUPNPAT PRINT+9
$$DOD^AUPNPAT CHK1SET+2, CHKSET+1
$$HRN^AUPNPAT PRINT+9
KILL^AUPNPAT EXIT+3
XTMP^BDMOSUT PROC+3
$$DEMO^BDMUTL CHK1SET+1
DEMOCHK^BDMUTL DEMO+1
^DIC R+2
FILE^DICN BDMG+12
^DIE ENDLOG+4
IX1^DIK GUIEP+10
^DIR GETINFO+2, R+7, R+11, D+3, DATE+3, ZIS+2, DONE+1, HEAD+1, EOP+5
^XBDBQUE DEMO+5, BROWSE+2
^XBFMK EXIT+2, BDMG+17
GUIR^XBLM GUIEP+4
EN^XBVK EXIT+1
$$FMTE^XLFDT PRINT+9
$$NOW^XLFDT BDMG+20

Interaction Calls

Name Line Occurrences
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 do not have Diabetes on their Problem List ",!,"but who are on a Diabetes Register or who have had at least N diagnoses of ",!,"diabetes.",!!
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !,"No register selected."
  • Line Location: R+3
Function Call: WRITE
  • Prompt: !!,"If you are interested in restricting your list to only those patients",!,"whose most recent Diabetes diagnosis is since a certain date, enter that date.",!
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: "If not, press enter or return to list all patients with at least ",BDMND," diagnoses.",!
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !!,"NO PATIENTS TO REPORT"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
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 WITH NO DIAGNOSIS OF DIABETES ON PROBLEM LIST",80),!
  • Line Location: HEAD1+6
Function Call: WRITE
  • Prompt: $$CTR("Patients on the "_$P(^ACM(41.1,BDMREG,0),U)_" Register",80),!
  • Line Location: HEAD1+7
Function Call: WRITE
  • Prompt: $$CTR("Patients w/at least "_BDMND_" diabetes diagnoses",80),!
  • Line Location: HEAD1+8
Function Call: WRITE
  • Prompt: !,"PATIENT NAME",?22,"HRN",?29,"DOB",?47,"LAST DM DX",?63,"# OF DM DXS",!,BDM80D
  • Line Location: PIH+0
Routine Call
  • DIE
  • Line Location:
    • ENDLOG+4
Routine Call
  • DIC
  • Line Location:
    • R+2
Routine Call
  • DIR
  • Line Location:
    • GETINFO+2
    • R+7
    • R+11
    • D+3
    • DATE+3
    • ZIS+2
    • DONE+1
    • HEAD+1
    • EOP+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^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] REGPROC+4, REGPROC+5, REGPROC+6
^ACM(41.1 - [#9002241.1] HEAD1+7
^ATXAX("B" DMPROB+3
^AUPNPAT - [#9000001] DXPROC+4, CHK1SET+3, CHK1SET+4, CHKSET+2, CHKSET+3
^AUPNPROB - [#9000011] DMPROB+6, DMPROB+7
^AUPNPROB("AC" DMPROB+2, DMPROB+5
^BDMGUI - [#9003201.4] GUIEP+8*, GUIEP+9*
^DIC(4 - [#4] HEAD1+5, LOC+1
^DPT - [#2] CHK1SET+11, CHKSET+5, PRINT+9
^TMP($J GUIEP+2!, GUIEP+5, GUIEP+6, GUIEP+12!
^VA(200 - [#200] HEAD1+4, USR+1
^XTMP("BDMDR1" PROC+2!, CHK1SET+11*, CHKSET+5*, PRINT+4, PRINT+6, PRINT+7, DONE+3!

Label References

Name Line Occurrences
$$CTR INFORM+2, INFORM+3, HEAD1+6, HEAD1+7, HEAD1+8
$$DMPROB CHK1SET+5, CHKSET+4
$$LASTDMDX CHK1SET+6, CHKSET+5
$$LOC INFORM+2
$$NUMDXS CHK1SET+9, CHKSET+5
$$USR INFORM+3
@( GETINFO+5
BDMG TEST+1
BROWSE DEMO+3
CHK1SET DXPROC+4
CHKSET REGPROC+5, REGPROC+6
D DATE+4, DATE+5
DONE PRINT+4
DXPROC PROC+5
ENDLOG GUIEP+11
EXIT START+2, START+4, GETINFO+6, ZIS+3, DEMO+2, DEMO+3, DEMO+6, BDMG+21, GUIEP+13
GETINFO START+3
HEAD PRINT+3, PRINT+8
HEAD1 HEAD
INFORM START+1
PROC GUIEP+1
R R+8, R+12
REGPROC PROC+4
ZIS GETINFO+7

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
BDM LASTDMDX+2~, NUMDXS+2~
BDM( NUMDXS+6
BDM(1 LASTDMDX+5
>> BDM80D PRINT+2*, PIH
BDMBTH PROC+1*, PROC+2, CHK1SET+11, CHKSET+5, PRINT+4, PRINT+6, PRINT+7, DONE+3!
>> BDMDATA GUIEP+6*, GUIEP+8
>> BDMDEMO DEMO+1, DEMO+2, CHK1SET+1
>> BDMDUZ2 CHK1SET+3, CHK1SET+4, CHKSET+2, CHKSET+3, PRINT+9, HEAD1+5
>> BDMGIEN BDMG+16*
>> BDMGUI EXIT+1, PRINT+1, HEAD1+2, BDMG+2*
BDMIEN BDMG+4~, BDMG+14*, BDMG+15*, BDMG+16, GUIEP+8, GUIEP+9, GUIEP+10, ENDLOG+3
>> BDMIOSL PRINT+1*, PRINT+8
BDMJOB PROC+1*, PROC+2, CHK1SET+11, CHKSET+5, PRINT+4, PRINT+6, PRINT+7, DONE+3!
BDMLDAT DATE+6*, CHK1SET+8, BDMG~, BDMG+3*
>> BDMN CHK1SET+6*, CHK1SET+7, CHK1SET+8, CHK1SET+11
>> BDMN1 CHK1SET+9*, CHK1SET+10, CHK1SET+11
>> BDMNAME PRINT+5*, PRINT+6*, PRINT+7, PRINT+9
BDMND GETINFO+1*, D+2*, D+5*, DATE+2, CHK1SET+10, HEAD1+8, 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, HEAD1+1*, HEAD1+2, HEAD1+4
BDMQ PRINT+5!, PRINT+6, PRINT+7, PRINT+8, HEAD+1*
>> BDMQUIT START+4, GETINFO+3*, GETINFO+6, R+3*, D+4*
BDMREG GETINFO+1*, R+1*, R+4*, REGPROC+4, HEAD1+7, BDMG~
BDMSTAT GETINFO+1*, R+6*, R+9*, R+13*, REGPROC+5, REGPROC+6, BDMG~
>> BDMTEMP ZIS+1*, ZIS+4*, DEMO+3
BDMTR GETINFO+1*, GETINFO+4*, PROC+4, PROC+5, HEAD1+7, HEAD1+8, BDMG~
>> BDMX PRINT+7*, PRINT+9
>> C GUIEP+5*, GUIEP+8*, GUIEP+9
D DMPROB+5~*
DA GETINFO+2!, R+7!, R+11!, D+3!, DATE+3!, ZIS+2!, BDMG+13!, GUIEP+10*, ENDLOG+3*, ENDLOG+5!
DD BDMG+8!
>> DFN DXPROC+4*, CHK1SET+1, CHK1SET+2, CHK1SET+3, CHK1SET+4, CHK1SET+5, CHK1SET+6, CHK1SET+9, CHK1SET+11, REGPROC+5*
, REGPROC+6*, CHKSET+1, CHKSET+2, CHKSET+3, CHKSET+4, CHKSET+5, PRINT+7*, PRINT+9
DFOUT EOP+4!
DIADD BDMG+11*, BDMG+13!
DIC R+2*, BDMG+8!, BDMG+11*, BDMG+13!
DIC("A" R+2*
DIC("DR" BDMG+10*
DIC(0 R+2*, BDMG+11*
DIE ENDLOG+3*, ENDLOG+5!
>> DIK GUIEP+10*
DIR GETINFO+2!, R+7!, R+11!, D+3!, DATE+3!, ZIS+2!, DONE+1!, HEAD+1!, EOP+3~
DIR("A" GETINFO+2*, R+7*, R+11*, D+3*, DATE+3*, ZIS+2*, DONE+1*
DIR("B" GETINFO+2*, R+7*, R+11*, D+3*, ZIS+2*
DIR(0 GETINFO+2*, R+7*, R+11*, D+3*, DATE+3*, ZIS+2*, DONE+1*, HEAD+1*, EOP+5*
DIRUT GETINFO+3, R+8, R+12, D+4, ZIS+3, DONE+1*, EOP+4!
DLAYGO BDMG+11*, BDMG+13!
DLOUT EOP+4!
DO BDMG+8!
DR ENDLOG+3*, ENDLOG+5!
DT GUIEP+9
DTOUT HEAD+1, EOP+4!
DUOUT DATE+4, DONE+1, EOP+4!
DUZ HEAD1+4, USR+1, BDMG+9, BDMG+10
DUZ(2 CHK1SET+3, CHK1SET+4, CHKSET+2, CHKSET+3, PRINT+9, HEAD1+5, LOC+1
E LASTDMDX+2~, LASTDMDX+4*, NUMDXS+2~, NUMDXS+4*
G DMPROB+5~*, DMPROB+8*, DMPROB+10
I DMPROB+5~, DMPROB+7*, DMPROB+8
IO DONE+1, HEAD+1
IO("S" EOP+2
IO(0 DONE+1, HEAD+1
IOF INFORM+1, DONE+2, HEAD1+1
IOM CTR+1, GUIEP+3*
IOSL PRINT+1
IOST DONE+1, HEAD+1, EOP+1
>> IOT EOP+2
P LASTDMDX~, LASTDMDX+1, LASTDMDX+4, NUMDXS~, NUMDXS+1, NUMDXS+4, DMPROB~, DMPROB+1, DMPROB+2, DMPROB+5
T DMPROB+3~*, DMPROB+4, DMPROB+8
U CHK1SET+3, CHK1SET+4, CHK1SET+11, LASTDMDX+5, REGPROC+5, REGPROC+6, CHKSET+2, CHKSET+3, CHKSET+5, DMPROB+6
, DMPROB+7, PRINT+9, HEAD1+4, HEAD1+5, HEAD1+7, USR+1, LOC+1
X DATE+5, LASTDMDX+2~, LASTDMDX+4*, NUMDXS+2~, NUMDXS+4*, NUMDXS+5*, NUMDXS+6*, REGPROC+4*, REGPROC+5, REGPROC+6
, CTR~, CTR+1, BDMG+9*, GUIEP+5*, GUIEP+6, GUIEP+8
>> XBIOP BROWSE+2*
>> XBNS DEMO+4*
>> XBRC DEMO+4*, BROWSE+2*
>> XBRP DEMO+4*, BROWSE+1*
>> XBRX DEMO+4*, BROWSE+2*
Y GETINFO+4, GETINFO+5, R+3, R+4, R+9, R+13, D+5, DATE+6, ZIS+4, LASTDMDX+2~
, LASTDMDX+3*, LASTDMDX+4, NUMDXS+2~, NUMDXS+3*, NUMDXS+4, NUMDXS+5*, NUMDXS+6*, NUMDXS+7, DMPROB+5~*, DMPROB+6
, DMPROB+7, HEAD+1, CTR~, CTR+1, BDMG+14, BDMG+15
>> ZTDESC BDMG+20*
>> ZTDTH BDMG+20*
>> ZTIO BDMG+20*
>> ZTQUEUED EOP+2
>> ZTREQ GUIEP+14*
>> ZTRTN BDMG+20*
ZTSAVE BDMG+18!
ZTSAVE("*" BDMG+18*
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 |  Naked Globals |  Local Variables |  All