ORY14407 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install of OR*3*144) ;JUN 12,2002 at 12:20
;;3.0;ORDER ENTRY/RESULTS REPORTING;**144**;Dec 17,1997
;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
;
S ;
;
D DOT^ORY144ES
;
;
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^LAB SPECIMEN NAME
;;R^"860.4:",1,"E"
;;D^LAB SPEC NAME
;;R^"860.4:",101,"E"
;;D^FREE TEXT
;;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 OBSERVATION/RESULT SEGMENT
;;R^"860.4:","860.41:GENERIC HL7 MESSAGE ARRAY^860.6",1,"E"
;;D^PATIENT.LAB_SPECIMEN
;;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^
;;EOF^OCXS(860.4)^1
;1;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY14407 1791 printed Nov 22, 2024@17:48:34 Page 2
ORY14407 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install of OR*3*144) ;JUN 12,2002 at 12:20
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**144**;Dec 17,1997
+2 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
+3 ;
S ;
+1 ;
+2 DO DOT^ORY144ES
+3 ;
+4 ;
+5 KILL REMOTE,LOCAL,OPCODE,REF
+6 FOR LINE=1:1:500
SET TEXT=$PIECE($TEXT(DATA+LINE),";",2,999)
if TEXT
QUIT
IF $LENGTH(TEXT)
Begin DoDot:1
+7 SET ^TMP("OCXRULE",$JOB,$ORDER(^TMP("OCXRULE",$JOB,"A"),-1)+1)=TEXT
End DoDot:1
if QUIT
QUIT
+8 ;
+9 ;
+10 ;
+11 QUIT
+12 ;
DATA ;
+1 ;
+2 ;;D^LAB SPECIMEN NAME
+3 ;;R^"860.4:",1,"E"
+4 ;;D^LAB SPEC NAME
+5 ;;R^"860.4:",101,"E"
+6 ;;D^FREE TEXT
+7 ;;R^"860.4:","860.41:GENERIC HL7 MESSAGE ARRAY^860.6",.01,"E"
+8 ;;D^GENERIC HL7 MESSAGE ARRAY
+9 ;;R^"860.4:","860.41:GENERIC HL7 MESSAGE ARRAY^860.6",.02,"E"
+10 ;;D^HL7 OBSERVATION/RESULT SEGMENT
+11 ;;R^"860.4:","860.41:GENERIC HL7 MESSAGE ARRAY^860.6",1,"E"
+12 ;;D^PATIENT.LAB_SPECIMEN
+13 ;;EOR^
+14 ;;KEY^860.4:^PATIENT IEN
+15 ;;R^"860.4:",.01,"E"
+16 ;;D^PATIENT IEN
+17 ;;R^"860.4:",101,"E"
+18 ;;D^NUMERIC
+19 ;;R^"860.4:","860.41:CPRS ORDER PROTOCOL^860.6",.01,"E"
+20 ;;D^CPRS ORDER PROTOCOL
+21 ;;R^"860.4:","860.41:CPRS ORDER PROTOCOL^860.6",.02,"E"
+22 ;;D^OERR ORDER EVENT FLAG PROTOCOL
+23 ;;R^"860.4:","860.41:CPRS ORDER PROTOCOL^860.6",1,"E"
+24 ;;D^PATIENT.OERR_ORDER_PATIENT
+25 ;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",.01,"E"
+26 ;;D^DATABASE LOOKUP
+27 ;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",.02,"E"
+28 ;;D^DATABASE LOOKUP
+29 ;;R^"860.4:","860.41:DATABASE LOOKUP^860.6",1,"E"
+30 ;;D^PATIENT.IEN
+31 ;;R^"860.4:","860.41:GENERIC HL7 MESSAGE ARRAY^860.6",.01,"E"
+32 ;;D^GENERIC HL7 MESSAGE ARRAY
+33 ;;R^"860.4:","860.41:GENERIC HL7 MESSAGE ARRAY^860.6",.02,"E"
+34 ;;D^HL7 PATIENT ID SEGMENT
+35 ;;R^"860.4:","860.41:GENERIC HL7 MESSAGE ARRAY^860.6",1,"E"
+36 ;;D^PATIENT.HL7_PATIENT_ID
+37 ;;EOR^
+38 ;;EOF^OCXS(860.4)^1
+39 ;1;
+40 ;
