source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOED05.m@ 1141

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

initial load of WorldVistAEHR

File size: 2.5 KB
Line 
1OCXOED05 ;SLC/RJS,CLA - Rule Editor (Rule Element Relation Display) ;3/20/01 16:19
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,105**;Dec 17,1997
3 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
4 ;
5 ;
6S ;
7 ;
8EN(OCXR0,OCXR1) ;
9 ;
10 N OCXACT,OCXRD
11 F K OCXRD,OCXACT S (OCXRD,OCXACT)="" D GETDATA(OCXR0,OCXR1,.OCXRD),DISP(OCXR0,OCXR1,.OCXRD,.OCXACT) Q:$$EN^OCXOED04(OCXR0,OCXR1,.OCXRD,.OCXACT)
12 ;
13 Q
14 ;
15DISP(OCXR0,OCXR1,OCXRD,OCXACT) ;
16 ;
17 N OCXTHLN,OCXTNLN,OCXTRLN,OCXTULN,OCXTNLN
18 ;
19 S OCXTNLN=$C(27,91,48,109),OCXTRLN=$C(27,91,55,109),OCXTULN=$C(27,91,52,109),OCXTHLN=$C(27,91,49,109)
20 ;
21 W @IOF,OCXTNLN
22 W !,$$CENTER($$FIELD("Rule Element Relation Edit Screen"),80),!!
23 W !," ",$$FIELD("Expression:")," ",$$DATA($G(OCXRD("REL",OCXR1,1,"E")),50)
24 W !," ",$$FIELD(" Order Check:")," ",$$DATA($G(OCXRD("REL",OCXR1,2,"E")),30)
25 W !," ",$$FIELD(" Notification:")," ",$$DATA($G(OCXRD("REL",OCXR1,3,"E")),40)
26 W !," ",$$FIELD(" Report Device:")," ",$$DATA($G(OCXRD("REL",OCXR1,4,"E")),30)
27 W !," ",$$FIELD(" Notification Message:")," ",$$DATA($G(OCXRD("REL",OCXR1,5,"E")),40)
28 W !," ",$$FIELD(" Order Check Message:")," ",$$DATA($G(OCXRD("REL",OCXR1,6,"E")),40)
29 W !," ",$$FIELD(" Schedule Action:")," ",$$DATA($G(OCXRD("REL",OCXR1,7,"E")),40)
30 W !," ",$$FIELD(" Schedule Frequency:")," ",$$DATA($G(OCXRD("REL",OCXR1,8,"E")),40)
31 W !," ",$$FIELD(" Execute Code:")," ",$$DATA($G(OCXRD("REL",OCXR1,9,"E")),40)
32 W !!," ",$$OPT^OCXOEDT("Edit","EDREL","06",.OCXACT,"OCXR0,OCXR1")
33 W !!!
34 ;
35 Q
36 ;
37CENTER(X,M) ;
38 N SP S SP="",$P(SP," ",80)=" " Q $E(SP,1,((M\2)-($L(X)\2)))_X
39 ;
40SEP(OCXHDR) ;
41 ;
42 N SPACES S SPACES="",$P(SPACES," ",80-$L(OCXHDR))=" " Q OCXTNLN_OCXTHLN_OCXTULN_$G(OCXHDR)_SPACES_OCXTNLN
43 ;
44FIELD(OCXHDR) ;
45 ;
46 Q OCXTHLN_$G(OCXHDR)_OCXTNLN
47 ;
48DATA(OCXVAL,OCXLEN) ;
49 ;
50 N SPACES S SPACES="",$P(SPACES," ",OCXLEN+5)=" ",OCXVAL=$G(OCXVAL)
51 I ($L(OCXVAL)>OCXLEN) Q $E(OCXVAL,1,OCXLEN-3)_"..."
52 Q $E((OCXVAL_SPACES),1,OCXLEN)
53 ;
54GETDATA(OCXD0,OCXD1,OCXD) ;
55 ;
56 N OCXDIQ,OCXX,DA
57 S OCXDIQ="",DA(1)=OCXD0 D DIQ("^OCXS(860.2,"_OCXD0_",""R"",",OCXD1,"IEN",.OCXDIQ)
58 M OCXD("REL")=OCXDIQ(860.22) K OCXDIQ S OCXDIQ=""
59 Q
60 ;
61DIC(OCXDIC,OCXDIC0,OCXDICA,OCXX,OCXDICS,OCXDR) ;
62 ;
63 N DIC,X,Y
64 S DIC=$G(OCXDIC) Q:'$L(DIC) -1
65 S DIC(0)=$G(OCXDIC0) S:$L($G(OCXX)) X=OCXX
66 S:$L($G(OCXDICS)) DIC("S")=OCXDICS
67 S:$L($G(OCXDICA)) DIC("A")=OCXDICA
68 S:$L($G(OCXDR)) DIC("DR")=OCXDR
69 D ^DIC Q:(Y<1) 0 Q Y
70 ;
71DIQ(DIC,DA,OCXDIQ0,OCXARY) ;
72 N DR,DIQ S DR=".01:99999",DIQ="OCXARY(",DIQ(0)=$G(OCXDIQ0) D EN^DIQ1
73 Q
74 ;
75 Q
Note: See TracBrowser for help on using the repository browser.