STANDARD DATA DICTIONARY #42 -- WARD LOCATION FILE 3/24/25 PAGE 1
STORED IN ^DIC(42, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains all the facility ward locations and their related data, i.e., Operating Beds, Bedsection, etc. The wards are
created/edited using the WARD DEFINITION option of the ADT module.
DD ACCESS: @
RD ACCESS: d
WR ACCESS: D
DEL ACCESS: @
LAYGO ACCESS: D
IDENTIFIED BY: HOSPITAL LOCATION FILE POINTER (#44)[R], G&L ORDER (#400)
POINTED TO BY: WARD field (#8) of the SCHEDULED ADMISSION File (#41.1)
NAME field (#.01) of the CENSUS File (#41.9)
HEMODIALYSIS WARD field (#3) of the MAS PARAMETERS File (#43)
WARD LOCATION FILE POINTER field (#42) of the HOSPITAL LOCATION File (#44)
LOSING WARD field (#6) of the 535 sub-field (#45.0535) of the PTF File (#45)
WARD ON CENSUS DATE field (#.06) of the CENSUS WORKFILE File (#45.85)
LOCATION field (#70) of the PAF File (#45.9)
VISTA WARD NAME field (#.01) of the RAI MDS WARD TRANSLATION File (#46.12)
WARD field (#5) of the TRANSACTION NUMBER sub-field (#50.802) of the PATIENT sub-field (#50.801) of the IV STATS
File (#50.8)
WARD field (#.01) of the WARD sub-field (#50.804) of the DATE sub-field (#50.803) of the IV STATS File (#50.8)
WARD RETURNS field (#4) of the WARD sub-field (#50.804) of the DATE sub-field (#50.803) of the IV STATS File (#50.8)
WARD DESTROYED field (#8) of the WARD sub-field (#50.804) of the DATE sub-field (#50.803) of the IV STATS File
(#50.8)
WARD PTR field (#4) of the PATIENT sub-field (#50.806) of the IV DRUG sub-field (#50.805) of the DATE sub-field
(#50.803) of the IV STATS File (#50.8)
WARD field (#.01) of the WARD sub-field (#50.808) of the IV DRUG sub-field (#50.805) of the DATE sub-field (#50.803)
of the IV STATS File (#50.8)
WARD field (#.01) of the WARD sub-field (#51.01) of the MEDICATION INSTRUCTION File (#51)
WARD field (#.01) of the WARD sub-field (#51.11) of the ADMINISTRATION SCHEDULE File (#51.1)
LAST WARD field (#50) of the NON-VERIFIED ORDERS File (#53.1)
WARD FOR AUTO-CANCEL LABEL field (#52) of the NON-VERIFIED ORDERS File (#53.1)
WARD field (#.01) of the BCMA IV PARAMETERS File (#53.66)
WARD LOCATION field (#.12) of the BCMA MISSING DOSE REQUEST File (#53.68)
WARD LOCATION field (#.09) of the BCMA MEDICATION VARIANCE LOG File (#53.78)
ORIGINAL WARD field (#9) of the IV sub-field (#55.01) of the PHARMACY PATIENT File (#55)
ORIGINAL WARD field (#9) of the UNIT DOSE sub-field (#55.06) of the PHARMACY PATIENT File (#55)
LAST WARD field (#68) of the UNIT DOSE sub-field (#55.06) of the PHARMACY PATIENT File (#55)
WARD field (#.07) of the DISPENSE LOG sub-field (#55.0611) of the UNIT DOSE sub-field (#55.06) of the PHARMACY
PATIENT File (#55)
WARD field (#.01) of the WARD sub-field (#57.51) of the WARD GROUP File (#57.5)
WARD field (#.01) of the WARD sub-field (#57.61) of the UNIT DOSE PICK LIST STATS File (#57.6)
WARD field (#.01) of the MEDICATION ADMINISTERING TEAM File (#57.7)
WARD (FOR ITEM) field (#.01) of the WARD (FOR ITEM) sub-field (#58.26) of the ITEM sub-field (#58.11) of the
PHARMACY AOU STOCK File (#58.1)
DWO MESSAGE ENTITY field (#.01) of the DWO MESSAGE ENTITY sub-field (#58.6014) of the PADE INVENTORY SYSTEM File
(#58.601)
WARD LOCATION field (#.01) of the WARD LOCATION sub-field (#58.636) of the PADE DISPENSING DEVICE File (#58.63)
WARD field (#7) of the PADE OUTBOUND MESSAGES File (#58.72)
WARD field (#.01) of the WARD sub-field (#58.747) of the DIVISION sub-field (#58.74) of the PADE SYSTEM SETUP File
(#58.7)
WARD (FOR DRUG) field (#.01) of the WARD (FOR DRUG) sub-field (#58.800115) of the DRUG sub-field (#58.8001) of the
DRUG ACCOUNTABILITY STATS File (#58.8)
WARD field (#.01) of the WARD sub-field (#58.842) of the DRUG ACCOUNTABILITY STATS File (#58.8)
WARD field (#.01) of the INPATIENT WARD PARAMETERS File (#59.6)
EXEMPT WARD FROM AUTOCANCEL field (#.01) of the EXEMPT WARD FROM AUTOCANCEL sub-field (#59.701) of the PHARMACY
SYSTEM File (#59.7)
FROM WARD field (#.01) of the WARD ACTIONS sub-field (#59.722) of the PHARMACY SYSTEM File (#59.7)
TO WARD field (#.01) of the TO WARD sub-field (#59.7221) of the WARD ACTIONS sub-field (#59.722) of the PHARMACY
SYSTEM File (#59.7)
WARD field (#6) of the EXAMINATIONS sub-field (#70.03) of the REGISTERED EXAMS sub-field (#70.02) of the RAD/NUC MED
PATIENT File (#70)
WARD field (#6) of the REPORT DISTRIBUTION File (#74.4)
AUTOLINK field (#.01) of the AUTOLINK sub-field (#100.213) of the OE/RR LIST File (#100.21)
COMBINATION ITEM field (#.01) of the COMBINATION ITEM sub-field (#100.241) of the OE/RR PT SEL COMBO File (#100.24)
WARD LOCATION field (#7) of the ACTIVITY sub-field (#100.25) of the OE/RR PATIENT EVENT File (#100.2)
INCLUDED LOCATIONS field (#.01) of the INCLUDED LOCATIONS sub-field (#100.511) of the OE/RR RELEASE EVENTS File
(#100.5)
WARD LOCATION field (#.01) of the WARD LOCATIONS sub-field (#104.302) of the MDRO WARD MAPPINGS File (#104.3)
OUTPATIENT LOCATION field (#102) of the NUTRITION LOCATION File (#119.6)
ASSOCIATED MAS WARD field (#.01) of the ASSOCIATED MAS WARD sub-field (#119.63) of the NUTRITION LOCATION File
(#119.6)
NOTIFICATION BY PT LOCATION field (#.01) of the NOTIFICATION BY PT LOCATION sub-field (#123.54) of the REQUEST
SERVICES File (#123.5)
NAME field (#.01) of the BORROWERS/FILE AREAS File (#195.9)
MAS WARD field (#.01) of the MAS WARD sub-field (#211.41) of the NURS LOCATION File (#211.4)
NAME field (#.01) of the HCSR WARD LIST sub-field (#350.964) of the IB SITE PARAMETERS File (#350.9)
WARD field (#.05) of the HCS REVIEW TRANSMISSION File (#356.22)
AUTOLINK field (#.02) of the TEAM AUTOLINK File (#404.56)
WARD LOCATION field (#.06) of the PATIENT MOVEMENT File (#405)
WARD(S) WHICH CAN ASSIGN field (#.01) of the WARD(S) WHICH CAN ASSIGN sub-field (#405.41) of the ROOM-BED File
(#405.4)
WARD field (#1) of the MH WAIT LIST File (#617)
WARD field (#.01) of the MENTAL HEALTH CENSUS File (#618)
WARD LOCATION field (#.5) of the MENTAL HEALTH TEAM File (#618.2)
WARD field (#20) of the MENTAL HEALTH INPT File (#618.4)
WARD LOCATION field (#12) of the PROSTHETIC 2529-3 File (#664.1)
WARD field (#.04) of the CP_MOVEMENT_AUDIT File (#704.005)
WARD field (#.03) of the CP_PROTOCOL_LOCATION File (#704.006)
MEDICAL CENTER WARD field (#.01) of the DSS WARD File (#727.4)
WARD field (#5) of the UNIT DOSE EXTRACT DATA File (#728.904)
SOURCE field (#.02) of the SOURCES sub-field (#800001.21) of the HMP ROSTER File (#800001.2)
CROSS
REFERENCED BY: G&L ORDER(AGL), OUT-OF-SERVICE DATE(S)(AINV), NAME(AWU), NAME(B), SYNONYM(C), SERVICE(D), *NSERV(E)
42,.01 NAME 0;1 FREE TEXT (Required) (audited)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X
LAST EDITED: SEP 30, 2013
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION: Enter in this field the name of the ward location as selectable using bed control options in MAS.
Mixing ward names that are pure numbers (4,5,6...) with ward names that are alphabetic (A,B,C...)
or
with ward names that combine numbers with alphas (4A, 4B, 5C...) may yield unexpected results when
printing output sorted by ward.
AUDIT: YES, ALWAYS
DELETE TEST: 1,0)= I 1 W *7,*7,!,"Wards cannot be deleted!!!!"
NOTES: TRIGGERED by the NAME field of the HOSPITAL LOCATION File
CROSS-REFERENCE: 42^B
1)= S ^DIC(42,"B",$E(X,1,30),DA)=""
2)= K ^DIC(42,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 42^AWU^MUMPS
1)= Q
2)= S %=$P(^DIC(42,DA,0),"^",1) F J="ACN","CN" F I=0:0 S I=$N(^DPT(J,X,I)) Q:I'>0 S DGWU=^DPT(J,X,
I) K ^DPT(J,X,I) K:J="CN" ^DGPM(J,X,DGWU) I %]"" S ^DPT(J,%,I)=DGWU S:J="CN" ^DGPM(J,%,DGWU)="" K D
GWU I $D(^DPT(I,.1)),^(.1)=X S ^(.1)=%
CROSS-REFERENCE: ^^TRIGGER^44^.01
1)= X ^DD(42,.01,1,3,1.3) I X S X=DIV X ^DD(42,.01,1,3,9.2) S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X
K Y S X=DIV S X=DIV X ^DD(42,.01,1,3,1.4)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DIC(42,D0,44)):^(44),1:"") S X=$P(Y(1),U
,1)'=DIV
1.4)= S DIH=$S($D(^SC(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(
0)=DIV_$S(%]"":U_%,1:""),DIH=44,DIG=.01 D ^DICR
2)= Q
9.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^DIC(42,D0,44)):^(44),1:""),D0=$P(Y(1),U,1) S:'$D(^SC(
+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^SC(D0,0)):^(0),1:"")
CREATE CONDITION)= HOSPITAL LOCATION FILE'=NAME
CREATE VALUE)= NAME
DELETE VALUE)= NO EFFECT
FIELD)= HOSPITAL LOCATION:NAME
CROSS-REFERENCE: ^^TRIGGER^46.11^.02
1)= Q
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$P($G(^DG(43,1,"HL7")),U,4)=1 I X S X=DIV X ^DD(42,.
01,1,4,89.2) S Y(101)=$S($D(^DGRU(46.11,D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K
Y S X=DIV S X=X X ^DD(42,.01,1,4,2.4)
2.4)= S DIH=$S($D(^DGRU(46.11,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,2)=DIV,DIH=46.11,D
IG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^DIC(42,D0,0)):^(0),1:"") S X=$P(Y(1),U,1),X=X S X=X
K DIC S DIC="^DGRU(46.11,",DIC(0)="NMFL",X=""""_X_"""" D ^DIC S (D,D0,DIV(0))=+Y
CREATE VALUE)= NO EFFECT
DELETE CONDITION)= S X=$P($G(^DG(43,1,"HL7")),U,4)=1
DELETE VALUE)= OLD NAME
DIC)= LOOKUP
FIELD)= NAME:RAI MDS MONITOR:#.02
Trigger Ward name prior to change to the RAI MDS MONITOR file whenever the Ward name is changed or
added. The trigger cross-reference has a condition whereby it should only occur if the MAS
Parameter file, field CREATE MFU FOR RAI MDS (#391.7014) is equal to a "1".
CROSS-REFERENCE: ^^TRIGGER^46.11^.03
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$P($G(^DG(43,1,"HL7")),U,4)=1 I X S X=DIV X ^DD(42,.
01,1,5,89.2) S Y(101)=$S($D(^DGRU(46.11,D0,0)):^(0),1:"") S X=$P(Y(101),U,3) S D0=I(0,0) S DIU=X K
Y S X=DIV S X=42 X ^DD(42,.01,1,5,1.4)
1.4)= S DIH=$S($D(^DGRU(46.11,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,3)=DIV,DIH=46.11,D
IG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^DIC(42,D0,0)):^(0),1:"") S X=$P(Y(1),U,1),X=X S X=X
K DIC S DIC="^DGRU(46.11,",DIC(0)="NMFL" D ^DIC S (D,D0,DIV(0))=+Y
CREATE CONDITION)= S X=$P($G(^DG(43,1,"HL7")),U,4)=1
CREATE VALUE)= S X=42
DELETE VALUE)= NO EFFECT
DIC)= LOOKUP
FIELD)= NAME:RAI MDS MONITOR:#.03
Trigger the Ward file number (#42) into the RAI MDS MONITOR file whenever a ward name is changed or
added. This trigger is also conditional and will only occur if the CREATE MFU FOR RAI MDS field
(#391.7014) in the MAS PARAMETER file (#43) is equal to "1".
CROSS-REFERENCE: ^^TRIGGER^46.11^.04
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$P($G(^DG(43,1,"HL7")),U,4)=1 I X S X=DIV X ^DD(42,.
01,1,6,89.2) S Y(101)=$S($D(^DGRU(46.11,D0,0)):^(0),1:"") S X=$P(Y(101),U,4) S D0=I(0,0) S DIU=X K
Y S X=DIV S X=DA X ^DD(42,.01,1,6,1.4)
1.4)= S DIH=$S($D(^DGRU(46.11,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,4)=DIV,DIH=46.11,D
IG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^DIC(42,D0,0)):^(0),1:"") S X=$P(Y(1),U,1),X=X S X=X
K DIC S DIC="^DGRU(46.11,",DIC(0)="NMF" D ^DIC S (D,D0,DIV(0))=+Y
CREATE CONDITION)= S X=$P($G(^DG(43,1,"HL7")),U,4)=1
CREATE VALUE)= S X=DA
DELETE VALUE)= NO EFFECT
DIC)= LOOKUP
FIELD)= NAME:RAI MDS MONITOR:#.04
Trigger the internal entry number of the Ward entry that was changed or added into the RAI MDS
MONITOR file. There is a conditional trigger event. It will only occur if the CREATE MFU FOR RAI
MDS field (#391.7014) in the MAS PARAMETER File (#43) is equal to a "1". The IEN is used in the
creation of the MFU and is part of the identifier for the receiving system.
42,.015 DIVISION 0;11 POINTER TO MEDICAL CENTER DIVISION FILE (#40.8) (audited)
INPUT TRANSFORM: S DIC("S")="I '$P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 30, 2013
HELP-PROMPT: Enter the institution that this ward is in if you are a multifacility hospital.
DESCRIPTION:
Enter the division at which this ward is located.
SCREEN: S DIC("S")="I '$P(^(0),U,3)"
EXPLANATION: Only inpatient Divisions
AUDIT: YES, ALWAYS
42,.017 SPECIALTY 0;12 POINTER TO SPECIALTY FILE (#42.4) (Required)
INPUT TRANSFORM: S DIC("S")="I $G(Y)=80!$$ACTIVE^DGACT(42.4,Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 07, 2006
HELP-PROMPT: Enter this ward's PTF bedsection. This must be an active treating specialty.
DESCRIPTION: Enter the PTF specialty that this ward is assign to. The specialty and its MPCR number will be
transmitted to Austin as part of the N501 and N535 transactions. This information is sent in the
physcial specialty and physcial MPCR elements of those transactions.
SCREEN: S DIC("S")="I $G(Y)=80!$$ACTIVE^DGACT(42.4,Y)"
EXPLANATION: Allows only active treating specialties.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
42,.02 BEDSECTION 0;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>10!($L(X)<2) X
HELP-PROMPT: ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
DESCRIPTION:
Enter 2-10 characters describing the bedsection of this ward.
42,.03 SERVICE 0;3 SET (Required)
'M' FOR MEDICINE;
'S' FOR SURGERY;
'P' FOR PSYCHIATRY;
'NH' FOR NHCU;
'NE' FOR NEUROLOGY;
'I' FOR INTERMEDIATE MED;
'R' FOR REHAB MEDICINE;
'SCI' FOR SPINAL CORD INJURY;
'D' FOR DOMICILIARY;
'B' FOR BLIND REHAB;
'NC' FOR NON-COUNT;
LAST EDITED: APR 24, 1990
HELP-PROMPT: Enter the appropriate AMIS service for this ward location.
DESCRIPTION: Enter the service of the ward. Choose from the available list. This service is used by various
MAS reports to determine how inpatient stays on this ward should be counted. This should be
answered carefully.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 42^D
1)= S ^DIC(42,"D",X,DA)=""
2)= K ^DIC(42,"D",X,DA)
42,.035 RAI/MDS WARD 0;16 SET
'1' FOR Yes;
'0' FOR No;
LAST EDITED: NOV 18, 1999
HELP-PROMPT: Enter 'YES' if this ward is required to send patient information to the RAI/MDS system
DESCRIPTION: This field provides a parameter to determine whether HL7 messages should be generated and sent for
patients in this ward to the RAI/MDS COTS system.
42,.04 PRINT WARD ON WRISTBAND 0;4 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: FEB 01, 1995
HELP-PROMPT: Enter NO if you do not wish to have the ward location printed on the patient's wristband.
DESCRIPTION: This field determines if the ward location is printed on the patient's wristband. If it is
answered 'NO', it will not print, otherwise it will.
42,.07 FY TARGET 0;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 999
DESCRIPTION:
Enter the target number of patients to be deen during a particular fiscal year.
42,.09 SERIOUSLY ILL 0;14 SET
'1' FOR INCLUDE ON SERIOUSLY ILL LIST;
LAST EDITED: MAR 29, 1985
HELP-PROMPT: Enter 1 if patients entering this ward should be placed on the seriously ill list
DESCRIPTION: If patients seen on this ward are typically seriously ill, enter yes here. When admitting or
transferring patients to this ward their status will be changed to seriously ill (unless the users
chooses otherwise).
42,.1 TERMINAL 0;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>142)!(X<64)!(X?.E1"."1N.N) X
HELP-PROMPT: THE DEVICE NUMBER ($I) FOR REPORTS ON PATIENTS ON THIS WARD
DESCRIPTION:
Enter the device number ($I value) on which inpatient reports for this ward should print.
42,.15 PRIMARY LOCATION 0;15 FREE TEXT
INPUT TRANSFORM: K:$L(X)>7!($L(X)<2) X
LAST EDITED: APR 15, 1990
HELP-PROMPT: Answer with 2-7 characters and group wards together to create a 'MINI' Bed Status Report. If left
blank it will appear as 'UNKNOWN' under the TOTALS BY PRIMARY WARD LOCATION section of the BSR.
DESCRIPTION: If this field is left blank, the primary location on the Bed Status Report will be 'UNKNOWN'. You
may group different wards together for a 'mini' Bed Status Report, examples of what you might want
to group are wards in the same physical location or wards of the same treating specialty, etc.
42,.17 INTERMEDIATE MEDICINE - LTC 0;17 SET
'1' FOR Yes;
'0' FOR No;
LAST EDITED: FEB 27, 2002
HELP-PROMPT: Answer 'Yes' if this is IMC long term care ward.
DESCRIPTION: Intermediate Medicine Service can provide both acute care and long term care. The long term care
wards must utilize the RAI/MDS tool. Therefore, this field is needed to distinguish between the
acute care and long term care wards. This field only applies to those wards that have a service of
"INTERMEDIATE MED". When this field contains a "1" representing "Yes", the business rules that
apply to a nursing home patient will be followed for patients in this ward. For example, a patient
in this ward requiring acute care will need to be sent Absent Sick In Hospital (ASIH) for no longer
than 30 days. Patient will be discharged from this ward if he exceeds the 30 day timeframe.
SCREEN: S DIC("S")="I $D(X) K:$P(^DIC(42,DA,0),U,3)'=""I"" X"
EXPLANATION: Only allows flagging wards having a service of Intermediate Medicine
42,.2 CURRENTLY OUT-OF-SERVICE? ; COMPUTED
MUMPS CODE: D WIN^DGPMDDCF
ALGORITHM: D WIN^DGPMDDCF
LAST EDITED: DEC 22, 1991
DESCRIPTION: This is a computed field to determine whether this ward is currently out of service. A 1 will be
returned if it is, otherwise, 0 will be returned.
42,.21 BEDS OUT-OF-SERVICE ; COMPUTED
MUMPS CODE: D BOS^DGPMDDCF
ALGORITHM: D BOS^DGPMDDCF
DESCRIPTION: This computed field will display the number of beds on this ward that are currently listed as
out-of-service.
42,.22 AUTHORIZED BEDS ; COMPUTED
MUMPS CODE: D AUTH^DGPMDDCF
ALGORITHM: D AUTH^DGPMDDCF
DESCRIPTION: This computed field will display the number of beds that are currently authorized by CO to be
utilized on this ward.
42,.23 OPERATING BEDS ; COMPUTED
MUMPS CODE: D OPER^DGPMDDCF
ALGORITHM: D OPER^DGPMDDCF
DESCRIPTION: This computed field will display the number of operating beds currently existing on this ward.
Operating beds = Authorized beds - Out-of-service beds.
42,1 SYNONYM .01;0 Multiple #42.01 (Add New Entry without Asking)
DESCRIPTION: This multiple contains all alternate names by which this ward location is known. At any WARD
LOCATION prompt, either the name of the ward or one of the synonyms can be entered.
42.01,.01 SYNONYM 0;1 FREE TEXT
INPUT TRANSFORM: K:X[""""!(X'?.ANP) X I $D(X) K:$L(X)>30!($L(X)<2) X
LAST EDITED: JUN 27, 1984
HELP-PROMPT: MAXIMUM SYNONYM LENGTH: 30, MINIMUM LENGTH: 2
DESCRIPTION:
Enter an alternate name by which this ward is known.
CROSS-REFERENCE: 42^C
1)= S ^DIC(42,"C",X,DA(1))=""
2)= K ^DIC(42,"C",X,DA(1))
42,44 HOSPITAL LOCATION FILE POINTER 44;1 POINTER TO HOSPITAL LOCATION FILE (#44) (Required) (audited)
INPUT TRANSFORM: I $D(^SC(+X,42)),+^(42),+^(42)'=DA W !?20,"This Hospital location points to ",$P(^DIC(42,+^SC(+X,42
),0),"^",1) K X
LAST EDITED: SEP 30, 2013
DESCRIPTION: Enter the entry in the hospital location which this ward is associated with. This is defined
automatically when setting up a ward through the 'Ward Definition' option. It MUST NOT BE EDITED!!
AUDIT: YES, ALWAYS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the WARD LOCATION FILE POINTER field of the HOSPITAL LOCATION File
CROSS-REFERENCE: ^^TRIGGER^44^42
1)= X ^DD(42,44,1,1,1.3) I X S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^SC(+D0,0)) D0=-1 S D
IV(0)=D0 S Y(101)=$S($D(^SC(D0,42)):^(42),1:"") S X=$P(Y(101),U,1),X=X S X=X S D0=I(0,0) S DIU=X K
Y X ^DD(42,44,1,1,1.1) X ^DD(42,44,1,1,1.4)
1.1)= S X=DIV S X=$S('$D(D0):"",D0<0:"",1:D0),X=X
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(42,44,1,1,69.2) S X=X S Y=X,X=Y(1),X=X S X=X'=Y
S D0=I(0,0)
1.4)= S DIH=$S($D(^SC(DIV(0),42)):^(42),1:""),DIV=X I $D(^(0)) S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),
^(42)=DIV_$S(%]"":U_%,1:""),DIH=44,DIG=42 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^SC(+D0,0)) D0=-1 S DIV(
0)=D0 S Y(101)=$S($D(^SC(D0,42)):^(42),1:"") S X=$P(Y(101),U,1),X=X S X=X S D0=I(0,0) S DIU=X K Y S
X="" X ^DD(42,44,1,1,2.4)
2.4)= S DIH=$S($D(^SC(DIV(0),42)):^(42),1:""),DIV=X I $D(^(0)) S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),
^(42)=DIV_$S(%]"":U_%,1:""),DIH=44,DIG=42 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
69.2)= S I(0,0)=$S($D(D0):D0,1:"") S X=$S('$D(D0):"",D0<0:"",1:D0),Y(1)=X,D0=Y(0) S:'$D(^SC(+D0,0))
D0=-1 S Y(101)=$S($D(^SC(D0,42)):^(42),1:"") S X=$P(Y(101),U,1)
CREATE CONDITION)= NUMBER'=INTERNAL(HOSPITAL LOCATION FILE:WARD LOCATION FILE POINTER)
CREATE VALUE)= INTERNAL(NUMBER)
DELETE VALUE)= @
FIELD)= HOSPITAL LOCATION FILE POINTER:WARD LOCATION FILE POINTER
42,100 AUTHORIZED BEDS DATE AUTH;0 DATE Multiple #42.09
DESCRIPTION: This multiple contains a history of the number of CO-authorized beds for this ward broken down by
date. Each time a new number is assigned, the date and the number of beds must be entered here.
This data is utilized by the gains and lossed and bed status reports.
42.09,.01 AUTHORIZED BEDS DATE 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:3990930X) X
LAST EDITED: JUL 02, 1990
HELP-PROMPT: TYPE A DATE BETWEEN 10/1/1980 AND 9/30/2099
DESCRIPTION: Enter the date on which these authorized beds were assigned. This assignment comes from VA
Central Office.
CROSS-REFERENCE: 42.09^B
1)= S ^DIC(42,DA(1),"AUTH","B",$E(X,1,30),DA)=""
2)= K ^DIC(42,DA(1),"AUTH","B",$E(X,1,30),DA)
CROSS-REFERENCE: 42.09^AINV^MUMPS
1)= S ^DIC(42,DA(1),"AUTH","AINV",9999999-X,DA)=""
2)= K ^DIC(42,DA(1),"AUTH","AINV",9999999-X,DA)
42.09,2 NUMBER OF AUTHORIZED BEDS 0;2 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>500)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUN 26, 1990
HELP-PROMPT: Type a Number between 0 and 500, 0 Decimal Digits
DESCRIPTION: Enter in this field the number of beds this ward is authorized. This data is used by the G&L and
bed status reports.
42,200 OUT-OF-SERVICE DATE OOS;0 DATE Multiple #42.08
DESCRIPTION: This multiple contains data on when a ward was placed out-of-service and returned to service. This
multiple also contains information on the number of beds that are placed out-of-service at any
given time.
42.08,.01 OUT-OF-SERVICE DATE(S) 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:3990930X) X I $D(X) D WOOS^DGPMDDOS I $D(X)
LAST EDITED: JUN 29, 1990
HELP-PROMPT: TYPE A DATE BETWEEN 10/1/1987 AND 9/30/2099. Enter a date on which there was NO activity on the
ward.
DESCRIPTION: Enter the first full day for which this ward was placed out of service. Enter the date only (no
time) and do not include a day which has any inpatient activity as this would affect the gains
and losses sheet.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 42.08^B
1)= S ^DIC(42,DA(1),"OOS","B",$E(X,1,30),DA)=""
2)= K ^DIC(42,DA(1),"OOS","B",$E(X,1,30),DA)
CROSS-REFERENCE: 42^AINV^MUMPS
1)= S ^DIC(42,DA(1),"OOS","AINV",9999999-X,DA)=""
2)= K ^DIC(42,DA(1),"OOS","AINV",9999999-X,DA)
42.08,.02 REASON 0;2 POINTER TO MAS OUT-OF-SERVICE FILE (#405.5) (Required)
LAST EDITED: FEB 12, 1989
HELP-PROMPT: Enter the reason this ward is being placed out-of-service.
DESCRIPTION: Enter the reason this ward (or part of a ward) was placed out of service. This is a pointer to
the MAS OUT-OF-SERVICE file. These reasons are determined by MAS VACO.
42.08,.03 COMMENT 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: OCT 10, 1990
HELP-PROMPT: If you wish, you may enter a comment [3-30 characters] which further explains why this ward is
out-of-service. For example, for a construction project you might enter the project number.
DESCRIPTION: If, when placing an entire ward or part of a ward out of service, you wish to enter additional
information as to the reason, it may be entered here.
42.08,.04 RETURN TO SERVICE DATE 0;4 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:3990930X) X I $D(X) D WRTS^DGPMDDOS
LAST EDITED: JUN 26, 1990
HELP-PROMPT: TYPE A DATE BETWEEN 10/1/1987 AND 9/30/2099
DESCRIPTION: Enter date that this ward was returned or expected to return to service. If the return to
service date is unknown or this bed is being placed out-of-service indefinately, leave this field
blank.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
42.08,.05 OOS DISPLAY END DATE 0;5 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:3990930X) X
HELP-PROMPT: TYPE A DATE BETWEEN 10/1/1987 AND 9/30/2099
DESCRIPTION:
Enter here the date on which this ward should cease to appear on the G&L or bed status report.
42.08,.06 IS ENTIRE WARD OUT OF SERVICE? 0;6 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: NOV 06, 1990
DESCRIPTION: Enter YES here if the entire ward has been placed out-of-service. If only a certain number of
beds is being placed out-of-service, enter NO here.
CROSS-REFERENCE: ^^TRIGGER^42.08^.11
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=$S(X:1,1:0) I X S X=DIV S Y(1)=$S
($D(^DIC(42,D0,"OOS",D1,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X="" X ^DD(42.08,.06,1,1
,1.4)
1.4)= S DIH=$S($D(^DIC(42,DIV(0),"OOS",DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=42.08,DI
G=.11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE CONDITION)= S X=$S(X:1,1:0)
CREATE VALUE)= @
DELETE VALUE)= NO EFFECT
FIELD)= NUM
42.08,.07 DISPLAY OOS ON G&L 0;7 SET
'1' FOR YES;
'0' FOR NO;
HELP-PROMPT: Should the fact this ward is OOS be shown on the G&L along with the reason?
DESCRIPTION: If you would like to have this out-of-service period display on the G&L, answer YES. Otherwise,
answer NO.
42.08,.08 SHOW ON BED STATUS REPORT 0;8 SET
'1' FOR YES;
'0' FOR NO;
HELP-PROMPT: Do you want this ward to continue to appear on the Bed Status Report in its usual position even if
OOS?
DESCRIPTION: If you would like this out-of-service period to appear on the bed status report, answer YES.
Otherwise, answer NO.
42.08,.09 INCLUDE STAT'S ON BED STATUS 0;9 SET
'1' FOR YES;
'0' FOR NO;
HELP-PROMPT: Do you want the statistical values to be included on the Bed Status Report even if the ward itself
is no longer displayed?
DESCRIPTION: If you would like the statistics for this out-of-service period to be calculated into the bed
status report, respond YES here. Otherwise, respond NO.
42.08,.1 BED STATUS DISPLAY END DATE 0;10 DATE
INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:3990930X) X
LAST EDITED: FEB 12, 1989
HELP-PROMPT: Enter the date you want this ward to stop appearing on the Bed Status Report. If none is selected
it will automatically stop appearing upon commencement of the next fiscal year.
DESCRIPTION: Enter the date on which you would like this out-of-service period to cease to display on the bed
status report.
42.08,.11 NUMBER BEDS OOS 0;11 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 05, 1990
HELP-PROMPT: Enter the number of beds out of service during this time period.
DESCRIPTION: If the entire ward is not placed out-of-service, enter the number of individual beds being placed
out-of-service.
NOTES: TRIGGERED by the IS ENTIRE WARD OUT OF SERVICE? field of the OUT-OF-SERVICE DATE sub-field of the
WARD LOCATION File
42,400 G&L ORDER ORDER;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<.01)!(X?.E1"."4N.N)!($D(^DIC(42,"AGL",X))&($O(^DIC(42,"AGL",X,0))'=DA)) X
LAST EDITED: MAY 17, 1995
HELP-PROMPT: TYPE A UNIQUE NUMBER BETWEEN .01 AND 99999
DESCRIPTION: This field indicates the G&L Order that this Ward will print and subsequently, the Totals on the
Bed Status Report, (e.g. Ward with a G&L Order of 1.5 would be placed after a Ward with a G&L Order
of 1.49 or earlier and would be before a Ward with a G&L Order of 1.51 or greater). This G&L Order
placement has a direct impact on the way the totals calculate on the Bed Status Report.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 42^AGL
1)= S ^DIC(42,"AGL",$E(X,1,30),DA)=""
2)= K ^DIC(42,"AGL",$E(X,1,30),DA)
42,401 TOTALS 1;0 Multiple #42.05
DESCRIPTION: This field is a multiple and is directly related to the G&L Order field. The information contained
in this multiple is utilized on the Bed Status Report.
42.05,.001 LEVEL NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 9
DESCRIPTION: This sub-field of the Totals multiple is the .001 and contains the IFN place holder for this
multiple. This numeric can be a whole number between 1 and 9. The first level is the first
sub-totaling that is done, the second level is the second sub-totaling (this includes the
previous level one) this level sub-totaling can be repeated back to the previously equal level
and can contain a grand total with 9 sub-total levels.
42.05,.01 TOTALS 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>50!($L(X)<2) X
LAST EDITED: JUL 03, 1986
HELP-PROMPT: ANSWER MUST BE 2-50 CHARACTERS IN LENGTH
42.05,1 TARGET 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>1400)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 1400
DESCRIPTION: This field contains the planned Average Daily Census (ADC) that is printed on the Average Daily
Census Section of the Bed Status Report.
42.05,2 ADC CUM 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>1400)!(X<0)!(X?.E1"."2N.N) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 1400
DESCRIPTION: This field contains the actual Average Daily Census (ADC) that is printed on the Average Daily
Census Section of the Bed Status Report.
42.05,2.5 PRINT IN CUMULATIVE TOTALS 0;4 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JAN 09, 1984
HELP-PROMPT: Enter '1' if you want this level of totals to be used in the cumulative totals, '0' if you do
not.
DESCRIPTION: This field is a set of codes '0' for no and '1' for yes, it is used to indicate whether you want
this level (totals) to be used in the Cumulative Totals Section of the Bed Status Report.
42.05,3 PLAN CUM DISCH MONTH PD;0 SET Multiple #42.07 (Add New Entry without Asking)
DESCRIPTION:
This field is a multiple that adds new entry without asking.
IDENTIFIED BY: PLANNED DISCHARGES FOR MONTH(#1)
42.07,.01 PLAN CUM DISCH MONTH 0;1 SET (Multiply asked)
'1' FOR OCT;
'2' FOR NOV;
'3' FOR DEC;
'4' FOR JAN;
'5' FOR FEB;
'6' FOR MAR;
'7' FOR APR;
'8' FOR MAY;
'9' FOR JUN;
'10' FOR JUL;
'11' FOR AUG;
'12' FOR SEP;
LAST EDITED: DEC 08, 1983
HELP-PROMPT: Enter the month for which you would like to enter the planned cumulative discharges.
DESCRIPTION: This sub-field of the multiple 'Plan Cum Disch Month' field is also a multiple and contains a
set of codes for the month for which you would like to enter the planned cumulative discharges.
42.07,1 PLANNED DISCHARGES FOR MONTH 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 08, 1983
HELP-PROMPT: Enter the number of discharges planned for the month selected, 0-9999.
DESCRIPTION: This sub-field of the multiple 'Plan Cum Disch Month' field contains the number of discharges
planned for the month selected from 0 to 9999.
42.05,4 CUM TITLE 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: APR 29, 1983
HELP-PROMPT: Enter the title you wish to appear for the cumulative totals.
DESCRIPTION: This field is free text (1 to 20 characters in length) and is the title you want to print for
the Cumulative Totals Section of the Bed Status Report.
42,804 G&L HEADER HEADER;E1,89 FREE TEXT
INPUT TRANSFORM: K:$L(X)>89!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-89 CHARACTERS IN LENGTH
DESCRIPTION: This field is free text (1 to 89 characters in length) and contains the name that you want to print
for this ward on the Bed Status Report.
42,1490 *ACUITY CLASS ; COMPUTED
MUMPS CODE: S X=$P(^DIC(42,D0,0),U,2),X=$S(X["CU":1,X["GA":2,1:3)
ALGORITHM: NAME+LO
LAST EDITED: JAN 23, 1992
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
42,1491 *NSERV 0;7 SET (Required)
'1' FOR MED;
'2' FOR SUR;
'3' FOR ICU;
'4' FOR PSY;
LAST EDITED: JAN 23, 1992
DESCRIPTION:
Enter the nursing service associated with this ward.
CROSS-REFERENCE: 42^E
1)= S ^DIC(42,"E",X,DA)=""
2)= K ^DIC(42,"E",X,DA)
FILES POINTED TO FIELDS
HOSPITAL LOCATION (#44) NAME (#.01)
HOSPITAL LOCATION FILE POINTER (#44)
MAS OUT-OF-SERVICE (#405.5) OUT-OF-SERVICE DATE:REASON (#.02)
MEDICAL CENTER DIVISION (#40.8) DIVISION (#.015)
RAI MDS MONITOR (#46.11) NAME (#.01)
SPECIALTY (#42.4) SPECIALTY (#.017)
INPUT TEMPLATE(S):
DGWARD JUL 08, 1999@11:56 USER #0
DGWIN JUN 20, 1986 USER #0
PRINT TEMPLATE(S):
DGBED NOV 07, 1986 USER #0 BED AVAILABILITY
DGTEST JAN 15, 1986 USER #0 WARD LOCATION LIST
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):