DGMTSC1 ;ALB/RMO/CAW - Means Test Screen Marital Status/Dependents ;24 JAN 1992 7:40 am
;;5.3;Registration;**45,624**;Aug 13, 1993
;
; Input -- DFN Patient IEN
; DGMTACT Means Test Action
; DGVINI Veteran Individual Annual Income IEN
; DGVIRI Veteran Income Relation IEN
; DGVPRI Veteran Patient Relation IEN
; Output -- None
;
EN ;Entry point for marital status/dependent screen
D DIS
S X="^2" G EN1^DGMTSCR
;
DIS ;Display marital status/dependent information
N DGDEP,DGINR,DGREL,DGVIR0,X
D ALL^DGMTU21(DFN,"CS",DGMTDT,"PR",$S($G(DGMTI):DGMTI,1:""))
D GROSS^DGMTSCU4(DGVINI,DFN,DGMTDT,DGVIRI)
D EN^DGDEP,DEP
DISQ Q
;
SPOUSE ;Add/Edit spouse demographic data
N DGFL,DGIPI,DGPRI,DGREL,DGPRTY
D GETREL^DGMTU11(DFN,"S",$$LYR^DGMTSCU1($S($G(DGMTDT):DGMTDT,1:DT)),$S($G(DGMTI):DGMTI,1:""))
SPOUSE1 S DGPRTY="S",DGPRI=$G(DGREL("S"))
D:DGPRI EDIT^DGRPEIS(DGPRI,DGPRTY)
D ADD^DGRPEIS(DFN,DGPRTY):'DGPRI
I DGFL<0 S DGMTOUT=1
SPOUSEQ Q
;
DEP ;Update number of dependent children
N DA,DGDEP,DGREL,DIE,DR
D GETREL^DGMTU11(DFN,"C",$$LYR^DGMTSCU1(DGMTDT),$S($G(DGMTI):DGMTI,1:""))
S DA=DGVIRI,DIE="^DGMT(408.22,",DR=".08////^S X="_$S(DGDEP:1,1:0)_";.13///"_$S(DGDEP:DGDEP,1:"@") D ^DIE
D:+$G(DGMTDPCH) S DGMTDPCH=0
.S DGMTDPCH=$$ADJUST^DGMTSCU4(DGVINI,DFN,DGMTDT,DGVIRI)
.Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGMTSC1 1384 printed Dec 13, 2024@02:45:17 Page 2
DGMTSC1 ;ALB/RMO/CAW - Means Test Screen Marital Status/Dependents ;24 JAN 1992 7:40 am
+1 ;;5.3;Registration;**45,624**;Aug 13, 1993
+2 ;
+3 ; Input -- DFN Patient IEN
+4 ; DGMTACT Means Test Action
+5 ; DGVINI Veteran Individual Annual Income IEN
+6 ; DGVIRI Veteran Income Relation IEN
+7 ; DGVPRI Veteran Patient Relation IEN
+8 ; Output -- None
+9 ;
EN ;Entry point for marital status/dependent screen
+1 DO DIS
+2 SET X="^2"
GOTO EN1^DGMTSCR
+3 ;
DIS ;Display marital status/dependent information
+1 NEW DGDEP,DGINR,DGREL,DGVIR0,X
+2 DO ALL^DGMTU21(DFN,"CS",DGMTDT,"PR",$SELECT($GET(DGMTI):DGMTI,1:""))
+3 DO GROSS^DGMTSCU4(DGVINI,DFN,DGMTDT,DGVIRI)
+4 DO EN^DGDEP
DO DEP
DISQ QUIT
+1 ;
SPOUSE ;Add/Edit spouse demographic data
+1 NEW DGFL,DGIPI,DGPRI,DGREL,DGPRTY
+2 DO GETREL^DGMTU11(DFN,"S",$$LYR^DGMTSCU1($SELECT($GET(DGMTDT):DGMTDT,1:DT)),$SELECT($GET(DGMTI):DGMTI,1:""))
SPOUSE1 SET DGPRTY="S"
SET DGPRI=$GET(DGREL("S"))
+1 if DGPRI
DO EDIT^DGRPEIS(DGPRI,DGPRTY)
+2 if 'DGPRI
DO ADD^DGRPEIS(DFN,DGPRTY)
+3 IF DGFL<0
SET DGMTOUT=1
SPOUSEQ QUIT
+1 ;
DEP ;Update number of dependent children
+1 NEW DA,DGDEP,DGREL,DIE,DR
+2 DO GETREL^DGMTU11(DFN,"C",$$LYR^DGMTSCU1(DGMTDT),$SELECT($GET(DGMTI):DGMTI,1:""))
+3 SET DA=DGVIRI
SET DIE="^DGMT(408.22,"
SET DR=".08////^S X="_$SELECT(DGDEP:1,1:0)_";.13///"_$SELECT(DGDEP:DGDEP,1:"@")
DO ^DIE
+4 if +$GET(DGMTDPCH)
Begin DoDot:1
+5 SET DGMTDPCH=$$ADJUST^DGMTSCU4(DGVINI,DFN,DGMTDT,DGVIRI)
+6 QUIT
End DoDot:1
SET DGMTDPCH=0
+7 QUIT
