IBARXCSH ;ALB/CLT-CERNER RXCOPAY SEND DSR-QO3 MESSAGE ; 19 Feb 2021
Source file <IBARXCSH.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(ICN,IBIEN,DATEQ) | ;ENTRY POINT
; IBIEN - Query Request Message IEN (#778) that initiated this response |
|
MSH | ;
|
|
MSA | ;
|
|
QRD | ;
|
|
DSPLOOP | ;LOOP THROUGH THE DSP FOR ALL OR THE LAST TRANSACTION
|
|
DSP | ;
|
|
DSP1 | ;
|
|
NULLFIX(IEN,NODE0) | ||
END | ;
|
|
ERR | ;ERROR PROCESSING
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^IBAM(354.71 - [#354.71] | GET1^DIQ |