source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY2210C.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: 2.2 KB
Line 
1ORY2210C ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install of OR*3*221) ;AUG 30,2005 at 11:41
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**221**;Dec 17,1997
3 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
4 ;
5S ;
6 ;
7 D DOT^ORY221ES
8 ;
9 ;
10 K REMOTE,LOCAL,OPCODE,REF
11 F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT I $L(TEXT) D Q:QUIT
12 .S ^TMP("OCXRULE",$J,$O(^TMP("OCXRULE",$J,"A"),-1)+1)=TEXT
13 ;
14 ;
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;R^"860.2:","860.21:2",.01,"E"
21 ;;D^PATIENT TAKING GLUCOPHAGE
22 ;;R^"860.2:","860.21:2",.02,"E"
23 ;;D^SIMPLE DEFINITION
24 ;;R^"860.2:","860.21:2",1,"E"
25 ;;D^PATIENT WITH GLUCOPHAGE MED
26 ;;R^"860.2:","860.22:1",.01,"E"
27 ;;D^1
28 ;;R^"860.2:","860.22:1",1,"E"
29 ;;D^IF PROC USES NON-BARIUM MEDIA AND PATIENT TAKING GLUCOPHAGE
30 ;;R^"860.2:","860.22:1",2,"E"
31 ;;D^GLUCOPHAGE-CONTRAST MEDIA
32 ;;R^"860.2:","860.22:1",6,"E"
33 ;;D^Procedure uses intravenous contrast media and patient is taking metformin.
34 ;;EOR^
35 ;;KEY^860.2:^GLUCOPHAGE - LAB RESULTS
36 ;;R^"860.2:",.01,"E"
37 ;;D^GLUCOPHAGE - LAB RESULTS
38 ;;R^"860.2:","860.21:1",.01,"E"
39 ;;D^GLUCOPHAGE ORDER
40 ;;R^"860.2:","860.21:1",.02,"E"
41 ;;D^SIMPLE DEFINITION
42 ;;R^"860.2:","860.21:1",1,"E"
43 ;;D^GLUCOPHAGE ORDER
44 ;;R^"860.2:","860.21:2",.01,"E"
45 ;;D^GLUCOPHAGE CREATININE > 1.5
46 ;;R^"860.2:","860.21:2",.02,"E"
47 ;;D^SIMPLE DEFINITION
48 ;;R^"860.2:","860.21:2",1,"E"
49 ;;D^GLUCOPHAGE CREATININE > 1.5
50 ;;R^"860.2:","860.21:3",.01,"E"
51 ;;D^NO GLUCOPHAGE CREATININE
52 ;;R^"860.2:","860.21:3",.02,"E"
53 ;;D^SIMPLE DEFINITION
54 ;;R^"860.2:","860.21:3",1,"E"
55 ;;D^NO GLUCOPHAGE CREATININE
56 ;;R^"860.2:","860.22:1",.01,"E"
57 ;;D^1
58 ;;R^"860.2:","860.22:1",1,"E"
59 ;;D^GLUCOPHAGE ORDER AND GLUCOPHAGE CREATININE > 1.5
60 ;;R^"860.2:","860.22:1",2,"E"
61 ;;D^GLUCOPHAGE-LAB RESULTS
62 ;;R^"860.2:","860.22:1",6,"E"
63 ;;D^Metformin - Creatinine results: |RECENT GLUCOPHAGE CREATININE TEXT|
64 ;;R^"860.2:","860.22:2",.01,"E"
65 ;;D^2
66 ;;R^"860.2:","860.22:2",1,"E"
67 ;;D^GLUCOPHAGE ORDER AND NO GLUCOPHAGE CREATININE
68 ;;R^"860.2:","860.22:2",2,"E"
69 ;;D^GLUCOPHAGE-LAB RESULTS
70 ;;R^"860.2:","860.22:2",6,"E"
71 ;;D^Metformin - no serum creatinine within past |RECENT GLUCOPHAGE CREATININE DAYS| days.
72 ;;EOR^
73 ;;EOF^OCXS(860.2)^1
74 ;1;
75 ;
Note: See TracBrowser for help on using the repository browser.