- 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 Jan 18, 2025@03:38:59 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