Routine: BUDDRP61

Information

BUDDRP61 ; IHS/CMI/LAB - UDS REPORT PROCESSOR ;

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
IHS Uniform Data System	3	(HT6B,IN6B)^BUDDDU EN1^BUDDRP6B GENI^BUDDRP6I
IHS Patient	1	($$AGE,$$HRN)^AUPNPAT
IHS VA Utilities	1	EN^XBVK
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS Uniform Data System	2	BUDDRP6B BUDDRP6I

Entry Points

Name	Comments	DBIA/ICR reference
DS2H	;
S(V)	;
PAUSE	;
DS1HD	;
DS1H	;
DS1L1	;
GENI	;EP
DS1L	;EP
DS2HD	;
DS1	;EP
DS1H1	;
CTR(X,Y)	;
DS2	;EP
EOJ	;
DS2L1	;
DS2L	;EP
DS2H1	;
DSLIST2	;EP
DSLIST1	;EP

External References

Name	Field # of Occurrence
$$AGE^AUPNPAT	DS1L1+11, DS2L1+11
$$HRN^AUPNPAT	DS1L1+7, DS1L1+11, DS2L1+7, DS2L1+11
HT6B^BUDDDU	DS1HD+9, DS1H1+11, DS2HD+10, DS2H1+11
IN6B^BUDDDU	DS1+1, DS2+1
EN1^BUDDRP6B	DSLIST1+4, DSLIST2+4
GENI^BUDDRP6I	GENI+1
^DIR	DS1H+3, DS2H+3, PAUSE+1
EN^XBVK	EOJ+1
$$FMTE^XLFDT	DS1HD+3, DS1HD+7, DS1H1+3, DS1H1+7, DS2HD+3, DS2HD+8, DS2H1+3, DS2H1+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"TOTAL PATIENTS WITH SEALANT: ",BUDTOT,! Line Location: DS1L+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: DS1L1+7
Function Call: WRITE	Prompt: ?2,$P(BUDALL,U,2),?30,$P(BUDALL,U,3),?50,$P(BUDALL,U,4) Line Location: DS1L1+10
Function Call: WRITE	Prompt: ! Line Location: DS1H+3
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: DS1H1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: DS1H1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: DS1H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 6B, Section N, With Dental Sealants,",80) Line Location: DS1H1+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: DS1H1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: DS1H1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: DS1H1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: DS1H1+9
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE" Line Location: DS1H1+12
Function Call: WRITE	Prompt: !?2,"Oral Assess and Date",?30,"Risk",?50,"Sealant and Date" Line Location: DS1H1+13
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: DS1H1+14
Function Call: WRITE	Prompt: !,"TOTAL PATIENTS AT RISK W/O SEALANT: ",BUDTOT,! Line Location: DS2L+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: DS2L1+7
Function Call: WRITE	Prompt: ! Line Location: DS2H+3
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION, COVERED BY THE PRIVACY ACT ***" Line Location: DS2H1+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",BUDGPG,! Line Location: DS2H1+3
Function Call: WRITE	Prompt: !,$$CTR("* RPMS Uniform Data System (UDS) *",80) Line Location: DS2H1+4
Function Call: WRITE	Prompt: !,$$CTR("Patient List for Table 6B, Section N,",80),!,$$CTR("Patients 6-9 at Risk without dental sealant on first molar",80),! Line Location: DS2H1+5
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,BUDSITE,0),U),80),! Line Location: DS2H1+6
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: DS2H1+7
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: DS2H1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-") Line Location: DS2H1+9
Function Call: WRITE	Prompt: !!,"PATIENT NAME",?34,"HRN",?41,"COMMUNITY",?70,"SEX",?75,"AGE" Line Location: DS2H1+12
Function Call: WRITE	Prompt: !?2,"Assessment and Date",?30,"Risk" Line Location: DS2H1+13
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: DS2H1+14
Routine Call	DIR Line Location: DS1H+3 DS2H+3 PAUSE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	DS1HD+6, DS1H1+6, DS2HD+7, DS2H1+6
^DPT - [#2]	DS1L1+7, DS1L1+11, DS2L1+7, DS2L1+11
^TMP($J	S+2*
^VA(200 - [#200]	DS1HD+3, DS1H1+3, DS2HD+3, DS2H1+3
^XTMP("BUDDRP6B"	DS1L+3, DS1L1+2, DS1L1+3, DS1L1+4, DS1L1+5, DS1L1+9, DS2L+3, DS2L1+2, DS2L1+3, DS2L1+4 , DS2L1+5, DS2L1+9

Label References

Name	Line Occurrences
$$CTR	DS1H1+4, DS1H1+5, DS1H1+6, DS1H1+7, DS1H1+8, DS2H1+4, DS2H1+5, DS2H1+6, DS2H1+7, DS2H1+8
DS1	DSLIST1+3
DS1H	DS1L+2, DS1L+5, DS1L1+1, DS1L1+6
DS1H1	DS1H+2
DS1HD	DS1H+1
DS1L1	DS1L+4
DS2	DSLIST2+3
DS2H	DS2L+2, DS2L+5, DS2L1+1, DS2L1+6
DS2H1	DS2H+2
DS2HD	DS2H+1
DS2L1	DS2L+4
EOJ	DSLIST1+1, DSLIST2+1
S	DS1L+3, DS1L+7, DS1L1+12, DS1HD+1, DS1HD+2, DS1HD+3, DS1HD+4, DS1HD+5, DS1HD+6, DS1HD+7 , DS1HD+8, DS1HD+10, DS2L+3, DS2L+7, DS2L1+12, DS2HD+1, DS2HD+2, DS2HD+3, DS2HD+4, DS2HD+5 , DS2HD+7, DS2HD+8, DS2HD+9, DS2HD+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BUDAGE	DS1L1+2, DS1L1+3, DS1L1+4, DS1L1+5, DS1L1+7, DS1L1+9, DS2L1+2, DS2L1+3, DS2L1+4, DS2L1+5 , DS2L1+7, DS2L1+9
>> BUDALL	DS1L1+9, DS1L1+10, DS1L1+12, DS2L1+9, DS2L1+10, DS2L1+12
>> BUDBD	DS1HD+7, DS1H1+7, DS2HD+8, DS2H1+7
>> BUDCCAD	DS1L1+11, DS2L1+11
>> BUDCCOM	DS1L1+4, DS1L1+5, DS1L1+7, DS1L1+9, DS1L1+11, DS2L1+4, DS2L1+5, DS2L1+7, DS2L1+9, DS2L1+11
>> BUDDECNT	S+1*, S+2
>> BUDDEN	DS1HD+8, DS1H1+8, DS2HD+9, DS2H1+8
>> BUDDS1L	DSLIST1+2*
>> BUDDS2L	DSLIST2+2*
>> BUDED	DS1HD+7, DS1H1+7, DS2HD+8, DS2H1+7
>> BUDGPG	DS1H+2, DS1H1+1, DS1H1+3, DS2H+2, DS2H1+1, DS2H1+3
>> BUDH	DS1L+3, DS1L1+2, DS1L1+3, DS1L1+4, DS1L1+5, DS1L1+9, DS2L+3, DS2L1+2, DS2L1+3, DS2L1+4 , DS2L1+5, DS2L1+9
>> BUDJ	DS1L+3, DS1L1+2, DS1L1+3, DS1L1+4, DS1L1+5, DS1L1+9, DS2L+3, DS2L1+2, DS2L1+3, DS2L1+4 , DS2L1+5, DS2L1+9
>> BUDNAME	DS1L1+3, DS1L1+4, DS1L1+5, DS1L1+9, DS2L1+3, DS2L1+4, DS2L1+5, DS2L1+9
>> BUDP	DS1L+1, DS1H1+10, DS1H1+15, DS2L+1, DS2H1+10, DS2H1+15
>> BUDQUIT	DS1L+1, DS1L+2, DS1L+5, DS1L1+1, DS1L1+2, DS1L1+3, DS1L1+4, DS1L1+5, DS1L1+6, DS1H+3 , DS2L+1, DS2L+2, DS2L+5, DS2L1+1, DS2L1+2, DS2L1+3, DS2L1+4, DS2L1+5, DS2L1+6, DS2H+3
>> BUDROT	DS1L+3, DS1L+5, DS1L+6, DS1L+7, DS1L1+1, DS1L1+6, DS1L1+7, DS1L1+10, DS1L1+11, DS1H+1 , DS2L+3, DS2L+5, DS2L+6, DS2L+7, DS2L1+1, DS2L1+6, DS2L1+7, DS2L1+11, DS2H+1
>> BUDSITE	DS1L1+7, DS1L1+11, DS1HD+6, DS1H1+6, DS2L1+7, DS2L1+11, DS2HD+7, DS2H1+6
>> BUDTOT	DS1L+1, DS1L+6, DS1L+7, DS1L1+8, DS2L+1, DS2L+6, DS2L+7, DS2L1+8
DA	PAUSE+1!
>> DFN	DS1L1+5, DS1L1+7, DS1L1+9, DS1L1+11, DS2L1+5, DS2L1+7, DS2L1+9, DS2L1+11
DIR	DS1H+3!, DS2H+3!, PAUSE+1!
DIR("A"	PAUSE+1*
DIR(0	DS1H+3, DS2H+3, PAUSE+1*
DT	DS1HD+3, DS1H1+3, DS2HD+3, DS2H1+3
>> DTOUT	DS1H+3, DS2H+3
DUZ	DS1HD+3, DS1H1+3, DS2HD+3, DS2H1+3
DUZ(2	DS1L1+7, DS1L1+11, DS2L1+7, DS2L1+11
IO	DS1H+3, DS2H+3
IO(0	DS1H+3, DS2H+3
IOF	DS1H1+1, DS2H1+1
IOM	CTR+1
IOSL	DS1L+5, DS1L1+1, DS1L1+6, DS2L+5, DS2L1+1, DS2L1+6
IOST	DS1H+3, DS2H+3
U	DS1L1+7, DS1L1+10, DS1L1+11, DS1L1+12, DS1HD+3, DS1HD+6, DS1H1+3, DS1H1+6, DS2L1+7, DS2L1+10 , DS2L1+11, DS2L1+12, DS2HD+3, DS2HD+7, DS2H1+3, DS2H1+6
V	S~, S+2
X	DS1L1+11, DS1L1+12, DS1HD+7, DS1HD+8, DS1H1+7, DS1H1+8, DS2L1+11, DS2L1+12, DS2HD+8, DS2HD+9 , DS2H1+7, DS2H1+8, CTR~, CTR+1
Y	DS1H+3, DS2H+3, CTR~, CTR+1
>> ZTQUEUED	DS1H+3, DS2H+3

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDDRP61

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: