LRSRVR9A ;BPFO/DTG - LAB NTRT DATA SERVER CONT'D MISSING VUID EXTRACT ;02/10/2016
Source file <LRSRVR9A.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 |
|---|---|---|
| UUEN(STR) | ; Uuencode string passed in.
|
|
| TSTTYP(LRX) | ; Determine test data type
|
|
| ENCODE(LRSTR) | ; Encode a string, keep remainder for next line
; Call with LRSTR by reference, Remainder returned in LRSTR |
|
| MAILSEND(LRMSUBJ) | ; Send extract back to requestor.
|
|
| CLEAN | ;
|
|
| HDR | ; Set the header information
|
|
| SITENOTE | ; Build site's test notes for first record
|
|
| SUFFIX | ; If Result NLT does not have a suffix, i.e. it has .0000 then check for suffixed NLT codes which can also be used
|
|
| UUBEGFN(LRFILENM) | ; Construct uuencode "begin" coding
; Call with LRFILENM = name of uuencoded file attachment ; ; Returns LRX = string with "begin..."_file name |
|
| UNWIND(LA760,LA7URG,LA7PARNT) | ; Unwind profile - set tests into array LA7TREE with urgency.
|
| FileNo | Call Tags |
|---|---|
| ^LAM - [#64] | GET1^DIQ |
| ^LAB(95.3 - [#95.3] | GET1^DID |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAB(60 - [#60] | SITENOTE+5, SITENOTE+6, SITENOTE+7, UNWIND+13, UNWIND+16, UNWIND+27, UNWIND+35, UNWIND+38 |
| ^LAB(95.3 - [#95.3] | HDR+5 |
| ^LAM - [#64] | SUFFIX+6 |
| ^TMP($J | ENCODE+7*, CLEAN+1!, HDR+2*, HDR+3*, HDR+4*, HDR+5*, HDR+6*, HDR+7*, HDR+8*, HDR+10* , HDR+19*, HDR+22*, HDR+23*, HDR+24*, HDR+27*, HDR+28* |
| Name | Line Occurrences |
|---|---|
| $$UUBEGFN | HDR+28 |
| $$UUEN | ENCODE+7 |
| UNWIND | UNWIND+41 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AR | CLEAN+7! |
| ERR | CLEAN+2! |
| I | HDR+7*, UNWIND+29~, UNWIND+32*, UNWIND+35*, UNWIND+38 |
| II | UNWIND+36~, UNWIND+38*, UNWIND+40, UNWIND+41 |
| J | UUEN+1~, UUEN+9*, UUEN+10 |
| K | UUEN+1~, UUEN+7*, UUEN+8*, UUEN+9 |
| LA760 | UNWIND~, UNWIND+13, UNWIND+16, UNWIND+19, UNWIND+24, UNWIND+27, UNWIND+35, UNWIND+38, UNWIND+40 |
| LA7PARNT | UNWIND~, UNWIND+27, UNWIND+41 |
| LA7PCNT | CLEAN+2!, UNWIND+7, UNWIND+20*, UNWIND+27*, UNWIND+32* |
| LA7TREE | CLEAN+8! |
| LA7TREE( | UNWIND+19, UNWIND+24*, UNWIND+27* |
| LA7URG | UNWIND~, UNWIND+10*, UNWIND+22*, UNWIND+24, UNWIND+27, UNWIND+41 |
| LEN | UUEN+1~, UUEN+2*, UUEN+3, UUEN+11 |
| LOINCDTA | CLEAN+3! |
| LR60IEN | CLEAN+2!, SITENOTE+5, SITENOTE+6, SITENOTE+7 |
| LR60NM | CLEAN+2! |
| LR64 | SUFFIX+1~, SUFFIX+5*, SUFFIX+6 |
| LR6421 | CLEAN+2! |
| LR64IEN | CLEAN+2! |
| LRACTION | CLEAN+3! |
| LRBLD | CLEAN+7! |
| LRCC | CLEAN+3! |
| LRCCNX | CLEAN+3! |
| LRCDEF | CLEAN+3!, CLEAN+8! |
| LRCREATE | CLEAN+8! |
| LREND | CLEAN+3! |
| LREXPY | CLEAN+8! |
| LRFILENM | HDR+26*, HDR+27, HDR+28, UUBEGFN~, UUBEGFN+6 |
| LRI | UUEN+1~, UUEN+3*, UUEN+4, SITENOTE+2~, SITENOTE+4*, SITENOTE+5*, SITENOTE+6, SITENOTE+7, SITENOTE+8, SITENOTE+9 |
| LRINACT | CLEAN+8! |
| LRINSTR | MAILSEND+2~, MAILSEND+10 |
| LRINSTR("ADDR | FLAGS" , MAILSEND+7* |
| LRINSTR("FROM" | MAILSEND+8* |
| LRL | CLEAN+4! |
| >> LRLEN | ENCODE+3*, ENCODE+8 |
| LRLNC | CLEAN+4! |
| LRLNC80 | CLEAN+4! |
| LRLNCN | CLEAN+4! |
| LRLNCX | CLEAN+4! |
| LRMISP | CLEAN+6!, HDR+16 |
| LRMSUBJ | MAILSEND~, MAILSEND+9*, MAILSEND+10 |
| LRNODE | ENCODE+7*, CLEAN+4!, CLEAN+8! |
| LRNT | CLEAN+7! |
| LRNTI | CLEAN+7! |
| LROUT | CLEAN+4! |
| LROUT1 | CLEAN+4! |
| >> LRQUIT | ENCODE+3*, ENCODE+4, ENCODE+5* |
| LRR64 | CLEAN+4!, SUFFIX+2 |
| LRRNLT | CLEAN+3!, SUFFIX+1~, SUFFIX+2*, SUFFIX+3, SUFFIX+4 |
| LRROOT | SUFFIX+1~, SUFFIX+3*, SUFFIX+4*, SUFFIX+5 |
| LRSPEC | CLEAN+5! |
| LRSPEC( | SUFFIX+6* |
| LRSPEC60 | CLEAN+5!, SUFFIX+6 |
| LRSPECCT | CLEAN+8! |
| LRSPECN | CLEAN+5!, SUFFIX+6 |
| LRSPECTA | CLEAN+5!, SUFFIX+6 |
| LRST | CLEAN+5! |
| LRSTN | CLEAN+5!, HDR+2, HDR+26 |
| LRSTNDT | SITENOTE+2~, SITENOTE+6*, SITENOTE+8 |
| LRSTNOTE | SITENOTE+3!, SITENOTE+4*, SITENOTE+10* |
| LRSTNOTE( | SITENOTE+7*, SITENOTE+8*, SITENOTE+9! |
| LRSTR | ENCODE~, ENCODE+3, ENCODE+5, ENCODE+6, ENCODE+8*, CLEAN+5! |
| LRSTSYN | CLEAN+5! |
| LRSTUB | TSTTYP+1~, TSTTYP+7*, TSTTYP+14*, TSTTYP+18*, TSTTYP+19 |
| >> LRSUB | HDR+3, HDR+26 |
| LRSUBSCRIPT | CLEAN+7! |
| LRTA | CLEAN+6! |
| LRTASK | MAILSEND+2~, MAILSEND+10 |
| LRTO | MAILSEND+2~, MAILSEND+10 |
| LRTO( | MAILSEND+6* |
| LRTXT | CLEAN+7!, HDR+25 |
| LRTYPE | TSTTYP+1~, TSTTYP+6*, TSTTYP+7, TSTTYP+10, TSTTYP+11, TSTTYP+16 |
| LRTYPER | CLEAN+7! |
| LRUNIT | CLEAN+6!, SUFFIX+6 |
| LRX | UUEN+1~, UUEN+4*, UUEN+5*, UUEN+6, TSTTYP~, TSTTYP+2, TSTTYP+3*, TSTTYP+6, TSTTYP+10, TSTTYP+12* , TSTTYP+13, TSTTYP+17, ENCODE+6*, ENCODE+7, CLEAN+6!, SUFFIX+1~, UUBEGFN+5~, UUBEGFN+6*, UUBEGFN+7 |
| LRY | TSTTYP+1~, TSTTYP+10*, TSTTYP+11, TSTTYP+12, TSTTYP+13*, TSTTYP+14, TSTTYP+17*, TSTTYP+18, CLEAN+6!, SUFFIX+1~ |
| LSITE | CLEAN+7! |
| S | UUEN+1~, UUEN+6*, UUEN+7 |
| STR | UUEN~, UUEN+2, UUEN+4 |
| TMP | UUEN+1~, UUEN+2*, UUEN+10*, UUEN+11*, UUEN+12 |
| U | SUFFIX+6 |
| X | UUEN+1~, CLEAN+6!, HDR+9*, HDR+10, HDR+14*, HDR+17*, HDR+19, HDR+23* |
| XA | HDR+1~*, HDR+10*, HDR+19*, HDR+22, HDR+23, HDR+29! |
| XMERR | MAILSEND+2~ |
| XMZ | MAILSEND+2~ |
| >> XQSND | MAILSEND+6 |
| Y | UUEN+1~, UUEN+6*, UUEN+7*, UUEN+9, CLEAN+6! |
