source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOEDT5.m@ 1352

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

initial load of FOIAVistA 6/30/08 version

File size: 562 bytes
Line 
1OCXOEDT5 ;SLC/RJS,CLA - Edit Compiler Function Code ;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 ;
5S ;
6 ;
7 N OCXERR,OCXR,DIE,DIC,DR,X,Y
8 ;
9 S OCXERR=0 F W !! Q:$$DIE($$DIC)
10 ;
11 Q
12 ;
13DIC() N DLAYGO,DIC,X,Y S DLAYGO=860.8,DIC="^OCXS(860.8,",DIC(0)="AEQML" D ^DIC Q:(Y<0) 0 Q +Y
14 ;
15DIE(DA) Q:'DA 1 N DIC,DIE,DR,X,Y S (DIC,DIE)="^OCXS(860.8,",DR="100" D ^DIE Q 0
16 ;
17TODAY() N X,%DT S X="T",%DT="" D ^%DT Q +Y
18 ;
19LAST() Q $O(^TMP($J,1," "),-1)
20 ;
21DT(X,%DT) N Y D ^%DT Q +Y
22 ;
Note: See TracBrowser for help on using the repository browser.