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

VENKI01U.m

Go to the documentation of this file.
VENKI01U ; ; 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,4446,0)
 ;;=36^Name 1 Color^wcdl1241^^976^1006^^^^^0^45^32.0^33^^1
 ;;^UTILITY(U,$J,19707.12,4447,0)
 ;;=36^Name 1 Color^wcdl1242^^1006^1037^^^^^0^45^33.0^34^^1
 ;;^UTILITY(U,$J,19707.12,4448,0)
 ;;=36^Name 1 Color^wcdl1243^^1037^1067^^^^^0^50^34.0^35^^1
 ;;^UTILITY(U,$J,19707.12,4449,0)
 ;;=36^Name 1 Color^wcdl1244^^1067^1098^^^^^0^55^35.0^36^^1
 ;;^UTILITY(U,$J,19707.12,4450,0)
 ;;=36^Name 1 Color^wcdl1245^^1098^1128^^^^^1^60^36.0^37^^1
 ;;^UTILITY(U,$J,19707.12,4451,0)
 ;;=36^Name 1 Color^wcdl1246^^1128^1159^^^^^1^65^37.0^38^^1
 ;;^UTILITY(U,$J,19707.12,4452,0)
 ;;=36^Name 1 Color^wcdl1247^^1159^1189^^^^^1^70^38.0^39^^1
 ;;^UTILITY(U,$J,19707.12,4453,0)
 ;;=36^Name 1 Color^wcdl1248^^1189^1220^^^^^1^75^39.0^40^^1
 ;;^UTILITY(U,$J,19707.12,4454,0)
 ;;=36^Name 1 Color^wcdl1249^^1220^1250^^^^^1^80^40.0^41^^1
 ;;^UTILITY(U,$J,19707.12,4455,0)
 ;;=36^Name 1 Color^wcdl1250^^1250^1281^^^^^1^80^41.0^42^^1
 ;;^UTILITY(U,$J,19707.12,4456,0)
 ;;=36^Name 1 Color^wcdl1251^^1281^1311^^^^^1^85^42.0^43^^1
 ;;^UTILITY(U,$J,19707.12,4457,0)
 ;;=36^Name 1 Color^wcdl1252^^1311^1342^^^^^1^85^43.0^44^^1
 ;;^UTILITY(U,$J,19707.12,4458,0)
 ;;=36^Name 1 Color^wcdl1253^^1342^1372^^^^^1^90^44.0^45^^1
 ;;^UTILITY(U,$J,19707.12,4459,0)
 ;;=36^Name 1 Color^wcdl1254^^1372^1403^^^^^1^100^45.0^46^^1
 ;;^UTILITY(U,$J,19707.12,4460,0)
 ;;=36^Name 1 Picture^wcdl1255^^579^610^^^^^1^25^19.0^20^^1
 ;;^UTILITY(U,$J,19707.12,4461,0)
 ;;=36^Name 1 Picture^wcdl1256^^610^640^^^^^0^50^20.0^21^^1
 ;;^UTILITY(U,$J,19707.12,4462,0)
 ;;=36^Name 1 Picture^wcdl1257^^640^671^^^^^0^60^21.0^22^^1
 ;;^UTILITY(U,$J,19707.12,4463,0)
 ;;=36^Name 1 Picture^wcdl1258^^671^701^^^^^0^65^22.0^23^^1
 ;;^UTILITY(U,$J,19707.12,4464,0)
 ;;=36^Name 1 Picture^wcdl1259^^701^732^^^^^1^70^23.0^24^^1
 ;;^UTILITY(U,$J,19707.12,4465,0)
 ;;=36^Name 1 Picture^wcdl1260^^732^762^^^^^1^75^24.0^25^^1
 ;;^UTILITY(U,$J,19707.12,4466,0)
 ;;=36^Name 1 Picture^wcdl1261^^762^793^^^^^1^80^25.0^26^^1
 ;;^UTILITY(U,$J,19707.12,4467,0)
 ;;=36^Name 1 Picture^wcdl1262^^793^823^^^^^1^85^26.0^27^^1
 ;;^UTILITY(U,$J,19707.12,4468,0)
 ;;=36^Name 1 Picture^wcdl1263^^823^854^^^^^1^90^27.0^28^^1
 ;;^UTILITY(U,$J,19707.12,4469,0)
 ;;=36^Name 1 Picture^wcdl1264^^854^884^^^^^1^100^28.0^29^^1
 ;;^UTILITY(U,$J,19707.12,4470,0)
 ;;=36^Name 4 Colors^wcdl1265^^1098^1128^^^^^0^25^36.0^37^^1
 ;;^UTILITY(U,$J,19707.12,4471,0)
 ;;=36^Name 4 Colors^wcdl1266^^1128^1159^^^^^0^30^37.0^38^^1
 ;;^UTILITY(U,$J,19707.12,4472,0)
 ;;=36^Name 4 Colors^wcdl1267^^1159^1189^^^^^0^30^38.0^39^^1
 ;;^UTILITY(U,$J,19707.12,4473,0)
 ;;=36^Name 4 Colors^wcdl1268^^1189^1220^^^^^0^35^39.0^40^^1
 ;;^UTILITY(U,$J,19707.12,4474,0)
 ;;=36^Name 4 Colors^wcdl1269^^1220^1250^^^^^0^40^40.0^41^^1
 ;;^UTILITY(U,$J,19707.12,4475,0)
 ;;=36^Name 4 Colors^wcdl1270^^1250^1281^^^^^0^40^41.0^42^^1
 ;;^UTILITY(U,$J,19707.12,4476,0)
 ;;=36^Name 4 Colors^wcdl1271^^1281^1311^^^^^0^45^42.0^43^^1
 ;;^UTILITY(U,$J,19707.12,4477,0)
 ;;=36^Name 4 Colors^wcdl1272^^1311^1342^^^^^0^50^43.0^44^^1
 ;;^UTILITY(U,$J,19707.12,4478,0)
 ;;=36^Name 4 Colors^wcdl1273^^1342^1372^^^^^0^55^44.0^45^^1
 ;;^UTILITY(U,$J,19707.12,4479,0)
 ;;=36^Name 4 Colors^wcdl1274^^1372^1403^^^^^0^60^45.0^46^^1
 ;;^UTILITY(U,$J,19707.12,4480,0)
 ;;=36^Name 4 Colors^wcdl1275^^1403^1433^^^^^0^60^46.0^47^^1
 ;;^UTILITY(U,$J,19707.12,4481,0)
 ;;=36^Name 4 Colors^wcdl1276^^1433^1464^^^^^0^65^47.0^48^^1
 ;;^UTILITY(U,$J,19707.12,4482,0)
 ;;=36^Name 4 Colors^wcdl1277^^1464^1494^^^^^0^70^48.0^49^^1
 ;;^UTILITY(U,$J,19707.12,4483,0)
 ;;=36^Name 4 Colors^wcdl1278^^1494^1525^^^^^1^70^49.0^50^^1
 ;;^UTILITY(U,$J,19707.12,4484,0)
 ;;=36^Name 4 Colors^wcdl1279^^1525^1555^^^^^1^75^50.0^51^^1
 ;;^UTILITY(U,$J,19707.12,4485,0)
 ;;=36^Name 4 Colors^wcdl1280^^1555^1586^^^^^0^80^51.0^52^^1
 ;;^UTILITY(U,$J,19707.12,4486,0)
 ;;=36^Name 4 Colors^wcdl1281^^1586^1616^^^^^1^80^52.0^53^^1
 ;;^UTILITY(U,$J,19707.12,4487,0)
 ;;=36^Name 4 Colors^wcdl1282^^1616^1647^^^^^1^80^53.0^54^^1
 ;;^UTILITY(U,$J,19707.12,4488,0)
 ;;=36^Name 4 Colors^wcdl1283^^1647^1677^^^^^1^85^54.0^55^^1
 ;;^UTILITY(U,$J,19707.12,4489,0)
 ;;=36^Name 4 Colors^wcdl1284^^1677^1708^^^^^1^85^55.0^56^^1
 ;;^UTILITY(U,$J,19707.12,4490,0)
 ;;=36^Name 4 Colors^wcdl1285^^1708^1738^^^^^1^85^56.0^57^^1
 ;;^UTILITY(U,$J,19707.12,4491,0)
 ;;=36^Name 4 Colors^wcdl1286^^1738^1769^^^^^1^90^57.0^58^^1
 ;;^UTILITY(U,$J,19707.12,4492,0)
 ;;=36^Name 4 Colors^wcdl1287^^1769^1799^^^^^1^100^58.0^59^^1
 ;;^UTILITY(U,$J,19707.12,4493,0)
 ;;=36^Name 4 Colors^wcdl1288^^1799^1830^^^^^1^100^59.0^60^^1
 ;;^UTILITY(U,$J,19707.12,4494,0)
 ;;=36^Name 4 Colors^wcdl1289^^1830^1860^^^^^1^100^60.0^61^^1
 ;;^UTILITY(U,$J,19707.12,4495,0)
 ;;=36^Name 4 Colors^wcdl1290^^1860^1891^^^^^1^100^61.0^62^^1
 ;;^UTILITY(U,$J,19707.12,4496,0)
 ;;=36^Name 4 Colors^wcdl1291^^1891^1921^^^^^1^100^62.0^63^^1
 ;;^UTILITY(U,$J,19707.12,4497,0)
 ;;=36^Name 4 Colors^wcdl1292^^1921^1952^^^^^1^100^63.0^64^^1
 ;;^UTILITY(U,$J,19707.12,4498,0)
 ;;=36^Name 4 Pictures^wcdl1293^^701^732^^^^^1^25^23.0^24^^1
 ;;^UTILITY(U,$J,19707.12,4499,0)
 ;;=36^Name 4 Pictures^wcdl1294^^732^762^^^^^1^30^24.0^25^^1
 ;;^UTILITY(U,$J,19707.12,4500,0)
 ;;=36^Name 4 Pictures^wcdl1295^^762^793^^^^^1^35^25.0^26^^1
 ;;^UTILITY(U,$J,19707.12,4501,0)
 ;;=36^Name 4 Pictures^wcdl1296^^793^823^^^^^1^40^26.0^27^^1
 ;;^UTILITY(U,$J,19707.12,4502,0)
 ;;=36^Name 4 Pictures^wcdl1297^^823^854^^^^^1^50^27.0^28^^1
 ;;^UTILITY(U,$J,19707.12,4503,0)
 ;;=36^Name 4 Pictures^wcdl1298^^854^884^^^^^1^60^28.0^29^^1
 ;;^UTILITY(U,$J,19707.12,4504,0)
 ;;=36^Name 4 Pictures^wcdl1299^^884^915^^^^^1^65^29.0^30^^1
 ;;^UTILITY(U,$J,19707.12,4505,0)
 ;;=36^Name 4 Pictures^wcdl1300^^915^945^^^^^1^70^30.0^31^^1
 ;;^UTILITY(U,$J,19707.12,4506,0)
 ;;=36^Name 4 Pictures^wcdl1301^^945^976^^^^^1^75^31.0^32^^1
 ;;^UTILITY(U,$J,19707.12,4507,0)
 ;;=36^Name 4 Pictures^wcdl1302^^976^1006^^^^^1^80^32.0^33^^1
 ;;^UTILITY(U,$J,19707.12,4508,0)
 ;;=36^Name 4 Pictures^wcdl1303^^1006^1037^^^^^1^80^33.0^34^^1
 ;;^UTILITY(U,$J,19707.12,4509,0)
 ;;=36^Name 4 Pictures^wcdl1304^^1037^1067^^^^^1^85^34.0^35^^1
 ;;^UTILITY(U,$J,19707.12,4510,0)
 ;;=36^Name 4 Pictures^wcdl1305^^1067^1098^^^^^1^90^35.0^36^^1
 ;;^UTILITY(U,$J,19707.12,4511,0)
 ;;=36^Name 4 Pictures^wcdl1306^^1098^1128^^^^^1^100^36.0^37^^1
 ;;^UTILITY(U,$J,19707.12,4512,0)
 ;;=36^Name 4 Pictures^wcdl1307^^1128^1159^^^^^1^100^37.0^38^^1
 ;;^UTILITY(U,$J,19707.12,4513,0)
 ;;=36^Name 4 Pictures^wcdl1308^^1159^1189^^^^^1^100^38.0^39^^1
 ;;^UTILITY(U,$J,19707.12,4514,0)
 ;;=36^One Word^wcdl1309^^305^320^^^^^0^25^10.0^10.5^^1
 ;;^UTILITY(U,$J,19707.12,4515,0)
 ;;=36^One Word^wcdl1310^^320^335^^^^^0^30^10.5^11^^1
 ;;^UTILITY(U,$J,19707.12,4516,0)
 ;;=36^One Word^wcdl1311^^335^350^^^^^0^40^11.0^11.5^^1
 ;;^UTILITY(U,$J,19707.12,4517,0)
 ;;=36^One Word^wcdl1312^^350^366^^^^^0^50^11.5^12^^1
 ;;^UTILITY(U,$J,19707.12,4518,0)
 ;;=36^One Word^wcdl1313^^366^381^^^^^0^60^12.0^12.5^^1
 ;;^UTILITY(U,$J,19707.12,4519,0)
 ;;=36^One Word^wcdl1314^^381^396^^^^^0^65^12.5^13^^1
 ;;^UTILITY(U,$J,19707.12,4520,0)
 ;;=36^One Word^wcdl1315^^396^411^^^^^0^70^13.0^13.5^^1
 ;;^UTILITY(U,$J,19707.12,4521,0)
 ;;=36^One Word^wcdl1316^^411^427^^^^^1^75^13.5^14^^1
 ;;^UTILITY(U,$J,19707.12,4522,0)
 ;;=36^One Word^wcdl1317^^427^442^^^^^1^80^14.0^14.5^^1
 ;;^UTILITY(U,$J,19707.12,4523,0)
 ;;=36^One Word^wcdl1318^^442^457^^^^^1^85^14.5^15^^1
 ;;^UTILITY(U,$J,19707.12,4524,0)
 ;;=36^One Word^wcdl1319^^457^472^^^^^1^90^15.0^15.5^^1
 ;;^UTILITY(U,$J,19707.12,4525,0)
 ;;=36^One Word^wcdl1320^^472^488^^^^^0^100^15.5^16^^1
 ;;^UTILITY(U,$J,19707.12,4526,0)
 ;;=36^One Word^wcdl1321^^488^503^^^^^0^100^16.0^16.5^^1