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

VENKI00C.m

Go to the documentation of this file.
VENKI00C ; ; 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,596,0)
 ;;=3^Balance Each Foot 5s^wcdgm596^^^^^^^^0^45^51.0^52^^1
 ;;^UTILITY(U,$J,19707.12,597,0)
 ;;=3^Balance Each Foot 5s^wcdgm597^^^^^^^^0^50^52.0^53^^1
 ;;^UTILITY(U,$J,19707.12,598,0)
 ;;=3^Balance Each Foot 5s^wcdgm598^^^^^^^^0^55^53.0^54^^1
 ;;^UTILITY(U,$J,19707.12,599,0)
 ;;=3^Balance Each Foot 5s^wcdgm599^^^^^^^^0^60^54.0^55^^1
 ;;^UTILITY(U,$J,19707.12,600,0)
 ;;=3^Balance Each Foot 5s^wcdgm600^^^^^^^^0^65^55.0^56^^1
 ;;^UTILITY(U,$J,19707.12,601,0)
 ;;=3^Balance Each Foot 5s^wcdgm601^^^^^^^^0^70^56.0^57^^1
 ;;^UTILITY(U,$J,19707.12,602,0)
 ;;=3^Balance Each Foot 5s^wcdgm602^^^^^^^^0^70^57.0^58^^1
 ;;^UTILITY(U,$J,19707.12,603,0)
 ;;=3^Balance Each Foot 5s^wcdgm603^^^^^^^^0^75^58.0^59^^1
 ;;^UTILITY(U,$J,19707.12,604,0)
 ;;=3^Balance Each Foot 5s^wcdgm604^^^^^^^^0^80^59.0^60^^1
 ;;^UTILITY(U,$J,19707.12,605,0)
 ;;=3^Balance Each Foot 5s^wcdgm605^^^^^^^^0^80^60.0^61^^1
 ;;^UTILITY(U,$J,19707.12,606,0)
 ;;=3^Balance Each Foot 5s^wcdgm606^^^^^^^^0^80^61.0^62^^1
 ;;^UTILITY(U,$J,19707.12,607,0)
 ;;=3^Balance Each Foot 5s^wcdgm607^^^^^^^^0^85^62.0^63^^1
 ;;^UTILITY(U,$J,19707.12,608,0)
 ;;=3^Balance Each Foot 5s^wcdgm608^^^^^^^^0^85^63.0^64^^1
 ;;^UTILITY(U,$J,19707.12,609,0)
 ;;=3^Balance Each Foot 5s^wcdgm609^^^^^^^^0^85^64.0^65^^1
 ;;^UTILITY(U,$J,19707.12,610,0)
 ;;=3^Balance Each Foot 5s^wcdgm610^^^^^^^^0^90^65.0^66^^1
 ;;^UTILITY(U,$J,19707.12,611,0)
 ;;=3^Balance Each Foot 5s^wcdgm611^^^^^^^^1^100^66.0^67^^1
 ;;^UTILITY(U,$J,19707.12,612,0)
 ;;=3^Balance Each Foot 5s^wcdgm612^^^^^^^^1^100^67.0^68^^1
 ;;^UTILITY(U,$J,19707.12,613,0)
 ;;=3^Balance Each Foot 6s^wcdgm613^^^^^^^^0^25^50.0^51^^1
 ;;^UTILITY(U,$J,19707.12,614,0)
 ;;=3^Balance Each Foot 6s^wcdgm614^^^^^^^^0^30^51.0^52^^1
 ;;^UTILITY(U,$J,19707.12,615,0)
 ;;=3^Balance Each Foot 6s^wcdgm615^^^^^^^^0^30^52.0^53^^1
 ;;^UTILITY(U,$J,19707.12,616,0)
 ;;=3^Balance Each Foot 6s^wcdgm616^^^^^^^^0^35^53.0^54^^1
 ;;^UTILITY(U,$J,19707.12,617,0)
 ;;=3^Balance Each Foot 6s^wcdgm617^^^^^^^^0^40^54.0^55^^1
 ;;^UTILITY(U,$J,19707.12,618,0)
 ;;=3^Balance Each Foot 6s^wcdgm618^^^^^^^^0^40^55.0^56^^1
 ;;^UTILITY(U,$J,19707.12,619,0)
 ;;=3^Balance Each Foot 6s^wcdgm619^^^^^^^^0^45^56.0^57^^1
 ;;^UTILITY(U,$J,19707.12,620,0)
 ;;=3^Balance Each Foot 6s^wcdgm620^^^^^^^^0^50^57.0^58^^1
 ;;^UTILITY(U,$J,19707.12,621,0)
 ;;=3^Balance Each Foot 6s^wcdgm621^^^^^^^^0^55^58.0^59^^1
 ;;^UTILITY(U,$J,19707.12,622,0)
 ;;=3^Balance Each Foot 6s^wcdgm622^^^^^^^^0^60^59.0^60^^1
 ;;^UTILITY(U,$J,19707.12,623,0)
 ;;=3^Balance Each Foot 6s^wcdgm623^^^^^^^^0^60^60.0^61^^1
 ;;^UTILITY(U,$J,19707.12,624,0)
 ;;=3^Balance Each Foot 6s^wcdgm624^^^^^^^^0^65^61.0^62^^1
 ;;^UTILITY(U,$J,19707.12,625,0)
 ;;=3^Balance Each Foot 6s^wcdgm625^^^^^^^^0^70^62.0^63^^1
 ;;^UTILITY(U,$J,19707.12,626,0)
 ;;=3^Balance Each Foot 6s^wcdgm626^^^^^^^^0^70^63.0^64^^1
 ;;^UTILITY(U,$J,19707.12,627,0)
 ;;=3^Balance Each Foot 6s^wcdgm627^^^^^^^^0^75^64.0^65^^1
 ;;^UTILITY(U,$J,19707.12,628,0)
 ;;=3^Balance Each Foot 6s^wcdgm628^^^^^^^^0^80^65.0^66^^1
 ;;^UTILITY(U,$J,19707.12,629,0)
 ;;=3^Balance Each Foot 6s^wcdgm629^^^^^^^^0^80^66.0^67^^1
 ;;^UTILITY(U,$J,19707.12,630,0)
 ;;=3^Balance Each Foot 6s^wcdgm630^^^^^^^^0^80^67.0^68^^1
 ;;^UTILITY(U,$J,19707.12,631,0)
 ;;=3^Balance Each Foot 6s^wcdgm631^^^^^^^^0^80^68.0^69^^1
 ;;^UTILITY(U,$J,19707.12,632,0)
 ;;=3^Balance Each Foot 6s^wcdgm632^^^^^^^^0^85^69.0^70^^1
 ;;^UTILITY(U,$J,19707.12,633,0)
 ;;=3^Balance Each Foot 6s^wcdgm633^^^^^^^^0^85^70.0^71^^1
 ;;^UTILITY(U,$J,19707.12,634,0)
 ;;=3^Balance Each Foot 6s^wcdgm634^^^^^^^^0^85^71.0^72^^1
 ;;^UTILITY(U,$J,19707.12,635,0)
 ;;=3^Balance Each Foot 6s^wcdgm635^^^^^^^^0^90^72.0^73^^1
 ;;^UTILITY(U,$J,19707.12,636,0)
 ;;=3^Bear Weight on Legs^wcdgm636^^^^^^^^0^25^1.5^2^^1
 ;;^UTILITY(U,$J,19707.12,637,0)
 ;;=3^Bear Weight on Legs^wcdgm637^^^^^^^^1^35^2.0^2.5^^1
 ;;^UTILITY(U,$J,19707.12,638,0)
 ;;=3^Bear Weight on Legs^wcdgm638^^^^^^^^0^50^2.5^3^^1
 ;;^UTILITY(U,$J,19707.12,639,0)
 ;;=3^Bear Weight on Legs^wcdgm639^^^^^^^^0^65^3.0^3.5^^1
 ;;^UTILITY(U,$J,19707.12,640,0)
 ;;=3^Bear Weight on Legs^wcdgm640^^^^^^^^0^75^3.5^4^^1
 ;;^UTILITY(U,$J,19707.12,641,0)
 ;;=3^Bear Weight on Legs^wcdgm641^^^^^^^^1^80^4.0^4.5^^1
 ;;^UTILITY(U,$J,19707.12,642,0)
 ;;=3^Bear Weight on Legs^wcdgm642^^^^^^^^1^90^4.5^5^^1
 ;;^UTILITY(U,$J,19707.12,643,0)
 ;;=3^Bear Weight on Legs^wcdgm643^^^^^^^^0^100^5.0^5.5^^1
 ;;^UTILITY(U,$J,19707.12,644,0)
 ;;=3^Broad Jump^wcdgm644^^^^^^^^0^25^28.0^29^^1
 ;;^UTILITY(U,$J,19707.12,645,0)
 ;;=3^Broad Jump^wcdgm645^^^^^^^^0^40^29.0^30^^1
 ;;^UTILITY(U,$J,19707.12,646,0)
 ;;=3^Broad Jump^wcdgm646^^^^^^^^0^50^30.0^31^^1
 ;;^UTILITY(U,$J,19707.12,647,0)
 ;;=3^Broad Jump^wcdgm647^^^^^^^^0^55^31.0^32^^1
 ;;^UTILITY(U,$J,19707.12,648,0)
 ;;=3^Broad Jump^wcdgm648^^^^^^^^0^60^32.0^33^^1
 ;;^UTILITY(U,$J,19707.12,649,0)
 ;;=3^Broad Jump^wcdgm649^^^^^^^^0^65^33.0^34^^1
 ;;^UTILITY(U,$J,19707.12,650,0)
 ;;=3^Broad Jump^wcdgm650^^^^^^^^1^70^34.0^35^^1
 ;;^UTILITY(U,$J,19707.12,651,0)
 ;;=3^Broad Jump^wcdgm651^^^^^^^^1^75^35.0^36^^1
 ;;^UTILITY(U,$J,19707.12,652,0)
 ;;=3^Broad Jump^wcdgm652^^^^^^^^0^80^36.0^37^^1
 ;;^UTILITY(U,$J,19707.12,653,0)
 ;;=3^Broad Jump^wcdgm653^^^^^^^^0^85^37.0^38^^1
 ;;^UTILITY(U,$J,19707.12,654,0)
 ;;=3^Broad Jump^wcdgm654^^^^^^^^1^90^38.0^39^^1
 ;;^UTILITY(U,$J,19707.12,655,0)
 ;;=3^Broad Jump^wcdgm655^^^^^^^^1^100^39.0^40^^1
 ;;^UTILITY(U,$J,19707.12,656,0)
 ;;=3^Broad Jump^wcdgm656^^^^^^^^1^100^40.0^41^^1
 ;;^UTILITY(U,$J,19707.12,657,0)
 ;;=3^Chest-Up Arm Support^wcdgm657^^^^^^^^0^25^2.5^3^^1
 ;;^UTILITY(U,$J,19707.12,658,0)
 ;;=3^Chest-Up Arm Support^wcdgm658^^^^^^^^1^50^3.0^3.5^^1
 ;;^UTILITY(U,$J,19707.12,659,0)
 ;;=3^Chest-Up Arm Support^wcdgm659^^^^^^^^1^65^3.5^4^^1
 ;;^UTILITY(U,$J,19707.12,660,0)
 ;;=3^Chest-Up Arm Support^wcdgm660^^^^^^^^0^75^4.0^4.5^^1
 ;;^UTILITY(U,$J,19707.12,661,0)
 ;;=3^Chest-Up Arm Support^wcdgm661^^^^^^^^0^90^4.5^5^^1
 ;;^UTILITY(U,$J,19707.12,662,0)
 ;;=3^Chest-Up Arm Support^wcdgm662^^^^^^^^0^100^5.0^5.5^^1
 ;;^UTILITY(U,$J,19707.12,663,0)
 ;;=3^Chest-Up Arm Support^wcdgm663^^^^^^^^0^100^5.5^6^^1
 ;;^UTILITY(U,$J,19707.12,664,0)
 ;;=3^Equal Movements^wcdgm664^^^^^^^^0^100^.5^1^^1
 ;;^UTILITY(U,$J,19707.12,665,0)
 ;;=3^Equal Movements^wcdgm665^^^^^^^^1^100^1.0^1.5^^1
 ;;^UTILITY(U,$J,19707.12,666,0)
 ;;=3^Get to Sitting^wcdgm666^^^^^^^^0^35^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.12,667,0)
 ;;=3^Get to Sitting^wcdgm667^^^^^^^^0^50^8.5^9^^1
 ;;^UTILITY(U,$J,19707.12,668,0)
 ;;=3^Get to Sitting^wcdgm668^^^^^^^^0^75^9.0^9.5^^1
 ;;^UTILITY(U,$J,19707.12,669,0)
 ;;=3^Get to Sitting^wcdgm669^^^^^^^^0^80^9.5^10^^1
 ;;^UTILITY(U,$J,19707.12,670,0)
 ;;=3^Get to Sitting^wcdgm670^^^^^^^^0^90^10.0^10.5^^1
 ;;^UTILITY(U,$J,19707.12,671,0)
 ;;=3^Get to Sitting^wcdgm671^^^^^^^^0^100^10.5^11^^1
 ;;^UTILITY(U,$J,19707.12,672,0)
 ;;=3^Get to Sitting^wcdgm672^^^^^^^^0^100^11.0^11.5^^1
 ;;^UTILITY(U,$J,19707.12,673,0)
 ;;=3^Get to Sitting^wcdgm673^^^^^^^^1^100^11.5^12^^1
 ;;^UTILITY(U,$J,19707.12,674,0)
 ;;=3^Head up 45'^wcdgm674^^^^^^^^0^50^.5^1^^1
 ;;^UTILITY(U,$J,19707.12,675,0)
 ;;=3^Head up 45'^wcdgm675^^^^^^^^0^65^1.0^1.5^^1
 ;;^UTILITY(U,$J,19707.12,676,0)
 ;;=3^Head up 45'^wcdgm676^^^^^^^^0^75^1.5^2^^1
 ;;^UTILITY(U,$J,19707.12,677,0)
 ;;=3^Head up 45'^wcdgm677^^^^^^^^0^90^2.0^2.5^^1
 ;;^UTILITY(U,$J,19707.12,678,0)
 ;;=3^Head up 45'^wcdgm678^^^^^^^^0^100^2.5^3^^1
 ;;^UTILITY(U,$J,19707.12,679,0)
 ;;=3^Head up 45'^wcdgm679^^^^^^^^1^100^3.0^3.5^^1
 ;;^UTILITY(U,$J,19707.12,680,0)
 ;;=3^Head up 90'^wcdgm680^^^^^^^^0^25^1.0^1.5^^1
 ;;^UTILITY(U,$J,19707.12,681,0)
 ;;=3^Head up 90'^wcdgm681^^^^^^^^0^40^1.5^2^^1