Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXAIVSTV

PXAIVSTV.m

Go to the documentation of this file. 
  1. PXAIVSTV ;ISL/JVS,PKR ISA/KWP - VALIDATE THE VISIT DATA ;09/09/2020
  1.  ;;1.0;PCE PATIENT CARE ENCOUNTER;**9,15,19,74,111,116,130,124,168,211**;Aug 12, 1996;Build 454
  1.  ;
  1.  Q
  1. ERRSET ;Set the rest of the error data.
  1.  S STOP=1
  1.  S PXAERRF=1
  1.  S PXADI("DIALOG")=8390001.001
  1.  Q
  1.  ;
  1. VAL ;--Validate the input.
  1.  ;If a valid Visit pointer has been input no further validation is
  1.  ;required, when this is called the Visit pointer has already been
  1.  ;validated.
  1.  I $G(PXAVISIT) Q
  1.  ;
  1.  ;If it is a deletion then no further validation is required.
  1.  I $G(PXAA("DELETE"))=1 Q
  1.  ;
  1.  ;Missing the date and time of visit.
  1.  I $G(PXAA("ENC D/T"))="" D  Q
  1.  . S PXAERR(9)="ENC D/T"
  1.  . S PXAERR(11)=$G(PXAA("ENC D/T"))
  1.  . S PXAERR(12)="The visit date and time is missing."
  1.  . D ERRSET
  1.  ;
  1.  ;Is it a valid FileMan date?
  1.  I $$VFMDATE^PXDATE(PXAA("ENC D/T"),"ST")=-1 D  Q
  1.  . S PXAERR(9)="ENC D/T"
  1.  . S PXAERR(11)=PXAA("ENC D/T")
  1.  . S PXAERR(12)="The visit date and time is not a valid FileMan date and time."
  1.  . D ERRSET
  1.  ;
  1.  ;Missing Time and not a historical visit.
  1.  I $P(PXAA("ENC D/T"),".",2)="",$G(PXAA("SERVICE CATEGORY"))'="E" D  Q
  1.  . S PXAERR(9)="ENC D/T"
  1.  . S PXAERR(11)=PXAA("ENC D/T")
  1.  . S PXAERR(12)="The visit time is missing and the visit is not historical."
  1.  . D ERRSET
  1.  ;
  1.  ;Missing the patient, a pointer to PATIENT/IHS FILE # 9000001
  1.  I $G(PXAA("PATIENT"))']"" D  Q
  1.  . S PXAERR(9)="PATIENT"
  1.  . S PXAERR(11)=$G(PXAA("PATIENT"))
  1.  . S PXAERR(12)="Missing a pointer to the PATIENT/IHS file #9000001"
  1.  . D ERRSET
  1.  ;
  1.  ;Not a valid pointer to the PATIENT/IHS file #9000001
  1.  I '$D(^AUPNPAT(PXAA("PATIENT"),0)) D  Q
  1.  . S PXAERR(9)="PATIENT"
  1.  . S PXAERR(11)=PXAA("PATIENT")
  1.  . S PXAERR(12)=PXAA("PATIENT")_" is not a valid pointer to the PATIENT/IHS file # 9000001."
  1.  . D ERRSET
  1.  ;
  1.  ;Visit date before the patient's date of birth.
  1.  I PXAA("ENC D/T")<$P(^DPT(PXAA("PATIENT"),0),U,3) D  Q
  1.  . S PXAERR(9)="ENC D/T"
  1.  . S PXAERR(11)=PXAA("ENC D/T")
  1.  . S PXAERR(12)="The visit date is before the patient's date of birth"
  1.  . D ERRSET
  1.  ;
  1.  ;Service category is required.
  1.  I '$D(PXAA("SERVICE CATEGORY")) D  Q
  1.  . S PXAERR(9)="SERVICE CATEGORY"
  1.  . S PXAERR(11)=$G(PXAA("SERVICE CATEGORY"))
  1.  . S PXAERR(12)="Service Category is a required field"
  1.  . D ERRSET
  1.  ;
  1.  ;Is the Service Category valid?
  1.  N EXTERNAL,MSG
  1.  S EXTERNAL=$$EXTERNAL^DILFD(9000010,.07,"",PXAA("SERVICE CATEGORY"),"MSG")
  1.  I (EXTERNAL=""),$D(MSG) D  Q
  1.  . S PXAERR(9)="SERVICE CATEGORY"
  1.  . S PXAERR(11)=PXAA("SERVICE CATEGORY")
  1.  . S PXAERR(12)="This is not a valid Service Category."
  1.  . D ERRSET
  1.  ;
  1.  ;Hospital Location is required unless Service Category is "E".
  1.  I PXAA("SERVICE CATEGORY")'="E",$G(PXAA("HOS LOC"))="" D  Q
  1.  . S PXAERR(9)="HOSPITAL LOCATION"
  1.  . S PXAERR(12)="The Hospital Location is missing and the Service Category is not ""E"""
  1.  . D ERRSET
  1.  ;
  1.  ;Is the pointer to Hospital Location file valid?
  1.  I $G(PXAA("HOS LOC"))'="",'$D(^SC(PXAA("HOS LOC"),0)) D  Q
  1.  . S PXAERR(9)="HOSPITAL LOCATION"
  1.  . S PXAERR(11)=PXAA("HOS LOC")
  1.  . S PXAERR(12)=PXAA("HOS LOC")_" is not a valid pointer to the Hospital Location file #44."
  1.  . D ERRSET
  1.  ;
  1.  ;If a valid Hospital Location is passed use it to automatically
  1.  ;set DSS ID.
  1.  I $G(PXAA("HOS LOC"))'="" S PXAA("DSS ID")=$P(^SC(PXAA("HOS LOC"),0),U,7)
  1.  ;
  1.  ;Is the pointer to Clinic Stop file valid?
  1.  I $G(PXAA("DSS ID"))'="",'$D(^DIC(40.7,PXAA("DSS ID"),0)) D  Q
  1.  . S PXAERR(9)="DSS ID"
  1.  . S PXAERR(11)=PXAA("DSS ID")
  1.  . S PXAERR(12)=PXAA("DSS ID")_" is not a valid pointer to the Clinic Stop Location file #40.7."
  1.  . D ERRSET
  1.  ;
  1.  ;Is the pointer to the parent Visit valid?
  1.  I $G(PXAA("PARENT"))'="",'$D(^AUPNVSIT(PXAA("PARENT"),0)) D  Q
  1.  . S PXAERR(9)="PARENT"
  1.  . S PXAERR(11)=PXAA("PARENT")
  1.  . S PXAERR(12)=PXAA("PARENT")_" is not a valid pointer to the Visit file #9000010."
  1.  . D ERRSET
  1.  ;
  1.  ;Is the Checkout D/T valid?
  1.  ;* I $G(PXAA("CHECKOUT D/T"))'="" D
  1.  ;* .;Is it a valid FileMan date?
  1.  ;* . I $$VFMDATE^PXDATE(PXAA("CHECKOUT D/T"),"ESTXR")=-1 D  Q
  1.  ;* .. S PXAERR(9)="CHECKOUT D/T"
  1.  ;* .. S PXAERR(11)=PXAA("CHECKOUT D/T")
  1.  ;* .. S PXAERR(12)="The checkout date and time is not a valid FileMan date and time."
  1.  ;* .. D ERRSET
  1.  ;* . I $G(STOP)=1 Q
  1.  ;* .;The checkout D/T should not be before the visit D/T.
  1.  ;* . I PXAA("CHECKOUT D/T")<PXAA("ENC D/T") D
  1.  ;* .. S PXAERR(9)="CHECKOUT D/T"
  1.  ;* .. S PXAERR(11)=PXAA("CHECKOUT D/T")
  1.  ;* .. S PXAERR(12)="The checkout D/T is before the encounter D/T."
  1.  ;* .. D ERRSET
  1.  ;* I $G(STOP)=1 Q
  1.  ;
  1.  ;Is the pointer to the eligibility file valid?
  1.  ;* I $G(PXAA("ELIGIBILITY"))'="",'$D(^DIC(8,PXAA("ELIGIBILITY"),0)) D  Q
  1.  ;* . S PXAERR(9)="ELIGIBILITY"
  1.  ;* . S PXAERR(11)=PXAA("ELIGIBILITY")
  1.  ;* . S PXAERR(12)=PXAA("ELIGIBILITY")_" is not a valid pointer to the Eligibility file #8."
  1.  ;* . D ERRSET
  1.  ;
  1.  ;Is the pointer to the Location valid?
  1.  ;* I $G(PXAA("INSTITUTION"))'="",'$D(^AUTTLOC(PXAA("INSTITUTION"),0)) D  Q
  1.  ;* . S PXAERR(9)="INSTITUTION"
  1.  ;* . S PXAERR(11)=PXAA("INSTITUTION")
  1.  ;* . S PXAERR(12)=PXAA("INSTITUTION")_" is not a valid pointer to the Location file #9999999.06."
  1.  ;* . D ERRSET
  1.  ;
  1.  ;Is the Outside Location valid?
  1.  ;* I $G(PXAA("OUTSIDE LOCATION"))'="",(($L(PXAA("OUTSIDE LOCATION"))<2)!($L(PXAA("OUTSIDE LOCATION"))>50)) D  Q
  1.  ;* . S PXAERR(9)="OUTSIDE LOCATION"
  1.  ;* . S PXAERR(11)=PXAA("OUTSIDE LOCATION")
  1.  ;* . S PXAERR(12)="The length of the Outside Location is either less than 2 or greater than 50."
  1.  ;* . D ERRSET
  1.  ;
  1.  ;Is the Comment valid?
  1.  ;* I $G(PXAA("COMMENT"))'="",(($L(PXAA("COMMENT"))<1)!($L(PXAA("COMMENT"))>245)) D  Q
  1.  ;* . S PXAERR(9)="COMMENT"
  1.  ;* . S PXAERR(11)=PXAA("COMMENT")
  1.  ;* . S PXAERR(12)="The length of the Comment is either less than 2 or greater than 245."
  1.  ;* . D ERRSET
  1.  ;
  1.  ;If an Encounter Type is being input validate it.
  1.  ;* I $G(PXAA("ENCOUNTER TYPE"))'="" D
  1.  ;* . N EXTERNAL,MSG
  1.  ;* . S EXTERNAL=$$EXTERNAL^DILFD(9000010,15003,"",PXAA("ENCOUNTER TYPE"),"MSG")
  1.  ;* . I (EXTERNAL=""),$D(MSG) D
  1.  ;* .. S PXAERR(9)="ENCOUNTER TYPE"
  1.  ;* .. S PXAERR(12)=MSG("DIERR",1,"TEXT",1)
  1.  ;* .. S PXAERR(13)=MSG("DIERR",1,"TEXT",2)
  1.  ;* .. D ERRSET
  1.  Q
  1.  ;
  1. VALSCC ;--VALIDATE SERVICE CONNECTIVENESS
  1.  N ERR,ERR1,ERRMSG
  1.  D SCC^PXUTLSCC($G(PXAA("PATIENT")),$G(PXAA("ENC D/T")),$G(PXAA("HOS LOC")),$G(PXAVISIT),$G(AFTER800),.AFTER8A,.ERR)
  1.  ;PX*1*111 - Add HNC
  1.  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,$P(ERR,"^",7)=0,$P(ERR,"^",8)=0 Q
  1.  ;
  1.  S ERRMSG(-1)="Not a valid value"
  1.  S ERRMSG(-2)="Value must be NULL"
  1.  S ERRMSG(-3)="Must be NULL because Service Connected is yes"
  1.  S ERRMSG(0)="No error"
  1.  S ERRMSG(1)="Should be a YES or NO!, not NULL"
  1.  ;
  1.  S PXADI("DIALOG")=8390001.003
  1.  S PXAERRW=1
  1.  ;
  1.  S PXAERR("1W")=$S($P(AFTER800,"^",1)']"":"NULL",1:$P(AFTER800,"^",1))
  1.  S PXAERR("2W")=$S($P(AFTER800,"^",2)']"":"NULL",1:$P(AFTER800,"^",2))
  1.  S PXAERR("3W")=$S($P(AFTER800,"^",3)']"":"NULL",1:$P(AFTER800,"^",3))
  1.  S PXAERR("4W")=$S($P(AFTER800,"^",4)']"":"NULL",1:$P(AFTER800,"^",4))
  1.  S PXAERR("5W")=$S($P(AFTER800,"^",5)']"":"NULL",1:$P(AFTER800,"^",5))
  1.  ;PX*1*111 - Add HNC
  1.  S PXAERR("16W")=$S($P(AFTER800,"^",6)']"":"NULL",1:$P(AFTER800,"^",6))
  1.  S PXAERR("19W")=$S($P(AFTER800,"^",7)']"":"NULL",1:$P(AFTER800,"^",7))
  1.  S PXAERR("22W")=$S($P(AFTER800,"^",8)']"":"NULL",1:$P(AFTER800,"^",8))
  1.  ;
  1.  S ERR1=$P(ERR,"^",1),PXAERR("6W")=ERRMSG(ERR1)
  1.  S ERR1=$P(ERR,"^",2),PXAERR("7W")=ERRMSG(ERR1)
  1.  S ERR1=$P(ERR,"^",3),PXAERR("8W")=ERRMSG(ERR1)
  1.  S ERR1=$P(ERR,"^",4),PXAERR("9W")=ERRMSG(ERR1)
  1.  S ERR1=$P(ERR,"^",5),PXAERR("10W")=ERRMSG(ERR1)
  1.  ;PX*1*111 - Add HNC
  1.  S PXAERR("11W")=$S($P(AFTER8A,"^",1)']"":"NULL",1:$P(AFTER8A,"^",1))
  1.  S PXAERR("12W")=$S($P(AFTER8A,"^",2)']"":"NULL",1:$P(AFTER8A,"^",2))
  1.  S PXAERR("13W")=$S($P(AFTER8A,"^",3)']"":"NULL",1:$P(AFTER8A,"^",3))
  1.  S PXAERR("14W")=$S($P(AFTER8A,"^",4)']"":"NULL",1:$P(AFTER8A,"^",4))
  1.  S PXAERR("15W")=$S($P(AFTER8A,"^",5)']"":"NULL",1:$P(AFTER8A,"^",5))
  1.  ;
  1.  S ERR1=$P(ERR,"^",6),PXAERR("17W")=ERRMSG(ERR1)
  1.  S ERR1=$P(ERR,"^",7),PXAERR("20W")=ERRMSG(ERR1)
  1.  S ERR1=$P(ERR,"^",8),PXAERR("23W")=ERRMSG(ERR1)
  1.  ;PX*1*111 - Add HNC
  1.  S PXAERR("18W")=$S($P(AFTER8A,"^",6)']"":"NULL",1:$P(AFTER8A,"^",6))
  1.  S PXAERR("21W")=$S($P(AFTER8A,"^",7)']"":"NULL",1:$P(AFTER8A,"^",7))
  1.  S PXAERR("24W")=$S($P(AFTER8A,"^",8)']"":"NULL",1:$P(AFTER8A,"^",8))
  1.  D ERR^PXAI("SCC",1)
  1.  Q
  1.  ;
  1. VPKG(EPKG,PKG) ;Is the Package parameter valid?
  1.  I EPKG'="" Q EPKG
  1.  I $G(PKG)="" D  Q 0
  1.  . S PXAERR(7)="ENCOUNTER"
  1.  . S PXAERR(9)="DATA2PCE parameter: PKG"
  1.  . S PXAERR(12)="PKG is required and it is NULL."
  1.  . D ERRSET
  1.  N PIEN
  1.  S PIEN=$$VPKG^PXAIVAL($G(PKG),.PXAERR)
  1.  I PIEN=0 D  Q 0
  1.  . S PXAERR(7)="PACKAGE"
  1.  . D ERRSET
  1.  Q PIEN
  1.  ;
  1. VPTR(VISITIEN) ;Is the Visit pointer valid?
  1.  I '$D(^AUPNVSIT(VISITIEN,0)) D
  1.  . S PXAERR(7)="VISIT POINTER"
  1.  . S PXAERR(9)="DATA2PCE parameter: VISIT"
  1.  . S PXAERR(11)=VISITIEN
  1.  . S PXAERR(12)="The Visit pointer that was input is not valid."
  1.  . D ERRSET
  1.  Q
  1.  ;
  1. VSOURCE(PXAPKG,ESRC,SOURCE) ;Is the Data Source valid?
  1.  ;Scheduling creates encounters using Visit Tracking, it does not call
  1.  ;DATA2PCE and it does not set Source.
  1.  I $P(^DIC(9.4,PXAPKG,0),U,1)="SCHEDULING" Q ""
  1.  I ESRC'="" Q ESRC
  1.  I $G(SOURCE)="" D  Q 0
  1.  . S PXAERR(7)="ENCOUNTER"
  1.  . S PXAERR(9)="DATA2PCE parameter: SOURCE"
  1.  . S PXAERR(12)="SOURCE is required and it is NULL."
  1.  . D ERRSET
  1.  N SRC
  1.  S SRC=$$VSOURCE^PXAIVAL($G(SOURCE),.PXAERR)
  1.  I SRC=0 D  Q 0
  1.  . S PXAERR(7)="DATA SOURCE"
  1.  . D ERRSET
  1.  Q SRC
  1.  ;
  1. VUSER(USER) ;If the user is passed, validate it.
  1.  I $G(USER)="" Q
  1.  I '$D(^VA(200,USER,0)) D  Q
  1.  . S PXAERR(7)="ENCOUNTER"
  1.  . S PXAERR(9)="DATA2PCE parameter USER"
  1.  . S PXAERR(11)="The value is: "_USER
  1.  . S PXAERR(12)=USER_" is not a valid pointer to the New Person file #200."
  1.  . D ERRSET
  1.  Q
  1.  ;