ORX.m

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 ---ORX   1235     printed  Apr 09, 2024@21:31:03                                                                                                                                                                                                         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