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 |
|