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

VEN8I01R.m

Go to the documentation of this file.
VEN8I01R ; 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,4190,0)
 ;;=36^Combine Syllables^wcdl985^^335^350^^^^^0^100^11.0^11.5^^1
 ;;^UTILITY(U,$J,19707.17,4191,0)
 ;;=36^Combine Syllables^wcdl986^^350^366^^^^^1^100^11.5^12^^1
 ;;^UTILITY(U,$J,19707.17,4192,0)
 ;;=36^Combine Syllables^wcdl987^^366^381^^^^^1^100^12.0^12.5^^1
 ;;^UTILITY(U,$J,19707.17,4193,0)
 ;;=36^Combine Words^wcdl988^^518^533^^^^^1^25^17.0^17.5^^1
 ;;^UTILITY(U,$J,19707.17,4194,0)
 ;;=36^Combine Words^wcdl989^^533^549^^^^^1^30^17.5^18^^1
 ;;^UTILITY(U,$J,19707.17,4195,0)
 ;;=36^Combine Words^wcdl990^^549^564^^^^^1^40^18.0^18.5^^1
 ;;^UTILITY(U,$J,19707.17,4196,0)
 ;;=36^Combine Words^wcdl991^^579^610^^^^^1^50^19.0^20^^1
 ;;^UTILITY(U,$J,19707.17,4197,0)
 ;;=36^Combine Words^wcdl992^^610^640^^^^^1^60^20.0^21^^1
 ;;^UTILITY(U,$J,19707.17,4198,0)
 ;;=36^Combine Words^wcdl993^^640^671^^^^^1^70^21.0^22^^1
 ;;^UTILITY(U,$J,19707.17,4199,0)
 ;;=36^Combine Words^wcdl994^^671^701^^^^^1^75^22.0^23^^1
 ;;^UTILITY(U,$J,19707.17,4200,0)
 ;;=36^Combine Words^wcdl995^^701^732^^^^^1^80^23.0^24^^1
 ;;^UTILITY(U,$J,19707.17,4201,0)
 ;;=36^Combine Words^wcdl996^^732^762^^^^^1^85^24.0^25^^1
 ;;^UTILITY(U,$J,19707.17,4202,0)
 ;;=36^Combine Words^wcdl997^^762^793^^^^^1^90^25.0^26^^1
 ;;^UTILITY(U,$J,19707.17,4203,0)
 ;;=36^Combine Words^wcdl998^^793^823^^^^^1^100^26.0^27^^1
 ;;^UTILITY(U,$J,19707.17,4204,0)
 ;;=36^Combine Words^wcdl999^^823^854^^^^^1^100^27.0^28^^1
 ;;^UTILITY(U,$J,19707.17,4205,0)
 ;;=36^Count 1 Block^wcdl1000^^1037^1067^^^^^1^25^34.0^35^^1
 ;;^UTILITY(U,$J,19707.17,4206,0)
 ;;=36^Count 1 Block^wcdl1001^^1067^1098^^^^^1^30^35.0^36^^1
 ;;^UTILITY(U,$J,19707.17,4207,0)
 ;;=36^Count 1 Block^wcdl1002^^1098^1128^^^^^1^35^36.0^37^^1
 ;;^UTILITY(U,$J,19707.17,4208,0)
 ;;=36^Count 1 Block^wcdl1003^^1128^1159^^^^^1^40^37.0^38^^1
 ;;^UTILITY(U,$J,19707.17,4209,0)
 ;;=36^Count 1 Block^wcdl1004^^1159^1189^^^^^1^50^38.0^39^^1
 ;;^UTILITY(U,$J,19707.17,4210,0)
 ;;=36^Count 1 Block^wcdl1005^^1189^1220^^^^^1^60^39.0^40^^1
 ;;^UTILITY(U,$J,19707.17,4211,0)
 ;;=36^Count 1 Block^wcdl1006^^1220^1250^^^^^1^65^40.0^41^^1
 ;;^UTILITY(U,$J,19707.17,4212,0)
 ;;=36^Count 1 Block^wcdl1007^^1250^1281^^^^^1^70^41.0^42^^1
 ;;^UTILITY(U,$J,19707.17,4213,0)
 ;;=36^Count 1 Block^wcdl1008^^1281^1311^^^^^1^75^42.0^43^^1
 ;;^UTILITY(U,$J,19707.17,4214,0)
 ;;=36^Count 1 Block^wcdl1009^^1311^1342^^^^^1^80^43.0^44^^1
 ;;^UTILITY(U,$J,19707.17,4215,0)
 ;;=36^Count 1 Block^wcdl1010^^1342^1372^^^^^1^80^44.0^45^^1
 ;;^UTILITY(U,$J,19707.17,4216,0)
 ;;=36^Count 1 Block^wcdl1011^^1372^1403^^^^^1^85^45.0^46^^1
 ;;^UTILITY(U,$J,19707.17,4217,0)
 ;;=36^Count 1 Block^wcdl1012^^1403^1433^^^^^1^85^46.0^47^^1
 ;;^UTILITY(U,$J,19707.17,4218,0)
 ;;=36^Count 1 Block^wcdl1013^^1433^1464^^^^^1^90^47.0^48^^1
 ;;^UTILITY(U,$J,19707.17,4219,0)
 ;;=36^Count 1 Block^wcdl1014^^1464^1494^^^^^1^100^48.0^49^^1
 ;;^UTILITY(U,$J,19707.17,4220,0)
 ;;=36^Count 5 Blocks^wcdl1015^^1525^1555^^^^^1^25^50.0^51^^1
 ;;^UTILITY(U,$J,19707.17,4221,0)
 ;;=36^Count 5 Blocks^wcdl1016^^1555^1586^^^^^1^30^51.0^52^^1
 ;;^UTILITY(U,$J,19707.17,4222,0)
 ;;=36^Count 5 Blocks^wcdl1017^^1586^1616^^^^^1^35^52.0^53^^1
 ;;^UTILITY(U,$J,19707.17,4223,0)
 ;;=36^Count 5 Blocks^wcdl1018^^1616^1647^^^^^1^40^53.0^54^^1
 ;;^UTILITY(U,$J,19707.17,4224,0)
 ;;=36^Count 5 Blocks^wcdl1019^^1647^1677^^^^^1^50^54.0^55^^1
 ;;^UTILITY(U,$J,19707.17,4225,0)
 ;;=36^Count 5 Blocks^wcdl1020^^1677^1708^^^^^1^55^55.0^56^^1
 ;;^UTILITY(U,$J,19707.17,4226,0)
 ;;=36^Count 5 Blocks^wcdl1021^^1708^1738^^^^^1^60^56.0^57^^1
 ;;^UTILITY(U,$J,19707.17,4227,0)
 ;;=36^Count 5 Blocks^wcdl1022^^1738^1769^^^^^0^65^57.0^58^^1
 ;;^UTILITY(U,$J,19707.17,4228,0)
 ;;=36^Count 5 Blocks^wcdl1023^^1769^1799^^^^^0^70^58.0^59^^1
 ;;^UTILITY(U,$J,19707.17,4229,0)
 ;;=36^Count 5 Blocks^wcdl1024^^1799^1830^^^^^0^75^59.0^60^^1
 ;;^UTILITY(U,$J,19707.17,4230,0)
 ;;=36^Count 5 Blocks^wcdl1025^^1830^1860^^^^^0^80^60.0^61^^1
 ;;^UTILITY(U,$J,19707.17,4231,0)
 ;;=36^Count 5 Blocks^wcdl1026^^1860^1891^^^^^0^80^61.0^62^^1
 ;;^UTILITY(U,$J,19707.17,4232,0)
 ;;=36^Count 5 Blocks^wcdl1027^^1891^1921^^^^^0^85^62.0^63^^1
 ;;^UTILITY(U,$J,19707.17,4233,0)
 ;;=36^Count 5 Blocks^wcdl1028^^1921^1952^^^^^0^85^63.0^64^^1
 ;;^UTILITY(U,$J,19707.17,4234,0)
 ;;=36^Count 5 Blocks^wcdl1029^^1952^1982^^^^^0^90^64.0^65^^1
 ;;^UTILITY(U,$J,19707.17,4235,0)
 ;;=36^Count 5 Blocks^wcdl1030^^1982^2013^^^^^1^100^65.0^66^^1
 ;;^UTILITY(U,$J,19707.17,4236,0)
 ;;=36^Count 5 Blocks^wcdl1031^^2013^2043^^^^^1^100^66.0^67^^1
 ;;^UTILITY(U,$J,19707.17,4237,0)
 ;;=36^Count 5 Blocks^wcdl1032^^2043^2074^^^^^1^100^67.0^68^^1
 ;;^UTILITY(U,$J,19707.17,4238,0)
 ;;=36^Count 5 Blocks^wcdl1033^^2074^2104^^^^^1^100^68.0^69^^1
 ;;^UTILITY(U,$J,19707.17,4239,0)
 ;;=36^Dada/Mama Non-Specific^wcdl1034^^183^198^^^^^0^35^6.0^6.5^^1
 ;;^UTILITY(U,$J,19707.17,4240,0)
 ;;=36^Dada/Mama Non-Specific^wcdl1035^^198^213^^^^^0^50^6.5^7^^1
 ;;^UTILITY(U,$J,19707.17,4241,0)
 ;;=36^Dada/Mama Non-Specific^wcdl1036^^213^228^^^^^0^70^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.17,4242,0)
 ;;=36^Dada/Mama Non-Specific^wcdl1037^^228^244^^^^^0^75^7.5^8^^1
 ;;^UTILITY(U,$J,19707.17,4243,0)
 ;;=36^Dada/Mama Non-Specific^wcdl1038^^244^259^^^^^0^80^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.17,4244,0)
 ;;=36^Dada/Mama Non-Specific^wcdl1039^^259^274^^^^^0^85^8.5^9^^1
 ;;^UTILITY(U,$J,19707.17,4245,0)
 ;;=36^Dada/Mama Non-Specific^wcdl1040^^274^289^^^^^0^90^9.0^9.5^^1
 ;;^UTILITY(U,$J,19707.17,4246,0)
 ;;=36^Dada/Mama Non-Specific^wcdl1041^^289^305^^^^^0^100^9.5^10^^1
 ;;^UTILITY(U,$J,19707.17,4247,0)
 ;;=36^Dada/Mama Non-Specific^wcdl1042^^305^320^^^^^0^100^10.0^10.5^^1
 ;;^UTILITY(U,$J,19707.17,4248,0)
 ;;=36^Dada/Mama Specific^wcdl1043^^198^213^^^^^0^25^6.5^7^^1
 ;;^UTILITY(U,$J,19707.17,4249,0)
 ;;=36^Dada/Mama Specific^wcdl1044^^213^228^^^^^0^30^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.17,4250,0)
 ;;=36^Dada/Mama Specific^wcdl1045^^228^244^^^^^0^30^7.5^8^^1
 ;;^UTILITY(U,$J,19707.17,4251,0)
 ;;=36^Dada/Mama Specific^wcdl1046^^244^259^^^^^0^35^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.17,4252,0)
 ;;=36^Dada/Mama Specific^wcdl1047^^259^274^^^^^0^40^8.5^9^^1
 ;;^UTILITY(U,$J,19707.17,4253,0)
 ;;=36^Dada/Mama Specific^wcdl1048^^274^289^^^^^0^45^9.0^9.5^^1
 ;;^UTILITY(U,$J,19707.17,4254,0)
 ;;=36^Dada/Mama Specific^wcdl1049^^289^305^^^^^0^50^9.5^10^^1
 ;;^UTILITY(U,$J,19707.17,4255,0)
 ;;=36^Dada/Mama Specific^wcdl1050^^305^320^^^^^0^60^10.0^10.5^^1
 ;;^UTILITY(U,$J,19707.17,4256,0)
 ;;=36^Dada/Mama Specific^wcdl1051^^320^335^^^^^0^70^10.5^11^^1
 ;;^UTILITY(U,$J,19707.17,4257,0)
 ;;=36^Dada/Mama Specific^wcdl1052^^335^350^^^^^0^75^11.0^11.5^^1
 ;;^UTILITY(U,$J,19707.17,4258,0)
 ;;=36^Dada/Mama Specific^wcdl1053^^350^366^^^^^0^80^11.5^12^^1
 ;;^UTILITY(U,$J,19707.17,4259,0)
 ;;=36^Dada/Mama Specific^wcdl1054^^366^381^^^^^0^80^12.0^12.5^^1
 ;;^UTILITY(U,$J,19707.17,4260,0)
 ;;=36^Dada/Mama Specific^wcdl1055^^381^396^^^^^0^85^12.5^13^^1
 ;;^UTILITY(U,$J,19707.17,4261,0)
 ;;=36^Dada/Mama Specific^wcdl1056^^396^411^^^^^0^85^13.0^13.5^^1
 ;;^UTILITY(U,$J,19707.17,4262,0)
 ;;=36^Dada/Mama Specific^wcdl1057^^411^427^^^^^0^90^13.5^14^^1
 ;;^UTILITY(U,$J,19707.17,4263,0)
 ;;=36^Dada/Mama Specific^wcdl1058^^427^442^^^^^0^100^14.0^14.5^^1
 ;;^UTILITY(U,$J,19707.17,4264,0)
 ;;=36^Dada/Mama Specific^wcdl1059^^442^457^^^^^0^100^14.5^15^^1
 ;;^UTILITY(U,$J,19707.17,4265,0)
 ;;=36^Dada/Mama Specific^wcdl1060^^457^472^^^^^0^100^15.0^15.5^^1
 ;;^UTILITY(U,$J,19707.17,4266,0)
 ;;=36^Define 5 Words^wcdl1061^^1189^1220^^^^^1^25^39.0^40^^1
 ;;^UTILITY(U,$J,19707.17,4267,0)
 ;;=36^Define 5 Words^wcdl1062^^1220^1250^^^^^1^30^40.0^41^^1
 ;;^UTILITY(U,$J,19707.17,4268,0)
 ;;=36^Define 5 Words^wcdl1063^^1250^1281^^^^^1^35^41.0^42^^1