Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: VEN8I020

VEN8I020.m

Go to the documentation of this file.
VEN8I020 ; 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,4902,0)
 ;;=37^Imitate Activities^wcds1697^^457^472^^^^^1^85^15.0^15.5^^1
 ;;^UTILITY(U,$J,19707.17,4903,0)
 ;;=37^Imitate Activities^wcds1698^^472^488^^^^^1^85^15.5^16^^1
 ;;^UTILITY(U,$J,19707.17,4904,0)
 ;;=37^Imitate Activities^wcds1699^^488^503^^^^^1^90^16.0^16.5^^1
 ;;^UTILITY(U,$J,19707.17,4905,0)
 ;;=37^Imitate Activities^wcds1700^^503^518^^^^^1^100^16.5^17^^1
 ;;^UTILITY(U,$J,19707.17,4906,0)
 ;;=37^Imitate Activities^wcds1701^^518^533^^^^^1^100^17.0^17.5^^1
 ;;^UTILITY(U,$J,19707.17,4907,0)
 ;;=37^Indicate Wants^wcds1702^^228^244^^^^^0^30^7.5^8^^1
 ;;^UTILITY(U,$J,19707.17,4908,0)
 ;;=37^Indicate Wants^wcds1703^^244^259^^^^^0^35^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.17,4909,0)
 ;;=37^Indicate Wants^wcds1704^^259^274^^^^^0^40^8.5^9^^1
 ;;^UTILITY(U,$J,19707.17,4910,0)
 ;;=37^Indicate Wants^wcds1705^^274^289^^^^^0^45^9.0^9.5^^1
 ;;^UTILITY(U,$J,19707.17,4911,0)
 ;;=37^Indicate Wants^wcds1706^^289^305^^^^^0^50^9.5^10^^1
 ;;^UTILITY(U,$J,19707.17,4912,0)
 ;;=37^Indicate Wants^wcds1707^^305^320^^^^^1^60^10.0^10.5^^1
 ;;^UTILITY(U,$J,19707.17,4913,0)
 ;;=37^Indicate Wants^wcds1708^^320^335^^^^^0^70^10.5^11^^1
 ;;^UTILITY(U,$J,19707.17,4914,0)
 ;;=37^Indicate Wants^wcds1709^^335^350^^^^^0^75^11.0^11.5^^1
 ;;^UTILITY(U,$J,19707.17,4915,0)
 ;;=37^Indicate Wants^wcds1710^^350^366^^^^^0^80^11.5^12^^1
 ;;^UTILITY(U,$J,19707.17,4916,0)
 ;;=37^Indicate Wants^wcds1711^^366^381^^^^^0^80^12.0^12.5^^1
 ;;^UTILITY(U,$J,19707.17,4917,0)
 ;;=37^Indicate Wants^wcds1712^^381^396^^^^^1^85^12.5^13^^1
 ;;^UTILITY(U,$J,19707.17,4918,0)
 ;;=37^Indicate Wants^wcds1713^^396^411^^^^^1^90^13.0^13.5^^1
 ;;^UTILITY(U,$J,19707.17,4919,0)
 ;;=37^Indicate Wants^wcds1714^^411^427^^^^^1^100^13.5^14^^1
 ;;^UTILITY(U,$J,19707.17,4920,0)
 ;;=37^Indicate Wants^wcds1715^^427^442^^^^^1^100^14.0^14.5^^1
 ;;^UTILITY(U,$J,19707.17,4921,0)
 ;;=37^Name Friend^wcds1716^^823^854^^^^^0^25^27.0^28^^1
 ;;^UTILITY(U,$J,19707.17,4922,0)
 ;;=37^Name Friend^wcds1717^^854^884^^^^^0^30^28.0^29^^1
 ;;^UTILITY(U,$J,19707.17,4923,0)
 ;;=37^Name Friend^wcds1718^^884^915^^^^^0^40^29.0^30^^1
 ;;^UTILITY(U,$J,19707.17,4924,0)
 ;;=37^Name Friend^wcds1719^^915^945^^^^^0^50^30.0^31^^1
 ;;^UTILITY(U,$J,19707.17,4925,0)
 ;;=37^Name Friend^wcds1720^^945^976^^^^^0^60^31.0^32^^1
 ;;^UTILITY(U,$J,19707.17,4926,0)
 ;;=37^Name Friend^wcds1721^^976^1006^^^^^0^65^32.0^33^^1
 ;;^UTILITY(U,$J,19707.17,4927,0)
 ;;=37^Name Friend^wcds1722^^1006^1037^^^^^0^70^33.0^34^^1
 ;;^UTILITY(U,$J,19707.17,4928,0)
 ;;=37^Name Friend^wcds1723^^1037^1067^^^^^0^75^34.0^35^^1
 ;;^UTILITY(U,$J,19707.17,4929,0)
 ;;=37^Name Friend^wcds1724^^1067^1098^^^^^0^80^35.0^36^^1
 ;;^UTILITY(U,$J,19707.17,4930,0)
 ;;=37^Name Friend^wcds1725^^1098^1128^^^^^0^85^36.0^37^^1
 ;;^UTILITY(U,$J,19707.17,4931,0)
 ;;=37^Name Friend^wcds1726^^1128^1159^^^^^0^90^37.0^38^^1
 ;;^UTILITY(U,$J,19707.17,4932,0)
 ;;=37^Name Friend^wcds1727^^1159^1189^^^^^1^100^38.0^39^^1
 ;;^UTILITY(U,$J,19707.17,4933,0)
 ;;=37^Name Friend^wcds1728^^1189^1220^^^^^1^100^39.0^40^^1
 ;;^UTILITY(U,$J,19707.17,4934,0)
 ;;=37^Name Friend^wcds1729^^1220^1250^^^^^1^100^40.0^41^^1
 ;;^UTILITY(U,$J,19707.17,4935,0)
 ;;=37^Play Ball^wcds1730^^289^305^^^^^1^25^9.5^10^^1
 ;;^UTILITY(U,$J,19707.17,4936,0)
 ;;=37^Play Ball^wcds1731^^305^320^^^^^0^50^10.0^10.5^^1
 ;;^UTILITY(U,$J,19707.17,4937,0)
 ;;=37^Play Ball^wcds1732^^320^335^^^^^1^60^10.5^11^^1
 ;;^UTILITY(U,$J,19707.17,4938,0)
 ;;=37^Play Ball^wcds1733^^335^350^^^^^1^65^11.0^11.5^^1
 ;;^UTILITY(U,$J,19707.17,4939,0)
 ;;=37^Play Ball^wcds1734^^350^366^^^^^1^70^11.5^12^^1
 ;;^UTILITY(U,$J,19707.17,4940,0)
 ;;=37^Play Ball^wcds1735^^366^381^^^^^1^75^12.0^12.5^^1
 ;;^UTILITY(U,$J,19707.17,4941,0)
 ;;=37^Play Ball^wcds1736^^381^396^^^^^1^80^12.5^13^^1
 ;;^UTILITY(U,$J,19707.17,4942,0)
 ;;=37^Play Ball^wcds1737^^396^411^^^^^1^80^13.0^13.5^^1
 ;;^UTILITY(U,$J,19707.17,4943,0)
 ;;=37^Play Ball^wcds1738^^411^427^^^^^1^80^13.5^14^^1
 ;;^UTILITY(U,$J,19707.17,4944,0)
 ;;=37^Play Ball^wcds1739^^427^442^^^^^1^85^14.0^14.5^^1
 ;;^UTILITY(U,$J,19707.17,4945,0)
 ;;=37^Play Ball^wcds1740^^442^457^^^^^1^85^14.5^15^^1
 ;;^UTILITY(U,$J,19707.17,4946,0)
 ;;=37^Play Ball^wcds1741^^457^472^^^^^1^85^15.0^15.5^^1
 ;;^UTILITY(U,$J,19707.17,4947,0)
 ;;=37^Play Ball^wcds1742^^472^488^^^^^1^90^15.5^16^^1
 ;;^UTILITY(U,$J,19707.17,4948,0)
 ;;=37^Play Ball^wcds1743^^488^503^^^^^1^100^16.0^16.5^^1
 ;;^UTILITY(U,$J,19707.17,4949,0)
 ;;=37^Play Board Games^wcds1744^^1006^1037^^^^^1^25^33.0^34^^1
 ;;^UTILITY(U,$J,19707.17,4950,0)
 ;;=37^Play Board Games^wcds1745^^1037^1067^^^^^1^30^34.0^35^^1
 ;;^UTILITY(U,$J,19707.17,4951,0)
 ;;=37^Play Board Games^wcds1746^^1067^1098^^^^^1^35^35.0^36^^1
 ;;^UTILITY(U,$J,19707.17,4952,0)
 ;;=37^Play Board Games^wcds1747^^1098^1128^^^^^1^40^36.0^37^^1
 ;;^UTILITY(U,$J,19707.17,4953,0)
 ;;=37^Play Board Games^wcds1748^^1128^1159^^^^^1^45^37.0^38^^1
 ;;^UTILITY(U,$J,19707.17,4954,0)
 ;;=37^Play Board Games^wcds1749^^1159^1189^^^^^1^50^38.0^39^^1
 ;;^UTILITY(U,$J,19707.17,4955,0)
 ;;=37^Play Board Games^wcds1750^^1189^1220^^^^^1^55^39.0^40^^1
 ;;^UTILITY(U,$J,19707.17,4956,0)
 ;;=37^Play Board Games^wcds1751^^1220^1250^^^^^1^55^40.0^41^^1
 ;;^UTILITY(U,$J,19707.17,4957,0)
 ;;=37^Play Board Games^wcds1752^^1250^1281^^^^^1^55^41.0^42^^1
 ;;^UTILITY(U,$J,19707.17,4958,0)
 ;;=37^Play Board Games^wcds1753^^1281^1311^^^^^1^60^42.0^43^^1
 ;;^UTILITY(U,$J,19707.17,4959,0)
 ;;=37^Play Board Games^wcds1754^^1311^1342^^^^^1^60^43.0^44^^1
 ;;^UTILITY(U,$J,19707.17,4960,0)
 ;;=37^Play Board Games^wcds1755^^1342^1372^^^^^1^60^44.0^45^^1
 ;;^UTILITY(U,$J,19707.17,4961,0)
 ;;=37^Play Board Games^wcds1756^^1372^1403^^^^^1^60^45.0^46^^1
 ;;^UTILITY(U,$J,19707.17,4962,0)
 ;;=37^Play Board Games^wcds1757^^1403^1433^^^^^1^65^46.0^47^^1
 ;;^UTILITY(U,$J,19707.17,4963,0)
 ;;=37^Play Board Games^wcds1758^^1433^1464^^^^^1^65^47.0^48^^1
 ;;^UTILITY(U,$J,19707.17,4964,0)
 ;;=37^Play Board Games^wcds1759^^1464^1494^^^^^1^65^48.0^49^^1
 ;;^UTILITY(U,$J,19707.17,4965,0)
 ;;=37^Play Board Games^wcds1760^^1494^1525^^^^^1^70^49.0^50^^1
 ;;^UTILITY(U,$J,19707.17,4966,0)
 ;;=37^Play Board Games^wcds1761^^1525^1555^^^^^0^70^50.0^51^^1
 ;;^UTILITY(U,$J,19707.17,4967,0)
 ;;=37^Play Board Games^wcds1762^^1555^1586^^^^^1^70^51.0^52^^1
 ;;^UTILITY(U,$J,19707.17,4968,0)
 ;;=37^Play Board Games^wcds1763^^1586^1616^^^^^1^75^52.0^53^^1
 ;;^UTILITY(U,$J,19707.17,4969,0)
 ;;=37^Play Board Games^wcds1764^^1616^1647^^^^^1^80^53.0^54^^1
 ;;^UTILITY(U,$J,19707.17,4970,0)
 ;;=37^Play Board Games^wcds1765^^1647^1677^^^^^1^80^54.0^55^^1
 ;;^UTILITY(U,$J,19707.17,4971,0)
 ;;=37^Play Board Games^wcds1766^^1677^1708^^^^^1^80^55.0^56^^1
 ;;^UTILITY(U,$J,19707.17,4972,0)
 ;;=37^Play Board Games^wcds1767^^1708^1738^^^^^1^85^56.0^57^^1
 ;;^UTILITY(U,$J,19707.17,4973,0)
 ;;=37^Play Board Games^wcds1768^^1738^1769^^^^^1^85^57.0^58^^1
 ;;^UTILITY(U,$J,19707.17,4974,0)
 ;;=37^Play Board Games^wcds1769^^1769^1799^^^^^1^85^58.0^59^^1
 ;;^UTILITY(U,$J,19707.17,4975,0)
 ;;=37^Play Board Games^wcds1770^^1799^1830^^^^^1^90^59.0^60^^1
 ;;^UTILITY(U,$J,19707.17,4976,0)
 ;;=37^Play Board Games^wcds1771^^1830^1860^^^^^1^100^60.0^61^^1
 ;;^UTILITY(U,$J,19707.17,4977,0)
 ;;=37^Play Pat-A-Cake^wcds1772^^213^228^^^^^0^25^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.17,4978,0)
 ;;=37^Play Pat-A-Cake^wcds1773^^228^244^^^^^1^30^7.5^8^^1
 ;;^UTILITY(U,$J,19707.17,4979,0)
 ;;=37^Play Pat-A-Cake^wcds1774^^244^259^^^^^0^35^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.17,4980,0)
 ;;=37^Play Pat-A-Cake^wcds1775^^259^274^^^^^0^40^8.5^9^^1
 ;;^UTILITY(U,$J,19707.17,4981,0)
 ;;=37^Play Pat-A-Cake^wcds1776^^274^289^^^^^1^45^9.0^9.5^^1
 ;;^UTILITY(U,$J,19707.17,4982,0)
 ;;=37^Play Pat-A-Cake^wcds1777^^289^305^^^^^1^50^9.5^10^^1