- 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 Jan 18, 2025@02:57:35 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