VENKI00N.m

VENKI00N ; ; 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,1563,0)

 ;;=5^Brush Teeth no Help^wcds1563^^^^^^^^0^100^62.0^63^^1

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

 ;;=5^Brush Teeth no Help^wcds1564^^^^^^^^0^100^63.0^64^^1

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

 ;;=5^Brush Teeth no Help^wcds1565^^^^^^^^0^100^64.0^65^^1

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

 ;;=5^Brush Teeth no Help^wcds1566^^^^^^^^0^100^65.0^66^^1

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

 ;;=5^Brush Teeth no Help^wcds1567^^^^^^^^0^100^66.0^67^^1

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

 ;;=5^Brush Teeth no Help^wcds1568^^^^^^^^0^100^67.0^68^^1

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

 ;;=5^Brush Teeth no Help^wcds1569^^^^^^^^0^100^68.0^69^^1

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

 ;;=5^Brush Teeth no Help^wcds1570^^^^^^^^0^100^69.0^70^^1

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

 ;;=5^Brush Teeth no Help^wcds1571^^^^^^^^0^100^70.0^71^^1

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

 ;;=5^Brush Teeth no Help^wcds1572^^^^^^^^0^100^71.0^72^^1

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

 ;;=5^Brush Teeth no Help^wcds1573^^^^^^^^0^100^72.0^73^^1

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

 ;;=5^Brush Teeth w Help^wcds1574^^^^^^^^0^25^16.0^16.5^^1

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

 ;;=5^Brush Teeth w Help^wcds1575^^^^^^^^0^30^16.5^17^^1

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

 ;;=5^Brush Teeth w Help^wcds1576^^^^^^^^0^35^17.0^17.5^^1

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

 ;;=5^Brush Teeth w Help^wcds1577^^^^^^^^0^35^17.5^18^^1

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

 ;;=5^Brush Teeth w Help^wcds1578^^^^^^^^0^40^18.0^18.5^^1

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

 ;;=5^Brush Teeth w Help^wcds1579^^^^^^^^0^45^19.0^20^^1

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

 ;;=5^Brush Teeth w Help^wcds1580^^^^^^^^0^45^20.0^21^^1

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

 ;;=5^Brush Teeth w Help^wcds1581^^^^^^^^0^50^21.0^22^^1

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

 ;;=5^Brush Teeth w Help^wcds1582^^^^^^^^0^55^22.0^23^^1

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

 ;;=5^Brush Teeth w Help^wcds1583^^^^^^^^0^60^23.0^24^^1

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

 ;;=5^Brush Teeth w Help^wcds1584^^^^^^^^0^60^24.0^25^^1

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

 ;;=5^Brush Teeth w Help^wcds1585^^^^^^^^0^65^25.0^26^^1

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

 ;;=5^Brush Teeth w Help^wcds1586^^^^^^^^0^70^26.0^27^^1

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

 ;;=5^Brush Teeth w Help^wcds1587^^^^^^^^0^75^27.0^28^^1

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

 ;;=5^Brush Teeth w Help^wcds1588^^^^^^^^0^80^28.0^29^^1

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

 ;;=5^Brush Teeth w Help^wcds1589^^^^^^^^0^80^29.0^30^^1

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

 ;;=5^Brush Teeth w Help^wcds1590^^^^^^^^0^85^30.0^31^^1

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

 ;;=5^Brush Teeth w Help^wcds1591^^^^^^^^0^85^31.0^32^^1

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

 ;;=5^Brush Teeth w Help^wcds1592^^^^^^^^0^90^32.0^33^^1

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

 ;;=5^Brush Teeth w Help^wcds1593^^^^^^^^1^100^33.0^34^^1

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

 ;;=5^Brush Teeth w Help^wcds1594^^^^^^^^1^100^34.0^35^^1

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

 ;;=5^Brush Teeth w Help^wcds1595^^^^^^^^1^100^35.0^36^^1

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

 ;;=5^Brush Teeth w Help^wcds1596^^^^^^^^1^100^36.0^37^^1

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

 ;;=5^Dress, No Help^wcds1597^^^^^^^^0^25^36.0^37^^1

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

 ;;=5^Dress, No Help^wcds1598^^^^^^^^0^30^37.0^38^^1

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

 ;;=5^Dress, No Help^wcds1599^^^^^^^^0^40^38.0^39^^1

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

 ;;=5^Dress, No Help^wcds1600^^^^^^^^0^45^39.0^40^^1

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

 ;;=5^Dress, No Help^wcds1601^^^^^^^^0^50^40.0^41^^1

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

 ;;=5^Dress, No Help^wcds1602^^^^^^^^0^55^41.0^42^^1

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

 ;;=5^Dress, No Help^wcds1603^^^^^^^^0^60^42.0^43^^1

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

 ;;=5^Dress, No Help^wcds1604^^^^^^^^0^60^43.0^44^^1

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

 ;;=5^Dress, No Help^wcds1605^^^^^^^^0^65^44.0^45^^1

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

 ;;=5^Dress, No Help^wcds1606^^^^^^^^0^70^45.0^46^^1

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

 ;;=5^Dress, No Help^wcds1607^^^^^^^^0^70^46.0^47^^1

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

 ;;=5^Dress, No Help^wcds1608^^^^^^^^0^75^47.0^48^^1

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

 ;;=5^Dress, No Help^wcds1609^^^^^^^^0^80^48.0^49^^1

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

 ;;=5^Dress, No Help^wcds1610^^^^^^^^0^80^49.0^50^^1

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

 ;;=5^Dress, No Help^wcds1611^^^^^^^^0^80^50.0^51^^1

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

 ;;=5^Dress, No Help^wcds1612^^^^^^^^0^85^51.0^52^^1

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

 ;;=5^Dress, No Help^wcds1613^^^^^^^^0^85^52.0^53^^1

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

 ;;=5^Dress, No Help^wcds1614^^^^^^^^0^90^53.0^54^^1

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

 ;;=5^Dress, No Help^wcds1615^^^^^^^^1^100^54.0^55^^1

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

 ;;=5^Dress, No Help^wcds1616^^^^^^^^1^100^55.0^56^^1

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

 ;;=5^Dress, No Help^wcds1617^^^^^^^^1^100^56.0^57^^1

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

 ;;=5^Dress, No Help^wcds1618^^^^^^^^1^100^57.0^58^^1

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

 ;;=5^Dress, No Help^wcds1619^^^^^^^^1^100^58.0^59^^1

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

 ;;=5^Dress, No Help^wcds1620^^^^^^^^1^100^59.0^60^^1

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

 ;;=5^Drink From Cup^wcds1621^^^^^^^^0^30^9.0^9.5^^1

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

 ;;=5^Drink From Cup^wcds1622^^^^^^^^0^30^9.5^10^^1

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

 ;;=5^Drink From Cup^wcds1623^^^^^^^^0^35^10.0^10.5^^1

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

 ;;=5^Drink From Cup^wcds1624^^^^^^^^0^35^10.5^11^^1

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

 ;;=5^Drink From Cup^wcds1625^^^^^^^^0^40^11.0^11.5^^1

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

 ;;=5^Drink From Cup^wcds1626^^^^^^^^0^45^11.5^12^^1

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

 ;;=5^Drink From Cup^wcds1627^^^^^^^^0^45^12.0^12.5^^1

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

 ;;=5^Drink From Cup^wcds1628^^^^^^^^0^50^12.5^13^^1

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

 ;;=5^Drink From Cup^wcds1629^^^^^^^^0^55^13.0^13.5^^1

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

 ;;=5^Drink From Cup^wcds1630^^^^^^^^0^60^13.5^14^^1

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

 ;;=5^Drink From Cup^wcds1631^^^^^^^^0^60^14.0^14.5^^1

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

 ;;=5^Drink From Cup^wcds1632^^^^^^^^0^65^14.5^15^^1

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

 ;;=5^Drink From Cup^wcds1633^^^^^^^^0^65^15.0^15.5^^1

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

 ;;=5^Drink From Cup^wcds1634^^^^^^^^0^75^15.5^16^^1

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

 ;;=5^Drink From Cup^wcds1635^^^^^^^^0^80^16.0^16.5^^1

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

 ;;=5^Drink From Cup^wcds1636^^^^^^^^0^85^16.5^17^^1

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

 ;;=5^Drink From Cup^wcds1637^^^^^^^^0^90^17.0^17.5^^1

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

 ;;=5^Drink From Cup^wcds1638^^^^^^^^1^100^17.5^18^^1

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

 ;;=5^Feed Doll^wcds1639^^^^^^^^1^25^15.0^15.5^^1

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

 ;;=5^Feed Doll^wcds1640^^^^^^^^0^30^15.5^16^^1

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

 ;;=5^Feed Doll^wcds1641^^^^^^^^1^40^16.0^16.5^^1

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

 ;;=5^Feed Doll^wcds1642^^^^^^^^1^45^16.5^17^^1

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

 ;;=5^Feed Doll^wcds1643^^^^^^^^1^50^17.0^17.5^^1

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

 ;;=5^Feed Doll^wcds1644^^^^^^^^0^60^17.5^18^^1

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

 ;;=5^Feed Doll^wcds1645^^^^^^^^0^70^18.0^18.5^^1

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

 ;;=5^Feed Doll^wcds1646^^^^^^^^1^75^19.0^20^^1

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

 ;;=5^Feed Doll^wcds1647^^^^^^^^1^80^20.0^21^^1

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

 ;;=5^Feed Doll^wcds1648^^^^^^^^0^80^21.0^22^^1

VENKI00N  ; ; 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,1563,0)

 +2       ;;=5^Brush Teeth no Help^wcds1563^^^^^^^^0^100^62.0^63^^1

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

 +4       ;;=5^Brush Teeth no Help^wcds1564^^^^^^^^0^100^63.0^64^^1

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

 +6       ;;=5^Brush Teeth no Help^wcds1565^^^^^^^^0^100^64.0^65^^1

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

 +8       ;;=5^Brush Teeth no Help^wcds1566^^^^^^^^0^100^65.0^66^^1

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

 +10      ;;=5^Brush Teeth no Help^wcds1567^^^^^^^^0^100^66.0^67^^1

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

 +12      ;;=5^Brush Teeth no Help^wcds1568^^^^^^^^0^100^67.0^68^^1

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

 +14      ;;=5^Brush Teeth no Help^wcds1569^^^^^^^^0^100^68.0^69^^1

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

 +16      ;;=5^Brush Teeth no Help^wcds1570^^^^^^^^0^100^69.0^70^^1

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

 +18      ;;=5^Brush Teeth no Help^wcds1571^^^^^^^^0^100^70.0^71^^1

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

 +20      ;;=5^Brush Teeth no Help^wcds1572^^^^^^^^0^100^71.0^72^^1

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

 +22      ;;=5^Brush Teeth no Help^wcds1573^^^^^^^^0^100^72.0^73^^1

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

 +24      ;;=5^Brush Teeth w Help^wcds1574^^^^^^^^0^25^16.0^16.5^^1

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

 +26      ;;=5^Brush Teeth w Help^wcds1575^^^^^^^^0^30^16.5^17^^1

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

 +28      ;;=5^Brush Teeth w Help^wcds1576^^^^^^^^0^35^17.0^17.5^^1

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

 +30      ;;=5^Brush Teeth w Help^wcds1577^^^^^^^^0^35^17.5^18^^1

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

 +32      ;;=5^Brush Teeth w Help^wcds1578^^^^^^^^0^40^18.0^18.5^^1

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

 +34      ;;=5^Brush Teeth w Help^wcds1579^^^^^^^^0^45^19.0^20^^1

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

 +36      ;;=5^Brush Teeth w Help^wcds1580^^^^^^^^0^45^20.0^21^^1

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

 +38      ;;=5^Brush Teeth w Help^wcds1581^^^^^^^^0^50^21.0^22^^1

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

 +40      ;;=5^Brush Teeth w Help^wcds1582^^^^^^^^0^55^22.0^23^^1

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

 +42      ;;=5^Brush Teeth w Help^wcds1583^^^^^^^^0^60^23.0^24^^1

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

 +44      ;;=5^Brush Teeth w Help^wcds1584^^^^^^^^0^60^24.0^25^^1

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

 +46      ;;=5^Brush Teeth w Help^wcds1585^^^^^^^^0^65^25.0^26^^1

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

 +48      ;;=5^Brush Teeth w Help^wcds1586^^^^^^^^0^70^26.0^27^^1

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

 +50      ;;=5^Brush Teeth w Help^wcds1587^^^^^^^^0^75^27.0^28^^1

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

 +52      ;;=5^Brush Teeth w Help^wcds1588^^^^^^^^0^80^28.0^29^^1

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

 +54      ;;=5^Brush Teeth w Help^wcds1589^^^^^^^^0^80^29.0^30^^1

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

 +56      ;;=5^Brush Teeth w Help^wcds1590^^^^^^^^0^85^30.0^31^^1

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

 +58      ;;=5^Brush Teeth w Help^wcds1591^^^^^^^^0^85^31.0^32^^1

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

 +60      ;;=5^Brush Teeth w Help^wcds1592^^^^^^^^0^90^32.0^33^^1

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

 +62      ;;=5^Brush Teeth w Help^wcds1593^^^^^^^^1^100^33.0^34^^1

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

 +64      ;;=5^Brush Teeth w Help^wcds1594^^^^^^^^1^100^34.0^35^^1

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

 +66      ;;=5^Brush Teeth w Help^wcds1595^^^^^^^^1^100^35.0^36^^1

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

 +68      ;;=5^Brush Teeth w Help^wcds1596^^^^^^^^1^100^36.0^37^^1

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

 +70      ;;=5^Dress, No Help^wcds1597^^^^^^^^0^25^36.0^37^^1

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

 +72      ;;=5^Dress, No Help^wcds1598^^^^^^^^0^30^37.0^38^^1

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

 +74      ;;=5^Dress, No Help^wcds1599^^^^^^^^0^40^38.0^39^^1

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

 +76      ;;=5^Dress, No Help^wcds1600^^^^^^^^0^45^39.0^40^^1

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

 +78      ;;=5^Dress, No Help^wcds1601^^^^^^^^0^50^40.0^41^^1

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

 +80      ;;=5^Dress, No Help^wcds1602^^^^^^^^0^55^41.0^42^^1

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

 +82      ;;=5^Dress, No Help^wcds1603^^^^^^^^0^60^42.0^43^^1

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

 +84      ;;=5^Dress, No Help^wcds1604^^^^^^^^0^60^43.0^44^^1

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

 +86      ;;=5^Dress, No Help^wcds1605^^^^^^^^0^65^44.0^45^^1

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

 +88      ;;=5^Dress, No Help^wcds1606^^^^^^^^0^70^45.0^46^^1

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

 +90      ;;=5^Dress, No Help^wcds1607^^^^^^^^0^70^46.0^47^^1

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

 +92      ;;=5^Dress, No Help^wcds1608^^^^^^^^0^75^47.0^48^^1

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

 +94      ;;=5^Dress, No Help^wcds1609^^^^^^^^0^80^48.0^49^^1

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

 +96      ;;=5^Dress, No Help^wcds1610^^^^^^^^0^80^49.0^50^^1

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

 +98      ;;=5^Dress, No Help^wcds1611^^^^^^^^0^80^50.0^51^^1

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

 +100     ;;=5^Dress, No Help^wcds1612^^^^^^^^0^85^51.0^52^^1

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

 +102     ;;=5^Dress, No Help^wcds1613^^^^^^^^0^85^52.0^53^^1

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

 +104     ;;=5^Dress, No Help^wcds1614^^^^^^^^0^90^53.0^54^^1

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

 +106     ;;=5^Dress, No Help^wcds1615^^^^^^^^1^100^54.0^55^^1

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

 +108     ;;=5^Dress, No Help^wcds1616^^^^^^^^1^100^55.0^56^^1

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

 +110     ;;=5^Dress, No Help^wcds1617^^^^^^^^1^100^56.0^57^^1

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

 +112     ;;=5^Dress, No Help^wcds1618^^^^^^^^1^100^57.0^58^^1

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

 +114     ;;=5^Dress, No Help^wcds1619^^^^^^^^1^100^58.0^59^^1

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

 +116     ;;=5^Dress, No Help^wcds1620^^^^^^^^1^100^59.0^60^^1

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

 +118     ;;=5^Drink From Cup^wcds1621^^^^^^^^0^30^9.0^9.5^^1

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

 +120     ;;=5^Drink From Cup^wcds1622^^^^^^^^0^30^9.5^10^^1

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

 +122     ;;=5^Drink From Cup^wcds1623^^^^^^^^0^35^10.0^10.5^^1

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

 +124     ;;=5^Drink From Cup^wcds1624^^^^^^^^0^35^10.5^11^^1

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

 +126     ;;=5^Drink From Cup^wcds1625^^^^^^^^0^40^11.0^11.5^^1

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

 +128     ;;=5^Drink From Cup^wcds1626^^^^^^^^0^45^11.5^12^^1

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

 +130     ;;=5^Drink From Cup^wcds1627^^^^^^^^0^45^12.0^12.5^^1

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

 +132     ;;=5^Drink From Cup^wcds1628^^^^^^^^0^50^12.5^13^^1

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

 +134     ;;=5^Drink From Cup^wcds1629^^^^^^^^0^55^13.0^13.5^^1

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

 +136     ;;=5^Drink From Cup^wcds1630^^^^^^^^0^60^13.5^14^^1

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

 +138     ;;=5^Drink From Cup^wcds1631^^^^^^^^0^60^14.0^14.5^^1

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

 +140     ;;=5^Drink From Cup^wcds1632^^^^^^^^0^65^14.5^15^^1

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

 +142     ;;=5^Drink From Cup^wcds1633^^^^^^^^0^65^15.0^15.5^^1

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

 +144     ;;=5^Drink From Cup^wcds1634^^^^^^^^0^75^15.5^16^^1

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

 +146     ;;=5^Drink From Cup^wcds1635^^^^^^^^0^80^16.0^16.5^^1

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

 +148     ;;=5^Drink From Cup^wcds1636^^^^^^^^0^85^16.5^17^^1

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

 +150     ;;=5^Drink From Cup^wcds1637^^^^^^^^0^90^17.0^17.5^^1

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

 +152     ;;=5^Drink From Cup^wcds1638^^^^^^^^1^100^17.5^18^^1

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

 +154     ;;=5^Feed Doll^wcds1639^^^^^^^^1^25^15.0^15.5^^1

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

 +156     ;;=5^Feed Doll^wcds1640^^^^^^^^0^30^15.5^16^^1

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

 +158     ;;=5^Feed Doll^wcds1641^^^^^^^^1^40^16.0^16.5^^1

 +159     ;;^UTILITY(U,$J,19707.12,1642,0)

 +160     ;;=5^Feed Doll^wcds1642^^^^^^^^1^45^16.5^17^^1

 +161     ;;^UTILITY(U,$J,19707.12,1643,0)

 +162     ;;=5^Feed Doll^wcds1643^^^^^^^^1^50^17.0^17.5^^1

 +163     ;;^UTILITY(U,$J,19707.12,1644,0)

 +164     ;;=5^Feed Doll^wcds1644^^^^^^^^0^60^17.5^18^^1

 +165     ;;^UTILITY(U,$J,19707.12,1645,0)

 +166     ;;=5^Feed Doll^wcds1645^^^^^^^^0^70^18.0^18.5^^1

 +167     ;;^UTILITY(U,$J,19707.12,1646,0)

 +168     ;;=5^Feed Doll^wcds1646^^^^^^^^1^75^19.0^20^^1

 +169     ;;^UTILITY(U,$J,19707.12,1647,0)

 +170     ;;=5^Feed Doll^wcds1647^^^^^^^^1^80^20.0^21^^1

 +171     ;;^UTILITY(U,$J,19707.12,1648,0)

 +172     ;;=5^Feed Doll^wcds1648^^^^^^^^0^80^21.0^22^^1