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

OR1.m

Go to the documentation of this file.

OR1 ; slc/dcm - OE/RR

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997

ADD ;Old 2.5 entry point for adding orders

 S OREND=1 Q:$D(ZTQUEUED)  Q:$D(DGQUIET)

 W !!,"This path is currently disabled.",!,"Please select items from a menu." D READ^ORUTL

AFT ;Old 2.5 exit point for adding orders

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOR1   300     printed  Apr 09, 2024@21:44:50                                                                                                                                                                                                          Page 2

OR1       ; slc/dcm - OE/RR

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997

ADD       ;Old 2.5 entry point for adding orders

 +1        SET OREND=1

           if $DATA(ZTQUEUED)

               QUIT

           if $DATA(DGQUIET)

               QUIT

 +2        WRITE !!,"This path is currently disabled.",!,"Please select items from a menu."

           DO READ^ORUTL

AFT       ;Old 2.5 exit point for adding orders

 +1        QUIT