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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: BGPMUEH

Package: IHS GPRA Information System

Routine: BGPMUEH


Information

BGPMUEH ; IHS/MSC/JSM/SAT - IHS MU HOSPITAL PERFORMANCE MEASURE REPORT FRONT-END ;02-Mar-2011 16:48;DU

Source Information

Source file <BGPMUEH.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
IHS GPRA Information System 5 ENH^BGPMUDSI  (EN,PH,RT)^BGPMUDSL  ^BGPMUEHD  (GETBE,MUCHECK)^BGPMUEP  ^BGPMUPP  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  
IHS VA Utilities 3 ^XBDBQUE  ^XBFMK  EN^XBVK  
IHS Patient 1 KILL^AUPNPAT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS GPRA Information System 2 BGPMUDEL  BGPMUPP  

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 ;
TESTC ;capture input data
; call with D:$G(^TMP("BGPMU0028B","TEST")=1 TESTC
; DFN = patient code from VA PATIENT file
; BGPBDATE = begin date of report
; BGPEDATE = end date of report
; BGPPROV = provider code from NEW PERSON file
; BGPMUTF = timeframe variable - "C"=current year; "P"=previous year; "B"=baseline year
ZIS ;call to XBDBQUE
F ;report start date
DRIVER ;
XIT ;
NODEV1 ;
ENTRY ;
SETIND ;
GI ;gather all measures
ZIS1 ;
LISTS ;any lists with measures?
SI ;
INTRO ;
HI ;
COMM ;

External References

Name Field # of Occurrence
^%ZIS ZIS+5
^%ZISC DRIVER+5, NODEV1+3, XIT+1
^%ZTLOAD TSKMN+5
KILL^AUPNPAT XIT+5, XIT+13
ENH^BGPMUDSI SI+2
EN^BGPMUDSL LISTS+9
PH^BGPMUDSL SUM+10
RT^BGPMUDSL LISTS+11
^BGPMUEHD DRIVER+2, NODEV1+1
GETBE^BGPMUEP TP+8
MUCHECK^BGPMUEP ENTRY+4
^BGPMUPP DRIVER+4, NODEV1+2
^DIR TP+3, TP+14, TP+29, BY+17, EP+3, BEN+4, LISTS+4, LISTS+5, EOP+5, F+6
^XBDBQUE NODEV+2
^XBFMK XIT+14
EN^XBVK XIT+2
$$FMADD^XLFDT TP+23
$$FMTE^XLFDT TP+27, BY+27, BY+28, BY+29, SUM+4, SUM+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CTR("IHS Meaningful Use Clinical Quality Measure Report",80)
  • Line Location: ENTRY+2
Function Call: WRITE
  • Prompt: !,$$CTR("Report on all Patients regardless of Community of Residence",80),!!
  • Line Location: ENTRY+3
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+14
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: BY+21
Function Call: WRITE
  • Prompt: !!,"The date ranges for this report are:"
  • Line Location: BY+26
Function Call: WRITE
  • Prompt: !?5,"Report Period: ",?31,$$FMTE^XLFDT(BGPBD)," to ",?31,$$FMTE^XLFDT(BGPED)
  • Line Location: BY+27
Function Call: WRITE
  • Prompt: !?5,"Previous Year Period: ",?31,$$FMTE^XLFDT(BGPPBD)," to ",?31,$$FMTE^XLFDT(BGPPED)
  • Line Location: BY+28
Function Call: WRITE
  • Prompt: !?5,"Baseline Period: ",?31,$$FMTE^XLFDT(BGPBBD)," to ",?31,$$FMTE^XLFDT(BGPBED)
  • Line Location: BY+29
Function Call: WRITE
  • Prompt: !!
  • Line Location: EP+1
Function Call: WRITE
  • Prompt: !!,"no measures selected"
  • Line Location: GI+2
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+10
Function Call: WRITE
  • Prompt: !!,"Enter the reporting period start date."
  • Line Location: F+2
Routine Call
  • DIR
  • Line Location:
    • TP+3
    • TP+14
    • TP+29
    • BY+17
    • EP+3
    • BEN+4
    • LISTS+4
    • LISTS+5
    • EOP+5
    • F+6
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+5

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$CTR ENTRY+2, ENTRY+3, SUM+2
BY TP+9, BY+21
COMM BEN+5
HI GI+1
LISTS SUM+11, HI+2, SI+4, LISTS+11
NODEV ZIS+4
SETIND EP+6, GI+2
SI EP+6
TP TP+19, TP+26, BY+18, BY+19
TSKMN ZIS1+4
XIT INTRO+1, SETIND+1, TP+4, TP+8, EP+4, 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+10!
B XIT+10!
BD XIT+12!
>> BGP0RPTH SETIND+4*, TP+1*
>> BGPANS TP+5*, TP+8, TP+9
>> BGPBBD BY+24*, BY+29, SUM+5
>> BGPBD TP+2*, TP+8, TP+21*, TP+22*, TP+27, BY+2, BY+5, BY+6, BY+24, BY+27
, SUM+4
>> BGPBED BY+25*, BY+29, 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+7, BY+10, BY+11, BY+25, BY+27
, SUM+4
BGPIND EP+6, GI+2, SI+1!, SI+3
BGPIND( SUM+7, HI+1*
>> BGPINDT SETIND+2*, EP+5*, EP+6, GI+1
>> BGPLEN TP+6*, TP+23
BGPLIST LISTS+1!, LISTS+8!, LISTS+10, LISTS+11
BGPLIST( SUM+9
>> BGPMUT SETIND+5*
>> BGPMUYF SETIND+3*, SUM+7, SUM+9, HI+1
>> BGPPBD BY+6*, BY+28
>> BGPPED BY+11*, BY+28
>> BGPPER TP+7*, TP+18*, TP+19, TP+21, TP+23, BY+22, F+1*, F+10*
>> BGPQUIT ENTRY+5, LISTS+11
>> BGPROT SUM+11, ZIS+4
>> BGPRTYPE SETIND+4*, TP+1*
>> BGPTP TP+2*
>> BGPVDT TP+7*, TP+17*, TP+18, BY+13*, BY+20*, BY+22, F+1*, F+9*, F+10
C XIT+10!
D XIT+10!
DA TP+3!, TP+29!, EP+3!, BEN+4!, LISTS+5!
DFN XIT+6!
DFOUT EOP+4!
DIADD XIT+4!
DIR TP+3!, TP+14!, TP+29!, BY+17!, EP+3!, BEN+4!, LISTS+4!, LISTS+5!, XIT+3!, EOP+3~
, EOP+4!, EOP+5!, F+6!
DIR("?" TP+13*, F+5*
DIR("A" TP+3*, TP+12*, TP+29*, BY+16*, EP+3*, BEN+2*, LISTS+4*, LISTS+5*, F+4*
DIR("B" TP+29*, BEN+3*, LISTS+5*
DIR(0 TP+3*, TP+11*, TP+29*, BY+15*, EP+2*, BEN+2*, LISTS+4*, LISTS+5*, EOP+5*, F+3*
DIRUT TP+4, TP+15, TP+16*, TP+30, BY+18, BY+19*, EP+4, BEN+5, LISTS+6, XIT+3!
, EOP+4!, F+7, F+8*
DLAYGO XIT+4!
DLOUT EOP+4!
DOD XIT+3!
DT TP+26
DTOUT EOP+4!
DUOUT TP+16, BY+19, XIT+3!, EOP+4!, F+8
DUZ LISTS+3, USR+1
DUZ(2 LOC+1
E XIT+10!
ED XIT+12!
F XIT+10!
G XIT+10!
H XIT+10!
I XIT+10!
IO DRIVER+3, TSKMN+1
IO("DOC" TSKMN+2
IO("Q" ZIS1+4
IO("S" EOP+2
IOCPU TSKMN+5, XIT+6!
IOF ENTRY+1, SUM+1
IOM TSKMN+3, CTR+1
ION TSKMN+1
IOP ZIS+4!
IOSL TSKMN+3
IOST TSKMN+1, EOP+1
IOT XIT+6!, EOP+2
J XIT+10!
K XIT+10!
L XIT+10!
M XIT+10!
N XIT+10!, XIT+11!
N1 XIT+11!
N2 XIT+11!
N3 XIT+11!
N4 XIT+11!
N5 XIT+11!
N6 XIT+11!
O XIT+10!
P XIT+10!
Q XIT+10!
R XIT+10!
S XIT+10!
T XIT+10!
U SUM+7, SUM+9, USR+1, LOC+1
V XIT+10!
W XIT+10!
X BY+1~, BY+22*, BY+23*, BY+24, BY+25, SUM+7*, SUM+9*, HI+1*, XIT+9!, XIT+10!
, CTR~, CTR+1
X1 BY+1~, BY+2*, BY+5*, BY+6, BY+7*, BY+10*, BY+11, XIT+9!
X2 BY+1~, BY+2*, BY+3*, BY+4*, BY+5, BY+6, BY+7*, BY+8*, BY+9*, BY+10
, BY+11, XIT+9!
X3 XIT+9!
X4 XIT+9!
X5 XIT+9!
X6 XIT+9!
XBNS NODEV+1*, XIT+7!
XBRC NODEV+1*, XIT+7!
XBRP NODEV+1*, XIT+7!
XBRX NODEV+1*, XIT+7!
Y TP+5, TP+6, TP+17, TP+31, BY+20, BY+21, EP+5, BEN+6, LISTS+6, LISTS+7
, XIT+10!, CTR~, CTR+1, F+9
Z XIT+10!
ZTCPU TSKMN+5*, XIT+8!
ZTDESC TSKMN+5*, XIT+8!
>> ZTDTH TSKMN+5*
ZTIO TSKMN+1*, TSKMN+2*, TSKMN+3*, XIT+8!
ZTQUEUED XIT+2, XIT+8!, EOP+2
ZTREQ XIT+2*, XIT+8!
ZTRTN TSKMN+5*, XIT+8!
ZTSAVE TSKMN+4!
ZTSAVE("BGP*" TSKMN+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All