LRSRVR9B ;BPFO/DTG - UPDATE DATA FOR 61, 61.2, AND 62 FOR SNOMED AND INACTIVE ;07/7/2017
Source file <LRSRVR9B.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 |
Package | Total | Caller Graph |
---|---|---|
Lab Service | 1 | LRSRVR |
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 |
Name | Field # of Occurrence |
---|---|
^%ZISC | CLEAN+6 |
CLEAN^LRSRVR | CLEAN+5 |
PURGE^LRSRVR5 | SL5Q+22 |
IMPORT^LRSRVR8 | SL5Q+29 |
$$FMADD^XLFDT | SL5Q+21 |
$$FMTE^XLFDT | CLOSE+4, CLOSE+12, CLOSE+19 |
$$FMTHL7^XLFDT | CLOSE+21 |
$$HTE^XLFDT | CLOSE+1 |
$$NOW^XLFDT | SLI+1, SL5Q+1, CLOSE+12, CLOSE+21 |
$$REPEAT^XLFSTR | CLOSE+39 |
$$UP^XLFSTR | SERVER+5 |
$$DEC^XLFUTL | UUEN+9 |
^XMD | SL5Q+41 |
GET^XML | SLI+3 |
SENDMSG^XMXAPI | CLOSE1+5 |
$$B64DECD^XUSHSH | SLI+7, SL5+5 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP($J | SERVER+6!, SL5Q+26!*, CLOSE+3*, CLOSE+5*, CLOSE+6*, CLOSE+8*, CLOSE+10*, CLOSE+11*, CLOSE+13*, CLOSE+14* , CLOSE+16*, CLOSE+18*, CLOSE+20*, CLOSE+22*, CLOSE+23*, CLOSE+24*, CLOSE+31*, CLOSE+32*, CLOSE+33*, CLOSE+36* , CLOSE+38*, CLOSE+39*, CLOSE+42*, CLOSE+43*, CLOSE+44*, SETDATA+1, SETDATA+6* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
A | SERVER+3~, SLI+7*, SL5Q+4*, SL5Q+5*, SL5Q+6, SL5Q+15*, CLOSE+4*, CLOSE+5, CLOSE+7*, CLOSE+8 , CLOSE+9*, CLOSE+10, CLOSE+12*, CLOSE+13, CLOSE+15*, CLOSE+16, CLOSE+17*, CLOSE+18, CLOSE+19*, CLOSE+20 , CLOSE+29*, CLOSE+37*, CLOSE+38, CLOSE+39, CLOSE+40*, CLOSE+41*, CLEAN+4! |
B | SERVER+3~, SLI+7*, SLI+8, SLI+11, SLI+12, SLI+13, SL5+5*, SL5Q+4*, SL5Q+6*, SL5Q+7 , SL5Q+8, SL5Q+10, SL5Q+12, CLOSE+41*, CLEAN+4! |
BB | SL5S3~, SL5S3+7 |
C | SERVER+3~, SL5Q+4*, SL5Q+10*, CLEAN+4! |
CR | SERVER+1~, SERVER+2~, SERVER+5*, SLI+12, SL5+5, SL5S3+7, CLEAN+2!, CLEAN+3! |
D | SERVER+1~, SERVER+5*, SERVER+10*, SL5Q+4*, SL5Q+12*, CLEAN+2! |
DIE | SERVER+2~, CLEAN+3! |
DN | SERVER+3~, SL5Q+1*, SL5Q+2, CLEAN+4! |
DR | SERVER+2~, CLEAN+3! |
DROUT | SERVER+2~, CLEAN+3! |
DT | SL5Q+21, SL5Q+34 |
DTOUT | SERVER+2~, CLEAN+3! |
DUZ | SL5Q+35 |
E | SERVER+3~, SL5Q+4*, CLEAN+4! |
FIL | SERVER+1~, SERVER+2~, SERVER+5*, CLEAN+2!, CLEAN+3! |
G | SERVER+3~, SL5Q+4*, CLEAN+4! |
I | SERVER+1~, SLI+12*, SLI+13, SL5+5*, CLOSE+23*, CLEAN+2! |
II | SERVER+2~, SL5S3~, SL5S3+7, SL5S3+9, SL5S3+10, CLEAN+3! |
J | UUEN+1~, UUEN+9*, UUEN+10 |
K | SLI+1*, SL5S3+10*, SL5Q+2, CLOSE+2, UUEN+1~, UUEN+7*, UUEN+8*, UUEN+9 |
L | SERVER+3~, SLI+1*, CLEAN+4! |
LEN | UUEN+1~, UUEN+2*, UUEN+3, UUEN+11 |
LRCNT | SERVER+1~, CLEAN+2! |
LRCRLF | SERVER+1~, SERVER+5*, CLOSE+30, CLOSE+41, CLEAN+3! |
LRDATE | SL5Q+18~, SL5Q+21*, SL5Q+22, SL5Q+23! |
LRDAYS | SL5Q+18~, SL5Q+20*, SL5Q+21, SL5Q+23! |
LREND | SERVER+1~, CLEAN+2! |
LRFILENM | CLOSE+21*, CLOSE+22, CLOSE+24, UUBEGFN~, UUBEGFN+6 |
LRGOOD | SERVER+3~, SL5Q+4*, SL5Q+12*, CLOSE+9, CLEAN+4! |
LRI | UUEN+1~, UUEN+3*, UUEN+4 |
LRINSTR | SERVER+3~, CLOSE1+5, CLEAN+4! |
LRINSTR("ADDR | FLAGS" , CLOSE1+2* |
LRINSTR("FROM" | CLOSE1+3* |
LRL | SERVER+1~, CLEAN+2! |
>> LRLEN | SETDATA+2*, SETDATA+7 |
>> LRMAILGROUP | SL5Q+33* |
>> LRMAILGROUPXQA | SL5Q+33* |
LRMSUBJ | SERVER+1~, CLOSE+1*, CLOSE1+4*, CLOSE1+5, CLEAN+2! |
>> LRNODE | CLOSE+31*, CLOSE+32, CLOSE+33, CLOSE+42*, CLOSE+43, CLOSE+44, SETDATA+1*, SETDATA+6* |
>> LRQUIT | SETDATA+2*, SETDATA+3, SETDATA+4* |
>> LRRECORD | CLOSE+2*, CLOSE+3, CLOSE+17 |
>> LRST | SL5Q+8, SL5Q+34, CLOSE+1, CLOSE+21 |
LRSTAT | SL5Q+18~, SL5Q+22*, SL5Q+23! |
>> LRSTN | SL5Q+34, CLOSE+1, CLOSE+12, CLOSE+21 |
LRSTR | SERVER+2~, CLOSE+25*, CLOSE+30*, CLOSE+31, CLOSE+41*, CLOSE+42, CLEAN+3!, SETDATA+2, SETDATA+4, SETDATA+5 , SETDATA+7* |
>> LRSUB | SERVER+5, CLOSE+14, CLOSE+21 |
>> LRTASK | CLOSE1+5 |
LRTEXT | SERVER+2~, SL5Q+36!, SL5Q+42!, CLEAN+3! |
LRTEXT(1 | SL5Q+36* |
LRTEXT(2 | SL5Q+37* |
LRTEXT(3 | SL5Q+38* |
LRTEXT(4 | SL5Q+39*, SL5Q+40* |
>> LRTO | CLOSE1+5 |
>> LRTO( | CLOSE1+1* |
LRTXT | SERVER+1~, CLEAN+2! |
>> LRTYPE | SL5Q+27*, SL5Q+29 |
>> LRTYPE(0 | SL5Q+27* |
LRVRD4 | SERVER+2~, SERVER+11*, SL5Q+10, CLOSE+7, CLOSE+29, CLOSE+41, CLEAN+1, CLEAN+3! |
LRVRD5 | SERVER+2~, SERVER+12*, SL5Q+12, SL5Q+15, SL5Q+26, CLEAN+1, CLEAN+3! |
LRVRD6 | SERVER+2~, SERVER+13*, SL5S3+10, SL5Q+2, SL5Q+5, SL5Q+6, CLOSE+4, CLOSE+15, CLOSE+17, CLOSE+19 , CLEAN+1, CLEAN+3! |
LRX | SERVER+1~, CLEAN+2!, SETDATA+5*, SETDATA+6, UUEN+1~, UUEN+4*, UUEN+5*, UUEN+6, UUBEGFN+5~, UUBEGFN+6* , UUBEGFN+7 |
LRY | SERVER+1~, CLEAN+2! |
>> M | SLI+1* |
>> N | SLI+1*, SLI+12*, SL5+5* |
>> O | SLI+1*, SL5S3+9*, SL5S3+10* |
>> OK | SLI+6*, SLI+8*, SLI+10 |
P | SL5S3+6~, SL5S3+7*, SL5S3+8*, SL5S3+9, SL5S3+10 |
S | UUEN+1~, UUEN+6*, UUEN+7 |
STR | UUEN~, UUEN+2, UUEN+4 |
>> STRT | SLI+1*, SL5Q+2 |
TMP | UUEN+1~, UUEN+2*, UUEN+10*, UUEN+11*, UUEN+12 |
U | SERVER+5*, SL5Q+2, CLOSE+4, CLOSE+19 |
X | UUEN+1~ |
XMCHAN | SERVER+1~, SERVER+10*, CLEAN+2! |
XMER | SERVER+1~, SERVER+10!, SLI+4, SLI+5, SLI+6, SLI+9, SL5+2, CLEAN+2! |
XMPOS | SERVER+1~, CLEAN+2! |
>> XMREC | SLI+4, SLI+6, SL5+1 |
XMRG | SERVER+1~, SLI+4, SLI+7, SL5+3, SL5+4, SL5+5, CLEAN+2! |
>> XMSUB | SL5Q+34* |
XMTEXT | SL5Q+41*, SL5Q+42! |
>> XMY( | SL5Q+35* |
>> XMY("G.LMI" | SL5Q+35* |
XMZ | SERVER+1~, SERVER+10*, CLEAN+2! |
>> XQMSG | SERVER+10, CLOSE+6 |
>> XQSND | CLOSE1+1 |
Y | UUEN+1~, UUEN+6*, UUEN+7*, UUEN+9 |
ZTQUEUED | SERVER+2~, SL5Q+27*, SL5Q+30!, CLEAN+3! |