IBARXCHL ;ALB/CLT- CERNER RXCOPAY BUILD THE DFT-P03 MESSAGE ; 08 Mar 2021
Source file <IBARXCHL.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(DFN,FT1IEN) | ;MAIN ROUTINE ENTRY POINT
|
|
MSH | ;ENTER MSG PARAMETERS AND START THR MSG BUILD
|
|
EVN | ;BUILD THE EVN SEGMENT
|
|
PID | ;ADD PID SEGMENT
|
|
FT1 | ;INPUT FT1 DATA FOR ONE RX COPAY
|
|
BDESC(BDESC) | ||
SEND | ;SEND MESSAGE AND QUIT
|
|
END | ;CLEAN UP AND QUIT
|
FileNo | Call Tags |
---|---|
^IBAM(354.71 - [#354.71] | GET1^DIQ |