DGINPW.m

DGINPW ;ALB/JDS - DETERMINE INPATIENT STATUS ;01 JAN 1986

 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 ;

 ;

 ;  *****************************************************************

 ;  *

 ;  *   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

DGINPW    ;ALB/JDS - DETERMINE INPATIENT STATUS ;01 JAN 1986

 +1       ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 +2       ;

 +3       ;

 +4       ;  *****************************************************************

 +5       ;  *

 +6       ;  *   Note Well: This routine is in the process of being removed.

 +7       ;  *   As of PIMS v5.3, the old DGINPW was renamed to DGPMSTAT.  This

 +8       ;  *   was done to eliminate non-init routines from the DGI name-

 +9       ;  *   space.  Programmers should change any references to DGINPW

 +10      ;  *   to DGPMSTAT.  This routine is scheduled to be removed 18 

 +11      ;  *   months following the release of PIMS v5.3.

 +12      ;  

 +13      ;  *****************************************************************

 +14      ;

EN         GOTO EN^DGPMSTAT

CA         GOTO CA^DGPMSTAT

CAQ        GOTO CAQ^DGPMSTAT

XFR        GOTO XFR^DGPMSTAT

TREAT      GOTO TREAT^DGPMSTAT

TREAT1     GOTO TREAT1^DGPMSTAT

TR2        GOTO TR2^DGPMSTAT