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

VENKI01S.m

Go to the documentation of this file.
VENKI01S ; ; 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,4286,0)
 ;;=36^Define 5 Words^wcdl1081^^1799^1830^^^^^0^80^59.0^60^^1
 ;;^UTILITY(U,$J,19707.12,4287,0)
 ;;=36^Define 5 Words^wcdl1082^^1830^1860^^^^^0^85^60.0^61^^1
 ;;^UTILITY(U,$J,19707.12,4288,0)
 ;;=36^Define 5 Words^wcdl1083^^1860^1891^^^^^0^85^61.0^62^^1
 ;;^UTILITY(U,$J,19707.12,4289,0)
 ;;=36^Define 5 Words^wcdl1084^^1891^1921^^^^^0^85^62.0^63^^1
 ;;^UTILITY(U,$J,19707.12,4290,0)
 ;;=36^Define 5 Words^wcdl1085^^1921^1952^^^^^0^90^63.0^64^^1
 ;;^UTILITY(U,$J,19707.12,4291,0)
 ;;=36^Define 7 Words^wcdl1086^^1433^1464^^^^^1^25^47.0^48^^1
 ;;^UTILITY(U,$J,19707.12,4292,0)
 ;;=36^Define 7 Words^wcdl1087^^1464^1494^^^^^1^30^48.0^49^^1
 ;;^UTILITY(U,$J,19707.12,4293,0)
 ;;=36^Define 7 Words^wcdl1088^^1494^1525^^^^^1^30^49.0^50^^1
 ;;^UTILITY(U,$J,19707.12,4294,0)
 ;;=36^Define 7 Words^wcdl1089^^1525^1555^^^^^1^35^50.0^51^^1
 ;;^UTILITY(U,$J,19707.12,4295,0)
 ;;=36^Define 7 Words^wcdl1090^^1555^1586^^^^^1^40^51.0^52^^1
 ;;^UTILITY(U,$J,19707.12,4296,0)
 ;;=36^Define 7 Words^wcdl1091^^1586^1616^^^^^0^40^52.0^53^^1
 ;;^UTILITY(U,$J,19707.12,4297,0)
 ;;=36^Define 7 Words^wcdl1092^^1616^1647^^^^^0^45^53.0^54^^1
 ;;^UTILITY(U,$J,19707.12,4298,0)
 ;;=36^Define 7 Words^wcdl1093^^1647^1677^^^^^0^50^54.0^55^^1
 ;;^UTILITY(U,$J,19707.12,4299,0)
 ;;=36^Define 7 Words^wcdl1094^^1677^1708^^^^^0^55^55.0^56^^1
 ;;^UTILITY(U,$J,19707.12,4300,0)
 ;;=36^Define 7 Words^wcdl1095^^1708^1738^^^^^0^55^56.0^57^^1
 ;;^UTILITY(U,$J,19707.12,4301,0)
 ;;=36^Define 7 Words^wcdl1096^^1738^1769^^^^^0^60^57.0^58^^1
 ;;^UTILITY(U,$J,19707.12,4302,0)
 ;;=36^Define 7 Words^wcdl1097^^1769^1799^^^^^0^60^58.0^59^^1
 ;;^UTILITY(U,$J,19707.12,4303,0)
 ;;=36^Define 7 Words^wcdl1098^^1799^1830^^^^^0^65^59.0^60^^1
 ;;^UTILITY(U,$J,19707.12,4304,0)
 ;;=36^Define 7 Words^wcdl1099^^1830^1860^^^^^0^65^60.0^61^^1
 ;;^UTILITY(U,$J,19707.12,4305,0)
 ;;=36^Define 7 Words^wcdl1100^^1860^1891^^^^^0^70^61.0^62^^1
 ;;^UTILITY(U,$J,19707.12,4306,0)
 ;;=36^Define 7 Words^wcdl1101^^1891^1921^^^^^0^70^62.0^63^^1
 ;;^UTILITY(U,$J,19707.12,4307,0)
 ;;=36^Define 7 Words^wcdl1102^^1921^1952^^^^^0^75^63.0^64^^1
 ;;^UTILITY(U,$J,19707.12,4308,0)
 ;;=36^Define 7 Words^wcdl1103^^1952^1982^^^^^0^80^64.0^65^^1
 ;;^UTILITY(U,$J,19707.12,4309,0)
 ;;=36^Define 7 Words^wcdl1104^^1982^2013^^^^^0^80^65.0^66^^1
 ;;^UTILITY(U,$J,19707.12,4310,0)
 ;;=36^Define 7 Words^wcdl1105^^2013^2043^^^^^0^80^66.0^67^^1
 ;;^UTILITY(U,$J,19707.12,4311,0)
 ;;=36^Define 7 Words^wcdl1106^^2043^2074^^^^^0^80^67.0^68^^1
 ;;^UTILITY(U,$J,19707.12,4312,0)
 ;;=36^Define 7 Words^wcdl1107^^2074^2104^^^^^0^85^68.0^69^^1
 ;;^UTILITY(U,$J,19707.12,4313,0)
 ;;=36^Define 7 Words^wcdl1108^^2104^2135^^^^^0^85^69.0^70^^1
 ;;^UTILITY(U,$J,19707.12,4314,0)
 ;;=36^Define 7 Words^wcdl1109^^2135^2165^^^^^0^85^70.0^71^^1
 ;;^UTILITY(U,$J,19707.12,4315,0)
 ;;=36^Define 7 Words^wcdl1110^^2165^2196^^^^^0^85^71.0^72^^1
 ;;^UTILITY(U,$J,19707.12,4316,0)
 ;;=36^Define 7 Words^wcdl1111^^2196^2226^^^^^0^88^72.0^73^^1
 ;;^UTILITY(U,$J,19707.12,4317,0)
 ;;=36^Imitate Speech Sounds^wcdl1112^^91^106^^^^^0^25^3.0^3.5^^1
 ;;^UTILITY(U,$J,19707.12,4318,0)
 ;;=36^Imitate Speech Sounds^wcdl1113^^106^122^^^^^0^30^3.5^4^^1
 ;;^UTILITY(U,$J,19707.12,4319,0)
 ;;=36^Imitate Speech Sounds^wcdl1114^^122^137^^^^^0^35^4.0^4.5^^1
 ;;^UTILITY(U,$J,19707.12,4320,0)
 ;;=36^Imitate Speech Sounds^wcdl1115^^137^152^^^^^0^40^4.5^5^^1
 ;;^UTILITY(U,$J,19707.12,4321,0)
 ;;=36^Imitate Speech Sounds^wcdl1116^^152^167^^^^^0^45^5.0^5.5^^1
 ;;^UTILITY(U,$J,19707.12,4322,0)
 ;;=36^Imitate Speech Sounds^wcdl1117^^167^183^^^^^0^60^5.5^6^^1
 ;;^UTILITY(U,$J,19707.12,4323,0)
 ;;=36^Imitate Speech Sounds^wcdl1118^^183^198^^^^^0^75^6.0^6.5^^1
 ;;^UTILITY(U,$J,19707.12,4324,0)
 ;;=36^Imitate Speech Sounds^wcdl1119^^198^213^^^^^0^80^6.5^7^^1
 ;;^UTILITY(U,$J,19707.12,4325,0)
 ;;=36^Imitate Speech Sounds^wcdl1120^^213^228^^^^^0^80^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.12,4326,0)
 ;;=36^Imitate Speech Sounds^wcdl1121^^228^244^^^^^0^85^7.5^8^^1
 ;;^UTILITY(U,$J,19707.12,4327,0)
 ;;=36^Imitate Speech Sounds^wcdl1122^^244^259^^^^^0^85^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.12,4328,0)
 ;;=36^Imitate Speech Sounds^wcdl1123^^259^274^^^^^0^90^8.5^9^^1
 ;;^UTILITY(U,$J,19707.12,4329,0)
 ;;=36^Imitate Speech Sounds^wcdl1124^^274^289^^^^^0^100^9.0^9.5^^1
 ;;^UTILITY(U,$J,19707.12,4330,0)
 ;;=36^Jabbers^wcdl1125^^183^198^^^^^1^30^6.0^6.5^^1
 ;;^UTILITY(U,$J,19707.12,4331,0)
 ;;=36^Jabbers^wcdl1126^^198^213^^^^^1^40^6.5^7^^1
 ;;^UTILITY(U,$J,19707.12,4332,0)
 ;;=36^Jabbers^wcdl1127^^213^228^^^^^1^50^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.12,4333,0)
 ;;=36^Jabbers^wcdl1128^^228^244^^^^^1^60^7.5^8^^1
 ;;^UTILITY(U,$J,19707.12,4334,0)
 ;;=36^Jabbers^wcdl1129^^244^259^^^^^1^70^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.12,4335,0)
 ;;=36^Jabbers^wcdl1130^^259^274^^^^^1^75^8.5^9^^1
 ;;^UTILITY(U,$J,19707.12,4336,0)
 ;;=36^Jabbers^wcdl1131^^274^289^^^^^1^80^9.0^9.5^^1
 ;;^UTILITY(U,$J,19707.12,4337,0)
 ;;=36^Jabbers^wcdl1132^^289^305^^^^^0^80^9.5^10^^1
 ;;^UTILITY(U,$J,19707.12,4338,0)
 ;;=36^Jabbers^wcdl1133^^305^320^^^^^0^80^10.0^10.5^^1
 ;;^UTILITY(U,$J,19707.12,4339,0)
 ;;=36^Jabbers^wcdl1134^^320^335^^^^^0^85^10.5^11^^1
 ;;^UTILITY(U,$J,19707.12,4340,0)
 ;;=36^Jabbers^wcdl1135^^335^350^^^^^1^85^11.0^11.5^^1
 ;;^UTILITY(U,$J,19707.12,4341,0)
 ;;=36^Jabbers^wcdl1136^^350^366^^^^^1^85^11.5^12^^1
 ;;^UTILITY(U,$J,19707.12,4342,0)
 ;;=36^Jabbers^wcdl1137^^366^381^^^^^1^90^12.0^12.5^^1
 ;;^UTILITY(U,$J,19707.12,4343,0)
 ;;=36^Jabbers^wcdl1138^^381^396^^^^^1^100^12.5^13^^1
 ;;^UTILITY(U,$J,19707.12,4344,0)
 ;;=36^Jabbers^wcdl1139^^396^411^^^^^1^100^13.0^13.5^^1
 ;;^UTILITY(U,$J,19707.12,4345,0)
 ;;=36^Jabbers^wcdl1140^^411^427^^^^^1^100^13.5^14^^1
 ;;^UTILITY(U,$J,19707.12,4346,0)
 ;;=36^Know 2 Actions^wcdl1141^^701^732^^^^^0^25^23.0^24^^1
 ;;^UTILITY(U,$J,19707.12,4347,0)
 ;;=36^Know 2 Actions^wcdl1142^^732^762^^^^^0^30^24.0^25^^1
 ;;^UTILITY(U,$J,19707.12,4348,0)
 ;;=36^Know 2 Actions^wcdl1143^^762^793^^^^^0^35^25.0^26^^1
 ;;^UTILITY(U,$J,19707.12,4349,0)
 ;;=36^Know 2 Actions^wcdl1144^^793^823^^^^^0^40^26.0^27^^1
 ;;^UTILITY(U,$J,19707.12,4350,0)
 ;;=36^Know 2 Actions^wcdl1145^^823^854^^^^^0^45^27.0^28^^1
 ;;^UTILITY(U,$J,19707.12,4351,0)
 ;;=36^Know 2 Actions^wcdl1146^^854^884^^^^^1^50^28.0^29^^1
 ;;^UTILITY(U,$J,19707.12,4352,0)
 ;;=36^Know 2 Actions^wcdl1147^^884^915^^^^^0^55^29.0^30^^1
 ;;^UTILITY(U,$J,19707.12,4353,0)
 ;;=36^Know 2 Actions^wcdl1148^^915^945^^^^^0^60^30.0^31^^1
 ;;^UTILITY(U,$J,19707.12,4354,0)
 ;;=36^Know 2 Actions^wcdl1149^^945^976^^^^^0^65^31.0^32^^1
 ;;^UTILITY(U,$J,19707.12,4355,0)
 ;;=36^Know 2 Actions^wcdl1150^^976^1006^^^^^0^70^32.0^33^^1
 ;;^UTILITY(U,$J,19707.12,4356,0)
 ;;=36^Know 2 Actions^wcdl1151^^1006^1037^^^^^0^75^33.0^34^^1
 ;;^UTILITY(U,$J,19707.12,4357,0)
 ;;=36^Know 2 Actions^wcdl1152^^1037^1067^^^^^0^80^34.0^35^^1
 ;;^UTILITY(U,$J,19707.12,4358,0)
 ;;=36^Know 2 Actions^wcdl1153^^1067^1098^^^^^1^80^35.0^36^^1
 ;;^UTILITY(U,$J,19707.12,4359,0)
 ;;=36^Know 2 Actions^wcdl1154^^1098^1128^^^^^0^85^36.0^37^^1
 ;;^UTILITY(U,$J,19707.12,4360,0)
 ;;=36^Know 2 Actions^wcdl1155^^1128^1159^^^^^0^85^37.0^38^^1
 ;;^UTILITY(U,$J,19707.12,4361,0)
 ;;=36^Know 2 Actions^wcdl1156^^1159^1189^^^^^1^90^38.0^39^^1
 ;;^UTILITY(U,$J,19707.12,4362,0)
 ;;=36^Know 2 Actions^wcdl1157^^1189^1220^^^^^1^100^39.0^40^^1
 ;;^UTILITY(U,$J,19707.12,4363,0)
 ;;=36^Know 2 Actions^wcdl1158^^1220^1250^^^^^1^100^40.0^41^^1
 ;;^UTILITY(U,$J,19707.12,4364,0)
 ;;=36^Know 2 Actions^wcdl1159^^1250^1281^^^^^1^100^41.0^42^^1
 ;;^UTILITY(U,$J,19707.12,4365,0)
 ;;=36^Know 2 Actions^wcdl1160^^1281^1311^^^^^1^100^42.0^43^^1
 ;;^UTILITY(U,$J,19707.12,4366,0)
 ;;=36^Know 2 Actions^wcdl1161^^1311^1342^^^^^1^100^43.0^44^^1