VAFHLZSC.m

VAFHLZSC ;ALB/ESD - Create generic HL7 ZSC Segment ; 06-MAY-1996

 ;;5.3;Registration;**94**;Aug 13, 1993

 ;

 ;  This function will create VA-specific ZSC segment(s) for a 

 ;  given outpatient encounter.  The ZSC segment is designed to transfer

 ;  service indicator (stop code) information pertaining to a patient 

 ;  visit.

 ;

EN(VAFENC,VAFSTR,VAFHLQ,VAFHLFS,VAFARRY) ; Entry point to return the HL7 ZSC segment

 ;

 ;  Input:   VAFENC - IEN of the Outpatient Encounter (#409.68) file.

 ;           VAFSTR - String of fields requested separated by commas.

 ;           VAFHLQ - Optional HL7 null variable. If not there, use 

 ;                    default HL7 variable.

 ;          VAFHLFS - Optional HL7 field separator. If not there, use 

 ;                    default HL7 variable.

 ;          VAFARRY - Optional user-supplied array name which will hold HL7 ZSC segments

 ;

 ; Output: Array of HL7 ZSC segments

 ;

 ;

 N I,VAFIDX,VAFNODE,VAFSCODE,VAFY

 S VAFARRY=$G(VAFARRY)

 ;

 ; - If VAFARRY not defined, use ^TMP("VAFHL",$J,"STOPCODE")

 S:(VAFARRY="") VAFARRY="^TMP(""VAFHL"",$J,""STOPCODE"")"

 ;

 ; - If VAFHLQ or VAFHLFS aren't passed in, use default HL7 variables

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

 I '$G(VAFENC)!($G(VAFSTR)']"") S @VAFARRY@(1,0)="ZSC"_VAFHLFS_1 G ENQ

 S VAFIDX=0,VAFSTR=","_VAFSTR_","

 ;

 ; - Get stop codes for encounter

 D SCODE^SCDXUTL0(VAFENC,"VAFSCODE")

 ;

 ; - Set stop code array to 0 if no stop codes to loop thru once

 I '$G(VAFSCODE(0)) S VAFSCODE(1)=0

 ;

ALL ; - All stop codes for encounter

 F I=0:0 S I=$O(VAFSCODE(I)) Q:I=""  D

 .;

 .S VAFNODE=$G(^DIC(40.7,+VAFSCODE(I),0))

 .S:($P(VAFNODE,"^",1)="") $P(VAFNODE,"^",1)=VAFHLQ

 .S:($P(VAFNODE,"^",2)="") $P(VAFNODE,"^",2)=VAFHLQ

 .;

 .; - build array of HL7 (ZSC) segments

 .D BUILD

 ;

ENQ Q

 ;

 ;

BUILD ; - Build array of HL7 (ZSC) segments

 S $P(VAFY,VAFHLFS,3)="",VAFIDX=VAFIDX+1

 ;

 ; - Sequential number (required field)

 S $P(VAFY,VAFHLFS,1)=VAFIDX

 ;

 ; - Build HL7 (ZSC) segment fields

 I VAFSTR[",2," S $P(VAFY,VAFHLFS,2)=$P(VAFNODE,"^",2) ; Stop Code

 I VAFSTR[",3," S $P(VAFY,VAFHLFS,3)=$P(VAFNODE,"^",1) ; Name

 ;

 ; - Set all stop codes into array

 S @VAFARRY@(VAFIDX,0)="ZSC"_VAFHLFS_$G(VAFY)

 Q

VAFHLZSC  ;ALB/ESD - Create generic HL7 ZSC Segment ; 06-MAY-1996

 +1       ;;5.3;Registration;**94**;Aug 13, 1993

 +2       ;

 +3       ;  This function will create VA-specific ZSC segment(s) for a 

 +4       ;  given outpatient encounter.  The ZSC segment is designed to transfer

 +5       ;  service indicator (stop code) information pertaining to a patient 

 +6       ;  visit.

 +7       ;

EN(VAFENC,VAFSTR,VAFHLQ,VAFHLFS,VAFARRY) ; Entry point to return the HL7 ZSC segment

 +1       ;

 +2       ;  Input:   VAFENC - IEN of the Outpatient Encounter (#409.68) file.

 +3       ;           VAFSTR - String of fields requested separated by commas.

 +4       ;           VAFHLQ - Optional HL7 null variable. If not there, use 

 +5       ;                    default HL7 variable.

 +6       ;          VAFHLFS - Optional HL7 field separator. If not there, use 

 +7       ;                    default HL7 variable.

 +8       ;          VAFARRY - Optional user-supplied array name which will hold HL7 ZSC segments

 +9       ;

 +10      ; Output: Array of HL7 ZSC segments

 +11      ;

 +12      ;

 +13       NEW I,VAFIDX,VAFNODE,VAFSCODE,VAFY

 +14       SET VAFARRY=$GET(VAFARRY)

 +15      ;

 +16      ; - If VAFARRY not defined, use ^TMP("VAFHL",$J,"STOPCODE")

 +17       IF (VAFARRY="")

               SET VAFARRY="^TMP(""VAFHL"",$J,""STOPCODE"")"

 +18      ;

 +19      ; - If VAFHLQ or VAFHLFS aren't passed in, use default HL7 variables

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

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

 +21       IF '$GET(VAFENC)!($GET(VAFSTR)']"")

               SET @VAFARRY@(1,0)="ZSC"_VAFHLFS_1

               GOTO ENQ

 +22       SET VAFIDX=0

           SET VAFSTR=","_VAFSTR_","

 +23      ;

 +24      ; - Get stop codes for encounter

 +25       DO SCODE^SCDXUTL0(VAFENC,"VAFSCODE")

 +26      ;

 +27      ; - Set stop code array to 0 if no stop codes to loop thru once

 +28       IF '$GET(VAFSCODE(0))

               SET VAFSCODE(1)=0

 +29      ;

ALL       ; - All stop codes for encounter

 +1        FOR I=0:0

               SET I=$ORDER(VAFSCODE(I))

               IF I=""

                   QUIT 

               Begin DoDot:1

 +2       ;

 +3                SET VAFNODE=$GET(^DIC(40.7,+VAFSCODE(I),0))

 +4                IF ($PIECE(VAFNODE,"^",1)="")

                       SET $PIECE(VAFNODE,"^",1)=VAFHLQ

 +5                IF ($PIECE(VAFNODE,"^",2)="")

                       SET $PIECE(VAFNODE,"^",2)=VAFHLQ

 +6       ;

 +7       ; - build array of HL7 (ZSC) segments

 +8                DO BUILD

               End DoDot:1

 +9       ;

ENQ        QUIT 

 +1       ;

 +2       ;

BUILD     ; - Build array of HL7 (ZSC) segments

 +1        SET $PIECE(VAFY,VAFHLFS,3)=""

           SET VAFIDX=VAFIDX+1

 +2       ;

 +3       ; - Sequential number (required field)

 +4        SET $PIECE(VAFY,VAFHLFS,1)=VAFIDX

 +5       ;

 +6       ; - Build HL7 (ZSC) segment fields

 +7       ; Stop Code

           IF VAFSTR[",2,"

               SET $PIECE(VAFY,VAFHLFS,2)=$PIECE(VAFNODE,"^",2)

 +8       ; Name

           IF VAFSTR[",3,"

               SET $PIECE(VAFY,VAFHLFS,3)=$PIECE(VAFNODE,"^",1)

 +9       ;

 +10      ; - Set all stop codes into array

 +11       SET @VAFARRY@(VAFIDX,0)="ZSC"_VAFHLFS_$GET(VAFY)

 +12       QUIT