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

ORX.m

Go to the documentation of this file.
  1. ORX ; slc/dcm - OE/RR old entry points ;12/26/96 09:49
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
  1. FILE ;No longer a valid entry point for filing orders
  1. ;Calls to this entry point will not file an order and will
  1. ;generate an error in the OE/RR Error file.
  1. S ORIFN=""
  1. D ERR("FILE~ORX")
  1. Q
  1. RETURN ;No longer a valid entry point for updating orders.
  1. ;Calls to this entry point will not update an order and will
  1. ;generate an error in the OE/RR Error file.
  1. D ERR("RETURN~ORX")
  1. Q
  1. ST ;No longer a valid entry point for updating orders.
  1. ;Calls to this entry point will not update an order and will
  1. ;generate an error in the OE/RR Error file.
  1. D ERR("ST~ORX")
  1. Q
  1. ERR(TXT) ;Generates an error for call to invalid entry points
  1. ;TXT=Name of invalid entry point
  1. Q:'$P($G(^ORD(100.99,1,0)),"^",8) ;Only file if DEBUG on
  1. N X,PKG,VAR S:'$D(TXT) TXT=""
  1. I $G(ORIFN) S X=$G(^OR(100,+ORIFN,0)),PKG=$P(X,"^",14)
  1. I '$G(PKG) D
  1. . I $G(ORNS) S PKG=ORNS Q
  1. . I $G(ORPCL),$L($P(ORPCL,";",2)),$D(@("^"_$P(ORPCL,";",2)_+ORPCL_",0)")),$P(^(0),"^",12) S PKG=$P(^(0),"^",12) Q
  1. S PKG=$P($G(^DIC(9.4,+$G(PKG),0)),"^"),TXT=$S($L(PKG):PKG,1:"UNKNOWN")_" package called "_TXT,VAR("XQY0")=""
  1. D EN^ORERR(TXT,,.VAR)
  1. Q