GMRVORD0 ;HISC/RM,YH-OE/RR PRINT ACTION HOOKS ;11/20/95
;;4.0;Vitals/Measurements;;Apr 25, 1997
EN1 ; ENTRY FROM ORDER PRINT ACTION OF GMRVORADMIT V/M OPTION
S GMRX=$S($D(^ORD(101,+$P(GMRVORD(2),"^",4),0)):$P(^(0),"^"),1:"")
S GMRSTR=$S(GMRX="GMRVORADMIT V/M":"T;P;R;BP;HT;WT",GMRX="GMRVORTPR B/P":"T;P;R;BP",GMRX="GMRVORTPR":"T;P;R",GMRX="GMRVORTEMP":"T",GMRX="GMRVORPULSE":"P",1:"")
I GMRSTR="" S GMRSTR=$S(GMRX="GMRVORRESP":"R",GMRX="GMRVORB/P":"BP",GMRX="GMRVORHT":"HT",GMRX="GMRVORWT":"WT",1:"T;P;R;BP;HT;WT")
I $D(ORIFN) D EN^ORX8(ORIFN) S ORSTS=+ORUPCHUK("ORSTS"),GMROUT=0,DFN=$P(ORVP,";")
S GMRVOERR=1,GMRVSTRT=$S(+ORUPCHUK("ORSTRT"):9999999-ORUPCHUK("ORSTRT"),1:""),GMRVSTOP=$S(+ORUPCHUK("ORSTOP"):9999999-ORUPCHUK("ORSTOP"),1:"")
S GMRVORD(0)=$S(ORSTS=11:ORIFN_"^"_$P(ORUPCHUK("ORPK"),"^",3,5),1:$G(^GMR(120.55,ORIFN,0))),GMRVORD("O")=$S(ORSTS=11:$P(ORUPCHUK("ORPK"),"^",6),1:$G(^GMR(120.55,ORIFN,"O")))
D PGBRK W !!,"Schedule: "_$P(GMRVORD(0),"^",2)
W:GMRVORD("O")'="" !,"Special Instructions: "_$P(GMRVORD("O"),"^")
;DISPLAY DETAILED VITALS/MEASUREMENTS
S GMRVSTR=GMRSTR,GMRVSTR(0)=ORUPCHUK("ORSTRT")_"^"_ORUPCHUK("ORSTOP")_"^100^1" W ! D EN1^GMRVUT0 D K GMRORST,ORUPCHUK,^UTILITY($J,"GMRVD"),GMRVX Q
.I '$D(^UTILITY($J)) W !,"There are no results to report.",!
.E D
..N Y,X K GMRVX S GMRVX(6)=0,GMRVX=0 F S GMRVX=$O(^UTILITY($J,"GMRVD",GMRVX)) Q:GMRVX'>0!+$G(OREND) D:GMRVX(6)>0&(GMRVX(6)'=$P(GMRVX,"."))!(IOSL-7<$Y) PGBRK W ! S Y=9999999-GMRVX X ^DD("DD") W ?5,Y,! S GMRVX(6)=$P(GMRVX,".") D
...S GMRVX(1)="" F S GMRVX(1)=$O(^UTILITY($J,"GMRVD",GMRVX,GMRVX(1))) Q:GMRVX(1)="" D
....W ?7,$S(GMRVX(1)="BP":"B/P: ",GMRVX(1)="P":"Pulse: ",GMRVX(1)="T":"Temp: ",GMRVX(1)="R":"Resp: ",GMRVX(1)="HT":"Ht: ",GMRVX(1)="WT":"Wt: ",1:"")
....S GMRVX(2)=0 F S GMRVX(2)=$O(^UTILITY($J,"GMRVD",GMRVX,GMRVX(1),GMRVX(2))) Q:GMRVX(2)'>0!+$G(OREND) D W !
.....S GMRVX(3)=^UTILITY($J,"GMRVD",GMRVX,GMRVX(1),GMRVX(2)) W ?15,$P(GMRVX(3),"^",8),$S($P(GMRVX(3),"^",12)'="":" ("_$P(GMRVX(3),"^",12)_") ",1:" ")
.....I GMRVX(1)="HT" W "IN ","("_$P(GMRVX(3),"^",13)_" CM)" Q
.....I GMRVX(1)="WT" W "LB ","("_$P(GMRVX(3),"^",13)_" KG)" Q
.....I GMRVX(1)'="BP" W $S($P(GMRVX(3),"^",10)'="":"("_$P(GMRVX(3),"^",10)_")",1:"") Q
.....I GMRVX(1)="BP" S (GMRVX(4),GMRVX(5))="" S GMRVX(4)=$P($G(^GMRD(120.52,+$P(GMRVX(3),"^",7),0)),"^"),GMRVX(5)=$P($G(^GMRD(120.53,+$P(GMRVX(3),"^",9),0)),"^") W:GMRVX(4)'=""!(GMRVX(5)'="") "("
.....I GMRVX(1)="BP" W $S(GMRVX(4)'="":GMRVX(4),1:" ") W $S(GMRVX(5)="":" ",1:"/"_GMRVX(5)) W:GMRVX(4)'=""!(GMRVX(5)'="") ")"
Q
PGBRK ; DO PAGE BREAK, THEN WRITE FORM FEED
D PGBRK^ORUHDR
W @IOF
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRVORD0 2674 printed Dec 13, 2024@01:57:14 Page 2
GMRVORD0 ;HISC/RM,YH-OE/RR PRINT ACTION HOOKS ;11/20/95
+1 ;;4.0;Vitals/Measurements;;Apr 25, 1997
EN1 ; ENTRY FROM ORDER PRINT ACTION OF GMRVORADMIT V/M OPTION
+1 SET GMRX=$SELECT($DATA(^ORD(101,+$PIECE(GMRVORD(2),"^",4),0)):$PIECE(^(0),"^"),1:"")
+2 SET GMRSTR=$SELECT(GMRX="GMRVORADMIT V/M":"T;P;R;BP;HT;WT",GMRX="GMRVORTPR B/P":"T;P;R;BP",GMRX="GMRVORTPR":"T;P;R",GMRX="GMRVORTEMP":"T",GMRX="GMRVORPULSE":"P",1:"")
+3 IF GMRSTR=""
SET GMRSTR=$SELECT(GMRX="GMRVORRESP":"R",GMRX="GMRVORB/P":"BP",GMRX="GMRVORHT":"HT",GMRX="GMRVORWT":"WT",1:"T;P;R;BP;HT;WT")
+4 IF $DATA(ORIFN)
DO EN^ORX8(ORIFN)
SET ORSTS=+ORUPCHUK("ORSTS")
SET GMROUT=0
SET DFN=$PIECE(ORVP,";")
+5 SET GMRVOERR=1
SET GMRVSTRT=$SELECT(+ORUPCHUK("ORSTRT"):9999999-ORUPCHUK("ORSTRT"),1:"")
SET GMRVSTOP=$SELECT(+ORUPCHUK("ORSTOP"):9999999-ORUPCHUK("ORSTOP"),1:"")
+6 SET GMRVORD(0)=$SELECT(ORSTS=11:ORIFN_"^"_$PIECE(ORUPCHUK("ORPK"),"^",3,5),1:$GET(^GMR(120.55,ORIFN,0)))
SET GMRVORD("O")=$SELECT(ORSTS=11:$PIECE(ORUPCHUK("ORPK"),"^",6),1:$GET(^GMR(120.55,ORIFN,"O")))
+7 DO PGBRK
WRITE !!,"Schedule: "_$PIECE(GMRVORD(0),"^",2)
+8 if GMRVORD("O")'=""
WRITE !,"Special Instructions: "_$PIECE(GMRVORD("O"),"^")
+9 ;DISPLAY DETAILED VITALS/MEASUREMENTS
+10 SET GMRVSTR=GMRSTR
SET GMRVSTR(0)=ORUPCHUK("ORSTRT")_"^"_ORUPCHUK("ORSTOP")_"^100^1"
WRITE !
DO EN1^GMRVUT0
Begin DoDot:1
+11 IF '$DATA(^UTILITY($JOB))
WRITE !,"There are no results to report.",!
+12 IF '$TEST
Begin DoDot:2
+13 NEW Y,X
KILL GMRVX
SET GMRVX(6)=0
SET GMRVX=0
FOR
SET GMRVX=$ORDER(^UTILITY($JOB,"GMRVD",GMRVX))
if GMRVX'>0!+$GET(OREND)
QUIT
if GMRVX(6)>0&(GMRVX(6)'=$PIECE(GMRVX,"."))!(IOSL-7<$Y)
DO PGBRK
WRITE !
SET Y=9999999-GMRVX
XECUTE ^DD("DD")
WRITE ?5,Y,!
SET GMRVX(6)=$PIECE(GMRVX,".")
Begin DoDot:3
+14 SET GMRVX(1)=""
FOR
SET GMRVX(1)=$ORDER(^UTILITY($JOB,"GMRVD",GMRVX,GMRVX(1)))
if GMRVX(1)=""
QUIT
Begin DoDot:4
+15 WRITE ?7,$SELECT(GMRVX(1)="BP":"B/P: ",GMRVX(1)="P":"Pulse: ",GMRVX(1)="T":"Temp: ",GMRVX(1)="R":"Resp: ",GMRVX(1)="HT":"Ht: ",GMRVX(1)="WT":"Wt: ",1:"")
+16 SET GMRVX(2)=0
FOR
SET GMRVX(2)=$ORDER(^UTILITY($JOB,"GMRVD",GMRVX,GMRVX(1),GMRVX(2)))
if GMRVX(2)'>0!+$GET(OREND)
QUIT
Begin DoDot:5
+17 SET GMRVX(3)=^UTILITY($JOB,"GMRVD",GMRVX,GMRVX(1),GMRVX(2))
WRITE ?15,$PIECE(GMRVX(3),"^",8),$SELECT($PIECE(GMRVX(3),"^",12)'="":" ("_$PIECE(GMRVX(3),"^",12)_") ",1:" ")
+18 IF GMRVX(1)="HT"
WRITE "IN ","("_$PIECE(GMRVX(3),"^",13)_" CM)"
QUIT
+19 IF GMRVX(1)="WT"
WRITE "LB ","("_$PIECE(GMRVX(3),"^",13)_" KG)"
QUIT
+20 IF GMRVX(1)'="BP"
WRITE $SELECT($PIECE(GMRVX(3),"^",10)'="":"("_$PIECE(GMRVX(3),"^",10)_")",1:"")
QUIT
+21 IF GMRVX(1)="BP"
SET (GMRVX(4),GMRVX(5))=""
SET GMRVX(4)=$PIECE($GET(^GMRD(120.52,+$PIECE(GMRVX(3),"^",7),0)),"^")
SET GMRVX(5)=$PIECE($GET(^GMRD(120.53,+$PIECE(GMRVX(3),"^",9),0)),"^")
if GMRVX(4)'=""!(GMRVX(5)'="")
WRITE "("
+22 IF GMRVX(1)="BP"
WRITE $SELECT(GMRVX(4)'="":GMRVX(4),1:" ")
WRITE $SELECT(GMRVX(5)="":" ",1:"/"_GMRVX(5))
if GMRVX(4)'=""!(GMRVX(5)'="")
WRITE ")"
End DoDot:5
WRITE !
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
KILL GMRORST,ORUPCHUK,^UTILITY($JOB,"GMRVD"),GMRVX
QUIT
+23 QUIT
PGBRK ; DO PAGE BREAK, THEN WRITE FORM FEED
+1 DO PGBRK^ORUHDR
+2 WRITE @IOF
+3 QUIT
