SCMCHLS ;BPOI/DJB - PCMM HL7 Segment Utils;12/13/99
Source file <SCMCHLS.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BLDEVN | ;Build EVN segment
|
|
| BLDPID | ;Build PID segment
|
|
| BLDZPC | ;Build ZPC segment
|
|
| CPYEVN | ;Copy EVN segment
|
|
| CPYPID | ;Copy PID segment
|
|
| CPYZPC | ;Copy ZPC segment
; PATCH 515 DLL USE ORIG TRIG ; old code = M @XMITARRY@($P(ID,"-",1),"ZPC",ID)=VAFZPC |
|
| DELEVN | ;Delete EVN variable
|
|
| DELPID | ;Delete PID variable
|
|
| DELZPC | ;Delete ZPC variable
|
|
| SEGMENTS(EVNTTYPE,SEGARRY) | ;Build list of HL7 segments for a given event type
|
|
| UNWIND(XMITARRY,INSRTPNT) | ;Remove all data that was put into transmit array.
|
|
| COUNT(VALER) | ;counts the number of errored encounters found.
|
