PSSDSPON ;BIR/RTR-Determine numeric dose multiplier for patch 129 install ;07/10/08
;;1.0;PHARMACY DATA MANAGEMENT;**129**;9/30/07;Build 67
;
;
NUM() ;Determine numeric dose multiplier from Local Possible Dosage
;
N PSSQVJ1,PSSQVJ2
K PSSQVJ1,PSSQVJ2
I $L($G(PSSQVLCD))'>0 Q 0
;
;
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="4 AND 1/2 " I $$7 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) I $$6 Q 4.5
S PSSQVJ1=$E(PSSQVLCD,1,18) I PSSQVJ1="FOUR AND ONE HALF " I $$7 S PSSQVJ2=$E(PSSQVLCD,19,$L(PSSQVLCD)) I $$6 Q 4.5
S PSSQVJ1=$E(PSSQVLCD,1,18) I PSSQVJ1="FOUR AND ONE-HALF " I $$7 S PSSQVJ2=$E(PSSQVLCD,19,$L(PSSQVLCD)) I $$6 Q 4.5
S PSSQVJ1=$E(PSSQVLCD,1,15) I PSSQVJ1="4 AND ONE HALF " I $$7 S PSSQVJ2=$E(PSSQVLCD,16,$L(PSSQVLCD)) I $$6 Q 4.5
S PSSQVJ1=$E(PSSQVLCD,1,15) I PSSQVJ1="4 AND ONE-HALF " I $$7 S PSSQVJ2=$E(PSSQVLCD,16,$L(PSSQVLCD)) I $$6 Q 4.5
S PSSQVJ1=$E(PSSQVLCD,1,13) I PSSQVJ1="FOUR AND 1/2 " I $$7 S PSSQVJ2=$E(PSSQVLCD,14,$L(PSSQVLCD)) I $$6 Q 4.5
;
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="3 AND 1/2 " I $$7 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) I $$6 Q 3.5
S PSSQVJ1=$E(PSSQVLCD,1,19) I PSSQVJ1="THREE AND ONE HALF " I $$7 S PSSQVJ2=$E(PSSQVLCD,20,$L(PSSQVLCD)) I $$6 Q 3.5
S PSSQVJ1=$E(PSSQVLCD,1,19) I PSSQVJ1="THREE AND ONE-HALF " I $$7 S PSSQVJ2=$E(PSSQVLCD,20,$L(PSSQVLCD)) I $$6 Q 3.5
S PSSQVJ1=$E(PSSQVLCD,1,15) I PSSQVJ1="3 AND ONE HALF " I $$7 S PSSQVJ2=$E(PSSQVLCD,16,$L(PSSQVLCD)) I $$6 Q 3.5
S PSSQVJ1=$E(PSSQVLCD,1,15) I PSSQVJ1="3 AND ONE-HALF " I $$7 S PSSQVJ2=$E(PSSQVLCD,16,$L(PSSQVLCD)) I $$6 Q 3.5
S PSSQVJ1=$E(PSSQVLCD,1,14) I PSSQVJ1="THREE AND 1/2 " I $$7 S PSSQVJ2=$E(PSSQVLCD,15,$L(PSSQVLCD)) I $$6 Q 3.5
;
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="2 AND 1/2 " I $$7 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) I $$6 Q 2.5
S PSSQVJ1=$E(PSSQVLCD,1,17) I PSSQVJ1="TWO AND ONE HALF " I $$7 S PSSQVJ2=$E(PSSQVLCD,18,$L(PSSQVLCD)) I $$6 Q 2.5
S PSSQVJ1=$E(PSSQVLCD,1,17) I PSSQVJ1="TWO AND ONE-HALF " I $$7 S PSSQVJ2=$E(PSSQVLCD,18,$L(PSSQVLCD)) I $$6 Q 2.5
S PSSQVJ1=$E(PSSQVLCD,1,15) I PSSQVJ1="2 AND ONE HALF " I $$7 S PSSQVJ2=$E(PSSQVLCD,16,$L(PSSQVLCD)) I $$6 Q 2.5
S PSSQVJ1=$E(PSSQVLCD,1,15) I PSSQVJ1="2 AND ONE-HALF " I $$7 S PSSQVJ2=$E(PSSQVLCD,16,$L(PSSQVLCD)) I $$6 Q 2.5
S PSSQVJ1=$E(PSSQVLCD,1,12) I PSSQVJ1="TWO AND 1/2 " I $$7 S PSSQVJ2=$E(PSSQVLCD,13,$L(PSSQVLCD)) I $$6 Q 2.5
;
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="1 AND 1/2 " I $$7 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) I $$6 Q 1.5
S PSSQVJ1=$E(PSSQVLCD,1,17) I PSSQVJ1="ONE AND ONE HALF " I $$7 S PSSQVJ2=$E(PSSQVLCD,18,$L(PSSQVLCD)) I $$6 Q 1.5
S PSSQVJ1=$E(PSSQVLCD,1,17) I PSSQVJ1="ONE AND ONE-HALF " I $$7 S PSSQVJ2=$E(PSSQVLCD,18,$L(PSSQVLCD)) I $$6 Q 1.5
S PSSQVJ1=$E(PSSQVLCD,1,15) I PSSQVJ1="1 AND ONE HALF " I $$7 S PSSQVJ2=$E(PSSQVLCD,16,$L(PSSQVLCD)) I $$6 Q 1.5
S PSSQVJ1=$E(PSSQVLCD,1,15) I PSSQVJ1="1 AND ONE-HALF " I $$7 S PSSQVJ2=$E(PSSQVLCD,16,$L(PSSQVLCD)) I $$6 Q 1.5
S PSSQVJ1=$E(PSSQVLCD,1,12) I PSSQVJ1="ONE AND 1/2 " I $$7 S PSSQVJ2=$E(PSSQVLCD,13,$L(PSSQVLCD)) I $$6 Q 1.5
;
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="4 AND 1/4 " I $$7 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) I $$6 Q 4.25
S PSSQVJ1=$E(PSSQVLCD,1,20) I PSSQVJ1="FOUR AND ONE FOURTH " I $$7 S PSSQVJ2=$E(PSSQVLCD,21,$L(PSSQVLCD)) I $$6 Q 4.25
S PSSQVJ1=$E(PSSQVLCD,1,20) I PSSQVJ1="FOUR AND ONE-FOURTH " I $$7 S PSSQVJ2=$E(PSSQVLCD,21,$L(PSSQVLCD)) I $$6 Q 4.25
S PSSQVJ1=$E(PSSQVLCD,1,17) I PSSQVJ1="4 AND ONE FOURTH " I $$7 S PSSQVJ2=$E(PSSQVLCD,18,$L(PSSQVLCD)) I $$6 Q 4.25
S PSSQVJ1=$E(PSSQVLCD,1,17) I PSSQVJ1="4 AND ONE-FOURTH " I $$7 S PSSQVJ2=$E(PSSQVLCD,18,$L(PSSQVLCD)) I $$6 Q 4.25
S PSSQVJ1=$E(PSSQVLCD,1,13) I PSSQVJ1="FOUR AND 1/4 " I $$7 S PSSQVJ2=$E(PSSQVLCD,14,$L(PSSQVLCD)) I $$6 Q 4.25
;
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="3 AND 1/4 " I $$7 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) I $$6 Q 3.25
S PSSQVJ1=$E(PSSQVLCD,1,21) I PSSQVJ1="THREE AND ONE FOURTH " I $$7 S PSSQVJ2=$E(PSSQVLCD,22,$L(PSSQVLCD)) I $$6 Q 3.25
S PSSQVJ1=$E(PSSQVLCD,1,21) I PSSQVJ1="THREE AND ONE-FOURTH " I $$7 S PSSQVJ2=$E(PSSQVLCD,22,$L(PSSQVLCD)) I $$6 Q 3.25
S PSSQVJ1=$E(PSSQVLCD,1,17) I PSSQVJ1="3 AND ONE FOURTH " I $$7 S PSSQVJ2=$E(PSSQVLCD,18,$L(PSSQVLCD)) I $$6 Q 3.25
S PSSQVJ1=$E(PSSQVLCD,1,17) I PSSQVJ1="3 AND ONE-FOURTH " I $$7 S PSSQVJ2=$E(PSSQVLCD,18,$L(PSSQVLCD)) I $$6 Q 3.25
S PSSQVJ1=$E(PSSQVLCD,1,14) I PSSQVJ1="THREE AND 1/4 " I $$7 S PSSQVJ2=$E(PSSQVLCD,15,$L(PSSQVLCD)) I $$6 Q 3.25
;
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="2 AND 1/4 " I $$7 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) I $$6 Q 2.25
S PSSQVJ1=$E(PSSQVLCD,1,19) I PSSQVJ1="TWO AND ONE FOURTH " I $$7 S PSSQVJ2=$E(PSSQVLCD,20,$L(PSSQVLCD)) I $$6 Q 2.25
S PSSQVJ1=$E(PSSQVLCD,1,19) I PSSQVJ1="TWO AND ONE-FOURTH " I $$7 S PSSQVJ2=$E(PSSQVLCD,20,$L(PSSQVLCD)) I $$6 Q 2.25
S PSSQVJ1=$E(PSSQVLCD,1,17) I PSSQVJ1="2 AND ONE FOURTH " I $$7 S PSSQVJ2=$E(PSSQVLCD,18,$L(PSSQVLCD)) I $$6 Q 2.25
S PSSQVJ1=$E(PSSQVLCD,1,17) I PSSQVJ1="2 AND ONE-FOURTH " I $$7 S PSSQVJ2=$E(PSSQVLCD,18,$L(PSSQVLCD)) I $$6 Q 2.25
S PSSQVJ1=$E(PSSQVLCD,1,12) I PSSQVJ1="TWO AND 1/4 " I $$7 S PSSQVJ2=$E(PSSQVLCD,13,$L(PSSQVLCD)) I $$6 Q 2.25
;
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="1 AND 1/4 " I $$7 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) I $$6 Q 1.25
S PSSQVJ1=$E(PSSQVLCD,1,19) I PSSQVJ1="ONE AND ONE FOURTH " I $$7 S PSSQVJ2=$E(PSSQVLCD,20,$L(PSSQVLCD)) I $$6 Q 1.25
S PSSQVJ1=$E(PSSQVLCD,1,19) I PSSQVJ1="ONE AND ONE-FOURTH " I $$7 S PSSQVJ2=$E(PSSQVLCD,20,$L(PSSQVLCD)) I $$6 Q 1.25
S PSSQVJ1=$E(PSSQVLCD,1,17) I PSSQVJ1="1 AND ONE FOURTH " I $$7 S PSSQVJ2=$E(PSSQVLCD,18,$L(PSSQVLCD)) I $$6 Q 1.25
S PSSQVJ1=$E(PSSQVLCD,1,17) I PSSQVJ1="1 AND ONE-FOURTH " I $$7 S PSSQVJ2=$E(PSSQVLCD,18,$L(PSSQVLCD)) I $$6 Q 1.25
S PSSQVJ1=$E(PSSQVLCD,1,12) I PSSQVJ1="ONE AND 1/4 " I $$7 S PSSQVJ2=$E(PSSQVLCD,13,$L(PSSQVLCD)) I $$6 Q 1.25
;
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="4 AND 1/3 " I $$7 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) I $$6 Q 4.33
S PSSQVJ1=$E(PSSQVLCD,1,19) I PSSQVJ1="FOUR AND ONE THIRD " I $$7 S PSSQVJ2=$E(PSSQVLCD,20,$L(PSSQVLCD)) I $$6 Q 4.33
S PSSQVJ1=$E(PSSQVLCD,1,19) I PSSQVJ1="FOUR AND ONE-THIRD " I $$7 S PSSQVJ2=$E(PSSQVLCD,20,$L(PSSQVLCD)) I $$6 Q 4.33
S PSSQVJ1=$E(PSSQVLCD,1,16) I PSSQVJ1="4 AND ONE THIRD " I $$7 S PSSQVJ2=$E(PSSQVLCD,17,$L(PSSQVLCD)) I $$6 Q 4.33
S PSSQVJ1=$E(PSSQVLCD,1,16) I PSSQVJ1="4 AND ONE-THIRD " I $$7 S PSSQVJ2=$E(PSSQVLCD,17,$L(PSSQVLCD)) I $$6 Q 4.33
S PSSQVJ1=$E(PSSQVLCD,1,13) I PSSQVJ1="FOUR AND 1/3 " I $$7 S PSSQVJ2=$E(PSSQVLCD,14,$L(PSSQVLCD)) I $$6 Q 4.33
;
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="3 AND 1/3 " I $$7 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) I $$6 Q 3.33
S PSSQVJ1=$E(PSSQVLCD,1,20) I PSSQVJ1="THREE AND ONE THIRD " I $$7 S PSSQVJ2=$E(PSSQVLCD,21,$L(PSSQVLCD)) I $$6 Q 3.33
S PSSQVJ1=$E(PSSQVLCD,1,20) I PSSQVJ1="THREE AND ONE-THIRD " I $$7 S PSSQVJ2=$E(PSSQVLCD,21,$L(PSSQVLCD)) I $$6 Q 3.33
S PSSQVJ1=$E(PSSQVLCD,1,16) I PSSQVJ1="3 AND ONE THIRD " I $$7 S PSSQVJ2=$E(PSSQVLCD,17,$L(PSSQVLCD)) I $$6 Q 3.33
S PSSQVJ1=$E(PSSQVLCD,1,16) I PSSQVJ1="3 AND ONE-THIRD " I $$7 S PSSQVJ2=$E(PSSQVLCD,17,$L(PSSQVLCD)) I $$6 Q 3.33
S PSSQVJ1=$E(PSSQVLCD,1,14) I PSSQVJ1="THREE AND 1/3 " I $$7 S PSSQVJ2=$E(PSSQVLCD,15,$L(PSSQVLCD)) I $$6 Q 3.33
;
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="2 AND 1/3 " I $$7 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) I $$6 Q 2.33
S PSSQVJ1=$E(PSSQVLCD,1,18) I PSSQVJ1="TWO AND ONE THIRD " I $$7 S PSSQVJ2=$E(PSSQVLCD,19,$L(PSSQVLCD)) I $$6 Q 2.33
S PSSQVJ1=$E(PSSQVLCD,1,18) I PSSQVJ1="TWO AND ONE-THIRD " I $$7 S PSSQVJ2=$E(PSSQVLCD,19,$L(PSSQVLCD)) I $$6 Q 2.33
S PSSQVJ1=$E(PSSQVLCD,1,16) I PSSQVJ1="2 AND ONE THIRD " I $$7 S PSSQVJ2=$E(PSSQVLCD,17,$L(PSSQVLCD)) I $$6 Q 2.33
S PSSQVJ1=$E(PSSQVLCD,1,16) I PSSQVJ1="2 AND ONE-THIRD " I $$7 S PSSQVJ2=$E(PSSQVLCD,17,$L(PSSQVLCD)) I $$6 Q 2.33
S PSSQVJ1=$E(PSSQVLCD,1,12) I PSSQVJ1="TWO AND 1/3 " I $$7 S PSSQVJ2=$E(PSSQVLCD,13,$L(PSSQVLCD)) I $$6 Q 2.33
;
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="1 AND 1/3 " I $$7 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) I $$6 Q 1.33
S PSSQVJ1=$E(PSSQVLCD,1,18) I PSSQVJ1="ONE AND ONE THIRD " I $$7 S PSSQVJ2=$E(PSSQVLCD,19,$L(PSSQVLCD)) I $$6 Q 1.33
S PSSQVJ1=$E(PSSQVLCD,1,18) I PSSQVJ1="ONE AND ONE-THIRD " I $$7 S PSSQVJ2=$E(PSSQVLCD,19,$L(PSSQVLCD)) I $$6 Q 1.33
S PSSQVJ1=$E(PSSQVLCD,1,16) I PSSQVJ1="1 AND ONE THIRD " I $$7 S PSSQVJ2=$E(PSSQVLCD,17,$L(PSSQVLCD)) I $$6 Q 1.33
S PSSQVJ1=$E(PSSQVLCD,1,16) I PSSQVJ1="1 AND ONE-THIRD " I $$7 S PSSQVJ2=$E(PSSQVLCD,17,$L(PSSQVLCD)) I $$6 Q 1.33
S PSSQVJ1=$E(PSSQVLCD,1,12) I PSSQVJ1="ONE AND 1/3 " I $$7 S PSSQVJ2=$E(PSSQVLCD,13,$L(PSSQVLCD)) I $$6 Q 1.33
;
S PSSQVJ1=$E(PSSQVLCD,1,6) I PSSQVJ1="0.5-1 " I $$7 S PSSQVJ2=$E(PSSQVLCD,7,$L(PSSQVLCD)) I $$6 Q 1
S PSSQVJ1=$E(PSSQVLCD,1,8) I PSSQVJ1="0.5 - 1 " I $$7 S PSSQVJ2=$E(PSSQVLCD,9,$L(PSSQVLCD)) I $$6 Q 1
S PSSQVJ1=$E(PSSQVLCD,1,9) I PSSQVJ1="0.5 TO 1 " I $$7 S PSSQVJ2=$E(PSSQVLCD,10,$L(PSSQVLCD)) I $$6 Q 1
S PSSQVJ1=$E(PSSQVLCD,1,9) I PSSQVJ1="0.5 OR 1 " I $$7 S PSSQVJ2=$E(PSSQVLCD,10,$L(PSSQVLCD)) I $$6 Q 1
S PSSQVJ1=$E(PSSQVLCD,1,6) I PSSQVJ1="1/2-1 " I $$7 S PSSQVJ2=$E(PSSQVLCD,7,$L(PSSQVLCD)) I $$6 Q 1
S PSSQVJ1=$E(PSSQVLCD,1,8) I PSSQVJ1="1/2 - 1 " I $$7 S PSSQVJ2=$E(PSSQVLCD,9,$L(PSSQVLCD)) I $$6 Q 1
S PSSQVJ1=$E(PSSQVLCD,1,9) I PSSQVJ1="1/2 TO 1 " I $$7 S PSSQVJ2=$E(PSSQVLCD,10,$L(PSSQVLCD)) I $$6 Q 1
S PSSQVJ1=$E(PSSQVLCD,1,9) I PSSQVJ1="1/2 OR 1 " I $$7 S PSSQVJ2=$E(PSSQVLCD,10,$L(PSSQVLCD)) I $$6 Q 1
S PSSQVJ1=$E(PSSQVLCD,1,16) I PSSQVJ1="ONE-HALF TO ONE " I $$7 S PSSQVJ2=$E(PSSQVLCD,17,$L(PSSQVLCD)) I $$6 Q 1
S PSSQVJ1=$E(PSSQVLCD,1,18) I PSSQVJ1="ONE - HALF TO ONE " I $$7 S PSSQVJ2=$E(PSSQVLCD,19,$L(PSSQVLCD)) I $$6 Q 1
S PSSQVJ1=$E(PSSQVLCD,1,16) I PSSQVJ1="ONE HALF TO ONE " I $$7 S PSSQVJ2=$E(PSSQVLCD,17,$L(PSSQVLCD)) I $$6 Q 1
S PSSQVJ1=$E(PSSQVLCD,1,16) I PSSQVJ1="ONE-HALF OR ONE " I $$7 S PSSQVJ2=$E(PSSQVLCD,17,$L(PSSQVLCD)) I $$6 Q 1
S PSSQVJ1=$E(PSSQVLCD,1,18) I PSSQVJ1="ONE - HALF OR ONE " I $$7 S PSSQVJ2=$E(PSSQVLCD,19,$L(PSSQVLCD)) I $$6 Q 1
S PSSQVJ1=$E(PSSQVLCD,1,16) I PSSQVJ1="ONE HALF OR ONE " I $$7 S PSSQVJ2=$E(PSSQVLCD,17,$L(PSSQVLCD)) I $$6 Q 1
;
S PSSQVJ1=$E(PSSQVLCD,1,4) I PSSQVJ1="1-2 " I $$7 S PSSQVJ2=$E(PSSQVLCD,5,$L(PSSQVLCD)) I $$6 Q 2
S PSSQVJ1=$E(PSSQVLCD,1,6) I PSSQVJ1="1 - 2 " I $$7 S PSSQVJ2=$E(PSSQVLCD,7,$L(PSSQVLCD)) I $$6 Q 2
S PSSQVJ1=$E(PSSQVLCD,1,7) I PSSQVJ1="1 TO 2 " I $$7 S PSSQVJ2=$E(PSSQVLCD,8,$L(PSSQVLCD)) I $$6 Q 2
S PSSQVJ1=$E(PSSQVLCD,1,7) I PSSQVJ1="1 OR 2 " I $$7 S PSSQVJ2=$E(PSSQVLCD,8,$L(PSSQVLCD)) I $$6 Q 2
S PSSQVJ1=$E(PSSQVLCD,1,11) I PSSQVJ1="ONE TO TWO " I $$7 S PSSQVJ2=$E(PSSQVLCD,12,$L(PSSQVLCD)) I $$6 Q 2
S PSSQVJ1=$E(PSSQVLCD,1,11) I PSSQVJ1="ONE OR TWO " I $$7 S PSSQVJ2=$E(PSSQVLCD,12,$L(PSSQVLCD)) I $$6 Q 2
S PSSQVJ1=$E(PSSQVLCD,1,8) I PSSQVJ1="ONE-TWO " I $$7 S PSSQVJ2=$E(PSSQVLCD,9,$L(PSSQVLCD)) I $$6 Q 2
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="ONE - TWO " I $$7 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) I $$6 Q 2
;
S PSSQVJ1=$E(PSSQVLCD,1,4) I PSSQVJ1="2-3 " I $$7 S PSSQVJ2=$E(PSSQVLCD,5,$L(PSSQVLCD)) I $$6 Q 3
S PSSQVJ1=$E(PSSQVLCD,1,6) I PSSQVJ1="2 - 3 " I $$7 S PSSQVJ2=$E(PSSQVLCD,7,$L(PSSQVLCD)) I $$6 Q 3
S PSSQVJ1=$E(PSSQVLCD,1,7) I PSSQVJ1="2 TO 3 " I $$7 S PSSQVJ2=$E(PSSQVLCD,8,$L(PSSQVLCD)) I $$6 Q 3
S PSSQVJ1=$E(PSSQVLCD,1,7) I PSSQVJ1="2 OR 3 " I $$7 S PSSQVJ2=$E(PSSQVLCD,8,$L(PSSQVLCD)) I $$6 Q 3
S PSSQVJ1=$E(PSSQVLCD,1,13) I PSSQVJ1="TWO TO THREE " I $$7 S PSSQVJ2=$E(PSSQVLCD,14,$L(PSSQVLCD)) I $$6 Q 3
S PSSQVJ1=$E(PSSQVLCD,1,13) I PSSQVJ1="TWO OR THREE " I $$7 S PSSQVJ2=$E(PSSQVLCD,14,$L(PSSQVLCD)) I $$6 Q 3
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="TWO-THREE " I $$7 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) I $$6 Q 3
S PSSQVJ1=$E(PSSQVLCD,1,12) I PSSQVJ1="TWO - THREE " I $$7 S PSSQVJ2=$E(PSSQVLCD,13,$L(PSSQVLCD)) I $$6 Q 3
;
S PSSQVJ1=$E(PSSQVLCD,1,4) I PSSQVJ1="3-4 " I $$7 S PSSQVJ2=$E(PSSQVLCD,5,$L(PSSQVLCD)) I $$6 Q 4
S PSSQVJ1=$E(PSSQVLCD,1,6) I PSSQVJ1="3 - 4 " I $$7 S PSSQVJ2=$E(PSSQVLCD,7,$L(PSSQVLCD)) I $$6 Q 4
S PSSQVJ1=$E(PSSQVLCD,1,7) I PSSQVJ1="3 TO 4 " I $$7 S PSSQVJ2=$E(PSSQVLCD,8,$L(PSSQVLCD)) I $$6 Q 4
S PSSQVJ1=$E(PSSQVLCD,1,7) I PSSQVJ1="3 OR 4 " I $$7 S PSSQVJ2=$E(PSSQVLCD,8,$L(PSSQVLCD)) I $$6 Q 4
S PSSQVJ1=$E(PSSQVLCD,1,14) I PSSQVJ1="THREE TO FOUR " I $$7 S PSSQVJ2=$E(PSSQVLCD,15,$L(PSSQVLCD)) I $$6 Q 4
S PSSQVJ1=$E(PSSQVLCD,1,14) I PSSQVJ1="THREE OR FOUR " I $$7 S PSSQVJ2=$E(PSSQVLCD,15,$L(PSSQVLCD)) I $$6 Q 4
S PSSQVJ1=$E(PSSQVLCD,1,11) I PSSQVJ1="THREE-FOUR " I $$7 S PSSQVJ2=$E(PSSQVLCD,12,$L(PSSQVLCD)) I $$6 Q 4
S PSSQVJ1=$E(PSSQVLCD,1,13) I PSSQVJ1="THREE - FOUR " I $$7 S PSSQVJ2=$E(PSSQVLCD,14,$L(PSSQVLCD)) I $$6 Q 4
;
S PSSQVJ1=$E(PSSQVLCD,1,4) I PSSQVJ1="0.5 " I $$7 S PSSQVJ2=$E(PSSQVLCD,5,$L(PSSQVLCD)) I $$6 Q .5
S PSSQVJ1=$E(PSSQVLCD,1,4) I PSSQVJ1="1/2 " I $$7 S PSSQVJ2=$E(PSSQVLCD,5,$L(PSSQVLCD)) I $$6 Q .5
S PSSQVJ1=$E(PSSQVLCD,1,9) I PSSQVJ1="ONE HALF " I $$7 S PSSQVJ2=$E(PSSQVLCD,10,$L(PSSQVLCD)) I $$6 Q .5
S PSSQVJ1=$E(PSSQVLCD,1,9) I PSSQVJ1="ONE-HALF " I $$7 S PSSQVJ2=$E(PSSQVLCD,10,$L(PSSQVLCD)) I $$6 Q .5
;
S PSSQVJ1=$E(PSSQVLCD,1,5) I PSSQVJ1="0.33 " I $$7 S PSSQVJ2=$E(PSSQVLCD,6,$L(PSSQVLCD)) I $$6 Q .33
S PSSQVJ1=$E(PSSQVLCD,1,4) I PSSQVJ1="1/3 " I $$7 S PSSQVJ2=$E(PSSQVLCD,5,$L(PSSQVLCD)) I $$6 Q .33
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="ONE THIRD " I $$7 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) I $$6 Q .33
S PSSQVJ1=$E(PSSQVLCD,1,10) I PSSQVJ1="ONE-THIRD " I $$7 S PSSQVJ2=$E(PSSQVLCD,11,$L(PSSQVLCD)) I $$6 Q .33
;
S PSSQVJ1=$E(PSSQVLCD,1,5) I PSSQVJ1="0.25 " I $$7 S PSSQVJ2=$E(PSSQVLCD,6,$L(PSSQVLCD)) I $$6 Q .25
S PSSQVJ1=$E(PSSQVLCD,1,4) I PSSQVJ1="1/4 " I $$7 S PSSQVJ2=$E(PSSQVLCD,5,$L(PSSQVLCD)) I $$6 Q .25
S PSSQVJ1=$E(PSSQVLCD,1,11) I PSSQVJ1="ONE FOURTH " I $$7 S PSSQVJ2=$E(PSSQVLCD,12,$L(PSSQVLCD)) I $$6 Q .25
S PSSQVJ1=$E(PSSQVLCD,1,11) I PSSQVJ1="ONE-FOURTH " I $$7 S PSSQVJ2=$E(PSSQVLCD,12,$L(PSSQVLCD)) I $$6 Q .25
;
S PSSQVJ1=$E(PSSQVLCD,1,2) I PSSQVJ1="4 " I $$7 S PSSQVJ2=$E(PSSQVLCD,3,$L(PSSQVLCD)) I $$6,PSSQVJ2'["4",PSSQVJ2'["3",PSSQVJ2'["2",PSSQVJ2'["FOURTH",PSSQVJ2'["THIRD",PSSQVJ2'["HALF" Q 4
S PSSQVJ1=$E(PSSQVLCD,1,5) I PSSQVJ1="FOUR " I $$7 S PSSQVJ2=$E(PSSQVLCD,6,$L(PSSQVLCD)) I $$6,PSSQVJ2'["4",PSSQVJ2'["3",PSSQVJ2'["2",PSSQVJ2'["FOURTH",PSSQVJ2'["THIRD",PSSQVJ2'["HALF" Q 4
;
S PSSQVJ1=$E(PSSQVLCD,1,2) I PSSQVJ1="3 " I $$7 S PSSQVJ2=$E(PSSQVLCD,3,$L(PSSQVLCD)) I $$6,PSSQVJ2'["4",PSSQVJ2'["3",PSSQVJ2'["2",PSSQVJ2'["FOURTH",PSSQVJ2'["THIRD",PSSQVJ2'["HALF" Q 3
S PSSQVJ1=$E(PSSQVLCD,1,6) I PSSQVJ1="THREE " I $$7 S PSSQVJ2=$E(PSSQVLCD,7,$L(PSSQVLCD)) I $$6,PSSQVJ2'["4",PSSQVJ2'["3",PSSQVJ2'["2",PSSQVJ2'["FOURTH",PSSQVJ2'["THIRD",PSSQVJ2'["HALF" Q 3
;
S PSSQVJ1=$E(PSSQVLCD,1,2) I PSSQVJ1="2 " I $$7 S PSSQVJ2=$E(PSSQVLCD,3,$L(PSSQVLCD)) I $$6,PSSQVJ2'["4",PSSQVJ2'["3",PSSQVJ2'["2",PSSQVJ2'["FOURTH",PSSQVJ2'["THIRD",PSSQVJ2'["HALF" Q 2
S PSSQVJ1=$E(PSSQVLCD,1,4) I PSSQVJ1="TWO " I $$7 S PSSQVJ2=$E(PSSQVLCD,5,$L(PSSQVLCD)) I $$6,PSSQVJ2'["4",PSSQVJ2'["3",PSSQVJ2'["2",PSSQVJ2'["FOURTH",PSSQVJ2'["THIRD",PSSQVJ2'["HALF" Q 2
;
S PSSQVJ1=$E(PSSQVLCD,1,2) I PSSQVJ1="1 " I $$7 S PSSQVJ2=$E(PSSQVLCD,3,$L(PSSQVLCD)) I $$6,PSSQVJ2'["4",PSSQVJ2'["3",PSSQVJ2'["2",PSSQVJ2'["FOURTH",PSSQVJ2'["THIRD",PSSQVJ2'["HALF" Q 1
S PSSQVJ1=$E(PSSQVLCD,1,4) I PSSQVJ1="ONE " I $$7 S PSSQVJ2=$E(PSSQVLCD,5,$L(PSSQVLCD)) I $$6,PSSQVJ2'["FOURTH",PSSQVJ2'["THIRD",PSSQVJ2'["HALF",PSSQVJ2'["4",PSSQVJ2'["3",PSSQVJ2'["2" Q 1
;
Q 0
;
;
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[HPSSDSPON 15853 printed Sep 15, 2024@21:55:30 Page 2
PSSDSPON ;BIR/RTR-Determine numeric dose multiplier for patch 129 install ;07/10/08
+1 ;;1.0;PHARMACY DATA MANAGEMENT;**129**;9/30/07;Build 67
+2 ;
+3 ;
NUM() ;Determine numeric dose multiplier from Local Possible Dosage
+1 ;
+2 NEW PSSQVJ1,PSSQVJ2
+3 KILL PSSQVJ1,PSSQVJ2
+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
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
IF $$6
QUIT 4.5
+8 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,18)
IF PSSQVJ1="FOUR AND ONE HALF "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,19,$LENGTH(PSSQVLCD))
IF $$6
QUIT 4.5
+9 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,18)
IF PSSQVJ1="FOUR AND ONE-HALF "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,19,$LENGTH(PSSQVLCD))
IF $$6
QUIT 4.5
+10 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,15)
IF PSSQVJ1="4 AND ONE HALF "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,16,$LENGTH(PSSQVLCD))
IF $$6
QUIT 4.5
+11 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,15)
IF PSSQVJ1="4 AND ONE-HALF "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,16,$LENGTH(PSSQVLCD))
IF $$6
QUIT 4.5
+12 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,13)
IF PSSQVJ1="FOUR AND 1/2 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,14,$LENGTH(PSSQVLCD))
IF $$6
QUIT 4.5
+13 ;
+14 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="3 AND 1/2 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
IF $$6
QUIT 3.5
+15 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,19)
IF PSSQVJ1="THREE AND ONE HALF "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,20,$LENGTH(PSSQVLCD))
IF $$6
QUIT 3.5
+16 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,19)
IF PSSQVJ1="THREE AND ONE-HALF "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,20,$LENGTH(PSSQVLCD))
IF $$6
QUIT 3.5
+17 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,15)
IF PSSQVJ1="3 AND ONE HALF "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,16,$LENGTH(PSSQVLCD))
IF $$6
QUIT 3.5
+18 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,15)
IF PSSQVJ1="3 AND ONE-HALF "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,16,$LENGTH(PSSQVLCD))
IF $$6
QUIT 3.5
+19 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,14)
IF PSSQVJ1="THREE AND 1/2 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,15,$LENGTH(PSSQVLCD))
IF $$6
QUIT 3.5
+20 ;
+21 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="2 AND 1/2 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
IF $$6
QUIT 2.5
+22 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,17)
IF PSSQVJ1="TWO AND ONE HALF "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,18,$LENGTH(PSSQVLCD))
IF $$6
QUIT 2.5
+23 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,17)
IF PSSQVJ1="TWO AND ONE-HALF "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,18,$LENGTH(PSSQVLCD))
IF $$6
QUIT 2.5
+24 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,15)
IF PSSQVJ1="2 AND ONE HALF "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,16,$LENGTH(PSSQVLCD))
IF $$6
QUIT 2.5
+25 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,15)
IF PSSQVJ1="2 AND ONE-HALF "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,16,$LENGTH(PSSQVLCD))
IF $$6
QUIT 2.5
+26 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,12)
IF PSSQVJ1="TWO AND 1/2 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,13,$LENGTH(PSSQVLCD))
IF $$6
QUIT 2.5
+27 ;
+28 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="1 AND 1/2 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1.5
+29 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,17)
IF PSSQVJ1="ONE AND ONE HALF "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,18,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1.5
+30 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,17)
IF PSSQVJ1="ONE AND ONE-HALF "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,18,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1.5
+31 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,15)
IF PSSQVJ1="1 AND ONE HALF "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,16,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1.5
+32 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,15)
IF PSSQVJ1="1 AND ONE-HALF "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,16,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1.5
+33 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,12)
IF PSSQVJ1="ONE AND 1/2 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,13,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1.5
+34 ;
+35 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="4 AND 1/4 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
IF $$6
QUIT 4.25
+36 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,20)
IF PSSQVJ1="FOUR AND ONE FOURTH "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,21,$LENGTH(PSSQVLCD))
IF $$6
QUIT 4.25
+37 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,20)
IF PSSQVJ1="FOUR AND ONE-FOURTH "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,21,$LENGTH(PSSQVLCD))
IF $$6
QUIT 4.25
+38 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,17)
IF PSSQVJ1="4 AND ONE FOURTH "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,18,$LENGTH(PSSQVLCD))
IF $$6
QUIT 4.25
+39 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,17)
IF PSSQVJ1="4 AND ONE-FOURTH "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,18,$LENGTH(PSSQVLCD))
IF $$6
QUIT 4.25
+40 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,13)
IF PSSQVJ1="FOUR AND 1/4 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,14,$LENGTH(PSSQVLCD))
IF $$6
QUIT 4.25
+41 ;
+42 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="3 AND 1/4 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
IF $$6
QUIT 3.25
+43 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,21)
IF PSSQVJ1="THREE AND ONE FOURTH "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,22,$LENGTH(PSSQVLCD))
IF $$6
QUIT 3.25
+44 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,21)
IF PSSQVJ1="THREE AND ONE-FOURTH "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,22,$LENGTH(PSSQVLCD))
IF $$6
QUIT 3.25
+45 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,17)
IF PSSQVJ1="3 AND ONE FOURTH "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,18,$LENGTH(PSSQVLCD))
IF $$6
QUIT 3.25
+46 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,17)
IF PSSQVJ1="3 AND ONE-FOURTH "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,18,$LENGTH(PSSQVLCD))
IF $$6
QUIT 3.25
+47 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,14)
IF PSSQVJ1="THREE AND 1/4 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,15,$LENGTH(PSSQVLCD))
IF $$6
QUIT 3.25
+48 ;
+49 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="2 AND 1/4 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
IF $$6
QUIT 2.25
+50 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,19)
IF PSSQVJ1="TWO AND ONE FOURTH "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,20,$LENGTH(PSSQVLCD))
IF $$6
QUIT 2.25
+51 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,19)
IF PSSQVJ1="TWO AND ONE-FOURTH "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,20,$LENGTH(PSSQVLCD))
IF $$6
QUIT 2.25
+52 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,17)
IF PSSQVJ1="2 AND ONE FOURTH "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,18,$LENGTH(PSSQVLCD))
IF $$6
QUIT 2.25
+53 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,17)
IF PSSQVJ1="2 AND ONE-FOURTH "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,18,$LENGTH(PSSQVLCD))
IF $$6
QUIT 2.25
+54 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,12)
IF PSSQVJ1="TWO AND 1/4 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,13,$LENGTH(PSSQVLCD))
IF $$6
QUIT 2.25
+55 ;
+56 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="1 AND 1/4 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1.25
+57 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,19)
IF PSSQVJ1="ONE AND ONE FOURTH "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,20,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1.25
+58 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,19)
IF PSSQVJ1="ONE AND ONE-FOURTH "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,20,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1.25
+59 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,17)
IF PSSQVJ1="1 AND ONE FOURTH "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,18,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1.25
+60 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,17)
IF PSSQVJ1="1 AND ONE-FOURTH "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,18,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1.25
+61 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,12)
IF PSSQVJ1="ONE AND 1/4 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,13,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1.25
+62 ;
+63 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="4 AND 1/3 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
IF $$6
QUIT 4.33
+64 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,19)
IF PSSQVJ1="FOUR AND ONE THIRD "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,20,$LENGTH(PSSQVLCD))
IF $$6
QUIT 4.33
+65 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,19)
IF PSSQVJ1="FOUR AND ONE-THIRD "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,20,$LENGTH(PSSQVLCD))
IF $$6
QUIT 4.33
+66 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,16)
IF PSSQVJ1="4 AND ONE THIRD "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,17,$LENGTH(PSSQVLCD))
IF $$6
QUIT 4.33
+67 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,16)
IF PSSQVJ1="4 AND ONE-THIRD "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,17,$LENGTH(PSSQVLCD))
IF $$6
QUIT 4.33
+68 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,13)
IF PSSQVJ1="FOUR AND 1/3 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,14,$LENGTH(PSSQVLCD))
IF $$6
QUIT 4.33
+69 ;
+70 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="3 AND 1/3 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
IF $$6
QUIT 3.33
+71 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,20)
IF PSSQVJ1="THREE AND ONE THIRD "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,21,$LENGTH(PSSQVLCD))
IF $$6
QUIT 3.33
+72 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,20)
IF PSSQVJ1="THREE AND ONE-THIRD "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,21,$LENGTH(PSSQVLCD))
IF $$6
QUIT 3.33
+73 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,16)
IF PSSQVJ1="3 AND ONE THIRD "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,17,$LENGTH(PSSQVLCD))
IF $$6
QUIT 3.33
+74 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,16)
IF PSSQVJ1="3 AND ONE-THIRD "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,17,$LENGTH(PSSQVLCD))
IF $$6
QUIT 3.33
+75 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,14)
IF PSSQVJ1="THREE AND 1/3 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,15,$LENGTH(PSSQVLCD))
IF $$6
QUIT 3.33
+76 ;
+77 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="2 AND 1/3 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
IF $$6
QUIT 2.33
+78 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,18)
IF PSSQVJ1="TWO AND ONE THIRD "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,19,$LENGTH(PSSQVLCD))
IF $$6
QUIT 2.33
+79 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,18)
IF PSSQVJ1="TWO AND ONE-THIRD "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,19,$LENGTH(PSSQVLCD))
IF $$6
QUIT 2.33
+80 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,16)
IF PSSQVJ1="2 AND ONE THIRD "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,17,$LENGTH(PSSQVLCD))
IF $$6
QUIT 2.33
+81 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,16)
IF PSSQVJ1="2 AND ONE-THIRD "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,17,$LENGTH(PSSQVLCD))
IF $$6
QUIT 2.33
+82 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,12)
IF PSSQVJ1="TWO AND 1/3 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,13,$LENGTH(PSSQVLCD))
IF $$6
QUIT 2.33
+83 ;
+84 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="1 AND 1/3 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1.33
+85 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,18)
IF PSSQVJ1="ONE AND ONE THIRD "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,19,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1.33
+86 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,18)
IF PSSQVJ1="ONE AND ONE-THIRD "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,19,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1.33
+87 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,16)
IF PSSQVJ1="1 AND ONE THIRD "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,17,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1.33
+88 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,16)
IF PSSQVJ1="1 AND ONE-THIRD "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,17,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1.33
+89 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,12)
IF PSSQVJ1="ONE AND 1/3 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,13,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1.33
+90 ;
+91 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,6)
IF PSSQVJ1="0.5-1 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,7,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1
+92 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,8)
IF PSSQVJ1="0.5 - 1 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,9,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1
+93 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,9)
IF PSSQVJ1="0.5 TO 1 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,10,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1
+94 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,9)
IF PSSQVJ1="0.5 OR 1 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,10,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1
+95 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,6)
IF PSSQVJ1="1/2-1 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,7,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1
+96 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,8)
IF PSSQVJ1="1/2 - 1 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,9,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1
+97 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,9)
IF PSSQVJ1="1/2 TO 1 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,10,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1
+98 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,9)
IF PSSQVJ1="1/2 OR 1 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,10,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1
+99 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,16)
IF PSSQVJ1="ONE-HALF TO ONE "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,17,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1
+100 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,18)
IF PSSQVJ1="ONE - HALF TO ONE "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,19,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1
+101 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,16)
IF PSSQVJ1="ONE HALF TO ONE "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,17,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1
+102 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,16)
IF PSSQVJ1="ONE-HALF OR ONE "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,17,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1
+103 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,18)
IF PSSQVJ1="ONE - HALF OR ONE "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,19,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1
+104 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,16)
IF PSSQVJ1="ONE HALF OR ONE "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,17,$LENGTH(PSSQVLCD))
IF $$6
QUIT 1
+105 ;
+106 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,4)
IF PSSQVJ1="1-2 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,5,$LENGTH(PSSQVLCD))
IF $$6
QUIT 2
+107 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,6)
IF PSSQVJ1="1 - 2 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,7,$LENGTH(PSSQVLCD))
IF $$6
QUIT 2
+108 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,7)
IF PSSQVJ1="1 TO 2 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,8,$LENGTH(PSSQVLCD))
IF $$6
QUIT 2
+109 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,7)
IF PSSQVJ1="1 OR 2 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,8,$LENGTH(PSSQVLCD))
IF $$6
QUIT 2
+110 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,11)
IF PSSQVJ1="ONE TO TWO "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,12,$LENGTH(PSSQVLCD))
IF $$6
QUIT 2
+111 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,11)
IF PSSQVJ1="ONE OR TWO "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,12,$LENGTH(PSSQVLCD))
IF $$6
QUIT 2
+112 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,8)
IF PSSQVJ1="ONE-TWO "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,9,$LENGTH(PSSQVLCD))
IF $$6
QUIT 2
+113 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="ONE - TWO "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
IF $$6
QUIT 2
+114 ;
+115 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,4)
IF PSSQVJ1="2-3 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,5,$LENGTH(PSSQVLCD))
IF $$6
QUIT 3
+116 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,6)
IF PSSQVJ1="2 - 3 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,7,$LENGTH(PSSQVLCD))
IF $$6
QUIT 3
+117 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,7)
IF PSSQVJ1="2 TO 3 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,8,$LENGTH(PSSQVLCD))
IF $$6
QUIT 3
+118 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,7)
IF PSSQVJ1="2 OR 3 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,8,$LENGTH(PSSQVLCD))
IF $$6
QUIT 3
+119 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,13)
IF PSSQVJ1="TWO TO THREE "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,14,$LENGTH(PSSQVLCD))
IF $$6
QUIT 3
+120 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,13)
IF PSSQVJ1="TWO OR THREE "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,14,$LENGTH(PSSQVLCD))
IF $$6
QUIT 3
+121 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="TWO-THREE "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
IF $$6
QUIT 3
+122 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,12)
IF PSSQVJ1="TWO - THREE "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,13,$LENGTH(PSSQVLCD))
IF $$6
QUIT 3
+123 ;
+124 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,4)
IF PSSQVJ1="3-4 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,5,$LENGTH(PSSQVLCD))
IF $$6
QUIT 4
+125 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,6)
IF PSSQVJ1="3 - 4 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,7,$LENGTH(PSSQVLCD))
IF $$6
QUIT 4
+126 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,7)
IF PSSQVJ1="3 TO 4 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,8,$LENGTH(PSSQVLCD))
IF $$6
QUIT 4
+127 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,7)
IF PSSQVJ1="3 OR 4 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,8,$LENGTH(PSSQVLCD))
IF $$6
QUIT 4
+128 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,14)
IF PSSQVJ1="THREE TO FOUR "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,15,$LENGTH(PSSQVLCD))
IF $$6
QUIT 4
+129 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,14)
IF PSSQVJ1="THREE OR FOUR "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,15,$LENGTH(PSSQVLCD))
IF $$6
QUIT 4
+130 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,11)
IF PSSQVJ1="THREE-FOUR "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,12,$LENGTH(PSSQVLCD))
IF $$6
QUIT 4
+131 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,13)
IF PSSQVJ1="THREE - FOUR "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,14,$LENGTH(PSSQVLCD))
IF $$6
QUIT 4
+132 ;
+133 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,4)
IF PSSQVJ1="0.5 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,5,$LENGTH(PSSQVLCD))
IF $$6
QUIT .5
+134 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,4)
IF PSSQVJ1="1/2 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,5,$LENGTH(PSSQVLCD))
IF $$6
QUIT .5
+135 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,9)
IF PSSQVJ1="ONE HALF "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,10,$LENGTH(PSSQVLCD))
IF $$6
QUIT .5
+136 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,9)
IF PSSQVJ1="ONE-HALF "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,10,$LENGTH(PSSQVLCD))
IF $$6
QUIT .5
+137 ;
+138 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,5)
IF PSSQVJ1="0.33 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,6,$LENGTH(PSSQVLCD))
IF $$6
QUIT .33
+139 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,4)
IF PSSQVJ1="1/3 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,5,$LENGTH(PSSQVLCD))
IF $$6
QUIT .33
+140 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="ONE THIRD "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
IF $$6
QUIT .33
+141 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,10)
IF PSSQVJ1="ONE-THIRD "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,11,$LENGTH(PSSQVLCD))
IF $$6
QUIT .33
+142 ;
+143 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,5)
IF PSSQVJ1="0.25 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,6,$LENGTH(PSSQVLCD))
IF $$6
QUIT .25
+144 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,4)
IF PSSQVJ1="1/4 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,5,$LENGTH(PSSQVLCD))
IF $$6
QUIT .25
+145 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,11)
IF PSSQVJ1="ONE FOURTH "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,12,$LENGTH(PSSQVLCD))
IF $$6
QUIT .25
+146 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,11)
IF PSSQVJ1="ONE-FOURTH "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,12,$LENGTH(PSSQVLCD))
IF $$6
QUIT .25
+147 ;
+148 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,2)
IF PSSQVJ1="4 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,3,$LENGTH(PSSQVLCD))
IF $$6
IF PSSQVJ2'["4"
IF PSSQVJ2'["3"
IF PSSQVJ2'["2"
IF PSSQVJ2'["FOURTH"
IF PSSQVJ2'["THIRD"
IF PSSQVJ2'["HALF"
QUIT 4
+149 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,5)
IF PSSQVJ1="FOUR "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,6,$LENGTH(PSSQVLCD))
IF $$6
IF PSSQVJ2'["4"
IF PSSQVJ2'["3"
IF PSSQVJ2'["2"
IF PSSQVJ2'["FOURTH"
IF PSSQVJ2'["THIRD"
IF PSSQVJ2'["HALF"
QUIT 4
+150 ;
+151 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,2)
IF PSSQVJ1="3 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,3,$LENGTH(PSSQVLCD))
IF $$6
IF PSSQVJ2'["4"
IF PSSQVJ2'["3"
IF PSSQVJ2'["2"
IF PSSQVJ2'["FOURTH"
IF PSSQVJ2'["THIRD"
IF PSSQVJ2'["HALF"
QUIT 3
+152 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,6)
IF PSSQVJ1="THREE "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,7,$LENGTH(PSSQVLCD))
IF $$6
IF PSSQVJ2'["4"
IF PSSQVJ2'["3"
IF PSSQVJ2'["2"
IF PSSQVJ2'["FOURTH"
IF PSSQVJ2'["THIRD"
IF PSSQVJ2'["HALF"
QUIT 3
+153 ;
+154 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,2)
IF PSSQVJ1="2 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,3,$LENGTH(PSSQVLCD))
IF $$6
IF PSSQVJ2'["4"
IF PSSQVJ2'["3"
IF PSSQVJ2'["2"
IF PSSQVJ2'["FOURTH"
IF PSSQVJ2'["THIRD"
IF PSSQVJ2'["HALF"
QUIT 2
+155 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,4)
IF PSSQVJ1="TWO "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,5,$LENGTH(PSSQVLCD))
IF $$6
IF PSSQVJ2'["4"
IF PSSQVJ2'["3"
IF PSSQVJ2'["2"
IF PSSQVJ2'["FOURTH"
IF PSSQVJ2'["THIRD"
IF PSSQVJ2'["HALF"
QUIT 2
+156 ;
+157 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,2)
IF PSSQVJ1="1 "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,3,$LENGTH(PSSQVLCD))
IF $$6
IF PSSQVJ2'["4"
IF PSSQVJ2'["3"
IF PSSQVJ2'["2"
IF PSSQVJ2'["FOURTH"
IF PSSQVJ2'["THIRD"
IF PSSQVJ2'["HALF"
QUIT 1
+158 SET PSSQVJ1=$EXTRACT(PSSQVLCD,1,4)
IF PSSQVJ1="ONE "
IF $$7
SET PSSQVJ2=$EXTRACT(PSSQVLCD,5,$LENGTH(PSSQVLCD))
IF $$6
IF PSSQVJ2'["FOURTH"
IF PSSQVJ2'["THIRD"
IF PSSQVJ2'["HALF"
IF PSSQVJ2'["4"
IF PSSQVJ2'["3"
IF PSSQVJ2'["2"
QUIT 1
+159 ;
+160 QUIT 0
+161 ;
+162 ;
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