| 1 | ORKCHK6 ; slc/CLA - Support routine called by ORKCHK to do SESSION mode order checks ;3/6/97 9:35
|
---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**6,32,74,87,94,123,162,190,249**;Dec 17, 1997
|
---|
| 3 | Q
|
---|
| 4 | ;
|
---|
| 5 | EN(ORKS,ORKDFN,ORKA,ORENT,ORKTMODE) ;perform order checking for entire ordering session
|
---|
| 6 | Q:$$GET^XPAR("DIV^SYS^PKG","ORK SYSTEM ENABLE/DISABLE",1,"I")="D"
|
---|
| 7 | ;
|
---|
| 8 | N OI,ORKDG,HL7,ODT,ORNUM,HL7NPTR,HL7NTXT,HL7NCOD,HL7LPTR,HL7LTXT,HL7LCOD
|
---|
| 9 | N ORKMSG,ORKDGI,ORKT,ORKTXT,ORKPDATA
|
---|
| 10 | ;
|
---|
| 11 | S OI=$P(ORKA,"|"),ORKDG=$P(ORKA,"|",2),HL7=$P(ORKA,"|",3)
|
---|
| 12 | S ODT=$P(ORKA,"|",4),ORNUM=$P(ORKA,"|",5),ORKPDATA=$P(ORKA,"|",6)
|
---|
| 13 | S HL7NPTR=$P(HL7,U),HL7NTXT=$P(HL7,U,2),HL7NCOD=$P(HL7,U,3)
|
---|
| 14 | S HL7LPTR=$P(HL7,U,4),HL7LTXT=$P(HL7,U,5),HL7LCOD=$P(HL7,U,6)
|
---|
| 15 | ;
|
---|
| 16 | S:ORKDG="PSJ" ORKDG="PSI"
|
---|
| 17 | I $E(ORKDG,1,2)="PS" D PHARM
|
---|
| 18 | I $E(ORKDG,1,2)'="PS" D MLM^ORKCHK2(.ORKS,ORKDFN,ORKA,ORENT,"SESSION")
|
---|
| 19 | Q
|
---|
| 20 | ;
|
---|
| 21 | PHARM ;process pharmacy order checks:
|
---|
| 22 | N ORPSPKG,ORPSA,ORKDD
|
---|
| 23 | N ORCRITN,ORCRITF,ORCRITD,ORSIGN,ORSIGF,ORSIGD,ORDUPN,ORDUPF,ORDUPD,ORDUPC,ORDUPCF,ORDUPCD
|
---|
| 24 | ;
|
---|
| 25 | D PARAMS("CRITICAL DRUG INTERACTION",.ORCRITN,.ORCRITF,.ORCRITD)
|
---|
| 26 | D PARAMS("SIGNIFICANT DRUG INTERACTION",.ORSIGN,.ORSIGF,.ORSIGD)
|
---|
| 27 | D PARAMS("DUPLICATE DRUG ORDER",.ORDUPN,.ORDUPF,.ORDUPD)
|
---|
| 28 | D PARAMS("DUPLICATE DRUG CLASS ORDER",.ORDUPCN,.ORDUPCF,.ORDUPCD)
|
---|
| 29 | ;
|
---|
| 30 | ;dispense drug selected:
|
---|
| 31 | I $L($G(HL7LPTR)),($G(HL7LCOD)="99PSD") D
|
---|
| 32 | .D RXOCS
|
---|
| 33 | .D MLM^ORKCHK2(.ORKS,ORKDFN,ORKA,ORENT,"SESSION")
|
---|
| 34 | ;
|
---|
| 35 | ;dispense drug NOT selected, split OI into dispense drugs:
|
---|
| 36 | I '$L($G(HL7LPTR)) D
|
---|
| 37 | .S ORPSPKG=$E(ORKDG,3)
|
---|
| 38 | .I ORPSPKG="H" S ORPSPKG="X" ;change to "X" if "H"erbal/non-VA med
|
---|
| 39 | .I "IOX"[ORPSPKG D OI2DD(.ORPSA,OI,ORPSPKG)
|
---|
| 40 | .S ORKDD=0 F S ORKDD=$O(ORPSA(ORKDD)) Q:'ORKDD D
|
---|
| 41 | ..S HL7LTXT=ORPSA(ORKDD)
|
---|
| 42 | ..S HL7NPTR=$P(ORKDD,";",2)
|
---|
| 43 | ..S HL7LPTR=+ORKDD
|
---|
| 44 | ..S HL7LCOD="99PSD",HL7NCOD="99NDF"
|
---|
| 45 | ..S $P(HL7,U)=HL7NPTR,$P(HL7,U,3)=HL7NCOD
|
---|
| 46 | ..S $P(HL7,U,4)=HL7LPTR,$P(HL7,U,5)=HL7LTXT,$P(HL7,U,6)=HL7LCOD
|
---|
| 47 | ..S $P(ORKA,"|",3)=HL7 ;set these for MLM OCX call
|
---|
| 48 | ..D RXOCS
|
---|
| 49 | ..D MLM^ORKCHK2(.ORKS,ORKDFN,ORKA,ORENT,"SESSION")
|
---|
| 50 | Q
|
---|
| 51 | ;
|
---|
| 52 | RXOCS ;drug-drug interaction, duplicate drug order, duplicate drug class
|
---|
| 53 | Q:ORCRITF_ORSIGF_ORDUPF_ORDUPCF'["E" ;quit if none are "E"nabled
|
---|
| 54 | N ORKRX,ORPSNUM
|
---|
| 55 | I $L($G(HL7LPTR)),($G(HL7LCOD)="99PSD") D
|
---|
| 56 | .D CHKSESS^ORKPS(.ORKRX,ORKDFN,HL7LPTR,OI,ORKPDATA,ORKDG)
|
---|
| 57 | .N CHK,XX S CHK=0,XX=""
|
---|
| 58 | .F S CHK=$O(ORKRX(CHK)) Q:'CHK D
|
---|
| 59 | ..S XX=ORKRX(CHK)
|
---|
| 60 | ..;
|
---|
| 61 | ..;critical drug interaction:
|
---|
| 62 | ..I $P(XX,U)="DI",$P(XX,U,5)="CRITICAL" D
|
---|
| 63 | ...Q:ORCRITF="D"
|
---|
| 64 | ...S ORPSNUM=$P(XX,U,8) ;get the associated order number
|
---|
| 65 | ...I $L(ORPSNUM),$G(^OR(100,+ORPSNUM,0)) S ORKT=$$FULLTEXT^ORQOR1(+ORPSNUM),ORKTXT=$P(ORKT,U)_" ["_$P(ORKT,U,2)_"]"
|
---|
| 66 | ...E S ORKTXT=$P(XX,U,3)
|
---|
| 67 | ...S ORKMSG=$P(XX,U,5)_" drug-drug interaction: "_$P(XX,U,6)_" & "_$P(XX,U,7)
|
---|
| 68 | ...S ORKS("ORK",ORCRITD_","_$G(ORNUM)_","_ORPSNUM_","_$E(ORKMSG,1,225))=ORNUM_U_ORCRITN_U_ORCRITD_U_ORKMSG_" ("_ORKTXT_")"_U_$G(ORPSNUM)
|
---|
| 69 | ..;
|
---|
| 70 | ..;significant drug interaction:
|
---|
| 71 | ..I $P(XX,U)="DI",$P(XX,U,5)="SIGNIFICANT" D
|
---|
| 72 | ...Q:ORSIGF="D"
|
---|
| 73 | ...S ORPSNUM=$P(XX,U,8) ;get the associated order number
|
---|
| 74 | ...I $L(ORPSNUM),$G(^OR(100,+ORPSNUM,0)) S ORKT=$$FULLTEXT^ORQOR1(+ORPSNUM),ORKTXT=$P(ORKT,U)_" ["_$P(ORKT,U,2)_"]"
|
---|
| 75 | ...E S ORKTXT=$P(XX,U,3)
|
---|
| 76 | ...S ORKMSG=$P(XX,U,5)_" drug-drug interaction: "_$P(XX,U,6)_" & "_$P(XX,U,7)
|
---|
| 77 | ...S ORKS("ORK",ORSIGD_","_$G(ORNUM)_","_ORPSNUM_","_$E(ORKMSG,1,225))=ORNUM_U_ORSIGN_U_ORSIGD_U_ORKMSG_" ("_ORKTXT_")"_U_$G(ORPSNUM)
|
---|
| 78 | ..;
|
---|
| 79 | ..;duplicate drug:
|
---|
| 80 | ..I $P(XX,U)="DD" D
|
---|
| 81 | ...Q:ORDUPF="D"
|
---|
| 82 | ...S ORPSNUM=$P(XX,U,4) ;get the associated order number
|
---|
| 83 | ...I $L(ORPSNUM),$G(^OR(100,+ORPSNUM,0)) S ORKT=$$FULLTEXT^ORQOR1(+ORPSNUM),ORKTXT=$P(ORKT,U)_" ["_$P(ORKT,U,2)_"]"
|
---|
| 84 | ...E S ORKTXT=$P(XX,U,3)
|
---|
| 85 | ...S ORKMSG="Duplicate drug order: "_ORKTXT
|
---|
| 86 | ...S ORKS("ORK",ORDUPD_","_$G(ORNUM)_","_ORPSNUM_",Duplicate drug order: "_$P(XX,U,3))=ORNUM_U_ORDUPN_U_ORDUPD_U_ORKMSG_U_$G(ORPSNUM)
|
---|
| 87 | ..;
|
---|
| 88 | ..;duplicate class:
|
---|
| 89 | ..I $P(XX,U)="DC" D
|
---|
| 90 | ...Q:ORDUPCF="D"
|
---|
| 91 | ...S ORPSNUM=$P(XX,U,6) ;get the associated order number
|
---|
| 92 | ...I $L(ORPSNUM),$G(^OR(100,+ORPSNUM,0)) S ORKT=$$FULLTEXT^ORQOR1(+ORPSNUM),ORKTXT=$P(ORKT,U)_" ["_$P(ORKT,U,2)_"]"
|
---|
| 93 | ...E S ORKTXT=$P(XX,U,5)
|
---|
| 94 | ...S ORKMSG="Duplicate drug class order: "_$P(XX,U,3)
|
---|
| 95 | ...S ORKS("ORK",ORDUPCD_","_$G(ORNUM)_","_ORPSNUM_","_$E(ORKMSG,1,225))=ORNUM_U_ORDUPCN_U_ORDUPCD_U_ORKMSG_" ("_ORKTXT_")"_U_$G(ORPSNUM)
|
---|
| 96 | Q
|
---|
| 97 | ;
|
---|
| 98 | OI2DD(ORPSA,OROI,ORPSPKG) ;rtn dispense drugs for a PS OI
|
---|
| 99 | N PSOI
|
---|
| 100 | Q:'$D(^ORD(101.43,OROI,0))
|
---|
| 101 | S PSOI=$P($P(^ORD(101.43,OROI,0),U,2),";")
|
---|
| 102 | Q:+$G(PSOI)<1
|
---|
| 103 | D DRG^PSSUTIL1(.ORPSA,PSOI,ORPSPKG)
|
---|
| 104 | Q
|
---|
| 105 | ;
|
---|
| 106 | PARAMS(ORKNAME,ORKNUM,ORKFLAG,ORKDNGR) ; get parameter values for an order chk
|
---|
| 107 | S ORKNUM=0,ORKNUM=$O(^ORD(100.8,"B",ORKNAME,ORKNUM))
|
---|
| 108 | S ORKFLAG=$$GET^XPAR(ORENT,"ORK PROCESSING FLAG",ORKNUM,"I")
|
---|
| 109 | S ORKDNGR=$$GET^XPAR("DIV^SYS^PKG","ORK CLINICAL DANGER LEVEL",ORKNUM,"I")
|
---|
| 110 | Q
|
---|