Changeset 623 for WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SCMCHLS.m

Timestamp:

Dec 4, 2009, 12:11:15 AM (14 years ago)

Author:

George Lilly

Message:

revised back to 6/30/08 version

File:

• WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SCMCHLS.m (modified) (1 diff)

WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SCMCHLS.m

@@ -1 @@
-SCMCHLS ;BPOI/DJB - PCMM HL7 Segment Utils;12/13/99
-        ;;5.3;Scheduling;**177,210,212,293,515,524**;08/13/93;Build 29
-        ;
-        ;Ref rtn: SCDXMSG1
-        ;
-        ;--> Build HL7 segments
-BLDEVN  ;Build EVN segment
-        S VAFEVN=$$EN^VAFHLEVN(EVNTHL7,EVNTDATE,VAFSTR,HL("Q"),HL("FS"))
-        Q
-BLDPID  ;Build PID segment
-        ;S VAFPID=$$EN^VAFHLPID(DFN,VAFSTR)
-        S VAFPID=$$EN^VAFCPID(DFN,VAFSTR) ;Use CIRN version
-        D SETMAR^SCMSVUT0(.VAFPID,HL("Q"),HL("FS"))
-        Q
-BLDZPC  ;Build ZPC segment
-        ;djb/bp Patch 210. Sequentially number multiple ZPC segments.
-        ;new code begin
-        S SCSEQ=$G(SCSEQ)+1 ;Increment ZPC sequence number.
-        ; S VAFZPC=$$ZPC^SCMCHLZ("",ID,DATA,SCSEQ)
-        S VAFZPC=$$ZPC^SCMCHLZ("",.ID,.DATA,SCSEQ)
-        ;new code end
-        ;old code begin
-        ;S VAFZPC=$$ZPC^SCMCHLZ("",ID,DATA)
-        ;old code end
-        Q
-        ;
-        ;--> Copy HL7 segments into HL7 message
-CPYEVN  ;Copy EVN segment
-        ;Add 1 as 3rd subscript so number of subscripts matches ZPC segment
-        M @XMITARRY@(SUB,SEGNAME,1)=VAFEVN
-        Q
-CPYPID  ;Copy PID segment
-        ;Add 1 as 3rd subscript so number of subscripts matches ZPC segment
-        M @XMITARRY@(SUB,SEGNAME,1)=VAFPID
-        Q
-CPYZPC  ;Copy ZPC segment
-        ; PATCH 515 DLL USE ORIG TRIG 
-        ; old code = M @XMITARRY@($P(ID,"-",1),"ZPC",ID)=VAFZPC
-        M @XMITARRY@(SUB,"ZPC",ID)=VAFZPC  ; og/sd/524
-        Q
-        ;
-        ;--> Delete HL7 segment variables
-DELEVN  ;Delete EVN variable
-        KILL VAFEVN
-        Q
-DELPID  ;Delete PID variable
-        KILL VAFPID
-        Q
-DELZPC  ;Delete ZPC variable
-        KILL VAFZPC
-        Q
-        ;
-SEGMENTS(EVNTTYPE,SEGARRY)      ;Build list of HL7 segments for a given event type
-        ;
-        ; Input: EVNTTYPE - Event type to build list for A08 & A23 are the
-        ;                   only types currently supported.
-        ;                   Default=A08
-        ;         SEGARRY - Array to place output in (full global reference)
-        ;                   Defaul=^TMP("SCMC SEGMENTS",$J)
-        ;Output: SEGARRY(Seq,Name)=Fields
-        ;             Seq - Sequence number to order segments as they should
-        ;                   be placed in the HL7 message.
-        ;            Name - Name of HL7 segment.
-        ;          Fields - List of fields used by PCMM. VAFSTR would be set
-        ;                   to this value.
-        ;  Note: MSH segment is not included
-        ;
-        ;Check input
-        S EVNTTYPE=$G(EVNTTYPE)
-        S:(EVNTTYPE'="A23") EVNTTYPE="A08"
-        S SEGARRY=$G(SEGARRY)
-        S:(SEGARRY="") SEGARRY="^TMP(""SCMC SEGMENTS"","_$J_")"
-        ;
-        ;Segments used by A08
-        S @SEGARRY@(1,"EVN")="1,2"
-        S @SEGARRY@(2,"PID")="1,2,3,4,5,6,7,8,10N,11,12,13,14,16,17,19,22"
-        S @SEGARRY@(3,"ZPC")="1,2,3,4,5,6,8" ;bp/ar and alb/rpm Patch 212
-        Q
-        ;
-UNWIND(XMITARRY,INSRTPNT)       ;Remove all data that was put into transmit array.
-        ;
-        ; Input: XMITARRY - Array containing HL7 message (full global ref).
-        ;                   Default=^TMP("HLS",$J).
-        ;        INSRTPNT - Where to begin deletion from.
-        ;                   Default=1
-        ;Output: None
-        ;
-        ;Check input
-        S:$G(XMITARRY)="" XMITARRY="^TMP(""HLS"","_$J_")"
-        S:$G(INSRTPNT)="" INSRTPNT=1
-        ;
-        ;Remove insertion point from array
-        KILL @XMITARRY@(INSRTPNT)
-        ;Remove everything from insertion point to end of array
-        F  S INSRTPNT=$O(@XMITARRY@(INSRTPNT)) Q:INSRTPNT=""  KILL @XMITARRY@(INSRTPNT)
-        ;Done
-        Q
-COUNT(VALER)    ;counts the number of errored encounters found.
-        ;
-        ; Input: VALER - Array containing error messages.
-        ;Output: Number of errors
-        ;
-        NEW VAR,CNT
-        S CNT=0
-        S VAR=""
-        F  S VAR=$O(@VALER@(VAR)) Q:VAR']""  S CNT=CNT+1
-        Q CNT
+SCMCHLS ;BP/DJB - PCMM HL7 Segment Utils ; 12/13/99 12:40pm
+ ;;5.3;Scheduling;**177,210,212,293,515**;AUG 13, 1993;Build 14
+ ;
+ ;Ref rtn: SCDXMSG1
+ ;
+ ;--> Build HL7 segments
+BLDEVN ;Build EVN segment
+ S VAFEVN=$$EN^VAFHLEVN(EVNTHL7,EVNTDATE,VAFSTR,HL("Q"),HL("FS"))
+ Q
+BLDPID ;Build PID segment
+ ;S VAFPID=$$EN^VAFHLPID(DFN,VAFSTR)
+ S VAFPID=$$EN^VAFCPID(DFN,VAFSTR) ;Use CIRN version
+ D SETMAR^SCMSVUT0(.VAFPID,HL("Q"),HL("FS"))
+ Q
+BLDZPC ;Build ZPC segment
+ ;djb/bp Patch 210. Sequentially number multiple ZPC segments.
+ ;new code begin
+ S SCSEQ=$G(SCSEQ)+1 ;Increment ZPC sequence number.
+ ; S VAFZPC=$$ZPC^SCMCHLZ("",ID,DATA,SCSEQ)
+ S VAFZPC=$$ZPC^SCMCHLZ("",.ID,.DATA,SCSEQ)
+ ;new code end
+ ;old code begin
+ ;S VAFZPC=$$ZPC^SCMCHLZ("",ID,DATA)
+ ;old code end
+ Q
+ ;
+ ;--> Copy HL7 segments into HL7 message
+CPYEVN ;Copy EVN segment
+ ;Add 1 as 3rd subscript so number of subscripts matches ZPC segment
+ M @XMITARRY@(SUB,SEGNAME,1)=VAFEVN
+ Q
+CPYPID ;Copy PID segment
+ ;Add 1 as 3rd subscript so number of subscripts matches ZPC segment
+ M @XMITARRY@(SUB,SEGNAME,1)=VAFPID
+ Q
+CPYZPC ;Copy ZPC segment
+ ; PATCH 515 DLL USE ORIG TRIG 
+ ; old code = M @XMITARRY@($P(ID,"-",1),"ZPC",ID)=VAFZPC
+ M @XMITARRY@(NUM,"ZPC",ID)=VAFZPC
+ Q
+ ;
+ ;--> Delete HL7 segment variables
+DELEVN ;Delete EVN variable
+ KILL VAFEVN
+ Q
+DELPID ;Delete PID variable
+ KILL VAFPID
+ Q
+DELZPC ;Delete ZPC variable
+ KILL VAFZPC
+ Q
+ ;
+SEGMENTS(EVNTTYPE,SEGARRY) ;Build list of HL7 segments for a given event type
+ ;
+ ; Input: EVNTTYPE - Event type to build list for A08 & A23 are the
+ ;                   only types currently supported.
+ ;                   Default=A08
+ ;         SEGARRY - Array to place output in (full global reference)
+ ;                   Defaul=^TMP("SCMC SEGMENTS",$J)
+ ;Output: SEGARRY(Seq,Name)=Fields
+ ;             Seq - Sequence number to order segments as they should
+ ;                   be placed in the HL7 message.
+ ;            Name - Name of HL7 segment.
+ ;          Fields - List of fields used by PCMM. VAFSTR would be set
+ ;                   to this value.
+ ;  Note: MSH segment is not included
+ ;
+ ;Check input
+ S EVNTTYPE=$G(EVNTTYPE)
+ S:(EVNTTYPE'="A23") EVNTTYPE="A08"
+ S SEGARRY=$G(SEGARRY)
+ S:(SEGARRY="") SEGARRY="^TMP(""SCMC SEGMENTS"","_$J_")"
+ ;
+ ;Segments used by A08
+ S @SEGARRY@(1,"EVN")="1,2"
+ S @SEGARRY@(2,"PID")="1,2,3,4,5,6,7,8,10N,11,12,13,14,16,17,19,22"
+ S @SEGARRY@(3,"ZPC")="1,2,3,4,5,6,8" ;bp/ar and alb/rpm Patch 212
+ Q
+ ;
+UNWIND(XMITARRY,INSRTPNT) ;Remove all data that was put into transmit array.
+ ;
+ ; Input: XMITARRY - Array containing HL7 message (full global ref).
+ ;                   Default=^TMP("HLS",$J).
+ ;        INSRTPNT - Where to begin deletion from.
+ ;                   Default=1
+ ;Output: None
+ ;
+ ;Check input
+ S:$G(XMITARRY)="" XMITARRY="^TMP(""HLS"","_$J_")"
+ S:$G(INSRTPNT)="" INSRTPNT=1
+ ;
+ ;Remove insertion point from array
+ KILL @XMITARRY@(INSRTPNT)
+ ;Remove everything from insertion point to end of array
+ F  S INSRTPNT=$O(@XMITARRY@(INSRTPNT)) Q:INSRTPNT=""  KILL @XMITARRY@(INSRTPNT)
+ ;Done
+ Q
+COUNT(VALER) ;counts the number of errored encounters found.
+ ;
+ ; Input: VALER - Array containing error messages.
+ ;Output: Number of errors
+ ;
+ NEW VAR,CNT
+ S CNT=0
+ S VAR=""
+ F  S VAR=$O(@VALER@(VAR)) Q:VAR']""  S CNT=CNT+1
+ Q CNT