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 |