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

VEN8I00K.m

Go to the documentation of this file.
VEN8I00K ; 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,1479,0)
 ;;=4^Understand 4 Prepositions^wcdl1479^^^^^^^^0^70^44.0^45^^1
 ;;^UTILITY(U,$J,19707.17,1480,0)
 ;;=4^Understand 4 Prepositions^wcdl1480^^^^^^^^0^75^45.0^46^^1
 ;;^UTILITY(U,$J,19707.17,1481,0)
 ;;=4^Understand 4 Prepositions^wcdl1481^^^^^^^^0^80^46.0^47^^1
 ;;^UTILITY(U,$J,19707.17,1482,0)
 ;;=4^Understand 4 Prepositions^wcdl1482^^^^^^^^0^80^47.0^48^^1
 ;;^UTILITY(U,$J,19707.17,1483,0)
 ;;=4^Understand 4 Prepositions^wcdl1483^^^^^^^^0^80^48.0^49^^1
 ;;^UTILITY(U,$J,19707.17,1484,0)
 ;;=4^Understand 4 Prepositions^wcdl1484^^^^^^^^0^80^49.0^50^^1
 ;;^UTILITY(U,$J,19707.17,1485,0)
 ;;=4^Understand 4 Prepositions^wcdl1485^^^^^^^^0^80^50.0^51^^1
 ;;^UTILITY(U,$J,19707.17,1486,0)
 ;;=4^Understand 4 Prepositions^wcdl1486^^^^^^^^0^85^51.0^52^^1
 ;;^UTILITY(U,$J,19707.17,1487,0)
 ;;=4^Understand 4 Prepositions^wcdl1487^^^^^^^^0^85^52.0^53^^1
 ;;^UTILITY(U,$J,19707.17,1488,0)
 ;;=4^Understand 4 Prepositions^wcdl1488^^^^^^^^0^85^53.0^54^^1
 ;;^UTILITY(U,$J,19707.17,1489,0)
 ;;=4^Understand 4 Prepositions^wcdl1489^^^^^^^^0^85^54.0^55^^1
 ;;^UTILITY(U,$J,19707.17,1490,0)
 ;;=4^Understand 4 Prepositions^wcdl1490^^^^^^^^0^85^55.0^56^^1
 ;;^UTILITY(U,$J,19707.17,1491,0)
 ;;=4^Understand 4 Prepositions^wcdl1491^^^^^^^^0^90^56.0^57^^1
 ;;^UTILITY(U,$J,19707.17,1492,0)
 ;;=4^Understand 4 Prepositions^wcdl1492^^^^^^^^1^100^57.0^58^^1
 ;;^UTILITY(U,$J,19707.17,1493,0)
 ;;=4^Use of 2 Objects^wcdl1493^^^^^^^^1^25^30.0^31^^1
 ;;^UTILITY(U,$J,19707.17,1494,0)
 ;;=4^Use of 2 Objects^wcdl1494^^^^^^^^1^30^31.0^32^^1
 ;;^UTILITY(U,$J,19707.17,1495,0)
 ;;=4^Use of 2 Objects^wcdl1495^^^^^^^^1^35^32.0^33^^1
 ;;^UTILITY(U,$J,19707.17,1496,0)
 ;;=4^Use of 2 Objects^wcdl1496^^^^^^^^1^40^33.0^34^^1
 ;;^UTILITY(U,$J,19707.17,1497,0)
 ;;=4^Use of 2 Objects^wcdl1497^^^^^^^^1^40^34.0^35^^1
 ;;^UTILITY(U,$J,19707.17,1498,0)
 ;;=4^Use of 2 Objects^wcdl1498^^^^^^^^1^45^35.0^36^^1
 ;;^UTILITY(U,$J,19707.17,1499,0)
 ;;=4^Use of 2 Objects^wcdl1499^^^^^^^^1^50^36.0^37^^1
 ;;^UTILITY(U,$J,19707.17,1500,0)
 ;;=4^Use of 2 Objects^wcdl1500^^^^^^^^1^60^37.0^38^^1
 ;;^UTILITY(U,$J,19707.17,1501,0)
 ;;=4^Use of 2 Objects^wcdl1501^^^^^^^^1^65^38.0^39^^1
 ;;^UTILITY(U,$J,19707.17,1502,0)
 ;;=4^Use of 2 Objects^wcdl1502^^^^^^^^1^70^39.0^40^^1
 ;;^UTILITY(U,$J,19707.17,1503,0)
 ;;=4^Use of 2 Objects^wcdl1503^^^^^^^^1^75^40.0^41^^1
 ;;^UTILITY(U,$J,19707.17,1504,0)
 ;;=4^Use of 2 Objects^wcdl1504^^^^^^^^1^80^41.0^42^^1
 ;;^UTILITY(U,$J,19707.17,1505,0)
 ;;=4^Use of 2 Objects^wcdl1505^^^^^^^^1^80^42.0^43^^1
 ;;^UTILITY(U,$J,19707.17,1506,0)
 ;;=4^Use of 2 Objects^wcdl1506^^^^^^^^1^85^43.0^44^^1
 ;;^UTILITY(U,$J,19707.17,1507,0)
 ;;=4^Use of 2 Objects^wcdl1507^^^^^^^^1^85^44.0^45^^1
 ;;^UTILITY(U,$J,19707.17,1508,0)
 ;;=4^Use of 2 Objects^wcdl1508^^^^^^^^1^90^45.0^46^^1
 ;;^UTILITY(U,$J,19707.17,1509,0)
 ;;=4^Use of 2 Objects^wcdl1509^^^^^^^^1^100^46.0^47^^1
 ;;^UTILITY(U,$J,19707.17,1510,0)
 ;;=4^Use of 2 Objects^wcdl1510^^^^^^^^1^100^47.0^48^^1
 ;;^UTILITY(U,$J,19707.17,1511,0)
 ;;=4^Use of 3 Objects^wcdl1511^^^^^^^^1^25^34.0^35^^1
 ;;^UTILITY(U,$J,19707.17,1512,0)
 ;;=4^Use of 3 Objects^wcdl1512^^^^^^^^1^30^35.0^36^^1
 ;;^UTILITY(U,$J,19707.17,1513,0)
 ;;=4^Use of 3 Objects^wcdl1513^^^^^^^^1^40^36.0^37^^1
 ;;^UTILITY(U,$J,19707.17,1514,0)
 ;;=4^Use of 3 Objects^wcdl1514^^^^^^^^1^50^37.0^38^^1
 ;;^UTILITY(U,$J,19707.17,1515,0)
 ;;=4^Use of 3 Objects^wcdl1515^^^^^^^^1^60^38.0^39^^1
 ;;^UTILITY(U,$J,19707.17,1516,0)
 ;;=4^Use of 3 Objects^wcdl1516^^^^^^^^1^65^39.0^40^^1
 ;;^UTILITY(U,$J,19707.17,1517,0)
 ;;=4^Use of 3 Objects^wcdl1517^^^^^^^^1^70^40.0^41^^1
 ;;^UTILITY(U,$J,19707.17,1518,0)
 ;;=4^Use of 3 Objects^wcdl1518^^^^^^^^1^75^41.0^42^^1
 ;;^UTILITY(U,$J,19707.17,1519,0)
 ;;=4^Use of 3 Objects^wcdl1519^^^^^^^^1^80^42.0^43^^1
 ;;^UTILITY(U,$J,19707.17,1520,0)
 ;;=4^Use of 3 Objects^wcdl1520^^^^^^^^1^80^43.0^44^^1
 ;;^UTILITY(U,$J,19707.17,1521,0)
 ;;=4^Use of 3 Objects^wcdl1521^^^^^^^^1^80^44.0^45^^1
 ;;^UTILITY(U,$J,19707.17,1522,0)
 ;;=4^Use of 3 Objects^wcdl1522^^^^^^^^1^85^45.0^46^^1
 ;;^UTILITY(U,$J,19707.17,1523,0)
 ;;=4^Use of 3 Objects^wcdl1523^^^^^^^^1^85^46.0^47^^1
 ;;^UTILITY(U,$J,19707.17,1524,0)
 ;;=4^Use of 3 Objects^wcdl1524^^^^^^^^1^85^47.0^48^^1
 ;;^UTILITY(U,$J,19707.17,1525,0)
 ;;=4^Use of 3 Objects^wcdl1525^^^^^^^^1^90^48.0^49^^1
 ;;^UTILITY(U,$J,19707.17,1526,0)
 ;;=4^Use of 3 Objects^wcdl1526^^^^^^^^1^100^49.0^50^^1
 ;;^UTILITY(U,$J,19707.17,1527,0)
 ;;=4^Use of 3 Objects^wcdl1527^^^^^^^^1^100^50.0^51^^1
 ;;^UTILITY(U,$J,19707.17,1528,0)
 ;;=4^Vocalizes^wcdl1528^^^^^^^^0^90^.5^1^^1
 ;;^UTILITY(U,$J,19707.17,1529,0)
 ;;=4^Vocalizes^wcdl1529^^^^^^^^0^100^1.0^1.5^^1
 ;;^UTILITY(U,$J,19707.17,1530,0)
 ;;=4^Vocalizes^wcdl1530^^^^^^^^0^100^1.5^2^^1
 ;;^UTILITY(U,$J,19707.17,1531,0)
 ;;=4^Vocalizes^wcdl1531^^^^^^^^0^100^2.0^2.5^^1
 ;;^UTILITY(U,$J,19707.17,1532,0)
 ;;=4^Vocalizes^wcdl1532^^^^^^^^0^100^2.5^3^^1
 ;;^UTILITY(U,$J,19707.17,1533,0)
 ;;=5^Brush Teeth no Help^wcds1533^^^^^^^^0^25^32.0^33^^1
 ;;^UTILITY(U,$J,19707.17,1534,0)
 ;;=5^Brush Teeth no Help^wcds1534^^^^^^^^0^30^33.0^34^^1
 ;;^UTILITY(U,$J,19707.17,1535,0)
 ;;=5^Brush Teeth no Help^wcds1535^^^^^^^^0^30^34.0^35^^1
 ;;^UTILITY(U,$J,19707.17,1536,0)
 ;;=5^Brush Teeth no Help^wcds1536^^^^^^^^0^35^35.0^36^^1
 ;;^UTILITY(U,$J,19707.17,1537,0)
 ;;=5^Brush Teeth no Help^wcds1537^^^^^^^^0^35^36.0^37^^1
 ;;^UTILITY(U,$J,19707.17,1538,0)
 ;;=5^Brush Teeth no Help^wcds1538^^^^^^^^0^40^37.0^38^^1
 ;;^UTILITY(U,$J,19707.17,1539,0)
 ;;=5^Brush Teeth no Help^wcds1539^^^^^^^^0^40^38.0^39^^1
 ;;^UTILITY(U,$J,19707.17,1540,0)
 ;;=5^Brush Teeth no Help^wcds1540^^^^^^^^0^45^39.0^40^^1
 ;;^UTILITY(U,$J,19707.17,1541,0)
 ;;=5^Brush Teeth no Help^wcds1541^^^^^^^^0^45^40.0^41^^1
 ;;^UTILITY(U,$J,19707.17,1542,0)
 ;;=5^Brush Teeth no Help^wcds1542^^^^^^^^0^50^41.0^42^^1
 ;;^UTILITY(U,$J,19707.17,1543,0)
 ;;=5^Brush Teeth no Help^wcds1543^^^^^^^^0^55^42.0^43^^1
 ;;^UTILITY(U,$J,19707.17,1544,0)
 ;;=5^Brush Teeth no Help^wcds1544^^^^^^^^0^55^43.0^44^^1
 ;;^UTILITY(U,$J,19707.17,1545,0)
 ;;=5^Brush Teeth no Help^wcds1545^^^^^^^^0^60^44.0^45^^1
 ;;^UTILITY(U,$J,19707.17,1546,0)
 ;;=5^Brush Teeth no Help^wcds1546^^^^^^^^0^60^45.0^46^^1
 ;;^UTILITY(U,$J,19707.17,1547,0)
 ;;=5^Brush Teeth no Help^wcds1547^^^^^^^^0^65^46.0^47^^1
 ;;^UTILITY(U,$J,19707.17,1548,0)
 ;;=5^Brush Teeth no Help^wcds1548^^^^^^^^0^65^47.0^48^^1
 ;;^UTILITY(U,$J,19707.17,1549,0)
 ;;=5^Brush Teeth no Help^wcds1549^^^^^^^^0^70^48.0^49^^1
 ;;^UTILITY(U,$J,19707.17,1550,0)
 ;;=5^Brush Teeth no Help^wcds1550^^^^^^^^0^70^49.0^50^^1
 ;;^UTILITY(U,$J,19707.17,1551,0)
 ;;=5^Brush Teeth no Help^wcds1551^^^^^^^^0^75^50.0^51^^1
 ;;^UTILITY(U,$J,19707.17,1552,0)
 ;;=5^Brush Teeth no Help^wcds1552^^^^^^^^0^80^51.0^52^^1
 ;;^UTILITY(U,$J,19707.17,1553,0)
 ;;=5^Brush Teeth no Help^wcds1553^^^^^^^^0^80^52.0^53^^1
 ;;^UTILITY(U,$J,19707.17,1554,0)
 ;;=5^Brush Teeth no Help^wcds1554^^^^^^^^0^80^53.0^54^^1
 ;;^UTILITY(U,$J,19707.17,1555,0)
 ;;=5^Brush Teeth no Help^wcds1555^^^^^^^^0^80^54.0^55^^1
 ;;^UTILITY(U,$J,19707.17,1556,0)
 ;;=5^Brush Teeth no Help^wcds1556^^^^^^^^0^80^55.0^56^^1
 ;;^UTILITY(U,$J,19707.17,1557,0)
 ;;=5^Brush Teeth no Help^wcds1557^^^^^^^^0^85^56.0^57^^1
 ;;^UTILITY(U,$J,19707.17,1558,0)
 ;;=5^Brush Teeth no Help^wcds1558^^^^^^^^0^85^57.0^58^^1
 ;;^UTILITY(U,$J,19707.17,1559,0)
 ;;=5^Brush Teeth no Help^wcds1559^^^^^^^^0^85^58.0^59^^1
 ;;^UTILITY(U,$J,19707.17,1560,0)
 ;;=5^Brush Teeth no Help^wcds1560^^^^^^^^0^85^59.0^60^^1
 ;;^UTILITY(U,$J,19707.17,1561,0)
 ;;=5^Brush Teeth no Help^wcds1561^^^^^^^^0^90^60.0^61^^1
 ;;^UTILITY(U,$J,19707.17,1562,0)
 ;;=5^Brush Teeth no Help^wcds1562^^^^^^^^1^100^61.0^62^^1