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

OCXOEDT4.m

Go to the documentation of this file.
  1. OCXOEDT4 ;SLC/RJS,CLA - Rule Editor (Activate/Inactivate Rules) ;10/29/98 12:37
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
  1. ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
  1. ;
  1. ;
  1. S ;
  1. ;
  1. N OCXERR,OCXR,DIE,DIC,DR,X,Y
  1. ;
  1. S OCXERR=0 F W !! Q:$$DIE($$DIC)
  1. ;
  1. Q
  1. ;
  1. DIC() N DIC,X,Y S DIC="^OCXS(860.2,",DIC(0)="AEQM" D ^DIC Q:(Y<0) 0 Q +Y
  1. ;
  1. DIE(DA) Q:'DA 1 N DIC,DIE,DR,X,Y S (DIC,DIE)="^OCXS(860.2,",DR=".02" D ^DIE Q ($G(DTOUT)!$G(DUOUT))
  1. ;