ORX ; slc/dcm - OE/RR old entry points ;12/26/96 09:49
;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
FILE ;No longer a valid entry point for filing orders
;Calls to this entry point will not file an order and will
;generate an error in the OE/RR Error file.
S ORIFN=""
D ERR("FILE~ORX")
Q
RETURN ;No longer a valid entry point for updating orders.
;Calls to this entry point will not update an order and will
;generate an error in the OE/RR Error file.
D ERR("RETURN~ORX")
Q
ST ;No longer a valid entry point for updating orders.
;Calls to this entry point will not update an order and will
;generate an error in the OE/RR Error file.
D ERR("ST~ORX")
Q
ERR(TXT) ;Generates an error for call to invalid entry points
;TXT=Name of invalid entry point
Q:'$P($G(^ORD(100.99,1,0)),"^",8) ;Only file if DEBUG on
N X,PKG,VAR S:'$D(TXT) TXT=""
I $G(ORIFN) S X=$G(^OR(100,+ORIFN,0)),PKG=$P(X,"^",14)
I '$G(PKG) D
. I $G(ORNS) S PKG=ORNS Q
. I $G(ORPCL),$L($P(ORPCL,";",2)),$D(@("^"_$P(ORPCL,";",2)_+ORPCL_",0)")),$P(^(0),"^",12) S PKG=$P(^(0),"^",12) Q
S PKG=$P($G(^DIC(9.4,+$G(PKG),0)),"^"),TXT=$S($L(PKG):PKG,1:"UNKNOWN")_" package called "_TXT,VAR("XQY0")=""
D EN^ORERR(TXT,,.VAR)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORX 1235 printed Nov 22, 2024@17:47:47 Page 2
ORX ; slc/dcm - OE/RR old entry points ;12/26/96 09:49
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
FILE ;No longer a valid entry point for filing orders
+1 ;Calls to this entry point will not file an order and will
+2 ;generate an error in the OE/RR Error file.
+3 SET ORIFN=""
+4 DO ERR("FILE~ORX")
+5 QUIT
RETURN ;No longer a valid entry point for updating orders.
+1 ;Calls to this entry point will not update an order and will
+2 ;generate an error in the OE/RR Error file.
+3 DO ERR("RETURN~ORX")
+4 QUIT
ST ;No longer a valid entry point for updating orders.
+1 ;Calls to this entry point will not update an order and will
+2 ;generate an error in the OE/RR Error file.
+3 DO ERR("ST~ORX")
+4 QUIT
ERR(TXT) ;Generates an error for call to invalid entry points
+1 ;TXT=Name of invalid entry point
+2 ;Only file if DEBUG on
if '$PIECE($GET(^ORD(100.99,1,0)),"^",8)
QUIT
+3 NEW X,PKG,VAR
if '$DATA(TXT)
SET TXT=""
+4 IF $GET(ORIFN)
SET X=$GET(^OR(100,+ORIFN,0))
SET PKG=$PIECE(X,"^",14)
+5 IF '$GET(PKG)
Begin DoDot:1
+6 IF $GET(ORNS)
SET PKG=ORNS
QUIT
+7 IF $GET(ORPCL)
IF $LENGTH($PIECE(ORPCL,";",2))
IF $DATA(@("^"_$PIECE(ORPCL,";",2)_+ORPCL_",0)"))
IF $PIECE(^(0),"^",12)
SET PKG=$PIECE(^(0),"^",12)
QUIT
End DoDot:1
+8 SET PKG=$PIECE($GET(^DIC(9.4,+$GET(PKG),0)),"^")
SET TXT=$SELECT($LENGTH(PKG):PKG,1:"UNKNOWN")_" package called "_TXT
SET VAR("XQY0")=""
+9 DO EN^ORERR(TXT,,.VAR)
+10 QUIT
