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

VENKI01O.m

Go to the documentation of this file.
VENKI01O ; ; 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,3959,0)
 ;;=35^Kick Ball Forward^wcdgm754^^701^732^^^^^0^90^23.0^24^^1
 ;;^UTILITY(U,$J,19707.12,3960,0)
 ;;=35^Kick Ball Forward^wcdgm755^^732^762^^^^^0^100^24.0^25^^1
 ;;^UTILITY(U,$J,19707.12,3961,0)
 ;;=35^Kick Ball Forward^wcdgm756^^762^793^^^^^0^100^25.0^26^^1
 ;;^UTILITY(U,$J,19707.12,3962,0)
 ;;=35^Kick Ball Forward^wcdgm757^^793^823^^^^^0^100^26.0^27^^1
 ;;^UTILITY(U,$J,19707.12,3963,0)
 ;;=35^Kick Ball Forward^wcdgm758^^823^854^^^^^0^100^27.0^28^^1
 ;;^UTILITY(U,$J,19707.12,3964,0)
 ;;=35^Kick Ball Forward^wcdgm759^^854^884^^^^^1^100^28.0^29^^1
 ;;^UTILITY(U,$J,19707.12,3965,0)
 ;;=35^Lift Head^wcdgm760^^15^30^^^^^0^100^.5^1^^1
 ;;^UTILITY(U,$J,19707.12,3966,0)
 ;;=35^Lift Head^wcdgm761^^30^45^^^^^0^100^1.0^1.5^^1
 ;;^UTILITY(U,$J,19707.12,3967,0)
 ;;=35^Lift Head^wcdgm762^^45^61^^^^^0^100^1.5^2^^1
 ;;^UTILITY(U,$J,19707.12,3968,0)
 ;;=35^Lift Head^wcdgm763^^61^76^^^^^0^100^2.0^2.5^^1
 ;;^UTILITY(U,$J,19707.12,3969,0)
 ;;=35^Pull to Sit-No Head Lag^wcdgm764^^91^106^^^^^0^30^3.0^3.5^^1
 ;;^UTILITY(U,$J,19707.12,3970,0)
 ;;=35^Pull to Sit-No Head Lag^wcdgm765^^106^122^^^^^0^50^3.5^4^^1
 ;;^UTILITY(U,$J,19707.12,3971,0)
 ;;=35^Pull to Sit-No Head Lag^wcdgm766^^122^137^^^^^0^70^4.0^4.5^^1
 ;;^UTILITY(U,$J,19707.12,3972,0)
 ;;=35^Pull to Sit-No Head Lag^wcdgm767^^137^152^^^^^0^80^4.5^5^^1
 ;;^UTILITY(U,$J,19707.12,3973,0)
 ;;=35^Pull to Sit-No Head Lag^wcdgm768^^152^167^^^^^0^80^5.0^5.5^^1
 ;;^UTILITY(U,$J,19707.12,3974,0)
 ;;=35^Pull to Sit-No Head Lag^wcdgm769^^167^183^^^^^0^85^5.5^6^^1
 ;;^UTILITY(U,$J,19707.12,3975,0)
 ;;=35^Pull to Sit-No Head Lag^wcdgm770^^183^198^^^^^0^90^6.0^6.5^^1
 ;;^UTILITY(U,$J,19707.12,3976,0)
 ;;=35^Pull to Sit-No Head Lag^wcdgm771^^198^213^^^^^0^100^6.5^7^^1
 ;;^UTILITY(U,$J,19707.12,3977,0)
 ;;=35^Pull to Stand^wcdgm772^^244^259^^^^^0^25^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.12,3978,0)
 ;;=35^Pull to Stand^wcdgm773^^259^274^^^^^0^50^8.5^9^^1
 ;;^UTILITY(U,$J,19707.12,3979,0)
 ;;=35^Pull to Stand^wcdgm774^^274^289^^^^^0^70^9.0^9.5^^1
 ;;^UTILITY(U,$J,19707.12,3980,0)
 ;;=35^Pull to Stand^wcdgm775^^289^305^^^^^0^90^9.5^10^^1
 ;;^UTILITY(U,$J,19707.12,3981,0)
 ;;=35^Pull to Stand^wcdgm776^^305^320^^^^^0^100^10.0^10.5^^1
 ;;^UTILITY(U,$J,19707.12,3982,0)
 ;;=35^Roll Over^wcdgm777^^61^76^^^^^0^25^2.0^2.5^^1
 ;;^UTILITY(U,$J,19707.12,3983,0)
 ;;=35^Roll Over^wcdgm778^^76^91^^^^^1^35^2.5^3^^1
 ;;^UTILITY(U,$J,19707.12,3984,0)
 ;;=35^Roll Over^wcdgm779^^91^106^^^^^0^50^3.0^3.5^^1
 ;;^UTILITY(U,$J,19707.12,3985,0)
 ;;=35^Roll Over^wcdgm780^^106^122^^^^^0^60^3.5^4^^1
 ;;^UTILITY(U,$J,19707.12,3986,0)
 ;;=35^Roll Over^wcdgm781^^122^137^^^^^0^70^4.0^4.5^^1
 ;;^UTILITY(U,$J,19707.12,3987,0)
 ;;=35^Roll Over^wcdgm782^^137^152^^^^^0^80^4.5^5^^1
 ;;^UTILITY(U,$J,19707.12,3988,0)
 ;;=35^Roll Over^wcdgm783^^152^167^^^^^0^85^5.0^5.5^^1
 ;;^UTILITY(U,$J,19707.12,3989,0)
 ;;=35^Roll Over^wcdgm784^^167^183^^^^^0^90^5.5^6^^1
 ;;^UTILITY(U,$J,19707.12,3990,0)
 ;;=35^Roll Over^wcdgm785^^183^198^^^^^0^100^6.0^6.5^^1
 ;;^UTILITY(U,$J,19707.12,3991,0)
 ;;=35^Runs^wcdgm786^^411^427^^^^^0^25^13.5^14^^1
 ;;^UTILITY(U,$J,19707.12,3992,0)
 ;;=35^Runs^wcdgm787^^427^442^^^^^0^30^14.0^14.5^^1
 ;;^UTILITY(U,$J,19707.12,3993,0)
 ;;=35^Runs^wcdgm788^^442^457^^^^^0^40^14.5^15^^1
 ;;^UTILITY(U,$J,19707.12,3994,0)
 ;;=35^Runs^wcdgm789^^457^472^^^^^0^45^15.0^15.5^^1
 ;;^UTILITY(U,$J,19707.12,3995,0)
 ;;=35^Runs^wcdgm790^^472^488^^^^^0^50^15.5^16^^1
 ;;^UTILITY(U,$J,19707.12,3996,0)
 ;;=35^Runs^wcdgm791^^488^503^^^^^0^55^16.0^16.5^^1
 ;;^UTILITY(U,$J,19707.12,3997,0)
 ;;=35^Runs^wcdgm792^^503^518^^^^^0^60^16.5^17^^1
 ;;^UTILITY(U,$J,19707.12,3998,0)
 ;;=35^Runs^wcdgm793^^518^533^^^^^0^65^17.0^17.5^^1
 ;;^UTILITY(U,$J,19707.12,3999,0)
 ;;=35^Runs^wcdgm794^^533^549^^^^^0^70^17.5^18^^1
 ;;^UTILITY(U,$J,19707.12,4000,0)
 ;;=35^Runs^wcdgm795^^549^564^^^^^0^75^18.0^18.5^^1
 ;;^UTILITY(U,$J,19707.12,4001,0)
 ;;=35^Runs^wcdgm796^^579^610^^^^^0^80^19.0^20^^1
 ;;^UTILITY(U,$J,19707.12,4002,0)
 ;;=35^Runs^wcdgm797^^610^640^^^^^0^90^20.0^21^^1
 ;;^UTILITY(U,$J,19707.12,4003,0)
 ;;=35^Runs^wcdgm798^^640^671^^^^^1^100^21.0^22^^1
 ;;^UTILITY(U,$J,19707.12,4004,0)
 ;;=35^Sit Head Steady^wcdgm799^^30^45^^^^^0^25^1.0^1.5^^1
 ;;^UTILITY(U,$J,19707.12,4005,0)
 ;;=35^Sit Head Steady^wcdgm800^^45^61^^^^^1^35^1.5^2^^1
 ;;^UTILITY(U,$J,19707.12,4006,0)
 ;;=35^Sit Head Steady^wcdgm801^^61^76^^^^^0^65^2.0^2.5^^1
 ;;^UTILITY(U,$J,19707.12,4007,0)
 ;;=35^Sit Head Steady^wcdgm802^^76^91^^^^^1^75^2.5^3^^1
 ;;^UTILITY(U,$J,19707.12,4008,0)
 ;;=35^Sit Head Steady^wcdgm803^^91^106^^^^^0^90^3.0^3.5^^1
 ;;^UTILITY(U,$J,19707.12,4009,0)
 ;;=35^Sit Head Steady^wcdgm804^^106^122^^^^^0^100^3.5^4^^1
 ;;^UTILITY(U,$J,19707.12,4010,0)
 ;;=35^Sit Head Steady^wcdgm805^^122^137^^^^^0^100^4.0^4.5^^1
 ;;^UTILITY(U,$J,19707.12,4011,0)
 ;;=35^Sit Head Steady^wcdgm806^^137^152^^^^^0^100^4.5^5^^1
 ;;^UTILITY(U,$J,19707.12,4012,0)
 ;;=35^Sit-No Support^wcdgm807^^167^183^^^^^0^25^5.5^6^^1
 ;;^UTILITY(U,$J,19707.12,4013,0)
 ;;=35^Sit-No Support^wcdgm808^^183^198^^^^^0^60^6.0^6.5^^1
 ;;^UTILITY(U,$J,19707.12,4014,0)
 ;;=35^Sit-No Support^wcdgm809^^198^213^^^^^0^80^6.5^7^^1
 ;;^UTILITY(U,$J,19707.12,4015,0)
 ;;=35^Sit-No Support^wcdgm810^^213^228^^^^^0^100^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.12,4016,0)
 ;;=35^Sit-No Support^wcdgm811^^228^244^^^^^0^100^7.5^8^^1
 ;;^UTILITY(U,$J,19707.12,4017,0)
 ;;=35^Sit-No Support^wcdgm812^^244^259^^^^^0^100^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.12,4018,0)
 ;;=35^Sit-No Support^wcdgm813^^259^274^^^^^0^100^8.5^9^^1
 ;;^UTILITY(U,$J,19707.12,4019,0)
 ;;=35^Stand 2 Seconds^wcdgm814^^289^305^^^^^0^25^9.5^10^^1
 ;;^UTILITY(U,$J,19707.12,4020,0)
 ;;=35^Stand 2 Seconds^wcdgm815^^305^320^^^^^0^40^10.0^10.5^^1
 ;;^UTILITY(U,$J,19707.12,4021,0)
 ;;=35^Stand 2 Seconds^wcdgm816^^320^335^^^^^0^60^10.5^11^^1
 ;;^UTILITY(U,$J,19707.12,4022,0)
 ;;=35^Stand 2 Seconds^wcdgm817^^335^350^^^^^0^80^11.0^11.5^^1
 ;;^UTILITY(U,$J,19707.12,4023,0)
 ;;=35^Stand 2 Seconds^wcdgm818^^350^366^^^^^0^90^11.5^12^^1
 ;;^UTILITY(U,$J,19707.12,4024,0)
 ;;=35^Stand 2 Seconds^wcdgm819^^366^381^^^^^0^100^12.0^12.5^^1
 ;;^UTILITY(U,$J,19707.12,4025,0)
 ;;=35^Stand 2 Seconds^wcdgm820^^381^396^^^^^1^100^12.5^13^^1
 ;;^UTILITY(U,$J,19707.12,4026,0)
 ;;=35^Stand 2 Seconds^wcdgm821^^396^411^^^^^1^100^13.0^13.5^^1
 ;;^UTILITY(U,$J,19707.12,4027,0)
 ;;=35^Stand 2 Seconds^wcdgm822^^411^427^^^^^1^100^13.5^14^^1
 ;;^UTILITY(U,$J,19707.12,4028,0)
 ;;=35^Stand Alone^wcdgm823^^320^335^^^^^0^25^10.5^11^^1
 ;;^UTILITY(U,$J,19707.12,4029,0)
 ;;=35^Stand Alone^wcdgm824^^335^350^^^^^0^40^11.0^11.5^^1
 ;;^UTILITY(U,$J,19707.12,4030,0)
 ;;=35^Stand Alone^wcdgm825^^350^366^^^^^0^50^11.5^12^^1
 ;;^UTILITY(U,$J,19707.12,4031,0)
 ;;=35^Stand Alone^wcdgm826^^366^381^^^^^0^60^12.0^12.5^^1
 ;;^UTILITY(U,$J,19707.12,4032,0)
 ;;=35^Stand Alone^wcdgm827^^381^396^^^^^0^75^12.5^13^^1
 ;;^UTILITY(U,$J,19707.12,4033,0)
 ;;=35^Stand Alone^wcdgm828^^396^411^^^^^0^85^13.0^13.5^^1
 ;;^UTILITY(U,$J,19707.12,4034,0)
 ;;=35^Stand Alone^wcdgm829^^411^427^^^^^0^90^13.5^14^^1
 ;;^UTILITY(U,$J,19707.12,4035,0)
 ;;=35^Stand Alone^wcdgm830^^427^442^^^^^1^100^14.0^14.5^^1
 ;;^UTILITY(U,$J,19707.12,4036,0)
 ;;=35^Stand Alone^wcdgm831^^442^457^^^^^1^100^14.5^15^^1
 ;;^UTILITY(U,$J,19707.12,4037,0)
 ;;=35^Stand Holding On^wcdgm832^^198^213^^^^^0^25^6.5^7^^1
 ;;^UTILITY(U,$J,19707.12,4038,0)
 ;;=35^Stand Holding On^wcdgm833^^213^228^^^^^0^50^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.12,4039,0)
 ;;=35^Stand Holding On^wcdgm834^^228^244^^^^^0^60^7.5^8^^1
 ;;^UTILITY(U,$J,19707.12,4040,0)
 ;;=35^Stand Holding On^wcdgm835^^244^259^^^^^0^75^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.12,4041,0)
 ;;=35^Stand Holding On^wcdgm836^^259^274^^^^^0^90^8.5^9^^1