DGIN.m

DGIN ;ALB/JDS - HISTORICAL INPATIENT OUTPUT ;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 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

DGIN      ;ALB/JDS - HISTORICAL INPATIENT OUTPUT ;01 JAN 1986

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

 +2       ;

 +3       ;  *****************************************************************

 +4       ;  *

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

 +6       ;  *   As of PIMS v5.3, the old DGIN was renamed to DGPMHST.  This

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

 +8       ;  *   space.  Programmers should change any references to DGIN

 +9       ;  *   to DGPMHST.  This routine is scheduled to be removed 18 

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

 +11      ;  *

 +12      ;  *****************************************************************

 +13      ;

EN         GOTO EN^DGPMHST

EN1        GOTO EN1^DGPMHST

EN2        GOTO EN2^DGPMHST

Q          GOTO Q^DGPMHST

SET        GOTO SET^DGPMHST