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

Package: Diabetes Registry

Routine: BDMRMC


Information

BDMRMC ; IHS/CMI/LAB - patients w/o dm on problem list ; 28 Oct 2015 2:08 PM

Source Information

Source file <BDMRMC.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
IHS VA Utilities 4 ^XBDBQUE  $$VALI^XBDIQ1  ^XBFMK  EN^XBVK  
VA Fileman 3 C^%DTC  ^DIC  ^DIR  
Case Management System 1 PAUSE1^ACMPPDTX  
Diabetes Registry 1 CS1^BDMVRL  
IHS Patient 1 KILL^AUPNPAT  

Entry Points

Name Comments DBIA/ICR reference
BD ;
WF ;
GROUP ;get register, status, random or not
HS ;
SELTYP ;PEP;TO SELECT HEALTH SUMMARY TYPE
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
PRINT ;EP - called from xbdbque
PS ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
I1 ;
CTR(X,Y) ;EP - Center X in a field Y wide.
INFORM ;
DEMO ;
GROUP1 ;
ZIS ;call to XBDBQUE
CM ;
CC ;current community
ED ;
START ;
R ;
GETINFO ;
NRD ;NEXT REVIEW DATE RANGE
BROWSE ;
GETDATES ;
EXIT ;clean up and exit
GETPATS ;
WF1 ;which status
CM1 ;which status

External References

Name Field # of Occurrence
C^%DTC ED+5
PAUSE1^ACMPPDTX PRINT+9
KILL^AUPNPAT EXIT+6
CS1^BDMVRL PRINT+7
^DIC R+2, I1+1, CM1+1, WF1+1, CC+5, SELTYP+4
^DIR PS+2, HS+4, EOP+5, GROUP+4, GROUP+8, NRD+1, BD+2, ED+1, CM+2, WF+2
, CC+2
^XBDBQUE DEMO+5, BROWSE+2
$$VALI^XBDIQ1 ED+10, CM1+7, WF1+8
^XBFMK EXIT+5
EN^XBVK EXIT+2, EXIT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No register selected."
  • Line Location: R+3
Function Call: WRITE
  • Prompt: !!,"No patients selected."
  • Line Location: PS+5
Function Call: WRITE
  • Prompt: !!,"No patients selected."
  • Line Location: PS+8
Function Call: WRITE
  • Prompt: !,"No Health summary will be included.",!
  • Line Location: HS+5
Function Call: WRITE
  • Prompt: !,$$CTR($$LOC)
  • Line Location: INFORM+2
Function Call: WRITE
  • Prompt: !,$$CTR($$USR)
  • Line Location: INFORM+3
Function Call: WRITE
  • Prompt: !!,$$CTR("DIABETES REGISTER MULTIPLE PATIENTS SUMMARIES",80)
  • Line Location: INFORM+4
Function Call: WRITE
  • Prompt: !!,"This report will print patient summaries for a selected set of patients."
  • Line Location: INFORM+5
Function Call: WRITE
  • Prompt: !,"You may select individual patients by name/HRN or you may select a group"
  • Line Location: INFORM+6
Function Call: WRITE
  • Prompt: !,"of patients by any combination of the following attributes:"
  • Line Location: INFORM+7
Function Call: WRITE
  • Prompt: ?5,"- Register Status",!
  • Line Location: INFORM+8
Function Call: WRITE
  • Prompt: ?5,"- Community of Residence",!
  • Line Location: INFORM+9
Function Call: WRITE
  • Prompt: ?5,"- Case Manager",!
  • Line Location: INFORM+10
Function Call: WRITE
  • Prompt: ?5,"- Where Followed",!
  • Line Location: INFORM+11
Function Call: WRITE
  • Prompt: ?5,"- Next Review Date",!
  • Line Location: INFORM+12
Function Call: WRITE
  • Prompt: !
  • Line Location: INFORM+13
Function Call: WRITE
  • Prompt: !,"No patients selected"
  • Line Location: I1+2
Function Call: WRITE
  • Prompt: !,"That patient is not on the register!"
  • Line Location: I1+4
Function Call: WRITE
  • Prompt: !,"No patients with that status in that register!"
  • Line Location: GROUP1+5
Function Call: WRITE
  • Prompt: !!,"There are ",BDMCNT," patients in the ",$P(^ACM(41.1,BDMREG,0),U)," register with a status of ",BDMSTAT,".",!!
  • Line Location: GROUP1+6
Function Call: WRITE
  • Prompt: !!!,"Enter the next review date range.",!
  • 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: !!,"There are no patients with that case manager."
  • Line Location: ED+15
Function Call: WRITE
  • Prompt: !,"There are ",C," patients selected so far.",!
  • Line Location: ED+16
Function Call: WRITE
  • Prompt: !!,"There are no patients with that case manager."
  • Line Location: CM1+11
Function Call: WRITE
  • Prompt: !!,"There are no patients with that Where Followed Value."
  • Line Location: WF1+12
Function Call: WRITE
  • Prompt: !
  • Line Location: CC+2
Function Call: WRITE
  • Prompt: !!,"There are no patients living in that community."
  • Line Location: CC+10
Function Call: WRITE
  • Prompt: !!,C," patients have been selected so far.",!
  • Line Location: CC+11
Function Call: WRITE
  • Prompt: !
  • Line Location: SELTYP+3
Routine Call
  • DIC
  • Line Location:
    • R+2
    • I1+1
    • CM1+1
    • WF1+1
    • CC+5
    • SELTYP+4
Routine Call
  • DIR
  • Line Location:
    • PS+2
    • HS+4
    • EOP+5
    • GROUP+4
    • GROUP+8
    • NRD+1
    • BD+2
    • ED+1
    • CM+2
    • WF+2
    • CC+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNPAT - [#9000001] Classic Fileman Calls
^APCHSCTL - [#9001015] Classic Fileman Calls
^ACM(41.1 - [#9002241.1] Classic Fileman Calls
^AUTTCOM - [#9999999.05] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACM(41 - [#9002241] PRINT+6, I1+4, GROUP1+2, GROUP1+3, GROUP1+4, ED+8, CM1+5, WF1+6
^ACM(41.1 - [#9002241.1] HS+1, GROUP1+6
^AUPNPAT - [#9000001] CC+8
^AUTTCOM - [#9999999.05] CC+7
^DIC(4 - [#4] LOC+1
^VA(200 - [#200] USR+1

Label References

Name Line Occurrences
$$CTR INFORM+2, INFORM+3, INFORM+4
$$LOC INFORM+2
$$USR INFORM+3
CC GROUP1+9, CC+6
CM GROUP1+7, CM1+2
CM1 CM1+14
ED ED+3
EXIT START+2, R+3, PS+3, PS+5, PS+8, DEMO+6, PRINT+10
GETDATES ED+2
GETPATS PS+5
GROUP PS+7, GROUP+5, GROUP+9, GROUP1+5
GROUP1 GROUP+6
HS PS+6
I1 I1+4, I1+6
INFORM START+1
NRD GROUP1+13
SELTYP HS+5
WF GROUP1+11, WF1+2, WF1+3
WF1 WF1+15

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACMMHS HS+5*, EXIT+4!
ACMSTYP HS+5, EXIT+4!, SELTYP+7*
>> ACMZQUIT PRINT+3
>> BDMBD BD+4*, ED+3, ED+5, ED+12
BDMCM CM+1!, CM1+1, CM1+2, CM1+3
BDMCM( CM1+9, CM1+13*
>> BDMCNT GROUP1+2*, GROUP1+3*, GROUP1+4*, GROUP1+6
>> BDMCOM CC+7*, CC+8
>> BDMED ED+4*, ED+13
>> BDMMULTS PRINT+2*
BDMPATS PS+1!, PS+5, PS+8, GETPATS+1!, I1+2, GROUP+2!, GROUP1+2!, GROUP1+5, GROUP1+8!, GROUP1+10!
, GROUP1+12!, GROUP1+14!
BDMPATS( PRINT+3, I1+5*, GROUP1+3*, GROUP1+4*, ED+8, ED+9!, ED+11!, ED+12!, ED+13!, ED+14
, CM1+5, CM1+6!, CM1+8!, CM1+9!, CM1+10, WF1+6, WF1+7!, WF1+9!, WF1+10!, WF1+11
, CC+8!, CC+9
>> BDMPATX PRINT+3*, PRINT+4, PRINT+6
>> BDMPS PS+4*, PS+5, PS+6
>> BDMQUIT R+3*
BDMRDA EXIT+1~, PRINT+5*
>> BDMREG R+1*, R+4*, HS+1, PRINT+5, PRINT+6, I1+4, GROUP1+2, GROUP1+6, ED+8, CM1+5
, WF1+6
BDMREGNM EXIT+1~
>> BDMRPDA PRINT+6*
>> BDMSD ED+5*
BDMSTAT GETINFO+1!, GROUP+3*, GROUP+10*, GROUP1+3, GROUP1+4, GROUP1+6
>> BDMSTP GETPATS+1*, I1+2*, GROUP+1*, GROUP1+5*, GROUP1+8, GROUP1+10, GROUP1+12, GROUP1+14, BD+3*, ED+15*
, CM+3*, CM1+11*, WF+3*, WF1+12*, CC+1*, CC+3*, CC+10*
BDMWF WF+1!, WF+4!, WF1+1, WF1+2, WF1+3, WF1+4
BDMWF( WF1+10, WF1+14*
>> BDMX ED+8*, ED+9, ED+10, CM1+5*, CM1+6, CM1+7, WF1+6*, WF1+7, WF1+8
>> C ED+14*, ED+15, ED+16, CM1+10*, CM1+11, CM1+12, WF1+11*, WF1+12, WF1+13, CC+9*
, CC+10, CC+11
DA PS+2!, GROUP+4!, GROUP+8!, NRD+1!, CM+2!, WF+2!, CC+2!, SELTYP+5!
>> DFN PRINT+4*
DFOUT EOP+4!
DIC R+2*, I1+1!*, CM1+1!*, WF1+1!*, CC+5!*, SELTYP+1!, SELTYP+2*, SELTYP+5!
DIC("A" R+2*, CM1+1*, WF1+1*, SELTYP+2*
DIC("B" SELTYP+2*
DIC("S" I1+1*
DIC(0 R+2*, I1+1*, CM1+1*, WF1+1*, CC+5*, SELTYP+2*
DIR PS+2!, HS+4!, EOP+3~, GROUP+4!, GROUP+8!, NRD+1!, BD+2!, ED+1!, CM+2!, WF+2!
, CC+2!
DIR("?" BD+2*
DIR("A" PS+2*, HS+2*, GROUP+4*, GROUP+8*, NRD+1*, BD+2*, ED+1*, CM+2*, WF+2*, CC+2*
DIR("B" PS+2*, HS+2*, GROUP+4*, GROUP+8*, NRD+1*, CM+2*, WF+2*, CC+2*
DIR(0 PS+2*, HS+2*, EOP+5*, GROUP+4*, GROUP+8*, NRD+1*, BD+2*, ED+1*, CM+2*, WF+2*
, CC+2*
DIRUT PS+3, EOP+4!, GROUP+5, GROUP+9, NRD+3, BD+2*, BD+3, ED+1*, ED+2, CM+3
, WF+3, WF1+3, CC+3
DLOUT EOP+4!
DR SELTYP+5!
DTOUT EOP+4!
DUOUT EOP+4!, BD+2, ED+1
DUZ USR+1
DUZ(2 LOC+1
IO("S" EOP+2
IOF INFORM+1
IOM CTR+1
IOST PRINT+9, EOP+1
>> IOT EOP+2
>> P ED+8*, ED+9, ED+11, ED+12, ED+13, ED+14*, CM1+5*, CM1+6, CM1+8, CM1+9
, CM1+10*, WF1+6*, WF1+7, WF1+9, WF1+10, WF1+11*
U HS+1, USR+1, LOC+1, GROUP1+3, GROUP1+4, GROUP1+6, CC+7, CC+8
X CTR~, CTR+1, GROUP1+2*, GROUP1+3, GROUP1+4, ED+5, ED+10*, ED+11, ED+12, ED+13
, CM1+7*, CM1+8, CM1+9, WF1+8*, WF1+9, WF1+10, CC+8*, CC+9*
>> 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 R+3, R+4, PS+4, HS+5, CTR~, CTR+1, I1+2, I1+3, I1+4, I1+5
, GROUP+6, GROUP+10, NRD+2, BD+4, ED+3, ED+4, CM+4, CM1+2, CM1+3, CM1+13
, WF+4, WF1+2, WF1+4, WF1+14, CC+4, CC+6, CC+7, SELTYP+6, SELTYP+7
>> ZTQUEUED EOP+2
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