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

VENKI01K.m

Go to the documentation of this file.
VENKI01K ; ; 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,3646,0)
 ;;=34^Tower of 4 Cubes^wcdfm441^^533^549^^^^^0^40^17.5^18^^1
 ;;^UTILITY(U,$J,19707.12,3647,0)
 ;;=34^Tower of 4 Cubes^wcdfm442^^549^564^^^^^0^45^18.0^18.5^^1
 ;;^UTILITY(U,$J,19707.12,3648,0)
 ;;=34^Tower of 4 Cubes^wcdfm443^^579^610^^^^^0^50^19.0^20^^1
 ;;^UTILITY(U,$J,19707.12,3649,0)
 ;;=34^Tower of 4 Cubes^wcdfm444^^610^640^^^^^0^60^20.0^21^^1
 ;;^UTILITY(U,$J,19707.12,3650,0)
 ;;=34^Tower of 4 Cubes^wcdfm445^^640^671^^^^^0^70^21.0^22^^1
 ;;^UTILITY(U,$J,19707.12,3651,0)
 ;;=34^Tower of 4 Cubes^wcdfm446^^671^701^^^^^0^75^22.0^23^^1
 ;;^UTILITY(U,$J,19707.12,3652,0)
 ;;=34^Tower of 4 Cubes^wcdfm447^^701^732^^^^^0^85^23.0^24^^1
 ;;^UTILITY(U,$J,19707.12,3653,0)
 ;;=34^Tower of 4 Cubes^wcdfm448^^732^762^^^^^0^90^24.0^25^^1
 ;;^UTILITY(U,$J,19707.12,3654,0)
 ;;=34^Tower of 4 Cubes^wcdfm449^^762^793^^^^^0^100^25.0^26^^1
 ;;^UTILITY(U,$J,19707.12,3655,0)
 ;;=34^Tower of 4 Cubes^wcdfm450^^793^823^^^^^0^100^26.0^27^^1
 ;;^UTILITY(U,$J,19707.12,3656,0)
 ;;=34^Tower of 4 Cubes^wcdfm451^^823^854^^^^^0^100^27.0^28^^1
 ;;^UTILITY(U,$J,19707.12,3657,0)
 ;;=34^Tower of 4 Cubes^wcdfm452^^854^884^^^^^0^100^28.0^29^^1
 ;;^UTILITY(U,$J,19707.12,3658,0)
 ;;=34^Tower of 4 Cubes^wcdfm453^^884^915^^^^^0^100^29.0^30^^1
 ;;^UTILITY(U,$J,19707.12,3659,0)
 ;;=34^Tower of 4 Cubes^wcdfm454^^915^945^^^^^0^100^30.0^31^^1
 ;;^UTILITY(U,$J,19707.12,3660,0)
 ;;=34^Tower of 4 Cubes^wcdfm455^^945^976^^^^^1^100^31.0^32^^1
 ;;^UTILITY(U,$J,19707.12,3661,0)
 ;;=34^Tower of 6 Cubes^wcdfm456^^579^610^^^^^0^25^19.0^20^^1
 ;;^UTILITY(U,$J,19707.12,3662,0)
 ;;=34^Tower of 6 Cubes^wcdfm457^^610^640^^^^^0^30^20.0^21^^1
 ;;^UTILITY(U,$J,19707.12,3663,0)
 ;;=34^Tower of 6 Cubes^wcdfm458^^640^671^^^^^0^40^21.0^22^^1
 ;;^UTILITY(U,$J,19707.12,3664,0)
 ;;=34^Tower of 6 Cubes^wcdfm459^^671^701^^^^^0^50^22.0^23^^1
 ;;^UTILITY(U,$J,19707.12,3665,0)
 ;;=34^Tower of 6 Cubes^wcdfm460^^701^732^^^^^0^65^23.0^24^^1
 ;;^UTILITY(U,$J,19707.12,3666,0)
 ;;=34^Tower of 6 Cubes^wcdfm461^^732^762^^^^^0^75^24.0^25^^1
 ;;^UTILITY(U,$J,19707.12,3667,0)
 ;;=34^Tower of 6 Cubes^wcdfm462^^762^793^^^^^0^80^25.0^26^^1
 ;;^UTILITY(U,$J,19707.12,3668,0)
 ;;=34^Tower of 6 Cubes^wcdfm463^^793^823^^^^^0^80^26.0^27^^1
 ;;^UTILITY(U,$J,19707.12,3669,0)
 ;;=34^Tower of 6 Cubes^wcdfm464^^823^854^^^^^0^80^27.0^28^^1
 ;;^UTILITY(U,$J,19707.12,3670,0)
 ;;=34^Tower of 6 Cubes^wcdfm465^^854^884^^^^^0^85^28.0^29^^1
 ;;^UTILITY(U,$J,19707.12,3671,0)
 ;;=34^Tower of 6 Cubes^wcdfm466^^884^915^^^^^0^85^29.0^30^^1
 ;;^UTILITY(U,$J,19707.12,3672,0)
 ;;=34^Tower of 6 Cubes^wcdfm467^^915^945^^^^^0^85^30.0^31^^1
 ;;^UTILITY(U,$J,19707.12,3673,0)
 ;;=34^Tower of 6 Cubes^wcdfm468^^945^976^^^^^0^90^31.0^32^^1
 ;;^UTILITY(U,$J,19707.12,3674,0)
 ;;=34^Tower of 6 Cubes^wcdfm469^^976^1006^^^^^0^100^32.0^33^^1
 ;;^UTILITY(U,$J,19707.12,3675,0)
 ;;=34^Tower of 6 Cubes^wcdfm470^^1006^1037^^^^^0^100^33.0^34^^1
 ;;^UTILITY(U,$J,19707.12,3676,0)
 ;;=34^Tower of 6 Cubes^wcdfm471^^1037^1067^^^^^0^100^34.0^35^^1
 ;;^UTILITY(U,$J,19707.12,3677,0)
 ;;=34^Tower of 6 Cubes^wcdfm472^^1067^1098^^^^^0^100^35.0^36^^1
 ;;^UTILITY(U,$J,19707.12,3678,0)
 ;;=34^Tower of 6 Cubes^wcdfm473^^1098^1128^^^^^1^100^36.0^37^^1
 ;;^UTILITY(U,$J,19707.12,3679,0)
 ;;=34^Tower of 6 Cubes^wcdfm474^^1128^1159^^^^^1^100^37.0^38^^1
 ;;^UTILITY(U,$J,19707.12,3680,0)
 ;;=34^Tower of 6 Cubes^wcdfm475^^1159^1189^^^^^1^100^38.0^39^^1
 ;;^UTILITY(U,$J,19707.12,3681,0)
 ;;=34^Tower of 8 Cubes^wcdfm476^^732^762^^^^^0^25^24.0^25^^1
 ;;^UTILITY(U,$J,19707.12,3682,0)
 ;;=34^Tower of 8 Cubes^wcdfm477^^762^793^^^^^0^30^25.0^26^^1
 ;;^UTILITY(U,$J,19707.12,3683,0)
 ;;=34^Tower of 8 Cubes^wcdfm478^^793^823^^^^^0^40^26.0^27^^1
 ;;^UTILITY(U,$J,19707.12,3684,0)
 ;;=34^Tower of 8 Cubes^wcdfm479^^823^854^^^^^0^50^27.0^28^^1
 ;;^UTILITY(U,$J,19707.12,3685,0)
 ;;=34^Tower of 8 Cubes^wcdfm480^^854^884^^^^^0^55^28.0^29^^1
 ;;^UTILITY(U,$J,19707.12,3686,0)
 ;;=34^Tower of 8 Cubes^wcdfm481^^884^915^^^^^0^60^29.0^30^^1
 ;;^UTILITY(U,$J,19707.12,3687,0)
 ;;=34^Tower of 8 Cubes^wcdfm482^^915^945^^^^^0^60^30.0^31^^1
 ;;^UTILITY(U,$J,19707.12,3688,0)
 ;;=34^Tower of 8 Cubes^wcdfm483^^945^976^^^^^0^65^31.0^32^^1
 ;;^UTILITY(U,$J,19707.12,3689,0)
 ;;=34^Tower of 8 Cubes^wcdfm484^^976^1006^^^^^0^70^32.0^33^^1
 ;;^UTILITY(U,$J,19707.12,3690,0)
 ;;=34^Tower of 8 Cubes^wcdfm485^^1006^1037^^^^^0^75^33.0^34^^1
 ;;^UTILITY(U,$J,19707.12,3691,0)
 ;;=34^Tower of 8 Cubes^wcdfm486^^1037^1067^^^^^0^80^34.0^35^^1
 ;;^UTILITY(U,$J,19707.12,3692,0)
 ;;=34^Tower of 8 Cubes^wcdfm487^^1067^1098^^^^^0^80^35.0^36^^1
 ;;^UTILITY(U,$J,19707.12,3693,0)
 ;;=34^Tower of 8 Cubes^wcdfm488^^1098^1128^^^^^0^80^36.0^37^^1
 ;;^UTILITY(U,$J,19707.12,3694,0)
 ;;=34^Tower of 8 Cubes^wcdfm489^^1128^1159^^^^^1^80^37.0^38^^1
 ;;^UTILITY(U,$J,19707.12,3695,0)
 ;;=34^Tower of 8 Cubes^wcdfm490^^1159^1189^^^^^1^85^38.0^39^^1
 ;;^UTILITY(U,$J,19707.12,3696,0)
 ;;=34^Tower of 8 Cubes^wcdfm491^^1189^1220^^^^^0^85^39.0^40^^1
 ;;^UTILITY(U,$J,19707.12,3697,0)
 ;;=34^Tower of 8 Cubes^wcdfm492^^1220^1250^^^^^1^85^40.0^41^^1
 ;;^UTILITY(U,$J,19707.12,3698,0)
 ;;=34^Tower of 8 Cubes^wcdfm493^^1250^1281^^^^^1^90^41.0^42^^1
 ;;^UTILITY(U,$J,19707.12,3699,0)
 ;;=34^Tower of 8 Cubes^wcdfm494^^1281^1311^^^^^1^100^42.0^43^^1
 ;;^UTILITY(U,$J,19707.12,3700,0)
 ;;=34^Tower of 8 Cubes^wcdfm495^^1311^1342^^^^^1^100^43.0^44^^1
 ;;^UTILITY(U,$J,19707.12,3701,0)
 ;;=35^Balance Each Foot 1s^wcdgm496^^823^854^^^^^0^25^27.0^28^^1
 ;;^UTILITY(U,$J,19707.12,3702,0)
 ;;=35^Balance Each Foot 1s^wcdgm497^^854^884^^^^^0^40^28.0^29^^1
 ;;^UTILITY(U,$J,19707.12,3703,0)
 ;;=35^Balance Each Foot 1s^wcdgm498^^884^915^^^^^0^50^29.0^30^^1
 ;;^UTILITY(U,$J,19707.12,3704,0)
 ;;=35^Balance Each Foot 1s^wcdgm499^^915^945^^^^^0^55^30.0^31^^1
 ;;^UTILITY(U,$J,19707.12,3705,0)
 ;;=35^Balance Each Foot 1s^wcdgm500^^945^976^^^^^0^60^31.0^32^^1
 ;;^UTILITY(U,$J,19707.12,3706,0)
 ;;=35^Balance Each Foot 1s^wcdgm501^^976^1006^^^^^0^65^32.0^33^^1
 ;;^UTILITY(U,$J,19707.12,3707,0)
 ;;=35^Balance Each Foot 1s^wcdgm502^^1006^1037^^^^^0^70^33.0^34^^1
 ;;^UTILITY(U,$J,19707.12,3708,0)
 ;;=35^Balance Each Foot 1s^wcdgm503^^1037^1067^^^^^0^75^34.0^35^^1
 ;;^UTILITY(U,$J,19707.12,3709,0)
 ;;=35^Balance Each Foot 1s^wcdgm504^^1067^1098^^^^^0^80^35.0^36^^1
 ;;^UTILITY(U,$J,19707.12,3710,0)
 ;;=35^Balance Each Foot 1s^wcdgm505^^1098^1128^^^^^0^80^36.0^37^^1
 ;;^UTILITY(U,$J,19707.12,3711,0)
 ;;=35^Balance Each Foot 1s^wcdgm506^^1128^1159^^^^^0^80^37.0^38^^1
 ;;^UTILITY(U,$J,19707.12,3712,0)
 ;;=35^Balance Each Foot 1s^wcdgm507^^1159^1189^^^^^0^85^38.0^39^^1
 ;;^UTILITY(U,$J,19707.12,3713,0)
 ;;=35^Balance Each Foot 1s^wcdgm508^^1189^1220^^^^^0^85^39.0^40^^1
 ;;^UTILITY(U,$J,19707.12,3714,0)
 ;;=35^Balance Each Foot 1s^wcdgm509^^1220^1250^^^^^0^90^40.0^41^^1
 ;;^UTILITY(U,$J,19707.12,3715,0)
 ;;=35^Balance Each Foot 1s^wcdgm510^^1250^1281^^^^^1^100^41.0^42^^1
 ;;^UTILITY(U,$J,19707.12,3716,0)
 ;;=35^Balance Each Foot 1s^wcdgm511^^1281^1311^^^^^1^100^42.0^43^^1
 ;;^UTILITY(U,$J,19707.12,3717,0)
 ;;=35^Balance Each Foot 1s^wcdgm512^^1311^1342^^^^^1^100^43.0^44^^1
 ;;^UTILITY(U,$J,19707.12,3718,0)
 ;;=35^Balance Each Foot 1s^wcdgm513^^1342^1372^^^^^1^100^44.0^45^^1
 ;;^UTILITY(U,$J,19707.12,3719,0)
 ;;=35^Balance Each Foot 1s^wcdgm514^^1372^1403^^^^^1^100^45.0^46^^1
 ;;^UTILITY(U,$J,19707.12,3720,0)
 ;;=35^Balance Each Foot 1s^wcdgm515^^1403^1433^^^^^1^100^46.0^47^^1
 ;;^UTILITY(U,$J,19707.12,3721,0)
 ;;=35^Balance Each Foot 1s^wcdgm516^^1433^1464^^^^^1^100^47.0^48^^1
 ;;^UTILITY(U,$J,19707.12,3722,0)
 ;;=35^Balance Each Foot 2s^wcdgm517^^945^976^^^^^0^25^31.0^32^^1
 ;;^UTILITY(U,$J,19707.12,3723,0)
 ;;=35^Balance Each Foot 2s^wcdgm518^^976^1006^^^^^0^30^32.0^33^^1