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

ORKCHK5.m

Go to the documentation of this file.
  1. ORKCHK5 ; slc/CLA - Support routine called by ORKCHK to do ACCEPT mode order checks ;3/6/97 9:35
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**6,32,74,94,123,190**;Dec 17, 1997
  1. Q
  1. ;
  1. EN(ORKS,ORKDFN,ORKA,ORENT,ORKTMODE) ;perform order checking for orderable item acceptance
  1. Q:$$GET^XPAR("DIV^SYS^PKG","ORK SYSTEM ENABLE/DISABLE",1,"I")="D"
  1. ;
  1. N OI,ORKDG,HL7,ODT,ORNUM,HL7NPTR,HL7NTXT,HL7NCOD,HL7LPTR,HL7LTXT,HL7LCOD
  1. N OCN,DNGR,ORKMSG,ORKPDATA,ORKOCNUM
  1. ;
  1. S OI=$P(ORKA,"|"),ORKDG=$P(ORKA,"|",2),HL7=$P(ORKA,"|",3)
  1. S ODT=$P(ORKA,"|",4),ORNUM=$P(ORKA,"|",5),ORKPDATA=$P(ORKA,"|",6)
  1. S HL7NPTR=$P(HL7,U),HL7NTXT=$P(HL7,U,2),HL7NCOD=$P(HL7,U,3)
  1. S HL7LPTR=$P(HL7,U,4),HL7LTXT=$P(HL7,U,5),HL7LCOD=$P(HL7,U,6)
  1. I ORKDG="GMRC",'$L(ODT) S ODT=$$NOW^XLFDT ;def consult order d/t is now
  1. ;
  1. I $E(ORKDG,1,2)="PS" D PHARM
  1. I $E(ORKDG,1,2)'="PS",($E(ORKDG,1,2)'="LR"),($L($G(OI))),($L($G(ODT))),(ORKTMODE'="ALL") D DUPOR
  1. I $E(ORKDG,1,2)="LR",($L($G(OI))),($L($G(ODT))),(ORKTMODE'="ALL") D
  1. .D DUPLAB
  1. .D LABFREQ
  1. I $E(ORKDG,1,2)'="PS" D MLM^ORKCHK2(.ORKS,ORKDFN,ORKA,ORENT,"ACCEPT")
  1. Q
  1. ;
  1. PHARM ;process pharmacy order checks:
  1. N ORPSPKG,ORPSA,ORKDD
  1. N ORALLRN,ORALLRF,ORALLRD
  1. D PARAMS("ALLERGY-DRUG INTERACTION",.ORALLRN,.ORALLRF,.ORALLRD)
  1. ;
  1. ;dispense drug selected:
  1. I $L($G(HL7LPTR)),($G(HL7LCOD)="99PSD") D
  1. .D RXOCS
  1. .D MLM^ORKCHK2(.ORKS,ORKDFN,ORKA,ORENT,"ACCEPT")
  1. ;
  1. ;dispense drug NOT selected, split OI into dispense drugs:
  1. I '$L($G(HL7LPTR)) D
  1. .S ORPSPKG=$E(ORKDG,3)
  1. .I ORPSPKG="H" S ORPSPKG="X" ;change to "X" if "H"erbal/non-VA med
  1. .I "IOX"[ORPSPKG D OI2DD(.ORPSA,OI,ORPSPKG)
  1. .S ORKDD=0 F S ORKDD=$O(ORPSA(ORKDD)) Q:'ORKDD D
  1. ..S HL7LTXT=ORPSA(ORKDD)
  1. ..S HL7NPTR=$P(ORKDD,";",2)
  1. ..S HL7LPTR=+ORKDD
  1. ..S HL7LCOD="99PSD",HL7NCOD="99NDF"
  1. ..S $P(HL7,U)=HL7NPTR,$P(HL7,U,3)=HL7NCOD
  1. ..S $P(HL7,U,4)=HL7LPTR,$P(HL7,U,5)=HL7LTXT,$P(HL7,U,6)=HL7LCOD
  1. ..S $P(ORKA,"|",3)=HL7 ;set these for MLM OCX call
  1. ..D RXOCS
  1. ..D MLM^ORKCHK2(.ORKS,ORKDFN,ORKA,ORENT,"ACCEPT")
  1. Q
  1. ;
  1. RXOCS ;drug-allergy interaction
  1. Q:ORALLRF="D"
  1. N ORKAL
  1. I $L($G(HL7NPTR)),($G(HL7NCOD)="99NDF") D
  1. .D RXN^ORQQAL(.ORKAL,ORKDFN,"DR",HL7NPTR,$G(HL7LPTR)) I (ORKAL>0) D
  1. ..Q:$L($P(ORKAL,U,2))<1
  1. ..S ORKMSG="Previous adverse reaction to: "_$P(ORKAL,U,2)
  1. ..S ORKS("ORK",ORALLRD_","_$G(ORNUM)_","_$E(ORKMSG,1,225))=ORNUM_U_ORALLRN_U_ORALLRD_U_ORKMSG
  1. Q
  1. ;
  1. OI2DD(ORPSA,OROI,ORPSPKG) ;rtn dispense drugs for a PS OI
  1. N PSOI
  1. Q:'$D(^ORD(101.43,OROI,0))
  1. S PSOI=$P($P(^ORD(101.43,OROI,0),U,2),";")
  1. Q:+$G(PSOI)<1
  1. D DRG^PSSUTIL1(.ORPSA,PSOI,ORPSPKG)
  1. Q
  1. ;
  1. DUPOR ;duplicate orders for non-pharmacy and non-lab:
  1. S OCN=0,OCN=$O(^ORD(100.8,"B","DUPLICATE ORDER",OCN))
  1. Q:+$G(OCN)<1
  1. Q:$$GET^XPAR(ORENT,"ORK PROCESSING FLAG",OCN,"I")="D"
  1. N ORKOR S ORKOR=0
  1. D DUP^ORKOR(.ORKOR,ORKDFN,OI,ODT,ORKDG) I (ORKOR>0) D
  1. .S ORKOCNUM=+$P(ORKOR,U)
  1. .S DNGR=$$GET^XPAR("DIV^SYS^PKG","ORK CLINICAL DANGER LEVEL",OCN,"I")
  1. .S ORKMSG="Duplicate order: "_$P(ORKOR,U,2)
  1. .S ORKS("ORK",DNGR_","_$G(ORNUM)_","_ORKOCNUM_","_$E(ORKMSG,1,225))=ORNUM_U_OCN_U_DNGR_U_ORKMSG_U_ORKOCNUM
  1. Q
  1. ;
  1. DUPLAB ;duplicate laboratory orders:
  1. N ORKLR,OCI
  1. S ORKLR=0,OCI=""
  1. S OCN=0,OCN=$O(^ORD(100.8,"B","DUPLICATE ORDER",OCN))
  1. Q:+$G(OCN)<1
  1. Q:$$GET^XPAR(ORENT,"ORK PROCESSING FLAG",OCN,"I")="D"
  1. S DNGR=$$GET^XPAR("DIV^SYS^PKG","ORK CLINICAL DANGER LEVEL",OCN,"I")
  1. D DUP^ORKLR(.ORKLR,OI,ORKDFN,ODT,ORKPDATA)
  1. F S OCI=$O(ORKLR(OCI)) Q:OCI="" D
  1. .S ORKOCNUM=+$P(ORKLR(OCI),U)
  1. .S ORKMSG="Duplicate order: "_$P(ORKLR(OCI),U,2)
  1. .S ORKS("ORK",DNGR_","_$G(ORNUM)_","_ORKOCNUM_","_$E(ORKMSG,1,225))=ORNUM_U_OCN_U_DNGR_U_ORKMSG_U_ORKOCNUM
  1. Q
  1. ;
  1. LABFREQ ;lab order frequency restrictions:
  1. N ORKLR,OCI
  1. S ORKLR=0,OCI=""
  1. S OCN=0,OCN=$O(^ORD(100.8,"B","LAB ORDER FREQ RESTRICTIONS",OCN))
  1. Q:+$G(OCN)<1
  1. Q:$$GET^XPAR(ORENT,"ORK PROCESSING FLAG",OCN,"I")="D"
  1. S DNGR=$$GET^XPAR("DIV^SYS^PKG","ORK CLINICAL DANGER LEVEL",OCN,"I")
  1. D ORFREQ^ORKLR2(.ORKLR,OI,ORKDFN_";DPT(",ODT,ORKPDATA)
  1. S OCI="" F S OCI=$O(ORKLR(OCI)) Q:OCI="" D
  1. .S ORKMSG=$P(ORKLR(OCI),U,2)
  1. .S ORKS("ORK",DNGR_","_$G(ORNUM)_","_$E(ORKMSG,1,225))=ORNUM_U_OCN_U_DNGR_U_ORKMSG
  1. Q
  1. ;
  1. PARAMS(ORKNAME,ORKNUM,ORKFLAG,ORKDNGR) ; get parameter values for an order chk
  1. S ORKNUM=0,ORKNUM=$O(^ORD(100.8,"B",ORKNAME,ORKNUM))
  1. S ORKFLAG=$$GET^XPAR(ORENT,"ORK PROCESSING FLAG",ORKNUM,"I")
  1. S ORKDNGR=$$GET^XPAR("DIV^SYS^PKG","ORK CLINICAL DANGER LEVEL",ORKNUM,"I")
  1. Q