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

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

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1DGMTSC1 ;ALB/RMO/CAW - Means Test Screen Marital Status/Dependents ;24 JAN 1992 7:40 am
2 ;;5.3;Registration;**45,624**;Aug 13, 1993
3 ;
4 ; Input -- DFN Patient IEN
5 ; DGMTACT Means Test Action
6 ; DGVINI Veteran Individual Annual Income IEN
7 ; DGVIRI Veteran Income Relation IEN
8 ; DGVPRI Veteran Patient Relation IEN
9 ; Output -- None
10 ;
11EN ;Entry point for marital status/dependent screen
12 D DIS
13 S X="^2" G EN1^DGMTSCR
14 ;
15DIS ;Display marital status/dependent information
16 N DGDEP,DGINR,DGREL,DGVIR0,X
17 D ALL^DGMTU21(DFN,"CS",DGMTDT,"PR",$S($G(DGMTI):DGMTI,1:""))
18 D GROSS^DGMTSCU4(DGVINI,DFN,DGMTDT,DGVIRI)
19 D EN^DGDEP,DEP
20DISQ Q
21 ;
22SPOUSE ;Add/Edit spouse demographic data
23 N DGFL,DGIPI,DGPRI,DGREL,DGPRTY
24 D GETREL^DGMTU11(DFN,"S",$$LYR^DGMTSCU1($S($G(DGMTDT):DGMTDT,1:DT)),$S($G(DGMTI):DGMTI,1:""))
25SPOUSE1 S DGPRTY="S",DGPRI=$G(DGREL("S"))
26 D:DGPRI EDIT^DGRPEIS(DGPRI,DGPRTY)
27 D ADD^DGRPEIS(DFN,DGPRTY):'DGPRI
28 I DGFL<0 S DGMTOUT=1
29SPOUSEQ Q
30 ;
31DEP ;Update number of dependent children
32 N DA,DGDEP,DGREL,DIE,DR
33 D GETREL^DGMTU11(DFN,"C",$$LYR^DGMTSCU1(DGMTDT),$S($G(DGMTI):DGMTI,1:""))
34 S DA=DGVIRI,DIE="^DGMT(408.22,",DR=".08////^S X="_$S(DGDEP:1,1:0)_";.13///"_$S(DGDEP:DGDEP,1:"@") D ^DIE
35 D:+$G(DGMTDPCH) S DGMTDPCH=0
36 .S DGMTDPCH=$$ADJUST^DGMTSCU4(DGVINI,DFN,DGMTDT,DGVIRI)
37 .Q
38 Q
Note: See TracBrowser for help on using the repository browser.