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

ORY48.m

Go to the documentation of this file.

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)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY48   275     printed  Apr 09, 2024@21:43:07                                                                                                                                                                                                        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