Routine: BUDDRP6W

Package	Total	Call Graph
IHS Patient	1	($$AGE,$$HRN)^AUPNPAT
IHS Uniform Data System	1	(GENI,PAUSE)^BUDDRP6I
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
Kernel	1	$$FMTE^XLFDT
Patient Care Component Reports	1	$$CLINIC^APCLV
Taxonomy	1	$$ICD^ATXCHK
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Uniform Data System	3	BUDDRP6B BUDDRP6H BUDDRP6I

Entry Points

Name	Comments	DBIA/ICR reference
PRGALX	;
TRIM(V)	;any trimester code on this visit?
S(V)	;
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.
PRGAH1	;
ROTACONT(P,C,ED)	;EP - ANALPHYLAXIS/IMMUNE DEF

External References

Name	Field # of Occurrence
$$CLINIC^APCLV	PRGAL1+18, PRGAL1+20
$$ICD^ATXCHK	TRIM+8, TRIM+9, TRIM+10
$$AGE^AUPNPAT	PRGAL1+10, PRGAL1+16, PRGAL1+19
$$HRN^AUPNPAT	PRGAL1+10, PRGAL1+16, PRGAL1+19
GENI^BUDDRP6I	PRGA+5
PAUSE^BUDDRP6I	PRGA+6
^DIR	PRGAH+3
$$VAL^XBDIQ1	PRGAL1+18, PRGAL1+20
$$VALI^XBDIQ1	TRIM+7
$$FMTE^XLFDT	PRGAL1+18, PRGAL1+20, PRGAHD+3, PRGAHD+7, PRGAH1+3, PRGAH1+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$$CTR($$LOC,80) Line Location: PRGA+2
Function Call: WRITE	Prompt: !,$$CTR("UDS 2016",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: !,"*** 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/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("B"	TRIM+3, TRIM+4, TRIM+5
^AUPNVPOV("AD"	TRIM+6
^AUPNVSIT - [#9000010]	PRGAL1+18, PRGAL1+20
^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
^TMP($J	S+2*
^VA(200 - [#200]	PRGAHD+3, PRGAH1+3, USR+1
^XTMP("BUDDRP6B"	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
$$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

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> 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
>> 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
>> 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
>> 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	PRGAL1+13*
C	ROTACONT~, ROTACONT+2, 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
ED	ROTACONT~
>> G	ROTACONT+2, ROTACONT+8, ROTACONT+9, ROTACONT+10, ROTACONT+11
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
P	ROTACONT~, ROTACONT+2
>> R	ROTACONT+3*, ROTACONT+4, ROTACONT+5, ROTACONT+8, ROTACONT+9, ROTACONT+10
>> T	PRGAL1+17*, PRGAL1+18, PRGAL1+20
T1	TRIM+1~, TRIM+3*, TRIM+8
T2	TRIM+1~, TRIM+4*, TRIM+9
T3	TRIM+1~, TRIM+5*, TRIM+10
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
V	PRGAL1+17*, PRGAL1+18, PRGAL1+20, S~, S+2, TRIM~, TRIM+6
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
Y	ROTACONT+2, PRGAH+3, CTR~, CTR+1, TRIM+1~, TRIM+7, TRIM+8, TRIM+9, TRIM+10
Z	TRIM+1~, TRIM+2, TRIM+6, TRIM+8, TRIM+9, TRIM+10, TRIM+11
>> ZTQUEUED	PRGAH+3

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDDRP6W

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: