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

VENKI00I.m

Go to the documentation of this file.
VENKI00I ; ; 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,1131,0)
 ;;=4^Jabbers^wcdl1131^^^^^^^^1^80^9.0^9.5^^1
 ;;^UTILITY(U,$J,19707.12,1132,0)
 ;;=4^Jabbers^wcdl1132^^^^^^^^0^80^9.5^10^^1
 ;;^UTILITY(U,$J,19707.12,1133,0)
 ;;=4^Jabbers^wcdl1133^^^^^^^^0^80^10.0^10.5^^1
 ;;^UTILITY(U,$J,19707.12,1134,0)
 ;;=4^Jabbers^wcdl1134^^^^^^^^0^85^10.5^11^^1
 ;;^UTILITY(U,$J,19707.12,1135,0)
 ;;=4^Jabbers^wcdl1135^^^^^^^^1^85^11.0^11.5^^1
 ;;^UTILITY(U,$J,19707.12,1136,0)
 ;;=4^Jabbers^wcdl1136^^^^^^^^1^85^11.5^12^^1
 ;;^UTILITY(U,$J,19707.12,1137,0)
 ;;=4^Jabbers^wcdl1137^^^^^^^^1^90^12.0^12.5^^1
 ;;^UTILITY(U,$J,19707.12,1138,0)
 ;;=4^Jabbers^wcdl1138^^^^^^^^1^100^12.5^13^^1
 ;;^UTILITY(U,$J,19707.12,1139,0)
 ;;=4^Jabbers^wcdl1139^^^^^^^^1^100^13.0^13.5^^1
 ;;^UTILITY(U,$J,19707.12,1140,0)
 ;;=4^Jabbers^wcdl1140^^^^^^^^1^100^13.5^14^^1
 ;;^UTILITY(U,$J,19707.12,1141,0)
 ;;=4^Know 2 Actions^wcdl1141^^^^^^^^0^25^23.0^24^^1
 ;;^UTILITY(U,$J,19707.12,1142,0)
 ;;=4^Know 2 Actions^wcdl1142^^^^^^^^0^30^24.0^25^^1
 ;;^UTILITY(U,$J,19707.12,1143,0)
 ;;=4^Know 2 Actions^wcdl1143^^^^^^^^0^35^25.0^26^^1
 ;;^UTILITY(U,$J,19707.12,1144,0)
 ;;=4^Know 2 Actions^wcdl1144^^^^^^^^0^40^26.0^27^^1
 ;;^UTILITY(U,$J,19707.12,1145,0)
 ;;=4^Know 2 Actions^wcdl1145^^^^^^^^0^45^27.0^28^^1
 ;;^UTILITY(U,$J,19707.12,1146,0)
 ;;=4^Know 2 Actions^wcdl1146^^^^^^^^1^50^28.0^29^^1
 ;;^UTILITY(U,$J,19707.12,1147,0)
 ;;=4^Know 2 Actions^wcdl1147^^^^^^^^0^55^29.0^30^^1
 ;;^UTILITY(U,$J,19707.12,1148,0)
 ;;=4^Know 2 Actions^wcdl1148^^^^^^^^0^60^30.0^31^^1
 ;;^UTILITY(U,$J,19707.12,1149,0)
 ;;=4^Know 2 Actions^wcdl1149^^^^^^^^0^65^31.0^32^^1
 ;;^UTILITY(U,$J,19707.12,1150,0)
 ;;=4^Know 2 Actions^wcdl1150^^^^^^^^0^70^32.0^33^^1
 ;;^UTILITY(U,$J,19707.12,1151,0)
 ;;=4^Know 2 Actions^wcdl1151^^^^^^^^0^75^33.0^34^^1
 ;;^UTILITY(U,$J,19707.12,1152,0)
 ;;=4^Know 2 Actions^wcdl1152^^^^^^^^0^80^34.0^35^^1
 ;;^UTILITY(U,$J,19707.12,1153,0)
 ;;=4^Know 2 Actions^wcdl1153^^^^^^^^1^80^35.0^36^^1
 ;;^UTILITY(U,$J,19707.12,1154,0)
 ;;=4^Know 2 Actions^wcdl1154^^^^^^^^0^85^36.0^37^^1
 ;;^UTILITY(U,$J,19707.12,1155,0)
 ;;=4^Know 2 Actions^wcdl1155^^^^^^^^0^85^37.0^38^^1
 ;;^UTILITY(U,$J,19707.12,1156,0)
 ;;=4^Know 2 Actions^wcdl1156^^^^^^^^1^90^38.0^39^^1
 ;;^UTILITY(U,$J,19707.12,1157,0)
 ;;=4^Know 2 Actions^wcdl1157^^^^^^^^1^100^39.0^40^^1
 ;;^UTILITY(U,$J,19707.12,1158,0)
 ;;=4^Know 2 Actions^wcdl1158^^^^^^^^1^100^40.0^41^^1
 ;;^UTILITY(U,$J,19707.12,1159,0)
 ;;=4^Know 2 Actions^wcdl1159^^^^^^^^1^100^41.0^42^^1
 ;;^UTILITY(U,$J,19707.12,1160,0)
 ;;=4^Know 2 Actions^wcdl1160^^^^^^^^1^100^42.0^43^^1
 ;;^UTILITY(U,$J,19707.12,1161,0)
 ;;=4^Know 2 Actions^wcdl1161^^^^^^^^1^100^43.0^44^^1
 ;;^UTILITY(U,$J,19707.12,1162,0)
 ;;=4^Know 2 Adjectives^wcdl1162^^^^^^^^1^25^30.0^31^^1
 ;;^UTILITY(U,$J,19707.12,1163,0)
 ;;=4^Know 2 Adjectives^wcdl1163^^^^^^^^1^30^31.0^32^^1
 ;;^UTILITY(U,$J,19707.12,1164,0)
 ;;=4^Know 2 Adjectives^wcdl1164^^^^^^^^1^40^32.0^33^^1
 ;;^UTILITY(U,$J,19707.12,1165,0)
 ;;=4^Know 2 Adjectives^wcdl1165^^^^^^^^1^50^33.0^34^^1
 ;;^UTILITY(U,$J,19707.12,1166,0)
 ;;=4^Know 2 Adjectives^wcdl1166^^^^^^^^1^60^34.0^35^^1
 ;;^UTILITY(U,$J,19707.12,1167,0)
 ;;=4^Know 2 Adjectives^wcdl1167^^^^^^^^1^70^35.0^36^^1
 ;;^UTILITY(U,$J,19707.12,1168,0)
 ;;=4^Know 2 Adjectives^wcdl1168^^^^^^^^1^75^36.0^37^^1
 ;;^UTILITY(U,$J,19707.12,1169,0)
 ;;=4^Know 2 Adjectives^wcdl1169^^^^^^^^1^80^37.0^38^^1
 ;;^UTILITY(U,$J,19707.12,1170,0)
 ;;=4^Know 2 Adjectives^wcdl1170^^^^^^^^1^80^38.0^39^^1
 ;;^UTILITY(U,$J,19707.12,1171,0)
 ;;=4^Know 2 Adjectives^wcdl1171^^^^^^^^1^80^39.0^40^^1
 ;;^UTILITY(U,$J,19707.12,1172,0)
 ;;=4^Know 2 Adjectives^wcdl1172^^^^^^^^1^85^40.0^41^^1
 ;;^UTILITY(U,$J,19707.12,1173,0)
 ;;=4^Know 2 Adjectives^wcdl1173^^^^^^^^1^85^41.0^42^^1
 ;;^UTILITY(U,$J,19707.12,1174,0)
 ;;=4^Know 2 Adjectives^wcdl1174^^^^^^^^1^85^42.0^43^^1
 ;;^UTILITY(U,$J,19707.12,1175,0)
 ;;=4^Know 2 Adjectives^wcdl1175^^^^^^^^1^90^43.0^44^^1
 ;;^UTILITY(U,$J,19707.12,1176,0)
 ;;=4^Know 2 Adjectives^wcdl1176^^^^^^^^1^100^44.0^45^^1
 ;;^UTILITY(U,$J,19707.12,1177,0)
 ;;=4^Know 3 Adjectives^wcdl1177^^^^^^^^1^25^35.0^36^^1
 ;;^UTILITY(U,$J,19707.12,1178,0)
 ;;=4^Know 3 Adjectives^wcdl1178^^^^^^^^1^30^36.0^37^^1
 ;;^UTILITY(U,$J,19707.12,1179,0)
 ;;=4^Know 3 Adjectives^wcdl1179^^^^^^^^1^40^37.0^38^^1
 ;;^UTILITY(U,$J,19707.12,1180,0)
 ;;=4^Know 3 Adjectives^wcdl1180^^^^^^^^1^50^38.0^39^^1
 ;;^UTILITY(U,$J,19707.12,1181,0)
 ;;=4^Know 3 Adjectives^wcdl1181^^^^^^^^1^55^39.0^40^^1
 ;;^UTILITY(U,$J,19707.12,1182,0)
 ;;=4^Know 3 Adjectives^wcdl1182^^^^^^^^1^55^40.0^41^^1
 ;;^UTILITY(U,$J,19707.12,1183,0)
 ;;=4^Know 3 Adjectives^wcdl1183^^^^^^^^1^60^41.0^42^^1
 ;;^UTILITY(U,$J,19707.12,1184,0)
 ;;=4^Know 3 Adjectives^wcdl1184^^^^^^^^1^60^42.0^43^^1
 ;;^UTILITY(U,$J,19707.12,1185,0)
 ;;=4^Know 3 Adjectives^wcdl1185^^^^^^^^1^60^43.0^44^^1
 ;;^UTILITY(U,$J,19707.12,1186,0)
 ;;=4^Know 3 Adjectives^wcdl1186^^^^^^^^1^65^44.0^45^^1
 ;;^UTILITY(U,$J,19707.12,1187,0)
 ;;=4^Know 3 Adjectives^wcdl1187^^^^^^^^1^65^45.0^46^^1
 ;;^UTILITY(U,$J,19707.12,1188,0)
 ;;=4^Know 3 Adjectives^wcdl1188^^^^^^^^1^70^46.0^47^^1
 ;;^UTILITY(U,$J,19707.12,1189,0)
 ;;=4^Know 3 Adjectives^wcdl1189^^^^^^^^1^70^47.0^48^^1
 ;;^UTILITY(U,$J,19707.12,1190,0)
 ;;=4^Know 3 Adjectives^wcdl1190^^^^^^^^1^75^48.0^49^^1
 ;;^UTILITY(U,$J,19707.12,1191,0)
 ;;=4^Know 3 Adjectives^wcdl1191^^^^^^^^1^80^49.0^50^^1
 ;;^UTILITY(U,$J,19707.12,1192,0)
 ;;=4^Know 3 Adjectives^wcdl1192^^^^^^^^1^80^50.0^51^^1
 ;;^UTILITY(U,$J,19707.12,1193,0)
 ;;=4^Know 3 Adjectives^wcdl1193^^^^^^^^1^80^51.0^52^^1
 ;;^UTILITY(U,$J,19707.12,1194,0)
 ;;=4^Know 3 Adjectives^wcdl1194^^^^^^^^1^80^52.0^53^^1
 ;;^UTILITY(U,$J,19707.12,1195,0)
 ;;=4^Know 3 Adjectives^wcdl1195^^^^^^^^1^80^53.0^54^^1
 ;;^UTILITY(U,$J,19707.12,1196,0)
 ;;=4^Know 3 Adjectives^wcdl1196^^^^^^^^1^80^54.0^55^^1
 ;;^UTILITY(U,$J,19707.12,1197,0)
 ;;=4^Know 3 Adjectives^wcdl1197^^^^^^^^1^80^55.0^56^^1
 ;;^UTILITY(U,$J,19707.12,1198,0)
 ;;=4^Know 3 Adjectives^wcdl1198^^^^^^^^1^80^56.0^57^^1
 ;;^UTILITY(U,$J,19707.12,1199,0)
 ;;=4^Know 3 Adjectives^wcdl1199^^^^^^^^1^85^57.0^58^^1
 ;;^UTILITY(U,$J,19707.12,1200,0)
 ;;=4^Know 3 Adjectives^wcdl1200^^^^^^^^1^85^58.0^59^^1
 ;;^UTILITY(U,$J,19707.12,1201,0)
 ;;=4^Know 3 Adjectives^wcdl1201^^^^^^^^1^85^59.0^60^^1
 ;;^UTILITY(U,$J,19707.12,1202,0)
 ;;=4^Know 3 Adjectives^wcdl1202^^^^^^^^1^85^60.0^61^^1
 ;;^UTILITY(U,$J,19707.12,1203,0)
 ;;=4^Know 3 Adjectives^wcdl1203^^^^^^^^1^85^61.0^62^^1
 ;;^UTILITY(U,$J,19707.12,1204,0)
 ;;=4^Know 3 Adjectives^wcdl1204^^^^^^^^1^85^62.0^63^^1
 ;;^UTILITY(U,$J,19707.12,1205,0)
 ;;=4^Know 3 Adjectives^wcdl1205^^^^^^^^1^90^63.0^64^^1
 ;;^UTILITY(U,$J,19707.12,1206,0)
 ;;=4^Know 3 Adjectives^wcdl1206^^^^^^^^1^100^64.0^65^^1
 ;;^UTILITY(U,$J,19707.12,1207,0)
 ;;=4^Know 4 Actions^wcdl1207^^^^^^^^1^25^30.0^31^^1
 ;;^UTILITY(U,$J,19707.12,1208,0)
 ;;=4^Know 4 Actions^wcdl1208^^^^^^^^1^40^31.0^32^^1
 ;;^UTILITY(U,$J,19707.12,1209,0)
 ;;=4^Know 4 Actions^wcdl1209^^^^^^^^1^50^32.0^33^^1
 ;;^UTILITY(U,$J,19707.12,1210,0)
 ;;=4^Know 4 Actions^wcdl1210^^^^^^^^1^55^33.0^34^^1
 ;;^UTILITY(U,$J,19707.12,1211,0)
 ;;=4^Know 4 Actions^wcdl1211^^^^^^^^1^60^34.0^35^^1
 ;;^UTILITY(U,$J,19707.12,1212,0)
 ;;=4^Know 4 Actions^wcdl1212^^^^^^^^0^60^35.0^36^^1
 ;;^UTILITY(U,$J,19707.12,1213,0)
 ;;=4^Know 4 Actions^wcdl1213^^^^^^^^1^65^36.0^37^^1
 ;;^UTILITY(U,$J,19707.12,1214,0)
 ;;=4^Know 4 Actions^wcdl1214^^^^^^^^1^70^37.0^38^^1
 ;;^UTILITY(U,$J,19707.12,1215,0)
 ;;=4^Know 4 Actions^wcdl1215^^^^^^^^0^70^38.0^39^^1
 ;;^UTILITY(U,$J,19707.12,1216,0)
 ;;=4^Know 4 Actions^wcdl1216^^^^^^^^0^75^39.0^40^^1
 ;;^UTILITY(U,$J,19707.12,1217,0)
 ;;=4^Know 4 Actions^wcdl1217^^^^^^^^0^80^40.0^41^^1