Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DGMTSC1

DGMTSC1.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. ; Input -- DFN Patient IEN
  1. ; DGMTACT Means Test Action
  1. ; DGVINI Veteran Individual Annual Income IEN
  1. ; DGVIRI Veteran Income Relation IEN
  1. ; DGVPRI Veteran Patient Relation IEN
  1. ; Output -- None
  1. ;
  1. EN ;Entry point for marital status/dependent screen
  1. D DIS
  1. S X="^2" G EN1^DGMTSCR
  1. ;
  1. DIS ;Display marital status/dependent information
  1. N DGDEP,DGINR,DGREL,DGVIR0,X
  1. D ALL^DGMTU21(DFN,"CS",DGMTDT,"PR",$S($G(DGMTI):DGMTI,1:""))
  1. D GROSS^DGMTSCU4(DGVINI,DFN,DGMTDT,DGVIRI)
  1. D EN^DGDEP,DEP
  1. DISQ Q
  1. ;
  1. SPOUSE ;Add/Edit spouse demographic data
  1. N DGFL,DGIPI,DGPRI,DGREL,DGPRTY
  1. D GETREL^DGMTU11(DFN,"S",$$LYR^DGMTSCU1($S($G(DGMTDT):DGMTDT,1:DT)),$S($G(DGMTI):DGMTI,1:""))
  1. SPOUSE1 S DGPRTY="S",DGPRI=$G(DGREL("S"))
  1. D:DGPRI EDIT^DGRPEIS(DGPRI,DGPRTY)
  1. D ADD^DGRPEIS(DFN,DGPRTY):'DGPRI
  1. I DGFL<0 S DGMTOUT=1
  1. SPOUSEQ Q
  1. ;
  1. DEP ;Update number of dependent children
  1. N DA,DGDEP,DGREL,DIE,DR
  1. D GETREL^DGMTU11(DFN,"C",$$LYR^DGMTSCU1(DGMTDT),$S($G(DGMTI):DGMTI,1:""))
  1. S DA=DGVIRI,DIE="^DGMT(408.22,",DR=".08////^S X="_$S(DGDEP:1,1:0)_";.13///"_$S(DGDEP:DGDEP,1:"@") D ^DIE
  1. D:+$G(DGMTDPCH) S DGMTDPCH=0
  1. .S DGMTDPCH=$$ADJUST^DGMTSCU4(DGVINI,DFN,DGMTDT,DGVIRI)
  1. .Q
  1. Q