source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGRP8.m@ 1365

Last change on this file since 1365 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 424 bytes
Line 
1DGRP8 ;ALB/MIR - FAMILY DEMOGRAPHIC SCREEN DISPLAY ; 12 FEB 92
2 ;;5.3;Registration;**45,54,487**;Aug 13, 1993
3 ;
4 ; Screen to display current spouse and dependents
5 ;
6EN I $D(DVBGUI) G ENQ ; IF CALLED BY CAPRI, SKIP SCREEN 8
7 ;
8 ; Start display
9 N DGMTYPT,DGMTCP,DGXR,DGSCR8
10 S DGSCR8=1 D EN^DGDEP
11 ;
12ENQ S X=132 X ^%ZOSF("RM")
13 N I,X F I=9:1 S X=$E(DGRPVV,I) Q:'X
14 S DGRPANN="^"_I
15 G JUMP^DGRPP ; jumps to next 'on' screen
Note: See TracBrowser for help on using the repository browser.