EASECSC3.m

EASECSC3 ;ALB/PHH - LTC Co-Pay Test Screen Marital Status/Dependents ;13 AUG 2001

 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**5**;Mar 15, 2001

 ;

 ;NOTE: This routine was modified from DGMTSC1 for LTC Co-Pay

 ; Input  -- DFN      Patient IEN

 ;           DGMTACT  LTC Co-Pay 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="^4" G EN1^EASECSCR

 ;

DIS ;Display marital status/dependent information

 N DGDEP,DGINR,DGREL,DGVIR0,X

 D ALL^EASECU21(DFN,"CS",DGMTDT,"PR",$S($G(DGMTI):DGMTI,1:""))

 D EN^EASECDEP,DEP

DISQ Q

 ;

SPOUSE ;Add/Edit spouse demographic data

 N DGFL,DGIPI,DGPRI,DGREL,DGPRTY

 D GETREL^DGMTU11(DFN,"S",$E($S($G(DGMTDT):DGMTDT,1:DT),1,3)_"0000",$S($G(DGMTI):DGMTI,1:""))

SPOUSE1 S DGPRTY="S",DGPRI=$G(DGREL("S"))

 D:DGPRI EDIT^EASECED(DGPRI,DGPRTY)

 D ADD^EASECED(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",$E(DGMTDT,1,3)_"0000",$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

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---EASECSC3   1321     printed  Apr 23, 2025@18:08:40                                                                                                                                                                                                    Page 2

EASECSC3  ;ALB/PHH - LTC Co-Pay Test Screen Marital Status/Dependents ;13 AUG 2001

 +1       ;;1.0;ENROLLMENT APPLICATION SYSTEM;**5**;Mar 15, 2001

 +2       ;

 +3       ;NOTE: This routine was modified from DGMTSC1 for LTC Co-Pay

 +4       ; Input  -- DFN      Patient IEN

 +5       ;           DGMTACT  LTC Co-Pay 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      ;

EN        ;Entry point for marital status/dependent screen

 +1        DO DIS

 +2        SET X="^4"

           GOTO EN1^EASECSCR

 +3       ;

DIS       ;Display marital status/dependent information

 +1        NEW DGDEP,DGINR,DGREL,DGVIR0,X

 +2        DO ALL^EASECU21(DFN,"CS",DGMTDT,"PR",$SELECT($GET(DGMTI):DGMTI,1:""))

 +3        DO EN^EASECDEP

           DO DEP

DISQ       QUIT 

 +1       ;

SPOUSE    ;Add/Edit spouse demographic data

 +1        NEW DGFL,DGIPI,DGPRI,DGREL,DGPRTY

 +2        DO GETREL^DGMTU11(DFN,"S",$EXTRACT($SELECT($GET(DGMTDT):DGMTDT,1:DT),1,3)_"0000",$SELECT($GET(DGMTI):DGMTI,1:""))

SPOUSE1    SET DGPRTY="S"

           SET DGPRI=$GET(DGREL("S"))

 +1        if DGPRI

               DO EDIT^EASECED(DGPRI,DGPRTY)

 +2        if 'DGPRI

               DO ADD^EASECED(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",$EXTRACT(DGMTDT,1,3)_"0000",$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        QUIT