©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
TIUFL1 ; SLC/MAM - Library of Modules and Functions: RIGHT, LEFT ;10/25/95 11:50
Source file <TIUFL1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INSTYPE | ; Insert Type into end of truncated Names:
; Needs GOINGEND |
|
| LEFT(TIUFXNOD) | ; Action Move View to left: resets VALM("FIXED"), VALMLFT; Takes Type out of Name, refills the hole.
; Requires TIUFXNOD = XQORNOD(0) if doing Action Left, = 0^0^PL if doing Action Print List |
|
| STND(DIRECTN) | ; Function returns NEXTSTND^STND(0), where NEXTSTND = next Standard Position to the RIGHT/LEFT, STND(0) = leftmost position for VALMLFT ( = VLAM("FIXED")+1)
|
|
| LEFTX | ||
| RIGHT(TIUFXNOD) | ; Action Move View to right: resets VALM("FIXED"), VALMLFT; Sets Type into truncated Name. If in a template, not a subtemplate, sets TIUFLFT to VALMLFT for the template.
; Requires TIUFXNOD = XQORNOD(0) if doing Action Right, = 0^0^PL if doing Action Print List |
|
| RIGHX | ||
| INSBLNK | ; Insert Blank into end of truncated Names:
; Needs GOINGEND |
|
| REFILL | ; Fill in holes in Name
; Needs GOINGBEG |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("TIUF1" | INSTYPE+3*, INSTYPE+4, INSBLNK+3*, INSBLNK+4, REFILL+3*, REFILL+4 |
| Name | Line Occurrences |
|---|---|
| $$STND | RIGHT+14, LEFT+5 |
| INSBLNK | RIGHT+16, RIGHT+21 |
| INSTYPE | RIGHT+16, RIGHT+21 |
| LEFTX | LEFT+16 |
| REFILL | LEFT+14 |
| RIGHX | RIGHT+15 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIRECTN | STND~, STND+5, STND+6 |
| DIROUT | RIGHT+3~, LEFT+2~ |
| DIRUT | RIGHT+3~, LEFT+2~ |
| DTOUT | RIGHT+3~, LEFT+2~ |
| DUOUT | RIGHT+3~ |
| FIELD | RIGHT+2~, RIGHT+19*, RIGHT+20, LEFT+2~, LEFT+11*, LEFT+12 |
| FIXED | RIGHT+2~, RIGHT+8*, RIGHT+9 |
| GOINGBEG | LEFT+2~, LEFT+3*, LEFT+8*, LEFT+9*, LEFT+12*, LEFT+13*, LEFT+16, REFILL+6, REFILL+7, REFILL+8 , REFILL+11 |
| GOINGEND | RIGHT+2~, RIGHT+6*, RIGHT+12*, RIGHT+13*, RIGHT+14*, RIGHT+15, INSTYPE+5, INSTYPE+7, INSBLNK+5 |
| HOLE | REFILL+2~, REFILL+6*, REFILL+7*, REFILL+9*, REFILL+10* |
| LINENO | INSTYPE+2~, INSTYPE+3*, INSTYPE+4, INSBLNK+2~, INSBLNK+3*, INSBLNK+4, REFILL+2~, REFILL+3*, REFILL+4 |
| LM | LEFT+2~, LEFT+5*, LEFT+6, LEFT+13, LEFT+16 |
| MOVE | RIGHT+2~, RIGHT+6*, RIGHT+12, RIGHT+13, RIGHT+14, RIGHT+20*, RIGHT+22, LEFT+2~, LEFT+3*, LEFT+8 , LEFT+12, LEFT+13, LEFT+18, STND+1~, STND+3*, STND+4 |
| NEXTSTND | RIGHT+2~, RIGHT+14*, RIGHT+22, LEFT+2~, LEFT+5*, LEFT+13, LEFT+18, STND+1~, STND+5*, STND+6* , STND+7 |
| RM | RIGHT+3~, RIGHT+9*, RIGHT+10, RIGHT+13, RIGHT+14, RIGHT+15 |
| RMSUFFIX | RIGHT+2~, RIGHT+5*, RIGHT+9 |
| START | STND+1~, STND+2*, STND+3, STND+4 |
| STND | LEFT+2~, LEFT+5*, STND+1~, STND+5*, STND+6* |
| STND( | STND+4*, STND+5, STND+6 |
| STND(0 | STND+5, STND+6, STND+7 |
| >> TIUF("RM" | RIGHT+9 |
| TIUFI | STND+1~, STND+4* |
| TIUFJ | STND+1~, STND+5*, STND+6* |
| >> TIUFLFT | RIGHX+1*, LEFTX+1* |
| >> TIUFSTMP | RIGHT+5, RIGHT+7, RIGHT+8, RIGHT+16, RIGHT+20, RIGHT+21, RIGHX+1, LEFT+4, LEFT+12, LEFT+14 , LEFTX+1, STND+2 |
| >> TIUFTMPL | RIGHT+5, RIGHT+16, RIGHT+19, RIGHT+21, RIGHX+1, LEFT+11, LEFTX+1, REFILL+6, REFILL+9, REFILL+11 , REFILL+12 |
| >> TIUFWHO | RIGHT+4 |
| TIUFXNOD | RIGHT~, RIGHT+6, RIGHX, LEFT~, LEFT+3, LEFT+9, LEFTX |
| TIUREC | INSTYPE+2~, INSTYPE+3, INSTYPE+4*, INSTYPE+5*, INSTYPE+6*, INSBLNK+2~, INSBLNK+3, INSBLNK+4*, INSBLNK+5*, INSBLNK+6* , REFILL+2~, REFILL+3, REFILL+4*, REFILL+6*, REFILL+7*, REFILL+9*, REFILL+10* |
| TYPE | RIGHT+2~, INSTYPE+4*, INSTYPE+5, INSTYPE+6, LEFT+2~, REFILL+7* |
| U | RIGHT+6, RIGHT+20, RIGHX, LEFT+3, LEFT+5, LEFT+9, LEFT+12, LEFTX, STND+5, STND+6 , STND+7 |
| >> VALM("FIXED" | RIGHT+8, RIGHT+16*, LEFT+15*, REFILL+5 |
| >> VALMBCK | RIGHT+7*, RIGHT+10*, RIGHX*, LEFT+4*, LEFT+6*, LEFTX* |
| >> VALMCNT | INSTYPE+3, INSBLNK+3, REFILL+3 |
| >> VALMDDF( | RIGHT+20, LEFT+12 |
| >> VALMLFT | RIGHT+10, RIGHT+13, RIGHT+15*, RIGHT+20, RIGHT+22*, RIGHX+1, INSTYPE+6, INSTYPE+8, INSBLNK+6, LEFT+6 , LEFT+12, LEFT+16*, LEFT+18*, LEFTX+1, STND+5, STND+6 |
| WHO | RIGHT+2~, RIGHT+4*, RIGHT+5 |