Routine: BUD7UPVL

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

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for BUD UPDATE VISIT LOCATIONS
ADDALL	;EP
HDR	; -- header code
EDIT	;
EOJ	;
GATHER	;
GETPAT	;
READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN,DIRA)	;EP; calls reader, returns response
START	;update visit locations
INIT	; -- init variables and list array
PAUSE	;EP
EXIT	; -- exit code
RETURN	;EP; -- ask user to press ENTER
ADD	;EP called from protocol to open a new case
EXPND	; -- expand code
HELP	; -- help code

External References

Name	Field # of Occurrence
^DIC	START+14, GETPAT+4, ADD+4, ADD+10, ADDALL+9
^DIE	START+17
EN^DIK	EDIT+6
^DIR	START+13, 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+18, 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 2007 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 (encounter) locations" Line Location: START+4
Function Call: WRITE	Prompt: !,"to be ","""","counted",""""," toward the report. ","""","An encounter may take place in the health" Line Location: START+5
Function Call: WRITE	Prompt: !,"center or at any other location in which project-supported activities are" Line Location: START+6
Function Call: WRITE	Prompt: !,"carried out. Examples... mobile vans, hospitals, patients' homes, schools," Line Location: START+7
Function Call: WRITE	Prompt: !,"homeless shelters, and extended care facilities...","""" Line Location: START+8
Function Call: WRITE	Prompt: !!,"Visits will not be counted toward the report if the visit location does not" Line Location: START+9
Function Call: WRITE	Prompt: !,"match the locations on the UDS Visit Locations list." Line Location: START+10
Function Call: WRITE	Prompt: !!,"Multiple site names can be designated with associated locations. Each site name",!,"must have locations designated." Line Location: START+11
Function Call: WRITE	Prompt: !! Line Location: START+12
Function Call: WRITE	Prompt: !!,"No site selected" Line Location: START+15
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+17
Routine Call	DIC Line Location: START+14 GETPAT+4 ADD+4 ADD+10 ADDALL+9
Routine Call	DIR Line Location: START+13 EDIT+1 READ+8 PAUSE+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BUDESITE - [#90669.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTLOC - [#9999999.06]	ADDALL+5, ADDALL+6
^BUDESITE - [#90669.1]	GATHER+3, GATHER+7, ADD+7, ADDALL+7, EDIT+5!
^DD(90345.1	ADD+10, ADDALL+9
^DIC(4 - [#4]	HDR+2, GATHER+3, GATHER+7, ADD+7, ADDALL+7, ADDALL+10, EDIT+5

Label References

Name	Line Occurrences
$$READ	RETURN+2
EN	START+19
EOJ	START+13, START+15
EXIT	ADD+7, ADD+12, ADDALL+15, EDIT+2, EDIT+3, EDIT+9
GATHER	INIT+2, EXIT+4
HDR	EXIT+5
PAUSE	ADDALL+14, EDIT+8
RETURN	ADD+7
START	START+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EOJ+2!
BALMON	EOJ+5!
>> BUDANS	EDIT+5*
>> BUDC	EDIT+5*
>> BUDCNT	START+13, START+20*
>> BUDCUT	GATHER+5*
BUDD	EN+2!
BUDDISP	GATHER+1!, GATHER+9!
BUDDISP(	GATHER+7*
BUDDN	EN+2!
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+16*, START+17, 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+10
D0	ADDALL+9!
DA	START+13!, START+17, 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+14, GETPAT+4!, ADD+4!, ADD+10, ADDALL+9*!, EOJ+2!
DIC("A"	ADD+4*
DIC("P"	ADD+10, ADDALL+9
DIC(0	START+14, GETPAT+4, ADD+4, ADD+10, ADDALL+9*
>> DIE	START+17*
>> DIK	EDIT+6*
DIPGM	EOJ+1!
DIR	START+13!, EDIT+1!, READ+1~, PAUSE+1!
DIR("?"	READ+6*
DIR("A"	START+13, EDIT+1, READ+4, READ+7, PAUSE+1*
DIR("B"	START+13, READ+5
DIR("S"	READ+3*
DIR(0	START+13, EDIT+1, READ+2, PAUSE+1
DIRA	READ~
DIRA(	READ+7
DIRA(1	READ+7
>> DIRUT	EDIT+1, EDIT+3, PAUSE+1
DLAYGO	ADDALL+9!
DO	ADDALL+9!
DR	START+17*, 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	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+10*, 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!
>> VALMSG	INIT+1*
VALMSGR	EOJ+5!
VALMUP	EOJ+5!
VALMVAR	EOJ+5!
VALMWD	EOJ+4, EOJ+5!
X	GATHER+3, GATHER+4, ADD+10, ADDALL+9!, EDIT+5, READ+1~, HELP+1, EXIT+6!, EOJ+2!
Y	START+13, START+15, START+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: BUD7UPVL

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: