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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^ENG("SP"

Package: Engineering

Global: ^ENG("SP"


Information

FileMan FileNo FileMan Filename Package
6928 ENG SPACE Engineering

Description

Directly Accessed By Routines, Total: 50

Package Total Routines
Engineering 40 ^OFM(7336.9    ENARG21    ENARG23    ENBCPM2    ENBCPM7    ENBCPM9    ENCMR    ENEQNX2
ENEQNX4    ENEQNX5    ENEQPMR1    ENEQPMS7    ENEQPMS8    ENETRAN1    ENEWOD    ENEXPT
ENLBL3    ENLBL4    ENLBL6    ENLBL8    ENLBL9    ENPOST    ENSA2    ENSA8
ENSA9    ENSP2    ENSP3    ENTIUTL2    ENWARD2    ENWOD1    ENWONEW2    ENWOP2
ENXLFIX    ENY2K7    ^ENG("SP"    ^ENG(6914    ENWOP3    ENY2REP9    ^ENG(6920    SYNONYM
Equipment Turn-In Request 2 PRCNENG    PRCNUTL1    
Real Time Location System 2 VIAAEAD    VIAAEUT    
Interim Management Support 1 ECTASPC    

Accessed By FileMan Db Calls, Total: 4

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

Pointed To By FileMan Files, Total: 3

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

Pointer To FileMan Files, Total: 6

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)

External References

Name Field # of Occurrence
^%DT 7.5+1, 8.5+1, 9.5+1
EN^DDIOL .01DEL1+1, .01DEL2+1
^DIC .51+1
^DICR .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 3n1.4), .01(XREF 3n2.4), 2.6(XREF 1n1.4), 2.6(XREF 1n2.4), 2.6(XREF 2n1.4), 2.6(XREF 2n2.4)
Y^DIQ ID1.5+1, ID2.6+1
BLDG^ENLIB .01+1
ROOM^ENLIB .01+1
WC^VIAATRI .01(XREF 6S), .01(XREF 6K)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 3n1.4), .01(XREF 3n2.4), 2.6(XREF 1n1.4), 2.6(XREF 1n2.4), 2.6(XREF 2n1.4), 2.6(XREF 2n2.4)
^DD(49 ID1.5+1
^DD(6928 .01(XREF 2S), .01(XREF 3S), .01(XREF 3K), .8+1, 2.6(XREF 1S), 2.6(XREF 1K), 2.6(XREF 2S), 2.6(XREF 2K)
^DD(6928.1 ID2.6+1
^DIC(49 - [#49] ID1.5+1
^ENG("SP" - [#6928] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 3K), .01(XREF 3n2.4), .01(XREF 4S)
, .01(XREF 4K), .01(XREF 5S), .01(XREF 5K), .5+1, .5(XREF 1S), .5(XREF 1K), .51(XREF 1S), .51(XREF 1K), .8OF9.2+1, 1(XREF 1S)
, 1(XREF 1K), 1.5(XREF 1S), 1.5(XREF 1K), 2.6(XREF 1S), 2.6(XREF 1n1.4), 2.6(XREF 1K), 2.6(XREF 1n2.4), 2.6(XREF 2S), 2.6(XREF 2n1.4), 2.6(XREF 2K)
, 2.6(XREF 2n2.4), 4+1, 19(XREF 1S), 19(XREF 1K)
^ENG(6914 - [#6914] .01DEL1+1
^ENG(6920 - [#6920] .01DEL2+1
^ENG(6928.1 - [#6928.1] ID2.6+1, 2.6(XREF 1n1.1), 2.6(XREF 2n1.1)
^ENG(6928.3 - [#6928.3] .01+1, .01(XREF 5S), .01(XREF 5K), .8+1, .8OF9.2+1

Naked Globals

Name Field # of Occurrence
^(0 ID.5+1, ID1+1, ID1.5+1, ID2.6+1, .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 3K)
, .01(XREF 3n2.4), .8+1, .8OF9.2+1, 2.6(XREF 1S), 2.6(XREF 1n1.1), 2.6(XREF 1n1.4), 2.6(XREF 1K), 2.6(XREF 1n2.4), 2.6(XREF 2n1.1), 4+1
^(4 ID2.6+1, 2.6(XREF 2S), 2.6(XREF 2n1.4), 2.6(XREF 2K), 2.6(XREF 2n2.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % 2.6(XREF 1n1.4), 2.6(XREF 1n2.4), 2.6(XREF 2n1.4), 2.6(XREF 2n2.4)
>> %DT 7.5+1*, 8.5+1*, 9.5+1*
%I ID1.5+1*!, ID2.6+1*!
>> C ID1.5+1*, ID2.6+1*
>> D0 .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .8+1*, .8OF9.2+1*, 2.6(XREF 1S), 2.6(XREF 1K), 2.6(XREF 2S), 2.6(XREF 2n1.1)
, 2.6(XREF 2K), 4+1
>> DA .01DEL1+1, .01DEL2+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K)
, .01(XREF 5S), .01(XREF 5K), .01(XREF 6S), .01(XREF 6K), .5+1, .5(XREF 1S), .5(XREF 1K), .51(XREF 1S), .51(XREF 1K), 1(XREF 1S)
, 1(XREF 1K), 1.5(XREF 1S), 1.5(XREF 1K), 2.6(XREF 1S), 2.6(XREF 1K), 2.6(XREF 2S), 2.6(XREF 2K), 19(XREF 1S), 19(XREF 1K)
DIC ID1.5+1, ID2.6+1, .51+1!*
DIC("S" .51+1*, .51SCR+1*
>> DIE .51+1
>> DIG .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 3n1.4), .01(XREF 3n2.4), 2.6(XREF 1n1.4), 2.6(XREF 1n2.4), 2.6(XREF 2n1.4), 2.6(XREF 2n2.4)
>> DIH .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 3n1.4), .01(XREF 3n2.4), 2.6(XREF 1n1.4), 2.6(XREF 1n2.4), 2.6(XREF 2n1.4), 2.6(XREF 2n2.4)
>> DIU .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 2.6(XREF 1S), 2.6(XREF 1n1.4), 2.6(XREF 1K), 2.6(XREF 1n2.4), 2.6(XREF 2S), 2.6(XREF 2n1.4)
, 2.6(XREF 2K), 2.6(XREF 2n2.4)
DIV .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3n1.4), .01(XREF 3K), .01(XREF 3n2.4), 2.6(XREF 1S)
, 2.6(XREF 1n1.1), 2.6(XREF 1n1.4), 2.6(XREF 1K), 2.6(XREF 1n2.4), 2.6(XREF 2S), 2.6(XREF 2n1.1), 2.6(XREF 2n1.4), 2.6(XREF 2K), 2.6(XREF 2n2.4)
DIV(0 .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 3K), .01(XREF 3n2.4), 2.6(XREF 1S), 2.6(XREF 1n1.4), 2.6(XREF 1K)
, 2.6(XREF 1n2.4), 2.6(XREF 2S), 2.6(XREF 2n1.4), 2.6(XREF 2K), 2.6(XREF 2n2.4)
ENX .01(XREF 4S), .01(XREF 4K), .01(XREF 5S), .01(XREF 5K)
ENX1 .01(XREF 5S), .01(XREF 5K)
>> I(0 2.6(XREF 2n1.1)
U ID.5+1, ID1+1, ID1.5+1, ID2.6+1, .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 3S), .01(XREF 3n1.4), .01(XREF 3K)
, .01(XREF 3n2.4), .01(XREF 4S), .01(XREF 5S), .5+1, .8+1, .8OF9.2+1, 2.6(XREF 1S), 2.6(XREF 1n1.1), 2.6(XREF 1n1.4), 2.6(XREF 1K)
, 2.6(XREF 1n2.4), 2.6(XREF 2S), 2.6(XREF 2n1.1), 2.6(XREF 2n1.4), 2.6(XREF 2K), 2.6(XREF 2n2.4), 4+1
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 3S), .01(XREF 3n1.1), .01(XREF 3n1.4)
, .01(XREF 3K), .01(XREF 3n2.4), .01(XREF 4S), .01(XREF 4K), .01(XREF 5S), .01(XREF 5K), .5+1!, .5(XREF 1S), .5(XREF 1K), .51+1*!
, .51(XREF 1S), .51(XREF 1K), .6+1!, .8+1*, 1+1!, 1(XREF 1S), 1(XREF 1K), 1.5(XREF 1S), 1.5(XREF 1K), 2.5+1!
, 2.6(XREF 1S), 2.6(XREF 1n1.1), 2.6(XREF 1n1.4), 2.6(XREF 1K), 2.6(XREF 1n2.4), 2.6(XREF 2S), 2.6(XREF 2n1.1), 2.6(XREF 2n1.4), 2.6(XREF 2K), 2.6(XREF 2n2.4)
, 3+1!, 3.5+1!, 3.7+1!, 4+1*, 4.5+1!, 4.7+1!, 5+1!, 5.5+1!, 6+1!, 7.2+1!
, 7.5+1*!, 8.2+1!, 8.5+1*!, 9.2+1!, 9.5+1*!, 11+1!, 12+1!, 13+1!, 13.5+1!, 19+1!
, 19(XREF 1S), 19(XREF 1K)
Y ID1.5+1*, ID2.6+1*, .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .51+1, 2.6(XREF 1S), 2.6(XREF 1K), 2.6(XREF 2S)
, 2.6(XREF 2K), 7.5+1, 8.5+1, 9.5+1
Y(1 .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2K), .01(XREF 3S), .01(XREF 3n1.1), .01(XREF 3K), 2.6(XREF 1S), 2.6(XREF 1K), 2.6(XREF 2S), 2.6(XREF 2K)
Y(101 2.6(XREF 2n1.1)
Y(2 .01(XREF 2n1.1), .01(XREF 3n1.1)
Y(4 4+1*
Y(6928 .8+1*, .8OF9.2+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All