| [613] | 1 | RAORR2 ;HISC/CAH,FPT,GJC AISC/DMK-Verify a request from OERR ;9/12/94 11:11
|
|---|
| 2 | ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
|
|---|
| 3 | K RAERR
|
|---|
| 4 | 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
|
|---|
| 5 | S RAIPROC=$P(^RAO(75.1,ORPK,0),"^",2) I 'RAIPROC S RAERR=1 G FAIL
|
|---|
| 6 | I '$D(^RAO(75.1,"AP",+ORVP,RAIPROC)) S RAERR=1 G FAIL
|
|---|
| 7 | S RATIME=$O(^RAO(75.1,"AP",+ORVP,RAIPROC,0))
|
|---|
| 8 | I $P(RATIME,".")>(9999999-DT) S RAERR=2 G FAIL
|
|---|
| 9 | ;
|
|---|
| 10 | S RAS3=+ORVP,X=RAIPROC,RAQUIT=1
|
|---|
| 11 | D ORDPRC1^RAUTL2,STATUS:'$D(RAQUIT)
|
|---|
| 12 | K RAERR,RAIPROC,RAO(0),RARDT,RAROIFN,RATIME,RAQUIT,RAQUIT,X,RAMDV
|
|---|
| 13 | Q
|
|---|
| 14 | ;
|
|---|
| 15 | STATUS S RAERR=3 D FAIL H 1 Q
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | FAIL W !!,$P($T(ERR+RAERR),";;",2),! I RAERR=1 S OREND=1
|
|---|
| 19 | Q
|
|---|
| 20 | ERR ;Error messages if the order fails the verify process(ORGY=10)
|
|---|
| 21 | ;;Invalid or missing information needed to verify the order.
|
|---|
| 22 | ;;Request Date for this order is in the past. May want to cancel the order.
|
|---|
| 23 | ;;You may want to cancel this order.
|
|---|
| 24 | Q
|
|---|
