Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RAORR

RAORR.m

Go to the documentation of this file.
  1. RAORR ;HISC/CAH,FPT,GJC AISC/DMK-OE/RR driver ;2/2/98 14:43
  1. ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
  1. ;OE/RR Utility routine for Rad/Nuc Med
  1. Q:'$D(ORACTION)
  1. I $$ORVR^RAORDU()'=2.5!(ORACTION="")!("012345678"'[ORACTION) Q
  1. D @ORACTION
  1. Q
  1. 0 ;Adding new order
  1. I '$D(ORGY) K RAPKG D ENADD^RAORD1 K RADR1 Q
  1. I ORGY=0 K RAPKG D ENADD^RAORD1 K RADR1 Q ;new order
  1. I ORGY=9 S ORETURN("ORSTS")=5 D ^RAORR1 Q ;If released & pending
  1. I ORGY=10 D ^RAORR2 ;verify a signed order
  1. Q
  1. 1 ;Edit order
  1. I $D(ORPRES),+ORPRES=6 G ^RAORR1
  1. I $D(ORSTS),ORSTS=11 G ^RAORR1 ;If unreleased
  1. D NO
  1. W !,"Cannot edit a Radiology/Nuclear Medicine order once released."
  1. W !,"To change the order, discontinue the current order and add a"
  1. W !,"new one.",!
  1. Q
  1. 2 ;RENEW ORDERS
  1. D NO
  1. Q
  1. 3 ;Flag orders
  1. D NO
  1. Q
  1. 4 ;Hold orders
  1. D NO
  1. W !,"Holding requests is reserved for Radiology/Nuclear Medicine personnel.",!
  1. Q ;not used
  1. 5 ;Event processor
  1. D NO
  1. Q
  1. 6 ;Discontinue order
  1. ; if new order and unreleased, delete entries from Rad/Nuc Med & OE/RR
  1. ; Orders files.
  1. N RAXIT S RAXIT=0
  1. I ORGY=0,ORSTS=11 D CHECK^RAORD Q:OREND S RAORDS(1)=+ORPK D ENCAN^RAORD Q
  1. I ORGY=0 D CHECK^RAORD Q:OREND D REASON^RAORD Q:RAXIT!(+$G(OREND)) D DC^ORX5 Q
  1. I ORGY=10 D CHECK^RAORD Q
  1. I ORGY=9 S RAORDS(1)=+ORPK D ENCAN^RAORD Q
  1. Q
  1. 7 ;Purge order
  1. K RAPKG D ENPUR^RAPURGE1
  1. Q
  1. 8 ;Print order
  1. K RAPKG D ENDIS^RAORD2 Q
  1. Q
  1. NO W !,"This action is inappropriate for this order.",!
  1. Q