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

VENKI01N.m

Go to the documentation of this file.
VENKI01N ; ; 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,3876,0)
 ;;=35^Get to Sitting^wcdgm671^^320^335^^^^^0^100^10.5^11^^1
 ;;^UTILITY(U,$J,19707.12,3877,0)
 ;;=35^Get to Sitting^wcdgm672^^335^350^^^^^0^100^11.0^11.5^^1
 ;;^UTILITY(U,$J,19707.12,3878,0)
 ;;=35^Get to Sitting^wcdgm673^^350^366^^^^^1^100^11.5^12^^1
 ;;^UTILITY(U,$J,19707.12,3879,0)
 ;;=35^Head up 45'^wcdgm674^^15^30^^^^^0^50^.5^1^^1
 ;;^UTILITY(U,$J,19707.12,3880,0)
 ;;=35^Head up 45'^wcdgm675^^30^45^^^^^0^65^1.0^1.5^^1
 ;;^UTILITY(U,$J,19707.12,3881,0)
 ;;=35^Head up 45'^wcdgm676^^45^61^^^^^0^75^1.5^2^^1
 ;;^UTILITY(U,$J,19707.12,3882,0)
 ;;=35^Head up 45'^wcdgm677^^61^76^^^^^0^90^2.0^2.5^^1
 ;;^UTILITY(U,$J,19707.12,3883,0)
 ;;=35^Head up 45'^wcdgm678^^76^91^^^^^0^100^2.5^3^^1
 ;;^UTILITY(U,$J,19707.12,3884,0)
 ;;=35^Head up 45'^wcdgm679^^91^106^^^^^1^100^3.0^3.5^^1
 ;;^UTILITY(U,$J,19707.12,3885,0)
 ;;=35^Head up 90'^wcdgm680^^30^45^^^^^0^25^1.0^1.5^^1
 ;;^UTILITY(U,$J,19707.12,3886,0)
 ;;=35^Head up 90'^wcdgm681^^45^61^^^^^0^40^1.5^2^^1
 ;;^UTILITY(U,$J,19707.12,3887,0)
 ;;=35^Head up 90'^wcdgm682^^61^76^^^^^0^65^2.0^2.5^^1
 ;;^UTILITY(U,$J,19707.12,3888,0)
 ;;=35^Head up 90'^wcdgm683^^76^91^^^^^0^75^2.5^3^^1
 ;;^UTILITY(U,$J,19707.12,3889,0)
 ;;=35^Head up 90'^wcdgm684^^91^106^^^^^1^90^3.0^3.5^^1
 ;;^UTILITY(U,$J,19707.12,3890,0)
 ;;=35^Head up 90'^wcdgm685^^106^122^^^^^1^100^3.5^4^^1
 ;;^UTILITY(U,$J,19707.12,3891,0)
 ;;=35^Head up 90'^wcdgm686^^122^137^^^^^1^100^4.0^4.5^^1
 ;;^UTILITY(U,$J,19707.12,3892,0)
 ;;=35^Heel to Toe Walk^wcdgm687^^1464^1494^^^^^0^25^48.0^49^^1
 ;;^UTILITY(U,$J,19707.12,3893,0)
 ;;=35^Heel to Toe Walk^wcdgm688^^1494^1525^^^^^0^30^49.0^50^^1
 ;;^UTILITY(U,$J,19707.12,3894,0)
 ;;=35^Heel to Toe Walk^wcdgm689^^1525^1555^^^^^0^35^50.0^51^^1
 ;;^UTILITY(U,$J,19707.12,3895,0)
 ;;=35^Heel to Toe Walk^wcdgm690^^1555^1586^^^^^0^35^51.0^52^^1
 ;;^UTILITY(U,$J,19707.12,3896,0)
 ;;=35^Heel to Toe Walk^wcdgm691^^1586^1616^^^^^0^40^52.0^53^^1
 ;;^UTILITY(U,$J,19707.12,3897,0)
 ;;=35^Heel to Toe Walk^wcdgm692^^1616^1647^^^^^0^45^53.0^54^^1
 ;;^UTILITY(U,$J,19707.12,3898,0)
 ;;=35^Heel to Toe Walk^wcdgm693^^1647^1677^^^^^0^50^54.0^55^^1
 ;;^UTILITY(U,$J,19707.12,3899,0)
 ;;=35^Heel to Toe Walk^wcdgm694^^1677^1708^^^^^0^55^55.0^56^^1
 ;;^UTILITY(U,$J,19707.12,3900,0)
 ;;=35^Heel to Toe Walk^wcdgm695^^1708^1738^^^^^0^60^56.0^57^^1
 ;;^UTILITY(U,$J,19707.12,3901,0)
 ;;=35^Heel to Toe Walk^wcdgm696^^1738^1769^^^^^0^60^57.0^58^^1
 ;;^UTILITY(U,$J,19707.12,3902,0)
 ;;=35^Heel to Toe Walk^wcdgm697^^1769^1799^^^^^0^65^58.0^59^^1
 ;;^UTILITY(U,$J,19707.12,3903,0)
 ;;=35^Heel to Toe Walk^wcdgm698^^1799^1830^^^^^0^70^59.0^60^^1
 ;;^UTILITY(U,$J,19707.12,3904,0)
 ;;=35^Heel to Toe Walk^wcdgm699^^1830^1860^^^^^0^70^60.0^61^^1
 ;;^UTILITY(U,$J,19707.12,3905,0)
 ;;=35^Heel to Toe Walk^wcdgm700^^1860^1891^^^^^0^75^61.0^62^^1
 ;;^UTILITY(U,$J,19707.12,3906,0)
 ;;=35^Heel to Toe Walk^wcdgm701^^1891^1921^^^^^0^80^62.0^63^^1
 ;;^UTILITY(U,$J,19707.12,3907,0)
 ;;=35^Heel to Toe Walk^wcdgm702^^1921^1952^^^^^0^80^63.0^64^^1
 ;;^UTILITY(U,$J,19707.12,3908,0)
 ;;=35^Heel to Toe Walk^wcdgm703^^1952^1982^^^^^0^80^64.0^65^^1
 ;;^UTILITY(U,$J,19707.12,3909,0)
 ;;=35^Heel to Toe Walk^wcdgm704^^1982^2013^^^^^0^85^65.0^66^^1
 ;;^UTILITY(U,$J,19707.12,3910,0)
 ;;=35^Heel to Toe Walk^wcdgm705^^2013^2043^^^^^0^85^66.0^67^^1
 ;;^UTILITY(U,$J,19707.12,3911,0)
 ;;=35^Heel to Toe Walk^wcdgm706^^2043^2074^^^^^0^90^67.0^68^^1
 ;;^UTILITY(U,$J,19707.12,3912,0)
 ;;=35^Heel to Toe Walk^wcdgm707^^2074^2104^^^^^0^100^68.0^69^^1
 ;;^UTILITY(U,$J,19707.12,3913,0)
 ;;=35^Heel to Toe Walk^wcdgm708^^2104^2135^^^^^0^100^69.0^70^^1
 ;;^UTILITY(U,$J,19707.12,3914,0)
 ;;=35^Heel to Toe Walk^wcdgm709^^2135^2165^^^^^0^100^70.0^71^^1
 ;;^UTILITY(U,$J,19707.12,3915,0)
 ;;=35^Heel to Toe Walk^wcdgm710^^2165^2196^^^^^0^100^71.0^72^^1
 ;;^UTILITY(U,$J,19707.12,3916,0)
 ;;=35^Heel to Toe Walk^wcdgm711^^2196^2226^^^^^0^100^72.0^73^^1
 ;;^UTILITY(U,$J,19707.12,3917,0)
 ;;=35^Hops^wcdgm712^^1159^1189^^^^^0^25^38.0^39^^1
 ;;^UTILITY(U,$J,19707.12,3918,0)
 ;;=35^Hops^wcdgm713^^1189^1220^^^^^0^30^39.0^40^^1
 ;;^UTILITY(U,$J,19707.12,3919,0)
 ;;=35^Hops^wcdgm714^^1220^1250^^^^^0^35^40.0^41^^1
 ;;^UTILITY(U,$J,19707.12,3920,0)
 ;;=35^Hops^wcdgm715^^1250^1281^^^^^0^40^41.0^42^^1
 ;;^UTILITY(U,$J,19707.12,3921,0)
 ;;=35^Hops^wcdgm716^^1281^1311^^^^^0^50^42.0^43^^1
 ;;^UTILITY(U,$J,19707.12,3922,0)
 ;;=35^Hops^wcdgm717^^1311^1342^^^^^0^60^43.0^44^^1
 ;;^UTILITY(U,$J,19707.12,3923,0)
 ;;=35^Hops^wcdgm718^^1342^1372^^^^^0^65^44.0^45^^1
 ;;^UTILITY(U,$J,19707.12,3924,0)
 ;;=35^Hops^wcdgm719^^1372^1403^^^^^0^70^45.0^46^^1
 ;;^UTILITY(U,$J,19707.12,3925,0)
 ;;=35^Hops^wcdgm720^^1403^1433^^^^^0^75^46.0^47^^1
 ;;^UTILITY(U,$J,19707.12,3926,0)
 ;;=35^Hops^wcdgm721^^1433^1464^^^^^0^80^47.0^48^^1
 ;;^UTILITY(U,$J,19707.12,3927,0)
 ;;=35^Hops^wcdgm722^^1464^1494^^^^^0^80^48.0^49^^1
 ;;^UTILITY(U,$J,19707.12,3928,0)
 ;;=35^Hops^wcdgm723^^1494^1525^^^^^0^85^49.0^50^^1
 ;;^UTILITY(U,$J,19707.12,3929,0)
 ;;=35^Hops^wcdgm724^^1525^1555^^^^^1^90^50.0^51^^1
 ;;^UTILITY(U,$J,19707.12,3930,0)
 ;;=35^Hops^wcdgm725^^1555^1586^^^^^1^100^51.0^52^^1
 ;;^UTILITY(U,$J,19707.12,3931,0)
 ;;=35^Hops^wcdgm726^^1586^1616^^^^^1^100^52.0^53^^1
 ;;^UTILITY(U,$J,19707.12,3932,0)
 ;;=35^Hops^wcdgm727^^1616^1647^^^^^1^100^53.0^54^^1
 ;;^UTILITY(U,$J,19707.12,3933,0)
 ;;=35^Hops^wcdgm728^^1647^1677^^^^^1^100^54.0^55^^1
 ;;^UTILITY(U,$J,19707.12,3934,0)
 ;;=35^Hops^wcdgm729^^1677^1708^^^^^1^100^55.0^56^^1
 ;;^UTILITY(U,$J,19707.12,3935,0)
 ;;=35^Jump Up^wcdgm730^^640^671^^^^^0^25^21.0^22^^1
 ;;^UTILITY(U,$J,19707.12,3936,0)
 ;;=35^Jump Up^wcdgm731^^671^701^^^^^0^30^22.0^23^^1
 ;;^UTILITY(U,$J,19707.12,3937,0)
 ;;=35^Jump Up^wcdgm732^^701^732^^^^^0^40^23.0^24^^1
 ;;^UTILITY(U,$J,19707.12,3938,0)
 ;;=35^Jump Up^wcdgm733^^732^762^^^^^0^50^24.0^25^^1
 ;;^UTILITY(U,$J,19707.12,3939,0)
 ;;=35^Jump Up^wcdgm734^^762^793^^^^^0^60^25.0^26^^1
 ;;^UTILITY(U,$J,19707.12,3940,0)
 ;;=35^Jump Up^wcdgm735^^793^823^^^^^0^75^26.0^27^^1
 ;;^UTILITY(U,$J,19707.12,3941,0)
 ;;=35^Jump Up^wcdgm736^^823^854^^^^^0^80^27.0^28^^1
 ;;^UTILITY(U,$J,19707.12,3942,0)
 ;;=35^Jump Up^wcdgm737^^854^884^^^^^0^90^28.0^29^^1
 ;;^UTILITY(U,$J,19707.12,3943,0)
 ;;=35^Jump Up^wcdgm738^^884^915^^^^^0^100^29.0^30^^1
 ;;^UTILITY(U,$J,19707.12,3944,0)
 ;;=35^Jump Up^wcdgm739^^915^945^^^^^0^100^30.0^31^^1
 ;;^UTILITY(U,$J,19707.12,3945,0)
 ;;=35^Jump Up^wcdgm740^^945^976^^^^^1^100^31.0^32^^1
 ;;^UTILITY(U,$J,19707.12,3946,0)
 ;;=35^Jump Up^wcdgm741^^976^1006^^^^^1^100^32.0^33^^1
 ;;^UTILITY(U,$J,19707.12,3947,0)
 ;;=35^Jump Up^wcdgm742^^1006^1037^^^^^1^100^33.0^34^^1
 ;;^UTILITY(U,$J,19707.12,3948,0)
 ;;=35^Jump Up^wcdgm743^^1037^1067^^^^^1^100^34.0^35^^1
 ;;^UTILITY(U,$J,19707.12,3949,0)
 ;;=35^Jump Up^wcdgm744^^1067^1098^^^^^1^100^35.0^36^^1
 ;;^UTILITY(U,$J,19707.12,3950,0)
 ;;=35^Kick Ball Forward^wcdgm745^^488^503^^^^^0^25^16.0^16.5^^1
 ;;^UTILITY(U,$J,19707.12,3951,0)
 ;;=35^Kick Ball Forward^wcdgm746^^503^518^^^^^0^30^16.5^17^^1
 ;;^UTILITY(U,$J,19707.12,3952,0)
 ;;=35^Kick Ball Forward^wcdgm747^^518^533^^^^^0^40^17.0^17.5^^1
 ;;^UTILITY(U,$J,19707.12,3953,0)
 ;;=35^Kick Ball Forward^wcdgm748^^533^549^^^^^0^45^17.5^18^^1
 ;;^UTILITY(U,$J,19707.12,3954,0)
 ;;=35^Kick Ball Forward^wcdgm749^^549^564^^^^^0^50^18.0^18.5^^1
 ;;^UTILITY(U,$J,19707.12,3955,0)
 ;;=35^Kick Ball Forward^wcdgm750^^579^610^^^^^0^60^19.0^20^^1
 ;;^UTILITY(U,$J,19707.12,3956,0)
 ;;=35^Kick Ball Forward^wcdgm751^^610^640^^^^^0^70^20.0^21^^1
 ;;^UTILITY(U,$J,19707.12,3957,0)
 ;;=35^Kick Ball Forward^wcdgm752^^640^671^^^^^0^75^21.0^22^^1
 ;;^UTILITY(U,$J,19707.12,3958,0)
 ;;=35^Kick Ball Forward^wcdgm753^^671^701^^^^^0^80^22.0^23^^1