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

VENKI01I.m

Go to the documentation of this file.
VENKI01I ; ; 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,3485,0)
 ;;=34^Imitate Vertical Line^wcdfm280^^793^823^^^^^0^30^26.0^27^^1
 ;;^UTILITY(U,$J,19707.12,3486,0)
 ;;=34^Imitate Vertical Line^wcdfm281^^823^854^^^^^0^35^27.0^28^^1
 ;;^UTILITY(U,$J,19707.12,3487,0)
 ;;=34^Imitate Vertical Line^wcdfm282^^854^884^^^^^0^40^28.0^29^^1
 ;;^UTILITY(U,$J,19707.12,3488,0)
 ;;=34^Imitate Vertical Line^wcdfm283^^884^915^^^^^0^45^29.0^30^^1
 ;;^UTILITY(U,$J,19707.12,3489,0)
 ;;=34^Imitate Vertical Line^wcdfm284^^915^945^^^^^0^50^30.0^31^^1
 ;;^UTILITY(U,$J,19707.12,3490,0)
 ;;=34^Imitate Vertical Line^wcdfm285^^945^976^^^^^0^60^31.0^32^^1
 ;;^UTILITY(U,$J,19707.12,3491,0)
 ;;=34^Imitate Vertical Line^wcdfm286^^976^1006^^^^^0^65^32.0^33^^1
 ;;^UTILITY(U,$J,19707.12,3492,0)
 ;;=34^Imitate Vertical Line^wcdfm287^^1006^1037^^^^^0^70^33.0^34^^1
 ;;^UTILITY(U,$J,19707.12,3493,0)
 ;;=34^Imitate Vertical Line^wcdfm288^^1037^1067^^^^^0^75^34.0^35^^1
 ;;^UTILITY(U,$J,19707.12,3494,0)
 ;;=34^Imitate Vertical Line^wcdfm289^^1067^1098^^^^^0^80^35.0^36^^1
 ;;^UTILITY(U,$J,19707.12,3495,0)
 ;;=34^Imitate Vertical Line^wcdfm290^^1098^1128^^^^^0^80^36.0^37^^1
 ;;^UTILITY(U,$J,19707.12,3496,0)
 ;;=34^Imitate Vertical Line^wcdfm291^^1128^1159^^^^^0^85^37.0^38^^1
 ;;^UTILITY(U,$J,19707.12,3497,0)
 ;;=34^Imitate Vertical Line^wcdfm292^^1159^1189^^^^^0^90^38.0^39^^1
 ;;^UTILITY(U,$J,19707.12,3498,0)
 ;;=34^Imitate Vertical Line^wcdfm293^^1189^1220^^^^^1^100^39.0^40^^1
 ;;^UTILITY(U,$J,19707.12,3499,0)
 ;;=34^Imitate Vertical Line^wcdfm294^^1220^1250^^^^^1^100^40.0^41^^1
 ;;^UTILITY(U,$J,19707.12,3500,0)
 ;;=34^Imitate Vertical Line^wcdfm295^^1250^1281^^^^^1^100^41.0^42^^1
 ;;^UTILITY(U,$J,19707.12,3501,0)
 ;;=34^Look for Yarn^wcdfm296^^152^167^^^^^0^25^5.0^5.5^^1
 ;;^UTILITY(U,$J,19707.12,3502,0)
 ;;=34^Look for Yarn^wcdfm297^^167^183^^^^^0^40^5.5^6^^1
 ;;^UTILITY(U,$J,19707.12,3503,0)
 ;;=34^Look for Yarn^wcdfm298^^183^198^^^^^0^60^6.0^6.5^^1
 ;;^UTILITY(U,$J,19707.12,3504,0)
 ;;=34^Look for Yarn^wcdfm299^^198^213^^^^^0^80^6.5^7^^1
 ;;^UTILITY(U,$J,19707.12,3505,0)
 ;;=34^Look for Yarn^wcdfm300^^213^228^^^^^0^100^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.12,3506,0)
 ;;=34^Pass Cube^wcdfm301^^152^167^^^^^0^25^5.0^5.5^^1
 ;;^UTILITY(U,$J,19707.12,3507,0)
 ;;=34^Pass Cube^wcdfm302^^167^183^^^^^0^40^5.5^6^^1
 ;;^UTILITY(U,$J,19707.12,3508,0)
 ;;=34^Pass Cube^wcdfm303^^183^198^^^^^0^50^6.0^6.5^^1
 ;;^UTILITY(U,$J,19707.12,3509,0)
 ;;=34^Pass Cube^wcdfm304^^198^213^^^^^0^60^6.5^7^^1
 ;;^UTILITY(U,$J,19707.12,3510,0)
 ;;=34^Pass Cube^wcdfm305^^213^228^^^^^0^75^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.12,3511,0)
 ;;=34^Pass Cube^wcdfm306^^228^244^^^^^0^85^7.5^8^^1
 ;;^UTILITY(U,$J,19707.12,3512,0)
 ;;=34^Pass Cube^wcdfm307^^244^259^^^^^0^90^8.0^8.5^^1
 ;;^UTILITY(U,$J,19707.12,3513,0)
 ;;=34^Pass Cube^wcdfm308^^259^274^^^^^0^100^8.5^9^^1
 ;;^UTILITY(U,$J,19707.12,3514,0)
 ;;=34^Pass Cube^wcdfm309^^274^289^^^^^0^100^9.0^9.5^^1
 ;;^UTILITY(U,$J,19707.12,3515,0)
 ;;=34^Pick Longer Line^wcdfm310^^1098^1128^^^^^0^25^36.0^37^^1
 ;;^UTILITY(U,$J,19707.12,3516,0)
 ;;=34^Pick Longer Line^wcdfm311^^1128^1159^^^^^0^30^37.0^38^^1
 ;;^UTILITY(U,$J,19707.12,3517,0)
 ;;=34^Pick Longer Line^wcdfm312^^1159^1189^^^^^0^40^38.0^39^^1
 ;;^UTILITY(U,$J,19707.12,3518,0)
 ;;=34^Pick Longer Line^wcdfm313^^1189^1220^^^^^0^50^39.0^40^^1
 ;;^UTILITY(U,$J,19707.12,3519,0)
 ;;=34^Pick Longer Line^wcdfm314^^1220^1250^^^^^0^55^40.0^41^^1
 ;;^UTILITY(U,$J,19707.12,3520,0)
 ;;=34^Pick Longer Line^wcdfm315^^1250^1281^^^^^0^55^41.0^42^^1
 ;;^UTILITY(U,$J,19707.12,3521,0)
 ;;=34^Pick Longer Line^wcdfm316^^1281^1311^^^^^0^60^42.0^43^^1
 ;;^UTILITY(U,$J,19707.12,3522,0)
 ;;=34^Pick Longer Line^wcdfm317^^1311^1342^^^^^0^60^43.0^44^^1
 ;;^UTILITY(U,$J,19707.12,3523,0)
 ;;=34^Pick Longer Line^wcdfm318^^1342^1372^^^^^0^65^44.0^45^^1
 ;;^UTILITY(U,$J,19707.12,3524,0)
 ;;=34^Pick Longer Line^wcdfm319^^1372^1403^^^^^0^65^45.0^46^^1
 ;;^UTILITY(U,$J,19707.12,3525,0)
 ;;=34^Pick Longer Line^wcdfm320^^1403^1433^^^^^0^70^46.0^47^^1
 ;;^UTILITY(U,$J,19707.12,3526,0)
 ;;=34^Pick Longer Line^wcdfm321^^1433^1464^^^^^0^70^47.0^48^^1
 ;;^UTILITY(U,$J,19707.12,3527,0)
 ;;=34^Pick Longer Line^wcdfm322^^1464^1494^^^^^1^75^48.0^49^^1
 ;;^UTILITY(U,$J,19707.12,3528,0)
 ;;=34^Pick Longer Line^wcdfm323^^1494^1525^^^^^0^80^49.0^50^^1
 ;;^UTILITY(U,$J,19707.12,3529,0)
 ;;=34^Pick Longer Line^wcdfm324^^1525^1555^^^^^1^80^50.0^51^^1
 ;;^UTILITY(U,$J,19707.12,3530,0)
 ;;=34^Pick Longer Line^wcdfm325^^1555^1586^^^^^1^80^51.0^52^^1
 ;;^UTILITY(U,$J,19707.12,3531,0)
 ;;=34^Pick Longer Line^wcdfm326^^1586^1616^^^^^0^80^52.0^53^^1
 ;;^UTILITY(U,$J,19707.12,3532,0)
 ;;=34^Pick Longer Line^wcdfm327^^1616^1647^^^^^0^80^53.0^54^^1
 ;;^UTILITY(U,$J,19707.12,3533,0)
 ;;=34^Pick Longer Line^wcdfm328^^1647^1677^^^^^0^80^54.0^55^^1
 ;;^UTILITY(U,$J,19707.12,3534,0)
 ;;=34^Pick Longer Line^wcdfm329^^1677^1708^^^^^0^80^55.0^56^^1
 ;;^UTILITY(U,$J,19707.12,3535,0)
 ;;=34^Pick Longer Line^wcdfm330^^1708^1738^^^^^0^85^56.0^57^^1
 ;;^UTILITY(U,$J,19707.12,3536,0)
 ;;=34^Pick Longer Line^wcdfm331^^1738^1769^^^^^0^85^57.0^58^^1
 ;;^UTILITY(U,$J,19707.12,3537,0)
 ;;=34^Pick Longer Line^wcdfm332^^1769^1799^^^^^0^85^58.0^59^^1
 ;;^UTILITY(U,$J,19707.12,3538,0)
 ;;=34^Pick Longer Line^wcdfm333^^1799^1830^^^^^0^85^59.0^60^^1
 ;;^UTILITY(U,$J,19707.12,3539,0)
 ;;=34^Pick Longer Line^wcdfm334^^1830^1860^^^^^0^85^60.0^61^^1
 ;;^UTILITY(U,$J,19707.12,3540,0)
 ;;=34^Pick Longer Line^wcdfm335^^1860^1891^^^^^0^85^61.0^62^^1
 ;;^UTILITY(U,$J,19707.12,3541,0)
 ;;=34^Pick Longer Line^wcdfm336^^1891^1921^^^^^0^90^62.0^63^^1
 ;;^UTILITY(U,$J,19707.12,3542,0)
 ;;=34^Pick Longer Line^wcdfm337^^1921^1952^^^^^1^100^63.0^64^^1
 ;;^UTILITY(U,$J,19707.12,3543,0)
 ;;=34^Pick Longer Line^wcdfm338^^1952^1982^^^^^1^100^64.0^65^^1
 ;;^UTILITY(U,$J,19707.12,3544,0)
 ;;=34^Pick Longer Line^wcdfm339^^1982^2013^^^^^1^100^65.0^66^^1
 ;;^UTILITY(U,$J,19707.12,3545,0)
 ;;=34^Put Block in Cup^wcdfm340^^305^320^^^^^0^25^10.0^10.5^^1
 ;;^UTILITY(U,$J,19707.12,3546,0)
 ;;=34^Put Block in Cup^wcdfm341^^320^335^^^^^0^40^10.5^11^^1
 ;;^UTILITY(U,$J,19707.12,3547,0)
 ;;=34^Put Block in Cup^wcdfm342^^335^350^^^^^0^50^11.0^11.5^^1
 ;;^UTILITY(U,$J,19707.12,3548,0)
 ;;=34^Put Block in Cup^wcdfm343^^350^366^^^^^0^60^11.5^12^^1
 ;;^UTILITY(U,$J,19707.12,3549,0)
 ;;=34^Put Block in Cup^wcdfm344^^366^381^^^^^0^70^12.0^12.5^^1
 ;;^UTILITY(U,$J,19707.12,3550,0)
 ;;=34^Put Block in Cup^wcdfm345^^381^396^^^^^0^75^12.5^13^^1
 ;;^UTILITY(U,$J,19707.12,3551,0)
 ;;=34^Put Block in Cup^wcdfm346^^396^411^^^^^0^80^13.0^13.5^^1
 ;;^UTILITY(U,$J,19707.12,3552,0)
 ;;=34^Put Block in Cup^wcdfm347^^411^427^^^^^0^90^13.5^14^^1
 ;;^UTILITY(U,$J,19707.12,3553,0)
 ;;=34^Put Block in Cup^wcdfm348^^427^442^^^^^0^100^14.0^14.5^^1
 ;;^UTILITY(U,$J,19707.12,3554,0)
 ;;=34^Put Block in Cup^wcdfm349^^442^457^^^^^0^100^14.5^15^^1
 ;;^UTILITY(U,$J,19707.12,3555,0)
 ;;=34^Put Block in Cup^wcdfm350^^457^472^^^^^0^100^15.0^15.5^^1
 ;;^UTILITY(U,$J,19707.12,3556,0)
 ;;=34^Put Block in Cup^wcdfm351^^472^488^^^^^0^100^15.5^16^^1
 ;;^UTILITY(U,$J,19707.12,3557,0)
 ;;=34^Put Block in Cup^wcdfm352^^488^503^^^^^1^100^16.0^16.5^^1
 ;;^UTILITY(U,$J,19707.12,3558,0)
 ;;=34^Put Block in Cup^wcdfm353^^503^518^^^^^1^100^16.5^17^^1
 ;;^UTILITY(U,$J,19707.12,3559,0)
 ;;=34^Rake Raisin^wcdfm354^^167^183^^^^^1^25^5.5^6^^1
 ;;^UTILITY(U,$J,19707.12,3560,0)
 ;;=34^Rake Raisin^wcdfm355^^183^198^^^^^1^50^6.0^6.5^^1
 ;;^UTILITY(U,$J,19707.12,3561,0)
 ;;=34^Rake Raisin^wcdfm356^^198^213^^^^^1^75^6.5^7^^1
 ;;^UTILITY(U,$J,19707.12,3562,0)
 ;;=34^Rake Raisin^wcdfm357^^213^228^^^^^1^90^7.0^7.5^^1
 ;;^UTILITY(U,$J,19707.12,3563,0)
 ;;=34^Rake Raisin^wcdfm358^^228^244^^^^^1^100^7.5^8^^1