OCXOEDT4.m

OCXOEDT4 ;SLC/RJS,CLA -  Rule Editor (Activate/Inactivate Rules) ;10/29/98  12:37

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

 ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

 ;

 ;

S ;

 ;

 N OCXERR,OCXR,DIE,DIC,DR,X,Y

 ;

 S OCXERR=0 F  W !! Q:$$DIE($$DIC)

 ;

 Q

 ;

DIC() N DIC,X,Y S DIC="^OCXS(860.2,",DIC(0)="AEQM" D ^DIC Q:(Y<0) 0 Q +Y

 ;

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))

 ;

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

 +2       ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

 +3       ;

 +4       ;

S         ;

 +1       ;

 +2        NEW OCXERR,OCXR,DIE,DIC,DR,X,Y

 +3       ;

 +4        SET OCXERR=0

           FOR 

               WRITE !!

               IF $$DIE($$DIC)

                   QUIT 

 +5       ;

 +6        QUIT 

 +7       ;

DIC()      NEW DIC,X,Y

           SET DIC="^OCXS(860.2,"

           SET DIC(0)="AEQM"

           DO ^DIC

           IF (Y<0)

               QUIT 0

           QUIT +Y

 +1       ;

DIE(DA)    IF 'DA

               QUIT 1

           NEW DIC,DIE,DR,X,Y

           SET (DIC,DIE)="^OCXS(860.2,"

           SET DR=".02"

           DO ^DIE

           QUIT ($GET(DTOUT)!$GET(DUOUT))

 +1       ;