©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
PSOLLU1 ;BHAM/RJS - LASER LABEL UTILITIES ;11/22/02
Source file <PSOLLU1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADD | ; Calculate the length and pad "_" to the end of TEXT for change of address
; then return FONT and TEXT to calling program. |
|
| FONT(RLN,TEXT) | ;
|
|
| STRT(RLN,TEXT,LNTH,FONT) | ;
; The LETTER array contains all the number of character per inch ; for the different font sizes that can be used. |
| Name | Line Occurrences |
|---|---|
| STRT | FONT+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | STRT+3~, STRT+76*, STRT+77, STRT+78, STRT+79, STRT+80, STRT+81 |
| CNT | ADD+2~, ADD+4*, ADD+6 |
| DASH | ADD+2~, ADD+5*, ADD+6 |
| FNTIDX | STRT+3~ |
| FONT | FONT+12, STRT~, STRT+85*, STRT+86*, STRT+87*, STRT+88*, STRT+89*, STRT+90*, STRT+91*, STRT+92* , STRT+93*, STRT+94*, ADD+7* |
| LETTER | STRT+3~ |
| LETTER( | STRT+14*, STRT+76 |
| LETTER(" " | STRT+25* |
| LETTER("!" | STRT+4* |
| LETTER("#" | STRT+6* |
| LETTER("$" | STRT+7* |
| LETTER("%" | STRT+8* |
| LETTER("&" | STRT+10* |
| LETTER("'" | STRT+14* |
| LETTER("(" | STRT+12* |
| LETTER(")" | STRT+13* |
| LETTER("*" | STRT+11* |
| LETTER("+" | STRT+24* |
| LETTER("," | STRT+16* |
| LETTER("-" | STRT+23* |
| LETTER("." | STRT+17* |
| LETTER("/" | STRT+19* |
| LETTER(":" | STRT+18* |
| LETTER(";" | STRT+18* |
| LETTER("<" | STRT+16* |
| LETTER("=" | STRT+24* |
| LETTER(">" | STRT+17* |
| LETTER("?" | STRT+19* |
| LETTER("@" | STRT+5* |
| LETTER("A" | STRT+26* |
| LETTER("B" | STRT+27* |
| LETTER("C" | STRT+28* |
| LETTER("D" | STRT+29* |
| LETTER("E" | STRT+30* |
| LETTER("F" | STRT+31* |
| LETTER("G" | STRT+32* |
| LETTER("H" | STRT+33* |
| LETTER("I" | STRT+34* |
| LETTER("J" | STRT+35* |
| LETTER("K" | STRT+36* |
| LETTER("L" | STRT+37* |
| LETTER("M" | STRT+38* |
| LETTER("N" | STRT+39* |
| LETTER("O" | STRT+40* |
| LETTER("P" | STRT+41* |
| LETTER("Q" | STRT+42* |
| LETTER("R" | STRT+43* |
| LETTER("S" | STRT+44* |
| LETTER("T" | STRT+45* |
| LETTER("U" | STRT+46* |
| LETTER("V" | STRT+47* |
| LETTER("W" | STRT+48* |
| LETTER("X" | STRT+49* |
| LETTER("Y" | STRT+50* |
| LETTER("Z" | STRT+51* |
| LETTER("[" | STRT+20* |
| LETTER("\" | STRT+21* |
| LETTER("]" | STRT+22* |
| LETTER("_" | STRT+23* |
| LETTER("`" | STRT+15* |
| LETTER("a" | STRT+26* |
| LETTER("b" | STRT+27* |
| LETTER("c" | STRT+28* |
| LETTER("d" | STRT+29* |
| LETTER("e" | STRT+30* |
| LETTER("f" | STRT+31* |
| LETTER("g" | STRT+32* |
| LETTER("h" | STRT+33* |
| LETTER("i" | STRT+34* |
| LETTER("j" | STRT+35* |
| LETTER("k" | STRT+36* |
| LETTER("l" | STRT+37* |
| LETTER("m" | STRT+38* |
| LETTER("n" | STRT+39* |
| LETTER("o" | STRT+40* |
| LETTER("p" | STRT+41* |
| LETTER("q" | STRT+42* |
| LETTER("r" | STRT+43* |
| LETTER("s" | STRT+44* |
| LETTER("t" | STRT+45* |
| LETTER("u" | STRT+46* |
| LETTER("v" | STRT+47* |
| LETTER("w" | STRT+48* |
| LETTER("x" | STRT+49* |
| LETTER("y" | STRT+50* |
| LETTER("z" | STRT+51* |
| LETTER("{" | STRT+20* |
| LETTER("|" | STRT+21* |
| LETTER("}" | STRT+22* |
| LETTER("~" | STRT+15* |
| LETTER(0 | STRT+13* |
| LETTER(1 | STRT+4* |
| LETTER(2 | STRT+5* |
| LETTER(3 | STRT+6* |
| LETTER(4 | STRT+7* |
| LETTER(5 | STRT+8* |
| LETTER(6 | STRT+9* |
| LETTER(7 | STRT+10* |
| LETTER(8 | STRT+11* |
| LETTER(9 | STRT+12* |
| LN | STRT+3~ |
| LN( | STRT+85, STRT+86, STRT+87, STRT+88, STRT+91, STRT+92, STRT+93, STRT+94 |
| LN("DRG" | STRT+57* |
| LN("FULL" | STRT+66* |
| LN("ML" | STRT+60* |
| LN("ML2" | STRT+61* |
| LN("RX#" | STRT+55* |
| LN("RXVAMC" | STRT+56* |
| LN("SEC2" | STRT+62*, STRT+63, STRT+64 |
| LN("SEC2B" | STRT+65* |
| LN("SEC2X" | STRT+63*, ADD+3 |
| LN("SIG" | STRT+58* |
| LN("SIG2" | STRT+64* |
| LN("WRN" | STRT+59*, STRT+65 |
| LNTH | STRT~ |
| LNTH(10 | STRT+70*, STRT+80*, STRT+86, STRT+93, ADD+3 |
| LNTH(12 | STRT+70*, STRT+81*, STRT+85, STRT+94 |
| LNTH(6 | STRT+70*, STRT+77* |
| LNTH(8 | STRT+70*, STRT+78*, STRT+88, STRT+91 |
| LNTH(9 | STRT+70*, STRT+79*, STRT+87, STRT+92 |
| LTTR | STRT+3~, STRT+76* |
| NEEDED | ADD+2~, ADD+3*, ADD+4 |
| RLN | FONT~, FONT+12, STRT~, STRT+84, STRT+85, STRT+86, STRT+87, STRT+88, STRT+91, STRT+92 , STRT+93, STRT+94 |
| SIZ | STRT+3~ |
| TEXT | FONT~, FONT+12, STRT~, STRT+75, STRT+76, ADD+6 |
| >> TEXT2 | ADD+6* |
| TXTIDX | STRT+3~, STRT+75*, STRT+76 |
| U | STRT+77, STRT+78, STRT+79, STRT+80, STRT+81 |