VAFCMSG4.m

VAFCMSG4 ;ALB/JRP-MESSAGE BUILDER UTILITIES ;26-MAR-2003

 ;;5.3;Registration;**91,209,149,415,484,508,1015**;Jun 06, 1996;Build 21

 ;

SEGMENTS(EVNTTYPE,SEGARRY) ;Build list of HL7 segments for given event type

 ;

 ;Input  : EVNTTYPE - Event type to build list for (Defaults to A08)

 ;                    Currently supported events:

 ;                      A04, A08, A28

 ;         SEGARRY - Array to place output in (full global reference)

 ;                   (Defaults to ^TMP("VAFC SEGMENTS",$J))

 ;Output : None

 ;           SEGARRY(Seq,Name) = Fields

 ;           SEGARRY(Name,"BLD") = Executable code to build HL7 segment

 ;           SEGARRY(Name,"CPY") = Executable code to copy HL7 segment

 ;                                 into HL7 message

 ;           SEGARRY(Name,"DEL") = Executable code to delete variables

 ;                                 used to build HL7 segment

 ;             Seq - Sequencing number to order the segments as

 ;                   they should be placed in the HL7 message

 ;             Name - Name of HL7 segment

 ;             Fields - List of fields used by segment

 ;                      VAFSTR would be set to this value

 ;Notes  : MSH segment is not included

 ;       : SEGARRY will be KILLed on entry

 ;

 ;Check input

 S EVNTTYPE=$G(EVNTTYPE)

 S:(EVNTTYPE="") EVNTTYPE="A08"

 S SEGARRY=$G(SEGARRY)

 S:(SEGARRY="") SEGARRY="^TMP(""VAFC SEGMENTS"","_$J_")"

 K @SEGARRY

 ;Declare variables

 N X,OK

 ;Check for supported event

 S OK=0

 F X="A04","A08","A28" I X=EVNTTYPE S OK=1 Q

 Q:('OK)

 ;Segments used by A04, A08, A28

 S @SEGARRY@(1,"EVN")="1,2,4"

 S @SEGARRY@("EVN","BLD")="D BLDEVN^VAFCMSG3"

 S @SEGARRY@("EVN","CPY")="D CPYEVN^VAFCMSG3"

 S @SEGARRY@("EVN","DEL")="D DELEVN^VAFCMSG3"

 S @SEGARRY@(2,"PID")=$$COMMANUM^VAFCADT2(1,9)_",10B,11PC,"_$$COMMANUM^VAFCADT2(13,21)_",22B,"_$$COMMANUM^VAFCADT2(23,30)

 S @SEGARRY@("PID","BLD")="D BLDPID^VAFCMSG3"

 S @SEGARRY@("PID","CPY")="D CPYPID^VAFCMSG3"

 S @SEGARRY@("PID","DEL")="D DELPID^VAFCMSG3"

 S @SEGARRY@(3,"PD1")=$$COMMANUM^VAFCADT2(1,12)

 S @SEGARRY@("PD1","BLD")="D BLDPD1^VAFCMSG3"

 S @SEGARRY@("PD1","CPY")="D CPYPD1^VAFCMSG3"

 S @SEGARRY@("PD1","DEL")="D DELPD1^VAFCMSG3"

 S @SEGARRY@(4,"PV1")="2,3,6,7,10,18,44,45,50"

 S @SEGARRY@("PV1","BLD")="D BLDPV1^VAFCMSG3"

 S @SEGARRY@("PV1","CPY")="D CPYPV1^VAFCMSG3"

 S @SEGARRY@("PV1","DEL")="D DELPV1^VAFCMSG3"

 S @SEGARRY@(5,"ROL")="1,2,3,4"

 S @SEGARRY@("ROL","BLD")="D BLDROL^VAFCMSG3"

 S @SEGARRY@("ROL","CPY")="D CPYROL^VAFCMSG3"

 S @SEGARRY@("ROL","DEL")="D DELROL^VAFCMSG3"

 S @SEGARRY@(6,"OBX")=""

 S @SEGARRY@("OBX","BLD")="D BLDOBX^VAFCMSG3"

 S @SEGARRY@("OBX","CPY")="D CPYOBX^VAFCMSG3"

 S @SEGARRY@("OBX","DEL")="D DELOBX^VAFCMSG3"

 S @SEGARRY@(7,"ZPD")=$$COMMANUM^VAFCADT2(1,21)

 S @SEGARRY@("ZPD","BLD")="D BLDZPD^VAFCMSG3"

 S @SEGARRY@("ZPD","CPY")="D CPYZPD^VAFCMSG3"

 S @SEGARRY@("ZPD","DEL")="D DELZPD^VAFCMSG3"

 S @SEGARRY@(8,"ZSP")="1,2,3,4,5"

0 S @SEGARRY@("ZSP","BLD")="D BLDZSP^VAFCMSG3"

 S @SEGARRY@("ZSP","CPY")="D CPYZSP^VAFCMSG3"

 S @SEGARRY@("ZSP","DEL")="D DELZSP^VAFCMSG3"

 S @SEGARRY@(9,"ZEL")=$$COMMANUM^VAFCADT2(1,22)

 S @SEGARRY@("ZEL","BLD")="D BLDZEL^VAFCMSG3"

 S @SEGARRY@("ZEL","CPY")="D CPYZEL^VAFCMSG3"

 S @SEGARRY@("ZEL","DEL")="D DELZEL^VAFCMSG3"

 S @SEGARRY@(10,"ZCT")="1,2,3,4,5,6,7,8,9"

 S @SEGARRY@("ZCT","BLD")="D BLDZCT^VAFCMSG3"

 S @SEGARRY@("ZCT","CPY")="D CPYZCT^VAFCMSG3"

 S @SEGARRY@("ZCT","DEL")="D DELZCT^VAFCMSG3"

 S @SEGARRY@(11,"ZEM")="1,2,3,4,5,6,7,8"

 S @SEGARRY@("ZEM","BLD")="D BLDZEM^VAFCMSG3"

 S @SEGARRY@("ZEM","CPY")="D CPYZEM^VAFCMSG3"

 S @SEGARRY@("ZEM","DEL")="D DELZEM^VAFCMSG3"

 S @SEGARRY@(12,"ZFF")=""

 S @SEGARRY@("ZFF","BLD")="D BLDZFF^VAFCMSG3"

 S @SEGARRY@("ZFF","CPY")="D CPYZFF^VAFCMSG3"

 S @SEGARRY@("ZFF","DEL")="D DELZFF^VAFCMSG3"

 S @SEGARRY@(13,"ZIR")=$$COMMANUM^VAFCADT2(1,13)

 S @SEGARRY@("ZIR","BLD")="D BLDZIR^VAFCMSG3"

 S @SEGARRY@("ZIR","CPY")="D CPYZIR^VAFCMSG3"

 S @SEGARRY@("ZIR","DEL")="D DELZIR^VAFCMSG3"

 S @SEGARRY@(14,"ZEN")=$$COMMANUM^VAFCADT2(1,10)

 S @SEGARRY@("ZEN","BLD")="D BLDZEN^VAFCMSG3"

 S @SEGARRY@("ZEN","CPY")="D CPYZEN^VAFCMSG3"

 S @SEGARRY@("ZEN","DEL")="D DELZEN^VAFCMSG3"

 Q

VAFCMSG4  ;ALB/JRP-MESSAGE BUILDER UTILITIES ;26-MAR-2003

 +1       ;;5.3;Registration;**91,209,149,415,484,508,1015**;Jun 06, 1996;Build 21

 +2       ;

SEGMENTS(EVNTTYPE,SEGARRY) ;Build list of HL7 segments for given event type

 +1       ;

 +2       ;Input  : EVNTTYPE - Event type to build list for (Defaults to A08)

 +3       ;                    Currently supported events:

 +4       ;                      A04, A08, A28

 +5       ;         SEGARRY - Array to place output in (full global reference)

 +6       ;                   (Defaults to ^TMP("VAFC SEGMENTS",$J))

 +7       ;Output : None

 +8       ;           SEGARRY(Seq,Name) = Fields

 +9       ;           SEGARRY(Name,"BLD") = Executable code to build HL7 segment

 +10      ;           SEGARRY(Name,"CPY") = Executable code to copy HL7 segment

 +11      ;                                 into HL7 message

 +12      ;           SEGARRY(Name,"DEL") = Executable code to delete variables

 +13      ;                                 used to build HL7 segment

 +14      ;             Seq - Sequencing number to order the segments as

 +15      ;                   they should be placed in the HL7 message

 +16      ;             Name - Name of HL7 segment

 +17      ;             Fields - List of fields used by segment

 +18      ;                      VAFSTR would be set to this value

 +19      ;Notes  : MSH segment is not included

 +20      ;       : SEGARRY will be KILLed on entry

 +21      ;

 +22      ;Check input

 +23       SET EVNTTYPE=$GET(EVNTTYPE)

 +24       IF (EVNTTYPE="")

               SET EVNTTYPE="A08"

 +25       SET SEGARRY=$GET(SEGARRY)

 +26       IF (SEGARRY="")

               SET SEGARRY="^TMP(""VAFC SEGMENTS"","_$JOB_")"

 +27       KILL @SEGARRY

 +28      ;Declare variables

 +29       NEW X,OK

 +30      ;Check for supported event

 +31       SET OK=0

 +32       FOR X="A04","A08","A28"

               IF X=EVNTTYPE

                   SET OK=1

                   QUIT 

 +33       IF ('OK)

               QUIT 

 +34      ;Segments used by A04, A08, A28

 +35       SET @SEGARRY@(1,"EVN")="1,2,4"

 +36       SET @SEGARRY@("EVN","BLD")="D BLDEVN^VAFCMSG3"

 +37       SET @SEGARRY@("EVN","CPY")="D CPYEVN^VAFCMSG3"

 +38       SET @SEGARRY@("EVN","DEL")="D DELEVN^VAFCMSG3"

 +39       SET @SEGARRY@(2,"PID")=$$COMMANUM^VAFCADT2(1,9)_",10B,11PC,"_$$COMMANUM^VAFCADT2(13,21)_",22B,"_$$COMMANUM^VAFCADT2(23,30)

 +40       SET @SEGARRY@("PID","BLD")="D BLDPID^VAFCMSG3"

 +41       SET @SEGARRY@("PID","CPY")="D CPYPID^VAFCMSG3"

 +42       SET @SEGARRY@("PID","DEL")="D DELPID^VAFCMSG3"

 +43       SET @SEGARRY@(3,"PD1")=$$COMMANUM^VAFCADT2(1,12)

 +44       SET @SEGARRY@("PD1","BLD")="D BLDPD1^VAFCMSG3"

 +45       SET @SEGARRY@("PD1","CPY")="D CPYPD1^VAFCMSG3"

 +46       SET @SEGARRY@("PD1","DEL")="D DELPD1^VAFCMSG3"

 +47       SET @SEGARRY@(4,"PV1")="2,3,6,7,10,18,44,45,50"

 +48       SET @SEGARRY@("PV1","BLD")="D BLDPV1^VAFCMSG3"

 +49       SET @SEGARRY@("PV1","CPY")="D CPYPV1^VAFCMSG3"

 +50       SET @SEGARRY@("PV1","DEL")="D DELPV1^VAFCMSG3"

 +51       SET @SEGARRY@(5,"ROL")="1,2,3,4"

 +52       SET @SEGARRY@("ROL","BLD")="D BLDROL^VAFCMSG3"

 +53       SET @SEGARRY@("ROL","CPY")="D CPYROL^VAFCMSG3"

 +54       SET @SEGARRY@("ROL","DEL")="D DELROL^VAFCMSG3"

 +55       SET @SEGARRY@(6,"OBX")=""

 +56       SET @SEGARRY@("OBX","BLD")="D BLDOBX^VAFCMSG3"

 +57       SET @SEGARRY@("OBX","CPY")="D CPYOBX^VAFCMSG3"

 +58       SET @SEGARRY@("OBX","DEL")="D DELOBX^VAFCMSG3"

 +59       SET @SEGARRY@(7,"ZPD")=$$COMMANUM^VAFCADT2(1,21)

 +60       SET @SEGARRY@("ZPD","BLD")="D BLDZPD^VAFCMSG3"

 +61       SET @SEGARRY@("ZPD","CPY")="D CPYZPD^VAFCMSG3"

 +62       SET @SEGARRY@("ZPD","DEL")="D DELZPD^VAFCMSG3"

 +63       SET @SEGARRY@(8,"ZSP")="1,2,3,4,5"

0          SET @SEGARRY@("ZSP","BLD")="D BLDZSP^VAFCMSG3"

 +1        SET @SEGARRY@("ZSP","CPY")="D CPYZSP^VAFCMSG3"

 +2        SET @SEGARRY@("ZSP","DEL")="D DELZSP^VAFCMSG3"

 +3        SET @SEGARRY@(9,"ZEL")=$$COMMANUM^VAFCADT2(1,22)

 +4        SET @SEGARRY@("ZEL","BLD")="D BLDZEL^VAFCMSG3"

 +5        SET @SEGARRY@("ZEL","CPY")="D CPYZEL^VAFCMSG3"

 +6        SET @SEGARRY@("ZEL","DEL")="D DELZEL^VAFCMSG3"

 +7        SET @SEGARRY@(10,"ZCT")="1,2,3,4,5,6,7,8,9"

 +8        SET @SEGARRY@("ZCT","BLD")="D BLDZCT^VAFCMSG3"

 +9        SET @SEGARRY@("ZCT","CPY")="D CPYZCT^VAFCMSG3"

 +10       SET @SEGARRY@("ZCT","DEL")="D DELZCT^VAFCMSG3"

 +11       SET @SEGARRY@(11,"ZEM")="1,2,3,4,5,6,7,8"

 +12       SET @SEGARRY@("ZEM","BLD")="D BLDZEM^VAFCMSG3"

 +13       SET @SEGARRY@("ZEM","CPY")="D CPYZEM^VAFCMSG3"

 +14       SET @SEGARRY@("ZEM","DEL")="D DELZEM^VAFCMSG3"

 +15       SET @SEGARRY@(12,"ZFF")=""

 +16       SET @SEGARRY@("ZFF","BLD")="D BLDZFF^VAFCMSG3"

 +17       SET @SEGARRY@("ZFF","CPY")="D CPYZFF^VAFCMSG3"

 +18       SET @SEGARRY@("ZFF","DEL")="D DELZFF^VAFCMSG3"

 +19       SET @SEGARRY@(13,"ZIR")=$$COMMANUM^VAFCADT2(1,13)

 +20       SET @SEGARRY@("ZIR","BLD")="D BLDZIR^VAFCMSG3"

 +21       SET @SEGARRY@("ZIR","CPY")="D CPYZIR^VAFCMSG3"

 +22       SET @SEGARRY@("ZIR","DEL")="D DELZIR^VAFCMSG3"

 +23       SET @SEGARRY@(14,"ZEN")=$$COMMANUM^VAFCADT2(1,10)

 +24       SET @SEGARRY@("ZEN","BLD")="D BLDZEN^VAFCMSG3"

 +25       SET @SEGARRY@("ZEN","CPY")="D CPYZEN^VAFCMSG3"

 +26       SET @SEGARRY@("ZEN","DEL")="D DELZEN^VAFCMSG3"

 +27       QUIT