VEN8I00E.m

VEN8I00E ; IHS/OIT/GIS - DIFROM SUPPLIMENT TO KIDS ; 

 ;;2.6;PCC+;**1,3**;APR 03, 2012;Build 24

 Q:'DIFQR(19707.17)  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.17,956,0)

 ;;=4^6 Words^wcdl956^^^^^^^^0^65^17.5^18^^1

 ;;^UTILITY(U,$J,19707.17,957,0)

 ;;=4^6 Words^wcdl957^^^^^^^^0^70^18.0^18.5^^1

 ;;^UTILITY(U,$J,19707.17,958,0)

 ;;=4^6 Words^wcdl958^^^^^^^^0^75^19.0^20^^1

 ;;^UTILITY(U,$J,19707.17,959,0)

 ;;=4^6 Words^wcdl959^^^^^^^^0^80^20.0^21^^1

 ;;^UTILITY(U,$J,19707.17,960,0)

 ;;=4^6 Words^wcdl960^^^^^^^^0^90^21.0^22^^1

 ;;^UTILITY(U,$J,19707.17,961,0)

 ;;=4^6 Words^wcdl961^^^^^^^^1^100^22.0^23^^1

 ;;^UTILITY(U,$J,19707.17,962,0)

 ;;=4^6 Words^wcdl962^^^^^^^^1^100^23.0^24^^1

 ;;^UTILITY(U,$J,19707.17,963,0)

 ;;=4^Body Parts - 6^wcdl963^^^^^^^^0^25^19.0^20^^1

 ;;^UTILITY(U,$J,19707.17,964,0)

 ;;=4^Body Parts - 6^wcdl964^^^^^^^^0^50^20.0^21^^1

 ;;^UTILITY(U,$J,19707.17,965,0)

 ;;=4^Body Parts - 6^wcdl965^^^^^^^^0^60^21.0^22^^1

 ;;^UTILITY(U,$J,19707.17,966,0)

 ;;=4^Body Parts - 6^wcdl966^^^^^^^^0^70^22.0^23^^1

 ;;^UTILITY(U,$J,19707.17,967,0)

 ;;=4^Body Parts - 6^wcdl967^^^^^^^^0^75^23.0^24^^1

 ;;^UTILITY(U,$J,19707.17,968,0)

 ;;=4^Body Parts - 6^wcdl968^^^^^^^^0^80^24.0^25^^1

 ;;^UTILITY(U,$J,19707.17,969,0)

 ;;=4^Body Parts - 6^wcdl969^^^^^^^^0^80^25.0^26^^1

 ;;^UTILITY(U,$J,19707.17,970,0)

 ;;=4^Body Parts - 6^wcdl970^^^^^^^^0^85^26.0^27^^1

 ;;^UTILITY(U,$J,19707.17,971,0)

 ;;=4^Body Parts - 6^wcdl971^^^^^^^^0^85^27.0^28^^1

 ;;^UTILITY(U,$J,19707.17,972,0)

 ;;=4^Body Parts - 6^wcdl972^^^^^^^^0^90^28.0^29^^1

 ;;^UTILITY(U,$J,19707.17,973,0)

 ;;=4^Body Parts - 6^wcdl973^^^^^^^^1^100^29.0^30^^1

 ;;^UTILITY(U,$J,19707.17,974,0)

 ;;=4^Body Parts - 6^wcdl974^^^^^^^^1^100^30.0^31^^1

 ;;^UTILITY(U,$J,19707.17,975,0)

 ;;=4^Combine Syllables^wcdl975^^^^^^^^0^35^6.0^6.5^^1

 ;;^UTILITY(U,$J,19707.17,976,0)

 ;;=4^Combine Syllables^wcdl976^^^^^^^^0^50^6.5^7^^1

 ;;^UTILITY(U,$J,19707.17,977,0)

 ;;=4^Combine Syllables^wcdl977^^^^^^^^0^65^7.0^7.5^^1

 ;;^UTILITY(U,$J,19707.17,978,0)

 ;;=4^Combine Syllables^wcdl978^^^^^^^^0^75^7.5^8^^1

 ;;^UTILITY(U,$J,19707.17,979,0)

 ;;=4^Combine Syllables^wcdl979^^^^^^^^0^80^8.0^8.5^^1

 ;;^UTILITY(U,$J,19707.17,980,0)

 ;;=4^Combine Syllables^wcdl980^^^^^^^^0^80^8.5^9^^1

 ;;^UTILITY(U,$J,19707.17,981,0)

 ;;=4^Combine Syllables^wcdl981^^^^^^^^0^85^9.0^9.5^^1

 ;;^UTILITY(U,$J,19707.17,982,0)

 ;;=4^Combine Syllables^wcdl982^^^^^^^^0^85^9.5^10^^1

 ;;^UTILITY(U,$J,19707.17,983,0)

 ;;=4^Combine Syllables^wcdl983^^^^^^^^0^90^10.0^10.5^^1

 ;;^UTILITY(U,$J,19707.17,984,0)

 ;;=4^Combine Syllables^wcdl984^^^^^^^^0^100^10.5^11^^1

 ;;^UTILITY(U,$J,19707.17,985,0)

 ;;=4^Combine Syllables^wcdl985^^^^^^^^0^100^11.0^11.5^^1

 ;;^UTILITY(U,$J,19707.17,986,0)

 ;;=4^Combine Syllables^wcdl986^^^^^^^^1^100^11.5^12^^1

 ;;^UTILITY(U,$J,19707.17,987,0)

 ;;=4^Combine Syllables^wcdl987^^^^^^^^1^100^12.0^12.5^^1

 ;;^UTILITY(U,$J,19707.17,988,0)

 ;;=4^Combine Words^wcdl988^^^^^^^^1^25^17.0^17.5^^1

 ;;^UTILITY(U,$J,19707.17,989,0)

 ;;=4^Combine Words^wcdl989^^^^^^^^1^30^17.5^18^^1

 ;;^UTILITY(U,$J,19707.17,990,0)

 ;;=4^Combine Words^wcdl990^^^^^^^^1^40^18.0^18.5^^1

 ;;^UTILITY(U,$J,19707.17,991,0)

 ;;=4^Combine Words^wcdl991^^^^^^^^1^50^19.0^20^^1

 ;;^UTILITY(U,$J,19707.17,992,0)

 ;;=4^Combine Words^wcdl992^^^^^^^^1^60^20.0^21^^1

 ;;^UTILITY(U,$J,19707.17,993,0)

 ;;=4^Combine Words^wcdl993^^^^^^^^1^70^21.0^22^^1

 ;;^UTILITY(U,$J,19707.17,994,0)

 ;;=4^Combine Words^wcdl994^^^^^^^^1^75^22.0^23^^1

 ;;^UTILITY(U,$J,19707.17,995,0)

 ;;=4^Combine Words^wcdl995^^^^^^^^1^80^23.0^24^^1

 ;;^UTILITY(U,$J,19707.17,996,0)

 ;;=4^Combine Words^wcdl996^^^^^^^^1^85^24.0^25^^1

 ;;^UTILITY(U,$J,19707.17,997,0)

 ;;=4^Combine Words^wcdl997^^^^^^^^1^90^25.0^26^^1

 ;;^UTILITY(U,$J,19707.17,998,0)

 ;;=4^Combine Words^wcdl998^^^^^^^^1^100^26.0^27^^1

 ;;^UTILITY(U,$J,19707.17,999,0)

 ;;=4^Combine Words^wcdl999^^^^^^^^1^100^27.0^28^^1

 ;;^UTILITY(U,$J,19707.17,1000,0)

 ;;=4^Count 1 Block^wcdl1000^^^^^^^^1^25^34.0^35^^1

 ;;^UTILITY(U,$J,19707.17,1001,0)

 ;;=4^Count 1 Block^wcdl1001^^^^^^^^1^30^35.0^36^^1

 ;;^UTILITY(U,$J,19707.17,1002,0)

 ;;=4^Count 1 Block^wcdl1002^^^^^^^^1^35^36.0^37^^1

 ;;^UTILITY(U,$J,19707.17,1003,0)

 ;;=4^Count 1 Block^wcdl1003^^^^^^^^1^40^37.0^38^^1

 ;;^UTILITY(U,$J,19707.17,1004,0)

 ;;=4^Count 1 Block^wcdl1004^^^^^^^^1^50^38.0^39^^1

 ;;^UTILITY(U,$J,19707.17,1005,0)

 ;;=4^Count 1 Block^wcdl1005^^^^^^^^1^60^39.0^40^^1

 ;;^UTILITY(U,$J,19707.17,1006,0)

 ;;=4^Count 1 Block^wcdl1006^^^^^^^^1^65^40.0^41^^1

 ;;^UTILITY(U,$J,19707.17,1007,0)

 ;;=4^Count 1 Block^wcdl1007^^^^^^^^1^70^41.0^42^^1

 ;;^UTILITY(U,$J,19707.17,1008,0)

 ;;=4^Count 1 Block^wcdl1008^^^^^^^^1^75^42.0^43^^1

 ;;^UTILITY(U,$J,19707.17,1009,0)

 ;;=4^Count 1 Block^wcdl1009^^^^^^^^1^80^43.0^44^^1

 ;;^UTILITY(U,$J,19707.17,1010,0)

 ;;=4^Count 1 Block^wcdl1010^^^^^^^^1^80^44.0^45^^1

 ;;^UTILITY(U,$J,19707.17,1011,0)

 ;;=4^Count 1 Block^wcdl1011^^^^^^^^1^85^45.0^46^^1

 ;;^UTILITY(U,$J,19707.17,1012,0)

 ;;=4^Count 1 Block^wcdl1012^^^^^^^^1^85^46.0^47^^1

 ;;^UTILITY(U,$J,19707.17,1013,0)

 ;;=4^Count 1 Block^wcdl1013^^^^^^^^1^90^47.0^48^^1

 ;;^UTILITY(U,$J,19707.17,1014,0)

 ;;=4^Count 1 Block^wcdl1014^^^^^^^^1^100^48.0^49^^1

 ;;^UTILITY(U,$J,19707.17,1015,0)

 ;;=4^Count 5 Blocks^wcdl1015^^^^^^^^1^25^50.0^51^^1

 ;;^UTILITY(U,$J,19707.17,1016,0)

 ;;=4^Count 5 Blocks^wcdl1016^^^^^^^^1^30^51.0^52^^1

 ;;^UTILITY(U,$J,19707.17,1017,0)

 ;;=4^Count 5 Blocks^wcdl1017^^^^^^^^1^35^52.0^53^^1

 ;;^UTILITY(U,$J,19707.17,1018,0)

 ;;=4^Count 5 Blocks^wcdl1018^^^^^^^^1^40^53.0^54^^1

 ;;^UTILITY(U,$J,19707.17,1019,0)

 ;;=4^Count 5 Blocks^wcdl1019^^^^^^^^1^50^54.0^55^^1

 ;;^UTILITY(U,$J,19707.17,1020,0)

 ;;=4^Count 5 Blocks^wcdl1020^^^^^^^^1^55^55.0^56^^1

 ;;^UTILITY(U,$J,19707.17,1021,0)

 ;;=4^Count 5 Blocks^wcdl1021^^^^^^^^1^60^56.0^57^^1

 ;;^UTILITY(U,$J,19707.17,1022,0)

 ;;=4^Count 5 Blocks^wcdl1022^^^^^^^^0^65^57.0^58^^1

 ;;^UTILITY(U,$J,19707.17,1023,0)

 ;;=4^Count 5 Blocks^wcdl1023^^^^^^^^0^70^58.0^59^^1

 ;;^UTILITY(U,$J,19707.17,1024,0)

 ;;=4^Count 5 Blocks^wcdl1024^^^^^^^^0^75^59.0^60^^1

 ;;^UTILITY(U,$J,19707.17,1025,0)

 ;;=4^Count 5 Blocks^wcdl1025^^^^^^^^0^80^60.0^61^^1

 ;;^UTILITY(U,$J,19707.17,1026,0)

 ;;=4^Count 5 Blocks^wcdl1026^^^^^^^^0^80^61.0^62^^1

 ;;^UTILITY(U,$J,19707.17,1027,0)

 ;;=4^Count 5 Blocks^wcdl1027^^^^^^^^0^85^62.0^63^^1

 ;;^UTILITY(U,$J,19707.17,1028,0)

 ;;=4^Count 5 Blocks^wcdl1028^^^^^^^^0^85^63.0^64^^1

 ;;^UTILITY(U,$J,19707.17,1029,0)

 ;;=4^Count 5 Blocks^wcdl1029^^^^^^^^0^90^64.0^65^^1

 ;;^UTILITY(U,$J,19707.17,1030,0)

 ;;=4^Count 5 Blocks^wcdl1030^^^^^^^^1^100^65.0^66^^1

 ;;^UTILITY(U,$J,19707.17,1031,0)

 ;;=4^Count 5 Blocks^wcdl1031^^^^^^^^1^100^66.0^67^^1

 ;;^UTILITY(U,$J,19707.17,1032,0)

 ;;=4^Count 5 Blocks^wcdl1032^^^^^^^^1^100^67.0^68^^1

 ;;^UTILITY(U,$J,19707.17,1033,0)

 ;;=4^Count 5 Blocks^wcdl1033^^^^^^^^1^100^68.0^69^^1

 ;;^UTILITY(U,$J,19707.17,1034,0)

 ;;=4^Dada/Mama Non-Specific^wcdl1034^^^^^^^^0^35^6.0^6.5^^1

 ;;^UTILITY(U,$J,19707.17,1035,0)

 ;;=4^Dada/Mama Non-Specific^wcdl1035^^^^^^^^0^50^6.5^7^^1

 ;;^UTILITY(U,$J,19707.17,1036,0)

 ;;=4^Dada/Mama Non-Specific^wcdl1036^^^^^^^^0^70^7.0^7.5^^1

 ;;^UTILITY(U,$J,19707.17,1037,0)

 ;;=4^Dada/Mama Non-Specific^wcdl1037^^^^^^^^0^75^7.5^8^^1

 ;;^UTILITY(U,$J,19707.17,1038,0)

 ;;=4^Dada/Mama Non-Specific^wcdl1038^^^^^^^^0^80^8.0^8.5^^1

 ;;^UTILITY(U,$J,19707.17,1039,0)

 ;;=4^Dada/Mama Non-Specific^wcdl1039^^^^^^^^0^85^8.5^9^^1

 ;;^UTILITY(U,$J,19707.17,1040,0)

 ;;=4^Dada/Mama Non-Specific^wcdl1040^^^^^^^^0^90^9.0^9.5^^1

 ;;^UTILITY(U,$J,19707.17,1041,0)

 ;;=4^Dada/Mama Non-Specific^wcdl1041^^^^^^^^0^100^9.5^10^^1

 ;;^UTILITY(U,$J,19707.17,1042,0)

 ;;=4^Dada/Mama Non-Specific^wcdl1042^^^^^^^^0^100^10.0^10.5^^1

 ;;^UTILITY(U,$J,19707.17,1043,0)

 ;;=4^Dada/Mama Specific^wcdl1043^^^^^^^^0^25^6.5^7^^1

VEN8I00E  ; IHS/OIT/GIS - DIFROM SUPPLIMENT TO KIDS ; 

 +1       ;;2.6;PCC+;**1,3**;APR 03, 2012;Build 24

 +2        IF 'DIFQR(19707.17)

               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.17,956,0)

 +2       ;;=4^6 Words^wcdl956^^^^^^^^0^65^17.5^18^^1

 +3       ;;^UTILITY(U,$J,19707.17,957,0)

 +4       ;;=4^6 Words^wcdl957^^^^^^^^0^70^18.0^18.5^^1

 +5       ;;^UTILITY(U,$J,19707.17,958,0)

 +6       ;;=4^6 Words^wcdl958^^^^^^^^0^75^19.0^20^^1

 +7       ;;^UTILITY(U,$J,19707.17,959,0)

 +8       ;;=4^6 Words^wcdl959^^^^^^^^0^80^20.0^21^^1

 +9       ;;^UTILITY(U,$J,19707.17,960,0)

 +10      ;;=4^6 Words^wcdl960^^^^^^^^0^90^21.0^22^^1

 +11      ;;^UTILITY(U,$J,19707.17,961,0)

 +12      ;;=4^6 Words^wcdl961^^^^^^^^1^100^22.0^23^^1

 +13      ;;^UTILITY(U,$J,19707.17,962,0)

 +14      ;;=4^6 Words^wcdl962^^^^^^^^1^100^23.0^24^^1

 +15      ;;^UTILITY(U,$J,19707.17,963,0)

 +16      ;;=4^Body Parts - 6^wcdl963^^^^^^^^0^25^19.0^20^^1

 +17      ;;^UTILITY(U,$J,19707.17,964,0)

 +18      ;;=4^Body Parts - 6^wcdl964^^^^^^^^0^50^20.0^21^^1

 +19      ;;^UTILITY(U,$J,19707.17,965,0)

 +20      ;;=4^Body Parts - 6^wcdl965^^^^^^^^0^60^21.0^22^^1

 +21      ;;^UTILITY(U,$J,19707.17,966,0)

 +22      ;;=4^Body Parts - 6^wcdl966^^^^^^^^0^70^22.0^23^^1

 +23      ;;^UTILITY(U,$J,19707.17,967,0)

 +24      ;;=4^Body Parts - 6^wcdl967^^^^^^^^0^75^23.0^24^^1

 +25      ;;^UTILITY(U,$J,19707.17,968,0)

 +26      ;;=4^Body Parts - 6^wcdl968^^^^^^^^0^80^24.0^25^^1

 +27      ;;^UTILITY(U,$J,19707.17,969,0)

 +28      ;;=4^Body Parts - 6^wcdl969^^^^^^^^0^80^25.0^26^^1

 +29      ;;^UTILITY(U,$J,19707.17,970,0)

 +30      ;;=4^Body Parts - 6^wcdl970^^^^^^^^0^85^26.0^27^^1

 +31      ;;^UTILITY(U,$J,19707.17,971,0)

 +32      ;;=4^Body Parts - 6^wcdl971^^^^^^^^0^85^27.0^28^^1

 +33      ;;^UTILITY(U,$J,19707.17,972,0)

 +34      ;;=4^Body Parts - 6^wcdl972^^^^^^^^0^90^28.0^29^^1

 +35      ;;^UTILITY(U,$J,19707.17,973,0)

 +36      ;;=4^Body Parts - 6^wcdl973^^^^^^^^1^100^29.0^30^^1

 +37      ;;^UTILITY(U,$J,19707.17,974,0)

 +38      ;;=4^Body Parts - 6^wcdl974^^^^^^^^1^100^30.0^31^^1

 +39      ;;^UTILITY(U,$J,19707.17,975,0)

 +40      ;;=4^Combine Syllables^wcdl975^^^^^^^^0^35^6.0^6.5^^1

 +41      ;;^UTILITY(U,$J,19707.17,976,0)

 +42      ;;=4^Combine Syllables^wcdl976^^^^^^^^0^50^6.5^7^^1

 +43      ;;^UTILITY(U,$J,19707.17,977,0)

 +44      ;;=4^Combine Syllables^wcdl977^^^^^^^^0^65^7.0^7.5^^1

 +45      ;;^UTILITY(U,$J,19707.17,978,0)

 +46      ;;=4^Combine Syllables^wcdl978^^^^^^^^0^75^7.5^8^^1

 +47      ;;^UTILITY(U,$J,19707.17,979,0)

 +48      ;;=4^Combine Syllables^wcdl979^^^^^^^^0^80^8.0^8.5^^1

 +49      ;;^UTILITY(U,$J,19707.17,980,0)

 +50      ;;=4^Combine Syllables^wcdl980^^^^^^^^0^80^8.5^9^^1

 +51      ;;^UTILITY(U,$J,19707.17,981,0)

 +52      ;;=4^Combine Syllables^wcdl981^^^^^^^^0^85^9.0^9.5^^1

 +53      ;;^UTILITY(U,$J,19707.17,982,0)

 +54      ;;=4^Combine Syllables^wcdl982^^^^^^^^0^85^9.5^10^^1

 +55      ;;^UTILITY(U,$J,19707.17,983,0)

 +56      ;;=4^Combine Syllables^wcdl983^^^^^^^^0^90^10.0^10.5^^1

 +57      ;;^UTILITY(U,$J,19707.17,984,0)

 +58      ;;=4^Combine Syllables^wcdl984^^^^^^^^0^100^10.5^11^^1

 +59      ;;^UTILITY(U,$J,19707.17,985,0)

 +60      ;;=4^Combine Syllables^wcdl985^^^^^^^^0^100^11.0^11.5^^1

 +61      ;;^UTILITY(U,$J,19707.17,986,0)

 +62      ;;=4^Combine Syllables^wcdl986^^^^^^^^1^100^11.5^12^^1

 +63      ;;^UTILITY(U,$J,19707.17,987,0)

 +64      ;;=4^Combine Syllables^wcdl987^^^^^^^^1^100^12.0^12.5^^1

 +65      ;;^UTILITY(U,$J,19707.17,988,0)

 +66      ;;=4^Combine Words^wcdl988^^^^^^^^1^25^17.0^17.5^^1

 +67      ;;^UTILITY(U,$J,19707.17,989,0)

 +68      ;;=4^Combine Words^wcdl989^^^^^^^^1^30^17.5^18^^1

 +69      ;;^UTILITY(U,$J,19707.17,990,0)

 +70      ;;=4^Combine Words^wcdl990^^^^^^^^1^40^18.0^18.5^^1

 +71      ;;^UTILITY(U,$J,19707.17,991,0)

 +72      ;;=4^Combine Words^wcdl991^^^^^^^^1^50^19.0^20^^1

 +73      ;;^UTILITY(U,$J,19707.17,992,0)

 +74      ;;=4^Combine Words^wcdl992^^^^^^^^1^60^20.0^21^^1

 +75      ;;^UTILITY(U,$J,19707.17,993,0)

 +76      ;;=4^Combine Words^wcdl993^^^^^^^^1^70^21.0^22^^1

 +77      ;;^UTILITY(U,$J,19707.17,994,0)

 +78      ;;=4^Combine Words^wcdl994^^^^^^^^1^75^22.0^23^^1

 +79      ;;^UTILITY(U,$J,19707.17,995,0)

 +80      ;;=4^Combine Words^wcdl995^^^^^^^^1^80^23.0^24^^1

 +81      ;;^UTILITY(U,$J,19707.17,996,0)

 +82      ;;=4^Combine Words^wcdl996^^^^^^^^1^85^24.0^25^^1

 +83      ;;^UTILITY(U,$J,19707.17,997,0)

 +84      ;;=4^Combine Words^wcdl997^^^^^^^^1^90^25.0^26^^1

 +85      ;;^UTILITY(U,$J,19707.17,998,0)

 +86      ;;=4^Combine Words^wcdl998^^^^^^^^1^100^26.0^27^^1

 +87      ;;^UTILITY(U,$J,19707.17,999,0)

 +88      ;;=4^Combine Words^wcdl999^^^^^^^^1^100^27.0^28^^1

 +89      ;;^UTILITY(U,$J,19707.17,1000,0)

 +90      ;;=4^Count 1 Block^wcdl1000^^^^^^^^1^25^34.0^35^^1

 +91      ;;^UTILITY(U,$J,19707.17,1001,0)

 +92      ;;=4^Count 1 Block^wcdl1001^^^^^^^^1^30^35.0^36^^1

 +93      ;;^UTILITY(U,$J,19707.17,1002,0)

 +94      ;;=4^Count 1 Block^wcdl1002^^^^^^^^1^35^36.0^37^^1

 +95      ;;^UTILITY(U,$J,19707.17,1003,0)

 +96      ;;=4^Count 1 Block^wcdl1003^^^^^^^^1^40^37.0^38^^1

 +97      ;;^UTILITY(U,$J,19707.17,1004,0)

 +98      ;;=4^Count 1 Block^wcdl1004^^^^^^^^1^50^38.0^39^^1

 +99      ;;^UTILITY(U,$J,19707.17,1005,0)

 +100     ;;=4^Count 1 Block^wcdl1005^^^^^^^^1^60^39.0^40^^1

 +101     ;;^UTILITY(U,$J,19707.17,1006,0)

 +102     ;;=4^Count 1 Block^wcdl1006^^^^^^^^1^65^40.0^41^^1

 +103     ;;^UTILITY(U,$J,19707.17,1007,0)

 +104     ;;=4^Count 1 Block^wcdl1007^^^^^^^^1^70^41.0^42^^1

 +105     ;;^UTILITY(U,$J,19707.17,1008,0)

 +106     ;;=4^Count 1 Block^wcdl1008^^^^^^^^1^75^42.0^43^^1

 +107     ;;^UTILITY(U,$J,19707.17,1009,0)

 +108     ;;=4^Count 1 Block^wcdl1009^^^^^^^^1^80^43.0^44^^1

 +109     ;;^UTILITY(U,$J,19707.17,1010,0)

 +110     ;;=4^Count 1 Block^wcdl1010^^^^^^^^1^80^44.0^45^^1

 +111     ;;^UTILITY(U,$J,19707.17,1011,0)

 +112     ;;=4^Count 1 Block^wcdl1011^^^^^^^^1^85^45.0^46^^1

 +113     ;;^UTILITY(U,$J,19707.17,1012,0)

 +114     ;;=4^Count 1 Block^wcdl1012^^^^^^^^1^85^46.0^47^^1

 +115     ;;^UTILITY(U,$J,19707.17,1013,0)

 +116     ;;=4^Count 1 Block^wcdl1013^^^^^^^^1^90^47.0^48^^1

 +117     ;;^UTILITY(U,$J,19707.17,1014,0)

 +118     ;;=4^Count 1 Block^wcdl1014^^^^^^^^1^100^48.0^49^^1

 +119     ;;^UTILITY(U,$J,19707.17,1015,0)

 +120     ;;=4^Count 5 Blocks^wcdl1015^^^^^^^^1^25^50.0^51^^1

 +121     ;;^UTILITY(U,$J,19707.17,1016,0)

 +122     ;;=4^Count 5 Blocks^wcdl1016^^^^^^^^1^30^51.0^52^^1

 +123     ;;^UTILITY(U,$J,19707.17,1017,0)

 +124     ;;=4^Count 5 Blocks^wcdl1017^^^^^^^^1^35^52.0^53^^1

 +125     ;;^UTILITY(U,$J,19707.17,1018,0)

 +126     ;;=4^Count 5 Blocks^wcdl1018^^^^^^^^1^40^53.0^54^^1

 +127     ;;^UTILITY(U,$J,19707.17,1019,0)

 +128     ;;=4^Count 5 Blocks^wcdl1019^^^^^^^^1^50^54.0^55^^1

 +129     ;;^UTILITY(U,$J,19707.17,1020,0)

 +130     ;;=4^Count 5 Blocks^wcdl1020^^^^^^^^1^55^55.0^56^^1

 +131     ;;^UTILITY(U,$J,19707.17,1021,0)

 +132     ;;=4^Count 5 Blocks^wcdl1021^^^^^^^^1^60^56.0^57^^1

 +133     ;;^UTILITY(U,$J,19707.17,1022,0)

 +134     ;;=4^Count 5 Blocks^wcdl1022^^^^^^^^0^65^57.0^58^^1

 +135     ;;^UTILITY(U,$J,19707.17,1023,0)

 +136     ;;=4^Count 5 Blocks^wcdl1023^^^^^^^^0^70^58.0^59^^1

 +137     ;;^UTILITY(U,$J,19707.17,1024,0)

 +138     ;;=4^Count 5 Blocks^wcdl1024^^^^^^^^0^75^59.0^60^^1

 +139     ;;^UTILITY(U,$J,19707.17,1025,0)

 +140     ;;=4^Count 5 Blocks^wcdl1025^^^^^^^^0^80^60.0^61^^1

 +141     ;;^UTILITY(U,$J,19707.17,1026,0)

 +142     ;;=4^Count 5 Blocks^wcdl1026^^^^^^^^0^80^61.0^62^^1

 +143     ;;^UTILITY(U,$J,19707.17,1027,0)

 +144     ;;=4^Count 5 Blocks^wcdl1027^^^^^^^^0^85^62.0^63^^1

 +145     ;;^UTILITY(U,$J,19707.17,1028,0)

 +146     ;;=4^Count 5 Blocks^wcdl1028^^^^^^^^0^85^63.0^64^^1

 +147     ;;^UTILITY(U,$J,19707.17,1029,0)

 +148     ;;=4^Count 5 Blocks^wcdl1029^^^^^^^^0^90^64.0^65^^1

 +149     ;;^UTILITY(U,$J,19707.17,1030,0)

 +150     ;;=4^Count 5 Blocks^wcdl1030^^^^^^^^1^100^65.0^66^^1

 +151     ;;^UTILITY(U,$J,19707.17,1031,0)

 +152     ;;=4^Count 5 Blocks^wcdl1031^^^^^^^^1^100^66.0^67^^1

 +153     ;;^UTILITY(U,$J,19707.17,1032,0)

 +154     ;;=4^Count 5 Blocks^wcdl1032^^^^^^^^1^100^67.0^68^^1

 +155     ;;^UTILITY(U,$J,19707.17,1033,0)

 +156     ;;=4^Count 5 Blocks^wcdl1033^^^^^^^^1^100^68.0^69^^1

 +157     ;;^UTILITY(U,$J,19707.17,1034,0)

 +158     ;;=4^Dada/Mama Non-Specific^wcdl1034^^^^^^^^0^35^6.0^6.5^^1

 +159     ;;^UTILITY(U,$J,19707.17,1035,0)

 +160     ;;=4^Dada/Mama Non-Specific^wcdl1035^^^^^^^^0^50^6.5^7^^1

 +161     ;;^UTILITY(U,$J,19707.17,1036,0)

 +162     ;;=4^Dada/Mama Non-Specific^wcdl1036^^^^^^^^0^70^7.0^7.5^^1

 +163     ;;^UTILITY(U,$J,19707.17,1037,0)

 +164     ;;=4^Dada/Mama Non-Specific^wcdl1037^^^^^^^^0^75^7.5^8^^1

 +165     ;;^UTILITY(U,$J,19707.17,1038,0)

 +166     ;;=4^Dada/Mama Non-Specific^wcdl1038^^^^^^^^0^80^8.0^8.5^^1

 +167     ;;^UTILITY(U,$J,19707.17,1039,0)

 +168     ;;=4^Dada/Mama Non-Specific^wcdl1039^^^^^^^^0^85^8.5^9^^1

 +169     ;;^UTILITY(U,$J,19707.17,1040,0)

 +170     ;;=4^Dada/Mama Non-Specific^wcdl1040^^^^^^^^0^90^9.0^9.5^^1

 +171     ;;^UTILITY(U,$J,19707.17,1041,0)

 +172     ;;=4^Dada/Mama Non-Specific^wcdl1041^^^^^^^^0^100^9.5^10^^1

 +173     ;;^UTILITY(U,$J,19707.17,1042,0)

 +174     ;;=4^Dada/Mama Non-Specific^wcdl1042^^^^^^^^0^100^10.0^10.5^^1

 +175     ;;^UTILITY(U,$J,19707.17,1043,0)

 +176     ;;=4^Dada/Mama Specific^wcdl1043^^^^^^^^0^25^6.5^7^^1