Routine: VALM1

Information

VALM1 ;ALB/MJK - Screen Manipulation Utilities ;06/27/2006

Source file <VALM1.m>

Name	Comments	DBIA/ICR reference
INSTR(STR,X,Y,LENGTH,ERASE)	; -- insert text ; STR := string to insert ; X := X coordinate ; Y := Y coordinate ; LENGTH := clear # of characters ; ERASE := erase chars first
FLDUPD(STR,FLD,LINE,CON,COFF)	; -- update entry and field on screen ; STR := string to insert ; FLD := col name ; LINE := entry # in list
SETFLD(STR,VAR,FLD)	; -- set field in var ; input: STR := string to insert ; VAR := destination string ; FLD := col name
SETSTR(S,V,X,L)	; -- insert text(S) into variable(V) ; S := string to insert ; V := destination string ; X := insert @ col X ; L := clear # of chars (length)
FULL	; set full scrolling region
CLEAR	; -- clear screen
ERASE	;
FDATE(Y)	; -- return formatted date ; input: Y := field name ; output: [returned] := formatted date only
FTIME(Y)	; -- return formatted date/time ; input: Y := internal date/time ; output: [returned] := formatted date and time
FDTTM(Y)	; -- return formatted date/time ; input: Y := internal date/time ; output: [returned] := formatted date and time
NOW()	; -- return now
RANGE	; -- change date range
WAIT	; "Enter RETURN to continue"
GOON()	; "Enter RETURN to continue or '^' to exit"
PAUSE	;
PRT	; -- prt screen (PS)	ICR #5435 Status: Withdrawn Usage: Private
PRTS	;
PRTQ	;
SAVE	; -- save to queue
FTR	; -- footer to print
PRTL	; -- prt list (PL)	ICR #5435 Status: Withdrawn Usage: Private
PRTLS	;
PRTLQ	;
CHKLONG	;
TOOLONG()	; Is the line length too long for the device?
UPPER(X)	; -- convert to uppercase
LOWER(X)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: IOSC Line Location: INSTR+6
Function Call: WRITE	Prompt: $J("",LENGTH) Line Location: INSTR+7
Function Call: WRITE	Prompt: STR Line Location: INSTR+8
Function Call: WRITE	Prompt: IORC Line Location: INSTR+9
Function Call: WRITE	Prompt: IOSC Line Location: FULL+2
Function Call: WRITE	Prompt: @IOSTBM Line Location: FULL+2
Function Call: WRITE	Prompt: @IOSTBM Line Location: FULL+2
Function Call: WRITE	Prompt: @IOF Line Location: CLEAR+1
Function Call: WRITE	Prompt: $G(VALMSGR),$G(IOSGR0) Line Location: ERASE+1
Function Call: WRITE	Prompt: ! Line Location: WAIT+2
Function Call: WRITE	Prompt: ! Line Location: WAIT+2
Function Call: WRITE	Prompt: ! Line Location: GOON+2
Function Call: WRITE	Prompt: ! Line Location: GOON+2
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: !,X Line Location: PRTLS+6
Function Call: WRITE	Prompt: @IOF Line Location: CHKLONG+4
Function Call: WRITE	Prompt: ! Line Location: CHKLONG+5
Function Call: WRITE	Prompt: !,">>> Warning: Some list items lines may have been truncated." Line Location: CHKLONG+6
Function Call: WRITE	Prompt: !,">>> This list requires ",VALM("RM")," characters/line." Line Location: CHKLONG+7
Function Call: WRITE	Prompt: !,">>> This device supports ",IOM," characters/line." Line Location: CHKLONG+8