DGINPW ;ALB/JDS - DETERMINE INPATIENT STATUS ;01 JAN 1986
 ;;5.3;Registration;;Aug 13, 1993
 ;
 ;
 ;  *****************************************************************
 ;  *
 ;  *   Note Well: This routine is in the process of being removed.
 ;  *   As of PIMS v5.3, the old DGINPW was renamed to DGPMSTAT.  This
 ;  *   was done to eliminate non-init routines from the DGI name-
 ;  *   space.  Programmers should change any references to DGINPW
 ;  *   to DGPMSTAT.  This routine is scheduled to be removed 18 
 ;  *   months following the release of PIMS v5.3.
 ;  
 ;  *****************************************************************
 ;
EN G EN^DGPMSTAT
CA G CA^DGPMSTAT
CAQ G CAQ^DGPMSTAT
XFR G XFR^DGPMSTAT
TREAT G TREAT^DGPMSTAT
TREAT1 G TREAT1^DGPMSTAT
TR2 G TR2^DGPMSTAT