PSSDSBPA.m

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 ---PSSDSBPA   14533     printed  Mar 13, 2025@21:35:40                                                                                                                                                                                                   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)