DGINP ;ALB/JDS - INPUT SYNTAX CHECKS ; 25 SEP 84 14:20
;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
;
; *****************************************************************
; *
; * Note Well: This routine is in the process of being removed.
; * As of MAS 5.3, the old DGINP was renamed to DGRPDD1. This
; * was done to eliminate non-init routines from the DGI name-
; * space. Programmers should change any references to DGINP
; * to DGRPDD1. This routine is scheduled to be removed 18
; * months following the release of MAS 5.3.
; *
; *****************************************************************
;
SSN G SSN^DGRPDD1
SSNQ G SSNQ^DGRPDD1
C G C^DGRPDD1
PSEU G PSEU^DGRPDD1
COL G COL^DGRPDD1
CON G CON^DGRPDD1
CAT G CAT^DGRPDD1
CATQ G CATQ^DGRPDD1
VIET G VIET^DGRPDD1
POS G POS^DGRPDD1
POSQ G POSQ^DGRPDD1
PS G PS^DGRPDD1
PS2 G PS2^DGRPDD1
PS3 G PS3^DGRPDD1
PSQ G PSQ^DGRPDD1
CAT1 G CAT1^DGRPDD1
DGINP ;ALB/JDS - INPUT SYNTAX CHECKS ; 25 SEP 84 14:20
+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 MAS 5.3, the old DGINP was renamed to DGRPDD1. This
+7 ; * was done to eliminate non-init routines from the DGI name-
+8 ; * space. Programmers should change any references to DGINP
+9 ; * to DGRPDD1. This routine is scheduled to be removed 18
+10 ; * months following the release of MAS 5.3.
+11 ; *
+12 ; *****************************************************************
+13 ;
SSN GOTO SSN^DGRPDD1
SSNQ GOTO SSNQ^DGRPDD1
C GOTO C^DGRPDD1
PSEU GOTO PSEU^DGRPDD1
COL GOTO COL^DGRPDD1
CON GOTO CON^DGRPDD1
CAT GOTO CAT^DGRPDD1
CATQ GOTO CATQ^DGRPDD1
VIET GOTO VIET^DGRPDD1
POS GOTO POS^DGRPDD1
POSQ GOTO POSQ^DGRPDD1
PS GOTO PS^DGRPDD1
PS2 GOTO PS2^DGRPDD1
PS3 GOTO PS3^DGRPDD1
PSQ GOTO PSQ^DGRPDD1
CAT1 GOTO CAT1^DGRPDD1