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

Package: Registration

Routine: VASITE


Information

VASITE ;ALB/AAS - TIME SENSETIVE VA STATION NUMBER UTILITY ; 4/22/92

Source Information

Source file <VASITE.m>

Caller Graph

Caller Graph Total: 957

Package Total Caller Graph
Registration 150 DBRS NUMBER  DG101  DG101 PRE-SCCP-TEST  DG101F  DG531014P  DG531065P  DG53130P  DG53147P  
DG53149P  DG53182P  DG53190T  DG53285  DG53289  DG53293C  DG53318P  DG53334C  
DG53602S  DG53632P  DG53644P  DG53653A  DG53665O  DG53672D  DG53672R  DG53688P  
DG53800P  DG53B563  DG53P379  DG53P423  DG53P593  DG53P650  DG53P951  DG53S451  
DG648PST  DG712PST  DG837PST  DG876PST  DG884P  DG933PO  DG944PST  DG950PST  
DG967PST  DGEN339  DGEN408  DGENACL  DGENCDA  DGENCLEA  DGENEGT2  DGENPT  
DGENQRY1  DGENRPD2  DGENU  DGGECS  DGHBPUTL  DGHPIENV  DGHTHL7  DGMSRPT  
DGMSRPT1  DGMSTAPI  DGMTE  DGMTOFA1  DGMTU  DGMTU4  DGNTR1  DGNTUT  
DGOTHD2  DGOTHEL  DGOTHFS2  DGOTHFSM  DGOTHMG2  DGOTHMST  DGOTHRP1  DGOTHRP2  
DGOTHRP3  DGOTHRP5  DGOTHRP6  DGPFAA2  DGPFBGR  DGPFCNV  DGPFHLF  DGPFHLR  
DGPFHLS  DGPFHLT1  DGPFHLU5  DGPFHLU6  DGPFLMA2  DGPFLMA3  DGPFPOST  DGPFUT2  
DGPFUT6  DGPFUT62  DGPHIST  DGPHSTAT  DGPMBSP  DGPMGLP  DGPMTSR  DGPOTEN  
DGPPDRPT  DGPPRP1  DGPPRRPT  DGPREP1  DGPTF099  DGPTF09X  DGPTFTR  DGPTRPO  
DGPTUTL  DGPTX1  DGQWK  DGQWKF  DGREG  DGROMAIL  DGRP6CL1  DGRPECE1  
DGRPLE  DGRPTU  DGRPU  DGRR557U  DGRRUTL  DGRUDYN  DGRUGDS  DGRUGPRP  
DGVTS00  DGZRT  DPTLK7A  VAFCAUD  VAFCCRNR  VAFCDODA  VAFCMG01  VAFCOFIN  
VAFCOTFU  VAFCPDAT  VAFCPTAD  VAFCQRY1  VAFCQRY2  VAFCRAUD  VAFCREL  VAFCSB  
VAFCTFIN  VAFCTFMF  VAFCTFNP  VAFCTFPR  VAFCTFU  VAFHAPV1  VAFHCPV  VAFHLPD1  
VAFHLPI1  VAFHLPV1  VAFHLRO3  VAFHPST2  ^DGPF(26.14  ^VA(389.9  
Integrated Billing 140 IB20P150  IB20P407  IB20P457  IB20PT86  IBARXCFL  IBARXCSH  IBARXEC2  IBARXMI  
IBARXMO1  IBARXMU  IBATUTL  IBBAADTI  IBBSHDWN  IBCA  IBCCC  IBCD2  
IBCD4  IBCE837A  IBCE837I  IBCE837N  IBCE837S  IBCEF1  IBCEF11  IBCEF75  
IBCEF79  IBCEMRAA  IBCEMRAB  IBCEMSRI  IBCEMU3  IBCEOB  IBCEP2A  IBCEP2B  
IBCEP81  IBCEP8A  IBCEU3  IBCIPOST  IBCNEDE  IBCNEDE6  IBCNEHL2  IBCNEHLD  
IBCNEHLM  IBCNEHLO  IBCNEHLQ  IBCNEHLU  IBCNEKIT  IBCNERP9  IBCNERPL  IBCNERTQ  
IBCNEUT7  IBCNFRD2  IBCNHHLI  IBCNHHLO  IBCNHPR1  IBCNHUT1  IBCNHUT2  IBCNINS  
IBCNIUF  IBCNIUH1  IBCNIUHL  IBCNOR2  IBCNRDV  IBCNSGM  IBCNSMR1  IBCNSMR6  
IBCNUPD  IBCOIVM1  IBCOIVM2  IBCORC1  IBCORC2  IBCORC3  IBCROE  IBCU71  
IBE585PO  IBECEA4  IBECECX1  IBJD1  IBJDB11  IBJDB21  IBJDE1  IBJDF11  
IBJDF2  IBJDF51  IBJDF61  IBJDI11  IBJDI21  IBJDI7  IBJPI2  IBJPS3  
IBNCPDP5  IBODIV  IBOMHC  IBOMTLTC  IBOTR2  IBTASHLT  IBTRH6  IBTRH8  
IBTRHLO  IBTUBO1  IBTUBO2  IBTUBUL  IBTUTL5  IBY155PO  IBY232PO  IBY283PO  
IBY288PO  IBY320PO  IBY320PR  IBY368PO  IBY371PO  IBY377PO  IBY400PO  IBY400PR  
IBY403PR  IBY416PO  IBY432PO  IBY519PO  IBY577PO  IBY602PO  IBY608PO  IBY641PO  
IBY652E  IBY652P  IBY659PO  IBY664PO  IBY668PR  IBY687PO  IBY696PO  IBY702PO  
IBY713PO  IBY718PO  IBY727PO  IBY732PO  IBY737PO  IBY737PR  IBY743PO  IBY752PO  
IBY763PO  IBY771PO  ^IBA(364.5  ^IBA(364.7  
Scheduling 82 SCDXPOV  SCDXPOV1  SCDXPOV3  SCMCFPOS  SCMCHL  SCMCHLR  SCMCHLRR  SCMCWS1  
SCMSP0  SCMSPU1  SCMSVUT1  SCRPIUT1  SCRPPAHS  SCRPPRAH  SCRPPTA  SCRPPTPA  
SCRPTEAM  SCRPTHST  SCRPTPHS  SCRPTPOS  SCRPW11  SCRPW15  SCRPW16  SCRPW17  
SCRPW2  SCRPW3  SCRPW301  SCRPW304  SCRPW40  SCRPW42  SCRPW60  SCRPW61  
SCRPW63  SCRPW70  SCRPW71  SCRPW8  SCRPW9  SD290P  SD376P  SD53120A  
SD53430P  SD53747P  SD5384PT  SD53P177  SD53P234  SD53P256  SDACSCG  SDAMA307  
SDCED  SDCED1  SDCLDOW  SDDIV  SDEC46  SDECXML  SDECXML2  SDECXUTL  
SDHPIB  SDHPIENV  SDM3  SDNOS  SDOQMP  SDP333P  SDPARM  SDPBP  
SDPHARM1  SDPMHLS  SDROUT0  SDROUT1  SDROUT2  SDRPA00  SDRPA04  SDRPA06  
SDRPA07  SDRPA08  SDSCCHK  SDSCOMP  SDSCPRM  SDWLBACC  SDWLCU5  SDWLCU6  
SDWLIFT0  SDWLIFT3  
Master Patient Index VistA 50 MPIF001  MPIF002  MPIF51P  MPIFA24  MPIFA24B  MPIFA28  MPIFA31B  MPIFA31I  
MPIFA37  MPIFA40  MPIFA43  MPIFAPI  MPIFAPI1  MPIFBT3  MPIFCMOR  MPIFCMRP  
MPIFD1  MPIFDEL  MPIFDNL  MPIFDUP  MPIFDUPS  MPIFEDIT  MPIFEXT  MPIFFULL  
MPIFNEW  MPIFP41  MPIFP48  MPIFP76  MPIFPST  MPIFPST1  MPIFQ0  MPIFQ1  
MPIFQ3  MPIFQUE3  MPIFQUE4  MPIFRCMP  MPIFREQ  MPIFRES  MPIFRPC  MPIFRPC2  
MPIFRPC3  MPIFSA2  MPIFSEED  MPIFUTL  MPIFVER  MPIFVTQ  MPIFXMLG  MPIFXMLI  
MPIFXMLP  MPIFXMLS  
Order Entry Results Reporting 50 ORACCESS  ORAMTTR  ORB3U2  ORBINPTR  ORCDRA1  ORCDVBEC  ORDEA01  ORDV01  
ORDV02  ORDV02A  ORDV02B  ORDV02C  ORDV03  ORDV04  ORDV04A  ORDV05  
ORDV06  ORDV06A  ORDV06B  ORDV06C  ORDV06D  ORDV07  ORDV08  ORMBLDVB  
ORMEVNT  ORMEVNT1  ORQQPL2  ORRDI1  ORUTL  ORUTL5  ORVCO  ORWCIRN  
ORWDXVB  ORWDXVB2  ORWLR1  ORWMC  ORWOR  ORWRA  ORWRP  ORWRP1  
ORWRPP  ORWSR  ORWTPN  ORWU  ORWU1  ORWU2  ORY142  ORY163  
ORY218  ORY397A  
Outpatient Pharmacy 45 PSO283P1  PSO283PI  PSO293P1  PSO293PI  PSO55FX2  PSO55FX3  PSO574P  PSOASAP  
PSOASAP0  PSOBBC  PSOBING1  PSOCLADD  PSOCLOU  PSODISP  PSOHCPRS  PSOHLDS1  
PSOHLNE2  PSOHLNEW  PSOHLSG1  PSOHLSG5  PSOHLSN  PSOHLSN1  PSOLBL  PSOLLL7  
PSOLLLH  PSOLLLI  PSONVNEW  PSOORAPI  PSOORFI3  PSOORUTL  PSOPATLK  PSOQ0186  
PSORELD1  PSORESK  PSORLLLI  PSORRX1  PSORWRAP  PSORXLAB  PSOSD  PSOSD1  
PSOSD2  PSOSD3  PSOSDP  PSOTPHL2  PSOVDF1  
Clinical Information Resource Network 44 RGACTIV  RGADT1  RGADTP  RGADTP2  RGDRM01  RGEVPM  RGEXHND1  RGFICLN  
RGFIPM  RGFIPM1  RGFIRM  RGHLLOG1  RGJCREC  RGJCSUB  RGMTAUD  RGMTAUDP  
RGMTDPCT  RGMTDPSC  RGMTETOT  RGMTHLDB  RGMTHLDP  RGMTHLP  RGMTHLPD  RGMTMONT  
RGMTMONX  RGMTRUN  RGMTSTAT  RGMTUT01  RGMTUT02  RGMTUT03  RGMTUT98  RGP3PST  
RGPDPST  RGPOC  RGPVREJ  RGRPC  RGRPDAT  RGRSBUL1  RGRSBULL  RGRSDYN  
RGRSDYN1  RGRSDYN2  RGRSPT  RGSYSTAT  
Lab Service 35 LR138PO  LR175P  LR258PO  LR274POA  LR302POA  LR334POA  LR408  LR495PO  
LR664L  LR72ENVC  LRAPSL  LRAUMLK  LRBLJL1  LRBLSRV  LRCAPPH3  LREPIPI  
LREPIRP1  LREPIRP3  LREPIRS2  LREPISRV  LREPISV1  LRMIEDIM  LRMLED  LRMLEDA  
LRMLPRG  LRMLRCP  LRMLREI  LRMLRIV  LRMLWT  LRSRVR  LRSRVR2  LRSRVR5  
LRSRVR6  LRSRVR7  LRSRVR9  
Income Verification Match 30 IVM16PR  IVM2034P  IVM2034Z  IVM2069P  IVM2071A  IVM2077P  IVM2078P  IVM20P  
IVM20P1  IVM20P19  IVM2174P  IVM26PT  IVM27PT  IVM29PT  IVM2B102  IVMBULK1  
IVMBULK2  IVMCM  IVMCM6  IVMCQ1  IVMLDEMB  IVMLINS2  IVMPREC  IVMPTRN  
IVMPTRN4  IVMPTRN5  IVMPTRN8  IVMUPAR  IVMYZ1  IVMYZ3  
Accounts Receivable 24 PRCA355E  PRCA355P  PRCABARP  PRCAP269  PRCASVC  RC45P306  RCDPCSA  RCDPEM7  
RCDPEM8  RCDPENRU  RCDPESP  RCDPESP4  RCDPESP6  RCDPESPB  RCDPESR1  RCDPEUPO  
RCHRFS  RCKATRPT  RCRCDIV  RCRPU  RCRPWLUT  RCXVDC2  RCXVDC8  RCXVTSK  
Kernel 22 INSTALL QUESTIONS  XU671PO  XU8P608  XU8P662  XU8P724  XUIAMXML  XULMP  XUMVIWSC  
XUP732  XUP744  XUPCZRT  XUPSGS  XUPSPD1  XUPSSTF  XUPSUTL1  XUSNPIX1  
XUSNPIX2  XUSNPIX3  XUSNPIXI  XUSTERM1  ^DIC(19  ^XLM(8993.1  
Capacity Management 21 KMPBEMRT  KMPDECH  KMPDHU01  KMPDHU02  KMPDHUA  KMPDPOST  KMPDSSS  KMPDTU01  
KMPDU5  KMPDUTL2  KMPRBD01  KMPRBD04  KMPRP1  KMPRP2  KMPRPN03  KMPSGE  
KMPUTLW  KMPVCBG  KMPVCCFG  KMPVCSRV  KMPVLM  
Mental Health 19 YSASU  YSCL149P  YSCLDIS  YSCLHLOP  YSCLSERV  YSCLSRV3  YSCLTEST  YSCLTST1  
YSCLTST2  YSCLTST3  YSCLTST5  YSCLTST6  YSCLTST9  YSTUSE  YTQAPI9  YTQRCDB2  
YTQRQAD  YTQTUSE  YTXCHGL  
Consult Request Tracking 18 GMRC110P  GMRC154P  GMRC185  GMRCAD  GMRCADG  GMRCADU  GMRCHL7  GMRCIBKG  
GMRCIEV1  GMRCIEVT  GMRCISEG  GMRCISG1  GMRCIUTL  GMRCP5A  GMRCP5B  GMRCP96  
GMRCPOS  GMRCPOST  
Enrollment Application System 17 EAS1071A  EAS1071B  EAS1071P  EAS1096P  EAS1111P  EAS150P1  EAS155PT  EAS214P  
EAS25UEI  EASBTBUL  EASCM  EASEGT2  EASMTL6  EASPREC4  EASSIGDT  EASSIGOV  
EASUER  
Automated Medical Information Exchange 15 DVBA179P  DVBA35P  DVBA8861  DVBAB1  DVBAB1A  DVBAB1C  DVBAB70  DVBABFRM  
DVBANDCU  DVBAUTL1  DVBCENQ1  DVBCREQP  DVBCUTL8  DVBCXFR2  DVBCXFRC  
PCE Patient Care Encounter 15 PXCEHIST  PXPT  PXQMAIN2  PXRRLCSC  PXTT EDIT EDUCATION TOPICS  PXTT EDIT EXAM  PXTT EDIT HEALTH FACTORS  PXTT EDIT TREATMENT  
PXTTEDC  PXTTU1  PXVP201  PXVP206  PXXDPT  VSITDEF  VSITIPOS  
Text Integration Utility 10 TIU214  TIU330P  TIULA  TIULA1  TIULC1  TIULV  TIUP113  TIUP289  
TIUP290A  TIURVBC  
Automated Information Collection System 9 IBDF14A  IBDF15A  IBDF2F1  IBDFBK1  IBDFBKS  IBDFESP  IBDFN1  IBDFN3  
IBDFOSG1  
Radiology Nuclear Medicine 9 RAONDEM  RAORD1  RAORD2  RAORD5  RAORD8  RAORDU  RAORR1  RAUTL6  
RAXMLSND  
Inpatient Medications 8 PSGMMAR2  PSJGMRA  PSJHLU  PSJIPST  PSJPDAPP  PSJPDCLA  PSJPDCLU  PSJRXLAB  
VBECS 8 VBEC2P1  VBEC2P3  VBECP10  VBECP27  VBECP3  VBECRPCD  VBECRPT  VBECSRV  
Clinical Reminders 7 PXRMETXR  PXRMEXPD  PXRMG2E2  PXRMG2M1  PXRMXSL1  PXRMXSL2  PXRMXSU  
Imaging 7 MAGDRPC3  MAGGTPT1  MAGGTU3  MAGJUTL3  MAGROI01  MAGSPID  MAGTP008  
Shift Handoff Tool 7 CRHD11  CRHD3  CRHD4  CRHDDNR  CRHDDR  CRHDUD  CRHDUT  
Automated Lab Instruments 6 LA66  LA7UIO1  LA7VORR1  LA7VORU  LA7VPID  LA7VSET  
E Claims Management Engine 6 BPS15PST  BPS22PST  BPSECMP2  BPSJAREG  BPSMHDR  BPSOSCD  
Enterprise Health Management Platform 6 HMPCAC  HMPD  HMPDJ00  HMPEVNT  HMPTFU2  HMPWBPL  
Prosthetics 6 RMPR5HQ1  RMPRESRV  RMPRET  RMPREXDS  RMPREXT  RMPRHL7  
Virtual Patient Record 6 VPRD  VPRDJ00  VPRDPT  VPRP20  VPRP8I  VPRSDA  
Barcode Medication Administration 5 PSBML  PSBPARIV  PSBPOIV  PSBPXFL  PSBRPC  
Clinical Case Registries 5 RORHDT02  RORHL08  RORHL7A  RORRP024  RORUTL03  
Patient Data Exchange 5 VAQADM2  VAQADM50  VAQCON3  VAQCON93  VAQPST02  
Pharmacy Data Management 5 PSS192PO  PSS211PO  PSSDSONF  PSSHREQ  PSSUTLA1  
Problem List 5 GMPLDUP2  GMPLNTFT  GMPLNTRT  GMPLPRNT  GMPLSAVE  
Quasar 5 ACKQCD2  ACKQCDD2  ACKQCDRP  ACKQDWL  ACKQWL  
Toolkit 5 AWCMCPR1  AWCMCPR4  AWCMCPST  AWCMFTP  AWCMFTP1  
Clinical Procedures 4 MDCEVN  MDCLIO  MDCPHL7B  MDKRPC2  
DSS Extracts 4 ECXDVSN  ECXDVSN1  ECXNUTDE  ECXPROCT  
Nursing Service 4 NURARFBU  NURQUTL3  NURSAFLL  NURSALED  
Emergency Department Integration Software 3 EDPLAB  EDPMED  EDPYPST  
Survey Generator 3 QAPDEMS1  QAPPT1  QAPSTAT1  
Utilization Management Rollup 3 IBQL356  IBQLLD1  IBQLT  
Adverse Reaction Tracking 2 GMRAOR  GMRAPS49  
Beneficiary Travel 2 DGBTRDV  DGBTVUP  
Integrated Patient Fund 2 PRPFDR2  PRPFMR1  
My HealtheVet 2 MHV1P5  MHV7BU  
National Health Information Network 2 NHINV  NHINVPT  
Oncology 2 ONCSRV  ONCWEB1  
Advanced Medication Platform 1 PREAPO3  
Controlled Substances 1 PSDNMKY  
DRG Grouper 1 ICD1889P  
Dietetics 1 FH  
Event Capture 1 EC20P95  
Fee Basis 1 FBMON  
Incident Reporting 1 QANBENE  
Lexicon Utility 1 LEX2119P  
Methicillin Resistant Staph Aurerus Initiative Reports 1 MMRSIPC5  
Mobile Scheduling Applications Suite 1 MBAARPCL  
National Drug File 1 PSNPPSNC  
PAID 1 PRSMPI  
Police and Security 1 ESPOID  
Surgery 1 SROESPR  
VA FileMan 1 ^DDE  
VA Point of Service 1 VPSRPC3  
VistA Integration Adapter 1 VIABRPC4  

Entry Points

Name Comments DBIA/ICR reference
SITE(DATE,DIV) ;
; -Output= Institution file pointer^Institution name^station number with suffix
  • ICR #759
    • Status: Retired
    • Usage: Private
  • ICR #769
    • Status: Retired
    • Usage: Private
  • ICR #10112
    • Status: Active
    • Usage: Supported
    ALL(DATE) ; -returns all possible station numbers
    ; -input date, if date is undefined, then date will be today
    ; - output VASITE= 1 or -1 if stations exist
    ; VASITE(station number)=station number
  • ICR #10112
    • Status: Active
    • Usage: Supported
    IVDATE(DATE) ; -- inverse date reference start
    CHK ; -input transform for IS PRIMARY STATION? field
    ; -only 1 primary station number allowed per effective date
    CHKQ
    YN ; -input transform for is primary facility
    PRIM(DATE) ; -returns medical center division of primary medical center division
    ; - input date, if date is null then date will be today
  • ICR #10112
    • Status: Active
    • Usage: Supported
    NAME(DATE) ; -returns the new name of medical centers that have integrated
  • ICR #10112
    • Status: Active
    • Usage: Supported

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Effective Date must be entered first"
    • Line Location: CHK+3
    Function Call: WRITE
    • Prompt: !,"Medical Center Division must be entered first.",!
    • Line Location: CHK+4
    Function Call: WRITE
    • Prompt: !,"Another entry Is Primary Division for this date.",!
    • Line Location: CHK+5
    Function Call: WRITE
    • Prompt: !,"Effective date must be entered first!"
    • Line Location: YN+1
    Function Call: WRITE
    • Prompt: !,"Medical Center Division must be entered first!"
    • Line Location: YN+2
    Function Call: WRITE
    • Prompt: !,"Only one division can be primary division for an effective date!"
    • Line Location: YN+3
    Function Call: WRITE
    • Prompt: " (",$S(X:"YES",1:"NO"),")"
    • Line Location: YN+4
    Function Call: WRITE
    • Prompt: !?4,"NOT A VALID CHOICE!",*7
    • Line Location: YN+5

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DG(40.8 - [#40.8] SITE+12
    ^DIC(4 - [#4] SITE+12
    ^VA(389.9 - [#389.9] SITE+10, ALL+8, CHK+3, CHK+4, CHK+5, YN+1, YN+2, YN+3, PRIM+5, NAME+4

    Label References

    Name Line Occurrences
    $$IVDATE SITE+10, ALL+8, PRIM+5, NAME+4
    $$PRIM SITE+8
    CHKQ CHK+3, CHK+4, CHK+5

    Naked Globals

    Name Field # of Occurrence
    ^( SITE+10, ALL+8, PRIM+5, NAME+4

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> DA CHK+3, CHK+4, YN+1, YN+2, YN+3
    DATE SITE~, SITE+7*, SITE+8, SITE+9, SITE+10, ALL~, ALL+6*, ALL+8, IVDATE~, IVDATE+1
    , PRIM~, PRIM+4*, PRIM+5, NAME~, NAME+3*, NAME+4
    DIV SITE~, SITE+8*, SITE+9, SITE+10, SITE+12, ALL+5~, ALL+8*
    DT SITE+7, ALL+6, PRIM+4, NAME+3
    PRIM SITE+6~, SITE+10*, SITE+11, ALL+5~, ALL+8*, PRIM+3~, PRIM+5*, PRIM+6
    SITE SITE+6~, SITE+11*, SITE+12*, SITE+13
    >> VASITE ALL+7*, ALL+8*, ALL+9
    >> VASITE( ALL+8*
    X CHK+3!, CHK+4!, CHK+5!, YN+1!, YN+2!, YN+3!, YN+4*, YN+5!
    Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All