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

VENKI020.m

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