STANDARD DATA DICTIONARY #6928.3 -- ENG BUILDING FILE                                                             3/24/25    PAGE 1
STORED IN ^ENG(6928.3,  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                      (VERSION 7.0)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
A simple file of physical buildings. A 'division designation' may be included if needed to distinguish between two buildings having 
the same number. Suppose, for example, there were two buildings numbered 100 at VAMC St. Louis, one at the John Cochran Division 
and one at Jefferson Barracks. These two buildings could be entered separately as 100-JC and 100-JB; where 'JB' and 'JC' are
division designators. The same strategy may be useful at facilities that support outpatient clinics, Regional Offices, national
cemeteries, etc.  


              DD ACCESS: #
              WR ACCESS: E
             DEL ACCESS: e
           LAYGO ACCESS: E

POINTED TO BY: BUILDING NUMBER field (#.01) of the BUILDING NUMBER sub-field (#6925.0177) of the CONSTRUCTION PROJECT File (#6925) 
               BUILDING FILE POINTER field (#.51) of the ENG SPACE File (#6928) 
               

CROSS
REFERENCED BY: NAME(B), DIVISION(D)



6928.3,.01    NAME                   0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X D:'$D(X) EN^DDIOL("  (10 character maximum.)") I $D(X) D BLDG^ENLIB1
              LAST EDITED:      OCT 16, 1996 
              HELP-PROMPT:      ANSWER MUST BE 1-10 CHARACTERS IN LENGTH, NO MORE THAN ONE HYPHEN 
              DESCRIPTION:       Building identifier. Used for data validation when entries are made in the Space File. Building
                                NAME should consist of either one or two pieces, separated by the hyphen ("-"). The rule is this: 
                                   1. Sites where building designations are unique in and 
                                   of themselves should have one-piece entries in this file.  
                                   Building NAME's should not contain any hyphens.  
                                   2. Sites where building designations are not necessarily 
                                   unique (multi-division sites and perhaps sites that support 
                                   remote clinics and/or other quasi-independent offices) 
                                   should use a two-piece format. The second piece should 
                                   designate the division, outpatient clinic, Regional Office, 
                                   etc. Building NAME's should contain only one hyphen, which 
                                   will be treated as the delimiter between 'building' and 
                                   'division'.  
                                 Building NAME's should be kept as short as possible since they will be printed on each bar coded
                                LOCATION LABEL. It will be difficult to fit lengthy building NAME's onto bar code labels of
                                standard size. Assuming three inch width and Code 39 symbology, bar coded LOCATION LABEL's can
                                accomodate about thirteen (13) characters total. In particular, it is suggested that 'division' 
                                designations be no more than two or three characters long.  

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

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

              CROSS-REFERENCE:  ^^TRIGGER^6928.3^.2 
                                1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(6928.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X 
                                S DIU=X K Y X ^DD(6928.3,.01,1,2,1.1) X ^DD(6928.3,.01,1,2,1.4)

                                1.1)= S X=DIV S X=DIV,Y(1)=X S X="-",Y(2)=X S X=2,X=$P(Y(1),Y(2),X)

                                1.4)= S DIH=$S($D(^ENG(6928.3,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,16)=DIV,DIH=6928.3,DIG=.2 D ^
                                DICR:$O(^DD(DIH,DIG,1,0))>0

                                2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(6928.3,D0,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X 
                                S DIU=X K Y S X="" X ^DD(6928.3,.01,1,2,2.4)

                                2.4)= S DIH=$S($D(^ENG(6928.3,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,16)=DIV,DIH=6928.3,DIG=.2 D ^
                                DICR:$O(^DD(DIH,DIG,1,0))>0
                                3)= This field is TRIGGERED by BUILDING NAME.
                                CREATE VALUE)= $P(NAME,"-",2)
                                DELETE VALUE)= @
                                FIELD)= DIV


6928.3,.2     DIVISION               0;16 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?.AN) X
              LAST EDITED:      OCT 16, 1996 
              HELP-PROMPT:      Answer must be 1-5 characters in length. 
              DESCRIPTION:
                                DIVISION (broadly defined) in which this BUILDING is located.  

              WRITE AUTHORITY:  ^
              NOTES:            TRIGGERED by the NAME field of the ENG BUILDING File 

              CROSS-REFERENCE:  6928.3^D 
                                1)= S ^ENG(6928.3,"D",$E(X,1,30),DA)=""
                                2)= K ^ENG(6928.3,"D",$E(X,1,30),DA)


6928.3,.5     OWNERSHIP              0;15 SET

                                'V' FOR VAMC; 
                                'L' FOR LEASED; 
                                'P' FOR PLANNED; 
                                'VBA' FOR VET BENEFITS ADM; 
                                'NCS' FOR NAT CEMETERY SERV; 
                                'O' FOR OTHER; 
              LAST EDITED:      JUN 21, 1996 
              HELP-PROMPT:      Enter the appropriate code for this building ownership. 
              DESCRIPTION:      Denotes whether or not space is being leased, owned by a VA department, or entered for project
                                planning purposes.  


6928.3,1      OWNER                  0;2 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
              LAST EDITED:      MAR 21, 1993 
              HELP-PROMPT:      Answer must be 3-30 characters in length. 
              DESCRIPTION:      The name of the individual, corporation, or government agency that owns the building.  Especially
                                important in the case of leased space.  


6928.3,2      OWNER ADDRESS1         0;3 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
              LAST EDITED:      APR 22, 1993 
              HELP-PROMPT:      Answer must be 3-30 characters in length. 
              DESCRIPTION:
                                Street address of the building's owner (line 1).  


6928.3,3      OWNER ADDRESS2         0;4 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
              LAST EDITED:      APR 22, 1993 
              HELP-PROMPT:      Answer must be 3-30 characters in length. 
              DESCRIPTION:
                                Street address of building's owner (line 2).  


6928.3,4      OWNER CITY             0;5 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
              LAST EDITED:      APR 22, 1993 
              HELP-PROMPT:      Answer must be 3-30 characters in length. 
              DESCRIPTION:
                                Pertains to the building's owner.  


6928.3,5      OWNER STATE            0;6 POINTER TO STATE FILE (#5)

              LAST EDITED:      APR 22, 1993 
              DESCRIPTION:
                                Pertains to building's owner.  


6928.3,5.1    OWNER ZIP CODE         0;14 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5) X
              LAST EDITED:      APR 22, 1993 
              HELP-PROMPT:      Answer must be 5-10 characters in length. 
              DESCRIPTION:
                                Pertains to building's owner.  


6928.3,5.3    PROPERTY ADDRESS1      3;3 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
              LAST EDITED:      APR 22, 1993 
              HELP-PROMPT:      Answer must be 3-30 characters in length. 
              DESCRIPTION:
                                Pertains to address of the property 


6928.3,5.4    PROPERTY ADDRESS2      3;4 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
              LAST EDITED:      APR 22, 1993 
              HELP-PROMPT:      Answer must be 3-30 characters in length. 
              DESCRIPTION:
                                Pertains to address of property 


6928.3,5.5    PROPERTY CITY          3;5 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
              LAST EDITED:      APR 22, 1993 
              HELP-PROMPT:      Answer must be 3-30 characters in length. 
              DESCRIPTION:
                                Pertains to address of property 


6928.3,5.6    PROPERTY STATE         3;6 POINTER TO STATE FILE (#5)

              LAST EDITED:      APR 22, 1993 
              DESCRIPTION:
                                Pertains to State in which property resides 


6928.3,5.7    PROPERTY ZIP CODE      3;7 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5) X
              LAST EDITED:      APR 22, 1993 
              HELP-PROMPT:      Answer must be 5-10 characters in length. 
              DESCRIPTION:
                                Pertains to address of property 


6928.3,6      CONTRACT #             0;7 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>12!($L(X)<3) X
              LAST EDITED:      MAR 21, 1993 
              HELP-PROMPT:      Answer must be 3-12 characters in length. 
              DESCRIPTION:
                                Contract under which building is leased.  


6928.3,7      LEASE TYPE             0;8 SET

                                'C' FOR CAPITAL; 
                                'O' FOR OPERATING; 
                                'OTHER' FOR OTHER; 
              LAST EDITED:      APR 22, 1993 
              DESCRIPTION:
                                Type of leasing agreement.  


6928.3,7.1    LEASE CONTACT PERSON   3;8 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
              LAST EDITED:      APR 22, 1993 
              HELP-PROMPT:      Answer must be 3-30 characters in length. 
              DESCRIPTION:
                                Name of person (Lessor) to contact for information on this lease 


6928.3,7.2    CONTACT PHONE NUMBER   3;9 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>25!($L(X)<7) X
              LAST EDITED:      APR 22, 1993 
              HELP-PROMPT:      Answer must be 7-25 characters in length. 
              DESCRIPTION:
                                Phone number of lessor contact person 


6928.3,7.3    LEASE PROPERTY/SITE NAME 3;10 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
              LAST EDITED:      APR 22, 1993 
              HELP-PROMPT:      Answer must be 3-30 characters in length. 
              DESCRIPTION:      Text name of Property/Building. Common name of site to be used as a more descriptive field than the
                                Building Number field.  


6928.3,8      BASE TERM (MONTHS)     0;9 NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>240)!(X<0)!(X?.E1"."1N.N) X
              LAST EDITED:      MAR 21, 1993 
              HELP-PROMPT:      Type a Number between 0 and 240, 0 Decimal Digits 
              DESCRIPTION:
                                Term of lease.  


6928.3,9      RENEWAL TERM (MONTHS)  0;10 NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>60)!(X<0)!(X?.E1"."1N.N) X
              LAST EDITED:      MAR 21, 1993 
              HELP-PROMPT:      Type a Number between 0 and 60, 0 Decimal Digits 
              DESCRIPTION:
                                Period for which lease may be renewed once the BASE TERM has expired.  


6928.3,10     DATE SIGNED            0;11 DATE

              INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
              LAST EDITED:      MAR 21, 1993 
              DESCRIPTION:
                                Date on which current leasing documents were signed.  


6928.3,11     BEGINNING DATE         0;12 DATE

              INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
              LAST EDITED:      MAR 21, 1993 
              DESCRIPTION:
                                Starting date of current lease.  


6928.3,12     ENDING DATE            0;13 DATE

              INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
              LAST EDITED:      MAR 21, 1993 
              DESCRIPTION:
                                Expiration date of current lease.  


6928.3,13     NET USABLE SQUARE FEET 1;1 NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
              LAST EDITED:      MAR 21, 1993 
              HELP-PROMPT:      Type a Number between 0 and 9999999, 0 Decimal Digits 
              DESCRIPTION:
                                Net Usable area in square feet.  


6928.3,13.5   GROSS SQUARE FEET      3;1 NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
              LAST EDITED:      APR 22, 1993 
              HELP-PROMPT:      Type a Number between 0 and 9999999, 0 Decimal Digits 
              DESCRIPTION:
                                Gross square feet of building.  


6928.3,14     TOTAL RENT (INCLUDE UTILITIES) 1;2 NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
              LAST EDITED:      APR 22, 1993 
              HELP-PROMPT:      Type a Number between 0 and 9999999, 0 Decimal Digits 
              DESCRIPTION:
                                Annual rent paid for use of this building.  Should include all utilities (estimate if necessary).  


6928.3,15     ACTIVATION COSTS       1;3 NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
              LAST EDITED:      APR 22, 1993 
              HELP-PROMPT:      Type a Number between 0 and 9999999, 0 Decimal Digits 
              DESCRIPTION:      Cost of activating this building for VA use.  Total Dollars recieved for activation. Future
                                software releases may provide a more detailed breakdown of activation costs.  


6928.3,16     SPEC. PURPOSE ALTERATION COST 1;4 NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
              LAST EDITED:      APR 22, 1993 
              HELP-PROMPT:      Type a Number between 0 and 9999999, 0 Decimal Digits 
              DESCRIPTION:
                                Cost of making this space usable for a special purpose.  


6928.3,17     PERSONNEL ASSIGNED     1;5 NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>1000)!(X<0)!(X?.E1"."2N.N) X
              LAST EDITED:      MAR 21, 1993 
              HELP-PROMPT:      Type a Number between 0 and 1000, 1 Decimal Digit 
              DESCRIPTION:
                                Engineering FTEE assigned to work in this building.  


6928.3,18     ANCILARY COSTS         1;6 NUMBER

              INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
              LAST EDITED:      APR 28, 1993 
              HELP-PROMPT:      Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits 
              DESCRIPTION:
                                Cost of ancilary services, equipment, maintenance contracts, etc.  


6928.3,19     FUNDING SOURCE         1;7 SET

                                'VACO' FOR VACO REAL ESTATE; 
                                'VAMC' FOR MEDICAL CENTER; 
                                'REG' FOR REGION; 
                                'OTHER' FOR OTHER; 
              LAST EDITED:      APR 21, 1993 
              DESCRIPTION:
                                Funding source for this lease or project.  


6928.3,20     PROJECT NO.            1;8 POINTER TO CONSTRUCTION PROJECT FILE (#6925)

              LAST EDITED:      APR 20, 1993 
              HELP-PROMPT:      Enter a project from the CONSTRUCTION PROJECT file. 
              DESCRIPTION:      A space plan (IMFP) can be entered room by room under a proposed real Building Number or a
                                fabricated Building Number. Each Room in the Space file for this project MUST referance this
                                building number for sorting and planning purposes.  

              EXECUTABLE HELP:  W !!,"Field used to referance a construction project for which a space plan",!,"is being developed"
                                ,!

6928.3,21     REMARKS                2;0   WORD-PROCESSING #6928.321

              DESCRIPTION:
                                General comments pertinent to this building.  


                LAST EDITED:      MAR 21, 1993 




      FILES POINTED TO                      FIELDS

CONSTRUCTION PROJECT (#6925)      PROJECT NO. (#20)

STATE (#5)                        OWNER STATE (#5)
                                  PROPERTY STATE (#5.6)



INPUT TEMPLATE(S):
ENSP-BLDG-P                   APR 22, 1993@14:13  USER #0    

PRINT TEMPLATE(S):
ENSP-BLDG                     APR 21, 1993@13:53  USER #0                                                         ENG BUILDING LIST

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):