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

ORY191.m

Go to the documentation of this file.
ORY191 ; slc/dcm - postinit for OR*3*191 ;06/17/03  12:17
 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**191**;Dec 17, 1997
 ;
 Q
 ;
PRE ; -- preinit
 N ORI
 S ORI=999
 F  S ORI=$O(^ORD(101.24,ORI)) Q:'ORI  I ORI<1110!(ORI>1116),ORI'=1033 S DA=ORI,DIK="^ORD(101.24," D ^DIK
 Q  ;Don't step on Kim's patch 159 or Rich's patch 151
POST ; -- postinit
 Q