©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
IBDFU ;ALB/CJM - ENCOUNTER FORM (utilities) ;NOV 16,1992
Source file <IBDFU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GRPHCS(GRPHCS) | ;returns the needed graphics characters
|
|
| DRWSTR(IBY,IBX,STRING,OPTIONS,IBW) | ;
|
|
| HLINE(L,CHAR) | ;returns a horizontal line
|
|
| CMPVLINE | ;save compiled vertical line write
|
|
| CTRLS(CTRLS,IBX,IBY) | ;returns the needed escape sequences
|
|
| UNDRLINE(IBY,IBX,W) | ; underlining with when not using printers underlining ability
|
|
| DRWBOX(IBY,IBX,W,H) | ;draws a box
|
|
| PADRIGHT(STR,LEN) | ; pad right
|
|
| CMPSTR | ;saves compiled string write
|
|
| STRIP(STR) | ;strips off leading and trailing spaces
|
|
| DRWVLINE(IBY,IBX,IBH,CHAR) | ;draw vertical line
|
| Name | Field # of Occurrence |
|---|---|
| CNTRL^VALM10 | DRWSTR+46, DRWSTR+49 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE(357.1 - [#357.1] | CMPSTR+2*, CMPVLINE+2* |
| Name | Line Occurrences |
|---|---|
| $$CTRLS | DRWSTR+49 |
| $$GRPHCS | DRWSTR+33, DRWSTR+44 |
| $$HLINE | DRWBOX+3, DRWBOX+8, DRWBOX+9, UNDRLINE+3 |
| $$PADRIGHT | DRWSTR+39, DRWSTR+47, UNDRLINE+3 |
| CMPSTR | DRWSTR+8 |
| CMPVLINE | DRWVLINE+3 |
| DRWSTR | DRWBOX+3, DRWBOX+8, DRWBOX+9, DRWVLINE+6, DRWVLINE+7 |
| DRWVLINE | DRWBOX+2, DRWBOX+10 |
| UNDRLINE | DRWSTR+35 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| B | PADRIGHT+1~, PADRIGHT+3*, PADRIGHT+4 |
| CHAR | HLINE~, HLINE+1*, HLINE+3, DRWVLINE~, DRWVLINE+5, DRWVLINE+6, DRWVLINE+7, CMPVLINE+2 |
| CTRLS | CTRLS~, CTRLS+2 |
| CURLINE | DRWSTR+4~, DRWSTR+37*, DRWSTR+38*, DRWSTR+39*, DRWSTR+40, DRWSTR+45*, DRWSTR+46*, DRWSTR+47*, DRWSTR+48 |
| END | DRWSTR+4~, DRWSTR+34*, DRWSTR+41 |
| GRPHCS | GRPHCS~, GRPHCS+2 |
| H | DRWBOX~, DRWBOX+1, DRWBOX+2, DRWBOX+3, DRWBOX+4, DRWBOX+5, DRWBOX+9, DRWBOX+10 |
| I | DRWBOX+1~, DRWVLINE+4~, DRWVLINE+6*, DRWVLINE+7*, STRIP+1~, STRIP+2*, STRIP+3, STRIP+4*, STRIP+5, CTRLS+1~ , CTRLS+2*, GRPHCS+1~, GRPHCS+2* |
| >> IBARRAY("BOXES" | DRWBOX+5 |
| >> IBARRAY("CONTROLS" | DRWSTR+41 |
| >> IBARRAY("GRAPHICS" | DRWSTR+32 |
| >> IBARRAY("TEXT" | DRWSTR+37, DRWSTR+40 |
| >> IBARRAY("UNDERLINES" | UNDRLINE+2, UNDRLINE+4 |
| >> IBBLK | DRWBOX+5, CMPSTR+2, CMPVLINE+2 |
| >> IBBLK("X" | DRWBOX+5, DRWSTR+9 |
| >> IBBLK("Y" | DRWBOX+5, DRWSTR+9 |
| >> IBBOTLN | DRWSTR+10 |
| >> IBDEVICE("COL_WIDTH" | CTRLS+9, CTRLS+10, CTRLS+17 |
| >> IBDEVICE("CRT" | DRWSTR+20 |
| >> IBDEVICE("GRAPHICS" | DRWSTR+32 |
| >> IBDEVICE("LISTMAN" | DRWBOX+5, DRWSTR+10, DRWSTR+15, DRWSTR+19, DRWSTR+20, DRWSTR+31, DRWSTR+43, CTRLS+5, CTRLS+19 |
| >> IBDEVICE("PCL" | DRWBOX+7, CTRLS+5, CTRLS+9, CTRLS+10, CTRLS+16 |
| >> IBDEVICE("ROW_HT" | CTRLS+9, CTRLS+10, CTRLS+17 |
| >> IBFORM("WIDTH" | DRWSTR+38, DRWSTR+39, DRWSTR+46, DRWSTR+47, UNDRLINE+3 |
| IBH | DRWVLINE~, DRWVLINE+6, DRWVLINE+7, CMPVLINE+2 |
| >> IBPRINT("COMPILING_BLOCKS" | DRWVLINE+2, DRWVLINE+3*, DRWVLINE+8*, DRWSTR+8 |
| >> IBPRINT("WRITE_IF_COMPILING" | DRWVLINE+3, DRWSTR+8 |
| >> IBTOPLN | DRWSTR+10 |
| IBW | DRWSTR~, DRWSTR+6*, DRWSTR+7, DRWSTR+16, DRWSTR+17, DRWSTR+18, DRWSTR+22*, DRWSTR+34, DRWSTR+35, DRWSTR+49 , CMPSTR+2 |
| >> IBWRTCNT("S" | CMPSTR+1*, CMPSTR+2 |
| >> IBWRTCNT("V" | CMPVLINE+1*, CMPVLINE+2 |
| IBX | DRWBOX~, DRWBOX+2, DRWBOX+3, DRWBOX+5, DRWBOX+8, DRWBOX+9, DRWBOX+10, DRWVLINE~, DRWVLINE+6, DRWVLINE+7 , DRWSTR~, DRWSTR+9*, DRWSTR+21, DRWSTR+22, DRWSTR+32, DRWSTR+34, DRWSTR+35, DRWSTR+39, DRWSTR+41, DRWSTR+47 , DRWSTR+49, UNDRLINE~, UNDRLINE+3, CMPSTR+2, CMPVLINE+2, CTRLS~, CTRLS+9, CTRLS+10, CTRLS+16, CTRLS+17 |
| IBY | DRWBOX~, DRWBOX+2, DRWBOX+3, DRWBOX+5, DRWBOX+8, DRWBOX+9, DRWBOX+10, DRWVLINE~, DRWVLINE+6, DRWVLINE+7 , DRWSTR~, DRWSTR+9*, DRWSTR+10, DRWSTR+32, DRWSTR+35, DRWSTR+37, DRWSTR+40, DRWSTR+41, DRWSTR+45, DRWSTR+46 , DRWSTR+48, DRWSTR+49, UNDRLINE~, UNDRLINE+2, UNDRLINE+4, CMPSTR+2, CMPVLINE+2, CTRLS~, CTRLS+9, CTRLS+10 , CTRLS+16, CTRLS+17 |
| >> IOBLC | GRPHCS+2 |
| >> IOBRC | GRPHCS+2 |
| >> IOG0 | CTRLS+19 |
| >> IOG1 | CTRLS+19 |
| >> IOHL | GRPHCS+2 |
| >> IOINHI | CTRLS+19 |
| >> IOINORM | CTRLS+19 |
| >> IORVOFF | DRWSTR+46, CTRLS+19 |
| >> IORVON | DRWSTR+46, CTRLS+19 |
| >> IOTLC | GRPHCS+2 |
| >> IOTRC | GRPHCS+2 |
| >> IOUOFF | CTRLS+19 |
| >> IOUON | CTRLS+19 |
| >> IOVL | GRPHCS+2 |
| L | HLINE~, HLINE+3 |
| LEN | PADRIGHT~, PADRIGHT+1, PADRIGHT+2*, PADRIGHT+3 |
| LINE | HLINE+2~*, HLINE+3*, HLINE+4, UNDRLINE+1~, UNDRLINE+2*, UNDRLINE+3*, UNDRLINE+4 |
| OFF | DRWSTR+4~, DRWSTR+11*, DRWSTR+14*, DRWSTR+15*, DRWSTR+16*, DRWSTR+17*, DRWSTR+18*, DRWSTR+19*, DRWSTR+41, DRWSTR+49 |
| ON | DRWSTR+4~, DRWSTR+11*, DRWSTR+14*, DRWSTR+15*, DRWSTR+16*, DRWSTR+17*, DRWSTR+18*, DRWSTR+41, DRWSTR+49 |
| OPTIONS | DRWSTR~, DRWSTR+5*, DRWSTR+13, DRWSTR+14, DRWSTR+15, DRWSTR+16, DRWSTR+17, DRWSTR+18, DRWSTR+19, DRWSTR+20 , DRWSTR+32, DRWSTR+33, DRWSTR+44, CMPSTR+2 |
| P1 | CTRLS+1~, CTRLS+3*, CTRLS+5*, CTRLS+9, CTRLS+10, CTRLS+16, CTRLS+19 |
| P2 | CTRLS+1~, CTRLS+3*, CTRLS+9, CTRLS+10, CTRLS+17 |
| RET | CTRLS+1~*, CTRLS+19*, CTRLS+20, GRPHCS+1~*, GRPHCS+2*, GRPHCS+3 |
| S | DRWSTR+4~ |
| SAVE | DRWVLINE+1~, DRWVLINE+2*, DRWVLINE+8 |
| STR | PADRIGHT~, PADRIGHT+1*, PADRIGHT+3, PADRIGHT+4, STRIP~, STRIP+2, STRIP+3*, STRIP+4, STRIP+5*, STRIP+6 |
| STRING | DRWSTR~, DRWSTR+5*, DRWSTR+6, DRWSTR+7, DRWSTR+21*, DRWSTR+32, DRWSTR+33*, DRWSTR+36, DRWSTR+39, DRWSTR+44* , DRWSTR+47, CMPSTR+2 |
| >> U1 | DRWSTR+19 |
| UNDRLINE | DRWSTR+4~, DRWSTR+11*, DRWSTR+20*, DRWSTR+35 |
| >> VALMAR | DRWSTR+45, DRWSTR+48 |
| >> VALMCNT | DRWSTR+46* |
| W | DRWBOX~, DRWBOX+1, DRWBOX+3, DRWBOX+4, DRWBOX+5, DRWBOX+8, DRWBOX+9, DRWBOX+10, UNDRLINE~, UNDRLINE+3 |
| X | CTRLS+1~, CTRLS+2*, CTRLS+3, GRPHCS+1~, GRPHCS+2* |