GMRVER0 ;HIRMFO/RM,YH-REPORT OF VITALS ENTERED IN ERROR FOR A PATIENT ;2/6/99
;;4.0;Vitals/Measurements;**7**;Apr 25, 1997
EN1 ; ENTRY FROM OPTION GMRV ERROR PRINT
K ^TMP($J) S DIC="^DPT(",DIC(0)="AEQM" D ^DIC K DIC Q:+Y'>0 S DFN=+Y
DTS S %DT="AET",%DT("A")="Start with DATE (TIME optional): ",%DT("B")="T-7" D ^%DT K %DT I +Y'>0 G Q
S GMRVSDT=+Y
S %DT="AET",%DT("A")="go to DATE (TIME optional): ",%DT("B")="NOW" D ^%DT K %DT I X="^" G Q
I +Y'>0!($P(Y,".",2)'>0&(DT=Y)) D NOW^%DTC S Y=%
I $P(Y,".",2)'>0 S Y=Y_$S(Y[".":"2400",1:".2400")
I GMRVSDT>+Y W !,?3,$C(7),"THE START DATE MUST BE BEFORE THE END DATE OF THIS REPORT" G DTS
S GMRVFDT=+Y
DEV S %ZIS="Q" D ^%ZIS K %ZIS G:POP Q I $E(IOST)="P",'$D(IO("Q")),'$D(IO("S")) D ^%ZISC W !,?3,"PRINTED REPORTS MUST BE QUEUED!!",$C(7) G DEV
I $D(IO("Q")) S (ZTSAVE("DFN"),ZTSAVE("GMRVSDT"),ZTSAVE("GMRVFDT"))="",ZTIO=ION,ZTDESC="Entered in error vital/measurement report",ZTRTN="EN1^GMRVER1" D ^%ZTLOAD K IO("Q"),ZTSK,ZTIO G Q
G EN1^GMRVER1
Q G Q^GMRVER1
ERREASON ;ERROR REASON
Q:'$D(^GMR(120.5,+GMRVDA,2.1))
S GER=0 F S GER=$O(^GMR(120.5,+GMRVDA,2.1,GER)) Q:GER'>0 S GER(1)=+$G(^GMR(120.5,+GMRVDA,2.1,GER,0)) D
. S GER(2)=$S(GER(1)=1:"incorrect date/time",GER(1)=2:"incorrect reading",GER(1)=3:"incorrect patient",GER(1)=4:"invalid record",1:"")
. I GER(2)'="" S GREASON=GREASON_$S(GREASON'="":", ",1:"")_GER(2)
.Q
K GER Q
WRTDAT(TYPE,DATA) ;
I '((TYPE="BP")!(TYPE="P")!(TYPE="R")),DATA>0 D @TYPE
Q DATA
T S DATA=DATA_" F ("_$J(+DATA-32*5/9,0,1)_" C)" Q
WT S DATA=DATA_" lb ("_$J(DATA/2.2,0,2)_" kg)" Q
HT S DATA=$S(DATA\12:DATA\12_" ft ",1:"")_$S(DATA#12:DATA#12_" in",1:"")_" ("_$J(DATA*2.54,0,2)_" cm)" Q
CG S DATA=DATA_" in ("_$J(+DATA/.3937,0,2)_" cm)" Q
CVP S DATA=DATA_" cmH2O ("_$J(DATA/1.36,0,1)_" mmHg)" Q
PO2 S DATA=DATA_"%" Q
PN I DATA=0 S DATA=DATA_" No pain " Q
I DATA=99 S DATA=DATA_" Unable to respond " Q
I DATA=10 S DATA=DATA_" Worst imaginable pain " Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRVER0 1980 printed Dec 13, 2024@01:56:22 Page 2
GMRVER0 ;HIRMFO/RM,YH-REPORT OF VITALS ENTERED IN ERROR FOR A PATIENT ;2/6/99
+1 ;;4.0;Vitals/Measurements;**7**;Apr 25, 1997
EN1 ; ENTRY FROM OPTION GMRV ERROR PRINT
+1 KILL ^TMP($JOB)
SET DIC="^DPT("
SET DIC(0)="AEQM"
DO ^DIC
KILL DIC
if +Y'>0
QUIT
SET DFN=+Y
DTS SET %DT="AET"
SET %DT("A")="Start with DATE (TIME optional): "
SET %DT("B")="T-7"
DO ^%DT
KILL %DT
IF +Y'>0
GOTO Q
+1 SET GMRVSDT=+Y
+2 SET %DT="AET"
SET %DT("A")="go to DATE (TIME optional): "
SET %DT("B")="NOW"
DO ^%DT
KILL %DT
IF X="^"
GOTO Q
+3 IF +Y'>0!($PIECE(Y,".",2)'>0&(DT=Y))
DO NOW^%DTC
SET Y=%
+4 IF $PIECE(Y,".",2)'>0
SET Y=Y_$SELECT(Y[".":"2400",1:".2400")
+5 IF GMRVSDT>+Y
WRITE !,?3,$CHAR(7),"THE START DATE MUST BE BEFORE THE END DATE OF THIS REPORT"
GOTO DTS
+6 SET GMRVFDT=+Y
DEV SET %ZIS="Q"
DO ^%ZIS
KILL %ZIS
if POP
GOTO Q
IF $EXTRACT(IOST)="P"
IF '$DATA(IO("Q"))
IF '$DATA(IO("S"))
DO ^%ZISC
WRITE !,?3,"PRINTED REPORTS MUST BE QUEUED!!",$CHAR(7)
GOTO DEV
+1 IF $DATA(IO("Q"))
SET (ZTSAVE("DFN"),ZTSAVE("GMRVSDT"),ZTSAVE("GMRVFDT"))=""
SET ZTIO=ION
SET ZTDESC="Entered in error vital/measurement report"
SET ZTRTN="EN1^GMRVER1"
DO ^%ZTLOAD
KILL IO("Q"),ZTSK,ZTIO
GOTO Q
+2 GOTO EN1^GMRVER1
Q GOTO Q^GMRVER1
ERREASON ;ERROR REASON
+1 if '$DATA(^GMR(120.5,+GMRVDA,2.1))
QUIT
+2 SET GER=0
FOR
SET GER=$ORDER(^GMR(120.5,+GMRVDA,2.1,GER))
if GER'>0
QUIT
SET GER(1)=+$GET(^GMR(120.5,+GMRVDA,2.1,GER,0))
Begin DoDot:1
+3 SET GER(2)=$SELECT(GER(1)=1:"incorrect date/time",GER(1)=2:"incorrect reading",GER(1)=3:"incorrect patient",GER(1)=4:"invalid record",1:"")
+4 IF GER(2)'=""
SET GREASON=GREASON_$SELECT(GREASON'="":", ",1:"")_GER(2)
+5 QUIT
End DoDot:1
+6 KILL GER
QUIT
WRTDAT(TYPE,DATA) ;
+1 IF '((TYPE="BP")!(TYPE="P")!(TYPE="R"))
IF DATA>0
DO @TYPE
+2 QUIT DATA
T SET DATA=DATA_" F ("_$JUSTIFY(+DATA-32*5/9,0,1)_" C)"
QUIT
WT SET DATA=DATA_" lb ("_$JUSTIFY(DATA/2.2,0,2)_" kg)"
QUIT
HT SET DATA=$SELECT(DATA\12:DATA\12_" ft ",1:"")_$SELECT(DATA#12:DATA#12_" in",1:"")_" ("_$JUSTIFY(DATA*2.54,0,2)_" cm)"
QUIT
CG SET DATA=DATA_" in ("_$JUSTIFY(+DATA/.3937,0,2)_" cm)"
QUIT
CVP SET DATA=DATA_" cmH2O ("_$JUSTIFY(DATA/1.36,0,1)_" mmHg)"
QUIT
PO2 SET DATA=DATA_"%"
QUIT
PN IF DATA=0
SET DATA=DATA_" No pain "
QUIT
+1 IF DATA=99
SET DATA=DATA_" Unable to respond "
QUIT
+2 IF DATA=10
SET DATA=DATA_" Worst imaginable pain "
QUIT
+3 QUIT
