LRSRVR9 ;BPFO/DTG - LAB NTRT DATA SERVER CONT'D MISSING VUID EXTRACT ;02/10/2016
Source file <LRSRVR9.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Called by option [LR NTRT MLTF EXTRACT]
; Entry point for the option - user must capture output |
|
| SERVER | ; Server entry Point
|
|
| BUILD | ; Build extract
|
|
| TEST | ; Pull out test info
|
|
| TESTGOOD | ;
|
|
| SPEC | ; Check each specimen for this test
|
|
| SPECLOOP | ; Check to see if specimen has been linked to LOINC
|
|
| NOSPEC | ; for test without specimens
|
|
| NOSPEC1 | ; Process site notes
|
|
| WRT | ; Set ^TMP( with extracted data
|
|
| SETDATA | ; Set data into report structure
|
|
| SYNNOTE | ; Build site's test synonym's for first record
|
|
| MICRO(LR64) | ;
|
|
| GET664 | ; get file 66.4 info
|
| Name | Field # of Occurrence |
|---|---|
| WAIT^DICD | EN+6 |
| $$GET1^DIQ | BUILD+24, BUILD+26, BUILD+30, SPEC+12, SPECLOOP+9, SPECLOOP+10, SPECLOOP+11, SPECLOOP+13, SPECLOOP+14, SPECLOOP+16 , SPECLOOP+17, SPECLOOP+18, SPECLOOP+24, SPECLOOP+25, NOSPEC+8, NOSPEC+12, NOSPEC+14, WRT+11, WRT+14, WRT+18 , WRT+66, MICRO+16, MICRO+22 |
| GETS^DIQ | MICRO+3, MICRO+4, GET664+3 |
| ^DIR | EN+4 |
| $$TSTTYP^LRSRVR9A | NOSPEC+14, WRT+18 |
| $$UUEN^LRSRVR9A | BUILD+39 |
| CLEAN^LRSRVR9A | EN+14, SERVER+6 |
| ENCODE^LRSRVR9A | SETDATA+3 |
| HDR^LRSRVR9A | BUILD+13 |
| MAILSEND^LRSRVR9A | SERVER+5 |
| SITENOTE^LRSRVR9A | SPEC+3 |
| SUFFIX^LRSRVR9A | SPEC+12 |
| UNWIND^LRSRVR9A | TESTGOOD+7 |
| $$SITE^VASITE | BUILD+7, GET664+1 |
| $$HTE^XLFDT | SERVER+4 |
| $$TRIM^XLFSTR | TEST+4, TESTGOOD+2, SPECLOOP+6 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^LAB(60 - [#60] | GET1^DIQ |
| 60.01 | GET1^DIQ |
| ^LAB(62.06 - [#62.06] | GET1^DIQ |
| ^LAM - [#64] | GET1^DIQ, GETS^DIQ |
| ^LAB(64.061 - [#64.061] | GET1^DIQ |
| ^LAB(64.21 - [#64.21] | GET1^DIQ |
| ^LRMLTF - [#66.3] | GET1^DIQ |
| ^LAB(66.4 - [#66.4] | GETS^DIQ |
| ^LAB(95.3 - [#95.3] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAB(60 - [#60] | TEST+5, TEST+10, TEST+11, TESTGOOD+5, TESTGOOD+6, TESTGOOD+11, TESTGOOD+12, TESTGOOD+16, TESTGOOD+18, TESTGOOD+24 , SPEC+6, SPEC+7, SPEC+8, WRT+21, WRT+25, SYNNOTE+4 |
| ^LAB(61 - [#61] | SPEC+9 |
| ^LAB(62.06 - [#62.06] | BUILD+23 |
| ^LAB(66.4 - [#66.4] | GET664+2 |
| ^LAB(95.3 - [#95.3] | MICRO+13 |
| ^LAM - [#64] | SPECLOOP+20, SPECLOOP+22, SPECLOOP+23 |
| ^TMP($J | EN+13, BUILD+10!, BUILD+38, BUILD+39*, BUILD+40*, BUILD+41*, BUILD+43*, BUILD+44*, BUILD+45*, BUILD+46* , BUILD+47*, BUILD+48*, TESTGOOD+10, TESTGOOD+21, NOSPEC+2*, WRT+5*, SETDATA+1, SETDATA+2* |
| Name | Line Occurrences |
|---|---|
| $$MICRO | BUILD+25 |
| BUILD | EN+10, SERVER+3 |
| GET664 | BUILD+4 |
| NOSPEC | SPEC+13 |
| NOSPEC1 | NOSPEC+35 |
| SETDATA | BUILD+33, NOSPEC+35, NOSPEC+36, NOSPEC+40, NOSPEC1+3, WRT+30, WRT+34, WRT+40, WRT+42, WRT+50 , WRT+53, WRT+57, WRT+61, WRT+64, WRT+78 |
| SPEC | TESTGOOD+19, TESTGOOD+25 |
| SPECLOOP | SPEC+14 |
| SYNNOTE | SPEC+4 |
| TEST | BUILD+19 |
| TESTGOOD | TEST+12 |
| WRT | SPECLOOP+26 |
| Name | Field # of Occurrence |
|---|---|
| ^( | EN+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | BUILD+2~, TEST+11*, TEST+12 |
| AA | NOSPEC+1~, NOSPEC+33*, NOSPEC+34*, NOSPEC+35, NOSPEC+44!, NOSPEC1+2 |
| AAA | SPECLOOP+2~, SPECLOOP+8*, SPECLOOP+9, SPECLOOP+11, SPECLOOP+15*, SPECLOOP+16, SPECLOOP+17, SPECLOOP+18 |
| AR | BUILD+2~, GET664+4! |
| AR("66.4" | GET664+4 |
| BB | NOSPEC+1~, NOSPEC+34*, NOSPEC+36, NOSPEC+44! |
| CC | NOSPEC1+1~, NOSPEC1+2*, NOSPEC1+5! |
| DD | NOSPEC1+1~, NOSPEC1+2*, NOSPEC1+3, NOSPEC1+5! |
| DIR | EN+2~ |
| DIR("A" | EN+3* |
| DIR("B" | EN+3* |
| DIR(0 | EN+3* |
| DIRUT | EN+2~, EN+5 |
| ERR | TEST+2! |
| I | SERVER+1~, BUILD+1~, BUILD+12* |
| II | NOSPEC+1~, NOSPEC+5*, NOSPEC+44! |
| III | NOSPEC+1~, NOSPEC+19*, NOSPEC+21, NOSPEC+27*, NOSPEC+44! |
| LA7TREE | BUILD+2~, TEST+1~ |
| LA7TREE( | TESTGOOD+9 |
| LOINCDTB | MICRO+1~ |
| LOINCDTB(64 | MICRO+5, MICRO+8, MICRO+9, MICRO+12, MICRO+13, MICRO+20, MICRO+21 |
| LR60 | TEST+1~, TESTGOOD+8*, TESTGOOD+9*, TESTGOOD+10, TESTGOOD+11 |
| LR60IEN | BUILD+3~, TEST+3*, TEST+5, TEST+10, TEST+11, TESTGOOD+1, TESTGOOD+5, TESTGOOD+6, TESTGOOD+7, TESTGOOD+11* , TESTGOOD+12, TESTGOOD+16, TESTGOOD+18, TESTGOOD+21, TESTGOOD+24, SPEC+6, SPEC+7, SPEC+8, SPECLOOP+8, SPECLOOP+15 , NOSPEC+2, NOSPEC+8, NOSPEC+9, NOSPEC+12, NOSPEC+14, WRT+5, WRT+7, WRT+14, WRT+18, WRT+21 , WRT+25, SYNNOTE+4 |
| LR60NM | BUILD+3~, TEST+3*, TEST+4*, TESTGOOD+1, TESTGOOD+11*, NOSPEC+10, WRT+8 |
| LR6206 | BUILD+1~, BUILD+22*, BUILD+23*, BUILD+24, BUILD+26, BUILD+31, MICRO+16 |
| LR64 | BUILD+1~, BUILD+24*, BUILD+25, BUILD+30, BUILD+31, SPECLOOP+2~, SPECLOOP+6*, SPECLOOP+12, SPECLOOP+13, SPECLOOP+14 , SPECLOOP+20, SPECLOOP+22, SPECLOOP+23, WRT+66, WRT+83, MICRO~, MICRO+3, MICRO+4 |
| LR6421 | SPECLOOP+2~, SPECLOOP+7*, SPECLOOP+14*, WRT+11, MICRO+1~, MICRO+21*, MICRO+22 |
| LRBATTY | TEST+1~, TESTGOOD+1*, TESTGOOD+2*, WRT+8 |
| LRBATTYN | TEST+1~, TESTGOOD+1*, WRT+8 |
| LRCDEF | BUILD+3~, SPEC+2* |
| LRCNT | EN+2~, SERVER+1~, BUILD+1~, BUILD+11*, BUILD+33*, BUILD+43, NOSPEC+42*, WRT+80* |
| LRCNT( | BUILD+12* |
| LRCNT(0 | BUILD+44, NOSPEC+42*, WRT+80* |
| LRCNT(1 | BUILD+45, WRT+81* |
| LRCNT(2 | BUILD+47, WRT+83* |
| LRCNT(3 | BUILD+33*, BUILD+48 |
| LRCNT(4 | BUILD+46, WRT+82* |
| LRCREATE | BUILD+3~, SPECLOOP+16* |
| LRCRLF | BUILD+1~, BUILD+11*, BUILD+32, NOSPEC+39, WRT+77 |
| LREN | WRT+1~ |
| LREND | EN+2~, SERVER+1~ |
| LREXPY | BUILD+3~, SPECLOOP+17* |
| LRINACT | BUILD+3~, SPECLOOP+18* |
| LRINDX | SPECLOOP+2~, SPECLOOP+3*, SPECLOOP+4*, SPECLOOP+5, WRT+7 |
| LRJ | NOSPEC+18*, NOSPEC+19*, NOSPEC+20, NOSPEC+26*, NOSPEC+27*, WRT+1~, WRT+31*, WRT+32*, WRT+33, WRT+41* , WRT+42* |
| LRL | EN+12*, EN+13*, SERVER+1~ |
| LRLEN | BUILD+1~ |
| LRLNC | BUILD+3~, SPEC+2*, SPECLOOP+7*, SPECLOOP+24*, WRT+8, WRT+82 |
| LRLNC80 | BUILD+3~, SPEC+2* |
| LRLNCN | BUILD+3~, SPEC+2* |
| LRLNCX | BUILD+3~, SPEC+2* |
| LRLNTA | SPECLOOP+2~, SPECLOOP+6*, SPECLOOP+20, SPECLOOP+23*, SPECLOOP+25 |
| LRMISP | BUILD+2~, BUILD+6*, BUILD+27, SPEC+13, WRT+74 |
| LRMSUBJ | SERVER+1~, SERVER+4*, SERVER+5 |
| LRNODE | BUILD+3~, BUILD+38*, BUILD+39*, BUILD+40, BUILD+41, SETDATA+1*, SETDATA+2* |
| LRNOS | NOSPEC+1~, NOSPEC+3*, NOSPEC+4, NOSPEC+5, NOSPEC+6, NOSPEC+7, NOSPEC+9, NOSPEC+10, NOSPEC+12, NOSPEC+14 , NOSPEC+21, NOSPEC+27, NOSPEC+31, NOSPEC+33, NOSPEC+34, NOSPEC+43, NOSPEC+44!, NOSPEC1+2 |
| LRNT | BUILD+2~, GET664+2*, GET664+3, GET664+4 |
| LRNTI | BUILD+2~, GET664+4* |
| LRNTI( | BUILD+8 |
| LROUT | TEST+2!, SPEC+1! |
| LRPNTB | MICRO+1~, MICRO+5*, MICRO+8, MICRO+9, MICRO+12, MICRO+13, MICRO+20, MICRO+21 |
| LRQUIT | BUILD+1~, WRT+1~ |
| LRR64 | BUILD+3~, TESTGOOD+18*, TESTGOOD+24*, SPEC+11, SPEC+12 |
| LRRNLT | SPECLOOP+2~, SPECLOOP+7*, SPECLOOP+13*, WRT+8 |
| LRROOT | BUILD+1~, BUILD+16*, BUILD+17*, BUILD+18, TEST+3 |
| LRSCREATE | SPECLOOP+2~, SPECLOOP+3*, SPECLOOP+7*, WRT+71 |
| LRSPEC | TEST+2!, SPEC+1!, SPEC+2*, SPECLOOP+6*, SPECLOOP+9, SPECLOOP+11, SPECLOOP+16, SPECLOOP+17, SPECLOOP+18, SPECLOOP+20 , SPECLOOP+21, SPECLOOP+22, SPECLOOP+23, WRT+21, WRT+25 |
| LRSPEC( | SPEC+11*, SPECLOOP+4, SPECLOOP+5 |
| LRSPEC60 | BUILD+3~, SPEC+5*, SPEC+6*, SPEC+7, SPEC+8, SPEC+9, SPEC+11 |
| LRSPECCT | BUILD+3~, SPEC+5*, SPEC+6*, SPEC+13 |
| LRSPECN | BUILD+3~, SPEC+2*, SPEC+10*, SPEC+11, SPECLOOP+6*, WRT+8 |
| LRSPECTA | BUILD+3~, SPEC+10*, SPEC+11 |
| LRSS | BUILD+1~, BUILD+22*, NOSPEC+1~, NOSPEC+8*, NOSPEC+14, WRT+1~, WRT+14*, WRT+15, WRT+17, WRT+18 , MICRO+19 |
| LRST | EN+2~, SERVER+4, BUILD+7*, BUILD+9*, BUILD+31, TESTGOOD+1, NOSPEC+9, WRT+7 |
| LRSTN | EN+2~, SERVER+4, BUILD+7* |
| LRSTNOTE | BUILD+1~, NOSPEC+16, NOSPEC+22*, WRT+29, WRT+35* |
| LRSTR | BUILD+1~, BUILD+11*, BUILD+31*, BUILD+32*, BUILD+39, NOSPEC+33*, NOSPEC+36*, NOSPEC+38*, NOSPEC+39*, NOSPEC1+3* , NOSPEC1+4*, WRT+7*, WRT+8*, WRT+11*, WRT+15*, WRT+17*, WRT+18*, WRT+23*, WRT+26*, WRT+34* , WRT+36*, WRT+42*, WRT+46*, WRT+50*, WRT+51*, WRT+53*, WRT+54*, WRT+57*, WRT+58*, WRT+61* , WRT+62*, WRT+66*, WRT+67*, WRT+69*, WRT+71*, WRT+74*, WRT+77*, SETDATA+2*, SETDATA+3 |
| LRSTSYN | NOSPEC+25, NOSPEC+28*, WRT+39, WRT+43*, SYNNOTE+2!, SYNNOTE+3*, SYNNOTE+4*, SYNNOTE+6* |
| LRSTSYN("B" | SYNNOTE+5! |
| LRSTSYN(0 | SYNNOTE+5! |
| LRSTUB | BUILD+1~, BUILD+27*, BUILD+28*, BUILD+29*, BUILD+30*, BUILD+31, MICRO+1~, MICRO+2*, MICRO+5, MICRO+8* , MICRO+9*, MICRO+12*, MICRO+13*, MICRO+16*, MICRO+19*, MICRO+22*, MICRO+24 |
| LRSUB | EN+2~, EN+9*, EN+15! |
| LRSUBMIT | SPECLOOP+2~, SPECLOOP+3*, SPECLOOP+7*, SPECLOOP+11*, WRT+69 |
| LRSUBSCRIPT | BUILD+2~, BUILD+8* |
| LRTA | SPECLOOP+2~, SPECLOOP+7*, SPECLOOP+25*, WRT+8 |
| LRTSTTYP | TEST+1~, TEST+5*, TEST+8, TESTGOOD+12*, TESTGOOD+14, NOSPEC+31, WRT+46 |
| LRTXT | EN+2~, EN+9*, SERVER+1~, SERVER+2*, BUILD+32, BUILD+37, NOSPEC+39, WRT+77, SETDATA+2, SETDATA+3 |
| LRTYPER | BUILD+2~, TEST+10*, TEST+12, TEST+13, TEST+14 |
| LRUNIT | BUILD+3~, SPEC+2*, SPEC+8*, SPEC+11, SPECLOOP+6*, WRT+8 |
| LRVAL | EN+2~, BUILD+1~, BUILD+7* |
| LRVLOINC | BUILD+2~, SPECLOOP+2~, SPECLOOP+3*, SPECLOOP+7*, SPECLOOP+10*, WRT+52, WRT+53 |
| LRVUID | SPECLOOP+2~, SPECLOOP+3*, SPECLOOP+7*, SPECLOOP+9*, SPECLOOP+10, WRT+49, WRT+50, WRT+81 |
| LRVUIDAN | SPECLOOP+2~, SPECLOOP+3*, SPECLOOP+7*, SPECLOOP+10*, WRT+59, WRT+61 |
| LRVUIDN | SPECLOOP+2~, SPECLOOP+3*, SPECLOOP+7*, SPECLOOP+10*, WRT+55, WRT+57 |
| LRX | SERVER+1~, BUILD+25*, BUILD+26*, BUILD+28, BUILD+29, SPECLOOP+2~, SPECLOOP+19*, SPECLOOP+20*, SPECLOOP+21, SPECLOOP+23* , SPECLOOP+24 |
| LRY | SERVER+1~ |
| LSITE | BUILD+2~, GET664+1*, GET664+2 |
| U | TESTGOOD+18, TESTGOOD+24, SPEC+8, SPEC+11, SPECLOOP+6, GET664+1 |
| X | EN+2~, SPEC+9*, SPEC+10, SPECLOOP+2~, SPECLOOP+5*, SPECLOOP+6, SPECLOOP+22*, SPECLOOP+23, NOSPEC+14*, NOSPEC+20* , NOSPEC+21, WRT+1~, WRT+18*, WRT+21*, WRT+22, WRT+25*, WRT+26, WRT+33*, WRT+34 |
| Y | EN+2~, SPEC+2*, WRT+1~, WRT+22*, WRT+23 |