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

VENKI009.m

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