248 lines
7.2 KiB
Mathematica
248 lines
7.2 KiB
Mathematica
ORY2210A ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install of OR*3*221) ;AUG 30,2005 at 11:41
|
|
;;3.0;ORDER ENTRY/RESULTS REPORTING;**221**;Dec 17,1997
|
|
;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
|
|
;
|
|
S ;
|
|
;
|
|
D DOT^ORY221ES
|
|
;
|
|
;
|
|
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
|
|
;
|
|
G ^ORY2210B
|
|
;
|
|
Q
|
|
;
|
|
DATA ;
|
|
;
|
|
;;D^HL7 COMMON ORDER SEGMENT
|
|
;;R^"860.5:",.02,"E"
|
|
;;D^GENERIC HL7 MESSAGE ARRAY
|
|
;;EOR^
|
|
;;KEY^860.5:^HL7 PATIENT ID SEGMENT
|
|
;;R^"860.5:",.01,"E"
|
|
;;D^HL7 PATIENT ID SEGMENT
|
|
;;R^"860.5:",.02,"E"
|
|
;;D^GENERIC HL7 MESSAGE ARRAY
|
|
;;EOR^
|
|
;;KEY^860.5:^OERR ORDER EVENT FLAG PROTOCOL
|
|
;;R^"860.5:",.01,"E"
|
|
;;D^OERR ORDER EVENT FLAG PROTOCOL
|
|
;;R^"860.5:",.02,"E"
|
|
;;D^CPRS ORDER PROTOCOL
|
|
;;EOR^
|
|
;;KEY^860.5:^ORDER ENTRY ORDER PRESCAN
|
|
;;R^"860.5:",.01,"E"
|
|
;;D^ORDER ENTRY ORDER PRESCAN
|
|
;;R^"860.5:",.02,"E"
|
|
;;D^CPRS ORDER PRESCAN
|
|
;;EOR^
|
|
;;EOF^OCXS(860.5)^1
|
|
;;SOF^860.4 ORDER CHECK DATA FIELD
|
|
;;KEY^860.4:^CONTRAST MEDIA CODE
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^CONTRAST MEDIA CODE
|
|
;;R^"860.4:",1,"E"
|
|
;;D^CMC
|
|
;;R^"860.4:",101,"E"
|
|
;;D^FREE TEXT
|
|
;;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.CONTR_MED_CODE
|
|
;;EOR^
|
|
;;KEY^860.4:^CREATININE CLEARANCE (ESTIM) DATE
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^CREATININE CLEARANCE (ESTIM) DATE
|
|
;;R^"860.4:",1,"E"
|
|
;;D^CRCLD
|
|
;;R^"860.4:",101,"E"
|
|
;;D^DATE/TIME
|
|
;;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.CRCL_DATE
|
|
;;EOR^
|
|
;;KEY^860.4:^CREATININE CLEARANCE (ESTIM) VALUE
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^CREATININE CLEARANCE (ESTIM) VALUE
|
|
;;R^"860.4:",1,"E"
|
|
;;D^CRCLV
|
|
;;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.CRCL_TEXT
|
|
;;EOR^
|
|
;;KEY^860.4:^FILLER
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^FILLER
|
|
;;R^"860.4:",1,"E"
|
|
;;D^FILL
|
|
;;R^"860.4:",101,"E"
|
|
;;D^FREE TEXT
|
|
;;R^"860.4:","860.41:CPRS ORDER PRESCAN^860.6",.01,"E"
|
|
;;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.OPS_FILLER
|
|
;;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 COMMON ORDER SEGMENT
|
|
;;R^"860.4:","860.41:GENERIC HL7 MESSAGE ARRAY^860.6",1,"E"
|
|
;;D^PATIENT.HL7_FILLER
|
|
;;EOR^
|
|
;;KEY^860.4:^FORMATTED RENAL LAB RESULTS
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^FORMATTED RENAL LAB RESULTS
|
|
;;R^"860.4:",101,"E"
|
|
;;D^FREE TEXT
|
|
;;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.REN_LAB_RES
|
|
;;EOR^
|
|
;;KEY^860.4:^OI LOCAL TEXT
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^OI LOCAL TEXT
|
|
;;R^"860.4:",101,"E"
|
|
;;D^FREE TEXT
|
|
;;R^"860.4:","860.41:CPRS ORDER PRESCAN^860.6",.01,"E"
|
|
;;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.OPS_LOCAL_TEXT
|
|
;;EOR^
|
|
;;KEY^860.4:^OI NATIONAL ID
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^OI NATIONAL ID
|
|
;;R^"860.4:",101,"E"
|
|
;;D^FREE TEXT
|
|
;;R^"860.4:","860.41:CPRS ORDER PRESCAN^860.6",.01,"E"
|
|
;;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.OPS_NAT_ID
|
|
;;EOR^
|
|
;;KEY^860.4:^ORDER MODE
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^ORDER MODE
|
|
;;R^"860.4:",101,"E"
|
|
;;D^FREE TEXT
|
|
;;R^"860.4:","860.41:CPRS ORDER PRESCAN^860.6",.01,"E"
|
|
;;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.OPS_ORD_MODE
|
|
;;EOR^
|
|
;;KEY^860.4:^ORDERABLE ITEM IEN
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^ORDERABLE ITEM IEN
|
|
;;R^"860.4:",101,"E"
|
|
;;D^NUMERIC
|
|
;;R^"860.4:","860.41:CPRS ORDER PRESCAN^860.6",.01,"E"
|
|
;;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 GLUCOPHAGE CREATININE DAYS
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^RECENT GLUCOPHAGE CREATININE 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.GLUCOPHAGE_CREAT_DAYS
|
|
;;EOR^
|
|
;;KEY^860.4:^RECENT GLUCOPHAGE CREATININE FLAG
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^RECENT GLUCOPHAGE CREATININE 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.GLUCOPHAGE_CREAT_FLAG
|
|
;;EOR^
|
|
;;KEY^860.4:^RECENT GLUCOPHAGE CREATININE RESULT
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^RECENT GLUCOPHAGE CREATININE RESULT
|
|
;;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.GLUCOPHAGE_CREAT_RSLT
|
|
;;EOR^
|
|
;;KEY^860.4:^RECENT GLUCOPHAGE CREATININE TEXT
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^RECENT GLUCOPHAGE CREATININE TEXT
|
|
;;R^"860.4:",101,"E"
|
|
;;D^FREE TEXT
|
|
;;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"
|
|
;1;
|
|
;
|