Routine: DDGF2

Information

DDGF2 ;SFISC/MKO - ACTIONS FOR SELECTED FIELDS ;1FEB2017

Source file <DDGF2.m>

Name	Comments	DBIA/ICR reference
END	;Redraw field 'F' on block 'B'
TO	;Time-out
DESELECT	;SPACE-BAR HAS DESELECTED FIELD
LNU
LND
CHR
CHL
TBR
TBL
SCT
SCB
SCR
SCL
EDIT	;A SEPARATE SCREENMAN FORM WILL EDIT THIS SINGLE FIELD
SUBPG	;
RC(DDGFY,DDGFX)	;Update status line, reset DX and DY, move cursor
REDRAW	;
PAINTS	;
MIN(X,Y,Z)	;Return the minimum of two or three numbers
READ()
C
C1

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7) Line Location: TO+1
Function Call: WRITE	Prompt: DDGFS_$J("",7-$L(DDGFS)) Line Location: RC+4
Function Call: WRITE	Prompt: $P(DDGLVID,DDGLDEL,6)_$E(C,1,$$MIN($L(C),$P(DDGFLIM,U,4)-C2+1))_$P(DDGLVID,DDGLDEL,10) Line Location: PAINTS+3
Function Call: WRITE	Prompt: $P(DDGLVID,DDGLDEL,6)_$E(D,1,$$MIN(L,$P(DDGFLIM,U,4)-D2+1))_$P(DDGLVID,DDGLDEL,10) Line Location: PAINTS+4
Function Call: READ	Variable: *Y Timeout: DTIME Line Location: READ+1
Function Call: WRITE	Prompt: $C(7) Line Location: C1+1
Function Call: READ	Variable: *Y Timeout: 5 Line Location: C1+6
Function Call: WRITE	Prompt: $C(7) Line Location: C1+6