- 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 Feb 18, 2025@23:23:38 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
