DGRPDD ;ALB/MLI - MISC DD CALLS FOR REGISTRATION ; 29 JUN 92
;;5.3;Registration;;Aug 13, 1993
;
;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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGRPDD 492 printed Oct 16, 2024@18:56:46 Page 2
DGRPDD ;ALB/MLI - MISC DD CALLS FOR REGISTRATION ; 29 JUN 92
+1 ;;5.3;Registration;;Aug 13, 1993
+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
