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 |