STANDARD DATA DICTIONARY #4 -- INSTITUTION FILE                                                                   3/24/25    PAGE 1
STORED IN ^DIC(4,  (4102 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                       (VERSION 8.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains a listing of VA institutions.  It is cross-referenced by name and station number.  The Number field is no longer
meaningful (it had previously referenced the station number).  


FILE SCREEN (SCR-node) : I $$SCN^XUMF333(+Y,$G(XUMF))

   APPLICATION GROUP(S): XU, QAP
IDENTIFIED BY: 
         "W1": D EN^DDIOL($P($G(^DIC(5,+$P($G(^(0)),U,2),0)),U,2),,"?31")
         "W2": D EN^DDIOL($P($G(^DIC(4.1,+$G(^DIC(4,+Y,3)),0)),U),,"?35")
         "W3": D EN^DDIOL($P($G(^DIC(4,+Y,99)),U),,"?45")
         "W4": D:$P($G(^DIC(4,+Y,99)),U,4) EN^DDIOL("INACTIVE "_$$FMTE^XLFDT($$IDT^XUAF4(+Y),"D"),,"?54")

POINTED TO BY: RESIDENTIAL ADDR CHANGE SITE field (#.11581) of the PATIENT File (#2) 
               ADDRESS CHANGE SITE field (#.12) of the PATIENT File (#2) 
               TEMPORARY ADDRESS CHANGE SITE field (#.12114) of the PATIENT File (#2) 
               CELLULAR NUMBER CHANGE SITE field (#.13111) of the PATIENT File (#2) 
               PAGER NUMBER CHANGE SITE field (#.1314) of the PATIENT File (#2) 
               RESIDENCE NUMBER CHANGE SITE field (#.1323) of the PATIENT File (#2) 
               EMAIL ADDRESS CHANGE SITE field (#.138) of the PATIENT File (#2) 
               CONFIDENTIAL ADDR CHANGE SITE field (#.14113) of the PATIENT File (#2) 
               INSTITUTION (VA) field (#.2911) of the PATIENT File (#2) 
               CLAIM FOLDER LOCATION field (#.314) of the PATIENT File (#2) 
               USER ENROLLEE SITE field (#.3618) of the PATIENT File (#2) 
               FACILITY MAKING DETERMINATION field (#.393) of the PATIENT File (#2) 
               PH DIVISION field (#.535) of the PATIENT File (#2) 
               PREFERRED FACILITY field (#27.02) of the PATIENT File (#2) 
               COORDINATING MASTER OF RECORD field (#991.03) of the PATIENT File (#2) 
               MOST RECENT LOCATION OF CARE field (#1010.152) of the PATIENT File (#2) 
               2ND MOST RECENT LOCATION field (#1010.154) of the PATIENT File (#2) 
               CMOR field (#2) of the ICN HISTORY sub-field (#2.0992) of the PATIENT File (#2) 
               ASSIGNED ENTERED SITE field (#3) of the CURRENT HEALTH BENEFIT PLAN sub-field (#2.2511) of the PATIENT File (#2) 
               HISTORY ENTERED SITE field (#3) of the HISTORY HEALTH BENEFIT PLAN sub-field (#2.2512) of the PATIENT File (#2) 
               ENTERED BY SITE field (#.06) of the SERVICE [OEF OR OIF] sub-field (#2.3215) of the PATIENT File (#2) 
               FACILITY MAKING DETERMINATION field (#.393) of the CD HISTORY DATE sub-field (#2.399) of the PATIENT File (#2) 
               DIVISION field (#17) of the SIGN-ON LOG File (#3.081) 
               REPORTING STATION field (#96) of the INSTITUTION File (#4) 
               PARENT OF ASSOCIATION field (#1) of the ASSOCIATIONS sub-field (#4.014) of the INSTITUTION File (#4) 
               DEFAULT INSTITUTION field (#217) of the MAILMAN SITE PARAMETERS File (#4.3) 
               REALIGNED TO field (#.05) of the HISTORY sub-field (#4.999) of the INSTITUTION File (#4) 
               REALIGNED FROM field (#.06) of the HISTORY sub-field (#4.999) of the INSTITUTION File (#4) 
               OWNER SITE field (#.04) of the PRF ASSIGNMENT File (#26.13) 
               ORIGINATING SITE field (#.05) of the PRF ASSIGNMENT File (#26.13) 
               CREATE SITE field (#.04) of the DBRS NUMBER sub-field (#26.131) of the PRF ASSIGNMENT File (#26.13) 
               CREATED BY SITE field (#.09) of the PRF ASSIGNMENT HISTORY File (#26.14) 
               CREATE SITE field (#.05) of the DBRS NUMBER sub-field (#26.142) of the PRF ASSIGNMENT HISTORY File (#26.14) 
               SITE TRANSMITTED TO field (#.05) of the PRF HL7 TRANSMISSION LOG File (#26.17) 
               SITE TRANSMITTED TO field (#.05) of the PRF HL7 QUERY LOG File (#26.19) 
               SENDING FACILITY field (#.1) of the PRF HL7 REQUEST LOG File (#26.22) 
               FACILITY RECEIVED field (#.06) of the PATIENT ENROLLMENT File (#27.11) 
               SITE VERIFYING DOCUMENTATION field (#1.04) of the NOSE AND THROAT RADIUM HISTORY File (#28.11) 
               SITE VERIFYING DX field (#2.04) of the NOSE AND THROAT RADIUM HISTORY File (#28.11) 
               SITE DETERMINING STATUS field (#6) of the MST HISTORY File (#29.11) 
               PENDING AUTH REQUEST FACILITY field (#.06) of the OTH ELIGIBILITY PATIENT File (#33) 
               FACILITY field (#.05) of the ELIGIBILITY CHANGES sub-field (#33.02) of the OTH ELIGIBILITY PATIENT File (#33) 
               FACILITY field (#.07) of the ELIGIBILITY CHANGES sub-field (#33.02) of the OTH ELIGIBILITY PATIENT File (#33) 
               DENIED AUTH FACILITY field (#.06) of the DENIED REQUEST sub-field (#33.03) of the OTH ELIGIBILITY PATIENT File (#33) 
               FACILITY field (#.08) of the OTH 90 DAY CLOCK sub-field (#33.11) of the OTH 365 DAY CLOCK sub-field (#33.01) of the 
                   OTH ELIGIBILITY PATIENT File (#33) 
               INSTITUTION FILE POINTER field (#.07) of the MEDICAL CENTER DIVISION File (#40.8) 
               INSTITUTION field (#3) of the HOSPITAL LOCATION File (#44) 
               ADMITTING INSTITUTION field (#.1) of the PTF TRANSACTION REQUEST LOG File (#45.87) 
               SITE field (#.08) of the DG VAS QUEUE File (#46.3) 
               SITE NUMBER field (#.04) of the REMOTE PRESCRIPTION LOG File (#52.09) 
               RELATED INSTITUTION field (#100) of the PENDING OUTPATIENT ORDERS File (#52.41) 
               INSTITUTION field (#.06) of the ERX HOLDING QUEUE File (#52.49) 
               TRANSFERRED TO VA PHARMACY field (#17.3) of the ERX HOLDING QUEUE File (#52.49) 
               RELATED INSTITUTION field (#24.1) of the ERX HOLDING QUEUE File (#52.49) 
               INSTITUTION field (#7) of the TPB ELIGIBILITY File (#52.91) 
               INSTITUTION field (#.01) of the TPB INSTITUTION LETTERS File (#52.92) 
               INSTITUTION field (#.03) of the BCMA IV PARAMETERS File (#53.66) 
               DIVISION field (#.04) of the BCMA MISSING DOSE REQUEST File (#53.68) 
               DIVISION field (#.04) of the BCMA REPORT REQUEST File (#53.69) 
               PATIENT DIVISION field (#.03) of the BCMA MEDICATION LOG File (#53.79) 
               DIVISION field (#8) of the PADE INBOUND TRANSACTIONS File (#58.6) 
               RELATED INSTITUTION field (#100) of the OUTPATIENT SITE File (#59) 
               NPI INSTITUTION field (#101) of the OUTPATIENT SITE File (#59) 
               CPRS ORDERING INSTITUTION field (#.01) of the CPRS ORDERING INSTITUTION sub-field (#59.08) of the OUTPATIENT SITE 
                   File (#59) 
               *RELATED INSTITUTION field (#1) of the INPATIENT SITE File (#59.4) 
               INSTITUTION field (#.01) of the ACCESSION AREA sub-field (#60.11) of the LABORATORY TEST File (#60) 
               INSTITUTION EXTRA LABELS field (#.01) of the INSTITUTION EXTRA LABELS sub-field (#60.15) of the LABORATORY TEST File 
                   (#60) 
               COLLECTING FACILITY field (#.02) of the LAB SHIPPING CONFIGURATION File (#62.9) 
               HOST FACILITY field (#.03) of the LAB SHIPPING CONFIGURATION File (#62.9) 
               HOST FACILITY'S SYSTEM field (#.031) of the LAB SHIPPING CONFIGURATION File (#62.9) 
               COLLECTING FACILITY'S SYSTEM field (#.06) of the LAB SHIPPING CONFIGURATION File (#62.9) 
               DIVISION field (#.025) of the TEST/PROFILE sub-field (#62.9001) of the LAB SHIPPING CONFIGURATION File (#62.9) 
               RELEASING SITE field (#14.91) of the LAB DATA File (#63) 
               INSTITUTION field (#.02) of the PRODUCING LABORATORY sub-field (#63.00012) of the LAB DATA File (#63) 
               FILE REFERENCE field (#.03) of the EXTERNAL PACKAGE REFERENCE sub-field (#63.00013) of the LAB DATA File (#63) 
               ORDERING SITE field (#.32) of the EM sub-field (#63.02) of the LAB DATA File (#63) 
               COLLECTING SITE field (#.33) of the EM sub-field (#63.02) of the LAB DATA File (#63) 
               RELEASING SITE field (#.345) of the EM sub-field (#63.02) of the LAB DATA File (#63) 
               REQUESTING LOC/DIV field (#.111) of the CHEM, HEM, TOX, RIA, SER, etc. sub-field (#63.04) of the LAB DATA File (#63) 
               ACCESSIONING INSTITUTION field (#.112) of the CHEM, HEM, TOX, RIA, SER, etc. sub-field (#63.04) of the LAB DATA File 
                   (#63) 
               ORDERING SITE field (#.32) of the CHEM, HEM, TOX, RIA, SER, etc. sub-field (#63.04) of the LAB DATA File (#63) 
               COLLECTING SITE field (#.33) of the CHEM, HEM, TOX, RIA, SER, etc. sub-field (#63.04) of the LAB DATA File (#63) 
               RELEASING SITE field (#.345) of the CHEM, HEM, TOX, RIA, SER, etc. sub-field (#63.04) of the LAB DATA File (#63) 
               REQUESTING LOC/DIV field (#.111) of the MICROBIOLOGY sub-field (#63.05) of the LAB DATA File (#63) 
               ACCESSIONING INSTITUTION field (#.112) of the MICROBIOLOGY sub-field (#63.05) of the LAB DATA File (#63) 
               ORDERING SITE field (#.32) of the MICROBIOLOGY sub-field (#63.05) of the LAB DATA File (#63) 
               COLLECTING SITE field (#.33) of the MICROBIOLOGY sub-field (#63.05) of the LAB DATA File (#63) 
               RELEASING SITE field (#.345) of the MICROBIOLOGY sub-field (#63.05) of the LAB DATA File (#63) 
               ORDERING SITE field (#.32) of the SURGICAL PATHOLOGY sub-field (#63.08) of the LAB DATA File (#63) 
               COLLECTING SITE field (#.33) of the SURGICAL PATHOLOGY sub-field (#63.08) of the LAB DATA File (#63) 
               RELEASING SITE field (#.345) of the SURGICAL PATHOLOGY sub-field (#63.08) of the LAB DATA File (#63) 
               ORDERING SITE field (#.32) of the CYTOPATHOLOGY sub-field (#63.09) of the LAB DATA File (#63) 
               COLLECTING SITE field (#.33) of the CYTOPATHOLOGY sub-field (#63.09) of the LAB DATA File (#63) 
               RELEASING SITE field (#.345) of the CYTOPATHOLOGY sub-field (#63.09) of the LAB DATA File (#63) 
               FACILITY field (#7) of the MICROBIOLOGY AUDIT sub-field (#63.539) of the MICROBIOLOGY sub-field (#63.05) of the LAB 
                   DATA File (#63) 
               REPORTING SITE field (#4) of the WKLD LOG FILE File (#64.03) 
               INSTITUTION field (#.01) of the INSTITUTION sub-field (#64.06) of the NON WKLD PROCEDURES File (#64.05) 
               INSTITUTION field (#.01) of the WKLD DATA File (#64.1) 
               DIVISION field (#.16) of the BLOOD INVENTORY File (#65) 
               INSTITUTION field (#.03) of the COMPLETE DATE/TIME sub-field (#65.31) of the TEST/PROCEDURE sub-field (#65.3) of the 
                   BLOOD INVENTORY File (#65) 
               ASSOCIATED DIVISION field (#.01) of the ASSOCIATED DIVISION sub-field (#66.1) of the BLOOD PRODUCT File (#66) 
               INSTITUTION POINTER field (#.01) of the LAB MLTF MANAGED ITEMS File (#66.4) 
               PRIMARY INSTITUTION field (#.01) of the LAB MONTHLY WORKLOADS File (#67.9) 
               DIVISION field (#.01) of the DIVISION sub-field (#67.901) of the LAB MONTHLY WORKLOADS File (#67.9) 
               ORDERING SITE field (#16.1) of the ACCESSION NUMBER sub-field (#68.02) of the DATE sub-field (#68.01) of the 
                   ACCESSION File (#68) 
               COLLECTING SITE field (#16.2) of the ACCESSION NUMBER sub-field (#68.02) of the DATE sub-field (#68.01) of the 
                   ACCESSION File (#68) 
               DIV field (#26) of the ACCESSION NUMBER sub-field (#68.02) of the DATE sub-field (#68.01) of the ACCESSION File 
                   (#68) 
               ASSOCIATED DIVISION field (#.01) of the ASSOCIATED DIVISION sub-field (#68.03) of the ACCESSION File (#68) 
               INSTITUTION field (#3) of the WKLD CODE sub-field (#68.14) of the TESTS sub-field (#68.04) of the ACCESSION NUMBER 
                   sub-field (#68.02) of the DATE sub-field (#68.01) of the ACCESSION File (#68) 
               DEFAULT REFERENCE LABORATORY field (#2.3) of the PROFILE sub-field (#68.23) of the LOAD/WORK LIST File (#68.2) 
               INSTITUTION field (#25) of the SPECIMEN # sub-field (#69.01) of the LAB ORDER ENTRY File (#69) 
               ORDERING SITE field (#14) of the TEST sub-field (#69.03) of the SPECIMEN # sub-field (#69.01) of the LAB ORDER ENTRY 
                   File (#69) 
               COLLECTING SITE field (#15) of the TEST sub-field (#69.03) of the SPECIMEN # sub-field (#69.01) of the LAB ORDER 
                   ENTRY File (#69) 
               ORDERING SITE field (#1) of the LAB PENDING ORDERS ENTRY File (#69.6) 
               COLLECTING SITE field (#2) of the LAB PENDING ORDERS ENTRY File (#69.6) 
               PERFORMING LABORATORY field (#.02) of the AP INFO sub-field (#69.6063) of the LAB PENDING ORDERS ENTRY File (#69.6) 
               DEFAULT INSTITUTION field (#3) of the LABORATORY SITE File (#69.9) 
               DIVISION field (#3) of the PHLEBOTOMY ORDER CUT-OFF TIME sub-field (#69.9001) of the LABORATORY SITE File (#69.9) 
               IMMED COLLECTION DIV. field (#.01) of the IMMED LAB COLLECT DIV. sub-field (#69.9006) of the LABORATORY SITE File 
                   (#69.9) 
               PRINTER DIVISION field (#.01) of the PRINTER DIVISION sub-field (#69.9007) of the LABORATORY SITE File (#69.9) 
               DIVISION PARAMETERS field (#.01) of the DIVISION PARAMETERS sub-field (#69.9618) of the LABORATORY SITE File (#69.9) 
               BLOOD BANK DIVISION field (#.01) of the BLOOD BANK INSTITUTION sub-field (#69.981) of the LABORATORY SITE File 
                   (#69.9) 
               DIVISION field (#.01) of the RAD/NUC MED DIVISION File (#79) 
               INSTITUTION field (#2) of the LAB MAPPING TRANSPORT File (#95.4) 
               REMOTE LOCATION field (#2) of the GROUP TWO PHARMACY ORDERS sub-field (#100.11) of the ORDER CHECK INSTANCES File 
                   (#100.05) 
               DIVISION field (#3) of the OE/RR RELEASE EVENTS File (#100.5) 
               REMOTE LOCATION field (#7) of the DRUG ALLERGIES sub-field (#100.517) of the ORDER CHECK INSTANCES File (#100.05) 
               DIVISION field (#3) of the OE/RR AUTO-DC RULES File (#100.6) 
               FROM DIVISION field (#.01) of the INCLUDED DIVISIONS sub-field (#100.66) of the OE/RR AUTO-DC RULES File (#100.6) 
               SITE NAME field (#.01) of the OE/RR EPCS PARAMETERS File (#100.7) 
               DIVISION field (#.01) of the DIVISION sub-field (#120.846) of the GMR ALLERGY SITE PARAMETERS File (#120.84) 
               ORDERING FACILITY field (#.05) of the REQUEST/CONSULTATION File (#123) 
               ROUTING FACILITY field (#.07) of the REQUEST/CONSULTATION File (#123) 
               CERNER FACILITY SENDING field (#.33) of the REQUEST PROCESSING ACTIVITY sub-field (#123.02) of the 
                   REQUEST/CONSULTATION File (#123) 
               RESULTING SITE field (#.03) of the REMOTE RESULTS sub-field (#123.051) of the REQUEST/CONSULTATION File (#123) 
               IFC ROUTING SITE field (#126) of the GMRC PROCEDURE File (#123.3) 
               IFC SENDING FACILITY field (#.01) of the IFC SENDING FACILITY sub-field (#123.3128) of the GMRC PROCEDURE File 
                   (#123.3) 
               IFC ROUTING SITE field (#132) of the REQUEST SERVICES File (#123.5) 
               IFC SENDING FACILITY field (#.01) of the IFC SENDING FACILITY sub-field (#123.5134) of the REQUEST SERVICES File 
                   (#123.5) 
               FACILITY field (#.02) of the IFC MESSAGE LOG File (#123.6) 
               SITE NAME field (#.01) of the CONSULTS PARAMETERS FILE File (#123.9) 
               DIVISION field (#50) of the SURGERY File (#130) 
               SITE field (#.01) of the SURGERY SITE PARAMETERS File (#133) 
               DIVISION field (#63) of the SURGERY TRANSPLANT ASSESSMENTS File (#139.5) 
               HOSPITAL field (#1) of the DOCUMENT sub-field (#160.05) of the ONCOLOGY PATIENT File (#160) 
               DIVISION field (#3) of the SUSPENSE sub-field (#160.075) of the ONCOLOGY PATIENT File (#160) 
               DIVISION field (#6) of the ONCOLOGY SITE PARAMETERS File (#160.1) 
               AFFILIATED DIVISION field (#.01) of the AFFILIATED DIVISION sub-field (#160.22) of the ONCOLOGY SITE PARAMETERS File 
                   (#160.1) 
               PRIMARY SERVICE AREA field (#101) of the AUTHORIZATION sub-field (#161.01) of the FEE BASIS PATIENT File (#161) 
               PSA DEFAULT INSTITUTION field (#27) of the FEE BASIS SITE PARAMETERS File (#161.4) 
               PRIMARY SERVICE FACILITY field (#26) of the SERVICE PROVIDED sub-field (#162.03) of the INITIAL TREATMENT DATE 
                   sub-field (#162.02) of the VENDOR sub-field (#162.01) of the FEE BASIS PAYMENT File (#162) 
               PRIMARY SERVICE FACILITY field (#25) of the PRESCRIPTION NUMBER sub-field (#162.11) of the FEE BASIS PHARMACY 
                   INVOICE File (#162.1) 
               PRIMARY SERVICE FACILITY field (#23) of the FEE BASIS INVOICE File (#162.5) 
               PRIMARY SERVICE FACILITY field (#6) of the FEE BASIS UNAUTHORIZED CLAIMS File (#162.7) 
               VA HOSPITAL # field (#99) of the ONCOLOGY CONTACT File (#165) 
               DIVISION field (#2000) of the ONCOLOGY PRIMARY File (#165.5) 
               NAME field (#.01) of the CRHD HANDOFF PARAMETERS File (#183) 
               INSTITUTION OF REQUESTOR field (#12) of the REQUESTED RECORDS File (#190.1) 
               INSTITUTION OF BORROWER field (#12) of the PULL LIST File (#194.2) 
               INSTITUTION field (#.01) of the INSTITUTION sub-field (#195.12) of the RECORD TRACKING APPLICATION File (#195.1) 
               NAME field (#.01) of the BORROWERS/FILE AREAS File (#195.9) 
               VHA TRAINING FACILITY field (#12.4) of the NEW PERSON File (#200) 
               DIVISION field (#.01) of the DIVISION sub-field (#200.02) of the NEW PERSON File (#200) 
               FACILITY field (#.01) of the NURS AMIS 1106B FTEE File (#213.2) 
               INSTITUTION field (#.02) of the ED LOG File (#230) 
               INSTITUTION field (#.02) of the TRACKING BOARD File (#231.6) 
               INSTITUTION field (#.02) of the TRACKING STAFF File (#231.7) 
               INSTITUTION field (#.02) of the TRACKING ROOM-BED File (#231.8) 
               INSTITUTION field (#.02) of the TRACKING AREA File (#231.9) 
               INSTITUTION field (#.02) of the EDP WORKSHEET SPECIFICATION File (#232.6) 
               ADDRESS CHANGE SITE field (#3.5) of the IVM ADDRESS CHANGE LOG File (#301.7) 
               PRIOR ADDRESS CHANGE SITE field (#6) of the IVM ADDRESS CHANGE LOG File (#301.7) 
               DEBTOR field (#.01) of the AR DEBTOR File (#340) 
               SITE field (#.09) of the AR EVENT File (#341) 
               SITE field (#.01) of the AR SITE PARAMETER File (#342) 
               TRANSFERRED TO SITE field (#.11) of the ERA DETAIL sub-field (#344.41) of the ELECTRONIC REMITTANCE ADVICE File 
                   (#344.4) 
               SITE field (#.01) of the RCDPE PARAMETER File (#344.61) 
               INSTITUTION field (#.13) of the INTEGRATED BILLING ACTION File (#350) 
               FACILITY NAME field (#.02) of the IB SITE PARAMETERS File (#350.9) 
               PATIENT OR FACILITY field (#10.01) of the IB SITE PARAMETERS File (#350.9) 
               FACILITY field (#.01) of the PAY-TO PROVIDERS sub-field (#350.9004) of the IB SITE PARAMETERS File (#350.9) 
               TC FACILITY field (#.01) of the TRICARE PAY-TO PROVIDERS sub-field (#350.929) of the IB SITE PARAMETERS File 
                   (#350.9) 
               FACILITY NUMBER field (#10) of the QUERY REFERENCE NUMBER sub-field (#351.31) of the MEANS TEST BILLING CLOCK VERIFY 
                   File (#351.3) 
               PREFERRED FACILITY field (#.03) of the TRANSFER PRICING PATIENT File (#351.6) 
               LAST AUTHORIZING FACILITY field (#.09) of the TRANSFER PRICING PATIENT File (#351.6) 
               OVERRIDDEN FACILITY field (#.1) of the TRANSFER PRICING PATIENT File (#351.6) 
               PREFERRED FACILITY field (#.11) of the TRANSFER PRICING TRANSACTIONS File (#351.61) 
               SITE field (#.02) of the IB UC VISIT TRACKING File (#351.82) 
               EXCEPTION SITE field (#3.03) of the IB UC VISIT TRACKING File (#351.82) 
               PULL REQ field (#.01) of the PULL REQ sub-field (#351.821) of the IB UC VISIT TRACKING File (#351.82) 
               SITE field (#.02) of the IB MH VISIT TRACKING File (#351.83) 
               EXCEPTION SITE field (#3.03) of the IB MH VISIT TRACKING File (#351.83) 
               INSTITUTION field (#.13) of the IB COPAY TRANSACTIONS File (#354.71) 
               TRANSMISSION FACILITY field (#.01) of the TRANSMISSION RECORD sub-field (#354.711) of the IB COPAY TRANSACTIONS File 
                   (#354.71) 
               REMOTE LOCATION field (#.14) of the INSURANCE VERIFICATION PROCESSOR File (#355.33) 
               PROVIDER field (#.03) of the PATIENT EVENT PROVIDER sub-field (#356.2213) of the HCS REVIEW TRANSMISSION File 
                   (#356.22) 
               PROVIDER field (#.03) of the SERVICE PROVIDER sub-field (#356.22168) of the SERVICE LINE sub-field (#356.2216) of 
                   the HCS REVIEW TRANSMISSION File (#356.22) 
               INSTITUTION field (#.01) of the INSTITUTION sub-field (#363.3121) of the BILLING REGION File (#363.31) 
               DESTINATION VAMC field (#.01) of the DESTINATION VAMC sub-field (#365.191) of the INTERFACILITY INSURANCE UPDATE 
                   File (#365.19) 
               ORIGINATING VAMC field (#.01) of the ORIGINATING VAMC sub-field (#365.192) of the INTERFACILITY INSURANCE UPDATE 
                   File (#365.19) 
               SITE field (#.01) of the PFSS SITE PARAMETERS File (#372) 
               OTHER INSTITUTION field (#.07) of the STATION NUMBER (TIME SENSITIVE) File (#389.9) 
               VENDOR field (#2) of the HOME TELEHEALTH PATIENT File (#391.31) 
               INSTITUTION field (#.02) of the TREATING FACILITY LIST File (#391.91) 
               INSTITUTION field (#.01) of the EHRM MIGRATED FACILITIES File (#391.919) 
               INSTITUTION field (#.02) of the NEW PERSON TREATING FACILITY LIST File (#391.92) 
               STATION NUMBER field (#4) of the *PDX PARAMETER File (#394.2) 
               WORK GROUP field (#.01) of the WORK GROUP sub-field (#394.26) of the *PDX PARAMETER File (#394.2) 
               Facility field (#.01) of the VAQ - PARAMETER File (#394.81) 
               Remote Facility field (#.01) of the VAQ - RELEASE GROUP File (#394.82) 
               Remote Facility field (#.01) of the Remote Facility sub-field (#394.831) of the VAQ - OUTGOING GROUP File (#394.83) 
               REGIONAL OFFICES ALLOWED field (#.01) of the REGIONAL OFFICES ALLOWED sub-field (#396.12) of the AMIE SITE PARAMETER 
                   File (#396.1) 
               INSTITUTION LIST APPLIES TO field (#3) of the CUSTOM EXAM LISTS sub-field (#396.151) of the CAPRI DIVISION EXAM LIST 
                   File (#396.15) 
               REGIONAL OFFICE NUMBER field (#2) of the 2507 REQUEST File (#396.3) 
               REGIONAL OFFICE field (#3) of the FORM 28-8861 File (#396.9) 
               RESPONSIBLE INSTITUTION field (#111) of the BILL/CLAIMS File (#399) 
               INSTITUTION field (#.07) of the TEAM File (#404.51) 
               INSTITUTION field (#.01) of the ADDITIONAL HEADER TEXT sub-field (#404.9102) of the SCHEDULING PARAMETER File 
                   (#404.91) 
               SELECTIONS field (#.01) of the SELECTIONS sub-field (#404.9503) of the SCHEDULING REPORT QUERY TEMPLATE File 
                   (#404.95) 
               TRANSFER FACILITY field (#.05) of the PATIENT MOVEMENT File (#405) 
               INSTITUTION field (#3) of the DISCRETIONARY WORKLOAD File (#408) 
               INSTITUTION field (#2) of the SD WAIT LIST File (#409.3) 
               APPT INSTITUTION field (#13.3) of the SD WAIT LIST File (#409.3) 
               INSTITUTION field (#.01) of the INSTITUTION sub-field (#409.311) of the SD WL SERVICE/SPECIALTY File (#409.31) 
               INSTITUTION field (#.02) of the SD WL CLINIC LOCATION File (#409.32) 
               INSTITUTION field (#2) of the SDEC APPT REQUEST File (#409.85) 
               APPT INSTITUTION field (#13.3) of the SDEC APPT REQUEST File (#409.85) 
               INSTITUTION NAME field (#.1) of the ADMIN. ACTIVITY SITE PARAMETER File (#411) 
               SITE field (#12) of the ACCOUNTS RECEIVABLE File (#430) 
               DIVISION field (#.01) of the RELEASE HISTORY sub-field (#451.06) of the POC DAILY TIME RECORDS File (#451) 
               NURSE DIVISION field (#4) of the VA NURSE sub-field (#451.09) of the POC DAILY TIME RECORDS File (#451) 
               NURSE INSTITUTION field (#1) of the POC DAILY ACTIVITY EXTRACTION File (#451.7) 
               MEDICAL CENTER DIVISION field (#20.5) of the T&L UNIT File (#455.5) 
               INSTITUTION field (#.01) of the PAID PARAMETERS File (#456) 
               REGIONAL OFFICE field (#8) of the PATIENT FUNDS File (#470) 
               STATION NAME field (#73) of the PATIENT FUNDS File (#470) 
               FACILITY field (#.01) of the CMOP NATIONAL SITE File (#552) 
               SITE NAME field (#.01) of the ASI PARAMETERS File (#604.8) 
               HOSPITAL NUMBER field (#4) of the HBHC SYSTEM PARAMETERS File (#631.9) 
               STATION field (#8) of the RECORD OF PROS APPLIANCE/REPAIR File (#660) 
               SUSPENSE STATION field (#8.11) of the RECORD OF PROS APPLIANCE/REPAIR File (#660) 
               REQUESTING STATION field (#40) of the RECORD OF PROS APPLIANCE/REPAIR File (#660) 
               RECEIVING STATION field (#70) of the RECORD OF PROS APPLIANCE/REPAIR File (#660) 
               STATION field (#14) of the PROS RETURNED/CONDEMNED File (#660.1) 
               STATION field (#14) of the PROSTHETICS RE-ISSUE ITEM File (#660.2) 
               STATION field (#3) of the PROSTHETICS HCPCS ITEM MASTER FILE File (#661.11) 
               STATION field (#16) of the PROS STOCK ITEM RECORD File (#661.2) 
               STATION field (#.05) of the PROS ITEM LOCATION File (#661.3) 
               STATION field (#3) of the HCPCS INVENTORY File (#661.4) 
               STATION field (#2) of the HCPCS INVENTORY ORDER AND REORDER File (#661.41) 
               STATION field (#2) of the PROSTHETIC STOCK LOCATION File (#661.5) 
               STATION field (#13) of the PROSTHETIC INVENTORY TRANSACTION File (#661.6) 
               STATION field (#7) of the PROSTHETIC TRANSACTION PATIENT ISSUE File (#661.63) 
               STATION field (#4) of the PROSTHETIC CURRENT STOCK File (#661.7) 
               STATION field (#4) of the PROSTHETICS HCPCS RUNNING BALANCE File (#661.9) 
               REFERRING STATION field (#4) of the PROSTHETIC APPOINTMENT WORKSHEET File (#663.4) 
               STATION NAME field (#18) of the PROSTHETICS 1358 File (#664) 
               STATION field (#.03) of the PROSTHETIC 2529-3 File (#664.1) 
               REQUESTING STATION field (#.04) of the PROSTHETIC 2529-3 File (#664.1) 
               RECEIVING STATION field (#.11) of the PROSTHETIC 2529-3 File (#664.1) 
               STATION field (#1.5) of the PROSTHETIC WORK ORDER File (#664.2) 
               REFERRAL STATION field (#6) of the PROSTHETIC WORK ORDER File (#664.2) 
               STATION field (#2) of the PROSTHETIC LAB HOURS DATE File (#664.3) 
               ORDERING STATION field (#2) of the PROS LABORATORY/RESTORATIONS WORKSHEET File (#664.4) 
               AMIS STATION field (#14) of the PROS LABORATORY/RESTORATIONS WORKSHEET File (#664.4) 
               STATION field (#2) of the PROSTHETICS PATIENT File (#665) 
               PATIENT NAME/INSTITUTION field (#1) of the PROSTHETIC HOME/LIAISON VISITS File (#665.1) 
               STATION field (#6) of the PROSTHETIC HOME/LIAISON VISITS File (#665.1) 
               STATION field (#6) of the PROS LETTER TRANSACTION FILE File (#665.4) 
               STATION NAME field (#11) of the VEHICLE OF RECORD File (#667) 
               STATION NAME field (#12) of the V.O.R. TRANSACTION File (#667.3) 
               STATION field (#2) of the PROSTHETIC SUSPENSE File (#668) 
               REQUESTING FACILITY field (#2.1) of the PROSTHETIC SUSPENSE File (#668) 
               STATION field (#1) of the PROSTHETICS SITE PARAMETERS File (#669.9) 
               HOSPITAL OF SURGERY field (#2) of the CARDIAC SURGERY RISK ASSESSMENT File (#694.5) 
               HOSP WHERE IMPLANT OCCURRED field (#7) of the GENERATOR IMPLANT File (#698) 
               LOCATION field (#.01) of the *ADDITIONAL PRINT LOCATIONS sub-field (#713.025) of the EAS MT PARAMETERS File (#713) 
               LOCATION field (#.01) of the PREFERRED LOCATION sub-field (#713.34) of the EAS MT LETTERS File (#713.3) 
               LOCATION field (#3) of the EVENT CAPTURE PATIENT File (#721) 
               DIVISION field (#15) of the DSS EXTRACT LOG File (#727) 
               NAME field (#.01) of the DSS EXTRACTS File (#728) 
               DIVISION field (#.01) of the LAST DATE PROSTHETICS sub-field (#728.059) of the DSS EXTRACTS File (#728) 
               PROVIDER STATION field (#14) of the CLINICS AND STOP CODES File (#728.44) 
               ASSIGNED DIVISION field (#1) of the DSS NUTRITION DIVISION WORKSHEET File (#728.46) 
               NAME field (#.01) of the QUALITY ASSURANCE SITE PARAMETERS File (#740) 
               PAT REP HOSPITAL DIVISION field (#.01) of the PAT REP HOSPITAL DIVISION sub-field (#740.03) of the QUALITY ASSURANCE 
                   SITE PARAMETERS File (#740) 
               IR HOSPITAL DIVISION field (#.01) of the IR HOSPITAL DIVISION sub-field (#740.0752) of the QUALITY ASSURANCE SITE 
                   PARAMETERS File (#740) 
               SITE field (#.03) of the HL7 MONITOR EVENT File (#776.4) 
               SITES field (#.01) of the SITES sub-field (#776.51) of the HL7 MONITOR EVENTS PROFILE File (#776.5) 
               FACILITY NAME field (#.01) of the FUNCTIONAL INDEPENDENCE MEASUREMENT PARAMETER File (#783.9) 
               STATION field (#2) of the EEO COMPLAINTS File (#785) 
               STATION field (#2) of the EEO INFORMAL COMPLAINTS File (#785.5) 
               BREAST TX FACILITY field (#.25) of the WV PATIENT File (#790) 
               CERVICAL TX FACILITY field (#.26) of the WV PATIENT File (#790) 
               SITE/FACILITY NAME field (#.01) of the WV SITE PARAMETER File (#790.02) 
               HEALTH CARE FACILITY field (#.1) of the WV LAB TESTS File (#790.08) 
               FACILITY WHERE ACESSIONED field (#.34) of the WV LAB TESTS File (#790.08) 
               HEALTH CARE FACILITY field (#.1) of the WV PROCEDURE File (#790.1) 
               FACILITY WHERE ACCESSIONED field (#.34) of the WV PROCEDURE File (#790.1) 
               FACILITY field (#.07) of the WV NOTIFICATION File (#790.4) 
               Facility field (#.02) of the WV SNAPSHOT REPORTS File (#790.71) 
               LOCATION field (#2) of the SELECTION RULE sub-field (#798.01) of the ROR REGISTRY RECORD File (#798) 
               STATION field (#.04) of the ROR HIV RECORD File (#799.4) 
               FACILITY field (#.01) of the FACILITY sub-field (#810.13) of the REMINDER REPORT TEMPLATE File (#810.1) 
               STATION field (#.03) of the COMPLIANCE TOTALS sub-field (#810.33) of the REMINDER EXTRACT SUMMARY File (#810.3) 
               PCMM INSTITUTION field (#.02) of the PATIENTS sub-field (#810.53) of the REMINDER PATIENT LIST File (#810.5) 
               INSTITUTION field (#.04) of the PCE DATA SOURCE File (#839.7) 
               REMOTE FACILITY field (#.09) of the ALLERGIES sub-field (#853.52) of the MRAR INSTANCE sub-field (#853.51) of the 
                   VPS MRAR PDO File (#853.5) 
               FILL LOCATION field (#3) of the MEDICATIONS sub-field (#853.54) of the MRAR INSTANCE sub-field (#853.51) of the VPS 
                   MRAR PDO File (#853.5) 
               INSTITUTION field (#.04) of the HL COMMUNICATION SERVER PARAMETERS File (#869.3) 
               INSTITUTION field (#.02) of the HL LOGICAL LINK File (#870) 
               INSTITUTION field (#5.01) of the ESP OFFENSE REPORT File (#912) 
               INSTITUTION field (#5.01) of the ESP VIOLATIONS File (#914) 
               FACILITY field (#.01) of the IMM DEFAULT RESPONSES File (#920.05) 
               SITE field (#.07) of the MPIF CMOR REQUEST File (#984.9) 
               CMOR AFTER APPROVAL field (#.09) of the MPIF CMOR REQUEST File (#984.9) 
               ACQUISITION SITE field (#.05) of the IMAGE File (#2005) 
               SITE field (#8) of the ANNOTATION GROUP sub-field (#2005.0021) of the IMAGING ANNOTATION File (#2005.002) 
               SITE field (#8) of the ANNOTATION GROUP sub-field (#2005.0031) of the IMAGING STUDY ANNOTATION File (#2005.003) 
               ACQUISITION SITE field (#.05) of the IMAGE AUDIT File (#2005.1) 
               INTERPRETING SITE field (#.04) of the MAG PATH INTERPRETATION File (#2005.43) 
               INSTITUTION field (#.01) of the IMAGING SERVICE INSTITUTION File (#2005.8) 
               ORIGIN field (#8) of the SEND QUEUE File (#2006.035) 
               SITE field (#1) of the ACQUISITION DEVICE File (#2006.04) 
               INSTITUTION NAME field (#.01) of the IMAGING SITE PARAMETERS File (#2006.1) 
               ASSOCIATED INSTITUTIONS field (#.01) of the ASSOCIATED INSTITUTIONS sub-field (#2006.12) of the IMAGING SITE 
                   PARAMETERS File (#2006.1) 
               VISTARAD GROUP field (#.01) of the VISTARAD GROUPING sub-field (#2006.1201) of the IMAGING SITE PARAMETERS File 
                   (#2006.1) 
               VISTARAD GROUP field (#.01) of the VISTARAD GROUPING sub-field (#2006.12201) of the ASSOCIATED INSTITUTIONS 
                   sub-field (#2006.12) of the IMAGING SITE PARAMETERS File (#2006.1) 
               SITE field (#.01) of the MAG PATH CONFIG File (#2006.13) 
               READING SITE field (#.01) of the READING SITE LIST sub-field (#2006.135) of the MAG PATH CONFIG File (#2006.13) 
               ACQUISITION SITE field (#.01) of the ACQUISITION SITE LIST sub-field (#2006.136) of the MAG PATH CONFIG File 
                   (#2006.13) 
               PRIMARY SITE field (#.02) of the ACQUISITION SITE LIST sub-field (#2006.136) of the MAG PATH CONFIG File (#2006.13) 
               INSTITUTION field (#.05) of the IMAGING USERS File (#2006.19) 
               DIVISION field (#.01) of the DICOM WORKLIST PATIENT File (#2006.55) 
               SITE field (#.01) of the PATIENT sub-field (#2006.552) of the DICOM WORKLIST PATIENT File (#2006.55) 
               DIVISION field (#.01) of the DICOM WORKLIST STUDY File (#2006.56) 
               LOCATION field (#17) of the DICOM GATEWAY PARAMETER File (#2006.563) 
               TRANSMIT LOCATION field (#.01) of the TRANSMIT LOCATION sub-field (#2006.5636) of the DICOM GATEWAY PARAMETER File 
                   (#2006.563) 
               LOCATION field (#.01) of the LOCATION sub-field (#2006.57331) of the QUERY/RETRIEVE STATISTICS File (#2006.5733) 
               FROM field (#5) of the DICOM OBJECT EXPORT File (#2006.574) 
               GATEWAY LOCATION field (#36) of the DICOM FAILED IMAGES File (#2006.575) 
               INSTITUTION field (#4) of the OUTSIDE IMAGING LOCATION File (#2006.5759) 
               LOCATION field (#.01) of the LOCATION sub-field (#2006.57621) of the DICOM INSTRUMENT STATISTICS File (#2006.5762) 
               SITE field (#3) of the EVENT sub-field (#2006.576311) of the ACCESSION NUMBER sub-field (#2006.57631) of the DICOM 
                   PACS STATISTICS File (#2006.5763) 
               SITE field (#5) of the INSTRUMENT DICTIONARY File (#2006.581) 
               LOCATION field (#.01) of the CT CONVERSION PARAMETERS File (#2006.5821) 
               SITE field (#2) of the MODALITY WORKLIST DICTIONARY File (#2006.583) 
               ACQUISITION SITE field (#5) of the CLINICAL SPECIALTY DICOM & HL7 File (#2006.5831) 
               ACQUISITION SITE field (#4) of the TELEREADER ACQUISITION SERVICE File (#2006.5841) 
               NAME field (#.01) of the TELEREADER ACQUISITION SITE File (#2006.5842) 
               PRIMARY SITE field (#1) of the TELEREADER ACQUISITION SITE File (#2006.5842) 
               ACQUISITION DIVISION NUMBER field (#1) of the TELEREADER READ/UNREAD LIST File (#2006.5849) 
               READER SITE field (#15) of the TELEREADER READ/UNREAD LIST File (#2006.5849) 
               GATEWAY LOCATION field (#7) of the DICOM TRANSMIT DESTINATION File (#2006.587) 
               LOCATION field (#1) of the DICOM GATEWAY INSTRUMENT DICTIONARY File (#2006.911) 
               SITE field (#5) of the INSTRUMENT sub-field (#2006.9112) of the DICOM GATEWAY INSTRUMENT DICTIONARY File (#2006.911) 
               LOCATION field (#1) of the DICOM GATEWAY MODALITY DICTIONARY File (#2006.912) 
               DGW LOCATION field (#5) of the MAGV GATEWAY CONFIGURATION File (#2006.9191) 
               SITE field (#2) of the DICOM AE SECURITY MATRIX File (#2006.9192) 
               LOCATION field (#4) of the MAG WORK ITEM File (#2006.941) 
               LOCATION field (#2) of the MAGV IMPORT STUDY LOG File (#2006.9421) 
               DIVISION field (#10) of the IMAGE ACCESS LOG File (#2006.95) 
               SITE NAME field (#.01) of the VIST PARAMETERS File (#2041) 
               DEFAULT REGIONAL OFFICE field (#.04) of the VIST PARAMETERS File (#2041) 
               REGIONAL OFFICE field (#.03) of the CLAIM sub-field (#2043.51) of the VARO CLAIMS File (#2043.5) 
               NAME field (#.01) of the GENERIC CODE SHEET SITE File (#2101.7) 
               STATION NUMBER field (#13) of the ASISTS ACCIDENT REPORTING File (#2260) 
               STATION field (#.01) of the STATION sub-field (#2261.43) of the ASISTS SETTING OF INJURY File (#2261.4) 
               STATION field (#.01) of the STATION sub-field (#2262.03) of the ASISTS SITE PARAMETER File (#2262) 
               FACILITY NAME field (#.01) of the VBECS SITE PARAMETERS File (#6000) 
               DIVISION field (#2) of the VBECS WORKLOAD CAPTURE File (#6002.01) 
               MEDICAL CENTER field (#3) of the CONSTRUCTION PROJECT File (#6925) 
               OLD MEDICAL CENTER field (#15.3) of the CONSTRUCTION PROJECT File (#6925) 
               FACILITY field (#.01) of the HDIS SYSTEM File (#7118.21) 
               DIVISION field (#1212) of the TIU DOCUMENT File (#8925) 
               DIVISION field (#.09) of the TIU UPLOAD LOG File (#8925.4) 
               INSTITUTION field (#.01) of the TIU PARAMETERS File (#8925.99) 
               INSTITUTION field (#.03) of the PASTED TEXT TRACKING File (#8928) 
               NAME field (#.01) of the CP PARAMETERS File (#8973) 
               DEFAULT INSTITUTION field (#217) of the KERNEL SYSTEM PARAMETERS File (#8989.3) 
               ENTITY field (#.01) of the PARAMETERS File (#8989.5) 
               SITE NAME field (#.01) of the XULM LOCK MANAGER PARAMETERS File (#8993.1) 
               STATION field (#10) of the APAT PATIENT RECORD ACTIVITY File (#23645) 
               FACILITY field (#.01) of the CPRS MONITOR File (#177100.12) 
               DIVISION field (#4) of the CPRS MONITOR DATA File (#177100.13) 
               SITE NAME field (#.01) of the A&SP SITE PARAMETERS File (#509850.8) 
               TESTING STATION field (#.1) of the AUDIOMETRIC EXAM DATA File (#509850.9) 
               STATION field (#.01) of the REMOTE ORDER/ENTRY PARAMETER File (#791813) 
               EXTENDED CLINIC field (#2.01) of the REMOTE ORDER/ENTRY PARAMETER File (#791813) 
               NAME field (#.01) of the LOCATION File (#9999999.06) 
               ASSOCIATED VA FACILITY field (#.1) of the IMMUNIZATION LOT File (#9999999.41) 
               

POINTED TO BY COMPUTED POINTER: 
               LOCATION SELECTED field (#3.3) of the ROR REGISTRY RECORD File (#798) 
               

CROSS
REFERENCED BY: PARENT OF ASSOCIATION(AC), NAME(AD), DEACTIVATED FACILITY / STA #(AI), NPI(ANPI), NAME(AP1), REALIGNED FROM(ARF), 
               REALIGNED FROM(ARFM), REALIGNED TO(ART), REALIGNED TO(ARTO), NAME(B), OFFICIAL VA NAME(C), STATION NUMBER(D), 
               NAME (CHANGED FROM)(OLDNAM), STATUS(XUMF)

INDEXED BY:    NAME & CURRENT LOCATION (LOC), NPI (NPI42), STATUS (TAXSTATUS), CODING SYSTEM & ID & EFFECTIVE DATE/TIME & STATUS
               (XUMFAL), CODING SYSTEM & ID (XUMFID), CODING SYSTEM & ID (XUMFIDX), CODING SYSTEM & ID (XUMFKEY)


    LAST MODIFIED: OCT 5,2022@14:51:37

4,.01         NAME                   0;1 (Required)

              INSTITUTION NAME   
              INPUT TRANSFORM:  K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E) X K:($P($G(^DIC(4,+$G(DA),0)),U,11)="N")&'$G(XUMF) X
              LAST EDITED:      JAN 16, 2019 
              HELP-PROMPT:      Name must be 3-30 characters -- if national entry, do not edit! 
              DESCRIPTION:
                                This is the name of the institution with out modifiers like state or type.  

              DELETE TEST:      11,0)= I ($P($G(^DIC(4,+$G(DA),0)),U,11)="N"&('$G(XUMF)))

              CROSS-REFERENCE:  4^B 
                                1)= S ^DIC(4,"B",$E(X,1,30),DA)=""
                                2)= K ^DIC(4,"B",$E(X,1,30),DA)

              CROSS-REFERENCE:  4^AP1^MUMPS 
                                1)= F I=0:0 S I=$O(^DIC(4,DA,4,I)) Q:I'>0  S Y(1)=+^(I,0),Y(2)=$S($D(^DIC(9.4,Y(1),0)):^(0),1:"") S
                                :Y(2)]"" ^DIC(4,"AP"_$P(Y(2),U,2),$E(X,1,30),DA)=""

                                2)= S Y="AP" F I=0:0 S Y=$O(^DIC(4,Y)) Q:$E(Y,1,2)'="AP"  K ^DIC(4,Y,$E(X,1,30),DA)
                                3)= Special Package X-ref

              CROSS-REFERENCE:  4^AD^MUMPS 
                                1)= I $D(^AUTTLOC(0))#2 N DIC,DD,DO,DINUM,DS S DIC="^AUTTLOC(",DIC(0)="",(X,DINUM)=DA D FILE^DICN
                                2)= I $D(^AUTTLOC(0))#2 N DIK S DIK="^AUTTLOC(" D ^DIK
                                3)= Needed to keep PCE location file in sync.
                                This MUMPS cross reference is used to keep the PCE location file (#9999999.06) synchronized with
                                the Institution file.  


              RECORD INDEXES:   LOC (#1570)

4,.02         STATE                  0;2 POINTER TO STATE FILE (#5)

              INPUT TRANSFORM:  Q:$G(XUMF)  K:$P($G(^DIC(4,+DA,0)),U,11)="N" X
              LAST EDITED:      JAN 12, 2004 
              HELP-PROMPT:      Enter the state. 
              DESCRIPTION:
                                State that the institution is physically located.  

              DELETE TEST:      11,0)= I ($P($G(^DIC(4,+$G(DA),0)),U,11)="N"&('$G(XUMF)))

              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER


4,.03         DISTRICT               0;3 NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>27)!(X<1)!(X?.E1"."1N.N) X
              LAST EDITED:      APR 09, 1990 
              HELP-PROMPT:      TYPE A WHOLE NUMBER BETWEEN 1 AND 27 
              DESCRIPTION:      This is the Medical District of the Institution file.  Therefore it is not to be changed except by
                                appropriately knowledgeable individuals.  

              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER


4,.05         SHORT NAME             0;5 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>80!($L(X)<4) X
              LAST EDITED:      APR 10, 1984 
              HELP-PROMPT:      ANSWER MUST BE 4-80 CHARACTERS IN LENGTH 
              DESCRIPTION:
                                Short version of name.  


4,.06         VA TYPE CODE           0;6 SET

                                'MC' FOR HOSP; 
                                'DM' FOR DOM; 
                                'NH' FOR NH; 
                                'RO' FOR RO; 
                                'DP' FOR DPC; 
                                'OI' FOR OC-IND; 
                                'OM' FOR OC-UNDER MMT; 
                                'OS' FOR OC-SUB; 
                                'PC' FOR PROTH; 
                                'PD' FOR PDC; 
                                'RP' FOR RPC; 
                                'CO' FOR VACO; 
                                'CR' FOR VACO-RO; 
                                'MCDM' FOR MC&DOM; 
                                'MCDMNH' FOR MC,DOM,NH; 
                                'MCNH' FOR MC&NH; 
                                'MCRO' FOR MC&RO; 
                                'RODP' FOR RO&DPC; 
              DESCRIPTION:
                                This field is being replaced by the Facitily type field.  


4,.07         REGION                 0;7 NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>7)!(X<1)!(X?.E1"."1N.N) X
              LAST EDITED:      APR 09, 1990 
              HELP-PROMPT:      TYPE A WHOLE NUMBER BETWEEN 1 AND 7 
              DESCRIPTION:
                                VA region number.  


4,1.01        STREET ADDR. 1         1;1 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>40!($L(X)<2) X
              LAST EDITED:      DEC 18, 2001 
              HELP-PROMPT:      ANSWER MUST BE 2-40 CHARACTERS IN LENGTH 
              DESCRIPTION:
                                First line of the street address (physical) of the facility.  


4,1.02        STREET ADDR. 2         1;2 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>40!($L(X)<2) X
              LAST EDITED:      AUG 05, 2002 
              HELP-PROMPT:      ANSWER MUST BE 2-40 CHARACTERS IN LENGTH 
              DESCRIPTION:
                                Second line of street address (physical) of the facility.  


4,1.03        CITY                   1;3 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>40!($L(X)<2) X
              LAST EDITED:      DEC 18, 2001 
              HELP-PROMPT:      ANSWER MUST BE 2-40 CHARACTERS IN LENGTH 
              DESCRIPTION:
                                The city the facility is physically located.  


4,1.04        ZIP                    1;4 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5)!'((X?5N)!(X?5N1"-"4N)) X
              LAST EDITED:      DEC 18, 2001 
              HELP-PROMPT:      Enter ZIP code or ZIP + 4 
              DESCRIPTION:
                                Postal ZIP code for the physical address of the facility.  

              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER


4,4           CONTACT                2;0 Multiple #4.03

              DESCRIPTION:
                                List of contacts.  


4.03,.01        CONTACT                0;1 FREE TEXT (Multiply asked)

                INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
                HELP-PROMPT:      ANSWER MUST BE 2-30 CHARACTERS IN LENGTH 
                DESCRIPTION:
                                  The name of a contact at the site.  


4.03,.02        AREA                   0;2 POINTER TO HOSPITAL LOCATION FILE (#44)

                DESCRIPTION:
                                  Pointer to the part of the site the contact works in.  


4.03,.03        PHONE #                0;3 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
                HELP-PROMPT:      ANSWER MUST BE 2-30 CHARACTERS IN LENGTH 
                DESCRIPTION:
                                  Telephone number.  




4,4.01        ST. ADDR. 1 (MAILING)  4;1 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>40!($L(X)<2) X
              LAST EDITED:      DEC 31, 2001 
              HELP-PROMPT:      Answer must be 2-40 characters in length. 
              DESCRIPTION:
                                First line of the street address (mailing) of the facility.  


4,4.02        ST. ADDR. 2 (MAILING)  4;2 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>40!($L(X)<2) X
              LAST EDITED:      DEC 31, 2001 
              HELP-PROMPT:      Answer must be 2-40 characters in length. 
              DESCRIPTION:
                                Second line of the street address (mailing) of the facility.  


4,4.03        CITY (MAILING)         4;3 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>40!($L(X)<2) X
              LAST EDITED:      DEC 31, 2001 
              HELP-PROMPT:      Answer must be 2-40 characters in length. 
              DESCRIPTION:
                                The City of the facility's mailing address.  


4,4.04        STATE (MAILING)        4;4 POINTER TO STATE FILE (#5)

              LAST EDITED:      DEC 31, 2001 
              DESCRIPTION:
                                The State of the facility's mailing address.  


4,4.05        ZIP (MAILING)          4;5 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5)!'((X?5N)!(X?5N1"-"4N)) X
              LAST EDITED:      JAN 22, 2002 
              HELP-PROMPT:      Enter ZIP code or ZIP + 4 
              DESCRIPTION:
                                Postal ZIP code for the mailing address of the facility.  

              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER


4,5           MULTI-DIVISION FACILITY DIV;1 SET

                                'Y' FOR YES; 
                                'N' FOR NO; 
              LAST EDITED:      JAN 04, 2001 
              DESCRIPTION:
                                Flag to indicate this is a multi-division facility.  


4,11          STATUS                 0;11 SET (Required)

                                'N' FOR National; 
                                'L' FOR Local; 
              INPUT TRANSFORM:  Q:$G(XUMF)  K:$P($G(^DIC(4,+DA,0)),U,11)="N"!(X["N") X
              LAST EDITED:      JAN 08, 2001 
              HELP-PROMPT:      Local or National -- if national, do not edit! 
              DESCRIPTION:      An Institution has a STATUS (#11) of either LOCAL or NATIONAL.  
                                 
                                Inactive facilities are flagged as such by the field INACTIVE FACILITY FLAG (#101).  
                                 
                                National entries are facilities that have a STATION NUMBER (#99) approved by Information Management
                                Service (045A4).  National entries are maintained by the Master File Server located on FORUM.  
                                 
                                Local entries are facilities that are entered locally.  Local entries no not have a STATION NUMBER
                                (#99).  (Only offically approved station numbers are allowed in the STATION NUMBER (#99) field.) 
                                 
                                All national entries will have a STATUS (#11) of NATIONAL.  Do not edit the STATUS (#11) of a
                                national entry.  Do not set a LOCAL entry to a STATUS (#11) of NATIONAL.  

              TECHNICAL DESCR:  An Institution has a STATUS (#11) of either LOCAL or NATIONAL.  
                                 
                                Inactive facilities are flagged as such by the field INACTIVE FACILITY FLAG (#101).  
                                 
                                National entries are facilities that have a STATION NUMBER (#99) approved by Information Management
                                Service (045A4).  National entries are maintained by the Master File Server located on FORUM.  
                                 
                                Local entries are facilities that are entered locally.  Local entries no not have a STATION NUMBER
                                (#99).  (Only offically approved station numbers are allowed in the STATION NUMBER (#99) field.) 
                                 
                                All national entries will have a STATUS (#11) of NATIONAL.  Do not edit the STATUS (#11) of a
                                national entry.  Do not set a LOCAL entry to a STATUS (#11) of NATIONAL.  

              DELETE TEST:      11,0)= I ($P($G(^DIC(4,+$G(DA),0)),U,11)="N"&('$G(XUMF)))

              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

              CROSS-REFERENCE:  4^XUMF 
                                1)= S ^DIC(4,"XUMF",$E(X,1,30),DA)=""
                                2)= K ^DIC(4,"XUMF",$E(X,1,30),DA)
                                This x-ref. is used by the master file server query.  It loops this x-ref to find all national
                                entries.  



4,13          FACILITY TYPE          3;1 POINTER TO FACILITY TYPE FILE (#4.1)

              INPUT TRANSFORM:  Q:($G(XUMF)&($P($G(^DIC(4.1,+X,0)),U,4)="N"))  K:$P($G(^DIC(4,+DA,0)),U,11)="N" X
              LAST EDITED:      JAN 12, 2004 
              HELP-PROMPT:      Enter the facility type. 
              DESCRIPTION:
                                The type of facility. A replacement for the type field.  

              DELETE TEST:      11,0)= I ($P($G(^DIC(4,+$G(DA),0)),U,11)="N"&('$G(XUMF)))

              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER


4,14          ASSOCIATIONS           7;0 POINTER Multiple #4.014


4.014,.01       ASSOCIATIONS           0;1 POINTER TO INSTITUTION ASSOCIATION TYPES FILE (#4.05)

                INPUT TRANSFORM:  S DINUM=X
                LAST EDITED:      DEC 03, 1997 
                DESCRIPTION:
                                  This multiple field is used to link groups if Institutions into associations.  

                NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

                CROSS-REFERENCE:  4.014^B 
                                  1)= S ^DIC(4,DA(1),7,"B",$E(X,1,30),DA)=""
                                  2)= K ^DIC(4,DA(1),7,"B",$E(X,1,30),DA)


4.014,1         PARENT OF ASSOCIATION  0;2 POINTER TO INSTITUTION FILE (#4)

                LAST EDITED:      JAN 12, 2004 
                DESCRIPTION:
                                  This field points back to the Institution file to indicate the parent of the association.  

                CROSS-REFERENCE:  4^AC^MUMPS 
                                  1)= S ^DIC(4,"AC",DA,X,DA(1))=""
                                  2)= K ^DIC(4,"AC",DA,X,DA(1))
                                  3)= This is needed by CIRN
                                  This X-ref is used to find the children of a patent for an Association type.  





4,41.99       NPI                    NPI;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:'($$CHKDGT^XUSNPIE1(X,DA,"Organization_ID")) X
              LAST EDITED:      AUG 14, 2006 
              HELP-PROMPT:      Answer must be 10 characters in length and not being used. 
              DESCRIPTION:
                                Current Unique National Provider ID. A unique meaningless integer assigned to providers.  

              DELETE TEST:      11,0)= D:'$D(XUMF) EN^DDIOL("Entries must be inactivated via the Master File Server(MFS).","","!?5,
                                $C(7)") I $D(XUMF)

              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

              CROSS-REFERENCE:  4^ANPI 
                                1)= S ^DIC(4,"ANPI",$E(X,1,30),DA)=""
                                2)= K ^DIC(4,"ANPI",$E(X,1,30),DA)
                                File entries by NPI.  



4,42          EFFECTIVE DATE/TIME    NPISTATUS;0 DATE Multiple #4.042


4.042,.01       EFFECTIVE DATE/TIME    0;1 DATE

                INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
                LAST EDITED:      MAR 01, 2006 
                HELP-PROMPT:      Enter the date/time of the last change to this NPI. 
                DESCRIPTION:
                                  This field contains the date and time of the last change to the NPI field.  

                NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

                CROSS-REFERENCE:  4.042^B 
                                  1)= S ^DIC(4,DA(1),"NPISTATUS","B",$E(X,1,30),DA)=""
                                  2)= K ^DIC(4,DA(1),"NPISTATUS","B",$E(X,1,30),DA)


4.042,.02       STATUS                 0;2 SET (Required)

                                  '1' FOR ACTIVE; 
                                  '0' FOR INACTIVE; 
                LAST EDITED:      MAR 01, 2006 
                DESCRIPTION:      The Status of an NPI is either 'ACTIVE' or 'INACTIVE'. I 'ACTIVE' then the NPI will be accessible
                                  by end-users to document a particular provider.  If 'INACTIVE', then the NPI will only be
                                  accessible by the application to display legacy data.  

                                  UNEDITABLE

4.042,.03       NPI                    0;3 FREE TEXT (Required)

                INPUT TRANSFORM:  K:'($$CHKDGT^XUSNPIE1(X,DA(1),"Organization_ID")) X
                MAXIMUM LENGTH:   30
                LAST EDITED:      JUL 12, 2018 
                HELP-PROMPT:      Answer must be 10 characters in length and not being used. 
                NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

                CROSS-REFERENCE:  4.042^C 
                                  1)= S ^DIC(4,DA(1),"NPISTATUS","C",$E(X,1,30),DA)=""
                                  2)= K ^DIC(4,DA(1),"NPISTATUS","C",$E(X,1,30),DA)

                CROSS-REFERENCE:  4.042^AC^MUMPS 
                                  1)= D SET1^XUSNPIE1(DA(1),X)
                                  2)= Q
                                  3)= Special Trigger
                                  his Special x-ref sets the NPI field (#41.99).  


                FIELD INDEX:      NPI42 (#677)    REGULAR    IR    LOOKUP & SORTING    WHOLE FILE (#4)
                    Short Descr:  NPI42 X-REF
                      Set Logic:  S ^DIC(4,"NPI42",$E(X,1,10),DA(1),DA)=""
                     Kill Logic:  K ^DIC(4,"NPI42",$E(X,1,10),DA(1),DA)
                     Whole Kill:  K ^DIC(4,"NPI42")
                           X(1):  NPI  (4.042,.03)  (Subscr 1)  (Len 10)  (forwards)




4,43          TAXONOMY CODE          TAXONOMY;0 POINTER Multiple #4.043


4.043,.01       TAXONOMY CODE          0;1 POINTER TO PERSON CLASS FILE (#8932.1) (Multiply asked)

                LAST EDITED:      JUN 15, 2006 
                HELP-PROMPT:      Enter the NUCC recognized taxonomy code. 
                DESCRIPTION:
                                  This multiple field holds the NUCC recognized taxonomy code for an individual or an organization.  

                CROSS-REFERENCE:  4.043^B 
                                  1)= S ^DIC(4,DA(1),"TAXONOMY","B",$E(X,1,30),DA)=""
                                  2)= K ^DIC(4,DA(1),"TAXONOMY","B",$E(X,1,30),DA)


4.043,.02       PRIMARY CODE           0;2 SET

                                  '1' FOR YES; 
                                  '0' FOR NO; 
                LAST EDITED:      JUN 15, 2006 
                HELP-PROMPT:      Enter a 1 if this is the provider's primary taxonomy code or a 0 for non-primary. 
                DESCRIPTION:      Only one code can be the primary taxonomy code for a provider. When a specific taxonomy code is
                                  identified it is the primary code that will be the default.  

                CROSS-REFERENCE:  4.043^C 
                                  1)= S ^DIC(4,DA(1),"TAXONOMY","C",$E(X,1,30),DA)=""
                                  2)= K ^DIC(4,DA(1),"TAXONOMY","C",$E(X,1,30),DA)
                                  3)= C X-REF


4.043,.03       STATUS                 0;3 SET

                                  'A' FOR ACTIVE; 
                                  'I' FOR INACTIVE; 
                LAST EDITED:      JUN 15, 2006 
                HELP-PROMPT:      Enter an 'A' for an active code or an 'I' for an inactive code. 
                DESCRIPTION:      If a taxonomy code listed for a provider is a currently active code (one they use today), then
                                  the status should be marked with an 'A'. At times a provider will no longer use a taxonomy code.
                                  This code will be marked with an 'I' for inactive. Codes should not be removed from a provider's
                                  list.  They should be activated or inactivated.  

                FIELD INDEX:      TAXSTATUS (#678)    REGULAR    IR    LOOKUP & SORTING    WHOLE FILE (#4)
                    Short Descr:  NEW X-REF
                      Set Logic:  S ^DIC(4,"TAXSTATUS",$E(X,1,30),DA(1),DA)=""
                     Kill Logic:  K ^DIC(4,"TAXSTATUS",$E(X,1,30),DA(1),DA)
                     Whole Kill:  K ^DIC(4,"TAXSTATUS")
                           X(1):  STATUS  (4.043,.03)  (Subscr 1)  (Len 30)  (forwards)




4,51          ACOS HOSPITAL ID       5;1 FREE TEXT

              American College of Surgeons Hospital ID   
              INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6)!'(X?6N) X
              LAST EDITED:      MAR 06, 1990 
              HELP-PROMPT:      Please enter American College of Surgeons 6 digit ID number. 
              DESCRIPTION:      This field holds the six-digit code assigned to this facility by the American College of Surgeons
                                (ACOS) Commission on Cancer, the organization that accredits a hospital's Cancer Program and Tumor 
                                Registry.  A facility will only have an ACOS number if they have requested a Cancer Program survey
                                from the ACOS (not all facilities will have a number).  


4,52          FACILITY DEA NUMBER    DEA;1 FREE TEXT

              INPUT TRANSFORM:  K:'$$VALDEA^XUSER2(X,1) X
              LAST EDITED:      DEC 23, 2002 
              HELP-PROMPT:      Answer with a DEA ID, must be 9 characters in length 
              DESCRIPTION:      This field holds the facility DEA number. This allows house officers who do not have their own DEA
                                # to use a VA # for Digital Signatures.  

              TECHNICAL DESCR:  This value is checked by the call to $$VALDEA^XUSER2(x).  This is the algorithm 
                                 
                                The first letter for practitioners (physicians, dentists, veterinarians, pharmacies etc.) is either
                                an "A" or "B" 
                                 
                                The second letter should be the first letter of the practitioner's last name.  Sometimes this does
                                not match if the registrant changed their name or the DEA did not get it correct the first time.  
                                 
                                The check digit algorithm is as follows: 
                                 
                                AS1234563 
                                 
                                1 + 3 + 5 =   9 2 + 4 + 6 = 12 x 2 = 24 
                                 
                                9 + 24 = 33 
                                 
                                The last digit of the total must equal the check digit (the last digit of the DEA number).  
                                (33#10)=$E("AS1234563",9) 

              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER


4,52.1        FACILITY DEA EXPIRATION DATE DEA;2 DATE

              INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
              LAST EDITED:      JUL 28, 2011 
              HELP-PROMPT:      Enter expiration date for DEA#. 
              DESCRIPTION:
                                This field contains the expiration date for DEA#.  


4,60          DOMAIN                 6;1 POINTER TO DOMAIN FILE (#4.2)

              LAST EDITED:      MAY 16, 1990 
              HELP-PROMPT:      This allows a link from the institution file to the domain file. 
              DESCRIPTION:
                                A pointer to the domain so the institution can be linked to a E-mail domain.  


4,95          AGENCY CODE            99;5 SET

                                'V' FOR VA; 
                                'AF' FOR AIR FORCE; 
                                'I' FOR IHS; 
                                'ARMY' FOR ARMY; 
                                'N' FOR NAVY; 
                                'O' FOR OTHER; 
                                'E' FOR EHR; 
                                'USCG' FOR COAST GUARD; 
              LAST EDITED:      MAY 11, 2006 
              HELP-PROMPT:      What type of instution is this. Other for non-goverment. 
              DESCRIPTION:      A code to identify the Government agency that this site belongs to.  This is a duplicate of the
                                POINTER TO AGENCY field.  

              NOTES:            TRIGGERED by the POINTER TO AGENCY field of the INSTITUTION File 

              CROSS-REFERENCE:  ^^TRIGGER^4^97 
                                1)= K DIV,Y S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(4,D0,99)):^(99),1:""),Y(2)=$P(Y(1),U,5),Y(3)=
                                $P(Y(1),U,7) X ^DD(4,95,1,1,1.1) I X]"" S X=$O(^DIC(4.11,"B",X,0)) X ^DD(4,95,1,1,1.4)

                                1.1)= S X=DIV S Y(5)=$C(59)_$S($D(^DD(4,95,0)):$P(^(0),U,3),1:""),X=$P($P(Y(5),$C(59)_DIV_":",2),$C
                                (59),1),Y(4)=$S($D(^DIC(4.11,+Y(3),0)):^(0),1:"")

                                1.4)= I Y(2)'=$P(Y(4),U,2) S DIU=Y(3),DIV=X,$P(^DIC(4,D0,99),U,7)=DIV,DIH=4,DIG=97 D ^DICR:$O(^DD(D
                                IH,DIG,1,0))>0

                                2)= Q  K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(4,D0,99)):^(99),1:"") S X=$P(Y(1),U,7),X=X S
                                 DIU=X K Y S X="" S DIH=$S($D(^DIC(4,DIV(0),99)):^(99),1:""),DIV=X S $P(^(99),U,7)=DIV,DIH=4,DIG=97
                                 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
                                3)= Link to keep fields 95 and 97 in sync. (Edited)
                                CREATE VALUE)= AGENCY CODE
                                DELETE VALUE)= NO EFFECT
                                FIELD)= POINTER TO AGENCY


4,96          REPORTING STATION      99;6 POINTER TO INSTITUTION FILE (#4)

              INPUT TRANSFORM:  S DIC("S")="I $S($D(^(99)):$P(^(99),U,1)?3N,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
              LAST EDITED:      JUL 26, 1989 
              HELP-PROMPT:      Enter the consolidating reporting station.  (must have a 3 digit station number) 
              DESCRIPTION:      This is a pointer back to the Institution file that indicates the site that does the reporting to
                                VACO.  

              SCREEN:           S DIC("S")="I $S($D(^(99)):$P(^(99),U,1)?3N,1:0)"
              EXPLANATION:      Can only select instutions with a 3 numeric station number.

4,97          POINTER TO AGENCY      99;7 POINTER TO AGENCY FILE (#4.11) (Required)

              LAST EDITED:      JAN 03, 1990 
              DESCRIPTION:      A pointer to a file that identifies the government agency that this site belongs to.  Keep in sync
                                with the Agency code field.  

              NOTES:            TRIGGERED by the AGENCY CODE field of the INSTITUTION File 

              CROSS-REFERENCE:  ^^TRIGGER^4^95 
                                1)= X ^DD(4,97,1,1,1.3) I X,Y(3)]"" S X=Y(3) X ^DD(4,97,1,1,1.4)
                                1.3)= K DIV,Y S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(4,97,1,1,69.2) S Y(3)=$P(Y(101),U,2),X=(Y(2)'=
                                Y(3)) S D0=I(0,0)

                                1.4)= S DIH=$S($D(^DIC(4,DIV(0),99)):^(99),1:""),DIV=X,DIU=$P(DIH,U,5) S $P(^(99),U,5)=DIV,DIH=4,DI
                                G=95 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

                                2)= Q
                                3)= Link to keep fields 95 and 97 in sync. (Edited)
                                69.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^DIC(4,D0,99)):^(99),1:"") S X=$P(Y(1),U,5),X=X S X=X
                                ,Y(2)=X,D0=Y(0) S:'$D(^DIC(4.11,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(4.11,D0,0)):^(0),1:"")

                                CREATE CONDITION)= INTERNAL(AGENCY CODE)'=INTERNAL(POINTER TO AGENCY:AGENCY CODE)
                                CREATE VALUE)= INTERNAL(POINTER TO AGENCY:AGENCY CODE)
                                DELETE VALUE)= NO EFFECT
                                FIELD)= AGENCY CODE


4,99          STATION NUMBER         99;1 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>7!($L(X)<3)!'(X?3N.AN) X Q:$G(XUMF)  K X
              LAST EDITED:      MAY 18, 2001 
              HELP-PROMPT:      No local station numbers allowed! 
              DESCRIPTION:
                                This is the 3 digit station number plus any modifiers.  

              GROUP:            RUPP
              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

              CROSS-REFERENCE:  4^D^MUMPS 
                                1)= S ^DIC(4,"D",$E(X,1,30),DA)=""
                                2)= K ^DIC(4,"D",$E(X,1,30),DA) S ^DIC(4,"AOLD99",DA,$E(X,1,30))=""
                                The "AOLD99" x-ref (kill statement 0f "D" x-ref) is used by $$O99^XUAF4 to get the pointer to the
                                valid entry with station number for duplicate station numbers resolved by the clean up (patch
                                xu*8.0*126).  



4,100         OFFICIAL VA NAME       99;3 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>80!($L(X)<2) X K:($P($G(^DIC(4,+$G(DA),0)),U,11)="N")&'$G(XUMF) X
              LAST EDITED:      JAN 12, 2004 
              HELP-PROMPT:      Enter the official VA name or name of the facility. 
              DESCRIPTION:      This field holds the Offical VA name for this VA facility.  The value in this field should not be
                                changed by the site.  

              DELETE TEST:      11,0)= I ($P($G(^DIC(4,+$G(DA),0)),U,11)="N"&('$G(XUMF)))

              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

              CROSS-REFERENCE:  4^C 
                                1)= S ^DIC(4,"C",$E(X,1,30),DA)=""
                                2)= K ^DIC(4,"C",$E(X,1,30),DA)


4,101         INACTIVE FACILITY FLAG 99;4 SET

                                '1' FOR INACTIVE; 
              INPUT TRANSFORM:  Q:$G(XUMF)  K:$P($G(^DIC(4,+DA,0)),U,11)="N" X
              LAST EDITED:      JAN 12, 2004 
              HELP-PROMPT:      1 flags inactive entry. 
              DELETE TEST:      11,0)= I ($P($G(^DIC(4,+$G(DA),0)),U,11)="N"&('$G(XUMF)))

              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER


4,102         CERNER                 102;1 SET

                                '0' FOR NO; 
                                '1' FOR YES; 
              LAST EDITED:      DEC 05, 2019 
              HELP-PROMPT:      Enter '1' if this site has been converted to CERNER, default is '0'. 
              DESCRIPTION:
                                This field indicates if a facility has been converted to CERNER.  


4,200         BILLING FACILITY NAME  99;2 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>80!($L(X)<3) X K:($P($G(^DIC(4,+$G(DA),0)),U,11)="N")&'$G(XUMF) X
              LAST EDITED:      AUG 02, 2010 
              HELP-PROMPT:      Answer must be 3-80 characters in length.  This field is centrally maintained and supported by the 
                                MFS mechanism.  Do not edit. 
              DESCRIPTION:      This field is the billing facility name populated with the GOLD STANDARD NAME provided by the CBO
                                and required for pharmacies, CBOC's, VAMC's, etc - Anything that could be identified as a Billing
                                Facility (Billing Provider) for billing in VistA.  
                                 
                                This new field is not editable locally (same as the .01 and 100 fields).  Updates would be managed
                                through Forum and the Master File Update mechanisms only.  

              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER


4,720         CURRENT LOCATION       EC;1 SET

                                '1' FOR YES; 
                                '0' FOR NO; 
              LAST EDITED:      JAN 16, 2019 
              HELP-PROMPT:      Entering a 1 for YES means ACTIVE, a 0 for NO means INACTIVE. 
              DESCRIPTION:      This field flags entries for use in the Event Capture software.  
                                  
                                       '1'  for   'YES'   (ACTIVE) 
                                  
                                       '0'  for   'NO'    (INACTIVE) 

              RECORD INDEXES:   LOC (#1570)

4,800         LOCATION TIMEZONE      8;1 POINTER TO WORLD TIMEZONES FILE (#1.71)

              LAST EDITED:      AUG 10, 2016 
              HELP-PROMPT:      Enter the timezone or '?' to list timezones 
              DESCRIPTION:
                                This is the timezone of this specific location.  


4,801         COUNTRY                8;2 POINTER TO COUNTRY CODE FILE (#779.004)

              LAST EDITED:      AUG 15, 2016 
              HELP-PROMPT:      Enter the country, or '?' to list countries 
              DESCRIPTION:
                                Country of this location 


4,802         TIMEZONE EXCEPTION     8;3 SET

                                '0' FOR SST Only; 
              LAST EDITED:      AUG 09, 2016 
              HELP-PROMPT:      Enter 0 if this is for Standard Time only. 
              DESCRIPTION:      This location does not follow the timezone and country timeframe changes therefore only follows 
                                STANDARD time.  Example: Some locations in the USA do not follow the change to DAYLIGHT SAVINGS but
                                remain STANDARD all year long.  Those locations would need this exception defined.  Puerto Rico's
                                timezone is Atlantic which is also used by Canada, Dominican Republic, and Bermuda.  Canada and
                                Bermuda change timeframes and Puerto Rico and Dominican Republic do not.  A location in Puerto Rico
                                or Dominican Republic would need to have the exception field set to SST only.  


4,999.1       HISTORY                999;0 DATE Multiple #4.999 (Add New Entry without Asking)


4.999,.01       EFFECTIVE DATE         0;1 DATE

                INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X S DINUM=X
                LAST EDITED:      JUN 05, 2000 
                HELP-PROMPT:      The effective date of the change. 
                NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

                CROSS-REFERENCE:  4.999^B 
                                  1)= S ^DIC(4,DA(1),999,"B",$E(X,1,30),DA)=""
                                  2)= K ^DIC(4,DA(1),999,"B",$E(X,1,30),DA)


4.999,.02       NAME (CHANGED FROM)    0;2 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
                LAST EDITED:      JUL 21, 2000 
                HELP-PROMPT:      If NAME changed, this field holds old value. 
                CROSS-REFERENCE:  4^OLDNAM 
                                  1)= S ^DIC(4,"OLDNAM",$E(X,1,30),DA(1),DA)=""
                                  2)= K ^DIC(4,"OLDNAM",$E(X,1,30),DA(1),DA)
                                  This x-ref stores the old name.  



4.999,.03       OFFICAL VA NAME (CHANGED FROM) 0;3 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>80!($L(X)<3) X
                LAST EDITED:      JUN 06, 2000 
                HELP-PROMPT:      If OFFICAL VA NAME changed, this field holds old value. 

4.999,.05       REALIGNED TO           0;5 POINTER TO INSTITUTION FILE (#4)

                LAST EDITED:      JUN 12, 2000 
                HELP-PROMPT:      This field points to the new entry with valid station number.\] 
                CROSS-REFERENCE:  4^ART 
                                  1)= S ^DIC(4,"ART",$E(X,1,30),DA(1),DA)=""
                                  2)= K ^DIC(4,"ART",$E(X,1,30),DA(1),DA)
                                  This x-ref used by F4^XUAF4 API.  


                CROSS-REFERENCE:  4^ARTO^MUMPS 
                                  1)= S ^DIC(4,"ARTO",DA(1),X)=""
                                  2)= K ^DIC(4,"ARTO",DA(1),X)
                                  This x-ref used by F4^XUAF4 API.  



4.999,.06       REALIGNED FROM         0;6 POINTER TO INSTITUTION FILE (#4)

                LAST EDITED:      JUN 12, 2000 
                HELP-PROMPT:      This field points to the old entry/sta# for this facility. 
                CROSS-REFERENCE:  4^ARF 
                                  1)= S ^DIC(4,"ARF",$E(X,1,30),DA(1),DA)=""
                                  2)= K ^DIC(4,"ARF",$E(X,1,30),DA(1),DA)
                                  This x-ref used by F4^XUAF4 API.  


                CROSS-REFERENCE:  4^ARFM^MUMPS 
                                  1)= S ^DIC(4,"ARFM",DA(1),X)=""
                                  2)= K ^DIC(4,"ARFM",DA(1),X)
                                  This x-ref used by F4^XUAF4 API.  



4.999,.07       DEACTIVATED FACILITY / STA # 0;7 SET

                                  '1' FOR DEACTIVATED; 
                LAST EDITED:      JUN 13, 2000 
                HELP-PROMPT:      Flags deactivated facilities and/or station numbers. 
                CROSS-REFERENCE:  4^AI^MUMPS 
                                  1)= S ^DIC(4,"AI",DA(1),DA)=""
                                  2)= K ^DIC(4,"AI",DA(1),DA)
                                  This x-ref used by F4^XUAF4 API.  



4.999,.08       ACTIVATED FACILITY     0;8 SET

                                  '1' FOR ACTIVATED; 
                LAST EDITED:      JUN 06, 2000 
                HELP-PROMPT:      Flags activated facilities for EFFECTIVE DATE. 

4.999,1         STREET ADDR. 1 (CHANGED FROM) 1;1 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>40!($L(X)<2) X
                LAST EDITED:      JUN 10, 2016 
                HELP-PROMPT:      Answer must be 2-40 characters in length. 
                DESCRIPTION:
                                  If STREET ADDR. 1 changed, this field holds old value.  


4.999,1.1       STREET ADDR. 2 (CHANGED FROM) 1;2 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>40!($L(X)<2) X
                LAST EDITED:      JUN 10, 2016 
                HELP-PROMPT:      Answer must be 2-40 characters in length.  
                DESCRIPTION:
                                  If STREET ADDR. 2 changed, this field holds old value.  


4.999,1.2       CITY (CHANGED FROM)    1;3 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>40!($L(X)<2) X
                LAST EDITED:      JUN 10, 2016 
                HELP-PROMPT:      Answer must be 2-40 characters in length.  
                DESCRIPTION:
                                  If CITY changed, this field holds old value.  


4.999,1.3       STATE (CHANGED FROM)   1;4 POINTER TO STATE FILE (#5)

                LAST EDITED:      JUN 10, 2016 
                HELP-PROMPT:      Enter the state.  
                DESCRIPTION:
                                  If STATE changed, this field holds old value.  


4.999,1.4       ZIP (CHANGED FROM)     1;5 FREE TEXT

                INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5) X
                LAST EDITED:      JUN 10, 2016 
                HELP-PROMPT:      Enter ZIP code or ZIP + 4, 5-10 characters in length.  
                DESCRIPTION:
                                  If ZIP changed, this field holds old value. 




4,9999        IDENTIFIER             9999;0 Multiple #4.9999 (Add New Entry without Asking)


              PRIMARY KEY:      A (#37)
              Uniqueness Index: XUMFKEY (#341)  WHOLE FILE (#4)
                   File, Field: 1) CODING SYSTEM (4.9999,.01)  2) ID (4.9999,.02)

4.9999,.01      CODING SYSTEM          0;1 FREE TEXT (Key field)

                INPUT TRANSFORM:  K:$L(X)>20!($L(X)<2) X K:($P($G(^DIC(4,+$G(DA(1)),0)),U,11)="N")&'$G(XUMF) X
                LAST EDITED:      FEB 03, 2003 
                HELP-PROMPT:      Answer must be 2-20 characters in length 
                NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

                CROSS-REFERENCE:  4.9999^B 
                                  1)= S ^DIC(4,DA(1),9999,"B",$E(X,1,30),DA)=""
                                  2)= K ^DIC(4,DA(1),9999,"B",$E(X,1,30),DA)

                RECORD INDEXES:   XUMFAL (#679) (WHOLE FILE #4), XUMFID (#339) (WHOLE FILE #4), XUMFIDX (#340) (WHOLE FILE #4),
                                  XUMFKEY (#341) (WHOLE FILE #4)

4.9999,.02      ID                     0;2 FREE TEXT (Key field)

                INPUT TRANSFORM:  K:$L(X)>20!($L(X)<2) X K:($P($G(^DIC(4,+$G(DA(1)),0)),U,11)="N")&'$G(XUMF) X
                LAST EDITED:      FEB 03, 2003 
                HELP-PROMPT:      Answer must be 2-20 characters in length 
                NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

                RECORD INDEXES:   XUMFAL (#679) (WHOLE FILE #4), XUMFID (#339) (WHOLE FILE #4), XUMFIDX (#340) (WHOLE FILE #4),
                                  XUMFKEY (#341) (WHOLE FILE #4)

4.9999,.03      EFFECTIVE DATE/TIME    0;3 DATE

                INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
                LAST EDITED:      APR 10, 2006 
                DESCRIPTION:
                                  Describes the pair Status and Effective Date/Time for each reference term.  

                RECORD INDEXES:   XUMFAL (#679) (WHOLE FILE #4)

4.9999,.04      STATUS                 0;4 SET

                                  '1' FOR ACTIVE; 
                                  '0' FOR INACTIVE; 
                LAST EDITED:      APR 10, 2006 
                DESCRIPTION:      The Status of a reference term is either 'ACTIVE' or 'INACTIVE', then the term will be accessible
                                  by end-users to document a particular patient event. If 'INACTIVE', then the term will only be
                                  accessible by the application to display legacy data.  

                RECORD INDEXES:   XUMFAL (#679) (WHOLE FILE #4)




      FILES POINTED TO                      FIELDS

AGENCY (#4.11)                    POINTER TO AGENCY (#97)

COUNTRY CODE (#779.004)           COUNTRY (#801)

DOMAIN (#4.2)                     DOMAIN (#60)

FACILITY TYPE (#4.1)              FACILITY TYPE (#13)

HOSPITAL LOCATION (#44)           CONTACT:AREA (#.02)

INSTITUTION (#4)                  REPORTING STATION (#96)
                                  ASSOCIATIONS:PARENT OF ASSOCIATION (#1)
                                  HISTORY:REALIGNED TO (#.05)
                                  REALIGNED FROM (#.06)

INSTITUTION ASSOCIATION TYPES 
                   (#4.05)        ASSOCIATIONS:ASSOCIATIONS (#.01)

PERSON CLASS (#8932.1)            TAXONOMY CODE:TAXONOMY CODE (#.01)

STATE (#5)                        STATE (#.02)
                                  STATE (MAILING) (#4.04)
                                  HISTORY:STATE (CHANGED FROM) (#1.3)

WORLD TIMEZONES (#1.71)           LOCATION TIMEZONE (#800)


File #4

  Record Indexes:

  LOC (#1570)    RECORD    REGULAR    IR    LOOKUP & SORTING
      Short Descr:  LOC cross reference
      Description:  Sets and kills the "LOC" nodes.  
        Set Logic:  S ^DIC(4,"LOC",$E(X(1),1,30),DA)=""
         Set Cond:  S X=X(2)
       Kill Logic:  K ^DIC(4,"LOC",$E(X(1),1,30),DA)
       Whole Kill:  K ^DIC(4,"LOC")
             X(1):  NAME  (4,.01)  (Subscr 1)  (Len 30)  (forwards)
             X(2):  CURRENT LOCATION  (4,720)  (Len 1)  (forwards)

Subfile #4.9999

  Record Indexes:

  XUMFAL (#679)    RECORD    REGULAR    IR    LOOKUP & SORTING    WHOLE FILE (#4)
      Short Descr:  New x-ref
        Set Logic:  S ^DIC(4,"XUMFAL",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30),$E(X(4),1,1),DA(1),DA)=""
       Kill Logic:  K ^DIC(4,"XUMFAL",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30),$E(X(4),1,1),DA(1),DA)
       Whole Kill:  K ^DIC(4,"XUMFAL")
             X(1):  CODING SYSTEM  (4.9999,.01)  (Subscr 1)  (Len 30)  (forwards)
             X(2):  ID  (4.9999,.02)  (Subscr 2)  (Len 30)  (forwards)
             X(3):  EFFECTIVE DATE/TIME  (4.9999,.03)  (Subscr 3)  (Len 30)  (forwards)
             X(4):  STATUS  (4.9999,.04)  (Subscr 4)  (Len 1)  (forwards)

  XUMFID (#339)    RECORD    REGULAR    IR    LOOKUP & SORTING    WHOLE FILE (#4)
      Short Descr:  Enables lookup by coding system concatenated with ID.
        Set Logic:  S ^DIC(4,"XUMFID",X(3),DA(1),DA)=""
       Kill Logic:  K ^DIC(4,"XUMFID",X(3),DA(1),DA)
       Whole Kill:  K ^DIC(4,"XUMFID")
             X(1):  CODING SYSTEM  (4.9999,.01)  (Len 30)  (forwards)
             X(2):  ID  (4.9999,.02)  (Len 30)  (forwards)
             X(3):  Computed Code: S X=X(1)_X(2)
                      (Subscr 1)
                      Lookup Prompt:  CODING SYSTEM/ID PAIR

  XUMFIDX (#340)    RECORD    REGULAR    IR    LOOKUP & SORTING    WHOLE FILE (#4)
      Short Descr:  Regular index coding system / ID.
        Set Logic:  S ^DIC(4,"XUMFIDX",$E(X(1),1,30),$E(X(2),1,30),DA(1),DA)=""
       Kill Logic:  K ^DIC(4,"XUMFIDX",$E(X(1),1,30),$E(X(2),1,30),DA(1),DA)
       Whole Kill:  K ^DIC(4,"XUMFIDX")
             X(1):  CODING SYSTEM  (4.9999,.01)  (Subscr 1)  (Len 30)  (forwards)
             X(2):  ID  (4.9999,.02)  (Subscr 2)  (Len 30)  (forwards)

  XUMFKEY (#341)    RECORD    REGULAR    IR    LOOKUP & SORTING    WHOLE FILE (#4)
       Unique for:  Key A (#37), File #4.9999
      Short Descr:  SALDFJASLDFJ
        Set Logic:  S ^DIC(4,"XUMFKEY",$E(X(1),1,30),$E(X(2),1,30),DA(1),DA)=""
       Kill Logic:  K ^DIC(4,"XUMFKEY",$E(X(1),1,30),$E(X(2),1,30),DA(1),DA)
       Whole Kill:  K ^DIC(4,"XUMFKEY")
             X(1):  CODING SYSTEM  (4.9999,.01)  (Subscr 1)  (Len 30)  (forwards)
             X(2):  ID  (4.9999,.02)  (Subscr 2)  (Len 30)  (forwards)


INPUT TEMPLATE(S):
XUMF IMF EDIT                 DEC 10, 2003@13:44  USER #0    

PRINT TEMPLATE(S):
CAPTIONED                                         USER #0    
ECX INST EXPORT               MAY 28, 2019@15:06  USER #0                                                                        @@
ECX INST PRINT                MAY 28, 2019@15:02  USER #0                                                          INSTITUTION List

SORT TEMPLATE(S):
ROGER                         JAN 24, 2007@09:12  USER #1      NAME CONTAINS (case-insensitive) " PHARM"  
                                                          and FACILITY TYPE EQUALS 75^PHARM     and STATION NUMBER NULL


FORM(S)/BLOCK(S):
XU-INST-EDIT                  DEC 05, 1997@09:46  USER #0
  XU-INST-E1                    DD #4
  XU-INST-E2                    DD #4.014