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