LRSRVR2 ;VA/DALIO/FHS - LAB DATA SERVER CONT'D RELMA EXTRACT ; 17-Oct-2014 09:22 ; MKK
Source file <LRSRVR2.m>
Package | Total | Call Graph |
---|---|---|
Lab Service | 4 | (CLEAN,HDR,SITENOTE,SUFFIX,SYNNOTE)^LRSRVR2A ($$MICRO,$$TSTTYP)^LRSRVR3 ($$UUEN,ENCODE)^LRSRVR4 MAILSEND^LRSRVR6 |
VA Fileman | 3 | WAIT^DICD $$GET1^DIQ ^DIR |
Kernel | 2 | $$HTE^XLFDT $$TRIM^XLFSTR |
Automated Lab Instruments | 1 | UNWIND^LA7ADL1 |
Registration | 1 | $$SITE^VASITE |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; Called by option [LR LOINC EXTRACT RELMA FORMAT]
; Entry point for the option - user must capture output |
|
SERVER | ; Server entry Point
|
|
WRT | ; Set ^TMP( with extracted data
|
|
BUILD | ; Build extract
|
|
TEST | ; Pull out test info
|
|
SPECLOOP | ; Check to see if specimen has been linked to LOINC
|
|
SPEC | ; Check each specimen for this test
|
|
SETDATA | ; Set data into report structure
|
Name | Field # of Occurrence |
---|---|
WAIT^DICD | EN+6 |
$$GET1^DIQ | BUILD+18, BUILD+21, SPEC+12, SPECLOOP+9, SPECLOOP+10, SPECLOOP+16, SPECLOOP+17, WRT+11, WRT+14, WRT+18 , WRT+49 |
^DIR | EN+4 |
UNWIND^LA7ADL1 | TEST+18 |
CLEAN^LRSRVR2A | EN+12, SERVER+6 |
HDR^LRSRVR2A | BUILD+7 |
SITENOTE^LRSRVR2A | SPEC+3 |
SUFFIX^LRSRVR2A | SPEC+12 |
SYNNOTE^LRSRVR2A | SPEC+4 |
$$MICRO^LRSRVR3 | BUILD+19 |
$$TSTTYP^LRSRVR3 | WRT+18 |
$$UUEN^LRSRVR4 | BUILD+30 |
ENCODE^LRSRVR4 | SETDATA+3 |
MAILSEND^LRSRVR6 | SERVER+5 |
$$SITE^VASITE | BUILD+2 |
$$HTE^XLFDT | SERVER+4 |
$$TRIM^XLFSTR | TEST+4, TEST+13, SPECLOOP+6 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^LAB(60 - [#60] | GET1^DIQ |
^LAB(62.06 - [#62.06] | GET1^DIQ |
^LAM - [#64] | GET1^DIQ |
^LAB(64.061 - [#64.061] | GET1^DIQ |
^LAB(64.21 - [#64.21] | GET1^DIQ |
^LAB(95.3 - [#95.3] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^LAB(60 - [#60] | TEST+5, TEST+10, TEST+16, TEST+17, TEST+22, TEST+23, TEST+27, TEST+28, TEST+34, SPEC+6 , SPEC+7, SPEC+8, WRT+21, WRT+25 |
^LAB(61 - [#61] | SPEC+9 |
^LAB(62.06 - [#62.06] | BUILD+17 |
^LAM - [#64] | SPECLOOP+12, SPECLOOP+14, SPECLOOP+15 |
^TMP($J | EN+11, BUILD+4!, BUILD+29, BUILD+30*, BUILD+31*, BUILD+32*, BUILD+34*, BUILD+35*, BUILD+36*, BUILD+37* , BUILD+38*, TEST+21, TEST+31, WRT+5*, SETDATA+1, SETDATA+2* |
Name | Line Occurrences |
---|---|
BUILD | EN+8, SERVER+3 |
SETDATA | BUILD+25, WRT+30, WRT+34, WRT+40, WRT+42, WRT+55 |
SPEC | TEST+29, TEST+35 |
SPECLOOP | SPEC+13 |
TEST | BUILD+13 |
WRT | SPECLOOP+18 |
Name | Field # of Occurrence |
---|---|
^( | EN+11 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
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+6* |
LA7TREE | TEST+1~ |
LA7TREE( | TEST+20 |
LR60 | TEST+1~, TEST+19*, TEST+20*, TEST+21, TEST+22 |
>> LR60IEN | TEST+3*, TEST+5, TEST+10, TEST+12, TEST+16, TEST+17, TEST+18, TEST+22*, TEST+23, TEST+27 , TEST+28, TEST+31, TEST+34, SPEC+6, SPEC+7, SPEC+8, WRT+5, WRT+7, WRT+14, WRT+18 , WRT+21, WRT+25 |
>> LR60NM | TEST+3*, TEST+4*, TEST+12, TEST+22*, WRT+8 |
LR6206 | BUILD+1~, BUILD+16*, BUILD+17*, BUILD+18, BUILD+23 |
LR64 | BUILD+1~, BUILD+18*, BUILD+19, BUILD+21, BUILD+23, SPECLOOP+2~, SPECLOOP+6*, SPECLOOP+8, SPECLOOP+9, SPECLOOP+10 , SPECLOOP+12, SPECLOOP+14, SPECLOOP+15, WRT+49, WRT+59 |
LR6421 | SPECLOOP+2~, SPECLOOP+7*, SPECLOOP+10*, WRT+11 |
LRBATTY | TEST+1~, TEST+12*, TEST+13*, WRT+8 |
LRBATTYN | TEST+1~, TEST+12*, WRT+8 |
>> LRCDEF | SPEC+2* |
LRCNT | EN+2~, SERVER+1~, BUILD+1~, BUILD+5*, BUILD+25*, BUILD+34, WRT+57* |
LRCNT( | BUILD+6* |
LRCNT(0 | BUILD+35, WRT+57* |
LRCNT(1 | BUILD+36, WRT+58* |
LRCNT(2 | BUILD+37, WRT+59* |
LRCNT(3 | BUILD+25*, BUILD+38 |
LRCRLF | BUILD+1~, BUILD+5*, BUILD+24, WRT+54 |
LREN | WRT+1~ |
LREND | EN+2~, SERVER+1~ |
LRINDX | SPECLOOP+2~, SPECLOOP+3*, SPECLOOP+4*, SPECLOOP+5, WRT+7 |
LRJ | WRT+1~, WRT+31*, WRT+32*, WRT+33, WRT+41*, WRT+42* |
LRL | EN+10*, EN+11*, SERVER+1~ |
LRLEN | BUILD+1~ |
>> LRLNC | SPEC+2*, SPECLOOP+7*, SPECLOOP+16*, WRT+8, WRT+58 |
>> LRLNC80 | SPEC+2* |
>> LRLNCN | SPEC+2* |
>> LRLNCX | SPEC+2* |
LRLNTA | SPECLOOP+2~, SPECLOOP+6*, SPECLOOP+12, SPECLOOP+15*, SPECLOOP+17 |
LRMSUBJ | SERVER+1~, SERVER+4*, SERVER+5 |
>> LRNODE | BUILD+29*, BUILD+30*, BUILD+31, BUILD+32, SETDATA+1*, SETDATA+2* |
LROUT | TEST+2!, SPEC+1! |
LRQUIT | BUILD+1~, WRT+1~ |
>> LRR64 | TEST+28*, TEST+34*, SPEC+11, SPEC+12 |
LRRNLT | SPECLOOP+2~, SPECLOOP+7*, SPECLOOP+9*, WRT+8 |
LRROOT | BUILD+1~, BUILD+10*, BUILD+11*, BUILD+12, TEST+3 |
LRSPEC | TEST+2!, SPEC+1!, SPEC+2*, SPECLOOP+6*, SPECLOOP+12, SPECLOOP+13, SPECLOOP+14, SPECLOOP+15, WRT+21, WRT+25 |
LRSPEC( | SPEC+11*, SPECLOOP+4, SPECLOOP+5 |
>> LRSPEC60 | SPEC+5*, SPEC+6*, SPEC+7, SPEC+8, SPEC+9, SPEC+11 |
>> LRSPECN | SPEC+2*, SPEC+10*, SPEC+11, SPECLOOP+6*, WRT+8 |
>> LRSPECTA | SPEC+10*, SPEC+11 |
LRSS | BUILD+1~, BUILD+16*, WRT+1~, WRT+14*, WRT+15, WRT+17, WRT+18 |
LRST | EN+2~, SERVER+4, BUILD+2*, BUILD+3*, BUILD+23, TEST+12, WRT+7 |
LRSTN | EN+2~, SERVER+4, BUILD+2* |
LRSTNOTE | BUILD+1~, WRT+29, WRT+35* |
LRSTR | BUILD+1~, BUILD+5*, BUILD+23*, BUILD+24*, BUILD+30, 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+49*, WRT+52*, WRT+54* , SETDATA+2*, SETDATA+3 |
>> LRSTSYN | WRT+39, WRT+43* |
LRSTUB | BUILD+1~, BUILD+20*, BUILD+21*, BUILD+22*, BUILD+23 |
LRSUB | EN+2~, EN+7* |
LRTA | SPECLOOP+2~, SPECLOOP+7*, SPECLOOP+17*, WRT+8 |
LRTSTTYP | TEST+1~, TEST+5*, TEST+8, TEST+23*, TEST+25, WRT+46 |
LRTXT | EN+2~, EN+7*, SERVER+1~, SERVER+2*, BUILD+24, BUILD+28, WRT+54, SETDATA+2, SETDATA+3 |
>> LRUNIT | SPEC+2*, SPEC+8*, SPEC+11, SPECLOOP+6*, WRT+8 |
LRVAL | EN+2~, BUILD+1~, BUILD+2* |
LRX | SERVER+1~, BUILD+19*, BUILD+20, SPECLOOP+2~, SPECLOOP+11*, SPECLOOP+12*, SPECLOOP+13, SPECLOOP+15*, SPECLOOP+16 |
LRY | SERVER+1~ |
U | TEST+28, TEST+34, SPEC+8, SPEC+11, SPECLOOP+6 |
X | EN+2~, SPEC+9*, SPEC+10, SPECLOOP+2~, SPECLOOP+5*, SPECLOOP+6, SPECLOOP+14*, SPECLOOP+15, 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 |