IBARXCQR ;ALB/LEG-CERNER RXCOPAY SEND QRY REQUEST ; 23 Feb 2021
Source file <IBARXCQR.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 3 | IBARXMC IBARXMN IBARXMQ |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(DFN,IBDT) | ;start processing message
; DFN - IEN of Patient ; IBDT - date within the required billing period |
|
MSH | ;SET VARIABLES FOR THE MSH SEGMENT
|
|
QRD | ;BUILD THE QRD SEGMENT
|
|
QRF | ;
|
|
SEND | ;SEND THE MESSAGE
|
Name | Field # of Occurrence |
---|---|
$$GET1^DIQ | QRD+13, QRF+3 |
$$ADDSEG^HLOAPI | QRD+22, QRF+4 |
$$NEWMSG^HLOAPI | MSH+8 |
SET^HLOAPI | QRD+1, QRD+3, QRD+4, QRD+5, QRD+12, QRD+14, QRD+15, QRD+17, QRD+18, QRD+20 , QRD+21, QRF+1, QRF+2, QRF+3 |
$$SENDONE^HLOAPI1 | SEND+5 |
$$ICN^IBARXMU | QRD+16 |
$$FMTHL7^XLFDT | QRD+2 |
$$NOW^XLFDT | QRD+2 |
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^TMP("QRY" | MSH+1! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%P1 | EN+4~, QRD+2*, QRD+3 |
DFN | EN~, QRD+13, QRD+16, QRF+3 |
ERROR | EN+4~, MSH+8, QRD+22, QRF+4, SEND+5 |
FIELD | EN+4~, QRD+1*, QRD+3*, QRD+4*, QRD+5*, QRD+12*, QRD+14*, QRD+15*, QRD+17*, QRD+18* , QRD+19*, QRD+20, QRD+21, QRF+1*, QRF+2*, QRF+3* |
IBDT | EN~, QRD+20, QRD+21 |
ICN | EN+4~, QRD+16*, QRD+17 |
MSG | EN+4~, MSH+7*, MSH+8, QRD+22, QRF+4, SEND+5 |
NAME | EN+4~, QRD+13*, QRD+14, QRD+15 |
PARMS | EN+5~, MSH+1~, MSH+8, SEND+5 |
PARMS("COUNTRY" | MSH+2* |
PARMS("EVENT" | MSH+4* |
PARMS("MESSAG | E STRUCTURE" , MSH+6*, E TYPE" , MSH+3* |
PARMS("SENDIN | G APPLICATION" , SEND+1* |
PARMS("VERSION" | MSH+5* |
SEG | EN+4~, QRD+1, QRD+3, QRD+4, QRD+5, QRD+12, QRD+14, QRD+15, QRD+17, QRD+18 , QRD+20, QRD+21, QRD+22, QRF+1, QRF+2, QRF+3, QRF+4 |
VALUE | EN+4~, QRD+1*, QRD+3*, QRD+4*, QRD+5*, QRD+12*, QRD+14*, QRD+15*, QRD+17*, QRD+18* , QRD+20*, QRD+21*, QRF+1*, QRF+2*, QRF+3* |
WHOTO | EN+4~, SEND+5 |
WHOTO("MIDDLE | WARE LINK NAME" , SEND+4* |
WHOTO("RECEIV | ING APPLICATION" , SEND+2* |
WHOTO("STATIO | N NUMBER" , SEND+3* |
X | EN+4~, MSH+8*, QRD+22*, QRF+3*, QRF+4* |
XDT | EN+4~ |
XXX | EN+4~, SEND+5* |