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

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

initial load of WorldVistAEHR

File size: 389 bytes
Line 
1DGMTSC11 ;ALB/RMO - Means Test Screen Marital Status/Dependent Cont. ; 25 JAN 92
2 ;;5.3;Registration;**45**;Aug 13, 1993
3 ;
4EDT ;Edit dependent child data
5 N DA,DGERR,DGFIN,DGINI,DGIRI,DIE,DR
6 D GETIENS^DGMTU2(DFN,+DGPRI,DGMTDT) G EDTQ:DGERR
7 S DA=DGIRI,DIE="^DGMT(408.22,",DR="[DGMT ENTER/EDIT DEPENDENTS]" D ^DIE
8 S:'$D(DGFIN) DGFL=$S($D(DTOUT):-2,$D(DUOUT):-1,($D(Y))=10:-1,1:0)
9EDTQ Q
Note: See TracBrowser for help on using the repository browser.