Routine: BUDHUPVL

Package	Total	Call Graph
IHS VA Utilities	4	^XBCLS $$VAL^XBDIQ1 ^XBFMK EN^XBVK
VA Fileman	4	^DIC ^DIE EN^DIK ^DIR
Registration	3	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1
Kernel	1	DISP^XQORM1

Package	Total	Caller Graph
IHS Uniform Data System	1	BUDHSTMP

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for BUD UPDATE VISIT LOCATIONS
ADDALL	;EP
HDR	; -- header code
EDIT	;
EOJ	;
GATHER	;
GETPAT	;
N	;
PCOV	;PROVIDER CLASS OVERRIDE, ADDED V12 T3 FOR HUNTER HEALTH, THESE PROVIDER CLASSES DO NOT COUNT AS A "PROVIDER" FOR UDS VISITS
START	;update visit locations
INIT	; -- init variables and list array
PAUSE	;EP
EXIT	; -- exit code
RETURN	;EP; -- ask user to press ENTER
READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN,DIRA)	;EP; calls reader, returns response
ADD	;EP called from protocol to open a new case
EXPND	; -- expand code
HELP	; -- help code

Name	Field # of Occurrence
^DIC	START+17, GETPAT+4, ADD+4, ADD+10, ADDALL+9
^DIE	START+20, START+31, PCOV+21
EN^DIK	EDIT+6
^DIR	START+16, START+23, PCOV+14, EDIT+1, READ+8, PAUSE+1
EN^VALM	EN+1
TERM^VALM0	EXIT+2
CLEAR^VALM1	EOJ+4
FULL^VALM1	ADD+1, ADDALL+2, EDIT+4
^XBCLS	RETURN+2
$$VAL^XBDIQ1	ADDALL+3
^XBFMK	START+21, ADD+9, ADDALL+8, EDIT+7
EN^XBVK	EOJ+3
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: START+2
Function Call: WRITE	Prompt: !!,"* Update/Review UDS 2018 Site Parameters *",!! Line Location: START+2
Function Call: WRITE	Prompt: !!,"This option is used to set up your site's parameters for UDS reporting," Line Location: START+3
Function Call: WRITE	Prompt: !,"including entering your BPHC UDS id no. and defining visit locations" Line Location: START+4
Function Call: WRITE	Prompt: !,"to be ","""","counted",""""," toward the report. ","""" Line Location: START+5
Function Call: WRITE	Prompt: "A visit must take place in health " Line Location: START+6
Function Call: WRITE	Prompt: !,"center sites or other locations that do not meet HRSA's site criteria, " Line Location: START+7
Function Call: WRITE	Prompt: !,"such as hospitals, schools, nursing homes, homeless shelters, " Line Location: START+8
Function Call: WRITE	Prompt: !,"or extended care facilities. Visits at these sites count when they " Line Location: START+9
Function Call: WRITE	Prompt: !,"occur on a regularly scheduled basis at an approved site within" Line Location: START+10
Function Call: WRITE	Prompt: !,"the health center's scope of project.""" Line Location: START+11
Function Call: WRITE	Prompt: !!,"Visits will not be counted toward the report if the visit location does not" Line Location: START+12
Function Call: WRITE	Prompt: !,"match the locations on the UDS Visit Locations list." Line Location: START+13
Function Call: WRITE	Prompt: !!,"Multiple site names can be designated with associated locations. Each site name",!,"must have locations designated." Line Location: START+14
Function Call: WRITE	Prompt: !! Line Location: START+15
Function Call: WRITE	Prompt: !!,"No site selected" Line Location: START+18
Function Call: WRITE	Prompt: !,"There are currently no insurance overrides entered.",! Line Location: START+26
Function Call: WRITE	Prompt: !,"The following insurance overrides are currently entered:",! Line Location: START+27
Function Call: WRITE	Prompt: ?40,$S(Y="P":"PRIVATE INSURANCE",Y="MCR":"MEDICARE",Y="MCD":"MEDICAID",Y="NI":"NONE/UNINSURED",1:"") Line Location: START+30
Function Call: WRITE	Prompt: ! Line Location: START+31
Function Call: WRITE	Prompt: !!!,"Provider Class Exclusions from UDS visit definition." Line Location: PCOV+1
Function Call: WRITE	Prompt: !,"UDS definition of a Provider:" Line Location: PCOV+2
Function Call: WRITE	Prompt: !,"A provider is someone who assumes primary responsibility for assessing the" Line Location: PCOV+3
Function Call: WRITE	Prompt: !,"patient and documenting services in the patient's record. Providers include" Line Location: PCOV+4
Function Call: WRITE	Prompt: !,"only those who exercise independent judgment as to the services rendered to" Line Location: PCOV+5
Function Call: WRITE	Prompt: !,"the patient during a visit." Line Location: PCOV+6
Function Call: WRITE	Prompt: !!,"If there are provider class/disciplines that do not meet the above criteria" Line Location: PCOV+7
Function Call: WRITE	Prompt: !,"you may add them to the list below and any visit on which the primary provider" Line Location: PCOV+8
Function Call: WRITE	Prompt: !,"is of one of those disciplines/classes the visit will NOT be counted as a" Line Location: PCOV+9
Function Call: WRITE	Prompt: !,"UDS visit." Line Location: PCOV+10
Function Call: WRITE	Prompt: !!,"Note: Only exclude provider types who in your facility DO NOT exercise" Line Location: PCOV+11
Function Call: WRITE	Prompt: !,"independent judgment as to the services rendered to the patient during a visit." Line Location: PCOV+12
Function Call: WRITE	Prompt: !! Line Location: PCOV+13
Function Call: WRITE	Prompt: !,"There are currently no provider class exclusions entered.",! Line Location: PCOV+17
Function Call: WRITE	Prompt: !,"The following provider class exclusions are currently entered:",! Line Location: PCOV+18
Function Call: WRITE	Prompt: ! Line Location: PCOV+21
Function Call: WRITE	Prompt: !! Line Location: ADD+3
Function Call: WRITE	Prompt: !!,$P(^DIC(4,BUDLOC,0),U)," is already on the list." Line Location: ADD+7
Function Call: WRITE	Prompt: !,"Adding UDS Visit Location..." Line Location: ADD+8
Function Call: WRITE	Prompt: !!,"adding new location failed" Line Location: ADD+11
Function Call: WRITE	Prompt: !!,"Hold on while I gather up all of ",$$VAL^XBDIQ1(9999999.06,BUDSITE,.05),"'s locations and add them...." Line Location: ADDALL+3
Function Call: WRITE	Prompt: !,$P(^DIC(4,BUDX,0),U)," --already on list" Line Location: ADDALL+7
Function Call: WRITE	Prompt: !!," --failed to be added" Line Location: ADDALL+11
Function Call: WRITE	Prompt: ! Line Location: EDIT+1
Function Call: WRITE	Prompt: !,"No items selected." Line Location: EDIT+2
Function Call: WRITE	Prompt: !,"No items selected." Line Location: EDIT+3
Function Call: WRITE	Prompt: !,$P(^DIC(4,X,0),U)," removed from list" Line Location: EDIT+5
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+1
Routine Call	DIE Line Location: START+20 START+31 PCOV+21
Routine Call	DIC Line Location: START+17 GETPAT+4 ADD+4 ADD+10 ADDALL+9
Routine Call	DIR Line Location: START+16 START+23 PCOV+14 EDIT+1 READ+8 PAUSE+1

FileNo	Call Tags
^BUDHSITE - [#90669.901]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUTNINS - [#9999999.18]	START+29
^AUTTLOC - [#9999999.06]	ADDALL+5, ADDALL+6
^BUDHSITE - [#90669.901]	START+26, START+27, START+28, START+29, START+30, PCOV+17, PCOV+18, PCOV+19, PCOV+20, GATHER+3 , GATHER+7, ADD+7, ADDALL+7, EDIT+5!
^DD(90669.901	ADD+10, ADDALL+9
^DIC(4 - [#4]	HDR+2, GATHER+3, GATHER+7, ADD+7, ADDALL+7, ADDALL+10, EDIT+5
^DIC(7 - [#7]	PCOV+20

Name	Line Occurrences
$$READ	RETURN+2
EN	START+22
EOJ	START+16, START+18
EXIT	ADD+7, ADD+12, ADDALL+15, EDIT+2, EDIT+3, EDIT+9
GATHER	INIT+2, EXIT+4
HDR	EXIT+5
N	PCOV+15, PCOV+16
PAUSE	ADDALL+14, EDIT+8
PCOV	START+24, START+25
RETURN	ADD+7
START	N+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EOJ+2!
>> BUDANS	EDIT+5*
>> BUDCUT	GATHER+5*
BUDD	EN+2!, EDIT+5*
BUDDISP	GATHER+1!, GATHER+8!
BUDDISP(	GATHER+7*
BUDDN	EN+2!
>> BUDDNT	START+16, N+1*
BUDHIGH	GATHER+1!, GATHER+4*, GATHER+5, EDIT+1
>> BUDI	EDIT+5*
BUDLINE	EN+2!
BUDLIST	GATHER+2!
BUDLIST(	GATHER+3*, GATHER+4
>> BUDLOC	ADD+6*, ADD+7, ADD+10
BUDPC	EXIT+1!
BUDR1	EXIT+1!
BUDRCNT	EN+2!
BUDSEL	GATHER+1!
BUDSEL(	GATHER+4*, GATHER+6, GATHER+7
>> BUDSITE	START+19*, START+20, START+26, START+27, START+28, START+29, START+30, START+31, PCOV+17, PCOV+18 , PCOV+19, PCOV+20, PCOV+21, HDR+2, GATHER+3, GATHER+7, ADD+7, ADD+10, ADDALL+3, ADDALL+5 , ADDALL+7, ADDALL+9, EDIT+5, EDIT+6
BUDVL	START+1!, EN+2!, GATHER+1!, EXIT+1!
BUDVL(	GATHER+7*
BUDVL("IDX"	GATHER+7*, EDIT+5
BUDX	START+1!, EN+2!, ADDALL+6*, ADDALL+7, ADDALL+9, ADDALL+10, EXIT+1!
BUDY	START+1!, EXIT+1!
>> C	GATHER+6, GATHER+7, GATHER+9
D0	ADDALL+9!
DA	START+16!, START+20, START+23!, START+31!, PCOV+14!, PCOV+21!, ADDALL+9!, EDIT+6, EOJ+2!
DA(1	ADD+10, ADDALL+9
DD	ADDALL+9!
DDS	EOJ+2!
DDSFILE	EOJ+1!
DEFAULT	READ~, READ+5
>> DFN	GETPAT+1, GETPAT+3, GETPAT+6*
DIADD	ADDALL+9!
DIC	START+17, GETPAT+4!, ADD+4!, ADD+10, ADDALL+9*!, EOJ+2!
DIC("A"	ADD+4*
DIC("P"	ADD+10, ADDALL+9
DIC(0	START+17, GETPAT+4, ADD+4, ADD+10, ADDALL+9*
DIE	START+20, START+31!, PCOV+21*!
>> DIK	EDIT+6*
DIPGM	EOJ+1!
DIR	START+16!, START+23!, PCOV+14!, EDIT+1!, READ+1~, PAUSE+1!
DIR("?"	READ+6*
DIR("A"	START+16, START+23, PCOV+14, EDIT+1, READ+4, READ+7, PAUSE+1*
DIR("B"	START+16, START+23, PCOV+14, READ+5
DIR("S"	READ+3*
DIR(0	START+16, START+23, PCOV+14, EDIT+1, READ+2, PAUSE+1
DIRA	READ~
DIRA(	READ+7
DIRA(1	READ+7
>> DIRUT	START+24, PCOV+15, EDIT+1, EDIT+3, PAUSE+1
DLAYGO	ADDALL+9!
DO	ADDALL+9!
DR	START+20, START+31!, PCOV+21*!, ADDALL+9!, EOJ+2!
>> DUOUT	EDIT+1, PAUSE+1
HELP	READ~, READ+6
I	GATHER+6*, GATHER+7, EXIT+6!
IOF	START+2, GETPAT+2
IOST	RETURN+1
>> J	GATHER+6*
>> K	GATHER+6*
PROMPT	READ~, READ+4
SCREEN	READ~, READ+3
SU	ADDALL+4~, ADDALL+5*, ADDALL+6
TYPE	READ~, READ+2
U	START+29, START+30, PCOV+20, HDR+2, GATHER+3, GATHER+7, ADD+7, ADD+10, ADDALL+5, ADDALL+6 , ADDALL+7, ADDALL+9, ADDALL+10, EDIT+5
VALM	EOJ+5!
VALMAR	EOJ+5!
VALMBCK	EXIT+3*, EOJ+5!
VALMBG	EOJ+5!
VALMCAP	EOJ+5!
VALMCC	EOJ+5!
VALMCNT	GATHER+9*, EOJ+5!
VALMCOFF	EOJ+5!
VALMCON	EOJ+5!
VALMEVL	EOJ+5!
VALMHDR	EOJ+5!
VALMHDR(1	HDR+1*
VALMHDR(2	HDR+2*
VALMHDR(3	HDR+3*
VALMHDR(4	HDR+4*
VALMIOXY	EOJ+5!
VALMKEY	EOJ+5!
VALMLFT	EOJ+5!
VALMLST	EOJ+5!
VALMMENU	EOJ+5!
VALMON	EOJ+5!
>> VALMSG	INIT+1*
VALMSGR	EOJ+5!
VALMUP	EOJ+5!
VALMVAR	EOJ+5!
VALMWD	EOJ+4, EOJ+5!
X	START+28, START+29, START+30, PCOV+19, PCOV+20, GATHER+3, GATHER+4, ADD+10, ADDALL+9!, EDIT+5* , READ+1~, HELP+1*, EXIT+6!, EOJ+2!
Y	START+16, START+18, START+19, START+25, START+30, PCOV+16, GETPAT+5, GETPAT+6, GATHER+4, ADD+5 , ADD+6, ADD+11, ADDALL+11, EDIT+2, EDIT+5, RETURN+2~, READ+1~, READ+7, READ+9, EXIT+6! , EOJ+1!, EOJ+2!
Z	EXIT+6!

Customize PDF page

Package: IHS Uniform Data System

Routine: BUDHUPVL

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

Local Variables

Legend: