Routine: BUDDRP6A

Information

BUDDRP6A ; IHS/CMI/LAB - HIV/DEP 16 Nov 2016 8:52 AM ; 15 Dec 2016 9:46 AM

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
IHS Uniform Data System	4	($$CPTI,$$PLCL,HT6B,IN6B)^BUDDDU EN1^BUDDRP6B GENI^BUDDRP6I $$DATE^BUDDUTL1
IHS VA Utilities	2	($$VAL,$$VALI)^XBDIQ1 EN^XBVK
Patient Care Component Reports	2	ALLV^APCLAPIU $$START1^APCLDF
DRG Grouper	1	$$CPT^ICPTCOD
IHS Patient	1	($$AGE,$$DOB,$$HRN)^AUPNPAT
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 3

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

Entry Points

Name	Comments	DBIA/ICR reference
HIV1H1	;
S(V)	;
EOJ	;
HIV1L	;EP
HIV1H	;
HIV2	;EP
HIV1	;EP
HIV2HD	;
LOC()	;
CTR(X,Y)	;
NOSEAL(P,EDATE)	;
HIVLIST1	;EP
DENTALVS(P,BDATE,EDATE)	;
PAUSE	;
N	;EP - DENTAL SEALANT
HIV2H	;
HIVLIST2	;EP
HIV2L	;EP
HIV2L1	;
HIV2H1	;
HIV1HD	;
HIV1L1	;
SEAL(P,BDATE,EDATE)	;
GENI	;EP

External References

Name	Field # of Occurrence
ALLV^APCLAPIU	DENTALVS+3
$$START1^APCLDF	NOSEAL+3, SEAL+5
$$AGE^AUPNPAT	HIV1L1+11, HIV2L1+11
$$DOB^AUPNPAT	NOSEAL+3
$$HRN^AUPNPAT	HIV1L1+7, HIV1L1+11, HIV2L1+7, HIV2L1+11
$$CPTI^BUDDDU	SEAL+17, SEAL+19, SEAL+21
$$PLCL^BUDDDU	NOSEAL+10
HT6B^BUDDDU	HIV1HD+11, HIV1H1+11, HIV2HD+10, HIV2H1+11
IN6B^BUDDDU	HIV1+1, HIV2+1
EN1^BUDDRP6B	HIVLIST1+4, HIVLIST2+4
GENI^BUDDRP6I	GENI+1
$$DATE^BUDDUTL1	DENTALVS+13, DENTALVS+14, DENTALVS+15, DENTALVS+16, DENTALVS+22, DENTALVS+23, DENTALVS+24, DENTALVS+25, DENTALVS+31, DENTALVS+32 , DENTALVS+33, DENTALVS+34
^DIR	PAUSE+1, HIV1H+3, HIV2H+3
$$CPT^ICPTCOD	SEAL+17, SEAL+19, SEAL+21
$$VAL^XBDIQ1	DENTALVS+12, DENTALVS+20, DENTALVS+29, SEAL+8
$$VALI^XBDIQ1	SEAL+9
EN^XBVK	EOJ+1
$$FMTE^XLFDT	HIV1HD+3, HIV1HD+8, HIV1H1+3, HIV1H1+7, HIV2HD+3, HIV2HD+8, HIV2H1+3, HIV2H1+7, SEAL+5, SEAL+14 , SEAL+18, SEAL+20, SEAL+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"TOTAL PATIENTS WITH FIRST HIV DX & TIMELY FOLLOW-UP: ",BUDTOT,! Line Location: HIV1L+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,BUDAGE,! Line Location: HIV1L1+7
Function Call: WRITE	Prompt: ?5,$P(BUDALL,"\|",1),?35,$S($P(BUDALL,"\|",3)]"":$P(BUDALL,"\|",3),1:"None"),?46,$P(BUDALL,"\|",2) Line Location: HIV1L1+10
Function Call: WRITE	Prompt: ! Line Location: HIV1H+3
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: HIV1H1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: HIV1H1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: HIV1H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 6B, Section L,",80),!,$$CTR("Newly Identified HIV Cases with Timely Follow-Up",80),! Line Location: HIV1H1+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: HIV1H1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HIV1H1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HIV1H1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: HIV1H1+9
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE" Line Location: HIV1H1+12
Function Call: WRITE	Prompt: !?5,"First HIV DX: Date",?35,"Date of Onset",?50,"HIV Follow-up: Date" Line Location: HIV1H1+13
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: HIV1H1+14
Function Call: WRITE	Prompt: !,"TOTAL PATIENTS WITH FIRST HIV DX & TIMELY FOLLOW-UP: ",BUDTOT,! Line Location: HIV2L+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,BUDAGE,! Line Location: HIV2L1+7
Function Call: WRITE	Prompt: ?5,$P(BUDALL,"\|",1),?35,$S($P(BUDALL,"\|",3)]"":$P(BUDALL,"\|",3),1:"None"),?46,$P(BUDALL,"\|",2) Line Location: HIV2L1+10
Function Call: WRITE	Prompt: ! Line Location: HIV2H+3
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: HIV2H1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: HIV2H1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: HIV2H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 6B, Section L,",80),!,$$CTR("Newly Identified HIV Cases without Timely Follow-Up",80),! Line Location: HIV2H1+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: HIV2H1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HIV2H1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HIV2H1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: HIV2H1+9
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE" Line Location: HIV2H1+12
Function Call: WRITE	Prompt: !?5,"First HIV DX: Date",?35,"Date of Onset",?50,"HIV Follow-up: Date" Line Location: HIV2H1+13
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: HIV2H1+14
Routine Call	DIR Line Location: PAUSE+1 HIV1H+3 HIV2H+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ADEOPS - [#9002010.03]	SEAL+11
^AUPNVCPT - [#9000010.18]	DENTALVS+19
^AUPNVCPT("AD"	DENTALVS+18
^AUPNVDEN - [#9000010.05]	DENTALVS+11
^AUPNVDEN("AD"	DENTALVS+10
^AUPNVPOV - [#9000010.07]	NOSEAL+7
^AUPNVTC - [#9000010.33]	DENTALVS+28
^AUPNVTC("AD"	DENTALVS+27
^BUDDTSSC - [#90668.8]	DENTALVS+13, DENTALVS+14, DENTALVS+15
^BUDDTSSC("AC"	DENTALVS+22, DENTALVS+23, DENTALVS+24, DENTALVS+31, DENTALVS+32, DENTALVS+33
^BUDDTSSC("AD"	NOSEAL+8
^BUDDTSSC("B"	DENTALVS+4, DENTALVS+5, DENTALVS+6, NOSEAL+4
^DIC(4 - [#4]	LOC+1, HIV1HD+7, HIV1H1+6, HIV2HD+7, HIV2H1+6
^DPT - [#2]	HIV1L1+7, HIV1L1+11, HIV2L1+7, HIV2L1+11, N+5, N+19, N+22
^TMP($J	S+2*
^VA(200 - [#200]	HIV1HD+3, HIV1H1+3, HIV2HD+3, HIV2H1+3
^XTMP("BUDDRP6B"	HIV1L+3, HIV1L1+2, HIV1L1+3, HIV1L1+4, HIV1L1+5, HIV1L1+9, HIV2L+3, HIV2L1+2, HIV2L1+3, HIV2L1+4 , HIV2L1+5, HIV2L1+9, N+19, N+22

Label References

Name	Line Occurrences
$$CTR	HIV1H1+4, HIV1H1+5, HIV1H1+6, HIV1H1+7, HIV1H1+8, HIV2H1+4, HIV2H1+5, HIV2H1+6, HIV2H1+7, HIV2H1+8
$$DENTALVS	N+9
$$NOSEAL	N+8
EOJ	HIVLIST1+1, HIVLIST2+1
HIV1	HIVLIST1+3
HIV1H	HIV1L+2, HIV1L+5, HIV1L1+1, HIV1L1+6
HIV1H1	HIV1H+2
HIV1HD	HIV1H+1
HIV1L1	HIV1L+4
HIV2	HIVLIST2+3
HIV2H	HIV2L+2, HIV2L+5, HIV2L1+1, HIV2L1+6
HIV2H1	HIV2H+2
HIV2HD	HIV2H+1
HIV2L1	HIV2L+4
S	HIV1L+3, HIV1L+7, HIV1L1+12, HIV1HD+1, HIV1HD+2, HIV1HD+3, HIV1HD+4, HIV1HD+5, HIV1HD+6, HIV1HD+7 , HIV1HD+8, HIV1HD+9, HIV1HD+10, HIV1HD+12, HIV2L+3, HIV2L+7, HIV2L1+12, HIV2HD+1, HIV2HD+2, HIV2HD+3 , HIV2HD+4, HIV2HD+5, HIV2HD+6, HIV2HD+7, HIV2HD+8, HIV2HD+9, HIV2HD+11

Naked Globals

Name	Field # of Occurrence
^(0	LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NOSEAL+2~, NOSEAL+3, SEAL+3~, SEAL+5
A	SEAL+3~, SEAL+8*, SEAL+12, SEAL+14
BDATE	DENTALVS~, DENTALVS+3, SEAL~, SEAL+5, SEAL+17, SEAL+19, SEAL+21
BGPG	SEAL+3~
BGPG(	SEAL+6, SEAL+7, SEAL+14
BUDADA	N+2~, N+9*, N+10, N+11, N+12, N+15, N+19, N+22
>> BUDAGE	HIV1L1+2, HIV1L1+3, HIV1L1+4, HIV1L1+5, HIV1L1+7, HIV1L1+9, HIV2L1+2, HIV2L1+3, HIV2L1+4, HIV2L1+5 , HIV2L1+7, HIV2L1+9, N+19, N+22
>> BUDALL	HIV1L1+9, HIV1L1+10, HIV1L1+12, HIV2L1+9, HIV2L1+10, HIV2L1+12
BUDAST	DENTALVS+1~, DENTALVS+2, DENTALVS+13, DENTALVS+14, DENTALVS+15, DENTALVS+16, DENTALVS+22, DENTALVS+23, DENTALVS+24, DENTALVS+25* , DENTALVS+31, DENTALVS+32, DENTALVS+33, DENTALVS+34, DENTALVS+35
>> BUDBD	HIV1HD+8, HIV1H1+7, HIV2HD+8, HIV2H1+7, N+3, N+9
>> BUDBEN	HIV1HD+9, HIV1H1+8, HIV2HD+9, HIV2H1+8
>> BUDCCAD	HIV1L1+11, HIV2L1+11
>> BUDCCOM	HIV1L1+4, HIV1L1+5, HIV1L1+7, HIV1L1+9, HIV1L1+11, HIV2L1+4, HIV2L1+5, HIV2L1+7, HIV2L1+9, HIV2L1+11 , N+19, N+22
>> BUDDECNT	S+1*, S+2
>> BUDDOB	N+5*, N+6, N+7
>> BUDDS1L	N+18
>> BUDDS2L	N+21
>> BUDDTA	N+15*, N+16
>> BUDED	HIV1HD+8, HIV1H1+7, HIV2HD+8, HIV2H1+7, N+4, N+8, N+9
BUDG	NOSEAL+2~, NOSEAL+3!
BUDG(	NOSEAL+5, NOSEAL+6
>> BUDGPG	HIV1H+2, HIV1H1+1, HIV1H1+3, HIV2H+2, HIV2H1+1, HIV2H1+3
>> BUDH	HIV1L+3, HIV1L1+2, HIV1L1+3, HIV1L1+4, HIV1L1+5, HIV1L1+9, HIV2L+3, HIV2L1+2, HIV2L1+3, HIV2L1+4 , HIV2L1+5, HIV2L1+9, N+19, N+22
>> BUDHIV1L	HIVLIST1+2*
>> BUDHIV2L	HIVLIST2+2*
>> BUDJ	HIV1L+3, HIV1L1+2, HIV1L1+3, HIV1L1+4, HIV1L1+5, HIV1L1+9, HIV2L+3, HIV2L1+2, HIV2L1+3, HIV2L1+4 , HIV2L1+5, HIV2L1+9, N+19, N+22
>> BUDNAME	HIV1L1+3, HIV1L1+4, HIV1L1+5, HIV1L1+9, HIV2L1+3, HIV2L1+4, HIV2L1+5, HIV2L1+9
>> BUDP	HIV1L+1, HIV1H1+10, HIV1H1+15, HIV2L+1, HIV2H1+10, HIV2H1+15
>> BUDQUIT	HIV1L+1, HIV1L+2, HIV1L+5, HIV1L1+1, HIV1L1+2, HIV1L1+3, HIV1L1+4, HIV1L1+5, HIV1L1+6, HIV1H+3 , HIV2L+1, HIV2L+2, HIV2L+5, HIV2L1+1, HIV2L1+2, HIV2L1+3, HIV2L1+4, HIV2L1+5, HIV2L1+6, HIV2H+3
>> BUDROT	HIV1L+3, HIV1L+5, HIV1L+6, HIV1L+7, HIV1L1+1, HIV1L1+6, HIV1L1+7, HIV1L1+10, HIV1L1+11, HIV1H+1 , HIV2L+3, HIV2L+5, HIV2L+6, HIV2L+7, HIV2L1+1, HIV2L1+6, HIV2L1+7, HIV2L1+10, HIV2L1+11, HIV2H+1
>> BUDSECTN("PTS"	N+14*
>> BUDSECTN("SEAL"	N+17*
>> BUDSITE	HIV1L1+7, HIV1L1+11, HIV1HD+7, HIV1H1+6, HIV2L1+7, HIV2L1+11, HIV2HD+7, HIV2H1+6
>> BUDTOT	HIV1L+1, HIV1L+6, HIV1L+7, HIV1L1+8, HIV2L+1, HIV2L+6, HIV2L+7, HIV2L1+8
BUDVS	DENTALVS+1~
BUDVS(	DENTALVS+7, DENTALVS+8, DENTALVS+9
BUDX6YRE	N+2~, N+4*, N+7
BUDX9YRB	N+2~, N+3*, N+6
CTR	DENTALVS+1~, DENTALVS+7*, DENTALVS+8, DENTALVS+9
D	SEAL+3~, SEAL+7*, SEAL+8, SEAL+9
DA	PAUSE+1!
>> DFN	HIV1L1+5, HIV1L1+7, HIV1L1+9, HIV1L1+11, HIV2L1+5, HIV2L1+7, HIV2L1+9, HIV2L1+11, N+5, N+8 , N+9, N+19, N+22
DIR	PAUSE+1!, HIV1H+3!, HIV2H+3!
DIR("A"	PAUSE+1*
DIR(0	PAUSE+1, HIV1H+3, HIV2H+3*
DT	HIV1HD+3, HIV1H1+3, HIV2HD+3, HIV2H1+3
>> DTOUT	HIV1H+3, HIV2H+3
DUZ	HIV1HD+3, HIV1H1+3, HIV2HD+3, HIV2H1+3
DUZ(2	LOC+1, HIV1L1+7, HIV1L1+11, HIV2L1+7, HIV2L1+11
E	NOSEAL+2~, NOSEAL+3, SEAL+3~, SEAL+5, SEAL+6*, SEAL+7, SEAL+14
EDATE	DENTALVS~, DENTALVS+3, NOSEAL~, NOSEAL+3, NOSEAL+10, SEAL~, SEAL+5, SEAL+17, SEAL+19, SEAL+21
G	NOSEAL+2~, NOSEAL+5, NOSEAL+8, NOSEAL+9, NOSEAL+11, SEAL+3~, SEAL+4, SEAL+6, SEAL+14, SEAL+15
IO	HIV1H+3, HIV2H+3
IO(0	HIV1H+3, HIV2H+3
IOF	HIV1H1+1, HIV2H1+1
IOM	CTR+1
IOSL	HIV1L+5, HIV1L1+1, HIV1L1+6, HIV2L+5, HIV2L1+1, HIV2L1+6
IOST	HIV1H+3, HIV2H+3
P	DENTALVS~, DENTALVS+3, NOSEAL~, NOSEAL+3, NOSEAL+10, SEAL~, SEAL+5, SEAL+17, SEAL+19, SEAL+21
T	NOSEAL+2~, NOSEAL+4, NOSEAL+8, SEAL+3~, SEAL+9, SEAL+10, SEAL+11*, SEAL+13
TIEN	DENTALVS+1~, DENTALVS+4*, DENTALVS+13, DENTALVS+22, DENTALVS+31
TIEN1	DENTALVS+1~, DENTALVS+5*, DENTALVS+14, DENTALVS+23, DENTALVS+32
>> TIEN2	DENTALVS+6*, DENTALVS+15, DENTALVS+24, DENTALVS+33
U	LOC+1, HIV1L1+7, HIV1L1+11, HIV1L1+12, HIV1HD+3, HIV1HD+7, HIV1H1+3, HIV1H1+6, HIV2L1+7, HIV2L1+11 , HIV2L1+12, HIV2HD+3, HIV2HD+7, HIV2H1+3, HIV2H1+6, N+5, N+10, N+11, N+12, N+15 , N+19, N+22, DENTALVS+8, DENTALVS+9, DENTALVS+13, DENTALVS+14, DENTALVS+15, DENTALVS+16, DENTALVS+22, DENTALVS+23 , DENTALVS+24, DENTALVS+25, DENTALVS+31, DENTALVS+32, DENTALVS+33, DENTALVS+34, NOSEAL+6, NOSEAL+7, SEAL+7, SEAL+11 , SEAL+14, SEAL+17, SEAL+18, SEAL+19, SEAL+20, SEAL+21, SEAL+22
V	S~, S+2
VDATE	DENTALVS+1~, DENTALVS+9*, DENTALVS+13, DENTALVS+14, DENTALVS+15, DENTALVS+16, DENTALVS+22, DENTALVS+23, DENTALVS+24, DENTALVS+25 , DENTALVS+31, DENTALVS+32, DENTALVS+33, DENTALVS+34
VIEN	DENTALVS+1~, DENTALVS+8*, DENTALVS+10, DENTALVS+18, DENTALVS+27
X	CTR~, CTR+1, HIV1L1+11, HIV1L1+12, HIV1HD+8, HIV1HD+9, HIV1H1+7, HIV1H1+8, HIV2L1+11, HIV2L1+12 , HIV2HD+8, HIV2HD+9, HIV2H1+7, HIV2H1+8, DENTALVS+1~, DENTALVS+10, DENTALVS+11, DENTALVS+12, DENTALVS+18, DENTALVS+19 , DENTALVS+20, DENTALVS+27, DENTALVS+28, DENTALVS+29, NOSEAL+2~, NOSEAL+5, NOSEAL+6, NOSEAL+10*
Y	CTR~, CTR+1, HIV1H+3, HIV2H+3, DENTALVS+1~, DENTALVS+12, DENTALVS+13, DENTALVS+14, DENTALVS+15, DENTALVS+16 , DENTALVS+20, DENTALVS+21, DENTALVS+22, DENTALVS+23, DENTALVS+24, DENTALVS+25, DENTALVS+29, DENTALVS+30, DENTALVS+31, DENTALVS+32 , DENTALVS+33, DENTALVS+34, NOSEAL+2~, NOSEAL+6, NOSEAL+7, NOSEAL+8, SEAL+17, SEAL+18, SEAL+19, SEAL+20 , SEAL+21, SEAL+22
Z	DENTALVS+1~
>> ZTQUEUED	HIV1H+3, HIV2H+3

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDDRP6A

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: