VAFHLZHF.m

VAFHLZHF ;ALB/KUM - Create generic HL7 Enrollment (ZHF) segment ;Sept 04, 2022@15:28:52

 ;;5.3;Registration;**1082**;Aug 13, 1993;Build 29

 ;Per VHA Directive 2004-038, this routine should not be modified.

 ;

 ; This generic extrinsic function is designed to return the

 ; HL7 Enrollment (ZHF) segment. This segment contains VA-specific

 ; health factor information for a patient.

 ;

 ;ICRs

 ; Reference to GET1^DIQ in ICR #10004

 ; Reference to $$NOW^XLFDT in ICR #10103

 ; Reference to $$HLDATE^HLFNC in ICR #10106

 ;

EN(DFN,VAFSTR,VAFHLQ,VAFHLFS) ; --

 ; Entry point for creating HL7 Health Factor (ZHF) segment.

 ;

 ;  Input(s):

 ;        DFN - internal entry number of Patient (#2) file

 ;     VAFSTR - (optional) string of fields requested, separated by

 ;              commas.  If not passed, return all data fields.

 ;     VAFHLQ - (optional) HL7 null variable.

 ;    VAFHLFS - (optional) HL7 field separator.

 ;

 ; Output(s):

 ;    String containing the desired components of the HL7 ZHF segment

 ;

 N VAFPSY,VAFPREF,VAFY,SEQ,DGDATE,DGDT

 ;

 ; if VAFHLQ or VAFHLFS not passed, use default HL7 variables

 S VAFHLQ=$S($D(VAFHLQ):VAFHLQ,1:$G(HLQ)),VAFHLFS=$S($D(VAFHLFS):VAFHLFS,1:$G(HLFS))

 ;

 ; if DFN not passed, exit

 I '$G(DFN) S VAFY=1 G ENQ

 ;

 ; if VAFSTR not passed, return all data fields (SEQ's)

 I $G(VAFSTR)']"" F SEQ=1:1:5 S $P(VAFSTR,",",SEQ)=SEQ

 ;

 ; get data from Presumptive Psychosis Category Changes (#33.1) file

 D GETDATA331^DGPPSYCH(DFN,.VAFPSY)

 ;

 ; initialize output string and requested data fields

 S VAFSTR=","_VAFSTR_","

 ;

 ; set-up segment data fields

 I VAFSTR[",1," S $P(VAFY,VAFHLFS,1)=$S($G(VAFPSY("PPCAT"))]"":VAFPSY("PPCAT"),1:VAFHLQ)  ; Psychosis Category

 I VAFSTR[",2," S $P(VAFY,VAFHLFS,2)=$S($G(VAFPSY("PPCATDT")):$$HLDATE^HLFNC(VAFPSY("PPCATDT"),"DT"),1:VAFHLQ)  ; Psychosis Category Change Date

 I VAFSTR[",3," S $P(VAFY,VAFHLFS,3)=VAFHLQ

 I VAFSTR[",4," S $P(VAFY,VAFHLFS,4)=VAFHLQ

 I VAFSTR[",5," S $P(VAFY,VAFHLFS,5)=VAFHLQ

 ;

ENQ Q "ZHF"_VAFHLFS_$G(VAFY)

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---VAFHLZHF   2066     printed  Apr 09, 2024@22:00:11                                                                                                                                                                                                    Page 2

VAFHLZHF  ;ALB/KUM - Create generic HL7 Enrollment (ZHF) segment ;Sept 04, 2022@15:28:52

 +1       ;;5.3;Registration;**1082**;Aug 13, 1993;Build 29

 +2       ;Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;

 +4       ; This generic extrinsic function is designed to return the

 +5       ; HL7 Enrollment (ZHF) segment. This segment contains VA-specific

 +6       ; health factor information for a patient.

 +7       ;

 +8       ;ICRs

 +9       ; Reference to GET1^DIQ in ICR #10004

 +10      ; Reference to $$NOW^XLFDT in ICR #10103

 +11      ; Reference to $$HLDATE^HLFNC in ICR #10106

 +12      ;

EN(DFN,VAFSTR,VAFHLQ,VAFHLFS) ; --

 +1       ; Entry point for creating HL7 Health Factor (ZHF) segment.

 +2       ;

 +3       ;  Input(s):

 +4       ;        DFN - internal entry number of Patient (#2) file

 +5       ;     VAFSTR - (optional) string of fields requested, separated by

 +6       ;              commas.  If not passed, return all data fields.

 +7       ;     VAFHLQ - (optional) HL7 null variable.

 +8       ;    VAFHLFS - (optional) HL7 field separator.

 +9       ;

 +10      ; Output(s):

 +11      ;    String containing the desired components of the HL7 ZHF segment

 +12      ;

 +13       NEW VAFPSY,VAFPREF,VAFY,SEQ,DGDATE,DGDT

 +14      ;

 +15      ; if VAFHLQ or VAFHLFS not passed, use default HL7 variables

 +16       SET VAFHLQ=$SELECT($DATA(VAFHLQ):VAFHLQ,1:$GET(HLQ))

           SET VAFHLFS=$SELECT($DATA(VAFHLFS):VAFHLFS,1:$GET(HLFS))

 +17      ;

 +18      ; if DFN not passed, exit

 +19       IF '$GET(DFN)

               SET VAFY=1

               GOTO ENQ

 +20      ;

 +21      ; if VAFSTR not passed, return all data fields (SEQ's)

 +22       IF $GET(VAFSTR)']""

               FOR SEQ=1:1:5

                   SET $PIECE(VAFSTR,",",SEQ)=SEQ

 +23      ;

 +24      ; get data from Presumptive Psychosis Category Changes (#33.1) file

 +25       DO GETDATA331^DGPPSYCH(DFN,.VAFPSY)

 +26      ;

 +27      ; initialize output string and requested data fields

 +28       SET VAFSTR=","_VAFSTR_","

 +29      ;

 +30      ; set-up segment data fields

 +31      ; Psychosis Category

           IF VAFSTR[",1,"

               SET $PIECE(VAFY,VAFHLFS,1)=$SELECT($GET(VAFPSY("PPCAT"))]"":VAFPSY("PPCAT"),1:VAFHLQ)

 +32      ; Psychosis Category Change Date

           IF VAFSTR[",2,"

               SET $PIECE(VAFY,VAFHLFS,2)=$SELECT($GET(VAFPSY("PPCATDT")):$$HLDATE^HLFNC(VAFPSY("PPCATDT"),"DT"),1:VAFHLQ)

 +33       IF VAFSTR[",3,"

               SET $PIECE(VAFY,VAFHLFS,3)=VAFHLQ

 +34       IF VAFSTR[",4,"

               SET $PIECE(VAFY,VAFHLFS,4)=VAFHLQ

 +35       IF VAFSTR[",5,"

               SET $PIECE(VAFY,VAFHLFS,5)=VAFHLQ

 +36      ;

ENQ        QUIT "ZHF"_VAFHLFS_$GET(VAFY)

 +1       ;