Routine: SCMCHLS

Information

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

Package	Total	Caller Graph
Scheduling	3	SCMCHL SCMCHLB1 SCMCHLB2

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

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