Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ORALWORD

ORALWORD.m

Go to the documentation of this file. 
  1. ORALWORD ; SLC/JMH - Utilities for Checking if an order can be ordered ;09-Oct-2013 08:56;PLS
  1.  ;;3.0;ORDER ENTRY/RESULTS REPORTING;**243,1010,1012**;Dec 17, 1997;Build 242
  1.  ;
  1.  ; Modified - IHS/MSC/PLS - 06/17/13 - Added Q1 support for ALLWORD
  1.  ;                        - 10/09/13 - Changed ALLWORD and ALLWRN to simply quit
  1. ALLWORD(ORY,DFN,ORX,ORTYPE,PROV) ;
  1.  ;IHS/MSC/PLS - 10/09/2013
  1.  S ORY=0 Q  ; IHS doesn't use
  1.  N OROI,ORYS,QOIEN,QPIEN,ORCLOZ,QOAA
  1.  S OROI=0
  1.  ;
  1.  ;ORTYPE used to determine the type of data coming into the call
  1.  ;ORYTPE="E" existing order, ORX equal the IEN from file 100 (used with
  1.  ;copy,edit functionality)
  1.  ;ORTYPE="Q" Quick Order, ORX equal the IEN from file 101.43
  1.  ;ORTYPE="N" New order, ORX equal the IEN from file 101.41
  1.  ;
  1.  I ORTYPE="E" S OROI=$G(^OR(100,ORX,.1,1,0))
  1.  I ORTYPE="Q" D
  1.  .S QPIEN=$O(^ORD(101.41,"AB","OR GTX ORDERABLE ITEM","")) Q:QPIEN'>0
  1.  .S QOIEN=$O(^ORD(101.41,ORX,6,"D",QPIEN,"")) Q:QOIEN'>0
  1.  .S OROI=$G(^ORD(101.41,ORX,6,QOIEN,1))
  1.  .S QOAA=$P($G(^ORD(101.41,ORX,5)),U,8)
  1.  I ORTYPE="Q1" D   ;Used when passing ORX as orderable item
  1.  .S OROI=ORX,ORTYPE="Q"
  1.  I ORTYPE="N" S OROI=ORX
  1.  Q:OROI'>0
  1.  S ORY=0
  1.  ;checks if the orderable item (OROI) is a clozapine med
  1.  ;  if not returns ORY=0
  1.  S ORCLOZ=$$ISCLOZ(OROI),ORY=ORY_U_ORCLOZ,ORY(0)=U_ORCLOZ
  1.  Q:'ORCLOZ
  1.  N ORQUIT
  1.  S ORQUIT=0
  1.  I '$G(PROV) S PROV=DUZ
  1.  I $G(PROV) D
  1.  .I '$L($$DEA^XUSER(,PROV)) D
  1.  ..S ORQUIT=1,ORY=1
  1.  ..S ORQUIT=1,ORY=1
  1.  ..S ORY(1)="*** You are not authorized to place Clozapine orders."
  1.  ..S ORY(2)="You must have a DEA#.  Please contact your"
  1.  ..S ORY(3)="CAC or IRM for more information. ***"
  1.  .Q:ORQUIT
  1.  .I '$D(^XUSEC("YSCL AUTHORIZED",PROV)) D
  1.  ..S ORQUIT=1,ORY=1
  1.  ..S ORY(1)="*** You are not authorized to place Clozapine orders."
  1.  ..S ORY(2)="You must hold key YSCL AUTHORIZED.  Please contact your"
  1.  ..S ORY(3)="CAC or IRM for more information on this key. ***"
  1.  Q:ORQUIT
  1.  ;  if is a cloz med , check if patient (DFN) can have a clozapine med
  1.  S ORYS=$$CL^YSCLTST2(DFN)
  1.  ;    if yes returns ORY=0
  1.  I +ORYS>0 D BEFQUIT  Q
  1.  ;    if no
  1.  ;      returns
  1.  ;    ORY=1
  1.  ;    ORY(0)=CAPTION FOR DIALOG BOX
  1.  ;    ORY(1-N)=MESSAGE TO DISPLAY
  1.  S ORY=1_U_ORCLOZ,ORY(0)="Problem Ordering Clozapine Related Medication"_U_ORCLOZ
  1.  ;patient not in clozapine patient program
  1.  I +ORYS<0 D  Q
  1.  .S ORY(1)="*** This patient is not registered in the clozapine treatment "
  1.  .S ORY(2)="program or has been discontinued from the program and must "
  1.  .S ORY(3)="have a new registration number assigned.  Contact the NCCC to "
  1.  .S ORY(4)="get this patient registered in the program. ***"
  1.  ;problem with lab tests
  1.  I +ORYS=0 D  Q
  1.  .I $$OVERRIDE^YSCLTST2(DFN) S ORY=0_U_ORCLOZ,ORY(0)=U_ORCLOZ D BEFQUIT  Q  ;override allowed
  1.  .N COUNT S COUNT=0
  1.  .S COUNT=COUNT+1,ORY(COUNT)="*** This clozapine drug may not be dispensed to the patient at this "
  1.  .S COUNT=COUNT+1,ORY(COUNT)="time based on the available lab tests related to the clozapine "
  1.  .S COUNT=COUNT+1,ORY(COUNT)="treatment program. Please contact the NCCC to request an override in"
  1.  .S COUNT=COUNT+1,ORY(COUNT)="order to proceed with dispensing this drug. ***"
  1.  .Q:'$L($P(ORYS,U,3))!('$L($P(ORYS,U,5)))
  1.  .S COUNT=COUNT+1,ORY(COUNT)="Related Lab Test(s)"
  1.  .S COUNT=COUNT+1,ORY(COUNT)="==================="
  1.  .;the lab values returned by Mental Health are given in 4 digit numbers to be standard with
  1.  .;reporting formats to the NCCC, we are dividing by 1000 to align it with the display of the
  1.  .;labs on the lab tab
  1.  .;S:$L($P(ORYS,U,3)) COUNT=COUNT+1,ORY(COUNT)=$P(ORYS,U,3)_":  "_($P(ORYS,U,2)/1000)_" K/cmm"
  1.  .;S:$L($P(ORYS,U,5)) COUNT=COUNT+1,ORY(COUNT)=$P(ORYS,U,5)_":  "_($P(ORYS,U,4)/1000)_" K/cmm"
  1.  .S:$L($P(ORYS,U,3)) COUNT=COUNT+1,ORY(COUNT)="WBC:  "_($P(ORYS,U,2)/1000)_" K/cmm"
  1.  .S:$L($P(ORYS,U,5)) COUNT=COUNT+1,ORY(COUNT)="ANC:  "_($P(ORYS,U,4)/1000)_" K/cmm"
  1.  .S COUNT=COUNT+1,ORY(COUNT)="Date/Time of last tests: "_$$DATE^ORU($P(ORYS,U,6))
  1.  Q
  1. BEFQUIT ;
  1.  Q:'$G(QOAA)
  1.  N QODS,QORF,ORMAX,ORCLPAT
  1.  S QODS=$O(^ORD(101.41,"AB","OR GTX DAYS SUPPLY","")) Q:QODS'>0
  1.  S QODS=$O(^ORD(101.41,ORX,6,"D",QODS,"")) Q:QOIEN'>0
  1.  S QODS=$G(^ORD(101.41,ORX,6,QODS,1))
  1.  S QORF=$O(^ORD(101.41,"AB","OR GTX REFILLS","")) Q:QORF'>0
  1.  S QORF=$O(^ORD(101.41,ORX,6,"D",QORF,"")) Q:QOIEN'>0
  1.  S QORF=$G(^ORD(101.41,ORX,6,QORF,1))
  1.  S QORF=QORF+1
  1.  S ORCLPAT=$P(ORYS,U,7)
  1.  S ORMAX=$S(ORYS="M":28,ORYS="B":14,ORYS="W":7,1:90)
  1.  I QORF*QODS>ORMAX D
  1.  .K ORY
  1.  .S ORY=1_U_ORCLOZ,ORY(0)="Problem Ordering Clozapine Related Medication"_U_ORCLOZ
  1.  .S ORY(1)="*** This patient is only allowed an order with a maximum Days Supply of "_ORMAX_"."
  1.  .S ORY(2)="This includes the amounts added by any refills entered in with the order also."
  1.  Q
  1. ISCLOZ(OROI) ;
  1.  N ORPSOI,ORPSDRUG
  1.  S ORPSOI=$P(^ORD(101.43,OROI,0),U,2)
  1.  I $P(ORPSOI,";",2)'="99PSP" Q 0
  1.  K ^TMP($J,"ORCLOZ")
  1.  D ASP^PSS50(+ORPSOI,,,"ORCLOZ")
  1.  S ORPSDRUG=$O(^TMP($J,"ORCLOZ",0))
  1.  I 'ORPSDRUG K ^TMP($J,"ORCLOZ") Q 0
  1.  K ^TMP($J,"ORCLOZ")
  1.  D CLOZ^PSS50(ORPSDRUG,,,,,"ORCLOZ")
  1.  I $G(^TMP($J,"ORCLOZ",ORPSDRUG,"CLOZ",0))>0 K ^TMP($J,"ORCLOZ") Q 1
  1.  K ^TMP($J,"ORCLOZ")
  1.  Q 0
  1. ALLWRN(ORY,ORN,REFILLS) ;allow order to be renewed
  1.  ;ORN is the order number
  1.  ;REFILLS is the number of refills to be included with the renewed order
  1.  N ORDS,ORQT,ORUPD,ORSCH,ORDUR,ORDFN,ORDRG,OROI,ORMAXDS,ORMAXQT,ORCLOZ,ORREF,ORMAXREF
  1.  ;default return 1 (ORY=1 means allow renew)
  1.  S ORY=1
  1.  ;IHS/MSC/PLS - 10/09/13
  1.  Q  ;IHS doesn't use
  1.  ;get DFN (ORDFN)
  1.  S ORDFN=+$P(^OR(100,ORN,0),U,2)
  1.  Q:'ORDFN
  1.  ;get if order is a clozapine order (ORCLOZ)
  1.  S OROI=$G(^OR(100,ORN,.1,1,0)) Q:'OROI
  1.  S ORCLOZ=$$ISCLOZ(OROI)
  1.  ;quit if order is not clozapine
  1.  I 'ORCLOZ Q
  1.  ;get schedule from order (ORSCH)
  1.  S ORSCH=$G(^OR(100,ORN,4.5,$O(^OR(100,ORN,4.5,"ID","SCHEDULE",0)),1))
  1.  ;get units per dose from order (ORUPD)
  1.  S ORSCH=$G(^OR(100,ORN,4.5,$O(^OR(100,ORN,4.5,"ID","DOSE",0)),1))
  1.  S ORSCH=$P(ORSCH,"&",3)
  1.  ;get duration from order (ORDUR)
  1.  I '$O(^OR(100,ORN,4.5,"ID","DURATION",0)) S ORDUR="~^"
  1.  E  S ORSCH=$G(^OR(100,ORN,4.5,$O(^OR(100,ORN,4.5,"ID","DURATION",0)),1))
  1.  ;get days supply from order (ORDS)
  1.  S ORSCH=$G(^OR(100,ORN,4.5,$O(^OR(100,ORN,4.5,"ID","SUPPLY",0)),1))
  1.  ;get drug (ptr50) from order (ORDRG)
  1.  S ORSCH=$G(^OR(100,ORN,4.5,$O(^OR(100,ORN,4.5,"ID","DRUG",0)),1))
  1.  ;get refills from order (ORREF)
  1.  S ORSCH=$G(^OR(100,ORN,4.5,$O(^OR(100,ORN,4.5,"ID","REFILLS",0)),1))
  1.  ;get quantity from order (ORQT)
  1.  S ORSCH=$G(^OR(100,ORN,4.5,$O(^OR(100,ORN,4.5,"ID","QTY",0)),1))
  1.  ;get max days supply for order (ORMAXDS)
  1.  S ORMAXDS=$$DEFSPLY^ORWDPS1(ORDFN)
  1.  ;if ds from order is > max ds return 0 (ORY=0)
  1.  I ORDS>ORMAXDS D  Q
  1.  .S ORY=0
  1.  .S ORY(0)="Problem Renewing Clozapine Related Medication"_U_ORCLOZ
  1.  .S ORY(1)="The Days Supply set for this order is greater than the Max Days Supply"
  1.  .S ORY(2)="    allowed for this patient."
  1.  ;get max quantity for order (ORMAXQT)
  1.  D DAY2QTY^ORWDPS2(.ORMAXQT,ORDS,ORUPD,ORSCH,ORDUR,ORDFN,ORDRG)
  1.  ;if qt from order is > max qt return 0 (ORY=0)
  1.  I ORQT>ORMAXQT D  Q
  1.  .S ORY=0
  1.  .S ORY(0)="Problem Renewing Clozapine Related Medication"_U_ORCLOZ
  1.  .S ORY(1)="The Quantity set for this order is greater than the Max Quantity"
  1.  .S ORY(2)="    allowed for this patient."
  1.  ;get max refills for order (ORMAXREF)
  1.  D MAXREF^ORWDPS2(.ORMAXREF,ORDFN,ORDRG,ORDS,OROI,1)
  1.  ;if refill from order is > max refills return 0 (ORY=0)
  1.  I ORREF>ORMAXREF D  Q
  1.  .S ORY=0
  1.  .S ORY(0)="Problem Renewing Clozapine Related Medication"_U_ORCLOZ
  1.  .S ORY(1)="The Refills field set for this order is greater than the Refills"
  1.  .S ORY(2)="    allowed for this patient with the order having a Days Supply "
  1.  .S ORY(3)="    of "_ORDS_"."
  1.  Q