207 lines
5.1 KiB
Mathematica
207 lines
5.1 KiB
Mathematica
OCXDI02M ;SLC/RJS,CLA - OCX PACKAGE DIAGNOSTIC ROUTINES ;SEP 7,1999 at 10:30
|
|
;;3.0;ORDER ENTRY/RESULTS REPORTING;**32**;Dec 17,1997
|
|
;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
|
|
;
|
|
S ;
|
|
;
|
|
D DOT^OCXDIAG
|
|
;
|
|
;
|
|
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("OCXDIAG",$J,$O(^TMP("OCXDIAG",$J,"A"),-1)+1)=TEXT
|
|
;
|
|
G ^OCXDI02N
|
|
;
|
|
Q
|
|
;
|
|
DATA ;
|
|
;
|
|
;;D^FREE TEXT
|
|
;;R^"860.4:","860.41:1",.01,"E"
|
|
;;D^GENERIC HL7 MESSAGE ARRAY
|
|
;;R^"860.4:","860.41:1",.02,"E"
|
|
;;D^HL7 COMMON ORDER SEGMENT
|
|
;;R^"860.4:","860.41:1",1,"E"
|
|
;;D^PATIENT.HL7_CONTROL_CODE
|
|
;;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:1",.01,"E"
|
|
;;D^GENERIC HL7 MESSAGE ARRAY
|
|
;;R^"860.4:","860.41:1",.02,"E"
|
|
;;D^HL7 COMMON ORDER SEGMENT
|
|
;;R^"860.4:","860.41:1",1,"E"
|
|
;;D^PATIENT.HL7_FILLER
|
|
;;R^"860.4:","860.41:5",.01,"E"
|
|
;;D^CPRS ORDER PRESCAN
|
|
;;R^"860.4:","860.41:5",.02,"E"
|
|
;;D^ORDER ENTRY ORDER PRESCAN
|
|
;;R^"860.4:","860.41:5",1,"E"
|
|
;;D^PATIENT.OPS_FILLER
|
|
;;EOR^
|
|
;;KEY^860.4:^ORDERING PROVIDER
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^ORDERING PROVIDER
|
|
;;R^"860.4:",101,"E"
|
|
;;D^POINTER TO A FILEMAN FILE
|
|
;;R^"860.4:","860.41:1",.01,"E"
|
|
;;D^GENERIC HL7 MESSAGE ARRAY
|
|
;;R^"860.4:","860.41:1",.02,"E"
|
|
;;D^HL7 COMMON ORDER SEGMENT
|
|
;;R^"860.4:","860.41:1",1,"E"
|
|
;;D^PATIENT.HL7_ORDERING_PROVIDER
|
|
;;EOR^
|
|
;;KEY^860.4:^STATUS
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^STATUS
|
|
;;R^"860.4:",101,"E"
|
|
;;D^FREE TEXT
|
|
;;R^"860.4:","860.41:1",.01,"E"
|
|
;;D^GENERIC HL7 MESSAGE ARRAY
|
|
;;R^"860.4:","860.41:1",.02,"E"
|
|
;;D^HL7 OBSERVATION/RESULT SEGMENT
|
|
;;R^"860.4:","860.41:1",1,"E"
|
|
;;D^PATIENT.HL7_STATUS
|
|
;;EOR^
|
|
;;KEY^860.4:^ORDER PRIORITY (OBR)
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^ORDER PRIORITY (OBR)
|
|
;;R^"860.4:",101,"E"
|
|
;;D^FREE TEXT
|
|
;;R^"860.4:","860.41:1",.01,"E"
|
|
;;D^GENERIC HL7 MESSAGE ARRAY
|
|
;;R^"860.4:","860.41:1",.02,"E"
|
|
;;D^HL7 OBSERVATION REQUEST SEGMENT
|
|
;;R^"860.4:","860.41:1",1,"E"
|
|
;;D^PATIENT.HL7_ORDER_PRIORITY
|
|
;;EOR^
|
|
;;KEY^860.4:^ABNORMAL FLAG
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^ABNORMAL FLAG
|
|
;;R^"860.4:",101,"E"
|
|
;;D^FREE TEXT
|
|
;;R^"860.4:","860.41:1",.01,"E"
|
|
;;D^GENERIC HL7 MESSAGE ARRAY
|
|
;;R^"860.4:","860.41:1",.02,"E"
|
|
;;D^HL7 OBSERVATION/RESULT SEGMENT
|
|
;;R^"860.4:","860.41:1",1,"E"
|
|
;;D^PATIENT.HL7_ABNORMAL_FLAG
|
|
;;EOR^
|
|
;;KEY^860.4:^COMMENT
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^COMMENT
|
|
;;R^"860.4:",101,"E"
|
|
;;D^FREE TEXT
|
|
;;R^"860.4:","860.41:1",.01,"E"
|
|
;;D^GENERIC HL7 MESSAGE ARRAY
|
|
;;R^"860.4:","860.41:1",.02,"E"
|
|
;;D^HL7 NOTES AND COMMENTS SECTION
|
|
;;R^"860.4:","860.41:1",1,"E"
|
|
;;D^PATIENT.HL7_COMMENT
|
|
;;EOR^
|
|
;;KEY^860.4:^EXAM/ORDER ID
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^EXAM/ORDER ID
|
|
;;R^"860.4:",101,"E"
|
|
;;D^FREE TEXT
|
|
;;R^"860.4:","860.41:1",.01,"E"
|
|
;;D^GENERIC HL7 MESSAGE ARRAY
|
|
;;R^"860.4:","860.41:1",.02,"E"
|
|
;;D^HL7 COMMON ORDER SEGMENT
|
|
;;R^"860.4:","860.41:1",1,"E"
|
|
;;D^PATIENT.HL7_EXAM/ORDER_ID
|
|
;;EOR^
|
|
;;KEY^860.4:^ORDER ST D/T
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^ORDER ST D/T
|
|
;;R^"860.4:",101,"E"
|
|
;;D^DATE/TIME
|
|
;;R^"860.4:","860.41:1",.01,"E"
|
|
;;D^GENERIC HL7 MESSAGE ARRAY
|
|
;;R^"860.4:","860.41:1",.02,"E"
|
|
;;D^HL7 COMMON ORDER SEGMENT
|
|
;;R^"860.4:","860.41:1",1,"E"
|
|
;;D^PATIENT.HL7_ORDER_ST_D/T
|
|
;;EOR^
|
|
;;KEY^860.4:^LAB TEST NAME
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^LAB TEST NAME
|
|
;;R^"860.4:",101,"E"
|
|
;;D^FREE TEXT
|
|
;;R^"860.4:","860.41:1",.01,"E"
|
|
;;D^GENERIC HL7 MESSAGE ARRAY
|
|
;;R^"860.4:","860.41:1",.02,"E"
|
|
;;D^HL7 OBSERVATION/RESULT SEGMENT
|
|
;;R^"860.4:","860.41:1",1,"E"
|
|
;;D^PATIENT.HL7_LAB_LOCAL_TEST
|
|
;;EOR^
|
|
;;KEY^860.4:^CONSULT/REQUEST NAME
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^CONSULT/REQUEST NAME
|
|
;;R^"860.4:",101,"E"
|
|
;;D^FREE TEXT
|
|
;;R^"860.4:","860.41:1",.01,"E"
|
|
;;D^GENERIC HL7 MESSAGE ARRAY
|
|
;;R^"860.4:","860.41:1",.02,"E"
|
|
;;D^HL7 OBSERVATION/RESULT SEGMENT
|
|
;;R^"860.4:","860.41:1",1,"E"
|
|
;;D^PATIENT.HL7_CON_REQ_NAME
|
|
;;EOR^
|
|
;;KEY^860.4:^LAB RESULT
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^LAB RESULT
|
|
;;R^"860.4:",101,"E"
|
|
;;D^FREE TEXT
|
|
;;R^"860.4:","860.41:1",.01,"E"
|
|
;;D^GENERIC HL7 MESSAGE ARRAY
|
|
;;R^"860.4:","860.41:1",.02,"E"
|
|
;;D^HL7 OBSERVATION/RESULT SEGMENT
|
|
;;R^"860.4:","860.41:1",1,"E"
|
|
;;D^PATIENT.LAB_RESULT
|
|
;;EOR^
|
|
;;KEY^860.4:^LAB COLLECTION D/T
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^LAB COLLECTION D/T
|
|
;;R^"860.4:",101,"E"
|
|
;;D^DATE/TIME
|
|
;;R^"860.4:","860.41:1",.01,"E"
|
|
;;D^GENERIC HL7 MESSAGE ARRAY
|
|
;;R^"860.4:","860.41:1",.02,"E"
|
|
;;D^HL7 OBSERVATION/RESULT SEGMENT
|
|
;;R^"860.4:","860.41:1",1,"E"
|
|
;;D^PATIENT.LAB_COLLECTION_D/T
|
|
;;EOR^
|
|
;;KEY^860.4:^LAB SPECIMEN
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^LAB SPECIMEN
|
|
;;R^"860.4:",101,"E"
|
|
;;D^FREE TEXT
|
|
;;R^"860.4:","860.41:1",.01,"E"
|
|
;;D^GENERIC HL7 MESSAGE ARRAY
|
|
;;R^"860.4:","860.41:1",.02,"E"
|
|
;;D^HL7 OBSERVATION/RESULT SEGMENT
|
|
;;R^"860.4:","860.41:1",1,"E"
|
|
;;D^PATIENT.LAB_SPECIMEN
|
|
;;EOR^
|
|
;;KEY^860.4:^RESULT STATUS (OBX)
|
|
;;R^"860.4:",.01,"E"
|
|
;;D^RESULT STATUS (OBX)
|
|
;;R^"860.4:",101,"E"
|
|
;;D^FREE TEXT
|
|
;;R^"860.4:","860.41:1",.01,"E"
|
|
;;D^GENERIC HL7 MESSAGE ARRAY
|
|
;;R^"860.4:","860.41:1",.02,"E"
|
|
;;D^HL7 OBSERVATION/RESULT SEGMENT
|
|
;;R^"860.4:","860.41:1",1,"E"
|
|
;;D^PATIENT.RESULT_STATUS
|
|
;;EOR^
|
|
;;KEY^860.4:^LAB LOCAL ORDERABLE ITEM
|
|
;1;
|
|
;
|