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

VENKI00E.m

Go to the documentation of this file.
VENKI00E ; ; 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,773,0)
 ;;=3^Pull to Stand^wcdgm773^^^^^^^^0^50^8.5^9^^1
 ;;^UTILITY(U,$J,19707.12,774,0)
 ;;=3^Pull to Stand^wcdgm774^^^^^^^^0^70^9.0^9.5^^1
 ;;^UTILITY(U,$J,19707.12,775,0)
 ;;=3^Pull to Stand^wcdgm775^^^^^^^^0^90^9.5^10^^1
 ;;^UTILITY(U,$J,19707.12,776,0)
 ;;=3^Pull to Stand^wcdgm776^^^^^^^^0^100^10.0^10.5^^1
 ;;^UTILITY(U,$J,19707.12,777,0)
 ;;=3^Roll Over^wcdgm777^^^^^^^^0^25^2.0^2.5^^1
 ;;^UTILITY(U,$J,19707.12,778,0)
 ;;=3^Roll Over^wcdgm778^^^^^^^^1^35^2.5^3^^1
 ;;^UTILITY(U,$J,19707.12,779,0)
 ;;=3^Roll Over^wcdgm779^^^^^^^^0^50^3.0^3.5^^1
 ;;^UTILITY(U,$J,19707.12,780,0)
 ;;=3^Roll Over^wcdgm780^^^^^^^^0^60^3.5^4^^1
 ;;^UTILITY(U,$J,19707.12,781,0)
 ;;=3^Roll Over^wcdgm781^^^^^^^^0^70^4.0^4.5^^1
 ;;^UTILITY(U,$J,19707.12,782,0)
 ;;=3^Roll Over^wcdgm782^^^^^^^^0^80^4.5^5^^1
 ;;^UTILITY(U,$J,19707.12,783,0)
 ;;=3^Roll Over^wcdgm783^^^^^^^^0^85^5.0^5.5^^1
 ;;^UTILITY(U,$J,19707.12,784,0)
 ;;=3^Roll Over^wcdgm784^^^^^^^^0^90^5.5^6^^1
 ;;^UTILITY(U,$J,19707.12,785,0)
 ;;=3^Roll Over^wcdgm785^^^^^^^^0^100^6.0^6.5^^1
 ;;^UTILITY(U,$J,19707.12,786,0)
 ;;=3^Runs^wcdgm786^^^^^^^^0^25^13.5^14^^1
 ;;^UTILITY(U,$J,19707.12,787,0)
 ;;=3^Runs^wcdgm787^^^^^^^^0^30^14.0^14.5^^1
 ;;^UTILITY(U,$J,19707.12,788,0)
 ;;=3^Runs^wcdgm788^^^^^^^^0^40^14.5^15^^1
 ;;^UTILITY(U,$J,19707.12,789,0)
 ;;=3^Runs^wcdgm789^^^^^^^^0^45^15.0^15.5^^1
 ;;^UTILITY(U,$J,19707.12,790,0)
 ;;=3^Runs^wcdgm790^^^^^^^^0^50^15.5^16^^1
 ;;^UTILITY(U,$J,19707.12,791,0)
 ;;=3^Runs^wcdgm791^^^^^^^^0^55^16.0^16.5^^1
 ;;^UTILITY(U,$J,19707.12,792,0)
 ;;=3^Runs^wcdgm792^^^^^^^^0^60^16.5^17^^1
 ;;^UTILITY(U,$J,19707.12,793,0)
 ;;=3^Runs^wcdgm793^^^^^^^^0^65^17.0^17.5^^1
 ;;^UTILITY(U,$J,19707.12,794,0)
 ;;=3^Runs^wcdgm794^^^^^^^^0^70^17.5^18^^1
 ;;^UTILITY(U,$J,19707.12,795,0)
 ;;=3^Runs^wcdgm795^^^^^^^^0^75^18.0^18.5^^1
 ;;^UTILITY(U,$J,19707.12,796,0)
 ;;=3^Runs^wcdgm796^^^^^^^^0^80^19.0^20^^1
 ;;^UTILITY(U,$J,19707.12,797,0)
 ;;=3^Runs^wcdgm797^^^^^^^^0^90^20.0^21^^1
 ;;^UTILITY(U,$J,19707.12,798,0)
 ;;=3^Runs^wcdgm798^^^^^^^^1^100^21.0^22^^1
 ;;^UTILITY(U,$J,19707.12,799,0)
 ;;=3^Sit Head Steady^wcdgm799^^^^^^^^0^25^1.0^1.5^^1
 ;;^UTILITY(U,$J,19707.12,800,0)
 ;;=3^Sit Head Steady^wcdgm800^^^^^^^^1^35^1.5^2^^1
 ;;^UTILITY(U,$J,19707.12,801,0)
 ;;=3^Sit Head Steady^wcdgm801^^^^^^^^0^65^2.0^2.5^^1
 ;;^UTILITY(U,$J,19707.12,802,0)
 ;;=3^Sit Head Steady^wcdgm802^^^^^^^^1^75^2.5^3^^1
 ;;^UTILITY(U,$J,19707.12,803,0)
 ;;=3^Sit Head Steady^wcdgm803^^^^^^^^0^90^3.0^3.5^^1
 ;;^UTILITY(U,$J,19707.12,804,0)
 ;;=3^Sit Head Steady^wcdgm804^^^^^^^^0^100^3.5^4^^1
 ;;^UTILITY(U,$J,19707.12,805,0)
 ;;=3^Sit Head Steady^wcdgm805^^^^^^^^0^100^4.0^4.5^^1
 ;;^UTILITY(U,$J,19707.12,806,0)
 ;;=3^Sit Head Steady^wcdgm806^^^^^^^^0^100^4.5^5^^1
 ;;^UTILITY(U,$J,19707.12,807,0)
 ;;=3^Sit-No Support^wcdgm807^^^^^^^^0^25^5.5^6^^1
 ;;^UTILITY(U,$J,19707.12,808,0)
 ;;=3^Sit-No Support^wcdgm808^^^^^^^^0^60^6.0^6.5^^1
 ;;^UTILITY(U,$J,19707.12,809,0)
 ;;=3^Sit-No Support^wcdgm809^^^^^^^^0^80^6.5^7^^1
 ;;^UTILITY(U,$J,19707.12,810,0)
 ;;=3^Sit-No Support^wcdgm810^^^^^^^^0^100^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.12,811,0)
 ;;=3^Sit-No Support^wcdgm811^^^^^^^^0^100^7.5^8^^1
 ;;^UTILITY(U,$J,19707.12,812,0)
 ;;=3^Sit-No Support^wcdgm812^^^^^^^^0^100^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.12,813,0)
 ;;=3^Sit-No Support^wcdgm813^^^^^^^^0^100^8.5^9^^1
 ;;^UTILITY(U,$J,19707.12,814,0)
 ;;=3^Stand 2 Seconds^wcdgm814^^^^^^^^0^25^9.5^10^^1
 ;;^UTILITY(U,$J,19707.12,815,0)
 ;;=3^Stand 2 Seconds^wcdgm815^^^^^^^^0^40^10.0^10.5^^1
 ;;^UTILITY(U,$J,19707.12,816,0)
 ;;=3^Stand 2 Seconds^wcdgm816^^^^^^^^0^60^10.5^11^^1
 ;;^UTILITY(U,$J,19707.12,817,0)
 ;;=3^Stand 2 Seconds^wcdgm817^^^^^^^^0^80^11.0^11.5^^1
 ;;^UTILITY(U,$J,19707.12,818,0)
 ;;=3^Stand 2 Seconds^wcdgm818^^^^^^^^0^90^11.5^12^^1
 ;;^UTILITY(U,$J,19707.12,819,0)
 ;;=3^Stand 2 Seconds^wcdgm819^^^^^^^^0^100^12.0^12.5^^1
 ;;^UTILITY(U,$J,19707.12,820,0)
 ;;=3^Stand 2 Seconds^wcdgm820^^^^^^^^1^100^12.5^13^^1
 ;;^UTILITY(U,$J,19707.12,821,0)
 ;;=3^Stand 2 Seconds^wcdgm821^^^^^^^^1^100^13.0^13.5^^1
 ;;^UTILITY(U,$J,19707.12,822,0)
 ;;=3^Stand 2 Seconds^wcdgm822^^^^^^^^1^100^13.5^14^^1
 ;;^UTILITY(U,$J,19707.12,823,0)
 ;;=3^Stand Alone^wcdgm823^^^^^^^^0^25^10.5^11^^1
 ;;^UTILITY(U,$J,19707.12,824,0)
 ;;=3^Stand Alone^wcdgm824^^^^^^^^0^40^11.0^11.5^^1
 ;;^UTILITY(U,$J,19707.12,825,0)
 ;;=3^Stand Alone^wcdgm825^^^^^^^^0^50^11.5^12^^1
 ;;^UTILITY(U,$J,19707.12,826,0)
 ;;=3^Stand Alone^wcdgm826^^^^^^^^0^60^12.0^12.5^^1
 ;;^UTILITY(U,$J,19707.12,827,0)
 ;;=3^Stand Alone^wcdgm827^^^^^^^^0^75^12.5^13^^1
 ;;^UTILITY(U,$J,19707.12,828,0)
 ;;=3^Stand Alone^wcdgm828^^^^^^^^0^85^13.0^13.5^^1
 ;;^UTILITY(U,$J,19707.12,829,0)
 ;;=3^Stand Alone^wcdgm829^^^^^^^^0^90^13.5^14^^1
 ;;^UTILITY(U,$J,19707.12,830,0)
 ;;=3^Stand Alone^wcdgm830^^^^^^^^1^100^14.0^14.5^^1
 ;;^UTILITY(U,$J,19707.12,831,0)
 ;;=3^Stand Alone^wcdgm831^^^^^^^^1^100^14.5^15^^1
 ;;^UTILITY(U,$J,19707.12,832,0)
 ;;=3^Stand Holding On^wcdgm832^^^^^^^^0^25^6.5^7^^1
 ;;^UTILITY(U,$J,19707.12,833,0)
 ;;=3^Stand Holding On^wcdgm833^^^^^^^^0^50^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.12,834,0)
 ;;=3^Stand Holding On^wcdgm834^^^^^^^^0^60^7.5^8^^1
 ;;^UTILITY(U,$J,19707.12,835,0)
 ;;=3^Stand Holding On^wcdgm835^^^^^^^^0^75^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.12,836,0)
 ;;=3^Stand Holding On^wcdgm836^^^^^^^^0^90^8.5^9^^1
 ;;^UTILITY(U,$J,19707.12,837,0)
 ;;=3^Stand Holding On^wcdgm837^^^^^^^^0^100^9.0^9.5^^1
 ;;^UTILITY(U,$J,19707.12,838,0)
 ;;=3^Stand Holding On^wcdgm838^^^^^^^^0^100^9.5^10^^1
 ;;^UTILITY(U,$J,19707.12,839,0)
 ;;=3^Stoop & Recover^wcdgm839^^^^^^^^0^25^11.0^11.5^^1
 ;;^UTILITY(U,$J,19707.12,840,0)
 ;;=3^Stoop & Recover^wcdgm840^^^^^^^^0^40^11.5^12^^1
 ;;^UTILITY(U,$J,19707.12,841,0)
 ;;=3^Stoop & Recover^wcdgm841^^^^^^^^0^50^12.0^12.5^^1
 ;;^UTILITY(U,$J,19707.12,842,0)
 ;;=3^Stoop & Recover^wcdgm842^^^^^^^^0^50^12.5^13^^1
 ;;^UTILITY(U,$J,19707.12,843,0)
 ;;=3^Stoop & Recover^wcdgm843^^^^^^^^0^60^13.0^13.5^^1
 ;;^UTILITY(U,$J,19707.12,844,0)
 ;;=3^Stoop & Recover^wcdgm844^^^^^^^^1^75^13.5^14^^1
 ;;^UTILITY(U,$J,19707.12,845,0)
 ;;=3^Stoop & Recover^wcdgm845^^^^^^^^0^85^14.0^14.5^^1
 ;;^UTILITY(U,$J,19707.12,846,0)
 ;;=3^Stoop & Recover^wcdgm846^^^^^^^^0^90^14.5^15^^1
 ;;^UTILITY(U,$J,19707.12,847,0)
 ;;=3^Stoop & Recover^wcdgm847^^^^^^^^1^100^15.0^15.5^^1
 ;;^UTILITY(U,$J,19707.12,848,0)
 ;;=3^Throw Ball Overhand^wcdgm848^^^^^^^^0^25^17.0^17.5^^1
 ;;^UTILITY(U,$J,19707.12,849,0)
 ;;=3^Throw Ball Overhand^wcdgm849^^^^^^^^0^30^17.5^18^^1
 ;;^UTILITY(U,$J,19707.12,850,0)
 ;;=3^Throw Ball Overhand^wcdgm850^^^^^^^^0^40^18.0^18.5^^1
 ;;^UTILITY(U,$J,19707.12,851,0)
 ;;=3^Throw Ball Overhand^wcdgm851^^^^^^^^0^45^19.0^20^^1
 ;;^UTILITY(U,$J,19707.12,852,0)
 ;;=3^Throw Ball Overhand^wcdgm852^^^^^^^^0^50^20.0^21^^1
 ;;^UTILITY(U,$J,19707.12,853,0)
 ;;=3^Throw Ball Overhand^wcdgm853^^^^^^^^0^60^21.0^22^^1
 ;;^UTILITY(U,$J,19707.12,854,0)
 ;;=3^Throw Ball Overhand^wcdgm854^^^^^^^^0^65^22.0^23^^1
 ;;^UTILITY(U,$J,19707.12,855,0)
 ;;=3^Throw Ball Overhand^wcdgm855^^^^^^^^0^70^23.0^24^^1
 ;;^UTILITY(U,$J,19707.12,856,0)
 ;;=3^Throw Ball Overhand^wcdgm856^^^^^^^^0^75^24.0^25^^1
 ;;^UTILITY(U,$J,19707.12,857,0)
 ;;=3^Throw Ball Overhand^wcdgm857^^^^^^^^0^80^25.0^26^^1
 ;;^UTILITY(U,$J,19707.12,858,0)
 ;;=3^Throw Ball Overhand^wcdgm858^^^^^^^^0^80^26.0^27^^1
 ;;^UTILITY(U,$J,19707.12,859,0)
 ;;=3^Throw Ball Overhand^wcdgm859^^^^^^^^0^80^27.0^28^^1
 ;;^UTILITY(U,$J,19707.12,860,0)
 ;;=3^Throw Ball Overhand^wcdgm860^^^^^^^^0^80^28.0^29^^1
 ;;^UTILITY(U,$J,19707.12,861,0)
 ;;=3^Throw Ball Overhand^wcdgm861^^^^^^^^0^80^29.0^30^^1
 ;;^UTILITY(U,$J,19707.12,862,0)
 ;;=3^Throw Ball Overhand^wcdgm862^^^^^^^^0^80^30.0^31^^1