OCXOEDT5.m

OCXOEDT5 ;SLC/RJS,CLA -  Edit Compiler Function Code ;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 DLAYGO,DIC,X,Y S DLAYGO=860.8,DIC="^OCXS(860.8,",DIC(0)="AEQML" D ^DIC Q:(Y<0) 0 Q +Y

 ;

DIE(DA) Q:'DA 1 N DIC,DIE,DR,X,Y S (DIC,DIE)="^OCXS(860.8,",DR="100" D ^DIE Q 0

 ;

TODAY() N X,%DT S X="T",%DT="" D ^%DT Q +Y

 ;

LAST() Q $O(^TMP($J,1," "),-1)

 ;

DT(X,%DT) N Y D ^%DT Q +Y

 ;

OCXOEDT5  ;SLC/RJS,CLA -  Edit Compiler Function Code ;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       ;

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 DLAYGO,DIC,X,Y

           SET DLAYGO=860.8

           SET DIC="^OCXS(860.8,"

           SET DIC(0)="AEQML"

           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.8,"

           SET DR="100"

           DO ^DIE

           QUIT 0

 +1       ;

TODAY()    NEW X,%DT

           SET X="T"

           SET %DT=""

           DO ^%DT

           QUIT +Y

 +1       ;

LAST()     QUIT $ORDER(^TMP($JOB,1," "),-1)

 +1       ;

DT(X,%DT)  NEW Y

           DO ^%DT

           QUIT +Y

 +1       ;