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

VENKI01Q.m

Go to the documentation of this file.
VENKI01Q ; ; 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,4122,0)
 ;;=36^2 Words^wcdl917^^350^366^^^^^0^35^11.5^12^^1
 ;;^UTILITY(U,$J,19707.12,4123,0)
 ;;=36^2 Words^wcdl918^^366^381^^^^^0^40^12.0^12.5^^1
 ;;^UTILITY(U,$J,19707.12,4124,0)
 ;;=36^2 Words^wcdl919^^381^396^^^^^0^50^12.5^13^^1
 ;;^UTILITY(U,$J,19707.12,4125,0)
 ;;=36^2 Words^wcdl920^^396^411^^^^^0^55^13.0^13.5^^1
 ;;^UTILITY(U,$J,19707.12,4126,0)
 ;;=36^2 Words^wcdl921^^411^427^^^^^0^60^13.5^14^^1
 ;;^UTILITY(U,$J,19707.12,4127,0)
 ;;=36^2 Words^wcdl922^^427^442^^^^^0^65^14.0^14.5^^1
 ;;^UTILITY(U,$J,19707.12,4128,0)
 ;;=36^2 Words^wcdl923^^442^457^^^^^0^75^14.5^15^^1
 ;;^UTILITY(U,$J,19707.12,4129,0)
 ;;=36^2 Words^wcdl924^^457^472^^^^^0^80^15.0^15.5^^1
 ;;^UTILITY(U,$J,19707.12,4130,0)
 ;;=36^2 Words^wcdl925^^472^488^^^^^0^80^15.5^16^^1
 ;;^UTILITY(U,$J,19707.12,4131,0)
 ;;=36^2 Words^wcdl926^^488^503^^^^^0^85^16.0^16.5^^1
 ;;^UTILITY(U,$J,19707.12,4132,0)
 ;;=36^2 Words^wcdl927^^503^518^^^^^0^90^16.5^17^^1
 ;;^UTILITY(U,$J,19707.12,4133,0)
 ;;=36^2 Words^wcdl928^^518^533^^^^^1^100^17.0^17.5^^1
 ;;^UTILITY(U,$J,19707.12,4134,0)
 ;;=36^2 Words^wcdl929^^533^549^^^^^1^100^17.5^18^^1
 ;;^UTILITY(U,$J,19707.12,4135,0)
 ;;=36^2 Words^wcdl930^^549^564^^^^^1^100^18.0^18.5^^1
 ;;^UTILITY(U,$J,19707.12,4136,0)
 ;;=36^3 Words^wcdl931^^350^366^^^^^0^25^11.5^12^^1
 ;;^UTILITY(U,$J,19707.12,4137,0)
 ;;=36^3 Words^wcdl932^^366^381^^^^^0^30^12.0^12.5^^1
 ;;^UTILITY(U,$J,19707.12,4138,0)
 ;;=36^3 Words^wcdl933^^381^396^^^^^0^35^12.5^13^^1
 ;;^UTILITY(U,$J,19707.12,4139,0)
 ;;=36^3 Words^wcdl934^^396^411^^^^^0^40^13.0^13.5^^1
 ;;^UTILITY(U,$J,19707.12,4140,0)
 ;;=36^3 Words^wcdl935^^411^427^^^^^0^50^13.5^14^^1
 ;;^UTILITY(U,$J,19707.12,4141,0)
 ;;=36^3 Words^wcdl936^^427^442^^^^^0^55^14.0^14.5^^1
 ;;^UTILITY(U,$J,19707.12,4142,0)
 ;;=36^3 Words^wcdl937^^442^457^^^^^0^60^14.5^15^^1
 ;;^UTILITY(U,$J,19707.12,4143,0)
 ;;=36^3 Words^wcdl938^^457^472^^^^^0^65^15.0^15.5^^1
 ;;^UTILITY(U,$J,19707.12,4144,0)
 ;;=36^3 Words^wcdl939^^472^488^^^^^0^70^15.5^16^^1
 ;;^UTILITY(U,$J,19707.12,4145,0)
 ;;=36^3 Words^wcdl940^^488^503^^^^^0^75^16.0^16.5^^1
 ;;^UTILITY(U,$J,19707.12,4146,0)
 ;;=36^3 Words^wcdl941^^503^518^^^^^0^80^16.5^17^^1
 ;;^UTILITY(U,$J,19707.12,4147,0)
 ;;=36^3 Words^wcdl942^^518^533^^^^^0^80^17.0^17.5^^1
 ;;^UTILITY(U,$J,19707.12,4148,0)
 ;;=36^3 Words^wcdl943^^533^549^^^^^0^85^17.5^18^^1
 ;;^UTILITY(U,$J,19707.12,4149,0)
 ;;=36^3 Words^wcdl944^^549^564^^^^^0^90^18.0^18.5^^1
 ;;^UTILITY(U,$J,19707.12,4150,0)
 ;;=36^3 Words^wcdl945^^579^610^^^^^1^100^19.0^20^^1
 ;;^UTILITY(U,$J,19707.12,4151,0)
 ;;=36^3 Words^wcdl946^^610^640^^^^^1^100^20.0^21^^1
 ;;^UTILITY(U,$J,19707.12,4152,0)
 ;;=36^3 Words^wcdl947^^640^671^^^^^1^100^21.0^22^^1
 ;;^UTILITY(U,$J,19707.12,4153,0)
 ;;=36^6 Words^wcdl948^^411^427^^^^^0^25^13.5^14^^1
 ;;^UTILITY(U,$J,19707.12,4154,0)
 ;;=36^6 Words^wcdl949^^427^442^^^^^0^30^14.0^14.5^^1
 ;;^UTILITY(U,$J,19707.12,4155,0)
 ;;=36^6 Words^wcdl950^^442^457^^^^^0^30^14.5^15^^1
 ;;^UTILITY(U,$J,19707.12,4156,0)
 ;;=36^6 Words^wcdl951^^457^472^^^^^0^40^15.0^15.5^^1
 ;;^UTILITY(U,$J,19707.12,4157,0)
 ;;=36^6 Words^wcdl952^^472^488^^^^^0^40^15.5^16^^1
 ;;^UTILITY(U,$J,19707.12,4158,0)
 ;;=36^6 Words^wcdl953^^488^503^^^^^0^45^16.0^16.5^^1
 ;;^UTILITY(U,$J,19707.12,4159,0)
 ;;=36^6 Words^wcdl954^^503^518^^^^^0^50^16.5^17^^1
 ;;^UTILITY(U,$J,19707.12,4160,0)
 ;;=36^6 Words^wcdl955^^518^533^^^^^0^60^17.0^17.5^^1
 ;;^UTILITY(U,$J,19707.12,4161,0)
 ;;=36^6 Words^wcdl956^^533^549^^^^^0^65^17.5^18^^1
 ;;^UTILITY(U,$J,19707.12,4162,0)
 ;;=36^6 Words^wcdl957^^549^564^^^^^0^70^18.0^18.5^^1
 ;;^UTILITY(U,$J,19707.12,4163,0)
 ;;=36^6 Words^wcdl958^^579^610^^^^^0^75^19.0^20^^1
 ;;^UTILITY(U,$J,19707.12,4164,0)
 ;;=36^6 Words^wcdl959^^610^640^^^^^0^80^20.0^21^^1
 ;;^UTILITY(U,$J,19707.12,4165,0)
 ;;=36^6 Words^wcdl960^^640^671^^^^^0^90^21.0^22^^1
 ;;^UTILITY(U,$J,19707.12,4166,0)
 ;;=36^6 Words^wcdl961^^671^701^^^^^1^100^22.0^23^^1
 ;;^UTILITY(U,$J,19707.12,4167,0)
 ;;=36^6 Words^wcdl962^^701^732^^^^^1^100^23.0^24^^1
 ;;^UTILITY(U,$J,19707.12,4168,0)
 ;;=36^Body Parts - 6^wcdl963^^579^610^^^^^0^25^19.0^20^^1
 ;;^UTILITY(U,$J,19707.12,4169,0)
 ;;=36^Body Parts - 6^wcdl964^^610^640^^^^^0^50^20.0^21^^1
 ;;^UTILITY(U,$J,19707.12,4170,0)
 ;;=36^Body Parts - 6^wcdl965^^640^671^^^^^0^60^21.0^22^^1
 ;;^UTILITY(U,$J,19707.12,4171,0)
 ;;=36^Body Parts - 6^wcdl966^^671^701^^^^^0^70^22.0^23^^1
 ;;^UTILITY(U,$J,19707.12,4172,0)
 ;;=36^Body Parts - 6^wcdl967^^701^732^^^^^0^75^23.0^24^^1
 ;;^UTILITY(U,$J,19707.12,4173,0)
 ;;=36^Body Parts - 6^wcdl968^^732^762^^^^^0^80^24.0^25^^1
 ;;^UTILITY(U,$J,19707.12,4174,0)
 ;;=36^Body Parts - 6^wcdl969^^762^793^^^^^0^80^25.0^26^^1
 ;;^UTILITY(U,$J,19707.12,4175,0)
 ;;=36^Body Parts - 6^wcdl970^^793^823^^^^^0^85^26.0^27^^1
 ;;^UTILITY(U,$J,19707.12,4176,0)
 ;;=36^Body Parts - 6^wcdl971^^823^854^^^^^0^85^27.0^28^^1
 ;;^UTILITY(U,$J,19707.12,4177,0)
 ;;=36^Body Parts - 6^wcdl972^^854^884^^^^^0^90^28.0^29^^1
 ;;^UTILITY(U,$J,19707.12,4178,0)
 ;;=36^Body Parts - 6^wcdl973^^884^915^^^^^1^100^29.0^30^^1
 ;;^UTILITY(U,$J,19707.12,4179,0)
 ;;=36^Body Parts - 6^wcdl974^^915^945^^^^^1^100^30.0^31^^1
 ;;^UTILITY(U,$J,19707.12,4180,0)
 ;;=36^Combine Syllables^wcdl975^^183^198^^^^^0^35^6.0^6.5^^1
 ;;^UTILITY(U,$J,19707.12,4181,0)
 ;;=36^Combine Syllables^wcdl976^^198^213^^^^^0^50^6.5^7^^1
 ;;^UTILITY(U,$J,19707.12,4182,0)
 ;;=36^Combine Syllables^wcdl977^^213^228^^^^^0^65^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.12,4183,0)
 ;;=36^Combine Syllables^wcdl978^^228^244^^^^^0^75^7.5^8^^1
 ;;^UTILITY(U,$J,19707.12,4184,0)
 ;;=36^Combine Syllables^wcdl979^^244^259^^^^^0^80^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.12,4185,0)
 ;;=36^Combine Syllables^wcdl980^^259^274^^^^^0^80^8.5^9^^1
 ;;^UTILITY(U,$J,19707.12,4186,0)
 ;;=36^Combine Syllables^wcdl981^^274^289^^^^^0^85^9.0^9.5^^1
 ;;^UTILITY(U,$J,19707.12,4187,0)
 ;;=36^Combine Syllables^wcdl982^^289^305^^^^^0^85^9.5^10^^1
 ;;^UTILITY(U,$J,19707.12,4188,0)
 ;;=36^Combine Syllables^wcdl983^^305^320^^^^^0^90^10.0^10.5^^1
 ;;^UTILITY(U,$J,19707.12,4189,0)
 ;;=36^Combine Syllables^wcdl984^^320^335^^^^^0^100^10.5^11^^1
 ;;^UTILITY(U,$J,19707.12,4190,0)
 ;;=36^Combine Syllables^wcdl985^^335^350^^^^^0^100^11.0^11.5^^1
 ;;^UTILITY(U,$J,19707.12,4191,0)
 ;;=36^Combine Syllables^wcdl986^^350^366^^^^^1^100^11.5^12^^1
 ;;^UTILITY(U,$J,19707.12,4192,0)
 ;;=36^Combine Syllables^wcdl987^^366^381^^^^^1^100^12.0^12.5^^1
 ;;^UTILITY(U,$J,19707.12,4193,0)
 ;;=36^Combine Words^wcdl988^^518^533^^^^^1^25^17.0^17.5^^1
 ;;^UTILITY(U,$J,19707.12,4194,0)
 ;;=36^Combine Words^wcdl989^^533^549^^^^^1^30^17.5^18^^1
 ;;^UTILITY(U,$J,19707.12,4195,0)
 ;;=36^Combine Words^wcdl990^^549^564^^^^^1^40^18.0^18.5^^1
 ;;^UTILITY(U,$J,19707.12,4196,0)
 ;;=36^Combine Words^wcdl991^^579^610^^^^^1^50^19.0^20^^1
 ;;^UTILITY(U,$J,19707.12,4197,0)
 ;;=36^Combine Words^wcdl992^^610^640^^^^^1^60^20.0^21^^1
 ;;^UTILITY(U,$J,19707.12,4198,0)
 ;;=36^Combine Words^wcdl993^^640^671^^^^^1^70^21.0^22^^1
 ;;^UTILITY(U,$J,19707.12,4199,0)
 ;;=36^Combine Words^wcdl994^^671^701^^^^^1^75^22.0^23^^1
 ;;^UTILITY(U,$J,19707.12,4200,0)
 ;;=36^Combine Words^wcdl995^^701^732^^^^^1^80^23.0^24^^1
 ;;^UTILITY(U,$J,19707.12,4201,0)
 ;;=36^Combine Words^wcdl996^^732^762^^^^^1^85^24.0^25^^1
 ;;^UTILITY(U,$J,19707.12,4202,0)
 ;;=36^Combine Words^wcdl997^^762^793^^^^^1^90^25.0^26^^1
 ;;^UTILITY(U,$J,19707.12,4203,0)
 ;;=36^Combine Words^wcdl998^^793^823^^^^^1^100^26.0^27^^1
 ;;^UTILITY(U,$J,19707.12,4204,0)
 ;;=36^Combine Words^wcdl999^^823^854^^^^^1^100^27.0^28^^1
 ;;^UTILITY(U,$J,19707.12,4205,0)
 ;;=36^Count 1 Block^wcdl1000^^1037^1067^^^^^1^25^34.0^35^^1
 ;;^UTILITY(U,$J,19707.12,4206,0)
 ;;=36^Count 1 Block^wcdl1001^^1067^1098^^^^^1^30^35.0^36^^1