GMRVORDG ;HIRMFO/RM-DGOERR EVENT DRIVER INTERFACE. ;4/2/96
;;4.0;Vitals/Measurements;**2**;Apr 25, 1997
EN4 ; ENTRY FROM DGPM MOVEMENT EVENTS PROTOCOL
G Q4:$G(DGPMA)=""!("^1^2^3^22^23^24^25^"[("^"_$P($G(DGPMA),"^",18)_"^")) S GMRVDGZN=$P($G(DGPMA),"^")_"^"_$P($G(DGPMA),"^",6),GMRVDGZN(0)=$P($G(DGPMP),"^")_"^"_$P($G(DGPMP),"^",6) G Q4:GMRVDGZN=GMRVDGZN(0)
S GMRVDGDT=$P($G(DGPMA),"^"),GMRVOE=$S("^1^3^4^5^"[("^"_$P($G(DGPMA),"^",2)_"^")&($P($G(DGPMA),"^",18)'=41):1,$P($G(DGPMA),"^",2)=2!($P($G(DGPMA),"^",18)=41):0,1:"") G:GMRVOE="" Q4
D DCALL:GMRVOE,DCHK:'GMRVOE
Q4 K GMRVDGZN,GMRVDGDT,GMRVOE D KVAR^VADPT
Q
DCALL ; DC ALL NON-DC'D ORDERS
S ORUPKG=$O(^ORD(100.98,"B","VITALS/MEASUREMENTS",0)) G Q4:'ORUPKG
S GMRVP=DFN_";DPT("
F GMRX=0:0 S GMRX=$O(^OR(100,"AO",GMRVP,GMRX)) Q:GMRX'>0 F GMRVORDA=0:0 S GMRVORDA=$O(^OR(100,"AO",GMRVP,GMRX,ORUPKG,GMRVORDA)) Q:GMRVORDA'>0 D DC
K GMRVORDA,GMRVP,GMRVSTAT,GMRVX,GMRVSTDT,ORIFN,ORUPKG
Q
DC ; CHANGE ORDER STATUS IF NECESSARY
K ORUPCHUK
D EN^ORX8(GMRVORDA)
S GMRVSTDT=+ORUPCHUK("ORSTRT"),GMRVSTAT=+ORUPCHUK("ORSTS")
K ORUPCHUK
Q:GMRVSTAT=1!(GMRVSTAT=2)!(GMRVSTDT>GMRVDGDT&(GMRVSTAT'=8)) S ORIFN=GMRVORDA
I GMRVSTAT'=8 D NOW^%DTC S ORETURN("ORSTS")=1,ORETURN("ORSTOP")=%,ORETURN("OREVENT")="" D:GMRVSTAT'=11 RETURN^ORX K %,%H,ORETURN
I GMRVSTAT=8 S ORSTS="K" D ST^ORX K ORSTS
Q
DCHK ; CHECK TO SEE IF ORDERS NEED TO BE DC'D
S GMRVSITE=$O(^GMRD(120.57,"B","HOSPITAL",0)),GMRVSITE(0)=$S($D(^GMRD(120.57,+GMRVSITE,0)):^(0),1:"") G QCHK:'$P(GMRVSITE(0),"^",3)&'$P(GMRVSITE(0),"^",4)
S X=GMRVDGDT D H^%DTC S %H=%H_","_(%T-1) D YMD^%DTC S VAINDT=X_$S(%:%,1:"")
D INP^VADPT S GMRVWRD(0)=VAIN(4) S VAINDT=GMRVDGDT D INP^VADPT S GMRVWRD(1)=VAIN(4)
I $P(GMRVSITE(0),"^",3),+GMRVWRD(0)'=+GMRVWRD(1) D DCALL G QCHK
I $P(GMRVSITE(0),"^",4) S GMRVSRV(0)=$S($D(^DIC(42,+GMRVWRD(0),0)):$P(^(0),"^",3),1:""),GMRVSRV(1)=$S($D(^DIC(42,+GMRVWRD(1),0)):$P(^(0),"^",3),1:"") I GMRVSRV(0)'=GMRVSRV(1) D DCALL
QCHK K GMRVSITE,GMRVWRD,GMRVSRV
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRVORDG 2021 printed Dec 13, 2024@01:57:15 Page 2
GMRVORDG ;HIRMFO/RM-DGOERR EVENT DRIVER INTERFACE. ;4/2/96
+1 ;;4.0;Vitals/Measurements;**2**;Apr 25, 1997
EN4 ; ENTRY FROM DGPM MOVEMENT EVENTS PROTOCOL
+1 if $GET(DGPMA)=""!("^1^2^3^22^23^24^25^"[("^"_$PIECE($GET(DGPMA),"^",18)_"^"))
GOTO Q4
SET GMRVDGZN=$PIECE($GET(DGPMA),"^")_"^"_$PIECE($GET(DGPMA),"^",6)
SET GMRVDGZN(0)=$PIECE($GET(DGPMP),"^")_"^"_$PIECE($GET(DGPMP),"^",6)
if GMRVDGZN=GMRVDGZN(0)
GOTO Q4
+2 SET GMRVDGDT=$PIECE($GET(DGPMA),"^")
SET GMRVOE=$SELECT("^1^3^4^5^"[("^"_$PIECE($GET(DGPMA),"^",2)_"^")&($PIECE($GET(DGPMA),"^",18)'=41):1,$PIECE($GET(DGPMA),"^",2)=2!($PIECE($GET(DGPMA),"^",18)=41):0,1:"")
if GMRVOE=""
GOTO Q4
+3 if GMRVOE
DO DCALL
if 'GMRVOE
DO DCHK
Q4 KILL GMRVDGZN,GMRVDGDT,GMRVOE
DO KVAR^VADPT
+1 QUIT
DCALL ; DC ALL NON-DC'D ORDERS
+1 SET ORUPKG=$ORDER(^ORD(100.98,"B","VITALS/MEASUREMENTS",0))
if 'ORUPKG
GOTO Q4
+2 SET GMRVP=DFN_";DPT("
+3 FOR GMRX=0:0
SET GMRX=$ORDER(^OR(100,"AO",GMRVP,GMRX))
if GMRX'>0
QUIT
FOR GMRVORDA=0:0
SET GMRVORDA=$ORDER(^OR(100,"AO",GMRVP,GMRX,ORUPKG,GMRVORDA))
if GMRVORDA'>0
QUIT
DO DC
+4 KILL GMRVORDA,GMRVP,GMRVSTAT,GMRVX,GMRVSTDT,ORIFN,ORUPKG
+5 QUIT
DC ; CHANGE ORDER STATUS IF NECESSARY
+1 KILL ORUPCHUK
+2 DO EN^ORX8(GMRVORDA)
+3 SET GMRVSTDT=+ORUPCHUK("ORSTRT")
SET GMRVSTAT=+ORUPCHUK("ORSTS")
+4 KILL ORUPCHUK
+5 if GMRVSTAT=1!(GMRVSTAT=2)!(GMRVSTDT>GMRVDGDT&(GMRVSTAT'=8))
QUIT
SET ORIFN=GMRVORDA
+6 IF GMRVSTAT'=8
DO NOW^%DTC
SET ORETURN("ORSTS")=1
SET ORETURN("ORSTOP")=%
SET ORETURN("OREVENT")=""
if GMRVSTAT'=11
DO RETURN^ORX
KILL %,%H,ORETURN
+7 IF GMRVSTAT=8
SET ORSTS="K"
DO ST^ORX
KILL ORSTS
+8 QUIT
DCHK ; CHECK TO SEE IF ORDERS NEED TO BE DC'D
+1 SET GMRVSITE=$ORDER(^GMRD(120.57,"B","HOSPITAL",0))
SET GMRVSITE(0)=$SELECT($DATA(^GMRD(120.57,+GMRVSITE,0)):^(0),1:"")
if '$PIECE(GMRVSITE(0),"^",3)&'$PIECE(GMRVSITE(0),"^",4)
GOTO QCHK
+2 SET X=GMRVDGDT
DO H^%DTC
SET %H=%H_","_(%T-1)
DO YMD^%DTC
SET VAINDT=X_$SELECT(%:%,1:"")
+3 DO INP^VADPT
SET GMRVWRD(0)=VAIN(4)
SET VAINDT=GMRVDGDT
DO INP^VADPT
SET GMRVWRD(1)=VAIN(4)
+4 IF $PIECE(GMRVSITE(0),"^",3)
IF +GMRVWRD(0)'=+GMRVWRD(1)
DO DCALL
GOTO QCHK
+5 IF $PIECE(GMRVSITE(0),"^",4)
SET GMRVSRV(0)=$SELECT($DATA(^DIC(42,+GMRVWRD(0),0)):$PIECE(^(0),"^",3),1:"")
SET GMRVSRV(1)=$SELECT($DATA(^DIC(42,+GMRVWRD(1),0)):$PIECE(^(0),"^",3),1:"")
IF GMRVSRV(0)'=GMRVSRV(1)
DO DCALL
QCHK KILL GMRVSITE,GMRVWRD,GMRVSRV
+1 QUIT
