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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BUDHUPVL

Package: IHS Uniform Data System

Routine: BUDHUPVL


Information

BUDHUPVL ;IHS/CMI/LAB - UPDATE VISIT LOCATIONS;

Source Information

Source file <BUDHUPVL.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  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Uniform Data System 1 BUDHSTMP  

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

External References

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All