source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOEDT4.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 467 bytes
Line 
1OCXOEDT4 ;SLC/RJS,CLA - Rule Editor (Activate/Inactivate Rules) ;10/29/98 12:37
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
3 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
4 ;
5 ;
6S ;
7 ;
8 N OCXERR,OCXR,DIE,DIC,DR,X,Y
9 ;
10 S OCXERR=0 F W !! Q:$$DIE($$DIC)
11 ;
12 Q
13 ;
14DIC() N DIC,X,Y S DIC="^OCXS(860.2,",DIC(0)="AEQM" D ^DIC Q:(Y<0) 0 Q +Y
15 ;
16DIE(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))
17 ;
Note: See TracBrowser for help on using the repository browser.