source: WorldVistAEHR/trunk/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RAORR.m@ 775

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

initial load of WorldVistAEHR

File size: 1.4 KB
RevLine 
[613]1RAORR ;HISC/CAH,FPT,GJC AISC/DMK-OE/RR driver ;2/2/98 14:43
2 ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
3 ;OE/RR Utility routine for Rad/Nuc Med
4 Q:'$D(ORACTION)
5 I $$ORVR^RAORDU()'=2.5!(ORACTION="")!("012345678"'[ORACTION) Q
6 D @ORACTION
7 Q
80 ;Adding new order
9 I '$D(ORGY) K RAPKG D ENADD^RAORD1 K RADR1 Q
10 I ORGY=0 K RAPKG D ENADD^RAORD1 K RADR1 Q ;new order
11 I ORGY=9 S ORETURN("ORSTS")=5 D ^RAORR1 Q ;If released & pending
12 I ORGY=10 D ^RAORR2 ;verify a signed order
13 Q
141 ;Edit order
15 I $D(ORPRES),+ORPRES=6 G ^RAORR1
16 I $D(ORSTS),ORSTS=11 G ^RAORR1 ;If unreleased
17 D NO
18 W !,"Cannot edit a Radiology/Nuclear Medicine order once released."
19 W !,"To change the order, discontinue the current order and add a"
20 W !,"new one.",!
21 Q
222 ;RENEW ORDERS
23 D NO
24 Q
253 ;Flag orders
26 D NO
27 Q
284 ;Hold orders
29 D NO
30 W !,"Holding requests is reserved for Radiology/Nuclear Medicine personnel.",!
31 Q ;not used
325 ;Event processor
33 D NO
34 Q
356 ;Discontinue order
36 ; if new order and unreleased, delete entries from Rad/Nuc Med & OE/RR
37 ; Orders files.
38 N RAXIT S RAXIT=0
39 I ORGY=0,ORSTS=11 D CHECK^RAORD Q:OREND S RAORDS(1)=+ORPK D ENCAN^RAORD Q
40 I ORGY=0 D CHECK^RAORD Q:OREND D REASON^RAORD Q:RAXIT!(+$G(OREND)) D DC^ORX5 Q
41 I ORGY=10 D CHECK^RAORD Q
42 I ORGY=9 S RAORDS(1)=+ORPK D ENCAN^RAORD Q
43 Q
447 ;Purge order
45 K RAPKG D ENPUR^RAPURGE1
46 Q
478 ;Print order
48 K RAPKG D ENDIS^RAORD2 Q
49 Q
50NO W !,"This action is inappropriate for this order.",!
51 Q
Note: See TracBrowser for help on using the repository browser.