- VAFHLA34 ;ALB/JLU;creates the A34 message.
- ;;5.3;Registration;**91**;Jun 06, 1996
- ;
- EN(DFN,GBL,CTR,APL,BEF,STAT,PID,ZPD,ID) ;builds the actual A34 message content. INIT OF
- ;HLTRANS and all of the HL7 varaiables most have been set up.
- ;
- ;DFN - The DFN of the Patient
- ;GBL - The GLOBAL to store message
- ;CTR - the counter to start at
- ;APL - The HL7 application or HLMTN
- ;BEF - This is the before value of the PID
- ;STAT - The status of this event (old or new)
- ;PID - The fields to be returned from the PID call
- ;ZPD - The fields to be returned from the ZPD call
- ;ID - Contains the set ID field for HL7 (OPTIONAL)
- ;
- N VAR
- DO
- .I $S('$D(DFN):1,DFN="":1,1:0) S VAR="Patient not identified" Q
- .I $S('$D(GBL):1,GBL="":1,1:0) S VAR="Storage global not identified" Q
- .I $S('$D(CTR):1,CTR="":1,1:0) S VAR="Counter to start at not identified" Q
- .I $S('$D(APL):1,APL="":1,1:0) S VAR="Calling application not identified" Q
- .I $S('$D(BEF):1,BEF="":1,1:0) S VAR="Before value of PID not identified" Q
- .I $S('$D(STAT):1,STAT="":1,1:0) S VAR="Status of event not identified" Q
- .I $S('$D(PID):1,PID="":1,1:0) S VAR="Fields for PID not identified" Q
- .I $S('$D(ZPD):1,ZPD="":1,1:0) S VAR="Fields for ZPD not identified" Q
- .Q
- I $D(VAR) G ERR
- S @GBL@(CTR)=$$EVN^VAFHLEVN("A34",STAT) ;creates the EVN segment
- S CTR=CTR+1
- S @GBL@(CTR)=$$EN^VAFHLPID(DFN,PID) ;creates the PID segment
- S CTR=CTR+1
- S @GBL@(CTR)=$$EN^VAFHLZPD(DFN,ZPD) ;creates the ZPD segment
- S CTR=CTR+1
- S @GBL@(CTR)=$$EN^VAFHLMRG(DFN,BEF) ;creates the MRG segment
- Q 1_U_CTR
- ERR Q -1_U_VAR
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVAFHLA34 1600 printed Apr 23, 2025@19:16:59 Page 2
- VAFHLA34 ;ALB/JLU;creates the A34 message.
- +1 ;;5.3;Registration;**91**;Jun 06, 1996
- +2 ;
- EN(DFN,GBL,CTR,APL,BEF,STAT,PID,ZPD,ID) ;builds the actual A34 message content. INIT OF
- +1 ;HLTRANS and all of the HL7 varaiables most have been set up.
- +2 ;
- +3 ;DFN - The DFN of the Patient
- +4 ;GBL - The GLOBAL to store message
- +5 ;CTR - the counter to start at
- +6 ;APL - The HL7 application or HLMTN
- +7 ;BEF - This is the before value of the PID
- +8 ;STAT - The status of this event (old or new)
- +9 ;PID - The fields to be returned from the PID call
- +10 ;ZPD - The fields to be returned from the ZPD call
- +11 ;ID - Contains the set ID field for HL7 (OPTIONAL)
- +12 ;
- +13 NEW VAR
- +14 Begin DoDot:1
- +15 IF $SELECT('$DATA(DFN):1,DFN="":1,1:0)
- SET VAR="Patient not identified"
- QUIT
- +16 IF $SELECT('$DATA(GBL):1,GBL="":1,1:0)
- SET VAR="Storage global not identified"
- QUIT
- +17 IF $SELECT('$DATA(CTR):1,CTR="":1,1:0)
- SET VAR="Counter to start at not identified"
- QUIT
- +18 IF $SELECT('$DATA(APL):1,APL="":1,1:0)
- SET VAR="Calling application not identified"
- QUIT
- +19 IF $SELECT('$DATA(BEF):1,BEF="":1,1:0)
- SET VAR="Before value of PID not identified"
- QUIT
- +20 IF $SELECT('$DATA(STAT):1,STAT="":1,1:0)
- SET VAR="Status of event not identified"
- QUIT
- +21 IF $SELECT('$DATA(PID):1,PID="":1,1:0)
- SET VAR="Fields for PID not identified"
- QUIT
- +22 IF $SELECT('$DATA(ZPD):1,ZPD="":1,1:0)
- SET VAR="Fields for ZPD not identified"
- QUIT
- +23 QUIT
- End DoDot:1
- +24 IF $DATA(VAR)
- GOTO ERR
- +25 ;creates the EVN segment
- SET @GBL@(CTR)=$$EVN^VAFHLEVN("A34",STAT)
- +26 SET CTR=CTR+1
- +27 ;creates the PID segment
- SET @GBL@(CTR)=$$EN^VAFHLPID(DFN,PID)
- +28 SET CTR=CTR+1
- +29 ;creates the ZPD segment
- SET @GBL@(CTR)=$$EN^VAFHLZPD(DFN,ZPD)
- +30 SET CTR=CTR+1
- +31 ;creates the MRG segment
- SET @GBL@(CTR)=$$EN^VAFHLMRG(DFN,BEF)
- +32 QUIT 1_U_CTR
- ERR QUIT -1_U_VAR
