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

VENKI01R.m

Go to the documentation of this file.
VENKI01R ; ; 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,4207,0)
 ;;=36^Count 1 Block^wcdl1002^^1098^1128^^^^^1^35^36.0^37^^1
 ;;^UTILITY(U,$J,19707.12,4208,0)
 ;;=36^Count 1 Block^wcdl1003^^1128^1159^^^^^1^40^37.0^38^^1
 ;;^UTILITY(U,$J,19707.12,4209,0)
 ;;=36^Count 1 Block^wcdl1004^^1159^1189^^^^^1^50^38.0^39^^1
 ;;^UTILITY(U,$J,19707.12,4210,0)
 ;;=36^Count 1 Block^wcdl1005^^1189^1220^^^^^1^60^39.0^40^^1
 ;;^UTILITY(U,$J,19707.12,4211,0)
 ;;=36^Count 1 Block^wcdl1006^^1220^1250^^^^^1^65^40.0^41^^1
 ;;^UTILITY(U,$J,19707.12,4212,0)
 ;;=36^Count 1 Block^wcdl1007^^1250^1281^^^^^1^70^41.0^42^^1
 ;;^UTILITY(U,$J,19707.12,4213,0)
 ;;=36^Count 1 Block^wcdl1008^^1281^1311^^^^^1^75^42.0^43^^1
 ;;^UTILITY(U,$J,19707.12,4214,0)
 ;;=36^Count 1 Block^wcdl1009^^1311^1342^^^^^1^80^43.0^44^^1
 ;;^UTILITY(U,$J,19707.12,4215,0)
 ;;=36^Count 1 Block^wcdl1010^^1342^1372^^^^^1^80^44.0^45^^1
 ;;^UTILITY(U,$J,19707.12,4216,0)
 ;;=36^Count 1 Block^wcdl1011^^1372^1403^^^^^1^85^45.0^46^^1
 ;;^UTILITY(U,$J,19707.12,4217,0)
 ;;=36^Count 1 Block^wcdl1012^^1403^1433^^^^^1^85^46.0^47^^1
 ;;^UTILITY(U,$J,19707.12,4218,0)
 ;;=36^Count 1 Block^wcdl1013^^1433^1464^^^^^1^90^47.0^48^^1
 ;;^UTILITY(U,$J,19707.12,4219,0)
 ;;=36^Count 1 Block^wcdl1014^^1464^1494^^^^^1^100^48.0^49^^1
 ;;^UTILITY(U,$J,19707.12,4220,0)
 ;;=36^Count 5 Blocks^wcdl1015^^1525^1555^^^^^1^25^50.0^51^^1
 ;;^UTILITY(U,$J,19707.12,4221,0)
 ;;=36^Count 5 Blocks^wcdl1016^^1555^1586^^^^^1^30^51.0^52^^1
 ;;^UTILITY(U,$J,19707.12,4222,0)
 ;;=36^Count 5 Blocks^wcdl1017^^1586^1616^^^^^1^35^52.0^53^^1
 ;;^UTILITY(U,$J,19707.12,4223,0)
 ;;=36^Count 5 Blocks^wcdl1018^^1616^1647^^^^^1^40^53.0^54^^1
 ;;^UTILITY(U,$J,19707.12,4224,0)
 ;;=36^Count 5 Blocks^wcdl1019^^1647^1677^^^^^1^50^54.0^55^^1
 ;;^UTILITY(U,$J,19707.12,4225,0)
 ;;=36^Count 5 Blocks^wcdl1020^^1677^1708^^^^^1^55^55.0^56^^1
 ;;^UTILITY(U,$J,19707.12,4226,0)
 ;;=36^Count 5 Blocks^wcdl1021^^1708^1738^^^^^1^60^56.0^57^^1
 ;;^UTILITY(U,$J,19707.12,4227,0)
 ;;=36^Count 5 Blocks^wcdl1022^^1738^1769^^^^^0^65^57.0^58^^1
 ;;^UTILITY(U,$J,19707.12,4228,0)
 ;;=36^Count 5 Blocks^wcdl1023^^1769^1799^^^^^0^70^58.0^59^^1
 ;;^UTILITY(U,$J,19707.12,4229,0)
 ;;=36^Count 5 Blocks^wcdl1024^^1799^1830^^^^^0^75^59.0^60^^1
 ;;^UTILITY(U,$J,19707.12,4230,0)
 ;;=36^Count 5 Blocks^wcdl1025^^1830^1860^^^^^0^80^60.0^61^^1
 ;;^UTILITY(U,$J,19707.12,4231,0)
 ;;=36^Count 5 Blocks^wcdl1026^^1860^1891^^^^^0^80^61.0^62^^1
 ;;^UTILITY(U,$J,19707.12,4232,0)
 ;;=36^Count 5 Blocks^wcdl1027^^1891^1921^^^^^0^85^62.0^63^^1
 ;;^UTILITY(U,$J,19707.12,4233,0)
 ;;=36^Count 5 Blocks^wcdl1028^^1921^1952^^^^^0^85^63.0^64^^1
 ;;^UTILITY(U,$J,19707.12,4234,0)
 ;;=36^Count 5 Blocks^wcdl1029^^1952^1982^^^^^0^90^64.0^65^^1
 ;;^UTILITY(U,$J,19707.12,4235,0)
 ;;=36^Count 5 Blocks^wcdl1030^^1982^2013^^^^^1^100^65.0^66^^1
 ;;^UTILITY(U,$J,19707.12,4236,0)
 ;;=36^Count 5 Blocks^wcdl1031^^2013^2043^^^^^1^100^66.0^67^^1
 ;;^UTILITY(U,$J,19707.12,4237,0)
 ;;=36^Count 5 Blocks^wcdl1032^^2043^2074^^^^^1^100^67.0^68^^1
 ;;^UTILITY(U,$J,19707.12,4238,0)
 ;;=36^Count 5 Blocks^wcdl1033^^2074^2104^^^^^1^100^68.0^69^^1
 ;;^UTILITY(U,$J,19707.12,4239,0)
 ;;=36^Dada/Mama Non-Specific^wcdl1034^^183^198^^^^^0^35^6.0^6.5^^1
 ;;^UTILITY(U,$J,19707.12,4240,0)
 ;;=36^Dada/Mama Non-Specific^wcdl1035^^198^213^^^^^0^50^6.5^7^^1
 ;;^UTILITY(U,$J,19707.12,4241,0)
 ;;=36^Dada/Mama Non-Specific^wcdl1036^^213^228^^^^^0^70^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.12,4242,0)
 ;;=36^Dada/Mama Non-Specific^wcdl1037^^228^244^^^^^0^75^7.5^8^^1
 ;;^UTILITY(U,$J,19707.12,4243,0)
 ;;=36^Dada/Mama Non-Specific^wcdl1038^^244^259^^^^^0^80^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.12,4244,0)
 ;;=36^Dada/Mama Non-Specific^wcdl1039^^259^274^^^^^0^85^8.5^9^^1
 ;;^UTILITY(U,$J,19707.12,4245,0)
 ;;=36^Dada/Mama Non-Specific^wcdl1040^^274^289^^^^^0^90^9.0^9.5^^1
 ;;^UTILITY(U,$J,19707.12,4246,0)
 ;;=36^Dada/Mama Non-Specific^wcdl1041^^289^305^^^^^0^100^9.5^10^^1
 ;;^UTILITY(U,$J,19707.12,4247,0)
 ;;=36^Dada/Mama Non-Specific^wcdl1042^^305^320^^^^^0^100^10.0^10.5^^1
 ;;^UTILITY(U,$J,19707.12,4248,0)
 ;;=36^Dada/Mama Specific^wcdl1043^^198^213^^^^^0^25^6.5^7^^1
 ;;^UTILITY(U,$J,19707.12,4249,0)
 ;;=36^Dada/Mama Specific^wcdl1044^^213^228^^^^^0^30^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.12,4250,0)
 ;;=36^Dada/Mama Specific^wcdl1045^^228^244^^^^^0^30^7.5^8^^1
 ;;^UTILITY(U,$J,19707.12,4251,0)
 ;;=36^Dada/Mama Specific^wcdl1046^^244^259^^^^^0^35^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.12,4252,0)
 ;;=36^Dada/Mama Specific^wcdl1047^^259^274^^^^^0^40^8.5^9^^1
 ;;^UTILITY(U,$J,19707.12,4253,0)
 ;;=36^Dada/Mama Specific^wcdl1048^^274^289^^^^^0^45^9.0^9.5^^1
 ;;^UTILITY(U,$J,19707.12,4254,0)
 ;;=36^Dada/Mama Specific^wcdl1049^^289^305^^^^^0^50^9.5^10^^1
 ;;^UTILITY(U,$J,19707.12,4255,0)
 ;;=36^Dada/Mama Specific^wcdl1050^^305^320^^^^^0^60^10.0^10.5^^1
 ;;^UTILITY(U,$J,19707.12,4256,0)
 ;;=36^Dada/Mama Specific^wcdl1051^^320^335^^^^^0^70^10.5^11^^1
 ;;^UTILITY(U,$J,19707.12,4257,0)
 ;;=36^Dada/Mama Specific^wcdl1052^^335^350^^^^^0^75^11.0^11.5^^1
 ;;^UTILITY(U,$J,19707.12,4258,0)
 ;;=36^Dada/Mama Specific^wcdl1053^^350^366^^^^^0^80^11.5^12^^1
 ;;^UTILITY(U,$J,19707.12,4259,0)
 ;;=36^Dada/Mama Specific^wcdl1054^^366^381^^^^^0^80^12.0^12.5^^1
 ;;^UTILITY(U,$J,19707.12,4260,0)
 ;;=36^Dada/Mama Specific^wcdl1055^^381^396^^^^^0^85^12.5^13^^1
 ;;^UTILITY(U,$J,19707.12,4261,0)
 ;;=36^Dada/Mama Specific^wcdl1056^^396^411^^^^^0^85^13.0^13.5^^1
 ;;^UTILITY(U,$J,19707.12,4262,0)
 ;;=36^Dada/Mama Specific^wcdl1057^^411^427^^^^^0^90^13.5^14^^1
 ;;^UTILITY(U,$J,19707.12,4263,0)
 ;;=36^Dada/Mama Specific^wcdl1058^^427^442^^^^^0^100^14.0^14.5^^1
 ;;^UTILITY(U,$J,19707.12,4264,0)
 ;;=36^Dada/Mama Specific^wcdl1059^^442^457^^^^^0^100^14.5^15^^1
 ;;^UTILITY(U,$J,19707.12,4265,0)
 ;;=36^Dada/Mama Specific^wcdl1060^^457^472^^^^^0^100^15.0^15.5^^1
 ;;^UTILITY(U,$J,19707.12,4266,0)
 ;;=36^Define 5 Words^wcdl1061^^1189^1220^^^^^1^25^39.0^40^^1
 ;;^UTILITY(U,$J,19707.12,4267,0)
 ;;=36^Define 5 Words^wcdl1062^^1220^1250^^^^^1^30^40.0^41^^1
 ;;^UTILITY(U,$J,19707.12,4268,0)
 ;;=36^Define 5 Words^wcdl1063^^1250^1281^^^^^1^35^41.0^42^^1
 ;;^UTILITY(U,$J,19707.12,4269,0)
 ;;=36^Define 5 Words^wcdl1064^^1281^1311^^^^^1^40^42.0^43^^1
 ;;^UTILITY(U,$J,19707.12,4270,0)
 ;;=36^Define 5 Words^wcdl1065^^1311^1342^^^^^1^40^43.0^44^^1
 ;;^UTILITY(U,$J,19707.12,4271,0)
 ;;=36^Define 5 Words^wcdl1066^^1342^1372^^^^^1^45^44.0^45^^1
 ;;^UTILITY(U,$J,19707.12,4272,0)
 ;;=36^Define 5 Words^wcdl1067^^1372^1403^^^^^1^50^45.0^46^^1
 ;;^UTILITY(U,$J,19707.12,4273,0)
 ;;=36^Define 5 Words^wcdl1068^^1403^1433^^^^^1^55^46.0^47^^1
 ;;^UTILITY(U,$J,19707.12,4274,0)
 ;;=36^Define 5 Words^wcdl1069^^1433^1464^^^^^1^55^47.0^48^^1
 ;;^UTILITY(U,$J,19707.12,4275,0)
 ;;=36^Define 5 Words^wcdl1070^^1464^1494^^^^^1^60^48.0^49^^1
 ;;^UTILITY(U,$J,19707.12,4276,0)
 ;;=36^Define 5 Words^wcdl1071^^1494^1525^^^^^0^60^49.0^50^^1
 ;;^UTILITY(U,$J,19707.12,4277,0)
 ;;=36^Define 5 Words^wcdl1072^^1525^1555^^^^^0^65^50.0^51^^1
 ;;^UTILITY(U,$J,19707.12,4278,0)
 ;;=36^Define 5 Words^wcdl1073^^1555^1586^^^^^1^65^51.0^52^^1
 ;;^UTILITY(U,$J,19707.12,4279,0)
 ;;=36^Define 5 Words^wcdl1074^^1586^1616^^^^^0^70^52.0^53^^1
 ;;^UTILITY(U,$J,19707.12,4280,0)
 ;;=36^Define 5 Words^wcdl1075^^1616^1647^^^^^0^70^53.0^54^^1
 ;;^UTILITY(U,$J,19707.12,4281,0)
 ;;=36^Define 5 Words^wcdl1076^^1647^1677^^^^^0^75^54.0^55^^1
 ;;^UTILITY(U,$J,19707.12,4282,0)
 ;;=36^Define 5 Words^wcdl1077^^1677^1708^^^^^0^80^55.0^56^^1
 ;;^UTILITY(U,$J,19707.12,4283,0)
 ;;=36^Define 5 Words^wcdl1078^^1708^1738^^^^^0^80^56.0^57^^1
 ;;^UTILITY(U,$J,19707.12,4284,0)
 ;;=36^Define 5 Words^wcdl1079^^1738^1769^^^^^0^80^57.0^58^^1
 ;;^UTILITY(U,$J,19707.12,4285,0)
 ;;=36^Define 5 Words^wcdl1080^^1769^1799^^^^^0^80^58.0^59^^1