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

Package: IHS GPRA Information System

Routine: BGP8DAP


Information

BGP8DAP ;IHS/CMI/LAB - GPRA AREA DRIVER;

Source Information

Source file <BGP8DAP.m>

Call Graph

Call Graph Total: 19

Package Total Call Graph
IHS GPRA Information System 9 ^BGP8D1  ENDDATE^BGP8DGPU  ^BGP8DP  EN^BGP8DSI  (EN,PT,RT,TEXT)^BGP8DSL  PAUSE^BGP8DU  REPORT^BGP8UTL  $$DEMOCHK^BGP8UTL2  
TAXCHK^BGP8XTCH  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  
IHS VA Utilities 3 ^XBDBQUE  ^XBFMK  EN^XBVK  
VA Fileman 2 ^DIK  ^DIR  
IHS Patient 1 KILL^AUPNPAT  

Entry Points

Name Comments DBIA/ICR reference
BEN ;
CHKY ;
DI ;
SUM ;display summary of this report
WI ;
USR() ;EP - Return name of current user from ^VA(200.
EOP ;EP - End of page.
TSKMN ;EP ENTRY POINT FROM TASKMAN
HOME ;
BY ;get baseline 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
PI ;
XIT ;
CI ;
EI ;
ZIS ;call to XBDBQUE
F ;calendar year
AI ;
DRIVER ;
II ;
COMM ;
SETIND ;
GI ;gather all measures
ZIS1 ;
LISTS ;any lists with measures?
SI ;
INTRO ;
NODEV1 ;

External References

Name Field # of Occurrence
^%ZIS ZIS+5
^%ZISC DRIVER+4, NODEV1+3, XIT+1
^%ZTLOAD TSKMN+5
KILL^AUPNPAT XIT+5, XIT+10
^BGP8D1 DRIVER+1, NODEV1+1
ENDDATE^BGP8DGPU TP+6
^BGP8DP DRIVER+3, NODEV1+2
EN^BGP8DSI SI+2
EN^BGP8DSL LISTS+9
PT^BGP8DSL SUM+16
RT^BGP8DSL LISTS+11
TEXT^BGP8DSL SUM+14
PAUSE^BGP8DU GI+11
REPORT^BGP8UTL ZIS+1
$$DEMOCHK^BGP8UTL2 GI+10
TAXCHK^BGP8XTCH GI+9
^DIK ZIS1+1, ZIS1+2, ZIS1+3
^DIR SETIND+6, TP+3, TP+20, BY+5, BEN+4, LISTS+4, LISTS+5, EOP+5, CHKY+2, F+6
^XBDBQUE NODEV+2
^XBFMK XIT+11
EN^XBVK XIT+2
$$FMADD^XLFDT TP+14
$$FMTE^XLFDT TP+18, BY+17, BY+18, BY+19, SUM+4, SUM+5, SUM+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CTR("IHS 2018 Clinical Performance Measure Report (Selected Measures)",80)
  • Line Location: BGP8DAP+5
Function Call: WRITE
  • Prompt: !,$$CTR("Report on all Patients regardless of Community of Residence",80),!!
  • Line Location: BGP8DAP+6
Function Call: WRITE
  • Prompt: !,"This will produce a Performance Measure Report for one or more measures for a"
  • Line Location: INTRO+2
Function Call: WRITE
  • Prompt: !,"year period you specify. You will be asked to provide: 1) the"
  • Line Location: INTRO+3
Function Call: WRITE
  • Prompt: !,"reporting period and, 2) the baseline period to compare data to."
  • Line Location: INTRO+4
Function Call: WRITE
  • Prompt: !!,"NOTE: With this option all patients in your database will be reviewed",!,"regardless of what community they live in. You will NOT be asked to enter",!,"a community taxonomy name. Since this may cause the report to be",!
  • Line Location: INTRO+5
Function Call: WRITE
  • Prompt: "very large, the SEL option will be limited to no more than 15 topics",!,"at one time.",!
  • Line Location: INTRO+6
Function Call: WRITE
  • Prompt: !!,"no measures selected"
  • Line Location: GI+8
Function Call: WRITE
  • Prompt: !!,"Exiting Report....."
  • Line Location: GI+11
Function Call: WRITE
  • Prompt: !,"Year not entered.",!
  • Line Location: TP+8
Function Call: WRITE
  • Prompt: !!,"Enter the Baseline Year to compare data to.",!,"Use a 4 digit year, e.g. 2010"
  • Line Location: BY+2
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: BY+9
Function Call: WRITE
  • Prompt: !!,"The date ranges for this report are:"
  • Line Location: BY+16
Function Call: WRITE
  • Prompt: !?5,"Report Period: ",?31,$$FMTE^XLFDT(BGPBD)," to ",?31,$$FMTE^XLFDT(BGPED)
  • Line Location: BY+17
Function Call: WRITE
  • Prompt: !?5,"Previous Year Period: ",?31,$$FMTE^XLFDT(BGPPBD)," to ",?31,$$FMTE^XLFDT(BGPPED)
  • Line Location: BY+18
Function Call: WRITE
  • Prompt: !?5,"Baseline Period: ",?31,$$FMTE^XLFDT(BGPBBD)," to ",?31,$$FMTE^XLFDT(BGPBED)
  • Line Location: BY+19
Function Call: WRITE
  • Prompt: !!,"Home Location not found in Site File!!",!,"PHN Visits counts to Home will be calculated using clinic 11 only!!"
  • Line Location: HOME+2
Function Call: WRITE
  • Prompt: !,"Your HOME location is defined as: ",$P(^DIC(4,BGPHOME,0),U)," asufac: ",$P(^AUTTLOC(BGPHOME,0),U,10)
  • Line Location: HOME+3
Function Call: WRITE
  • Prompt: !,$$CTR("SUMMARY OF 2018 CLINICAL MEASURE PERFORMANCE 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,"Previous Year Period: ",?31,$$FMTE^XLFDT(BGPPBD)," to ",?31,$$FMTE^XLFDT(BGPPED)
  • Line Location: SUM+5
Function Call: WRITE
  • Prompt: !?5,"Baseline Period: ",?31,$$FMTE^XLFDT(BGPBBD)," to ",?31,$$FMTE^XLFDT(BGPBED)
  • Line Location: SUM+6
Function Call: WRITE
  • Prompt: !!,"The COMMUNITY Taxonomy to be used is: ",$P(^ATXAX(BGPTAXI,0),U)
  • Line Location: SUM+7
Function Call: WRITE
  • Prompt: !!,"ALL Communities included."
  • Line Location: SUM+8
Function Call: WRITE
  • Prompt: !,"The HOME location is: ",$P(^DIC(4,BGPHOME,0),U)," ",$P(^AUTTLOC(BGPHOME,0),U,10)
  • Line Location: SUM+9
Function Call: WRITE
  • Prompt: !,"No HOME Location selected."
  • Line Location: SUM+10
Function Call: WRITE
  • Prompt: $P(^BGPINDR(X,0),U,3)," ; "
  • Line Location: SUM+11
Function Call: WRITE
  • Prompt: !!,"Lists will be produced for these measures: "
  • Line Location: SUM+12
Function Call: WRITE
  • Prompt: $P(^BGPINDR(X,0),U,3)," ; "
  • Line Location: SUM+13
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: !!,"The baseline year and the previous year time periods are the same.",!!
  • Line Location: CHKY+1
Function Call: WRITE
  • Prompt: !!,"Enter the Calendar Year for the report END date. Use a 4 digit",!,"year, e.g. 2018"
  • Line Location: F+2
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: F+10
Routine Call
  • DIR
  • Line Location:
    • SETIND+6
    • TP+3
    • TP+20
    • BY+5
    • BEN+4
    • LISTS+4
    • LISTS+5
    • EOP+5
    • CHKY+2
    • F+6
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BGPGPDCR - [#90560.03] Classic Fileman Calls
^BGPGPDPR - [#90560.04] Classic Fileman Calls
^BGPGPDBR - [#90560.05] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ATXAX - [#9002226] SUM+7
^AUTTLOC - [#9999999.06] HOME+3, SUM+9
^BGPINDR - [#90560.01] SUM+11, SUM+13
^BGPINDRC - [#90560.02] DI+1, II+1, PI+1, CI+1, AI+1, WI+1, EI+1
^BGPINDRC("AAST" AI+1
^BGPINDRC("ACARD" CI+1
^BGPINDRC("ADM" DI+1
^BGPINDRC("AEL" EI+1
^BGPINDRC("AIPC" II+1
^BGPINDRC("APQA" PI+1
^BGPINDRC("AWH" WI+1
^BGPSITE - [#90241.02] HOME+1
^DIC(4 - [#4] HOME+3, SUM+9, LOC+1
^VA(200 - [#200] USR+1
^XUSEC("BGPZ PATIENT LISTS" LISTS+3

Label References

Name Line Occurrences
$$CTR BGP8DAP+5, BGP8DAP+6, SUM+2
AI GI+6
BEN HOME+2
BY BY+9, BY+20
CHKY BY+20
CI GI+2
COMM BEN+5
DI GI+1
F TP+7, F+10
II GI+4
LISTS HOME+4, SUM+15, SUM+17, SI+4, LISTS+11
NODEV ZIS+4
PI GI+5
SETIND SETIND+9, GI+8
SI SETIND+9
TP TP+8, TP+17, BY+6, BY+7
TSKMN ZIS1+4
WI GI+3
XIT INTRO+1, SETIND+1, SETIND+7, GI+11, TP+4, ZIS+2, ZIS+3, ZIS+4, ZIS1+1, ZIS1+2
, ZIS1+3, DRIVER+5, 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!
>> BGPALLPT COMM+2*, SUM+7, SUM+8
BGPBBD BY+12*, BY+19, BY+20!, SUM+6
>> BGPBD TP+2*, TP+9*, TP+10*, TP+11*, TP+12*, TP+15*, TP+16*, TP+18, BY+12, BY+14
, BY+17, SUM+4
BGPBED BY+13*, BY+19, BY+20!, SUM+6
>> BGPBEN BEN+1*, BEN+6*
>> BGPDELT ZIS+4, ZIS+5
>> BGPDO TP+17, TP+20*, TP+21*, TP+22*
>> BGPED TP+2*, TP+9*, TP+10*, TP+11*, TP+12*, TP+15*, TP+16*, TP+17, TP+18, BY+13
, BY+15, BY+17, SUM+4
>> BGPHOME HOME+1*, HOME+2, HOME+3, SUM+9, SUM+10
BGPIND SETIND+9, GI+8, SI+1!, SI+3
BGPIND( SUM+11, DI+1*, II+1*, PI+1*, CI+1*, AI+1*, WI+1*, EI+1*
>> BGPINDG SETIND+2*, SETIND+8*, SETIND+9, GI+1, GI+2, GI+3, GI+4, GI+5, GI+6, HOME+4
BGPLIST LISTS+1!, LISTS+8!, LISTS+10, LISTS+11
BGPLIST( SUM+13
BGPPBD BY+14*, BY+18, BY+20!, SUM+5
BGPPED BY+15*, BY+18, BY+20!, SUM+5
>> BGPPER TP+8, TP+9, TP+10, TP+11, TP+12, TP+14, TP+15*, TP+16*, BY+10, F+1*
, F+11*
>> BGPQTR TP+5*, TP+6, TP+7, TP+9, TP+10, TP+11, TP+12, TP+13
BGPQUIT COMM+3!, ZIS+2, LISTS+11
>> BGPROT SUM+17, ZIS+4
>> BGPRPT ZIS+3, ZIS1+1, ZIS1+2, ZIS1+3
>> BGPRTYPE SETIND+3*, TP+1*
BGPTAX COMM+1!
>> BGPTAXI SUM+7
>> BGPTP TP+2*
>> BGPVDT BY+1*, BY+8*, BY+10, F+1*, F+9*, F+11
>> BGPYRPTH SETIND+3*, TP+1*
C XIT+7!
D TP+14*, TP+15, TP+16, XIT+7!
DA SETIND+6!, TP+3!, TP+20!, BEN+4!, ZIS1+1*, ZIS1+2*, ZIS1+3*, LISTS+5!, CHKY+2!
DFOUT EOP+4!
DIADD XIT+4!
DIK ZIS1+1*!, ZIS1+2*!, ZIS1+3*!
DIR SETIND+6!, TP+3!, TP+20!, BY+5!, BEN+4!, LISTS+4!, LISTS+5!, XIT+3!, EOP+3~, EOP+4!
, EOP+5!, CHKY+2!, F+6!
DIR("?" F+5*
DIR("A" SETIND+6*, TP+3*, TP+20*, BY+4*, BEN+2*, LISTS+4*, LISTS+5*, CHKY+2*, F+4*
DIR("B" TP+20*, BEN+3*, LISTS+5*, CHKY+2*
DIR(0 SETIND+4*, SETIND+5*, TP+3*, TP+20*, BY+3*, BEN+2*, LISTS+4*, LISTS+5*, EOP+5*, CHKY+2*
, F+3*
DIRUT SETIND+7, TP+4, TP+21, BY+6, BY+7*, BEN+5, SUM+15, LISTS+6, XIT+3!, EOP+4!
, CHKY+3, F+7, F+8*
DLAYGO XIT+4!
DLOUT EOP+4!
DOD XIT+3!
DT TP+17
DTOUT EOP+4!
DUOUT BY+7, XIT+3!, EOP+4!, F+8
DUZ LISTS+3, USR+1
DUZ(2 HOME+1, LOC+1
E XIT+7!
ED XIT+9!
F XIT+7!
G XIT+7!
H XIT+7!
I XIT+7!
IO DRIVER+2, TSKMN+1
IO("DOC" TSKMN+2
IO("Q" ZIS1+4
IO("S" EOP+2
>> IOCPU TSKMN+5
IOF BGP8DAP+4, SUM+1
IOM TSKMN+3, CTR+1
ION TSKMN+1
IOP ZIS+4!
IOSL TSKMN+3
IOST TSKMN+1, EOP+1
>> IOT 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!
>> POP ZIS1+1, ZIS1+2, ZIS1+3
Q XIT+7!
R XIT+7!
S XIT+7!
T XIT+7!
U HOME+1, HOME+3, SUM+7, SUM+9, SUM+11, SUM+13, DI+1, II+1, PI+1, CI+1
, AI+1, WI+1, EI+1, USR+1, LOC+1
V XIT+7!
W XIT+7!
X GI+10*, GI+11, BY+10*, BY+11*, BY+12, BY+13, SUM+11*, SUM+13*, DI+1*, II+1*
, PI+1*, CI+1*, AI+1*, WI+1*, EI+1*, XIT+6!, XIT+7!, CTR~, CTR+1
X1 XIT+6!
X2 XIT+6!
X3 XIT+6!
X4 XIT+6!
X5 XIT+6!
X6 XIT+6!
>> XBNS NODEV+1*
>> XBRC NODEV+1*
>> XBRP NODEV+1*
>> XBRX NODEV+1*
Y SETIND+8, TP+5, TP+22, BY+8, BY+9, BY+20!, BEN+6, LISTS+6, LISTS+7, XIT+7!
, CTR~, CTR+1, CHKY+3*, F+9, F+10
Z XIT+7!
>> ZTCPU TSKMN+5*
>> ZTDESC TSKMN+5*
>> ZTDTH TSKMN+5*
>> ZTIO TSKMN+1*, TSKMN+2*, TSKMN+3*
>> ZTQUEUED XIT+2, EOP+2
>> ZTREQ XIT+2*
>> ZTRTN TSKMN+5*
ZTSAVE TSKMN+4!
ZTSAVE("BGP*" TSKMN+4*
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