Routine: BGP4AUEX

Information

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

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

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP4AUEX

Information

Source Information

Call Graph

Call Graph Total: 21

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items