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

VEN8I01Z.m

Go to the documentation of this file.
VEN8I01Z ; 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,4820,0)
 ;;=37^Dress, No Help^wcds1615^^1647^1677^^^^^1^100^54.0^55^^1
 ;;^UTILITY(U,$J,19707.17,4821,0)
 ;;=37^Dress, No Help^wcds1616^^1677^1708^^^^^1^100^55.0^56^^1
 ;;^UTILITY(U,$J,19707.17,4822,0)
 ;;=37^Dress, No Help^wcds1617^^1708^1738^^^^^1^100^56.0^57^^1
 ;;^UTILITY(U,$J,19707.17,4823,0)
 ;;=37^Dress, No Help^wcds1618^^1738^1769^^^^^1^100^57.0^58^^1
 ;;^UTILITY(U,$J,19707.17,4824,0)
 ;;=37^Dress, No Help^wcds1619^^1769^1799^^^^^1^100^58.0^59^^1
 ;;^UTILITY(U,$J,19707.17,4825,0)
 ;;=37^Dress, No Help^wcds1620^^1799^1830^^^^^1^100^59.0^60^^1
 ;;^UTILITY(U,$J,19707.17,4826,0)
 ;;=37^Drink From Cup^wcds1621^^274^289^^^^^0^30^9.0^9.5^^1
 ;;^UTILITY(U,$J,19707.17,4827,0)
 ;;=37^Drink From Cup^wcds1622^^289^305^^^^^0^30^9.5^10^^1
 ;;^UTILITY(U,$J,19707.17,4828,0)
 ;;=37^Drink From Cup^wcds1623^^305^320^^^^^0^35^10.0^10.5^^1
 ;;^UTILITY(U,$J,19707.17,4829,0)
 ;;=37^Drink From Cup^wcds1624^^320^335^^^^^0^35^10.5^11^^1
 ;;^UTILITY(U,$J,19707.17,4830,0)
 ;;=37^Drink From Cup^wcds1625^^335^350^^^^^0^40^11.0^11.5^^1
 ;;^UTILITY(U,$J,19707.17,4831,0)
 ;;=37^Drink From Cup^wcds1626^^350^366^^^^^0^45^11.5^12^^1
 ;;^UTILITY(U,$J,19707.17,4832,0)
 ;;=37^Drink From Cup^wcds1627^^366^381^^^^^0^45^12.0^12.5^^1
 ;;^UTILITY(U,$J,19707.17,4833,0)
 ;;=37^Drink From Cup^wcds1628^^381^396^^^^^0^50^12.5^13^^1
 ;;^UTILITY(U,$J,19707.17,4834,0)
 ;;=37^Drink From Cup^wcds1629^^396^411^^^^^0^55^13.0^13.5^^1
 ;;^UTILITY(U,$J,19707.17,4835,0)
 ;;=37^Drink From Cup^wcds1630^^411^427^^^^^0^60^13.5^14^^1
 ;;^UTILITY(U,$J,19707.17,4836,0)
 ;;=37^Drink From Cup^wcds1631^^427^442^^^^^0^60^14.0^14.5^^1
 ;;^UTILITY(U,$J,19707.17,4837,0)
 ;;=37^Drink From Cup^wcds1632^^442^457^^^^^0^65^14.5^15^^1
 ;;^UTILITY(U,$J,19707.17,4838,0)
 ;;=37^Drink From Cup^wcds1633^^457^472^^^^^0^65^15.0^15.5^^1
 ;;^UTILITY(U,$J,19707.17,4839,0)
 ;;=37^Drink From Cup^wcds1634^^472^488^^^^^0^75^15.5^16^^1
 ;;^UTILITY(U,$J,19707.17,4840,0)
 ;;=37^Drink From Cup^wcds1635^^488^503^^^^^0^80^16.0^16.5^^1
 ;;^UTILITY(U,$J,19707.17,4841,0)
 ;;=37^Drink From Cup^wcds1636^^503^518^^^^^0^85^16.5^17^^1
 ;;^UTILITY(U,$J,19707.17,4842,0)
 ;;=37^Drink From Cup^wcds1637^^518^533^^^^^0^90^17.0^17.5^^1
 ;;^UTILITY(U,$J,19707.17,4843,0)
 ;;=37^Drink From Cup^wcds1638^^533^549^^^^^1^100^17.5^18^^1
 ;;^UTILITY(U,$J,19707.17,4844,0)
 ;;=37^Feed Doll^wcds1639^^457^472^^^^^1^25^15.0^15.5^^1
 ;;^UTILITY(U,$J,19707.17,4845,0)
 ;;=37^Feed Doll^wcds1640^^472^488^^^^^0^30^15.5^16^^1
 ;;^UTILITY(U,$J,19707.17,4846,0)
 ;;=37^Feed Doll^wcds1641^^488^503^^^^^1^40^16.0^16.5^^1
 ;;^UTILITY(U,$J,19707.17,4847,0)
 ;;=37^Feed Doll^wcds1642^^503^518^^^^^1^45^16.5^17^^1
 ;;^UTILITY(U,$J,19707.17,4848,0)
 ;;=37^Feed Doll^wcds1643^^518^533^^^^^1^50^17.0^17.5^^1
 ;;^UTILITY(U,$J,19707.17,4849,0)
 ;;=37^Feed Doll^wcds1644^^533^549^^^^^0^60^17.5^18^^1
 ;;^UTILITY(U,$J,19707.17,4850,0)
 ;;=37^Feed Doll^wcds1645^^549^564^^^^^0^70^18.0^18.5^^1
 ;;^UTILITY(U,$J,19707.17,4851,0)
 ;;=37^Feed Doll^wcds1646^^579^610^^^^^1^75^19.0^20^^1
 ;;^UTILITY(U,$J,19707.17,4852,0)
 ;;=37^Feed Doll^wcds1647^^610^640^^^^^1^80^20.0^21^^1
 ;;^UTILITY(U,$J,19707.17,4853,0)
 ;;=37^Feed Doll^wcds1648^^640^671^^^^^0^80^21.0^22^^1
 ;;^UTILITY(U,$J,19707.17,4854,0)
 ;;=37^Feed Doll^wcds1649^^671^701^^^^^1^85^22.0^23^^1
 ;;^UTILITY(U,$J,19707.17,4855,0)
 ;;=37^Feed Doll^wcds1650^^701^732^^^^^1^85^23.0^24^^1
 ;;^UTILITY(U,$J,19707.17,4856,0)
 ;;=37^Feed Doll^wcds1651^^732^762^^^^^1^90^24.0^25^^1
 ;;^UTILITY(U,$J,19707.17,4857,0)
 ;;=37^Feed Doll^wcds1652^^762^793^^^^^1^100^25.0^26^^1
 ;;^UTILITY(U,$J,19707.17,4858,0)
 ;;=37^Feed Doll^wcds1653^^793^823^^^^^1^100^26.0^27^^1
 ;;^UTILITY(U,$J,19707.17,4859,0)
 ;;=37^Feed Doll^wcds1654^^823^854^^^^^1^100^27.0^28^^1
 ;;^UTILITY(U,$J,19707.17,4860,0)
 ;;=37^Feed Doll^wcds1655^^854^884^^^^^1^100^28.0^29^^1
 ;;^UTILITY(U,$J,19707.17,4861,0)
 ;;=37^Feed Doll^wcds1656^^884^915^^^^^1^100^29.0^30^^1
 ;;^UTILITY(U,$J,19707.17,4862,0)
 ;;=37^Feed Doll^wcds1657^^915^945^^^^^1^100^30.0^31^^1
 ;;^UTILITY(U,$J,19707.17,4863,0)
 ;;=37^Feed Self^wcds1658^^152^167^^^^^0^30^5.0^5.5^^1
 ;;^UTILITY(U,$J,19707.17,4864,0)
 ;;=37^Feed Self^wcds1659^^167^183^^^^^0^50^5.5^6^^1
 ;;^UTILITY(U,$J,19707.17,4865,0)
 ;;=37^Feed Self^wcds1660^^183^198^^^^^0^75^6.0^6.5^^1
 ;;^UTILITY(U,$J,19707.17,4866,0)
 ;;=37^Feed Self^wcds1661^^198^213^^^^^0^90^6.5^7^^1
 ;;^UTILITY(U,$J,19707.17,4867,0)
 ;;=37^Feed Self^wcds1662^^213^228^^^^^0^100^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.17,4868,0)
 ;;=37^Feed Self^wcds1663^^228^244^^^^^0^100^7.5^8^^1
 ;;^UTILITY(U,$J,19707.17,4869,0)
 ;;=37^Feed Self^wcds1664^^244^259^^^^^0^100^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.17,4870,0)
 ;;=37^Feed Self^wcds1665^^259^274^^^^^0^100^8.5^9^^1
 ;;^UTILITY(U,$J,19707.17,4871,0)
 ;;=37^Feed Self^wcds1666^^274^289^^^^^0^100^9.0^9.5^^1
 ;;^UTILITY(U,$J,19707.17,4872,0)
 ;;=37^Feed Self^wcds1667^^289^305^^^^^0^100^9.5^10^^1
 ;;^UTILITY(U,$J,19707.17,4873,0)
 ;;=37^Feed Self^wcds1668^^305^320^^^^^1^100^10.0^10.5^^1
 ;;^UTILITY(U,$J,19707.17,4874,0)
 ;;=37^Feed Self^wcds1669^^320^335^^^^^1^100^10.5^11^^1
 ;;^UTILITY(U,$J,19707.17,4875,0)
 ;;=37^Feed Self^wcds1670^^335^350^^^^^1^100^11.0^11.5^^1
 ;;^UTILITY(U,$J,19707.17,4876,0)
 ;;=37^Feed Self^wcds1671^^350^366^^^^^1^100^11.5^12^^1
 ;;^UTILITY(U,$J,19707.17,4877,0)
 ;;=37^Help in House^wcds1672^^381^396^^^^^1^25^12.5^13^^1
 ;;^UTILITY(U,$J,19707.17,4878,0)
 ;;=37^Help in House^wcds1673^^396^411^^^^^1^30^13.0^13.5^^1
 ;;^UTILITY(U,$J,19707.17,4879,0)
 ;;=37^Help in House^wcds1674^^411^427^^^^^1^40^13.5^14^^1
 ;;^UTILITY(U,$J,19707.17,4880,0)
 ;;=37^Help in House^wcds1675^^427^442^^^^^1^50^14.0^14.5^^1
 ;;^UTILITY(U,$J,19707.17,4881,0)
 ;;=37^Help in House^wcds1676^^442^457^^^^^1^60^14.5^15^^1
 ;;^UTILITY(U,$J,19707.17,4882,0)
 ;;=37^Help in House^wcds1677^^457^472^^^^^1^65^15.0^15.5^^1
 ;;^UTILITY(U,$J,19707.17,4883,0)
 ;;=37^Help in House^wcds1678^^472^488^^^^^1^70^15.5^16^^1
 ;;^UTILITY(U,$J,19707.17,4884,0)
 ;;=37^Help in House^wcds1679^^488^503^^^^^1^75^16.0^16.5^^1
 ;;^UTILITY(U,$J,19707.17,4885,0)
 ;;=37^Help in House^wcds1680^^503^518^^^^^1^80^16.5^17^^1
 ;;^UTILITY(U,$J,19707.17,4886,0)
 ;;=37^Help in House^wcds1681^^518^533^^^^^1^90^17.0^17.5^^1
 ;;^UTILITY(U,$J,19707.17,4887,0)
 ;;=37^Help in House^wcds1682^^533^549^^^^^1^100^17.5^18^^1
 ;;^UTILITY(U,$J,19707.17,4888,0)
 ;;=37^Help in House^wcds1683^^549^564^^^^^1^100^18.0^18.5^^1
 ;;^UTILITY(U,$J,19707.17,4889,0)
 ;;=37^Help in House^wcds1684^^579^610^^^^^1^100^19.0^20^^1
 ;;^UTILITY(U,$J,19707.17,4890,0)
 ;;=37^Help in House^wcds1685^^610^640^^^^^1^100^20.0^21^^1
 ;;^UTILITY(U,$J,19707.17,4891,0)
 ;;=37^Help in House^wcds1686^^640^671^^^^^1^100^21.0^22^^1
 ;;^UTILITY(U,$J,19707.17,4892,0)
 ;;=37^Imitate Activities^wcds1687^^305^320^^^^^0^25^10.0^10.5^^1
 ;;^UTILITY(U,$J,19707.17,4893,0)
 ;;=37^Imitate Activities^wcds1688^^320^335^^^^^0^50^10.5^11^^1
 ;;^UTILITY(U,$J,19707.17,4894,0)
 ;;=37^Imitate Activities^wcds1689^^335^350^^^^^0^60^11.0^11.5^^1
 ;;^UTILITY(U,$J,19707.17,4895,0)
 ;;=37^Imitate Activities^wcds1690^^350^366^^^^^0^65^11.5^12^^1
 ;;^UTILITY(U,$J,19707.17,4896,0)
 ;;=37^Imitate Activities^wcds1691^^366^381^^^^^0^70^12.0^12.5^^1
 ;;^UTILITY(U,$J,19707.17,4897,0)
 ;;=37^Imitate Activities^wcds1692^^381^396^^^^^0^75^12.5^13^^1
 ;;^UTILITY(U,$J,19707.17,4898,0)
 ;;=37^Imitate Activities^wcds1693^^396^411^^^^^0^80^13.0^13.5^^1
 ;;^UTILITY(U,$J,19707.17,4899,0)
 ;;=37^Imitate Activities^wcds1694^^411^427^^^^^1^80^13.5^14^^1
 ;;^UTILITY(U,$J,19707.17,4900,0)
 ;;=37^Imitate Activities^wcds1695^^427^442^^^^^1^80^14.0^14.5^^1
 ;;^UTILITY(U,$J,19707.17,4901,0)
 ;;=37^Imitate Activities^wcds1696^^442^457^^^^^1^85^14.5^15^^1