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

VENKI00K.m

Go to the documentation of this file.
VENKI00K ; ; 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,1307,0)
 ;;=4^Name 4 Pictures^wcdl1307^^^^^^^^1^100^37.0^38^^1
 ;;^UTILITY(U,$J,19707.12,1308,0)
 ;;=4^Name 4 Pictures^wcdl1308^^^^^^^^1^100^38.0^39^^1
 ;;^UTILITY(U,$J,19707.12,1309,0)
 ;;=4^One Word^wcdl1309^^^^^^^^0^25^10.0^10.5^^1
 ;;^UTILITY(U,$J,19707.12,1310,0)
 ;;=4^One Word^wcdl1310^^^^^^^^0^30^10.5^11^^1
 ;;^UTILITY(U,$J,19707.12,1311,0)
 ;;=4^One Word^wcdl1311^^^^^^^^0^40^11.0^11.5^^1
 ;;^UTILITY(U,$J,19707.12,1312,0)
 ;;=4^One Word^wcdl1312^^^^^^^^0^50^11.5^12^^1
 ;;^UTILITY(U,$J,19707.12,1313,0)
 ;;=4^One Word^wcdl1313^^^^^^^^0^60^12.0^12.5^^1
 ;;^UTILITY(U,$J,19707.12,1314,0)
 ;;=4^One Word^wcdl1314^^^^^^^^0^65^12.5^13^^1
 ;;^UTILITY(U,$J,19707.12,1315,0)
 ;;=4^One Word^wcdl1315^^^^^^^^0^70^13.0^13.5^^1
 ;;^UTILITY(U,$J,19707.12,1316,0)
 ;;=4^One Word^wcdl1316^^^^^^^^1^75^13.5^14^^1
 ;;^UTILITY(U,$J,19707.12,1317,0)
 ;;=4^One Word^wcdl1317^^^^^^^^1^80^14.0^14.5^^1
 ;;^UTILITY(U,$J,19707.12,1318,0)
 ;;=4^One Word^wcdl1318^^^^^^^^1^85^14.5^15^^1
 ;;^UTILITY(U,$J,19707.12,1319,0)
 ;;=4^One Word^wcdl1319^^^^^^^^1^90^15.0^15.5^^1
 ;;^UTILITY(U,$J,19707.12,1320,0)
 ;;=4^One Word^wcdl1320^^^^^^^^0^100^15.5^16^^1
 ;;^UTILITY(U,$J,19707.12,1321,0)
 ;;=4^One Word^wcdl1321^^^^^^^^0^100^16.0^16.5^^1
 ;;^UTILITY(U,$J,19707.12,1322,0)
 ;;=4^One Word^wcdl1322^^^^^^^^0^100^16.5^17^^1
 ;;^UTILITY(U,$J,19707.12,1323,0)
 ;;=4^Opposites - 2^wcdl1323^^^^^^^^0^25^44.0^45^^1
 ;;^UTILITY(U,$J,19707.12,1324,0)
 ;;=4^Opposites - 2^wcdl1324^^^^^^^^0^30^45.0^46^^1
 ;;^UTILITY(U,$J,19707.12,1325,0)
 ;;=4^Opposites - 2^wcdl1325^^^^^^^^0^30^46.0^47^^1
 ;;^UTILITY(U,$J,19707.12,1326,0)
 ;;=4^Opposites - 2^wcdl1326^^^^^^^^0^35^47.0^48^^1
 ;;^UTILITY(U,$J,19707.12,1327,0)
 ;;=4^Opposites - 2^wcdl1327^^^^^^^^0^40^48.0^49^^1
 ;;^UTILITY(U,$J,19707.12,1328,0)
 ;;=4^Opposites - 2^wcdl1328^^^^^^^^0^45^49.0^50^^1
 ;;^UTILITY(U,$J,19707.12,1329,0)
 ;;=4^Opposites - 2^wcdl1329^^^^^^^^0^50^50.0^51^^1
 ;;^UTILITY(U,$J,19707.12,1330,0)
 ;;=4^Opposites - 2^wcdl1330^^^^^^^^0^55^51.0^52^^1
 ;;^UTILITY(U,$J,19707.12,1331,0)
 ;;=4^Opposites - 2^wcdl1331^^^^^^^^0^55^52.0^53^^1
 ;;^UTILITY(U,$J,19707.12,1332,0)
 ;;=4^Opposites - 2^wcdl1332^^^^^^^^0^60^53.0^54^^1
 ;;^UTILITY(U,$J,19707.12,1333,0)
 ;;=4^Opposites - 2^wcdl1333^^^^^^^^0^60^54.0^55^^1
 ;;^UTILITY(U,$J,19707.12,1334,0)
 ;;=4^Opposites - 2^wcdl1334^^^^^^^^0^60^55.0^56^^1
 ;;^UTILITY(U,$J,19707.12,1335,0)
 ;;=4^Opposites - 2^wcdl1335^^^^^^^^0^65^56.0^57^^1
 ;;^UTILITY(U,$J,19707.12,1336,0)
 ;;=4^Opposites - 2^wcdl1336^^^^^^^^0^65^57.0^58^^1
 ;;^UTILITY(U,$J,19707.12,1337,0)
 ;;=4^Opposites - 2^wcdl1337^^^^^^^^0^70^58.0^59^^1
 ;;^UTILITY(U,$J,19707.12,1338,0)
 ;;=4^Opposites - 2^wcdl1338^^^^^^^^0^70^59.0^60^^1
 ;;^UTILITY(U,$J,19707.12,1339,0)
 ;;=4^Opposites - 2^wcdl1339^^^^^^^^0^75^60.0^61^^1
 ;;^UTILITY(U,$J,19707.12,1340,0)
 ;;=4^Opposites - 2^wcdl1340^^^^^^^^0^80^61.0^62^^1
 ;;^UTILITY(U,$J,19707.12,1341,0)
 ;;=4^Opposites - 2^wcdl1341^^^^^^^^0^80^62.0^63^^1
 ;;^UTILITY(U,$J,19707.12,1342,0)
 ;;=4^Opposites - 2^wcdl1342^^^^^^^^0^80^63.0^64^^1
 ;;^UTILITY(U,$J,19707.12,1343,0)
 ;;=4^Opposites - 2^wcdl1343^^^^^^^^0^80^64.0^65^^1
 ;;^UTILITY(U,$J,19707.12,1344,0)
 ;;=4^Opposites - 2^wcdl1344^^^^^^^^0^85^65.0^66^^1
 ;;^UTILITY(U,$J,19707.12,1345,0)
 ;;=4^Opposites - 2^wcdl1345^^^^^^^^0^85^66.0^67^^1
 ;;^UTILITY(U,$J,19707.12,1346,0)
 ;;=4^Opposites - 2^wcdl1346^^^^^^^^0^85^67.0^68^^1
 ;;^UTILITY(U,$J,19707.12,1347,0)
 ;;=4^Opposites - 2^wcdl1347^^^^^^^^0^90^68.0^69^^1
 ;;^UTILITY(U,$J,19707.12,1348,0)
 ;;=4^Opposites - 2^wcdl1348^^^^^^^^0^100^69.0^70^^1
 ;;^UTILITY(U,$J,19707.12,1349,0)
 ;;=4^Opposites - 2^wcdl1349^^^^^^^^0^100^70.0^71^^1
 ;;^UTILITY(U,$J,19707.12,1350,0)
 ;;=4^Opposites - 2^wcdl1350^^^^^^^^0^100^71.0^72^^1
 ;;^UTILITY(U,$J,19707.12,1351,0)
 ;;=4^Opposites - 2^wcdl1351^^^^^^^^0^100^72.0^73^^1
 ;;^UTILITY(U,$J,19707.12,1352,0)
 ;;=4^Point 2 Pictures^wcdl1352^^^^^^^^0^25^17.0^17.5^^1
 ;;^UTILITY(U,$J,19707.12,1353,0)
 ;;=4^Point 2 Pictures^wcdl1353^^^^^^^^0^30^17.5^18^^1
 ;;^UTILITY(U,$J,19707.12,1354,0)
 ;;=4^Point 2 Pictures^wcdl1354^^^^^^^^0^40^18.0^18.5^^1
 ;;^UTILITY(U,$J,19707.12,1355,0)
 ;;=4^Point 2 Pictures^wcdl1355^^^^^^^^0^50^19.0^20^^1
 ;;^UTILITY(U,$J,19707.12,1356,0)
 ;;=4^Point 2 Pictures^wcdl1356^^^^^^^^1^60^20.0^21^^1
 ;;^UTILITY(U,$J,19707.12,1357,0)
 ;;=4^Point 2 Pictures^wcdl1357^^^^^^^^1^75^21.0^22^^1
 ;;^UTILITY(U,$J,19707.12,1358,0)
 ;;=4^Point 2 Pictures^wcdl1358^^^^^^^^0^80^22.0^23^^1
 ;;^UTILITY(U,$J,19707.12,1359,0)
 ;;=4^Point 2 Pictures^wcdl1359^^^^^^^^0^90^23.0^24^^1
 ;;^UTILITY(U,$J,19707.12,1360,0)
 ;;=4^Point 2 Pictures^wcdl1360^^^^^^^^1^100^24.0^25^^1
 ;;^UTILITY(U,$J,19707.12,1361,0)
 ;;=4^Point 2 Pictures^wcdl1361^^^^^^^^1^100^25.0^26^^1
 ;;^UTILITY(U,$J,19707.12,1362,0)
 ;;=4^Point 4 Pictures^wcdl1362^^^^^^^^1^25^20.0^21^^1
 ;;^UTILITY(U,$J,19707.12,1363,0)
 ;;=4^Point 4 Pictures^wcdl1363^^^^^^^^1^40^21.0^22^^1
 ;;^UTILITY(U,$J,19707.12,1364,0)
 ;;=4^Point 4 Pictures^wcdl1364^^^^^^^^1^50^22.0^23^^1
 ;;^UTILITY(U,$J,19707.12,1365,0)
 ;;=4^Point 4 Pictures^wcdl1365^^^^^^^^1^60^23.0^24^^1
 ;;^UTILITY(U,$J,19707.12,1366,0)
 ;;=4^Point 4 Pictures^wcdl1366^^^^^^^^1^70^24.0^25^^1
 ;;^UTILITY(U,$J,19707.12,1367,0)
 ;;=4^Point 4 Pictures^wcdl1367^^^^^^^^1^75^25.0^26^^1
 ;;^UTILITY(U,$J,19707.12,1368,0)
 ;;=4^Point 4 Pictures^wcdl1368^^^^^^^^1^80^26.0^27^^1
 ;;^UTILITY(U,$J,19707.12,1369,0)
 ;;=4^Point 4 Pictures^wcdl1369^^^^^^^^1^80^27.0^28^^1
 ;;^UTILITY(U,$J,19707.12,1370,0)
 ;;=4^Point 4 Pictures^wcdl1370^^^^^^^^1^85^28.0^29^^1
 ;;^UTILITY(U,$J,19707.12,1371,0)
 ;;=4^Point 4 Pictures^wcdl1371^^^^^^^^1^85^29.0^30^^1
 ;;^UTILITY(U,$J,19707.12,1372,0)
 ;;=4^Point 4 Pictures^wcdl1372^^^^^^^^1^90^30.0^31^^1
 ;;^UTILITY(U,$J,19707.12,1373,0)
 ;;=4^Point 4 Pictures^wcdl1373^^^^^^^^1^100^31.0^32^^1
 ;;^UTILITY(U,$J,19707.12,1374,0)
 ;;=4^Point 4 Pictures^wcdl1374^^^^^^^^1^100^32.0^33^^1
 ;;^UTILITY(U,$J,19707.12,1375,0)
 ;;=4^Point 4 Pictures^wcdl1375^^^^^^^^1^100^33.0^34^^1
 ;;^UTILITY(U,$J,19707.12,1376,0)
 ;;=4^Point 4 Pictures^wcdl1376^^^^^^^^1^100^34.0^35^^1
 ;;^UTILITY(U,$J,19707.12,1377,0)
 ;;=4^Point 4 Pictures^wcdl1377^^^^^^^^1^100^35.0^36^^1
 ;;^UTILITY(U,$J,19707.12,1378,0)
 ;;=4^Respond to Bell^wcdl1378^^^^^^^^0^90^.5^1^^1
 ;;^UTILITY(U,$J,19707.12,1379,0)
 ;;=4^Single Syllables^wcdl1379^^^^^^^^0^25^4.5^5^^1
 ;;^UTILITY(U,$J,19707.12,1380,0)
 ;;=4^Single Syllables^wcdl1380^^^^^^^^0^35^5.0^5.5^^1
 ;;^UTILITY(U,$J,19707.12,1381,0)
 ;;=4^Single Syllables^wcdl1381^^^^^^^^0^45^5.5^6^^1
 ;;^UTILITY(U,$J,19707.12,1382,0)
 ;;=4^Single Syllables^wcdl1382^^^^^^^^1^60^6.0^6.5^^1
 ;;^UTILITY(U,$J,19707.12,1383,0)
 ;;=4^Single Syllables^wcdl1383^^^^^^^^1^75^6.5^7^^1
 ;;^UTILITY(U,$J,19707.12,1384,0)
 ;;=4^Single Syllables^wcdl1384^^^^^^^^1^80^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.12,1385,0)
 ;;=4^Single Syllables^wcdl1385^^^^^^^^1^90^7.5^8^^1
 ;;^UTILITY(U,$J,19707.12,1386,0)
 ;;=4^Single Syllables^wcdl1386^^^^^^^^1^100^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.12,1387,0)
 ;;=4^Single Syllables^wcdl1387^^^^^^^^1^100^8.5^9^^1
 ;;^UTILITY(U,$J,19707.12,1388,0)
 ;;=4^Speech 1/2 Understand^wcdl1388^^^^^^^^0^25^17.0^17.5^^1
 ;;^UTILITY(U,$J,19707.12,1389,0)
 ;;=4^Speech 1/2 Understand^wcdl1389^^^^^^^^0^30^17.5^18^^1
 ;;^UTILITY(U,$J,19707.12,1390,0)
 ;;=4^Speech 1/2 Understand^wcdl1390^^^^^^^^0^35^18.0^18.5^^1
 ;;^UTILITY(U,$J,19707.12,1391,0)
 ;;=4^Speech 1/2 Understand^wcdl1391^^^^^^^^0^40^19.0^20^^1
 ;;^UTILITY(U,$J,19707.12,1392,0)
 ;;=4^Speech 1/2 Understand^wcdl1392^^^^^^^^0^50^20.0^21^^1
 ;;^UTILITY(U,$J,19707.12,1393,0)
 ;;=4^Speech 1/2 Understand^wcdl1393^^^^^^^^0^55^21.0^22^^1
 ;;^UTILITY(U,$J,19707.12,1394,0)
 ;;=4^Speech 1/2 Understand^wcdl1394^^^^^^^^0^60^22.0^23^^1