| 1 | DGMTSC1 ;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 | ;
|
|---|
| 11 | EN ;Entry point for marital status/dependent screen
|
|---|
| 12 | D DIS
|
|---|
| 13 | S X="^2" G EN1^DGMTSCR
|
|---|
| 14 | ;
|
|---|
| 15 | DIS ;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
|
|---|
| 20 | DISQ Q
|
|---|
| 21 | ;
|
|---|
| 22 | SPOUSE ;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:""))
|
|---|
| 25 | SPOUSE1 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
|
|---|
| 29 | SPOUSEQ Q
|
|---|
| 30 | ;
|
|---|
| 31 | DEP ;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
|
|---|
