Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BUD5UPVL

Package: IHS Uniform Data System

Routine: BUD5UPVL


Information

BUD5UPVL ; IHS/CMI/LAB - update visit locations UDS ;

Source Information

Source file <BUD5UPVL.m>

Call Graph

Call Graph Total: 12

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 2005 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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTLOC - [#9999999.06] ADDALL+5, ADDALL+6
^BUDVSITE - [#90347.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!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All