DGRPDD.m

DGRPDD ;ALB/MLI - MISC DD CALLS FOR REGISTRATION ; 29 JUN 92

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

 ;

 ;This routine is used to store misc. DD calls from registration

 ;

 ;

FAMINF ; called from SHOW FAMILY INFO SCREEN field in the TYPE OF

 ; PATIENT file.

 ;

 I $P($G(^DG(391,DA,0)),"^",1)["NSC" S X=1 W *7,"  (YES)"

 Q

 ;

 ;

INCSCR ; called from SHOW INCOME SCREENING SCREEN field in the TYPE OF

 ; PATIENT file.

 ;

 I $P($G(^DG(391,DA,0)),"^",1)["NSC" S X=1 W *7,"  (YES)"

 Q

DGRPDD    ;ALB/MLI - MISC DD CALLS FOR REGISTRATION ; 29 JUN 92

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

 +2       ;

 +3       ;This routine is used to store misc. DD calls from registration

 +4       ;

 +5       ;

FAMINF    ; called from SHOW FAMILY INFO SCREEN field in the TYPE OF

 +1       ; PATIENT file.

 +2       ;

 +3        IF $PIECE($GET(^DG(391,DA,0)),"^",1)["NSC"

               SET X=1

               WRITE *7,"  (YES)"

 +4        QUIT 

 +5       ;

 +6       ;

INCSCR    ; called from SHOW INCOME SCREENING SCREEN field in the TYPE OF

 +1       ; PATIENT file.

 +2       ;

 +3        IF $PIECE($GET(^DG(391,DA,0)),"^",1)["NSC"

               SET X=1

               WRITE *7,"  (YES)"

 +4        QUIT