SDHL7CON ;MS/TG/MS/PB - TMP HL7 Routine;JULY 05, 2018
Source file <SDHL7CON.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PARSEQ13 | ;Process QBP^Q13 messages from the "TMP VISTA" Subscriber protocol
|
|
| VALIDMSG(MSGROOT,QRY,XMT,ERR) | ||
| LOADXMT(HL,XMT) | ;Set HL dependent XMT values
|
|
| LIST(SDY,SDPT,SDSDT,SDEDT,SDSERV,SDSTATUS) | ; return patient's consult requests between start date and stop date for the service and status indicated:
|
|
| RTCLIST(SDY,SDPT,SDSDT,SDEDT) | ; return patient's "Return to Clinic" appointment requests
|
|
| PARSESEG(SEG,DATA,HL) | ;Generic segment parser
|
|
| LOADMSG(MSGROOT) | ; Load HL7 message into temporary global for processing
|
|
| PARSEMSG(MSGROOT,HL) | ; Message Parser
; Does not handle segments that span nodes ; Does not handle extremely long segments (uses a local) ; Does not handle long fields (segment parser doesn't) |
|
| SENDERR(ERR) |
| Name | Field # of Occurrence |
|---|---|
| $$FIND1^DIC | PARSEQ13+32, LOADXMT+12, LOADXMT+13 |
| $$GET1^DIQ | RTCLIST+21, RTCLIST+22 |
| OER^GMRCSLM1 | LIST+9 |
| INIT^HLFNC2 | PARSEQ13+87, SENDERR+2 |
| GENACK^HLMA1 | PARSEQ13+112, SENDERR+8 |
| $$BLDSEG^SDHL7UL | PARSEQ13+95, PARSEQ13+96 |
| RESET^SDHL7UL | PARSEQ13+114 |
| $$MSA^SDTMBUS | PARSEQ13+93, SENDERR+4 |
| $$QAK^SDTMBUS | PARSEQ13+94, SENDERR+5 |
| RTCRDT^SDTMBUS | PARSEQ13+100 |
| HL7 Protocol Name | Call Tags |
|---|---|
| TMP QBP-Q13 Subscriber | PARSEQ13 |
| FileNo | Call Tags |
|---|---|
| ^ORD(101 - [#101] | FIND1^DIC |
| ^SC - [#44] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | PARSEQ13+66 |
| ^ORD(101 - [#101] | LOADXMT+24 |
| ^SDEC(409.85 - [#409.85] | RTCLIST+9, RTCLIST+12, RTCLIST+17 |
| ^TMP("GMRCR" | LIST+7!, LIST+10, LIST+13! |
| ^TMP("ORQQCN" | PARSEQ13+71, PARSEQ13+76, LIST+8 |
| ^TMP("SDHL7CON" | RTCLIST+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CID | RTCLIST+5~, RTCLIST+11!, RTCLIST+16*, RTCLIST+23 |
| CLINID | RTCLIST+5~, RTCLIST+11!, RTCLIST+16*, RTCLIST+20, RTCLIST+21, RTCLIST+22, RTCLIST+23 |
| CLINNM | RTCLIST+11!, RTCLIST+21* |
| CMP | PARSESEG+13~, PARSESEG+39*, PARSESEG+40, PARSESEG+43, PARSESEG+44 |
| CMPVAL | PARSESEG+14~, PARSESEG+40*, PARSESEG+41, PARSESEG+42, PARSESEG+44 |
| CMTS | RTCLIST+5~, RTCLIST+11!, RTCLIST+16*, RTCLIST+23 |
| CNT | PARSEQ13+37~, PARSEQ13+48~, PARSEQ13+51*, PARSEQ13+53*, PARSEQ13+54, PARSEQ13+55, PARSEQ13+56, PARSEQ13+57, PARSEQ13+93*, PARSEQ13+94* , PARSEQ13+95*, PARSEQ13+96*, PARSEQ13+100, PARSEQ13+108, VALIDMSG+17~, VALIDMSG+34*, VALIDMSG+35*, VALIDMSG+36, VALIDMSG+37, VALIDMSG+38 , RTCLIST+5~, RTCLIST+7*, RTCLIST+23*, RTCLIST+24, LOADMSG+5~, LOADMSG+8*, LOADMSG+9, LOADMSG+10*, PARSEMSG+5~, PARSEMSG+6* , PARSEMSG+8, PARSEMSG+9, SENDERR+4*, SENDERR+5*, SENDERR+6 |
| CS | PARSESEG+22~, PARSESEG+28*, PARSESEG+39, PARSESEG+40 |
| DATA | PARSESEG~, PARSESEG+26!, PARSEMSG+5~, PARSEMSG+7, PARSEMSG+9 |
| DATA( | PARSESEG+43*, PARSESEG+44*, PARSESEG+45*, PARSESEG+46* |
| DATA(0 | PARSESEG+32*, PARSEMSG+9 |
| DATAROOT | PARSEQ13+23~, PARSEQ13+71*, PARSEQ13+72, PARSEQ13+79, PARSEQ13+98, PARSEQ13+106, PARSEQ13+115 |
| DIFF | LIST+1~ |
| EIN | PARSEQ13+31~, PARSEQ13+32*, PARSEQ13+87, SENDERR+2 |
| ERR | PARSEQ13+23~, PARSEQ13+24*, PARSEQ13+43, PARSEQ13+44, PARSEQ13+61*, PARSEQ13+62, PARSEQ13+67*, PARSEQ13+68, PARSEQ13+77*, PARSEQ13+78 , PARSEQ13+90~*, PARSEQ13+93, PARSEQ13+97, PARSEQ13+104*, PARSEQ13+105, VALIDMSG~, VALIDMSG+18!, VALIDMSG+19*, VALIDMSG+32*, VALIDMSG+41* , VALIDMSG+53*, VALIDMSG+55*, VALIDMSG+56*, VALIDMSG+60*, SENDERR~, SENDERR+4, SENDERR+5 |
| EXTIME | PARSEQ13+48~, PARSEQ13+82* |
| FLD | PARSESEG+15~, PARSESEG+35*, PARSESEG+36, PARSESEG+43, PARSESEG+44, PARSESEG+45, PARSESEG+46 |
| FLDVAL | PARSESEG+16~, PARSESEG+36*, PARSESEG+37, PARSESEG+38, PARSESEG+45, PARSESEG+46 |
| FOUNDCN | PARSEQ13+91~, PARSEQ13+92*, PARSEQ13+103 |
| FS | PARSESEG+21~, PARSESEG+27*, PARSESEG+32, PARSESEG+33, PARSESEG+35, PARSESEG+36 |
| GMRCOER | LIST+1~, LIST+2*, LIST+9 |
| HIT | PARSEQ13+48~, PARSEQ13+82* |
| HL | PARSEQ13+34, PARSEQ13+41, PARSEQ13+87, PARSEQ13+93, PARSEQ13+94, PARSEQ13+95, PARSEQ13+96, PARSEQ13+100, LOADXMT~, PARSESEG~ , PARSEMSG~, PARSEMSG+7, SENDERR+2, SENDERR+4, SENDERR+5 |
| HL("APAT" | LOADXMT+16 |
| HL("ECH" | PARSEQ13+88*, LOADXMT+19, PARSESEG+28, PARSESEG+29, PARSESEG+30, SENDERR+3* |
| HL("EID" | PARSEQ13+112, LOADXMT+12*, SENDERR+8 |
| HL("EIDS" | PARSEQ13+112, LOADXMT+13*, LOADXMT+24, SENDERR+8 |
| HL("ETN" | LOADXMT+18 |
| HL("FS" | PARSEQ13+88*, LOADXMT+19, PARSESEG+27, SENDERR+3* |
| HL("MID" | PARSEQ13+93, LOADXMT+14, SENDERR+4 |
| HL("MTN" | LOADXMT+17 |
| HLA | PARSEQ13+48~ |
| HLA("HLA" | PARSEQ13+110*, SENDERR+7* |
| HLA("HLS" | PARSEQ13+108*, PARSEQ13+110, SENDERR+6*, SENDERR+7 |
| >> HLMTIENS | PARSEQ13+112, SENDERR+8 |
| >> HLNEXT | LOADMSG+7 |
| >> HLNODE | LOADMSG+9 |
| >> HLNODE( | LOADMSG+10 |
| >> HLQUIT | LOADMSG+7 |
| I | LIST+1~ |
| IDX | RTCLIST+5~, RTCLIST+9*, RTCLIST+10 |
| IEN | RTCLIST+5~, RTCLIST+9*, RTCLIST+10*, RTCLIST+12, RTCLIST+17, RTCLIST+18, RTCLIST+23 |
| IX | PARSEQ13+23~, PARSEQ13+108*, SENDERR+6* |
| J | LIST+1~, LIST+2* |
| LEN | PARSEQ13+90~, PARSEQ13+93*, PARSEQ13+94*, PARSEQ13+95*, PARSEQ13+96*, PARSEQ13+100, SENDERR+4*, SENDERR+5* |
| LST | PARSEQ13+48~, PARSEQ13+73 |
| MRTC | RTCLIST+5~, RTCLIST+11!, RTCLIST+17*, RTCLIST+19*, RTCLIST+23 |
| MSG | PARSEMSG+5~ |
| MSGCONID | PARSEQ13+48~, PARSEQ13+50*, PARSEQ13+57* |
| MSGROOT | PARSEQ13+23~, PARSEQ13+24*, PARSEQ13+29*, PARSEQ13+30, PARSEQ13+38, PARSEQ13+39, PARSEQ13+41, PARSEQ13+43, PARSEQ13+45, PARSEQ13+53 , PARSEQ13+54, PARSEQ13+55, PARSEQ13+56, PARSEQ13+57, PARSEQ13+63, PARSEQ13+69, PARSEQ13+79, PARSEQ13+85, PARSEQ13+93, PARSEQ13+94 , PARSEQ13+95, PARSEQ13+96, PARSEQ13+100, PARSEQ13+106, PARSEQ13+108, PARSEQ13+115, VALIDMSG~, VALIDMSG+31, VALIDMSG+35, VALIDMSG+36 , VALIDMSG+37, VALIDMSG+38, LOADMSG~, LOADMSG+6, LOADMSG+9, LOADMSG+10, PARSEMSG~, PARSEMSG+6, PARSEMSG+8, PARSEMSG+9 , SENDERR+1, SENDERR+4, SENDERR+5, SENDERR+6 |
| MSH | VALIDMSG+16~, VALIDMSG+31* |
| MYRESULT | PARSEQ13+48~, PARSEQ13+112, SENDERR+8 |
| ORLOC | LIST+1~ |
| PRVID | RTCLIST+5~, RTCLIST+11!, RTCLIST+16*, RTCLIST+23 |
| QNAME | VALIDMSG+16~ |
| QPD | PARSEQ13+48~, PARSEQ13+55*, PARSEQ13+95, VALIDMSG+16~, VALIDMSG+37*, VALIDMSG+41 |
| QPD(1 | VALIDMSG+43, VALIDMSG+53 |
| QPD(2 | VALIDMSG+44 |
| QPD(3 | VALIDMSG+45, VALIDMSG+46 |
| QRY | PARSEQ13+23~, PARSEQ13+24*, PARSEQ13+43, VALIDMSG~, VALIDMSG+18! |
| QRY("DCLSNM" | VALIDMSG+57* |
| QRY("DFN" | VALIDMSG+57* |
| QRY("MID" | VALIDMSG+23* |
| QRY("QPD" | VALIDMSG+24*, VALIDMSG+37* |
| QRY("REQID" | VALIDMSG+58* |
| QRYDFN | PARSEQ13+48~, PARSEQ13+50*, PARSEQ13+55*, PARSEQ13+60, PARSEQ13+66, PARSEQ13+73, PARSEQ13+74 |
| QTAG | VALIDMSG+16~, VALIDMSG+43*, VALIDMSG+55 |
| RDF | PARSEQ13+48~, PARSEQ13+56*, PARSEQ13+96, VALIDMSG+16~, VALIDMSG+38* |
| RDT | PARSEQ13+48~ |
| REP | PARSESEG+17~, PARSESEG+37*, PARSESEG+38, PARSESEG+43, PARSESEG+44, PARSESEG+45 |
| REPVAL | PARSESEG+18~, PARSESEG+38*, PARSESEG+39, PARSESEG+40, PARSESEG+45 |
| REQDT | RTCLIST+5~, RTCLIST+15*, RTCLIST+23 |
| REQID | VALIDMSG+16~, VALIDMSG+44*, VALIDMSG+56, VALIDMSG+58 |
| REQTYPE | VALIDMSG+16~, VALIDMSG+45*, VALIDMSG+46*, VALIDMSG+60 |
| RESP0 | LOADXMT+11~ |
| RESPIEN | LOADXMT+11~ |
| RNAME | PARSEQ13+23~, PARSEQ13+24*, PARSEQ13+35* |
| RS | PARSESEG+23~, PARSESEG+29*, PARSESEG+37, PARSESEG+38, PARSESEG+45 |
| RTCINT | RTCLIST+5~, RTCLIST+11!, RTCLIST+17*, RTCLIST+19*, RTCLIST+23 |
| RTCLST | PARSEQ13+48~, PARSEQ13+74, PARSEQ13+100 |
| RTCPAR | RTCLIST+5~, RTCLIST+11!, RTCLIST+17*, RTCLIST+18*, RTCLIST+23 |
| SDEC0 | RTCLIST+5~, RTCLIST+11!, RTCLIST+12*, RTCLIST+13, RTCLIST+14, RTCLIST+15, RTCLIST+16 |
| SDEDT | LIST~, LIST+4*, LIST+9, RTCLIST~, RTCLIST+7*, RTCLIST+15 |
| SDPT | LIST~, LIST+9, RTCLIST~, RTCLIST+8, RTCLIST+9 |
| SDSDT | LIST~, LIST+3*, LIST+9, RTCLIST~, RTCLIST+7*, RTCLIST+15 |
| SDSERV | LIST~, LIST+5*, LIST+9 |
| SDSRV | LIST+1~ |
| SDSTATUS | LIST~, LIST+6*, LIST+9 |
| SDY | LIST~, LIST+8*, LIST+10, LIST+11, LIST+12, RTCLIST~, RTCLIST+6*, RTCLIST+23, RTCLIST+24 |
| SEG | PARSEQ13+37~, PARSESEG~, PARSESEG+32, PARSESEG+33*, PARSESEG+35, PARSESEG+36, LOADMSG+5~, LOADMSG+7*, LOADMSG+9, LOADMSG+10 , PARSEMSG+5~, PARSEMSG+6* |
| SEG(0 | PARSEMSG+7 |
| SEG(1 | PARSEMSG+10 |
| SEGTYPE | PARSEQ13+54*, PARSEQ13+55, PARSEQ13+56, PARSEQ13+57, VALIDMSG+17~, VALIDMSG+36*, VALIDMSG+37, VALIDMSG+38 |
| SEQ | LIST+1~, LIST+2* |
| SITE | LIST+1~ |
| SS | PARSESEG+24~, PARSESEG+30*, PARSESEG+41, PARSESEG+42 |
| STOP | RTCLIST+5~, RTCLIST+11!, RTCLIST+22* |
| SUB | PARSESEG+19~, PARSESEG+41*, PARSESEG+42, PARSESEG+43 |
| SUBPROT | LOADXMT+11~, LOADXMT+24* |
| SUBVAL | PARSESEG+20~, PARSESEG+42*, PARSESEG+43 |
| U | RTCLIST+13, RTCLIST+14, RTCLIST+15, RTCLIST+16, RTCLIST+23 |
| XMT | PARSEQ13+23~, PARSEQ13+24*, PARSEQ13+34, PARSEQ13+43, VALIDMSG~, LOADXMT~ |
| XMT("DELIM" | LOADXMT+19* |
| XMT("EVENT TY | PE" , PARSEQ13+35, LOADXMT+18* |
| XMT("MAX SIZE | " , LOADXMT+21* |
| XMT("MESSAGE | TYPE" , PARSEQ13+35, LOADXMT+17* |
| XMT("MID" | VALIDMSG+23, LOADXMT+14* |
| XMT("MODE" | LOADXMT+15*, LOADXMT+16* |
