GMRCISG1 ;SLC/JFR - BUILD IFC HL7 SEGMENTS CONT'D ;03/24/14 13:27
Source file <GMRCISG1.m>
| 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) |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
