DGRP8.m

DGRP8 ;ALB/MIR - FAMILY DEMOGRAPHIC SCREEN DISPLAY ; 12 FEB 92

 ;;5.3;Registration;**45,54,487**;Aug 13, 1993

 ;

 ; Screen to display current spouse and dependents

 ;

EN I $D(DVBGUI) G ENQ ; IF CALLED BY CAPRI, SKIP SCREEN 8

 ;

 ; Start display

 N DGMTYPT,DGMTCP,DGXR,DGSCR8

 S DGSCR8=1 D EN^DGDEP

 ;

ENQ S X=132 X ^%ZOSF("RM")

 N I,X F I=9:1 S X=$E(DGRPVV,I) Q:'X

 S DGRPANN="^"_I

 G JUMP^DGRPP ; jumps to next 'on' screen

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DGRP8   439     printed  Feb 19, 2025@00:21:52                                                                                                                                                                                                        Page 2

DGRP8     ;ALB/MIR - FAMILY DEMOGRAPHIC SCREEN DISPLAY ; 12 FEB 92

 +1       ;;5.3;Registration;**45,54,487**;Aug 13, 1993

 +2       ;

 +3       ; Screen to display current spouse and dependents

 +4       ;

EN        ; IF CALLED BY CAPRI, SKIP SCREEN 8

           IF $DATA(DVBGUI)

               GOTO ENQ

 +1       ;

 +2       ; Start display

 +3        NEW DGMTYPT,DGMTCP,DGXR,DGSCR8

 +4        SET DGSCR8=1

           DO EN^DGDEP

 +5       ;

ENQ        SET X=132

           XECUTE ^%ZOSF("RM")

 +1        NEW I,X

           FOR I=9:1

               SET X=$EXTRACT(DGRPVV,I)

               if 'X

                   QUIT 

 +2        SET DGRPANN="^"_I

 +3       ; jumps to next 'on' screen

           GOTO JUMP^DGRPP