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

Package: Diabetes Registry

Routine: BDMDMSM


Information

BDMDMSM ; IHS/CMI/LAB - print Self Monitoring Pts for dm patients ;

Source Information

Source file <BDMDMSM.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
IHS VA Utilities 4 ^XBDBQUE  $$VAL^XBDIQ1  ^XBFMK  EN^XBVK  
Kernel 2 ($$FMADD,$$FMTE)^XLFDT  $$ADD^XPDMENU  
Patient Care Component Reports 2 $$START1^APCLDF  $$LASTVD^APCLV1  
VA Fileman 2 ^DIC  ^DIR  
Diabetes Registry 1 ($$DEMO,DEMOCHK)^BDMUTL  
IHS Patient 1 ($$COMMRES,$$DOD,$$HRN)^AUPNPAT  

Entry Points

Name Comments DBIA/ICR reference
DEMO ;
REPORT ;
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
DONE ;
PRINT ;EP - called from xbdbque
SORTED ;
PRINT1
SETVAL ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y) ;EP - Center X in a field Y wide.
REGISTER ;get register name
HEADER1 ;
EOJ ;
ENDDATE ;
ZIS ;
LASTHF(P,C,BDATE,F) ;EP - get last factor in category C for patient P
POST ;
EP ;EP - called from option interactive
HEADER ;EP
SORT(P,BDMSORT) ;
PROC ;

External References

Name Field # of Occurrence
$$START1^APCLDF PROC+17
$$LASTVD^APCLV1 PRINT+7
$$COMMRES^AUPNPAT SORT+4, PRINT+7
$$DOD^AUPNPAT PROC+10
$$HRN^AUPNPAT SORT+2, PRINT+7
$$DEMO^BDMUTL PROC+9
DEMOCHK^BDMUTL DEMO+1
^DIC REGISTER+2
^DIR REGISTER+7, REGISTER+11, REPORT+2, ENDDATE+3, SORTED+1, DONE+1, HEADER+2, EOP+5
^XBDBQUE DEMO+4
$$VAL^XBDIQ1 LASTHF+16, LASTHF+18
^XBFMK EOJ+1
EN^XBVK EOJ+3
$$FMADD^XLFDT PROC+3, PROC+11, PROC+17
$$FMTE^XLFDT PRINT+17, HEADER1+2, HEADER1+7, LASTHF+18
$$ADD^XPDMENU POST+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will provide a list of patients on a register"
  • Line Location: EP+3
Function Call: WRITE
  • Prompt: !,"(e.g. IHS Diabetes) that either are doing Self Monitoring of"
  • Line Location: EP+4
Function Call: WRITE
  • Prompt: !,"Glucose or who are not doing Self Monitoring of Glucose."
  • Line Location: EP+5
Function Call: WRITE
  • Prompt: !,"The following definitions/logic is used:"
  • Line Location: EP+6
Function Call: WRITE
  • Prompt: !?5,"Yes, Doing self monitoring:"
  • Line Location: EP+7
Function Call: WRITE
  • Prompt: !?7,"- the last health factor documented in the 365 days prior to the"
  • Line Location: EP+8
Function Call: WRITE
  • Prompt: !?7,"end date is SELF MONITORING BLOOD GLUCOSE-YES"
  • Line Location: EP+9
Function Call: WRITE
  • Prompt: !?7,"- the patient has had strips dispensed through pharmacy in "
  • Line Location: EP+10
Function Call: WRITE
  • Prompt: !?7,"the 365 days prior to the end date."
  • Line Location: EP+11
Function Call: WRITE
  • Prompt: !?5,"No, not doing self monitoring"
  • Line Location: EP+12
Function Call: WRITE
  • Prompt: !?7,"- the last health factor documented in the 365 days prior to"
  • Line Location: EP+13
Function Call: WRITE
  • Prompt: !?7,"the end date is SELF MONITORING BLOOD GLUCOSE-NO or SELF MONITORING"
  • Line Location: EP+14
Function Call: WRITE
  • Prompt: !?7,"BLOOD GLUCOSE-REFUSED"
  • Line Location: EP+15
Function Call: WRITE
  • Prompt: !?7,"- the patient has had no strips dispensed through pharmacy"
  • Line Location: EP+16
Function Call: WRITE
  • Prompt: !?7,"- the patient has had neither strips dispensed nor a health"
  • Line Location: EP+17
Function Call: WRITE
  • Prompt: !?7,"factor documented in the 365 days prior to the end date"
  • Line Location: EP+18
Function Call: WRITE
  • Prompt: !!,"In the case of the following conflict: the patient's last"
  • Line Location: EP+19
Function Call: WRITE
  • Prompt: !,"health factor states NO or REFUSED but they have had strips"
  • Line Location: EP+20
Function Call: WRITE
  • Prompt: !,"dispensed they will show up on each report with a status of"
  • Line Location: EP+21
Function Call: WRITE
  • Prompt: !,"Maybe."
  • Line Location: EP+22
Function Call: WRITE
  • Prompt: !
  • Line Location: REGISTER+2
Function Call: WRITE
  • Prompt: !,"No Register Selected."
  • Line Location: REGISTER+3
Function Call: WRITE
  • Prompt: !!,"Enter the end date to use in calculating the 365 day time period."
  • Line Location: ENDDATE+2
Function Call: WRITE
  • Prompt: !!,"NO DATA TO REPORT",!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !?3,"Health Factor: ",BDMLHF
  • Line Location: PRINT1+1
Function Call: WRITE
  • Prompt: !?3,"Medication Dispensed: ",BDMLMED
  • Line Location: PRINT1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BDMPG,!
  • Line Location: HEADER1+2
Function Call: WRITE
  • Prompt: !,$$CTR("PATIENTS ON THE "_$P(^ACM(41.1,BDMREG,0),U)_" REGISTER - BLOOD GLUCOSE SELF MONITORING",80),!
  • Line Location: HEADER1+3
Function Call: WRITE
  • Prompt: $$CTR("Patients Doing Self Monitoring",80),!
  • Line Location: HEADER1+4
Function Call: WRITE
  • Prompt: $$CTR("Patients NOT Doing Self Monitoring",80),!
  • Line Location: HEADER1+5
Function Call: WRITE
  • Prompt: $$CTR("List of Patients w/Self Monitoring of Blood Glucose Status",80),!
  • Line Location: HEADER1+6
Function Call: WRITE
  • Prompt: $$CTR(X,80),!
  • Line Location: HEADER1+7
Function Call: WRITE
  • Prompt: !,"HRN",?7,"PATIENT NAME",?38,"COMMUNITY",?54,"LAST VISIT",?75,"SMBG?"
  • Line Location: HEADER1+8
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","-")
  • Line Location: HEADER1+9
Function Call: WRITE
  • Prompt: "Attempt to new appt list of reg pats failed.."
  • Line Location: POST+3
Routine Call
  • DIC
  • Line Location:
    • REGISTER+2
Routine Call
  • DIR
  • Line Location:
    • REGISTER+7
    • REGISTER+11
    • REPORT+2
    • ENDDATE+3
    • SORTED+1
    • DONE+1
    • HEADER+2
    • EOP+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACM(41.1 - [#9002241.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACM(41 - [#9002241] PROC+4, PROC+7, PROC+8
^ACM(41.1 - [#9002241.1] HEADER1+3
^AUPNVHF - [#9000010.23] LASTHF+17
^AUPNVHF("AA" LASTHF+8, LASTHF+9, LASTHF+12
^AUTTHF("AC" LASTHF+7
^AUTTHF("B" LASTHF+4
^DIC(4 - [#4] LOC+1
^DPT - [#2] SORT+3, PRINT+7
^VA(200 - [#200] HEADER1+2, USR+1
^XTMP("BDMDMSM" PROC+1!, PROC+3*, PROC+23*, DONE+4!, PRINT+2, PRINT+3, PRINT+4, PRINT+8, PRINT+9, PRINT+10

Label References

Name Line Occurrences
$$CTR HEADER1+3, HEADER1+4, HEADER1+5, HEADER1+6, HEADER1+7
$$LASTHF PROC+11
$$SORT PROC+23
DONE PRINT+2, PRINT1+3
ENDDATE SORTED+2
EOJ EP+1, REGISTER+3
HEADER PRINT+1, PRINT+5
HEADER1 HEADER+1
REGISTER REGISTER+8, REGISTER+12, REPORT+3
REPORT REGISTER+9, ENDDATE+4
SETVAL PROC+20
SORTED DEMO+2

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BDATE LASTHF~, LASTHF+11
>> BDMDEMO DEMO+1, DEMO+2, PROC+9
>> BDMDMX PROC+4*, PROC+7, PROC+8
>> BDMDUZ2 PRINT+7
>> BDMED ENDDATE+1*, ENDDATE+5*, PROC+11, PROC+17, HEADER1+7
BDMET DONE+3!
>> BDMGUI EOJ+3
BDMH PROC+2*, PROC+23, DONE+4!, PRINT+2, PRINT+3, PRINT+4, PRINT+8, PRINT+9, PRINT+10
>> BDMHF PROC+11*, PROC+12, PROC+13, PROC+14, PROC+15, PROC+23, PRINT+10*, PRINT+16
>> BDMHFG PROC+12*, PROC+13*, PROC+14*, PROC+15*, SETVAL+2, SETVAL+3, SETVAL+4, SETVAL+5, SETVAL+6, SETVAL+7
BDMJ PROC+2*, PROC+23, DONE+4!, PRINT+2, PRINT+3, PRINT+4, PRINT+8, PRINT+9, PRINT+10
>> BDMLHF PRINT+11*, PRINT+16*, PRINT1+1
>> BDMLMED PRINT+11*, PRINT+17*, PRINT1+2
BDMM DONE+3!
BDMMED PROC+16!, PRINT+9*, PRINT+17
BDMMED(1 PROC+18, PROC+19, PROC+23
>> BDMMEDG PROC+18*, PROC+19*, SETVAL+2, SETVAL+3, SETVAL+4
>> BDMPG PRINT+1*, HEADER+1, HEADER1+1*, HEADER1+2
BDMQ PRINT+1!, PRINT+3, PRINT+4, PRINT+5, HEADER+2*
>> BDMREG REGISTER+1*, REGISTER+3*, REGISTER+4*, PROC+4, HEADER1+3
>> BDMRPT REPORT+1*, REPORT+4*, PROC+21, PROC+22, PRINT+6, HEADER1+4, HEADER1+5, HEADER1+6
BDMS DONE+3!
BDMSORT SORTED+3*, PROC+23, SORT~, SORT+2, SORT+3, SORT+4
>> BDMSTAT REGISTER+6*, REGISTER+9*, REGISTER+13*, PROC+7
>> BDMSV PRINT+3*, PRINT+4, PRINT+8, PRINT+9, PRINT+10
BDMTS DONE+3!
>> BDMVAL PROC+21, PROC+22, PROC+23, SETVAL+1*, SETVAL+2*, SETVAL+3*, SETVAL+4*, SETVAL+5*, SETVAL+6*, SETVAL+7*
, PRINT+8*, PRINT+12, PRINT+13, PRINT+14
C LASTHF~, LASTHF+2, LASTHF+4*, LASTHF+5, LASTHF+7
D LASTHF+6~, LASTHF+9*, LASTHF+10, LASTHF+11, LASTHF+12, LASTHF+14*, LASTHF+15, LASTHF+16, LASTHF+17, LASTHF+18
, LASTHF+19
DA REGISTER+7!, REGISTER+11!, REPORT+2!, ENDDATE+3!, SORTED+1!
>> DFN PROC+8*, PROC+9, PROC+10, PROC+11, PROC+17, PROC+23, PRINT+4*, PRINT+7, PRINT+8, PRINT+9
, PRINT+10
DFOUT EOP+4!
DIC REGISTER+2*, EOJ+2!
DIC("A" REGISTER+2*
DIC(0 REGISTER+2*
DIR REGISTER+7!, REGISTER+11!, REPORT+2!, ENDDATE+3!, SORTED+1!, EOJ+2!, DONE+1!, HEADER+2!, EOP+3~
DIR("A" REGISTER+7*, REGISTER+11*, REPORT+2*, ENDDATE+3*, SORTED+1*, DONE+1*, EOP+5*
DIR("B" REGISTER+7*, REGISTER+11*, REPORT+2*, SORTED+1*
DIR(0 REGISTER+7*, REGISTER+11*, REPORT+2*, ENDDATE+3*, SORTED+1*, DONE+1*, HEADER+2*, EOP+5*
DIRUT REGISTER+8, REGISTER+12, REPORT+3, ENDDATE+4, SORTED+2, DONE+1*, EOP+4!
DLOUT EOP+4!
DT PROC+3, HEADER1+2
DTOUT HEADER+2, EOP+4!
DUOUT DONE+1, EOP+4!
DUZ HEADER1+2, USR+1
DUZ(2 SORT+2, PRINT+7, LOC+1
>> E PROC+17*
F LASTHF~, LASTHF+3*, LASTHF+16, LASTHF+17, LASTHF+18
H LASTHF+6~*, LASTHF+7*, LASTHF+8, LASTHF+9, LASTHF+12
IO DONE+1, HEADER+2
IO("S" EOP+2
IO(0 DONE+1, HEADER+2
IOF EP+2, DONE+2, HEADER1+1
IOM CTR+1
IOSL PRINT+5
IOST DONE+1, HEADER+2, EOP+1
>> IOT EOP+2
O LASTHF+6~!
O( LASTHF+12*, LASTHF+16, LASTHF+17, LASTHF+18
O(0 LASTHF+14
P SORT~, SORT+2, SORT+3, SORT+4, LASTHF~, LASTHF+1, LASTHF+8, LASTHF+9, LASTHF+12
U PROC+7, PROC+8, SORT+3, PRINT+7, PRINT+17, HEADER1+2, HEADER1+3, USR+1, LOC+1, LASTHF+17
X PROC+17*, SORT+1~*, SORT+2*, SORT+3*, SORT+4*, SORT+5*, SORT+6, PRINT+11*, PRINT+12*, PRINT+13*
, PRINT+14*, PRINT1, HEADER1+7*, CTR~, CTR+1, POST+1~, POST+2*, POST+3
>> XBNS DEMO+3*
>> XBRC DEMO+3*
>> XBRP DEMO+3*
>> XBRX DEMO+3*
Y REGISTER+3, REGISTER+4, REGISTER+9, REGISTER+13, REPORT+4, ENDDATE+5, SORTED+3, HEADER+2, CTR~, CTR+1
>> 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