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 |