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

VENKI00H.m

Go to the documentation of this file.
VENKI00H ; ; 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,1044,0)
 ;;=4^Dada/Mama Specific^wcdl1044^^^^^^^^0^30^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.12,1045,0)
 ;;=4^Dada/Mama Specific^wcdl1045^^^^^^^^0^30^7.5^8^^1
 ;;^UTILITY(U,$J,19707.12,1046,0)
 ;;=4^Dada/Mama Specific^wcdl1046^^^^^^^^0^35^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.12,1047,0)
 ;;=4^Dada/Mama Specific^wcdl1047^^^^^^^^0^40^8.5^9^^1
 ;;^UTILITY(U,$J,19707.12,1048,0)
 ;;=4^Dada/Mama Specific^wcdl1048^^^^^^^^0^45^9.0^9.5^^1
 ;;^UTILITY(U,$J,19707.12,1049,0)
 ;;=4^Dada/Mama Specific^wcdl1049^^^^^^^^0^50^9.5^10^^1
 ;;^UTILITY(U,$J,19707.12,1050,0)
 ;;=4^Dada/Mama Specific^wcdl1050^^^^^^^^0^60^10.0^10.5^^1
 ;;^UTILITY(U,$J,19707.12,1051,0)
 ;;=4^Dada/Mama Specific^wcdl1051^^^^^^^^0^70^10.5^11^^1
 ;;^UTILITY(U,$J,19707.12,1052,0)
 ;;=4^Dada/Mama Specific^wcdl1052^^^^^^^^0^75^11.0^11.5^^1
 ;;^UTILITY(U,$J,19707.12,1053,0)
 ;;=4^Dada/Mama Specific^wcdl1053^^^^^^^^0^80^11.5^12^^1
 ;;^UTILITY(U,$J,19707.12,1054,0)
 ;;=4^Dada/Mama Specific^wcdl1054^^^^^^^^0^80^12.0^12.5^^1
 ;;^UTILITY(U,$J,19707.12,1055,0)
 ;;=4^Dada/Mama Specific^wcdl1055^^^^^^^^0^85^12.5^13^^1
 ;;^UTILITY(U,$J,19707.12,1056,0)
 ;;=4^Dada/Mama Specific^wcdl1056^^^^^^^^0^85^13.0^13.5^^1
 ;;^UTILITY(U,$J,19707.12,1057,0)
 ;;=4^Dada/Mama Specific^wcdl1057^^^^^^^^0^90^13.5^14^^1
 ;;^UTILITY(U,$J,19707.12,1058,0)
 ;;=4^Dada/Mama Specific^wcdl1058^^^^^^^^0^100^14.0^14.5^^1
 ;;^UTILITY(U,$J,19707.12,1059,0)
 ;;=4^Dada/Mama Specific^wcdl1059^^^^^^^^0^100^14.5^15^^1
 ;;^UTILITY(U,$J,19707.12,1060,0)
 ;;=4^Dada/Mama Specific^wcdl1060^^^^^^^^0^100^15.0^15.5^^1
 ;;^UTILITY(U,$J,19707.12,1061,0)
 ;;=4^Define 5 Words^wcdl1061^^^^^^^^1^25^39.0^40^^1
 ;;^UTILITY(U,$J,19707.12,1062,0)
 ;;=4^Define 5 Words^wcdl1062^^^^^^^^1^30^40.0^41^^1
 ;;^UTILITY(U,$J,19707.12,1063,0)
 ;;=4^Define 5 Words^wcdl1063^^^^^^^^1^35^41.0^42^^1
 ;;^UTILITY(U,$J,19707.12,1064,0)
 ;;=4^Define 5 Words^wcdl1064^^^^^^^^1^40^42.0^43^^1
 ;;^UTILITY(U,$J,19707.12,1065,0)
 ;;=4^Define 5 Words^wcdl1065^^^^^^^^1^40^43.0^44^^1
 ;;^UTILITY(U,$J,19707.12,1066,0)
 ;;=4^Define 5 Words^wcdl1066^^^^^^^^1^45^44.0^45^^1
 ;;^UTILITY(U,$J,19707.12,1067,0)
 ;;=4^Define 5 Words^wcdl1067^^^^^^^^1^50^45.0^46^^1
 ;;^UTILITY(U,$J,19707.12,1068,0)
 ;;=4^Define 5 Words^wcdl1068^^^^^^^^1^55^46.0^47^^1
 ;;^UTILITY(U,$J,19707.12,1069,0)
 ;;=4^Define 5 Words^wcdl1069^^^^^^^^1^55^47.0^48^^1
 ;;^UTILITY(U,$J,19707.12,1070,0)
 ;;=4^Define 5 Words^wcdl1070^^^^^^^^1^60^48.0^49^^1
 ;;^UTILITY(U,$J,19707.12,1071,0)
 ;;=4^Define 5 Words^wcdl1071^^^^^^^^0^60^49.0^50^^1
 ;;^UTILITY(U,$J,19707.12,1072,0)
 ;;=4^Define 5 Words^wcdl1072^^^^^^^^0^65^50.0^51^^1
 ;;^UTILITY(U,$J,19707.12,1073,0)
 ;;=4^Define 5 Words^wcdl1073^^^^^^^^1^65^51.0^52^^1
 ;;^UTILITY(U,$J,19707.12,1074,0)
 ;;=4^Define 5 Words^wcdl1074^^^^^^^^0^70^52.0^53^^1
 ;;^UTILITY(U,$J,19707.12,1075,0)
 ;;=4^Define 5 Words^wcdl1075^^^^^^^^0^70^53.0^54^^1
 ;;^UTILITY(U,$J,19707.12,1076,0)
 ;;=4^Define 5 Words^wcdl1076^^^^^^^^0^75^54.0^55^^1
 ;;^UTILITY(U,$J,19707.12,1077,0)
 ;;=4^Define 5 Words^wcdl1077^^^^^^^^0^80^55.0^56^^1
 ;;^UTILITY(U,$J,19707.12,1078,0)
 ;;=4^Define 5 Words^wcdl1078^^^^^^^^0^80^56.0^57^^1
 ;;^UTILITY(U,$J,19707.12,1079,0)
 ;;=4^Define 5 Words^wcdl1079^^^^^^^^0^80^57.0^58^^1
 ;;^UTILITY(U,$J,19707.12,1080,0)
 ;;=4^Define 5 Words^wcdl1080^^^^^^^^0^80^58.0^59^^1
 ;;^UTILITY(U,$J,19707.12,1081,0)
 ;;=4^Define 5 Words^wcdl1081^^^^^^^^0^80^59.0^60^^1
 ;;^UTILITY(U,$J,19707.12,1082,0)
 ;;=4^Define 5 Words^wcdl1082^^^^^^^^0^85^60.0^61^^1
 ;;^UTILITY(U,$J,19707.12,1083,0)
 ;;=4^Define 5 Words^wcdl1083^^^^^^^^0^85^61.0^62^^1
 ;;^UTILITY(U,$J,19707.12,1084,0)
 ;;=4^Define 5 Words^wcdl1084^^^^^^^^0^85^62.0^63^^1
 ;;^UTILITY(U,$J,19707.12,1085,0)
 ;;=4^Define 5 Words^wcdl1085^^^^^^^^0^90^63.0^64^^1
 ;;^UTILITY(U,$J,19707.12,1086,0)
 ;;=4^Define 7 Words^wcdl1086^^^^^^^^1^25^47.0^48^^1
 ;;^UTILITY(U,$J,19707.12,1087,0)
 ;;=4^Define 7 Words^wcdl1087^^^^^^^^1^30^48.0^49^^1
 ;;^UTILITY(U,$J,19707.12,1088,0)
 ;;=4^Define 7 Words^wcdl1088^^^^^^^^1^30^49.0^50^^1
 ;;^UTILITY(U,$J,19707.12,1089,0)
 ;;=4^Define 7 Words^wcdl1089^^^^^^^^1^35^50.0^51^^1
 ;;^UTILITY(U,$J,19707.12,1090,0)
 ;;=4^Define 7 Words^wcdl1090^^^^^^^^1^40^51.0^52^^1
 ;;^UTILITY(U,$J,19707.12,1091,0)
 ;;=4^Define 7 Words^wcdl1091^^^^^^^^0^40^52.0^53^^1
 ;;^UTILITY(U,$J,19707.12,1092,0)
 ;;=4^Define 7 Words^wcdl1092^^^^^^^^0^45^53.0^54^^1
 ;;^UTILITY(U,$J,19707.12,1093,0)
 ;;=4^Define 7 Words^wcdl1093^^^^^^^^0^50^54.0^55^^1
 ;;^UTILITY(U,$J,19707.12,1094,0)
 ;;=4^Define 7 Words^wcdl1094^^^^^^^^0^55^55.0^56^^1
 ;;^UTILITY(U,$J,19707.12,1095,0)
 ;;=4^Define 7 Words^wcdl1095^^^^^^^^0^55^56.0^57^^1
 ;;^UTILITY(U,$J,19707.12,1096,0)
 ;;=4^Define 7 Words^wcdl1096^^^^^^^^0^60^57.0^58^^1
 ;;^UTILITY(U,$J,19707.12,1097,0)
 ;;=4^Define 7 Words^wcdl1097^^^^^^^^0^60^58.0^59^^1
 ;;^UTILITY(U,$J,19707.12,1098,0)
 ;;=4^Define 7 Words^wcdl1098^^^^^^^^0^65^59.0^60^^1
 ;;^UTILITY(U,$J,19707.12,1099,0)
 ;;=4^Define 7 Words^wcdl1099^^^^^^^^0^65^60.0^61^^1
 ;;^UTILITY(U,$J,19707.12,1100,0)
 ;;=4^Define 7 Words^wcdl1100^^^^^^^^0^70^61.0^62^^1
 ;;^UTILITY(U,$J,19707.12,1101,0)
 ;;=4^Define 7 Words^wcdl1101^^^^^^^^0^70^62.0^63^^1
 ;;^UTILITY(U,$J,19707.12,1102,0)
 ;;=4^Define 7 Words^wcdl1102^^^^^^^^0^75^63.0^64^^1
 ;;^UTILITY(U,$J,19707.12,1103,0)
 ;;=4^Define 7 Words^wcdl1103^^^^^^^^0^80^64.0^65^^1
 ;;^UTILITY(U,$J,19707.12,1104,0)
 ;;=4^Define 7 Words^wcdl1104^^^^^^^^0^80^65.0^66^^1
 ;;^UTILITY(U,$J,19707.12,1105,0)
 ;;=4^Define 7 Words^wcdl1105^^^^^^^^0^80^66.0^67^^1
 ;;^UTILITY(U,$J,19707.12,1106,0)
 ;;=4^Define 7 Words^wcdl1106^^^^^^^^0^80^67.0^68^^1
 ;;^UTILITY(U,$J,19707.12,1107,0)
 ;;=4^Define 7 Words^wcdl1107^^^^^^^^0^85^68.0^69^^1
 ;;^UTILITY(U,$J,19707.12,1108,0)
 ;;=4^Define 7 Words^wcdl1108^^^^^^^^0^85^69.0^70^^1
 ;;^UTILITY(U,$J,19707.12,1109,0)
 ;;=4^Define 7 Words^wcdl1109^^^^^^^^0^85^70.0^71^^1
 ;;^UTILITY(U,$J,19707.12,1110,0)
 ;;=4^Define 7 Words^wcdl1110^^^^^^^^0^85^71.0^72^^1
 ;;^UTILITY(U,$J,19707.12,1111,0)
 ;;=4^Define 7 Words^wcdl1111^^^^^^^^0^88^72.0^73^^1
 ;;^UTILITY(U,$J,19707.12,1112,0)
 ;;=4^Imitate Speech Sounds^wcdl1112^^^^^^^^0^25^3.0^3.5^^1
 ;;^UTILITY(U,$J,19707.12,1113,0)
 ;;=4^Imitate Speech Sounds^wcdl1113^^^^^^^^0^30^3.5^4^^1
 ;;^UTILITY(U,$J,19707.12,1114,0)
 ;;=4^Imitate Speech Sounds^wcdl1114^^^^^^^^0^35^4.0^4.5^^1
 ;;^UTILITY(U,$J,19707.12,1115,0)
 ;;=4^Imitate Speech Sounds^wcdl1115^^^^^^^^0^40^4.5^5^^1
 ;;^UTILITY(U,$J,19707.12,1116,0)
 ;;=4^Imitate Speech Sounds^wcdl1116^^^^^^^^0^45^5.0^5.5^^1
 ;;^UTILITY(U,$J,19707.12,1117,0)
 ;;=4^Imitate Speech Sounds^wcdl1117^^^^^^^^0^60^5.5^6^^1
 ;;^UTILITY(U,$J,19707.12,1118,0)
 ;;=4^Imitate Speech Sounds^wcdl1118^^^^^^^^0^75^6.0^6.5^^1
 ;;^UTILITY(U,$J,19707.12,1119,0)
 ;;=4^Imitate Speech Sounds^wcdl1119^^^^^^^^0^80^6.5^7^^1
 ;;^UTILITY(U,$J,19707.12,1120,0)
 ;;=4^Imitate Speech Sounds^wcdl1120^^^^^^^^0^80^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.12,1121,0)
 ;;=4^Imitate Speech Sounds^wcdl1121^^^^^^^^0^85^7.5^8^^1
 ;;^UTILITY(U,$J,19707.12,1122,0)
 ;;=4^Imitate Speech Sounds^wcdl1122^^^^^^^^0^85^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.12,1123,0)
 ;;=4^Imitate Speech Sounds^wcdl1123^^^^^^^^0^90^8.5^9^^1
 ;;^UTILITY(U,$J,19707.12,1124,0)
 ;;=4^Imitate Speech Sounds^wcdl1124^^^^^^^^0^100^9.0^9.5^^1
 ;;^UTILITY(U,$J,19707.12,1125,0)
 ;;=4^Jabbers^wcdl1125^^^^^^^^1^30^6.0^6.5^^1
 ;;^UTILITY(U,$J,19707.12,1126,0)
 ;;=4^Jabbers^wcdl1126^^^^^^^^1^40^6.5^7^^1
 ;;^UTILITY(U,$J,19707.12,1127,0)
 ;;=4^Jabbers^wcdl1127^^^^^^^^1^50^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.12,1128,0)
 ;;=4^Jabbers^wcdl1128^^^^^^^^1^60^7.5^8^^1
 ;;^UTILITY(U,$J,19707.12,1129,0)
 ;;=4^Jabbers^wcdl1129^^^^^^^^1^70^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.12,1130,0)
 ;;=4^Jabbers^wcdl1130^^^^^^^^1^75^8.5^9^^1