|
Last change
on this file since 636 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
424 bytes
|
| Line | |
|---|
| 1 | DGRP8 ;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 | ;
|
|---|
| 6 | EN 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 | ;
|
|---|
| 12 | ENQ 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.
