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 |
