Routine: PXAIVSTV

PXAIVSTV ;ISL/JVS,ISA/KWP - VALIDATE THE VISIT DATA ;04/28/99

 ;;1.0;PCE PATIENT CARE ENCOUNTER;**9,15,19,74,111**;Aug 12, 1996

VALSCC ;--VALIDATE SERVICE CONNECTIVENESS

 N ERR,ERR1

 D SCC^PXUTLSCC($G(PXAA("PATIENT")),$G(PXAA("ENC D/T")),$G(PXAA("HOS LOC")),$G(PXAVISIT),$G(AFTER800),.AFTER8A,.ERR)

 ;PX*1*111 - Add HNC

 I $P(ERR,"^",1)=0,$P(ERR,"^",2)=0,$P(ERR,"^",3)=0,$P(ERR,"^",4)=0,$P(ERR,"^",5)=0,$P(ERR,"^",6)=0 Q

 S PXADI("DIALOG")=8390001.003

 S PXAERRF=1

 S PXAERR("1W")=$S($P(AFTER800,"^",1)']"":"NULL",1:$P(AFTER800,"^",1))

 S PXAERR("2W")=$S($P(AFTER800,"^",2)']"":"NULL",1:$P(AFTER800,"^",2))

 S PXAERR("3W")=$S($P(AFTER800,"^",3)']"":"NULL",1:$P(AFTER800,"^",3))

 S PXAERR("4W")=$S($P(AFTER800,"^",4)']"":"NULL",1:$P(AFTER800,"^",4))

 S PXAERR("5W")=$S($P(AFTER800,"^",5)']"":"NULL",1:$P(AFTER800,"^",5))

 ;PX*1*111 - Add HNC

 S PXAERR("16W")=$S($P(AFTER800,"^",6)']"":"NULL",1:$P(AFTER800,"^",6))

 S ERR1=$P(ERR,"^",1),PXAERR("6W")=$S(ERR1=1:"Should be a YES or NO!, not NULL",ERR1=0:"No error",ERR1=-1:"Not a valid value",ERR1=-2:"Value must be NULL",ERR1=-3:"Must be NULL because Service Connected is yes",1:"")

 S ERR1=$P(ERR,"^",2),PXAERR("7W")=$S(ERR1=1:"Should be a YES or NO!, not NULL",ERR1=0:"No error",ERR1=-1:"Not a valid value",ERR1=-2:"Value must be NULL",ERR1=-3:"Must be NULL because Service Connected is yes",1:"")

 S ERR1=$P(ERR,"^",3),PXAERR("8W")=$S(ERR1=1:"Should be a YES or NO!, not NULL",ERR1=0:"No error",ERR1=-1:"Not a valid value",ERR1=-2:"Value must be NULL",ERR1=-3:"Must be NULL because Service Connected is yes",1:"")

 S ERR1=$P(ERR,"^",4),PXAERR("9W")=$S(ERR1=1:"Should be a YES or NO!, not NULL",ERR1=0:"No error",ERR1=-1:"Not a valid value",ERR1=-2:"Value must be NULL",ERR1=-3:"Must be NULL because Service Connected is yes",1:"")

 S ERR1=$P(ERR,"^",5),PXAERR("10W")=$S(ERR1=1:"Should be a YES or NO!, not NULL",ERR1=0:"No error",ERR1=-1:"Not a valid value",ERR1=-2:"Value must be NULL",ERR1=-3:"Must be NULL because Service Connected is yes",1:"")

 ;PX*1*111 - Add HNC

 S ERR1=$P(ERR,"^",6),PXAERR("17W")=$S(ERR1=1:"Should be a YES or NO!, not NULL",ERR1=0:"No error",ERR1=-1:"Not a valid value",ERR1=-2:"Value must be NULL",ERR1=-3:"Must be NULL because Service Connected is yes",1:"")

 S PXAERR("11W")=$S($P(AFTER8A,"^",1)']"":"NULL",1:$P(AFTER8A,"^",1))

 S PXAERR("12W")=$S($P(AFTER8A,"^",2)']"":"NULL",1:$P(AFTER8A,"^",2))

 S PXAERR("13W")=$S($P(AFTER8A,"^",3)']"":"NULL",1:$P(AFTER8A,"^",3))

 S PXAERR("14W")=$S($P(AFTER8A,"^",4)']"":"NULL",1:$P(AFTER8A,"^",4))

 S PXAERR("15W")=$S($P(AFTER8A,"^",5)']"":"NULL",1:$P(AFTER8A,"^",5))

 ;PX*1*111 - Add HNC

 S PXAERR("18W")=$S($P(AFTER8A,"^",6)']"":"NULL",1:$P(AFTER8A,"^",6))

 D ERR^PXAI K PXAERRF

VAL ;--VALIDATE ENOUGH DATA

 ;---Is the visit sent TO US valid?

 I $G(PXAVISIT) D  Q:$D(STOP)

 .I '$D(^AUPNVSIT(PXAVISIT,0)) D  Q:$G(STOP)

 ..S STOP=1

 ..S PXAERRF=1

 ..S PXADI("DIALOG")=8390001.001

 ..S PXAERR(11)=$G(PXAVISIT)

 ..S PXAERR(12)="The value that was sent to us is not a valid visit in the VISIT file # 9000010. The Patients name will be derived from the visit file and could cause the data to be given to the wrong patient if not correct."

 ..S PXAERR(13)="If the correct VISIT isn't known, set the 'ENCOUNTER' array and we will look it up or create a correct one. Setting both at the same time will only add confusion as to what data is correct."

 Q:$G(PXAVISIT)

 ;----Missing a date and time of visit

 I $G(PXAA("ENC D/T"))']"" D  Q:$G(STOP)

 .S STOP=1 ;--USED TO STOP DO LOOP

 .S PXAERRF=1 ;--FLAG INDICATES THERE IS AN ERR

 .S PXADI("DIALOG")=8390001.001

 .S PXAERR(9)="ENC D/T"

 .S PXAERR(11)=$G(PXAA("ENC D/T"))

 .S PXAERR(12)="You are missing the date and time of the visit in FileManager internal format."

 ;----Missing Time and not Historical Visit

 I $L($G(PXAA("ENC D/T")),".")=1,$G(PXAA("SERVICE CATEGORY"))'="E" D

 .S STOP=1 ;--USED TO STOP DO LOOP

 .S PXAERRF=1 ;--FLAG INDICATES THERE IS AN ERR

 .S PXADI("DIALOG")=8390001.001

 .S PXAERR(9)="ENC D/T"

 .S PXAERR(11)=$G(PXAA("ENC D/T"))

 .S PXAERR(12)="You are missing the TIME of the visit in FileManager internal format. Unless this is an HISTORICAL encounter, you must have the time."

 ;----MISSING a pointer to PATIENT/IHS FILE # 9000001

 I $G(PXAA("PATIENT"))']"" D  Q:$G(STOP)

 .S STOP=1

 .S PXAERRF=1

 .S PXADI("DIALOG")=8390001.001

 .S PXAERR(9)="PATIENT"

 .S PXAERR(11)=$G(PXAA("PATIENT"))

 .S PXAERR(12)="Missing a pointer to the PATIENT/IHS file #9000001"

 ;----Not a pointer to the PATIENT/IHS file #9000001

 I '$D(^AUPNPAT($G(PXAA("PATIENT")),0)) D  Q:$G(STOP)

 .S STOP=1

 .S PXAERRF=1

 .S PXADI("DIALOG")=8390001.001

 .S PXAERR(9)="PATIENT"

 .S PXAERR(11)=$G(PXAA("PATIENT"))

 .S PXAERR(12)="This value is not a pointer to file PATIENT/IHS file # 9000001"

 ;---Missing required information

 I $G(PXAA("OUTSIDE LOC"))']"",$G(PXAA("HOS LOC"))']"",$G(PXAA("SERVICE CATEGORY"))'="E" D  Q:$G(STOP)

 .S STOP=1

 .S PXAERRF=1

 .S PXADI("DIALOG")=8390001.001

 .S PXAERR(9)="HOS LOC or OUTSIDE LOC"

 .S PXAERR(11)="BOTH ENTRIES ARE NULL AND SERVICE CATEGORY IS NOT ""E"""

 .S PXAERR(12)="The HOSPITAL LOCATION (pointer to the HOSPITAL LOCATION file #44 ) needs to be sent in order to create a visit."

 ;---not a pointer to hospital location file

 I $D(PXAA("HOS LOC")) D  Q:$G(STOP)

 .I '$D(^SC($G(PXAA("HOS LOC")),0)) D  Q:$G(STOP)

 ..S STOP=1

 ..S PXAERRF=1

 ..S PXADI("DIALOG")=8390001.001

 ..S PXAERR(9)="HOS LOC"

 ..S PXAERR(11)=$G(PXAA("HOS LOC"))

 ..S PXAERR(12)="This HOSPITAL LOCATION is not a pointer to the HOSPITAL LOCATION file #44"

 ;---hospital location is the dispositioning location

 I $D(PXAA("HOS LOC")) D  Q:$G(STOP)

 .I $D(^PX(815,1,"DHL","B",$G(PXAA("HOS LOC")))) D  Q:$G(STOP)

 ..S STOP=1

 ..S PXAERRF=1

 ..S PXADI("DIALOG")=8390001.001

 ..S PXAERR(9)="HOS LOC"

 ..S PXAERR(11)=$G(PXAA("HOS LOC"))

 ..S PXAERR(12)="This HOSPITAL LOCATION is a dispositioning location and connot be used. Refer to entries in file#815 PCE PARAMETERS"

 ;--Not a service category

 I '$D(PXAA("SERVICE CATEGORY")) D  Q:$G(STOP)

 .S STOP=1

 .S PXAERRF=1

 .S PXADI("DIALOG")=8390001.001

 .S PXAERR(9)="SERVICE CATEGORY"

 .S PXAERR(11)=$G(PXAA("SERVICE CATEGORY"))

 .S PXAERR(12)="SERVICE CATEGORY is a required field"

VPTR ;---Is the visit sent TO US valid?

 I $G(PXAVISIT) D  Q:$D(STOP)

 .I '$D(^AUPNVSIT(PXAVISIT,0)) D  Q:$G(STOP)

 ..S STOP=1

 ..S PXAK=1

 ..S PXAERRF=1

 ..S PXADI("DIALOG")=8390001.001

 ..S PXAERR(7)="ENCOUNTER"

 ..S PXAERR(9)="GENERAL NATURE"

 ..S PXAERR(11)=$G(PXAVISIT)

 ..S PXAERR(12)="The value that was sent to us is not a valid visit in the VISIT file # 9000010. The Patients name will be derived from the visit file and could cause the data to be given to the wrong patient if not correct."

 ..S PXAERR(13)="If the correct VISIT isn't known, set the 'ENCOUNTER' array and we will look it up or create a correct one. Setting both at the same time will only add confusion as to what data is correct."

 Q:$G(PXAVISIT)

PXAIVSTV  ;ISL/JVS,ISA/KWP - VALIDATE THE VISIT DATA ;04/28/99

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;**9,15,19,74,111**;Aug 12, 1996

 +2       ;

 +3       ;

 +4        QUIT

VALSCC    ;--VALIDATE SERVICE CONNECTIVENESS

 +1        NEW ERR,ERR1

 +2        DO SCC^PXUTLSCC($GET(PXAA("PATIENT")),$GET(PXAA("ENC D/T")),$GET(PXAA("HOS LOC")),$GET(PXAVISIT),$GET(AFTER800),.AFTER8A,.ERR)

 +3       ;PX*1*111 - Add HNC

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

               IF $PIECE(ERR,"^",2)=0

                   IF $PIECE(ERR,"^",3)=0

                       IF $PIECE(ERR,"^",4)=0

                           IF $PIECE(ERR,"^",5)=0

                               IF $PIECE(ERR,"^",6)=0

                                   QUIT

 +5        SET PXADI("DIALOG")=8390001.003

 +6        SET PXAERRF=1

 +7        SET PXAERR("1W")=$SELECT($PIECE(AFTER800,"^",1)']"":"NULL",1:$PIECE(AFTER800,"^",1))

 +8        SET PXAERR("2W")=$SELECT($PIECE(AFTER800,"^",2)']"":"NULL",1:$PIECE(AFTER800,"^",2))

 +9        SET PXAERR("3W")=$SELECT($PIECE(AFTER800,"^",3)']"":"NULL",1:$PIECE(AFTER800,"^",3))

 +10       SET PXAERR("4W")=$SELECT($PIECE(AFTER800,"^",4)']"":"NULL",1:$PIECE(AFTER800,"^",4))

 +11       SET PXAERR("5W")=$SELECT($PIECE(AFTER800,"^",5)']"":"NULL",1:$PIECE(AFTER800,"^",5))

 +12      ;PX*1*111 - Add HNC

 +13       SET PXAERR("16W")=$SELECT($PIECE(AFTER800,"^",6)']"":"NULL",1:$PIECE(AFTER800,"^",6))

 +14       SET ERR1=$PIECE(ERR,"^",1)

           SET PXAERR("6W")=$SELECT(ERR1=1:"Should be a YES or NO!, not NULL",ERR1=0:"No error",ERR1=-1:"Not a valid value",ERR1=-2:"Value must be NULL",ERR1=-3:"Must be NULL because Service Connected is yes",1:"")

 +15       SET ERR1=$PIECE(ERR,"^",2)

           SET PXAERR("7W")=$SELECT(ERR1=1:"Should be a YES or NO!, not NULL",ERR1=0:"No error",ERR1=-1:"Not a valid value",ERR1=-2:"Value must be NULL",ERR1=-3:"Must be NULL because Service Connected is yes",1:"")

 +16       SET ERR1=$PIECE(ERR,"^",3)

           SET PXAERR("8W")=$SELECT(ERR1=1:"Should be a YES or NO!, not NULL",ERR1=0:"No error",ERR1=-1:"Not a valid value",ERR1=-2:"Value must be NULL",ERR1=-3:"Must be NULL because Service Connected is yes",1:"")

 +17       SET ERR1=$PIECE(ERR,"^",4)

           SET PXAERR("9W")=$SELECT(ERR1=1:"Should be a YES or NO!, not NULL",ERR1=0:"No error",ERR1=-1:"Not a valid value",ERR1=-2:"Value must be NULL",ERR1=-3:"Must be NULL because Service Connected is yes",1:"")

 +18       SET ERR1=$PIECE(ERR,"^",5)

           SET PXAERR("10W")=$SELECT(ERR1=1:"Should be a YES or NO!, not NULL",ERR1=0:"No error",ERR1=-1:"Not a valid value",ERR1=-2:"Value must be NULL",ERR1=-3:"Must be NULL because Service Connected is yes",1:"")

 +19      ;PX*1*111 - Add HNC

 +20       SET ERR1=$PIECE(ERR,"^",6)

           SET PXAERR("17W")=$SELECT(ERR1=1:"Should be a YES or NO!, not NULL",ERR1=0:"No error",ERR1=-1:"Not a valid value",ERR1=-2:"Value must be NULL",ERR1=-3:"Must be NULL because Service Connected is yes",1:"")

 +21       SET PXAERR("11W")=$SELECT($PIECE(AFTER8A,"^",1)']"":"NULL",1:$PIECE(AFTER8A,"^",1))

 +22       SET PXAERR("12W")=$SELECT($PIECE(AFTER8A,"^",2)']"":"NULL",1:$PIECE(AFTER8A,"^",2))

 +23       SET PXAERR("13W")=$SELECT($PIECE(AFTER8A,"^",3)']"":"NULL",1:$PIECE(AFTER8A,"^",3))

 +24       SET PXAERR("14W")=$SELECT($PIECE(AFTER8A,"^",4)']"":"NULL",1:$PIECE(AFTER8A,"^",4))

 +25       SET PXAERR("15W")=$SELECT($PIECE(AFTER8A,"^",5)']"":"NULL",1:$PIECE(AFTER8A,"^",5))

 +26      ;PX*1*111 - Add HNC

 +27       SET PXAERR("18W")=$SELECT($PIECE(AFTER8A,"^",6)']"":"NULL",1:$PIECE(AFTER8A,"^",6))

 +28       DO ERR^PXAI

           KILL PXAERRF

 +29       QUIT

 +30      ;

VAL       ;--VALIDATE ENOUGH DATA

 +1       ;

 +2       ;---Is the visit sent TO US valid?

 +3        IF $GET(PXAVISIT)

               Begin DoDot:1

 +4                IF '$DATA(^AUPNVSIT(PXAVISIT,0))

                       Begin DoDot:2

 +5                        SET STOP=1

 +6                        SET PXAERRF=1

 +7                        SET PXADI("DIALOG")=8390001.001

 +8                        SET PXAERR(11)=$GET(PXAVISIT)

 +9                        SET PXAERR(12)="The value that was sent to us is not a valid visit in the VISIT file # 9000010. The Patients name will be derived from the visit file and could cause the data to be given to the wrong patient if not correct."

 +10                       SET PXAERR(13)="If the correct VISIT isn't known, set the 'ENCOUNTER' array and we will look it up or create a correct one. Setting both at the same time will only add confusion as to what data is correct."

                       End DoDot:2

                       IF $GET(STOP)

                           QUIT

               End DoDot:1

               IF $DATA(STOP)

                   QUIT

 +11       IF $GET(PXAVISIT)

               QUIT

 +12      ;

 +13      ;----Missing a date and time of visit

 +14       IF $GET(PXAA("ENC D/T"))']""

               Begin DoDot:1

 +15      ;--USED TO STOP DO LOOP

                   SET STOP=1

 +16      ;--FLAG INDICATES THERE IS AN ERR

                   SET PXAERRF=1

 +17               SET PXADI("DIALOG")=8390001.001

 +18               SET PXAERR(9)="ENC D/T"

 +19               SET PXAERR(11)=$GET(PXAA("ENC D/T"))

 +20               SET PXAERR(12)="You are missing the date and time of the visit in FileManager internal format."

               End DoDot:1

               IF $GET(STOP)

                   QUIT

 +21      ;

 +22      ;----Missing Time and not Historical Visit

 +23       IF $LENGTH($GET(PXAA("ENC D/T")),".")=1

               IF $GET(PXAA("SERVICE CATEGORY"))'="E"

                   Begin DoDot:1

 +24      ;--USED TO STOP DO LOOP

                       SET STOP=1

 +25      ;--FLAG INDICATES THERE IS AN ERR

                       SET PXAERRF=1

 +26                   SET PXADI("DIALOG")=8390001.001

 +27                   SET PXAERR(9)="ENC D/T"

 +28                   SET PXAERR(11)=$GET(PXAA("ENC D/T"))

 +29                   SET PXAERR(12)="You are missing the TIME of the visit in FileManager internal format. Unless this is an HISTORICAL encounter, you must have the time."

                   End DoDot:1

 +30      ;

 +31      ;

 +32      ;

 +33      ;----MISSING a pointer to PATIENT/IHS FILE # 9000001

 +34       IF $GET(PXAA("PATIENT"))']""

               Begin DoDot:1

 +35               SET STOP=1

 +36               SET PXAERRF=1

 +37               SET PXADI("DIALOG")=8390001.001

 +38               SET PXAERR(9)="PATIENT"

 +39               SET PXAERR(11)=$GET(PXAA("PATIENT"))

 +40               SET PXAERR(12)="Missing a pointer to the PATIENT/IHS file #9000001"

               End DoDot:1

               IF $GET(STOP)

                   QUIT

 +41      ;

 +42      ;

 +43      ;----Not a pointer to the PATIENT/IHS file #9000001

 +44       IF '$DATA(^AUPNPAT($GET(PXAA("PATIENT")),0))

               Begin DoDot:1

 +45               SET STOP=1

 +46               SET PXAERRF=1

 +47               SET PXADI("DIALOG")=8390001.001

 +48               SET PXAERR(9)="PATIENT"

 +49               SET PXAERR(11)=$GET(PXAA("PATIENT"))

 +50               SET PXAERR(12)="This value is not a pointer to file PATIENT/IHS file # 9000001"

               End DoDot:1

               IF $GET(STOP)

                   QUIT

 +51      ;

 +52      ;---Missing required information

 +53       IF $GET(PXAA("OUTSIDE LOC"))']""

               IF $GET(PXAA("HOS LOC"))']""

                   IF $GET(PXAA("SERVICE CATEGORY"))'="E"

                       Begin DoDot:1

 +54                       SET STOP=1

 +55                       SET PXAERRF=1

 +56                       SET PXADI("DIALOG")=8390001.001

 +57                       SET PXAERR(9)="HOS LOC or OUTSIDE LOC"

 +58                       SET PXAERR(11)="BOTH ENTRIES ARE NULL AND SERVICE CATEGORY IS NOT ""E"""

 +59                       SET PXAERR(12)="The HOSPITAL LOCATION (pointer to the HOSPITAL LOCATION file #44 ) needs to be sent in order to create a visit."

                       End DoDot:1

                       IF $GET(STOP)

                           QUIT

 +60      ;

 +61      ;---not a pointer to hospital location file

 +62       IF $DATA(PXAA("HOS LOC"))

               Begin DoDot:1

 +63               IF '$DATA(^SC($GET(PXAA("HOS LOC")),0))

                       Begin DoDot:2

 +64                       SET STOP=1

 +65                       SET PXAERRF=1

 +66                       SET PXADI("DIALOG")=8390001.001

 +67                       SET PXAERR(9)="HOS LOC"

 +68                       SET PXAERR(11)=$GET(PXAA("HOS LOC"))

 +69                       SET PXAERR(12)="This HOSPITAL LOCATION is not a pointer to the HOSPITAL LOCATION file #44"

                       End DoDot:2

                       IF $GET(STOP)

                           QUIT

               End DoDot:1

               IF $GET(STOP)

                   QUIT

 +70      ;---hospital location is the dispositioning location

 +71       IF $DATA(PXAA("HOS LOC"))

               Begin DoDot:1

 +72               IF $DATA(^PX(815,1,"DHL","B",$GET(PXAA("HOS LOC"))))

                       Begin DoDot:2

 +73                       SET STOP=1

 +74                       SET PXAERRF=1

 +75                       SET PXADI("DIALOG")=8390001.001

 +76                       SET PXAERR(9)="HOS LOC"

 +77                       SET PXAERR(11)=$GET(PXAA("HOS LOC"))

 +78                       SET PXAERR(12)="This HOSPITAL LOCATION is a dispositioning location and connot be used. Refer to entries in file#815 PCE PARAMETERS"

                       End DoDot:2

                       IF $GET(STOP)

                           QUIT

               End DoDot:1

               IF $GET(STOP)

                   QUIT

 +79      ;--Not a service category

 +80       IF '$DATA(PXAA("SERVICE CATEGORY"))

               Begin DoDot:1

 +81               SET STOP=1

 +82               SET PXAERRF=1

 +83               SET PXADI("DIALOG")=8390001.001

 +84               SET PXAERR(9)="SERVICE CATEGORY"

 +85               SET PXAERR(11)=$GET(PXAA("SERVICE CATEGORY"))

 +86               SET PXAERR(12)="SERVICE CATEGORY is a required field"

               End DoDot:1

               IF $GET(STOP)

                   QUIT

 +87       QUIT

 +88      ;

VPTR      ;---Is the visit sent TO US valid?

 +1        IF $GET(PXAVISIT)

               Begin DoDot:1

 +2                IF '$DATA(^AUPNVSIT(PXAVISIT,0))

                       Begin DoDot:2

 +3                        SET STOP=1

 +4                        SET PXAK=1

 +5                        SET PXAERRF=1

 +6                        SET PXADI("DIALOG")=8390001.001

 +7                        SET PXAERR(7)="ENCOUNTER"

 +8                        SET PXAERR(9)="GENERAL NATURE"

 +9                        SET PXAERR(11)=$GET(PXAVISIT)

 +10                       SET PXAERR(12)="The value that was sent to us is not a valid visit in the VISIT file # 9000010. The Patients name will be derived from the visit file and could cause the data to be given to the wrong patient if not correct."

 +11                       SET PXAERR(13)="If the correct VISIT isn't known, set the 'ENCOUNTER' array and we will look it up or create a correct one. Setting both at the same time will only add confusion as to what data is correct."

                       End DoDot:2

                       IF $GET(STOP)

                           QUIT

               End DoDot:1

               IF $DATA(STOP)

                   QUIT

 +12       IF $GET(PXAVISIT)

               QUIT

 +13       QUIT

PXAIVSTV.m