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 |