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

DGMTUTL2.m

Go to the documentation of this file. 
  1. DGMTUTL2 ;ALB/RMM - Means Test Consistency Checker ; 04/28/2005
  1.  ;;5.3;Registration;**463,655,1015**;Aug 13, 1993;Build 21
  1.  ;
  1.  ; This routine sets the data strings used in the Income Test
  1.  ; Inconsistency Checks.
  1.  Q
  1.  ;
  1. ZIC(VAFIEN,DEPIEN) ; Build ZIC the data string for the veteran
  1.  ;
  1.  N NODE0,NODE1,NODE2,ZIC
  1.  S NODE0=$G(^DGMT(408.21,VAFIEN,0))
  1.  S NODE1=$G(^DGMT(408.21,VAFIEN,1))
  1.  S NODE2=$G(^DGMT(408.21,VAFIEN,2))
  1.  S ZIC="ZIC"
  1.  S $P(ZIC,U,2)=$P(NODE0,U,1)         ;Income Year
  1.  S $P(ZIC,U,3)=$P(NODE0,U,8)         ;Social Security
  1.  S $P(ZIC,U,4)=$P(NODE0,U,9)         ;U.S. Civil Service
  1.  S $P(ZIC,U,5)=$P(NODE0,U,10)        ;U.S. Railroad Retirement
  1.  S $P(ZIC,U,6)=$P(NODE0,U,11)        ;Military Retirement
  1.  S $P(ZIC,U,7)=$P(NODE0,U,12)        ;Unemployment Compensation
  1.  S $P(ZIC,U,9)=$P(NODE0,U,14)        ;Total Income from Employment
  1.  S $P(ZIC,U,10)=$P(NODE0,U,15)       ;Interest,Dividend,Annuity
  1.  S $P(ZIC,U,11)=$P(NODE0,U,16)       ;Workers Comp. or Black Lung
  1.  S $P(ZIC,U,12)=$P(NODE0,U,17)       ;All Other Income
  1.  S $P(ZIC,U,13)=$P(NODE1,U,1)        ;Medical Expenses
  1.  S $P(ZIC,U,14)=$P(NODE1,U,2)        ;Funeral And Burial Expenses
  1.  S $P(ZIC,U,15)=$P(NODE1,U,3)        ;Educational Expenses
  1.  S $P(ZIC,U,16)=$P(NODE2,U,1)        ;Cash, Amount In Bank Accounts
  1.  S $P(ZIC,U,17)=$P(NODE2,U,2)        ;Stocks And Bonds
  1.  S $P(ZIC,U,18)=$P(NODE2,U,3)        ;Real Property
  1.  S $P(ZIC,U,19)=$P(NODE2,U,4)        ;Other Property or Assets
  1.  S $P(ZIC,U,20)=$P(NODE2,U,5)        ;Debts
  1.  ;
  1.  ; Adjust date field to correct format
  1.  S $P(ZIC,U,2)=$E($P(ZIC,U,2),1,3)+1700_$E($P(ZIC,U,2),4,7)
  1.  ;
  1.  Q ZIC
  1.  ;
  1. ZIR(VAFIEN,DEPIEN) ; Build ZIR the data string for the veteran
  1.  N NODE0,ZIR
  1.  S NODE0=$G(^DGMT(408.22,VAFIEN,0)),ZIR="ZIR"
  1.  S $P(ZIR,U,3)=$P(NODE0,U,6)         ;Lived With Patient
  1.  S $P(ZIR,U,4)=$P(NODE0,U,7)         ;Amount Contributed to Spouse
  1.  S $P(ZIR,U,8)=$P(NODE0,U,11)        ;Child Had Income
  1.  S $P(ZIR,U,9)=$P(NODE0,U,12)        ;Income Available to You
  1.  Q ZIR
  1.  ;
  1. ZMT(DGMTI) ; Build ZMT the data string for the veteran
  1.  ;
  1.  N NODE0,NODE2,ZMT
  1.  S NODE0=$G(^DGMT(408.31,DGMTI,0))
  1.  S NODE2=$G(^DGMT(408.31,DGMTI,2)),ZMT="ZMT"
  1.  S $P(ZMT,U,2)=$P(NODE0,U,1)         ;Means Test Date
  1.  S $P(ZMT,U,3)=$P(NODE0,U,3)         ;Means Test Status
  1.  S $P(ZMT,U,4)=$P(NODE0,U,4)         ;Income
  1.  S $P(ZMT,U,5)=$P(NODE0,U,5)         ;Net Worth
  1.  S $P(ZMT,U,6)=$P(NODE0,U,10)        ;Date/Time of Adjudication
  1.  S $P(ZMT,U,7)=$P(NODE0,U,11)        ;Agreed to Pay Deductible
  1.  S $P(ZMT,U,8)=$P(NODE0,U,12)        ;Threshold A
  1.  S $P(ZMT,U,9)=$P(NODE0,U,15)        ;Deductible Expenses
  1.  S $P(ZMT,U,10)=$P(NODE0,U,7)        ;Date/Time MT Completed
  1.  S $P(ZMT,U,11)=$P(NODE0,U,16)       ;Previous Yr MT Threshold Flag
  1.  S $P(ZMT,U,12)=$P(NODE0,U,18)       ;Total Dependents
  1.  S $P(ZMT,U,13)=$P(NODE0,U,20)       ;Hardship
  1.  S $P(ZMT,U,14)=$P(NODE0,U,21)       ;Hardship Review Date
  1.  S $P(ZMT,U,15)=$P(NODE0,U,24)       ;Date Veteran Signed Test
  1.  S $P(ZMT,U,16)=$P(NODE0,U,14)       ;Declines to Give Income Info
  1.  S $P(ZMT,U,17)=$P(NODE0,U,19)       ;Type of Test
  1.  S $P(ZMT,U,18)=$P(NODE0,U,23)       ;Source of Income Test
  1.  S $P(ZMT,U,19)=$P($G(^DGMT(408.31,DGMTI,"PRIM")),U,1)  ;Primary Test?
  1.  S $P(ZMT,U,20)=$P(NODE0,U,25)       ;Date IVM Verif. MT Completed
  1.  S $P(ZMT,U,21)=$P(NODE0,U,26)       ;Refused To Sign
  1.  S $P(ZMT,U,22)=$P(NODE2,U,5)        ;Site Conducting Test
  1.  S $P(ZMT,U,23)=$P(NODE2,U,4)        ;Hardship Review Site
  1.  S $P(ZMT,U,24)=$P(NODE2,U,1)        ;Hardship Effective Date
  1.  S $P(ZMT,U,25)=$P(NODE2,U,2)        ;Date/Time Test Last Edited
  1.  S $P(ZMT,U,26)=$P(NODE2,U,3)        ;Test Determined Status
  1.  S $P(ZMT,U,28)=$P(NODE0,U,27)       ;GMT Threshold
  1.  ;
  1.  ; Adjust date fields to correct format
  1.  S $P(ZMT,U,2)=$E($P(ZMT,U,2),1,3)+1700_$E($P(ZMT,U,2),4,7)
  1.  S $P(ZMT,U,10)=$E($P(ZMT,U,10),1,3)+1700_$E($P(ZMT,U,10),4,7)
  1.  S $P(ZMT,U,25)=$E($P(ZMT,U,25),1,3)+1700_$E($P(ZMT,U,25),4,7)_$P($P(ZMT,U,25),".",2)_"-400"
  1.  ;
  1.  ; Change Status IENs to Codes
  1.  S:$P(ZMT,U,26)="" $P(ZMT,U,26)=$P(ZMT,U,3)
  1.  S $P(ZMT,U,3)=$P(^DG(408.32,$P(ZMT,U,3),0),U,2)
  1.  S $P(ZMT,U,26)=$P(^DG(408.32,$P(ZMT,U,26),0),U,2)
  1.  ;
  1.  Q ZMT
  1.  ;
  1. ZDP(VAFIEN,DEPIEN) ; Build ZDP the data string for the veteran
  1.  ;
  1.  N NODE0,NODER,DGPR,ZDP,LIEN
  1.  S NODE0=$G(^DGPR(408.12,+VAFIEN,0)),ZDP="ZDP"
  1.  S DGPR=+$P(NODE0,U,3),NODER=^DGPR(408.13,DGPR,0)
  1.  S $P(ZDP,U,2)=$P(NODER,U,1)         ;Name
  1.  S $P(ZDP,U,3)=$P(NODER,U,2)         ;Sex
  1.  S $P(ZDP,U,4)=$P(NODER,U,3)         ;Date of Birth
  1.  S $P(ZDP,U,5)=$P(NODER,U,9)         ;Social Security Number
  1.  S $P(ZDP,U,6)=$P(NODE0,U,2)         ;Relationship To Patient
  1.  S $P(ZDP,U,7)=+VAFIEN               ;Internal Entry Number
  1.  S LIEN=$O(^DGPR(408.12,+VAFIEN,"E","AID"),-1)
  1.  S $P(ZDP,U,9)=+^DGPR(408.12,+VAFIEN,"E",LIEN,0)
  1.  ;
  1.  ; Change format to match CC format
  1.  S $P(ZDP,U,2)=$TR($P(ZDP,U,2),",","~")
  1.  S $P(ZDP,U,4)=$E($P(ZDP,U,4),1,3)+1700_$E($P(ZDP,U,4),4,7)
  1.  S $P(ZDP,U,9)=$E($P(ZDP,U,9),1,3)+1700_$E($P(ZDP,U,9),4,7)
  1.  ;
  1.  Q ZDP
  1.