UTIL ;JSH; 29 Oct 96 18:46;Function library part 1
Source file <UTIL.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
REPLACE(STRING,ST1,ST2) | ;EP - Replace all occurrences of ST1 in STRING with ST2
|
|
PRIVBAN | ;Display Privacy Act banner on 25th line
|
|
AGE(DFN,S) | ;Returns age of patient with entry # DFN as:
; years^months^days |
|
CB(L) | ;open window and clear to bottom
|
|
INITIAL(DUZ) | ;Returns INITIALS of user # DUZ
|
|
CL(X) | ||
LB(X) | ;EP - Returns X with leading spaces stripped
|
|
JUST(S,W,T,P) | ;EP - returns string S in a field of width W
|
|
ASKDUZ | ||
CASECONV(STRING,CODE) | ;EP - Returns STRING case converted according to CODE
|
|
NOSCROLL | ;Remove scrolling region and leave cursor in current postition
|
|
ENV | ;EP - Set up programming environment
|
|
TB(X) | ;EP - Returns X with trailing spaces stripped
|
|
NAME(NAME,F) | ;Returns NAME (in FileMan storage form LAST,FIRST MIDDLE)
|
|
CENTER(S,L) | ;center text S in field of length L
|
|
NOCTRL(X) | ;Returns X with all control characters removed
|
|
DUP(C,L) | ;Returns a string of length L made by duplicating
|
|
TRANS(%E) | ;input transform for reader
|
|
SOC(P1,P2,SOC,T) | ;EP - Set of Codes front end to readers
|
|
FORMAT(S,W,D) | ;EP - Formats string S into an array referenced by D with a
|
|
SETSCRL(Y1,Y2,C) | ;Set scrolling region from Y1 to Y2 ($Y+1 values)
|
|
LBTB(X) | ;EP - Returns X with both leading and trailing spaces removed
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|