SCMCHLS ;BPOI/DJB - PCMM HL7 Segment Utils;12/13/99
Source file <SCMCHLS.m>
Package | Total | Call Graph |
---|---|---|
Registration | 2 | $$EN^VAFCPID $$EN^VAFHLEVN |
Scheduling | 2 | $$ZPC^SCMCHLZ SETMAR^SCMSVUT0 |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Scheduling | 3 | SCMCHL SCMCHLB1 SCMCHLB2 |
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.
|
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CNT | COUNT+5~, COUNT+6*, COUNT+8*, COUNT+9 |
>> DATA | BLDZPC+5 |
>> DFN | BLDPID+2 |
>> EVNTDATE | BLDEVN+1 |
>> EVNTHL7 | BLDEVN+1 |
EVNTTYPE | SEGMENTS~, SEGMENTS+16*, SEGMENTS+17* |
>> HL("FS" | BLDEVN+1, BLDPID+3 |
>> HL("Q" | BLDEVN+1, BLDPID+3 |
>> ID | BLDZPC+5, CPYZPC+3 |
INSRTPNT | UNWIND~, UNWIND+10*, UNWIND+13, UNWIND+15* |
>> SCSEQ | BLDZPC+3*, BLDZPC+5 |
SEGARRY | SEGMENTS~, SEGMENTS+18*, SEGMENTS+19*, SEGMENTS+22, SEGMENTS+23, SEGMENTS+24 |
>> SEGNAME | CPYEVN+2, CPYPID+2 |
>> SUB | CPYEVN+2, CPYPID+2, CPYZPC+3 |
VAFEVN | BLDEVN+1*, CPYEVN+2, DELEVN+1! |
VAFPID | BLDPID+2*, BLDPID+3, CPYPID+2, DELPID+1! |
>> VAFSTR | BLDEVN+1, BLDPID+2 |
VAFZPC | BLDZPC+5*, CPYZPC+3, DELZPC+1! |
VALER | COUNT~, COUNT+8 |
VAR | COUNT+5~, COUNT+7*, COUNT+8* |
XMITARRY | CPYEVN+2, CPYPID+2, CPYZPC+3, UNWIND~, UNWIND+9*, UNWIND+13, UNWIND+15 |