- 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 ---[H[J[2J[HORY48 275 printed Feb 19, 2025@00:08:58 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