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 ---[H[J[2J[HDGRP8 439 printed Dec 13, 2024@02:55:50 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
