GMRCIMSG ;SLC/JFR - IFC MESSAGE HANDLING ROUTINE; 09/26/02 00:23 ; Jul 31, 2025@14:29:21
Source file <GMRCIMSG.m>
| Package | Total | Call Graph |
|---|---|---|
| Consult Request Tracking | 9 | DECODE^GMRCHL7E (COMP,FWD,RESUB,SF)^GMRCIAC1 (MGMSG,TST)^GMRCIAC2 (DIS,NW,OTHER)^GMRCIACT SNDALRT^GMRCIERR TRIGR^GMRCIEVT RESP^GMRCIUT1 RESP^GMRCIUTL EN^GMRCRFC0 |
| Kernel | 3 | ($$FMTE,$$HL7TFM)^XLFDT ($$IEN,$$STA)^XUAF4 $$KSP^XUPARAM |
| VA FileMan | 2 | UPDATE^DIE $$GET1^DIQ |
| Electronic Health Modernization | 1 | SAVEHL7^EHMHL7 |
| Health Level Seven | 1 | GENACK^HLMA1 |
| Imaging | 1 | ORRIN^MAGDTR01 |
| Prosthetics | 1 | EN^RMPRFC3 |
| 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 | 4 | GMRC IFC ORM EVENT GMRC IFC SUBSC GMRCIEV1 GMRCISEG |
| Kernel | 1 | ^ORD(101 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| IN | ;process incoming message and save segments to ^TMP(
|
|
| EX | ; clean up
|
|
| EHRMCHK(ORCSEG,OBRSEG) | ; Check for EHRM
|
|
| ORRIN | ;process IFC responses
|
|
| VALMSG(GMRCORC,GMRCCRNR,GMRCMSG) | ;check to make sure placer and filler # match current entr
; Input: ; GMRCORC = ORC segment from incoming HL7 msg ; GMRCCRNR = 1 if a converted site is involved ; GMRCMSG = name of array where HL7 message is stored (P205 wtc 8/21/24) |
|
| SETTCH() | ;Set up TCH array with decoding characters
|
|
| SETTCH2() |
| Name | Field # of Occurrence |
|---|---|
| UPDATE^DIE | IN+45, ORRIN+23, ORRIN+38, ORRIN+55 |
| $$GET1^DIQ | ORRIN+34 |
| SAVEHL7^EHMHL7 | EX+4, ORRIN+64 |
| DECODE^GMRCHL7E | IN+17, IN+25 |
| COMP^GMRCIAC1 | IN+64 |
| FWD^GMRCIAC1 | IN+58 |
| RESUB^GMRCIAC1 | IN+56 |
| SF^GMRCIAC1 | IN+63 |
| MGMSG^GMRCIAC2 | IN+49 |
| TST^GMRCIAC2 | IN+53 |
| DIS^GMRCIACT | IN+61 |
| NW^GMRCIACT | IN+54 |
| OTHER^GMRCIACT | IN+65 |
| SNDALRT^GMRCIERR | ORRIN+59, ORRIN+60 |
| TRIGR^GMRCIEVT | ORRIN+46 |
| RESP^GMRCIUT1 | VALMSG+27 |
| RESP^GMRCIUTL | VALMSG+26 |
| EN^GMRCRFC0 | EX+11, EX+12 |
| GENACK^HLMA1 | VALMSG+28 |
| ORRIN^MAGDTR01 | ORRIN+67, ORRIN+68 |
| EN^RMPRFC3 | EX+15, EX+16 |
| $$FMTE^XLFDT | IN+8 |
| $$HL7TFM^XLFDT | IN+8 |
| $$GET^XPAR | ORRIN+58 |
| $$IEN^XUAF4 | EHRMCHK+9, EHRMCHK+11, EHRMCHK+13, ORRIN+8, VALMSG+9, VALMSG+11 |
| $$STA^XUAF4 | EX+4, ORRIN+64 |
| $$KSP^XUPARAM | EX+4, EHRMCHK+9, EHRMCHK+11, EHRMCHK+13, ORRIN+64, VALMSG+12, VALMSG+13 |
| HL7 Protocol Name | Call Tags |
|---|---|
| GMRC IFC ORM EVENT | ORRIN |
| GMRC IFC SUBSC | IN |
| FileNo | Call Tags |
|---|---|
| ^GMR(123 - [#123] | GET1^DIQ |
| ^GMR(123.6 - [#123.6] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMR(123 - [#123] | IN+38, IN+40, ORRIN+13, VALMSG+17, VALMSG+18, VALMSG+19, VALMSG+21, VALMSG+22, VALMSG+23 |
| ^GMR(123.6 - [#123.6] | ORRIN+29, ORRIN+33, ORRIN+41, ORRIN+42, ORRIN+44, ORRIN+45, ORRIN+51 |
| ^TMP("GMRCIF" | IN+1!, IN+11*, IN+18*, IN+20*, IN+26*, IN+30*, IN+35, IN+38, IN+39, IN+47 , IN+51, IN+52, IN+53, IN+54, IN+55, IN+56, IN+57, IN+58, IN+59, IN+60 , IN+61, IN+62, IN+63, IN+64, IN+65, EX+4, EX+8, EX+9!, ORRIN+1!, ORRIN+4* , ORRIN+6, ORRIN+8, ORRIN+9, ORRIN+16, ORRIN+21, ORRIN+26, ORRIN+28, ORRIN+48, ORRIN+50, ORRIN+52 , ORRIN+64, ORRIN+66! |
| Name | Field # of Occurrence |
|---|---|
| ^("ORC" | ORRIN+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| FDA | IN+42~, ORRIN+7~, ORRIN+27~, ORRIN+49~ |
| FDA(1 | IN+43*, IN+44*, ORRIN+17*, ORRIN+21*, ORRIN+36*, ORRIN+37*, ORRIN+53*, ORRIN+54* |
| GMRCACT | ORRIN+27~, ORRIN+41*, ORRIN+42*, ORRIN+43, ORRIN+44, ORRIN+46 |
| GMRCCRNR | IN+2~, IN+4*, IN+6*, IN+11, IN+35, IN+47, IN+48, IN+49, IN+56, IN+58 , IN+61, IN+63, IN+64, IN+65, EX+4, VALMSG~, VALMSG+26, VALMSG+27 |
| GMRCDA | IN+37~, IN+38*, IN+40, IN+43, IN+44, ORRIN+7~, ORRIN+9*, ORRIN+13, ORRIN+17, ORRIN+21 , ORRIN+27~, ORRIN+33*, ORRIN+34, ORRIN+40, ORRIN+42, ORRIN+44, ORRIN+46 |
| GMRCE | ORRIN+49~, ORRIN+52*, ORRIN+53, ORRIN+54, ORRIN+56, ORRIN+57 |
| GMRCEHRM | EX+7~, EX+8*, EX+11 |
| GMRCERR | IN+42~, ORRIN+49~ |
| GMRCFDA | VALMSG+7~, VALMSG+10*, VALMSG+18, VALMSG+21, VALMSG+22, VALMSG+23 |
| GMRCFIN | IN+37~, IN+39*, IN+44 |
| GMRCFNUM | ORRIN+7~, ORRIN+16*, ORRIN+17 |
| GMRCFRM | IN+3~, IN+11* |
| GMRCFSIT | VALMSG+7~, VALMSG+11*, VALMSG+13, VALMSG+19 |
| GMRCI | IN+3~, SETTCH+1~, SETTCH+2*, SETTCH2+1~, SETTCH2+2* |
| GMRCIER | IN+2~ |
| GMRCLOG | ORRIN+27~, ORRIN+44*, ORRIN+45 |
| GMRCMSG | VALMSG~, VALMSG+27 |
| GMRCMSGD | IN+2~, IN+8*, IN+9 |
| GMRCMSGI | IN+2~, IN+4*, IN+9*, IN+49, IN+56, IN+58, IN+61, IN+63, IN+64, IN+65 |
| GMRCOBR4 | EHRMCHK+1~, EHRMCHK+4*, EHRMCHK+9, EHRMCHK+11, EHRMCHK+13 |
| GMRCOK | VALMSG+7~, VALMSG+14*, VALMSG+15*, VALMSG+17*, VALMSG+18*, VALMSG+19*, VALMSG+21*, VALMSG+22*, VALMSG+23*, VALMSG+24 , VALMSG+29 |
| GMRCORC | EHRMCHK+1~, VALMSG~, VALMSG+6, VALMSG+8, VALMSG+9, VALMSG+10, VALMSG+11 |
| GMRCORC2 | EHRMCHK+1~, EHRMCHK+2*, EHRMCHK+9, EHRMCHK+11, EHRMCHK+13 |
| GMRCORC3 | EHRMCHK+1~, EHRMCHK+3*, EHRMCHK+11, EHRMCHK+13 |
| GMRCORC5 | EHRMCHK+1~ |
| GMRCORDN | IN+37~, IN+38*, IN+43 |
| GMRCPDA | VALMSG+7~, VALMSG+8*, VALMSG+17, VALMSG+18, VALMSG+19, VALMSG+22 |
| GMRCPSIT | VALMSG+7~, VALMSG+9*, VALMSG+12, VALMSG+23 |
| GMRCROL | VALMSG+7~, VALMSG+12*, VALMSG+13*, VALMSG+15*, VALMSG+16, VALMSG+20 |
| GMRCROUT | ORRIN+7~, ORRIN+8* |
| GMRCRSLT | VALMSG+25~, VALMSG+28 |
| GMRCSTAT | EHRMCHK+1~, EHRMCHK+5*, EHRMCHK+6*, EHRMCHK+7, EHRMCHK+9, EHRMCHK+11, EHRMCHK+13 |
| GMRCVALM | IN+2~, IN+47*, IN+48, IN+49 |
| >> HL("EID" | VALMSG+28 |
| >> HL("EIDS" | VALMSG+28 |
| >> HL("MID" | VALMSG+26, VALMSG+27 |
| >> HLMTIENS | VALMSG+28 |
| >> HLNEXT | IN+5, EX+12, ORRIN+3 |
| HLNODE | IN+2~, IN+6, IN+7, IN+8, IN+9, IN+10, IN+11, IN+12, IN+14, IN+16 , IN+18, IN+20, IN+21, IN+24, IN+26, IN+29, IN+30, ORRIN+2~, ORRIN+4 |
| >> HLQUIT | IN+5, EX+12, ORRIN+3 |
| I | IN+2~, IN+5*, ORRIN+2~, ORRIN+3* |
| MSGID | ORRIN+27~, ORRIN+28*, ORRIN+29, ORRIN+49~, ORRIN+50*, ORRIN+51 |
| MSGLOG | ORRIN+27~, ORRIN+29*, ORRIN+33, ORRIN+34, ORRIN+36, ORRIN+37, ORRIN+41, ORRIN+49~, ORRIN+51*, ORRIN+53 , ORRIN+54, ORRIN+59, ORRIN+60 |
| OBRSEG | EHRMCHK~, EHRMCHK+4 |
| ORCSEG | EHRMCHK~, EHRMCHK+2, EHRMCHK+3, EHRMCHK+5, EHRMCHK+6 |
| PTACCTNO | ORRIN+2~, ORRIN+21* |
| SEG | IN+2~, ORRIN+2~ |
| TCH | IN+3~, IN+17, IN+25 |
| TCH( | SETTCH+2*, SETTCH2+2* |
| TEXTIN | IN+3~, IN+16*, IN+17, IN+24*, IN+25 |
| TEXTOUT | IN+3~, IN+16*, IN+17, IN+18, IN+24*, IN+25, IN+26 |
| TEXTRM | IN+3~, IN+16*, IN+17, IN+18, IN+24*, IN+25 |
| U | IN+11, IN+38, IN+40, IN+62, ORRIN+8, ORRIN+13, ORRIN+33, ORRIN+41, ORRIN+45, VALMSG+9 , VALMSG+11, VALMSG+18, VALMSG+19, VALMSG+22, VALMSG+23 |