STANDARD DATA DICTIONARY #6928 -- ENG SPACE FILE 3/24/25 PAGE 1
STORED IN ^ENG("SP", *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 7.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Main file used by the space module. It contains detailed information on each room within the Medical Center.
DD ACCESS: #
WR ACCESS: E
DEL ACCESS: E
LAYGO ACCESS: E
IDENTIFIED BY: BUILDING NUMBER (#.5), WING (#1), SERVICE (#1.5), FUNCTION (#2.6)
POINTED TO BY: SPACE FILE PTR. field (#26.5) of the EQUIPMENT REQUEST File (#413)
LOCATION field (#24) of the EQUIPMENT INV. File (#6914)
LOCATION field (#3) of the WORK ORDER # File (#6920)
CROSS
REFERENCED BY: ROOM NUMBER(AC), INVERSE LOCATION(AD), BUILDING FILE POINTER(AE), ROOM NUMBER(AF), ROOM NUMBER(AG),
ROOM NUMBER(B), WING(C), SERVICE(D), BUILDING NUMBER(E), SYNONYM(F)
LAST MODIFIED: DEC 1,2017@12:46:38
6928,.01 ROOM NUMBER 0;1 FREE TEXT (Required)
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 va
lidation."
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 poin
t 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 D
IU=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 D
IU=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.
6928,.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)
6928,.51 BUILDING FILE POINTER 0;14 POINTER TO ENG BUILDING FILE (#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)
6928,.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
6928,.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(692
8,.8,1),U,14) S:'$D(^ENG(6928.3,+D0,0)) D0=-1
ALGORITHM: .51:1
DESCRIPTION:
Owner of leased space.
6928,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)
6928,1.5 SERVICE 0;4 POINTER TO SERVICE/SECTION FILE (#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)
6928,2 KEY 0;5 POINTER TO LOCKS FILE (#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.
6928,2.1 OTHER KEY 5;0 Multiple #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.
6928.03,.01 OTHER KEY 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1)!'(X?1AN.ANP) X
LAST EDITED: JUL 07, 1999
HELP-PROMPT: Answer must be 1-20 characters in length.
EXECUTABLE HELP:W !,"Enter multiple free text entries for other keys that have been added to this",!,"Lock other th
an the one selected in the KEY field. The KEY field is a pointer",!,"to the LOCK file"
6928,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
6928,2.6 FUNCTION 4;1 POINTER TO ENG SPACE FUNCTIONS FILE (#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 D
IU=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(^EN
G(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 D
IU=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
6928,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).
6928,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).
6928,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).
6928,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.
6928,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).
6928,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
6928,4.9 H-08-9 CRITERIA 9;2 POINTER TO OFM H089 CHAPTERS FILE (#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).
6928,5 BEDS 2;2 NUMBER
B E D
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.
6928,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.).
6928,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
6928,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.
6928,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.
6928,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.
6928,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
6928,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.
6928,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.
6928,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.
6928,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.
6928,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.
6928,10 LIGHTING 6;0 SET Multiple #6928.04
LAST EDITED: SEP 13, 1984
DESCRIPTION:
Type and quantity of permanent light fixtures.
6928.04,.01 LIGHTING 0;1 SET (Multiply asked)
'F' FOR FLOURESCENT;
'I' FOR INCANDESCENT;
'O' FOR OTHER;
LAST EDITED: MAY 02, 1986
6928.04,1 FIXTURE QTY 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: SEP 14, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99
DESCRIPTION:
Number of permanent light fixtures.
6928.04,2 WATTAGE 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 10, 1992
HELP-PROMPT: Type a Number between 1 and 9999, 0 Decimal Digits
DESCRIPTION:
Wattage of each light fixture.
6928,11 WINDOWS 2;8 NUMBER
W N D
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.
6928,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.
6928,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.
6928,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.
6928,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.
6928,14 UTILITIES 1;0 POINTER Multiple #6928.01
LAST EDITED: APR 09, 1985
DESCRIPTION:
Standard hospital utilities, selected from a file of same.
6928.01,.01 UTILITIES 0;1 POINTER TO ENG SPACE UTILITIES FILE (#6928.2) (Multiply asked)
LAST EDITED: APR 29, 1986
HELP-PROMPT: CHOOSE UTILITIES THAT ARE AVAILABLE IN THIS SPACE
6928,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.
6928,16 RCS 10-0141(14-4) 2;13 SET
14 -4
'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.
6928,17 COMMENTS 3;0 WORD-PROCESSING #6928.02
DESCRIPTION:
General comments pertinent to this location.
LAST EDITED: MAY 29, 1985
6928,18 SYNONYM 8;0 Multiple #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.
6928.018,.01 SYNONYM 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
LAST EDITED: NOV 06, 1992
HELP-PROMPT: Answer must be 3-30 characters in length.
CROSS-REFERENCE: 6928.018^B
1)= S ^ENG("SP",DA(1),8,"B",$E(X,1,30),DA)=""
2)= K ^ENG("SP",DA(1),8,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 6928^F
1)= S ^ENG("SP","F",$E(X,1,30),DA(1),DA)=""
2)= K ^ENG("SP","F",$E(X,1,30),DA(1),DA)
6928,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)
FILES POINTED TO FIELDS
ENG BUILDING (#6928.3) BUILDING FILE POINTER (#.51)
ENG SPACE FUNCTIONS (#6928.1) FUNCTION (#2.6)
ENG SPACE UTILITIES (#6928.2) UTILITIES:UTILITIES (#.01)
LOCKS (#6927) KEY (#2)
OFM H089 CHAPTERS (#7336.6) H-08-9 CRITERIA (#4.9)
SERVICE/SECTION (#49) SERVICE (#1.5)
INPUT TEMPLATE(S):
ENSPENTER APR 21, 1993@08:55 USER #0
PRINT TEMPLATE(S):
ENSP-H08-9 APR 20, 1993@22:08 USER #0 SPACE PLANNING PRINTOUT
ENSP-ROOM-LOCK DEC 10, 1989@20:47 USER #0 ROOM/LOCK/FUNCTION REPORT
ENSPFRD SEP 27, 1991@10:51 USER #0 ROOM FINISH REPLACEMENT SCHEDULE
ENSPFRDCEILING SEP 27, 1991@10:54 USER #0 CEILING FINISH REPLACEMENT SCHEDULE
ENSPFRDDWALL SEP 01, 1985 USER #0 WALL REPLACEMENT FININISH SCHEDULE
ENSPFRDFLOOR SEP 27, 1991@10:54 USER #0 FLOOR FINISH REPLACEMENT SCHEDULE
ENSPFRDWALL SEP 27, 1991@10:55 USER #0 WALL REPLACEMENT FINISH SCHEDULE
ENSPR144 APR 29, 1990@18:58 USER #0 ENG SPACE STATISTICS
ENSPRM MAY 19, 1993@13:18 USER #5 ENGINEERING SPACE INVENTORY (132 col.)
SORT TEMPLATE(S):
ENLEASE MAR 22, 1993@22:08 USER #0
SORT BY: #+.51:.5;"OWNERSHIP: "// From 'L' To 'LZ^LZ'
WITHIN .51:.5, SORT BY: @DIVISION// From '@' To 'z^'
WITHIN DIVISION, SORT BY: BUILDING NUMBER// (User is asked range)
WITHIN BUILDING NUMBER, SORT BY: @ROOM NUMBER// (User is asked range)
FORM(S)/BLOCK(S):