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

Package Total Caller Graph
Registration 126 DBRS NUMBER  DG101  DG101 PRE-SCCP-TEST  DG101F  DG53130P  DG53147P  DG53149P  DG53190T  
DG53318P  DG53602S  DG53632P  DG53644P  DG53653A  DG53672D  DG53672R  DG53688P  
DG53800P  DG53B563  DG53P379  DG53P423  DG53P593  DGENQRY1  DGENU  DGGECS  
DGMSRPT  DGMSRPT1  DGMSTAPI  DGMTE  DGMTU  DGPFBGR  DGPFHLF  DGPFHLR  
DGPFHLU5  DGPFHLU6  DGPHIST  DGPHSTAT  DGPMGLP  DGPMTSR  DGPREP1  DGPTF099  
DGPTF09X  DGPTFTR  DGQWKF  DGREG  DGROMAIL  DGRPU  DGRUGDS  DGRUGPRP  
DGVTS00  VAFCDODA  VAFCMG01  VAFCOTFU  VAFCPDAT  VAFCPTAD  VAFCQRY1  VAFCQRY2  
VAFCSB  VAFCTFIN  VAFCTFU2  VAFHAPV1  VAFHLPV1  VAFHLRO3  ^DGPF(26.14  VAFHPST2  
^VA(389.9  DG53182P  DG53285  DG53289  DG53293C  DG53334C  DG53665O  DG53P650  
DG53P951  DG53S451  DG648PST  DG876PST  DG884P  DG933PO  DG944PST  DG950PST  
DG967PST  DGEN339  DGEN408  DGENACL  DGENCDA  DGENCLEA  DGENEGT2  DGENPT  
DGENRPD2  DGHBPUTL  DGHPIENV  DGHTHL7  DGMTOFA1  DGMTU4  DGNTR1  DGNTUT  
DGPFAA2  DGPFCNV  DGPFHLT1  DGPFLMA2  DGPFUT2  DGPFUT6  DGPFUT62  DGPMBSP  
DGPTRPO  DGPTUTL  DGPTX1  DGQWK  DGRP6CL1  DGRPECE1  DGRPLE  DGRPTU  
DGRR557U  DGRRUTL  DGRUDYN  DGZRT  VAFCAUD  VAFCOFIN  VAFCRAUD  VAFCTF  
VAFCTFMF  VAFCTFPR  VAFCTFU  VAFHCPV  VAFHLPD1  VAFHLPI1  
Integrated Billing 105 IB20P150  IB20P457  IB20PT86  IBARXEC2  IBARXMI  IBARXMO1  IBARXMU  IBATUTL  
IBBAADTI  IBBSHDWN  IBCA  IBCCC  IBCD2  IBCD4  IBCE837A  IBCEF1  
IBCEF11  IBCEF75  IBCEF79  IBCEMRAA  IBCEMRAB  IBCEMU3  IBCEOB  IBCEP2A  
IBCEP2B  IBCEP81  IBCEP8A  IBCEU3  IBCIPOST  IBCNEDE  IBCNEDE6  IBCNEHL2  
IBCNEHLD  IBCNEHLM  IBCNEHLO  IBCNEHLQ  IBCNEKIT  IBCNERP9  IBCNERPL  IBCNFRD2  
IBCNHHLI  IBCNHHLO  IBCNHPR1  IBCNHUT1  IBCNHUT2  IBCNRDV  IBCNSGM  IBCNSMR1  
IBCNSMR6  IBCNUPD  IBCNVCC1  IBCNVRD0  IBCNVRP1  IBCNVRP2  IBCOIVM1  IBCOIVM2  
IBCORC1  IBCORC2  IBCORC3  IBCROE  IBCU71  IBE585PO  IBJD1  IBJDB11  
IBJDB21  IBJDE1  IBJDF11  IBJDF2  IBJDF51  IBJDF61  IBJDI11  IBJDI21  
IBJDI7  IBJPS3  IBNCPDP5  IBODIV  IBOMTLTC  IBOTR2  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  ^IBA(364.5  
^IBA(364.7  
Scheduling 80 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  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 46 MPIF001  MPIF002  MPIFA24  MPIFA31B  MPIFA31I  MPIFA37  MPIFA40  MPIFA43  
MPIFAPI  MPIFAPI1  MPIFBT3  MPIFCMOR  MPIFCMRP  MPIFD1  MPIFDEL  MPIFDNL  
MPIFDUP  MPIFDUPS  MPIFEDIT  MPIFEXT  MPIFFULL  MPIFNEW  MPIFP41  MPIFP48  
MPIFPST  MPIFPST1  MPIFQ0  MPIFQ1  MPIFQ3  MPIFQUE3  MPIFQUE4  MPIFRCMP  
MPIFREQ  MPIFRES  MPIFRPC  MPIFRPC2  MPIFRPC3  MPIFSA2  MPIFSEED  MPIFUTL  
MPIFVER  MPIFVTQ  MPIFXMLG  MPIFXMLI  MPIFXMLP  MPIFXMLS  
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  
Order Entry Results Reporting 44 ORAMTTR  ORBINPTR  ORCDRA1  ORCDVBEC  ORDEA01  ORDV01  ORDV02  ORDV02A  
ORDV02B  ORDV02C  ORDV03  ORDV04  ORDV04A  ORDV05  ORDV06  ORDV06A  
ORDV06B  ORDV07  ORDV08  ORMBLDVB  ORMEVNT  ORMEVNT1  ORQQPL2  ORRDI1  
ORUTL  ORUTL5  ORWCIRN  ORWDXVB  ORWDXVB2  ORWLR1  ORWMC  ORWOR  
ORWRA  ORWRP  ORWRP1  ORWRPP  ORWSR  ORWTPN  ORWU  ORWU1  
ORWU2  ORY142  ORY163  ORY218  
Outpatient Pharmacy 42 PSO283P1  PSO283PI  PSO293P1  PSO293PI  PSO55FX2  PSO55FX3  PSOASAP  PSOASAP0  
PSOBBC  PSOBING1  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  
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 18 PRCAGST  PRCAGST1  PRCAP269  PRCASVC  RC45P306  RCDPCSA  RCDPEM7  RCDPEM8  
RCDPENRU  RCDPESP  RCDPESP4  RCDPESP6  RCDPEUPO  RCKATRPT  RCRCDIV  RCXVDC2  
RCXVDC8  RCXVTSK  
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  HLEVSRV  HLEVUTI0  HLEVUTI3  ^HLCS(870  
HLEVAPI  HLEVX000  HLLOG  HLOASUB1  HLOPOST  HLP109  HLUCM001  HLUCM090  
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 SKIN TESTS  
PXTT EDIT TREATMENT  PXTTEDC  PXTTU1  PXVP201  PXVP206  VSITDEF  VSITIPOS  
Consult Request Tracking 14 GMRC110P  GMRCAD  GMRCADG  GMRCADU  GMRCHL7  GMRCIBKG  GMRCISEG  GMRCISG1  
GMRCIUTL  GMRCP5A  GMRCP5B  GMRCP96  GMRCPOS  GMRCPOST  
Kernel 12 INSTALL QUESTIONS  XU671PO  XUPCZRT  XUPSGS  XUPSPD1  XUPSSTF  XUPSUTL1  XUSNPIX1  
XUSNPIX2  XUSNPIX3  ^DIC(19  XUSNPIXI  
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  
Mental Health 10 YSASU  YSCLSERV  YSCLTEST  YSCLTST1  YSCLTST2  YSCLTST3  YSTUSE  YTQAPI9  
YTQTUSE  YTXCHGL  
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  
VistA System Monitor 9 KMPVBETR  KMPVCBG  KMPVCCFG  KMPVCSRV  KMPVLM  KMPVVHLM  KMPVVMCM  KMPVVSTM  
KMPVVTCM  
Clinical Reminders 8 PXRMETXR  PXRMEXIC  PXRMEXPD  PXRMG2E2  PXRMG2M1  PXRMXSL1  PXRMXSL2  PXRMXSU  
Inpatient Medications 7 PSGMMAR2  PSJGMRA  PSJHLU  PSJIPST  PSJPDAPP  PSJPDCLA  PSJPDCLU  
Shift Handoff Tool 7 CRHD11  CRHD3  CRHD4  CRHDDNR  CRHDDR  CRHDUD  CRHDUT  
Text Integration Utility 7 TIU214  TIULA  TIULA1  TIULC1  TIULV  TIUP113  TIURVBC  
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  
VBECS 6 VBEC2P1  VBECP10  VBECP27  VBECP3  VBECRPCD  VBECSRV  
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  
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  
Pharmacy Data Management 4 PSS192PO  PSS211PO  PSSDSONF  PSSHREQ  
Virtual Patient Record 4 VPRD  VPRDJ00  VPRDPT  VPRP8I  
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
YN ; -input transform for is primary facility
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
    CHK ; -input transform for IS PRIMARY STATION? field
    ; -only 1 primary station number allowed per effective date
    CHKQ
    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
    IVDATE(DATE) ; -- inverse date reference start
    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
    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