247 lines
7.1 KiB
Mathematica
247 lines
7.1 KiB
Mathematica
ORY21108 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install of OR*3*211) ;APR 5,2005 at 08:07
|
|
;;3.0;ORDER ENTRY/RESULTS REPORTING;**211**;Dec 17,1997
|
|
;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
|
|
;
|
|
S ;
|
|
;
|
|
D DOT^ORY211ES
|
|
;
|
|
;
|
|
K REMOTE,LOCAL,OPCODE,REF
|
|
F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT I $L(TEXT) D Q:QUIT
|
|
.S ^TMP("OCXRULE",$J,$O(^TMP("OCXRULE",$J,"A"),-1)+1)=TEXT
|
|
;
|
|
;
|
|
;
|
|
Q
|
|
;
|
|
DATA ;
|
|
;
|
|
;;D^CPRS ORDER PRESCAN
|
|
;;R^"860.4:","860.41:CPRS ORDER PRESCAN^860.6",.02,"E"
|
|
;;D^ORDER ENTRY ORDER PRESCAN
|
|
;;R^"860.4:","860.41:CPRS ORDER PRESCAN^860.6",1,"E"
|
|
;;D^PATIENT.ORDER_ITEM_IEN
|
|
;;EOR^
|
|
;;KEY^860.4:^PATIENT CURRENTLY ON GLUCOPHAGE
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^PATIENT CURRENTLY ON GLUCOPHAGE
|
|
;;R^"860.4:",101,"E"
|
|
;;D^BOOLEAN
|
|
;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",.01,"E"
|
|
;;D^DATABASE LOOKUP
|
|
;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",.02,"E"
|
|
;;D^DATABASE LOOKUP
|
|
;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",1,"E"
|
|
;;D^PATIENT.TAKING_GLUCOPHAGE
|
|
;;EOR^
|
|
;;KEY^860.4:^PATIENT IEN
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^PATIENT IEN
|
|
;;R^"860.4:",101,"E"
|
|
;;D^NUMERIC
|
|
;;R^"860.4:","860.41:CPRS ORDER PROTOCOL^860.6",.01,"E"
|
|
;;D^CPRS ORDER PROTOCOL
|
|
;;R^"860.4:","860.41:CPRS ORDER PROTOCOL^860.6",.02,"E"
|
|
;;D^OERR ORDER EVENT FLAG PROTOCOL
|
|
;;R^"860.4:","860.41:CPRS ORDER PROTOCOL^860.6",1,"E"
|
|
;;D^PATIENT.OERR_ORDER_PATIENT
|
|
;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",.01,"E"
|
|
;;D^DATABASE LOOKUP
|
|
;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",.02,"E"
|
|
;;D^DATABASE LOOKUP
|
|
;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",1,"E"
|
|
;;D^PATIENT.IEN
|
|
;;R^"860.4:","860.41:GENERIC HL7 MESSAGE ARRAY^860.6",.01,"E"
|
|
;;D^GENERIC HL7 MESSAGE ARRAY
|
|
;;R^"860.4:","860.41:GENERIC HL7 MESSAGE ARRAY^860.6",.02,"E"
|
|
;;D^HL7 PATIENT ID SEGMENT
|
|
;;R^"860.4:","860.41:GENERIC HL7 MESSAGE ARRAY^860.6",1,"E"
|
|
;;D^PATIENT.HL7_PATIENT_ID
|
|
;;EOR^
|
|
;;KEY^860.4:^RECENT CONTRAST MEDIA CREATININE DAYS
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^RECENT CONTRAST MEDIA CREATININE DAYS
|
|
;;R^"860.4:",1,"E"
|
|
;;D^CM-CREAT DAYS
|
|
;;R^"860.4:",101,"E"
|
|
;;D^NUMERIC
|
|
;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",.01,"E"
|
|
;;D^DATABASE LOOKUP
|
|
;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",.02,"E"
|
|
;;D^DATABASE LOOKUP
|
|
;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",1,"E"
|
|
;;D^PATIENT.CM_CREAT_DAYS
|
|
;;EOR^
|
|
;;KEY^860.4:^RECENT CONTRAST MEDIA CREATININE FLAG
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^RECENT CONTRAST MEDIA CREATININE FLAG
|
|
;;R^"860.4:",1,"E"
|
|
;;D^CM-CREAT FLAG
|
|
;;R^"860.4:",101,"E"
|
|
;;D^BOOLEAN
|
|
;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",.01,"E"
|
|
;;D^DATABASE LOOKUP
|
|
;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",.02,"E"
|
|
;;D^DATABASE LOOKUP
|
|
;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",1,"E"
|
|
;;D^PATIENT.CM_CREAT_FLAG
|
|
;;EOR^
|
|
;;EOF^OCXS(860.4)^1
|
|
;;SOF^860.3 ORDER CHECK ELEMENT
|
|
;;KEY^860.3:^ABNORMAL RENAL RESULTS
|
|
;;R^"860.3:",.01,"E"
|
|
;;D^ABNORMAL RENAL RESULTS
|
|
;;R^"860.3:",.02,"E"
|
|
;;D^CPRS ORDER PRESCAN
|
|
;;R^"860.3:","860.31:1",.01,"E"
|
|
;;D^1
|
|
;;R^"860.3:","860.31:1",1,"E"
|
|
;;D^MOST RECENT RENAL TEST ABNORMAL FLAG
|
|
;;R^"860.3:","860.31:1",2,"E"
|
|
;;D^LOGICAL TRUE
|
|
;;EOR^
|
|
;;KEY^860.3:^CONTRAST MEDIA ORDER
|
|
;;R^"860.3:",.01,"E"
|
|
;;D^CONTRAST MEDIA ORDER
|
|
;;R^"860.3:",.02,"E"
|
|
;;D^CPRS ORDER PRESCAN
|
|
;;R^"860.3:","860.31:1",.01,"E"
|
|
;;D^1
|
|
;;R^"860.3:","860.31:1",1,"E"
|
|
;;D^ORDER MODE
|
|
;;R^"860.3:","860.31:1",2,"E"
|
|
;;D^EQ FREE TEXT
|
|
;;R^"860.3:","860.31:1",3,"E"
|
|
;;D^SELECT
|
|
;;R^"860.3:","860.31:4",.01,"E"
|
|
;;D^4
|
|
;;R^"860.3:","860.31:4",1,"E"
|
|
;;D^CONTRAST MEDIA CODE
|
|
;;R^"860.3:","860.31:4",2,"E"
|
|
;;D^CONTAINS ELEMENT IN SET
|
|
;;R^"860.3:","860.31:4",3,"E"
|
|
;;D^M,I,N
|
|
;;EOR^
|
|
;;KEY^860.3:^NO CREAT RESULTS W/IN X DAYS
|
|
;;R^"860.3:",.01,"E"
|
|
;;D^NO CREAT RESULTS W/IN X DAYS
|
|
;;R^"860.3:",.02,"E"
|
|
;;D^CPRS ORDER PRESCAN
|
|
;;R^"860.3:","860.31:1",.01,"E"
|
|
;;D^1
|
|
;;R^"860.3:","860.31:1",1,"E"
|
|
;;D^RECENT CONTRAST MEDIA CREATININE FLAG
|
|
;;R^"860.3:","860.31:1",2,"E"
|
|
;;D^LOGICAL FALSE
|
|
;;EOR^
|
|
;;KEY^860.3:^PATIENT WITH GLUCOPHAGE MED
|
|
;;R^"860.3:",.01,"E"
|
|
;;D^PATIENT WITH GLUCOPHAGE MED
|
|
;;R^"860.3:",.02,"E"
|
|
;;D^DATABASE LOOKUP
|
|
;;R^"860.3:","860.31:1",.01,"E"
|
|
;;D^1
|
|
;;R^"860.3:","860.31:1",1,"E"
|
|
;;D^PATIENT CURRENTLY ON GLUCOPHAGE
|
|
;;R^"860.3:","860.31:1",2,"E"
|
|
;;D^LOGICAL TRUE
|
|
;;EOR^
|
|
;;KEY^860.3:^RADIOLOGY PROCEDURE CONTAINS NON-BARIUM CONTRAST MEDIA
|
|
;;R^"860.3:",.01,"E"
|
|
;;D^RADIOLOGY PROCEDURE CONTAINS NON-BARIUM CONTRAST MEDIA
|
|
;;R^"860.3:",.02,"E"
|
|
;;D^CPRS ORDER PRESCAN
|
|
;;R^"860.3:","860.31:2",.01,"E"
|
|
;;D^2
|
|
;;R^"860.3:","860.31:2",1,"E"
|
|
;;D^ORDER MODE
|
|
;;R^"860.3:","860.31:2",2,"E"
|
|
;;D^EQ FREE TEXT
|
|
;;R^"860.3:","860.31:2",3,"E"
|
|
;;D^SELECT
|
|
;;R^"860.3:","860.31:3",.01,"E"
|
|
;;D^3
|
|
;;R^"860.3:","860.31:3",1,"E"
|
|
;;D^FILLER
|
|
;;R^"860.3:","860.31:3",2,"E"
|
|
;;D^EQ FREE TEXT
|
|
;;R^"860.3:","860.31:3",3,"E"
|
|
;;D^RA
|
|
;;R^"860.3:","860.31:4",.01,"E"
|
|
;;D^4
|
|
;;R^"860.3:","860.31:4",1,"E"
|
|
;;D^CONTRAST MEDIA CODE
|
|
;;R^"860.3:","860.31:4",2,"E"
|
|
;;D^CONTAINS ELEMENT IN SET
|
|
;;R^"860.3:","860.31:4",3,"E"
|
|
;;D^M,I,N
|
|
;;EOR^
|
|
;;EOF^OCXS(860.3)^1
|
|
;;SOF^860.2 ORDER CHECK RULE
|
|
;;KEY^860.2:^BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK
|
|
;;R^"860.2:",.01,"E"
|
|
;;D^BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK
|
|
;;R^"860.2:","860.21:1",.01,"E"
|
|
;;D^CONTRAST MEDIA ORDER
|
|
;;R^"860.2:","860.21:1",.02,"E"
|
|
;;D^SIMPLE DEFINITION
|
|
;;R^"860.2:","860.21:1",1,"E"
|
|
;;D^CONTRAST MEDIA ORDER
|
|
;;R^"860.2:","860.21:2",.01,"E"
|
|
;;D^ABNORMAL RENAL RESULTS
|
|
;;R^"860.2:","860.21:2",.02,"E"
|
|
;;D^SIMPLE DEFINITION
|
|
;;R^"860.2:","860.21:2",1,"E"
|
|
;;D^ABNORMAL RENAL RESULTS
|
|
;;R^"860.2:","860.21:3",.01,"E"
|
|
;;D^NO CREAT RESULTS W/IN X DAYS
|
|
;;R^"860.2:","860.21:3",.02,"E"
|
|
;;D^SIMPLE DEFINITION
|
|
;;R^"860.2:","860.21:3",1,"E"
|
|
;;D^NO CREAT RESULTS W/IN X DAYS
|
|
;;R^"860.2:","860.22:1",.01,"E"
|
|
;;D^1
|
|
;;R^"860.2:","860.22:1",1,"E"
|
|
;;D^CONTRAST MEDIA ORDER AND ABNORMAL RENAL RESULTS
|
|
;;R^"860.2:","860.22:1",2,"E"
|
|
;;D^BIOCHEM ABNORMALITY FOR CONTRAST MEDIA
|
|
;;R^"860.2:","860.22:1",6,"E"
|
|
;;D^Procedure uses intravenous contrast media - abnormal biochem result: |ABNORMAL RENAL BIOCHEM RESULTS|
|
|
;;R^"860.2:","860.22:2",.01,"E"
|
|
;;D^2
|
|
;;R^"860.2:","860.22:2",1,"E"
|
|
;;D^CONTRAST MEDIA ORDER AND NO CREAT RESULTS W/IN X DAYS
|
|
;;R^"860.2:","860.22:2",2,"E"
|
|
;;D^BIOCHEM ABNORMALITY FOR CONTRAST MEDIA
|
|
;;R^"860.2:","860.22:2",6,"E"
|
|
;;D^Procedure uses intravenous contrast media - no creatinine results within |CM-CREAT DAYS| days
|
|
;;EOR^
|
|
;;KEY^860.2:^GLUCOPHAGE - CONTRAST MEDIA
|
|
;;R^"860.2:",.01,"E"
|
|
;;D^GLUCOPHAGE - CONTRAST MEDIA
|
|
;;R^"860.2:","860.21:1",.01,"E"
|
|
;;D^PROC USES NON-BARIUM MEDIA
|
|
;;R^"860.2:","860.21:1",.02,"E"
|
|
;;D^SIMPLE DEFINITION
|
|
;;R^"860.2:","860.21:1",1,"E"
|
|
;;D^RADIOLOGY PROCEDURE CONTAINS NON-BARIUM CONTRAST MEDIA
|
|
;;R^"860.2:","860.21:2",.01,"E"
|
|
;;D^PATIENT TAKING GLUCOPHAGE
|
|
;;R^"860.2:","860.21:2",.02,"E"
|
|
;;D^SIMPLE DEFINITION
|
|
;;R^"860.2:","860.21:2",1,"E"
|
|
;;D^PATIENT WITH GLUCOPHAGE MED
|
|
;;R^"860.2:","860.22:1",.01,"E"
|
|
;;D^1
|
|
;;R^"860.2:","860.22:1",1,"E"
|
|
;;D^IF PROC USES NON-BARIUM MEDIA AND PATIENT TAKING GLUCOPHAGE
|
|
;;R^"860.2:","860.22:1",2,"E"
|
|
;;D^GLUCOPHAGE-CONTRAST MEDIA
|
|
;;R^"860.2:","860.22:1",6,"E"
|
|
;;D^Procedure uses intravenous contrast media and patient is taking metformin.
|
|
;;EOR^
|
|
;;EOF^OCXS(860.2)^1
|
|
;1;
|
|
;
|