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