MHV7B1R2 ;MHV/JBM - HL7 message builder RTB^K13 Medications Profile ; 02/07/22
Source file <MHV7B1R2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RDF(MSGROOT,CNT,LEN,HL) | ; Build RDF segment for Rx Profile data
|
|
| RDT(MSGROOT,DATAROOT,CNT,LEN,HL) | ; Build RDT segments for Rx Profile data
|
|
| RQUEUE | ;Get last record from refill queue file 52.43
|
|
| RMK(TYP) | ; build Remark field
|
|
| SPACES(WPN) | ; Remove extra spaces from line of text
|
|
| GETIND | ;Get indication fields
|
|
| STRIP(HL7STR) | ; Remove bad ascii characters from HL7 line
|
|
| ESCAPE(VAL,HL) | ;Escape any special characters
|
| FileNo | Call Tags |
|---|---|
| ^PS(52.43 - [#52.43] | GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(52.41 - [#52.41] | GETIND+16 |
| ^PS(52.43 - [#52.43] | RQUEUE+3 |
| ^PS(55 - [#55] | GETIND+14 |
| ^PSRX - [#52] | RDT+120, GETIND+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CHAR | STRIP+1~, STRIP+3* |
| CMOP | RDT+20~, RDT+27*, RDT+88, RDT+89, RDT+90, RDT+94, RDT+95, RDT+96, RDT+97 |
| CMP | RDT+20~ |
| CNT | RDF~, RDF+81*, RDF+82, RDF+83, RDT~, RDT+139*, RDT+140, RDT+141 |
| CS | ESCAPE+10~, ESCAPE+17*, ESCAPE+34, ESCAPE+35, ESCAPE+36 |
| DATAROOT | RDT~, RDT+23, RDT+24, RDT+27, RDT+28, RDT+29, RDT+30, RDT+31, RDT+32, RDT+33 , RDT+34, RDT+35, RDT+37, RMK+3, RMK+4, RMK+6 |
| DFN | RDT+20~, RDT+120*, RDT+121, RDT+122 |
| DISC | RDT+20~, RDT+104*, RDT+106 |
| DIV | RDT+20~ |
| DTXT | RDT+20~, RDT+106*, RDT+111 |
| ES | ESCAPE+12~, ESCAPE+19*, ESCAPE+22, ESCAPE+23, ESCAPE+24 |
| FS | ESCAPE+9~, ESCAPE+16*, ESCAPE+26, ESCAPE+27, ESCAPE+28 |
| HL | RDF~, RDF+82, RDT~, RDT+54, RDT+138, RDT+140, ESCAPE~ |
| HL("ECH" | ESCAPE+17, ESCAPE+18, ESCAPE+19, ESCAPE+20 |
| HL("FS" | ESCAPE+16 |
| HL7STR | STRIP~, STRIP+3 |
| I | RDT+20~, RDT+24*, RDT+27, RDT+28, RDT+29, RDT+30, RDT+31, RDT+32, RDT+33, RDT+34 , RDT+35, RDT+37, RMK+3, RMK+4, RMK+6, ESCAPE+14~, ESCAPE+24*, ESCAPE+28*, ESCAPE+32*, ESCAPE+36* , ESCAPE+40* |
| IENVAL | GETIND+1~, GETIND+3*, GETIND+4, GETIND+8, GETIND+14, GETIND+16 |
| >> IND1 | RDT+130, GETIND+2*, GETIND+9*, GETIND+14*, GETIND+16* |
| >> IND2 | RDT+131, GETIND+2*, GETIND+10* |
| >> IND3 | RDT+132, GETIND+2*, GETIND+11* |
| >> INDFN | RDT+23*, GETIND+13, GETIND+14 |
| INDX | RDT+136~, RDT+138* |
| IX | SPACES+1~, SPACES+4* |
| L | ESCAPE+14~, ESCAPE+23*, ESCAPE+24, ESCAPE+27*, ESCAPE+28, ESCAPE+31*, ESCAPE+32, ESCAPE+35*, ESCAPE+36, ESCAPE+39* , ESCAPE+40 |
| LASTRDT | RDT+136~, RDT+137*, RDT+138 |
| LEN | RDF~, RDF+83*, RDT~, RDT+141* |
| MSGROOT | RDF~, RDF+82, RDF+83, RDT~, RDT+140, RDT+141 |
| NAME | RDT+20~, RDT+54, RDT+55 |
| OUT | SPACES+1~, SPACES+2*, SPACES+4*, SPACES+5, STRIP+1~, STRIP+2*, STRIP+3*, STRIP+4 |
| PHRM | RDT+20~, RDT+34*, RDT+78, RDT+79, RDT+80, RDT+81, RDT+82, RDT+83, RDT+84 |
| PIEN | RDT+20~, RDT+36*, RDT+53, RDT+54, RDT+56 |
| POS | STRIP+1~, STRIP+3* |
| QARR | RQUEUE+1~, RQUEUE+6 |
| QARR( | RQUEUE+6 |
| RDF | RDF+12~, RDF+82 |
| RDF(0 | RDF+13* |
| RDF(1 | RDF+14* |
| RDF(2 | RDF+15*, RDF+16*, RDF+17*, RDF+18*, RDF+19*, RDF+20*, RDF+21*, RDF+22*, RDF+23*, RDF+24* , RDF+25*, RDF+26*, RDF+27*, RDF+28*, RDF+29*, RDF+30*, RDF+31*, RDF+32*, RDF+33*, RDF+34* , RDF+35*, RDF+36*, RDF+37*, RDF+38*, RDF+39*, RDF+40*, RDF+41*, RDF+42*, RDF+43*, RDF+44* , RDF+45*, RDF+46*, RDF+47*, RDF+48*, RDF+49*, RDF+50*, RDF+51*, RDF+52*, RDF+53*, RDF+54* , RDF+55*, RDF+56*, RDF+57*, RDF+58*, RDF+59*, RDF+60*, RDF+61*, RDF+62*, RDF+63*, RDF+64* , RDF+65*, RDF+66*, RDF+67*, RDF+68*, RDF+69*, RDF+70*, RDF+71*, RDF+72*, RDF+73*, RDF+74* , RDF+75*, RDF+76*, RDF+77*, RDF+78*, RDF+79* |
| RDT | RDT+20~, RDT+25!, RDT+140 |
| RDT( | RDT+137, RDT+138* |
| RDT(0 | RDT+39* |
| RDT(1 | RDT+40* |
| RDT(10 | RDT+51* |
| RDT(11 | RDT+52* |
| RDT(12 | RDT+55*, RDT+56* |
| RDT(13 | RDT+58* |
| RDT(14 | RDT+59* |
| RDT(15 | RDT+60* |
| RDT(16 | RDT+62* |
| RDT(17 | RDT+63* |
| RDT(18 | RDT+64* |
| RDT(19 | RDT+70* |
| RDT(2 | RDT+41* |
| RDT(20 | RDT+71*, RDT+103 |
| RDT(21 | RDT+72* |
| RDT(22 | RDT+73* |
| RDT(23 | RDT+74* |
| RDT(24 | RDT+75* |
| RDT(25 | RDT+76* |
| RDT(26 | RDT+77* |
| RDT(27 | RDT+78* |
| RDT(28 | RDT+79* |
| RDT(29 | RDT+80* |
| RDT(3 | RDT+43* |
| RDT(30 | RDT+81* |
| RDT(31 | RDT+82* |
| RDT(32 | RDT+83* |
| RDT(33 | RDT+84* |
| RDT(34 | RDT+85* |
| RDT(35 | RDT+86* |
| RDT(36 | RDT+87* |
| RDT(37 | RDT+88* |
| RDT(38 | RDT+89* |
| RDT(39 | RDT+90* |
| RDT(4 | RDT+44* |
| RDT(40 | RDT+91* |
| RDT(41 | RDT+92* |
| RDT(42 | RDT+93* |
| RDT(43 | RDT+94* |
| RDT(44 | RDT+95* |
| RDT(45 | RDT+96* |
| RDT(46 | RDT+97* |
| RDT(47 | RDT+98* |
| RDT(48 | RDT+99* |
| RDT(49 | RDT+100* |
| RDT(5 | RDT+45* |
| RDT(50 | RDT+101* |
| RDT(51 | RDT+102*, RDT+111* |
| RDT(52 | RDT+113* |
| RDT(53 | RDT+114* |
| RDT(54 | RDT+115* |
| RDT(55 | RDT+116* |
| RDT(56 | RDT+123* |
| RDT(57 | RDT+124* |
| RDT(58 | RDT+125* |
| RDT(59 | RDT+126* |
| RDT(6 | RDT+46* |
| RDT(60 | RDT+127* |
| RDT(61 | RDT+128* |
| RDT(62 | RDT+130* |
| RDT(63 | RDT+131* |
| RDT(64 | RDT+132* |
| RDT(65 | RDT+134* |
| RDT(7 | RDT+47* |
| RDT(8 | RDT+49* |
| RDT(9 | RDT+50* |
| REM | RDT+20~, RDT+105*, RDT+106 |
| >> RENEWFLG | RDT+117*, RDT+122*, RDT+123 |
| >> RENEWRSN | RDT+117*, RDT+122*, RDT+124 |
| RFIEN | RQUEUE+1~, RQUEUE+3*, RQUEUE+4, RQUEUE+5, RQUEUE+6 |
| RQARR | RQUEUE+2!, RQUEUE+6* |
| RQARR(10 | RDT+116 |
| RQARR(11 | RDT+113 |
| RQARR(5 | RDT+114 |
| RQARR(6 | RDT+115 |
| RS | ESCAPE+11~, ESCAPE+18*, ESCAPE+30, ESCAPE+31, ESCAPE+32 |
| RTXT | RDT+20~, RDT+26* |
| RX | RDT+20~, RDT+28*, RDT+40, RDT+63, RDT+64 |
| RXD | RDT+20~, RDT+37*, RDT+60, RDT+62 |
| RXN | RDT+20~, RDT+29*, RDT+41, RDT+43, RDT+44, RDT+45, RDT+46, RDT+47, RDT+74, RDT+120 , RDT+122, RQUEUE+3, GETIND+3 |
| RXN1 | RDT+20~, RDT+30*, RDT+49, RDT+50, RDT+51, RDT+52, RDT+58, RDT+59, RDT+101 |
| RXN2 | RDT+20~, RDT+31*, RDT+71, RDT+72, RDT+73, RDT+75, RDT+76, RDT+77, RDT+119, GETIND+5 |
| RXN3 | RDT+20~, RDT+32*, RDT+85, RDT+86, RDT+87, RDT+98, RDT+99, RDT+100 |
| RXN4 | RDT+20~, RDT+33* |
| RXP | RDT+20~, RDT+35*, RDT+36 |
| SEG | RDT+20~ |
| SIG | RDT+20~ |
| SP | SPACES+1~, SPACES+3*, SPACES+4 |
| SRC | GETIND+1~, GETIND+5*, GETIND+6, GETIND+7, GETIND+12, GETIND+15 |
| SS | ESCAPE+13~, ESCAPE+20*, ESCAPE+38, ESCAPE+39, ESCAPE+40 |
| STR | ESCAPE+14~, ESCAPE+23*, ESCAPE+24*, ESCAPE+25, ESCAPE+27*, ESCAPE+28*, ESCAPE+29, ESCAPE+31*, ESCAPE+32*, ESCAPE+33 , ESCAPE+35*, ESCAPE+36*, ESCAPE+37, ESCAPE+39*, ESCAPE+40*, ESCAPE+41 |
| STXT | RDT+20~, RDT+26* |
| TXT | RDT+20~, RDT+26* |
| TYP | RMK~, RMK+3, RMK+4, RMK+6 |
| VAL | GETIND+1~, GETIND+8*, GETIND+9, GETIND+10, GETIND+11, ESCAPE~, ESCAPE+22, ESCAPE+23, ESCAPE+24, ESCAPE+25* , ESCAPE+26, ESCAPE+27, ESCAPE+28, ESCAPE+29*, ESCAPE+30, ESCAPE+31, ESCAPE+32, ESCAPE+33*, ESCAPE+34, ESCAPE+35 , ESCAPE+36, ESCAPE+37*, ESCAPE+38, ESCAPE+39, ESCAPE+40, ESCAPE+41*, ESCAPE+42 |
| WPLEN | RDT+20~ |
| WPN | SPACES~, SPACES+2 |
| X | RDT+122*, RMK+1~, RMK+2*, RMK+5*, RMK+6*, RMK+7 |
| Y | RMK+1~, RMK+2*, RMK+3*, RMK+4, RMK+6 |