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 |  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 ; [ 04/01/2004 5:17 PM ]

Source Information

Source file <VASITE.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 413

Package Total Caller Graph
Registration 105 DG1010S1  DG272PT2  DG284PT2  DG53190T  DG53244U  DG53285  DG53289  DG53293A  
DG53293B  DG53293C  DG53293D  DG53318P  DG53334A  DG53334B  DG53334C  DG53334D  
DG53602S  DG53632P  DG53644P  DG53653A  DG53665O  DG53672D  DG53672R  DG53688P  
DG53800P  DG53B563  DG53P379  DG53P423  DG53P593  DG53P650  DG53S451  DG648PST  
DG712PST  DGEN339  DGEN408  DGENACL  DGENCDA  DGENEGT2  DGENPT  DGENQRY1  
DGENRPD2  DGENU  DGGECS  DGHTHL7  DGMSRPT  DGMSRPT1  DGMSTAPI  DGMTE  
DGMTOFA1  DGMTU  DGMTU4  DGNTR1  DGNTUT  DGPFAA2  DGPFBGR  DGPFHLU5  
DGPFHLU6  DGPFUT2  DGPHIST  DGPHSTAT  DGPMBSP  DGPMGLP  DGPMTSR  DGPREP1  
DGPTF099  DGPTF09X  DGPTRPO  DGPTUTL  DGPTX1  DGQEDEMO  DGQEPST1  DGQEUT3  
DGREG  DGROMAIL  DGRP6CL1  DGRPECE1  DGRPLE  DGRPTP1  DGRPTU  DGRR557U  
DGRRUTL  DGRUDYN  DGRUGDS  DGRUGPRP  VAFCAUD  VAFCMG01  VAFCOFIN  VAFCOTFU  
VAFCPDAT  VAFCPTAD  VAFCQRY1  VAFCQRY2  VAFCRAUD  VAFCTF  VAFCTFIN  VAFCTFMF  
VAFCTFPR  VAFCTFU  VAFCTFU2  VAFHAPV1  VAFHCPV  VAFHLPD1  VAFHLPI1  VAFHLPV1  
VAFHLRO3  
Scheduling 63 SCDXPOV  SCDXPOV1  SCDXPOV3  SCMCHL  SCMCHLR  SCMCHLRR  SCMSP0  SCMSPU1  
SCMSVUT1  SCRPIUT1  SCRPW11  SCRPW15  SCRPW16  SCRPW17  SCRPW2  SCRPW3  
SCRPW301  SCRPW304  SCRPW40  SCRPW42  SCRPW60  SCRPW61  SCRPW63  SCRPW70  
SCRPW71  SCRPW8  SCRPW9  SD290P  SD53430P  SD5384PT  SD53P177  SD53P234  
SD53P256  SDAMA307  SDDIV  SDHPIB  SDHPIENV  SDM3  SDNOS  SDOQMP  
SDP333P  SDPARM  SDPBE  SDPBP  SDPHARM  SDPHARM1  SDPMHLS  SDROUT0  
SDROUT1  SDROUT2  SDRPA00  SDRPA04  SDRPA06  SDRPA07  SDRPA08  SDSCCHK  
SDSCOMP  SDSCPRM  SDWLBACC  SDWLCU5  SDWLCU6  SDWLIFT0  SDWLIFT3  
Outpatient Pharmacy 37 PSO283P1  PSO283PI  PSO293P1  PSO293PI  PSO55FX2  PSO55FX3  PSOBBC  PSOBING1  
PSODISP  PSOHCPRS  PSOHLDS1  PSOHLNE2  PSOHLNEW  PSOHLSG1  PSOHLSG5  PSOHLSN  
PSOHLSN1  PSOLBL  PSOLLL7  PSOLLLH  PSOLLLI  PSONVNEW  PSOORAPI  PSOORFI3  
PSOORUTL  PSOPATLK  PSOQ0186  PSORELD1  PSORESK  PSORXLAB  PSOSD  PSOSD1  
PSOSD2  PSOSD3  PSOSDP  PSOTPHL2  PSOVDF1  
Order Entry Results Reporting 32 ORCDRA1  ORDV01  ORDV02  ORDV02A  ORDV03  ORDV04  ORDV04A  ORDV05  
ORDV06  ORDV06A  ORDV07  ORDV08  ORMEVNT  ORMEVNT1  ORRDI1  ORRDI2  
ORWCIRN  ORWDXVB  ORWDXVB2  ORWMC  ORWRA  ORWRP  ORWRP1  ORWRPP  
ORWSR  ORWTPN  ORWU  ORWU1  ORWU2  ORY141ED  ORY142  ORY163  
Lab Service 21 LR138PO  LR175P  LR258PO  LR274POA  LR302POA  LR334POA  LR72ENVC  LRAPSL  
LRAUMLK  LRBLJL1  LREPIPI  LREPIRP1  LREPIRP3  LREPIRS2  LREPISRV  LREPISV1  
LRSRVR  LRSRVR2  LRSRVR6  LRSRVR7  LRUC  
Health Level Seven 15 HLEME  HLEMSND  HLEMU  HLEVSRV  HLEVUTI0  HLEVUTI3  ^HLCS(870  HLEVAPI  
HLEVX000  HLLOG  HLOASUB1  HLOPOST  HLP109  HLUCM001  HLUCM090  
PCE Patient Care Encounter 14 PXCEHIST  PXPT  PXQMAIN2  PXRRLCSC  PXTT EDIT EDUCATION TOPICS  PXTT EDIT EXAM  PXTT EDIT HEALTH FACTORS  PXTT EDIT IMMUNIZATIONS  
PXTT EDIT SKIN TESTS  PXTT EDIT TREATMENT  PXTTEDC  PXTTU1  VSITDEF  VSITIPOS  
Automated Information Collection System 9 IBDF14A  IBDF15A  IBDF2F1  IBDFBK1  IBDFESP  IBDFN1  IBDFOSG1  IBDFOSG3  
IBDFOSG4  
Consult Request Tracking 9 GMRCHL7  GMRCIBKG  GMRCISEG  GMRCISG1  GMRCIUTL  GMRCP5A  GMRCP5B  GMRCPOS  
GMRCPOST  
Integrated Billing 9 IB20PT86  IBARXEC2  IBCA  IBCCC  IBCD2  IBCD4  IBCORC1  IBCORC2  
IBCU71  
Kernel 9 XU8343R  XUPSGS  XUPSPD1  XUPSSTF  XUPSUTL1  XUSNPIX1  XUSNPIX2  XUSNPIX3  
XUSNPIXI  
Radiology Nuclear Medicine 9 RAAPI  RAFLH2  RAORD1  RAORD2  RAORD5  RAORD8  RAORDU  RAORR1  
RAUTL6  
Clinical Reminders 8 PXRMETXR  PXRMEXIC  PXRMEXPD  PXRMG2E2  PXRMG2M1  PXRMXSL1  PXRMXSL2  PXRMXSU  
Health Summary 8 GMTSCM  GMTSOBE  GMTSOBI  GMTSOBL  GMTSOBU  GMTSU2  GMTSXAD  GMTSXAW3  
Text Integration Utility 7 TIU214  TIULA  TIULA1  TIULC1  TIULV  TIUP113  TIURVBC  
Automated Lab Instruments 6 LA67  LA7CORU  LA7VORR1  LA7VORU  LA7VPID  LA7VSET  
Barcode Medication Administration 6 PSBIHS1  PSBML  PSBPARIV  PSBPOIV  PSBPXFL  PSBRPC  
Health Data and Informatics 6 HDISVC01  HDISVCFX  HDISVCUT  HDISVF01  HDISVF09  HDISVM02  
Problem List 5 GMPLDUP2  GMPLNTFT  GMPLNTRT  GMPLPRNT  GMPLSAVE  
Toolkit 5 AWCMCPR1  AWCMCPR4  AWCMCPST  AWCMFTP  AWCMFTP1  
Capacity Management - RUM 4 KMPRBD01  KMPRBD02  KMPRP1  KMPRPN03  
Nursing Service 4 NURARFBU  NURQUTL3  NURSAFLL  NURSALED  
General Medical Record - Vitals 3 GMVRPCP  GMVRPCU  GMVVDEF1  
Inpatient Medications 3 PSGMMAR2  PSJHLU  PSJIPST  
Patient Registration MPI 3 AGMPIHL1  AGMPIHLO  AGMPIPID  
IHS Changes To Scheduling 2 BSDCCR0  BSDCCR1  
IHS Mods To Text Integration Utilities 2 BTIULO16  BTIULO18  
Controlled Substances 1 PSDNMKY  
Dietetics 1 FH  
GUI Objects 1 BGOVEYE1  
HealtheVet Desktop 1 XHDLSITE  
IHS Changes To Lab 1 BLR138PO  
IHS Changes To Pharmacy 1 APSPFNC6  
IHS Omnicell Pyxis Interface 1 BOPOBS  
Scriptpro Interface 1 APSSLIC  
Surgery 1 SROESPR  

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

    External References

    Name Field # of Occurrence
    $$GET1^DIQ SITE+12, SITE+14

    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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DIC(4 - [#4] GET1^DIQ
    ^DG(40.8 - [#40.8] GET1^DIQ
    ^AUTTLOC - [#9999999.06] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD("SITE" SITE+11
    ^DG(40.8 - [#40.8] SITE+9, SITE+11, SITE+23, PRIM+4
    ^DIC(4 - [#4] SITE+23
    ^VA(389.9 - [#389.9] SITE+21, ALL+9, CHK+3, CHK+4, CHK+5, YN+1, YN+2, YN+3, PRIM+7, NAME+4

    Label References

    Name Line Occurrences
    $$IVDATE SITE+21, ALL+9, PRIM+7, NAME+4
    $$PRIM SITE+19
    CHKQ CHK+3, CHK+4, CHK+5

    Naked Globals

    Name Field # of Occurrence
    ^( SITE+21, ALL+9, PRIM+7, 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+18*, SITE+19, SITE+20, SITE+21, ALL~, ALL+6*, ALL+9, IVDATE~, IVDATE+1
    , PRIM~, PRIM+6*, PRIM+7, NAME~, NAME+3*, NAME+4
    DIV SITE~, SITE+9*, SITE+11*, SITE+12, SITE+19*, SITE+20, SITE+21, SITE+23, ALL+5~, ALL+9*
    DT SITE+18, ALL+6, PRIM+6, NAME+3
    DUZ(2 SITE+9, PRIM+4
    PRIM SITE+17~, SITE+21*, SITE+22, ALL+5~, ALL+9*, PRIM+5~, PRIM+7*, PRIM+8
    SITE SITE+17~, SITE+22*, SITE+23*, SITE+24
    U SITE+14
    >> VASITE ALL+7*, ALL+9*, ALL+10
    >> VASITE( ALL+9*
    X SITE+12~*, SITE+14, CHK+3!, CHK+4!, CHK+5!, YN+1!, YN+2!, YN+3!, YN+4*, YN+5!
    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 |  Naked Globals |  Local Variables |  All