source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOSCR1.m@ 1618

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

initial load of WorldVistAEHR

File size: 3.0 KB
Line 
1OCXOSCR1 ;SLC/RJS,CLA - Post selection action for the Order Check DataField File;6/19/01 16:35
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 I $G(OCXSCR) K OCXSCR Q
6 ;
7 Q
8 ;
9S ;
10 ;
11 N OCXD0,OCXD1,OCXREC,OCXDISP,OCXNAM,OCXABBR,OCXDF,OCXHDR
12 ;
13 W ! D WAIT^DICD W ! S OCXHDR="This Datafield is used by: "
14 I $D(^OCXS(860.4,+Y)) M OCXDF=^OCXS(860.4,+Y)
15 E Q
16 ;
17 S OCXD0=0 F S OCXD0=$O(^OCXS(860.3,OCXD0)) Q:'OCXD0 D
18 .K OCXREC M OCXREC=^OCXS(860.3,OCXD0)
19 .K OCXDISP S OCXDISP(1)="** Element: "_$P(OCXREC(0),U,1)
20 .S OCXD1=0 F S OCXD1=$O(OCXREC("COND",OCXD1)) Q:'OCXD1 D
21 ..S OCXDISP(2)=" Expression Number: "_+OCXREC("COND",OCXD1,0)
22 ..I ($G(OCXREC("COND",OCXD1,"DFLD1"))=+Y) S OCXDISP(2)=" Primary Data Field 2" D DISPLAY
23 ..I ($G(OCXREC("COND",OCXD1,"DFLD2"))=+Y) S OCXDISP(2)=" Data Field 2" D DISPLAY
24 ..I ($G(OCXREC("COND",OCXD1,"DFLD3"))=+Y) S OCXDISP(2)=" Data Field 3" D DISPLAY
25 ;
26 S OCXNAME=$P($G(OCXDF(0)),U,1),OCXABBR=$P($G(OCXDF(1)),U,1)
27 ;
28 W ! S OCXD0=0 F S OCXD0=$O(^OCXS(860.2,OCXD0)) Q:'OCXD0 D
29 .K OCXREC M OCXREC=^OCXS(860.2,OCXD0)
30 .K OCXDISP S OCXDISP(1)="** Rule: "_$P(OCXREC(0),U,1)
31 .S OCXD1=0 F S OCXD1=$O(OCXREC("C",OCXD1)) Q:'OCXD1 D
32 ..S OCXDISP(2)=" Condition: "_$P(OCXREC("C",OCXD1,0),U,1)
33 ..S OCXVAL=$G(OCXREC("C",OCXD1,"EXP"))
34 ..I $L(OCXVAL),(OCXVAL[("|"_OCXNAME_"|")) D DISPLAY
35 ..I $L(OCXVAL),(OCXVAL[("|"_OCXABBR_"|")) D DISPLAY
36 ..I $L(OCXVAL),(OCXVAL[("."_OCXNAME_"|")) D DISPLAY
37 ..I $L(OCXVAL),(OCXVAL[("."_OCXABBR_"|")) D DISPLAY
38 .S OCXD1=0 F S OCXD1=$O(OCXREC("R",OCXD1)) Q:'OCXD1 D
39 ..S OCXDISP(2)=" Relation Index: "_$P(OCXREC("R",OCXD1,0),U,1)
40 ..;
41 ..S OCXVAL=$G(OCXREC("R",OCXD1,"E"))
42 ..S OCXDISP(2)=" Expression field"
43 ..I $L(OCXVAL),(OCXVAL[("|"_OCXNAME_"|")) D DISPLAY
44 ..I $L(OCXVAL),(OCXVAL[("|"_OCXABBR_"|")) D DISPLAY
45 ..I $L(OCXVAL),(OCXVAL[("."_OCXNAME_"|")) D DISPLAY
46 ..I $L(OCXVAL),(OCXVAL[("."_OCXABBR_"|")) D DISPLAY
47 ..;
48 ..S OCXVAL=$G(OCXREC("R",OCXD1,"MSG"))
49 ..S OCXDISP(2)=" Notification Message field"
50 ..I $L(OCXVAL),(OCXVAL[("|"_OCXNAME_"|")) D DISPLAY
51 ..I $L(OCXVAL),(OCXVAL[("|"_OCXABBR_"|")) D DISPLAY
52 ..I $L(OCXVAL),(OCXVAL[("."_OCXNAME_"|")) D DISPLAY
53 ..I $L(OCXVAL),(OCXVAL[("."_OCXABBR_"|")) D DISPLAY
54 ..;
55 ..S OCXVAL=$G(OCXREC("R",OCXD1,"OCMSG"))
56 ..S OCXDISP(2)=" Order Check Message field"
57 ..I $L(OCXVAL),(OCXVAL[("|"_OCXNAME_"|")) D DISPLAY
58 ..I $L(OCXVAL),(OCXVAL[("|"_OCXABBR_"|")) D DISPLAY
59 ..I $L(OCXVAL),(OCXVAL[("."_OCXNAME_"|")) D DISPLAY
60 ..I $L(OCXVAL),(OCXVAL[("."_OCXABBR_"|")) D DISPLAY
61 ..;
62 ..S OCXVAL=$G(OCXREC("R",OCXD1,"MCODE"))
63 ..S OCXDISP(2)=" Execute code field"
64 ..I $L(OCXVAL),(OCXVAL[("|"_OCXNAME_"|")) D DISPLAY
65 ..I $L(OCXVAL),(OCXVAL[("|"_OCXABBR_"|")) D DISPLAY
66 ..I $L(OCXVAL),(OCXVAL[("."_OCXNAME_"|")) D DISPLAY
67 ..I $L(OCXVAL),(OCXVAL[("."_OCXABBR_"|")) D DISPLAY
68 W !
69 ;
70SELECT ;
71 ;
72 N DIC,X,Y
73 ;
74 F S DIC=860.4,DIC(0)="AEMQN" D ^DIC Q:(Y<1) I (Y>0) D S
75 ;
76 Q
77 ;
78DISPLAY ;
79 ;
80 N OCXX
81 W !
82 I $L(OCXHDR) W !,OCXHDR,! S OCXHDR=""
83 S OCXX=0 F S OCXX=$O(OCXDISP(OCXX)) Q:'OCXX W OCXDISP(OCXX)
84 Q
85 ;
Note: See TracBrowser for help on using the repository browser.