source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0X.m@ 613

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

initial load of WorldVistAEHR
File size: 4.5 KB
Line 
1OCXOZ0X ;SLC/RJS,CLA - Order Check Scan ;NOV 8,2009 at 18:44
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221,243**;Dec 17,1997;Build 242
3 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
4 ;
5 ; ***************************************************************
6 ; ** Warning: This routine is automatically generated by the **
7 ; ** Rule Compiler (^OCXOCMP) and ANY changes to this routine **
8 ; ** will be lost the next time the rule compiler executes. **
9 ; ***************************************************************
10 ;
11 Q
12 ;
13R57R4B ; Send Order Check, Notication messages and/or Execute code for Rule #57 'CLOZAPINE' Relation #4 'CLOZAPINE AND 1.5 <= ANC < 2.0'
14 ; Called from R57R4A+12^OCXOZ0W.
15 ;
16 Q:$G(OCXOERR)
17 ;
18 ; Local Extrinsic Functions
19 ; GETDATA( ---------> GET DATA FROM THE ACTIVE DATA FILE
20 ;
21 Q:$D(OCXRULE("R57R4B"))
22 ;
23 N OCXNMSG,OCXCMSG,OCXPORD,OCXFORD,OCXDATA,OCXNUM,OCXDUZ,OCXQUIT,OCXLOGS,OCXLOGD
24 I ($G(OCXOSRC)="CPRS ORDER PRESCAN") S OCXCMSG=(+OCXPSD)_"^19^^ANC between 1.5 and 2.0 - please repeat CBC/Diff including WBC and ANC immediately and twice weekly. Most recent results - "_$$GETDATA(DFN,"116^140",130) I 1
25 E S OCXCMSG="ANC between 1.5 and 2.0 - please repeat CBC/Diff including WBC and ANC immediately and twice weekly. Most recent results - "_$$GETDATA(DFN,"116^140",130)
26 S OCXNMSG=""
27 ;
28 Q:$G(OCXOERR)
29 ;
30 ; Send Order Check Message
31 ;
32 S OCXOCMSG($O(OCXOCMSG(999999),-1)+1)=OCXCMSG
33 Q
34 ;
35R59R1A ; Verify all Event/Elements of Rule #59 'AMINOGLYCOSIDE ORDER' Relation #1 'AGS ORDER'
36 ; Called from EL71+5^OCXOZ0I.
37 ;
38 Q:$G(OCXOERR)
39 ;
40 ; Local Extrinsic Functions
41 ; MCE71( -----------> Verify Event/Element: 'AMINOGLYCOSIDE ORDER SESSION'
42 ;
43 Q:$G(^OCXS(860.2,59,"INACT"))
44 ;
45 I $$MCE71 D R59R1B
46 Q
47 ;
48R59R1B ; Send Order Check, Notication messages and/or Execute code for Rule #59 'AMINOGLYCOSIDE ORDER' Relation #1 'AGS ORDER'
49 ; Called from R59R1A+10.
50 ;
51 Q:$G(OCXOERR)
52 ;
53 ; Local Extrinsic Functions
54 ; GETDATA( ---------> GET DATA FROM THE ACTIVE DATA FILE
55 ;
56 Q:$D(OCXRULE("R59R1B"))
57 ;
58 N OCXNMSG,OCXCMSG,OCXPORD,OCXFORD,OCXDATA,OCXNUM,OCXDUZ,OCXQUIT,OCXLOGS,OCXLOGD
59 I ($G(OCXOSRC)="CPRS ORDER PRESCAN") S OCXCMSG=(+OCXPSD)_"^20^^Aminoglycoside - est. CrCl: "_$$GETDATA(DFN,"71^",76)_" ("_$$GETDATA(DFN,"71^",64)_") [Est. CrCl based on modified Cockcroft-Gault equation using Adjusted Body Weight (if ht > 60 in)]" I 1
60 E S OCXCMSG="Aminoglycoside - est. CrCl: "_$$GETDATA(DFN,"71^",76)_" ("_$$GETDATA(DFN,"71^",64)_") [Est. CrCl based on modified Cockcroft-Gault equation using Adjusted Body Weight (if ht > 60 in)]"
61 S OCXNMSG=""
62 ;
63 Q:$G(OCXOERR)
64 ;
65 ; Send Order Check Message
66 ;
67 S OCXOCMSG($O(OCXOCMSG(999999),-1)+1)=OCXCMSG
68 Q
69 ;
70R60R1A ; Verify all Event/Elements of Rule #60 'CT OR MRI PHYSICAL LIMIT CHECK' Relation #1 'TOO BIG'
71 ; Called from EL72+5^OCXOZ0I.
72 ;
73 Q:$G(OCXOERR)
74 ;
75 ; Local Extrinsic Functions
76 ; MCE72( -----------> Verify Event/Element: 'PATIENT OVER CT OR MRI DEVICE LIMITATIONS'
77 ;
78 Q:$G(^OCXS(860.2,60,"INACT"))
79 ;
80 I $$MCE72 D R60R1B
81 Q
82 ;
83R60R1B ; Send Order Check, Notication messages and/or Execute code for Rule #60 'CT OR MRI PHYSICAL LIMIT CHECK' Relation #1 'TOO BIG'
84 ; Called from R60R1A+10.
85 ;
86 Q:$G(OCXOERR)
87 ;
88 ; Local Extrinsic Functions
89 ; GETDATA( ---------> GET DATA FROM THE ACTIVE DATA FILE
90 ;
91 Q:$D(OCXRULE("R60R1B"))
92 ;
93 N OCXNMSG,OCXCMSG,OCXPORD,OCXFORD,OCXDATA,OCXNUM,OCXDUZ,OCXQUIT,OCXLOGS,OCXLOGD
94 I ($G(OCXOSRC)="CPRS ORDER PRESCAN") S OCXCMSG=(+OCXPSD)_"^8^^Patient may be "_$$GETDATA(DFN,"72^",79)_" for the "_$$GETDATA(DFN,"72^",80)_"." I 1
95 E S OCXCMSG="Patient may be "_$$GETDATA(DFN,"72^",79)_" for the "_$$GETDATA(DFN,"72^",80)_"."
96 S OCXNMSG=""
97 ;
98 Q:$G(OCXOERR)
99 ;
100 ; Send Order Check Message
101 ;
102 S OCXOCMSG($O(OCXOCMSG(999999),-1)+1)=OCXCMSG
103 Q
104 ;
105GETDATA(DFN,OCXL,OCXDFI) ; This Local Extrinsic Function returns runtime data
106 ;
107 N OCXE,VAL,PC S VAL=""
108 F PC=1:1:$L(OCXL,U) S OCXE=$P(OCXL,U,PC) I OCXE S VAL=$G(^TMP("OCXCHK",$J,DFN,OCXE,OCXDFI)) Q:$L(VAL)
109 Q VAL
110 ;
111MCE71() ; Verify Event/Element: AMINOGLYCOSIDE ORDER SESSION
112 ;
113 ; OCXDF(37) -> PATIENT IEN data field
114 ;
115 N OCXRES
116 S OCXDF(37)=$G(DFN) I $L(OCXDF(37)) S OCXRES(71,37)=OCXDF(37)
117 Q:'(OCXDF(37)) 0 I $D(^TMP("OCXCHK",$J,OCXDF(37),71)) Q $G(^TMP("OCXCHK",$J,OCXDF(37),71))
118 Q 0
119 ;
120MCE72() ; Verify Event/Element: PATIENT OVER CT OR MRI DEVICE LIMITATIONS
121 ;
122 ; OCXDF(37) -> PATIENT IEN data field
123 ;
124 N OCXRES
125 S OCXDF(37)=$G(DFN) I $L(OCXDF(37)) S OCXRES(72,37)=OCXDF(37)
126 Q:'(OCXDF(37)) 0 I $D(^TMP("OCXCHK",$J,OCXDF(37),72)) Q $G(^TMP("OCXCHK",$J,OCXDF(37),72))
127 Q 0
128 ;
Note: See TracBrowser for help on using the repository browser.