| 1 | EASECSC3 ;ALB/PHH - LTC Co-Pay Test Screen Marital Status/Dependents ;13 AUG 2001
|
|---|
| 2 | ;;1.0;ENROLLMENT APPLICATION SYSTEM;**5**;Mar 15, 2001
|
|---|
| 3 | ;
|
|---|
| 4 | ;NOTE: This routine was modified from DGMTSC1 for LTC Co-Pay
|
|---|
| 5 | ; Input -- DFN Patient IEN
|
|---|
| 6 | ; DGMTACT LTC Co-Pay Test Action
|
|---|
| 7 | ; DGVINI Veteran Individual Annual Income IEN
|
|---|
| 8 | ; DGVIRI Veteran Income Relation IEN
|
|---|
| 9 | ; DGVPRI Veteran Patient Relation IEN
|
|---|
| 10 | ; Output -- None
|
|---|
| 11 | ;
|
|---|
| 12 | EN ;Entry point for marital status/dependent screen
|
|---|
| 13 | D DIS
|
|---|
| 14 | S X="^4" G EN1^EASECSCR
|
|---|
| 15 | ;
|
|---|
| 16 | DIS ;Display marital status/dependent information
|
|---|
| 17 | N DGDEP,DGINR,DGREL,DGVIR0,X
|
|---|
| 18 | D ALL^EASECU21(DFN,"CS",DGMTDT,"PR",$S($G(DGMTI):DGMTI,1:""))
|
|---|
| 19 | D EN^EASECDEP,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",$E($S($G(DGMTDT):DGMTDT,1:DT),1,3)_"0000",$S($G(DGMTI):DGMTI,1:""))
|
|---|
| 25 | SPOUSE1 S DGPRTY="S",DGPRI=$G(DGREL("S"))
|
|---|
| 26 | D:DGPRI EDIT^EASECED(DGPRI,DGPRTY)
|
|---|
| 27 | D ADD^EASECED(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",$E(DGMTDT,1,3)_"0000",$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 | Q
|
|---|
