Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: YSCEN13

YSCEN13.m

Go to the documentation of this file.
  1. YSCEN13 ;ALB/ASF,HIOFO/FT - CANCEL DISCHARGE; 8/15/12 9:53am
  1. ;;5.01;MENTAL HEALTH;**52,60**;Dec 30, 1994;Build 47
  1. ;
  1. ;No external references
  1. ;
  1. SETDICS ; Called by WARD LOC screen of MH Team file (#618.4)
  1. S DIC("S")="X ""K Z F S Z=+$O(^YSG(""""CEN"""",+$G(Z))) Q:'Z S Z(0)=^(Z,0),Z(1)=U_$G(^YSG(""""CEN"""",Z,""""ROT""""))_U I +DA=+$P(Z(0),U,9)!(Z(1)[(U_+DA_U)) S Z(2)=1"" I '$G(Z(2))"
  1. Q