source: WorldVistAEHR/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EASECSC2.m@ 1766

Last change on this file since 1766 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1EASECSC2 ;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 ;
15EN ;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
23PAUSE(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 ;
31EASECRP5 ; 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
42IN Q ;
43 ;
44WW ;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
Note: See TracBrowser for help on using the repository browser.