source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOEPS.m@ 1211

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

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1OCXOEPS ;SLC/RJS,CLA - External Interface - PROCESS OERR ORDER PRESCAN EVENT ;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 ;
6 Q
7EN(OUTMSG,OCXDFN,OCXPSD,OCXPSM) ;
8 ;
9 N OCXRDT,OCXOZZT
10 S OCXRDT=($H*86400+$P($H,",",2))
11 S:'$D(OUTMSG) OUTMSG=""
12 D CHECK(OCXPSD,OCXPSM,OCXDFN,.OUTMSG)
13 Q
14VERBOSE(OCXPSD,OCXPSM,OCXDFN) ;
15 ;
16 N OCXX,OUTMSG,OCXOZZT
17 S OCXRDT=($H*86400+$P($H,",",2))
18 S OUTMSG=""
19 D CHECK(OCXPSD,OCXPSM,OCXDFN,.OUTMSG)
20 W:$O(OUTMSG(0)) !,"Order Check Message: ",$C(7)
21 S OCXX=0 F S OCXX=$O(OUTMSG(OCXX)) Q:'OCXX W !,OUTMSG(OCXX)
22 W:$O(OUTMSG(0)) !,$C(7)
23 Q
24 ;
25CHECK(OCXPSD,OCXPSM,OCXDFN,OUTMSG) ;
26 ;
27 ;
28 I $$RTEST D Q
29 .N OMSG,OTMOUT,OCXM
30 .S OMSG="^25^^Order Checking is recompiling and momentarily disabled"
31 .S OCXM=0 F S OCXM=$O(OUTMSG(OCXM)) Q:'OCXM Q:(OUTMSG(OCXM)[OMSG)
32 .Q:OCXM
33 .S OUTMSG($O(OUTMSG(""),-1)+1)=OMSG
34 ;
35 ;
36 N OCXSUB,OCXTEST,OCXDATA,OCXEL,OCXSEG0,DFN,%DT,X,Y
37 N OCXOLOG,OCXORDT,OCXOSRC
38 ;
39 S DFN=+OCXDFN
40 S X="N",%DT="T" D ^%DT S OCXORDT=+Y
41 Q:'DFN
42 ;
43 S (OCXTEST,OCXDATA)=""
44 S OCXOSRC="CPRS ORDER PRESCAN"
45 ;
46 S OCXOLOG=$$LOG(OCXPSD,OCXPSM)
47 ;
48 D UPDATE^OCXOZ01(DFN,OCXOSRC,.OUTMSG)
49 ;
50 D FINISH^OCXOLOG(OCXOLOG)
51 ;
52 Q
53 ;
54 ;
55RTEST() ;
56 N DATE,TMOUT
57 Q:'$L($T(^OCXOZ01)) 1
58 I '($P($G(^OCXD(861,1,0)),U,1)="SITE PREFERENCES") K ^OCXD(861,1) S ^OCXD(861,1,0)="SITE PREFERENCES"
59 S DATE=$P($G(^OCXD(861,1,0)),U,3)
60 I DATE,((+DATE)=(+$H)),(((+$P($H,",",2))-(+$P(DATE,",",2)))<1800) Q 1
61 Q 0
62 ;
63LOG(OCXPSD,OCXPSM) ;
64 ;
65 ; Log Messages
66 ;
67 I $G(OCXTRACE),$$CDATA^OCXOZ01 Q 0
68 Q:'$L($T(LOG^OCXOZ01)) 0 Q:'$$LOG^OCXOZ01 0
69 N OCXNL
70 S OCXARY="OCXNL"
71 S OCXNL(1)="OCXPSD="_OCXPSD
72 S OCXNL(2)="OCXPSM="_OCXPSM
73 Q $$NEW^OCXOLOG(OCXARY,"OEPS",+$G(DUZ),+OCXDFN)
74 ;
75ERROR Q
76 ;
77 ;
78 ; **** Old Labels to insure backwards compatibility ****
79 ;
80PROC(OCXORD) ;
81 D VERBOSE(OCXORD) Q
82 ;
Note: See TracBrowser for help on using the repository browser.