SCMSVPV1 ;ALB/ESD HL7 PV1 Segment Validation ; 23 Oct 98 3:45 PM
;;5.3;Scheduling;**44,55,91,66,162,387**;Aug 13, 1993
;
;
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)
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSCMSVPV1 2501 printed Dec 13, 2024@02:42:06 Page 2
SCMSVPV1 ;ALB/ESD HL7 PV1 Segment Validation ; 23 Oct 98 3:45 PM
+1 ;;5.3;Scheduling;**44,55,91,66,162,387**;Aug 13, 1993
+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)
