PSXRECV1 ;BIR/WPB-Downloads Data from Mailman Msg to Files-CONTINUED ;04/08/97 2:06 PM
Source file <PSXRECV1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PIECE(REC,DLM,XX) | ;
; Set variable V = piece P of REC using delimiter DLM |
|
PUT(REC,DLM,XX) | ;
; Set Variable V into piece P of REC using delimiter DLM |
|
FF | ||
UPDATE | ||
DOD | ; DOD interface - send ACK even if placed in hold
|
|
CHECK | ;this would be a good place for an alert to be sent
|
|
EXIT | ||
CHKDUP | ||
XMZ | ||
CLNUP | ||
HOLD | ||
F515 | ;
; test if VA and RX already filed |
Name | Field # of Occurrence |
---|---|
NOW^%DTC | UPDATE, DOD+8 |
YX^%DTC | UPDATE+6 |
$$GTF^%ZISH | DOD+12, DOD+15 |
FILE^DICN | FF+2 |
^DIE | UPDATE+2, UPDATE+14, CHECK+3 |
^DIK | CLNUP, CLNUP+2, CLNUP+4 |
IX^DIK | XMZ+6, XMZ+7, CHECK+5 |
$$GET1^DIQ | DOD+1, DOD+11, DOD+14 |
$$HLDATE^HLFNC | DOD+8 |
FALERT^PSXDODNT | DOD+13, DOD+16 |
ACK^PSXNOTE | DOD+3 |
EN^PSXNOTE | UPDATE+9 |
ERR^PSXNOTE | CHECK+1 |
GRP^PSXNOTE | XMZ+4 |
XMZ^XMA2 | XMZ |
ENT1^XMD | XMZ+4 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD("DD" | F515+10 |
^PSX(552 | F515+2, UPDATE+12, UPDATE+13, UPDATE+15, CHECK+1, DOD+3 |
^PSX(552.1 | CHKDUP, CHKDUP+3, CHKDUP+5, CHKDUP+7, CLNUP+1, UPDATE+1*, UPDATE+2!, UPDATE+3*!, UPDATE+4, CHECK+2 , CHECK+4, HOLD* |
^PSX(552.2 | CLNUP+2 |
^PSX(552.4 | CLNUP, F515+2, F515+4, F515+6, F515+18* |
^TMP($J | F515+11*, F515+12*, F515+13*, F515+14*, F515+16*, XMZ+2, EXIT+1! |
^XMB(3.9 - [#3.9] | XMZ+2*, XMZ+3* |
Name | Line Occurrences |
---|---|
CLNUP | CHKDUP+5 |
EXIT | UPDATE+1, UPDATE+3, UPDATE+13, CHECK+2, HOLD |
HOLD | CHECK+1 |
PUT | DOD+9 |
XMZ | XMZ+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | UPDATE, DOD+8, EXIT! |
%H | UPDATE+6*! |
ACK | DOD+6!, DOD+7*, DOD+9, DOD+10 |
ACK(1 | DOD+10* |
ACK(2 | DOD+10* |
>> AGNCYID | DOD+1*, DOD+3 |
BAT | CLNUP+1*, CLNUP+2, CLNUP+3! |
>> BATDTM | DOD+8* |
>> BATID | DOD+1*, DOD+5*, DOD+10, DOD+11 |
CHK | EXIT+1! |
DA | CLNUP*!, CLNUP+2*!, CLNUP+3!, CLNUP+4*!, FF+3!, UPDATE+2*!, UPDATE+14*!, XMZ+6*!, XMZ+7*!, CHECK+3*! , CHECK+5*! |
DA(1 | FF* |
>> DA515 | F515+2, F515+4, F515+6, F515+18, FF |
DA55241 | F515+4~, F515+5*, F515+6* |
DD | F515+17! |
DIC | FF*, FF+3! |
DIC("DR" | FF+1*, FF+3! |
DIC(0 | FF* |
DIE | UPDATE+2*!, UPDATE+14*!, CHECK+3*! |
DIK | CLNUP*!, CLNUP+1*, CLNUP+3!, CLNUP+4*!, XMZ+6*!, XMZ+7*!, CHECK+5*! |
DLM | PIECE~, PIECE+2, PUT~, PUT+3 |
DO | F515+17! |
DOMAIN | EXIT! |
DR | UPDATE+2*, UPDATE+14*!, CHECK+3* |
DRG515 | FF+1, FF+3! |
DT | XMZ+3 |
FILL | F515+4~, F515+6* |
FL1 | UPDATE+4*, XMZ+5! |
FL515 | F515+4, F515+6, F515+15, FF+1, FF+3! |
>> FLAG5 | CHKDUP*, CHKDUP+3*, CHKDUP+5*, CHKDUP+7* |
>> FNAME2 | DOD+11*, DOD+12, DOD+13, DOD+15, DOD+16 |
>> GBL | DOD+13*, DOD+16* |
I | XMZ+2*, EXIT! |
I512 | CLNUP+2*, CLNUP+3! |
MCT | F515+8*, F515+9, F515+16, EXIT+1! |
NAME | F515+16, EXIT+1! |
NAME1 | F515+16*, EXIT+1! |
OLDBAT | EXIT+1! |
OLDDA | UPDATE+1, UPDATE+2, XMZ+6, CHECK+2, CHECK+3, CHECK+4, CHECK+5, DOD+1, HOLD, EXIT! |
>> OLDTM | CHKDUP* |
P | PIECE+2~*, PUT+2~*, PUT+3 |
P515 | CLNUP*! |
>> PATH | DOD+11*, DOD+12, DOD+13, DOD+14*, DOD+15, DOD+16 |
PSXBAT | UPDATE+14, EXIT! |
PSXCS | FF+1, FF+3! |
PSXDIV | UPDATE+17, EXIT+1! |
PSXDRG | F515+16, EXIT+1! |
PSXEND | UPDATE+5*, EXIT! |
PSXERR | EXIT+1! |
PSXFLAG | UPDATE+7*, UPDATE+8*, EXIT! |
PSXFLG1 | UPDATE*, UPDATE+4*, XMZ+5! |
PSXFROM | EXIT+1! |
PSXFTDT | UPDATE*, UPDATE+2, CHECK+3, EXIT! |
PSXID | EXIT! |
PSXJOB | EXIT+1! |
PSXLAST | CHKDUP+3, CHKDUP+5, CHECK+1, EXIT! |
PSXMSG | F515+16, FF+1, UPDATE+5, CHECK+1, EXIT! |
PSXMSGCT | UPDATE+5*, CHECK+1, EXIT! |
PSXOLD | EXIT+1! |
PSXORDCT | UPDATE+2, CHECK+1, EXIT! |
PSXRECV | DOD+3*!, EXIT+1! |
PSXREF | F515+2, F515+11, UPDATE+2, UPDATE+3, UPDATE+17, EXIT! |
PSXRTRN | CLNUP+5*, UPDATE+1, UPDATE+2, UPDATE+3, UPDATE+4, UPDATE+7, UPDATE+8, EXIT+1! |
PSXRXCT | UPDATE+5*, CHECK+1, EXIT! |
PSXRXS | UPDATE+2, CHECK+1, EXIT! |
PSXSENDR | EXIT! |
PSXSITE | F515+11, EXIT! |
PSXSMSG | CHECK+1, EXIT! |
PSXSTART | CHKDUP+3, CHKDUP+5, CHECK+1, EXIT! |
PSXSYST | EXIT! |
PSXTDT | UPDATE+6*, EXIT! |
QTY515 | FF+1, FF+3! |
REC | UPDATE+12*, UPDATE+13, UPDATE+14, UPDATE+15, EXIT+1!, PIECE~, PIECE+2, PUT~, PUT+3* |
RR | UPDATE+12*, EXIT+1! |
RRR | EXIT+1! |
RX515 | F515+2, F515+4, F515+6, F515+16, FF, FF+3! |
RXNDX | EXIT+2! |
>> SAME | CHKDUP, CHKDUP+3, CHKDUP+5, CHKDUP+7, CLNUP, CLNUP+1, CLNUP+4, CLNUP+5*, UPDATE+3, UPDATE+4 , XMZ+7 |
SDATE | CHKDUP+3, F515+10, UPDATE+5, EXIT! |
SDT | UPDATE+5*, EXIT! |
SITEN | CHECK+1, EXIT+1! |
SITENUM | UPDATE+12, EXIT! |
SUBDA | EXIT! |
>> T | UPDATE+3 |
U | F515+6, UPDATE+5, XMZ+3, PIECE+2, PUT+2 |
V | PIECE+2~*, PUT+2~*, PUT+3 |
X | FF*, FF+3!, EXIT! |
XMDUN | UPDATE+16~, XMZ+3* |
XMDUZ | UPDATE+16~, UPDATE+17*, XMZ+3* |
XMFROM | EXIT! |
>> XMRG | UPDATE+5 |
XMSER | EXIT+1! |
XMSUB | UPDATE+16~, UPDATE+17* |
XMY | UPDATE+16~ |
XMZ | UPDATE+16~, XMZ+1, XMZ+2, XMZ+3, EXIT+1! |
XQMSG | EXIT+1! |
XQSOP | EXIT+1! |
XSITE | EXIT+1! |
XX | DOD+12*, DOD+15*, EXIT+1!, PIECE~, PIECE+2, PUT~, PUT+2 |
XYZ | F515+7*, F515+16, EXIT+1! |
Y | F515+10*, F515+11!, UPDATE+6, DOD+12*, DOD+13, DOD+15*, DOD+16, EXIT! |
>> YY | DOD+9* |
ZCNT | XMZ+2*, XMZ+3, XMZ+5! |
>> ZFILL | F515+15*, F515+16 |