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

GMVDCVAL.m

Go to the documentation of this file.
  1. GMVDCVAL ;HOIFO/DAD,FT-VITALS COMPONENT: VALIDATE DATA ;9/29/00 09:18
  1. ;;5.0;GEN. MED. REC. - VITALS;;Oct 31, 2002
  1. ;
  1. ; This routine uses the following IAs:
  1. ; #10035 - FILE 2 references (supported)
  1. ; #10040 - FILE 44 references (supported)
  1. ; #10060 - FILE 200 fields (supported)
  1. ; #10104 - ^XLFSTR calls (supported)
  1. ;
  1. EN1(RESULT,GMVDATA) ;
  1. ; *** Validates vitals data ***
  1. N GMV,GMVD0,GMVID0,GMVIFIND,GMVIHOLD,GMVILAST,GMVINUM,GMVIXFRM
  1. N GMVMSG,GMVOK,GMVQARRY,GMVQD0,GMVQFIND,GMVQHOLD,GMVQNUM,GMVRD0
  1. N GMVRET,GMVRFIND,GMVRHOLD,GMVRNUM,GMVSYSBP,GMVVABBR,GMVVD0
  1. N GMVVFIND,GMVVHOLD,GMVVLAST,GMVVMEAS,GMVVNUM
  1. D EXIT
  1. F GMV=1:1 S GMVSYSBP=$P($T(BPSYSQ+GMV),";;",2) Q:GMVSYSBP="" D
  1. . S GMVD0=0
  1. . F S GMVD0=$O(^GMRD(120.52,"B",GMVSYSBP,GMVD0)) Q:GMVD0'>0 D
  1. .. I GMVSYSBP=$P($G(^GMRD(120.52,GMVD0,0)),U) S GMVSYSBP(GMVD0)=""
  1. .. Q
  1. . Q
  1. I $O(@GMVDATA@(""))]"" D
  1. . ; *** Vital measurement data validation ***
  1. . I ($O(@GMVDATA@("V",0))>0)!($O(@GMVDATA@("Q",0))>0) D VITMEA
  1. . ; *** Entered in Error data validation ***
  1. . I ($O(@GMVDATA@("I",0))>0)!($O(@GMVDATA@("R",0))>0) D ENTERR
  1. . Q
  1. E D
  1. . D MSG("ERROR: No data to validate/save")
  1. . Q
  1. I $G(RESULT(0))="OK" D MSG("OK: Data validated")
  1. ;
  1. EXIT ; *** Clean-up ***
  1. K ^TMP($J,"GMVXREF")
  1. Q
  1. ;
  1. VITMEA ; *** Validate vital measurement data ***
  1. I $$FIND1^DIC(2,"","","`"_GMVDFN)'=GMVDFN D
  1. . D MSG("ERROR: Missing or invalid Patient parameter")
  1. . Q
  1. K GMVRET D DT^DILF("RSTX",GMVDTDUN,.GMVRET,"-NOW")
  1. I $G(GMVRET,-1)<0 D
  1. . D MSG("ERROR: Missing or invalid Date/Time Vitals Taken parameter")
  1. . Q
  1. I $$FIND1^DIC(44,"","","`"_GMVHOSPL)'=GMVHOSPL D
  1. . D MSG("ERROR: Missing or invalid Hospital Location parameter")
  1. . Q
  1. K GMVRET D DT^DILF("RSTX",GMVDTENT,.GMVRET,"-NOW")
  1. I $G(GMVRET,-1)<0 D
  1. . D MSG("ERROR: Missing or invalid Date/Time Vitals Entered parameter")
  1. . Q
  1. I $$FIND1^DIC(200,"","","`"_GMVENTBY)'=GMVENTBY D
  1. . D MSG("ERROR: Missing or invalid Entered By parameter")
  1. . Q
  1. I "^C^M^"'[(U_$G(GMVMSYS)_U) D
  1. . D MSG("ERROR: Missing or invalid Measurement System")
  1. . Q
  1. S (GMVVNUM,GMVVLAST,GMVVFIND)=0
  1. F S GMVVNUM=$O(@GMVDATA@("V",GMVVNUM)) Q:GMVVNUM'>0 D
  1. . S GMVVLAST=GMVVNUM
  1. . S GMVSYSBP=0,GMVQARRY=U
  1. . S (GMV,GMVVHOLD)=$G(@GMVDATA@("V",GMVVNUM))
  1. . S GMVVD0=$$VITIEN^GMVDCUTL($P(GMV,U))
  1. . S (GMVVMEAS,GMVVMEAS(1))=$P(GMV,U,2)
  1. . I GMVVD0'>0 D
  1. .. D MSG("ERROR: Missing or invalid Vital Type (V^"_GMVVNUM_"="_GMVVHOLD_")")
  1. .. Q
  1. . E D
  1. .. S GMVVFIND=1
  1. .. S GMVVABBR=$P($G(^GMRD(120.51,+GMVVD0,0)),U,2)
  1. .. S $P(@GMVDATA@("V",GMVVNUM),U,1)=GMVVD0
  1. .. D BP^GMVDCVAM,PO2^GMVDCVAM
  1. .. I $$OMIT^GMVDCVAM(GMVVMEAS) D
  1. ... S GMVVMEAS=$$UP^XLFSTR($E(GMVVMEAS))_$$LOW^XLFSTR($E(GMVVMEAS,2,$L(GMVVMEAS)))
  1. ... I $O(@GMVDATA@("Q",GMVVNUM,0))>0 D
  1. .... D MSG("ERROR: Qualifiers not allowed if vital measurement is omitted (V^"_GMVVNUM_"="_GMVVHOLD_")")
  1. .... Q
  1. ... Q
  1. .. S GMVOK=1
  1. .. I '$$VALID^GMVDCCHK($P(GMVVMEAS,";"),GMVMSYS,GMVVABBR) S GMVOK=0
  1. .. I GMVOK,GMVVMEAS("PO2")]"" D
  1. ... S GMVIXFRM=$$GET1^DID(120.5,1.4,"","INPUT TRANSFORM")
  1. ... I GMVIXFRM]"" S X=GMVVMEAS("PO2") X GMVIXFRM I '$D(X) S GMVOK=0
  1. ... Q
  1. .. I 'GMVOK S GMVOK=$$OMIT^GMVDCVAM($P(GMVVMEAS,";"))
  1. .. I 'GMVOK D
  1. ... D MSG("ERROR: Invalid Vital Measurement (V^"_GMVVNUM_"="_GMVVHOLD_")")
  1. ... Q
  1. .. S GMVVMEAS=$$CNV^GMVDCCNV($P(GMVVMEAS,";"),GMVMSYS,"S",GMVVABBR)
  1. .. S $P(@GMVDATA@("V",GMVVNUM),U,2)=GMVVMEAS_";"_GMVVMEAS("PO2")
  1. .. S (GMVQNUM,GMVQFIND)=0
  1. .. F S GMVQNUM=$O(@GMVDATA@("Q",GMVVNUM,GMVQNUM)) Q:GMVQNUM'>0 D
  1. ... S (GMV,GMVQHOLD)=$G(@GMVDATA@("Q",GMVVNUM,GMVQNUM))
  1. ... S GMVQD0=$$QUAIEN^GMVDCUTL(GMV)
  1. ... I GMVQD0>0,$O(^GMRD(120.52,"C",GMVVD0,GMVQD0,0))'>0 S GMVQD0=-2
  1. ... I GMVQD0'>0 D
  1. .... I GMVQD0=-2 D MSG("ERROR: Invalid Qualifier for Vital Type (Q^"_GMVVNUM_U_GMVQNUM_"="_GMVQHOLD_")")
  1. .... I GMVQD0'=-2 D MSG("ERROR: Missing or invalid Vitals Qualifier (Q^"_GMVVNUM_U_GMVQNUM_"="_GMVQHOLD_")")
  1. .... Q
  1. ... E D
  1. .... S GMVQFIND=1
  1. .... S $P(@GMVDATA@("Q",GMVVNUM,GMVQNUM),U,1)=GMVQD0
  1. .... S GMVQARRY=GMVQARRY_GMVQD0_U
  1. .... I GMVSYSBP,$D(GMVSYSBP(GMVQD0))#2 S GMVSYSBP=0
  1. .... Q
  1. ... Q
  1. .. I GMVSYSBP D
  1. ... D MSG("ERROR: Systolic only BPs must have a Doppler or Palpated qualifier (V^"_GMVVNUM_"="_GMVVHOLD_")")
  1. ... Q
  1. .. I 'GMVQFIND,$O(^GMRD(120.52,"C",GMVVD0,0))>0,'$$OMIT^GMVDCVAM(GMVVMEAS) D
  1. ... D MSG("WARNING: No valid Qualifiers found (Q^"_GMVVNUM_"^##=Qualifier)")
  1. ... Q
  1. .. D DUPCHK^GMVDCVAM
  1. .. Q
  1. . Q
  1. I 'GMVVFIND D
  1. . D MSG("ERROR: No valid Vital Types / Measurements found (V^##=VitalType^Measurement)")
  1. . Q
  1. I $O(@GMVDATA@("Q",GMVVLAST)) D
  1. . S GMV=$S(GMVVFIND'>0:"ERROR",1:"WARNING")
  1. . D MSG(GMV_": There are more Qualifiers than there are VitalTypes / Measurements")
  1. . Q
  1. Q
  1. ;
  1. ENTERR ; *** Validate Entered in Error data ***
  1. I $$FIND1^DIC(200,"","","`"_GMVERRBY)'=GMVERRBY D
  1. . D MSG("ERROR: Missing or invalid Entered in Error By parameter")
  1. . Q
  1. S (GMVINUM,GMVILAST,GMVIFIND)=0
  1. F S GMVINUM=$O(@GMVDATA@("I",GMVINUM)) Q:GMVINUM'>0 D
  1. . S GMVILAST=GMVINUM
  1. . S (GMVID0,GMVIHOLD)=$G(@GMVDATA@("I",GMVINUM))
  1. . I $$FIND1^DIC(120.5,"","","`"_GMVID0)'=GMVID0 D
  1. .. D MSG("ERROR: Entered in Error IENS not found (I^"_GMVINUM_"="_GMVIHOLD_")")
  1. .. Q
  1. . E D
  1. .. I $P($G(^GMR(120.5,GMVID0,2)),U) D
  1. ... D MSG("ERROR: Vitals record already marked Entered in Error (I^"_GMVINUM_"="_GMVIHOLD_")")
  1. ... Q
  1. .. S GMVIFIND=1
  1. .. S (GMVRNUM,GMVRFIND)=0
  1. .. F S GMVRNUM=$O(@GMVDATA@("R",GMVINUM,GMVRNUM)) Q:GMVRNUM'>0 D
  1. ... S (GMV,GMVRHOLD)=$G(@GMVDATA@("R",GMVINUM,GMVRNUM))
  1. ... S GMVRD0=$$REAIEN^GMVDCUTL(GMV)
  1. ... I GMVRD0'>0 D
  1. .... D MSG("ERROR: Missing or invalid Entered in Error Reason (R^"_GMVINUM_U_GMVRNUM_"="_GMVRHOLD_")")
  1. .... Q
  1. ... E D
  1. .... S GMVRFIND=1
  1. .... S @GMVDATA@("R",GMVINUM,GMVRNUM)=GMVRD0
  1. .... Q
  1. ... Q
  1. .. I 'GMVRFIND D
  1. ... D MSG("ERROR: No valid Entered in Error Reasons found (R^"_GMVINUM_"^##=EnteredInErrorReason)")
  1. ... Q
  1. .. Q
  1. . Q
  1. I 'GMVIFIND D
  1. . D MSG("ERROR: No valid Entered in Error IENS found (I^##=EnteredInError)")
  1. . Q
  1. I $O(@GMVDATA@("R",GMVILAST)) D
  1. . S GMV=$S(GMVIFIND'>0:"ERROR",1:"WARNING")
  1. . D MSG(GMV_": There are more Entered in Error Reasons than there are Entered in Error IENS")
  1. . Q
  1. Q
  1. ;
  1. MSG(X) ; *** Add a line to the message array ***
  1. S (GMVMSG,RESULT(-1))=1+$G(RESULT(-1),0)
  1. S RESULT(GMVMSG)=X
  1. I $P(X,":")="ERROR" S RESULT(0)="ERROR"
  1. Q
  1. ;
  1. BPSYSQ ;;Qualifiers that must be present if only systolic BP is present
  1. ;;DOPPLER
  1. ;;PALPATED
  1. ;;