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