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 |  Marked Items |  All
Print Page as PDF
Routine: BGP3DG

Package: IHS GPRA Information System

Routine: BGP3DG


Information

BGP3DG ; IHS/CMI/LAB - IHS GPRA - report for area export ;

Source Information

Source file <BGP3DG.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
IHS GPRA Information System 5 ^BGP3D1  ^BGP3DP  PT^BGP3DSL  TAXCHK^BGP3TXCH  (GS,REPORT)^BGP3UTL  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
IHS VA Utilities 3 ^XBDBQUE  ^XBFMK  EN^XBVK  
VA Fileman 3 ^DIC  ^DIK  ^DIR  
IHS Patient 1 KILL^AUPNPAT  

Entry Points

Name Comments DBIA/ICR reference
CHKY ;
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
HOME ;
BY ;get baseline year
D ;get date range.
OLD ;
LOC() ;EP - Return location name from file 4 based on DUZ(2).
COM1
CTR(X,Y) ;EP - Center X in a field Y wide.
TP ;get time period
A ;area dir year
ZIS ;call to XBDBQUE
F ;fiscal year
DRIVER ;
Q ;which quarter
XIT ;
GI ;gather all gpra indicators
INTRO ;
COMM ;

External References

Name Field # of Occurrence
^%ZIS ZIS+7
^%ZISC DRIVER+4, XIT+1
^%ZTLOAD TSKMN+5
KILL^AUPNPAT XIT+5, XIT+9
^BGP3D1 DRIVER+1
^BGP3DP DRIVER+3
PT^BGP3DSL SUM+11
TAXCHK^BGP3TXCH INTRO+6
GS^BGP3UTL DRIVER+5
REPORT^BGP3UTL ZIS+1
^DIC COMM+5
^DIK ZIS+8, ZIS+9, ZIS+10
^DIR TP+4, EOP+5, D+2, D+5, Q+4, CHKY+2, A+7, F+8
^XBDBQUE OLD+2
^XBFMK COMM+4, XIT+10
EN^XBVK XIT+2
$$FMTE^XLFDT BY+18, BY+19, BY+20, SUM+4, SUM+5, SUM+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CTR("IHS FY03 GPRA Indicator Report for Export to Area",80)
  • Line Location: BGP3DG+5
Function Call: WRITE
  • Prompt: !!,"This will produce a GPRA Indicator Report for one or more indicators for a year",!,"period ending on a date you specify. You will be asked to provide: 1) the",!,"baseline year to"
  • Line Location: INTRO+2
Function Call: WRITE
  • Prompt: " compare data to, and 2) the Community taxonomy to determine",!,"which patients will be included.",!
  • Line Location: INTRO+3
Function Call: WRITE
  • Prompt: !,"This option will produce a report in export format for the Area Office to use",!,"in Area aggregated data. Depending on site-specific configuration, the",!
  • Line Location: INTRO+4
Function Call: WRITE
  • Prompt: "export file will either be automatically transmitted directly to the Area or ",!,"the site will have to send the file manually.",!
  • Line Location: INTRO+5
Function Call: WRITE
  • Prompt: !!,"The baseline year is FY 2000.",!
  • Line Location: BY+1
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: BY+10
Function Call: WRITE
  • Prompt: !!,"The date ranges for this report are:"
  • Line Location: BY+17
Function Call: WRITE
  • Prompt: !?5,"Reporting Period: ",?31,$$FMTE^XLFDT(BGPBD)," to ",?31,$$FMTE^XLFDT(BGPED)
  • Line Location: BY+18
Function Call: WRITE
  • Prompt: !?5,"Previous Year Period: ",?31,$$FMTE^XLFDT(BGPPBD)," to ",?31,$$FMTE^XLFDT(BGPPED)
  • Line Location: BY+19
Function Call: WRITE
  • Prompt: !?5,"Baseline Period: ",?31,$$FMTE^XLFDT(BGPBBD)," to ",?31,$$FMTE^XLFDT(BGPBED)
  • Line Location: BY+20
Function Call: WRITE
  • Prompt: !!,"Specify the community taxonomy to determine which patients will be",!,"included in the report. You should have created this taxonomy using QMAN",!,"or the Taxonomy Setup option.",!
  • Line Location: COMM+1
Function Call: WRITE
  • Prompt: !!,"There are no communities in that taxonomy."
  • Line Location: COM1+4
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 GPRA 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,"Reporting 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: !,"The HOME location is: ",$P(^DIC(4,BGPHOME,0),U)," ",$P(^AUTTLOC(BGPHOME,0),U,10)
  • Line Location: SUM+8
Function Call: WRITE
  • Prompt: !,"No HOME Location selected."
  • Line Location: SUM+9
Function Call: WRITE
  • Prompt: $P($T(@X),";;",2)," ; "
  • Line Location: SUM+10
Function Call: WRITE
  • Prompt: !!,"A file will be created called BG03",$P(^AUTTLOC(DUZ(2),0),U,10)_"."_BGPRPT," and will reside",!,"in the export/public directory.",!
  • Line Location: ZIS+4
Function Call: WRITE
  • Prompt: !,"Depending on your site configuration, this file may need to be manually",!,"sent to your Area Office.",!
  • Line Location: ZIS+5
Function Call: WRITE
  • Prompt: !,"Report Aborted"
  • Line Location: ZIS+8
Function Call: WRITE
  • Prompt: !,"Report Aborted"
  • Line Location: ZIS+9
Function Call: WRITE
  • Prompt: !,"Report Aborted"
  • Line Location: ZIS+10
Function Call: WRITE
  • Prompt: !
  • Line Location: D+1
Function Call: WRITE
  • Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date."
  • Line Location: D+9
Function Call: WRITE
  • Prompt: !,"No FY entered"
  • Line Location: Q+2
Function Call: WRITE
  • Prompt: !!,"Your report will use the last day of the quarter you selected as the End Date",!,"of the Report. Depending on the indicator, the report will calculate based",!,"on data from at least the year prior"
  • Line Location: Q+6
Function Call: WRITE
  • Prompt: " to the Report End Date, not just on the",!,"quarter selected.",!
  • Line Location: Q+7
Function Call: WRITE
  • Prompt: !!,"The baseline year and the previous year time periods are the same.",!!
  • Line Location: CHKY+1
Function Call: WRITE
  • Prompt: !
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !,"Enter the appropriate AREA REPORTING YEAR. Use a 4 digit year, e.g. 2002"
  • Line Location: A+3
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: A+11
Function Call: WRITE
  • Prompt: !
  • Line Location: F+2
Function Call: WRITE
  • Prompt: !,"Enter the Fiscal Year (FY). Use a 4 digit year, e.g. 2002, 2003"
  • Line Location: F+4
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: F+12
Routine Call
  • DIC
  • Line Location:
    • COMM+5
Routine Call
  • DIR
  • Line Location:
    • TP+4
    • EOP+5
    • D+2
    • D+5
    • Q+4
    • CHKY+2
    • A+7
    • F+8
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ATXAX - [#9002226] Classic Fileman Calls
^BGPGPDC - [#90243] Classic Fileman Calls
^BGPGPDP - [#90243.01] Classic Fileman Calls
^BGPGPDB - [#90243.02] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ATXAX - [#9002226] COM1+1, COM1+2, SUM+7
^AUTTLOC - [#9999999.06] HOME+3, SUM+8, ZIS+4
^BGPINDC - [#90242] GI+1
^BGPINDC("AGPRA" GI+1
^BGPSITE - [#90241.02] HOME+1
^DIC(4 - [#4] HOME+3, SUM+8, LOC+1
^VA(200 - [#200] USR+1

Label References

Name Line Occurrences
$$CTR BGP3DG+5, SUM+2
@( TP+7
A A+11
BY BY+21
CHKY BY+21
COMM COM1+4, SUM+12
D D+8
F Q+1, F+12
GI HOME+2
TP TP+8
TSKMN ZIS+11
XIT INTRO+1, TP+1, TP+5, ZIS+2, ZIS+3, ZIS+8, ZIS+9, ZIS+10, DRIVER+6, TSKMN+5
, OLD+3

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+7!*
A XIT+7!
B XIT+7!
BGPBBD BY+13*, BY+20, BY+21!, SUM+6
>> BGPBD TP+3*, BY+13, BY+15, BY+18, SUM+4, D+3*, D+8, Q+9*, Q+10*, Q+11*
, Q+12*, A+12*, F+13*
BGPBED BY+14*, BY+20, BY+21!, SUM+6
>> BGPDELT ZIS+7
>> BGPED TP+3*, BY+14, BY+16, BY+18, SUM+4, D+6*, D+8, Q+9*, Q+10*, Q+11*
, Q+12*, A+12*, F+13*
>> BGPHOME HOME+1*, HOME+2, HOME+3, SUM+8, SUM+9
>> BGPIND( GI+1*, SUM+10
>> BGPINDT GI+2*
BGPPBD BY+15*, BY+19, BY+21!, SUM+5
BGPPED BY+16*, BY+19, BY+21!, SUM+5
>> BGPPER BY+11, Q+2, Q+9, Q+10, Q+11, Q+12, A+12*, F+1*, F+13*
>> BGPQTR Q+8*
>> BGPQUIT TP+8, ZIS+2, D+2*, D+5*, Q+2*, Q+5*, A+9*, F+10*
>> BGPROT SUM+12
>> BGPRPT ZIS+3, ZIS+4, ZIS+8, ZIS+9, ZIS+10
>> BGPRTYPE TP+2*
BGPTAX COMM+2!, COM1+4
BGPTAX( COM1+2*
>> BGPTAXI COMM+3*, COMM+7*, COM1+1, COM1+2, SUM+7
>> BGPTP TP+3*, TP+6*, TP+7
>> BGPVDT BY+2*, BY+9*, BY+11, A+2*, A+10*, A+12, F+3*, F+11*, F+13
C XIT+7!
D XIT+7!
DA TP+4!, ZIS+8*, ZIS+9*, ZIS+10*, Q+4!, CHKY+2!
DFOUT EOP+4!
DIADD XIT+4!
DIC COMM+5*, A+8!, F+9!
DIC("A" COMM+5*
DIC("S" COMM+5*
DIC(0 COMM+5*
DIK ZIS+8*!, ZIS+9*!, ZIS+10*!
DIR TP+4!, XIT+3!, EOP+3~, EOP+4!, EOP+5!, D+1!, D+2!, D+4!, D+5!, Q+4!
, CHKY+2!, A+7!, F+8!
DIR("?" Q+3*, A+6*, F+7*
DIR("A" TP+4*, D+1*, D+4*, Q+4*, CHKY+2*, A+5*, F+6*
DIR("B" TP+4*, CHKY+2*
DIR(0 TP+4*, EOP+5*, D+1*, D+4*, Q+4*, CHKY+2*, A+4*, F+5*
DIRUT TP+5, XIT+3!, D+1!, D+4!, Q+5, CHKY+3, A+9*, F+10*
DIRUTUT EOP+4!
DLAYGO XIT+4!
DLOUT EOP+4!
DOD XIT+3!
DTOUT EOP+4!
DUOUT XIT+3!, EOP+4!, A+9, F+10
DUZ USR+1
DUZ(2 HOME+1, ZIS+4, LOC+1
E XIT+7!
F XIT+7!
G XIT+7!
H XIT+7!
I XIT+7!
IO DRIVER+2, TSKMN+1
IO("DOC" TSKMN+2
IO("Q" ZIS+11
IO("S" EOP+2
>> IOCPU TSKMN+5
IOF BGP3DG+4, SUM+1
IOM TSKMN+3, CTR+1
ION TSKMN+1
IOP ZIS+7!
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 ZIS+8, ZIS+9, ZIS+10
Q XIT+7!
R XIT+7!
S XIT+7!
T XIT+7!
U COM1+2, HOME+1, HOME+3, GI+1, SUM+7, SUM+8, ZIS+4, USR+1, LOC+1
V XIT+7!
W XIT+7!
X BY+11*, BY+12*, BY+13, BY+14, COM1*, COM1+1*, COM1+2, GI+1*, SUM+10*, 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 OLD+1*
>> XBRC OLD+1*
>> XBRP OLD+1*
>> XBRX OLD+1*
Y TP+6, BY+21!, COMM+6, COMM+7, GI+1*, XIT+7!, CTR~, CTR+1, D+2, D+3
, D+5, D+6, Q+5, Q+8, Q+9, Q+10, Q+11, Q+12, CHKY+3*, A+10
, A+11, F+11, F+12
Z XIT+7!
>> ZTCPU TSKMN+5*
>> ZTDESC TSKMN+5*
>> ZTDTH TSKMN+5*
>> ZTIO TSKMN+1*, TSKMN+2*, TSKMN+3*
>> ZTQUEUED EOP+2
>> ZTRTN TSKMN+5*
ZTSAVE TSKMN+4!
ZTSAVE("BGP*" TSKMN+4*

Marked Items

Name Field # of Occurrence
$T(@X SUM+10
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 |  Marked Items |  All