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

VENKI01H.m

Go to the documentation of this file.
VENKI01H ; ; 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,3407,0)
 ;;=34^Draw Person 3 Parts^wcdfm202^^1220^1250^^^^^0^25^40.0^41^^1
 ;;^UTILITY(U,$J,19707.12,3408,0)
 ;;=34^Draw Person 3 Parts^wcdfm203^^1250^1281^^^^^0^30^41.0^42^^1
 ;;^UTILITY(U,$J,19707.12,3409,0)
 ;;=34^Draw Person 3 Parts^wcdfm204^^1281^1311^^^^^0^35^42.0^43^^1
 ;;^UTILITY(U,$J,19707.12,3410,0)
 ;;=34^Draw Person 3 Parts^wcdfm205^^1311^1342^^^^^0^40^43.0^44^^1
 ;;^UTILITY(U,$J,19707.12,3411,0)
 ;;=34^Draw Person 3 Parts^wcdfm206^^1342^1372^^^^^0^45^44.0^45^^1
 ;;^UTILITY(U,$J,19707.12,3412,0)
 ;;=34^Draw Person 3 Parts^wcdfm207^^1372^1403^^^^^0^50^45.0^46^^1
 ;;^UTILITY(U,$J,19707.12,3413,0)
 ;;=34^Draw Person 3 Parts^wcdfm208^^1403^1433^^^^^0^55^46.0^47^^1
 ;;^UTILITY(U,$J,19707.12,3414,0)
 ;;=34^Draw Person 3 Parts^wcdfm209^^1433^1464^^^^^0^60^47.0^48^^1
 ;;^UTILITY(U,$J,19707.12,3415,0)
 ;;=34^Draw Person 3 Parts^wcdfm210^^1464^1494^^^^^0^65^48.0^49^^1
 ;;^UTILITY(U,$J,19707.12,3416,0)
 ;;=34^Draw Person 3 Parts^wcdfm211^^1494^1525^^^^^0^70^49.0^50^^1
 ;;^UTILITY(U,$J,19707.12,3417,0)
 ;;=34^Draw Person 3 Parts^wcdfm212^^1525^1555^^^^^0^75^50.0^51^^1
 ;;^UTILITY(U,$J,19707.12,3418,0)
 ;;=34^Draw Person 3 Parts^wcdfm213^^1555^1586^^^^^0^80^51.0^52^^1
 ;;^UTILITY(U,$J,19707.12,3419,0)
 ;;=34^Draw Person 3 Parts^wcdfm214^^1586^1616^^^^^0^80^52.0^53^^1
 ;;^UTILITY(U,$J,19707.12,3420,0)
 ;;=34^Draw Person 3 Parts^wcdfm215^^1616^1647^^^^^0^85^53.0^54^^1
 ;;^UTILITY(U,$J,19707.12,3421,0)
 ;;=34^Draw Person 3 Parts^wcdfm216^^1647^1677^^^^^0^85^54.0^55^^1
 ;;^UTILITY(U,$J,19707.12,3422,0)
 ;;=34^Draw Person 3 Parts^wcdfm217^^1677^1708^^^^^0^90^55.0^56^^1
 ;;^UTILITY(U,$J,19707.12,3423,0)
 ;;=34^Draw Person 3 Parts^wcdfm218^^1708^1738^^^^^1^100^56.0^57^^1
 ;;^UTILITY(U,$J,19707.12,3424,0)
 ;;=34^Draw Person 6 Parts^wcdfm219^^1464^1494^^^^^0^25^48.0^49^^1
 ;;^UTILITY(U,$J,19707.12,3425,0)
 ;;=34^Draw Person 6 Parts^wcdfm220^^1494^1525^^^^^0^30^49.0^50^^1
 ;;^UTILITY(U,$J,19707.12,3426,0)
 ;;=34^Draw Person 6 Parts^wcdfm221^^1525^1555^^^^^0^30^50.0^51^^1
 ;;^UTILITY(U,$J,19707.12,3427,0)
 ;;=34^Draw Person 6 Parts^wcdfm222^^1555^1586^^^^^0^35^51.0^52^^1
 ;;^UTILITY(U,$J,19707.12,3428,0)
 ;;=34^Draw Person 6 Parts^wcdfm223^^1586^1616^^^^^0^40^52.0^53^^1
 ;;^UTILITY(U,$J,19707.12,3429,0)
 ;;=34^Draw Person 6 Parts^wcdfm224^^1616^1647^^^^^0^40^53.0^54^^1
 ;;^UTILITY(U,$J,19707.12,3430,0)
 ;;=34^Draw Person 6 Parts^wcdfm225^^1647^1677^^^^^0^45^54.0^55^^1
 ;;^UTILITY(U,$J,19707.12,3431,0)
 ;;=34^Draw Person 6 Parts^wcdfm226^^1677^1708^^^^^0^50^55.0^56^^1
 ;;^UTILITY(U,$J,19707.12,3432,0)
 ;;=34^Draw Person 6 Parts^wcdfm227^^1708^1738^^^^^0^55^56.0^57^^1
 ;;^UTILITY(U,$J,19707.12,3433,0)
 ;;=34^Draw Person 6 Parts^wcdfm228^^1738^1769^^^^^0^60^57.0^58^^1
 ;;^UTILITY(U,$J,19707.12,3434,0)
 ;;=34^Draw Person 6 Parts^wcdfm229^^1769^1799^^^^^0^60^58.0^59^^1
 ;;^UTILITY(U,$J,19707.12,3435,0)
 ;;=34^Draw Person 6 Parts^wcdfm230^^1799^1830^^^^^0^65^59.0^60^^1
 ;;^UTILITY(U,$J,19707.12,3436,0)
 ;;=34^Draw Person 6 Parts^wcdfm231^^1830^1860^^^^^0^70^60.0^61^^1
 ;;^UTILITY(U,$J,19707.12,3437,0)
 ;;=34^Draw Person 6 Parts^wcdfm232^^1860^1891^^^^^0^75^61.0^62^^1
 ;;^UTILITY(U,$J,19707.12,3438,0)
 ;;=34^Draw Person 6 Parts^wcdfm233^^1891^1921^^^^^0^80^62.0^63^^1
 ;;^UTILITY(U,$J,19707.12,3439,0)
 ;;=34^Draw Person 6 Parts^wcdfm234^^1921^1952^^^^^0^80^63.0^64^^1
 ;;^UTILITY(U,$J,19707.12,3440,0)
 ;;=34^Draw Person 6 Parts^wcdfm235^^1952^1982^^^^^0^85^64.0^65^^1
 ;;^UTILITY(U,$J,19707.12,3441,0)
 ;;=34^Draw Person 6 Parts^wcdfm236^^1982^2013^^^^^0^85^65.0^66^^1
 ;;^UTILITY(U,$J,19707.12,3442,0)
 ;;=34^Draw Person 6 Parts^wcdfm237^^2013^2043^^^^^0^90^66.0^67^^1
 ;;^UTILITY(U,$J,19707.12,3443,0)
 ;;=34^Draw Person 6 Parts^wcdfm238^^2043^2074^^^^^0^100^67.0^68^^1
 ;;^UTILITY(U,$J,19707.12,3444,0)
 ;;=34^Draw Person 6 Parts^wcdfm239^^2074^2104^^^^^0^100^68.0^69^^1
 ;;^UTILITY(U,$J,19707.12,3445,0)
 ;;=34^Draw Person 6 Parts^wcdfm240^^2104^2135^^^^^0^100^69.0^70^^1
 ;;^UTILITY(U,$J,19707.12,3446,0)
 ;;=34^Draw Person 6 Parts^wcdfm241^^2135^2165^^^^^0^100^70.0^71^^1
 ;;^UTILITY(U,$J,19707.12,3447,0)
 ;;=34^Draw Person 6 Parts^wcdfm242^^2165^2196^^^^^0^100^71.0^72^^1
 ;;^UTILITY(U,$J,19707.12,3448,0)
 ;;=34^Draw Person 6 Parts^wcdfm243^^2196^2226^^^^^0^100^72.0^73^^1
 ;;^UTILITY(U,$J,19707.12,3449,0)
 ;;=34^Dumps Raisin^wcdfm244^^396^411^^^^^0^25^13.0^13.5^^1
 ;;^UTILITY(U,$J,19707.12,3450,0)
 ;;=34^Dumps Raisin^wcdfm245^^411^427^^^^^0^30^13.5^14^^1
 ;;^UTILITY(U,$J,19707.12,3451,0)
 ;;=34^Dumps Raisin^wcdfm246^^427^442^^^^^0^40^14.0^14.5^^1
 ;;^UTILITY(U,$J,19707.12,3452,0)
 ;;=34^Dumps Raisin^wcdfm247^^442^457^^^^^0^50^14.5^15^^1
 ;;^UTILITY(U,$J,19707.12,3453,0)
 ;;=34^Dumps Raisin^wcdfm248^^457^472^^^^^0^60^15.0^15.5^^1
 ;;^UTILITY(U,$J,19707.12,3454,0)
 ;;=34^Dumps Raisin^wcdfm249^^472^488^^^^^0^70^15.5^16^^1
 ;;^UTILITY(U,$J,19707.12,3455,0)
 ;;=34^Dumps Raisin^wcdfm250^^488^503^^^^^0^75^16.0^16.5^^1
 ;;^UTILITY(U,$J,19707.12,3456,0)
 ;;=34^Dumps Raisin^wcdfm251^^503^518^^^^^0^80^16.5^17^^1
 ;;^UTILITY(U,$J,19707.12,3457,0)
 ;;=34^Dumps Raisin^wcdfm252^^518^533^^^^^0^80^17.0^17.5^^1
 ;;^UTILITY(U,$J,19707.12,3458,0)
 ;;=34^Dumps Raisin^wcdfm253^^533^549^^^^^0^85^17.5^18^^1
 ;;^UTILITY(U,$J,19707.12,3459,0)
 ;;=34^Dumps Raisin^wcdfm254^^549^564^^^^^0^85^18.0^18.5^^1
 ;;^UTILITY(U,$J,19707.12,3460,0)
 ;;=34^Dumps Raisin^wcdfm255^^579^610^^^^^0^90^19.0^20^^1
 ;;^UTILITY(U,$J,19707.12,3461,0)
 ;;=34^Dumps Raisin^wcdfm256^^610^640^^^^^1^100^20.0^21^^1
 ;;^UTILITY(U,$J,19707.12,3462,0)
 ;;=34^Follow Past Midline^wcdfm257^^45^61^^^^^0^25^1.5^2^^1
 ;;^UTILITY(U,$J,19707.12,3463,0)
 ;;=34^Follow Past Midline^wcdfm258^^61^76^^^^^0^50^2.0^2.5^^1
 ;;^UTILITY(U,$J,19707.12,3464,0)
 ;;=34^Follow Past Midline^wcdfm259^^76^91^^^^^0^85^2.5^3^^1
 ;;^UTILITY(U,$J,19707.12,3465,0)
 ;;=34^Follow Past Midline^wcdfm260^^91^106^^^^^0^100^3.0^3.5^^1
 ;;^UTILITY(U,$J,19707.12,3466,0)
 ;;=34^Follow Past Midline^wcdfm261^^106^122^^^^^0^100^3.5^4^^1
 ;;^UTILITY(U,$J,19707.12,3467,0)
 ;;=34^Follow Past Midline^wcdfm262^^122^137^^^^^0^100^4.0^4.5^^1
 ;;^UTILITY(U,$J,19707.12,3468,0)
 ;;=34^Follow to Midline^wcdfm263^^15^30^^^^^0^75^.5^1^^1
 ;;^UTILITY(U,$J,19707.12,3469,0)
 ;;=34^Follow to Midline^wcdfm264^^30^45^^^^^0^80^1.0^1.5^^1
 ;;^UTILITY(U,$J,19707.12,3470,0)
 ;;=34^Follow to Midline^wcdfm265^^45^61^^^^^0^85^1.5^2^^1
 ;;^UTILITY(U,$J,19707.12,3471,0)
 ;;=34^Follow to Midline^wcdfm266^^61^76^^^^^0^90^2.0^2.5^^1
 ;;^UTILITY(U,$J,19707.12,3472,0)
 ;;=34^Follow to Midline^wcdfm267^^76^91^^^^^0^100^2.5^3^^1
 ;;^UTILITY(U,$J,19707.12,3473,0)
 ;;=34^Grasp Rattle^wcdfm268^^91^106^^^^^0^30^3.0^3.5^^1
 ;;^UTILITY(U,$J,19707.12,3474,0)
 ;;=34^Grasp Rattle^wcdfm269^^106^122^^^^^0^50^3.5^4^^1
 ;;^UTILITY(U,$J,19707.12,3475,0)
 ;;=34^Grasp Rattle^wcdfm270^^122^137^^^^^0^90^4.0^4.5^^1
 ;;^UTILITY(U,$J,19707.12,3476,0)
 ;;=34^Grasp Rattle^wcdfm271^^137^152^^^^^0^100^4.5^5^^1
 ;;^UTILITY(U,$J,19707.12,3477,0)
 ;;=34^Hands Together^wcdfm272^^61^76^^^^^0^25^2.0^2.5^^1
 ;;^UTILITY(U,$J,19707.12,3478,0)
 ;;=34^Hands Together^wcdfm273^^76^91^^^^^0^50^2.5^3^^1
 ;;^UTILITY(U,$J,19707.12,3479,0)
 ;;=34^Hands Together^wcdfm274^^91^106^^^^^0^75^3.0^3.5^^1
 ;;^UTILITY(U,$J,19707.12,3480,0)
 ;;=34^Hands Together^wcdfm275^^106^122^^^^^0^80^3.5^4^^1
 ;;^UTILITY(U,$J,19707.12,3481,0)
 ;;=34^Hands Together^wcdfm276^^122^137^^^^^0^90^4.0^4.5^^1
 ;;^UTILITY(U,$J,19707.12,3482,0)
 ;;=34^Hands Together^wcdfm277^^137^152^^^^^0^100^4.5^5^^1
 ;;^UTILITY(U,$J,19707.12,3483,0)
 ;;=34^Hands Together^wcdfm278^^152^167^^^^^0^100^5.0^5.5^^1
 ;;^UTILITY(U,$J,19707.12,3484,0)
 ;;=34^Imitate Vertical Line^wcdfm279^^762^793^^^^^0^25^25.0^26^^1