©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
GMRCISG1 ;SLC/JFR - BUILD IFC HL7 SEGMENTS CONT'D ;10/31/01 09:00
Source file <GMRCISG1.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 3 | ($$FMTHL7,$$NOW)^XLFDT $$STA^XUAF4 $$KSP^XUPARAM |
| Consult Request Tracking | 2 | $$BUILD^GMRCISEG ($$CODEOI,$$HLNAME,$$URG)^GMRCIUTL |
| Health Level Seven | 1 | $$HLPHONE^HLFNC |
| Registration | 1 | $$SITE^VASITE |
| VA Fileman | 1 | $$GET1^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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) |
|
| OBXPD(GMRCO) | ; create OBX segment for the prov. dx
; Input: ; GMRCO = ien from file 123 of order to send remotely |
|
| 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 ; ; Output: ; ORC segment to use in response message |
|
| NWORC(GMRCO) | ; build ORC seg for a new order
; Input: ; GMRCO = ien from file 123 of order to send remotely |
|
| 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) |
|
| ORCTST() | ;build ORC for testing imp.
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | NWORC+14, NWORC+15 |
| $$BUILD^GMRCISEG | ORCRESP+15, NWORC+25, OBXPD+12, OBXPD+16, OBR+46, ORCTST+12, OBRTST+20 |
| $$CODEOI^GMRCIUTL | OBR+38 |
| $$HLNAME^GMRCIUTL | NWORC+12, NWORC+13, OBR+41, OBR+44 |
| $$URG^GMRCIUTL | NWORC+10 |
| $$HLPHONE^HLFNC | NWORC+16 |
| $$SITE^VASITE | NWORC+23 |
| $$FMTHL7^XLFDT | NWORC+11, NWORC+17, OBR+40, OBR+43, ORCTST+9 |
| $$NOW^XLFDT | ORCTST+9 |
| $$STA^XUAF4 | ORCRESP+11, ORCRESP+12, ORCRESP+14, NWORC+9, 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+11, NWORC+12, NWORC+13, NWORC+14, NWORC+15, NWORC+17, NWORC+18, NWORC+20, OBXPD+7 , OBXPD+9, OBXPD+12, OBXPD+14, OBXPD+15, 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+20 |
| ^(0 | ORCRESP+11, OBR+15, OBR+18 |
| ^(30 | OBXPD+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACTV | NWORC+19~, NWORC+20*, NWORC+21 |
| GMRCACT | OBR~, OBR+13, OBR+21, OBR+26, OBR+29, OBR+33, OBR+39, OBR+40, OBR+41, OBR+42 |
| GMRCO | ORCRESP~, ORCRESP+11, ORCRESP+12, NWORC~, NWORC+9, NWORC+10, NWORC+11, NWORC+12, NWORC+13, NWORC+14 , NWORC+15, NWORC+17, NWORC+18, NWORC+20, OBXPD~, OBXPD+7, OBXPD+9, OBXPD+12, OBXPD+14, OBXPD+15 , 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+15*, NWORC+16 |
| GMRCPCS | ORCRESP+9~, ORCRESP+15, NWORC+7~, NWORC+25, OBXPD+8~, OBXPD+12, OBXPD+16, 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+12*, ORCTST+10* |
| GMRCPCS(11 | OBXPD+11* |
| GMRCPCS(12 | NWORC+13* |
| GMRCPCS(14 | NWORC+16* |
| GMRCPCS(15 | NWORC+17* |
| GMRCPCS(16 | NWORC+22*, OBR+41*, OBR+44*, ORCTST+11* |
| GMRCPCS(17 | ORCRESP+14*, NWORC+24* |
| 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*, 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+14*, OBXPD+15* |
| GMRCPCS(6 | OBR+40*, OBR+43* |
| GMRCPCS(7 | NWORC+10* |
| GMRCPCS(9 | NWORC+11*, ORCTST+9* |
| GMRCPHN | NWORC+7~, NWORC+14*, NWORC+16 |
| GMRCROL | OBR+8~, OBR+10*, OBR+11, OBR+14, OBR+17, OBR+25, OBR+26 |
| GMRCRP | ORCTST+6~ |
| GMRCTYP | OBRTST~, OBRTST+12, OBRTST+16 |
| I | NWORC+19~*, NWORC+20* |
| 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+23*, NWORC+24, 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+10, NWORC+12, NWORC+13, NWORC+14, NWORC+15, NWORC+17, NWORC+20 , NWORC+24, OBXPD+14, OBXPD+15, 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 |