DGIN ;ALB/JDS - HISTORICAL INPATIENT OUTPUT ;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 DGIN was renamed to DGPMHST.  This
 ;  *   was done to eliminate non-init routines from the DGI name-
 ;  *   space.  Programmers should change any references to DGIN
 ;  *   to DGPMHST.  This routine is scheduled to be removed 18 
 ;  *   months following the release of PIMS v5.3.
 ;  *
 ;  *****************************************************************
 ;
EN G EN^DGPMHST
EN1 G EN1^DGPMHST
EN2 G EN2^DGPMHST
Q G Q^DGPMHST
SET G SET^DGPMHST