Routine: BUDARPL1

Information

BUDARPL1 ; IHS/CMI/LAB - UDS print lists ;

Source Information

Source file <BUDARPL1.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
IHS Patient	1	($$AGE,$$HRN)^AUPNPAT
IHS Uniform Data System	1	$$RACE^BUDARPTC
Kernel	1	$$FMTE^XLFDT
Patient Care Component Reports	1	($$CLINIC,$$LOCENC)^APCLV
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
T6W	;
22	;;Mammogram
USR()	;EP - Return name of current user from ^VA(200.
T6H	;
TOL	;EP
32	;;Dental: III. Restorative Services
24	;;Selected Immunizations
25	;;Contraceptive Management
26	;;Health supervision of infant or child (ages 0 through 11)
27	;;Dental: I. Emergency Services
20	;;Other Mental disorders, excluding drug or alcohol dependence
21	;;HIV Test
LOC()	;EP - Return location name from file 4 based on DUZ(2).
23	;;Pap Smear
CTR(X,Y)	;EP - Center X in a field Y wide.
28	;;Dental: II. Oral Exams
29	;;Dental: Prophylaxis - adult or child
1	;;Symptomatic HIV
3	;;Tuberculosis
2	;;Asymptomatic HIV
5	;;Asthma
4	;;Syphilis and other sexually transmitted diseases
7	;;Abnormal breast findings, female
6	;;Chronic bronchitis and emphysema
9	;;Diabetes mellitus
8	;;Abnormal cervical findings
11	;;Hypertension
10	;;Heart disease (selected)
13	;;Dehydration
12	;;Contact dermatitis and other eczema
15	;;Otitis media and eustachian tube disorders
14	;;Exposure to heat or cold
17	;;Lack of expected normal physiological development
16	;;Selected perinatal medical conditions
19	;;Other substance related disorders (excluding tobacco use disorder)
18	;;Alcohol related disorders
31	;;Dental: Flouride treatment
30	;;Dental: Sealants
34	;;Dental: V. Rehabilitative services (Endo, Perio, Porstho, Ortho)
33	;;Dental: IV. Oral Surger (extractions only)
T6H1	;

External References

Name	Field # of Occurrence
$$CLINIC^APCLV	T6W+5
$$LOCENC^APCLV	T6W+5
$$AGE^AUPNPAT	T6W+2
$$HRN^AUPNPAT	T6W+1
$$RACE^BUDARPTC	T6W+2
^DIR	T6H+2
$$FMTE^XLFDT	T6W+5, T6H1+3, T6H1+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No Incomplete visits to report.",!! Line Location: TOL+1
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),U,1),1,22),?24,$S($$HRN^AUPNPAT(DFN,BUDSITE)]"":$$HRN^AUPNPAT(DFN,BUDSITE,2),1:$$HRN^AUPNPAT(DFN,DUZ(2),2)),?36,$E(BUDCOM,1,12),?51,$P(^DPT(DFN,0),U,2) Line Location: T6W+1
Function Call: WRITE	Prompt: ?55,$$AGE^AUPNPAT(DFN,BUDCAD),?60,$E($P($$RACE^BUDARPTC(DFN),U,3)_"-"_$P($$RACE^BUDARPTC(DFN),U,4),1,19) Line Location: T6W+2
Function Call: WRITE	Prompt: !!,"Line ",BUDX2L," ",$P($T(@BUDX2L),";;",2) Line Location: T6W+4
Function Call: WRITE	Prompt: ! Line Location: T6H+2
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: T6H1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: T6H1+3
Function Call: WRITE	Prompt: !,$$CTR("* BPHC Uniform Data System (UDS) *",80) Line Location: T6H1+4
Function Call: WRITE	Prompt: !,$$CTR("Incomplete Visit List w/Services relevant to Table 6A",80),! Line Location: T6H1+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: T6H1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: T6H1+7
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: T6H1+8
Function Call: WRITE	Prompt: !,"List of all incomplete visits with a service relevant to Table 6A.",!,"These services are not included in Table 6A." Line Location: T6H1+9
Function Call: WRITE	Prompt: !,"PATIENT NAME",?24,"HRN",?36,"COMMUNITY",?50,"SEX",?55,"AGE",?60,"RACE*" Line Location: T6H1+13
Function Call: WRITE	Prompt: !?5,"VISIT DATE",?25,"PROV TYPE",?41,"SRV",?45,"CLINIC",?62,"LOCATION" Line Location: T6H1+14
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: T6H1+15
Routine Call	DIR Line Location: T6H+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	T6W+5
^DIC(4 - [#4]	T6H1+6, LOC+1
^DPT - [#2]	T6W+1
^VA(200 - [#200]	T6H1+3, USR+1
^XTMP("BUDARPT1"	TOL+1, TOL+3, TOL+6, TOL+7, TOL+8, TOL+9, T6W+3, T6W+5

Label References

Name	Line Occurrences
$$CTR	T6H1+4, T6H1+5, T6H1+6, T6H1+7
T6H	TOL+1, TOL+4, T6W+4
T6H1	T6H+1
T6W	TOL+9

Naked Globals

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

Local Variables

Name	Field # of Occurrence
>> BUDAGE	TOL+7*, TOL+8, TOL+9, T6W+3, T6W+5
>> BUDBD	T6H1+7
>> BUDCAD	T6W+2
>> BUDCOM	TOL+6*, TOL+7, TOL+8, TOL+9, T6W+1, T6W+3, T6W+5
>> BUDED	T6H1+7
>> BUDGPG	T6H+1, T6H1+1*, T6H1+3
>> BUDH	TOL+1, TOL+3, TOL+6, TOL+7, TOL+8, TOL+9, T6W+3, T6W+5
>> BUDJ	TOL+1, TOL+3, TOL+6, TOL+7, TOL+8, TOL+9, T6W+3, T6W+5
>> BUDP	TOL+2, T6H1+9, T6H1+16
>> BUDQUIT	TOL+3, TOL+4, TOL+6, TOL+7, TOL+8, TOL+9, T6W+3, T6W+4, T6H+2*
>> BUDSEX	TOL+8*, TOL+9, T6W+3, T6W+5
>> BUDSITE	T6W+1, T6H1+6
>> BUDV	T6W+3*, T6W+5
>> BUDX2L	TOL+3*, TOL+5, TOL+6, TOL+7, TOL+8, TOL+9, T6W+3, T6W+4, T6W+5
>> DFN	TOL+9*, T6W+1, T6W+2, T6W+3, T6W+5
DIR	T6H+2!
DIR(0	T6H+2*
DT	T6H1+3
>> DTOUT	T6H+2
DUZ	T6H1+3, USR+1
DUZ(2	T6W+1, LOC+1
IO	T6H+2
IO(0	T6H+2
IOF	T6H1+1
IOM	CTR+1
IOSL	T6W+4
IOST	T6H+2
U	T6W+1, T6W+2, T6W+5, T6H1+3, T6H1+6, USR+1, LOC+1
X	T6H1+7*, CTR~, CTR+1
Y	T6H+2, CTR~, CTR+1
>> ZTQUEUED	T6H+2

Marked Items

Name	Field # of Occurrence
$T(@BUDX2L	TOL+5, T6W+4

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDARPL1

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed