PSSDSBPA ;BIR/RTR-Determine numeric dose multiplier for numeric dose ;02/12/09
;;1.0;PHARMACY DATA MANAGEMENT;**117,160**;9/30/97;Build 76
;
;
NUM() ;Determine numeric dose multiplier from Local Possible Dosage
;
N PSSQVJ1,PSSQVJ2,PSSQVJ9
K PSSQVJ1,PSSQVJ2,PSSQVJ9
I $L($G(PSSQVLCD))'>0 Q 0
;
;
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="4 AND 1/2 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) Q $S($$6:4.5,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,18) I PSSQVJ1="FOUR AND ONE HALF " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,19,$L(PSSQVLCD)) Q $S($$6:4.5,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,18) I PSSQVJ1="FOUR AND ONE-HALF " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,19,$L(PSSQVLCD)) Q $S($$6:4.5,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,15) I PSSQVJ1="4 AND ONE HALF " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,16,$L(PSSQVLCD)) Q $S($$6:4.5,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,15) I PSSQVJ1="4 AND ONE-HALF " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,16,$L(PSSQVLCD)) Q $S($$6:4.5,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,13) I PSSQVJ1="FOUR AND 1/2 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,14,$L(PSSQVLCD)) Q $S($$6:4.5,1:0)
;
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="3 AND 1/2 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) Q $S($$6:3.5,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,19) I PSSQVJ1="THREE AND ONE HALF " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,20,$L(PSSQVLCD)) Q $S($$6:3.5,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,19) I PSSQVJ1="THREE AND ONE-HALF " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,20,$L(PSSQVLCD)) Q $S($$6:3.5,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,15) I PSSQVJ1="3 AND ONE HALF " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,16,$L(PSSQVLCD)) Q $S($$6:3.5,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,15) I PSSQVJ1="3 AND ONE-HALF " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,16,$L(PSSQVLCD)) Q $S($$6:3.5,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,14) I PSSQVJ1="THREE AND 1/2 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,15,$L(PSSQVLCD)) Q $S($$6:3.5,1:0)
;
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="2 AND 1/2 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) Q $S($$6:2.5,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,17) I PSSQVJ1="TWO AND ONE HALF " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,18,$L(PSSQVLCD)) Q $S($$6:2.5,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,17) I PSSQVJ1="TWO AND ONE-HALF " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,18,$L(PSSQVLCD)) Q $S($$6:2.5,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,15) I PSSQVJ1="2 AND ONE HALF " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,16,$L(PSSQVLCD)) Q $S($$6:2.5,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,15) I PSSQVJ1="2 AND ONE-HALF " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,16,$L(PSSQVLCD)) Q $S($$6:2.5,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,12) I PSSQVJ1="TWO AND 1/2 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,13,$L(PSSQVLCD)) Q $S($$6:2.5,1:0)
;
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="1 AND 1/2 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) Q $S($$6:1.5,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,17) I PSSQVJ1="ONE AND ONE HALF " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,18,$L(PSSQVLCD)) Q $S($$6:1.5,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,17) I PSSQVJ1="ONE AND ONE-HALF " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,18,$L(PSSQVLCD)) Q $S($$6:1.5,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,15) I PSSQVJ1="1 AND ONE HALF " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,16,$L(PSSQVLCD)) Q $S($$6:1.5,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,15) I PSSQVJ1="1 AND ONE-HALF " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,16,$L(PSSQVLCD)) Q $S($$6:1.5,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,12) I PSSQVJ1="ONE AND 1/2 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,13,$L(PSSQVLCD)) Q $S($$6:1.5,1:0)
;
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="4 AND 1/4 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) Q $S($$6:4.25,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,20) I PSSQVJ1="FOUR AND ONE FOURTH " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,21,$L(PSSQVLCD)) Q $S($$6:4.25,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,20) I PSSQVJ1="FOUR AND ONE-FOURTH " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,21,$L(PSSQVLCD)) Q $S($$6:4.25,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,17) I PSSQVJ1="4 AND ONE FOURTH " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,18,$L(PSSQVLCD)) Q $S($$6:4.25,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,17) I PSSQVJ1="4 AND ONE-FOURTH " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,18,$L(PSSQVLCD)) Q $S($$6:4.25,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,13) I PSSQVJ1="FOUR AND 1/4 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,14,$L(PSSQVLCD)) Q $S($$6:4.25,1:0)
;
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="3 AND 1/4 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) Q $S($$6:3.25,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,21) I PSSQVJ1="THREE AND ONE FOURTH " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,22,$L(PSSQVLCD)) Q $S($$6:3.25,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,21) I PSSQVJ1="THREE AND ONE-FOURTH " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,22,$L(PSSQVLCD)) Q $S($$6:3.25,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,17) I PSSQVJ1="3 AND ONE FOURTH " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,18,$L(PSSQVLCD)) Q $S($$6:3.25,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,17) I PSSQVJ1="3 AND ONE-FOURTH " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,18,$L(PSSQVLCD)) Q $S($$6:3.25,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,14) I PSSQVJ1="THREE AND 1/4 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,15,$L(PSSQVLCD)) Q $S($$6:3.25,1:0)
;
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="2 AND 1/4 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) Q $S($$6:2.25,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,19) I PSSQVJ1="TWO AND ONE FOURTH " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,20,$L(PSSQVLCD)) Q $S($$6:2.25,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,19) I PSSQVJ1="TWO AND ONE-FOURTH " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,20,$L(PSSQVLCD)) Q $S($$6:2.25,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,17) I PSSQVJ1="2 AND ONE FOURTH " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,18,$L(PSSQVLCD)) Q $S($$6:2.25,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,17) I PSSQVJ1="2 AND ONE-FOURTH " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,18,$L(PSSQVLCD)) Q $S($$6:2.25,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,12) I PSSQVJ1="TWO AND 1/4 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,13,$L(PSSQVLCD)) Q $S($$6:2.25,1:0)
;
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="1 AND 1/4 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) Q $S($$6:1.25,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,19) I PSSQVJ1="ONE AND ONE FOURTH " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,20,$L(PSSQVLCD)) Q $S($$6:1.25,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,19) I PSSQVJ1="ONE AND ONE-FOURTH " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,20,$L(PSSQVLCD)) Q $S($$6:1.25,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,17) I PSSQVJ1="1 AND ONE FOURTH " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,18,$L(PSSQVLCD)) Q $S($$6:1.25,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,17) I PSSQVJ1="1 AND ONE-FOURTH " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,18,$L(PSSQVLCD)) Q $S($$6:1.25,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,12) I PSSQVJ1="ONE AND 1/4 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,13,$L(PSSQVLCD)) Q $S($$6:1.25,1:0)
;
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="4 AND 1/3 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) Q $S($$6:4.33,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,19) I PSSQVJ1="FOUR AND ONE THIRD " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,20,$L(PSSQVLCD)) Q $S($$6:4.33,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,19) I PSSQVJ1="FOUR AND ONE-THIRD " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,20,$L(PSSQVLCD)) Q $S($$6:4.33,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,16) I PSSQVJ1="4 AND ONE THIRD " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,17,$L(PSSQVLCD)) Q $S($$6:4.33,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,16) I PSSQVJ1="4 AND ONE-THIRD " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,17,$L(PSSQVLCD)) Q $S($$6:4.33,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,13) I PSSQVJ1="FOUR AND 1/3 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,14,$L(PSSQVLCD)) Q $S($$6:4.33,1:0)
;
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="3 AND 1/3 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) Q $S($$6:3.33,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,20) I PSSQVJ1="THREE AND ONE THIRD " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,21,$L(PSSQVLCD)) Q $S($$6:3.33,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,20) I PSSQVJ1="THREE AND ONE-THIRD " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,21,$L(PSSQVLCD)) Q $S($$6:3.33,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,16) I PSSQVJ1="3 AND ONE THIRD " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,17,$L(PSSQVLCD)) Q $S($$6:3.33,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,16) I PSSQVJ1="3 AND ONE-THIRD " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,17,$L(PSSQVLCD)) Q $S($$6:3.33,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,14) I PSSQVJ1="THREE AND 1/3 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,15,$L(PSSQVLCD)) Q $S($$6:3.33,1:0)
;
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="2 AND 1/3 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) Q $S($$6:2.33,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,18) I PSSQVJ1="TWO AND ONE THIRD " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,19,$L(PSSQVLCD)) Q $S($$6:2.33,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,18) I PSSQVJ1="TWO AND ONE-THIRD " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,19,$L(PSSQVLCD)) Q $S($$6:2.33,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,16) I PSSQVJ1="2 AND ONE THIRD " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,17,$L(PSSQVLCD)) Q $S($$6:2.33,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,16) I PSSQVJ1="2 AND ONE-THIRD " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,17,$L(PSSQVLCD)) Q $S($$6:2.33,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,12) I PSSQVJ1="TWO AND 1/3 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,13,$L(PSSQVLCD)) Q $S($$6:2.33,1:0)
;
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="1 AND 1/3 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) Q $S($$6:1.33,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,18) I PSSQVJ1="ONE AND ONE THIRD " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,19,$L(PSSQVLCD)) Q $S($$6:1.33,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,18) I PSSQVJ1="ONE AND ONE-THIRD " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,19,$L(PSSQVLCD)) Q $S($$6:1.33,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,16) I PSSQVJ1="1 AND ONE THIRD " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,17,$L(PSSQVLCD)) Q $S($$6:1.33,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,16) I PSSQVJ1="1 AND ONE-THIRD " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,17,$L(PSSQVLCD)) Q $S($$6:1.33,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,12) I PSSQVJ1="ONE AND 1/3 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,13,$L(PSSQVLCD)) Q $S($$6:1.33,1:0)
;
S PSSQVJ1=$E(PSSQVLCD,1,6) I PSSQVJ1="0.5-1 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,7,$L(PSSQVLCD)) Q $S($$6:1,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,8) I PSSQVJ1="0.5 - 1 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,9,$L(PSSQVLCD)) Q $S($$6:1,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,9) I PSSQVJ1="0.5 TO 1 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,10,$L(PSSQVLCD)) Q $S($$6:1,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,9) I PSSQVJ1="0.5 OR 1 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,10,$L(PSSQVLCD)) Q $S($$6:1,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,6) I PSSQVJ1="1/2-1 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,7,$L(PSSQVLCD)) Q $S($$6:1,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,8) I PSSQVJ1="1/2 - 1 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,9,$L(PSSQVLCD)) Q $S($$6:1,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,9) I PSSQVJ1="1/2 TO 1 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,10,$L(PSSQVLCD)) Q $S($$6:1,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,9) I PSSQVJ1="1/2 OR 1 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,10,$L(PSSQVLCD)) Q $S($$6:1,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,16) I PSSQVJ1="ONE-HALF TO ONE " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,17,$L(PSSQVLCD)) Q $S($$6:1,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,18) I PSSQVJ1="ONE - HALF TO ONE " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,19,$L(PSSQVLCD)) Q $S($$6:1,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,16) I PSSQVJ1="ONE HALF TO ONE " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,17,$L(PSSQVLCD)) Q $S($$6:1,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,16) I PSSQVJ1="ONE-HALF OR ONE " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,17,$L(PSSQVLCD)) Q $S($$6:1,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,18) I PSSQVJ1="ONE - HALF OR ONE " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,19,$L(PSSQVLCD)) Q $S($$6:1,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,16) I PSSQVJ1="ONE HALF OR ONE " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,17,$L(PSSQVLCD)) Q $S($$6:1,1:0)
;
S PSSQVJ1=$E(PSSQVLCD,1,4) I PSSQVJ1="1-2 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,5,$L(PSSQVLCD)) Q $S($$6:2,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,6) I PSSQVJ1="1 - 2 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,7,$L(PSSQVLCD)) Q $S($$6:2,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,7) I PSSQVJ1="1 TO 2 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,8,$L(PSSQVLCD)) Q $S($$6:2,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,7) I PSSQVJ1="1 OR 2 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,8,$L(PSSQVLCD)) Q $S($$6:2,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,11) I PSSQVJ1="ONE TO TWO " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,12,$L(PSSQVLCD)) Q $S($$6:2,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,11) I PSSQVJ1="ONE OR TWO " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,12,$L(PSSQVLCD)) Q $S($$6:2,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,8) I PSSQVJ1="ONE-TWO " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,9,$L(PSSQVLCD)) Q $S($$6:2,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="ONE - TWO " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) Q $S($$6:2,1:0)
;
S PSSQVJ1=$E(PSSQVLCD,1,4) I PSSQVJ1="2-3 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,5,$L(PSSQVLCD)) Q $S($$6:3,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,6) I PSSQVJ1="2 - 3 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,7,$L(PSSQVLCD)) Q $S($$6:3,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,7) I PSSQVJ1="2 TO 3 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,8,$L(PSSQVLCD)) Q $S($$6:3,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,7) I PSSQVJ1="2 OR 3 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,8,$L(PSSQVLCD)) Q $S($$6:3,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,13) I PSSQVJ1="TWO TO THREE " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,14,$L(PSSQVLCD)) Q $S($$6:3,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,13) I PSSQVJ1="TWO OR THREE " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,14,$L(PSSQVLCD)) Q $S($$6:3,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="TWO-THREE " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) Q $S($$6:3,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,12) I PSSQVJ1="TWO - THREE " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,13,$L(PSSQVLCD)) Q $S($$6:3,1:0)
;
S PSSQVJ1=$E(PSSQVLCD,1,4) I PSSQVJ1="3-4 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,5,$L(PSSQVLCD)) Q $S($$6:4,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,6) I PSSQVJ1="3 - 4 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,7,$L(PSSQVLCD)) Q $S($$6:4,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,7) I PSSQVJ1="3 TO 4 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,8,$L(PSSQVLCD)) Q $S($$6:4,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,7) I PSSQVJ1="3 OR 4 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,8,$L(PSSQVLCD)) Q $S($$6:4,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,14) I PSSQVJ1="THREE TO FOUR " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,15,$L(PSSQVLCD)) Q $S($$6:4,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,14) I PSSQVJ1="THREE OR FOUR " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,15,$L(PSSQVLCD)) Q $S($$6:4,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,11) I PSSQVJ1="THREE-FOUR " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,12,$L(PSSQVLCD)) Q $S($$6:4,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,13) I PSSQVJ1="THREE - FOUR " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,14,$L(PSSQVLCD)) Q $S($$6:4,1:0)
;
S PSSQVJ1=$E(PSSQVLCD,1,4) I PSSQVJ1="0.5 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,5,$L(PSSQVLCD)) Q $S($$6:.5,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,4) I PSSQVJ1="1/2 " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,5,$L(PSSQVLCD)) Q $S($$6:.5,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,9) I PSSQVJ1="ONE HALF " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,10,$L(PSSQVLCD)) Q $S($$6:.5,1:0)
S PSSQVJ1=$E(PSSQVLCD,1,9) I PSSQVJ1="ONE-HALF " Q:'$$7 0 S PSSQVJ2=$E(PSSQVLCD,10,$L(PSSQVLCD)) Q $S($$6:.5,1:0)
;
S PSSQVJ9=$$NUMX^PSSDSBPB
Q PSSQVJ9
;
6() ;
;Some special characters in a Nouns will pass, (), etc. others like "/" will not
I PSSQVJ2[" " Q 0
I PSSQVJ2["-" Q 0
I PSSQVJ2["&" Q 0
I PSSQVJ2["\" Q 0
I PSSQVJ2["/" Q 0
Q 1
;
7() ;
I $L(PSSQVLCD)'>$L(PSSQVJ1) Q 0
Q 1
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSSDSBPA 14533 printed Apr 09, 2024@21:37:11 Page 2
PSSDSBPA ;BIR/RTR-Determine numeric dose multiplier for numeric dose ;02/12/09
+1 ;;1.0;PHARMACY DATA MANAGEMENT;**117,160**;9/30/97;Build 76
+2 ;
+3 ;
NUM() ;Determine numeric dose multiplier from Local Possible Dosage
+1 ;
+2 NEW PSSQVJ1,PSSQVJ2,PSSQVJ9
+3 KILL PSSQVJ1,PSSQVJ2,PSSQVJ9
+4 IF $LENGTH($GET(PSSQVLCD))'>0
QUIT 0
+5 ;
+6 ;
+7 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="4 AND 1/2 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:4.5,1:0)
+8 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,18)
IF PSSQVJ1="FOUR AND ONE HALF "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,19,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:4.5,1:0)
+9 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,18)
IF PSSQVJ1="FOUR AND ONE-HALF "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,19,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:4.5,1:0)
+10 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,15)
IF PSSQVJ1="4 AND ONE HALF "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,16,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:4.5,1:0)
+11 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,15)
IF PSSQVJ1="4 AND ONE-HALF "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,16,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:4.5,1:0)
+12 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,13)
IF PSSQVJ1="FOUR AND 1/2 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,14,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:4.5,1:0)
+13 ;
+14 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="3 AND 1/2 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:3.5,1:0)
+15 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,19)
IF PSSQVJ1="THREE AND ONE HALF "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,20,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:3.5,1:0)
+16 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,19)
IF PSSQVJ1="THREE AND ONE-HALF "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,20,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:3.5,1:0)
+17 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,15)
IF PSSQVJ1="3 AND ONE HALF "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,16,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:3.5,1:0)
+18 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,15)
IF PSSQVJ1="3 AND ONE-HALF "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,16,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:3.5,1:0)
+19 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,14)
IF PSSQVJ1="THREE AND 1/2 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,15,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:3.5,1:0)
+20 ;
+21 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="2 AND 1/2 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:2.5,1:0)
+22 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,17)
IF PSSQVJ1="TWO AND ONE HALF "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,18,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:2.5,1:0)
+23 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,17)
IF PSSQVJ1="TWO AND ONE-HALF "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,18,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:2.5,1:0)
+24 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,15)
IF PSSQVJ1="2 AND ONE HALF "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,16,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:2.5,1:0)
+25 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,15)
IF PSSQVJ1="2 AND ONE-HALF "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,16,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:2.5,1:0)
+26 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,12)
IF PSSQVJ1="TWO AND 1/2 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,13,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:2.5,1:0)
+27 ;
+28 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="1 AND 1/2 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1.5,1:0)
+29 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,17)
IF PSSQVJ1="ONE AND ONE HALF "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,18,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1.5,1:0)
+30 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,17)
IF PSSQVJ1="ONE AND ONE-HALF "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,18,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1.5,1:0)
+31 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,15)
IF PSSQVJ1="1 AND ONE HALF "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,16,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1.5,1:0)
+32 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,15)
IF PSSQVJ1="1 AND ONE-HALF "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,16,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1.5,1:0)
+33 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,12)
IF PSSQVJ1="ONE AND 1/2 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,13,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1.5,1:0)
+34 ;
+35 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="4 AND 1/4 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:4.25,1:0)
+36 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,20)
IF PSSQVJ1="FOUR AND ONE FOURTH "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,21,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:4.25,1:0)
+37 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,20)
IF PSSQVJ1="FOUR AND ONE-FOURTH "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,21,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:4.25,1:0)
+38 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,17)
IF PSSQVJ1="4 AND ONE FOURTH "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,18,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:4.25,1:0)
+39 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,17)
IF PSSQVJ1="4 AND ONE-FOURTH "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,18,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:4.25,1:0)
+40 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,13)
IF PSSQVJ1="FOUR AND 1/4 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,14,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:4.25,1:0)
+41 ;
+42 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="3 AND 1/4 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:3.25,1:0)
+43 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,21)
IF PSSQVJ1="THREE AND ONE FOURTH "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,22,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:3.25,1:0)
+44 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,21)
IF PSSQVJ1="THREE AND ONE-FOURTH "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,22,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:3.25,1:0)
+45 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,17)
IF PSSQVJ1="3 AND ONE FOURTH "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,18,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:3.25,1:0)
+46 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,17)
IF PSSQVJ1="3 AND ONE-FOURTH "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,18,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:3.25,1:0)
+47 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,14)
IF PSSQVJ1="THREE AND 1/4 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,15,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:3.25,1:0)
+48 ;
+49 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="2 AND 1/4 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:2.25,1:0)
+50 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,19)
IF PSSQVJ1="TWO AND ONE FOURTH "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,20,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:2.25,1:0)
+51 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,19)
IF PSSQVJ1="TWO AND ONE-FOURTH "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,20,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:2.25,1:0)
+52 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,17)
IF PSSQVJ1="2 AND ONE FOURTH "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,18,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:2.25,1:0)
+53 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,17)
IF PSSQVJ1="2 AND ONE-FOURTH "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,18,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:2.25,1:0)
+54 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,12)
IF PSSQVJ1="TWO AND 1/4 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,13,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:2.25,1:0)
+55 ;
+56 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="1 AND 1/4 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1.25,1:0)
+57 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,19)
IF PSSQVJ1="ONE AND ONE FOURTH "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,20,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1.25,1:0)
+58 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,19)
IF PSSQVJ1="ONE AND ONE-FOURTH "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,20,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1.25,1:0)
+59 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,17)
IF PSSQVJ1="1 AND ONE FOURTH "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,18,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1.25,1:0)
+60 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,17)
IF PSSQVJ1="1 AND ONE-FOURTH "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,18,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1.25,1:0)
+61 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,12)
IF PSSQVJ1="ONE AND 1/4 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,13,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1.25,1:0)
+62 ;
+63 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="4 AND 1/3 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:4.33,1:0)
+64 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,19)
IF PSSQVJ1="FOUR AND ONE THIRD "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,20,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:4.33,1:0)
+65 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,19)
IF PSSQVJ1="FOUR AND ONE-THIRD "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,20,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:4.33,1:0)
+66 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,16)
IF PSSQVJ1="4 AND ONE THIRD "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,17,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:4.33,1:0)
+67 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,16)
IF PSSQVJ1="4 AND ONE-THIRD "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,17,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:4.33,1:0)
+68 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,13)
IF PSSQVJ1="FOUR AND 1/3 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,14,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:4.33,1:0)
+69 ;
+70 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="3 AND 1/3 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:3.33,1:0)
+71 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,20)
IF PSSQVJ1="THREE AND ONE THIRD "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,21,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:3.33,1:0)
+72 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,20)
IF PSSQVJ1="THREE AND ONE-THIRD "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,21,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:3.33,1:0)
+73 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,16)
IF PSSQVJ1="3 AND ONE THIRD "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,17,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:3.33,1:0)
+74 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,16)
IF PSSQVJ1="3 AND ONE-THIRD "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,17,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:3.33,1:0)
+75 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,14)
IF PSSQVJ1="THREE AND 1/3 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,15,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:3.33,1:0)
+76 ;
+77 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="2 AND 1/3 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:2.33,1:0)
+78 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,18)
IF PSSQVJ1="TWO AND ONE THIRD "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,19,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:2.33,1:0)
+79 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,18)
IF PSSQVJ1="TWO AND ONE-THIRD "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,19,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:2.33,1:0)
+80 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,16)
IF PSSQVJ1="2 AND ONE THIRD "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,17,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:2.33,1:0)
+81 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,16)
IF PSSQVJ1="2 AND ONE-THIRD "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,17,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:2.33,1:0)
+82 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,12)
IF PSSQVJ1="TWO AND 1/3 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,13,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:2.33,1:0)
+83 ;
+84 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="1 AND 1/3 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1.33,1:0)
+85 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,18)
IF PSSQVJ1="ONE AND ONE THIRD "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,19,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1.33,1:0)
+86 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,18)
IF PSSQVJ1="ONE AND ONE-THIRD "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,19,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1.33,1:0)
+87 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,16)
IF PSSQVJ1="1 AND ONE THIRD "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,17,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1.33,1:0)
+88 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,16)
IF PSSQVJ1="1 AND ONE-THIRD "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,17,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1.33,1:0)
+89 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,12)
IF PSSQVJ1="ONE AND 1/3 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,13,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1.33,1:0)
+90 ;
+91 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,6)
IF PSSQVJ1="0.5-1 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,7,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1,1:0)
+92 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,8)
IF PSSQVJ1="0.5 - 1 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,9,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1,1:0)
+93 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,9)
IF PSSQVJ1="0.5 TO 1 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,10,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1,1:0)
+94 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,9)
IF PSSQVJ1="0.5 OR 1 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,10,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1,1:0)
+95 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,6)
IF PSSQVJ1="1/2-1 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,7,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1,1:0)
+96 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,8)
IF PSSQVJ1="1/2 - 1 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,9,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1,1:0)
+97 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,9)
IF PSSQVJ1="1/2 TO 1 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,10,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1,1:0)
+98 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,9)
IF PSSQVJ1="1/2 OR 1 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,10,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1,1:0)
+99 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,16)
IF PSSQVJ1="ONE-HALF TO ONE "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,17,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1,1:0)
+100 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,18)
IF PSSQVJ1="ONE - HALF TO ONE "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,19,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1,1:0)
+101 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,16)
IF PSSQVJ1="ONE HALF TO ONE "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,17,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1,1:0)
+102 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,16)
IF PSSQVJ1="ONE-HALF OR ONE "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,17,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1,1:0)
+103 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,18)
IF PSSQVJ1="ONE - HALF OR ONE "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,19,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1,1:0)
+104 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,16)
IF PSSQVJ1="ONE HALF OR ONE "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,17,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:1,1:0)
+105 ;
+106 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,4)
IF PSSQVJ1="1-2 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,5,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:2,1:0)
+107 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,6)
IF PSSQVJ1="1 - 2 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,7,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:2,1:0)
+108 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,7)
IF PSSQVJ1="1 TO 2 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,8,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:2,1:0)
+109 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,7)
IF PSSQVJ1="1 OR 2 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,8,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:2,1:0)
+110 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,11)
IF PSSQVJ1="ONE TO TWO "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,12,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:2,1:0)
+111 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,11)
IF PSSQVJ1="ONE OR TWO "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,12,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:2,1:0)
+112 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,8)
IF PSSQVJ1="ONE-TWO "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,9,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:2,1:0)
+113 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="ONE - TWO "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:2,1:0)
+114 ;
+115 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,4)
IF PSSQVJ1="2-3 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,5,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:3,1:0)
+116 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,6)
IF PSSQVJ1="2 - 3 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,7,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:3,1:0)
+117 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,7)
IF PSSQVJ1="2 TO 3 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,8,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:3,1:0)
+118 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,7)
IF PSSQVJ1="2 OR 3 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,8,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:3,1:0)
+119 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,13)
IF PSSQVJ1="TWO TO THREE "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,14,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:3,1:0)
+120 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,13)
IF PSSQVJ1="TWO OR THREE "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,14,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:3,1:0)
+121 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="TWO-THREE "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:3,1:0)
+122 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,12)
IF PSSQVJ1="TWO - THREE "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,13,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:3,1:0)
+123 ;
+124 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,4)
IF PSSQVJ1="3-4 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,5,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:4,1:0)
+125 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,6)
IF PSSQVJ1="3 - 4 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,7,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:4,1:0)
+126 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,7)
IF PSSQVJ1="3 TO 4 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,8,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:4,1:0)
+127 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,7)
IF PSSQVJ1="3 OR 4 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,8,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:4,1:0)
+128 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,14)
IF PSSQVJ1="THREE TO FOUR "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,15,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:4,1:0)
+129 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,14)
IF PSSQVJ1="THREE OR FOUR "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,15,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:4,1:0)
+130 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,11)
IF PSSQVJ1="THREE-FOUR "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,12,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:4,1:0)
+131 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,13)
IF PSSQVJ1="THREE - FOUR "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,14,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:4,1:0)
+132 ;
+133 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,4)
IF PSSQVJ1="0.5 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,5,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:.5,1:0)
+134 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,4)
IF PSSQVJ1="1/2 "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,5,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:.5,1:0)
+135 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,9)
IF PSSQVJ1="ONE HALF "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,10,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:.5,1:0)
+136 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,9)
IF PSSQVJ1="ONE-HALF "
if '$$7
QUIT 0
SET PSSQVJ2=$EXTRACT(PSSQVLCD,10,$LENGTH(PSSQVLCD))
QUIT $SELECT($$6:.5,1:0)
+137 ;
+138 SET PSSQVJ9=$$NUMX^PSSDSBPB
+139 QUIT PSSQVJ9
+140 ;
6() ;
+1 ;Some special characters in a Nouns will pass, (), etc. others like "/" will not
+2 IF PSSQVJ2[" "
QUIT 0
+3 IF PSSQVJ2["-"
QUIT 0
+4 IF PSSQVJ2["&"
QUIT 0
+5 IF PSSQVJ2["\"
QUIT 0
+6 IF PSSQVJ2["/"
QUIT 0
+7 QUIT 1
+8 ;
7() ;
+1 IF $LENGTH(PSSQVLCD)'>$LENGTH(PSSQVJ1)
QUIT 0
+2 QUIT 1
