DGMTSC2V.m

DGMTSC2V ;ALB/GTS - Means Test Screen Income (version 1) ;15 DEC 2005 15:45 pm

 ;;5.3;PIMS;**1016**;JUN 30, 2012;Build 20

 ;

 ; Input  -- DFN      Patient IEN

 ;           DGMTDT   Date of Test

 ;           DGVINI   Veteran Individual Annual Income IEN

 ;           DGVIRI   Veteran Income Relation IEN

 ;           DGVPRI   Veteran Patient Relation IEN

 ;           DGMTI    Means Test IEN

 ; Output -- None

 ;

EN ;Entry point for previous calendar year income screen

 S DGMTSCI=2 D HD^DGMTSCU

 D DIS

 S DGRNG="1-3" G EN^DGMTSCR

 ;

EN1 ;Entry point for read processor return

 D ALL^DGMTU21(DFN,"CS",DGMTDT,"IPR",$S($G(DGMTI):DGMTI,1:""))

 I DGX!($G(DGSELTY)["V") S DGPRI=DGVPRI,DGPRTY="V" D EDT

 I '$G(DGMTOUT)&($G(DGSEL)["S")&(DGX!($G(DGSELTY)["S")) S DGPRI=+DGREL("S"),DGPRTY="S" D EDT

 I '$G(DGMTOUT)&($G(DGSEL)["C")&(DGX!($G(DGSELTY)["C")) S DGPRTY="C",DGCNT=0 F  S DGCNT=$O(DGREL("C",DGCNT)) Q:'DGCNT!($G(DGMTOUT))  D

 .D CHK^DGMTSCU2 I Y S DGPRI=+DGREL("C",DGCNT) D EDT

Q K DGCNT,DGDEP,DGDR,DGMTOUT,DGPRI,DGPRTY,DGREL,DGSEL,DGSELTY,DGX,DGY,DTOUT,DUOUT,Y

 G EN

 ;

DIS ;Display income

 N DGDC,DGDET,DGIN0,DGIN1,DGIN2,DGINT,DGINTF,DGNC,DGND,DGNWT,DGNWTF,DGSP,DGVIR0,DGCNT,DGFV2

 S DGFV2=1

 D DEP^DGMTSCU2,INC^DGMTSCU3 S DGCNT=1

 W !!?34,"Veteran" W:DGSP ?46,"Spouse" W:DGDC ?56,"Children" W ?73,"Total"

 W !?31,"-----------------------------------------------"

 D HIGH^DGMTSCU1(1,DGMTACT) W "  Total Employment Income",!

 D FLD^DGMTSC2(.DGIN0,14,"   (Wages, Bonuses, Tips): ")

 D HIGH^DGMTSCU1(2,DGMTACT) W "  Net Income from Farm,",!

 D FLD^DGMTSC2(.DGIN0,17,"   Ranch, Property, Bus.: ")

 D HIGH^DGMTSCU1(3,DGMTACT) W "  Other Income Amounts",!

 W "     (Soc. Sec., Compensation,",!

 D FLD^DGMTSC2(.DGIN0,8,"   Pension, Interest, Div.): ")

 W !?51,"Total -->",?66,$J($$AMT^DGMTSCU1(DGINT),12)

 Q

 ;

EDT ;Edit income fields

 N DA,DGERR,DGFIN,DGINI,DGIN0,DGIRI,DIE,DR

 D GETIENS^DGMTU2(DFN,DGPRI,DGMTDT) G EDTQ:DGERR

 I $G(DGSEL)]"" W !!,"NAME: ",$$NAME^DGMTU1(DGPRI)

 S DGIN0=$G(^DGMT(408.21,DGINI,0))

 S DR="[DGMT V1 ENTER/EDIT ANNUAL INC]"

 S DA=DGINI,DIE="^DGMT(408.21," D ^DIE S:'$D(DGFIN) DGMTOUT=1

 I DGIN0'=$G(^DGMT(408.21,DGINI,0)) S DR="103////^S X=DUZ;104///^S X=""NOW""" D ^DIE

EDTQ Q

DGMTSC2V  ;ALB/GTS - Means Test Screen Income (version 1) ;15 DEC 2005 15:45 pm

 +1       ;;5.3;PIMS;**1016**;JUN 30, 2012;Build 20

 +2       ;

 +3       ; Input  -- DFN      Patient IEN

 +4       ;           DGMTDT   Date of Test

 +5       ;           DGVINI   Veteran Individual Annual Income IEN

 +6       ;           DGVIRI   Veteran Income Relation IEN

 +7       ;           DGVPRI   Veteran Patient Relation IEN

 +8       ;           DGMTI    Means Test IEN

 +9       ; Output -- None

 +10      ;

EN        ;Entry point for previous calendar year income screen

 +1        SET DGMTSCI=2

           DO HD^DGMTSCU

 +2        DO DIS

 +3        SET DGRNG="1-3"

           GOTO EN^DGMTSCR

 +4       ;

EN1       ;Entry point for read processor return

 +1        DO ALL^DGMTU21(DFN,"CS",DGMTDT,"IPR",$SELECT($GET(DGMTI):DGMTI,1:""))

 +2        IF DGX!($GET(DGSELTY)["V")

               SET DGPRI=DGVPRI

               SET DGPRTY="V"

               DO EDT

 +3        IF '$GET(DGMTOUT)&($GET(DGSEL)["S")&(DGX!($GET(DGSELTY)["S"))

               SET DGPRI=+DGREL("S")

               SET DGPRTY="S"

               DO EDT

 +4        IF '$GET(DGMTOUT)&($GET(DGSEL)["C")&(DGX!($GET(DGSELTY)["C"))

               SET DGPRTY="C"

               SET DGCNT=0

               FOR 

                   SET DGCNT=$ORDER(DGREL("C",DGCNT))

                   IF 'DGCNT!($GET(DGMTOUT))

                       QUIT 

                   Begin DoDot:1

 +5                    DO CHK^DGMTSCU2

                       IF Y

                           SET DGPRI=+DGREL("C",DGCNT)

                           DO EDT

                   End DoDot:1

Q          KILL DGCNT,DGDEP,DGDR,DGMTOUT,DGPRI,DGPRTY,DGREL,DGSEL,DGSELTY,DGX,DGY,DTOUT,DUOUT,Y

 +1        GOTO EN

 +2       ;

DIS       ;Display income

 +1        NEW DGDC,DGDET,DGIN0,DGIN1,DGIN2,DGINT,DGINTF,DGNC,DGND,DGNWT,DGNWTF,DGSP,DGVIR0,DGCNT,DGFV2

 +2        SET DGFV2=1

 +3        DO DEP^DGMTSCU2

           DO INC^DGMTSCU3

           SET DGCNT=1

 +4        WRITE !!?34,"Veteran"

           IF DGSP

               WRITE ?46,"Spouse"

           IF DGDC

               WRITE ?56,"Children"

           WRITE ?73,"Total"

 +5        WRITE !?31,"-----------------------------------------------"

 +6        DO HIGH^DGMTSCU1(1,DGMTACT)

           WRITE "  Total Employment Income",!

 +7        DO FLD^DGMTSC2(.DGIN0,14,"   (Wages, Bonuses, Tips): ")

 +8        DO HIGH^DGMTSCU1(2,DGMTACT)

           WRITE "  Net Income from Farm,",!

 +9        DO FLD^DGMTSC2(.DGIN0,17,"   Ranch, Property, Bus.: ")

 +10       DO HIGH^DGMTSCU1(3,DGMTACT)

           WRITE "  Other Income Amounts",!

 +11       WRITE "     (Soc. Sec., Compensation,",!

 +12       DO FLD^DGMTSC2(.DGIN0,8,"   Pension, Interest, Div.): ")

 +13       WRITE !?51,"Total -->",?66,$JUSTIFY($$AMT^DGMTSCU1(DGINT),12)

 +14       QUIT 

 +15      ;

EDT       ;Edit income fields

 +1        NEW DA,DGERR,DGFIN,DGINI,DGIN0,DGIRI,DIE,DR

 +2        DO GETIENS^DGMTU2(DFN,DGPRI,DGMTDT)

           IF DGERR

               GOTO EDTQ

 +3        IF $GET(DGSEL)]""

               WRITE !!,"NAME: ",$$NAME^DGMTU1(DGPRI)

 +4        SET DGIN0=$GET(^DGMT(408.21,DGINI,0))

 +5        SET DR="[DGMT V1 ENTER/EDIT ANNUAL INC]"

 +6        SET DA=DGINI

           SET DIE="^DGMT(408.21,"

           DO ^DIE

           IF '$DATA(DGFIN)

               SET DGMTOUT=1

 +7        IF DGIN0'=$GET(^DGMT(408.21,DGINI,0))

               SET DR="103////^S X=DUZ;104///^S X=""NOW"""

               DO ^DIE

EDTQ       QUIT