PSXDODH1 ;BIR/HTW-HL7 Message Conversion ;01/15/02 13:10:52
Source file <PSXDODH1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TESTBT | ;test the sequence of the messages in the batch
; stored in ^tmp($j,"PSXDOD","MSG0",I) |
|
| CHECK | ;patient safety check
|
|
| HEADER | ; read FHS,BHS,ORC assemble $$XMIT,NTE|1 called from PSXDODH
|
|
| BLDSEQ | ;build check sequence of SEGMENTS
|
|
| SEGBLD | ; data for checking sequence of segments. ZR1 needs special handling.
|
|
| PIECE(REC,DLM,XX) | ;
; Set VAR = piece I of REC using delimiter DLM |
|
| PUT(REC,DLM,XX) | ;
; Set VAR into piece I of REC using delimiter DLM |
|
| GETELM(STR,PIECES,SEPS) | ;
; uses STRing and ; returns value of the element located by path of pieces and seperators ; ex: PIECES "3,2,1" SEPS "|,^,&" |
|
| SETELM(STR,PIECES,SEPS,VALUE) | ||
| STRBLD(STR0,SEPS) | ;
; default separators for all segments, fields, components are | ^ & ; other separators can be passed in SEPS ex: "|,^,&" or "|,\F\,\S\" ; or placed within the field and segment nodes STR0( , , ..,"S")= separator ; ex: for NTE|1 of HL7 2.1 ; segment NTE|1 STR0("S")="|" ; facility field STR0(4,"S")="\F\" ; address component STR0(4,2,"S")="\S\" |
|
| L1 | ||
| L2 | ||
| L3 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
