RMPRHL7A ;HINES CIOFO/HNC - Receive HL-7 CPRS Message, parse into components and store in File 668 ;3/13/00
Source file <RMPRHL7A.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
URG(X) | ;Return Urgency give Z-code from HL-7 segment; see ORC+9
|
|
ORC(RMPRORC) | ;Get fields from ORC segment and set into RMPR variables
|
|
OBR(RMPROBR) | ;Get fields from OBR segment and set into RMPR variables
|
|
DG1(RMPRDG1) | ;Get fields from DG1 and ZCL segments
; RMPRSID = Set ID ; RMPRDIAG = pointer to ICD DIAGNOSIS (#80) ; RMPRCI = Outpat. Classification Type ; RMPRVAL = Value of each SC or EI - 0,1,Null. |
|
ZSV(RMPRZSV) | ;Get service from ZSV segment
|
|
OBX(RMPROBX) | ;Get fields from OBX segment and set into RMPR variables
|
|
EN(MSG) | ;Entry point from protocol RMPR RECEIVE
|
|
RTN(RMPRORN,RMPRO) | ;Put ^OR(100, ien for order into ^RMPR(668,
|
FileNo | Call Tags |
---|---|
^RMPR(668 - [#668] | Classic Fileman Calls |