PSSDSBPD.m

PSSDSBPD ;BIR/MJE-Determine numeric dose multiplier for dose call, continued ;10/14/10

 ;;1.0;PHARMACY DATA MANAGEMENT;**117,160**;9/30/97;Build 76

 ;

NUMC() ;Continuation of Free Text Dosage conversion from routine PSSDSAPL

 ;

 S PSSDBV1=$E(PSSDBV9,1,4) I PSSDBV1="7-8 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,5,$L(PSSDBV9)) Q $S($$8:8,1:0)

 S PSSDBV1=$E(PSSDBV9,1,6) I PSSDBV1="7 - 8 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,7,$L(PSSDBV9)) Q $S($$8:8,1:0)

 S PSSDBV1=$E(PSSDBV9,1,7) I PSSDBV1="7 TO 8 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,8,$L(PSSDBV9)) Q $S($$8:8,1:0)

 S PSSDBV1=$E(PSSDBV9,1,7) I PSSDBV1="7 OR 8 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,8,$L(PSSDBV9)) Q $S($$8:8,1:0)

 S PSSDBV1=$E(PSSDBV9,1,15) I PSSDBV1="SEVEN TO EIGHT " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,16,$L(PSSDBV9)) Q $S($$8:8,1:0)

 S PSSDBV1=$E(PSSDBV9,1,15) I PSSDBV1="SEVEN OR EIGHT " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,16,$L(PSSDBV9)) Q $S($$8:8,1:0)

 S PSSDBV1=$E(PSSDBV9,1,12) I PSSDBV1="SEVEN-EIGHT " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,13,$L(PSSDBV9)) Q $S($$8:8,1:0)

 S PSSDBV1=$E(PSSDBV9,1,14) I PSSDBV1="SEVEN - EIGHT " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,15,$L(PSSDBV9)) Q $S($$8:8,1:0)

 ;

 S PSSDBV1=$E(PSSDBV9,1,2) I PSSDBV1="8 ",$$4 S PSSDBV2=$E(PSSDBV9,3,$L(PSSDBV9)) I $$8 Q 8

 S PSSDBV1=$E(PSSDBV9,1,6) I PSSDBV1="EIGHT ",$$4 S PSSDBV2=$E(PSSDBV9,7,$L(PSSDBV9)) I $$8 Q 8

 ;

 S PSSDBV1=$E(PSSDBV9,1,10) I PSSDBV1="8 AND 1/4 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,11,$L(PSSDBV9)) Q $S($$8:8.25,1:0)

 S PSSDBV1=$E(PSSDBV9,1,21) I PSSDBV1="EIGHT AND ONE FOURTH " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,22,$L(PSSDBV9)) Q $S($$8:8.25,1:0)

 S PSSDBV1=$E(PSSDBV9,1,21) I PSSDBV1="EIGHT AND ONE-FOURTH " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,22,$L(PSSDBV9)) Q $S($$8:8.25,1:0)

 S PSSDBV1=$E(PSSDBV9,1,17) I PSSDBV1="8 AND ONE FOURTH " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,18,$L(PSSDBV9)) Q $S($$8:8.25,1:0)

 S PSSDBV1=$E(PSSDBV9,1,17) I PSSDBV1="8 AND ONE-FOURTH " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,18,$L(PSSDBV9)) Q $S($$8:8.25,1:0)

 S PSSDBV1=$E(PSSDBV9,1,14) I PSSDBV1="EIGHT AND 1/4 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,15,$L(PSSDBV9)) Q $S($$8:8.25,1:0)

 ;

 S PSSDBV1=$E(PSSDBV9,1,10) I PSSDBV1="8 AND 1/3 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,11,$L(PSSDBV9)) Q $S($$8:8.33,1:0)

 S PSSDBV1=$E(PSSDBV9,1,20) I PSSDBV1="EIGHT AND ONE THIRD " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,21,$L(PSSDBV9)) Q $S($$8:8.33,1:0)

 S PSSDBV1=$E(PSSDBV9,1,20) I PSSDBV1="EIGHT AND ONE-THIRD " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,21,$L(PSSDBV9)) Q $S($$8:8.33,1:0)

 S PSSDBV1=$E(PSSDBV9,1,16) I PSSDBV1="8 AND ONE THIRD " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,17,$L(PSSDBV9)) Q $S($$8:8.33,1:0)

 S PSSDBV1=$E(PSSDBV9,1,16) I PSSDBV1="8 AND ONE-THIRD " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,17,$L(PSSDBV9)) Q $S($$8:8.33,1:0)

 S PSSDBV1=$E(PSSDBV9,1,14) I PSSDBV1="EIGHT AND 1/3 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,15,$L(PSSDBV9)) Q $S($$8:8.33,1:0)

 ;

 S PSSDBV1=$E(PSSDBV9,1,10) I PSSDBV1="8 AND 1/2 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,11,$L(PSSDBV9)) Q $S($$8:8.5,1:0)

 S PSSDBV1=$E(PSSDBV9,1,19) I PSSDBV1="EIGHT AND ONE HALF " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,20,$L(PSSDBV9)) Q $S($$8:8.5,1:0)

 S PSSDBV1=$E(PSSDBV9,1,19) I PSSDBV1="EIGHT AND ONE-HALF " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,20,$L(PSSDBV9)) Q $S($$8:8.5,1:0)

 S PSSDBV1=$E(PSSDBV9,1,15) I PSSDBV1="8 AND ONE HALF " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,16,$L(PSSDBV9)) Q $S($$8:8.5,1:0)

 S PSSDBV1=$E(PSSDBV9,1,15) I PSSDBV1="8 AND ONE-HALF " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,16,$L(PSSDBV9)) Q $S($$8:8.5,1:0)

 S PSSDBV1=$E(PSSDBV9,1,14) I PSSDBV1="EIGHT AND 1/2 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,15,$L(PSSDBV9)) Q $S($$8:8.5,1:0)

 ;

 S PSSDBV1=$E(PSSDBV9,1,4) I PSSDBV1="8-9 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,5,$L(PSSDBV9)) Q $S($$8:9,1:0)

 S PSSDBV1=$E(PSSDBV9,1,6) I PSSDBV1="8 - 9 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,7,$L(PSSDBV9)) Q $S($$8:9,1:0)

 S PSSDBV1=$E(PSSDBV9,1,7) I PSSDBV1="8 TO 9 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,8,$L(PSSDBV9)) Q $S($$8:9,1:0)

 S PSSDBV1=$E(PSSDBV9,1,7) I PSSDBV1="8 OR 9 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,8,$L(PSSDBV9)) Q $S($$8:9,1:0)

 S PSSDBV1=$E(PSSDBV9,1,14) I PSSDBV1="EIGHT TO NINE " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,15,$L(PSSDBV9)) Q $S($$8:9,1:0)

 S PSSDBV1=$E(PSSDBV9,1,14) I PSSDBV1="EIGHT OR NINE " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,15,$L(PSSDBV9)) Q $S($$8:9,1:0)

 S PSSDBV1=$E(PSSDBV9,1,11) I PSSDBV1="EIGHT-NINE " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,12,$L(PSSDBV9)) Q $S($$8:9,1:0)

 S PSSDBV1=$E(PSSDBV9,1,13) I PSSDBV1="EIGHT - NINE " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,14,$L(PSSDBV9)) Q $S($$8:9,1:0)

 ;

 S PSSDBV1=$E(PSSDBV9,1,2) I PSSDBV1="9 ",$$4 S PSSDBV2=$E(PSSDBV9,3,$L(PSSDBV9)) I $$8 Q 9

 S PSSDBV1=$E(PSSDBV9,1,5) I PSSDBV1="NINE ",$$4 S PSSDBV2=$E(PSSDBV9,6,$L(PSSDBV9)) I $$8 Q 9

 ;

 S PSSDBV1=$E(PSSDBV9,1,10) I PSSDBV1="9 AND 1/4 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,11,$L(PSSDBV9)) Q $S($$8:9.25,1:0)

 S PSSDBV1=$E(PSSDBV9,1,20) I PSSDBV1="NINE AND ONE FOURTH " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,21,$L(PSSDBV9)) Q $S($$8:9.25,1:0)

 S PSSDBV1=$E(PSSDBV9,1,20) I PSSDBV1="NINE AND ONE-FOURTH " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,21,$L(PSSDBV9)) Q $S($$8:9.25,1:0)

 S PSSDBV1=$E(PSSDBV9,1,17) I PSSDBV1="9 AND ONE FOURTH " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,18,$L(PSSDBV9)) Q $S($$8:9.25,1:0)

 S PSSDBV1=$E(PSSDBV9,1,17) I PSSDBV1="9 AND ONE-FOURTH " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,18,$L(PSSDBV9)) Q $S($$8:9.25,1:0)

 S PSSDBV1=$E(PSSDBV9,1,13) I PSSDBV1="NINE AND 1/4 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,14,$L(PSSDBV9)) Q $S($$8:9.25,1:0)

 ;

 S PSSDBV1=$E(PSSDBV9,1,10) I PSSDBV1="9 AND 1/3 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,11,$L(PSSDBV9)) Q $S($$8:9.33,1:0)

 S PSSDBV1=$E(PSSDBV9,1,19) I PSSDBV1="NINE AND ONE THIRD " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,20,$L(PSSDBV9)) Q $S($$8:9.33,1:0)

 S PSSDBV1=$E(PSSDBV9,1,19) I PSSDBV1="NINE AND ONE-THIRD " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,20,$L(PSSDBV9)) Q $S($$8:9.33,1:0)

 S PSSDBV1=$E(PSSDBV9,1,16) I PSSDBV1="9 AND ONE THIRD " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,17,$L(PSSDBV9)) Q $S($$8:9.33,1:0)

 S PSSDBV1=$E(PSSDBV9,1,16) I PSSDBV1="9 AND ONE-THIRD " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,17,$L(PSSDBV9)) Q $S($$8:9.33,1:0)

 S PSSDBV1=$E(PSSDBV9,1,13) I PSSDBV1="NINE AND 1/3 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,14,$L(PSSDBV9)) Q $S($$8:9.33,1:0)

 ;

 S PSSDBV1=$E(PSSDBV9,1,10) I PSSDBV1="9 AND 1/2 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,11,$L(PSSDBV9)) Q $S($$8:9.5,1:0)

 S PSSDBV1=$E(PSSDBV9,1,18) I PSSDBV1="NINE AND ONE HALF " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,19,$L(PSSDBV9)) Q $S($$8:9.5,1:0)

 S PSSDBV1=$E(PSSDBV9,1,18) I PSSDBV1="NINE AND ONE-HALF " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,19,$L(PSSDBV9)) Q $S($$8:9.5,1:0)

 S PSSDBV1=$E(PSSDBV9,1,15) I PSSDBV1="9 AND ONE HALF " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,16,$L(PSSDBV9)) Q $S($$8:9.5,1:0)

 S PSSDBV1=$E(PSSDBV9,1,15) I PSSDBV1="9 AND ONE-HALF " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,16,$L(PSSDBV9)) Q $S($$8:9.5,1:0)

 S PSSDBV1=$E(PSSDBV9,1,13) I PSSDBV1="NINE AND 1/2 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,14,$L(PSSDBV9)) Q $S($$8:9.5,1:0)

 ;

 S PSSDBV1=$E(PSSDBV9,1,5) I PSSDBV1="9-10 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,6,$L(PSSDBV9)) Q $S($$8:10,1:0)

 S PSSDBV1=$E(PSSDBV9,1,7) I PSSDBV1="9 - 10 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,8,$L(PSSDBV9)) Q $S($$8:10,1:0)

 S PSSDBV1=$E(PSSDBV9,1,8) I PSSDBV1="9 TO 10 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,9,$L(PSSDBV9)) Q $S($$8:10,1:0)

 S PSSDBV1=$E(PSSDBV9,1,8) I PSSDBV1="9 OR 10 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,9,$L(PSSDBV9)) Q $S($$8:10,1:0)

 S PSSDBV1=$E(PSSDBV9,1,12) I PSSDBV1="NINE TO TEN " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,13,$L(PSSDBV9)) Q $S($$8:10,1:0)

 S PSSDBV1=$E(PSSDBV9,1,12) I PSSDBV1="NINE OR TEN " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,13,$L(PSSDBV9)) Q $S($$8:10,1:0)

 S PSSDBV1=$E(PSSDBV9,1,9) I PSSDBV1="NINE-TEN " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,10,$L(PSSDBV9)) Q $S($$8:10,1:0)

 S PSSDBV1=$E(PSSDBV9,1,11) I PSSDBV1="NINE - TEN " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,12,$L(PSSDBV9)) Q $S($$8:10,1:0)

 ;

 S PSSDBV1=$E(PSSDBV9,1,3) I PSSDBV1="10 ",$$4 S PSSDBV2=$E(PSSDBV9,4,$L(PSSDBV9)) I $$8 Q 10

 S PSSDBV1=$E(PSSDBV9,1,4) I PSSDBV1="TEN ",$$4 S PSSDBV2=$E(PSSDBV9,5,$L(PSSDBV9)) I $$8 Q 10

 ;

 S PSSDBV1=$E(PSSDBV9,1,11) I PSSDBV1="10 AND 1/4 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,12,$L(PSSDBV9)) Q $S($$8:10.25,1:0)

 S PSSDBV1=$E(PSSDBV9,1,19) I PSSDBV1="TEN AND ONE FOURTH " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,20,$L(PSSDBV9)) Q $S($$8:10.25,1:0)

 S PSSDBV1=$E(PSSDBV9,1,19) I PSSDBV1="TEN AND ONE-FOURTH " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,20,$L(PSSDBV9)) Q $S($$8:10.25,1:0)

 S PSSDBV1=$E(PSSDBV9,1,18) I PSSDBV1="10 AND ONE FOURTH " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,19,$L(PSSDBV9)) Q $S($$8:10.25,1:0)

 S PSSDBV1=$E(PSSDBV9,1,18) I PSSDBV1="10 AND ONE-FOURTH " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,19,$L(PSSDBV9)) Q $S($$8:10.25,1:0)

 S PSSDBV1=$E(PSSDBV9,1,12) I PSSDBV1="TEN AND 1/4 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,13,$L(PSSDBV9)) Q $S($$8:10.25,1:0)

 ;

 S PSSDBV1=$E(PSSDBV9,1,11) I PSSDBV1="10 AND 1/3 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,12,$L(PSSDBV9)) Q $S($$8:10.33,1:0)

 S PSSDBV1=$E(PSSDBV9,1,18) I PSSDBV1="TEN AND ONE THIRD " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,19,$L(PSSDBV9)) Q $S($$8:10.33,1:0)

 S PSSDBV1=$E(PSSDBV9,1,18) I PSSDBV1="TEN AND ONE-THIRD " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,19,$L(PSSDBV9)) Q $S($$8:10.33,1:0)

 S PSSDBV1=$E(PSSDBV9,1,17) I PSSDBV1="10 AND ONE THIRD " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,18,$L(PSSDBV9)) Q $S($$8:10.33,1:0)

 S PSSDBV1=$E(PSSDBV9,1,17) I PSSDBV1="10 AND ONE-THIRD " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,18,$L(PSSDBV9)) Q $S($$8:10.33,1:0)

 S PSSDBV1=$E(PSSDBV9,1,12) I PSSDBV1="TEN AND 1/3 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,13,$L(PSSDBV9)) Q $S($$8:10.33,1:0)

 ;

 S PSSDBV1=$E(PSSDBV9,1,11) I PSSDBV1="10 AND 1/2 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,12,$L(PSSDBV9)) Q $S($$8:10.5,1:0)

 S PSSDBV1=$E(PSSDBV9,1,17) I PSSDBV1="TEN AND ONE HALF " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,18,$L(PSSDBV9)) Q $S($$8:10.5,1:0)

 S PSSDBV1=$E(PSSDBV9,1,17) I PSSDBV1="TEN AND ONE-HALF " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,18,$L(PSSDBV9)) Q $S($$8:10.5,1:0)

 S PSSDBV1=$E(PSSDBV9,1,16) I PSSDBV1="10 AND ONE HALF " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,17,$L(PSSDBV9)) Q $S($$8:10.5,1:0)

 S PSSDBV1=$E(PSSDBV9,1,16) I PSSDBV1="10 AND ONE-HALF " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,17,$L(PSSDBV9)) Q $S($$8:10.5,1:0)

 S PSSDBV1=$E(PSSDBV9,1,12) I PSSDBV1="TEN AND 1/2 " Q:'$$4 0  S PSSDBV2=$E(PSSDBV9,13,$L(PSSDBV9)) Q $S($$8:10.5,1:0)

 ;

 Q ""

 ;

8() ;Look for Unit - PSSDBIFL set in PSSSAPD, indicates if Order has a Dispense Drug, or just an Orderable Item

 S PSSDBV3="" D

 .I PSSDBIFL S PSSDBV3=$$UNITD^PSSDSAPI(PSSDBV2) Q

 .S PSSDBV3=$$UNIT^PSSDSAPI(PSSDBV2)

 Q $S(PSSDBV3="":0,1:1)

 ;

4() ;Validate text follow the numeric part of the text

 I $L(PSSDBV9)'>$L(PSSDBV1) Q 0

 Q 1

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSSDSBPD   10627     printed  Mar 13, 2025@21:35:42                                                                                                                                                                                                   Page 2

PSSDSBPD  ;BIR/MJE-Determine numeric dose multiplier for dose call, continued ;10/14/10

 +1       ;;1.0;PHARMACY DATA MANAGEMENT;**117,160**;9/30/97;Build 76

 +2       ;

NUMC()    ;Continuation of Free Text Dosage conversion from routine PSSDSAPL

 +1       ;

 +2        SET PSSDBV1=$EXTRACT(PSSDBV9,1,4)

           IF PSSDBV1="7-8 "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,5,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:8,1:0)

 +3        SET PSSDBV1=$EXTRACT(PSSDBV9,1,6)

           IF PSSDBV1="7 - 8 "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,7,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:8,1:0)

 +4        SET PSSDBV1=$EXTRACT(PSSDBV9,1,7)

           IF PSSDBV1="7 TO 8 "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,8,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:8,1:0)

 +5        SET PSSDBV1=$EXTRACT(PSSDBV9,1,7)

           IF PSSDBV1="7 OR 8 "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,8,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:8,1:0)

 +6        SET PSSDBV1=$EXTRACT(PSSDBV9,1,15)

           IF PSSDBV1="SEVEN TO EIGHT "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,16,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:8,1:0)

 +7        SET PSSDBV1=$EXTRACT(PSSDBV9,1,15)

           IF PSSDBV1="SEVEN OR EIGHT "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,16,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:8,1:0)

 +8        SET PSSDBV1=$EXTRACT(PSSDBV9,1,12)

           IF PSSDBV1="SEVEN-EIGHT "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,13,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:8,1:0)

 +9        SET PSSDBV1=$EXTRACT(PSSDBV9,1,14)

           IF PSSDBV1="SEVEN - EIGHT "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,15,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:8,1:0)

 +10      ;

 +11       SET PSSDBV1=$EXTRACT(PSSDBV9,1,2)

           IF PSSDBV1="8 "

               IF $$4

                   SET PSSDBV2=$EXTRACT(PSSDBV9,3,$LENGTH(PSSDBV9))

                   IF $$8

                       QUIT 8

 +12       SET PSSDBV1=$EXTRACT(PSSDBV9,1,6)

           IF PSSDBV1="EIGHT "

               IF $$4

                   SET PSSDBV2=$EXTRACT(PSSDBV9,7,$LENGTH(PSSDBV9))

                   IF $$8

                       QUIT 8

 +13      ;

 +14       SET PSSDBV1=$EXTRACT(PSSDBV9,1,10)

           IF PSSDBV1="8 AND 1/4 "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,11,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:8.25,1:0)

 +15       SET PSSDBV1=$EXTRACT(PSSDBV9,1,21)

           IF PSSDBV1="EIGHT AND ONE FOURTH "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,22,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:8.25,1:0)

 +16       SET PSSDBV1=$EXTRACT(PSSDBV9,1,21)

           IF PSSDBV1="EIGHT AND ONE-FOURTH "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,22,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:8.25,1:0)

 +17       SET PSSDBV1=$EXTRACT(PSSDBV9,1,17)

           IF PSSDBV1="8 AND ONE FOURTH "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,18,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:8.25,1:0)

 +18       SET PSSDBV1=$EXTRACT(PSSDBV9,1,17)

           IF PSSDBV1="8 AND ONE-FOURTH "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,18,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:8.25,1:0)

 +19       SET PSSDBV1=$EXTRACT(PSSDBV9,1,14)

           IF PSSDBV1="EIGHT AND 1/4 "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,15,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:8.25,1:0)

 +20      ;

 +21       SET PSSDBV1=$EXTRACT(PSSDBV9,1,10)

           IF PSSDBV1="8 AND 1/3 "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,11,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:8.33,1:0)

 +22       SET PSSDBV1=$EXTRACT(PSSDBV9,1,20)

           IF PSSDBV1="EIGHT AND ONE THIRD "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,21,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:8.33,1:0)

 +23       SET PSSDBV1=$EXTRACT(PSSDBV9,1,20)

           IF PSSDBV1="EIGHT AND ONE-THIRD "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,21,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:8.33,1:0)

 +24       SET PSSDBV1=$EXTRACT(PSSDBV9,1,16)

           IF PSSDBV1="8 AND ONE THIRD "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,17,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:8.33,1:0)

 +25       SET PSSDBV1=$EXTRACT(PSSDBV9,1,16)

           IF PSSDBV1="8 AND ONE-THIRD "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,17,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:8.33,1:0)

 +26       SET PSSDBV1=$EXTRACT(PSSDBV9,1,14)

           IF PSSDBV1="EIGHT AND 1/3 "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,15,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:8.33,1:0)

 +27      ;

 +28       SET PSSDBV1=$EXTRACT(PSSDBV9,1,10)

           IF PSSDBV1="8 AND 1/2 "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,11,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:8.5,1:0)

 +29       SET PSSDBV1=$EXTRACT(PSSDBV9,1,19)

           IF PSSDBV1="EIGHT AND ONE HALF "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,20,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:8.5,1:0)

 +30       SET PSSDBV1=$EXTRACT(PSSDBV9,1,19)

           IF PSSDBV1="EIGHT AND ONE-HALF "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,20,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:8.5,1:0)

 +31       SET PSSDBV1=$EXTRACT(PSSDBV9,1,15)

           IF PSSDBV1="8 AND ONE HALF "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,16,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:8.5,1:0)

 +32       SET PSSDBV1=$EXTRACT(PSSDBV9,1,15)

           IF PSSDBV1="8 AND ONE-HALF "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,16,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:8.5,1:0)

 +33       SET PSSDBV1=$EXTRACT(PSSDBV9,1,14)

           IF PSSDBV1="EIGHT AND 1/2 "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,15,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:8.5,1:0)

 +34      ;

 +35       SET PSSDBV1=$EXTRACT(PSSDBV9,1,4)

           IF PSSDBV1="8-9 "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,5,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:9,1:0)

 +36       SET PSSDBV1=$EXTRACT(PSSDBV9,1,6)

           IF PSSDBV1="8 - 9 "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,7,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:9,1:0)

 +37       SET PSSDBV1=$EXTRACT(PSSDBV9,1,7)

           IF PSSDBV1="8 TO 9 "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,8,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:9,1:0)

 +38       SET PSSDBV1=$EXTRACT(PSSDBV9,1,7)

           IF PSSDBV1="8 OR 9 "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,8,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:9,1:0)

 +39       SET PSSDBV1=$EXTRACT(PSSDBV9,1,14)

           IF PSSDBV1="EIGHT TO NINE "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,15,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:9,1:0)

 +40       SET PSSDBV1=$EXTRACT(PSSDBV9,1,14)

           IF PSSDBV1="EIGHT OR NINE "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,15,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:9,1:0)

 +41       SET PSSDBV1=$EXTRACT(PSSDBV9,1,11)

           IF PSSDBV1="EIGHT-NINE "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,12,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:9,1:0)

 +42       SET PSSDBV1=$EXTRACT(PSSDBV9,1,13)

           IF PSSDBV1="EIGHT - NINE "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,14,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:9,1:0)

 +43      ;

 +44       SET PSSDBV1=$EXTRACT(PSSDBV9,1,2)

           IF PSSDBV1="9 "

               IF $$4

                   SET PSSDBV2=$EXTRACT(PSSDBV9,3,$LENGTH(PSSDBV9))

                   IF $$8

                       QUIT 9

 +45       SET PSSDBV1=$EXTRACT(PSSDBV9,1,5)

           IF PSSDBV1="NINE "

               IF $$4

                   SET PSSDBV2=$EXTRACT(PSSDBV9,6,$LENGTH(PSSDBV9))

                   IF $$8

                       QUIT 9

 +46      ;

 +47       SET PSSDBV1=$EXTRACT(PSSDBV9,1,10)

           IF PSSDBV1="9 AND 1/4 "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,11,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:9.25,1:0)

 +48       SET PSSDBV1=$EXTRACT(PSSDBV9,1,20)

           IF PSSDBV1="NINE AND ONE FOURTH "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,21,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:9.25,1:0)

 +49       SET PSSDBV1=$EXTRACT(PSSDBV9,1,20)

           IF PSSDBV1="NINE AND ONE-FOURTH "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,21,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:9.25,1:0)

 +50       SET PSSDBV1=$EXTRACT(PSSDBV9,1,17)

           IF PSSDBV1="9 AND ONE FOURTH "

               if '$$4

                   QUIT 0

               SET PSSDBV2=$EXTRACT(PSSDBV9,18,$LENGTH(PSSDBV9))

               QUIT $SELECT($$8:9.25,1:0)