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

VEN8I01K.m

Go to the documentation of this file.
VEN8I01K ; IHS/OIT/GIS - DIFROM SUPPLIMENT TO KIDS ; 
 ;;2.6;PCC+;**1,3**;APR 03, 2012;Build 24
 Q:'DIFQR(19707.17)  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.17,3630,0)
 ;;=34^Tower of 2 Cubes^wcdfm425^^457^472^^^^^0^50^15.0^15.5^^1
 ;;^UTILITY(U,$J,19707.17,3631,0)
 ;;=34^Tower of 2 Cubes^wcdfm426^^472^488^^^^^0^60^15.5^16^^1
 ;;^UTILITY(U,$J,19707.17,3632,0)
 ;;=34^Tower of 2 Cubes^wcdfm427^^488^503^^^^^0^65^16.0^16.5^^1
 ;;^UTILITY(U,$J,19707.17,3633,0)
 ;;=34^Tower of 2 Cubes^wcdfm428^^503^518^^^^^0^70^16.5^17^^1
 ;;^UTILITY(U,$J,19707.17,3634,0)
 ;;=34^Tower of 2 Cubes^wcdfm429^^518^533^^^^^0^75^17.0^17.5^^1
 ;;^UTILITY(U,$J,19707.17,3635,0)
 ;;=34^Tower of 2 Cubes^wcdfm430^^533^549^^^^^0^80^17.5^18^^1
 ;;^UTILITY(U,$J,19707.17,3636,0)
 ;;=34^Tower of 2 Cubes^wcdfm431^^549^564^^^^^0^80^18.0^18.5^^1
 ;;^UTILITY(U,$J,19707.17,3637,0)
 ;;=34^Tower of 2 Cubes^wcdfm432^^579^610^^^^^0^85^19.0^20^^1
 ;;^UTILITY(U,$J,19707.17,3638,0)
 ;;=34^Tower of 2 Cubes^wcdfm433^^610^640^^^^^0^90^20.0^21^^1
 ;;^UTILITY(U,$J,19707.17,3639,0)
 ;;=34^Tower of 2 Cubes^wcdfm434^^640^671^^^^^0^100^21.0^22^^1
 ;;^UTILITY(U,$J,19707.17,3640,0)
 ;;=34^Tower of 2 Cubes^wcdfm435^^671^701^^^^^0^100^22.0^23^^1
 ;;^UTILITY(U,$J,19707.17,3641,0)
 ;;=34^Tower of 2 Cubes^wcdfm436^^701^732^^^^^0^100^23.0^24^^1
 ;;^UTILITY(U,$J,19707.17,3642,0)
 ;;=34^Tower of 2 Cubes^wcdfm437^^732^762^^^^^0^100^24.0^25^^1
 ;;^UTILITY(U,$J,19707.17,3643,0)
 ;;=34^Tower of 4 Cubes^wcdfm438^^488^503^^^^^0^25^16.0^16.5^^1
 ;;^UTILITY(U,$J,19707.17,3644,0)
 ;;=34^Tower of 4 Cubes^wcdfm439^^503^518^^^^^0^30^16.5^17^^1
 ;;^UTILITY(U,$J,19707.17,3645,0)
 ;;=34^Tower of 4 Cubes^wcdfm440^^518^533^^^^^0^35^17.0^17.5^^1
 ;;^UTILITY(U,$J,19707.17,3646,0)
 ;;=34^Tower of 4 Cubes^wcdfm441^^533^549^^^^^0^40^17.5^18^^1
 ;;^UTILITY(U,$J,19707.17,3647,0)
 ;;=34^Tower of 4 Cubes^wcdfm442^^549^564^^^^^0^45^18.0^18.5^^1
 ;;^UTILITY(U,$J,19707.17,3648,0)
 ;;=34^Tower of 4 Cubes^wcdfm443^^579^610^^^^^0^50^19.0^20^^1
 ;;^UTILITY(U,$J,19707.17,3649,0)
 ;;=34^Tower of 4 Cubes^wcdfm444^^610^640^^^^^0^60^20.0^21^^1
 ;;^UTILITY(U,$J,19707.17,3650,0)
 ;;=34^Tower of 4 Cubes^wcdfm445^^640^671^^^^^0^70^21.0^22^^1
 ;;^UTILITY(U,$J,19707.17,3651,0)
 ;;=34^Tower of 4 Cubes^wcdfm446^^671^701^^^^^0^75^22.0^23^^1
 ;;^UTILITY(U,$J,19707.17,3652,0)
 ;;=34^Tower of 4 Cubes^wcdfm447^^701^732^^^^^0^85^23.0^24^^1
 ;;^UTILITY(U,$J,19707.17,3653,0)
 ;;=34^Tower of 4 Cubes^wcdfm448^^732^762^^^^^0^90^24.0^25^^1
 ;;^UTILITY(U,$J,19707.17,3654,0)
 ;;=34^Tower of 4 Cubes^wcdfm449^^762^793^^^^^0^100^25.0^26^^1
 ;;^UTILITY(U,$J,19707.17,3655,0)
 ;;=34^Tower of 4 Cubes^wcdfm450^^793^823^^^^^0^100^26.0^27^^1
 ;;^UTILITY(U,$J,19707.17,3656,0)
 ;;=34^Tower of 4 Cubes^wcdfm451^^823^854^^^^^0^100^27.0^28^^1
 ;;^UTILITY(U,$J,19707.17,3657,0)
 ;;=34^Tower of 4 Cubes^wcdfm452^^854^884^^^^^0^100^28.0^29^^1
 ;;^UTILITY(U,$J,19707.17,3658,0)
 ;;=34^Tower of 4 Cubes^wcdfm453^^884^915^^^^^0^100^29.0^30^^1
 ;;^UTILITY(U,$J,19707.17,3659,0)
 ;;=34^Tower of 4 Cubes^wcdfm454^^915^945^^^^^0^100^30.0^31^^1
 ;;^UTILITY(U,$J,19707.17,3660,0)
 ;;=34^Tower of 4 Cubes^wcdfm455^^945^976^^^^^1^100^31.0^32^^1
 ;;^UTILITY(U,$J,19707.17,3661,0)
 ;;=34^Tower of 6 Cubes^wcdfm456^^579^610^^^^^0^25^19.0^20^^1
 ;;^UTILITY(U,$J,19707.17,3662,0)
 ;;=34^Tower of 6 Cubes^wcdfm457^^610^640^^^^^0^30^20.0^21^^1
 ;;^UTILITY(U,$J,19707.17,3663,0)
 ;;=34^Tower of 6 Cubes^wcdfm458^^640^671^^^^^0^40^21.0^22^^1
 ;;^UTILITY(U,$J,19707.17,3664,0)
 ;;=34^Tower of 6 Cubes^wcdfm459^^671^701^^^^^0^50^22.0^23^^1
 ;;^UTILITY(U,$J,19707.17,3665,0)
 ;;=34^Tower of 6 Cubes^wcdfm460^^701^732^^^^^0^65^23.0^24^^1
 ;;^UTILITY(U,$J,19707.17,3666,0)
 ;;=34^Tower of 6 Cubes^wcdfm461^^732^762^^^^^0^75^24.0^25^^1
 ;;^UTILITY(U,$J,19707.17,3667,0)
 ;;=34^Tower of 6 Cubes^wcdfm462^^762^793^^^^^0^80^25.0^26^^1
 ;;^UTILITY(U,$J,19707.17,3668,0)
 ;;=34^Tower of 6 Cubes^wcdfm463^^793^823^^^^^0^80^26.0^27^^1
 ;;^UTILITY(U,$J,19707.17,3669,0)
 ;;=34^Tower of 6 Cubes^wcdfm464^^823^854^^^^^0^80^27.0^28^^1
 ;;^UTILITY(U,$J,19707.17,3670,0)
 ;;=34^Tower of 6 Cubes^wcdfm465^^854^884^^^^^0^85^28.0^29^^1
 ;;^UTILITY(U,$J,19707.17,3671,0)
 ;;=34^Tower of 6 Cubes^wcdfm466^^884^915^^^^^0^85^29.0^30^^1
 ;;^UTILITY(U,$J,19707.17,3672,0)
 ;;=34^Tower of 6 Cubes^wcdfm467^^915^945^^^^^0^85^30.0^31^^1
 ;;^UTILITY(U,$J,19707.17,3673,0)
 ;;=34^Tower of 6 Cubes^wcdfm468^^945^976^^^^^0^90^31.0^32^^1
 ;;^UTILITY(U,$J,19707.17,3674,0)
 ;;=34^Tower of 6 Cubes^wcdfm469^^976^1006^^^^^0^100^32.0^33^^1
 ;;^UTILITY(U,$J,19707.17,3675,0)
 ;;=34^Tower of 6 Cubes^wcdfm470^^1006^1037^^^^^0^100^33.0^34^^1
 ;;^UTILITY(U,$J,19707.17,3676,0)
 ;;=34^Tower of 6 Cubes^wcdfm471^^1037^1067^^^^^0^100^34.0^35^^1
 ;;^UTILITY(U,$J,19707.17,3677,0)
 ;;=34^Tower of 6 Cubes^wcdfm472^^1067^1098^^^^^0^100^35.0^36^^1
 ;;^UTILITY(U,$J,19707.17,3678,0)
 ;;=34^Tower of 6 Cubes^wcdfm473^^1098^1128^^^^^1^100^36.0^37^^1
 ;;^UTILITY(U,$J,19707.17,3679,0)
 ;;=34^Tower of 6 Cubes^wcdfm474^^1128^1159^^^^^1^100^37.0^38^^1
 ;;^UTILITY(U,$J,19707.17,3680,0)
 ;;=34^Tower of 6 Cubes^wcdfm475^^1159^1189^^^^^1^100^38.0^39^^1
 ;;^UTILITY(U,$J,19707.17,3681,0)
 ;;=34^Tower of 8 Cubes^wcdfm476^^732^762^^^^^0^25^24.0^25^^1
 ;;^UTILITY(U,$J,19707.17,3682,0)
 ;;=34^Tower of 8 Cubes^wcdfm477^^762^793^^^^^0^30^25.0^26^^1
 ;;^UTILITY(U,$J,19707.17,3683,0)
 ;;=34^Tower of 8 Cubes^wcdfm478^^793^823^^^^^0^40^26.0^27^^1
 ;;^UTILITY(U,$J,19707.17,3684,0)
 ;;=34^Tower of 8 Cubes^wcdfm479^^823^854^^^^^0^50^27.0^28^^1
 ;;^UTILITY(U,$J,19707.17,3685,0)
 ;;=34^Tower of 8 Cubes^wcdfm480^^854^884^^^^^0^55^28.0^29^^1
 ;;^UTILITY(U,$J,19707.17,3686,0)
 ;;=34^Tower of 8 Cubes^wcdfm481^^884^915^^^^^0^60^29.0^30^^1
 ;;^UTILITY(U,$J,19707.17,3687,0)
 ;;=34^Tower of 8 Cubes^wcdfm482^^915^945^^^^^0^60^30.0^31^^1
 ;;^UTILITY(U,$J,19707.17,3688,0)
 ;;=34^Tower of 8 Cubes^wcdfm483^^945^976^^^^^0^65^31.0^32^^1
 ;;^UTILITY(U,$J,19707.17,3689,0)
 ;;=34^Tower of 8 Cubes^wcdfm484^^976^1006^^^^^0^70^32.0^33^^1
 ;;^UTILITY(U,$J,19707.17,3690,0)
 ;;=34^Tower of 8 Cubes^wcdfm485^^1006^1037^^^^^0^75^33.0^34^^1
 ;;^UTILITY(U,$J,19707.17,3691,0)
 ;;=34^Tower of 8 Cubes^wcdfm486^^1037^1067^^^^^0^80^34.0^35^^1
 ;;^UTILITY(U,$J,19707.17,3692,0)
 ;;=34^Tower of 8 Cubes^wcdfm487^^1067^1098^^^^^0^80^35.0^36^^1
 ;;^UTILITY(U,$J,19707.17,3693,0)
 ;;=34^Tower of 8 Cubes^wcdfm488^^1098^1128^^^^^0^80^36.0^37^^1
 ;;^UTILITY(U,$J,19707.17,3694,0)
 ;;=34^Tower of 8 Cubes^wcdfm489^^1128^1159^^^^^1^80^37.0^38^^1
 ;;^UTILITY(U,$J,19707.17,3695,0)
 ;;=34^Tower of 8 Cubes^wcdfm490^^1159^1189^^^^^1^85^38.0^39^^1
 ;;^UTILITY(U,$J,19707.17,3696,0)
 ;;=34^Tower of 8 Cubes^wcdfm491^^1189^1220^^^^^0^85^39.0^40^^1
 ;;^UTILITY(U,$J,19707.17,3697,0)
 ;;=34^Tower of 8 Cubes^wcdfm492^^1220^1250^^^^^1^85^40.0^41^^1
 ;;^UTILITY(U,$J,19707.17,3698,0)
 ;;=34^Tower of 8 Cubes^wcdfm493^^1250^1281^^^^^1^90^41.0^42^^1
 ;;^UTILITY(U,$J,19707.17,3699,0)
 ;;=34^Tower of 8 Cubes^wcdfm494^^1281^1311^^^^^1^100^42.0^43^^1
 ;;^UTILITY(U,$J,19707.17,3700,0)
 ;;=34^Tower of 8 Cubes^wcdfm495^^1311^1342^^^^^1^100^43.0^44^^1
 ;;^UTILITY(U,$J,19707.17,3701,0)
 ;;=35^Balance Each Foot 1s^wcdgm496^^823^854^^^^^0^25^27.0^28^^1
 ;;^UTILITY(U,$J,19707.17,3702,0)
 ;;=35^Balance Each Foot 1s^wcdgm497^^854^884^^^^^0^40^28.0^29^^1
 ;;^UTILITY(U,$J,19707.17,3703,0)
 ;;=35^Balance Each Foot 1s^wcdgm498^^884^915^^^^^0^50^29.0^30^^1
 ;;^UTILITY(U,$J,19707.17,3704,0)
 ;;=35^Balance Each Foot 1s^wcdgm499^^915^945^^^^^0^55^30.0^31^^1
 ;;^UTILITY(U,$J,19707.17,3705,0)
 ;;=35^Balance Each Foot 1s^wcdgm500^^945^976^^^^^0^60^31.0^32^^1
 ;;^UTILITY(U,$J,19707.17,3706,0)
 ;;=35^Balance Each Foot 1s^wcdgm501^^976^1006^^^^^0^65^32.0^33^^1
 ;;^UTILITY(U,$J,19707.17,3707,0)
 ;;=35^Balance Each Foot 1s^wcdgm502^^1006^1037^^^^^0^70^33.0^34^^1