MAGDHW0 ;WOIFO/PMK - Capture Consult/Request data ; 28 Mar 2006 9:07 AM
Source file <MAGDHW0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INIT | ;
; simulate call to INT^HLFNC2 |
|
| FINDSEG(ARRAY,SEGMENT,I,X) | ; find a specific HL7 segment in an array
; input -- ARRAY ---- an HL7 array ; input -- SEGMENT -- three-letter HL7 segment identifier ; input -- I -------- index of the found segment (or null) ; output - I -------- index of the found segment (or null) ; output - X -------- string of fields sans segment identifier ; return - HIT ------ flag indicating segment found |
|
| SAVESEG(I,X) | ; save updated segment
|
|
| ADDSEG(X) | ; add a new segment to the end if the message
|
|
| OUTPUT | ; output the message to ^MAGDHL7
|
| FileNo | Call Tags |
|---|---|
| ^MAGDHL7(2006.5 - [#2006.5] | Classic Fileman Calls |
