DGMTSC1.m

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 ---DGMTSC1   1384     printed  Apr 09, 2024@21:41:54                                                                                                                                                                                                     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