Routine: BUDARPT1

Package	Total	Call Graph
IHS Uniform Data System	5	PRENATT^BUDARP6B (PAUSE,PRENATT)^BUDARP7 PROC^BUDARPTC PRINT^BUDARPTP TAXCHK^BUDAXTCH
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
IHS VA Utilities	2	$$VAL^XBDIQ1 EN^XBVK
VA Fileman	2	^DIC ^DIR

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

Name	Field # of Occurrence
^%ZIS	ZIS+2
^%ZISC	DRIVER+4
^%ZTLOAD	TSKMN+5
PRENATT^BUDARP6B	EN1+1
PAUSE^BUDARP7	EN1+20, EN1+28, GENI+20
PRENATT^BUDARP7	EN1+2
PROC^BUDARPTC	DRIVER+1
PRINT^BUDARPTP	DRIVER+3
TAXCHK^BUDAXTCH	EN1+30
^DIC	EN1+5
^DIR	Y+7, M+18, PNC+2, QUARTER+9, YEAR+7, PT1
$$VAL^XBDIQ1	EN1+24
EN^XBVK	EOJ+1
$$FMTE^XLFDT	QUARTER+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Table 6B:" Line Location: EN1+1
Function Call: WRITE	Prompt: !,"Table 7:" Line Location: EN1+2
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+8
Function Call: WRITE	Prompt: !!,"SORRY, but I can't tell what state your clinic is located in" Line Location: EN1+25
Function Call: WRITE	Prompt: !!,"Year not entered.",! Line Location: Y+1
Function Call: WRITE	Prompt: !,"Time period not entered." Line Location: Y+3
Function Call: WRITE	Prompt: !! Line Location: ZIS+2
Function Call: WRITE	Prompt: !!,"UDS Table Selection" Line Location: M+5
Function Call: WRITE	Prompt: !!?5,"1 Patient Zip Code and Insurance Source" Line Location: M+6
Function Call: WRITE	Prompt: !?5,"2 Table 3A: Patients by Age and Gender" Line Location: M+7
Function Call: WRITE	Prompt: !?5,"3 Table 3B: Patients by Hispanic or Latino Identity/Race/Language" Line Location: M+8
Function Call: WRITE	Prompt: !?5,"4 Table 4: Selected Patient Characteristics" Line Location: M+9
Function Call: WRITE	Prompt: !?5,"5 Table 5 (a): Staffing List only (column A)" Line Location: M+10
Function Call: WRITE	Prompt: !?5,"6 Table 5 (b&c): Staffing and Utilization (cols b&c)" Line Location: M+11
Function Call: WRITE	Prompt: !?5,"7 Table 6A: Selected Diagnoses and Services Rendered" Line Location: M+12
Function Call: WRITE	Prompt: !?5,"8 Table 6B: Quality of Care Indicators" Line Location: M+13
Function Call: WRITE	Prompt: !?5,"9 Table 7: Health Outcomes and Disparities" Line Location: M+14
Function Call: WRITE	Prompt: !?5,"10 Table 9D: Patient-Related Revenue (Total Counts Only)" Line Location: M+15
Function Call: WRITE	Prompt: !?5,"11 Table 9D: Patient-Related Revenue (Delimited Report)" Line Location: M+16
Function Call: WRITE	Prompt: !?5,"12 Multiple/ALL Tables Zip through 9D" Line Location: M+17
Function Call: WRITE	Prompt: !!,"Patients by Zip Code and Insurance Source" Line Location: TZAI+1
Function Call: WRITE	Prompt: !,"The Patient Zip Code by Insurance Source table reports the number of patients" Line Location: TZAI+2
Function Call: WRITE	Prompt: !,"by their zip code as entered in patient registration and their insurance source." Line Location: TZAI+3
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." Line Location: T3AI+3
Function Call: WRITE	Prompt: !,"as defined above. Age is calculated as of June 30th of the year you select.",! Line Location: T3AI+4
Function Call: WRITE	Prompt: !!,"TABLE 4: SELECTED PATIENT CHARACTERISTICS" Line Location: T4I+1
Function Call: WRITE	Prompt: !,"This report will produce UDS Table 4, selected patient characteristics." Line Location: T4I+2
Function Call: WRITE	Prompt: !,"Patients must meet additional criteria as specified for each indicator.",! Line Location: T4I+3
Function Call: WRITE	Prompt: !!,"TABLE 3B: USERS BY HISPANIC OR LATINO IDENTITY/RACE/LANGUAGE" Line Location: T3BI+1
Function Call: WRITE	Prompt: !,"This report will produce UDS Table 3B, an itemization of users",!,"by Hispanic or Latino Identity/Race/Language." 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 visits and patients",!,"(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 6A: SELECTED DIAGNOSES AND SERVICES RENDERED" Line Location: T6I+1
Function Call: WRITE	Prompt: !,"This report will produce UDS Table 6A which itemizes visits",!,"and patients by selected diagnoses and services provided.",! Line Location: T6I+2
Function Call: WRITE	Prompt: !!,"TABLE 9D: Patient-Related Revenue (Delimited Report)" Line Location: T9DI+1
Function Call: WRITE	Prompt: !,"This is a delimited report, which will can be used to produce UDS Table 9D," Line Location: T9DI+2
Function Call: WRITE	Prompt: !,"Patient-Related Revenue. Table 9D collects information on charges, " Line Location: T9DI+3
Function Call: WRITE	Prompt: !,"collections, retroactive settlements, allowances, self-pay sliding " Line Location: T9DI+4
Function Call: WRITE	Prompt: !,"discounts, and self-pay bad debt write-off." Line Location: T9DI+5
Function Call: WRITE	Prompt: !!,"NOTE: This delimited file will include only A/R Transactions for patients" Line Location: T9DI+6
Function Call: WRITE	Prompt: !,"who are considered 'UDS' patients (i.e. they are included in Table 3A)" Line Location: T9DI+7
Function Call: WRITE	Prompt: !!,"NOTE: You will be required to enter a name for the delimited output file." Line Location: T9DI+8
Function Call: WRITE	Prompt: !,"This file will be placed in the following directory:" Line Location: T9DI+9
Function Call: WRITE	Prompt: !?10,BUDDIR,! Line Location: T9DI+10
Function Call: WRITE	Prompt: !!,"TABLE 9D: Patient-Related Revenue (Total Counts Only)" Line Location: T9I+1
Function Call: WRITE	Prompt: !,"This report will produce UDS Table 9D, Patient-Related Revenue. This table " Line Location: T9I+2
Function Call: WRITE	Prompt: !,"collects information on charges, collections, retroactive settlements, " Line Location: T9I+3
Function Call: WRITE	Prompt: !,"allowances, self-pay sliding discounts, and self-pay bad debt write-off. " Line Location: T9I+4
Function Call: WRITE	Prompt: !,"Because there is currently no way to distinguish between non-managed care " Line Location: T9I+5
Function Call: WRITE	Prompt: !,"and managed care in RPMS, UDS will only calculate the total counts (lines 3," Line Location: T9I+6
Function Call: WRITE	Prompt: !,"6, 9, 12, and 14) for columns a, b, and d." Line Location: T9I+7
Function Call: WRITE	Prompt: ! Line Location: T9I+8
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, 2007" Line Location: YEAR+3
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: YEAR+11
Function Call: WRITE	Prompt: !!,$$CTR($$LOC,80),!,$$CTR("UDS 2013",80),! Line Location: GENI+2
Function Call: WRITE	Prompt: !,"UDS searches your database to find all visits and related patients" 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 patient 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), Telemedicine (M), Nursing home visit (R), " Line Location: GENI+9
Function Call: WRITE	Prompt: !?6,"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: !?4,"- the patient must NOT have a gender of 'Unknown'" Line Location: GENI+13
Function Call: WRITE	Prompt: ! Line Location: GENI+15
Function Call: WRITE	Prompt: !,"NOTE: Tables 6B and 7 must be run using the Full Calendar Year option." Line Location: GENI+16
Function Call: WRITE	Prompt: !,"If these reports are run using the Quarterly options, the totals combined" Line Location: GENI+17
Function Call: WRITE	Prompt: !,"will not match the yearly totals." Line Location: GENI+18
Function Call: WRITE	Prompt: ! Line Location: GENI+19
Function Call: WRITE	Prompt: !!,"not developed yet....." Line Location: NRY+1
Function Call: WRITE	Prompt: !!,"You have selected to create a delimited output file for Table 9D. " Line Location: DELF+2
Function Call: WRITE	Prompt: !!!,"Your filename cannot contain a '/' or a '\'." Line Location: PT1+2
Function Call: WRITE	Prompt: !!,"When the report is finished your delimited output will be found in the",!,BUDDIR," directory. The filename will be ",BUDFILE,".txt",! Line Location: PT1+4
Routine Call	DIC Line Location: EN1+5
Routine Call	DIR Line Location: Y+7 M+18 PNC+2 QUARTER+9 YEAR+7 PT1
Routine Call	%ZIS Line Location: ZIS+2

FileNo	Call Tags
^BUDQSITE - [#90665.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUTTSITE(1	GETDIR+3
^BUDQSITE - [#90665.1]	EN1+8
^DIC(4 - [#4]	EN1+17, EN1+19, LOC+1
^VA(200 - [#200]	USR+1
^XTV(8989.3 - [#8989.3]	GETDIR+5

Name	Line Occurrences
$$CTR	GENI+2
$$GETDIR	EN1+10, T9D+4
$$LOC	GENI+2
DELF	Y+10
EN	EN1+8
EN1	M+33, T3A+5, T4+5, TZ+5, T3B+5, T5+5, T51+5, T6+5, T9D+6, T9+5
EOJ	EN1+3, EN1+6, EN1+11, EN1+23, Y+1, Y+3, Y+10, ZIS+3, DRIVER+6, TSKMN+5 , M+1, M+19, T3A+1, T4+1, TZ+1, T3B+1, T5+1, T51+1, T6+1, T9D+1 , T9+1
GENI	M+3, T3A+3, T4+3, TZ+3, T3B+3, T5+3, T51+3, T6+3, T9D+3, T9+3
PNC	EN1+3
PT1	PT1+2
QUARTER	Y+2
T3AI	T3A+4
T3BI	T3B+4
T4I	T4+4
T51I	T51+4
T5I	T5+4
T6I	T6+4
T9DI	T9D+5
T9I	T9+4
TSKMN	ZIS1+1
TZAI	TZ+4
Y	Y+8
YEAR	Y, YEAR+11

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
>> BUDBEN	Y+5, Y+9
>> BUDCAD	YEAR+13*
>> BUDDELT	DELF+1*
>> BUDDIR	EN1+10, T9D+4, T9DI+10, PT1+4
>> BUDED	QUARTER+12, QUARTER+13, QUARTER+14, QUARTER+15, QUARTER+16, QUARTER+17, YEAR+12
>> BUDFILE	Y+10, DELF+1, PT1+3, PT1+4
>> BUDPREN	EN1+3, PNC+1, PNC+4
>> BUDQTR	Y+3, QUARTER+1, QUARTER+11
>> BUDQUIT	QUARTER+10*
>> BUDSITE	EN1+4, EN1+7, EN1+8, EN1+12, EN1+17, EN1+19, EN1+24
BUDT3A	M+4!, M+21, M+22, T3A+2*
BUDT3B	M+4!, M+21, M+23, T3B+2*
BUDT4	EN1+23, M+4!, M+21, M+24, T4+2*
BUDT5	M+4!, M+21, M+25, M+26, T5+2, T51+2*
BUDT5L1	M+4!, M+21, M+25, T51+2*
BUDT6	M+4!, M+21, M+27, T6+2*
BUDT6B	EN1+1, EN1+3, M+4!, M+21, M+29
BUDT7	EN1+2, EN1+3, M+4!, M+21, M+30
>> BUDT9	EN1+11, M+21, M+31, T9+2*
>> BUDT9D	EN1+11, Y+10, M+21, M+32, T9D+2*
BUDTZ	M+4!, M+21, M+28, TZ+2*
>> BUDXXXXX	M+2*, GENI+14
>> BUDYEAR	Y+1, QUARTER+12, QUARTER+13, QUARTER+14, QUARTER+15, QUARTER+16, YEAR+1, YEAR+12, YEAR+13
D	GETDIR+1~, GETDIR+2, GETDIR+3, GETDIR+4, GETDIR+5*, GETDIR+6, GETDIR+8
DA	Y+7!, M+18!, PNC+2!, QUARTER+9!, PT1!
DIC	EN1+5*, YEAR+8!
DIC("A"	EN1+5*
DIC(0	EN1+5*
DIR	Y+7!, M+18!, PNC+2!, QUARTER+9!, YEAR+7!, PT1!
DIR("?"	QUARTER+2, QUARTER+3, QUARTER+4, QUARTER+5, QUARTER+6, QUARTER+7, YEAR+6*
DIR("A"	Y+6, M+18, PNC+2, QUARTER+9, YEAR+5, PT1
DIR("B"	Y+7, M+18, PNC+2, QUARTER+9
DIR(0	Y+6, M+18, PNC+2, QUARTER+8, YEAR+4, PT1
>> DIRUT	Y+8, M+19, PNC+3, QUARTER+10, YEAR+9*, YEAR+10, PT1+1
>> DUOUT	YEAR+9
DUZ	USR+1
DUZ(2	EN1+12, 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
>> Q	EN1+9, EN1+11, EN1+21, EN1+22, EN1+23, EN1+29
>> S	EN1+24*, EN1+25
U	EN1+17, EN1+19, USR+1, LOC+1
X	M+20*, CTR~, CTR+1
Y	EN1+6, EN1+7, Y+9, M+20, PNC+4, QUARTER+10, QUARTER+11, QUARTER+12, QUARTER+13, QUARTER+14 , QUARTER+15, QUARTER+16, YEAR+11, YEAR+12, CTR~, CTR+1, PT1+2, PT1+3
>> Z	M+20*, M+21, M+22, M+23, M+24, M+25, M+26, M+27, M+28, M+29 , M+30, M+31, M+32
>> ZTCPU	TSKMN+5*
>> ZTDESC	TSKMN+5*
>> ZTDTH	TSKMN+5*
>> ZTIO	TSKMN+1, TSKMN+2, TSKMN+3*
>> ZTQUEUED	DRIVER+5
>> ZTREQ	DRIVER+5*
>> ZTRTN	TSKMN+5*
ZTSAVE	TSKMN+4!
ZTSAVE("BUD*"	TSKMN+4*

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDARPT1

Information

Source Information

Call Graph

Call Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: