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

Package: IHS GPRA Information System

Routine: BGPDFTA


Information

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

Source Information

Source file <BGPDFTA.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
DATES ;
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
LOC() ;EP - Return location name from file 4 based on DUZ(2).
COM1
CTR(X,Y) ;EP - Center X in a field Y wide.
GS ;EP called from xbnew
ZIS ;call to XBDBQUE
DRIVER ;
N
Q ;which quarter
SET6 ;
COMM ;
Y ;fiscal year
EXIT1 ;
LISTS ;any lists with indicators?
INDSL ;;
INTRO ;
EXIT ;

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+7
^DIC COMM+5, HOME+1, ZIS+4
^DIK ZIS+16
^DIR DATES+7, BY+6, LISTS+5, Q+1, Y+7, EOP+5
^XBFMK COMM+4, ZIS+10, EXIT+6
^XBGSAVE GS+18
EN^XBVK EXIT+1
$$FMTE^XLFDT DATES+7, 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: BGPDFTA+5
Function Call: WRITE
  • Prompt: !!,"This report will produce a GPRA Indicator Report for a Fiscal Year or Quarter",!,"that you specify.",!,"You will be asked to provide the baseline year and also to specify",!
  • Line Location: INTRO+2
Function Call: WRITE
  • Prompt: "the community taxonomy to be used.",!!
  • 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: !,"You will be provided the opportunity to have lists of patients printed for",!,"the indicators. Please be careful when answering this questions as the",!,"lists can be very long and use lots of paper.",!
  • Line Location: INTRO+6
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: !!,"You must now specify the community taxonomy to use when determining 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 FY of interest. Use a 4 digit year, e.g. 1999, 2000"
  • 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:
    • DATES+7
    • BY+6
    • LISTS+5
    • Q+1
    • 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 BGPDFTA+5
BY BY+10
COMM COM1+4
DATES DATES+10, BY+8
EXIT INTRO+1, DATES+5, DATES+8, 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, BY+12, BY+13, BY+14, BY+15
Q DATES+10
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*, BY+12*, BY+13*, BY+14*, BY+15*, N+5, ZIS+3
BGPBD DATES+2!, N, N+3, ZIS+2, Q+4*, Q+5*, Q+6*, Q+7*, Y+12*
>> BGPBED BY+11*, BY+12*, BY+13*, BY+14*, BY+15*, N+5, ZIS+3
BGPED DATES+2!, N+1, N+3, ZIS+3, Q+4*, Q+5*, Q+6*, Q+7*, 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!, DATES+7, ZIS+3, Q+4, Q+5, Q+6, Q+7, Y+12*
>> BGPQTR DATES+3*, BY+11, BY+12, BY+13, BY+14, BY+15, ZIS+3, Q+3*
>> BGPQUIT DATES+5, DATES+10, ZIS+4*, Q+2*, Y+9*
>> BGPQY DATES+6*, DATES+9*, DATES+10
>> 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, BY+12, BY+13, BY+14, BY+15, 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 DATES+7!, LISTS+5!, ZIS+4!, ZIS+11!, ZIS+16*, Q+1!
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 DATES+7!, LISTS+5!, Q+1!, EOP+3~
DIR("?" Y+6*
DIR("A" DATES+7*, BY+5*, LISTS+5*, Q+1*, Y+5*
DIR("B" DATES+7*, LISTS+5*
DIR(0 DATES+7*, BY+4*, LISTS+5*, Q+1*, Y+4*, EOP+5*
DIRUT DATES+8, BY+8*, LISTS+6, Q+2, 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 BGPDFTA+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 DATES+9, BY+9, BY+10, COMM+6, COMM+7, HOME+2, HOME+3, LISTS+6, LISTS+7, ZIS+4
, ZIS+5, ZIS+11!, EXIT+3!, Q+2, Q+3, Q+4, Q+5, Q+6, Q+7, 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