Routine: BGP2AUEX

Package	Total	Call Graph
VA Fileman	6	DW^%DTC EN^DDIOL ^DIC FILE^DICN ^DIE ^DIR
IHS GPRA Information System	5	^BGP2D1 $$CTR^BGP2DNG PAUSE^BGP2DU ($$LZERO,GS,REPORT)^BGP2UTL ($$DEMOCHK,$$GETDIR)^BGP2UTL2
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

Package	Total	Caller Graph
IHS GPRA Information System	1	BGP2UTL

Entry Points

Name	Comments	DBIA/ICR reference
DELTASK	;
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	;scedule task in option scheduling
QUE(BGPEND,ZTDTH)	;
CHKFQT(F)	;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	;
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+15
^%ZISC	XIT+1
^%ZTLOAD	QUE+11
KILL^%ZTLOAD	DELTASK+6
STAT^%ZTLOAD	DELTASK+3
KILL^AUPNPAT	XIT+5, XIT+10
^BGP2D1	COM+17
$$CTR^BGP2DNG	MAN1+13
PAUSE^BGP2DU	MAN+15, MAN1+2, MAN1+9, MAN1+24, EDITPAR+4
$$LZERO^BGP2UTL	COM+16
GS^BGP2UTL	COM+18
REPORT^BGP2UTL	COM+13
$$DEMOCHK^BGP2UTL2	MAN1+1
$$GETDIR^BGP2UTL2	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, AUTO+25, MAN+17, MAN+26, EN+27, FRIDAY+14, SCHED+13
$$FMTE^XLFDT	MAN1+15, MAN1+16, MAN1+17
$$FMTH^XLFDT	CHKFQT+3
$$NOW^XLFDT	AUTO+25, LOG+5, SCHED+13
$$LEAP^XLFDT2	AUTO+14, MAN+21
BMES^XPDUTL	NT+1, NT+6, NT+11, NT+15

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^BGP2DNG("SUMMARY OF NATIONAL GPRA & PART 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+22
Function Call: WRITE	Prompt: ! Line Location: MAN1+24
Function Call: WRITE	Prompt: !!,"This option is used by Area Office personnel to setup 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+10
^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
^BGPINDW("GPRA"	COM+8
^BGPSITE - [#90241.02]	MAN1+7, COM+7
^DD(90241.04	MAN+14, EDITPAR+3
^DIC(19 - [#19]	NT+4
^DIC(19.2 - [#19.2]	NT+14
^TMP($J	AUTOEX+13!

Label References

Name	Line Occurrences
$$CHKFQT	SITEPAR+11
$$FRIDAY	AUTO+18, AUTO+23, SCHED+7, SCHED+10
ADDOPT	NT+9
CZIB	EDITPAR+6
DELTASK	EDITDEL+10
EDITDEL	SITEPAR+12
EDITOPT	NT+13
EDITPAR	SITEPAR+13, EDITDEL+9
EN	DQ+2
LOG	COM+20
MAN	MAN+11
MAN1	MAN+16
NT	SCHED+11
NT1	AUTO+24
QUE	AUTO+19, NT1+1, MAN1+19
SCHED	SITEPAR+14
XIT	MAN1+2, MAN1+9, MAN1+25, 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+38, MAN1+17, EN+6~, EN+22, EN+31
BGPBD	MAN+25, MAN+26, MAN+30, MAN+32, MAN+36, MAN1+15, EN+5~, EN+13, EN+20, EN+26 , EN+27*, EN+31, EN+33, COM+20, LOG~, LOG+13
BGPBED	MAN+31, MAN+38, MAN1+17, EN+6~, EN+22, EN+32
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	NT+9, NT+10, NT+13, NT+14, ADDOPT~, ADDOPT+5, ADDOPT+11, EDITOPT~, EDITOPT+6
BGPDT	AUTO+2~, AUTO+10, AUTO+11, AUTO+12, MAN+17, MAN+18, MAN+19, EDITOPT+3~
BGPED	MAN+25, MAN+26, MAN+31, MAN+33, MAN+36, MAN1+15, EN+5~, EN+13, EN+20, EN+26 , EN+27*, EN+32, EN+34
BGPEND	AUTO+2~, AUTO+17, AUTO+19, AUTO+22, NT1+1, MAN+2~, MAN+24, MAN+26, MAN+36, MAN1+19 , QUE~, DQ+2, DQ+3!, EN~, EN+20*, EN+27, COM+16, COM+20, LOG~, LOG+13
>> BGPERR	SCHED+4*
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*
BGPINDW	EN+7~, COM+9*
BGPM	AUTO+2~, AUTO+12, AUTO+13, AUTO+14, AUTO+16, AUTO+17, MAN+19, MAN+20, MAN+21, MAN+23 , MAN+24
>> BGPOPT	NT+3*, NT+4
BGPOPTD0	NT+4*, NT+5, NT+7, NT+9, ADDOPT~, ADDOPT+6
BGPPBD	MAN+32, MAN+37, MAN1+16, EN+6~, EN+21, EN+33
BGPPED	MAN+33, MAN+37, MAN1+16, EN+6~, EN+21, EN+34
BGPPER	MAN+26, MAN+28, MAN+39, EN+5~, EN+23, EN+27, EN+29
>> BGPQTR	MAN+39, EN+23
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+25
>> 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+26*
>> BGPTSK	NT+14*, NT+15
BGPUF	EN+7~, COM+12*, AUTOEX+6
BGPVDT	MAN+27, MAN+28, MAN+40, EN+5~, EN+24, EN+28, EN+29
>> BGPX	SCHED+4, SCHED+7, SCHED+8, SCHED+9, SCHED+10, SCHED+13*
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"	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+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+18, AUTO+23, MAN+17, FRIDAY~, FRIDAY+10, FRIDAY+14*, FRIDAY+16, SCHED+7, SCHED+8 , SCHED+9, 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+9
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+11, CHKFQT+12
R	XIT+7!
S	XIT+7!
T	XIT+7!
U	AUTO+8, AUTO+13, AUTO+22, MAN+12, MAN+14, MAN+20, MAN+36, MAN+37, MAN+38, MAN+39 , MAN1+7, MAN1+18, EN+14, EN+20, EN+21, EN+22, EN+23, 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+10
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 , EN+6~, EN+16, EN+19, EN+29, EN+30, EN+31, EN+32, COM+2, COM+3, COM+4 , COM+8, LOG+3~, LOG+5, FRIDAY+8~, FRIDAY+10, FRIDAY+12, FRIDAY+13, FRIDAY+14, XIT+6!, XIT+7! , ADDOPT+3~, ADDOPT+6, EDITOPT+3~, CZIB+3, CHKFQT+1~, CHKFQT+5, CHKFQT+6, CHKFQT+7, CHKFQT+8, CHKFQT+10 , CHKFQT+11
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, AUTO+22, MAN+2~, MAN+9, MAN+10, MAN+35, MAN+36, MAN+37, MAN+38 , MAN+39, MAN1+9, MAN1+10, EN+19, EN+20, EN+21, EN+22, EN+23, LOG+3~, LOG+10 , LOG+11, ASUFAC+3~, ASUFAC+4, ASUFAC+5, ASUFAC+6, FRIDAY+8~, FRIDAY+9, FRIDAY+16, FRIDAY+17, 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+10, EDITDEL+8, EDITDEL+9, EDITDEL+10
Z	XIT+7!, CHKFQT+1~, CHKFQT+8*, CHKFQT+9
ZTDESC	QUE+5~, QUE+9*
ZTDTH	AUTO+2~, AUTO+18, AUTO+19, AUTO+23, AUTO+25*, NT1+1, QUE~
ZTIO	QUE+5~, QUE+10*
>> ZTQUEUED	XIT+2
>> ZTREQ	XIT+2*
ZTRTN	QUE+5~, QUE+8*
>> ZTSAVE("BGP*"	QUE+7*
ZTSK	MAN+2~, MAN1+20, MAN1+22, DELTASK+2, DELTASK+4!, DELTASK+5, DELTASK+8!
ZTSK(1	DELTASK+4
ZTSK(2	DELTASK+4

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP2AUEX

Information

Source Information

Call Graph

Call Graph Total: 21

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items