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 ---[H[J[2J[HEASECSC3 1321 printed Dec 13, 2024@01:54:10 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
