TIURECL1 ; SLC/PKR,JER - Expand/collapse LM views ;5/8/03
Source file <TIURECL1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ISSUB(CLASS1,CLASS2,LEVEL) | ;Return true if CLASS2 is sub to CLASS1.
|
|
| VEXREQ(VALMY) | ;Check for valid expand/contract requests.
; A list of documents to expand/contract is invalid if any docmt |
|
| IDDATA(TIUDA,TIUD0,TIUD21) | ; Return TIUGDATA:
; TIUGDATA = 0 or ; = TIUDA^haskid^IDparent^prmsort, where ; TIUDA = note DA ; haskid = 1 if note has ID kid, else 0 ; IDparent = parent DA if note has ID parent, else 0 ; prmsort = 'TITLE' if entries ordered by title, else 'REFDT' |
|
| RESOLVE(DA,TSTART,FIRSTPFX,XIDDATA) | ; Get document data for insertion
; Receives DA, TSTART, FIRSTPFX ; FIRSTPFX = $$INSPFIX of parent of inserted document. ; Returns line TSTART. ; Receives XIDDATA by ref, finds it, and passes it back. |
|
| RESOLVEX | ||
| GETPT(TIUD0,PREFIX) | ; Get patient column data; put updated prefix data
|
|
| GETTL(TIUD0,PREFIX) | ; Get title column data; put updated prefix
|
|
| SETTLPT(STRING,DA,PREFIX) | ; Set field TITLE or PATIENT into string,
|
