PSXDODAK ;BIR/PDW-FILE .QACs FACILITY RELEASE PROCESSED ACKs & NAKs ;09/09/02 10:45 AM
Source file <PSXDODAK.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(PATH,FNAME) | ; needs directory & file name
; force an error in the next line |
|
| EXIT | ;
|
|
| MSA | ; pull variables from MSA segment and call into PSXVEND $RX or $INV
|
|
| 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 |
|
| ERRMSG | ;send error message to folks & DOD
|
|
| RXNDX | ; backfill the RX multiple RXNDX field #40 of file 552.4
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^PSX(552.4 - [#552.4] | GET1^DIQ |
| ^PSX(554 - [#554] | GET1^DIQ |
| Name | Field # of Occurrence |
|---|---|
| ^( | RXNDX+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | EN+20 |
| >> AA | MSA+7*, MSA+8, MSA+9 |
| >> ACKTM | EN+20* |
| >> BB | MSA+7*, MSA+8, MSA+9 |
| BHS | EN+11*, EN+12, EN+16, EXIT+2! |
| DA | MSA+12!, RXNDX+6!, RXNDX+7*, RXNDX+8! |
| DA(1 | RXNDX+7* |
| DD | MSA+12! |
| DIC | MSA+12! |
| DIE | MSA+12!, RXNDX+6!, RXNDX+7*, RXNDX+8! |
| DIRHOLD | ERRMSG+1*, ERRMSG+3, ERRMSG+4, ERRMSG+12, ERRMSG+15! |
| DLM | PIECE~, PIECE+2, PUT~, PUT+3 |
| DO | MSA+12! |
| DR | MSA+12!, RXNDX+6!, RXNDX+7*, RXNDX+8! |
| FHS | EN+11*, EN+12, EXIT+2! |
| >> FILL | MSA+5*, RXNDX+5* |
| FNAME | EN~, EN+4, EN+8, EN+9, EN+10, EN+13, MSA+6, MSA+10, ERRMSG+3, ERRMSG+4 , ERRMSG+5, ERRMSG+11 |
| >> GBL | EN+7*, EN+8, ERRMSG+4* |
| HOLD | EXIT+2!, ERRMSG+1*, ERRMSG+2 |
| >> I | ERRMSG+14* |
| IOST | EN+21, MSA+3, MSA+8, ERRMSG+14 |
| >> LN | EN+24*, MSA+3, MSA+4 |
| >> LNNUM | EN+24* |
| MSG | EN+17, EN+19, EXIT+2!, MSA+11 |
| MSGNUM | EN+19*, EN+21, EXIT+2! |
| >> ORDDA | RXNDX+1*, RXNDX+2, RXNDX+3, RXNDX+7 |
| P | PIECE+2~*, PUT+2~*, PUT+3 |
| PATH | EN~, EN+4, EN+8, EN+9, EN+10 |
| PDT | EN+17*, EXIT+2!, MSA+11* |
| >> PSXERR | EN+5*, EN+9*, EN+10*, EN+13*, MSA+6*, MSA+10*, ERRMSG+10 |
| >> PSXPDT | EN+17*, MSA+11 |
| PSXTXT | ERRMSG+15! |
| PSXTXT( | ERRMSG+14 |
| PSXTXT(1 | ERRMSG+9* |
| PSXTXT(2 | ERRMSG+10* |
| PSXTXT(3 | ERRMSG+11* |
| PSXTXT(4 | ERRMSG+12* |
| REC | PIECE~, PIECE+2, PUT~, PUT+3* |
| >> RXDA | RXNDX+3*, RXNDX+7 |
| >> RXN | MSA+5* |
| >> RXNDX | MSA+5*, MSA+6, MSA+7, MSA+10 |
| >> RXNM | RXNDX+5 |
| >> RXNUM | MSA+5* |
| >> SEG | EN+24* |
| >> SITE | RXNDX+2*, RXNDX+5 |
| >> SS | EN+19*, MSA+11* |
| >> STAT | MSA+5* |
| TXMZ | EN+17*, EXIT+2! |
| >> TYP | MSA+13, MSA+14 |
| U | EN+9, EN+10, PIECE+2, PUT+2, RXNDX+4 |
| V | PIECE+2~*, PUT+2~*, PUT+3 |
| >> VAL | RXNDX+5* |
| >> XMSUB | ERRMSG+5* |
| >> XMTEXT | ERRMSG+8* |
| >> XMY("G.PSXX C | MOP MANAGERS" , ERRMSG+7* |
| XX | PIECE~, PIECE+2, PUT~, PUT+2, ERRMSG+3*, RXNDX+3*, RXNDX+4 |
| >> Y | EN+8*, EN+9, ERRMSG+3*, ERRMSG+4 |
| >> YY | EN+16*, MSA+4*, RXNDX+4* |
