TIUBR ; SLC/JER - Browse Action Subroutines ;8/16/06 09:08
Source file <TIUBR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Entry code for LM templates TIU BROWSE
|
|
| HDR | ; Build Header
|
|
| BLDTMP(TIUDA) | ; Build ^TMP("TIUVIEW",$J,
; Requires TIUDA = IFN of note selected to be browsed. ; Needs TIUGDATA, set in EN |
|
| LOADSUPP(METHOD,TIUDA,TIUL) | ; Execute OnBrowse/Load Supplementary data
|
|
| LOADTOP(TIUREC,TIUDA,TIUL,TIUGDATA) | ; Load dictation, transcription data, etc.
; Requires array TIUREC, TIUDA, array TIUL, TIUGDATA |
|
| LOADKIDS(TIUDA,TIUL,TIUGDATA,TIUGWHOL) | ; Load ID kids of TIUDA
; Requires TIUDA, array TIUL, TIUGDATA |
|
| ISCOMP(DA) | ; Evaluate whether a given record is a component
|
|
| LOADADD(TIUDADD,TIUL) | ; Load addenda
|
|
| SETREC(TIUGDATA) | ; Sets docmt header line Patname, SSN, [Location, Visit]
; Requires TIUGDATA |
|
| SETRX | ||
| CLEAN | ; Die, filthy spawn!!!
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|