Routine: BUDERP6I

Package	Total	Call Graph
IHS Uniform Data System	13	(HT6B,IN6B)^BUDEDU (DS1L,DS2L)^BUDERP61 (HIV1L,HIV2L)^BUDERP6A (WAC1L,WAC2L)^BUDERP6F (AWS1L,AWS2L)^BUDERP6G (CAD1L,CAD2L)^BUDERP6J (IVD1L,IVD2L)^BUDERP6K (CRC1L,CRC2L)^BUDERP6L (DEP1L,DEP2L)^BUDERP6N (PAP1L,PAP2L)^BUDERP6P (APT1L,APT2L)^BUDERP6S (TUA1L,TUA2L)^BUDERP6T PRGAL^BUDERP6W
IHS Patient	1	($$AGE,$$HRN)^AUPNPAT
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Uniform Data System	4	BUDERP61 BUDERP6A BUDERP6B BUDERP6W

Name	Comments	DBIA/ICR reference
S(V)	;
PAUSE	;
IMM2L1	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
IMM2H1	;
CTR(X,Y)	;EP - Center X in a field Y wide.
PRENATT	;EP
LISTS	;EP
IMM2HD	;
IMM2H	;
USR()	;EP - Return name of current user from ^VA(200.
IMM1H1	;
IMM2L	;EP
IMM1HD	;
GENI	;EP - general introductions
IMM1	;EP
IMM1H	;
IMM2	;EP
IMM1L	;EP
IMM1L1	;

Name	Field # of Occurrence
$$AGE^AUPNPAT	IMM1L1+6, IMM1L1+13, IMM2L1+6, IMM2L1+13
$$HRN^AUPNPAT	IMM1L1+6, IMM1L1+13, IMM2L1+6, IMM2L1+13
HT6B^BUDEDU	IMM1HD+9, IMM1H1+11, IMM2HD+9, IMM2H1+11
IN6B^BUDEDU	IMM1+1, IMM2+1
DS1L^BUDERP61	LISTS+24
DS2L^BUDERP61	LISTS+25
HIV1L^BUDERP6A	LISTS+20
HIV2L^BUDERP6A	LISTS+21
WAC1L^BUDERP6F	LISTS+6
WAC2L^BUDERP6F	LISTS+7
AWS1L^BUDERP6G	LISTS+8
AWS2L^BUDERP6G	LISTS+9
CAD1L^BUDERP6J	LISTS+14
CAD2L^BUDERP6J	LISTS+15
IVD1L^BUDERP6K	LISTS+16
IVD2L^BUDERP6K	LISTS+17
CRC1L^BUDERP6L	LISTS+18
CRC2L^BUDERP6L	LISTS+19
DEP1L^BUDERP6N	LISTS+22
DEP2L^BUDERP6N	LISTS+23
PAP1L^BUDERP6P	LISTS+4
PAP2L^BUDERP6P	LISTS+5
APT1L^BUDERP6S	LISTS+12
APT2L^BUDERP6S	LISTS+13
TUA1L^BUDERP6T	LISTS+10
TUA2L^BUDERP6T	LISTS+11
PRGAL^BUDERP6W	LISTS+1
^DIR	PAUSE+1, GENI+4, IMM1H+3, IMM2H+3
$$FMTE^XLFDT	IMM1HD+3, IMM1HD+7, IMM1H1+3, IMM1H1+7, IMM2HD+3, IMM2HD+7, IMM2H1+3, IMM2H1+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"UDS does not calculate the prenatal care indicators in Sections A and B." Line Location: PRENATT+1
Function Call: WRITE	Prompt: !,"However, you can run a list of patients identified by UDS as pregnant to" Line Location: PRENATT+2
Function Call: WRITE	Prompt: !,"determine which of them received prenatal care at your facility or were " Line Location: PRENATT+3
Function Call: WRITE	Prompt: !,"referred elsewhere by your facility for prenatal and perinatal services " Line Location: PRENATT+4
Function Call: WRITE	Prompt: !,"to assist you with completing Table 6B, Sections A and B. The menu options" Line Location: PRENATT+5
Function Call: WRITE	Prompt: !,"you would select to run the patient list are: LST, LST2, A-D, PRGA." Line Location: PRENATT+6
Function Call: WRITE	Prompt: ! Line Location: PRENATT+7
Function Call: WRITE	Prompt: !,"NOTE: Patient lists may be hundreds of pages long, depending on the size of your" Line Location: GENI+1
Function Call: WRITE	Prompt: !,"patient population. It is recommended that you run these reports at night and" Line Location: GENI+2
Function Call: WRITE	Prompt: !,"print to an electronic file, not directly to a printer.",! Line Location: GENI+3
Function Call: WRITE	Prompt: !!,"This Patient List option documents the individual patients and visits" Line Location: GENI+5
Function Call: WRITE	Prompt: !,"that are counted and summarized on each Table report (main menu" Line Location: GENI+6
Function Call: WRITE	Prompt: !,"option REP). The summary Table report is included at the beginning of each" Line Location: GENI+7
Function Call: WRITE	Prompt: !,"List report." Line Location: GENI+8
Function Call: WRITE	Prompt: !,"UDS searches your database to find all visits and related patients" Line Location: GENI+9
Function Call: WRITE	Prompt: !,"during the time period selected. Based on the UDS definition, to be counted" Line Location: GENI+10
Function Call: WRITE	Prompt: !,"as a patient, the patient must have had at least one visit meeting the " Line Location: GENI+11
Function Call: WRITE	Prompt: !,"following criteria:" Line Location: GENI+12
Function Call: WRITE	Prompt: !?4,"- must be to a location specified in your visit location setup" Line Location: GENI+13
Function Call: WRITE	Prompt: !?4,"- must be to Service Category Ambulatory (A), Hospitalization (H), Day" Line Location: GENI+14
Function Call: WRITE	Prompt: !?6,"Surgery (S), Observation (O), Telemedicine (M), Nursing home visit (R), " Line Location: GENI+15
Function Call: WRITE	Prompt: !?6,"or In-Hospital (I) visit" Line Location: GENI+16
Function Call: WRITE	Prompt: !?4,"- must NOT have an excluded clinic code (see User Manual for a list)" Line Location: GENI+17
Function Call: WRITE	Prompt: !?4,"- must have a primary provider and a coded purpose of visit" Line Location: GENI+18
Function Call: WRITE	Prompt: !?4,"- the patient must NOT have a gender of 'Unknown'" Line Location: GENI+19
Function Call: WRITE	Prompt: ! Line Location: GENI+20
Function Call: WRITE	Prompt: !!,"TOTAL PATIENTS IMMUNIZED: ",BUDTOT,! Line Location: IMM1L+6
Function Call: WRITE	Prompt: $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,$P(^DPT(DFN,0),U,2),?75,$$AGE^AUPNPAT(DFN,BUDED),! Line Location: IMM1L1+6
Function Call: WRITE	Prompt: ?4,BUDV,! Line Location: IMM1L1+11
Function Call: WRITE	Prompt: ! Line Location: IMM1H+3
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: IMM1H1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: IMM1H1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: IMM1H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 6B, Section C, With Childhood Immunizations",80),! Line Location: IMM1H1+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: IMM1H1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: IMM1H1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: IMM1H1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: IMM1H1+9
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE" Line Location: IMM1H1+12
Function Call: WRITE	Prompt: !?5,"IMMUNIZATIONS RCVD, CONTRAIND, EVID OF DISEASE" Line Location: IMM1H1+13
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: IMM1H1+14
Function Call: WRITE	Prompt: !!,"TOTAL PATIENTS NOT IMMUNIZED: ",BUDTOT,! Line Location: IMM2L+6
Function Call: WRITE	Prompt: $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,$P(^DPT(DFN,0),U,2),?75,$$AGE^AUPNPAT(DFN,BUDED),! Line Location: IMM2L1+6
Function Call: WRITE	Prompt: ?4,BUDV,! Line Location: IMM2L1+11
Function Call: WRITE	Prompt: ! Line Location: IMM2H+3
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: IMM2H1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: IMM2H1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: IMM2H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 6B, Section C, Without Childhood Immunizations",80),! Line Location: IMM2H1+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: IMM2H1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: IMM2H1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: IMM2H1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: IMM2H1+9
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE" Line Location: IMM2H1+12
Function Call: WRITE	Prompt: !?5,"IMMUNIZATIONS NOT RECEIVED" Line Location: IMM2H1+13
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: IMM2H1+14
Routine Call	DIR Line Location: PAUSE+1 GENI+4 IMM1H+3 IMM2H+3

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	LOC+1, IMM1HD+6, IMM1H1+6, IMM2HD+6, IMM2H1+6
^DPT - [#2]	IMM1L1+6, IMM1L1+13, IMM2L1+6, IMM2L1+13
^TMP($J	S+2*
^VA(200 - [#200]	USR+1, IMM1HD+3, IMM1H1+3, IMM2HD+3, IMM2H1+3
^XTMP("BUDERP6B"	IMM1L+3, IMM1L1+2, IMM1L1+3, IMM1L1+4, IMM1L1+8, IMM2L+3, IMM2L1+2, IMM2L1+3, IMM2L1+4, IMM2L1+8

Name	Line Occurrences
$$CTR	IMM1H1+4, IMM1H1+5, IMM1H1+6, IMM1H1+7, IMM1H1+8, IMM2H1+4, IMM2H1+5, IMM2H1+6, IMM2H1+7, IMM2H1+8
IMM1H	IMM1L+2, IMM1L+5, IMM1L1+1, IMM1L1+5, IMM1L1+10
IMM1H1	IMM1H+2
IMM1HD	IMM1H+1
IMM1L	LISTS+2
IMM1L1	IMM1L+4
IMM2H	IMM2L+2, IMM2L+5, IMM2L1+1, IMM2L1+5, IMM2L1+10
IMM2H1	IMM2H+2
IMM2HD	IMM2H+1
IMM2L	LISTS+3
IMM2L1	IMM2L+4
S	IMM1L+3, IMM1L+7, IMM1L1+13, IMM1HD+1, IMM1HD+2, IMM1HD+3, IMM1HD+4, IMM1HD+5, IMM1HD+6, IMM1HD+7 , IMM1HD+8, IMM1HD+10, IMM2L+3, IMM2L+7, IMM2L1+13, IMM2HD+1, IMM2HD+2, IMM2HD+3, IMM2HD+4, IMM2HD+5 , IMM2HD+6, IMM2HD+7, IMM2HD+8, IMM2HD+10

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BUDALL	IMM1L1+8, IMM1L1+9, IMM2L1+8, IMM2L1+9
>> BUDAPT1L	LISTS+12
>> BUDAPT2L	LISTS+13
>> BUDAWS1L	LISTS+8
>> BUDAWS2L	LISTS+9
>> BUDBD	IMM1HD+7, IMM1H1+7, IMM2HD+7, IMM2H1+7
>> BUDBEN	IMM1HD+8, IMM1H1+8, IMM2HD+8, IMM2H1+8
>> BUDCAD1L	LISTS+14
>> BUDCAD2L	LISTS+15
>> BUDCCOM	IMM1L1+3, IMM1L1+4, IMM1L1+6, IMM1L1+8, IMM1L1+13, IMM2L1+3, IMM2L1+4, IMM2L1+6, IMM2L1+8, IMM2L1+13
>> BUDDECNT	S+1*, S+2
>> BUDDEP1L	LISTS+22
>> BUDDEP2L	LISTS+23
>> BUDDRC1L	LISTS+18
>> BUDDRC2L	LISTS+19
>> BUDDS1L	LISTS+24
>> BUDDS2L	LISTS+25
>> BUDED	IMM1L1+6, IMM1L1+13, IMM1HD+7, IMM1H1+7, IMM2L1+6, IMM2L1+13, IMM2HD+7, IMM2H1+7
>> BUDGPG	LISTS+1, LISTS+2, LISTS+3, LISTS+4, LISTS+5, LISTS+6, LISTS+7, LISTS+8, LISTS+9, LISTS+10 , LISTS+11, LISTS+12, LISTS+13, LISTS+14, LISTS+15, LISTS+16, LISTS+17, LISTS+18, LISTS+19, LISTS+20 , LISTS+21, LISTS+22, LISTS+23, LISTS+24, LISTS+25, IMM1H+2, IMM1H1+1, IMM1H1+3, IMM2H+2, IMM2H1+1* , IMM2H1+3
>> BUDH	IMM1L+3, IMM1L1+2, IMM1L1+3, IMM1L1+4, IMM1L1+8, IMM2L+3, IMM2L1+2, IMM2L1+3, IMM2L1+4, IMM2L1+8
>> BUDHIV1L	LISTS+20
>> BUDHIV2L	LISTS+21
>> BUDIMM1L	LISTS+2
>> BUDIMM2L	LISTS+3
>> BUDIVD1L	LISTS+16
>> BUDIVD2L	LISTS+17
>> BUDJ	IMM1L+3, IMM1L1+2, IMM1L1+3, IMM1L1+4, IMM1L1+8, IMM2L+3, IMM2L1+2, IMM2L1+3, IMM2L1+4, IMM2L1+8
>> BUDNAME	IMM1L1+2, IMM1L1+3, IMM1L1+4, IMM1L1+8, IMM2L1+2, IMM2L1+3, IMM2L1+4, IMM2L1+8
>> BUDP	IMM1L+1, IMM1H1+10, IMM1H1+15, IMM2L+1, IMM2H1+10, IMM2H1+15
>> BUDPAP1L	LISTS+4
>> BUDPAP2L	LISTS+5
>> BUDPRGAL	LISTS+1
>> BUDQUIT	IMM1L+1, IMM1L+2, IMM1L+5, IMM1L1+1, IMM1L1+2, IMM1L1+3, IMM1L1+4, IMM1L1+5, IMM1L1+9, IMM1L1+10 , IMM1H+3, IMM2L+1, IMM2L+2, IMM2L+5, IMM2L1+1, IMM2L1+2, IMM2L1+3, IMM2L1+4, IMM2L1+5, IMM2L1+9 , IMM2L1+10, IMM2H+3
>> BUDROT	IMM1L+3, IMM1L+5, IMM1L+6, IMM1L+7, IMM1L1+1, IMM1L1+5, IMM1L1+6, IMM1L1+10, IMM1L1+11, IMM1L1+12 , IMM1L1+13, IMM1H+1, IMM2L+3, IMM2L+5, IMM2L+6, IMM2L+7, IMM2L1+1, IMM2L1+5, IMM2L1+6, IMM2L1+10 , IMM2L1+11, IMM2L1+12, IMM2L1+13, IMM2H+1
>> BUDSITE	IMM1L1+6, IMM1L1+13, IMM1HD+6, IMM1H1+6, IMM2L1+6, IMM2L1+13, IMM2HD+6, IMM2H1+6
>> BUDTOT	IMM1L+1, IMM1L+6, IMM1L+7, IMM1L1+7, IMM2L+1, IMM2L+6, IMM2L+7, IMM2L1+7
>> BUDTUA1L	LISTS+10
>> BUDTUA2L	LISTS+11
>> BUDV	IMM1L1+9, IMM1L1+11, IMM1L1+12, IMM2L1+9, IMM2L1+11, IMM2L1+12
>> BUDWAC1L	LISTS+6
>> BUDWAC2L	LISTS+7
>> BUDX	IMM1L1+9, IMM2L1+9
DA	PAUSE+1!
>> DFN	IMM1L1+4, IMM1L1+6, IMM1L1+8, IMM1L1+13, IMM2L1+4, IMM2L1+6, IMM2L1+8, IMM2L1+13
DIR	PAUSE+1!, GENI+4!, IMM1H+3!, IMM2H+3!
DIR("A"	PAUSE+1, GENI+4
DIR(0	PAUSE+1, GENI+4, IMM1H+3, IMM2H+3
DT	IMM1HD+3, IMM1H1+3, IMM2HD+3, IMM2H1+3
>> DTOUT	IMM1H+3, IMM2H+3
DUZ	USR+1, IMM1HD+3, IMM1H1+3, IMM2HD+3, IMM2H1+3
DUZ(2	LOC+1, IMM1L1+6, IMM1L1+13, IMM2L1+6, IMM2L1+13
IO	IMM1H+3, IMM2H+3
IO(0	IMM1H+3, IMM2H+3
IOF	IMM1H1+1, IMM2H1+1
IOM	CTR+1
IOSL	IMM1L+5, IMM1L1+1, IMM1L1+5, IMM1L1+10, IMM2L+5, IMM2L1+1, IMM2L1+5, IMM2L1+10
IOST	IMM1H+3, IMM2H+3
U	USR+1, LOC+1, IMM1L1+6, IMM1L1+9, IMM1L1+13, IMM1HD+3, IMM1HD+6, IMM1H1+3, IMM1H1+6, IMM2L1+6 , IMM2L1+9, IMM2L1+13, IMM2HD+3, IMM2HD+6, IMM2H1+3, IMM2H1+6
V	S~, S+2
X	CTR~, CTR+1, IMM1L1+9, IMM1L1+12, IMM1L1+13, IMM1HD+7, IMM1HD+8, IMM1H1+7, IMM1H1+8, IMM2L1+9* , IMM2L1+12, IMM2L1+13, IMM2HD+7, IMM2HD+8, IMM2H1+7, IMM2H1+8*
Y	CTR~, CTR+1, IMM1L1+13, IMM1H+3, IMM2L1+13, IMM2H+3
>> ZTQUEUED	IMM1H+3, IMM2H+3

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDERP6I

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: