Routine: BUDARPTS

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR
IHS Uniform Data System	4	PROC^BUDARPTC PRINT^BUDARPTP EN^BUDASTMP TAXCHK^BUDAXTCH
VA Fileman	2	^DIC ^DIR
IHS VA Utilities	1	EN^XBVK

Package	Total	Caller Graph
IHS Uniform Data System	1	BUDARPL3

Name	Comments	DBIA/ICR reference
NRY	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
EN	;EP
ZIS	;call to XBDBQUE
TEMP	;
ZIS1	;
T3AI	;intro for table 3A
PRINTCP	;
DRIVER	;
USR()	;EP - Return name of current user from ^VA(200.
GENI	;general introductions
EN1	;
CTR(X,Y)	;EP - Center X in a field Y wide.
PAUSE	;
EOJ	;
TSKMN	;EP ENTRY POINT FROM TASKMAN
YEAR	;
STEMP	;EP
QUARTER	;

Name	Field # of Occurrence
^%ZIS	ZIS+3
^%ZISC	DRIVER+5
^%ZTLOAD	TSKMN+5
PROC^BUDARPTC	DRIVER+1
PRINT^BUDARPTP	DRIVER+4
EN^BUDASTMP	TEMP+2
TAXCHK^BUDAXTCH	EN1+6
^DIC	EN1+2
^DIR	EN1+14, QUARTER+9, YEAR+7, PAUSE+1
EN^XBVK	EOJ+1
$$FMTE^XLFDT	PRINTCP+3, PRINTCP+4, QUARTER+17
$$REPEAT^XLFSTR	PRINTCP+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"SEARCH TEMPLATE CREATION FOR PATIENTS INCLUDED IN TABLE 3A.",! Line Location: EN+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+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+3
Function Call: WRITE	Prompt: ! Line Location: PRINTCP+1
Function Call: WRITE	Prompt: !,X Line Location: PRINTCP+2
Function Call: WRITE	Prompt: !,"UDS No. ",$P(^BUDQSITE(BUDSITE,0),U,2),?50,"Date Run: ",$$FMTE^XLFDT(DT) Line Location: PRINTCP+3
Function Call: WRITE	Prompt: !,"Reporting Period: ",$$FMTE^XLFDT(BUDBD)," through ",$$FMTE^XLFDT(BUDED) Line Location: PRINTCP+4
Function Call: WRITE	Prompt: ! Line Location: PRINTCP+5
Function Call: WRITE	Prompt: X,! Line Location: PRINTCP+6
Function Call: WRITE	Prompt: !!,"Search Template ",$P(^DIBT(BUDSTMP,0),U,1)," successfully created.",! Line Location: PRINTCP+7
Function Call: WRITE	Prompt: !!,"TABLE 3A: USERS BY AGE AND GENDER WITH SEARCH TEMPLATE CREATION" 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: !,"The patients included in this table will be stored in a search template" Line Location: T3AI+4
Function Call: WRITE	Prompt: !,"for you to use in other applications (QMAN, PGEN) to assist you in" Line Location: T3AI+5
Function Call: WRITE	Prompt: !,"completing UDS tables not produced the the IHS/RPMS UDS System." Line Location: T3AI+6
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+14
Function Call: WRITE	Prompt: !,"TABLE 3A: PATIENTS BY AGE AND GENDER WITH SEARCH TEMPLATE CREATION" Line Location: GENI+16
Function Call: WRITE	Prompt: !!,"This option will create a search template of all patients who meet" Line Location: GENI+17
Function Call: WRITE	Prompt: !,"the definition of a patient above and who are included in UDS Table 3A." Line Location: GENI+18
Function Call: WRITE	Prompt: !,"You may use this search template in other applications (QMAN, PGEN)" Line Location: GENI+19
Function Call: WRITE	Prompt: !,"to assist you in completing UDS tables not produced by the IHS/RPMS UDS" Line Location: GENI+20
Function Call: WRITE	Prompt: !,"application." Line Location: GENI+21
Function Call: WRITE	Prompt: !!,"Patients must have at least one visit during the selected time period," Line Location: GENI+22
Function Call: WRITE	Prompt: !,"as defined above. Age is calculated as of June 30th of the year you" Line Location: GENI+23
Function Call: WRITE	Prompt: !,"select." Line Location: GENI+24
Function Call: WRITE	Prompt: ! Line Location: GENI+25
Function Call: WRITE	Prompt: !,"This option will also produce UDS Table 3A, an itemization of users" Line Location: GENI+26
Function Call: WRITE	Prompt: !,"(patients) by age and gender." Line Location: GENI+27
Function Call: WRITE	Prompt: ! Line Location: GENI+28
Function Call: WRITE	Prompt: !!,"not developed yet....." Line Location: NRY+1
Routine Call	DIC Line Location: EN1+2
Routine Call	DIR Line Location: EN1+14 QUARTER+9 YEAR+7 PAUSE+1
Routine Call	%ZIS Line Location: ZIS+3

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

Name	Line Occurrences (* Changed, ! Killed)
^BUDQSITE - [#90665.1]	EN1+5, PRINTCP+3
^DIBT(	PRINTCP+7, STEMP+1*
^DIC(4 - [#4]	PRINTCP+2, LOC+1
^VA(200 - [#200]	PRINTCP+2, USR+1
^XTMP("BUDARPT1"	STEMP+1

Name	Line Occurrences
$$CTR	PRINTCP+2, GENI+2
$$LOC	GENI+2
EN	EN1+5, TEMP+3
EN1	EN1+15
EOJ	EN+1, EN1+3, EN1+8, EN1+10, ZIS+4, DRIVER+7, TSKMN+5
GENI	EN+3
PAUSE	GENI+15
PRINTCP	DRIVER+3
QUARTER	EN1+9
TSKMN	ZIS1+1
YEAR	EN1+7, 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+2!, ZIS+3*
>> BUDBD	PRINTCP+4, QUARTER+12, QUARTER+13, QUARTER+14, QUARTER+15, QUARTER+16, QUARTER+17, YEAR+12
>> BUDBEN	EN1+12, EN1+16
>> BUDCAD	YEAR+13*
>> BUDED	PRINTCP+4, QUARTER+12, QUARTER+13, QUARTER+14, QUARTER+15, QUARTER+16, QUARTER+17, YEAR+12
>> BUDFNP	PRINTCP+8*
>> BUDH	STEMP+1
>> BUDJ	STEMP+1
>> BUDQTR	EN1+10, QUARTER+1, QUARTER+11
>> BUDQUIT	QUARTER+10*
>> BUDSITE	EN1+1, EN1+4, EN1+5, PRINTCP+2, PRINTCP+3
>> BUDSTMP	TEMP+1*, TEMP+3, PRINTCP+7, STEMP+1
>> BUDT3A	ZIS+1*
>> BUDYEAR	EN1+8, QUARTER+12, QUARTER+13, QUARTER+14, QUARTER+15, QUARTER+16, YEAR+1, YEAR+12, YEAR+13
DA	EN1+14!, QUARTER+9!, PAUSE+1!
DIC	EN1+2*, YEAR+8!
DIC("A"	EN1+2*
DIC(0	EN1+2*
DIR	EN1+14!, QUARTER+9!, YEAR+7!, PAUSE+1!
DIR("?"	QUARTER+2, QUARTER+3, QUARTER+4, QUARTER+5, QUARTER+6, QUARTER+7, YEAR+6*
DIR("A"	EN1+13, QUARTER+9, YEAR+5, PAUSE+1
DIR("B"	EN1+14, QUARTER+9
DIR(0	EN1+13, QUARTER+8, YEAR+4, PAUSE+1
>> DIRUT	EN1+15, QUARTER+10, YEAR+9*, YEAR+10
DT	PRINTCP+3
>> DUOUT	YEAR+9
DUZ	PRINTCP+2, 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+2!
IOSL	TSKMN+3
IOST	TSKMN+1
>> POP	ZIS+4
U	PRINTCP+2, PRINTCP+3, PRINTCP+7, USR+1, LOC+1
X	PRINTCP+2, PRINTCP+6, CTR~, CTR+1, STEMP+1*
Y	EN1+3, EN1+4, EN1+16, 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*
>> ZTQUEUED	DRIVER+6
>> ZTREQ	DRIVER+6*
>> ZTRTN	TSKMN+5*
ZTSAVE	TSKMN+4!
ZTSAVE("BUD*"	TSKMN+4*

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDARPTS

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: