Global: ^ENG(6928.3

FileMan FileNo	FileMan Filename	Package
6928.3	ENG BUILDING	Engineering

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

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`

Customize PDF page

Package: Engineering

Global: ^ENG(6928.3

Information

Description

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 2

Fields, Total: 34

ICR, Total: 1