- DGMTSC3V ;ALB/AMA - Means Test Screen Deductible Expense For MT Version 1
- ;;5.3;Registration;**688**;Aug 13, 1993;Build 29
- ;Copied from DGMTSC3
- ;
- ; Input -- DGVINI Veteran Individual Annual Income IEN
- ; DGVIRI Veteran Income Relation IEN
- ; DGVPRI Veteran Patient Relation IEN
- ; Output -- None
- ;
- EN ;Entry point for deductible expense screen
- S DGMTSCI=3 D HD^DGMTSCU
- D DIS
- S DGRNG="1-"_$S('DGDC:1,1:2) G EN^DGMTSCR
- EN1 ;Entry point for read processor return
- S DGVIR0=$G(^DGMT(408.22,DGVIRI,0)),DGIN1("V")=$G(^DGMT(408.21,DGVINI,1))
- S DR="[DGMT V1 ENTER/EDIT EXPENSES]"
- S DA=DGVINI,DIE="^DGMT(408.21," D ^DIE S:'$D(DGFIN) DGMTOUT=1
- I DGIN1("V")'=$G(^DGMT(408.21,DGVINI,1)) S DR="103////^S X=DUZ;104///^S X=""NOW""" D ^DIE K DA,DIE,DR
- I '$G(DGMTOUT),DGDR["102" D EN^DGMTSC31
- Q K DGDC,DGDR,DGFIN,DGIN1,DGMTOUT,DGREL,DGVIR0,DGX,DGY,DTOUT,DUOUT
- G EN
- ;
- DIS ;Display deductible expenses
- N DGCNT,DGDCS,DGDEP,DGIN1,DGINC,DGINR,DGREL,DGVIR0
- S DGVIR0=$G(^DGMT(408.22,DGVIRI,0)),DGIN1("V")=$G(^DGMT(408.21,DGVINI,1))
- S DGDC=$P(DGVIR0,"^",8) I DGDC D SET^DGMTSC31 S:'$D(DGDCS) DGDC=0
- D HIGH^DGMTSCU1(1,DGMTACT) W $J("Total Non-Reimbursed Medical Expenses: ",41),$S(+$P(DGIN1("V"),"^",12)'<0:$$AMT^DGMTSCU1(+$P(DGIN1("V"),"^",12)),1:"N/A")
- W !,$J("Adjusted Medical Expenses: ",44),$S(+$P(DGIN1("V"),"^")'<0:$$AMT^DGMTSCU1(+$P(DGIN1("V"),"^")),1:"N/A")
- W !,$J("Funeral and Burial Expenses: ",44),$$AMT^DGMTSCU1($P(DGIN1("V"),"^",2))
- W !,$J("Veteran's Educational Expenses: ",44),$$AMT^DGMTSCU1($P(DGIN1("V"),"^",3))
- W ! D HIGH^DGMTSCU1(2,DGMTACT) W ?7," Child's Education Expenses: ",$S('DGDC:"N/A",1:"") D DIS^DGMTSC31:DGDC
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGMTSC3V 1701 printed Feb 19, 2025@00:11:25 Page 2
- DGMTSC3V ;ALB/AMA - Means Test Screen Deductible Expense For MT Version 1
- +1 ;;5.3;Registration;**688**;Aug 13, 1993;Build 29
- +2 ;Copied from DGMTSC3
- +3 ;
- +4 ; Input -- DGVINI Veteran Individual Annual Income IEN
- +5 ; DGVIRI Veteran Income Relation IEN
- +6 ; DGVPRI Veteran Patient Relation IEN
- +7 ; Output -- None
- +8 ;
- EN ;Entry point for deductible expense screen
- +1 SET DGMTSCI=3
- DO HD^DGMTSCU
- +2 DO DIS
- +3 SET DGRNG="1-"_$SELECT('DGDC:1,1:2)
- GOTO EN^DGMTSCR
- EN1 ;Entry point for read processor return
- +1 SET DGVIR0=$GET(^DGMT(408.22,DGVIRI,0))
- SET DGIN1("V")=$GET(^DGMT(408.21,DGVINI,1))
- +2 SET DR="[DGMT V1 ENTER/EDIT EXPENSES]"
- +3 SET DA=DGVINI
- SET DIE="^DGMT(408.21,"
- DO ^DIE
- if '$DATA(DGFIN)
- SET DGMTOUT=1
- +4 IF DGIN1("V")'=$GET(^DGMT(408.21,DGVINI,1))
- SET DR="103////^S X=DUZ;104///^S X=""NOW"""
- DO ^DIE
- KILL DA,DIE,DR
- +5 IF '$GET(DGMTOUT)
- IF DGDR["102"
- DO EN^DGMTSC31
- Q KILL DGDC,DGDR,DGFIN,DGIN1,DGMTOUT,DGREL,DGVIR0,DGX,DGY,DTOUT,DUOUT
- +1 GOTO EN
- +2 ;
- DIS ;Display deductible expenses
- +1 NEW DGCNT,DGDCS,DGDEP,DGIN1,DGINC,DGINR,DGREL,DGVIR0
- +2 SET DGVIR0=$GET(^DGMT(408.22,DGVIRI,0))
- SET DGIN1("V")=$GET(^DGMT(408.21,DGVINI,1))
- +3 SET DGDC=$PIECE(DGVIR0,"^",8)
- IF DGDC
- DO SET^DGMTSC31
- if '$DATA(DGDCS)
- SET DGDC=0
- +4 DO HIGH^DGMTSCU1(1,DGMTACT)
- WRITE $JUSTIFY("Total Non-Reimbursed Medical Expenses: ",41),$SELECT(+$PIECE(DGIN1("V"),"^",12)'<0:$$AMT^DGMTSCU1(+$PIECE(DGIN1("V"),"^",12)),1:"N/A")
- +5 WRITE !,$JUSTIFY("Adjusted Medical Expenses: ",44),$SELECT(+$PIECE(DGIN1("V"),"^")'<0:$$AMT^DGMTSCU1(+$PIECE(DGIN1("V"),"^")),1:"N/A")
- +6 WRITE !,$JUSTIFY("Funeral and Burial Expenses: ",44),$$AMT^DGMTSCU1($PIECE(DGIN1("V"),"^",2))
- +7 WRITE !,$JUSTIFY("Veteran's Educational Expenses: ",44),$$AMT^DGMTSCU1($PIECE(DGIN1("V"),"^",3))
- +8 WRITE !
- DO HIGH^DGMTSCU1(2,DGMTACT)
- WRITE ?7," Child's Education Expenses: ",$SELECT('DGDC:"N/A",1:"")
- if DGDC
- DO DIS^DGMTSC31
- +9 QUIT
