ORY48.m

ORY48 ;SLC/MKB-Postinit for patch OR*3*48 ;7/9/99  14:22

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

 ;

EN ; -- set default for new parameter

 ;

 N ORX S ORX=$$GET^XPAR("ALL","OR OREMAS MED ORDERS")

 D:ORX="" EN^XPAR("SYS","OR OREMAS MED ORDERS",1,2)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ORY48   275     printed  Dec 13, 2024@02:42:27                                                                                                                                                                                                        Page 2

ORY48     ;SLC/MKB-Postinit for patch OR*3*48 ;7/9/99  14:22

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

 +2       ;

EN        ; -- set default for new parameter

 +1       ;

 +2        NEW ORX

           SET ORX=$$GET^XPAR("ALL","OR OREMAS MED ORDERS")

 +3        if ORX=""

               DO EN^XPAR("SYS","OR OREMAS MED ORDERS",1,2)

 +4        QUIT