Routine: SCMSVPV1

SCMSVPV1 ;ALB/ESD HL7 PV1 Segment Validation ; 23 Oct 98  3:45 PM

 ;;5.3;Scheduling;**44,55,91,66,162,387,1015**;Aug 13, 1993;Build 21

EN(PV1SEG,HLQ,HLFS,VALERR,NODE,EVNTHL7,ENCNDT) ;

 ; Entry point to return the HL7 PV1 (Patient Visit) validation segment

 ;  Input:  PV1SEG - PV1 Segment

 ;             HLQ - HL7 null variable

 ;            HLFS - HL7 field separator

 ;          VALERR - The array to put errors in

 ;         EVNTHL7 - Event type ("A08" for add/edit, "A23" for delete)

 ;          ENCNDT - Encounter date

 ; Output:  1 if PV1 passed validity check

 ;          Error message if PV1 failed validity check in form of:

 ;          -1^"xxx failed validity check" (xxx=element in PV1 segment)

 ;NOTE:

 ;this routine uses the variable NODE which would contain the zero node

 ;of the encounter.  It is looking for the division in the 11th piece.

 ;this is for the check on the facility.

 N I,MSG,X,CNT,DATA,SEG,SD,XMTFLG

 ;-Create array of elements to validate

 F I=1,3,5,510,15,40,401,45,51 S SD(I)=""  ;Elements for 'add' or 'edit' transactions

 I $G(EVNTHL7)="A23" K SD F I=40,45,51 S SD(I)=""  ;Elements for 'delete' transactions

 S MSG="-1^Element in PV1 segment failed validity check",CNT=1

 S PV1SEG=$G(PV1SEG),SEG="PV1"

 D VALIDATE^SCMSVUT0(SEG,PV1SEG,"0008",VALERR,.CNT)

 I $D(@VALERR@(SEG)) G ENQ

 ;- Convert HLQ to null

 S PV1SEG=$$CONVERT^SCMSVUT0(PV1SEG,HLFS,HLQ)

 ;- Validate data elements

 F I=1,3,5,510,15,40,401,45,51 D

 . S DATA=$S(I=45:$$FMDATE^HLFNC($P(PV1SEG,HLFS,+I)),I=510:$P(PV1SEG,HLFS,+$E(I,1,1)),I=401:$P(PV1SEG,HLFS,+$E(I,1,2)),1:$P(PV1SEG,HLFS,+I))

 . I I=40!(I=401) N DIV S DIV=$S($D(NODE):$P(NODE,U,11),1:"")

 . I I=45 S XMTFLG=$S($P(PV1SEG,HLFS,3)="I":1,1:0)

 . D:$D(SD(I)) VALIDATE^SCMSVUT0(SEG,DATA,$P($T(@(I)),";",3),VALERR,.CNT)

. Q

 ;if inpatient perform validation for NPCD closeout on encounter date

 I $P(PV1SEG,HLFS,3)="I" D

 .S XMTFLG=0

 .D VALIDATE^SCMSVUT0(SEG,ENCNDT,"4200",VALERR,.CNT)

ENQ Q $S($D(@VALERR@(SEG)):MSG,1:1)

ERR ;;Invalid or missing patient visit data for encounter (HL7 PV1 segment)

 ;- PV1 data elements validated

1 ;;0035;HL7 SEGMENT NAME

3 ;;4000;PATIENT CLASS

5 ;;4050;PURPOSE OF VISIT/APPT TYPE

510 ;;Z000;Invalid Appointment Type (Computer Generated)

15 ;;4070;LOCATION OF VISIT

40 ;;4150;FACILITY NUMBER/SUFFIX

401 ;;4160;INACTIVE FACILITY

45 ;;4200;VISIT (ENCOUNTER) DATE/TIME

51 ;;4100;UNIQUE IDENTIFIER (PCE)

SCMSVPV1  ;ALB/ESD HL7 PV1 Segment Validation ; 23 Oct 98  3:45 PM

 +1       ;;5.3;Scheduling;**44,55,91,66,162,387,1015**;Aug 13, 1993;Build 21

 +2       ;

 +3       ;

EN(PV1SEG,HLQ,HLFS,VALERR,NODE,EVNTHL7,ENCNDT) ;

 +1       ; Entry point to return the HL7 PV1 (Patient Visit) validation segment

 +2       ;

 +3       ;  Input:  PV1SEG - PV1 Segment

 +4       ;             HLQ - HL7 null variable

 +5       ;            HLFS - HL7 field separator

 +6       ;          VALERR - The array to put errors in

 +7       ;         EVNTHL7 - Event type ("A08" for add/edit, "A23" for delete)

 +8       ;          ENCNDT - Encounter date

 +9       ;

 +10      ; Output:  1 if PV1 passed validity check

 +11      ;          Error message if PV1 failed validity check in form of:

 +12      ;          -1^"xxx failed validity check" (xxx=element in PV1 segment)

 +13      ;

 +14      ;NOTE:

 +15      ;this routine uses the variable NODE which would contain the zero node

 +16      ;of the encounter.  It is looking for the division in the 11th piece.

 +17      ;this is for the check on the facility.

 +18      ;

 +19       NEW I,MSG,X,CNT,DATA,SEG,SD,XMTFLG

 +20      ;

 +21      ;-Create array of elements to validate

 +22      ;Elements for 'add' or 'edit' transactions

           FOR I=1,3,5,510,15,40,401,45,51

               SET SD(I)=""

 +23      ;Elements for 'delete' transactions

           IF $GET(EVNTHL7)="A23"

               KILL SD

               FOR I=40,45,51

                   SET SD(I)=""

 +24      ;

 +25       SET MSG="-1^Element in PV1 segment failed validity check"

           SET CNT=1

 +26       SET PV1SEG=$GET(PV1SEG)

           SET SEG="PV1"

 +27       DO VALIDATE^SCMSVUT0(SEG,PV1SEG,"0008",VALERR,.CNT)

 +28       IF $DATA(@VALERR@(SEG))

               GOTO ENQ

 +29      ;

 +30      ;- Convert HLQ to null

 +31       SET PV1SEG=$$CONVERT^SCMSVUT0(PV1SEG,HLFS,HLQ)

 +32      ;

 +33      ;- Validate data elements

 +34       FOR I=1,3,5,510,15,40,401,45,51

               Begin DoDot:1

 +35               SET DATA=$SELECT(I=45:$$FMDATE^HLFNC($PIECE(PV1SEG,HLFS,+I)),I=510:$PIECE(PV1SEG,HLFS,+$EXTRACT(I,1,1)),I=401:$PIECE(PV1SEG,HLFS,+$EXTRACT(I,1,2)),1:$PIECE(PV1SEG,HLFS,+I))

 +36               IF I=40!(I=401)

                       NEW DIV

                       SET DIV=$SELECT($DATA(NODE):$PIECE(NODE,U,11),1:"")

 +37               IF I=45

                       SET XMTFLG=$SELECT($PIECE(PV1SEG,HLFS,3)="I":1,1:0)

 +38               IF $DATA(SD(I))

                       DO VALIDATE^SCMSVUT0(SEG,DATA,$PIECE($TEXT(@(I)),";",3),VALERR,.CNT)

 +39               QUIT

               End DoDot:1

 +40      ;if inpatient perform validation for NPCD closeout on encounter date

 +41       IF $PIECE(PV1SEG,HLFS,3)="I"

               Begin DoDot:1

 +42               SET XMTFLG=0

 +43               DO VALIDATE^SCMSVUT0(SEG,ENCNDT,"4200",VALERR,.CNT)

               End DoDot:1

 +44      ;

ENQ        QUIT $SELECT($DATA(@VALERR@(SEG)):MSG,1:1)

 +1       ;

 +2       ;

 +3       ;

ERR       ;;Invalid or missing patient visit data for encounter (HL7 PV1 segment)

 +1       ;

 +2       ;

 +3       ;- PV1 data elements validated

 +4       ;

1         ;;0035;HL7 SEGMENT NAME

3         ;;4000;PATIENT CLASS

5         ;;4050;PURPOSE OF VISIT/APPT TYPE

510       ;;Z000;Invalid Appointment Type (Computer Generated)

15        ;;4070;LOCATION OF VISIT

40        ;;4150;FACILITY NUMBER/SUFFIX

401       ;;4160;INACTIVE FACILITY

45        ;;4200;VISIT (ENCOUNTER) DATE/TIME

51        ;;4100;UNIQUE IDENTIFIER (PCE)

SCMSVPV1.m