LRSRVR9B ;BPFO/DTG - UPDATE DATA FOR 61, 61.2, AND 62 FOR SNOMED AND INACTIVE ;07/7/2017
Source file <LRSRVR9B.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SERVER | ; entry for message processing
|
|
| SLI | ; start
|
|
| SL5 | ; loop through message
|
|
| SL5S3(II,BB) | ; set finish file
; II where in for loop ; NN number of CR pieces ; KK update counter ; BB data ; saved data |
|
| SL5Q | ;finish pulling message
|
|
| CLOSE | ;
|
|
| CLOSE1 | ; send message back to sender
|
|
| CLEAN | ;
|
|
| SETDATA | ; Set error data into report structure
|
|
| UUEN(STR) | ; Uuencode string passed in.
|
|
| UUBEGFN(LRFILENM) | ; Construct uuencode "begin" coding
; Call with LRFILENM = name of uuencoded file attachment ; ; Returns LRX = string with "begin..."_file name |
