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 |
|
| FileNo | Call Tags |
|---|---|
| ^PSX(552.4 - [#552.4] | GET1^DIQ |
| ^PSX(554 - [#554] | GET1^DIQ |