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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BGP4AUEX

Package: IHS GPRA Information System

Routine: BGP4AUEX


Information

BGP4AUEX ; IHS/CMI/LAB - BUILD SITE GPRA FILES, EXPORT TO AREA ; 05 Nov 2013 12:13 PM

Source Information

Source file <BGP4AUEX.m>

Call Graph

Call Graph Total: 21

Package Total Call Graph
VA Fileman 6 DW^%DTC  EN^DDIOL  ^DIC  FILE^DICN  ^DIE  ^DIR  
IHS GPRA Information System 5 ^BGP4D1  $$CTR^BGP4DNG  PAUSE^BGP4DU  ($$LZERO,GS,REPORT)^BGP4UTL  ($$DEMOCHK,$$GETDIR)^BGP4UTL2  
Kernel 5 ^%ZISC  (,KILL,STAT)^%ZTLOAD  ($$FMADD,$$FMTE,$$FMTH,$$NOW)^XLFDT  $$LEAP^XLFDT2  BMES^XPDUTL  
IHS VA Utilities 4 $$VAL^XBDIQ1  ^XBFMK  ^XBGSAVE  EN^XBVK  
IHS Patient 1 KILL^AUPNPAT  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS GPRA Information System 3 BGP4AUUL  BGP4GRB  BGP4UTL  

Entry Points

Name Comments DBIA/ICR reference
DELTASK ;EP
NT1 ;
ADDOPT(BGPOPTD0,BGPD0) ;
CZIB ;create entry in ZISH SEND PARAMETERS
EN(BGPEND) ;EP -- MAIN ENTRY POINT
COM ;
DQ ;EP -- QUEUED JOB STARTS HERE
SCHED ;EP -scedule task in option scheduling
QUE(BGPEND,ZTDTH) ;EP
CHKFQT(F) ;EP -check for queued task (BGP AUTO GPRA EXTRACT and BGPSITE variable within the task
DESC ;----- ROUTINE DESCRIPTION
NT ;
MAN1
EDITDEL ;does user just want to edit the parameters or delete the scheduled task?
AUTO ;EP -- AUTOQUEUED JOB ENTRY POINT
XIT ;
EDITOPT(BGPD0) ;
LOG(BGPFILE,BGPBD,BGPEND,BGPERRM) ;
EDITPAR ;
SCHEDGUI
ASUFAC() ;
FRIDAY(DT) ;
SITEPAR ;EP - called from option
AUTOEX ;EP
MAN ;EP -- MANUALLY RUN GPRA EXTRACT

External References

Name Field # of Occurrence
DW^%DTC FRIDAY+11, FRIDAY+16
^%ZISC XIT+1
^%ZTLOAD QUE+11, DQ+14, NT+20
KILL^%ZTLOAD DELTASK+6
STAT^%ZTLOAD DELTASK+3
KILL^AUPNPAT XIT+5, XIT+10
^BGP4D1 COM+17
$$CTR^BGP4DNG MAN1+13
PAUSE^BGP4DU MAN+15, MAN1+2, MAN1+9, MAN1+25, EDITPAR+4
$$LZERO^BGP4UTL COM+16
GS^BGP4UTL COM+18
REPORT^BGP4UTL COM+13
$$DEMOCHK^BGP4UTL2 MAN1+1
$$GETDIR^BGP4UTL2 COM+12
EN^DDIOL DESC+7
^DIC MAN+8, MAN1+8, SITEPAR+8
FILE^DICN LOG+9, ADDOPT+9, CZIB+3
^DIE LOG+14, EDITOPT+9, EDITPAR+1, EDITPAR+9, CZIB+6
^DIR SCHED+1, EDITDEL+6
$$VAL^XBDIQ1 AUTO+5, MAN+11, MAN+14, EDITPAR+3
^XBFMK XIT+11
^XBGSAVE AUTOEX+6
EN^XBVK XIT+2
$$FMADD^XLFDT AUTO+10, MAN+17, MAN+26, DQ+7, EN+30, FRIDAY+15, SCHEDGUI+10
$$FMTE^XLFDT MAN1+15, MAN1+16, MAN1+17
$$FMTH^XLFDT CHKFQT+3
$$NOW^XLFDT LOG+5, SCHEDGUI+10
$$LEAP^XLFDT2 AUTO+14, MAN+21
BMES^XPDUTL NT+1, NT+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You need to be logged in as ",$$VAL^XBDIQ1(90241.04,BGPSITE,.01)," to run the report",!,"for that site."
  • Line Location: MAN+11
Function Call: WRITE
  • Prompt: !,$P(^DD(90241.04,F,0),U,1)," is missing."
  • Line Location: MAN+14
Function Call: WRITE
  • Prompt: !!,"These values must be entered into the parameter file",!,"before you can run this option.",!
  • Line Location: MAN+15
Function Call: WRITE
  • Prompt: !!,"Exiting Report....."
  • Line Location: MAN1+2
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.",!
  • Line Location: MAN1+3
Function Call: WRITE
  • Prompt: !!,"Exiting Report..."
  • Line Location: MAN1+9
Function Call: WRITE
  • Prompt: !,$$CTR^BGP4DNG("SUMMARY OF NATIONAL GPRA/GPRAMA REPORT TO BE GENERATED")
  • Line Location: MAN1+13
Function Call: WRITE
  • Prompt: !!,"The date ranges for this report are:"
  • Line Location: MAN1+14
Function Call: WRITE
  • Prompt: !?5,"Report Period: ",?31,$$FMTE^XLFDT(BGPBD)," to ",?31,$$FMTE^XLFDT(BGPED)
  • Line Location: MAN1+15
Function Call: WRITE
  • Prompt: !?5,"Previous Year Period: ",?31,$$FMTE^XLFDT(BGPPBD)," to ",?31,$$FMTE^XLFDT(BGPPED)
  • Line Location: MAN1+16
Function Call: WRITE
  • Prompt: !?5,"Baseline Period: ",?31,$$FMTE^XLFDT(BGPBBD)," to ",?31,$$FMTE^XLFDT(BGPBED)
  • Line Location: MAN1+17
Function Call: WRITE
  • Prompt: !!,"The COMMUNITY Taxonomy to be used is: ",$P(^ATXAX(BGPTAXI,0),U)
  • Line Location: MAN1+18
Function Call: WRITE
  • Prompt: !,"GPRA EXTRACT QUEUED AS TASK #",ZTSK
  • Line Location: MAN1+23
Function Call: WRITE
  • Prompt: !
  • Line Location: MAN1+25
Function Call: WRITE
  • Prompt: !!,"This option is used by Area Office personnel to set up an"
  • Line Location: SITEPAR+3
Function Call: WRITE
  • Prompt: !,"automated GPRA extract for the site you select. All "
  • Line Location: SITEPAR+4
Function Call: WRITE
  • Prompt: !,"questions are mandatory and must be answered before the"
  • Line Location: SITEPAR+5
Function Call: WRITE
  • Prompt: !,"first extract will be queued to run.",!,"You must be logged into the site for which you want to schedule",!,"this extract.",!!
  • Line Location: SITEPAR+6
Function Call: WRITE
  • Prompt: !!,$P(^DD(90241.04,F,0),U,1)," is missing."
  • Line Location: EDITPAR+3
Function Call: WRITE
  • Prompt: !!,"These values must be entered into the parameter file",!,"before you can schedule the automated report option.",!
  • Line Location: EDITPAR+4
Function Call: WRITE
  • Prompt: !!,"error creating ZISH SEND PARAMETERS entry"
  • Line Location: CZIB+4
Function Call: WRITE
  • Prompt: !!,"error updating ZISH SEND PARAMETERS entry, NOTIFY IT"
  • Line Location: CZIB+7
Function Call: WRITE
  • Prompt: !!,"It seems that the automated GPRA extract is already scheduled to run."
  • Line Location: EDITDEL+1
Function Call: WRITE
  • Prompt: !,"You can't schedule it to run twice, but you can edit the parameters"
  • Line Location: EDITDEL+2
Function Call: WRITE
  • Prompt: !,"or delete the scheduled task so it won't run in the future.",!!
  • Line Location: EDITDEL+3
Function Call: WRITE
  • Prompt: !!,"The task may be currently running. Please try this later."
  • Line Location: DELTASK+4
Function Call: WRITE
  • Prompt: !!,"Deleted Task ",BGPTASK,!
  • Line Location: DELTASK+7
Routine Call
  • DIE
  • Line Location:
    • LOG+14
    • EDITOPT+9
    • EDITPAR+1
    • EDITPAR+9
    • CZIB+6
Routine Call
  • DIC
  • Line Location:
    • MAN+8
    • MAN1+8
    • SITEPAR+8
Routine Call
  • DIR
  • Line Location:
    • SCHED+1
    • EDITDEL+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(19.2 - [#19.2] Classic Fileman Calls
^ATXAX - [#9002226] Classic Fileman Calls
^BGPGP2PM - [#90241.04] Classic Fileman Calls
^%ZIB(9888888.93 - [#9888888.93] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIB(9888888.93 - [#9888888.93] EDITPAR+5
^%ZTSK - [#14.4] CHKFQT+6, CHKFQT+7, CHKFQT+8, CHKFQT+9, CHKFQT+11
^ATXAX - [#9002226] MAN1+7, MAN1+18, COM+3, COM+4
^AUTTLOC - [#9999999.06] COM+16, ASUFAC+5, AUTOEX+5, EDITPAR+5, CZIB+3
^AUTTSITE(1 ASUFAC+5
^BGPCTRL - [#90241.01] AUTO+21, MAN+35, EN+19
^BGPCTRL("B" AUTO+20, MAN+34, EN+16
^BGPDATA AUTOEX+12, AUTOEX+13!
^BGPGP2PM - [#90241.04] AUTO+8, MAN+12, EN+14, COM+1, EDITPAR+8
^BGPINDJ("GPRA" COM+8
^BGPSITE - [#90241.02] MAN1+7, COM+7
^DD(90241.04 MAN+14, EDITPAR+3
^TMP($J AUTOEX+13!

Label References

Name Line Occurrences
$$CHKFQT SITEPAR+11
$$FRIDAY DQ+8, SCHEDGUI+4, SCHEDGUI+7
CZIB EDITPAR+6
DELTASK EDITDEL+10
DQ QUE+3
EDITDEL SITEPAR+12
EDITPAR SITEPAR+13, EDITDEL+9
EN DQ+2
LOG COM+20
MAN MAN+11
MAN1 MAN+16
NT SCHEDGUI+8
QUE AUTO+19, NT1+2, MAN1+20
SCHED SITEPAR+14
XIT MAN1+2, MAN1+9, MAN1+26, COM+14, COM+15, COM+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EDITOPT+3~
%L EDITOPT+3~
%X EDITOPT+3~
%Y EDITOPT+3~
A XIT+7!
B MAN1+7*, XIT+7!
BD XIT+9!
BGP1GPU EN+5~, EN+12*
BGP1RPTH EN+5~, EN+12*
>> BGPAMEX MAN1*, EN+11*
>> BGPAMFN COM+16*, COM+19, AUTOEX+2
BGPBBD MAN+30*, MAN+40*, MAN1+17, EN+6~, EN+24*, EN+34*
BGPBD MAN+25*, MAN+26*, MAN+30, MAN+32, MAN+36*, MAN+39, MAN1+15, EN+5~, EN+13*, EN+20*
, EN+23, EN+29*, EN+30*, EN+34, EN+36, COM+20, LOG~, LOG+13
BGPBED MAN+31*, MAN+40*, MAN1+17, EN+6~, EN+24*, EN+35*
BGPBEN EN+6~, COM+5*
BGPBENF EN+6~, COM+6*
BGPD AUTO+2~, AUTO+13*, AUTO+14*, AUTO+15*, AUTO+17, MAN+20*, MAN+21*, MAN+22*, MAN+24
BGPD0 ADDOPT~, ADDOPT+5*, ADDOPT+11*, EDITOPT~, EDITOPT+6
BGPDT AUTO+2~, AUTO+10*, AUTO+11, AUTO+12, MAN+17*, MAN+18, MAN+19, FRIDAY+10*, FRIDAY+13*, FRIDAY+15*
, FRIDAY+17, EDITOPT+3~
BGPED MAN+25*, MAN+26*, MAN+31, MAN+33, MAN+37*, MAN+39, MAN1+15, EN+5~, EN+13*, EN+21*
, EN+23, EN+29*, EN+30*, EN+35, EN+37
BGPEND AUTO+2~, AUTO+17*, AUTO+19, AUTO+23*, NT1+2, MAN+2~, MAN+24*, MAN+26, MAN+37*, MAN1+20
, QUE~, DQ+2, DQ+15!, EN~, EN+21*, EN+30, COM+16, COM+20, LOG~, LOG+13
>> BGPERR SCHEDGUI+1*
BGPERRM MAN1*, COM+20, LOG~, LOG+13, AUTOEX+7*, AUTOEX+9*, AUTOEX+10*, AUTOEX+11*
BGPEXCEL EN+7~, COM+11*
BGPEXPT EN+7~, COM+10*
BGPF EDITOPT+3~, EDITOPT+5*
BGPFILE EN+7~, COM+19*, COM+20, LOG~, LOG+13
BGPHOME EN+7~, COM+7*
>> BGPIND( COM+8*
BGPINDJ EN+7~, COM+9*
>> BGPLOC AUTO+7, SITEPAR+10*
BGPM AUTO+2~, AUTO+12*, AUTO+13, AUTO+14, AUTO+16*, AUTO+17, MAN+19*, MAN+20, MAN+21, MAN+23*
, MAN+24
>> BGPMAN MAN1+19*, QUE+3, DQ+4
BGPOPTD0 ADDOPT~, ADDOPT+6
BGPPBD MAN+32*, MAN+39*, MAN1+16, EN+6~, EN+23*, EN+36*
BGPPED MAN+33*, MAN+39*, MAN1+16, EN+6~, EN+23*, EN+37*
BGPPER MAN+26*, MAN+28, MAN+41*, EN+5~, EN+25*, EN+30*, EN+32
>> BGPQTR MAN+42*, EN+26*
BGPQUIT EN+7~, COM+14
BGPRPT EN+7~, COM+15, COM+16
BGPRTYPE EN+5~, EN+12*
BGPSITE AUTO+2~, AUTO+7*, AUTO+8, MAN+6~, MAN+7*, MAN+10*, MAN+11, MAN+12, MAN+14, EN+14
, COM+16, LOG+6, AUTOEX+5, SITEPAR+10*, SITEPAR+11, EDITPAR+1, EDITPAR+3, EDITPAR+5, EDITPAR+8, CZIB+3
BGPT AUTO+2~, AUTO+8*, AUTO+9, MAN+12*, MAN+16, EN+14*, EN+15, EN+28
>> BGPTASK SITEPAR+11*, SITEPAR+12, DELTASK+2, DELTASK+5, DELTASK+7
BGPTAX MAN1+4!, EN+6~
BGPTAX( COM+4*
>> BGPTAXI MAN1+5*, MAN1+10*, MAN1+18, COM+1*, COM+3, COM+4
BGPTP MAN+25*, EN+5~, EN+13*, EN+29*
>> BGPTSK NT+21*, NT+22
BGPUF EN+7~, COM+12*, AUTOEX+6
BGPVDT MAN+27*, MAN+28, MAN+43*, EN+5~, EN+27*, EN+31*, EN+32
>> BGPX DQ+8*, DQ+9, SCHEDGUI+1*, SCHEDGUI+4*, SCHEDGUI+5, SCHEDGUI+6*, SCHEDGUI+7*, SCHEDGUI+10*, NT+15
BGPY AUTO+2~, AUTO+11*, AUTO+14, AUTO+17, MAN+18*, MAN+21, MAN+24
>> BGPZIB EDITPAR+5*, EDITPAR+6, EDITPAR+7, EDITPAR+8, CZIB+1*, CZIB+5*
C XIT+7!
D XIT+7!, EDITOPT+3~
D0 EDITOPT+3~, CZIB+2!, CZIB+8!
DA LOG+3~, LOG+11*, SCHED+1!, EDITOPT+3~, EDITOPT+6*, EDITPAR+1*, EDITPAR+8*, EDITPAR+10!, CZIB+5*, EDITDEL+6!
DA(1 LOG+6*, LOG+7
DD LOG+3~, ADDOPT+3~, CZIB+2!, CZIB+8!
DI EDITOPT+3~
DIADD XIT+4!, CZIB+2!, CZIB+8!
DIC MAN+6~, MAN+8*, MAN1+6*, LOG+3~, LOG+7*, LOG+12, SITEPAR+8*!, ADDOPT+3~, ADDOPT+7*, EDITOPT+3~
, CZIB+2!, CZIB+3*, CZIB+8!
DIC("A" MAN+8*, MAN1+6*
DIC("B" MAN1+7*
DIC("S" MAN+8*, MAN1+6*, SITEPAR+8*
DIC(0 MAN+8*, MAN1+6*, LOG+8*, SITEPAR+8*, ADDOPT+8*, CZIB+3*
DIE LOG+3~, LOG+12*, EDITOPT+3~, EDITOPT+7*, EDITPAR+1*, EDITPAR+8*, EDITPAR+10!, CZIB+5*
DIFROM EDITOPT+3~
DIR MAN+2~, XIT+3!, SCHED+1!, EDITDEL+6!
DIR("A" SCHED+1*, EDITDEL+5*
DIR("B" EDITDEL+5*
DIR(0 SCHED+1*, EDITDEL+4*
DIROUT MAN+2~
DIRUT MAN+2~, XIT+3!, SCHED+1!, SCHED+2, EDITDEL+7
DLAYGO XIT+4!, CZIB+2!, CZIB+8!
DO LOG+3~, ADDOPT+3~, CZIB+2!, CZIB+8!
DOD XIT+3!
DQ EDITOPT+3~
DR LOG+3~, LOG+13*, EDITOPT+3~, EDITOPT+8*, EDITPAR+1*, EDITPAR+8*, EDITPAR+10!, CZIB+5*
DT AUTO+10, AUTO+23, MAN+17, MAN+36, MAN+37, DQ+7, EN+20, EN+21, FRIDAY~, FRIDAY+10
, FRIDAY+13, SCHEDGUI+4, SCHEDGUI+5, SCHEDGUI+6, CHKFQT+3
DTOUT MAN+2~
DUOUT MAN+2~, XIT+3!
DUZ(2 AUTO+5, AUTO+7, MAN+11, MAN1+7, COM+1, COM+7
E XIT+7!
ED XIT+9!
F AUTO+5*, MAN+2~, MAN+14*, XIT+7!, AUTOEX+2*, AUTOEX+4, EDITPAR+3*, CHKFQT~, CHKFQT+2*, CHKFQT+10
G XIT+7!
H XIT+7!
I DESC+7~*, XIT+7!
IOF MAN1+12
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!
Q AUTO+4*, AUTO+5*, AUTO+6, MAN+2~, MAN+13*, MAN+14*, MAN+15, XIT+7!, EDITPAR+2*, EDITPAR+3*
, EDITPAR+4, CHKFQT+1~, CHKFQT+4*, CHKFQT+12*, CHKFQT+13
R XIT+7!
S XIT+7!
T XIT+7!
U AUTO+8, AUTO+13, MAN+12, MAN+14, MAN+20, MAN+40, MAN+41, MAN1+7, MAN1+18, EN+14
, EN+24, EN+25, COM+1, COM+4, COM+7, COM+16, ASUFAC+5, AUTOEX+5, EDITPAR+3, EDITPAR+5
, EDITPAR+8, CZIB+3, CHKFQT+7, CHKFQT+8, CHKFQT+9, CHKFQT+11
V XIT+7!
W XIT+7!
X DESC+7~*, MAN+2~, MAN+28*, MAN+29*, MAN+30, MAN+31, MAN+34*, MAN+35, MAN1+1*, MAN1+2
, DQ+7*, DQ+8, EN+6~, EN+16*, EN+19, EN+32*, EN+33*, EN+34, EN+35, COM+2*
, COM+3*, COM+4, COM+8*, LOG+3~, LOG+5*, FRIDAY+8~, FRIDAY+10*, FRIDAY+12, FRIDAY+14, FRIDAY+15*
, XIT+6!, XIT+7!, ADDOPT+3~, ADDOPT+6*, EDITOPT+3~, CZIB+3*, CHKFQT+1~, CHKFQT+5*, CHKFQT+6*, CHKFQT+7
, CHKFQT+8, CHKFQT+9, CHKFQT+11, CHKFQT+12
X1 XIT+6!
X2 XIT+6!
X3 XIT+6!
X4 XIT+6!
X5 XIT+6!
X6 XIT+6!
XBF AUTOEX+3~, AUTOEX+4*
>> XBFLG AUTOEX+8
>> XBFLG(1 AUTOEX+9, AUTOEX+10, AUTOEX+11
XBFLT AUTOEX+3~, AUTOEX+4*
XBFN AUTOEX+3~, AUTOEX+4*
XBGL AUTOEX+1~*
XBMED AUTOEX+3~, AUTOEX+4*
>> XBS1 AUTOEX+5*
>> XBTLE AUTOEX+4*
>> XBUF AUTOEX+6*
Y AUTO+20*, AUTO+21*, MAN+2~, MAN+9, MAN+10, MAN+35*, MAN+40, MAN+41, MAN1+9, MAN1+10
, EN+19*, EN+24, EN+25, LOG+3~, LOG+10, LOG+11, ASUFAC+3~, ASUFAC+4*, ASUFAC+5*, ASUFAC+6
, FRIDAY+8~, FRIDAY+9*, FRIDAY+17*, FRIDAY+18, XIT+7!, SITEPAR+9!, SITEPAR+10, SCHED+3, ADDOPT+3~, ADDOPT+10
, ADDOPT+11, EDITOPT+3~, CZIB+4, CZIB+5, CZIB+7, CHKFQT+1~, CHKFQT+3*, CHKFQT+11, EDITDEL+8, EDITDEL+9
, EDITDEL+10
Z XIT+7!, CHKFQT+1~, CHKFQT+9*, CHKFQT+10
ZTDESC QUE+5~, QUE+9*, DQ+12*, NT+18*
ZTDTH AUTO+2~, AUTO+18*, NT1+1*, QUE~, DQ+9*, NT+15*
ZTIO QUE+5~, QUE+10*, DQ+13*, NT+19*
>> ZTQUEUED XIT+2
>> ZTREQ XIT+2*
ZTRTN QUE+5~, QUE+8*, DQ+11*, NT+17*
>> ZTSAVE("BGP*" QUE+7*, DQ+10*, NT+16*
ZTSK MAN+2~, MAN1+21, MAN1+23, NT+21, DELTASK+2*, DELTASK+4!, DELTASK+5*, DELTASK+8!
ZTSK(1 DELTASK+4
ZTSK(2 DELTASK+4

Marked Items

Name Field # of Occurrence
$T(DESC+I DESC+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All