Well, I think that I am going to automatically put in dosing options
for every tablet for 0.25,0.5,1,2,3,4 doses. I will expect the doctor
to dose appropriately (as they are expected to on a paper
prescription).
One problem this will present is that:
250 * 2 = 500
and 500 * 1 =500.
In CPRS, it shows possible doses, and it will be confusing. As it
might show for amoxicillin
250
500 (really 250*2)
500 (really 500 *1)
500 (really 1000 * 0.5)
1000
etc.
So I have made a minor application to a RPC server code so that the
display will be like this:
250
500 (250 x 2)
500
500 (1000 x 0.5)
1000
This will be a change in the text description of the drug doses, and
does not alter CPRS's calculations etc.
Here is the changed code, from ORWDPS2.m. Note the //kt where the
modification begins.
BLDDOSE(X) ; build dose info where X is ORDOSE node
; from ALLDOSE
; X=TotalDose^Units^U/D^Noun^LocalDose^DispDrugIEN
;
Y=iDrugName^Strength^NF^TDose&Units&U/D&Noun&LDose&Drug&Stren&Units^
; DoseText^CostText^MaxRefills^DispUnits^CanSplit
; DRUG=Name^Cost^NF^DispUnit^Strength^Units^DoseForm^MaxRefills^
; No TotalDose, use LocalDose
; TotalDose & Strength, use LocalDose+Conjunction+Strength+Units
; TotalDose, No Strength, use LocalDose+Conjunction+DispenseName
S DD=+$P(X,U,6),DRUG=ORDOSE("DD",DD),DDNM=$P(DRUG,U),ID=$P(X,U,1,6)
S LDOSE=$P(X,U,5),TEXT=LDOSE,STREN=$P(DRUG,U,5)_$P(DRUG,U,6)
S $P(ID,U,7)=$P(DRUG,U,5) S $P(ID,U,8)=$P(DRUG,U,6) ; add strength
I '$L($P(X,U)),$L($P(DRUG,U,5)) S TEXT=TEXT_CONJ_STREN
I '$L($P(X,U)),'$L($P(DRUG,U,5)) S TEXT=TEXT_CONJ_$P(DRUG,U)
;"//kt Start modification 6/25/06
I (TEXT'="")&($P(X,U,3)'=1) D
. N STR S STR=$$GET1^DIQ(50,DD,901) I +STR'>0 Q
. S TEXT=TEXT_" ("_STR_" x "_$P(X,U,3)_")"
;"//kt End modification
S UD=$P(X,U,3),COST=$P(X,U,7),NF=$S($P(DRUG,U,3):"NF",1:"")
;I UD S COST="$"_$J(UD*$P(DRUG,U,2),1,3) ;_" per "_UD_" "_$P(X,U,4)
S
Y="i"_DDNM_U_STREN_U_NF_U_$TR(ID,U,"&")_U_TEXT_U_COST_U_$P(DRUG,U,8)_U_$P(DRUG,U,4)
Q Y
I have tested this in CPRS, and the changes show up where I want them.
Kevin
On 6/24/06, Kevin Toppenberg <[EMAIL PROTECTED]> wrote:
...
>
> Hmmm... I'll have to think about this..
>
> Kevin
>
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
Hardhats-members mailing list
Hardhats-members@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hardhats-members
