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 |
|