VEN8I01G.m

VEN8I01G ; 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,3311,0)

 ;;=29^Family history acanthosis, obesity: Lipid screen^^^6100^7686^^^^^^^200^252

 ;;^UTILITY(U,$J,19707.17,3312,0)

 ;;=29^At risk for TB: PPD^^^6100^7686^^^^^^^200^252

 ;;^UTILITY(U,$J,19707.17,3313,0)

 ;;=29^Sexually-active: needs annual STD screening (urine for GC and Chlamydia)^^^6100^7686^^^^^^^200^252

 ;;^UTILITY(U,$J,19707.17,3314,0)

 ;;=29^Athletes: significant injuries^^^6100^7686^^^^^^^200^252

 ;;^UTILITY(U,$J,19707.17,3315,0)

 ;;=34^Bang 2 Cubes^wcdfm110^^213^228^^^^^0^30^7.0^7.5^^1

 ;;^UTILITY(U,$J,19707.17,3316,0)

 ;;=34^Bang 2 Cubes^wcdfm111^^228^244^^^^^0^50^7.5^8^^1

 ;;^UTILITY(U,$J,19707.17,3317,0)

 ;;=34^Bang 2 Cubes^wcdfm112^^244^259^^^^^0^55^8.0^8.5^^1

 ;;^UTILITY(U,$J,19707.17,3318,0)

 ;;=34^Bang 2 Cubes^wcdfm113^^259^274^^^^^0^60^8.5^9^^1

 ;;^UTILITY(U,$J,19707.17,3319,0)

 ;;=34^Bang 2 Cubes^wcdfm114^^274^289^^^^^0^65^9.0^9.5^^1

 ;;^UTILITY(U,$J,19707.17,3320,0)

 ;;=34^Bang 2 Cubes^wcdfm115^^289^305^^^^^0^70^9.5^10^^1

 ;;^UTILITY(U,$J,19707.17,3321,0)

 ;;=34^Bang 2 Cubes^wcdfm116^^305^320^^^^^0^75^10.0^10.5^^1

 ;;^UTILITY(U,$J,19707.17,3322,0)

 ;;=34^Bang 2 Cubes^wcdfm117^^320^335^^^^^0^80^10.5^11^^1

 ;;^UTILITY(U,$J,19707.17,3323,0)

 ;;=34^Bang 2 Cubes^wcdfm118^^335^350^^^^^0^90^11.0^11.5^^1

 ;;^UTILITY(U,$J,19707.17,3324,0)

 ;;=34^Bang 2 Cubes^wcdfm119^^350^366^^^^^0^100^11.5^12^^1

 ;;^UTILITY(U,$J,19707.17,3325,0)

 ;;=34^Bang 2 Cubes^wcdfm120^^366^381^^^^^0^100^12.0^12.5^^1

 ;;^UTILITY(U,$J,19707.17,3326,0)

 ;;=34^Bang 2 Cubes^wcdfm121^^381^396^^^^^0^100^12.5^13^^1

 ;;^UTILITY(U,$J,19707.17,3327,0)

 ;;=34^Bang 2 Cubes^wcdfm122^^396^411^^^^^0^100^13.0^13.5^^1

 ;;^UTILITY(U,$J,19707.17,3328,0)

 ;;=34^Bang 2 Cubes^wcdfm123^^411^427^^^^^1^100^13.5^14^^1

 ;;^UTILITY(U,$J,19707.17,3329,0)

 ;;=34^Copy Circle^wcdfm124^^1128^1159^^^^^0^25^37.0^38^^1

 ;;^UTILITY(U,$J,19707.17,3330,0)

 ;;=34^Copy Circle^wcdfm125^^1159^1189^^^^^0^30^38.0^39^^1

 ;;^UTILITY(U,$J,19707.17,3331,0)

 ;;=34^Copy Circle^wcdfm126^^1189^1220^^^^^0^35^39.0^40^^1

 ;;^UTILITY(U,$J,19707.17,3332,0)

 ;;=34^Copy Circle^wcdfm127^^1220^1250^^^^^0^40^40.0^41^^1

 ;;^UTILITY(U,$J,19707.17,3333,0)

 ;;=34^Copy Circle^wcdfm128^^1250^1281^^^^^0^50^41.0^42^^1

 ;;^UTILITY(U,$J,19707.17,3334,0)

 ;;=34^Copy Circle^wcdfm129^^1281^1311^^^^^0^60^42.0^43^^1

 ;;^UTILITY(U,$J,19707.17,3335,0)

 ;;=34^Copy Circle^wcdfm130^^1311^1342^^^^^0^65^43.0^44^^1

 ;;^UTILITY(U,$J,19707.17,3336,0)

 ;;=34^Copy Circle^wcdfm131^^1342^1372^^^^^0^70^44.0^45^^1

 ;;^UTILITY(U,$J,19707.17,3337,0)

 ;;=34^Copy Circle^wcdfm132^^1372^1403^^^^^0^75^45.0^46^^1

 ;;^UTILITY(U,$J,19707.17,3338,0)

 ;;=34^Copy Circle^wcdfm133^^1403^1433^^^^^0^80^46.0^47^^1

 ;;^UTILITY(U,$J,19707.17,3339,0)

 ;;=34^Copy Circle^wcdfm134^^1433^1464^^^^^0^85^47.0^48^^1

 ;;^UTILITY(U,$J,19707.17,3340,0)

 ;;=34^Copy Circle^wcdfm135^^1464^1494^^^^^0^90^48.0^49^^1

 ;;^UTILITY(U,$J,19707.17,3341,0)

 ;;=34^Copy Circle^wcdfm136^^1494^1525^^^^^1^100^49.0^50^^1

 ;;^UTILITY(U,$J,19707.17,3342,0)

 ;;=34^Copy Circle^wcdfm137^^1525^1555^^^^^1^100^50.0^51^^1

 ;;^UTILITY(U,$J,19707.17,3343,0)

 ;;=34^Copy Circle^wcdfm138^^1555^1586^^^^^1^100^51.0^52^^1

 ;;^UTILITY(U,$J,19707.17,3344,0)

 ;;=34^Copy Circle^wcdfm139^^1586^1616^^^^^1^100^52.0^53^^1

 ;;^UTILITY(U,$J,19707.17,3345,0)

 ;;=34^Copy Circle^wcdfm140^^1616^1647^^^^^1^100^53.0^54^^1

 ;;^UTILITY(U,$J,19707.17,3346,0)

 ;;=34^Copy Circle^wcdfm141^^1647^1677^^^^^1^100^54.0^55^^1

 ;;^UTILITY(U,$J,19707.17,3347,0)

 ;;=34^Copy Circle^wcdfm142^^1677^1708^^^^^1^100^55.0^56^^1

 ;;^UTILITY(U,$J,19707.17,3348,0)

 ;;=34^Copy Cross^wcdfm143^^1220^1250^^^^^1^25^40.0^41^^1

 ;;^UTILITY(U,$J,19707.17,3349,0)

 ;;=34^Copy Cross^wcdfm144^^1250^1281^^^^^1^30^41.0^42^^1

 ;;^UTILITY(U,$J,19707.17,3350,0)

 ;;=34^Copy Cross^wcdfm145^^1281^1311^^^^^1^40^42.0^43^^1

 ;;^UTILITY(U,$J,19707.17,3351,0)

 ;;=34^Copy Cross^wcdfm146^^1311^1342^^^^^1^50^43.0^44^^1

 ;;^UTILITY(U,$J,19707.17,3352,0)

 ;;=34^Copy Cross^wcdfm147^^1342^1372^^^^^0^55^44.0^45^^1

 ;;^UTILITY(U,$J,19707.17,3353,0)

 ;;=34^Copy Cross^wcdfm148^^1372^1403^^^^^0^60^45.0^46^^1

 ;;^UTILITY(U,$J,19707.17,3354,0)

 ;;=34^Copy Cross^wcdfm149^^1403^1433^^^^^0^60^46.0^47^^1

 ;;^UTILITY(U,$J,19707.17,3355,0)

 ;;=34^Copy Cross^wcdfm150^^1433^1464^^^^^0^65^47.0^48^^1

 ;;^UTILITY(U,$J,19707.17,3356,0)

 ;;=34^Copy Cross^wcdfm151^^1464^1494^^^^^0^70^48.0^49^^1

 ;;^UTILITY(U,$J,19707.17,3357,0)

 ;;=34^Copy Cross^wcdfm152^^1494^1525^^^^^1^70^49.0^50^^1

 ;;^UTILITY(U,$J,19707.17,3358,0)

 ;;=34^Copy Cross^wcdfm153^^1525^1555^^^^^0^75^50.0^51^^1

 ;;^UTILITY(U,$J,19707.17,3359,0)

 ;;=34^Copy Cross^wcdfm154^^1555^1586^^^^^0^80^51.0^52^^1

 ;;^UTILITY(U,$J,19707.17,3360,0)

 ;;=34^Copy Cross^wcdfm155^^1586^1616^^^^^1^80^52.0^53^^1

 ;;^UTILITY(U,$J,19707.17,3361,0)

 ;;=34^Copy Cross^wcdfm156^^1616^1647^^^^^1^80^53.0^54^^1

 ;;^UTILITY(U,$J,19707.17,3362,0)

 ;;=34^Copy Cross^wcdfm157^^1647^1677^^^^^1^85^54.0^55^^1

 ;;^UTILITY(U,$J,19707.17,3363,0)

 ;;=34^Copy Cross^wcdfm158^^1677^1708^^^^^1^85^55.0^56^^1

 ;;^UTILITY(U,$J,19707.17,3364,0)

 ;;=34^Copy Cross^wcdfm159^^1708^1738^^^^^1^90^56.0^57^^1

 ;;^UTILITY(U,$J,19707.17,3365,0)

 ;;=34^Copy Cross^wcdfm160^^1738^1769^^^^^1^100^57.0^58^^1

 ;;^UTILITY(U,$J,19707.17,3366,0)

 ;;=34^Copy Cross^wcdfm161^^1769^1799^^^^^1^100^58.0^59^^1

 ;;^UTILITY(U,$J,19707.17,3367,0)

 ;;=34^Copy Cross^wcdfm162^^1799^1830^^^^^1^100^59.0^60^^1

 ;;^UTILITY(U,$J,19707.17,3368,0)

 ;;=34^Copy Cross^wcdfm163^^1830^1860^^^^^1^100^60.0^61^^1

 ;;^UTILITY(U,$J,19707.17,3369,0)

 ;;=34^Copy Cross^wcdfm164^^1860^1891^^^^^1^100^61.0^62^^1

 ;;^UTILITY(U,$J,19707.17,3370,0)

 ;;=34^Copy Cross^wcdfm165^^1891^1921^^^^^1^100^62.0^63^^1

 ;;^UTILITY(U,$J,19707.17,3371,0)

 ;;=34^Copy Square^wcdfm166^^1708^1738^^^^^0^25^56.0^57^^1

 ;;^UTILITY(U,$J,19707.17,3372,0)

 ;;=34^Copy Square^wcdfm167^^1738^1769^^^^^0^30^57.0^58^^1

 ;;^UTILITY(U,$J,19707.17,3373,0)

 ;;=34^Copy Square^wcdfm168^^1769^1799^^^^^0^35^58.0^59^^1

 ;;^UTILITY(U,$J,19707.17,3374,0)

 ;;=34^Copy Square^wcdfm169^^1799^1830^^^^^0^40^59.0^60^^1

 ;;^UTILITY(U,$J,19707.17,3375,0)

 ;;=34^Copy Square^wcdfm170^^1830^1860^^^^^0^40^60.0^61^^1

 ;;^UTILITY(U,$J,19707.17,3376,0)

 ;;=34^Copy Square^wcdfm171^^1860^1891^^^^^0^45^61.0^62^^1

 ;;^UTILITY(U,$J,19707.17,3377,0)

 ;;=34^Copy Square^wcdfm172^^1891^1921^^^^^0^50^62.0^63^^1

 ;;^UTILITY(U,$J,19707.17,3378,0)

 ;;=34^Copy Square^wcdfm173^^1921^1952^^^^^0^60^63.0^64^^1

 ;;^UTILITY(U,$J,19707.17,3379,0)

 ;;=34^Copy Square^wcdfm174^^1952^1982^^^^^0^65^64.0^65^^1

 ;;^UTILITY(U,$J,19707.17,3380,0)

 ;;=34^Copy Square^wcdfm175^^1982^2013^^^^^0^70^65.0^66^^1

 ;;^UTILITY(U,$J,19707.17,3381,0)

 ;;=34^Copy Square^wcdfm176^^2013^2043^^^^^0^75^66.0^67^^1

 ;;^UTILITY(U,$J,19707.17,3382,0)

 ;;=34^Copy Square^wcdfm177^^2043^2074^^^^^0^80^67.0^68^^1

 ;;^UTILITY(U,$J,19707.17,3383,0)

 ;;=34^Copy Square^wcdfm178^^2074^2104^^^^^0^80^68.0^69^^1

 ;;^UTILITY(U,$J,19707.17,3384,0)

 ;;=34^Copy Square^wcdfm179^^2104^2135^^^^^0^80^69.0^70^^1

 ;;^UTILITY(U,$J,19707.17,3385,0)

 ;;=34^Copy Square^wcdfm180^^2135^2165^^^^^0^85^70.0^71^^1

 ;;^UTILITY(U,$J,19707.17,3386,0)

 ;;=34^Copy Square^wcdfm181^^2165^2196^^^^^0^85^71.0^72^^1

 ;;^UTILITY(U,$J,19707.17,3387,0)

 ;;=34^Copy Square^wcdfm182^^2196^2226^^^^^0^90^72.0^73^^1

 ;;^UTILITY(U,$J,19707.17,3388,0)

 ;;=34^Copy Square Demo^wcdfm183^^1464^1494^^^^^1^25^48.0^49^^1

 ;;^UTILITY(U,$J,19707.17,3389,0)

 ;;=34^Copy Square Demo^wcdfm184^^1494^1525^^^^^0^30^49.0^50^^1

 ;;^UTILITY(U,$J,19707.17,3390,0)

 ;;=34^Copy Square Demo^wcdfm185^^1525^1555^^^^^0^35^50.0^51^^1

 ;;^UTILITY(U,$J,19707.17,3391,0)

 ;;=34^Copy Square Demo^wcdfm186^^1555^1586^^^^^0^40^51.0^52^^1

VEN8I01G  ; IHS/OIT/GIS - DIFROM SUPPLIMENT TO KIDS ; 

 +1       ;;2.6;PCC+;**1,3**;APR 03, 2012;Build 24

 +2        IF 'DIFQR(19707.17)

               QUIT 

           FOR I=1:2

               SET X=$TEXT(Q+I)

               IF X=""

                   QUIT 

               SET Y=$EXTRACT($TEXT(Q+I+1),4,999)

               SET X=$EXTRACT(X,4,999)

               IF $ASCII(Y)=126

                   SET I=I+1

                   SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)

               IF $ASCII(Y)=61

                   SET Y=$EXTRACT(Y,2,999)

               XECUTE NO

              IF '$TEST

                   SET @X=Y

Q          QUIT 

 +1       ;;^UTILITY(U,$J,19707.17,3311,0)

 +2       ;;=29^Family history acanthosis, obesity: Lipid screen^^^6100^7686^^^^^^^200^252

 +3       ;;^UTILITY(U,$J,19707.17,3312,0)

 +4       ;;=29^At risk for TB: PPD^^^6100^7686^^^^^^^200^252

 +5       ;;^UTILITY(U,$J,19707.17,3313,0)

 +6       ;;=29^Sexually-active: needs annual STD screening (urine for GC and Chlamydia)^^^6100^7686^^^^^^^200^252

 +7       ;;^UTILITY(U,$J,19707.17,3314,0)

 +8       ;;=29^Athletes: significant injuries^^^6100^7686^^^^^^^200^252

 +9       ;;^UTILITY(U,$J,19707.17,3315,0)

 +10      ;;=34^Bang 2 Cubes^wcdfm110^^213^228^^^^^0^30^7.0^7.5^^1

 +11      ;;^UTILITY(U,$J,19707.17,3316,0)

 +12      ;;=34^Bang 2 Cubes^wcdfm111^^228^244^^^^^0^50^7.5^8^^1

 +13      ;;^UTILITY(U,$J,19707.17,3317,0)

 +14      ;;=34^Bang 2 Cubes^wcdfm112^^244^259^^^^^0^55^8.0^8.5^^1

 +15      ;;^UTILITY(U,$J,19707.17,3318,0)

 +16      ;;=34^Bang 2 Cubes^wcdfm113^^259^274^^^^^0^60^8.5^9^^1

 +17      ;;^UTILITY(U,$J,19707.17,3319,0)

 +18      ;;=34^Bang 2 Cubes^wcdfm114^^274^289^^^^^0^65^9.0^9.5^^1

 +19      ;;^UTILITY(U,$J,19707.17,3320,0)

 +20      ;;=34^Bang 2 Cubes^wcdfm115^^289^305^^^^^0^70^9.5^10^^1

 +21      ;;^UTILITY(U,$J,19707.17,3321,0)

 +22      ;;=34^Bang 2 Cubes^wcdfm116^^305^320^^^^^0^75^10.0^10.5^^1

 +23      ;;^UTILITY(U,$J,19707.17,3322,0)

 +24      ;;=34^Bang 2 Cubes^wcdfm117^^320^335^^^^^0^80^10.5^11^^1

 +25      ;;^UTILITY(U,$J,19707.17,3323,0)

 +26      ;;=34^Bang 2 Cubes^wcdfm118^^335^350^^^^^0^90^11.0^11.5^^1

 +27      ;;^UTILITY(U,$J,19707.17,3324,0)

 +28      ;;=34^Bang 2 Cubes^wcdfm119^^350^366^^^^^0^100^11.5^12^^1

 +29      ;;^UTILITY(U,$J,19707.17,3325,0)

 +30      ;;=34^Bang 2 Cubes^wcdfm120^^366^381^^^^^0^100^12.0^12.5^^1

 +31      ;;^UTILITY(U,$J,19707.17,3326,0)

 +32      ;;=34^Bang 2 Cubes^wcdfm121^^381^396^^^^^0^100^12.5^13^^1

 +33      ;;^UTILITY(U,$J,19707.17,3327,0)

 +34      ;;=34^Bang 2 Cubes^wcdfm122^^396^411^^^^^0^100^13.0^13.5^^1

 +35      ;;^UTILITY(U,$J,19707.17,3328,0)

 +36      ;;=34^Bang 2 Cubes^wcdfm123^^411^427^^^^^1^100^13.5^14^^1

 +37      ;;^UTILITY(U,$J,19707.17,3329,0)

 +38      ;;=34^Copy Circle^wcdfm124^^1128^1159^^^^^0^25^37.0^38^^1

 +39      ;;^UTILITY(U,$J,19707.17,3330,0)

 +40      ;;=34^Copy Circle^wcdfm125^^1159^1189^^^^^0^30^38.0^39^^1

 +41      ;;^UTILITY(U,$J,19707.17,3331,0)

 +42      ;;=34^Copy Circle^wcdfm126^^1189^1220^^^^^0^35^39.0^40^^1

 +43      ;;^UTILITY(U,$J,19707.17,3332,0)

 +44      ;;=34^Copy Circle^wcdfm127^^1220^1250^^^^^0^40^40.0^41^^1

 +45      ;;^UTILITY(U,$J,19707.17,3333,0)

 +46      ;;=34^Copy Circle^wcdfm128^^1250^1281^^^^^0^50^41.0^42^^1

 +47      ;;^UTILITY(U,$J,19707.17,3334,0)

 +48      ;;=34^Copy Circle^wcdfm129^^1281^1311^^^^^0^60^42.0^43^^1

 +49      ;;^UTILITY(U,$J,19707.17,3335,0)

 +50      ;;=34^Copy Circle^wcdfm130^^1311^1342^^^^^0^65^43.0^44^^1

 +51      ;;^UTILITY(U,$J,19707.17,3336,0)

 +52      ;;=34^Copy Circle^wcdfm131^^1342^1372^^^^^0^70^44.0^45^^1

 +53      ;;^UTILITY(U,$J,19707.17,3337,0)

 +54      ;;=34^Copy Circle^wcdfm132^^1372^1403^^^^^0^75^45.0^46^^1

 +55      ;;^UTILITY(U,$J,19707.17,3338,0)

 +56      ;;=34^Copy Circle^wcdfm133^^1403^1433^^^^^0^80^46.0^47^^1

 +57      ;;^UTILITY(U,$J,19707.17,3339,0)

 +58      ;;=34^Copy Circle^wcdfm134^^1433^1464^^^^^0^85^47.0^48^^1

 +59      ;;^UTILITY(U,$J,19707.17,3340,0)

 +60      ;;=34^Copy Circle^wcdfm135^^1464^1494^^^^^0^90^48.0^49^^1

 +61      ;;^UTILITY(U,$J,19707.17,3341,0)

 +62      ;;=34^Copy Circle^wcdfm136^^1494^1525^^^^^1^100^49.0^50^^1

 +63      ;;^UTILITY(U,$J,19707.17,3342,0)

 +64      ;;=34^Copy Circle^wcdfm137^^1525^1555^^^^^1^100^50.0^51^^1

 +65      ;;^UTILITY(U,$J,19707.17,3343,0)

 +66      ;;=34^Copy Circle^wcdfm138^^1555^1586^^^^^1^100^51.0^52^^1

 +67      ;;^UTILITY(U,$J,19707.17,3344,0)

 +68      ;;=34^Copy Circle^wcdfm139^^1586^1616^^^^^1^100^52.0^53^^1

 +69      ;;^UTILITY(U,$J,19707.17,3345,0)

 +70      ;;=34^Copy Circle^wcdfm140^^1616^1647^^^^^1^100^53.0^54^^1

 +71      ;;^UTILITY(U,$J,19707.17,3346,0)

 +72      ;;=34^Copy Circle^wcdfm141^^1647^1677^^^^^1^100^54.0^55^^1

 +73      ;;^UTILITY(U,$J,19707.17,3347,0)

 +74      ;;=34^Copy Circle^wcdfm142^^1677^1708^^^^^1^100^55.0^56^^1

 +75      ;;^UTILITY(U,$J,19707.17,3348,0)

 +76      ;;=34^Copy Cross^wcdfm143^^1220^1250^^^^^1^25^40.0^41^^1

 +77      ;;^UTILITY(U,$J,19707.17,3349,0)

 +78      ;;=34^Copy Cross^wcdfm144^^1250^1281^^^^^1^30^41.0^42^^1

 +79      ;;^UTILITY(U,$J,19707.17,3350,0)

 +80      ;;=34^Copy Cross^wcdfm145^^1281^1311^^^^^1^40^42.0^43^^1

 +81      ;;^UTILITY(U,$J,19707.17,3351,0)

 +82      ;;=34^Copy Cross^wcdfm146^^1311^1342^^^^^1^50^43.0^44^^1

 +83      ;;^UTILITY(U,$J,19707.17,3352,0)

 +84      ;;=34^Copy Cross^wcdfm147^^1342^1372^^^^^0^55^44.0^45^^1

 +85      ;;^UTILITY(U,$J,19707.17,3353,0)

 +86      ;;=34^Copy Cross^wcdfm148^^1372^1403^^^^^0^60^45.0^46^^1

 +87      ;;^UTILITY(U,$J,19707.17,3354,0)

 +88      ;;=34^Copy Cross^wcdfm149^^1403^1433^^^^^0^60^46.0^47^^1

 +89      ;;^UTILITY(U,$J,19707.17,3355,0)

 +90      ;;=34^Copy Cross^wcdfm150^^1433^1464^^^^^0^65^47.0^48^^1

 +91      ;;^UTILITY(U,$J,19707.17,3356,0)

 +92      ;;=34^Copy Cross^wcdfm151^^1464^1494^^^^^0^70^48.0^49^^1

 +93      ;;^UTILITY(U,$J,19707.17,3357,0)

 +94      ;;=34^Copy Cross^wcdfm152^^1494^1525^^^^^1^70^49.0^50^^1

 +95      ;;^UTILITY(U,$J,19707.17,3358,0)

 +96      ;;=34^Copy Cross^wcdfm153^^1525^1555^^^^^0^75^50.0^51^^1

 +97      ;;^UTILITY(U,$J,19707.17,3359,0)

 +98      ;;=34^Copy Cross^wcdfm154^^1555^1586^^^^^0^80^51.0^52^^1

 +99      ;;^UTILITY(U,$J,19707.17,3360,0)

 +100     ;;=34^Copy Cross^wcdfm155^^1586^1616^^^^^1^80^52.0^53^^1

 +101     ;;^UTILITY(U,$J,19707.17,3361,0)

 +102     ;;=34^Copy Cross^wcdfm156^^1616^1647^^^^^1^80^53.0^54^^1

 +103     ;;^UTILITY(U,$J,19707.17,3362,0)

 +104     ;;=34^Copy Cross^wcdfm157^^1647^1677^^^^^1^85^54.0^55^^1

 +105     ;;^UTILITY(U,$J,19707.17,3363,0)

 +106     ;;=34^Copy Cross^wcdfm158^^1677^1708^^^^^1^85^55.0^56^^1

 +107     ;;^UTILITY(U,$J,19707.17,3364,0)

 +108     ;;=34^Copy Cross^wcdfm159^^1708^1738^^^^^1^90^56.0^57^^1

 +109     ;;^UTILITY(U,$J,19707.17,3365,0)

 +110     ;;=34^Copy Cross^wcdfm160^^1738^1769^^^^^1^100^57.0^58^^1

 +111     ;;^UTILITY(U,$J,19707.17,3366,0)

 +112     ;;=34^Copy Cross^wcdfm161^^1769^1799^^^^^1^100^58.0^59^^1

 +113     ;;^UTILITY(U,$J,19707.17,3367,0)

 +114     ;;=34^Copy Cross^wcdfm162^^1799^1830^^^^^1^100^59.0^60^^1

 +115     ;;^UTILITY(U,$J,19707.17,3368,0)

 +116     ;;=34^Copy Cross^wcdfm163^^1830^1860^^^^^1^100^60.0^61^^1

 +117     ;;^UTILITY(U,$J,19707.17,3369,0)

 +118     ;;=34^Copy Cross^wcdfm164^^1860^1891^^^^^1^100^61.0^62^^1

 +119     ;;^UTILITY(U,$J,19707.17,3370,0)

 +120     ;;=34^Copy Cross^wcdfm165^^1891^1921^^^^^1^100^62.0^63^^1

 +121     ;;^UTILITY(U,$J,19707.17,3371,0)

 +122     ;;=34^Copy Square^wcdfm166^^1708^1738^^^^^0^25^56.0^57^^1

 +123     ;;^UTILITY(U,$J,19707.17,3372,0)

 +124     ;;=34^Copy Square^wcdfm167^^1738^1769^^^^^0^30^57.0^58^^1

 +125     ;;^UTILITY(U,$J,19707.17,3373,0)

 +126     ;;=34^Copy Square^wcdfm168^^1769^1799^^^^^0^35^58.0^59^^1

 +127     ;;^UTILITY(U,$J,19707.17,3374,0)

 +128     ;;=34^Copy Square^wcdfm169^^1799^1830^^^^^0^40^59.0^60^^1

 +129     ;;^UTILITY(U,$J,19707.17,3375,0)

 +130     ;;=34^Copy Square^wcdfm170^^1830^1860^^^^^0^40^60.0^61^^1

 +131     ;;^UTILITY(U,$J,19707.17,3376,0)

 +132     ;;=34^Copy Square^wcdfm171^^1860^1891^^^^^0^45^61.0^62^^1

 +133     ;;^UTILITY(U,$J,19707.17,3377,0)

 +134     ;;=34^Copy Square^wcdfm172^^1891^1921^^^^^0^50^62.0^63^^1

 +135     ;;^UTILITY(U,$J,19707.17,3378,0)

 +136     ;;=34^Copy Square^wcdfm173^^1921^1952^^^^^0^60^63.0^64^^1

 +137     ;;^UTILITY(U,$J,19707.17,3379,0)

 +138     ;;=34^Copy Square^wcdfm174^^1952^1982^^^^^0^65^64.0^65^^1

 +139     ;;^UTILITY(U,$J,19707.17,3380,0)

 +140     ;;=34^Copy Square^wcdfm175^^1982^2013^^^^^0^70^65.0^66^^1

 +141     ;;^UTILITY(U,$J,19707.17,3381,0)

 +142     ;;=34^Copy Square^wcdfm176^^2013^2043^^^^^0^75^66.0^67^^1

 +143     ;;^UTILITY(U,$J,19707.17,3382,0)

 +144     ;;=34^Copy Square^wcdfm177^^2043^2074^^^^^0^80^67.0^68^^1

 +145     ;;^UTILITY(U,$J,19707.17,3383,0)

 +146     ;;=34^Copy Square^wcdfm178^^2074^2104^^^^^0^80^68.0^69^^1

 +147     ;;^UTILITY(U,$J,19707.17,3384,0)

 +148     ;;=34^Copy Square^wcdfm179^^2104^2135^^^^^0^80^69.0^70^^1

 +149     ;;^UTILITY(U,$J,19707.17,3385,0)

 +150     ;;=34^Copy Square^wcdfm180^^2135^2165^^^^^0^85^70.0^71^^1

 +151     ;;^UTILITY(U,$J,19707.17,3386,0)

 +152     ;;=34^Copy Square^wcdfm181^^2165^2196^^^^^0^85^71.0^72^^1

 +153     ;;^UTILITY(U,$J,19707.17,3387,0)

 +154     ;;=34^Copy Square^wcdfm182^^2196^2226^^^^^0^90^72.0^73^^1

 +155     ;;^UTILITY(U,$J,19707.17,3388,0)

 +156     ;;=34^Copy Square Demo^wcdfm183^^1464^1494^^^^^1^25^48.0^49^^1

 +157     ;;^UTILITY(U,$J,19707.17,3389,0)

 +158     ;;=34^Copy Square Demo^wcdfm184^^1494^1525^^^^^0^30^49.0^50^^1

 +159     ;;^UTILITY(U,$J,19707.17,3390,0)

 +160     ;;=34^Copy Square Demo^wcdfm185^^1525^1555^^^^^0^35^50.0^51^^1

 +161     ;;^UTILITY(U,$J,19707.17,3391,0)

 +162     ;;=34^Copy Square Demo^wcdfm186^^1555^1586^^^^^0^40^51.0^52^^1