| 1 | EASECSC2 ;ALB/PHH,LBD - LTC Copay Test Screen Insurance Information ;18 AUG 2001
|
|---|
| 2 | ;;1.0;ENROLLMENT APPLICATION SYSTEM;**5,40,45**;Mar 15, 2001
|
|---|
| 3 | ;
|
|---|
| 4 | ; Input -- DFN Patient IEN
|
|---|
| 5 | ; DGMTACT LTC Co-Pay Test Action
|
|---|
| 6 | ; DGVINI Veteran Individual Annual Income IEN
|
|---|
| 7 | ; DGVIRI Veteran Income Relation IEN
|
|---|
| 8 | ; DGVPRI Veteran Patient Relation IEN
|
|---|
| 9 | ; Output -- None
|
|---|
| 10 | ;
|
|---|
| 11 | ; ** For LTC Phase IV (EAS*1*40) this routine has been modified to
|
|---|
| 12 | ; display the patient's insurance information instead of
|
|---|
| 13 | ; eligibility
|
|---|
| 14 | ;
|
|---|
| 15 | EN ;Entry point
|
|---|
| 16 | D ^DGRPV
|
|---|
| 17 | D EASECRP5
|
|---|
| 18 | S X="^3"
|
|---|
| 19 | S:$$PAUSE(0) X="^"
|
|---|
| 20 | K DGRP,DGRPCM,DGRPLAST,DGRPNA,DGRPS,DGRPSCE1,DGRPTYPE,DGRPU,DGRPV,DGRPVV,DGRPW,DGRPX,Z1
|
|---|
| 21 | G EN1^EASECSCR
|
|---|
| 22 | Q
|
|---|
| 23 | PAUSE(RESP) ; Prompt user for next page or quit
|
|---|
| 24 | N DIR,DIRUT,DUOUT,DTOUT,I,X,Y
|
|---|
| 25 | F I=$Y:1:20 W !
|
|---|
| 26 | S DIR(0)="E"
|
|---|
| 27 | D ^DIR
|
|---|
| 28 | I 'Y S RESP=1
|
|---|
| 29 | Q RESP
|
|---|
| 30 | ;
|
|---|
| 31 | EASECRP5 ; Display the screen
|
|---|
| 32 | ; Note: This section was copied from ^DGRP5 and modified specifically
|
|---|
| 33 | ; to work with LTC.
|
|---|
| 34 | ;
|
|---|
| 35 | S DGRPW=1,(DGRPS,DGMTSCI)=2 D HD^EASECSCU S Z=1 D WW W " Covered by Health Insurance: " S Z=$S($D(^DPT(DFN,.31)):$P(^(.31),"^",11),1:""),Z=$S(Z="Y":"YES",Z="N":"NO",Z="U":"UNKNOWN",1:"NOT ANSWERED"),Z1=15 D WW1^DGRPV
|
|---|
| 36 | W ! D DISP^DGIBDSP
|
|---|
| 37 | W ! S DGRPX=$G(^DPT(DFN,.38)),Z=2 D WW W " Eligible for MEDICAID: ",$S(+DGRPX:"YES",$P(DGRPX,"^",1)=0:"NO",1:DGRPU)
|
|---|
| 38 | S Y=$P(DGRPX,"^",2) I Y X ^DD("DD") W " [last updated ",Y,"]"
|
|---|
| 39 | ;; *** Added for Medicaid information
|
|---|
| 40 | W ! S Z=3 D WW W " Medicaid Number: ",$P(DGRPX,U,3) ;previous $S($P(DGRPX,U,3)>0:$P(DGRPX,U,3),1:"")
|
|---|
| 41 | Q
|
|---|
| 42 | IN Q ;
|
|---|
| 43 | ;
|
|---|
| 44 | WW ;Write number on screens for display and/or edit (Z=number)
|
|---|
| 45 | ; NOTE: This section was copied from WW^DGRPV and modified specifically
|
|---|
| 46 | ; for LTC. The code calling ^DGRPV has been redirected here.
|
|---|
| 47 | W:DGRPW !
|
|---|
| 48 | Q
|
|---|
