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

VEN8I006.m

Go to the documentation of this file.
VEN8I006 ; 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,250,0)
 ;;=1^Dumps Raisin^wcdfm250^^^^^^^^0^75^16.0^16.5^^1
 ;;^UTILITY(U,$J,19707.17,251,0)
 ;;=1^Dumps Raisin^wcdfm251^^^^^^^^0^80^16.5^17^^1
 ;;^UTILITY(U,$J,19707.17,252,0)
 ;;=1^Dumps Raisin^wcdfm252^^^^^^^^0^80^17.0^17.5^^1
 ;;^UTILITY(U,$J,19707.17,253,0)
 ;;=1^Dumps Raisin^wcdfm253^^^^^^^^0^85^17.5^18^^1
 ;;^UTILITY(U,$J,19707.17,254,0)
 ;;=1^Dumps Raisin^wcdfm254^^^^^^^^0^85^18.0^18.5^^1
 ;;^UTILITY(U,$J,19707.17,255,0)
 ;;=1^Dumps Raisin^wcdfm255^^^^^^^^0^90^19.0^20^^1
 ;;^UTILITY(U,$J,19707.17,256,0)
 ;;=1^Dumps Raisin^wcdfm256^^^^^^^^1^100^20.0^21^^1
 ;;^UTILITY(U,$J,19707.17,257,0)
 ;;=1^Follow Past Midline^wcdfm257^^^^^^^^0^25^1.5^2^^1
 ;;^UTILITY(U,$J,19707.17,258,0)
 ;;=1^Follow Past Midline^wcdfm258^^^^^^^^0^50^2.0^2.5^^1
 ;;^UTILITY(U,$J,19707.17,259,0)
 ;;=1^Follow Past Midline^wcdfm259^^^^^^^^0^85^2.5^3^^1
 ;;^UTILITY(U,$J,19707.17,260,0)
 ;;=1^Follow Past Midline^wcdfm260^^^^^^^^0^100^3.0^3.5^^1
 ;;^UTILITY(U,$J,19707.17,261,0)
 ;;=1^Follow Past Midline^wcdfm261^^^^^^^^0^100^3.5^4^^1
 ;;^UTILITY(U,$J,19707.17,262,0)
 ;;=1^Follow Past Midline^wcdfm262^^^^^^^^0^100^4.0^4.5^^1
 ;;^UTILITY(U,$J,19707.17,263,0)
 ;;=1^Follow to Midline^wcdfm263^^^^^^^^0^75^.5^1^^1
 ;;^UTILITY(U,$J,19707.17,264,0)
 ;;=1^Follow to Midline^wcdfm264^^^^^^^^0^80^1.0^1.5^^1
 ;;^UTILITY(U,$J,19707.17,265,0)
 ;;=1^Follow to Midline^wcdfm265^^^^^^^^0^85^1.5^2^^1
 ;;^UTILITY(U,$J,19707.17,266,0)
 ;;=1^Follow to Midline^wcdfm266^^^^^^^^0^90^2.0^2.5^^1
 ;;^UTILITY(U,$J,19707.17,267,0)
 ;;=1^Follow to Midline^wcdfm267^^^^^^^^0^100^2.5^3^^1
 ;;^UTILITY(U,$J,19707.17,268,0)
 ;;=1^Grasp Rattle^wcdfm268^^^^^^^^0^30^3.0^3.5^^1
 ;;^UTILITY(U,$J,19707.17,269,0)
 ;;=1^Grasp Rattle^wcdfm269^^^^^^^^0^50^3.5^4^^1
 ;;^UTILITY(U,$J,19707.17,270,0)
 ;;=1^Grasp Rattle^wcdfm270^^^^^^^^0^90^4.0^4.5^^1
 ;;^UTILITY(U,$J,19707.17,271,0)
 ;;=1^Grasp Rattle^wcdfm271^^^^^^^^0^100^4.5^5^^1
 ;;^UTILITY(U,$J,19707.17,272,0)
 ;;=1^Hands Together^wcdfm272^^^^^^^^0^25^2.0^2.5^^1
 ;;^UTILITY(U,$J,19707.17,273,0)
 ;;=1^Hands Together^wcdfm273^^^^^^^^0^50^2.5^3^^1
 ;;^UTILITY(U,$J,19707.17,274,0)
 ;;=1^Hands Together^wcdfm274^^^^^^^^0^75^3.0^3.5^^1
 ;;^UTILITY(U,$J,19707.17,275,0)
 ;;=1^Hands Together^wcdfm275^^^^^^^^0^80^3.5^4^^1
 ;;^UTILITY(U,$J,19707.17,276,0)
 ;;=1^Hands Together^wcdfm276^^^^^^^^0^90^4.0^4.5^^1
 ;;^UTILITY(U,$J,19707.17,277,0)
 ;;=1^Hands Together^wcdfm277^^^^^^^^0^100^4.5^5^^1
 ;;^UTILITY(U,$J,19707.17,278,0)
 ;;=1^Hands Together^wcdfm278^^^^^^^^0^100^5.0^5.5^^1
 ;;^UTILITY(U,$J,19707.17,279,0)
 ;;=1^Imitate Vertical Line^wcdfm279^^^^^^^^0^25^25.0^26^^1
 ;;^UTILITY(U,$J,19707.17,280,0)
 ;;=1^Imitate Vertical Line^wcdfm280^^^^^^^^0^30^26.0^27^^1
 ;;^UTILITY(U,$J,19707.17,281,0)
 ;;=1^Imitate Vertical Line^wcdfm281^^^^^^^^0^35^27.0^28^^1
 ;;^UTILITY(U,$J,19707.17,282,0)
 ;;=1^Imitate Vertical Line^wcdfm282^^^^^^^^0^40^28.0^29^^1
 ;;^UTILITY(U,$J,19707.17,283,0)
 ;;=1^Imitate Vertical Line^wcdfm283^^^^^^^^0^45^29.0^30^^1
 ;;^UTILITY(U,$J,19707.17,284,0)
 ;;=1^Imitate Vertical Line^wcdfm284^^^^^^^^0^50^30.0^31^^1
 ;;^UTILITY(U,$J,19707.17,285,0)
 ;;=1^Imitate Vertical Line^wcdfm285^^^^^^^^0^60^31.0^32^^1
 ;;^UTILITY(U,$J,19707.17,286,0)
 ;;=1^Imitate Vertical Line^wcdfm286^^^^^^^^0^65^32.0^33^^1
 ;;^UTILITY(U,$J,19707.17,287,0)
 ;;=1^Imitate Vertical Line^wcdfm287^^^^^^^^0^70^33.0^34^^1
 ;;^UTILITY(U,$J,19707.17,288,0)
 ;;=1^Imitate Vertical Line^wcdfm288^^^^^^^^0^75^34.0^35^^1
 ;;^UTILITY(U,$J,19707.17,289,0)
 ;;=1^Imitate Vertical Line^wcdfm289^^^^^^^^0^80^35.0^36^^1
 ;;^UTILITY(U,$J,19707.17,290,0)
 ;;=1^Imitate Vertical Line^wcdfm290^^^^^^^^0^80^36.0^37^^1
 ;;^UTILITY(U,$J,19707.17,291,0)
 ;;=1^Imitate Vertical Line^wcdfm291^^^^^^^^0^85^37.0^38^^1
 ;;^UTILITY(U,$J,19707.17,292,0)
 ;;=1^Imitate Vertical Line^wcdfm292^^^^^^^^0^90^38.0^39^^1
 ;;^UTILITY(U,$J,19707.17,293,0)
 ;;=1^Imitate Vertical Line^wcdfm293^^^^^^^^1^100^39.0^40^^1
 ;;^UTILITY(U,$J,19707.17,294,0)
 ;;=1^Imitate Vertical Line^wcdfm294^^^^^^^^1^100^40.0^41^^1
 ;;^UTILITY(U,$J,19707.17,295,0)
 ;;=1^Imitate Vertical Line^wcdfm295^^^^^^^^1^100^41.0^42^^1
 ;;^UTILITY(U,$J,19707.17,296,0)
 ;;=1^Look for Yarn^wcdfm296^^^^^^^^0^25^5.0^5.5^^1
 ;;^UTILITY(U,$J,19707.17,297,0)
 ;;=1^Look for Yarn^wcdfm297^^^^^^^^0^40^5.5^6^^1
 ;;^UTILITY(U,$J,19707.17,298,0)
 ;;=1^Look for Yarn^wcdfm298^^^^^^^^0^60^6.0^6.5^^1
 ;;^UTILITY(U,$J,19707.17,299,0)
 ;;=1^Look for Yarn^wcdfm299^^^^^^^^0^80^6.5^7^^1
 ;;^UTILITY(U,$J,19707.17,300,0)
 ;;=1^Look for Yarn^wcdfm300^^^^^^^^0^100^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.17,301,0)
 ;;=1^Pass Cube^wcdfm301^^^^^^^^0^25^5.0^5.5^^1
 ;;^UTILITY(U,$J,19707.17,302,0)
 ;;=1^Pass Cube^wcdfm302^^^^^^^^0^40^5.5^6^^1
 ;;^UTILITY(U,$J,19707.17,303,0)
 ;;=1^Pass Cube^wcdfm303^^^^^^^^0^50^6.0^6.5^^1
 ;;^UTILITY(U,$J,19707.17,304,0)
 ;;=1^Pass Cube^wcdfm304^^^^^^^^0^60^6.5^7^^1
 ;;^UTILITY(U,$J,19707.17,305,0)
 ;;=1^Pass Cube^wcdfm305^^^^^^^^0^75^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.17,306,0)
 ;;=1^Pass Cube^wcdfm306^^^^^^^^0^85^7.5^8^^1
 ;;^UTILITY(U,$J,19707.17,307,0)
 ;;=1^Pass Cube^wcdfm307^^^^^^^^0^90^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.17,308,0)
 ;;=1^Pass Cube^wcdfm308^^^^^^^^0^100^8.5^9^^1
 ;;^UTILITY(U,$J,19707.17,309,0)
 ;;=1^Pass Cube^wcdfm309^^^^^^^^0^100^9.0^9.5^^1
 ;;^UTILITY(U,$J,19707.17,310,0)
 ;;=1^Pick Longer Line^wcdfm310^^^^^^^^0^25^36.0^37^^1
 ;;^UTILITY(U,$J,19707.17,311,0)
 ;;=1^Pick Longer Line^wcdfm311^^^^^^^^0^30^37.0^38^^1
 ;;^UTILITY(U,$J,19707.17,312,0)
 ;;=1^Pick Longer Line^wcdfm312^^^^^^^^0^40^38.0^39^^1
 ;;^UTILITY(U,$J,19707.17,313,0)
 ;;=1^Pick Longer Line^wcdfm313^^^^^^^^0^50^39.0^40^^1
 ;;^UTILITY(U,$J,19707.17,314,0)
 ;;=1^Pick Longer Line^wcdfm314^^^^^^^^0^55^40.0^41^^1
 ;;^UTILITY(U,$J,19707.17,315,0)
 ;;=1^Pick Longer Line^wcdfm315^^^^^^^^0^55^41.0^42^^1
 ;;^UTILITY(U,$J,19707.17,316,0)
 ;;=1^Pick Longer Line^wcdfm316^^^^^^^^0^60^42.0^43^^1
 ;;^UTILITY(U,$J,19707.17,317,0)
 ;;=1^Pick Longer Line^wcdfm317^^^^^^^^0^60^43.0^44^^1
 ;;^UTILITY(U,$J,19707.17,318,0)
 ;;=1^Pick Longer Line^wcdfm318^^^^^^^^0^65^44.0^45^^1
 ;;^UTILITY(U,$J,19707.17,319,0)
 ;;=1^Pick Longer Line^wcdfm319^^^^^^^^0^65^45.0^46^^1
 ;;^UTILITY(U,$J,19707.17,320,0)
 ;;=1^Pick Longer Line^wcdfm320^^^^^^^^0^70^46.0^47^^1
 ;;^UTILITY(U,$J,19707.17,321,0)
 ;;=1^Pick Longer Line^wcdfm321^^^^^^^^0^70^47.0^48^^1
 ;;^UTILITY(U,$J,19707.17,322,0)
 ;;=1^Pick Longer Line^wcdfm322^^^^^^^^1^75^48.0^49^^1
 ;;^UTILITY(U,$J,19707.17,323,0)
 ;;=1^Pick Longer Line^wcdfm323^^^^^^^^0^80^49.0^50^^1
 ;;^UTILITY(U,$J,19707.17,324,0)
 ;;=1^Pick Longer Line^wcdfm324^^^^^^^^1^80^50.0^51^^1
 ;;^UTILITY(U,$J,19707.17,325,0)
 ;;=1^Pick Longer Line^wcdfm325^^^^^^^^1^80^51.0^52^^1
 ;;^UTILITY(U,$J,19707.17,326,0)
 ;;=1^Pick Longer Line^wcdfm326^^^^^^^^0^80^52.0^53^^1
 ;;^UTILITY(U,$J,19707.17,327,0)
 ;;=1^Pick Longer Line^wcdfm327^^^^^^^^0^80^53.0^54^^1
 ;;^UTILITY(U,$J,19707.17,328,0)
 ;;=1^Pick Longer Line^wcdfm328^^^^^^^^0^80^54.0^55^^1
 ;;^UTILITY(U,$J,19707.17,329,0)
 ;;=1^Pick Longer Line^wcdfm329^^^^^^^^0^80^55.0^56^^1
 ;;^UTILITY(U,$J,19707.17,330,0)
 ;;=1^Pick Longer Line^wcdfm330^^^^^^^^0^85^56.0^57^^1
 ;;^UTILITY(U,$J,19707.17,331,0)
 ;;=1^Pick Longer Line^wcdfm331^^^^^^^^0^85^57.0^58^^1
 ;;^UTILITY(U,$J,19707.17,332,0)
 ;;=1^Pick Longer Line^wcdfm332^^^^^^^^0^85^58.0^59^^1
 ;;^UTILITY(U,$J,19707.17,333,0)
 ;;=1^Pick Longer Line^wcdfm333^^^^^^^^0^85^59.0^60^^1
 ;;^UTILITY(U,$J,19707.17,334,0)
 ;;=1^Pick Longer Line^wcdfm334^^^^^^^^0^85^60.0^61^^1
 ;;^UTILITY(U,$J,19707.17,335,0)
 ;;=1^Pick Longer Line^wcdfm335^^^^^^^^0^85^61.0^62^^1
 ;;^UTILITY(U,$J,19707.17,336,0)
 ;;=1^Pick Longer Line^wcdfm336^^^^^^^^0^90^62.0^63^^1