source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXBDT.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 1.4 KB
Line 
1OCXBDT ;SLC/RJS,CLA - BUILD OCX PACKAGE DIAGNOSTIC ROUTINES ;8/04/98 13:21
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 N X,IOP,TOTL S TOTL=0
7 I '$D(IOM) S IOP=0 D ^%ZIS K IOP
8 K ^TMP("OCXBDT",$J),^UTILITY($J),OCXPATH
9 S ^TMP("OCXBDT",$J)=($P($H,",",2)+($H*86400)+(4*60*60))_" <- ^TMP ENTRY EXPIRATION DATE FOR ^OCXOPURG"
10 S OCXLIN2=$T(+2)
11 S OCXLIN3=$T(+3)
12 ;
13 D ^OCXBDT1 ; Get Routine Checksums
14 ;
15 D ^OCXBDT2 ; Get File Data
16 ;
17 S TOTL=$$EN^OCXBDT3 ; File Routines
18 ;
19 S TOTL=TOTL+$$EN^OCXBDTA ; File Runtime Library Routine OCXDIAG
20 ;
21 S TOTL=TOTL+$$EN^OCXBDT4 ; File Runtime Library Routine OCXDI0
22 ;
23 S TOTL=TOTL+$$EN^OCXBDT5 ; File Runtime Library Routine OCXDI1
24 ;
25 S TOTL=TOTL+$$EN^OCXBDT6 ; File Runtime Library Routine OCXDI2
26 ;
27 S TOTL=TOTL+$$EN^OCXBDT7 ; File Runtime Library Routine OCXDI3
28 ;
29 S TOTL=TOTL+$$EN^OCXBDT8 ; File Runtime Library Routine OCXDI4
30 ;
31 S TOTL=TOTL+$$EN^OCXBDT9 ; File Runtime Library Routine OCXDI5
32 ;
33EXIT K ^TMP("OCXBDT",$J),^UTILITY($J)
34 ;
35 W !!,TOTL," total lines of code filed.",!!
36 ;
37 Q
38 ;
39READ(OCX0,OCXA,OCXB,OCXL) ;
40 N X,DIR,DTOUT,DUOUT,DIRUT,DIROUT
41 Q:'$L($G(OCX0)) U
42 S DIR(0)=OCX0
43 S:$L($G(OCXA)) DIR("A")=OCXA
44 S:$L($G(OCXB)) DIR("B")=OCXB
45 F X=1:1:($G(OCXL)-1) W !
46 D ^DIR
47 I $D(DTOUT)!$D(DUOUT)!$D(DIRUT)!$D(DIROUT) Q U
48 Q Y
49 ;
50CUCI() Q:'$D(^%ZOSF("UCI")) "" N Y X ^%ZOSF("UCI") Q Y
51 ;
Note: See TracBrowser for help on using the repository browser.