RAORR2 ;HISC/CAH,FPT,GJC AISC/DMK-Verify a request from OERR ;9/12/94 11:11
;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
K RAERR
I $S('$D(ORPK):1,'ORPK:1,'$D(ORVP):1,'$L(ORVP):1,'$D(^RAO(75.1,ORPK,0)):1,1:0) S RAERR=1 G FAIL
S RAIPROC=$P(^RAO(75.1,ORPK,0),"^",2) I 'RAIPROC S RAERR=1 G FAIL
I '$D(^RAO(75.1,"AP",+ORVP,RAIPROC)) S RAERR=1 G FAIL
S RATIME=$O(^RAO(75.1,"AP",+ORVP,RAIPROC,0))
I $P(RATIME,".")>(9999999-DT) S RAERR=2 G FAIL
;
S RAS3=+ORVP,X=RAIPROC,RAQUIT=1
D ORDPRC1^RAUTL2,STATUS:'$D(RAQUIT)
K RAERR,RAIPROC,RAO(0),RARDT,RAROIFN,RATIME,RAQUIT,RAQUIT,X,RAMDV
Q
;
STATUS S RAERR=3 D FAIL H 1 Q
Q
;
FAIL W !!,$P($T(ERR+RAERR),";;",2),! I RAERR=1 S OREND=1
Q
ERR ;Error messages if the order fails the verify process(ORGY=10)
;;Invalid or missing information needed to verify the order.
;;Request Date for this order is in the past. May want to cancel the order.
;;You may want to cancel this order.
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRAORR2 960 printed Oct 16, 2024@18:39 Page 2
RAORR2 ;HISC/CAH,FPT,GJC AISC/DMK-Verify a request from OERR ;9/12/94 11:11
+1 ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
+2 KILL RAERR
+3 IF $SELECT('$DATA(ORPK):1,'ORPK:1,'$DATA(ORVP):1,'$LENGTH(ORVP):1,'$DATA(^RAO(75.1,ORPK,0)):1,1:0)
SET RAERR=1
GOTO FAIL
+4 SET RAIPROC=$PIECE(^RAO(75.1,ORPK,0),"^",2)
IF 'RAIPROC
SET RAERR=1
GOTO FAIL
+5 IF '$DATA(^RAO(75.1,"AP",+ORVP,RAIPROC))
SET RAERR=1
GOTO FAIL
+6 SET RATIME=$ORDER(^RAO(75.1,"AP",+ORVP,RAIPROC,0))
+7 IF $PIECE(RATIME,".")>(9999999-DT)
SET RAERR=2
GOTO FAIL
+8 ;
+9 SET RAS3=+ORVP
SET X=RAIPROC
SET RAQUIT=1
+10 DO ORDPRC1^RAUTL2
if '$DATA(RAQUIT)
DO STATUS
+11 KILL RAERR,RAIPROC,RAO(0),RARDT,RAROIFN,RATIME,RAQUIT,RAQUIT,X,RAMDV
+12 QUIT
+13 ;
STATUS SET RAERR=3
DO FAIL
HANG 1
QUIT
+1 QUIT
+2 ;
FAIL WRITE !!,$PIECE($TEXT(ERR+RAERR),";;",2),!
IF RAERR=1
SET OREND=1
+1 QUIT
ERR ;Error messages if the order fails the verify process(ORGY=10)
+1 ;;Invalid or missing information needed to verify the order.
+2 ;;Request Date for this order is in the past. May want to cancel the order.
+3 ;;You may want to cancel this order.
+4 QUIT
