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

ORRCVIT.m

Go to the documentation of this file.
  1. ORRCVIT ;SLC/MKB - Vitals utilities ; 25 Jul 2003 9:31 AM
  1. ;;1.0;CARE MANAGEMENT;;Jul 15, 2003
  1. ;
  1. ; ID = "VIT:"_PatientID_;_MeasurementDate everywhere below
  1. ;
  1. LIST(ORY,DFN,SDATE,EDATE,VALS) ; -- Return MAX sets of measurements for DFN
  1. ; in @ORY@(#) = Item=ID^^MeasurementDate in HL7 format, and if VALS
  1. ; = Data=Vital^Value^Unit^MetricValue^Unit^BMI^SuppO2^CriticalFlag^Qualifiers
  1. ; RPC = ORRC VITALS BY PATIENT
  1. N ORN,GMRVSTR,CNT,IDT,VDT,TYPE,IFN,DATA,X K ^UTILITY($J,"GMRVD")
  1. S SDATE=$$HL7TFM^XLFDT($G(SDATE)),EDATE=$$HL7TFM^XLFDT($G(EDATE))
  1. S DFN=+$G(DFN),MAX=$S(SDATE&EDATE:100,1:5)
  1. I $G(EDATE),$L(EDATE,".")<2 S EDATE=EDATE_".2359"
  1. S GMRVSTR="BP;T;R;P;HT;WT;CVP;CG;PO2;PN",GMRVSTR(0)=SDATE_U_EDATE_U_MAX_"^1"
  1. D EN1^GMRVUT0 S ORY=$NA(^TMP($J,"ORRCVIT")),(ORN,CNT)=0 K @ORY
  1. S IDT=0 F S IDT=$O(^UTILITY($J,"GMRVD",IDT)) Q:IDT<1 D Q:CNT'<MAX
  1. . S VDT=9999999-IDT,CNT=CNT+1
  1. . S ORN=ORN+1,@ORY@(ORN)="Item=VIT:"_DFN_";"_VDT_U_U_VDT Q:'$G(VALS)
  1. . S TYPE="" F S TYPE=$O(^UTILITY($J,"GMRVD",IDT,TYPE)) Q:TYPE="" D
  1. .. S IFN=0 F S IFN=$O(^UTILITY($J,"GMRVD",IDT,TYPE,IFN)) Q:IFN<1 S X=$G(^(IFN)) D
  1. ... D @TYPE ;return DATA w/relevant pieces
  1. ... S ORN=ORN+1,@ORY@(ORN)="Data="_DATA
  1. K ^UTILITY($J,"GMRVD")
  1. Q
  1. ;
  1. DETAIL(ORY,VITAL) ; -- Return details of VITALs
  1. ; where VITAL(#) = ID
  1. ; in @ORY@(#) = Item=ID^^MeasurementDate in HL7 format
  1. ; = Data=Vital^Value^Unit^MetricValue^Unit^BMI^SuppO2^CriticalFlag^Qualifiers
  1. ; RPC = ORRC VITALS BY ID
  1. N GMRVSTR,DFN,STRT,STOP,ORN,ORI,ID,IDT,VDT,TYPE,IFN,DATA,X
  1. K ^UTILITY($J,"GMRVD") D RANGE
  1. S GMRVSTR="BP;T;R;P;HT;WT;CVP;CG;PO2;PN",GMRVSTR(0)=STRT_U_STOP_"^100^1"
  1. D EN1^GMRVUT0 S ORY=$NA(^TMP($J,"ORRCVIT")),ORN=0 K @ORY
  1. S ORI=0 F S ORI=$O(VITAL(ORI)) Q:ORI<1 S ID=$G(VITAL(ORI)) D
  1. . S VDT=$P(ID,";",2),IDT=9999999-VDT
  1. . S ORN=ORN+1,@ORY@(ORN)="Item="_ID_U_U_VDT
  1. . S TYPE="" F S TYPE=$O(^UTILITY($J,"GMRVD",IDT,TYPE)) Q:TYPE="" D
  1. .. S IFN=0 F S IFN=$O(^UTILITY($J,"GMRVD",IDT,TYPE,IFN)) Q:IFN<1 S X=$G(^(IFN)) D
  1. ... D @TYPE ;return DATA w/relevant pieces
  1. ... S ORN=ORN+1,@ORY@(ORN)="Data="_DATA
  1. K ^UTILITY($J,"GMRVD")
  1. Q
  1. ;
  1. RANGE ; -- Get STRT,STOP,DFN from VITALs
  1. N ORI,ID,VDT S (STRT,STOP)=""
  1. S ORI=0 F S ORI=$O(VITAL(ORI)) Q:ORI<1 S ID=$G(VITAL(ORI)) D
  1. . S DFN=+$P(ID,":",2),VDT=$P(ID,";",2)
  1. . I $S('$L(STRT):1,VDT<STRT:1,1:0) S STRT=VDT
  1. . I $S('$L(STOP):1,VDT>STOP:1,1:0) S STOP=VDT
  1. Q
  1. ;
  1. ; Return formatted DATA string from X:
  1. ;
  1. BP ; -- Blood Pressure = B/P^value^^^^^^[*]^Q1;..;Qn
  1. S DATA="B/P^"_$P(X,U,8)_"^^^^^^"_$P(X,U,12)_U_$P(X,U,17)
  1. Q
  1. T ; -- Temperature = Temp.^value^F^metric^C^^^[*]^Q1;..;Qn
  1. S DATA="Temp.^"_$P(X,U,8)_"^F^"_$P(X,U,13)_"^C^^^"_$P(X,U,12)_U_$P(X,U,17)
  1. Q
  1. R ; -- Respiration = Resp.^value^^^^^^[*]^Q1;..;Qn
  1. S DATA="Resp.^"_$P(X,U,8)_"^^^^^^"_$P(X,U,12)_U_$P(X,U,17)
  1. Q
  1. P ; -- Pulse = Pulse^value^^^^^^[*]^Q1;..;Qn
  1. S DATA="Pulse^"_$P(X,U,8)_"^^^^^^"_$P(X,U,12)_U_$P(X,U,17)
  1. Q
  1. HT ; -- Height = Ht.^value^in^metric^cm^^^[*]^Q1;..;Qn
  1. S DATA="Ht.^"_$P(X,U,8)_"^in^"_$P(X,U,13)_"^cm^^^"_$P(X,U,12)_U_$P(X,U,17)
  1. Q
  1. WT ; -- Weight = Wt.^value^lb^metric^kg^BodyMassIndex^^[*]^Q1;..;Qn
  1. S DATA="Wt.^"_$P(X,U,8)_"^lb^"_$P(X,U,13)_"^kg^"_$P(X,U,14)_U_U_$P(X,U,12)_U_$P(X,U,17)
  1. Q
  1. CVP ; -- CenVenPress = CVP^value^cmH2O^^^^^[*]^Q1;..;Qn
  1. S DATA="CVP^"_$P(X,U,8)_"^cmH2O^^^^^"_$P(X,U,12)_U_$P(X,U,17)
  1. Q
  1. CG ; -- Circm/Girth = C/G^value^in^metric^cm^^^[*]^Q1;..;Qn
  1. S DATA="C/G^"_$P(X,U,8)_"^in^"_$P(X,U,13)_"^cm^^^"_$P(X,U,12)_U_$P(X,U,17)
  1. Q
  1. PO2 ; -- PulseOx = Pulse Ox^value^^^^^l/min of supplemental O2^[*]^Q1;..;Qn
  1. S DATA="Pulse Ox^"_$P(X,U,8)_"^^^^^"_$P(X,U,15)_U_$P(X,U,12)_U_$P(X,U,17)
  1. Q
  1. PN ; -- Pain = Pain^value^^^^^^[*]^Q1;..;Qn
  1. S DATA="Pain^"_$P(X,U,8)_"^^^^^^"_$P(X,U,12)_U_$P(X,U,17)
  1. Q
  1. ;
  1. IDS(ORY,DFN,SDATE,EDATE) ; --Return recent measurement IDs for DFN
  1. ; in @ORY@(DFN) = #sets ^ 1 if any are critical
  1. ; @ORY@(DFN,ID) = * if critical, else null
  1. ; [from ORRCDPT1]
  1. N GMRVSTR,MAX,CNT,ABN,IDT,VDT,X
  1. S ORY=$NA(^TMP($J,"ORRCVIT")) K @ORY,^UTILITY($J,"GMRVD")
  1. S DFN=+$G(DFN),MAX=$S($G(SDATE)&$G(EDATE):100,1:5)
  1. I $G(EDATE),$L(EDATE,".")<2 S EDATE=EDATE_".2359" ;end of day
  1. S GMRVSTR="BP;T;R;P;HT;WT;CVP;CG;PO2;PN",GMRVSTR(0)=$G(SDATE)_U_$G(EDATE)_U_MAX_"^1"
  1. D EN1^GMRVUT0 S CNT=0,ABN=""
  1. S IDT=0 F S IDT=$O(^UTILITY($J,"GMRVD",IDT)) Q:IDT<1 D Q:CNT'<MAX
  1. . S VDT=9999999-IDT,CNT=CNT+1,X=$$ABN(IDT)
  1. . S @ORY@(DFN,"VIT:"_DFN_";"_VDT)=X S:$L(X) ABN=1
  1. S:CNT @ORY@(DFN)=CNT_U_ABN
  1. K ^UTILITY($J,"GMRVD")
  1. Q
  1. ;
  1. ABN(IDT) ; -- Return * if any value from measurement set is critical, else null
  1. N Y,TYPE,IFN S Y=""
  1. S TYPE="" F S TYPE=$O(^UTILITY($J,"GMRVD",IDT,TYPE)) Q:TYPE="" D
  1. . S IFN=0 F S IFN=$O(^UTILITY($J,"GMRVD",IDT,TYPE,IFN)) Q:IFN<1 S:$G(^(IFN))["*" Y="*"
  1. Q Y