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

VEN8I00H.m

Go to the documentation of this file.
VEN8I00H ; IHS/OIT/GIS - DIFROM SUPPLIMENT TO KIDS ; 
 ;;2.6;PCC+;**1,3**;APR 03, 2012;Build 24
 Q:'DIFQR(19707.17)  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.17,1218,0)
 ;;=4^Know 4 Actions^wcdl1218^^^^^^^^0^80^41.0^42^^1
 ;;^UTILITY(U,$J,19707.17,1219,0)
 ;;=4^Know 4 Actions^wcdl1219^^^^^^^^0^80^42.0^43^^1
 ;;^UTILITY(U,$J,19707.17,1220,0)
 ;;=4^Know 4 Actions^wcdl1220^^^^^^^^0^80^43.0^44^^1
 ;;^UTILITY(U,$J,19707.17,1221,0)
 ;;=4^Know 4 Actions^wcdl1221^^^^^^^^1^80^44.0^45^^1
 ;;^UTILITY(U,$J,19707.17,1222,0)
 ;;=4^Know 4 Actions^wcdl1222^^^^^^^^1^85^45.0^46^^1
 ;;^UTILITY(U,$J,19707.17,1223,0)
 ;;=4^Know 4 Actions^wcdl1223^^^^^^^^1^85^46.0^47^^1
 ;;^UTILITY(U,$J,19707.17,1224,0)
 ;;=4^Know 4 Actions^wcdl1224^^^^^^^^1^85^47.0^48^^1
 ;;^UTILITY(U,$J,19707.17,1225,0)
 ;;=4^Know 4 Actions^wcdl1225^^^^^^^^1^85^48.0^49^^1
 ;;^UTILITY(U,$J,19707.17,1226,0)
 ;;=4^Know 4 Actions^wcdl1226^^^^^^^^1^85^49.0^50^^1
 ;;^UTILITY(U,$J,19707.17,1227,0)
 ;;=4^Know 4 Actions^wcdl1227^^^^^^^^1^90^50.0^51^^1
 ;;^UTILITY(U,$J,19707.17,1228,0)
 ;;=4^Know 4 Actions^wcdl1228^^^^^^^^1^100^51.0^52^^1
 ;;^UTILITY(U,$J,19707.17,1229,0)
 ;;=4^Laughs^wcdl1229^^^^^^^^0^25^1.5^2^^1
 ;;^UTILITY(U,$J,19707.17,1230,0)
 ;;=4^Laughs^wcdl1230^^^^^^^^0^60^2.0^2.5^^1
 ;;^UTILITY(U,$J,19707.17,1231,0)
 ;;=4^Laughs^wcdl1231^^^^^^^^0^75^2.5^3^^1
 ;;^UTILITY(U,$J,19707.17,1232,0)
 ;;=4^Laughs^wcdl1232^^^^^^^^0^90^3.0^3.5^^1
 ;;^UTILITY(U,$J,19707.17,1233,0)
 ;;=4^Laughs^wcdl1233^^^^^^^^0^100^3.5^4^^1
 ;;^UTILITY(U,$J,19707.17,1234,0)
 ;;=4^Laughs^wcdl1234^^^^^^^^0^100^4.0^4.5^^1
 ;;^UTILITY(U,$J,19707.17,1235,0)
 ;;=4^Name 1 Color^wcdl1235^^^^^^^^0^25^26.0^27^^1
 ;;^UTILITY(U,$J,19707.17,1236,0)
 ;;=4^Name 1 Color^wcdl1236^^^^^^^^1^30^27.0^28^^1
 ;;^UTILITY(U,$J,19707.17,1237,0)
 ;;=4^Name 1 Color^wcdl1237^^^^^^^^0^30^28.0^29^^1
 ;;^UTILITY(U,$J,19707.17,1238,0)
 ;;=4^Name 1 Color^wcdl1238^^^^^^^^0^35^29.0^30^^1
 ;;^UTILITY(U,$J,19707.17,1239,0)
 ;;=4^Name 1 Color^wcdl1239^^^^^^^^0^40^30.0^31^^1
 ;;^UTILITY(U,$J,19707.17,1240,0)
 ;;=4^Name 1 Color^wcdl1240^^^^^^^^0^40^31.0^32^^1
 ;;^UTILITY(U,$J,19707.17,1241,0)
 ;;=4^Name 1 Color^wcdl1241^^^^^^^^0^45^32.0^33^^1
 ;;^UTILITY(U,$J,19707.17,1242,0)
 ;;=4^Name 1 Color^wcdl1242^^^^^^^^0^45^33.0^34^^1
 ;;^UTILITY(U,$J,19707.17,1243,0)
 ;;=4^Name 1 Color^wcdl1243^^^^^^^^0^50^34.0^35^^1
 ;;^UTILITY(U,$J,19707.17,1244,0)
 ;;=4^Name 1 Color^wcdl1244^^^^^^^^0^55^35.0^36^^1
 ;;^UTILITY(U,$J,19707.17,1245,0)
 ;;=4^Name 1 Color^wcdl1245^^^^^^^^1^60^36.0^37^^1
 ;;^UTILITY(U,$J,19707.17,1246,0)
 ;;=4^Name 1 Color^wcdl1246^^^^^^^^1^65^37.0^38^^1
 ;;^UTILITY(U,$J,19707.17,1247,0)
 ;;=4^Name 1 Color^wcdl1247^^^^^^^^1^70^38.0^39^^1
 ;;^UTILITY(U,$J,19707.17,1248,0)
 ;;=4^Name 1 Color^wcdl1248^^^^^^^^1^75^39.0^40^^1
 ;;^UTILITY(U,$J,19707.17,1249,0)
 ;;=4^Name 1 Color^wcdl1249^^^^^^^^1^80^40.0^41^^1
 ;;^UTILITY(U,$J,19707.17,1250,0)
 ;;=4^Name 1 Color^wcdl1250^^^^^^^^1^80^41.0^42^^1
 ;;^UTILITY(U,$J,19707.17,1251,0)
 ;;=4^Name 1 Color^wcdl1251^^^^^^^^1^85^42.0^43^^1
 ;;^UTILITY(U,$J,19707.17,1252,0)
 ;;=4^Name 1 Color^wcdl1252^^^^^^^^1^85^43.0^44^^1
 ;;^UTILITY(U,$J,19707.17,1253,0)
 ;;=4^Name 1 Color^wcdl1253^^^^^^^^1^90^44.0^45^^1
 ;;^UTILITY(U,$J,19707.17,1254,0)
 ;;=4^Name 1 Color^wcdl1254^^^^^^^^1^100^45.0^46^^1
 ;;^UTILITY(U,$J,19707.17,1255,0)
 ;;=4^Name 1 Picture^wcdl1255^^^^^^^^1^25^19.0^20^^1
 ;;^UTILITY(U,$J,19707.17,1256,0)
 ;;=4^Name 1 Picture^wcdl1256^^^^^^^^0^50^20.0^21^^1
 ;;^UTILITY(U,$J,19707.17,1257,0)
 ;;=4^Name 1 Picture^wcdl1257^^^^^^^^0^60^21.0^22^^1
 ;;^UTILITY(U,$J,19707.17,1258,0)
 ;;=4^Name 1 Picture^wcdl1258^^^^^^^^0^65^22.0^23^^1
 ;;^UTILITY(U,$J,19707.17,1259,0)
 ;;=4^Name 1 Picture^wcdl1259^^^^^^^^1^70^23.0^24^^1
 ;;^UTILITY(U,$J,19707.17,1260,0)
 ;;=4^Name 1 Picture^wcdl1260^^^^^^^^1^75^24.0^25^^1
 ;;^UTILITY(U,$J,19707.17,1261,0)
 ;;=4^Name 1 Picture^wcdl1261^^^^^^^^1^80^25.0^26^^1
 ;;^UTILITY(U,$J,19707.17,1262,0)
 ;;=4^Name 1 Picture^wcdl1262^^^^^^^^1^85^26.0^27^^1
 ;;^UTILITY(U,$J,19707.17,1263,0)
 ;;=4^Name 1 Picture^wcdl1263^^^^^^^^1^90^27.0^28^^1
 ;;^UTILITY(U,$J,19707.17,1264,0)
 ;;=4^Name 1 Picture^wcdl1264^^^^^^^^1^100^28.0^29^^1
 ;;^UTILITY(U,$J,19707.17,1265,0)
 ;;=4^Name 4 Colors^wcdl1265^^^^^^^^0^25^36.0^37^^1
 ;;^UTILITY(U,$J,19707.17,1266,0)
 ;;=4^Name 4 Colors^wcdl1266^^^^^^^^0^30^37.0^38^^1
 ;;^UTILITY(U,$J,19707.17,1267,0)
 ;;=4^Name 4 Colors^wcdl1267^^^^^^^^0^30^38.0^39^^1
 ;;^UTILITY(U,$J,19707.17,1268,0)
 ;;=4^Name 4 Colors^wcdl1268^^^^^^^^0^35^39.0^40^^1
 ;;^UTILITY(U,$J,19707.17,1269,0)
 ;;=4^Name 4 Colors^wcdl1269^^^^^^^^0^40^40.0^41^^1
 ;;^UTILITY(U,$J,19707.17,1270,0)
 ;;=4^Name 4 Colors^wcdl1270^^^^^^^^0^40^41.0^42^^1
 ;;^UTILITY(U,$J,19707.17,1271,0)
 ;;=4^Name 4 Colors^wcdl1271^^^^^^^^0^45^42.0^43^^1
 ;;^UTILITY(U,$J,19707.17,1272,0)
 ;;=4^Name 4 Colors^wcdl1272^^^^^^^^0^50^43.0^44^^1
 ;;^UTILITY(U,$J,19707.17,1273,0)
 ;;=4^Name 4 Colors^wcdl1273^^^^^^^^0^55^44.0^45^^1
 ;;^UTILITY(U,$J,19707.17,1274,0)
 ;;=4^Name 4 Colors^wcdl1274^^^^^^^^0^60^45.0^46^^1
 ;;^UTILITY(U,$J,19707.17,1275,0)
 ;;=4^Name 4 Colors^wcdl1275^^^^^^^^0^60^46.0^47^^1
 ;;^UTILITY(U,$J,19707.17,1276,0)
 ;;=4^Name 4 Colors^wcdl1276^^^^^^^^0^65^47.0^48^^1
 ;;^UTILITY(U,$J,19707.17,1277,0)
 ;;=4^Name 4 Colors^wcdl1277^^^^^^^^0^70^48.0^49^^1
 ;;^UTILITY(U,$J,19707.17,1278,0)
 ;;=4^Name 4 Colors^wcdl1278^^^^^^^^1^70^49.0^50^^1
 ;;^UTILITY(U,$J,19707.17,1279,0)
 ;;=4^Name 4 Colors^wcdl1279^^^^^^^^1^75^50.0^51^^1
 ;;^UTILITY(U,$J,19707.17,1280,0)
 ;;=4^Name 4 Colors^wcdl1280^^^^^^^^0^80^51.0^52^^1
 ;;^UTILITY(U,$J,19707.17,1281,0)
 ;;=4^Name 4 Colors^wcdl1281^^^^^^^^1^80^52.0^53^^1
 ;;^UTILITY(U,$J,19707.17,1282,0)
 ;;=4^Name 4 Colors^wcdl1282^^^^^^^^1^80^53.0^54^^1
 ;;^UTILITY(U,$J,19707.17,1283,0)
 ;;=4^Name 4 Colors^wcdl1283^^^^^^^^1^85^54.0^55^^1
 ;;^UTILITY(U,$J,19707.17,1284,0)
 ;;=4^Name 4 Colors^wcdl1284^^^^^^^^1^85^55.0^56^^1
 ;;^UTILITY(U,$J,19707.17,1285,0)
 ;;=4^Name 4 Colors^wcdl1285^^^^^^^^1^85^56.0^57^^1
 ;;^UTILITY(U,$J,19707.17,1286,0)
 ;;=4^Name 4 Colors^wcdl1286^^^^^^^^1^90^57.0^58^^1
 ;;^UTILITY(U,$J,19707.17,1287,0)
 ;;=4^Name 4 Colors^wcdl1287^^^^^^^^1^100^58.0^59^^1
 ;;^UTILITY(U,$J,19707.17,1288,0)
 ;;=4^Name 4 Colors^wcdl1288^^^^^^^^1^100^59.0^60^^1
 ;;^UTILITY(U,$J,19707.17,1289,0)
 ;;=4^Name 4 Colors^wcdl1289^^^^^^^^1^100^60.0^61^^1
 ;;^UTILITY(U,$J,19707.17,1290,0)
 ;;=4^Name 4 Colors^wcdl1290^^^^^^^^1^100^61.0^62^^1
 ;;^UTILITY(U,$J,19707.17,1291,0)
 ;;=4^Name 4 Colors^wcdl1291^^^^^^^^1^100^62.0^63^^1
 ;;^UTILITY(U,$J,19707.17,1292,0)
 ;;=4^Name 4 Colors^wcdl1292^^^^^^^^1^100^63.0^64^^1
 ;;^UTILITY(U,$J,19707.17,1293,0)
 ;;=4^Name 4 Pictures^wcdl1293^^^^^^^^1^25^23.0^24^^1
 ;;^UTILITY(U,$J,19707.17,1294,0)
 ;;=4^Name 4 Pictures^wcdl1294^^^^^^^^1^30^24.0^25^^1
 ;;^UTILITY(U,$J,19707.17,1295,0)
 ;;=4^Name 4 Pictures^wcdl1295^^^^^^^^1^35^25.0^26^^1
 ;;^UTILITY(U,$J,19707.17,1296,0)
 ;;=4^Name 4 Pictures^wcdl1296^^^^^^^^1^40^26.0^27^^1
 ;;^UTILITY(U,$J,19707.17,1297,0)
 ;;=4^Name 4 Pictures^wcdl1297^^^^^^^^1^50^27.0^28^^1
 ;;^UTILITY(U,$J,19707.17,1298,0)
 ;;=4^Name 4 Pictures^wcdl1298^^^^^^^^1^60^28.0^29^^1
 ;;^UTILITY(U,$J,19707.17,1299,0)
 ;;=4^Name 4 Pictures^wcdl1299^^^^^^^^1^65^29.0^30^^1
 ;;^UTILITY(U,$J,19707.17,1300,0)
 ;;=4^Name 4 Pictures^wcdl1300^^^^^^^^1^70^30.0^31^^1
 ;;^UTILITY(U,$J,19707.17,1301,0)
 ;;=4^Name 4 Pictures^wcdl1301^^^^^^^^1^75^31.0^32^^1
 ;;^UTILITY(U,$J,19707.17,1302,0)
 ;;=4^Name 4 Pictures^wcdl1302^^^^^^^^1^80^32.0^33^^1
 ;;^UTILITY(U,$J,19707.17,1303,0)
 ;;=4^Name 4 Pictures^wcdl1303^^^^^^^^1^80^33.0^34^^1
 ;;^UTILITY(U,$J,19707.17,1304,0)
 ;;=4^Name 4 Pictures^wcdl1304^^^^^^^^1^85^34.0^35^^1
 ;;^UTILITY(U,$J,19707.17,1305,0)
 ;;=4^Name 4 Pictures^wcdl1305^^^^^^^^1^90^35.0^36^^1
 ;;^UTILITY(U,$J,19707.17,1306,0)
 ;;=4^Name 4 Pictures^wcdl1306^^^^^^^^1^100^36.0^37^^1