Routine: BUD4RPT1

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
IHS Uniform Data System	3	PROC^BUD4RPTC PRINT^BUD4RPTP TAXCHK^BUD4TXCH
VA Fileman	2	^DIC ^DIR
IHS VA Utilities	1	EN^XBVK

Entry Points

Name	Comments	DBIA/ICR reference
EOJ	;
USR()	;EP - Return name of current user from ^VA(200.
T6I	;intro for table 6
TSKMN	;EP ENTRY POINT FROM TASKMAN
LOC()	;EP - Return location name from file 4 based on DUZ(2).
T51	;EP
EN1	;
T51I	;
T3AI	;intro for table 3A
T3BI	;
EN	;EP
ZIS	;call to XBDBQUE
T6	;EP - entry point for Table 6 only
DRIVER	;
T5	;EP
M	;EP - called from option
T5I	;
YEAR	;
QUARTER	;
CTR(X,Y)	;EP - Center X in a field Y wide.
ZIS1	;
T3B	;EP
T3A	;EP - entry point for Table 3A only
GENI	;general introductions

External References

Name	Field # of Occurrence
^%ZIS	ZIS+2
^%ZISC	DRIVER+4
^%ZTLOAD	TSKMN+5
PROC^BUD4RPTC	DRIVER+1
PRINT^BUD4RPTP	DRIVER+3
TAXCHK^BUD4TXCH	EN1+6
^DIC	EN1+2
^DIR	M+11, QUARTER+9, YEAR+7
EN^XBVK	EOJ+1
$$FMTE^XLFDT	QUARTER+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Warning: There are no locations defined in the site parameter file for this",!,"site. Report will not be accurate!" Line Location: EN1+5
Function Call: WRITE	Prompt: !!,"Year not entered.",! Line Location: EN1+8
Function Call: WRITE	Prompt: !,"Time period not entered." Line Location: EN1+10
Function Call: WRITE	Prompt: !! Line Location: ZIS+2
Function Call: WRITE	Prompt: !!,"UDS Table Selection" Line Location: M+4
Function Call: WRITE	Prompt: !!?5,"1 Table 3A: Users by Age and Gender" Line Location: M+5
Function Call: WRITE	Prompt: !?5,"2 Table 3B: Users by Race/Ethnicity & Linguistic Pref" Line Location: M+6
Function Call: WRITE	Prompt: !?5,"3 Table 5 col b&c: Staffing and Utilization (columns b & c)" Line Location: M+7
Function Call: WRITE	Prompt: !?5,"4 Table 6: Selected Diagnoses and Services Rendered" Line Location: M+8
Function Call: WRITE	Prompt: !?5,"5 Staff List for Table 5 col a" Line Location: M+9
Function Call: WRITE	Prompt: !?5,"6 ALL Tables" Line Location: M+10
Function Call: WRITE	Prompt: !!,"TABLE 3A: USERS BY AGE AND GENDER" Line Location: T3AI+1
Function Call: WRITE	Prompt: !,"This report will produce UDS Table 3A, an itemization of users (patients) by age" Line Location: T3AI+2
Function Call: WRITE	Prompt: !,"and gender. Users must have at least one visit during the selected time period.",!,"as defined above. Age is calculated as of June 30th of the year you select.",! Line Location: T3AI+3
Function Call: WRITE	Prompt: !!,"TABLE 3B: USERS BY RACE/ETHNICITY/LANGUAGE" Line Location: T3BI+1
Function Call: WRITE	Prompt: !,"This report will produce UDS Table 3B, an itemization of users",!,"by race/ethnicity." Line Location: T3BI+2
Function Call: WRITE	Prompt: !!,"TABLE 5 (b&c): STAFFING AND UTILIZATION" Line Location: T5I+1
Function Call: WRITE	Prompt: !,"This report will produce UDS Table 5 that itemizes encounters and users",!,"(columns b and c only) by primary provider discipline." Line Location: T5I+2
Function Call: WRITE	Prompt: !!,"STAFF LIST FOR TABLE 5 col a: STAFFING" Line Location: T51I+1
Function Call: WRITE	Prompt: !,"This report will produce a Staff List to be used to manually calculate",!,"Column A on Table 5 Staffing and Utilization, itemizing all staff by" Line Location: T51I+2
Function Call: WRITE	Prompt: !,"disciplines and by FTE." Line Location: T51I+3
Function Call: WRITE	Prompt: !!,"TABLE 6: SELECTED DIAGNOSES AND SERVICES RENDERED" Line Location: T6I+1
Function Call: WRITE	Prompt: !,"This report will produce UDS Table 6 which itemizes encounters",!,"and users by selected diagnoses and services provided.",! Line Location: T6I+2
Function Call: WRITE	Prompt: !!,"Your report will be run for the time period: ",$$FMTE^XLFDT(BUDBD)," to ",$$FMTE^XLFDT(BUDED) Line Location: QUARTER+17
Function Call: WRITE	Prompt: ! Line Location: YEAR+2
Function Call: WRITE	Prompt: !,"Enter the Calendar Year. Use a 4 digit year, e.g. 2003, 2004" Line Location: YEAR+3
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: YEAR+11
Function Call: WRITE	Prompt: !!,$$CTR($$LOC),!,$$CTR("UDS 2004"),! Line Location: GENI+2
Function Call: WRITE	Prompt: !,"UDS searches your database to find all visits (encounters) and related users" Line Location: GENI+3
Function Call: WRITE	Prompt: !,"during the time period selected. Based on the UDS definition, to be considered" Line Location: GENI+4
Function Call: WRITE	Prompt: !,"a user the patient must have had at least one visit meeting the following" Line Location: GENI+5
Function Call: WRITE	Prompt: !,"criteria:" Line Location: GENI+6
Function Call: WRITE	Prompt: !?4,"- must be to a location specified in your visit location setup" Line Location: GENI+7
Function Call: WRITE	Prompt: !?4,"- must be to Service Category Ambulatory (A), Hospitalization (H), Day" Line Location: GENI+8
Function Call: WRITE	Prompt: !?6,"Surgery (S), Observation (O), Nursing home visit (R), Historical" Line Location: GENI+9
Function Call: WRITE	Prompt: !?6,"Event (E) visit or In-Hospital (I) visit" Line Location: GENI+10
Function Call: WRITE	Prompt: !?4,"- must NOT have an excluded clinic code (see User Manual for a list)" Line Location: GENI+11
Function Call: WRITE	Prompt: !?4,"- must have a primary provider and a coded purpose of visit" Line Location: GENI+12
Function Call: WRITE	Prompt: ! Line Location: GENI+13
Routine Call	DIC Line Location: EN1+2
Routine Call	DIR Line Location: M+11 QUARTER+9 YEAR+7
Routine Call	%ZIS Line Location: ZIS+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BUDFSITE - [#90346.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BUDFSITE - [#90346.1]	EN1+5
^DIC(4 - [#4]	LOC+1
^VA(200 - [#200]	USR+1

Label References

Name	Line Occurrences
$$CTR	GENI+2
$$LOC	GENI+2
EN	EN1+5
EN1	M+19, T3A+5, T3B+5, T5+5, T51+5, T6+5
EOJ	EN1+3, EN1+8, EN1+10, ZIS+3, DRIVER+5, TSKMN+5, M+1, M+12, T3A+1, T3B+1 , T5+1, T51+1, T6+1
GENI	M+2, T3A+3, T3B+3, T5+3, T51+3, T6+3
QUARTER	EN1+9
T3AI	T3A+4
T3BI	T3B+4
T51I	T51+4
T5I	T5+4
T6I	T6+4
TSKMN	ZIS1+1
YEAR	EN1+7, YEAR+11

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	ZIS+1!, ZIS+2*
>> BUDBD	QUARTER+12, QUARTER+13, QUARTER+14, QUARTER+15, QUARTER+16, QUARTER+17, YEAR+12
>> BUDCAD	YEAR+13*
>> BUDED	QUARTER+12, QUARTER+13, QUARTER+14, QUARTER+15, QUARTER+16, QUARTER+17, YEAR+12
>> BUDQTR	EN1+10, QUARTER+1, QUARTER+11
>> BUDQUIT	QUARTER+10*
>> BUDSITE	EN1+1, EN1+4, EN1+5
BUDT3A	M+3!, M+13, M+14, T3A+2*
BUDT3B	M+3!, M+13, M+15, T3B+2*
BUDT4	M+3!, M+13*
BUDT5	M+3!, M+13, M+16, M+18, T5+2, T51+2*
>> BUDT5L1	M+18, T51+2
BUDT6	M+3!, M+13, M+17, T6+2*
>> BUDYEAR	EN1+8, QUARTER+12, QUARTER+13, QUARTER+14, QUARTER+15, QUARTER+16, YEAR+1, YEAR+12, YEAR+13
DA	M+11!, QUARTER+9!
DIC	EN1+2*, YEAR+8!
DIC("A"	EN1+2*
DIC(0	EN1+2*
DIR	M+11!, QUARTER+9!, YEAR+7!
DIR("?"	QUARTER+2, QUARTER+3, QUARTER+4, QUARTER+5, QUARTER+6, QUARTER+7, YEAR+6*
DIR("A"	M+11, QUARTER+9, YEAR+5*
DIR("B"	M+11, QUARTER+9
DIR(0	M+11, QUARTER+8, YEAR+4*
>> DIRUT	M+12, QUARTER+10, YEAR+9*, YEAR+10
>> DUOUT	YEAR+9
DUZ	USR+1
DUZ(2	LOC+1
IO	DRIVER+2, TSKMN+1
IO("DOC"	TSKMN+2
IO("Q"	ZIS1+1
>> IOCPU	TSKMN+5
IOF	GENI+1
IOM	TSKMN+3, CTR+1
ION	TSKMN+1
IOP	ZIS+1!
IOSL	TSKMN+3
IOST	TSKMN+1
>> POP	ZIS+3
U	USR+1, LOC+1
X	CTR~, CTR+1
Y	EN1+3, EN1+4, M+13, M+14, M+15, M+16, M+17, M+18, QUARTER+10, QUARTER+11 , QUARTER+12, QUARTER+13, QUARTER+14, QUARTER+15, QUARTER+16, YEAR+11, YEAR+12, CTR~, CTR+1
>> ZTCPU	TSKMN+5*
>> ZTDESC	TSKMN+5*
>> ZTDTH	TSKMN+5*
>> ZTIO	TSKMN+1, TSKMN+2, TSKMN+3*
>> ZTRTN	TSKMN+5*
ZTSAVE	TSKMN+4!
ZTSAVE("BUD*"	TSKMN+4*

Customize PDF page

Package: IHS Uniform Data System

Routine: BUD4RPT1

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: