Routine: SDUL1

Information

SDUL1 ;ALB/MJK - Screen Malipulation Utilities ; 12/1/91

Source file <SDUL1.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,ENTRY)	; -- update entry and field on screen ; STR := string to insert ; FLD := col name ; ENTRY := 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)	ICR #661 Status: Retired Usage: Private
FULL	; set full scrolling region
CLEAR	; -- clear screen	ICR #661 Status: Retired Usage: Private
ERASE	;
FDATE(Y)	; -- return formatted date ; input: Y := field name ; output: [returned] := formatted date only	ICR #661 Status: Retired Usage: Private
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 ; input: ^TMP("SDUL DATA",$J SDULEVL,"DAYS") := number of days allowed ; SDB := default beginning date {optional}
RANGEQ
PAUSE	;
PRT	; -- prt screen (PS)
PRTS	;
PRTQ
SAVE	; -- save to queue
FTR	; -- footer to print
PRTL	; -- prt list (PL)
PRTLS	;
PRTLQ
UPPER(X)	; -- convert to uppercase
LOWER(X)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: IOSC Line Location: INSTR+7
Function Call: WRITE	Prompt: $J("",LENGTH) Line Location: INSTR+8
Function Call: WRITE	Prompt: STR Line Location: INSTR+9
Function Call: WRITE	Prompt: IORC Line Location: INSTR+10
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(@X) Line Location: ERASE+1
Function Call: WRITE	Prompt: ! Line Location: RANGE+5
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: ! Line Location: PAUSE+1
Function Call: WRITE	Prompt: !,X Line Location: PRTLS+5