DGINP.m

DGINP ;ALB/JDS - INPUT SYNTAX CHECKS ; 25 SEP 84  14:20

 ;;5.3;Registration;;Aug 13, 1993

 ;

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

 ;  *

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGINP   954     printed  Apr 09, 2024@22:00:26                                                                                                                                                                                                        Page 2

DGINP     ;ALB/JDS - INPUT SYNTAX CHECKS ; 25 SEP 84  14:20

 +1       ;;5.3;Registration;;Aug 13, 1993

 +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