source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY24309.m@ 1800

ORY24309        ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install of OR*3*243) ;NOV 2,2006 at 12:05

        ;;3.0;ORDER ENTRY/RESULTS REPORTING;**243**;Dec 17,1997;Build 242

        ;;  ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998

        ;

S       ;

        ;

        D DOT^ORY243ES

        ;

        ;

        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    ;

        ;

        ;;R^"860.2:","860.21:9",1,"E"

        ;;D^CLOZAPINE WBC >= 3.5

        ;;R^"860.2:","860.22:1",.01,"E"

        ;;D^1

        ;;R^"860.2:","860.22:1",1,"E"

        ;;D^CLOZAPINE AND (NO WBC W/IN 7 DAYS OR NO ANC W/IN 7 DAYS)

        ;;R^"860.2:","860.22:1",2,"E"

        ;;D^CLOZAPINE APPROPRIATENESS

        ;;R^"860.2:","860.22:1",6,"E"

        ;;D^Clozapine orders require a CBC/Diff within past 7 days.  Please order CBC/Diff with WBC and ANC immediately.  Most recent results - |CLOZ LAB RSLTS|

        ;;R^"860.2:","860.22:2",.01,"E"

        ;;D^2

        ;;R^"860.2:","860.22:2",1,"E"

        ;;D^CLOZAPINE AND (WBC < 3.0 OR ANC < 1.5)

        ;;R^"860.2:","860.22:2",2,"E"

        ;;D^CLOZAPINE APPROPRIATENESS

        ;;R^"860.2:","860.22:2",6,"E"

        ;;D^WBC < 3.0 and/or ANC < 1.5 - pharmacy cannot fill clozapine order. Most recent results - |CLOZ LAB RSLTS|

        ;;R^"860.2:","860.22:3",.01,"E"

        ;;D^3

        ;;R^"860.2:","860.22:3",1,"E"

        ;;D^CLOZAPINE AND 3.0 <= WBC < 3.5 AND ANC >= 1.5

        ;;R^"860.2:","860.22:3",2,"E"

        ;;D^CLOZAPINE APPROPRIATENESS

        ;;R^"860.2:","860.22:3",6,"E"

        ;;D^WBC between 3.0 and 3.5 with ANC >= 1.5 - please repeat CBC/Diff including WBC and ANC immediately and twice weekly.  Most recent results - |CLOZ LAB RSLTS|

        ;;R^"860.2:","860.22:4",.01,"E"

        ;;D^4

        ;;R^"860.2:","860.22:4",1,"E"

        ;;D^CLOZAPINE AND 1.5 <= ANC < 2.0

        ;;R^"860.2:","860.22:4",2,"E"

        ;;D^CLOZAPINE APPROPRIATENESS

        ;;R^"860.2:","860.22:4",6,"E"

        ;;D^ANC between 1.5 and 2.0 - please repeat CBC/Diff including WBC and ANC immediately and twice weekly.  Most recent results - |CLOZ LAB RSLTS|

        ;;EOR^

        ;;EOF^OCXS(860.2)^1

        ;1;

        ;