Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 42.08

Package: Registration

WARD LOCATION(#42)-->42.08

Sub-Field: 42.08


Information

Parent File Name Number Package
WARD LOCATION(#42) OUT-OF-SERVICE DATE 42.08 Registration

Details

Field # Name Loc Type Details
.01 OUT-OF-SERVICE DATE(S) 0;1 DATE

  • 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)
.02 REASON 0;2 POINTER TO MAS OUT-OF-SERVICE FILE (#405.5)
************************REQUIRED FIELD************************
MAS OUT-OF-SERVICE(#405.5)

  • 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.
.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.
.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
.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.
.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,DIG=.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
.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.
.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.
.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.
.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.
.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
Info |  Details