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 |
| 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* |