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