Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^ENG(6928.3

Package: Engineering

Global: ^ENG(6928.3


Information

FileMan FileNo FileMan Filename Package
6928.3 ENG BUILDING Engineering

Description

Directly Accessed By Routines, Total: 8

Package Total Routines
Engineering 8 ENPL1    ^ENG("SP"    ^OFM(7336.9    ENEQPMS3    ENLBL4    ENLEASE    ^ENG(6928.3    ENSPSRT

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Engineering 3 ENLBL4    ENSP6    ENXPIPS    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Engineering 2 CONSTRUCTION PROJECT(#6925)[#6925.0177(.01)]    ENG SPACE(#6928)[.51]    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Engineering 1 CONSTRUCTION PROJECT(#6925)[20]    
Kernel 1 STATE(#5)[5, 5.6]    

Fields, Total: 34

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • 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
.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)
.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.
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.
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).
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).
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.
5 OWNER STATE 0;6 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  APR 22, 1993
  • DESCRIPTION:  
    Pertains to building's owner.
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.
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
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
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
5.6 PROPERTY STATE 3;6 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  APR 22, 1993
  • DESCRIPTION:  
    Pertains to State in which property resides
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
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.
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.
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
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
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.
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.
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.
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.
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.
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.
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.
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.
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).
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.
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.
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.
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.
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.
20 PROJECT NO. 1;8 POINTER TO CONSTRUCTION PROJECT FILE (#6925) CONSTRUCTION PROJECT(#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",!
21 REMARKS 2;0 WORD-PROCESSING #6928.321

  • DESCRIPTION:  
    General comments pertinent to this building.
  • LAST EDITED:  MAR 21, 1993

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #3665
  • M DATA EXTRACTOR
  • ABOVE PAR
    		•  'D' cross reference for field DIVISION (#.2)

    External References

    Name Field # of Occurrence
    ^%DT 10+1, 11+1, 12+1
    EN^DDIOL .01+1
    ^DICR .01(XREF 2n1.4), .01(XREF 2n2.4)
    BLDG^ENLIB1 .01+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( .01(XREF 2n1.4), .01(XREF 2n2.4)
    ^DD(6928.3 .01(XREF 2S), .01(XREF 2K)
    ^ENG(6928.3 - [#6928.3] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .2(XREF 1S), .2(XREF 1K)

    Naked Globals

    Name Field # of Occurrence
    ^(0 .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT 10+1*, 11+1*, 12+1*
    >> D0 .01(XREF 2S), .01(XREF 2K)
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .2(XREF 1S), .2(XREF 1K)
    >> DIG .01(XREF 2n1.4), .01(XREF 2n2.4)
    >> DIH .01(XREF 2n1.4), .01(XREF 2n2.4)
    >> DIU .01(XREF 2S), .01(XREF 2K)
    DIV .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4)
    DIV(0 .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4)
    U .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4)
    X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .2+1!, .2(XREF 1S)
    , .2(XREF 1K), 1+1!, 2+1!, 3+1!, 4+1!, 5.1+1!, 5.3+1!, 5.4+1!, 5.5+1!, 5.7+1!
    , 6+1!, 7.1+1!, 7.2+1!, 7.3+1!, 8+1!, 9+1!, 10+1*!, 11+1*!, 12+1*!, 13+1!
    , 13.5+1!, 14+1!, 15+1!, 16+1!, 17+1!, 18+1*!
    Y .01(XREF 2S), .01(XREF 2K), 10+1, 11+1, 12+1
    Y(1 .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2K)
    Y(2 .01(XREF 2n1.1)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All