source: FOIAVistA/trunk/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RAORR2.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 936 bytes
Line 
1RAORR2 ;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 ;
15STATUS S RAERR=3 D FAIL H 1 Q
16 Q
17 ;
18FAIL W !!,$P($T(ERR+RAERR),";;",2),! I RAERR=1 S OREND=1
19 Q
20ERR ;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
Note: See TracBrowser for help on using the repository browser.