©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
LRLABLD ;DALOI/TGA/JMC - LABELS ON DEMAND ; 5/22/87 20:42
Source file <LRLABLD.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 3 | (PKILL,PSET)^%ZISP $$FMTE^XLFDT $$RJ^XLFSTR |
| Lab Service | 1 | PT^LRX |
| Registration | 1 | KVA^VADPT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LRBAR | ; Setup LRBAR array if barcodes for this accession area
; Called by above, LRLABLD0, LRLABLIO, LRLABXT, LRPHIS1 |
|
| UID | ; Set up variables for unique id.
; Called by above, LRLABLD0, LRPHLIS1 ; LRUID = unique id number of accession |
|
| LBLTYP | ; Determine label routine to use.
; Sets LRLABEL to label print routine (label^routine). ; Called by above, LRLABLD0, LRLABLIO, LRLABXOL, LRLABXT, LRPHLIS1 |
|
| EN2 | ;
|
|
| ENT | ;
; Called by LROE |
|
| BARID | ; Set up variables for barcoding
; LRBARID = number to be barcoded on label, based on accession area setup in file #68. ; If no accession # or UID - sets LRBARID="" ; Called by LRLABLD0, LRPHLIS1 |
|
| GO | ; From above, LRLABXT, LRPHLIS1
|
|
| PSET | ; Setup special printer variables - barcode on/barcode off
; Called by above, LRLABXOL, LRLABXT, LRPHLIS1 |
|
| LRTXT(LRTLST,LRLEN) | ; Parse test list to print on label.
; Builds a string of test names concatentated using ";" to the maximum ; length (LRLEN) specified. Terminates list with "..." if exceeds length ; specified. ; Call with ; LRTLST = array containing name of test to parse ; LRLEN = length of test string to return (default=35) |
|
| URGA(X) | ; Determine urgency abbreviation to print on label
; Input X = pointer to Urgency #62.05 file ; Returns Y = urgency abbreviation^display type if turned on ; Called by above, LRLABELF, LRLABLD0, LRLABLIO, LRPHLIS1 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAB(60 - [#60] | GO+28, GO+29, GO+30 |
| ^LAB(61 - [#61] | GO+13 |
| ^LAB(62 - [#62] | GO+7, GO+12, GO+14 |
| ^LAB(62.05 - [#62.05] | URGA+7 |
| ^LAB(69.9 - [#69.9] | LBLTYP+7, LBLTYP+8, LBLTYP+10 |
| ^LR - [#63] | GO+16 |
| ^LRO(68 - [#68] | GO+1, GO+3, GO+5, GO+10, GO+15, GO+22, GO+23, UID+3, BARID+5, LBLTYP+15 , LBLTYP+16, LRBAR+3 |
| ^LRO(69 - [#69] | GO+6 |
| Name | Line Occurrences |
|---|---|
| $$URGA | GO+33 |
| @( | GO+38 |
| BARID | GO+18 |
| EN2 | ENT+6 |
| GO | EN2+7 |
| LBLTYP | EN2+1 |
| LRBAR | EN2+2 |
| PSET | ENT+3 |
| UID | GO+18 |
| Name | Field # of Occurrence |
|---|---|
| ^( | GO+28 |
| ^(0 | GO+16, GO+28 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DFN | GO+16* |
| I | GO+35*, LRTXT+13~, LRTXT+21* |
| IO | ENT+4 |
| >> IOBAROFF | PSET+9 |
| >> IOBARON | PSET+10 |
| >> IOS | LBLTYP+8 |
| IOST(0 | PSET+7 |
| J | LRTXT+13~, LRTXT+15*, LRTXT+16*, LRTXT+17 |
| >> LRAA | ENT+5*, ENT+6*, EN2+4, EN2+6, GO+1, GO+3, GO+5, GO+10, GO+15, GO+22 , GO+23, UID+3, BARID+5, LBLTYP+12*, LBLTYP+15, LBLTYP+16, LRBAR+2, LRBAR+3 |
| >> LRACC | EN2+6* |
| >> LRAD | EN2+6*, GO+1, GO+3, GO+5, GO+10, GO+15, GO+22, GO+23, UID+3 |
| >> LRAN | EN2+3*, EN2+4*, EN2+6, GO+1, GO+3, GO+5, GO+10, GO+15, GO+22, GO+23 , UID+3, BARID+8, BARID+9 |
| LRBAR | ENT+7! |
| LRBAR( | LRBAR+3* |
| LRBAR0 | ENT+7!, PSET+9* |
| LRBAR1 | ENT+7!, PSET+10* |
| LRBARID | ENT+7!, BARID+6*, BARID+7*, BARID+8, BARID+9*, BARID+10* |
| >> LRCE | EN2+6* |
| >> LRDAT | GO+5* |
| >> LRDFN | GO+15*, GO+16 |
| >> LRDPF | GO+16* |
| LREND | ENT+7!, GO+17 |
| LRI | ENT+7!, GO+34*, GO+35, GO+36~ |
| >> LRINFW | GO+16* |
| >> LRLABEL | GO+38, LBLTYP+7*, LBLTYP+16*, LBLTYP+23*, LBLTYP+27*, LBLTYP+28*, LBLTYP+29*, LBLTYP+33*, LBLTYP+34*, LBLTYP+35* |
| >> LRLABLIO | ENT+4* |
| >> LRLBL( | ENT+6, EN2+4, EN2+6 |
| LRLBLDEV | LBLTYP+4~, LBLTYP+8*, LBLTYP+9, LBLTYP+10, LBLTYP+19 |
| LRLBLDEV(0 | LBLTYP+10*, LBLTYP+12, LBLTYP+22, LBLTYP+23, LBLTYP+26, LBLTYP+27, LBLTYP+28, LBLTYP+29, LBLTYP+32, LBLTYP+33 , LBLTYP+34, LBLTYP+35 |
| LRLEN | LRTXT~, LRTXT+14*, LRTXT+16, LRTXT+19, LRTXT+21, LRTXT+22 |
| LRLLOC | EN2+5~, EN2+6* |
| LRN | ENT+7!, GO+31*, GO+32, GO+34, GO+35, GO+36~ |
| >> LRODT | EN2+6*, GO+6 |
| LROK | ENT+7! |
| >> LRPREF | GO+37* |
| LRRB | EN2+5~, EN2+6* |
| >> LRSN | EN2+6*, GO+6 |
| >> LRSSP | GO+28* |
| >> LRTJ | GO+6*, GO+7, GO+14, GO+28 |
| >> LRTJDATA | GO+7*, GO+8, GO+14* |
| LRTLST | LRTXT~ |
| LRTLST( | LRTXT+16, LRTXT+17 |
| >> LRTOP | GO+8*, GO+9, GO+10*, GO+11, GO+12, GO+13* |
| LRTS | GO+19! |
| LRTS( | GO+29* |
| >> LRTV | GO+23*, GO+24, GO+26, GO+27, GO+28, GO+29, GO+30 |
| >> LRTVOL | GO+20*, GO+28*, GO+31, GO+37* |
| LRTXT | LRTXT+13~, LRTXT+15*, LRTXT+16, LRTXT+18*, LRTXT+19, LRTXT+20, LRTXT+21, LRTXT+22*, LRTXT+23 |
| >> LRUID | UID+3*, UID+4*, BARID+7 |
| LRURG | ENT+7!, GO+19!, GO+26* |
| LRURG0 | ENT+7!, GO+20*, GO+27*, GO+33 |
| LRURGA | ENT+7!, GO+33* |
| >> LRVOL | GO+25*, GO+28* |
| LRX | BARID+4~, BARID+5*, BARID+7, BARID+10 |
| >> LRXL | GO+20*, GO+30*, GO+31 |
| >> N | GO+35* |
| >> S1 | GO+8*, GO+14*, GO+31, GO+37 |
| >> S2 | GO+8*, GO+14*, GO+37 |
| >> T | GO+12*, GO+13, GO+21*, GO+22*, GO+23, GO+29 |
| U | ENT+2*, EN2+6, GO+5, GO+6, GO+8, GO+12, GO+13, GO+14, GO+16, GO+24 , GO+26, GO+27, GO+28, GO+29, GO+30, LBLTYP+7, LRBAR+3 |
| X | EN2+6*, URGA~, URGA+6, URGA+7, LRTXT+13~, LRTXT+17*, LRTXT+18, LRTXT+21*, LRTXT+22 |
| X(0 | URGA+7*, URGA+8 |
| Y | URGA+4~, URGA+5*, URGA+6, URGA+8*, URGA+9, LRTXT+13~, LRTXT+20*, LRTXT+21 |
| >> ZTQUEUED | ENT+8 |
| >> ZTREQ | ENT+8* |