VENKI01R.m

VENKI01R ; ; 16-MAR-2007

 ;;2.6;PCC+;;NOV 12, 2007

 Q:'DIFQR(19707.12)  F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y

Q Q

 ;;^UTILITY(U,$J,19707.12,4207,0)

 ;;=36^Count 1 Block^wcdl1002^^1098^1128^^^^^1^35^36.0^37^^1

 ;;^UTILITY(U,$J,19707.12,4208,0)

 ;;=36^Count 1 Block^wcdl1003^^1128^1159^^^^^1^40^37.0^38^^1

 ;;^UTILITY(U,$J,19707.12,4209,0)

 ;;=36^Count 1 Block^wcdl1004^^1159^1189^^^^^1^50^38.0^39^^1

 ;;^UTILITY(U,$J,19707.12,4210,0)

 ;;=36^Count 1 Block^wcdl1005^^1189^1220^^^^^1^60^39.0^40^^1

 ;;^UTILITY(U,$J,19707.12,4211,0)

 ;;=36^Count 1 Block^wcdl1006^^1220^1250^^^^^1^65^40.0^41^^1

 ;;^UTILITY(U,$J,19707.12,4212,0)

 ;;=36^Count 1 Block^wcdl1007^^1250^1281^^^^^1^70^41.0^42^^1

 ;;^UTILITY(U,$J,19707.12,4213,0)

 ;;=36^Count 1 Block^wcdl1008^^1281^1311^^^^^1^75^42.0^43^^1

 ;;^UTILITY(U,$J,19707.12,4214,0)

 ;;=36^Count 1 Block^wcdl1009^^1311^1342^^^^^1^80^43.0^44^^1

 ;;^UTILITY(U,$J,19707.12,4215,0)

 ;;=36^Count 1 Block^wcdl1010^^1342^1372^^^^^1^80^44.0^45^^1

 ;;^UTILITY(U,$J,19707.12,4216,0)

 ;;=36^Count 1 Block^wcdl1011^^1372^1403^^^^^1^85^45.0^46^^1

 ;;^UTILITY(U,$J,19707.12,4217,0)

 ;;=36^Count 1 Block^wcdl1012^^1403^1433^^^^^1^85^46.0^47^^1

 ;;^UTILITY(U,$J,19707.12,4218,0)

 ;;=36^Count 1 Block^wcdl1013^^1433^1464^^^^^1^90^47.0^48^^1

 ;;^UTILITY(U,$J,19707.12,4219,0)

 ;;=36^Count 1 Block^wcdl1014^^1464^1494^^^^^1^100^48.0^49^^1

 ;;^UTILITY(U,$J,19707.12,4220,0)

 ;;=36^Count 5 Blocks^wcdl1015^^1525^1555^^^^^1^25^50.0^51^^1

 ;;^UTILITY(U,$J,19707.12,4221,0)

 ;;=36^Count 5 Blocks^wcdl1016^^1555^1586^^^^^1^30^51.0^52^^1

 ;;^UTILITY(U,$J,19707.12,4222,0)

 ;;=36^Count 5 Blocks^wcdl1017^^1586^1616^^^^^1^35^52.0^53^^1

 ;;^UTILITY(U,$J,19707.12,4223,0)

 ;;=36^Count 5 Blocks^wcdl1018^^1616^1647^^^^^1^40^53.0^54^^1

 ;;^UTILITY(U,$J,19707.12,4224,0)

 ;;=36^Count 5 Blocks^wcdl1019^^1647^1677^^^^^1^50^54.0^55^^1

 ;;^UTILITY(U,$J,19707.12,4225,0)

 ;;=36^Count 5 Blocks^wcdl1020^^1677^1708^^^^^1^55^55.0^56^^1

 ;;^UTILITY(U,$J,19707.12,4226,0)

 ;;=36^Count 5 Blocks^wcdl1021^^1708^1738^^^^^1^60^56.0^57^^1

 ;;^UTILITY(U,$J,19707.12,4227,0)

 ;;=36^Count 5 Blocks^wcdl1022^^1738^1769^^^^^0^65^57.0^58^^1

 ;;^UTILITY(U,$J,19707.12,4228,0)

 ;;=36^Count 5 Blocks^wcdl1023^^1769^1799^^^^^0^70^58.0^59^^1

 ;;^UTILITY(U,$J,19707.12,4229,0)

 ;;=36^Count 5 Blocks^wcdl1024^^1799^1830^^^^^0^75^59.0^60^^1

 ;;^UTILITY(U,$J,19707.12,4230,0)

 ;;=36^Count 5 Blocks^wcdl1025^^1830^1860^^^^^0^80^60.0^61^^1

 ;;^UTILITY(U,$J,19707.12,4231,0)

 ;;=36^Count 5 Blocks^wcdl1026^^1860^1891^^^^^0^80^61.0^62^^1

 ;;^UTILITY(U,$J,19707.12,4232,0)

 ;;=36^Count 5 Blocks^wcdl1027^^1891^1921^^^^^0^85^62.0^63^^1

 ;;^UTILITY(U,$J,19707.12,4233,0)

 ;;=36^Count 5 Blocks^wcdl1028^^1921^1952^^^^^0^85^63.0^64^^1

 ;;^UTILITY(U,$J,19707.12,4234,0)

 ;;=36^Count 5 Blocks^wcdl1029^^1952^1982^^^^^0^90^64.0^65^^1

 ;;^UTILITY(U,$J,19707.12,4235,0)

 ;;=36^Count 5 Blocks^wcdl1030^^1982^2013^^^^^1^100^65.0^66^^1

 ;;^UTILITY(U,$J,19707.12,4236,0)

 ;;=36^Count 5 Blocks^wcdl1031^^2013^2043^^^^^1^100^66.0^67^^1

 ;;^UTILITY(U,$J,19707.12,4237,0)

 ;;=36^Count 5 Blocks^wcdl1032^^2043^2074^^^^^1^100^67.0^68^^1

 ;;^UTILITY(U,$J,19707.12,4238,0)

 ;;=36^Count 5 Blocks^wcdl1033^^2074^2104^^^^^1^100^68.0^69^^1

 ;;^UTILITY(U,$J,19707.12,4239,0)

 ;;=36^Dada/Mama Non-Specific^wcdl1034^^183^198^^^^^0^35^6.0^6.5^^1

 ;;^UTILITY(U,$J,19707.12,4240,0)

 ;;=36^Dada/Mama Non-Specific^wcdl1035^^198^213^^^^^0^50^6.5^7^^1

 ;;^UTILITY(U,$J,19707.12,4241,0)

 ;;=36^Dada/Mama Non-Specific^wcdl1036^^213^228^^^^^0^70^7.0^7.5^^1

 ;;^UTILITY(U,$J,19707.12,4242,0)

 ;;=36^Dada/Mama Non-Specific^wcdl1037^^228^244^^^^^0^75^7.5^8^^1

 ;;^UTILITY(U,$J,19707.12,4243,0)

 ;;=36^Dada/Mama Non-Specific^wcdl1038^^244^259^^^^^0^80^8.0^8.5^^1

 ;;^UTILITY(U,$J,19707.12,4244,0)

 ;;=36^Dada/Mama Non-Specific^wcdl1039^^259^274^^^^^0^85^8.5^9^^1

 ;;^UTILITY(U,$J,19707.12,4245,0)

 ;;=36^Dada/Mama Non-Specific^wcdl1040^^274^289^^^^^0^90^9.0^9.5^^1

 ;;^UTILITY(U,$J,19707.12,4246,0)

 ;;=36^Dada/Mama Non-Specific^wcdl1041^^289^305^^^^^0^100^9.5^10^^1

 ;;^UTILITY(U,$J,19707.12,4247,0)

 ;;=36^Dada/Mama Non-Specific^wcdl1042^^305^320^^^^^0^100^10.0^10.5^^1

 ;;^UTILITY(U,$J,19707.12,4248,0)

 ;;=36^Dada/Mama Specific^wcdl1043^^198^213^^^^^0^25^6.5^7^^1

 ;;^UTILITY(U,$J,19707.12,4249,0)

 ;;=36^Dada/Mama Specific^wcdl1044^^213^228^^^^^0^30^7.0^7.5^^1

 ;;^UTILITY(U,$J,19707.12,4250,0)

 ;;=36^Dada/Mama Specific^wcdl1045^^228^244^^^^^0^30^7.5^8^^1

 ;;^UTILITY(U,$J,19707.12,4251,0)

 ;;=36^Dada/Mama Specific^wcdl1046^^244^259^^^^^0^35^8.0^8.5^^1

 ;;^UTILITY(U,$J,19707.12,4252,0)

 ;;=36^Dada/Mama Specific^wcdl1047^^259^274^^^^^0^40^8.5^9^^1

 ;;^UTILITY(U,$J,19707.12,4253,0)

 ;;=36^Dada/Mama Specific^wcdl1048^^274^289^^^^^0^45^9.0^9.5^^1

 ;;^UTILITY(U,$J,19707.12,4254,0)

 ;;=36^Dada/Mama Specific^wcdl1049^^289^305^^^^^0^50^9.5^10^^1

 ;;^UTILITY(U,$J,19707.12,4255,0)

 ;;=36^Dada/Mama Specific^wcdl1050^^305^320^^^^^0^60^10.0^10.5^^1

 ;;^UTILITY(U,$J,19707.12,4256,0)

 ;;=36^Dada/Mama Specific^wcdl1051^^320^335^^^^^0^70^10.5^11^^1

 ;;^UTILITY(U,$J,19707.12,4257,0)

 ;;=36^Dada/Mama Specific^wcdl1052^^335^350^^^^^0^75^11.0^11.5^^1

 ;;^UTILITY(U,$J,19707.12,4258,0)

 ;;=36^Dada/Mama Specific^wcdl1053^^350^366^^^^^0^80^11.5^12^^1

 ;;^UTILITY(U,$J,19707.12,4259,0)

 ;;=36^Dada/Mama Specific^wcdl1054^^366^381^^^^^0^80^12.0^12.5^^1

 ;;^UTILITY(U,$J,19707.12,4260,0)

 ;;=36^Dada/Mama Specific^wcdl1055^^381^396^^^^^0^85^12.5^13^^1

 ;;^UTILITY(U,$J,19707.12,4261,0)

 ;;=36^Dada/Mama Specific^wcdl1056^^396^411^^^^^0^85^13.0^13.5^^1

 ;;^UTILITY(U,$J,19707.12,4262,0)

 ;;=36^Dada/Mama Specific^wcdl1057^^411^427^^^^^0^90^13.5^14^^1

 ;;^UTILITY(U,$J,19707.12,4263,0)

 ;;=36^Dada/Mama Specific^wcdl1058^^427^442^^^^^0^100^14.0^14.5^^1

 ;;^UTILITY(U,$J,19707.12,4264,0)

 ;;=36^Dada/Mama Specific^wcdl1059^^442^457^^^^^0^100^14.5^15^^1

 ;;^UTILITY(U,$J,19707.12,4265,0)

 ;;=36^Dada/Mama Specific^wcdl1060^^457^472^^^^^0^100^15.0^15.5^^1

 ;;^UTILITY(U,$J,19707.12,4266,0)

 ;;=36^Define 5 Words^wcdl1061^^1189^1220^^^^^1^25^39.0^40^^1

 ;;^UTILITY(U,$J,19707.12,4267,0)

 ;;=36^Define 5 Words^wcdl1062^^1220^1250^^^^^1^30^40.0^41^^1

 ;;^UTILITY(U,$J,19707.12,4268,0)

 ;;=36^Define 5 Words^wcdl1063^^1250^1281^^^^^1^35^41.0^42^^1

 ;;^UTILITY(U,$J,19707.12,4269,0)

 ;;=36^Define 5 Words^wcdl1064^^1281^1311^^^^^1^40^42.0^43^^1

 ;;^UTILITY(U,$J,19707.12,4270,0)

 ;;=36^Define 5 Words^wcdl1065^^1311^1342^^^^^1^40^43.0^44^^1

 ;;^UTILITY(U,$J,19707.12,4271,0)

 ;;=36^Define 5 Words^wcdl1066^^1342^1372^^^^^1^45^44.0^45^^1

 ;;^UTILITY(U,$J,19707.12,4272,0)

 ;;=36^Define 5 Words^wcdl1067^^1372^1403^^^^^1^50^45.0^46^^1

 ;;^UTILITY(U,$J,19707.12,4273,0)

 ;;=36^Define 5 Words^wcdl1068^^1403^1433^^^^^1^55^46.0^47^^1

 ;;^UTILITY(U,$J,19707.12,4274,0)

 ;;=36^Define 5 Words^wcdl1069^^1433^1464^^^^^1^55^47.0^48^^1

 ;;^UTILITY(U,$J,19707.12,4275,0)

 ;;=36^Define 5 Words^wcdl1070^^1464^1494^^^^^1^60^48.0^49^^1

 ;;^UTILITY(U,$J,19707.12,4276,0)

 ;;=36^Define 5 Words^wcdl1071^^1494^1525^^^^^0^60^49.0^50^^1

 ;;^UTILITY(U,$J,19707.12,4277,0)

 ;;=36^Define 5 Words^wcdl1072^^1525^1555^^^^^0^65^50.0^51^^1

 ;;^UTILITY(U,$J,19707.12,4278,0)

 ;;=36^Define 5 Words^wcdl1073^^1555^1586^^^^^1^65^51.0^52^^1

 ;;^UTILITY(U,$J,19707.12,4279,0)

 ;;=36^Define 5 Words^wcdl1074^^1586^1616^^^^^0^70^52.0^53^^1

 ;;^UTILITY(U,$J,19707.12,4280,0)

 ;;=36^Define 5 Words^wcdl1075^^1616^1647^^^^^0^70^53.0^54^^1

 ;;^UTILITY(U,$J,19707.12,4281,0)

 ;;=36^Define 5 Words^wcdl1076^^1647^1677^^^^^0^75^54.0^55^^1

 ;;^UTILITY(U,$J,19707.12,4282,0)

 ;;=36^Define 5 Words^wcdl1077^^1677^1708^^^^^0^80^55.0^56^^1

 ;;^UTILITY(U,$J,19707.12,4283,0)

 ;;=36^Define 5 Words^wcdl1078^^1708^1738^^^^^0^80^56.0^57^^1

 ;;^UTILITY(U,$J,19707.12,4284,0)

 ;;=36^Define 5 Words^wcdl1079^^1738^1769^^^^^0^80^57.0^58^^1

 ;;^UTILITY(U,$J,19707.12,4285,0)

 ;;=36^Define 5 Words^wcdl1080^^1769^1799^^^^^0^80^58.0^59^^1

VENKI01R  ; ; 16-MAR-2007

 +1       ;;2.6;PCC+;;NOV 12, 2007

 +2        IF 'DIFQR(19707.12)

               QUIT 

           FOR I=1:2

               SET X=$TEXT(Q+I)

               IF X=""

                   QUIT 

               SET Y=$EXTRACT($TEXT(Q+I+1),4,999)

               SET X=$EXTRACT(X,4,999)

               IF $ASCII(Y)=126

                   SET I=I+1

                   SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)

               IF $ASCII(Y)=61

                   SET Y=$EXTRACT(Y,2,999)

               XECUTE NO

              IF '$TEST

                   SET @X=Y

Q          QUIT 

 +1       ;;^UTILITY(U,$J,19707.12,4207,0)

 +2       ;;=36^Count 1 Block^wcdl1002^^1098^1128^^^^^1^35^36.0^37^^1

 +3       ;;^UTILITY(U,$J,19707.12,4208,0)

 +4       ;;=36^Count 1 Block^wcdl1003^^1128^1159^^^^^1^40^37.0^38^^1

 +5       ;;^UTILITY(U,$J,19707.12,4209,0)

 +6       ;;=36^Count 1 Block^wcdl1004^^1159^1189^^^^^1^50^38.0^39^^1

 +7       ;;^UTILITY(U,$J,19707.12,4210,0)

 +8       ;;=36^Count 1 Block^wcdl1005^^1189^1220^^^^^1^60^39.0^40^^1

 +9       ;;^UTILITY(U,$J,19707.12,4211,0)

 +10      ;;=36^Count 1 Block^wcdl1006^^1220^1250^^^^^1^65^40.0^41^^1

 +11      ;;^UTILITY(U,$J,19707.12,4212,0)

 +12      ;;=36^Count 1 Block^wcdl1007^^1250^1281^^^^^1^70^41.0^42^^1

 +13      ;;^UTILITY(U,$J,19707.12,4213,0)

 +14      ;;=36^Count 1 Block^wcdl1008^^1281^1311^^^^^1^75^42.0^43^^1

 +15      ;;^UTILITY(U,$J,19707.12,4214,0)

 +16      ;;=36^Count 1 Block^wcdl1009^^1311^1342^^^^^1^80^43.0^44^^1

 +17      ;;^UTILITY(U,$J,19707.12,4215,0)

 +18      ;;=36^Count 1 Block^wcdl1010^^1342^1372^^^^^1^80^44.0^45^^1

 +19      ;;^UTILITY(U,$J,19707.12,4216,0)

 +20      ;;=36^Count 1 Block^wcdl1011^^1372^1403^^^^^1^85^45.0^46^^1

 +21      ;;^UTILITY(U,$J,19707.12,4217,0)

 +22      ;;=36^Count 1 Block^wcdl1012^^1403^1433^^^^^1^85^46.0^47^^1

 +23      ;;^UTILITY(U,$J,19707.12,4218,0)

 +24      ;;=36^Count 1 Block^wcdl1013^^1433^1464^^^^^1^90^47.0^48^^1

 +25      ;;^UTILITY(U,$J,19707.12,4219,0)

 +26      ;;=36^Count 1 Block^wcdl1014^^1464^1494^^^^^1^100^48.0^49^^1

 +27      ;;^UTILITY(U,$J,19707.12,4220,0)

 +28      ;;=36^Count 5 Blocks^wcdl1015^^1525^1555^^^^^1^25^50.0^51^^1

 +29      ;;^UTILITY(U,$J,19707.12,4221,0)

 +30      ;;=36^Count 5 Blocks^wcdl1016^^1555^1586^^^^^1^30^51.0^52^^1

 +31      ;;^UTILITY(U,$J,19707.12,4222,0)

 +32      ;;=36^Count 5 Blocks^wcdl1017^^1586^1616^^^^^1^35^52.0^53^^1

 +33      ;;^UTILITY(U,$J,19707.12,4223,0)

 +34      ;;=36^Count 5 Blocks^wcdl1018^^1616^1647^^^^^1^40^53.0^54^^1

 +35      ;;^UTILITY(U,$J,19707.12,4224,0)

 +36      ;;=36^Count 5 Blocks^wcdl1019^^1647^1677^^^^^1^50^54.0^55^^1

 +37      ;;^UTILITY(U,$J,19707.12,4225,0)

 +38      ;;=36^Count 5 Blocks^wcdl1020^^1677^1708^^^^^1^55^55.0^56^^1

 +39      ;;^UTILITY(U,$J,19707.12,4226,0)

 +40      ;;=36^Count 5 Blocks^wcdl1021^^1708^1738^^^^^1^60^56.0^57^^1

 +41      ;;^UTILITY(U,$J,19707.12,4227,0)

 +42      ;;=36^Count 5 Blocks^wcdl1022^^1738^1769^^^^^0^65^57.0^58^^1

 +43      ;;^UTILITY(U,$J,19707.12,4228,0)

 +44      ;;=36^Count 5 Blocks^wcdl1023^^1769^1799^^^^^0^70^58.0^59^^1

 +45      ;;^UTILITY(U,$J,19707.12,4229,0)

 +46      ;;=36^Count 5 Blocks^wcdl1024^^1799^1830^^^^^0^75^59.0^60^^1

 +47      ;;^UTILITY(U,$J,19707.12,4230,0)

 +48      ;;=36^Count 5 Blocks^wcdl1025^^1830^1860^^^^^0^80^60.0^61^^1

 +49      ;;^UTILITY(U,$J,19707.12,4231,0)

 +50      ;;=36^Count 5 Blocks^wcdl1026^^1860^1891^^^^^0^80^61.0^62^^1

 +51      ;;^UTILITY(U,$J,19707.12,4232,0)

 +52      ;;=36^Count 5 Blocks^wcdl1027^^1891^1921^^^^^0^85^62.0^63^^1

 +53      ;;^UTILITY(U,$J,19707.12,4233,0)

 +54      ;;=36^Count 5 Blocks^wcdl1028^^1921^1952^^^^^0^85^63.0^64^^1

 +55      ;;^UTILITY(U,$J,19707.12,4234,0)

 +56      ;;=36^Count 5 Blocks^wcdl1029^^1952^1982^^^^^0^90^64.0^65^^1

 +57      ;;^UTILITY(U,$J,19707.12,4235,0)

 +58      ;;=36^Count 5 Blocks^wcdl1030^^1982^2013^^^^^1^100^65.0^66^^1

 +59      ;;^UTILITY(U,$J,19707.12,4236,0)

 +60      ;;=36^Count 5 Blocks^wcdl1031^^2013^2043^^^^^1^100^66.0^67^^1

 +61      ;;^UTILITY(U,$J,19707.12,4237,0)

 +62      ;;=36^Count 5 Blocks^wcdl1032^^2043^2074^^^^^1^100^67.0^68^^1

 +63      ;;^UTILITY(U,$J,19707.12,4238,0)

 +64      ;;=36^Count 5 Blocks^wcdl1033^^2074^2104^^^^^1^100^68.0^69^^1

 +65      ;;^UTILITY(U,$J,19707.12,4239,0)

 +66      ;;=36^Dada/Mama Non-Specific^wcdl1034^^183^198^^^^^0^35^6.0^6.5^^1

 +67      ;;^UTILITY(U,$J,19707.12,4240,0)

 +68      ;;=36^Dada/Mama Non-Specific^wcdl1035^^198^213^^^^^0^50^6.5^7^^1

 +69      ;;^UTILITY(U,$J,19707.12,4241,0)

 +70      ;;=36^Dada/Mama Non-Specific^wcdl1036^^213^228^^^^^0^70^7.0^7.5^^1

 +71      ;;^UTILITY(U,$J,19707.12,4242,0)

 +72      ;;=36^Dada/Mama Non-Specific^wcdl1037^^228^244^^^^^0^75^7.5^8^^1

 +73      ;;^UTILITY(U,$J,19707.12,4243,0)

 +74      ;;=36^Dada/Mama Non-Specific^wcdl1038^^244^259^^^^^0^80^8.0^8.5^^1

 +75      ;;^UTILITY(U,$J,19707.12,4244,0)

 +76      ;;=36^Dada/Mama Non-Specific^wcdl1039^^259^274^^^^^0^85^8.5^9^^1

 +77      ;;^UTILITY(U,$J,19707.12,4245,0)

 +78      ;;=36^Dada/Mama Non-Specific^wcdl1040^^274^289^^^^^0^90^9.0^9.5^^1

 +79      ;;^UTILITY(U,$J,19707.12,4246,0)

 +80      ;;=36^Dada/Mama Non-Specific^wcdl1041^^289^305^^^^^0^100^9.5^10^^1

 +81      ;;^UTILITY(U,$J,19707.12,4247,0)

 +82      ;;=36^Dada/Mama Non-Specific^wcdl1042^^305^320^^^^^0^100^10.0^10.5^^1

 +83      ;;^UTILITY(U,$J,19707.12,4248,0)

 +84      ;;=36^Dada/Mama Specific^wcdl1043^^198^213^^^^^0^25^6.5^7^^1

 +85      ;;^UTILITY(U,$J,19707.12,4249,0)

 +86      ;;=36^Dada/Mama Specific^wcdl1044^^213^228^^^^^0^30^7.0^7.5^^1

 +87      ;;^UTILITY(U,$J,19707.12,4250,0)

 +88      ;;=36^Dada/Mama Specific^wcdl1045^^228^244^^^^^0^30^7.5^8^^1

 +89      ;;^UTILITY(U,$J,19707.12,4251,0)

 +90      ;;=36^Dada/Mama Specific^wcdl1046^^244^259^^^^^0^35^8.0^8.5^^1

 +91      ;;^UTILITY(U,$J,19707.12,4252,0)

 +92      ;;=36^Dada/Mama Specific^wcdl1047^^259^274^^^^^0^40^8.5^9^^1

 +93      ;;^UTILITY(U,$J,19707.12,4253,0)

 +94      ;;=36^Dada/Mama Specific^wcdl1048^^274^289^^^^^0^45^9.0^9.5^^1

 +95      ;;^UTILITY(U,$J,19707.12,4254,0)

 +96      ;;=36^Dada/Mama Specific^wcdl1049^^289^305^^^^^0^50^9.5^10^^1

 +97      ;;^UTILITY(U,$J,19707.12,4255,0)

 +98      ;;=36^Dada/Mama Specific^wcdl1050^^305^320^^^^^0^60^10.0^10.5^^1

 +99      ;;^UTILITY(U,$J,19707.12,4256,0)

 +100     ;;=36^Dada/Mama Specific^wcdl1051^^320^335^^^^^0^70^10.5^11^^1

 +101     ;;^UTILITY(U,$J,19707.12,4257,0)

 +102     ;;=36^Dada/Mama Specific^wcdl1052^^335^350^^^^^0^75^11.0^11.5^^1

 +103     ;;^UTILITY(U,$J,19707.12,4258,0)

 +104     ;;=36^Dada/Mama Specific^wcdl1053^^350^366^^^^^0^80^11.5^12^^1

 +105     ;;^UTILITY(U,$J,19707.12,4259,0)

 +106     ;;=36^Dada/Mama Specific^wcdl1054^^366^381^^^^^0^80^12.0^12.5^^1

 +107     ;;^UTILITY(U,$J,19707.12,4260,0)

 +108     ;;=36^Dada/Mama Specific^wcdl1055^^381^396^^^^^0^85^12.5^13^^1

 +109     ;;^UTILITY(U,$J,19707.12,4261,0)

 +110     ;;=36^Dada/Mama Specific^wcdl1056^^396^411^^^^^0^85^13.0^13.5^^1

 +111     ;;^UTILITY(U,$J,19707.12,4262,0)

 +112     ;;=36^Dada/Mama Specific^wcdl1057^^411^427^^^^^0^90^13.5^14^^1

 +113     ;;^UTILITY(U,$J,19707.12,4263,0)

 +114     ;;=36^Dada/Mama Specific^wcdl1058^^427^442^^^^^0^100^14.0^14.5^^1

 +115     ;;^UTILITY(U,$J,19707.12,4264,0)

 +116     ;;=36^Dada/Mama Specific^wcdl1059^^442^457^^^^^0^100^14.5^15^^1

 +117     ;;^UTILITY(U,$J,19707.12,4265,0)

 +118     ;;=36^Dada/Mama Specific^wcdl1060^^457^472^^^^^0^100^15.0^15.5^^1

 +119     ;;^UTILITY(U,$J,19707.12,4266,0)

 +120     ;;=36^Define 5 Words^wcdl1061^^1189^1220^^^^^1^25^39.0^40^^1

 +121     ;;^UTILITY(U,$J,19707.12,4267,0)

 +122     ;;=36^Define 5 Words^wcdl1062^^1220^1250^^^^^1^30^40.0^41^^1

 +123     ;;^UTILITY(U,$J,19707.12,4268,0)

 +124     ;;=36^Define 5 Words^wcdl1063^^1250^1281^^^^^1^35^41.0^42^^1

 +125     ;;^UTILITY(U,$J,19707.12,4269,0)

 +126     ;;=36^Define 5 Words^wcdl1064^^1281^1311^^^^^1^40^42.0^43^^1

 +127     ;;^UTILITY(U,$J,19707.12,4270,0)

 +128     ;;=36^Define 5 Words^wcdl1065^^1311^1342^^^^^1^40^43.0^44^^1

 +129     ;;^UTILITY(U,$J,19707.12,4271,0)

 +130     ;;=36^Define 5 Words^wcdl1066^^1342^1372^^^^^1^45^44.0^45^^1

 +131     ;;^UTILITY(U,$J,19707.12,4272,0)

 +132     ;;=36^Define 5 Words^wcdl1067^^1372^1403^^^^^1^50^45.0^46^^1

 +133     ;;^UTILITY(U,$J,19707.12,4273,0)

 +134     ;;=36^Define 5 Words^wcdl1068^^1403^1433^^^^^1^55^46.0^47^^1

 +135     ;;^UTILITY(U,$J,19707.12,4274,0)

 +136     ;;=36^Define 5 Words^wcdl1069^^1433^1464^^^^^1^55^47.0^48^^1

 +137     ;;^UTILITY(U,$J,19707.12,4275,0)

 +138     ;;=36^Define 5 Words^wcdl1070^^1464^1494^^^^^1^60^48.0^49^^1

 +139     ;;^UTILITY(U,$J,19707.12,4276,0)

 +140     ;;=36^Define 5 Words^wcdl1071^^1494^1525^^^^^0^60^49.0^50^^1

 +141     ;;^UTILITY(U,$J,19707.12,4277,0)

 +142     ;;=36^Define 5 Words^wcdl1072^^1525^1555^^^^^0^65^50.0^51^^1

 +143     ;;^UTILITY(U,$J,19707.12,4278,0)

 +144     ;;=36^Define 5 Words^wcdl1073^^1555^1586^^^^^1^65^51.0^52^^1

 +145     ;;^UTILITY(U,$J,19707.12,4279,0)

 +146     ;;=36^Define 5 Words^wcdl1074^^1586^1616^^^^^0^70^52.0^53^^1

 +147     ;;^UTILITY(U,$J,19707.12,4280,0)

 +148     ;;=36^Define 5 Words^wcdl1075^^1616^1647^^^^^0^70^53.0^54^^1

 +149     ;;^UTILITY(U,$J,19707.12,4281,0)

 +150     ;;=36^Define 5 Words^wcdl1076^^1647^1677^^^^^0^75^54.0^55^^1

 +151     ;;^UTILITY(U,$J,19707.12,4282,0)

 +152     ;;=36^Define 5 Words^wcdl1077^^1677^1708^^^^^0^80^55.0^56^^1

 +153     ;;^UTILITY(U,$J,19707.12,4283,0)

 +154     ;;=36^Define 5 Words^wcdl1078^^1708^1738^^^^^0^80^56.0^57^^1

 +155     ;;^UTILITY(U,$J,19707.12,4284,0)

 +156     ;;=36^Define 5 Words^wcdl1079^^1738^1769^^^^^0^80^57.0^58^^1

 +157     ;;^UTILITY(U,$J,19707.12,4285,0)

 +158     ;;=36^Define 5 Words^wcdl1080^^1769^1799^^^^^0^80^58.0^59^^1