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

VEN8I01I.m

Go to the documentation of this file.
VEN8I01I ; 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,3469,0)
 ;;=34^Follow to Midline^wcdfm264^^30^45^^^^^0^80^1.0^1.5^^1
 ;;^UTILITY(U,$J,19707.17,3470,0)
 ;;=34^Follow to Midline^wcdfm265^^45^61^^^^^0^85^1.5^2^^1
 ;;^UTILITY(U,$J,19707.17,3471,0)
 ;;=34^Follow to Midline^wcdfm266^^61^76^^^^^0^90^2.0^2.5^^1
 ;;^UTILITY(U,$J,19707.17,3472,0)
 ;;=34^Follow to Midline^wcdfm267^^76^91^^^^^0^100^2.5^3^^1
 ;;^UTILITY(U,$J,19707.17,3473,0)
 ;;=34^Grasp Rattle^wcdfm268^^91^106^^^^^0^30^3.0^3.5^^1
 ;;^UTILITY(U,$J,19707.17,3474,0)
 ;;=34^Grasp Rattle^wcdfm269^^106^122^^^^^0^50^3.5^4^^1
 ;;^UTILITY(U,$J,19707.17,3475,0)
 ;;=34^Grasp Rattle^wcdfm270^^122^137^^^^^0^90^4.0^4.5^^1
 ;;^UTILITY(U,$J,19707.17,3476,0)
 ;;=34^Grasp Rattle^wcdfm271^^137^152^^^^^0^100^4.5^5^^1
 ;;^UTILITY(U,$J,19707.17,3477,0)
 ;;=34^Hands Together^wcdfm272^^61^76^^^^^0^25^2.0^2.5^^1
 ;;^UTILITY(U,$J,19707.17,3478,0)
 ;;=34^Hands Together^wcdfm273^^76^91^^^^^0^50^2.5^3^^1
 ;;^UTILITY(U,$J,19707.17,3479,0)
 ;;=34^Hands Together^wcdfm274^^91^106^^^^^0^75^3.0^3.5^^1
 ;;^UTILITY(U,$J,19707.17,3480,0)
 ;;=34^Hands Together^wcdfm275^^106^122^^^^^0^80^3.5^4^^1
 ;;^UTILITY(U,$J,19707.17,3481,0)
 ;;=34^Hands Together^wcdfm276^^122^137^^^^^0^90^4.0^4.5^^1
 ;;^UTILITY(U,$J,19707.17,3482,0)
 ;;=34^Hands Together^wcdfm277^^137^152^^^^^0^100^4.5^5^^1
 ;;^UTILITY(U,$J,19707.17,3483,0)
 ;;=34^Hands Together^wcdfm278^^152^167^^^^^0^100^5.0^5.5^^1
 ;;^UTILITY(U,$J,19707.17,3484,0)
 ;;=34^Imitate Vertical Line^wcdfm279^^762^793^^^^^0^25^25.0^26^^1
 ;;^UTILITY(U,$J,19707.17,3485,0)
 ;;=34^Imitate Vertical Line^wcdfm280^^793^823^^^^^0^30^26.0^27^^1
 ;;^UTILITY(U,$J,19707.17,3486,0)
 ;;=34^Imitate Vertical Line^wcdfm281^^823^854^^^^^0^35^27.0^28^^1
 ;;^UTILITY(U,$J,19707.17,3487,0)
 ;;=34^Imitate Vertical Line^wcdfm282^^854^884^^^^^0^40^28.0^29^^1
 ;;^UTILITY(U,$J,19707.17,3488,0)
 ;;=34^Imitate Vertical Line^wcdfm283^^884^915^^^^^0^45^29.0^30^^1
 ;;^UTILITY(U,$J,19707.17,3489,0)
 ;;=34^Imitate Vertical Line^wcdfm284^^915^945^^^^^0^50^30.0^31^^1
 ;;^UTILITY(U,$J,19707.17,3490,0)
 ;;=34^Imitate Vertical Line^wcdfm285^^945^976^^^^^0^60^31.0^32^^1
 ;;^UTILITY(U,$J,19707.17,3491,0)
 ;;=34^Imitate Vertical Line^wcdfm286^^976^1006^^^^^0^65^32.0^33^^1
 ;;^UTILITY(U,$J,19707.17,3492,0)
 ;;=34^Imitate Vertical Line^wcdfm287^^1006^1037^^^^^0^70^33.0^34^^1
 ;;^UTILITY(U,$J,19707.17,3493,0)
 ;;=34^Imitate Vertical Line^wcdfm288^^1037^1067^^^^^0^75^34.0^35^^1
 ;;^UTILITY(U,$J,19707.17,3494,0)
 ;;=34^Imitate Vertical Line^wcdfm289^^1067^1098^^^^^0^80^35.0^36^^1
 ;;^UTILITY(U,$J,19707.17,3495,0)
 ;;=34^Imitate Vertical Line^wcdfm290^^1098^1128^^^^^0^80^36.0^37^^1
 ;;^UTILITY(U,$J,19707.17,3496,0)
 ;;=34^Imitate Vertical Line^wcdfm291^^1128^1159^^^^^0^85^37.0^38^^1
 ;;^UTILITY(U,$J,19707.17,3497,0)
 ;;=34^Imitate Vertical Line^wcdfm292^^1159^1189^^^^^0^90^38.0^39^^1
 ;;^UTILITY(U,$J,19707.17,3498,0)
 ;;=34^Imitate Vertical Line^wcdfm293^^1189^1220^^^^^1^100^39.0^40^^1
 ;;^UTILITY(U,$J,19707.17,3499,0)
 ;;=34^Imitate Vertical Line^wcdfm294^^1220^1250^^^^^1^100^40.0^41^^1
 ;;^UTILITY(U,$J,19707.17,3500,0)
 ;;=34^Imitate Vertical Line^wcdfm295^^1250^1281^^^^^1^100^41.0^42^^1
 ;;^UTILITY(U,$J,19707.17,3501,0)
 ;;=34^Look for Yarn^wcdfm296^^152^167^^^^^0^25^5.0^5.5^^1
 ;;^UTILITY(U,$J,19707.17,3502,0)
 ;;=34^Look for Yarn^wcdfm297^^167^183^^^^^0^40^5.5^6^^1
 ;;^UTILITY(U,$J,19707.17,3503,0)
 ;;=34^Look for Yarn^wcdfm298^^183^198^^^^^0^60^6.0^6.5^^1
 ;;^UTILITY(U,$J,19707.17,3504,0)
 ;;=34^Look for Yarn^wcdfm299^^198^213^^^^^0^80^6.5^7^^1
 ;;^UTILITY(U,$J,19707.17,3505,0)
 ;;=34^Look for Yarn^wcdfm300^^213^228^^^^^0^100^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.17,3506,0)
 ;;=34^Pass Cube^wcdfm301^^152^167^^^^^0^25^5.0^5.5^^1
 ;;^UTILITY(U,$J,19707.17,3507,0)
 ;;=34^Pass Cube^wcdfm302^^167^183^^^^^0^40^5.5^6^^1
 ;;^UTILITY(U,$J,19707.17,3508,0)
 ;;=34^Pass Cube^wcdfm303^^183^198^^^^^0^50^6.0^6.5^^1
 ;;^UTILITY(U,$J,19707.17,3509,0)
 ;;=34^Pass Cube^wcdfm304^^198^213^^^^^0^60^6.5^7^^1
 ;;^UTILITY(U,$J,19707.17,3510,0)
 ;;=34^Pass Cube^wcdfm305^^213^228^^^^^0^75^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.17,3511,0)
 ;;=34^Pass Cube^wcdfm306^^228^244^^^^^0^85^7.5^8^^1
 ;;^UTILITY(U,$J,19707.17,3512,0)
 ;;=34^Pass Cube^wcdfm307^^244^259^^^^^0^90^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.17,3513,0)
 ;;=34^Pass Cube^wcdfm308^^259^274^^^^^0^100^8.5^9^^1
 ;;^UTILITY(U,$J,19707.17,3514,0)
 ;;=34^Pass Cube^wcdfm309^^274^289^^^^^0^100^9.0^9.5^^1
 ;;^UTILITY(U,$J,19707.17,3515,0)
 ;;=34^Pick Longer Line^wcdfm310^^1098^1128^^^^^0^25^36.0^37^^1
 ;;^UTILITY(U,$J,19707.17,3516,0)
 ;;=34^Pick Longer Line^wcdfm311^^1128^1159^^^^^0^30^37.0^38^^1
 ;;^UTILITY(U,$J,19707.17,3517,0)
 ;;=34^Pick Longer Line^wcdfm312^^1159^1189^^^^^0^40^38.0^39^^1
 ;;^UTILITY(U,$J,19707.17,3518,0)
 ;;=34^Pick Longer Line^wcdfm313^^1189^1220^^^^^0^50^39.0^40^^1
 ;;^UTILITY(U,$J,19707.17,3519,0)
 ;;=34^Pick Longer Line^wcdfm314^^1220^1250^^^^^0^55^40.0^41^^1
 ;;^UTILITY(U,$J,19707.17,3520,0)
 ;;=34^Pick Longer Line^wcdfm315^^1250^1281^^^^^0^55^41.0^42^^1
 ;;^UTILITY(U,$J,19707.17,3521,0)
 ;;=34^Pick Longer Line^wcdfm316^^1281^1311^^^^^0^60^42.0^43^^1
 ;;^UTILITY(U,$J,19707.17,3522,0)
 ;;=34^Pick Longer Line^wcdfm317^^1311^1342^^^^^0^60^43.0^44^^1
 ;;^UTILITY(U,$J,19707.17,3523,0)
 ;;=34^Pick Longer Line^wcdfm318^^1342^1372^^^^^0^65^44.0^45^^1
 ;;^UTILITY(U,$J,19707.17,3524,0)
 ;;=34^Pick Longer Line^wcdfm319^^1372^1403^^^^^0^65^45.0^46^^1
 ;;^UTILITY(U,$J,19707.17,3525,0)
 ;;=34^Pick Longer Line^wcdfm320^^1403^1433^^^^^0^70^46.0^47^^1
 ;;^UTILITY(U,$J,19707.17,3526,0)
 ;;=34^Pick Longer Line^wcdfm321^^1433^1464^^^^^0^70^47.0^48^^1
 ;;^UTILITY(U,$J,19707.17,3527,0)
 ;;=34^Pick Longer Line^wcdfm322^^1464^1494^^^^^1^75^48.0^49^^1
 ;;^UTILITY(U,$J,19707.17,3528,0)
 ;;=34^Pick Longer Line^wcdfm323^^1494^1525^^^^^0^80^49.0^50^^1
 ;;^UTILITY(U,$J,19707.17,3529,0)
 ;;=34^Pick Longer Line^wcdfm324^^1525^1555^^^^^1^80^50.0^51^^1
 ;;^UTILITY(U,$J,19707.17,3530,0)
 ;;=34^Pick Longer Line^wcdfm325^^1555^1586^^^^^1^80^51.0^52^^1
 ;;^UTILITY(U,$J,19707.17,3531,0)
 ;;=34^Pick Longer Line^wcdfm326^^1586^1616^^^^^0^80^52.0^53^^1
 ;;^UTILITY(U,$J,19707.17,3532,0)
 ;;=34^Pick Longer Line^wcdfm327^^1616^1647^^^^^0^80^53.0^54^^1
 ;;^UTILITY(U,$J,19707.17,3533,0)
 ;;=34^Pick Longer Line^wcdfm328^^1647^1677^^^^^0^80^54.0^55^^1
 ;;^UTILITY(U,$J,19707.17,3534,0)
 ;;=34^Pick Longer Line^wcdfm329^^1677^1708^^^^^0^80^55.0^56^^1
 ;;^UTILITY(U,$J,19707.17,3535,0)
 ;;=34^Pick Longer Line^wcdfm330^^1708^1738^^^^^0^85^56.0^57^^1
 ;;^UTILITY(U,$J,19707.17,3536,0)
 ;;=34^Pick Longer Line^wcdfm331^^1738^1769^^^^^0^85^57.0^58^^1
 ;;^UTILITY(U,$J,19707.17,3537,0)
 ;;=34^Pick Longer Line^wcdfm332^^1769^1799^^^^^0^85^58.0^59^^1
 ;;^UTILITY(U,$J,19707.17,3538,0)
 ;;=34^Pick Longer Line^wcdfm333^^1799^1830^^^^^0^85^59.0^60^^1
 ;;^UTILITY(U,$J,19707.17,3539,0)
 ;;=34^Pick Longer Line^wcdfm334^^1830^1860^^^^^0^85^60.0^61^^1
 ;;^UTILITY(U,$J,19707.17,3540,0)
 ;;=34^Pick Longer Line^wcdfm335^^1860^1891^^^^^0^85^61.0^62^^1
 ;;^UTILITY(U,$J,19707.17,3541,0)
 ;;=34^Pick Longer Line^wcdfm336^^1891^1921^^^^^0^90^62.0^63^^1
 ;;^UTILITY(U,$J,19707.17,3542,0)
 ;;=34^Pick Longer Line^wcdfm337^^1921^1952^^^^^1^100^63.0^64^^1
 ;;^UTILITY(U,$J,19707.17,3543,0)
 ;;=34^Pick Longer Line^wcdfm338^^1952^1982^^^^^1^100^64.0^65^^1
 ;;^UTILITY(U,$J,19707.17,3544,0)
 ;;=34^Pick Longer Line^wcdfm339^^1982^2013^^^^^1^100^65.0^66^^1
 ;;^UTILITY(U,$J,19707.17,3545,0)
 ;;=34^Put Block in Cup^wcdfm340^^305^320^^^^^0^25^10.0^10.5^^1
 ;;^UTILITY(U,$J,19707.17,3546,0)
 ;;=34^Put Block in Cup^wcdfm341^^320^335^^^^^0^40^10.5^11^^1
 ;;^UTILITY(U,$J,19707.17,3547,0)
 ;;=34^Put Block in Cup^wcdfm342^^335^350^^^^^0^50^11.0^11.5^^1