Global: ^ENG("SP"

FileMan FileNo	FileMan Filename	Package
6928	ENG SPACE	Engineering

Package	Total	Routines
Engineering	3	ENLBL6 ENTIUTL ENXIP62
Real Time Location System	1	VIAAEUT

Package	Total	FileMan Files
Engineering	2	EQUIPMENT INV.(#6914)[24] WORK ORDER #(#6920)[3]
Equipment Turn-In Request	1	EQUIPMENT REQUEST(#413)[26.5]

Package	Total	FileMan Files
Engineering	5	LOCKS(#6927)[2] ENG SPACE FUNCTIONS(#6928.1)[2.6] ENG SPACE UTILITIES(#6928.2)[#6928.01(.01)] ENG BUILDING(#6928.3)[.51] OFM H089 CHAPTERS(#7336.6)[4.9]
Kernel	1	SERVICE/SECTION(#49)[1.5]

Fields, Total: 42

Field #	Name	Loc	Type	Details
.01	ROOM NUMBER	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($L(X)>20)!($L(X)<3) X I $D(X) D ROOM^ENLIB I $D(X),$P(X,"-",2)'="",'$D(^ENG(6928.3,"B",$P(X,"-",2,3))) D BLDG^ENLIB K X` LAST EDITED: `DEC 10, 2015` HELP-PROMPT: `Enter a room number, 3-20 characters in length.` DESCRIPTION: `Identifier of a physical location (room). With the advent of bar coding, it is essential that this field uniquely and unambiguously specify a particular location. Entries may consist of one, two, or three pieces. Hyphens` `(if present) are treated as delimiters between pieces. First piece (always present) is room designation, second piece (optional) is building designation, and third piece (optional) is division designation (may be used for` `outpatient clinics, regional offices, etc. as well as for formal divisions).` `It is anticipated that most sites will use two piece entries. True single-building facilities may use one-piece entries. Multi-division facilities and sites supporting remote offices where duplicate building numbers may be` `a problem should use three-piece entries.` `Entry of a two-piece ROOM NUMBER will automatically populate the BUILDING field. Entry of a three-piece ROOM NUMBER will automatically populate the BUILDING and DIVISION fields.` `Hyphens must not be used as anything other than delimiters between ROOM, BUILDING, and DIVISION.` EXECUTABLE HELP: `W !!,"Enter as 'ROOM-BUILDING' or 'ROOM-BUILDING-DIVISION' at two-division",!,"facilities and other sites where building numbers may be duplicated. The",!,"Building File (6928.3) is used for data validation."` DELETE TEST: `1,0)= I $D(^ENG(6914,"D",DA)) D EN^DDIOL("Can't delete because EQUIPMENT file (#6914) entries point to this location.") I 1` `2,0)= I $D(^ENG(6920,"C",DA)) D EN^DDIOL("Can't delete because WORK ORDER file (#6920) entries point to this location.") I 1` GROUP: `{` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `6928^B` `1)= S ^ENG("SP","B",$E(X,1,30),DA)=""` `2)= K ^ENG("SP","B",$E(X,1,30),DA)` CROSS-REFERENCE: `^^TRIGGER^6928^.5` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("SP",D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(6928,.01,1,2,1.1) X ^DD(6928,.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("SP",DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=6928,DIG=.5 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("SP",D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" S DIH=$S($D(^ENG("SP",DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=6928,DIG=.5 D ^DICR:$O(^DD(DIH,DIG` `,1,0))>0` `CREATE VALUE)= $P(ROOM NUMBER,"-",2)` `DELETE VALUE)= @` `FIELD)= #.5` CROSS-REFERENCE: `^^TRIGGER^6928^.6` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("SP",D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(6928,.01,1,3,1.1) X ^DD(6928,.01,1,3,1.4)` `1.1)= S X=DIV S X=DIV,Y(1)=X S X="-",Y(2)=X S X=3,X=$P(Y(1),Y(2),X)` `1.4)= S DIH=$S($D(^ENG("SP",DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,10)=DIV,DIH=6928,DIG=.6 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("SP",D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="" X ^DD(6928,.01,1,3,2.4)` `2.4)= S DIH=$S($D(^ENG("SP",DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,10)=DIV,DIH=6928,DIG=.6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= $P(ROOM NUMBER,"-",3)` `DELETE VALUE)= @` `FIELD)= #.6` CROSS-REFERENCE: `6928^AC^MUMPS` `1)= N ENX S ENX=$P(X,"-",3)_":"_$P(X,"-",2)_":"_$P(X,"-"),$P(^ENG("SP",DA,9),U)=ENX,^ENG("SP","AD",ENX,DA)=""` `2)= N ENX S ENX=$P(X,"-",3)_":"_$P(X,"-",2)_":"_$P(X,"-") K ^ENG("SP","AD",ENX,DA)` `To facilitate sorting by DIVISION first, then BUILDING, then ROOM. This x-ref automatically maintains the INVERSE LOCATION field.` CROSS-REFERENCE: `6928^AF^MUMPS` `1)= N ENX,ENX1 S ENX=$P(X,"-",2,3) I ENX]"" S ENX1=$O(^ENG(6928.3,"B",ENX,0)),$P(^ENG("SP",DA,0),U,14)=ENX1 S:ENX1]"" ^ENG("SP","AE",ENX1,DA)="" Q` `2)= N ENX,ENX1 S ENX=$P(X,"-",2,3) I ENX]"" S ENX1=$O(^ENG(6928.3,"B",ENX,0)) K:ENX1]"" ^ENG("SP","AE",ENX1,DA) Q` `Set the BUILDING FILE POINTER field on basis of ROOM NUMBER.` CROSS-REFERENCE: `6928^AG^MUMPS` `1)= D WC^VIAATRI(6928,DA)` `2)= D WC^VIAATRI(6928,DA)` `NOREINDEX)= 1` `After the ROOM NUMBER is changed a notification is sent out to update the Real Time Location System (RTLS) database.`
.5	BUILDING NUMBER	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X),X'=$P($P(^ENG("SP",DA,0),U),"-",2) W " Inconsistent with ROOM NUMBER" K X` LAST EDITED: `JUL 21, 1993` HELP-PROMPT: `Must match the BUILDING segment in the ROOM NUMBER.` DESCRIPTION: `Assigned number of the BUILDING. This field is populated automatically when ROOM NUMBERS are entered as 'ROOM-BUILDING'.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `TRIGGERED by the ROOM NUMBER field of the ENG SPACE File` CROSS-REFERENCE: `6928^E` `1)= S ^ENG("SP","E",$E(X,1,30),DA)=""` `2)= K ^ENG("SP","E",$E(X,1,30),DA)`
.51	BUILDING FILE POINTER	0;14	POINTER TO ENG BUILDING FILE (#6928.3)	ENG BUILDING(#6928.3) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U)=$P(^ENG(""SP"",DA,0),""-"",2,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 22, 1993` DESCRIPTION: `Used primarily for LEASED SPACE functions. Automatically maintained on the basis of the ROOM NUMBER field (.01).` SCREEN: `S DIC("S")="I $P(^(0),U)=$P(^ENG(""SP"",DA,0),""-"",2,3)"` EXPLANATION: `Pointer must be consistent with ROOM NUMBER.` `WRITE AUTHORITY: ^` CROSS-REFERENCE: `6928^AE` `1)= S ^ENG("SP","AE",$E(X,1,30),DA)=""` `2)= K ^ENG("SP","AE",$E(X,1,30),DA)`
.6	DIVISION	0;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<1)!'(X?.AN) X` LAST EDITED: `AUG 03, 1990` HELP-PROMPT: `ANSWER MUST BE 1-5 CHARACTERS IN LENGTH` DESCRIPTION: `The division designator. Intended for use at multi-division facilities. This field is populated automatically when ROOM NUMBERS are entered as 'ROOM-BUILDING-DIVISION'. Division designators should not be any longer than` `necessary.` NOTES: `TRIGGERED by the ROOM NUMBER field of the ENG SPACE File`
.8	LESSOR		COMPUTED	MUMPS CODE: `X ^DD(6928,.8,9.2) S Y(6928,.8,101)=$S($D(^ENG(6928.3,D0,0)):^(0),1:"") S X=$P(Y(6928,.8,101),U,2) S D0=Y(6928,.8,80)` `9.2 = S Y(6928,.8,80)=$S($D(D0):D0,1:""),Y(6928,.8,1)=$S($D(^ENG("SP",D0,0)):^(0),1:""),D0=$P(Y(6928,.8,1),U,14) S:'$D(^ENG(6928.3,+D0,0)) D0=-1` ALGORITHM: `.51:1` DESCRIPTION: `Owner of leased space.`
1	WING	0;3	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X` LAST EDITED: `MAY 27, 1988` HELP-PROMPT: `ANSWER MUST BE 1-10 CHARACTERS IN LENGTH` DESCRIPTION: `Intended as a means of defining functional groupings of physical locations. WING's may or may not equate to an extension or annex of a building, and/or a clinical specialty area (ex: surgical wing) of a hospital. Used in` `the Equipment Management Module. In sorting a Preventive Maintenance Worklist by LOCATION, the system will attempt to sort by WING rather than ROOM NUMBER.` CROSS-REFERENCE: `6928^C` `1)= S ^ENG("SP","C",$E(X,1,30),DA)=""` `2)= K ^ENG("SP","C",$E(X,1,30),DA)`
1.5	SERVICE	0;4	POINTER TO SERVICE/SECTION FILE (#49)	SERVICE/SECTION(#49) LAST EDITED: `APR 25, 1990` DESCRIPTION: `Service to whom space is assigned.` CROSS-REFERENCE: `6928^D` `1)= S ^ENG("SP","D",$E(X,1,30),DA)=""` `2)= K ^ENG("SP","D",$E(X,1,30),DA)`
2	KEY	0;5	POINTER TO LOCKS FILE (#6927)	LOCKS(#6927) LAST EDITED: `MAY 08, 1985` HELP-PROMPT: `SELECT KEY THAT OPERATES LOCK TO THIS ROOM` DESCRIPTION: `Lock/key combination in use for this space.`
2.1	OTHER KEY	5;0	Multiple #6928.03	6928.03 LAST EDITED: `JUN 17, 1985` HELP-PROMPT: `ANSWER MUST BE 1-5 CHARACTERS IN LENGTH` DESCRIPTION: `Use this field if this rooms lock has been combinated with a key that crosses over to a lock other than the lock selected for this room.`
2.5	FUNCTION(FREE TEXT)	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3)!(X'?.ANP) X` LAST EDITED: `DEC 06, 1984` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH` DESCRIPTION: `This free text field is triggered by the FUNCTION field of this file.` `.` `.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `TRIGGERED by the FUNCTION field of the ENG SPACE File`
2.6	FUNCTION	4;1	POINTER TO ENG SPACE FUNCTIONS FILE (#6928.1)	ENG SPACE FUNCTIONS(#6928.1) LAST EDITED: `JUN 09, 1988` HELP-PROMPT: `SELECT FUNCTION THAT BEST FITS THE USE OF THE ROOM` DESCRIPTION: `This field points to function file for selection of rooms primary use.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `^^TRIGGER^6928^2.5` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("SP",D0,0)):^(0),1:"") S X=$P(Y(1),U,6) S DIU=X K Y X ^DD(6928,2.6,1,1,1.1) X ^DD(6928,2.6,1,1,1.4)` `1.1)= S X=DIV S X=$S('$D(^ENG(6928.1,+DIV,0)):"",1:$P(^(0),U,1))` `1.4)= S DIH=$S($D(^ENG("SP",DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99)) S DIH=DIH_U" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(0)=$P(DIH,U,1,5)_U_DIV_$S(%]"":U_%,1:""),DIH=6928,DIG=2.5 D ^DICR:$N(^DD(DIH,DIG,1` `,0))>0` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("SP",D0,0)):^(0),1:"") S X=$P(Y(1),U,6) S DIU=X K Y S X=DIV S X="" X ^DD(6928,2.6,1,1,2.4)` `2.4)= S DIH=$S($D(^ENG("SP",DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99)) S DIH=DIH_U" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(0)=$P(DIH,U,1,5)_U_DIV_$S(%]"":U_%,1:""),DIH=6928,DIG=2.5 D ^DICR:$N(^DD(DIH,DIG,1` `,0))>0` `CREATE VALUE)= USE` `DELETE VALUE)= @` `FIELD)= FUNCTION` CROSS-REFERENCE: `^^TRIGGER^6928^4.7` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("SP",D0,4)):^(4),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(6928,2.6,1,2,1.1) X ^DD(6928,2.6,1,2,1.4)` `1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ENG(6928.1,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6928.1,D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0)` `1.4)= S DIH=$S($D(^ENG("SP",DIV(0),4)):^(4),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,3,99)) S DIH=DIH_U" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(4)=$P(DIH,U,1,3)_U_DIV_$S(%]"":U_%,1:""),DIH=6928,DIG=4.7 D ^DICR:$N(^DD(DIH,DIG,1` `,0))>0` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG("SP",D0,4)):^(4),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(6928,2.6,1,2,2.4)` `2.4)= S DIH=$S($D(^ENG("SP",DIV(0),4)):^(4),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,3,99)) S DIH=DIH_U" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(4)=$P(DIH,U,1,3)_U_DIV_$S(%]"":U_%,1:""),DIH=6928,DIG=4.7 D ^DICR:$N(^DD(DIH,DIG,1` `,0))>0` `CREATE VALUE)= FUNCTION:CRITERIA` `DELETE VALUE)= @` `FIELD)= SPACE GUIDE`
3	LENGTH IN FT.	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."2N.N) X` HELP-PROMPT: `TYPE A NUMBER BETWEEN 1 AND 999` DESCRIPTION: `Measured room length (feet).`
3.5	WIDTH IN FT.	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."2N.N) X` HELP-PROMPT: `TYPE A NUMBER BETWEEN 1 AND 999` DESCRIPTION: `Measured room width (feet).`
3.7	CEILING HT	4;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."2N.N) X` LAST EDITED: `JUL 07, 1999` HELP-PROMPT: `Type a Number between 1 and 99, 1 Decimal Digit` DESCRIPTION: `Distance from floor to ceiling (feet).`
4	COMPUTED SQ.FT.		COMPUTED	MUMPS CODE: `S Y(4,1)=$S($D(^ENG("SP",D0,0)):^(0),1:"") S X=$P(Y(4,1),U,7)$P(Y(4,1),U,8) S X=$J(X,0,1)` ALGORITHM: `#3#3.5 (ALWAYS 1 DECIMAL DIGITS)` DESCRIPTION: `Square footage of this location. Computed by system.`
4.5	NET SQ.FT.	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."2N.N) X` HELP-PROMPT: `TYPE A NUMBER BETWEEN 1 AND 9999999` DESCRIPTION: `Actual net square footage for this room. May be compared to Criteria if Criteria (IMFP) has been calculated and entered. Should equal computed square footage minus any unusable area(s).`
4.7	SPACE GUIDE	4;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 14, 1985` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 999999` DESCRIPTION: `Net Square feet for this room/function as per IMFP space criteria` NOTES: `TRIGGERED by the FUNCTION field of the ENG SPACE File`
4.9	H-08-9 CRITERIA	9;2	POINTER TO OFM H089 CHAPTERS FILE (#7336.6)	OFM H089 CHAPTERS(#7336.6) LAST EDITED: `APR 20, 1993` DESCRIPTION: `Criteria Chapter from H-08-9 Space Planning Criteria. Especially important when entering a project space plan (IMFP).`
5	BEDS	2;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>24)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 13, 1984` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 24` DESCRIPTION: `Number of beds in this room.`
5.5	BED TYPE	0;17	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<1)!'(X?.ANP) X` LAST EDITED: `MAY 29, 1985` HELP-PROMPT: `ANSWER MUST BE 1-12 CHARACTERS IN LENGTH` DESCRIPTION: `Descriptor of the kind of beds found in this room (PSYCH, NHCU, etc.).`
6	SPECIAL CHARACTERISTICS	2;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<5)!(X'?.ANP) X` LAST EDITED: `DEC 06, 1984` HELP-PROMPT: `ANSWER MUST BE 5-30 CHARACTERS IN LENGTH` DESCRIPTION: `Special characteristics of this location, as defined by each facility.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
7	WALL	2;4	SET	'VP' FOR VINYL PAPER; 'CT' FOR CERAMIC TILE; 'PT' FOR PAINT; 'WP' FOR WOOD PANELLING; 'BL' FOR BLOCK; 'PL' FOR PLASTER; 'OT' FOR OTHER; LAST EDITED: `SEP 13, 1984` DESCRIPTION: `Type of wall covering or treatments.`
7.2	WALL FINISH DESCRIPTION	7;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<3) X` LAST EDITED: `FEB 14, 1991` HELP-PROMPT: `Answer must be 3-15 characters in length.` DESCRIPTION: `Brief (15 character max) descriptor of wall finishing.`
7.5	WALL REPLACEMENT DATE	0;11	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 08, 1985` HELP-PROMPT: `ENTER PROJECTED REPLACEMENT DATE FOR WALL FINISH` DESCRIPTION: `Scheduled date for replacement of wall covering or treatment.`
8	FLOOR	2;5	SET	'CP' FOR CARPET; 'TL' FOR TILE; 'CT' FOR CERAMIC TILE; 'CE' FOR CONCRETE; 'SV' FOR SHEET VINYL; 'CF' FOR CONDUCTIVE FLOORING; 'TE' FOR TERRAZZO; LAST EDITED: `SEP 13, 1984` DESCRIPTION: `TYPE OF FLOOR FINISH MATERIAL`
8.2	FLOOR FINISH DESCRIPTION	7;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<2) X` LAST EDITED: `FEB 14, 1991` HELP-PROMPT: `Answer must be 2-15 characters in length.` DESCRIPTION: `Brief (15 character max) descriptor of flooring. Locally defined.`
8.5	FLOOR REPLACEMENT DATE	0;12	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 08, 1985` HELP-PROMPT: `ENTER PROJECTED REPLACEMENT DATE FOR FLOOR COVERING` DESCRIPTION: `Scheduled replacement date for floor covering.`
9	CEILING	2;6	SET	'G' FOR GRID; 'P' FOR PLASTER; 'C' FOR CONCRETE; 'O' FOR OTHER; LAST EDITED: `SEP 13, 1984` DESCRIPTION: `Type of ceiling found in this room.`
9.2	CEILING FINISH DESCRIPTION	7;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<3) X` LAST EDITED: `FEB 14, 1991` HELP-PROMPT: `Answer must be 3-15 characters in length.` DESCRIPTION: `Brief descriptor of ceiling finish. Locally defined.`
9.5	CEILING REPLACEMENT DATE	0;13	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 08, 1985` HELP-PROMPT: `ENTER PROJECTED REPLACEMENT DATE FOR CEILING TILE OR FINISH.` DESCRIPTION: `Scheduled date for replacement of existing ceiling.`
10	LIGHTING	6;0	SET Multiple #6928.04	6928.04 LAST EDITED: `SEP 13, 1984` DESCRIPTION: `Type and quantity of permanent light fixtures.`
11	WINDOWS	2;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 13, 1984` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 99` DESCRIPTION: `Number of outside windows in this room.`
11.5	WINDOW TYPE	0;16	SET	'SS' FOR SINGLE HUNG/SINGLE GLAZED; 'SD' FOR SINGLE HUNG/DOUBLE GLAZED; 'DS' FOR DOUBLE HUNG/SINGLE GLAZED; 'DD' FOR DOUBLE HUNG/DOUBLE GLAZED; 'O' FOR OTHER; LAST EDITED: `SEP 14, 1985` HELP-PROMPT: `SELECT MOST APPROPRIATE WINDOW TYPE` DESCRIPTION: `Type of window (if any) found in this room.`
12	DRAPES	2;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 13, 1984` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 99` DESCRIPTION: `Number of draperies (sets) found in this room.`
13	CUB. CTNS.	2;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 13, 1984` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 99` DESCRIPTION: `Number of ceiling mounted cubicle curtains found in this room.`
13.5	DOORS	0;18	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 29, 1985` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 9` DESCRIPTION: `Number of doors in this room.`
14	UTILITIES	1;0	POINTER Multiple #6928.01	6928.01 LAST EDITED: `APR 09, 1985` DESCRIPTION: `Standard hospital utilities, selected from a file of same.`
15	BLDG MNGT AMIS CLASS	4;3	SET	'1' FOR PSYCHIATRY; '2' FOR INTERMEDIATE; '3' FOR MEDICINE; '4' FOR NEUROLOGY; '5' FOR R.M.S.; '6' FOR S.C.I.; '7' FOR SURGERY; '8' FOR N.H.C.U.; '9' FOR DOMICILIARY; '10' FOR CLINICS; '11' FOR DENTAL; '12' FOR RESEARCH; '13' FOR ADMIN.; '14' FOR OTHER; LAST EDITED: `APR 29, 1990` DESCRIPTION: `Entry indicates one of the 14 divisions on the AMIS form VA-10-6007a. This will be used to generate a report from the Space Survey Report menu for use by Building Management Service for quarterly AMIS reporting.`
16	RCS 10-0141(14-4)	2;13	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `AUG 31, 1985` HELP-PROMPT: `ENTER "Y" IF OWING SERVICE IS REPORTABLE ON RCS 10-0141 REPORT. (OLD RCS 14-4)` DESCRIPTION: `Indicator of whether or not RCS 10-0141(14-4) report is to be produced from the Engineering Package.`
17	COMMENTS	3;0	WORD-PROCESSING #6928.02	DESCRIPTION: `General comments pertinent to this location.` LAST EDITED: `MAY 29, 1985`
18	SYNONYM	8;0	Multiple #6928.018	6928.018 DESCRIPTION: `Alternative (informal) designations of physical locations. For example, room 214A-137 may be better known as room 1 of the MICU. In this case, you could use MICU-1 as a synonym for room 214A-137.`
19	INVERSE LOCATION	9;1	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<3) X` LAST EDITED: `MAR 18, 1993` HELP-PROMPT: `Answer must be 3-20 characters in length.` DESCRIPTION: `Reversal of the standard room descriptor, using full colons as separators. Result is of the form 'DIVISION:BUILDING:ROOM'. Maintained by the system automatically. Intended for use in FileMan print specifications.` `UNEDITABLE` CROSS-REFERENCE: `6928^AD` `1)= S ^ENG("SP","AD",$E(X,1,30),DA)=""` `2)= K ^ENG("SP","AD",$E(X,1,30),DA)`

Customize PDF page

Package: Engineering

Global: ^ENG("SP"

Information

Description

Accessed By FileMan Db Calls, Total: 4

Pointed To By FileMan Files, Total: 3

Pointer To FileMan Files, Total: 6

Fields, Total: 42