GMRCHL7H ;DSS/KC - Receive HL7 Message for HCP ;Jun 13, 2018@09:30
Source file <GMRCHL7H.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 5 | ($$FMTE,$$FMTHL7)^XLFDT $$HLNAME^XLFNAME ($$TRIM,$$UP)^XLFSTR F4^XUAF4 $$KSP^XUPARAM |
| Health Level Seven | 3 | $$FMDATE^HLFNC INIT^HLFNC2 GENERATE^HLMA |
| Registration | 3 | $$SSN^DPTLK1 (IN5,KVA)^VADPT BLDPID^VAFCQRY |
| Text Integration Utility | 2 | TGET^TIUSRVR1 GETLINK^TIUSRVT1 |
| VA FileMan | 2 | ($$FIND1,FIND)^DIC ($$GET1,GETS)^DIQ |
| Consult Request Tracking | 1 | ($$ADDR,$$PH,HL7TXT)^GMRCHL7P |
| MailMan | 1 | ^XMD |
| Toolkit | 1 | $$GET^XPAR |
| 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 |
| Package | Total | Caller Graph |
|---|---|---|
| Consult Request Tracking | 6 | GMRC CONSULTS TO HCP GMRC HCP REF-I12 SERVER GMRC HCP REF-I13 SERVER GMRC HCP REF-I14 SERVER GMRCACMT GMRCGUIB |
| Kernel | 1 | ^ORD(101 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(MSG) | ;Entry point to routine from GMRC CONSULTS TO HCP protocol attached or GMRC EVSEND OR
|
|
| NTE(HL) | ;Find Reason for Request for New or Resubmit entries, Find TIU for complete, find Activity Comment for others
|
|
| AUTHDTTM | ; Add Author and Date/Time to NTE
|
|
| STATUS(T1,T2) | ;get status for event
|
|
| FEE(FEESVC) | ;send only if name contains HCPS
|
|
| COMMENT(GMRCDA) | ;send comments on Non VA Care consults to HCP
|
|
| ADDEND(TIUDA) | ;send addendums on Non VA Care consults to HCP
|
|
| TIME(X,FMT) | ; Copied from $$TIME^TIULS
; Recieves X as 2910419.01 and FMT=Return Format of time (HH:MM:SS). |
|
| DATE(X,FMT) | ; Copied from $$DATE^TIULS
; Call with X=2910419.01 and FMT=Return Format of date ("MM/DD") |
|
| QDATE | ||
| OITEM(GMRCORDN) | ; Orderable Item
|
|
| ACK | ; Process ACK HL7 messages
|
|
| MESSAGE(MSGID,ERRARY) | ; Send a MailMan Message with the errors
|
|
| HLTEXT(MSGID) | ;get hl7 message text; find obr and get consult record number
|
| Name | Field # of Occurrence |
|---|---|
| $$FIND1^DIC | EN+23 |
| FIND^DIC | HLTEXT+3 |
| $$GET1^DIQ | EN+13, EN+38, NTE+20, NTE+51, AUTHDTTM+8, AUTHDTTM+9, FEE+4, COMMENT+3, COMMENT+6, ADDEND+7 , ADDEND+10, ADDEND+14, ADDEND+22, ADDEND+28, ADDEND+29, HLTEXT+9, HLTEXT+11 |
| GETS^DIQ | EN+27 |
| $$SSN^DPTLK1 | EN+63 |
| $$ADDR^GMRCHL7P | EN+44 |
| $$PH^GMRCHL7P | EN+44 |
| HL7TXT^GMRCHL7P | NTE+8, NTE+29, NTE+41, NTE+52, NTE+63 |
| $$FMDATE^HLFNC | MESSAGE+2 |
| INIT^HLFNC2 | EN+24 |
| GENERATE^HLMA | EN+74 |
| TGET^TIUSRVR1 | NTE+18, NTE+38 |
| GETLINK^TIUSRVT1 | EN+33 |
| IN5^VADPT | EN+60 |
| KVA^VADPT | EN+65 |
| BLDPID^VAFCQRY | EN+47 |
| $$FMTE^XLFDT | MESSAGE+2 |
| $$FMTHL7^XLFDT | EN+35, EN+58, AUTHDTTM+9 |
| $$HLNAME^XLFNAME | EN+43 |
| $$TRIM^XLFSTR | NTE+6, NTE+28, NTE+40, NTE+51, NTE+62 |
| $$UP^XLFSTR | FEE+4 |
| ^XMD | MESSAGE+29 |
| $$GET^XPAR | MESSAGE+3 |
| F4^XUAF4 | MESSAGE+6 |
| $$KSP^XUPARAM | MESSAGE+5 |
| HL7 Protocol Name | Call Tags |
|---|---|
| GMRC HCP REF-I12 SERVER | ACK |
| GMRC HCP REF-I14 SERVER | ACK |
| GMRC HCP REF-I13 SERVER | ACK |
| FileNo | Call Tags |
|---|---|
| ^OR(100 - [#100] | GET1^DIQ |
| ^ORD(101 - [#101] | FIND1^DIC |
| ^GMR(123 - [#123] | GET1^DIQ, GETS^DIQ |
| 123.02 | GET1^DIQ |
| 123.03 | GET1^DIQ |
| ^GMR(123.5 - [#123.5] | GET1^DIQ |
| ^HL(772 - [#772] | GET1^DIQ |
| ^HLMA - [#773] | FIND^DIC, GET1^DIQ |
| ^TIU(8925 - [#8925] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | EN+9, COMMENT+3, ADDEND+11 |
| ^GMR(123 - [#123] | EN+11, EN+12, NTE+17, NTE+37, NTE+56, NTE+59, NTE+60, AUTHDTTM+1, STATUS+9, ADDEND+17 , ADDEND+19, ADDEND+21 |
| ^GMR(123.1 - [#123.1] | NTE+57 |
| ^OR(100 - [#100] | OITEM+3, OITEM+5 |
| ^TIU(8925 - [#8925] | NTE+20, ADDEND+3 |
| ^TMP("GMRCHL7H" | EN+27, EN+28, EN+68! |
| ^TMP("TIUVIEW" | NTE+31!, NTE+44! |
| ^XTMP("GMRCHL7H" | EN+40*, EN+73 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACT | NTE+55~, NTE+57* |
| ACTD | NTE+55~, NTE+57*, NTE+58 |
| ACTIEN | EN+2~, EN+11*, EN+12, NTE+55~, NTE+56*, NTE+59, NTE+60, AUTHDTTM+1*, AUTHDTTM+2, AUTHDTTM+8 , AUTHDTTM+9 |
| ADDR | EN+21~, EN+44*, EN+45 |
| AMTH | DATE+2~, DATE+6* |
| CC | DATE+2~, DATE+5* |
| CMT | NTE+47~, NTE+51*, NTE+52, NTE+53 |
| DATA | EN+21~, EN+27* |
| DATE | MESSAGE+1~, MESSAGE+2*, MESSAGE+11 |
| DD | DATE+2~, DATE+5* |
| DFN | EN+2~, EN+9*, EN+47, EN+63, COMMENT+3~*, COMMENT+5, ADDEND+4~, ADDEND+10*, ADDEND+11, ADDEND+17 , ADDEND+19, ADDEND+27 |
| DIFROM | MESSAGE+1~ |
| DONE | ACK+1~, ACK+7*, ACK+8, ACK+10* |
| DUZ | MESSAGE+1~ |
| DX | EN+21~, EN+53*, EN+55*, EN+56 |
| DXCODE | EN+21~, EN+54*, EN+56 |
| ECH | EN+21~, EN+25*, EN+33, EN+34, EN+43, EN+56, NTE+58 |
| EFFDT | EN+21~, EN+35*, EN+36, EN+39 |
| ERRARY | ACK+1~, ACK+19, MESSAGE~ |
| ERRARY( | ACK+15*, ACK+17*, ACK+18*, MESSAGE+16, MESSAGE+18, MESSAGE+19, MESSAGE+20, MESSAGE+21, MESSAGE+22, MESSAGE+23 , MESSAGE+24 |
| ERRI | ACK+1~, ACK+3*, ACK+14*, ACK+15, ACK+17, ACK+18 |
| FEESVC | FEE~, FEE+1, FEE+4 |
| FMT | TIME~, TIME+3*, TIME+5*, TIME+6, DATE~, DATE+3*, DATE+4*, DATE+6, DATE+7*, DATE+8* , QDATE |
| FROMSVC | EN+2~, EN+12* |
| FS | EN+2~, EN+5*, EN+6, EN+9, EN+10, EN+58, STATUS+10 |
| FSCGRP | MESSAGE+1~, MESSAGE+3*, MESSAGE+28 |
| GDATA | EN+21~, EN+28*, EN+31, EN+33, EN+35, EN+36, EN+39, EN+43, EN+53, EN+54 , EN+58, NTE+5, NTE+50 |
| GMRC772 | HLTEXT+1~, HLTEXT+9*, HLTEXT+10, HLTEXT+11 |
| GMRC773 | HLTEXT+1~, HLTEXT+7*, HLTEXT+8, HLTEXT+9 |
| GMRC8925 | ADDEND+4~, ADDEND+22*, ADDEND+23 |
| GMRCASTR | NTE+14~, NTE+21*, NTE+23*, NTE+25, NTE+26 |
| GMRCCMP | NTE+14~, NTE+20*, NTE+23 |
| GMRCD | ADDEND+4~, ADDEND+16*, ADDEND+17*, ADDEND+19 |
| GMRCD1 | ADDEND+4~, ADDEND+20*, ADDEND+21*, ADDEND+22 |
| GMRCDA | EN+2~, EN+10*, EN+11, EN+12, EN+13, EN+27, EN+28, EN+36, EN+38, EN+40 , NTE+17, NTE+37, NTE+56, NTE+59, NTE+60, AUTHDTTM+1, AUTHDTTM+8, AUTHDTTM+9, STATUS+9, COMMENT~ , COMMENT+2, COMMENT+3, COMMENT+6, ADDEND+4~, ADDEND+18*, ADDEND+19*, ADDEND+21, ADDEND+22, ADDEND+23 |
| GMRCERR | HLTEXT+1~, HLTEXT+4 |
| GMRCFLG | HLTEXT+1~, HLTEXT+2*, HLTEXT+9 |
| GMRCHL | EN+21~, EN+24, EN+44, EN+47, EN+67, EN+72, EN+73* |
| GMRCHL("ECH" | EN+25 |
| GMRCHL("EID" | EN+23*, EN+24, EN+74 |
| GMRCHLP | EN+71~, EN+74 |
| GMRCI | TIME+2~, TIME+5*, DATE+2~, DATE+7* |
| GMRCIFN | HLTEXT+1~, HLTEXT+2*, HLTEXT+4, HLTEXT+5, HLTEXT+8, HLTEXT+10, HLTEXT+16*, HLTEXT+17 |
| GMRCM | EN+30!, EN+72 |
| GMRCM( | EN+36*, EN+39*, EN+45*, EN+49*, EN+50*, EN+56*, EN+58*, EN+61*, EN+62*, EN+63* , EN+64*, NTE+4*, NTE+9*, NTE+16*, NTE+30*, NTE+36*, NTE+42*, NTE+49*, NTE+53*, NTE+61* , NTE+64*, AUTHDTTM+3*, AUTHDTTM+4*, AUTHDTTM+5*, AUTHDTTM+8*, AUTHDTTM+9*, AUTHDTTM+10* |
| GMRCMSG | ACK+1~ |
| GMRCMSG( | ACK+5*, ACK+6*, ACK+8, ACK+9, ACK+10, ACK+11, ACK+12, ACK+15, ACK+16, ACK+17 , ACK+18 |
| GMRCMSID | HLTEXT+1~, HLTEXT+11* |
| GMRCN | NTE+14~, NTE+17*, NTE+18, NTE+34~, NTE+37*, NTE+38 |
| GMRCNDX | HLTEXT+1~, HLTEXT+2* |
| GMRCNO | MESSAGE+1~, MESSAGE+8*, MESSAGE+14 |
| GMRCO | ADDEND+4~, ADDEND+16*, ADDEND+17, ADDEND+19, ADDEND+21, ADDEND+23*, ADDEND+24, ADDEND+28, ADDEND+29 |
| GMRCOBR | HLTEXT+1~, HLTEXT+15*, HLTEXT+16 |
| GMRCOITM | OITEM+1~, OITEM+3*, OITEM+4, OITEM+5 |
| GMRCORDN | OITEM~, OITEM+3, OITEM+5 |
| GMRCOUT | HLTEXT+1~ |
| GMRCOUT("DILIST" | HLTEXT+5, HLTEXT+6, HLTEXT+7 |
| GMRCP | EN+21~, EN+47, EN+51! |
| GMRCP( | EN+48, EN+49, EN+50 |
| GMRCPARN | NTE+18, STATUS+9*, STATUS+10, ADDEND+4~, ADDEND+14*, ADDEND+23 |
| GMRCRES | EN+71~, EN+74 |
| GMRCSTA | MESSAGE+1~, MESSAGE+5*, MESSAGE+6, MESSAGE+7 |
| GMRCSTNA | MESSAGE+1~, MESSAGE+5*, MESSAGE+6, MESSAGE+7 |
| GMRCSTNA("NAME" | MESSAGE+7 |
| GMRCTEXT | MESSAGE+1~, MESSAGE+7*, MESSAGE+13 |
| GMRCTMP | DATE+2~, DATE+3* |
| GMRCTXT | NTE+14~, NTE+18, NTE+22, NTE+27, NTE+34~, NTE+38, NTE+39 |
| GMRCWPTX | HLTEXT+1~ |
| GMRCWPTX( | HLTEXT+13, HLTEXT+14, HLTEXT+15 |
| HL | EN+71~, EN+72*, NTE~, NTE+8, NTE+29, NTE+41, NTE+52, NTE+63 |
| HL("DTM" | MESSAGE+2 |
| HLA | EN+71~ |
| HLA("HLS" | EN+72* |
| >> HLNEXT | ACK+4 |
| >> HLNODE | ACK+5 |
| >> HLNODE( | ACK+6 |
| >> HLQUIT | ACK+4 |
| HR | TIME+2~, TIME+4* |
| I | EN+2~, EN+4*, EN+8*, EN+48*, EN+49, EN+50, NTE+5*, NTE+21*, NTE+22*, NTE+23 , NTE+26*, NTE+27*, NTE+38*, NTE+39*, NTE+60*, ACK+1~, ACK+4*, ACK+5, ACK+6, ACK+8* , ACK+9, ACK+10, ACK+11, ACK+12, ACK+15, ACK+16, ACK+17, ACK+18, MESSAGE+1~, MESSAGE+16* , MESSAGE+18, MESSAGE+19, MESSAGE+20, MESSAGE+21, MESSAGE+22, MESSAGE+23, MESSAGE+24, HLTEXT+1~, HLTEXT+12*, HLTEXT+13* , HLTEXT+14, HLTEXT+15 |
| IDX | HLTEXT+1~, HLTEXT+2*, HLTEXT+6*, HLTEXT+7 |
| J | MESSAGE+1~, MESSAGE+16*, MESSAGE+17*, MESSAGE+18*, MESSAGE+19*, MESSAGE+20*, MESSAGE+21*, MESSAGE+22*, MESSAGE+23*, MESSAGE+24* |
| MIN | TIME+2~, TIME+4* |
| MM | DATE+2~, DATE+5*, DATE+6 |
| MSG | EN~, EN+4*, EN+5, EN+6, EN+8*, EN+9, EN+10 |
| MSG( | EN+4, EN+8 |
| MSGID | ACK+1~, ACK+11*, ACK+19, MESSAGE~, MESSAGE+8, MESSAGE+12, HLTEXT~, HLTEXT+3 |
| MSGTEXT | MESSAGE+1~ |
| MSGTEXT( | MESSAGE+17*, MESSAGE+18*, MESSAGE+19*, MESSAGE+20*, MESSAGE+21*, MESSAGE+22*, MESSAGE+23*, MESSAGE+24* |
| MSGTEXT(1 | MESSAGE+9* |
| MSGTEXT(2 | MESSAGE+10* |
| MSGTEXT(3 | MESSAGE+11* |
| MSGTEXT(4 | MESSAGE+12* |
| MSGTEXT(5 | MESSAGE+13* |
| MSGTEXT(6 | MESSAGE+14* |
| MSGTEXT(7 | MESSAGE+15* |
| MSGTYP | EN+2~, EN+6*, EN+18, EN+22, NTE+2 |
| MSGTYP2 | EN+2~, EN+10*, EN+19, EN+22, NTE+2, NTE+13, NTE+46 |
| MSGTYP3 | EN+2~, EN+10*, EN+11, EN+18*, EN+19, NTE+2, NTE+13, NTE+33 |
| NTECNT | NTE+1~*, NTE+4, NTE+9*, NTE+16, NTE+30*, NTE+36, NTE+42*, NTE+49, NTE+61, NTE+64* , AUTHDTTM+3, AUTHDTTM+4*, AUTHDTTM+5*, AUTHDTTM+6*, AUTHDTTM+8, AUTHDTTM+9*, AUTHDTTM+10*, AUTHDTTM+11* |
| OK | EN+2~, EN+13*, EN+14 |
| OKFROM | EN+2~, EN+12*, EN+14, NTE+2, STATUS+13 |
| ORC | EN+2~, EN+10*, EN+58, STATUS+10* |
| ORIEN | NTE+47~, NTE+50*, NTE+51 |
| PDUZ | EN+21~, EN+43*, EN+44 |
| PH | EN+21~, EN+44*, EN+45 |
| PN | EN+21~, EN+43*, EN+45 |
| Q | NTE+55~, NTE+56*, NTE+61* |
| QUIT | EN+2~, EN+4*, EN+5*, EN+6*, EN+8, EN+9*, EN+14*, EN+17 |
| RES | EN+21~, EN+33, EN+34 |
| RETVAL | OITEM+1~, OITEM+2*, OITEM+5*, OITEM+6*, OITEM+7 |
| SEC | TIME+2~, TIME+4* |
| SENS | EN+21~, EN+63* |
| SNAME | EN+21~, EN+22*, EN+23 |
| STATUS | EN+2~, EN+19*, EN+36, EN+39, NTE+58 |
| T | COMMENT+4~, COMMENT+7, ADDEND+4~, ADDEND+29 |
| T(1 | COMMENT+4*, ADDEND+26* |
| T(2 | COMMENT+5*, ADDEND+27* |
| T(4 | COMMENT+6*, ADDEND+28* |
| T1 | STATUS~, STATUS+2, STATUS+4, STATUS+5, STATUS+6, STATUS+11, STATUS+13, STATUS+14 |
| T2 | STATUS~, STATUS+2, STATUS+3, STATUS+4, STATUS+5, STATUS+6, STATUS+7, STATUS+8, STATUS+11, STATUS+12 , STATUS+13, STATUS+14 |
| TIUDA | NTE+18, NTE+20, NTE+38, STATUS+9, STATUS+10, ADDEND~, ADDEND+2, ADDEND+3, ADDEND+7, ADDEND+10 , ADDEND+14, ADDEND+23 |
| TIUTYP | ADDEND+4~, ADDEND+7*, ADDEND+8 |
| TYP | EN+21~, EN+33*, EN+34*, EN+36, EN+39 |
| U | EN+12, EN+34, NTE+17, NTE+20, NTE+37, NTE+57, STATUS+9, MESSAGE+18, MESSAGE+19, MESSAGE+20 , MESSAGE+21, MESSAGE+22, MESSAGE+23, MESSAGE+24 |
| UCID | EN+3~, EN+38*, EN+39, EN+40 |
| URG | EN+21~, EN+31*, EN+32*, EN+36, EN+39 |
| >> VAIP(13 | EN+61, EN+64 |
| >> VAIP(18 | EN+61 |
| >> VAIP(5 | EN+62 |
| VAL | FEE+2~, FEE+3*, FEE+4*, FEE+5 |
| X | NTE+1~, NTE+5*, NTE+6*, NTE+7, NTE+8, NTE+9, NTE+22*, NTE+23, NTE+27*, NTE+28* , NTE+29, NTE+30, NTE+39*, NTE+40*, NTE+41, NTE+42, NTE+56*, NTE+57, NTE+60*, NTE+62* , NTE+63, NTE+64, TIME~, TIME+4*, DATE~, DATE+3, DATE+5, DATE+8, ACK+1~, ACK+6* |
| XMDUZ | MESSAGE+1~, MESSAGE+26* |
| XMMG | MESSAGE+1~ |
| XMROU | MESSAGE+1~ |
| XMSTRIP | MESSAGE+1~ |
| XMSUB | MESSAGE+1~, MESSAGE+4* |
| XMTEXT | MESSAGE+1~, MESSAGE+25* |
| XMY | MESSAGE+1~ |
| XMY( | MESSAGE+28* |
| XMY("G.GMRC H | CP HL7 MESSAGES" , MESSAGE+27* |
| XMYBLOB | MESSAGE+1~ |
| XMZ | MESSAGE+1~ |
| YY | DATE+2~, DATE+5* |
| ZCNT | EN+21~, EN+25*, EN+36*, EN+39, EN+45*, EN+49*, EN+50, EN+56*, EN+58*, EN+61* , EN+62, EN+63, EN+64, NTE+4*, NTE+9*, NTE+16*, NTE+30*, NTE+36*, NTE+42*, NTE+49* , NTE+53*, NTE+61*, NTE+64*, AUTHDTTM+3*, AUTHDTTM+4*, AUTHDTTM+5*, AUTHDTTM+8*, AUTHDTTM+9*, AUTHDTTM+10* |
| ZERR | EN+21~, EN+25*, EN+47 |
