VAFHLPV2.m

VAFHLPV2 ;ALB/GRR - HL7 PV2 SEGMENT BUILDER ; 3/6/06 8:25am

 ;;5.3;Registration;**190,692,1015**;Aug 13, 1993;Build 21

 ;

 ;This routine will build an HL7 PV2 segment for an inpatient.

 ;

EN(DFN,VAFHMIEN,VAFSTR) ;Entry point of routine

 ;DFN - Patient Internal Entry Number

 ;VAFHMIEN - Patient Movement Internal Entry Number

 ;VAFSTR - Sequence numbers to include in message

 ;

 N VAFHLREC,VAFHA,VAFHSUB S VAFHSUB="" ;Initialize variables

 S $P(VAFHLREC,HL("FS"))="PV2" ;Set segment type to PV2

 S VAFHMIEN=$$GETAMOV^DGRUUTL(DFN) I VAFHMIEN="" G QUITPV2 ;If movement ien not passed, get admission movement and quit if none

 I VAFSTR[",3," D

 .S VAFHA=$$GET1^DIQ(405,VAFHMIEN,".11","I") ;retrieve 'Admitted for SC Condition' field

 .I VAFHA=1 D  ;If admitted for SC condition do following

 ..S $P(VAFHSUB,$E(HL("ECH")),4)="SC"

 ..S $P(VAFHSUB,$E(HL("ECH")),5)="ADMITTED FOR SC CONDITION"

 ..S $P(VAFHSUB,$E(HL("ECH")),6)="VA0039"

 .I VAFHA'=1 D  ;If not admitted for SC condition do following

 ..S $P(VAFHSUB,$E(HL("ECH")),4)="NSC"

 ..S $P(VAFHSUB,$E(HL("ECH")),5)="NOT ADMITTED FOR SC CONDITION"

 ..S $P(VAFHSUB,$E(HL("ECH")),6)="VA0039"

 .S $P(VAFHLREC,HL("FS"),4)=VAFHSUB

 ;If call center param is on add privacy indicator

 I VAFSTR[",22," D

 .S VAIP("D")=$G(VAFHDT) D IN5^VADPT

 .S $P(VAFHLREC,HL("FS"),23)=$S(+VAIP(19,1)=1:"Y",+VAIP(19,1)=0:"N",1:"")

 .D KVAR^VADPT

QUITPV2 Q VAFHLREC

VAFHLPV2  ;ALB/GRR - HL7 PV2 SEGMENT BUILDER ; 3/6/06 8:25am

 +1       ;;5.3;Registration;**190,692,1015**;Aug 13, 1993;Build 21

 +2       ;

 +3       ;This routine will build an HL7 PV2 segment for an inpatient.

 +4       ;

EN(DFN,VAFHMIEN,VAFSTR) ;Entry point of routine

 +1       ;DFN - Patient Internal Entry Number

 +2       ;VAFHMIEN - Patient Movement Internal Entry Number

 +3       ;VAFSTR - Sequence numbers to include in message

 +4       ;

 +5       ;Initialize variables

           NEW VAFHLREC,VAFHA,VAFHSUB

           SET VAFHSUB=""

 +6       ;Set segment type to PV2

           SET $PIECE(VAFHLREC,HL("FS"))="PV2"

 +7       ;If movement ien not passed, get admission movement and quit if none

           SET VAFHMIEN=$$GETAMOV^DGRUUTL(DFN)

           IF VAFHMIEN=""

               GOTO QUITPV2

 +8        IF VAFSTR[",3,"

               Begin DoDot:1

 +9       ;retrieve 'Admitted for SC Condition' field

                   SET VAFHA=$$GET1^DIQ(405,VAFHMIEN,".11","I")

 +10      ;If admitted for SC condition do following

                   IF VAFHA=1

                       Begin DoDot:2

 +11                       SET $PIECE(VAFHSUB,$EXTRACT(HL("ECH")),4)="SC"

 +12                       SET $PIECE(VAFHSUB,$EXTRACT(HL("ECH")),5)="ADMITTED FOR SC CONDITION"

 +13                       SET $PIECE(VAFHSUB,$EXTRACT(HL("ECH")),6)="VA0039"

                       End DoDot:2

 +14      ;If not admitted for SC condition do following

                   IF VAFHA'=1

                       Begin DoDot:2

 +15                       SET $PIECE(VAFHSUB,$EXTRACT(HL("ECH")),4)="NSC"

 +16                       SET $PIECE(VAFHSUB,$EXTRACT(HL("ECH")),5)="NOT ADMITTED FOR SC CONDITION"

 +17                       SET $PIECE(VAFHSUB,$EXTRACT(HL("ECH")),6)="VA0039"

                       End DoDot:2

 +18               SET $PIECE(VAFHLREC,HL("FS"),4)=VAFHSUB

               End DoDot:1

 +19      ;If call center param is on add privacy indicator

 +20       IF VAFSTR[",22,"

               Begin DoDot:1

 +21               SET VAIP("D")=$GET(VAFHDT)

                   DO IN5^VADPT

 +22               SET $PIECE(VAFHLREC,HL("FS"),23)=$SELECT(+VAIP(19,1)=1:"Y",+VAIP(19,1)=0:"N",1:"")

 +23               DO KVAR^VADPT

               End DoDot:1

QUITPV2    QUIT VAFHLREC