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

VEN8I007.m

Go to the documentation of this file.
VEN8I007 ; 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,337,0)
 ;;=1^Pick Longer Line^wcdfm337^^^^^^^^1^100^63.0^64^^1
 ;;^UTILITY(U,$J,19707.17,338,0)
 ;;=1^Pick Longer Line^wcdfm338^^^^^^^^1^100^64.0^65^^1
 ;;^UTILITY(U,$J,19707.17,339,0)
 ;;=1^Pick Longer Line^wcdfm339^^^^^^^^1^100^65.0^66^^1
 ;;^UTILITY(U,$J,19707.17,340,0)
 ;;=1^Put Block in Cup^wcdfm340^^^^^^^^0^25^10.0^10.5^^1
 ;;^UTILITY(U,$J,19707.17,341,0)
 ;;=1^Put Block in Cup^wcdfm341^^^^^^^^0^40^10.5^11^^1
 ;;^UTILITY(U,$J,19707.17,342,0)
 ;;=1^Put Block in Cup^wcdfm342^^^^^^^^0^50^11.0^11.5^^1
 ;;^UTILITY(U,$J,19707.17,343,0)
 ;;=1^Put Block in Cup^wcdfm343^^^^^^^^0^60^11.5^12^^1
 ;;^UTILITY(U,$J,19707.17,344,0)
 ;;=1^Put Block in Cup^wcdfm344^^^^^^^^0^70^12.0^12.5^^1
 ;;^UTILITY(U,$J,19707.17,345,0)
 ;;=1^Put Block in Cup^wcdfm345^^^^^^^^0^75^12.5^13^^1
 ;;^UTILITY(U,$J,19707.17,346,0)
 ;;=1^Put Block in Cup^wcdfm346^^^^^^^^0^80^13.0^13.5^^1
 ;;^UTILITY(U,$J,19707.17,347,0)
 ;;=1^Put Block in Cup^wcdfm347^^^^^^^^0^90^13.5^14^^1
 ;;^UTILITY(U,$J,19707.17,348,0)
 ;;=1^Put Block in Cup^wcdfm348^^^^^^^^0^100^14.0^14.5^^1
 ;;^UTILITY(U,$J,19707.17,349,0)
 ;;=1^Put Block in Cup^wcdfm349^^^^^^^^0^100^14.5^15^^1
 ;;^UTILITY(U,$J,19707.17,350,0)
 ;;=1^Put Block in Cup^wcdfm350^^^^^^^^0^100^15.0^15.5^^1
 ;;^UTILITY(U,$J,19707.17,351,0)
 ;;=1^Put Block in Cup^wcdfm351^^^^^^^^0^100^15.5^16^^1
 ;;^UTILITY(U,$J,19707.17,352,0)
 ;;=1^Put Block in Cup^wcdfm352^^^^^^^^1^100^16.0^16.5^^1
 ;;^UTILITY(U,$J,19707.17,353,0)
 ;;=1^Put Block in Cup^wcdfm353^^^^^^^^1^100^16.5^17^^1
 ;;^UTILITY(U,$J,19707.17,354,0)
 ;;=1^Rake Raisin^wcdfm354^^^^^^^^1^25^5.5^6^^1
 ;;^UTILITY(U,$J,19707.17,355,0)
 ;;=1^Rake Raisin^wcdfm355^^^^^^^^1^50^6.0^6.5^^1
 ;;^UTILITY(U,$J,19707.17,356,0)
 ;;=1^Rake Raisin^wcdfm356^^^^^^^^1^75^6.5^7^^1
 ;;^UTILITY(U,$J,19707.17,357,0)
 ;;=1^Rake Raisin^wcdfm357^^^^^^^^1^90^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.17,358,0)
 ;;=1^Rake Raisin^wcdfm358^^^^^^^^1^100^7.5^8^^1
 ;;^UTILITY(U,$J,19707.17,359,0)
 ;;=1^Rake Raisin^wcdfm359^^^^^^^^1^100^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.17,360,0)
 ;;=1^Reaches^wcdfm360^^^^^^^^0^25^4.5^5^^1
 ;;^UTILITY(U,$J,19707.17,361,0)
 ;;=1^Reaches^wcdfm361^^^^^^^^0^60^5.0^5.5^^1
 ;;^UTILITY(U,$J,19707.17,362,0)
 ;;=1^Reaches^wcdfm362^^^^^^^^0^90^5.5^6^^1
 ;;^UTILITY(U,$J,19707.17,363,0)
 ;;=1^Reaches^wcdfm363^^^^^^^^0^100^6.0^6.5^^1
 ;;^UTILITY(U,$J,19707.17,364,0)
 ;;=1^Reaches^wcdfm364^^^^^^^^0^100^6.5^7^^1
 ;;^UTILITY(U,$J,19707.17,365,0)
 ;;=1^Regards Raisin^wcdfm365^^^^^^^^0^25^3.0^3.5^^1
 ;;^UTILITY(U,$J,19707.17,366,0)
 ;;=1^Regards Raisin^wcdfm366^^^^^^^^0^35^3.5^4^^1
 ;;^UTILITY(U,$J,19707.17,367,0)
 ;;=1^Regards Raisin^wcdfm367^^^^^^^^0^60^4.0^4.5^^1
 ;;^UTILITY(U,$J,19707.17,368,0)
 ;;=1^Regards Raisin^wcdfm368^^^^^^^^0^75^4.5^5^^1
 ;;^UTILITY(U,$J,19707.17,369,0)
 ;;=1^Regards Raisin^wcdfm369^^^^^^^^1^85^5.0^5.5^^1
 ;;^UTILITY(U,$J,19707.17,370,0)
 ;;=1^Regards Raisin^wcdfm370^^^^^^^^1^100^5.5^6^^1
 ;;^UTILITY(U,$J,19707.17,371,0)
 ;;=1^Scribbles^wcdfm371^^^^^^^^0^25^12.0^12.5^^1
 ;;^UTILITY(U,$J,19707.17,372,0)
 ;;=1^Scribbles^wcdfm372^^^^^^^^0^30^12.5^13^^1
 ;;^UTILITY(U,$J,19707.17,373,0)
 ;;=1^Scribbles^wcdfm373^^^^^^^^0^40^13.0^13.5^^1
 ;;^UTILITY(U,$J,19707.17,374,0)
 ;;=1^Scribbles^wcdfm374^^^^^^^^0^50^13.5^14^^1
 ;;^UTILITY(U,$J,19707.17,375,0)
 ;;=1^Scribbles^wcdfm375^^^^^^^^0^60^14.0^14.5^^1
 ;;^UTILITY(U,$J,19707.17,376,0)
 ;;=1^Scribbles^wcdfm376^^^^^^^^0^70^14.5^15^^1
 ;;^UTILITY(U,$J,19707.17,377,0)
 ;;=1^Scribbles^wcdfm377^^^^^^^^0^75^15.0^15.5^^1
 ;;^UTILITY(U,$J,19707.17,378,0)
 ;;=1^Scribbles^wcdfm378^^^^^^^^0^80^15.5^16^^1
 ;;^UTILITY(U,$J,19707.17,379,0)
 ;;=1^Scribbles^wcdfm379^^^^^^^^0^85^16.0^16.5^^1
 ;;^UTILITY(U,$J,19707.17,380,0)
 ;;=1^Scribbles^wcdfm380^^^^^^^^0^90^16.5^17^^1
 ;;^UTILITY(U,$J,19707.17,381,0)
 ;;=1^Scribbles^wcdfm381^^^^^^^^0^100^17.0^17.5^^1
 ;;^UTILITY(U,$J,19707.17,382,0)
 ;;=1^Scribbles^wcdfm382^^^^^^^^0^100^17.5^18^^1
 ;;^UTILITY(U,$J,19707.17,383,0)
 ;;=1^Scribbles^wcdfm383^^^^^^^^0^100^18.0^18.5^^1
 ;;^UTILITY(U,$J,19707.17,384,0)
 ;;=1^Scribbles^wcdfm384^^^^^^^^1^100^19.0^20^^1
 ;;^UTILITY(U,$J,19707.17,385,0)
 ;;=1^Take 2 Cubes^wcdfm385^^^^^^^^0^25^5.5^6^^1
 ;;^UTILITY(U,$J,19707.17,386,0)
 ;;=1^Take 2 Cubes^wcdfm386^^^^^^^^0^45^6.0^6.5^^1
 ;;^UTILITY(U,$J,19707.17,387,0)
 ;;=1^Take 2 Cubes^wcdfm387^^^^^^^^0^60^6.5^7^^1
 ;;^UTILITY(U,$J,19707.17,388,0)
 ;;=1^Take 2 Cubes^wcdfm388^^^^^^^^0^70^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.17,389,0)
 ;;=1^Take 2 Cubes^wcdfm389^^^^^^^^0^75^7.5^8^^1
 ;;^UTILITY(U,$J,19707.17,390,0)
 ;;=1^Take 2 Cubes^wcdfm390^^^^^^^^0^80^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.17,391,0)
 ;;=1^Take 2 Cubes^wcdfm391^^^^^^^^0^85^8.5^9^^1
 ;;^UTILITY(U,$J,19707.17,392,0)
 ;;=1^Take 2 Cubes^wcdfm392^^^^^^^^0^90^9.0^9.5^^1
 ;;^UTILITY(U,$J,19707.17,393,0)
 ;;=1^Take 2 Cubes^wcdfm393^^^^^^^^0^100^9.5^10^^1
 ;;^UTILITY(U,$J,19707.17,394,0)
 ;;=1^Take 2 Cubes^wcdfm394^^^^^^^^0^100^10.0^10.5^^1
 ;;^UTILITY(U,$J,19707.17,395,0)
 ;;=1^Take 2 Cubes^wcdfm395^^^^^^^^0^100^10.5^11^^1
 ;;^UTILITY(U,$J,19707.17,396,0)
 ;;=1^Thumb Wiggle^wcdfm396^^^^^^^^0^25^31.0^32^^1
 ;;^UTILITY(U,$J,19707.17,397,0)
 ;;=1^Thumb Wiggle^wcdfm397^^^^^^^^0^30^32.0^33^^1
 ;;^UTILITY(U,$J,19707.17,398,0)
 ;;=1^Thumb Wiggle^wcdfm398^^^^^^^^0^35^33.0^34^^1
 ;;^UTILITY(U,$J,19707.17,399,0)
 ;;=1^Thumb Wiggle^wcdfm399^^^^^^^^0^40^34.0^35^^1
 ;;^UTILITY(U,$J,19707.17,400,0)
 ;;=1^Thumb Wiggle^wcdfm400^^^^^^^^0^50^35.0^36^^1
 ;;^UTILITY(U,$J,19707.17,401,0)
 ;;=1^Thumb Wiggle^wcdfm401^^^^^^^^0^60^36.0^37^^1
 ;;^UTILITY(U,$J,19707.17,402,0)
 ;;=1^Thumb Wiggle^wcdfm402^^^^^^^^0^65^37.0^38^^1
 ;;^UTILITY(U,$J,19707.17,403,0)
 ;;=1^Thumb Wiggle^wcdfm403^^^^^^^^0^70^38.0^39^^1
 ;;^UTILITY(U,$J,19707.17,404,0)
 ;;=1^Thumb Wiggle^wcdfm404^^^^^^^^0^75^39.0^40^^1
 ;;^UTILITY(U,$J,19707.17,405,0)
 ;;=1^Thumb Wiggle^wcdfm405^^^^^^^^0^80^40.0^41^^1
 ;;^UTILITY(U,$J,19707.17,406,0)
 ;;=1^Thumb Wiggle^wcdfm406^^^^^^^^0^80^41.0^42^^1
 ;;^UTILITY(U,$J,19707.17,407,0)
 ;;=1^Thumb Wiggle^wcdfm407^^^^^^^^0^85^42.0^43^^1
 ;;^UTILITY(U,$J,19707.17,408,0)
 ;;=1^Thumb Wiggle^wcdfm408^^^^^^^^0^90^43.0^44^^1
 ;;^UTILITY(U,$J,19707.17,409,0)
 ;;=1^Thumb Wiggle^wcdfm409^^^^^^^^1^100^44.0^45^^1
 ;;^UTILITY(U,$J,19707.17,410,0)
 ;;=1^Thumb Wiggle^wcdfm410^^^^^^^^1^100^45.0^46^^1
 ;;^UTILITY(U,$J,19707.17,411,0)
 ;;=1^Thumb Wiggle^wcdfm411^^^^^^^^1^100^46.0^47^^1
 ;;^UTILITY(U,$J,19707.17,412,0)
 ;;=1^Thumb Wiggle^wcdfm412^^^^^^^^1^100^47.0^48^^1
 ;;^UTILITY(U,$J,19707.17,413,0)
 ;;=1^Thumb Wiggle^wcdfm413^^^^^^^^1^100^48.0^49^^1
 ;;^UTILITY(U,$J,19707.17,414,0)
 ;;=1^Thumb-Finger Grasp^wcdfm414^^^^^^^^0^25^7.5^8^^1
 ;;^UTILITY(U,$J,19707.17,415,0)
 ;;=1^Thumb-Finger Grasp^wcdfm415^^^^^^^^0^40^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.17,416,0)
 ;;=1^Thumb-Finger Grasp^wcdfm416^^^^^^^^0^50^8.5^9^^1
 ;;^UTILITY(U,$J,19707.17,417,0)
 ;;=1^Thumb-Finger Grasp^wcdfm417^^^^^^^^0^60^9.0^9.5^^1
 ;;^UTILITY(U,$J,19707.17,418,0)
 ;;=1^Thumb-Finger Grasp^wcdfm418^^^^^^^^0^75^9.5^10^^1
 ;;^UTILITY(U,$J,19707.17,419,0)
 ;;=1^Thumb-Finger Grasp^wcdfm419^^^^^^^^0^85^10.0^10.5^^1
 ;;^UTILITY(U,$J,19707.17,420,0)
 ;;=1^Thumb-Finger Grasp^wcdfm420^^^^^^^^0^90^10.5^11^^1
 ;;^UTILITY(U,$J,19707.17,421,0)
 ;;=1^Thumb-Finger Grasp^wcdfm421^^^^^^^^0^100^11.0^11.5^^1
 ;;^UTILITY(U,$J,19707.17,422,0)
 ;;=1^Tower of 2 Cubes^wcdfm422^^^^^^^^0^25^13.5^14^^1
 ;;^UTILITY(U,$J,19707.17,423,0)
 ;;=1^Tower of 2 Cubes^wcdfm423^^^^^^^^0^30^14.0^14.5^^1
 ;;^UTILITY(U,$J,19707.17,424,0)
 ;;=1^Tower of 2 Cubes^wcdfm424^^^^^^^^0^40^14.5^15^^1
 ;;^UTILITY(U,$J,19707.17,425,0)
 ;;=1^Tower of 2 Cubes^wcdfm425^^^^^^^^0^50^15.0^15.5^^1
 ;;^UTILITY(U,$J,19707.17,426,0)
 ;;=1^Tower of 2 Cubes^wcdfm426^^^^^^^^0^60^15.5^16^^1