Routine: EASECSCR

Information

EASECSCR ;ALB/LBD - LTC Co-Pay Test Screen Read Processor;10 AUG 2001

Name	Comments	DBIA/ICR reference
EN
EN1
Q
FEED	;Line feed to the bottom of the screen
SEL	;Check available column selections for Veteran, Spouse or Children
SELQ
HLP	;Help display
PRO	;Process user selection; cnt - dash - parse - selection
PARSE
PROQ
CHK

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: DTIME Line Location: EN+2
Function Call: WRITE	Prompt: !,DGVI,"<RET>",DGVO," to CONTINUE," Line Location: EN+2
Function Call: WRITE	Prompt: X="^" Condition for execution: DGMTACT'="VEW" " ",DGVI,DGRNG,DGVO," or ",DGVI,"'ALL' ",DGVO,"to EDIT," W DGVI," ^N",DGVO," for screen N, or ",DGVI,"'^'",DGVO," to EXIT: " R X:DTIME S:'$T Line Location: EN+2
Function Call: WRITE	Prompt: ! Line Location: FEED+2
Function Call: WRITE	Prompt: !!,"Enter <RET> to continue to the next available screen." Line Location: HLP+3
Function Call: WRITE	Prompt: !,"Enter an available item number from ",DGRNG," to edit.",!,"The items should be separated by commas or a range of numbers",!,"separated by a dash, or a combination of commas and dashes." Line Location: HLP+4
Function Call: WRITE	Prompt: !,"To edit a specific column, enter 'V'",$S(DGSEL["S":", 'S'",1:"")," in front of the selected items." Line Location: HLP+6
Function Call: WRITE	Prompt: !,"Enter 'ALL' to edit all available items on the screen." Line Location: HLP+7
Function Call: WRITE	Prompt: !,"Enter '^N' to jump to a select screen. Enter '^' to exit." Line Location: HLP+8
Function Call: WRITE	Prompt: !!,"AVAILABLE SCREENS" Line Location: HLP+9
Function Call: WRITE	Prompt: !,"[",+$$SCR^EASECSCU(I),"] ",$P($$SCR^EASECSCU(I),";",2) Line Location: HLP+10
Function Call: WRITE	Prompt: !,DGLNE Line Location: HLP+12