| [628] | 1 | PSGSICHK ;BIR/CML3-CHECKS SPECIAL INSTRUCTIONS ;17 Aug 98 / 8:33 AM
|
|---|
| [636] | 2 | ;;5.0; INPATIENT MEDICATIONS ;**3,9,26,29,44,49,59,110,139,146,160,175**;16 DEC 97;Build 18
|
|---|
| [628] | 3 | ;
|
|---|
| 4 | ; Reference to EN^PSOORDRG is supported by DBIA 2190.
|
|---|
| 5 | ; Reference to ^PSI(58.1 is supported by DBIA 2284.
|
|---|
| 6 | ; Reference to ^PSDRUG( is supported by DBIA 2192.
|
|---|
| 7 | ; Reference to ^PSD(58.8 is supported by DBIA 2283.
|
|---|
| 8 | ; Reference to ^PS(55 is supported by DBIA 2191.
|
|---|
| 9 | ; Reference to ^PS(51.2 is supported by DBIA 2178.
|
|---|
| 10 | ; Reference to ^PS(51 is supported by DBIA 2176.
|
|---|
| 11 | ; Reference to ^ORRDI1 is supported by DBIA 4659.
|
|---|
| 12 | ; Reference to ^XTMP("ORRDI" is supported by DBIA 4660.
|
|---|
| 13 | ;
|
|---|
| 14 | START ;
|
|---|
| 15 | I $S(X'?.ANP:1,X["^":1,1:$L(X)>180) K X Q
|
|---|
| 16 | S Y="" F Y(1)=1:1:$L(X," ") S Y(2)=$P(X," ",Y(1)) I Y(2)]"" D CHK Q:'$D(X)
|
|---|
| 17 | I $D(X),Y]"",X'=$E(Y,1,$L(Y)-1) D EN^DDIOL("EXPANDS TO: ") W Y F Y(1)=1:1 S Y(2)=$P(Y," ",Y(1)) Q:Y(2)="" D:$L(Y(2))+$X>78 EN^DDIOL(Y(2)_" ")
|
|---|
| 18 | Q
|
|---|
| 19 | ;
|
|---|
| 20 | CHK ;
|
|---|
| 21 | I $L(Y(2))<31,$D(^PS(51,+$O(^PS(51,"B",Y(2),0)),0)),$P(^(0),"^",2)]"",$P(^(0),"^",4) S Y(2)=$P(^(0),"^",2)
|
|---|
| 22 | I $L(Y)+$L(Y(2))>180 K X Q
|
|---|
| 23 | S Y=Y_Y(2)_" " Q
|
|---|
| 24 | ;
|
|---|
| 25 | ENSET(X) ; expands the SPECIAL INSTRUCTIONS field contained in X into Y
|
|---|
| 26 | N X1,X2,Y S Y=""
|
|---|
| [636] | 27 | F X1=1:1:$L(X," ") S X2=$P(X," ",X1) I X2]"" S Y=Y_$S($L(X2)>30:X2,'$D(^PS(51,+$O(^PS(51,"B",X2,0)),0)):X2,$P(^(0),"^",2)]""&$P(^(0),"^",4):$P(^(0),"^",2),1:X2)_" "
|
|---|
| 28 | S Y=$E(Y,1,$L(Y)-1) Q Y
|
|---|
| [628] | 29 | ;
|
|---|
| 30 | END ; used by DRUG (55.06,101 & 53.1,101) x-refs to warn user if patient is receiving or about to receive the drug just ordered
|
|---|
| 31 | Q:$D(PSJHLSKP)
|
|---|
| 32 | N Z,ZZ,STATUSNP I $G(PSJPWD)&($P($G(PSJSYSU),";")=3)&($G(PSGDRG)) I ($D(^PSI(58.1,"D",PSGDRG,PSJPWD)))!($D(^PSD(58.8,"D",PSGDRG,PSJPWD))) D EN^DDIOL(" *** A WARD STOCK ITEM ***")
|
|---|
| 33 | D NOW^%DTC
|
|---|
| 34 | N PSJDCHK F Z=%:0 S Z=$O(^PS(55,+PSGP,5,"AUS",Z)) Q:'Z!$D(DUOUT) F ZZ=0:0 S ZZ=$O(^PS(55,+PSGP,5,"AUS",Z,ZZ)) Q:'ZZ!$D(DUOUT) I +$G(^PS(55,+PSGP,5,ZZ,.2))=PSGX D PDWCHK(+PSGP,ZZ_"U") S PSJDCHK=1
|
|---|
| 35 | F STATUSNP="N","P" F Z=0:0 S Z=$O(^PS(53.1,"AS",STATUSNP,+PSGP,Z)) Q:'Z!$D(DUOUT) I +$G(^PS(53.1,+Z,.2))=PSGX D PDWCHK(+PSGP,Z_"P") S PSJDCHK=1
|
|---|
| 36 | I $D(PSJDCHK) N DIR D
|
|---|
| 37 | .S DIR(0)="Y",DIR("A")="Do you wish to continue entering this order",DIR("?",1)="Enter ""N"" if you wish to exit without creating a new order,"
|
|---|
| 38 | .S DIR("?")="or ""Y"" to continue with the order entry process." D ^DIR S:'Y Y=-1,X="^"
|
|---|
| 39 | K Z,ZZ
|
|---|
| 40 | Q
|
|---|
| 41 | ;
|
|---|
| 42 | ENDDC(PSGP,PSJDD) ; Perform Duplicate Drug, Duplicate Class,
|
|---|
| 43 | ; Drug-Drug interaction check, Drug-Allergy interaction check.
|
|---|
| 44 | N PSJLINE,Z,ZZ,PSJFST
|
|---|
| 45 | S (PSJLINE,PSJFST)=0
|
|---|
| 46 | I $G(PSJPWD)&($P($G(PSJSYSU),";")=3)&($G(PSJDD)) I ($D(^PSI(58.1,"D",PSJDD,PSJPWD)))!($D(^PSD(58.8,"D",PSJDD,PSJPWD))) W !?25,"*** A WARD STOCK ITEM ***"
|
|---|
| 47 | D EN^PSOORDRG(PSGP,PSJDD) K PSJPDRG N INTERVEN,PSJIREQ,PSJRXREQ S Y=1,(PSJIREQ,PSJRXREQ,INTERVEN,X)="" S DFN=PSGP
|
|---|
| 48 | I $T(HAVEHDR^ORRDI1)]"",$$HAVEHDR^ORRDI1,'$D(^XTMP("ORRDI","OUTAGE INFO","DOWN")) D
|
|---|
| 49 | . I $P($G(^XTMP("ORRDI","PSOO",PSGP,0)),"^",3)<0 W !,"Remote data not available - Only local order checks processed." D PAUSE^PSJLMUT1
|
|---|
| [636] | 50 | K ^TMP($J,"DUPDRG") ;DEM - Duplicate Drug Check Ehancement.
|
|---|
| [628] | 51 | I $D(^TMP($J,"DD")) D ORDCHK^PSJLMUT1(PSGP,"DD",4)
|
|---|
| 52 | I $D(^TMP($J,"DC")) D ORDCHK^PSJLMUT1(PSGP,"DC",6)
|
|---|
| 53 | IVSOL ;*** Start order check for IV solution at this point.
|
|---|
| 54 | I '$D(PSJFST) N PSJFST S PSJFST=0
|
|---|
| 55 | I $D(^TMP($J,"DI")) S INTERVEN=1 D ORDCHK^PSJLMUT1(PSGP,"DI",8)
|
|---|
| [636] | 56 | D DUPDRG^PSJLMUT2(PSGP) K ^TMP($J,"DUPDRG") ;DEM - Duplicate Drug Check Ehancement.
|
|---|
| [628] | 57 | ;*** Allergy/adverse reaction check.
|
|---|
| 58 | N PTR,X
|
|---|
| 59 | S PTR=$P($G(^PSDRUG(PSJDD,"ND")),U)_"."_$P($G(^PSDRUG(PSJDD,"ND")),U,3)
|
|---|
| 60 | K ^TMP("PSJDAI",$J) S PSJACK=$$ORCHK^GMRAOR(DFN,"DR",PTR) D:$G(PSJACK)=1
|
|---|
| 61 | .S ^TMP("PSJDAI",$J,0)=1
|
|---|
| 62 | .S I=0 F S I=$O(GMRAING(I)) Q:'I S ^TMP("PSJDAI",$J,I,0)=GMRAING(I)
|
|---|
| 63 | I $D(^TMP("PSJDAI",$J)) S PSJPDRG=1 D
|
|---|
| 64 | .W $C(7),!!,"A Drug-Allergy Reaction exists for this medication!",!!
|
|---|
| 65 | .W !?7,"Drug: "_$P($G(^PSDRUG(PSJDD,0)),"^") I $O(^TMP("PSJDAI",$J)) W !,"Ingredients: " D
|
|---|
| 66 | ..S I=0 F S I=$O(^TMP("PSJDAI",$J,I)) Q:'I W:$X+$L($G(^(I,0)))+2>IOM !?19 W:I=1 $G(^TMP("PSJDAI",$J,I,0)) W:I>1 ", ",$G(^TMP("PSJDAI",$J,I,0))
|
|---|
| 67 | .W !!
|
|---|
| 68 | K PSJACK,GMRAING,I,^TMP($J)
|
|---|
| [636] | 69 | D ALGCLASS^PSGSICH1
|
|---|
| [628] | 70 | CONT ; Ask user if they wish to continue in spite of an order check.
|
|---|
| [636] | 71 | ;Variable PSJDDCON is the order continuation flag for Duplicate Drug Check Enhancement.
|
|---|
| 72 | I $D(PSJDDCON("DD")),'PSJDDCON("DD") Q
|
|---|
| 73 | I '$D(PSJDDCON("DD")) Q:'$D(PSJPDRG) N DIR D I 'Y S PSGORQF=1,X="^",COMQUIT=1 K PSJDDCON Q
|
|---|
| 74 | . S DIR(0)="Y",DIR("A")=$S($G(PSJDDCON("DI")):"Do you wish to continue with the current order",1:"Do you wish to continue entering this order")
|
|---|
| 75 | . S DIR("?",1)="Enter ""N"" if you wish to exit without creating a new order,",DIR("?")="or ""Y"" to continue with the order entry process.",DIR("B")=$S($G(PSJDDCON("DI")):"YES",1:"NO")
|
|---|
| 76 | . D ^DIR
|
|---|
| 77 | . Q
|
|---|
| 78 | ;
|
|---|
| 79 | K PSJDDCON ;Order continuation flag for Duplicate Drug Check Enhancement.
|
|---|
| [628] | 80 | I 'INTERVEN!($P(PSJSYSU,";")'=3) Q
|
|---|
| [636] | 81 | N PSJY
|
|---|
| [628] | 82 | W:PSJIREQ !!,"This is a CRITICAL interaction, you must enter an intervention log to continue"
|
|---|
| 83 | S DIR(0)="Y",DIR("A")="Do you wish to log an intervention",DIR("?",1)="Enter ""N"" if you do not wish to log an intervention,",DIR("?")="or ""Y"" to log an intervention." D ^DIR S PSJY=Y D:Y ^PSJRXI
|
|---|
| 84 | I 'PSJY,PSJIREQ S PSGORQF=1,COMQUIT=1
|
|---|
| 85 | Q
|
|---|
| 86 | ;
|
|---|
| 87 | ENDL ; used by PSGTRAIN DRUG LOOK-UP option
|
|---|
| 88 | D ENCV^PSGSETU Q:$D(XQUIT)
|
|---|
| 89 | F S DIC="^PSDRUG(",DIC(0)="AEIMOQZ",DIC("A")="Select DRUG: " W ! D ^DIC K DIC Q:+Y'>0 D SF
|
|---|
| [636] | 90 | D ENKV^PSGSETU K N5,ND,Q,Y
|
|---|
| 91 | Q
|
|---|
| [628] | 92 | ;
|
|---|
| 93 | SF ;
|
|---|
| [636] | 94 | N PSGID
|
|---|
| [628] | 95 | S Y=+Y,ND=$G(^PSDRUG(Y,0)),PSGID=+$G(^("I")) I PSGID W !!,"THIS DRUG IS INACTIVE AS OF ",$E($$ENDTC^PSGMI(PSGID),1,8)
|
|---|
| 96 | W !!,$S($P(ND,"^",9):"NON-",1:""),"FORMULARY ITEM" W:$P(ND,"^",10)]"" !,$P(ND,"^",10)
|
|---|
| 97 | S ND=$P($G(^PSDRUG(Y,2)),"^",3)["U" W !,$P("NOT^","^",ND+1)," A UNIT DOSE DRUG" W ! S ND=$G(^(8)),N5=$G(^(8.5)) W !?2,"DAY (nD) or DOSE (nL) LIMIT: " I ND W $P(ND,"^")
|
|---|
| 98 | W !?10,"UNIT DOSE MED ROUTE: " I $P(ND,"^",2) W $S($D(^PS(51.2,$P(ND,"^",2),0)):$P(^(0),"^"),1:$P(ND,"^",2))
|
|---|
| 99 | ; NAKED REF below refers to ^PS(51.2, on line above.
|
|---|
| 100 | W !?6,"UNIT DOSE SCHEDULE TYPE: " I $P(ND,"^",3)]"" W $P($P(";"_$P(^(0),"^",3),";"_$P(ND,"^",3)_":",2),";")
|
|---|
| 101 | W !?11,"UNIT DOSE SCHEDULE: " I $P(ND,"^",4)]"" W $P(ND,"^",4)
|
|---|
| 102 | W !,"CORRESPONDING OUTPATIENT DRUG: " I $P(ND,"^",5) W $S('$D(^PSDRUG(+$P(ND,"^",5),0)):$P(ND,"^",5),$P(^(0),"^")]"":$P(^(0),"^"),1:$P(ND,"^",5))
|
|---|
| 103 | W !?17,"ATC MNEMONIC: " I $P(N5,"^",2)]"" W $P(N5,"^",2)
|
|---|
| 104 | W !?17,"ATC CANISTER: " F Q=0:0 S Q=$O(^PSDRUG(Y,212,Q)) Q:'Q S ND=$G(^(Q,0)) I ND,$P(ND,"^",2) W ?31,$S('$D(^PS(57.5,+ND,0)):+ND_";PS(57.5,",$P(^(0),"^")]"":$P(^(0),"^"),1:+ND_";PS(57.5,"),?56,$P(ND,"^",2),!
|
|---|
| 105 | Q
|
|---|
| 106 | ;
|
|---|
| 107 | OCHK ; Add drugs in current order to ^TMP("ORDERS" and call order checker.
|
|---|
| 108 | ; Set PSJOCHK=1 so OP order check doesn't Kill array.
|
|---|
| 109 | ;
|
|---|
| 110 | K ^TMP($J,"ORDERS")
|
|---|
| 111 | N PSJOCHK S PSJOCHK=1
|
|---|
| 112 | PDWCHK(DFN,ON) ; Print Dup Drug order.
|
|---|
| 113 | N ND,ND0,ND2,X
|
|---|
| 114 | W:'$D(PSJDCHK) $C(7),$C(7),!!,"WARNING! THIS PATIENT HAS THE FOLLOWING ORDER(S) FOR THIS MEDICATION:",!!
|
|---|
| 115 | S ND=$$DRUGNAME^PSJLMUTL(DFN,ON)
|
|---|
| 116 | S F=$S(ON["P":"^PS(53.1,",1:"^PS(55,"_DFN_",5,"),ND0=$G(@(F_+ON_",0)")),ND2=$G(^(2)),X=$P(ND,U,2),X=$S(X=.2:$P($G(^(.2)),U,2),1:$G(^(.3)))
|
|---|
| 117 | W ?10,$P(ND,U),!,?13,"Give: ",X," ",$$ENMRN^PSGMI(+$P(ND0,U,3))," ",$P(ND2,U),!!
|
|---|
| 118 | Q
|
|---|
