BTIUPCC4 ; IHS/CIA/MGH - IHS PCC INPT OBJECTS ;13-Dec-2013 09:55;DU
;;1.0;TEXT INTEGRATION UTILITIES;**1004,1005,1006,1010,1012**;NOV 04, 2004;Build 45
;Patch 1005 added measurment list object
;Patch 1010 adds qualifiers
;==================================================================
LSTMEAS(DFN,TIUMSR,VAIN) ; -- returns most current measurement (internal values)
;Designed to return most recent vital signs for inpatients
NEW MSR,VDT,IEN,X,TIU,LINE,ARR,DATE,STOP,ISINP,QUALIF
S MSR=$O(^AUTTMSR("B",TIUMSR,0)) I MSR="" Q ""
;
;Check whether patient is an inpatient or not
I $G(VAIN(1)) D
.S STOP=(9999999-$P(VAIN(7),U,1)\1)+1
I 'STOP Q "Patient is not an inpatient" ;none to be found
S VDT=0
F S VDT=$O(^AUPNVMSR("AE",DFN,MSR,VDT)) Q:'VDT!(VDT>STOP) D
. S IEN=0
. F S IEN=$O(^AUPNVMSR("AE",DFN,MSR,VDT,IEN)) Q:'IEN D
.. K TIU D ENP^XBDIQ1(9000010.01,IEN,".03;.04;1201;2","TIU(","I")
.. ; value ^ visit ien ^ event date internal format
.. Q:TIU(2,"I")=1 ;Quit if entered in error
.. S QUALIF=$$QUAL^BTIULO7A(IEN)
.. S LINE=$G(TIU(.04))_U_$G(TIU(.03,"I"))_U_$G(TIU(1201,"I"))_U_QUALIF
.. S DATE=$S($G(TIU(1201,"I"))]"":TIU(1201,"I"),1:(9999999-$P(VDT,"."))_"."_$P(VDT,".",2))
.. S ARR(DATE,IEN)=LINE
;
I '$D(ARR)!($D(ARR)=0) S LINE="Not done while inpatient" Q LINE
S DATE=$O(ARR(""),-1),IEN=$O(ARR(DATE,""),-1),LINE=ARR(DATE,IEN)
K VAIN
Q $G(LINE)
;
LSTDATE(DATE1,DATE2,YES) ;EP -- returns event date or visit date;PATCH 1002 fixed typo
I 'YES Q "" ;no date asked for
;
;IHS/ITSC/LJF 02/24/2005 PATCH 1002 add parens around dates
;I $G(DATE2) Q " "_$$FMTE^XLFDT(DATE2) ;event date
;Q " "_$$GET1^DIQ(9000010,+DATE1,.01) ;visit date from visit ien
I $G(DATE2) Q " ("_$$FMTE^XLFDT(DATE2)_")" ;event date
I 'DATE1 Q " "
Q " ("_$$GET1^DIQ(9000010,+DATE1,.01)_")" ;visit date from visit ien
;
PAD(DATA,LENGTH) ; -- SUBRTN to pad length of data
Q $E(DATA_$$REPEAT^XLFSTR(" ",LENGTH),1,LENGTH)
;
SP(NUM) ; -- SUBRTN to pad spaces
Q $$PAD(" ",NUM)
MEASLST(DFN,TARGET) ;EP Get last of each type of vital
;Use the system list from the BEHOENVM VITAL LIST parameter
N ARRAY,MEAS,MITEM,MTYPE,CNT,TIUMSR
S CNT=0
D GETLST^XPAR(.ARRAY,"SYS","BEHOVM VITAL LIST","I")
S MEAS="" F S MEAS=$O(ARRAY(MEAS)) Q:MEAS="" D
.S MITEM=$G(ARRAY(MEAS))
.Q:MITEM=""
.S MTYPE=$P($G(^AUTTMSR(MITEM,0)),U,1)
.I MTYPE'="" D
..S TIUMSR=$$LASTMSR^BTIUPCC1(DFN,MTYPE,1,1)
..I TIUMSR'="" D
...S CNT=CNT+1
...S @TARGET@(CNT,0)=TIUMSR
I CNT=0 S @TARGET@(1,0)="No measurement data on file"
Q "~@"_$NA(@TARGET)
BTIUPCC4 ; IHS/CIA/MGH - IHS PCC INPT OBJECTS ;13-Dec-2013 09:55;DU
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**1004,1005,1006,1010,1012**;NOV 04, 2004;Build 45
+2 ;Patch 1005 added measurment list object
+3 ;Patch 1010 adds qualifiers
+4 ;==================================================================
LSTMEAS(DFN,TIUMSR,VAIN) ; -- returns most current measurement (internal values)
+1 ;Designed to return most recent vital signs for inpatients
+2 NEW MSR,VDT,IEN,X,TIU,LINE,ARR,DATE,STOP,ISINP,QUALIF
+3 SET MSR=$ORDER(^AUTTMSR("B",TIUMSR,0))
IF MSR=""
QUIT ""
+4 ;
+5 ;Check whether patient is an inpatient or not
+6 IF $GET(VAIN(1))
Begin DoDot:1
+7 SET STOP=(9999999-$PIECE(VAIN(7),U,1)\1)+1
End DoDot:1
+8 ;none to be found
IF 'STOP
QUIT "Patient is not an inpatient"
+9 SET VDT=0
+10 FOR
SET VDT=$ORDER(^AUPNVMSR("AE",DFN,MSR,VDT))
IF 'VDT!(VDT>STOP)
QUIT
Begin DoDot:1
+11 SET IEN=0
+12 FOR
SET IEN=$ORDER(^AUPNVMSR("AE",DFN,MSR,VDT,IEN))
IF 'IEN
QUIT
Begin DoDot:2
+13 KILL TIU
DO ENP^XBDIQ1(9000010.01,IEN,".03;.04;1201;2","TIU(","I")
+14 ; value ^ visit ien ^ event date internal format
+15 ;Quit if entered in error
IF TIU(2,"I")=1
QUIT
+16 SET QUALIF=$$QUAL^BTIULO7A(IEN)
+17 SET LINE=$GET(TIU(.04))_U_$GET(TIU(.03,"I"))_U_$GET(TIU(1201,"I"))_U_QUALIF
+18 SET DATE=$SELECT($GET(TIU(1201,"I"))]"":TIU(1201,"I"),1:(9999999-$PIECE(VDT,"."))_"."_$PIECE(VDT,".",2))
+19 SET ARR(DATE,IEN)=LINE
End DoDot:2
End DoDot:1
+20 ;
+21 IF '$DATA(ARR)!($DATA(ARR)=0)
SET LINE="Not done while inpatient"
QUIT LINE
+22 SET DATE=$ORDER(ARR(""),-1)
SET IEN=$ORDER(ARR(DATE,""),-1)
SET LINE=ARR(DATE,IEN)
+23 KILL VAIN
+24 QUIT $GET(LINE)
+25 ;
LSTDATE(DATE1,DATE2,YES) ;EP -- returns event date or visit date;PATCH 1002 fixed typo
+1 ;no date asked for
IF 'YES
QUIT ""
+2 ;
+3 ;IHS/ITSC/LJF 02/24/2005 PATCH 1002 add parens around dates
+4 ;I $G(DATE2) Q " "_$$FMTE^XLFDT(DATE2) ;event date
+5 ;Q " "_$$GET1^DIQ(9000010,+DATE1,.01) ;visit date from visit ien
+6 ;event date
IF $GET(DATE2)
QUIT " ("_$$FMTE^XLFDT(DATE2)_")"
+7 IF 'DATE1
QUIT " "
+8 ;visit date from visit ien
QUIT " ("_$$GET1^DIQ(9000010,+DATE1,.01)_")"
+9 ;
PAD(DATA,LENGTH) ; -- SUBRTN to pad length of data
+1 QUIT $EXTRACT(DATA_$$REPEAT^XLFSTR(" ",LENGTH),1,LENGTH)
+2 ;
SP(NUM) ; -- SUBRTN to pad spaces
+1 QUIT $$PAD(" ",NUM)
MEASLST(DFN,TARGET) ;EP Get last of each type of vital
+1 ;Use the system list from the BEHOENVM VITAL LIST parameter
+2 NEW ARRAY,MEAS,MITEM,MTYPE,CNT,TIUMSR
+3 SET CNT=0
+4 DO GETLST^XPAR(.ARRAY,"SYS","BEHOVM VITAL LIST","I")
+5 SET MEAS=""
FOR
SET MEAS=$ORDER(ARRAY(MEAS))
IF MEAS=""
QUIT
Begin DoDot:1
+6 SET MITEM=$GET(ARRAY(MEAS))
+7 IF MITEM=""
QUIT
+8 SET MTYPE=$PIECE($GET(^AUTTMSR(MITEM,0)),U,1)
+9 IF MTYPE'=""
Begin DoDot:2
+10 SET TIUMSR=$$LASTMSR^BTIUPCC1(DFN,MTYPE,1,1)
+11 IF TIUMSR'=""
Begin DoDot:3
+12 SET CNT=CNT+1
+13 SET @TARGET@(CNT,0)=TIUMSR
End DoDot:3
End DoDot:2
End DoDot:1
+14 IF CNT=0
SET @TARGET@(1,0)="No measurement data on file"
+15 QUIT "~@"_$NAME(@TARGET)
