IBARXCHL ;ALB/CLT- CERNER RXCOPAY BUILD THE DFT-P03 MESSAGE ; 08 Mar 2021
Source file <IBARXCHL.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,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
|
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | EVN+3 |
| $$GET1^DIQ | FT1+32 |
| $$ADDSEG^HLOAPI | EVN+5, PID+8, FT1+37 |
| $$NEWMSG^HLOAPI | MSH+10 |
| SET^HLOAPI | EVN+1, EVN+2, EVN+4, PID+1, PID+2, PID+4, PID+6, PID+7, FT1+5, FT1+7 , FT1+9, FT1+11, FT1+12, FT1+15, FT1+23, FT1+24, FT1+25, FT1+26, FT1+27, FT1+28 , FT1+33, FT1+35, FT1+36 |
| $$SENDONE^HLOAPI1 | SEND+5 |
| $$NULLFIX^IBARXCSH | FT1+4 |
| $$FAC^IBARXMU | FT1+34 |
| $$ICN^IBARXMU | PID+3 |
| $$FMTHL7^XLFDT | EVN+3, FT1+10 |
| FileNo | Call Tags |
|---|---|
| ^IBAM(354.71 - [#354.71] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | PID+5 |
| ^IBAM(354.71 - [#354.71] | FT1+1 |
| ^TMP("DFT" | MSH+1! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | EN+1~, EVN+3 |
| %P1 | EN+1~, EVN+3*, FT1+10*, FT1+11 |
| BD1 | BDESC+4~, BDESC+9*, BDESC+14, BDESC+16 |
| BD2 | BDESC+4~, BDESC+10*, BDESC+13 |
| BD2E | BDESC+4~, BDESC+13*, BDESC+16 |
| BD3 | BDESC+4~, BDESC+11*, BDESC+14, BDESC+16 |
| BDESC | BDESC~, BDESC+6, BDESC+8, BDESC+9, BDESC+10, BDESC+11 |
| BDL | BDESC+4~, BDESC+14*, BDESC+16 |
| BDN | BDESC+4~, BDESC+16*, BDESC+18 |
| BDP | BDESC+4~, BDESC+8*, BDESC+10, BDESC+11 |
| BILLED | EN+2~, FT1+21*, FT1+26 |
| DESC | EN+2~, FT1+19*, FT1+20*, FT1+23 |
| DFN | EN~, PID+3, PID+5 |
| ERROR | EN+1~, MSH+10, EVN+5, PID+8, FT1+37, SEND+5 |
| FIELD | EN+1~ |
| FT1IEN | EN~, FT1+1, FT1+4, FT1+31 |
| HDR | EN+1~ |
| ICN | EN+2~, PID+3*, PID+4 |
| MSG | EN+1~, MSH+9*, MSH+10, EVN+5, PID+8, FT1+37, SEND+5 |
| NAME | EN+2~, PID+5*, PID+6, PID+7 |
| NODE0 | EN+2~, FT1+1*, FT1+2, FT1+4*, FT1+8, FT1+10, FT1+13, FT1+16, FT1+17, FT1+18 , FT1+19, FT1+21, FT1+22, FT1+30, FT1+34 |
| PARENT | EN+2~, FT1+30*, FT1+31*, FT1+32*, FT1+33 |
| PARMS | EN+1~, MSH+1~, MSH+10, SEND+5 |
| PARMS("COUNTRY" | MSH+2* |
| PARMS("EVENT" | MSH+3* |
| PARMS("MESSAG | E STRUCTURE" , MSH+8*, E TYPE" , MSH+4* |
| PARMS("RECEIV | ING APPLICATION" , MSH+6* |
| PARMS("SENDIN | G APPLICATION" , MSH+5*, SEND+4* |
| PARMS("VERSION" | MSH+7* |
| RXNUM | EN+2~, FT1+16*, FT1+24 |
| SEG | EN+1~, EVN+1, EVN+2, EVN+4, EVN+5, PID+1, PID+2, PID+4, PID+6, PID+7 , PID+8, FT1+5, FT1+6*, FT1+7, FT1+9, FT1+11, FT1+12, FT1+15, FT1+23, FT1+24 , FT1+25, FT1+26, FT1+27, FT1+28, FT1+33, FT1+35, FT1+36, FT1+37 |
| SETID | EN+2~, FT1+6*, FT1+7 |
| SITENM | EN+2~, FT1+34*, FT1+35, FT1+36 |
| STAT | EN+2~, FT1+13*, FT1+14*, FT1+15 |
| TCHRG | EN+2~, FT1+18*, FT1+25 |
| TRANSID | EN+2~, FT1+8*, FT1+9 |
| U | PID+5 |
| UNBILLED | EN+2~, FT1+22*, FT1+27 |
| UNITS | EN+2~, FT1+17*, FT1+28 |
| VALUE | EN+1~, EVN+3*, EVN+4 |
| WHOTO | EN+1~, SEND+5 |
| WHOTO("MIDDLE | WARE LINK NAME" , SEND+3* |
| WHOTO("RECEIV | ING APPLICATION" , SEND+1* |
| WHOTO("STATIO | N NUMBER" , SEND+2* |
| X | EN+1~, MSH+10*, EVN+5*, PID+8*, FT1+37* |
| XXX | EN+1~, SEND+5* |
