RAORR2.m

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 ---RAORR2   960     printed  Apr 09, 2024@21:39:34                                                                                                                                                                                                       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