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: 946

Package Total Caller Graph
Registration 143 DG101  DG101 PRE-SCCP-TEST  DG101F  DG531014P  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  DGPFPOST  DGPFUT2  DGPFUT6  DGPFUT62  DGPHIST  
DGPHSTAT  DGPMBSP  DGPMGLP  DGPMTSR  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  VAFCDODA  
VAFCMG01  VAFCOFIN  VAFCOTFU  VAFCPDAT  VAFCPTAD  VAFCQRY1  VAFCQRY2  VAFCRAUD  
VAFCREL  VAFCSB  VAFCTFIN  VAFCTFMF  VAFCTFNP  VAFCTFPR  VAFCTFU  VAFHAPV1  
VAFHCPV  VAFHLPD1  VAFHLPI1  VAFHLPV1  VAFHLRO3  VAFHPST2  ^VA(389.9  
Integrated Billing 111 IB20P150  IB20P407  IB20P457  IB20PT86  IBARXEC2  IBARXMI  IBARXMO1  IBARXMU  
IBATUTL  IBBAADTI  IBBSHDWN  IBCA  IBCCC  IBCD2  IBCD4  IBCE837A  
IBCE837I  IBCEF1  IBCEF11  IBCEF75  IBCEF79  IBCEMRAA  IBCEMRAB  IBCEMU3  
IBCEOB  IBCEP2A  IBCEP2B  IBCEP81  IBCEP8A  IBCEU3  IBCIPOST  IBCNEDE  
IBCNEDE6  IBCNEHL2  IBCNEHLD  IBCNEHLM  IBCNEHLO  IBCNEHLQ  IBCNEKIT  IBCNERP9  
IBCNERPL  IBCNERTQ  IBCNFRD2  IBCNHHLI  IBCNHHLO  IBCNHPR1  IBCNHUT1  IBCNHUT2  
IBCNRDV  IBCNSGM  IBCNSMR1  IBCNSMR6  IBCNUPD  IBCOIVM1  IBCOIVM2  IBCORC1  
IBCORC2  IBCORC3  IBCROE  IBCU71  IBE585PO  IBECEA4  IBJD1  IBJDB11  
IBJDB21  IBJDE1  IBJDF11  IBJDF2  IBJDF51  IBJDF61  IBJDI11  IBJDI21  
IBJDI7  IBJPS3  IBNCPDP5  IBODIV  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  IBY696PO  
Scheduling 81 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  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 47 ORAMTTR  ORBINPTR  ORCDRA1  ORCDVBEC  ORDEA01  ORDV01  ORDV02  ORDV02A  
ORDV02B  ORDV02C  ORDV03  ORDV04  ORDV04A  ORDV05  ORDV06  ORDV06A  
ORDV06B  ORDV06C  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 23 PRCA355E  PRCA355P  PRCAGST  PRCAGST1  PRCAP269  PRCASVC  RC45P306  RCDPCSA  
RCDPEM7  RCDPEM8  RCDPENRU  RCDPESP  RCDPESP4  RCDPESP6  RCDPESPB  RCDPESR1  
RCDPEUPO  RCKATRPT  RCRCDIV  RCRPU  RCXVDC2  RCXVDC8  RCXVTSK  
Kernel 17 XU671PO  XU8P608  XU8P724  XUIAMXML  XULMP  XUP732  XUP744  XUPCZRT  
XUPSGS  XUPSPD1  XUPSSTF  XUPSUTL1  XUSNPIX1  XUSNPIX2  XUSNPIX3  XUSNPIXI  
XUSTERM1  
Mental Health 17 YSASU  YSCL149P  YSCLDIS  YSCLHLOP  YSCLSERV  YSCLSRV3  YSCLTEST  YSCLTST1  
YSCLTST2  YSCLTST3  YSCLTST5  YSCLTST6  YSCLTST9  YSTUSE  YTQAPI9  YTQTUSE  
YTXCHGL  
Consult Request Tracking 16 GMRC110P  GMRC154P  GMRCAD  GMRCADG  GMRCADU  GMRCHL7  GMRCIBKG  GMRCIEVT  
GMRCISEG  GMRCISG1  GMRCIUTL  GMRCP5A  GMRCP5B  GMRCP96  GMRCPOS  GMRCPOST  
Enrollment Application System 16 EAS1071A  EAS1071B  EAS1071P  EAS1096P  EAS1111P  EAS150P1  EAS155PT  EAS25UEI  
EASBTBUL  EASCM  EASEGT2  EASMTL6  EASPREC4  EASSIGDT  EASSIGOV  EASUER  
Health Level Seven 16 HLCSMM  HLEME  HLEMSND  HLEMU  HLEVAPI  HLEVSRV  HLEVUTI0  HLEVUTI3  
HLEVX000  HLLOG  HLOASUB1  HLOPOST  HLP109  HLUCM001  HLUCM090  ^HLCS(870  
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  
Health Data and Informatics 10 HDIPSZRT  HDISDOC  HDISDSR  HDISDSR1  HDISVC01  HDISVCFX  HDISVCUT  HDISVF01  
HDISVF09  HDISVM02  
Health Summary 10 GMTSCM  GMTSOBE  GMTSOBI  GMTSOBL  GMTSOBU  GMTSPST2  GMTSPST5  GMTSU2  
GMTSXAD  GMTSXAW3  
Automated Information Collection System 9 IBDF14A  IBDF15A  IBDF2F1  IBDFBK1  IBDFBKS  IBDFESP  IBDFN1  IBDFN3  
IBDFOSG1  
Capacity Management Tools 9 KMPDECH  KMPDHU01  KMPDHU02  KMPDHUA  KMPDPOST  KMPDSSS  KMPDTU01  KMPDU5  
KMPDUTL2  
Radiology Nuclear Medicine 9 RAONDEM  RAORD1  RAORD2  RAORD5  RAORD8  RAORDU  RAORR1  RAUTL6  
RAXMLSND  
Text Integration Utility 9 TIU214  TIU330P  TIULA  TIULA1  TIULC1  TIULV  TIUP113  TIUP290A  
TIURVBC  
VistA System Monitor 9 KMPVBETR  KMPVCBG  KMPVCCFG  KMPVCSRV  KMPVLM  KMPVVHLM  KMPVVMCM  KMPVVSTM  
KMPVVTCM  
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  
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  
Imaging 6 MAGDRPC3  MAGGTPT1  MAGGTU3  MAGJUTL3  MAGROI01  MAGTP008  
Prosthetics 6 RMPR5HQ1  RMPRESRV  RMPRET  RMPREXDS  RMPREXT  RMPRHL7  
Barcode Medication Administration 5 PSBML  PSBPARIV  PSBPOIV  PSBPXFL  PSBRPC  
Capacity Management - RUM 5 KMPRBD01  KMPRBD04  KMPRP1  KMPRP2  KMPRPN03  
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  
Virtual Patient Record 5 VPRD  VPRDJ00  VPRDPT  VPRP20  VPRP8I  
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  
General Medical Record - Vitals 3 GMVRPCP  GMVRPCU  GMVVDEF1  
Patient Representative 3 QACI2D  QACNEW  QACUTL0  
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  
Controlled Substances 1 PSDNMKY  
DRG Grouper 1 ICD1889P  
Dietetics 1 FH  
Event Capture 1 EC20P95  
Fee Basis 1 FBMON  
HealtheVet Desktop 1 XHDLSITE  
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  
Oncology 1 ONCSRV  
PAID 1 PRSMPI  
Police and Security 1 ESPOID  
SAGG Project 1 KMPSGE  
Surgery 1 SROESPR  
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