PSXDODH ;BIR/HTW-HL7 Message Conversion ;01/15/02 13:10:52
Source file <PSXDODH.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START | ; Create 2.1 format
|
|
| EN(PATH,FNAME) | ; needs directory & file name
; force an error in the next line |
|
| EN1 | ;
|
|
| EN2 | ;entry for processing file into Vista Messages
|
|
| XMZ | ||
| MSH | ;assemble $$MSG, MSH
|
|
| PID | ;
|
|
| ORC | ;Patient Data from ORC and RXE(2.3.1) parse date pieces for RX1,ZX1
; element mapping contained in document HL7 2.1_2.3 CONVERSION.xls |
|
| RXE | ; Start building RX1. RX1 has data elements from ORC and RXE segments from 3.2.1
|
|
| ZR1 | ;
|
|
| BTS | ; FINISH
|
|
| BUILD | ; assemble RX1 & ZX1
|
|
| SETRX | ;put RX1,ZX1,NTE7 into mail message
|
|
| NTE234 | ; insure 2 3 4 sequence is in place
|
|
| NTE234CK | ; encounter MSH , insure NTE 2,3,4 in place
|
|
| PIECE(REC,DLM,XX) | ;
; Set variable V = piece P of REC using delimiter DLM |
|
| PUT(REC,DLM,XX) | ;
; Set Variable V into piece P of REC using delimiter DLM |
|
| GETELM(STR,PIECES,SEPS) | ;
; uses STRing and ; returns value of the element located by path of pieces and separators ; ex: 1st address line = $$getelm(ORC,"22,1","|,^") ; or = $$getelm(XMIT,"4,2,1","|,\F\,\S|") |
|
| ERRMSG | ;
|
|
| MSGSEQER | ;send error message to folks & DOD
|
|
| EXIT | ;
|
|
| LOADTMP | ; load data into ^TMP
|
|
| CLEARFLS(XX,EXT) | ;
|
|
| LOOP |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^PSX(554 - [#554] | GET1^DIQ |
