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

Package: IHS GPRA Information System

Routine: BGPMUEP


Information

BGPMUEP ; IHS/MSC/MMT - IHS MU PERFORMANCE MEASURE REPORT FRONT-END ;02-Mar-2011 13:57;DU

Source Information

Source file <BGPMUEP.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
IHS GPRA Information System 4 (EN,ENM)^BGPMUDSI  (EN,PT,RT)^BGPMUDSL  ^BGPMUEPD  ^BGPMUPP  
IHS VA Utilities 4 ^XBDBQUE  ^XBFMK  $$C^XBFUNC  EN^XBVK  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  
VA Fileman 3 C^%DTC  ^DIC  ^DIR  
IHS Patient 1 KILL^AUPNPAT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS GPRA Information System 2 BGPMUEH  BGPMUXML  

Entry Points

Name Comments DBIA/ICR reference
BEN ;
SUM ;display summary of this report
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
TSKMN ;EP ENTRY POINT FROM TASKMAN
BY ;get previous year
NODEV ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y) ;EP - Center X in a field Y wide.
TP ;get time period
EP ;collect eligible provider to run report for
CI ;
E ;report start date
ZIS ;call to XBDBQUE
F ;report start date
AI ;
GETBE ;EP
DRIVER ;
XIT ;
NODEV1 ;
SETIND ;
GI ;gather all measures
MUCHECK ;Site must have EHR 1.1 Patch 8 installed to qualify for MU since that is the certified version
ZIS1 ;
MI ;
LISTS ;any lists with measures?
SI ;
INTRO ;
COMM ;

External References

Name Field # of Occurrence
C^%DTC BY+3, BY+6
^%ZIS ZIS+5
^%ZISC DRIVER+5, NODEV1+3, XIT+1
^%ZTLOAD TSKMN+5
KILL^AUPNPAT XIT+5
EN^BGPMUDSI SI+2
ENM^BGPMUDSI MI+2
EN^BGPMUDSL LISTS+9
PT^BGPMUDSL SUM+10
RT^BGPMUDSL LISTS+12
^BGPMUEPD DRIVER+2, NODEV1+1
^BGPMUPP DRIVER+4, NODEV1+2
^DIC EP+2
^DIR TP+3, TP+14, TP+29, BY+14, EP+6, BEN+4, LISTS+4, LISTS+5, EOP+5, F+6
, E+6
^XBDBQUE NODEV+2
^XBFMK XIT+13
$$C^XBFUNC MUCHECK+10, MUCHECK+11, MUCHECK+15, MUCHECK+16
EN^XBVK XIT+2
$$FMADD^XLFDT TP+23
$$FMTE^XLFDT TP+27, BY+24, BY+25, BY+26, SUM+4, SUM+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CTR("IHS Meaningful Use Clinical Quality Measure Report",80)
  • Line Location: BGPMUEP+5
Function Call: WRITE
  • Prompt: !,$$CTR("Report on all Patients regardless of Community of Residence",80),!!
  • Line Location: BGPMUEP+6
Function Call: WRITE
  • Prompt: !,"This will produce a Clinical Quality Measure Report for one or more measures"
  • Line Location: INTRO+2
Function Call: WRITE
  • Prompt: !,"for a period you specify. You will be asked to provide: 1) the length of the"
  • Line Location: INTRO+3
Function Call: WRITE
  • Prompt: !,"reporting period , 2) the desired start date for your reporting period and,"
  • Line Location: INTRO+4
Function Call: WRITE
  • Prompt: !,"3) the baseline period to compare data to."
  • Line Location: INTRO+5
Function Call: WRITE
  • Prompt: !!,"Enter the reporting period start date."
  • Line Location: TP+10
Function Call: WRITE
  • Prompt: !,"Start date not entered.",!
  • Line Location: TP+19
Function Call: WRITE
  • Prompt: !!,"Enter the Baseline Year to compare data to.",!,"Use a 4 digit year, e.g. 1999, 2000"
  • Line Location: BY+11
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: BY+18
Function Call: WRITE
  • Prompt: !!,"The date ranges for this report are:"
  • Line Location: BY+23
Function Call: WRITE
  • Prompt: !?5,"Report Period: ",?31,$$FMTE^XLFDT(BGPBD)," to ",?31,$$FMTE^XLFDT(BGPED)
  • Line Location: BY+24
Function Call: WRITE
  • Prompt: !?5,"Previous Year Period: ",?31,$$FMTE^XLFDT(BGPPBD)," to ",?31,$$FMTE^XLFDT(BGPPED)
  • Line Location: BY+25
Function Call: WRITE
  • Prompt: !?5,"Baseline Period: ",?31,$$FMTE^XLFDT(BGPBBD)," to ",?31,$$FMTE^XLFDT(BGPBED)
  • Line Location: BY+26
Function Call: WRITE
  • Prompt: !!
  • Line Location: EP+1
Function Call: WRITE
  • Prompt: !!,"provider is required, use an '^' to exit."
  • Line Location: EP+4
Function Call: WRITE
  • Prompt: !!,"no measures selected"
  • Line Location: GI+3
Function Call: WRITE
  • Prompt: !,$$CTR("SUMMARY OF MEANINGFUL USE CLINICAL QUALITY MEASURE REPORT TO BE GENERATED")
  • Line Location: SUM+2
Function Call: WRITE
  • Prompt: !!,"The date ranges for this report are:"
  • Line Location: SUM+3
Function Call: WRITE
  • Prompt: !?5,"Report Period: ",?31,$$FMTE^XLFDT(BGPBD)," to ",?31,$$FMTE^XLFDT(BGPED)
  • Line Location: SUM+4
Function Call: WRITE
  • Prompt: !?5,"Baseline Period: ",?31,$$FMTE^XLFDT(BGPBBD)," to ",?31,$$FMTE^XLFDT(BGPBED)
  • Line Location: SUM+5
Function Call: WRITE
  • Prompt: !!,"ALL Patients will be included."
  • Line Location: SUM+6
Function Call: WRITE
  • Prompt: !,?10,$P(^BGPMUIND(BGPMUYF,X,0),U,3)
  • Line Location: SUM+7
Function Call: WRITE
  • Prompt: !!,"Lists will be produced for these measures: "
  • Line Location: SUM+8
Function Call: WRITE
  • Prompt: !,?10,$P(^BGPMUIND(BGPMUYF,X,0),U,3)
  • Line Location: SUM+9
Function Call: WRITE
  • Prompt: !,"Report Aborted"
  • Line Location: ZIS1+1
Function Call: WRITE
  • Prompt: !,"Report Aborted"
  • Line Location: ZIS1+2
Function Call: WRITE
  • Prompt: !,"Report Aborted"
  • Line Location: ZIS1+3
Function Call: WRITE
  • Prompt: !!,"PATIENT LISTS"
  • Line Location: LISTS+2
Function Call: WRITE
  • Prompt: !!,"You do not have the security access to print patient lists.",!,"Please see your supervisor or program manager if you feel you should have",!,"the BGPZ PATIENT LISTS security key.",!
  • Line Location: LISTS+3
Function Call: WRITE
  • Prompt: !!,"No lists selected.",!
  • Line Location: LISTS+11
Function Call: WRITE
  • Prompt: !!,"Enter the reporting period start date."
  • Line Location: F+2
Function Call: WRITE
  • Prompt: !!,"Enter the reporting period end date."
  • Line Location: E+2
Routine Call
  • DIC
  • Line Location:
    • EP+2
Routine Call
  • DIR
  • Line Location:
    • TP+3
    • TP+14
    • TP+29
    • BY+14
    • EP+6
    • BEN+4
    • LISTS+4
    • LISTS+5
    • EOP+5
    • F+6
    • E+6
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BGPMUIND( SUM+7, SUM+9, CI+1, AI+1
^DIC(4 - [#4] LOC+1
^TMP($J DRIVER+1!, DRIVER+6!
^VA(200 - [#200] USR+1
^XPD(9.7 - [#9.7] MUCHECK+9, MUCHECK+12, MUCHECK+13
^XUSEC("BGPZ PATIENT LISTS" LISTS+3

Label References

Name Line Occurrences
$$CTR BGPMUEP+5, BGPMUEP+6, SUM+2
AI GI+2
BY TP+9, BY+18
CI GI+1
COMM BEN+5
E GETBE+3
EP EP+4
F GETBE+1
GETBE TP+8
LISTS SUM+11, CI+2, AI+2, MI+4, SI+4, LISTS+12
MI EP+9
MUCHECK BGPMUEP+7
NODEV ZIS+4
SETIND EP+9, EP+10, GI+3
SI EP+10
TP TP+19, TP+26, BY+15, BY+16
TSKMN ZIS1+4
XIT INTRO+1, SETIND+1, TP+4, TP+8, EP+3, EP+7, ZIS+4, DRIVER+7, NODEV1+4, TSKMN+5

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ZIS+4!, ZIS+5*
A XIT+7!
B XIT+7!
BD XIT+9!
>> BGP0RPTH SETIND+4*, TP+1*
>> BGPANS TP+5*, TP+8, TP+9, BY+8
>> BGPBBD BY+21*, BY+26, SUM+5
>> BGPBD TP+2*, TP+8, TP+21*, TP+22*, TP+27, BY+2, BY+8, BY+21, BY+24, SUM+4
, GETBE+2, F+1*, F+10*
>> BGPBED BY+22*, BY+26, SUM+5
>> BGPBEN BEN+1*, BEN+6*
>> BGPDELT ZIS+4, ZIS+5
>> BGPDO TP+26, TP+29*, TP+30*, TP+31*
>> BGPED TP+2*, TP+8, TP+23*, TP+26, TP+27, BY+5, BY+8, BY+22, BY+24, SUM+4
, E+1*, E+10*
BGPIND EP+9, EP+10, GI+3, MI+1!, MI+3, SI+1!, SI+3
BGPIND( SUM+7, CI+1*, AI+1*
>> BGPINDT SETIND+2*, EP+8*, EP+9, EP+10, GI+1, GI+2
>> BGPLEN TP+6*, TP+23
BGPLIST LISTS+1!, LISTS+8!, LISTS+11, LISTS+12
BGPLIST( SUM+9
>> BGPMUT SETIND+5*
>> BGPMUYF SETIND+3*, SUM+7, SUM+9, CI+1, AI+1
>> BGPPBD BY+4*, BY+8*, BY+25
>> BGPPED BY+7*, BY+8*, BY+25
>> BGPPER TP+7*, TP+18*, TP+19, TP+21, TP+23, BY+19, F+1*, F+11*
>> BGPPROV EP+5*
>> BGPQUIT BGPMUEP+7, LISTS+12, MUCHECK+7*, MUCHECK+11*, MUCHECK+17*
>> BGPROT SUM+11, ZIS+4
>> BGPRTYPE SETIND+4*, TP+1*
>> BGPTP TP+2*
>> BGPVDT TP+7*, TP+17*, TP+18, BY+10*, BY+17*, BY+19, F+1*, F+9*, F+11, E+1*
C XIT+7!
D XIT+7!
DA TP+3!, TP+29!, EP+2!, EP+6!, BEN+4!, LISTS+5!
DFOUT EOP+4!
DIADD XIT+4!
DIC EP+2*!
DIC("A" EP+2*
DIC(0 EP+2*
DIR TP+3!, TP+14!, TP+29!, BY+14!, EP+6!, BEN+4!, LISTS+4!, LISTS+5!, XIT+3!, EOP+3~
, EOP+4!, EOP+5!, F+6!, E+6!
DIR("?" TP+13*, F+5*, E+5*
DIR("A" TP+3*, TP+12*, TP+29*, BY+13*, EP+6*, BEN+2*, LISTS+4*, LISTS+5*, F+4*, E+4*
DIR("B" TP+29*, BEN+3*, LISTS+5*
DIR(0 TP+3*, TP+11*, TP+29*, BY+12*, EP+5*, BEN+2*, LISTS+4*, LISTS+5*, EOP+5*, F+3*
, E+3*
DIRUT TP+4, TP+15, TP+16*, TP+30, BY+15, BY+16*, EP+7, BEN+5, LISTS+6, XIT+3!
, EOP+4!, F+7, F+8*, E+7, E+8*
DLAYGO XIT+4!
DLOUT EOP+4!
DOD XIT+3!
DT TP+26
DTOUT EOP+4!
DUOUT TP+16, BY+16, XIT+3!, EOP+4!, F+8, E+8
DUZ LISTS+3, USR+1
DUZ(2 LOC+1
E XIT+7!
ED XIT+9!
F XIT+7!
G XIT+7!
H XIT+7!
I XIT+7!
IN MUCHECK+6~, MUCHECK+8*, MUCHECK+9, MUCHECK+12
INSTDA MUCHECK+6~, MUCHECK+8*, MUCHECK+12*, MUCHECK+13
IO DRIVER+3, TSKMN+1
IO("DOC" TSKMN+2
IO("Q" ZIS1+4
IO("S" EOP+2
IOCPU TSKMN+5, XIT+10!
IOF BGPMUEP+4, SUM+1
IOM TSKMN+3, CTR+1
ION TSKMN+1
IOP ZIS+4!
IOSL TSKMN+3
IOST TSKMN+1, EOP+1
IOT XIT+10!, EOP+2
J XIT+7!
K XIT+7!
L XIT+7!
M XIT+7!
N XIT+7!, XIT+8!
N1 XIT+8!
N2 XIT+8!
N3 XIT+8!
N4 XIT+8!
N5 XIT+8!
N6 XIT+8!
O XIT+7!
P XIT+7!
Q XIT+7!
R XIT+7!
S XIT+7!
STAT MUCHECK+6~, MUCHECK+13*, MUCHECK+14
T XIT+7!
U SUM+7, SUM+9, MUCHECK+13, USR+1, LOC+1
V XIT+7!
VALMBCK XIT+12!
VALMCNT XIT+12!
VALMHDR XIT+12!
W XIT+7!
X BY+1~, BY+4, BY+7, BY+19*, BY+20*, BY+21, BY+22, EP+3, SUM+7*, SUM+9*
, CI+1*, AI+1*, XIT+6!, XIT+7!, CTR~, CTR+1
X1 BY+1~, BY+2*, BY+5*, XIT+6!
X2 BY+1~, BY+2*, BY+5*, XIT+6!
X3 XIT+6!
X4 XIT+6!
X5 XIT+6!
X6 XIT+6!
XBGL XIT+11!
XBNS NODEV+1*, XIT+11!
XBRC NODEV+1*, XIT+11!
XBRP NODEV+1*, XIT+11!
XBRX NODEV+1*, XIT+11!
XWB XIT+11!
Y TP+5, TP+6, TP+17, TP+31, BY+17, BY+18, EP+4, EP+5, EP+8, BEN+6
, LISTS+6, LISTS+7, XIT+7!, CTR~, CTR+1, F+9, F+10, E+10
Z XIT+7!
ZTCPT XIT+10!
>> ZTCPU TSKMN+5*
ZTDESC TSKMN+5*, XIT+10!
ZTDTH TSKMN+5*, XIT+10!
ZTIO TSKMN+1*, TSKMN+2*, TSKMN+3*, XIT+10!
>> ZTQUEUED XIT+2, EOP+2
ZTREQ XIT+2*, XIT+10!
ZTRTN TSKMN+5*, XIT+10!
ZTSAVE TSKMN+4!
ZTSAVE("BGP*" TSKMN+4*
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