- 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 Jan 18, 2025@03:45:58 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