GMRCISEG ;SLC/JFR - CREATE IFC HL7 SEGMENTS ; Jul 23, 2024@10:17:34
Source file <GMRCISEG.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
BUILD(SEG,PCS) | ;create any segment from array in PCS using |^&/~
; SEG = ORC,OBR,etc. ; PCS = array of data elements to be combined into the segement ; array is numbered by the "|" piece |
|
ORC(GMRCO,GMRCOC,GMRCOS,GMRCACT) | ||
OBXWP(GMRCO,GMRCOC,GMRCACT,GMRCSEG) | ; return a WP field in OBX segs
; Input: ; GMRCO = ; GMRCOC = ; GMRCACT = activity in 40 mult triggering msg ; GMRCSEG = GLOBAL array to return results in |
|
OBXRSLT(GMRCO,GMRCACT) | ; build an OBX segment to send a TIU doc reference
; Input: ; GMRCO = ien from file 123 ; GMRCACT = activity entry in 40 multiple |
|
NTE(GMRCO,GMRCACT,GMRCAR) | ;format an NTE seg with DC comment
; Input: ; GMRCO = ien from file 123 ; GMRCACT = activity entry in 40 multiple ; GMRCAR = array in which to pass back NTE segs |
|
MSA(GMRCAC,GMRCMSG,GMRCERR) | ; build MSA for response to placer activity
; Input: ; GMRCAC = acknowledgment code (AA or AR) ; GMRCMSG = message number from incoming msg being responded to ; GMRCERR = error message if can't accept the activity |
|
OBXTZ() | ;build and return an OBX with the current TIME ZONE encoded
|
|
OBXSF(GMRCO) | ; build OBX seg for Sig. Find.
; Input: ; GMRCO = ien from file 123 |
|
OBXPOST | ;build OBX for Post Other or Post Complete Actions
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
^XMB(1 - [#4.3] | GET1^DIQ |