Routine: BUD1RP6I

Package	Total	Call Graph
IHS Uniform Data System	5	(AWS1L,WAC1L,WAC2L)^BUD1RP6F AWS2L^BUD1RP6G (PAP1L,PAP2L)^BUD1RP6P (APT1L,APT2L)^BUD1RP6S (TCI1L,TCI2L,TUA1L,TUA2L)^BUD1RP6T
IHS Patient	1	($$AGE,$$HRN)^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	$$FMTE^XLFDT
Patient Care Component Reports	1	$$CLINIC^APCLV
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Uniform Data System	1	BUD1RP6B

Entry Points

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

External References

Name	Field # of Occurrence
$$CLINIC^APCLV	PRGAL1+16
$$AGE^AUPNPAT	PRGAL1+9, IMM1L1+6, IMM2L1+6
$$HRN^AUPNPAT	PRGAL1+9, IMM1L1+6, IMM2L1+6
AWS1L^BUD1RP6F	LISTS+8
WAC1L^BUD1RP6F	LISTS+6
WAC2L^BUD1RP6F	LISTS+7
AWS2L^BUD1RP6G	LISTS+9
PAP1L^BUD1RP6P	LISTS+4
PAP2L^BUD1RP6P	LISTS+5
APT1L^BUD1RP6S	LISTS+14
APT2L^BUD1RP6S	LISTS+15
TCI1L^BUD1RP6T	LISTS+12
TCI2L^BUD1RP6T	LISTS+13
TUA1L^BUD1RP6T	LISTS+10
TUA2L^BUD1RP6T	LISTS+11
^DIR	PAUSE+1, GENI+4, PRGAH+2, IMM1H+2, IMM2H+2
$$VAL^XBDIQ1	PRGAL1+16
$$FMTE^XLFDT	PRGAL1+16, PRGAH1+3, PRGAH1+7, IMM1H1+3, IMM1H1+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 to assist" Line Location: PRENATT+3
Function Call: WRITE	Prompt: !,"you with completing Table 6B, Sections A and B. The menu options you " Line Location: PRENATT+4
Function Call: WRITE	Prompt: !,"would select to run the patient list are: LST, LST2, PRGA." Line Location: PRENATT+5
Function Call: WRITE	Prompt: ! Line Location: PRENATT+6
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: ! Line Location: GENI+19
Function Call: WRITE	Prompt: !,$$CTR($$LOC,80) Line Location: PRGA+2
Function Call: WRITE	Prompt: !,$$CTR("UDS 2011",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: !!,"No patients to report." Line Location: PRGAL+3
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: ?5,BUDV,! Line Location: PRGAL1+14
Function Call: WRITE	Prompt: !,"Sub-Total ",BUDAB,": ",BUDSTOT,! Line Location: PRGAL1+17
Function Call: WRITE	Prompt: ! Line Location: PRGAH+2
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
Function Call: WRITE	Prompt: !,$$CTR($$LOC,80) Line Location: IMM1+2
Function Call: WRITE	Prompt: !,$$CTR("UDS 2011",80) Line Location: IMM1+3
Function Call: WRITE	Prompt: !!,"All Patients Age 2 w/All Child Immunizations (Table 6B)",! Line Location: IMM1+4
Function Call: WRITE	Prompt: !!,"This report provides a list of two year old patients who had their first" Line Location: IMM1+7
Function Call: WRITE	Prompt: !,"visit prior to their 2nd birthday, had a medical visit during the report" Line Location: IMM1+8
Function Call: WRITE	Prompt: !,"period, and have all required childhood immunizations." Line Location: IMM1+9
Function Call: WRITE	Prompt: ! Line Location: IMM1+10
Function Call: WRITE	Prompt: !!,"No patients to report.",! Line Location: IMM1L+3
Function Call: WRITE	Prompt: !!,"TOTAL PATIENTS IMMUNIZED: ",BUDTOT,! Line Location: IMM1L+6
Function Call: WRITE	Prompt: ! Line Location: IMM1H+2
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+15
Function Call: WRITE	Prompt: !?5,"IMMUNIZATIONS RCVD, CONTRAIND, EVID OF DISEASE" Line Location: IMM1H1+16
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: IMM1H1+17
Function Call: WRITE	Prompt: !,$$CTR($$LOC,80) Line Location: IMM2+2
Function Call: WRITE	Prompt: !,$$CTR("UDS 2011",80) Line Location: IMM2+3
Function Call: WRITE	Prompt: !!,"All Patients Age 2 w/o All Child Immunizations (Table 6B)",! Line Location: IMM2+4
Function Call: WRITE	Prompt: !!,"List of all 2-year old patients who had their first visit prior to their" Line Location: IMM2+7
Function Call: WRITE	Prompt: !,"2nd birthday, had a medical visit during the report period, and are in " Line Location: IMM2+8
Function Call: WRITE	Prompt: !,"need of the following immunizations to complete all required childhood " Line Location: IMM2+9
Function Call: WRITE	Prompt: !,"immunizations." Line Location: IMM2+10
Function Call: WRITE	Prompt: !,"Age is calculated as of December 31." Line Location: IMM2+11
Function Call: WRITE	Prompt: ! Line Location: IMM2+12
Function Call: WRITE	Prompt: !!,"No patients to report.",! Line Location: IMM2L+3
Function Call: WRITE	Prompt: !!,"TOTAL PATIENTS NOT IMMUNIZED: ",BUDTOT,! Line Location: IMM2L+6
Function Call: WRITE	Prompt: ! Line Location: IMM2H+2
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+16
Function Call: WRITE	Prompt: !?5,"IMMUNIZATIONS NOT RECEIVED" Line Location: IMM2H1+17
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: IMM2H1+18
Routine Call	DIR Line Location: PAUSE+1 GENI+4 PRGAH+2 IMM1H+2 IMM2H+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	PRGAL1+16
^DIC(4 - [#4]	LOC+1, PRGAH1+6, IMM1H1+6, IMM2H1+6
^DPT - [#2]	PRGAL1+9, IMM1L1+6, IMM2L1+6
^VA(200 - [#200]	USR+1, PRGAH1+3, IMM1H1+3, IMM2H1+3
^XTMP("BUD1RP6B"	PRGAL+3, PRGAL1+4, PRGAL1+5, PRGAL1+6, PRGAL1+7, PRGAL1+11, IMM1L+3, IMM1L1+2, IMM1L1+3, IMM1L1+4 , IMM1L1+8, IMM2L+3, IMM2L1+2, IMM2L1+3, IMM2L1+4, IMM2L1+8

Label References

Name	Line Occurrences
$$CTR	PRGA+2, PRGA+3, PRGAH1+4, PRGAH1+5, PRGAH1+6, PRGAH1+7, PRGAH1+8, IMM1+2, IMM1+3, IMM1H1+4 , IMM1H1+5, IMM1H1+6, IMM1H1+7, IMM1H1+8, IMM2+2, IMM2+3, IMM2H1+4, IMM2H1+5, IMM2H1+6, IMM2H1+7 , IMM2H1+8
$$LOC	PRGA+2, IMM1+2, IMM2+2
GENI	PRGA+5, IMM1+5, IMM2+5
IMM1H	IMM1L+2, IMM1L+5, IMM1L1+1, IMM1L1+5, IMM1L1+10
IMM1H1	IMM1H+1
IMM1L	LISTS+2
IMM1L1	IMM1L+4
IMM2H	IMM2L+2, IMM2L+5, IMM2L1+1, IMM2L1+5, IMM2L1+10
IMM2H1	IMM2H+1
IMM2L	LISTS+3
IMM2L1	IMM2L+4
PAUSE	PRGA+6, IMM1+6, IMM2+6
PRGAH	PRGAL+2, PRGAL+14, PRGAL1+1, PRGAL1+8, PRGAL1+13
PRGAH1	PRGAH+1
PRGAL	LISTS+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

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+4*, PRGAL1+5, PRGAL1+6, PRGAL1+7, PRGAL1+11
>> BUDAB	PRGAL+4, PRGAL+6, PRGAL+8, PRGAL+10, PRGAL+12*, PRGAL1+2, PRGAL1+4, PRGAL1+5, PRGAL1+6, PRGAL1+7 , PRGAL1+11, PRGAL1+17
>> BUDALL	PRGAL1+11, PRGAL1+12, IMM1L1+8, IMM1L1+9, IMM2L1+8*, IMM2L1+9
>> BUDAPT1L	LISTS+14
>> BUDAPT2L	LISTS+15
>> BUDAWS1L	LISTS+8
>> BUDAWS2L	LISTS+9
>> BUDBD	PRGAH1+7, IMM1H1+7, IMM2H1+7
>> BUDBEN	PRGAH1+8, IMM1H1+8, IMM2H1+8
>> BUDCAD	PRGAL1+9
>> BUDCOM	PRGAL1+6, PRGAL1+7, PRGAL1+9, PRGAL1+11, IMM1L1+3, IMM1L1+4, IMM1L1+6, IMM1L1+8, IMM2L1+3*, IMM2L1+4 , IMM2L1+6, IMM2L1+8
>> BUDED	PRGAH1+7, IMM1L1+6, IMM1H1+7, IMM2L1+6, 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, PRGAH+1, PRGAH1+1, PRGAH1+3, IMM1H+1, IMM1H1+1* , IMM1H1+3, IMM2H+1, IMM2H1+1*, IMM2H1+3
>> BUDH	PRGAL+3, PRGAL1+4, PRGAL1+5, PRGAL1+6, PRGAL1+7, PRGAL1+11, IMM1L+3, IMM1L1+2, IMM1L1+3, IMM1L1+4 , IMM1L1+8, IMM2L+3, IMM2L1+2, IMM2L1+3, IMM2L1+4, IMM2L1+8
>> BUDIMM1L	LISTS+2
>> BUDIMM2L	LISTS+3
>> BUDJ	PRGAL+3, PRGAL1+4, PRGAL1+5, PRGAL1+6, PRGAL1+7, PRGAL1+11, IMM1L+3, IMM1L1+2, IMM1L1+3, IMM1L1+4 , IMM1L1+8, IMM2L+3, IMM2L1+2, IMM2L1+3, IMM2L1+4, IMM2L1+8
>> BUDNAME	PRGAL1+5, PRGAL1+6, PRGAL1+7, PRGAL1+11, IMM1L1+2, IMM1L1+3, IMM1L1+4, IMM1L1+8, IMM2L1+2*, IMM2L1+3 , IMM2L1+4, IMM2L1+8
>> BUDP	PRGAL+1, PRGAH1+10, PRGAH1+19, IMM1L+1, IMM1H1+10, IMM1H1+18, IMM2L+1, IMM2H1+10, IMM2H1+19
>> BUDPAP1L	LISTS+4
>> BUDPAP2L	LISTS+5
>> BUDPRGAL	LISTS+1
>> BUDQUIT	PRGAL+1, PRGAL+2, PRGAL+5, PRGAL+7, PRGAL+9, PRGAL+11, PRGAL+13, PRGAL+14, PRGAL1+1, PRGAL1+4 , PRGAL1+5, PRGAL1+6, PRGAL1+7, PRGAL1+8, PRGAL1+12, PRGAL1+13, PRGAH+2, IMM1L+1, IMM1L+2, IMM1L+5 , IMM1L1+1, IMM1L1+2, IMM1L1+3, IMM1L1+4, IMM1L1+5, IMM1L1+9, IMM1L1+10, IMM1H+2, IMM2L+1, IMM2L+2 , IMM2L+5, IMM2L1+1, IMM2L1+2, IMM2L1+3, IMM2L1+4, IMM2L1+5, IMM2L1+9, IMM2L1+10, IMM2H+2
>> BUDSITE	PRGAL1+9, PRGAH1+6, IMM1L1+6, IMM1H1+6, IMM2L1+6, IMM2H1+6
>> BUDSTOT	PRGAL1+3, PRGAL1+10, PRGAL1+17
>> BUDTCI1L	LISTS+12
>> BUDTCI2L	LISTS+13
>> BUDTOT	PRGAL+1, PRGAL+15, PRGAL1+10, IMM1L+1, IMM1L+6, IMM1L1+7, IMM2L+1, IMM2L+6, IMM2L1+7
>> BUDTUA1L	LISTS+10
>> BUDTUA2L	LISTS+11
>> BUDV	PRGAL1+12, PRGAL1+14, PRGAL1+15, IMM1L1+9, IMM1L1+11, IMM2L1+9*, IMM2L1+11
>> BUDWAC1L	LISTS+6
>> BUDWAC2L	LISTS+7
>> BUDX	PRGAL1+12, IMM1L1+9, IMM2L1+9*
>> C	PRGAL1+15*, PRGAL1+16
DA	PAUSE+1!
>> DFN	PRGAL1+7, PRGAL1+9, PRGAL1+11, IMM1L1+4, IMM1L1+6, IMM1L1+8, IMM2L1+4*, IMM2L1+6, IMM2L1+8
DIR	PAUSE+1!, GENI+4!, PRGAH+2!, IMM1H+2!, IMM2H+2!
DIR("A"	PAUSE+1, GENI+4
DIR(0	PAUSE+1, GENI+4, PRGAH+2, IMM1H+2, IMM2H+2*
DT	PRGAH1+3, IMM1H1+3, IMM2H1+3
>> DTOUT	PRGAH+2, IMM1H+2, IMM2H+2
DUZ	USR+1, PRGAH1+3, IMM1H1+3, IMM2H1+3
DUZ(2	LOC+1, PRGAL1+9, IMM1L1+6, IMM2L1+6
IO	PRGAH+2, IMM1H+2, IMM2H+2
IO(0	PRGAH+2, IMM1H+2, IMM2H+2
IOF	PRGA+1, PRGAH1+1, IMM1+1, IMM1H1+1, IMM2+1, IMM2H1+1
IOM	CTR+1
IOSL	PRGAL+14, PRGAL1+1, PRGAL1+8, PRGAL1+13, IMM1L+5, IMM1L1+1, IMM1L1+5, IMM1L1+10, IMM2L+5, IMM2L1+1 , IMM2L1+5, IMM2L1+10
IOST	PRGAH+2, IMM1H+2, IMM2H+2
U	USR+1, LOC+1, PRGAL1+9, PRGAL1+12, PRGAL1+16, PRGAH1+3, PRGAH1+6, IMM1L1+6, IMM1L1+9, IMM1H1+3 , IMM1H1+6, IMM2L1+6, IMM2L1+9, IMM2H1+3, IMM2H1+6
>> V	PRGAL1+15*, PRGAL1+16
X	CTR~, CTR+1, PRGAH1+7, PRGAH1+8, IMM1H1+7, IMM1H1+8, IMM2H1+7, IMM2H1+8
Y	CTR~, CTR+1, PRGAH+2, IMM1H+2, IMM2H+2
>> ZTQUEUED	PRGAH+2, IMM1H+2, IMM2H+2

Customize PDF page

Package: IHS Uniform Data System

Routine: BUD1RP6I

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: