GMRCISG1 ;SLC/JFR - BUILD IFC HL7 SEGMENTS CONT'D ;03/24/14 13:27
Source file <GMRCISG1.m>
| 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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ORCRESP(GMRCO,GMRCOC,GMRCOS) | ;build ORC for app ACK msgs
; Input: ; GMRCO = ien from file 123 of entry responding to ; GMRCOC = order control to put into segment ; GMRCOS = HL7 encoded order status to put in message |
|
| NWORC(GMRCO) | ; build ORC seg for a new order
; Input: ; GMRCO = ien from file 123 of order to send remotely |
|
| OBXPD(GMRCO) | ; create OBX segment for the prov. dx
; Input: ; GMRCO = ien from file 123 of order to send remotely |
|
| OBR(GMRCO,GMRCACT) | ; build an OBR seg for new order or resubmit
; Input: ; GMRCO = ien from file 123 ; GMRCACT = ien from 40 multiple of action (only on resubmit or fwd) |
|
| ORCTST() | ;build ORC for testing imp.
|
|
| OBRTST(GMRCOI,GMRCTYP) | ; build OBR seg for testing imp.
; Input: ; GMRCOI = ien from file 123.5 or 123.3 ; GMRCTYP = "P" or "C" (procedure or consult service) |
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | NWORC+19, NWORC+20 |
| $$CNVTD^GMRCIEVT | NWORC+12 |
| $$BUILD^GMRCISEG | ORCRESP+15, NWORC+30, OBXPD+12, OBXPD+20, OBR+46, ORCTST+12, OBRTST+20 |
| $$CODEOI^GMRCIUTL | OBR+38 |
| $$HLNAME^GMRCIUTL | NWORC+17, NWORC+18, OBR+41, OBR+44 |
| $$URG^GMRCIUTL | NWORC+15 |
| $$HLPHONE^HLFNC | NWORC+21 |
| $$SITE^VASITE | NWORC+28 |
| $$FMTHL7^XLFDT | NWORC+14, NWORC+16, NWORC+22, OBXPD+18, OBR+40, OBR+43, ORCTST+9 |
| $$NOW^XLFDT | ORCTST+9 |
| $$STA^XUAF4 | ORCRESP+11, ORCRESP+12, ORCRESP+14, NWORC+9, NWORC+13, OBR+12, OBR+15, OBR+18, OBR+20, OBR+24 , OBR+32, ORCTST+8, OBRTST+9 |
| $$KSP^XUPARAM | ORCRESP+12, ORCRESP+14, NWORC+9, OBR+12, OBR+20, OBR+24, OBR+32, ORCTST+8, OBRTST+9 |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMR(123 - [#123] | ORCRESP+11, NWORC+13, NWORC+14, NWORC+16, NWORC+17, NWORC+18, NWORC+19, NWORC+20, NWORC+22, NWORC+23 , NWORC+25, OBXPD+7, OBXPD+9, OBXPD+12, OBXPD+14, OBXPD+15, OBXPD+18, OBXPD+19, OBR+10, OBR+15 , OBR+18, OBR+21, OBR+25, OBR+26, OBR+29, OBR+33, OBR+40, OBR+41, OBR+43, OBR+44 , OBR+45 |
| ^GMR(123.3 - [#123.3] | OBRTST+18 |
| ^GMR(123.5 - [#123.5] | OBR+27, OBR+35, OBRTST+14 |
| Name | Field # of Occurrence |
|---|---|
| ^( | NWORC+25 |
| ^(0 | ORCRESP+11, OBR+15, OBR+18 |
| ^(30 | OBXPD+17 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACTV | NWORC+24~, NWORC+25*, NWORC+26 |
| GMRCACT | OBR~, OBR+13, OBR+21, OBR+26, OBR+29, OBR+33, OBR+39, OBR+40, OBR+41, OBR+42 |
| GMRCCODE | OBXPD+8~, OBXPD+14*, OBXPD+17 |
| GMRCO | ORCRESP~, ORCRESP+11, ORCRESP+12, NWORC~, NWORC+9, NWORC+12, NWORC+13, NWORC+14, NWORC+15, NWORC+16 , NWORC+17, NWORC+18, NWORC+19, NWORC+20, NWORC+22, NWORC+23, NWORC+25, OBXPD~, OBXPD+7, OBXPD+9 , OBXPD+12, OBXPD+14, OBXPD+15, OBXPD+18, OBXPD+19, OBR~, OBR+10, OBR+12, OBR+15, OBR+18 , OBR+20, OBR+21, OBR+25, OBR+26, OBR+29, OBR+33, OBR+38, OBR+40, OBR+41, OBR+43 , OBR+44, OBR+45 |
| GMRCOC | ORCRESP~, ORCRESP+10 |
| GMRCOI | OBRTST~, OBRTST+14, OBRTST+15, OBRTST+18, OBRTST+19 |
| GMRCOS | ORCRESP~, ORCRESP+13 |
| GMRCPAG | NWORC+7~, NWORC+20*, NWORC+21 |
| GMRCPCS | ORCRESP+9~, ORCRESP+15, NWORC+7~, NWORC+30, OBXPD+8~, OBXPD+12, OBXPD+20, OBR+8~, OBR+46, ORCTST+6~ , ORCTST+12, OBRTST+8~, OBRTST+20 |
| GMRCPCS(1 | ORCRESP+10*, NWORC+8*, OBXPD+9*, OBR+9*, ORCTST+7*, OBRTST+10* |
| GMRCPCS(10 | NWORC+17*, ORCTST+10* |
| GMRCPCS(11 | OBXPD+11* |
| GMRCPCS(12 | NWORC+18* |
| GMRCPCS(14 | NWORC+21*, OBXPD+18* |
| GMRCPCS(15 | NWORC+22* |
| GMRCPCS(16 | NWORC+27*, OBR+41*, OBR+44*, ORCTST+11* |
| GMRCPCS(17 | ORCRESP+14*, NWORC+29* |
| GMRCPCS(18 | OBR+45* |
| GMRCPCS(2 | ORCRESP+11*, NWORC+9*, OBXPD+9*, OBR+12*, OBR+18*, OBR+19*, ORCTST+8*, OBRTST+11* |
| GMRCPCS(3 | ORCRESP+12*, NWORC+13*, OBXPD+10*, OBR+15*, OBR+16*, OBR+20* |
| GMRCPCS(4 | OBXPD+10*, OBR+28*, OBR+36*, OBR+37, OBR+38*, OBRTST+15*, OBRTST+19* |
| GMRCPCS(5 | ORCRESP+13*, OBXPD+17*, OBXPD+19* |
| GMRCPCS(6 | OBR+40*, OBR+43* |
| GMRCPCS(7 | NWORC+14*, NWORC+15* |
| GMRCPCS(9 | NWORC+16*, ORCTST+9* |
| GMRCPHN | NWORC+7~, NWORC+19*, NWORC+21 |
| GMRCROL | OBR+8~, OBR+10*, OBR+11, OBR+14, OBR+17, OBR+25, OBR+26 |
| GMRCRP | ORCTST+6~ |
| GMRCSYS | OBXPD+8~, OBXPD+15*, OBXPD+17 |
| GMRCTYP | OBRTST~, OBRTST+12, OBRTST+16 |
| I | NWORC+24~*, NWORC+25* |
| PROC | OBRTST+17~, OBRTST+18*, OBRTST+19 |
| SERV | OBR+23~, OBR+25*, OBR+26*, OBR+27, OBR+28, OBR+31~, OBR+33*, OBR+34, OBR+35, OBR+36 , OBRTST+13~, OBRTST+14*, OBRTST+15 |
| SERVNM | OBR+23~, OBR+27*, OBR+28, OBR+31~, OBR+35*, OBR+36 |
| SITE | ORCRESP+9~, NWORC+7~, NWORC+28*, NWORC+29, OBR+23~, OBR+24*, OBR+28, OBR+31~, OBR+32*, OBR+36 , ORCTST+6~, OBRTST+8~, OBRTST+9*, OBRTST+11, OBRTST+15, OBRTST+19 |
| U | ORCRESP+11, ORCRESP+12, NWORC+9, NWORC+13, NWORC+14, NWORC+15, NWORC+17, NWORC+18, NWORC+19, NWORC+20 , NWORC+22, NWORC+25, NWORC+29, OBXPD+14, OBXPD+15, OBXPD+17, OBXPD+18, OBXPD+19, OBR+10, OBR+12 , OBR+15, OBR+16, OBR+18, OBR+19, OBR+20, OBR+21, OBR+25, OBR+26, OBR+27, OBR+28 , OBR+29, OBR+33, OBR+35, OBR+36, OBR+40, OBR+41, OBR+43, OBR+44, OBR+45, ORCTST+8 , OBRTST+11, OBRTST+14, OBRTST+15, OBRTST+18, OBRTST+19 |
