Routine: BUDCRP6W

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
IHS Uniform Data System	4	($$PLCODE,$$PLTAX)^BUDCDU ($$ANAREACT,GETIMMS)^BUDCRP6C (GENI,PAUSE)^BUDCRP6I ($$DATE,$$LASTDX,$$LASTDXI)^BUDCUTL1
Kernel	2	($$FMDIFF,$$FMTE)^XLFDT $$UP^XLFSTR
DRG Grouper	1	$$CPT^ICPTCOD
IHS Patient	1	($$AGE,$$DOB,$$HRN)^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Patient Care Component Reports	1	$$CLINIC^APCLV
VA Fileman	1	^DIR

Package

Total

Call Graph

IHS Uniform Data System

($$PLCODE,$$PLTAX)^BUDCDU ($$ANAREACT,GETIMMS)^BUDCRP6C (GENI,PAUSE)^BUDCRP6I ($$DATE,$$LASTDX,$$LASTDXI)^BUDCUTL1

Kernel

($$FMDIFF,$$FMTE)^XLFDT $$UP^XLFSTR

DRG Grouper

$$CPT^ICPTCOD

IHS Patient

($$AGE,$$DOB,$$HRN)^AUPNPAT

IHS VA Utilities

$$VAL^XBDIQ1

Patient Care Component Reports

$$CLINIC^APCLV

VA Fileman

^DIR

Package	Total	Caller Graph
IHS Uniform Data System	3	BUDCRP6B BUDCRP6I BUDCRP6Y

Package

Total

Caller Graph

IHS Uniform Data System

BUDCRP6B BUDCRP6I BUDCRP6Y

Entry Points

Name	Comments	DBIA/ICR reference
PRGALX	;
S(V)	;
PRGAH	;
ROTAIMM	;get all immunizations
ROT3IMM	;get all immunizations
PRGA	;EP
PRGAHD	;delimited header
PRGAL1	;
ROTA(P,BDATE,EDATE)	;EP
PRGAL	;EP
USR()	;EP - Return name of current user from ^VA(200.
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
PRGAH1	;
ROTACONT(P,C,ED)	;EP - ANALPHYLAXIS/IMMUNE DEF

External References

Name	Field # of Occurrence
$$CLINIC^APCLV	PRGAL1+18, PRGAL1+20
$$AGE^AUPNPAT	PRGAL1+10, PRGAL1+16, PRGAL1+19
$$DOB^AUPNPAT	ROTA+4, ROTA+6
$$HRN^AUPNPAT	PRGAL1+10, PRGAL1+16, PRGAL1+19
$$PLCODE^BUDCDU	ROTA+8
$$PLTAX^BUDCDU	ROTA+9
$$ANAREACT^BUDCRP6C	ROTA+16
GETIMMS^BUDCRP6C	ROTAIMM+2, ROT3IMM+2
GENI^BUDCRP6I	PRGA+5
PAUSE^BUDCRP6I	PRGA+6
$$DATE^BUDCUTL1	ROTA+5, ROTA+7, ROTA+11, ROTA+17, ROTAIMM+12, ROTAIMM+15, ROT3IMM+12, ROT3IMM+15, ROT3IMM+18
$$LASTDX^BUDCUTL1	ROTA+6
$$LASTDXI^BUDCUTL1	ROTA+4
^DIR	PRGAH+3
$$CPT^ICPTCOD	ROTAIMM+11, ROTAIMM+14, ROT3IMM+11, ROT3IMM+14
$$VAL^XBDIQ1	ROT3IMM+17, PRGAL1+18, PRGAL1+20
$$FMDIFF^XLFDT	ROTAIMM+19, ROT3IMM+21
$$FMTE^XLFDT	PRGAL1+18, PRGAL1+20, PRGAHD+3, PRGAHD+7, PRGAH1+3, PRGAH1+7
$$UP^XLFSTR	ROTA+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR($$LOC,80) Line Location: PRGA+2
Function Call: WRITE	Prompt: !,$$CTR("UDS 2015",80) Line Location: PRGA+3
Function Call: WRITE	Prompt: !!,"Prenatal Patients by Age (Table 6B)",! Line Location: PRGA+4
Function Call: WRITE	Prompt: !!,"This report provides a list of patients by age that had pregnancy-related" Line Location: PRGA+7
Function Call: WRITE	Prompt: !,"visits during the past 20 months, with at least one pregnancy-related visit" Line Location: PRGA+8
Function Call: WRITE	Prompt: !,"during the report period." Line Location: PRGA+9
Function Call: WRITE	Prompt: ! Line Location: PRGA+10
Function Call: WRITE	Prompt: !!,"TOTAL PREGNANT PATIENTS: ",BUDTOT,! Line Location: PRGAL+15
Function Call: WRITE	Prompt: !,BUDAB,! Line Location: PRGAL1+2
Function Call: WRITE	Prompt: !?2,$E($P(^DPT(DFN,0),U,1),1,25),?29,$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)),?41,$E(BUDCOM,1,25),?70,$$AGE^AUPNPAT(DFN,BUDCAD),! Line Location: PRGAL1+10
Function Call: WRITE	Prompt: ?5,BUDV,! Line Location: PRGAL1+15
Function Call: WRITE	Prompt: ?5,$$FMTE^XLFDT($P($P(^AUPNVSIT(V,0),U),".")),?20,C,?33,$P(^AUPNVSIT(V,0),U,7),?41,$E($$CLINIC^APCLV(V,"E"),1,15),?60,$E($$VAL^XBDIQ1(9000010,V,.06),1,19),! Line Location: PRGAL1+18
Function Call: WRITE	Prompt: !,"Sub-Total ",BUDAB,": ",BUDSTOT,! Line Location: PRGAL1+21
Function Call: WRITE	Prompt: ! Line Location: PRGAH+3
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: PRGAH1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: PRGAH1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: PRGAH1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 6B, Sections A & B, Pregnant Patients",80),! Line Location: PRGAH1+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: PRGAH1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: PRGAH1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: PRGAH1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: PRGAH1+9
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"AGE" Line Location: PRGAH1+16
Function Call: WRITE	Prompt: !?5,"VISIT DATE",?20,"DX OR SVC CD",?33,"SVC CAT",?41,"CLINIC",?60,"LOCATION" Line Location: PRGAH1+17
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: PRGAH1+18
Routine Call	DIR Line Location: PRGAH+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVCPT - [#9000010.18]	ROTAIMM+11, ROT3IMM+11
^AUPNVCPT("AD"	ROTAIMM+10, ROT3IMM+10
^AUPNVPOV("AD"	ROT3IMM+16
^AUPNVSIT - [#9000010]	ROTAIMM+9, ROT3IMM+9, PRGAL1+18, PRGAL1+20
^AUPNVSIT("AA"	ROTAIMM+7, ROTAIMM+8, ROT3IMM+7, ROT3IMM+8
^AUPNVTC - [#9000010.33]	ROTAIMM+14, ROT3IMM+14
^AUPNVTC("AD"	ROTAIMM+13, ROT3IMM+13
^AUTTIMM("C"	ROTACONT+2
^BICONT - [#9002084.81]	ROTACONT+5, ROTACONT+8, ROTACONT+9, ROTACONT+10
^BIPC - [#9002084.11]	ROTACONT+3, ROTACONT+6
^BIPC("AC"	ROTACONT+2
^DIC(4 - [#4]	PRGAHD+6, PRGAH1+6, LOC+1
^DPT - [#2]	PRGAL1+10, PRGAL1+16, PRGAL1+19
^GMR(120.8 - [#120.8]	ROTA+13, ROTA+15, ROTA+17
^TMP($J	S+2*
^VA(200 - [#200]	PRGAHD+3, PRGAH1+3, USR+1
^XTMP("BUDCRP6B"	PRGAL+3, PRGAL1+5, PRGAL1+6, PRGAL1+7, PRGAL1+8, PRGAL1+12

Label References

Name	Line Occurrences
$$CTR	PRGA+2, PRGA+3, PRGAH1+4, PRGAH1+5, PRGAH1+6, PRGAH1+7, PRGAH1+8
$$LOC	PRGA+2
$$ROTACONT	ROTA+10
PRGAH	PRGAL+2, PRGAL+14, PRGAL1+1, PRGAL1+9, PRGAL1+14
PRGAH1	PRGAH+2
PRGAHD	PRGAH+1
PRGAL1	PRGAL+4, PRGAL+6, PRGAL+8, PRGAL+10, PRGAL+12
PRGALX	PRGAL+5, PRGAL+7, PRGAL+9, PRGAL+11, PRGAL+13, PRGAL+14
S	PRGAL+3, PRGAL+16, PRGAL1+3, PRGAL1+16, PRGAL1+20, PRGAL1+22, PRGAHD+1, PRGAHD+2, PRGAHD+3, PRGAHD+4 , PRGAHD+5, PRGAHD+6, PRGAHD+7, PRGAHD+8, PRGAHD+9, PRGAHD+10, PRGAHD+11, PRGAHD+12, PRGAHD+13, PRGAHD+14 , PRGAHD+15, PRGAHD+16

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BD	ROTA+2~, ROTAIMM+6, ROTAIMM+7, ROT3IMM+6, ROT3IMM+7
BDATE	ROTA~, ROTAIMM+2, ROTAIMM+6, ROT3IMM+2, ROT3IMM+6
>> BUDA	PRGAL1+5*, PRGAL1+6, PRGAL1+7, PRGAL1+8, PRGAL1+12
>> BUDAB	PRGAL+4, PRGAL+6, PRGAL+8, PRGAL+10, PRGAL+12*, PRGAL1+2, PRGAL1+3, PRGAL1+5, PRGAL1+6, PRGAL1+7 , PRGAL1+8, PRGAL1+12, PRGAL1+21, PRGAL1+22
>> BUDALL	PRGAL1+12*, PRGAL1+13
BUDAPOV	ROTA+2~, ROTA+21!, ROTAIMM+28!
BUDAPOV(	ROTAIMM+4, ROT3IMM+4
BUDAPOV(9999999	ROTAIMM+12, ROTAIMM+15, ROT3IMM+12, ROT3IMM+15, ROT3IMM+18*
>> BUDBD	PRGAHD+7, PRGAH1+7
BUDC	ROTA+2~, ROTA+20!, ROTAIMM+27!
>> BUDCAD	PRGAL1+10, PRGAL1+16, PRGAL1+19
>> BUDCEN	PRGAHD+8, PRGAH1+8
>> BUDCOM	PRGAL1+7*, PRGAL1+8, PRGAL1+10, PRGAL1+12, PRGAL1+16, PRGAL1+19
>> BUDDECNT	S+1*, S+2
>> BUDED	PRGAHD+7, PRGAH1+7
BUDG	ROTA+2~, ROTA+20!, ROTAIMM+27!
>> BUDGPG	PRGAH+2, PRGAH1+1*, PRGAH1+3
>> BUDH	PRGAL+3, PRGAL1+5, PRGAL1+6, PRGAL1+7, PRGAL1+8, PRGAL1+12
>> BUDJ	PRGAL+3, PRGAL1+5, PRGAL1+6, PRGAL1+7, PRGAL1+8, PRGAL1+12
>> BUDNAME	PRGAL1+6*, PRGAL1+7, PRGAL1+8, PRGAL1+12
BUDOPV	ROTA+2~, ROTA+21!, ROTAIMM+22, ROTAIMM+23, ROTAIMM+24, ROTAIMM+25, ROTAIMM+28!, ROT3IMM+24, ROT3IMM+25, ROT3IMM+26 , ROT3IMM+27*, ROT3IMM+28, ROT3IMM+29, ROT3IMM+30
BUDOPV(	ROTAIMM+4, ROTAIMM+17, ROTAIMM+19!, ROTAIMM+22, ROTAIMM+23, ROT3IMM+4, ROT3IMM+19, ROT3IMM+21!, ROT3IMM+24, ROT3IMM+25 , ROT3IMM+28
BUDOPV(9999999	ROTAIMM+12, ROTAIMM+15, ROT3IMM+12, ROT3IMM+15, ROT3IMM+18*
>> BUDOPV2	ROTA+22, ROTAIMM+25, ROT3IMM+27
>> BUDP	PRGAL+1, PRGAH1+10, PRGAH1+19
>> BUDQUIT	PRGAL+1, PRGAL+2, PRGAL+5, PRGAL+7, PRGAL+9, PRGAL+11, PRGAL+13, PRGAL+14, PRGAL1+1, PRGAL1+5 , PRGAL1+6, PRGAL1+7, PRGAL1+8, PRGAL1+9, PRGAL1+13, PRGAL1+14, PRGAH+3
>> BUDROT	PRGAL+3, PRGAL+14, PRGAL+15, PRGAL+16, PRGAL1+1, PRGAL1+2, PRGAL1+3, PRGAL1+9, PRGAL1+10, PRGAL1+14 , PRGAL1+15, PRGAL1+16, PRGAL1+18, PRGAL1+19, PRGAL1+21, PRGAL1+22, PRGAH+1
>> BUDSITE	PRGAL1+10, PRGAL1+16, PRGAL1+19, PRGAHD+6, PRGAH1+6
>> BUDSTOT	PRGAL1+4, PRGAL1+11, PRGAL1+21, PRGAL1+22
>> BUDTOT	PRGAL+1, PRGAL+15, PRGAL+16, PRGAL1+11
>> BUDV	PRGAL1+13*, PRGAL1+15, PRGAL1+16, PRGAL1+17
BUDX	ROTA+2~, ROTA+20!, ROTAIMM+2!, ROTAIMM+27!, ROT3IMM+2!, PRGAL1+13*
BUDX(	ROTAIMM+4, ROT3IMM+4
>> BUDZ	ROTA+10*
C	ROTACONT~, ROTACONT+2, ROTA+2~, ROTAIMM+1, ROTAIMM+2, ROTAIMM+17, ROTAIMM+18, ROT3IMM+1, ROT3IMM+2, ROT3IMM+19 , ROT3IMM+20, PRGAL1+17*, PRGAL1+18, PRGAL1+20
>> D	ROTACONT+6*, ROTACONT+7, ROTACONT+8, ROTACONT+9, ROTACONT+10
>> DFN	PRGAL1+8*, PRGAL1+10, PRGAL1+12, PRGAL1+16, PRGAL1+19
DIR	PRGAH+3!
DIR(0	PRGAH+3*
DT	PRGAHD+3, PRGAH1+3
>> DTOUT	PRGAH+3
DUZ	PRGAHD+3, PRGAH1+3, USR+1
DUZ(2	PRGAL1+10, PRGAL1+16, PRGAL1+19, LOC+1
E	ROTA+2~
ED	ROTACONT~, ROTA+2~, ROTAIMM+6, ROTAIMM+7, ROTAIMM+8, ROTAIMM+12, ROTAIMM+15, ROT3IMM+6, ROT3IMM+7, ROT3IMM+8 , ROT3IMM+12, ROT3IMM+15, ROT3IMM+18
EDATE	ROTA~, ROTA+4, ROTA+6, ROTA+10, ROTAIMM+2, ROTAIMM+6, ROT3IMM+2, ROT3IMM+6
G	ROTACONT+2, ROTACONT+8, ROTACONT+9, ROTACONT+10, ROTACONT+11, ROTA+2~, ROTA+12, ROTA+13, ROTA+17, ROTA+18 , ROTAIMM+6, ROT3IMM+6
IO	PRGAH+3
IO(0	PRGAH+3
IOF	PRGA+1, PRGAH1+1
IOM	CTR+1
IOSL	PRGAL+14, PRGAL1+1, PRGAL1+9, PRGAL1+14
IOST	PRGAH+3
N	ROTA+2~, ROTA+15*, ROTA+17
P	ROTACONT~, ROTACONT+2, ROTA~, ROTA+4, ROTA+6, ROTA+8, ROTA+9, ROTA+10, ROTA+13, ROTAIMM+2 , ROTAIMM+7, ROTAIMM+8, ROT3IMM+2, ROT3IMM+7, ROT3IMM+8
>> R	ROTACONT+3*, ROTACONT+4, ROTACONT+5, ROTACONT+8, ROTACONT+9, ROTACONT+10
U	ROTACONT+3, ROTACONT+6, ROTACONT+8, ROTACONT+9, ROTACONT+10, ROTA+5, ROTA+7, ROTA+9, ROTA+11, ROTA+15 , ROTA+17, ROTAIMM+11, ROTAIMM+14, ROT3IMM+11, ROT3IMM+14, PRGAL1+10, PRGAL1+13, PRGAL1+16, PRGAL1+18, PRGAL1+19 , PRGAL1+20, PRGAHD+3, PRGAHD+6, PRGAH1+3, PRGAH1+6, USR+1, LOC+1
V	ROTA+2~, ROTAIMM+8, ROTAIMM+9, ROTAIMM+10, ROTAIMM+13, ROT3IMM+8, ROT3IMM+9, ROT3IMM+10, ROT3IMM+13, ROT3IMM+16 , PRGAL1+17*, PRGAL1+18, PRGAL1+20, S~, S+2
X	ROTACONT+1~, ROTACONT+2, ROTACONT+3, ROTACONT+6, ROTA+2~, ROTA+4, ROTA+5, ROTA+6, ROTA+7, ROTA+9 , ROTA+10, ROTA+11, ROTA+13, ROTA+15, ROTA+16, ROTA+17, ROTAIMM+4, ROTAIMM+10, ROTAIMM+11, ROTAIMM+13* , ROTAIMM+14, ROTAIMM+17, ROTAIMM+18, ROTAIMM+19, ROTAIMM+20, ROTAIMM+22, ROTAIMM+23, ROT3IMM+4, ROT3IMM+10, ROT3IMM+11 , ROT3IMM+13, ROT3IMM+14, ROT3IMM+16, ROT3IMM+17, ROT3IMM+19, ROT3IMM+20, ROT3IMM+21, ROT3IMM+22, ROT3IMM+24, ROT3IMM+25 , ROT3IMM+28, PRGAL1+16, PRGAL1+19, PRGAL1+20, PRGAHD+7, PRGAHD+8, PRGAH1+7, PRGAH1+8, CTR~, CTR+1
Y	ROTACONT+2, ROTA+2~, ROTAIMM+11, ROTAIMM+12, ROTAIMM+14, ROTAIMM+15, ROTAIMM+17, ROTAIMM+18, ROTAIMM+19, ROTAIMM+20 , ROTAIMM+23, ROTAIMM+24, ROT3IMM+11, ROT3IMM+12, ROT3IMM+14, ROT3IMM+15, ROT3IMM+17, ROT3IMM+18, ROT3IMM+19, ROT3IMM+20 , ROT3IMM+21, ROT3IMM+22, ROT3IMM+25, ROT3IMM+26, ROT3IMM+28*, ROT3IMM+29, PRGAH+3, CTR~, CTR+1
>> ZTQUEUED	PRGAH+3

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDCRP6W

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: