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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOCXOEDT5 584 printed Dec 13, 2024@02:25:33 Page 2
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 ;
