GMRCHL7U ;SLC/DCM,MA - Utilities assoc. with HL7 messages ; 12/1/20 4:51pm
Source file <GMRCHL7U.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INIT(MSH) | ;break out MSH segment separators and set other needed variables
|
|
| PID(GMRCPID) | ;Get fields from PID segment and set into GMRC variables.
|
|
| NTE(MSG,GMRCNTE,GMRCNODE,CTRLCODE) | ;set NTE segments of HL-7 message into variables and globals
|
|
| PV1(GMRCPV1) | ;Get fields from PV1 segment of HL-7 message and set into GMRC variables
|
|
| REJECT(GMRCMSG,REAS) | ;action can't be filed send reject message
|
|
| RETURN(GMRCIEN,GMRCTRLC) | ;return IEN of record in ^GMR(123,IEN, to OERR
|
|
| FILE(GMRCO,DR) | ;File data into ^GMR(123,IEN,40 using ^DIE
|
|
| EXIT | ;Kill variables and exit
|
|
| AUDIT0 | ;place activity audit tracking info into global ^GMR(123,IEN,40,
|
|
| ALERT(GMRCDFN,GMRCSS,GMRCPR,GMRCFN,GMRCURG,GMRCORA) | ;generate an alert when receiving a consult
|
|
| CHKTXT(GMRCTXT) | ;Added by GMRC*3*168
|
