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

Package: IHS GPRA Information System

Routine: BGPDARP


Information

BGPDARP ; IHS/CMI/LAB - IHS area GPRA ;

Source Information

Source file <BGPDARP.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
IHS GPRA Information System 4 ^BGPD1  EN^BGPDL  ^BGPDP  TAXCHK^BGPDT  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
IHS VA Utilities 3 ^XBFMK  ^XBGSAVE  EN^XBVK  
VA Fileman 3 ^DIC  ^DIK  ^DIR  
IHS Patient 1 KILL^AUPNPAT  

Entry Points

Name Comments DBIA/ICR reference
GS ;EP called from xbnew
DATES ;
EXIT1 ;
ZIS ;call to XBDBQUE
LOC() ;EP - Return location name from file 4 based on DUZ(2).
COM1
CTR(X,Y) ;EP - Center X in a field Y wide.
EOP ;EP - End of page.
DRIVER ;
EXIT ;
LISTS ;any lists with indicators?
N
SET6 ;
INTRO ;
COMM ;
TSKMN ;EP ENTRY POINT FROM TASKMAN
Y ;fiscal year
HOME ;
INDSL ;;
BY ;get baseline year
USR() ;EP - Return name of current user from ^VA(200.

External References

Name Field # of Occurrence
^%ZIS ZIS+15
HOME^%ZIS EXIT1+1, EXIT+7
^%ZISC DRIVER+4
^%ZTLOAD TSKMN+5
KILL^AUPNPAT EXIT+5
^BGPD1 DRIVER+1
EN^BGPDL LISTS+9
^BGPDP DRIVER+3
TAXCHK^BGPDT INTRO+8
^DIC COMM+5, HOME+1, ZIS+4
^DIK ZIS+16
^DIR BY+6, LISTS+5, Y+7, EOP+5
^XBFMK COMM+4, ZIS+10, EXIT+6
^XBGSAVE GS+18
EN^XBVK EXIT+1
$$FMTE^XLFDT N+3, N+4, N+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CTR("IHS GPRA Indicator Report - for Export to Area",80)
  • Line Location: BGPDARP+5
Function Call: WRITE
  • Prompt: !!,"This report will produce a GPRA Indicator Report for an AREA DIRECTOR's",!,"reporting year, defined as, JULY 1 to JUNE 30. You will be asked to enter the",!,"year. Reporting year 2002 would be July 1, 2001 though June 30, 2002."
  • Line Location: INTRO+2
Function Call: WRITE
  • Prompt: !,"You will also be asked to enter the BASELINE year that should have been provided",!,"to you by Area office personnel.",!
  • Line Location: INTRO+3
Function Call: WRITE
  • Prompt: !,"In addition you will be asked to enter the community taxonomy to be used.",!!
  • Line Location: INTRO+4
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+5
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+6
Function Call: WRITE
  • Prompt: !,"You will be provided the opportunity to have lists of patients printed for",!,"the indicators. Please be careful when answering this question as the",!,"lists can be very long and use lots of paper.",!
  • Line Location: INTRO+7
Function Call: WRITE
  • Prompt: !
  • Line Location: BY+1
Function Call: WRITE
  • Prompt: !,"Enter the Baseline Year that you would like to compare the data to.",!,"Use a 4 digit year, e.g. 1999, 2000"
  • Line Location: BY+3
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: N+2
Function Call: WRITE
  • Prompt: !?5,"Reporting Period: ",?31,$$FMTE^XLFDT(BGPBD)," to ",?31,$$FMTE^XLFDT(BGPED)
  • Line Location: N+3
Function Call: WRITE
  • Prompt: !?5,"Previous Year Period: ",?31,$$FMTE^XLFDT(BGPPBD)," to ",?31,$$FMTE^XLFDT(BGPPED)
  • Line Location: N+4
Function Call: WRITE
  • Prompt: !?5,"Baseline Period: ",?31,$$FMTE^XLFDT(BGPBBD)," to ",?31,$$FMTE^XLFDT(BGPBED)
  • Line Location: N+5
Function Call: WRITE
  • Prompt: !!,"Specify the community taxonomy to use to determine which",!,"patients will be included in the GPRA report. You should have created",!,"this taxonomy using QMAN or some other software.",!
  • Line Location: COMM+1
Function Call: WRITE
  • Prompt: !!,"There are no communities in that taxonomy."
  • Line Location: COM1+4
Function Call: WRITE
  • Prompt: !,"No HOME Location entered!!! PHN Visits counts to Home will be calculated",!,"using clinic 11 only!!"
  • Line Location: HOME+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: LISTS+3
Function Call: WRITE
  • Prompt: !!,"No lists selected.",!
  • Line Location: LISTS+10
Function Call: WRITE
  • Prompt: !!,"UNABLE TO CREATE REPORT FILE ENTRY - NOTIFY SITE MANAGER!"
  • Line Location: ZIS+4
Function Call: WRITE
  • Prompt: !!,"A file will be created called BG",$P(^AUTTLOC(DUZ(2),0),U,10)_"."_BGPRPT," and will reside",!,"in the export/public directory.",!
  • Line Location: ZIS+12
Function Call: WRITE
  • Prompt: !,"Depending on your site configuration, this file may need to be manually",!,"sent to your Area Office.",!
  • Line Location: ZIS+13
Function Call: WRITE
  • Prompt: !!
  • Line Location: ZIS+15
Function Call: WRITE
  • Prompt: !,"Report Aborted"
  • Line Location: ZIS+16
Function Call: WRITE
  • Prompt: !
  • Line Location: Y+1
Function Call: WRITE
  • Prompt: !,"Enter the appropriate AREA REPORTING YEAR. Use a 4 digit year, e.g. 2002"
  • Line Location: Y+3
Function Call: WRITE
  • Prompt: !!,"Please enter a year only!",!
  • Line Location: Y+11
Routine Call
  • %ZIS
  • Line Location:
    • EXIT1+1
    • EXIT+7
Routine Call
  • DIC
  • Line Location:
    • COMM+5
    • HOME+1
    • ZIS+4
Routine Call
  • DIR
  • Line Location:
    • BY+6
    • LISTS+5
    • Y+7
    • EOP+5
Routine Call
  • %ZIS
  • Line Location:
    • ZIS+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ATXAX - [#9002226] Classic Fileman Calls
^BGPD - [#90240.01] Classic Fileman Calls
^AUTTLOC - [#9999999.06] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ATXAX - [#9002226] COM1+1, COM1+2
^AUTTLOC - [#9999999.06] ZIS+3, ZIS+12, GS+16
^BGPD - [#90240.01] ZIS+7!, ZIS+8*, ZIS+9*, SET6+1, SET6+2, GS+3, GS+4, GS+5, GS+6, GS+7
, GS+8, GS+9, GS+10, GS+11, GS+12, GS+13, GS+14
^BGPDATA GS+1, GS+3!, GS+19, GS+20!, SET6+1*, SET6+2*, GS+4*, GS+6*, GS+8*, GS+10*
, GS+12*, GS+13*
^DIC(4 - [#4] LOC+1
^TMP($J GS+20!
^VA(200 - [#200] GS+17, USR+1

Label References

Name Line Occurrences
$$CTR BGPDARP+5
BY BY+10
COMM COM1+4
DATES BY+8
EXIT INTRO+1, DATES+5, ZIS+4, ZIS+16, DRIVER+6, TSKMN+5
GS DRIVER+5, EXIT1+3
HOME LISTS+6
INTRO COMM+6
LISTS HOME+2
N BY+11
SET6 GS+14
TSKMN ZIS+17
Y DATES+4, Y+11
ZIS LISTS+7

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+15*
A EXIT+3!
B EXIT+3!
>> BGPBBD BY+11*, N+5, ZIS+3
BGPBD DATES+2!, N, N+3, ZIS+2, Y+12*
>> BGPBED BY+11*, N+5, ZIS+3
BGPED DATES+2!, N+1, N+3, ZIS+3, Y+12*
>> BGPFTA DATES+1*
>> BGPHOME HOME+2*, HOME+3*
>> BGPIND( LISTS+1*
>> BGPIND(23 LISTS+2!
BGPLIST LISTS+4!, LISTS+8!, LISTS+10
>> BGPPBD N*, N+4
>> BGPPED N+1*, N+4
BGPPER DATES+2!, ZIS+3, Y+12*
>> BGPQTR DATES+3*, ZIS+3
>> BGPQUIT DATES+5, ZIS+4*, Y+9*
>> BGPRPT ZIS+5*, ZIS+7, ZIS+8, ZIS+9, ZIS+12, ZIS+16, SET6+1, SET6+2, GS+3, GS+4
, GS+5, GS+6, GS+7, GS+8, GS+9, GS+10, GS+11, GS+12, GS+13, GS+14
, GS+16
BGPTAX COMM+2!, COM1+4
BGPTAX( COM1+2*, ZIS+8
>> BGPVDT BY+2*, BY+9*, BY+11, Y+2*, Y+10*, Y+12
>> BGPX COMM+3*, COMM+7*, COM1+1, COM1+2
C ZIS+8*, ZIS+9, EXIT+3!, SET6+1*, SET6+2, GS+3*, GS+4*, GS+6*, GS+8*, GS+10*
, GS+12*, GS+13
D EXIT+3!
DA LISTS+5!, ZIS+4!, ZIS+11!, ZIS+16*
DD ZIS+11!
DFOUT EOP+4!
DIADD ZIS+2*, ZIS+4!, ZIS+11!
DIC BY+7!, COMM+5*, HOME+1!*, ZIS+2!*, ZIS+4!, ZIS+11!, Y+8!
DIC("A" COMM+5*, HOME+1*
DIC("DR" ZIS+3*
DIC("S" COMM+5*
DIC(0 COMM+5*, HOME+1*, ZIS+2*
DIK ZIS+16*!
DINUM ZIS+11!
DIR LISTS+5!, EOP+3~
DIR("?" Y+6*
DIR("A" BY+5*, LISTS+5*, Y+5*
DIR("B" LISTS+5*
DIR(0 BY+4*, LISTS+5*, Y+4*, EOP+5*
DIRUT BY+8*, LISTS+6, Y+9*, EOP+4!
DLAYGO ZIS+2*, ZIS+4!, ZIS+11!
DLOUT EOP+4!
DR ZIS+4!, ZIS+11!
DTOUT EOP+4!
DUOUT BY+8, Y+9, EOP+4!
DUZ GS+17, USR+1
DUZ(2 ZIS+3, ZIS+12, GS+16, LOC+1
E EXIT+3!
F EXIT+3!, GS+16*, GS+17
G EXIT+3!
H EXIT+3!
I EXIT+3!
IO DRIVER+2, TSKMN+1
IO("DOC" TSKMN+2
IO("Q" ZIS+17
IO("S" EOP+2
>> IOCPU TSKMN+5
IOF BGPDARP+4
IOM TSKMN+3, CTR+1
ION TSKMN+1
IOPAR EXIT1+2!
IOSL TSKMN+3
IOST TSKMN+1, EOP+1
>> IOT EOP+2
J EXIT+3!
K EXIT+3!
L EXIT+3!
M EXIT+3!
N EXIT+3!, EXIT+4!
N1 EXIT+4!
N2 EXIT+4!
N3 EXIT+4!
N4 EXIT+4!
N5 EXIT+4!
N6 EXIT+4!
O EXIT+3!
P EXIT+3!
>> POP ZIS+16
Q EXIT+3!
R EXIT+3!
S EXIT+3!
T EXIT+3!
U COM1+2, ZIS+3, ZIS+12, GS+16, GS+17, USR+1, LOC+1
V EXIT+3!
W EXIT+3!
X COM1*, COM1+1*, COM1+2, LISTS+1*, ZIS+2*, ZIS+8*, ZIS+11!, EXIT+2!, EXIT+3!, SET6+1
, SET6+2, GS+3*, GS+4, GS+5, GS+6, GS+7, GS+8, GS+9, GS+10, GS+11
, GS+12, GS+13, GS+14, CTR~, CTR+1
X1 EXIT+2!
X2 EXIT+2!, SET6+1, SET6+2, GS+5*, GS+6, GS+7, GS+8, GS+9, GS+10, GS+11
, GS+12, GS+13, GS+14
X3 EXIT+2!, SET6+1, SET6+2, GS+7*, GS+8, GS+9, GS+10, GS+11, GS+12, GS+13
, GS+14
X4 EXIT+2!, SET6+1, SET6+2, GS+9*, GS+10, GS+11, GS+12, GS+13, GS+14
X5 EXIT+2!, SET6+1, SET6+2, GS+11*, GS+12, GS+13, GS+14
X6 EXIT+2!, SET6+1, SET6+2, GS+14*
>> XBF GS+17*
>> XBFLT GS+17*
>> XBFN GS+17*
>> XBGL GS+15*
>> XBMED GS+17*
>> XBTLE GS+17*
Y BY+9, BY+10, COMM+6, COMM+7, HOME+2, HOME+3, LISTS+6, LISTS+7, ZIS+4, ZIS+5
, ZIS+11!, EXIT+3!, Y+10, Y+11, CTR~, CTR+1
Z EXIT+3!
>> ZTCPU TSKMN+5*
>> ZTDESC TSKMN+5*
>> ZTDTH TSKMN+5*
>> ZTIO TSKMN+1*, TSKMN+2*, TSKMN+3*
>> ZTQUEUED GS+1, EOP+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