LRSRVR9A ;BPFO/DTG - LAB NTRT DATA SERVER CONT'D MISSING VUID EXTRACT ;02/10/2016
Source file <LRSRVR9A.m>
| 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 |
