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

VEN8I01H.m

Go to the documentation of this file.
VEN8I01H ; 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,3392,0)
 ;;=34^Copy Square Demo^wcdfm187^^1586^1616^^^^^0^40^52.0^53^^1
 ;;^UTILITY(U,$J,19707.17,3393,0)
 ;;=34^Copy Square Demo^wcdfm188^^1616^1647^^^^^0^45^53.0^54^^1
 ;;^UTILITY(U,$J,19707.17,3394,0)
 ;;=34^Copy Square Demo^wcdfm189^^1647^1677^^^^^0^50^54.0^55^^1
 ;;^UTILITY(U,$J,19707.17,3395,0)
 ;;=34^Copy Square Demo^wcdfm190^^1677^1708^^^^^0^55^55.0^56^^1
 ;;^UTILITY(U,$J,19707.17,3396,0)
 ;;=34^Copy Square Demo^wcdfm191^^1708^1738^^^^^0^60^56.0^57^^1
 ;;^UTILITY(U,$J,19707.17,3397,0)
 ;;=34^Copy Square Demo^wcdfm192^^1738^1769^^^^^0^60^57.0^58^^1
 ;;^UTILITY(U,$J,19707.17,3398,0)
 ;;=34^Copy Square Demo^wcdfm193^^1769^1799^^^^^0^65^58.0^59^^1
 ;;^UTILITY(U,$J,19707.17,3399,0)
 ;;=34^Copy Square Demo^wcdfm194^^1799^1830^^^^^0^70^59.0^60^^1
 ;;^UTILITY(U,$J,19707.17,3400,0)
 ;;=34^Copy Square Demo^wcdfm195^^1830^1860^^^^^0^75^60.0^61^^1
 ;;^UTILITY(U,$J,19707.17,3401,0)
 ;;=34^Copy Square Demo^wcdfm196^^1860^1891^^^^^0^80^61.0^62^^1
 ;;^UTILITY(U,$J,19707.17,3402,0)
 ;;=34^Copy Square Demo^wcdfm197^^1891^1921^^^^^0^80^62.0^63^^1
 ;;^UTILITY(U,$J,19707.17,3403,0)
 ;;=34^Copy Square Demo^wcdfm198^^1921^1952^^^^^0^85^63.0^64^^1
 ;;^UTILITY(U,$J,19707.17,3404,0)
 ;;=34^Copy Square Demo^wcdfm199^^1952^1982^^^^^0^85^64.0^65^^1
 ;;^UTILITY(U,$J,19707.17,3405,0)
 ;;=34^Copy Square Demo^wcdfm200^^1982^2013^^^^^0^90^65.0^66^^1
 ;;^UTILITY(U,$J,19707.17,3406,0)
 ;;=34^Copy Square Demo^wcdfm201^^2013^2043^^^^^1^100^66.0^67^^1
 ;;^UTILITY(U,$J,19707.17,3407,0)
 ;;=34^Draw Person 3 Parts^wcdfm202^^1220^1250^^^^^0^25^40.0^41^^1
 ;;^UTILITY(U,$J,19707.17,3408,0)
 ;;=34^Draw Person 3 Parts^wcdfm203^^1250^1281^^^^^0^30^41.0^42^^1
 ;;^UTILITY(U,$J,19707.17,3409,0)
 ;;=34^Draw Person 3 Parts^wcdfm204^^1281^1311^^^^^0^35^42.0^43^^1
 ;;^UTILITY(U,$J,19707.17,3410,0)
 ;;=34^Draw Person 3 Parts^wcdfm205^^1311^1342^^^^^0^40^43.0^44^^1
 ;;^UTILITY(U,$J,19707.17,3411,0)
 ;;=34^Draw Person 3 Parts^wcdfm206^^1342^1372^^^^^0^45^44.0^45^^1
 ;;^UTILITY(U,$J,19707.17,3412,0)
 ;;=34^Draw Person 3 Parts^wcdfm207^^1372^1403^^^^^0^50^45.0^46^^1
 ;;^UTILITY(U,$J,19707.17,3413,0)
 ;;=34^Draw Person 3 Parts^wcdfm208^^1403^1433^^^^^0^55^46.0^47^^1
 ;;^UTILITY(U,$J,19707.17,3414,0)
 ;;=34^Draw Person 3 Parts^wcdfm209^^1433^1464^^^^^0^60^47.0^48^^1
 ;;^UTILITY(U,$J,19707.17,3415,0)
 ;;=34^Draw Person 3 Parts^wcdfm210^^1464^1494^^^^^0^65^48.0^49^^1
 ;;^UTILITY(U,$J,19707.17,3416,0)
 ;;=34^Draw Person 3 Parts^wcdfm211^^1494^1525^^^^^0^70^49.0^50^^1
 ;;^UTILITY(U,$J,19707.17,3417,0)
 ;;=34^Draw Person 3 Parts^wcdfm212^^1525^1555^^^^^0^75^50.0^51^^1
 ;;^UTILITY(U,$J,19707.17,3418,0)
 ;;=34^Draw Person 3 Parts^wcdfm213^^1555^1586^^^^^0^80^51.0^52^^1
 ;;^UTILITY(U,$J,19707.17,3419,0)
 ;;=34^Draw Person 3 Parts^wcdfm214^^1586^1616^^^^^0^80^52.0^53^^1
 ;;^UTILITY(U,$J,19707.17,3420,0)
 ;;=34^Draw Person 3 Parts^wcdfm215^^1616^1647^^^^^0^85^53.0^54^^1
 ;;^UTILITY(U,$J,19707.17,3421,0)
 ;;=34^Draw Person 3 Parts^wcdfm216^^1647^1677^^^^^0^85^54.0^55^^1
 ;;^UTILITY(U,$J,19707.17,3422,0)
 ;;=34^Draw Person 3 Parts^wcdfm217^^1677^1708^^^^^0^90^55.0^56^^1
 ;;^UTILITY(U,$J,19707.17,3423,0)
 ;;=34^Draw Person 3 Parts^wcdfm218^^1708^1738^^^^^1^100^56.0^57^^1
 ;;^UTILITY(U,$J,19707.17,3424,0)
 ;;=34^Draw Person 6 Parts^wcdfm219^^1464^1494^^^^^0^25^48.0^49^^1
 ;;^UTILITY(U,$J,19707.17,3425,0)
 ;;=34^Draw Person 6 Parts^wcdfm220^^1494^1525^^^^^0^30^49.0^50^^1
 ;;^UTILITY(U,$J,19707.17,3426,0)
 ;;=34^Draw Person 6 Parts^wcdfm221^^1525^1555^^^^^0^30^50.0^51^^1
 ;;^UTILITY(U,$J,19707.17,3427,0)
 ;;=34^Draw Person 6 Parts^wcdfm222^^1555^1586^^^^^0^35^51.0^52^^1
 ;;^UTILITY(U,$J,19707.17,3428,0)
 ;;=34^Draw Person 6 Parts^wcdfm223^^1586^1616^^^^^0^40^52.0^53^^1
 ;;^UTILITY(U,$J,19707.17,3429,0)
 ;;=34^Draw Person 6 Parts^wcdfm224^^1616^1647^^^^^0^40^53.0^54^^1
 ;;^UTILITY(U,$J,19707.17,3430,0)
 ;;=34^Draw Person 6 Parts^wcdfm225^^1647^1677^^^^^0^45^54.0^55^^1
 ;;^UTILITY(U,$J,19707.17,3431,0)
 ;;=34^Draw Person 6 Parts^wcdfm226^^1677^1708^^^^^0^50^55.0^56^^1
 ;;^UTILITY(U,$J,19707.17,3432,0)
 ;;=34^Draw Person 6 Parts^wcdfm227^^1708^1738^^^^^0^55^56.0^57^^1
 ;;^UTILITY(U,$J,19707.17,3433,0)
 ;;=34^Draw Person 6 Parts^wcdfm228^^1738^1769^^^^^0^60^57.0^58^^1
 ;;^UTILITY(U,$J,19707.17,3434,0)
 ;;=34^Draw Person 6 Parts^wcdfm229^^1769^1799^^^^^0^60^58.0^59^^1
 ;;^UTILITY(U,$J,19707.17,3435,0)
 ;;=34^Draw Person 6 Parts^wcdfm230^^1799^1830^^^^^0^65^59.0^60^^1
 ;;^UTILITY(U,$J,19707.17,3436,0)
 ;;=34^Draw Person 6 Parts^wcdfm231^^1830^1860^^^^^0^70^60.0^61^^1
 ;;^UTILITY(U,$J,19707.17,3437,0)
 ;;=34^Draw Person 6 Parts^wcdfm232^^1860^1891^^^^^0^75^61.0^62^^1
 ;;^UTILITY(U,$J,19707.17,3438,0)
 ;;=34^Draw Person 6 Parts^wcdfm233^^1891^1921^^^^^0^80^62.0^63^^1
 ;;^UTILITY(U,$J,19707.17,3439,0)
 ;;=34^Draw Person 6 Parts^wcdfm234^^1921^1952^^^^^0^80^63.0^64^^1
 ;;^UTILITY(U,$J,19707.17,3440,0)
 ;;=34^Draw Person 6 Parts^wcdfm235^^1952^1982^^^^^0^85^64.0^65^^1
 ;;^UTILITY(U,$J,19707.17,3441,0)
 ;;=34^Draw Person 6 Parts^wcdfm236^^1982^2013^^^^^0^85^65.0^66^^1
 ;;^UTILITY(U,$J,19707.17,3442,0)
 ;;=34^Draw Person 6 Parts^wcdfm237^^2013^2043^^^^^0^90^66.0^67^^1
 ;;^UTILITY(U,$J,19707.17,3443,0)
 ;;=34^Draw Person 6 Parts^wcdfm238^^2043^2074^^^^^0^100^67.0^68^^1
 ;;^UTILITY(U,$J,19707.17,3444,0)
 ;;=34^Draw Person 6 Parts^wcdfm239^^2074^2104^^^^^0^100^68.0^69^^1
 ;;^UTILITY(U,$J,19707.17,3445,0)
 ;;=34^Draw Person 6 Parts^wcdfm240^^2104^2135^^^^^0^100^69.0^70^^1
 ;;^UTILITY(U,$J,19707.17,3446,0)
 ;;=34^Draw Person 6 Parts^wcdfm241^^2135^2165^^^^^0^100^70.0^71^^1
 ;;^UTILITY(U,$J,19707.17,3447,0)
 ;;=34^Draw Person 6 Parts^wcdfm242^^2165^2196^^^^^0^100^71.0^72^^1
 ;;^UTILITY(U,$J,19707.17,3448,0)
 ;;=34^Draw Person 6 Parts^wcdfm243^^2196^2226^^^^^0^100^72.0^73^^1
 ;;^UTILITY(U,$J,19707.17,3449,0)
 ;;=34^Dumps Raisin^wcdfm244^^396^411^^^^^0^25^13.0^13.5^^1
 ;;^UTILITY(U,$J,19707.17,3450,0)
 ;;=34^Dumps Raisin^wcdfm245^^411^427^^^^^0^30^13.5^14^^1
 ;;^UTILITY(U,$J,19707.17,3451,0)
 ;;=34^Dumps Raisin^wcdfm246^^427^442^^^^^0^40^14.0^14.5^^1
 ;;^UTILITY(U,$J,19707.17,3452,0)
 ;;=34^Dumps Raisin^wcdfm247^^442^457^^^^^0^50^14.5^15^^1
 ;;^UTILITY(U,$J,19707.17,3453,0)
 ;;=34^Dumps Raisin^wcdfm248^^457^472^^^^^0^60^15.0^15.5^^1
 ;;^UTILITY(U,$J,19707.17,3454,0)
 ;;=34^Dumps Raisin^wcdfm249^^472^488^^^^^0^70^15.5^16^^1
 ;;^UTILITY(U,$J,19707.17,3455,0)
 ;;=34^Dumps Raisin^wcdfm250^^488^503^^^^^0^75^16.0^16.5^^1
 ;;^UTILITY(U,$J,19707.17,3456,0)
 ;;=34^Dumps Raisin^wcdfm251^^503^518^^^^^0^80^16.5^17^^1
 ;;^UTILITY(U,$J,19707.17,3457,0)
 ;;=34^Dumps Raisin^wcdfm252^^518^533^^^^^0^80^17.0^17.5^^1
 ;;^UTILITY(U,$J,19707.17,3458,0)
 ;;=34^Dumps Raisin^wcdfm253^^533^549^^^^^0^85^17.5^18^^1
 ;;^UTILITY(U,$J,19707.17,3459,0)
 ;;=34^Dumps Raisin^wcdfm254^^549^564^^^^^0^85^18.0^18.5^^1
 ;;^UTILITY(U,$J,19707.17,3460,0)
 ;;=34^Dumps Raisin^wcdfm255^^579^610^^^^^0^90^19.0^20^^1
 ;;^UTILITY(U,$J,19707.17,3461,0)
 ;;=34^Dumps Raisin^wcdfm256^^610^640^^^^^1^100^20.0^21^^1
 ;;^UTILITY(U,$J,19707.17,3462,0)
 ;;=34^Follow Past Midline^wcdfm257^^45^61^^^^^0^25^1.5^2^^1
 ;;^UTILITY(U,$J,19707.17,3463,0)
 ;;=34^Follow Past Midline^wcdfm258^^61^76^^^^^0^50^2.0^2.5^^1
 ;;^UTILITY(U,$J,19707.17,3464,0)
 ;;=34^Follow Past Midline^wcdfm259^^76^91^^^^^0^85^2.5^3^^1
 ;;^UTILITY(U,$J,19707.17,3465,0)
 ;;=34^Follow Past Midline^wcdfm260^^91^106^^^^^0^100^3.0^3.5^^1
 ;;^UTILITY(U,$J,19707.17,3466,0)
 ;;=34^Follow Past Midline^wcdfm261^^106^122^^^^^0^100^3.5^4^^1
 ;;^UTILITY(U,$J,19707.17,3467,0)
 ;;=34^Follow Past Midline^wcdfm262^^122^137^^^^^0^100^4.0^4.5^^1
 ;;^UTILITY(U,$J,19707.17,3468,0)
 ;;=34^Follow to Midline^wcdfm263^^15^30^^^^^0^75^.5^1^^1