Routine: EASECSC2

Information

EASECSC2 ;ALB/PHH,LBD - LTC Copay Test Screen Insurance Information ;18 AUG 2001

Name	Comments	DBIA/ICR reference
EN	;Entry point
PAUSE(RESP)	; Prompt user for next page or quit
EASECRP5	; Display the screen ; Note: This section was copied from ^DGRP5 and modified specifically ; to work with LTC.
IN
WW	;Write number on screens for display and/or edit (Z=number) ; NOTE: This section was copied from WW^DGRPV and modified specifically ; for LTC. The code calling ^DGRPV has been redirected here.

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PAUSE+2
Function Call: WRITE	Prompt: " Covered by Health Insurance: " Line Location: EASECRP5+4
Function Call: WRITE	Prompt: ! Line Location: EASECRP5+5
Function Call: WRITE	Prompt: ! Line Location: EASECRP5+6
Function Call: WRITE	Prompt: " Eligible for MEDICAID: ",$S(+DGRPX:"YES",$P(DGRPX,"^",1)=0:"NO",1:DGRPU) Line Location: EASECRP5+6
Function Call: WRITE	Prompt: " [last updated ",Y,"]" Line Location: EASECRP5+7
Function Call: WRITE	Prompt: ! Line Location: EASECRP5+9
Function Call: WRITE	Prompt: " Medicaid Number: ",$P(DGRPX,U,3) Line Location: EASECRP5+9