TIUBR ; SLC/JER - Browse Action Subroutines ;31-Dec-2012 14:33;DU
Source file <TIUBR.m>
Package | Total | Call Graph |
---|---|---|
Text Integration Utility | 11 | $$CHKFILE^TIUADCL (LOADREC,LOADSIG)^TIUBR1 (IDTOP,INQUIRE,LOADID)^TIUGBR ($$HASADDEN,$$ONBROWSE,$$PNAME)^TIULC1 GETTIU^TIULD SETPARM^TIULE $$STATUS^TIULF $$CANDO^TIULP ($$CENTER,$$DATE,$$NAME)^TIULS $$IDDATA^TIURECL1 GETIDKID^TIURECL2 |
IHS Mods To Text Integration Utilities | 2 | ($$BLANKS,LT1,LT2,LT3)^BTIUBR $$DEMOG^BTIUPCC |
Registration | 2 | $$SETSTR^VALM1 CLEAN^VALM10 |
Package | Total | Caller Graph |
---|---|---|
Text Integration Utility | 4 | TIUBR1 TIUGBR TIUGR1 TIUP149 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; Entry code for LM templates TIU BROWSE
|
|
LOADADD(TIUDADD,TIUL) | ; Load addenda
|
|
HDR | ; Build Header
|
|
SETREC(TIUGDATA) | ; Sets docmt header line Patname, SSN, [Location, Visit]
; Requires TIUGDATA |
|
BLDTMP(TIUDA) | ; Build ^TMP("TIUVIEW",$J,
; Requires TIUDA = IFN of note selected to be browsed. ; Needs TIUGDATA, set in EN |
|
LOADTOP(TIUREC,TIUDA,TIUL,TIUGDATA) | ; Load dictation, transcription data, etc.
; Requires array TIUREC, TIUDA, array TIUL, TIUGDATA |
|
LOADSUPP(METHOD,TIUDA,TIUL) | ; Execute OnBrowse/Load Supplementary data
|
|
SETRX | ||
CLEAN | ; Die, filthy spawn!!!
|
|
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
|
Name | Field # of Occurrence |
---|---|
$$BLANKS^BTIUBR | LOADADD+12 |
LT1^BTIUBR | LOADTOP+29, LOADTOP+52 |
LT2^BTIUBR | LOADTOP+47 |
LT3^BTIUBR | LOADTOP+63 |
$$DEMOG^BTIUPCC | SETREC+13 |
$$CHKFILE^TIUADCL | LOADTOP+38, LOADTOP+42 |
LOADREC^TIUBR1 | BLDTMP+15 |
LOADSIG^TIUBR1 | LOADADD+13 |
IDTOP^TIUGBR | LOADTOP+19 |
INQUIRE^TIUGBR | BLDTMP+7 |
LOADID^TIUGBR | LOADKIDS+9 |
$$HASADDEN^TIULC1 | LOADTOP+59, SETREC+11 |
$$ONBROWSE^TIULC1 | BLDTMP+10 |
$$PNAME^TIULC1 | LOADTOP+60 |
GETTIU^TIULD | HDR+3 |
SETPARM^TIULE | HDR+2 |
$$STATUS^TIULF | LOADADD+5 |
$$CANDO^TIULP | LOADADD+2 |
$$CENTER^TIULS | HDR+4 |
$$DATE^TIULS | LOADADD+4, SETREC+17, SETREC+18, SETREC+20 |
$$NAME^TIULS | SETREC+3 |
$$IDDATA^TIURECL1 | EN+8, LOADKIDS+4 |
GETIDKID^TIURECL2 | LOADKIDS+5 |
$$SETSTR^VALM1 | LOADTOP+22, LOADTOP+26, LOADTOP+27, LOADTOP+32, LOADTOP+33, LOADTOP+34, LOADTOP+38, LOADTOP+39, LOADTOP+41, LOADTOP+42 , LOADTOP+44, LOADTOP+45, LOADTOP+49, LOADTOP+50, LOADTOP+56, SETREC+3, SETREC+5, SETREC+10, SETREC+11, SETREC+13 , SETREC+15, SETREC+17, SETREC+18, SETREC+20 |
CLEAN^VALM10 | CLEAN+1 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TIU(8925 - [#8925] | BLDTMP+5, BLDTMP+10, BLDTMP+17, LOADTOP+38, LOADTOP+42, LOADTOP+54, LOADTOP+56, LOADTOP+60, LOADKIDS+4, ISCOMP+2 , LOADADD+4, LOADADD+9, LOADADD+12 |
^TIU(8925.1 - [#8925.1] | ISCOMP+3 |
^TMP("TIU FOCUS" | BLDTMP+4!, BLDTMP+6*, BLDTMP+16! |
^TMP("TIUIDKID" | LOADKIDS+7, LOADKIDS+8, LOADKIDS+10! |
^TMP("TIUR" | LOADKIDS+3 |
^TMP("TIUVIEW" | BLDTMP+4!, BLDTMP+17*, BLDTMP+18* |
Name | Line Occurrences |
---|---|
$$SETREC | HDR+6 |
BLDTMP | EN+9 |
LOADSUPP | BLDTMP+11 |
LOADTOP | BLDTMP+13 |
SETRX | SETREC+9, SETREC+13 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CANSEE | LOADADD+1~, LOADADD+2*, LOADADD+6, LOADADD+8 |
CURCHLD | LOADTOP+2~, LOADTOP+9*, LOADTOP+12*, LOADTOP+15*, LOADTOP+16, LOADTOP+17 |
CURPRNT | LOADTOP+2~, LOADTOP+9*, LOADTOP+13*, LOADTOP+14*, LOADTOP+19 |
DA | ISCOMP~, ISCOMP+2 |
DFN | HDR+1~ |
KIDDA | LOADKIDS+2~, LOADKIDS+8*, LOADKIDS+9 |
METHOD | LOADSUPP~, LOADSUPP+2 |
ONBROWSE | BLDTMP+3~, BLDTMP+10*, BLDTMP+11 |
PRMSORT | LOADKIDS+2~, LOADKIDS+3*, LOADKIDS+4*, LOADKIDS+5 |
SELCHLD | LOADTOP+2~, LOADTOP+9*, LOADTOP+10*, LOADTOP+12, LOADTOP+13, LOADTOP+17, LOADTOP+18 |
SELPRNT | LOADTOP+2~, LOADTOP+9*, LOADTOP+11*, LOADTOP+14, LOADTOP+15, LOADTOP+16, LOADTOP+18 |
SHORT | LOADTOP+2~, LOADTOP+9*, LOADTOP+16*, LOADTOP+17*, LOADTOP+19, LOADTOP+25, LOADTOP+30 |
TIU | HDR+3, CLEAN+1! |
TIU("DOCTYP" | HDR+4 |
TIU("EDT" | SETREC+17, SETREC+20 |
TIU("HRCN" | SETREC+5 |
TIU("LDT" | SETREC+18 |
TIU("LOC" | SETREC+15 |
TIU("PNM" | SETREC+3 |
TIU("WARD" | SETREC+16, SETREC+19 |
TIUD0 | LOADKIDS+2~, LOADKIDS+4* |
TIUD21 | LOADKIDS+2~, LOADKIDS+4* |
TIUDA | EN+8, EN+9, HDR+3, BLDTMP~, BLDTMP+5, BLDTMP+6, BLDTMP+7, BLDTMP+8, BLDTMP+10, BLDTMP+11 , BLDTMP+13, BLDTMP+15, BLDTMP+17, LOADSUPP~, LOADTOP~, LOADTOP+12, LOADTOP+13, LOADTOP+14, LOADTOP+15, LOADTOP+19 , LOADTOP+21, LOADTOP+22, LOADTOP+26, LOADTOP+27, LOADTOP+31, LOADTOP+32, LOADTOP+33, LOADTOP+34, LOADTOP+37, LOADTOP+38 , LOADTOP+39, LOADTOP+41, LOADTOP+42, LOADTOP+43, LOADTOP+44, LOADTOP+45, LOADTOP+49, LOADTOP+50, LOADTOP+54, LOADTOP+56 , LOADTOP+59, LOADTOP+60, LOADKIDS~, LOADKIDS+3, LOADKIDS+4, LOADKIDS+5, LOADKIDS+7, LOADKIDS+8, SETREC+11, SETREC+13 |
TIUDADD | BLDTMP+3~*, LOADADD~, LOADADD+2, LOADADD+4, LOADADD+5, LOADADD+9, LOADADD+12, LOADADD+13 |
TIUDADT | LOADADD+1~, LOADADD+4*, LOADADD+5 |
TIUDTYP | HDR+1~ |
TIUGDATA | EN+8*, HDR+6, BLDTMP+13, BLDTMP+15, LOADTOP~, LOADTOP+10, LOADTOP+11, LOADTOP+12, LOADTOP+13, LOADTOP+14 , LOADTOP+15, LOADKIDS~, LOADKIDS+9, SETREC~, SETREC+9, SETREC+10, SETREC+11, CLEAN+1! |
TIUGWHOL | LOADTOP+17, LOADKIDS~, LOADKIDS+9 |
TIUI | BLDTMP+3~*, LOADSUPP+1~*, LOADSUPP+3*, LOADSUPP+4 |
TIUJ | LOADADD+1~, LOADADD+3*, LOADADD+9*, LOADADD+12 |
TIUK | LOADKIDS+2~, LOADKIDS+6*, LOADKIDS+7*, LOADKIDS+8 |
TIUL | BLDTMP+3~, BLDTMP+11, BLDTMP+13, BLDTMP+15, BLDTMP+18, LOADSUPP~, LOADSUPP+4*, LOADSUPP+5*, LOADTOP~, LOADTOP+19 , LOADTOP+20*, LOADTOP+23, LOADTOP+24*, LOADTOP+28, LOADTOP+35, LOADTOP+36*, LOADTOP+46, LOADTOP+48*, LOADTOP+51, LOADTOP+53* , LOADTOP+54, LOADTOP+57, LOADTOP+58*, LOADTOP+61*, LOADTOP+62*, LOADKIDS~, LOADKIDS+9, LOADADD~, LOADADD+3*, LOADADD+5* , LOADADD+7*, LOADADD+8, LOADADD+10*, LOADADD+12, LOADADD+13 |
TIUNAME | BLDTMP+4~ |
TIUPRM0 | HDR+2, CLEAN+1! |
TIUPRM1 | HDR+2, CLEAN+1! |
TIUREC | BLDTMP+3~, BLDTMP+7, BLDTMP+8, BLDTMP+13, LOADTOP~ |
TIUREC(8925 | BLDTMP+8, LOADTOP+21, LOADTOP+22, LOADTOP+26, LOADTOP+27, LOADTOP+31, LOADTOP+32, LOADTOP+33, LOADTOP+34, LOADTOP+37 , LOADTOP+38, LOADTOP+39, LOADTOP+41, LOADTOP+42, LOADTOP+43, LOADTOP+44, LOADTOP+45, LOADTOP+49, LOADTOP+50 |
TIUTYP | ISCOMP+1~, ISCOMP+2*, ISCOMP+3 |
TIUY | EN+1~, LOADSUPP+1~, LOADSUPP+2, LOADSUPP+3, LOADSUPP+4, LOADSUPP+6, LOADTOP+2~, LOADTOP+20*, LOADTOP+22*, LOADTOP+23 , LOADTOP+24*, LOADTOP+26*, LOADTOP+27*, LOADTOP+28, LOADTOP+32*, LOADTOP+33*, LOADTOP+34*, LOADTOP+35, LOADTOP+36*, LOADTOP+38* , LOADTOP+39*, LOADTOP+41*, LOADTOP+42*, LOADTOP+44*, LOADTOP+45*, LOADTOP+46, LOADTOP+48*, LOADTOP+49*, LOADTOP+50*, LOADTOP+51 , LOADTOP+53*, LOADTOP+54, LOADTOP+56*, LOADTOP+57, LOADTOP+58*, LOADTOP+60*, LOADTOP+61, ISCOMP+1~, ISCOMP+3*, ISCOMP+4 |
U | HDR+4, BLDTMP+18, LOADTOP+10, LOADTOP+11, LOADTOP+12, LOADTOP+13, LOADKIDS+3, LOADKIDS+4, ISCOMP+3, LOADADD+4 , LOADADD+8, SETREC+9, SETREC+10, SETREC+11, SETREC+15 |
>> VALMAR | LOADSUPP+4, LOADSUPP+5, LOADTOP+23, LOADTOP+28, LOADTOP+35, LOADTOP+46, LOADTOP+51, LOADTOP+54, LOADTOP+57, LOADTOP+58 , LOADTOP+61, LOADTOP+62, LOADADD+3, LOADADD+5, LOADADD+8, LOADADD+12 |
>> VALMCNT | BLDTMP+18* |
VALMHDR | CLEAN+1! |
VALMHDR(1 | HDR+4* |
VALMHDR(2 | HDR+6* |
>> VALMQUIT | BLDTMP+5* |
Y | SETREC+2~, SETREC+3*, SETREC+5*, SETREC+10*, SETREC+11*, SETREC+13*, SETREC+15*, SETREC+17*, SETREC+18*, SETREC+20* , SETRX |