Routine: BUDHRP6W

Package	Total	Call Graph
IHS Uniform Data System	4	$$VER^BUDHBAN (GENI,PAUSE)^BUDHRP6I $$DATE^BUDHUTL1 GETMEDS^BUDHUTL2
Kernel	2	($$FMADD,$$FMTE)^XLFDT $$UP^XLFSTR
IHS Patient	1	($$AGE,$$HRN)^AUPNPAT
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
Patient Care Component Reports	1	($$CLINIC,$$VD)^APCLV
Taxonomy	1	$$ICD^ATXCHK
VA Fileman	1	^DIR

Package

Total

Call Graph

IHS Uniform Data System

$$VER^BUDHBAN (GENI,PAUSE)^BUDHRP6I $$DATE^BUDHUTL1 GETMEDS^BUDHUTL2

Kernel

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

IHS Patient

($$AGE,$$HRN)^AUPNPAT

IHS VA Utilities

($$VAL,$$VALI)^XBDIQ1

Patient Care Component Reports

($$CLINIC,$$VD)^APCLV

Taxonomy

$$ICD^ATXCHK

VA Fileman

^DIR

Package	Total	Caller Graph
IHS Uniform Data System	8	BUDHRP6B BUDHRP6H BUDHRP6I BUDHRP6M BUDHRP6O BUDHRP6Q BUDHRP6R BUDHRP6U

Package

Total

Caller Graph

IHS Uniform Data System

BUDHRP6B BUDHRP6H BUDHRP6I BUDHRP6M BUDHRP6O BUDHRP6Q BUDHRP6R BUDHRP6U

Entry Points

Name	Comments	DBIA/ICR reference
PRGALX	;
TRIM(V)	;any trimester code on this visit?
S(V)	;
EHROUT	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
PRGA	;EP
PRGAHD	;delimited header
PRGAL1	;
PRGAH	;
PRGAL	;EP
USR()	;EP - Return name of current user from ^VA(200.
CTR(X,Y)	;EP - Center X in a field Y wide.
PRES(P,TAX,BD,ED,NDC)	;EP
PRGAH1	;
ROTACONT(P,C,ED)	;EP - ANALPHYLAXIS/IMMUNE DEF

External References

Name	Field # of Occurrence
$$CLINIC^APCLV	PRGAL1+18, PRGAL1+20
$$VD^APCLV	EHROUT+18
$$ICD^ATXCHK	TRIM+8, TRIM+9, TRIM+10
$$AGE^AUPNPAT	PRGAL1+10, PRGAL1+16, PRGAL1+19
$$HRN^AUPNPAT	PRGAL1+10, PRGAL1+16, PRGAL1+19
$$VER^BUDHBAN	PRGAHD+4, PRGAH1+4
GENI^BUDHRP6I	PRGA+5
PAUSE^BUDHRP6I	PRGA+6
$$DATE^BUDHUTL1	PRES+24, EHROUT+18
GETMEDS^BUDHUTL2	EHROUT+7
^DIR	PRGAH+3
$$VAL^XBDIQ1	PRGAL1+18, PRGAL1+20, EHROUT+18
$$VALI^XBDIQ1	TRIM+7
$$FMADD^XLFDT	PRES+23, EHROUT+3
$$FMTE^XLFDT	PRGAL1+18, PRGAL1+20, PRGAHD+3, PRGAHD+7, PRGAH1+3, PRGAH1+7
$$UP^XLFSTR	EHROUT+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR($$LOC,80) Line Location: PRGA+2
Function Call: WRITE	Prompt: !,$$CTR("UDS 2018",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(BUDCCOM,1,25),?70,$$AGE^AUPNPAT(DFN,BUDCCAD),! 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,?30,T,?41,$P(^AUPNVSIT(V,0),U,7),?49,$E($$CLINIC^APCLV(V,"E"),1,15),?65,$E($$VAL^XBDIQ1(9000010,V,.06),1,15),! 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: !,$$CTR("*** SENSITIVE INFORMATION ***",IOM) Line Location: PRGAH1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?55,"Section "_BUDSCTC_" of "_BUDTSCTC_", Page "_BUDGPG,! Line Location: PRGAH1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) "_$$VER^BUDHBAN()_" *",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/SVC CD",?30,"TRIMESTER",?41,"SRV CAT",?49,"CLINIC",?65,"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)
^ATXAX - [#9002226]	PRES+13, PRES+14, EHROUT+6, EHROUT+7
^ATXAX("B"	TRIM+3, TRIM+4, TRIM+5
^AUPNVMED - [#9000010.14]	EHROUT+10, EHROUT+11, EHROUT+12, EHROUT+13, EHROUT+15
^AUPNVPOV("AD"	TRIM+6
^AUPNVSIT - [#9000010]	PRGAL1+18, PRGAL1+20, EHROUT+17, EHROUT+18
^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
^PS(55 - [#55]	PRES+5, PRES+6
^PSDRUG - [#50]	PRES+11, PRES+24
^PSRX - [#52]	PRES+7, PRES+8, PRES+9, PRES+16, PRES+18, PRES+19, PRES+21
^TMP($J	S+2*
^VA(200 - [#200]	PRGAHD+3, PRGAH1+3, USR+1
^XTMP("BUDHRP6B"	PRGAL+3, PRGAL1+5, PRGAL1+6, PRGAL1+7, PRGAL1+8, PRGAL1+12

Label References

Name	Line Occurrences
$$CTR	PRGA+2, PRGA+3, PRGAH1+2, PRGAH1+4, PRGAH1+5, PRGAH1+6, PRGAH1+7, PRGAH1+8
$$LOC	PRGA+2
$$TRIM	PRGAL1+17
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
%	PRES+3~, EHROUT+13*, EHROUT+14
A	PRES+3~, PRES+12, PRES+13, PRES+14*, PRES+15
BD	PRES~, PRES+17, PRES+23, EHROUT+3*, EHROUT+7, EHROUT+14
>> 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
>> BUDBD	PRGAHD+7, PRGAH1+7
>> BUDBEN	PRGAHD+8, PRGAH1+8
>> BUDCCAD	PRGAL1+10, PRGAL1+16, PRGAL1+19
>> BUDCCOM	PRGAL1+7*, PRGAL1+8, PRGAL1+10, PRGAL1+12, PRGAL1+16, PRGAL1+19
BUDD	PRES+3~
>> BUDDECNT	S+1*, S+2
>> BUDED	PRGAHD+7, PRGAH1+7
>> 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
BUDMEDS1	PRES+3~, EHROUT+2!, EHROUT+7, EHROUT+8
BUDMEDS1(	EHROUT+9
>> BUDNAME	PRGAL1+6*, PRGAL1+7, PRGAL1+8, PRGAL1+12
>> 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
>> BUDSCTC	PRGAH1+3
>> 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
>> BUDTSCTC	PRGAH1+3
>> BUDV	PRGAL1+13*, PRGAL1+15, PRGAL1+16, PRGAL1+17
>> BUDX	PRGAL1+13*
C	ROTACONT~, ROTACONT+2, PRGAL1+17*, PRGAL1+18, PRGAL1+20
D	ROTACONT+6, ROTACONT+7, ROTACONT+8, ROTACONT+9, ROTACONT+10, PRES+3~, PRES+9, PRES+10, PRES+11, PRES+13 , PRES+24
>> 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	PRES+3~, PRES+16*, PRES+17
ED	ROTACONT~, PRES~, PRES+22, EHROUT+7
F	PRES+3~, PRES+19*, PRES+20
G	ROTACONT+2, ROTACONT+8, ROTACONT+9, ROTACONT+10, ROTACONT+11, PRES+3~, PRES+5, PRES+24, PRES+25
I	PRES+3~, PRES+21*, PRES+22, PRES+23, PRES+24
IO	PRGAH+3
IO(0	PRGAH+3
IOF	PRGA+1, PRGAH1+1
IOM	PRGAH1+2, CTR+1
IOSL	PRGAL+14, PRGAL1+1, PRGAL1+9, PRGAL1+14
IOST	PRGAH+3
K	PRES+3~, EHROUT+2*
N	PRES+3~, PRES+11*, PRES+14
NDC	PRES~, PRES+2*, PRES+14, EHROUT+6
NDCT	PRES+3~, EHROUT+5, EHROUT+6, EHROUT+7
P	ROTACONT~, ROTACONT+2, PRES~, PRES+5, PRES+6, EHROUT+7
R	ROTACONT+3, ROTACONT+4, ROTACONT+5, ROTACONT+8, ROTACONT+9, ROTACONT+10, PRES+3~, PRES+6, PRES+7, PRES+8 , PRES+9, PRES+16, PRES+18, PRES+19, PRES+21, EHROUT+2, EHROUT+9, EHROUT+18, EHROUT+19
T	PRGAL1+17, PRGAL1+18, PRGAL1+20, PRES+3~, PRES+20, PRES+23
T1	TRIM+1~, TRIM+3*, TRIM+8
T2	TRIM+1~, TRIM+4*, TRIM+9
T3	TRIM+1~, TRIM+5*, TRIM+10
TAX	PRES~, PRES+13, EHROUT+7
U	ROTACONT+3, ROTACONT+6, ROTACONT+8, ROTACONT+9, ROTACONT+10, PRGAL1+10, PRGAL1+13, PRGAL1+16, PRGAL1+18, PRGAL1+19 , PRGAL1+20, PRGAHD+3, PRGAHD+6, PRGAH1+3, PRGAH1+6, USR+1, LOC+1, PRES+6, PRES+8, PRES+9 , PRES+11, PRES+16, PRES+18, PRES+19, PRES+21, PRES+24, EHROUT+6, EHROUT+7, EHROUT+9, EHROUT+11 , EHROUT+12, EHROUT+13, EHROUT+15, EHROUT+18
V	PRGAL1+17, PRGAL1+18, PRGAL1+20, S~, S+2, TRIM~, TRIM+6, PRES+3~, EHROUT+15, EHROUT+16 , EHROUT+17, EHROUT+18
X	ROTACONT+1~, ROTACONT+2, ROTACONT+3, ROTACONT+6, PRGAL1+16, PRGAL1+19, PRGAL1+20, PRGAHD+7, PRGAHD+8, PRGAH1+7* , PRGAH1+8, CTR~, CTR+1, TRIM+1~, TRIM+6, TRIM+7, EHROUT+9*
Y	ROTACONT+2, PRGAH+3, CTR~, CTR+1, TRIM+1~, TRIM+7, TRIM+8, TRIM+9, TRIM+10, PRES+3~ , PRES+18, PRES+20, EHROUT+9, EHROUT+10, EHROUT+11, EHROUT+12, EHROUT+13, EHROUT+15, EHROUT+18
Z	TRIM+1~, TRIM+2, TRIM+6, TRIM+8, TRIM+9, TRIM+10, TRIM+11, PRES+3~, PRES+5*, PRES+6
>> ZTQUEUED	PRGAH+3

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDHRP6W

Information

Source Information