GMRCISEG ;SLC/JFR - CREATE IFC HL7 SEGMENTS ; Jan 27, 2025@06:03:57
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 |
