- BGP0YE ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
- ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
- ;;BGP TOTAL COLECTOMY CPTS
- ;
- ; This routine loads Taxonomy BGP TOTAL COLECTOMY CPTS
- ;
- START ;
- K:'$G(ATXPGMC) ^TMP("ATX",$J)
- S ATXPGMC=$G(ATXPGMC)+1
- F ATXI=1:1 S X=$P($T(TMP+ATXI),";;",2,99) Q:X="" S X="^TMP(""ATX"",$J,"_X,ATXI=ATXI+1,Y=$P($T(TMP+ATXI),";;",2,99) S @X=Y
- D OTHER
- I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2
- I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2
- D KILL^ATXSTX2
- Q
- ;
- TMP ;;TAXONOMY (WITH BULLETIN)
- ;;21,"44150 ")
- ;;1
- ;;21,"44157 ")
- ;;2
- ;;21,"44210 ")
- ;;3
- ;;9002226,527,.01)
- ;;BGP TOTAL COLECTOMY CPTS
- ;;9002226,527,.02)
- ;;@
- ;;9002226,527,.04)
- ;;n
- ;;9002226,527,.06)
- ;;@
- ;;9002226,527,.08)
- ;;0
- ;;9002226,527,.09)
- ;;3070821
- ;;9002226,527,.11)
- ;;@
- ;;9002226,527,.12)
- ;;455
- ;;9002226,527,.13)
- ;;1
- ;;9002226,527,.14)
- ;;@
- ;;9002226,527,.15)
- ;;81
- ;;9002226,527,.16)
- ;;@
- ;;9002226,527,.17)
- ;;@
- ;;9002226,527,3101)
- ;;@
- ;;9002226.02101,"527,44150 ",.01)
- ;;44150
- ;;9002226.02101,"527,44150 ",.02)
- ;;44156
- ;;9002226.02101,"527,44157 ",.01)
- ;;44157
- ;;9002226.02101,"527,44157 ",.02)
- ;;44158
- ;;9002226.02101,"527,44210 ",.01)
- ;;44210
- ;;9002226.02101,"527,44210 ",.02)
- ;;44212
- ;;
- ;;3148
- ;;
- ;;897
- ;;
- ;;3191
- ;;
- ;;3196
- ;;
- ;;3197
- ;;
- ;;3149
- ;;
- ;;3150
- ;;
- ;;3151
- ;;
- ;;3208
- ;;
- ;;3209
- ;;
- ;;3435
- ;;
- ;;3436
- ;;
- ;;584
- ;;
- ;;583
- ;;
- ;;2440
- ;;
- ;;2091
- ;;
- ;;2092
- ;;
- ;;2093
- ;;
- ;;2094
- ;;
- ;;2096
- ;;
- ;;2097
- ;;
- ;;2098
- ;;
- ;;2095
- ;;
- ;;3314
- ;;
- ;;3315
- ;;
- ;;3316
- ;;
- ;;300
- ;;
- ;;298
- ;;
- ;;299
- ;;
- ;;301
- ;;
- ;;3446
- ;;
- ;;3447
- ;;
- ;;3448
- ;;
- ;;3449
- ;;
- ;;3450
- ;;
- ;;3451
- ;;
- ;;3453
- ;;
- ;;3452
- ;;
- ;;296
- ;;
- ;;261
- ;;
- ;;262
- ;;
- ;;263
- ;;
- ;;1223
- ;;
- ;;1224
- ;;
- ;;302
- ;;
- ;;1084
- ;;
- ;;2089
- ;;
- ;;2090
- ;;
- ;;535
- ;;
- ;;536
- ;;
- ;;571
- ;;
- ;;572
- ;;
- ;;2527
- ;;
- ;;58
- ;;
- ;;60
- ;;
- ;;61
- ;;
- ;;63
- ;;
- ;;59
- ;;
- ;;62
- ;;
- ;;1524
- ;;
- ;;1525
- ;;
- ;;826
- ;;
- ;;828
- ;;
- ;;824
- ;;
- ;;825
- ;;
- ;;827
- ;;
- ;;829
- ;;
- ;;2553
- ;;
- ;;2554
- ;;
- ;;2555
- ;;
- ;;2556
- ;;
- ;;2557
- ;;
- ;;2558
- ;;
- ;;2559
- ;;
- ;;2560
- ;;
- ;;844
- ;;
- ;;2985
- ;;
- ;;2986
- ;;
- ;;2987
- ;;
- ;;2988
- ;;
- ;;2989
- ;;
- ;;2990
- ;;
- ;;1581
- ;;
- ;;1582
- ;;
- ;;3401
- ;;
- ;;3402
- ;;
- ;;3400
- ;;
- ;;1374
- ;;
- ;;1375
- ;;
- ;;1376
- ;;
- ;;392
- ;;
- ;;3234
- ;;
- ;;3235
- ;;
- ;;3
- ;;
- ;;4
- ;;
- ;;2911
- ;;
- ;;2912
- ;;
- ;;2913
- ;;
- ;;2914
- ;;
- ;;1115
- ;;
- ;;1116
- ;;
- ;;83
- ;;
- ;;395
- ;;
- ;;393
- ;;
- ;;2371
- ;;
- ;;2372
- ;;
- ;;2373
- ;;
- ;;394
- ;;
- ;;391
- ;;
- ;;1053
- ;;
- ;;2996
- ;;
- ;;2997
- ;;
- ;;2995
- ;;
- ;;1754
- ;;
- ;;611
- ;;
- ;;613
- ;;
- ;;614
- ;;
- ;;616
- ;;
- ;;1109
- ;;
- ;;1110
- ;;
- ;;1111
- ;;
- ;;1112
- ;;
- ;;1113
- ;;
- ;;1114
- ;;
- ;;1538
- ;;
- ;;3229
- ;;
- ;;3230
- ;;
- ;;3231
- ;;
- ;;612
- ;;
- ;;615
- ;;
- ;;1752
- ;;
- ;;1753
- ;;
- ;;3364
- ;;
- ;;3363
- ;;
- ;;2490
- ;;
- ;;2491
- ;;
- ;;345
- ;;
- ;;346
- ;;
- ;;347
- ;;
- ;;343
- ;;
- ;;344
- ;;
- ;;3225
- ;;
- ;;3226
- ;;
- ;;1105
- ;;
- ;;1106
- ;;
- ;;1107
- ;;
- ;;1108
- ;;
- ;;600
- ;;
- ;;601
- ;;
- ;;599
- ;;
- ;;1698
- ;;
- ;;1699
- ;;
- ;;1700
- ;;
- ;;1701
- ;;
- ;;1702
- ;;
- ;;595
- ;;
- ;;596
- ;;
- ;;597
- ;;
- ;;598
- ;;
- ;;246
- ;;
- ;;247
- ;;
- ;;248
- ;;
- ;;249
- ;;
- ;;250
- ;;
- ;;251
- ;;
- ;;334
- ;;
- ;;335
- ;;
- ;;336
- ;;
- ;;337
- ;;
- ;;338
- ;;
- ;;28
- ;;
- ;;1574
- ;;
- ;;1575
- ;;
- ;;1576
- ;;
- ;;624
- ;;
- ;;625
- ;;
- ;;626
- ;;
- ;;627
- ;;
- ;;348
- ;;
- ;;1052
- ;;
- ;;40
- ;;
- ;;2503
- ;;
- ;;2504
- ;;
- ;;928
- ;;
- ;;2507
- ;;
- ;;2508
- ;;
- ;;1539
- ;;
- ;;929
- ;;
- ;;2505
- ;;
- ;;2506
- ;;
- ;;1353
- ;;
- ;;830
- ;;
- ;;349
- ;;
- ;;1354
- ;;
- ;;1355
- ;;
- ;;1090
- ;;
- ;;1
- ;;
- ;;1091
- ;;
- ;;1092
- ;;
- ;;2345
- ;;
- ;;1051
- ;;
- ;;2346
- ;;
- ;;2347
- ;;
- ;;1639
- ;;
- ;;1640
- ;;
- ;;1638
- ;;
- ;;1688
- ;;
- ;;1687
- ;;
- ;;85
- ;;
- ;;86
- ;;
- ;;84
- ;;
- ;;88
- ;;
- ;;89
- ;;
- ;;90
- ;;
- ;;87
- ;;
- ;;91
- ;;
- ;;2568
- ;;
- ;;2569
- ;;
- ;;2991
- ;;
- ;;2992
- ;;
- ;;2993
- ;;
- ;;2994
- ;;
- ;;2565
- ;;
- ;;2566
- ;;
- ;;2567
- ;;
- ;;2131
- ;;
- ;;2132
- ;;
- ;;2127
- ;;
- ;;2128
- ;;
- ;;2129
- ;;
- ;;2130
- ;;
- ;;950
- ;;
- ;;951
- ;;
- ;;948
- ;;
- ;;949
- ;;
- ;;1283
- ;;
- ;;1284
- ;;
- ;;1809
- ;;
- ;;1810
- ;;
- ;;1811
- ;;
- ;;1812
- ;;
- ;;1813
- ;;
- ;;1814
- ;;
- ;;3379
- ;;
- ;;3380
- ;;
- ;;3381
- ;;
- ;;2121
- ;;
- ;;2122
- ;;
- ;;2123
- ;;
- ;;2124
- ;;
- ;;2125
- ;;
- ;;2126
- ;;
- ;;943
- ;;
- ;;944
- ;;
- ;;942
- ;;
- ;;946
- ;;
- ;;947
- ;;
- ;;945
- ;;
- ;;1054
- ;;
- ;;2528
- ;;
- ;;2529
- ;;
- ;;2530
- ;;
- ;;2531
- ;;
- ;;2532
- ;;
- ;;2533
- ;;
- ;;2976
- ;;
- ;;2977
- ;;
- ;;2978
- ;;
- ;;2979
- ;;
- ;;67
- ;;
- ;;2909
- ;;
- ;;2910
- ;;
- ;;64
- ;;
- ;;65
- ;;
- ;;66
- ;;
- ;;2
- ;;
- ;;1757
- ;;
- ;;1755
- ;;
- ;;1756
- ;;
- ;;923
- ;;
- ;;1760
- ;;
- ;;1758
- ;;
- ;;1759
- ;;
- ;;1763
- ;;
- ;;1762
- ;;
- ;;1761
- ;;
- ;;2492
- ;;
- ;;2494
- ;;
- ;;2496
- ;;
- ;;2495
- ;;
- ;;2493
- ;;
- ;;2497
- ;;
- ;;813
- ;;
- ;;815
- ;;
- ;;818
- ;;
- ;;814
- ;;
- ;;816
- ;;
- ;;817
- ;;
- ;;1779
- ;;
- ;;1780
- ;;
- ;;3190
- ;;
- ;;1078
- ;;
- ;;1079
- ;;
- ;;617
- ;;
- ;;618
- ;;
- ;;619
- ;;
- ;;620
- ;;
- ;;2335
- ;;
- ;;2336
- ;;
- ;;2337
- ;;
- ;;2338
- ;;
- ;;621
- ;;
- ;;1087
- ;;
- ;;1088
- ;;
- ;;1089
- ;;
- ;;1764
- ;;
- ;;1765
- ;;
- ;;1766
- ;;
- ;;1767
- ;;
- ;;1347
- ;;
- ;;1348
- ;;
- ;;1349
- ;;
- ;;1571
- ;;
- ;;1572
- ;;
- ;;1573
- ;;
- ;;2964
- ;;
- ;;2965
- ;;
- ;;2966
- ;;
- ;;2499
- ;;
- ;;2500
- ;;
- ;;2501
- ;;
- ;;2498
- ;;
- ;;35
- ;;
- ;;36
- ;;
- ;;37
- ;;
- ;;81
- ;;
- ;;82
- ;;
- ;;3397
- ;;
- ;;3398
- ;;
- ;;3399
- ;;
- ;;1578
- ;;
- ;;1579
- ;;
- ;;1580
- ;;
- ;;1815
- ;;
- ;;1816
- ;;
- ;;1817
- ;;
- ;;1818
- ;;
- ;;1819
- ;;
- ;;641
- ;;
- ;;642
- ;;
- ;;643
- ;;
- ;;2363
- ;;
- ;;2365
- ;;
- ;;2367
- ;;
- ;;2369
- ;;
- ;;2364
- ;;
- ;;2366
- ;;
- ;;2368
- ;;
- ;;2370
- ;;
- ;;841
- ;;
- ;;842
- ;;
- ;;843
- ;;
- ;;840
- ;;
- ;;2538
- ;;
- ;;2534
- ;;
- ;;2535
- ;;
- ;;2536
- ;;
- ;;2537
- ;;
- ;;2984
- ;;
- ;;2981
- ;;
- ;;2982
- ;;
- ;;2980
- ;;
- ;;2983
- ;;
- ;;1371
- ;;
- ;;1372
- ;;
- ;;1373
- ;;
- ;;937
- ;;
- ;;938
- ;;
- ;;939
- ;;
- ;;1083
- ;;
- ;;1081
- ;;
- ;;1082
- ;;
- ;;350
- ;;
- ;;3232
- ;;
- ;;3233
- ;;
- ;;1772
- ;;
- ;;1773
- ;;
- ;;1774
- ;;
- ;;1775
- ;;
- ;;1776
- ;;
- ;;1777
- ;;
- ;;3593
- ;;
- ;;3594
- ;;
- ;;3595
- ;;
- ;;1894
- ;;
- ;;1895
- ;;
- ;;1896
- ;;
- ;;1897
- ;;
- ;;1898
- ;;
- ;;1899
- ;;
- ;;1900
- ;;
- ;;1901
- ;;
- ;;2840
- ;;
- ;;2841
- ;;
- ;;2842
- ;;
- ;;2843
- ;;
- ;;2845
- ;;
- ;;2846
- ;;
- ;;570
- ;;
- ;;515
- ;;
- ;;516
- ;;
- ;;517
- ;;
- ;;518
- ;;
- ;;1912
- ;;
- ;;1902
- ;;
- ;;1903
- ;;
- ;;1904
- ;;
- ;;1905
- ;;
- ;;1906
- ;;
- ;;1907
- ;;
- ;;1908
- ;;
- ;;1909
- ;;
- ;;1910
- ;;
- ;;1911
- ;;
- ;;2839
- ;;
- ;;2834
- ;;
- ;;2835
- ;;
- ;;2836
- ;;
- ;;2837
- ;;
- ;;2838
- ;;
- ;;3110
- ;;
- ;;3111
- ;;
- ;;3112
- ;;
- ;;3113
- ;;
- ;;3114
- ;;
- ;;3115
- ;;
- ;;3354
- ;;
- ;;1487
- ;;
- ;;1488
- ;;
- ;;209
- ;;
- ;;210
- ;;
- ;;211
- ;;
- ;;212
- ;;
- ;;1888
- ;;
- ;;1889
- ;;
- ;;1890
- ;;
- ;;1891
- ;;
- ;;1892
- ;;
- ;;1893
- ;;
- ;;776
- ;;
- ;;777
- ;;
- ;;778
- ;;
- ;;779
- ;;
- ;;1189
- ;;
- ;;1190
- ;;
- ;;1191
- ;;
- ;;1192
- ;;
- ;;1193
- ;;
- ;;1194
- ;;
- ;;1195
- ;;
- ;;1196
- ;;
- ;;1197
- ;;
- ;;3378
- ;;
- ;;1281
- ;;
- ;;1279
- ;;
- ;;1282
- ;;
- ;;1280
- ;;
- ;;885
- ;;
- ;;886
- ;;
- ;;887
- ;;
- ;;888
- ;;
- ;;889
- ;;
- ;;2415
- ;;
- ;;2416
- ;;
- ;;3116
- ;;
- ;;3109
- ;;
- ;;207
- ;;
- ;;208
- ;;
- ;;770
- ;;
- ;;771
- ;;
- ;;774
- ;;
- ;;1613
- ;;
- ;;293
- ;;
- ;;781
- ;;
- ;;3295
- ;;
- ;;3588
- ;;
- ;;3589
- ;;
- ;;3590
- ;;
- ;;3591
- ;;
- ;;3592
- ;;
- ;;884
- ;;
- ;;1323
- ;;
- ;;920
- ;;
- ;;206
- ;;
- ;;3366
- ;;
- ;;3367
- ;;
- ;;3368
- ;;
- ;;3369
- ;;
- ;;51
- ;;
- ;;52
- ;;
- ;;53
- ;;
- ;;50
- ;;
- ;;55
- ;;
- ;;56
- ;;
- ;;57
- ;;
- ;;54
- ;;
- ;;832
- ;;
- ;;2907
- ;;
- ;;2908
- ;;
- ;;2151
- ;;
- ;;644
- ;;
- ;;645
- ;;
- ;;646
- ;;
- ;;1820
- ;;
- ;;1821
- ;;
- ;;1822
- ;;
- ;;1824
- ;;
- ;;1823
- ;;
- ;;1825
- ;;
- ;;1826
- ;;
- ;;940
- ;;
- ;;941
- ;;
- ;;1377
- ;;
- ;;1378
- ;;
- ;;2561
- ;;
- ;;2562
- ;;
- ;;2563
- ;;
- ;;2564
- ;;
- ;;1583
- ;;
- ;;1117
- ;;
- ;;1076
- ;;
- ;;1077
- ;;
- ;;602
- ;;
- ;;603
- ;;
- ;;604
- ;;
- ;;2325
- ;;
- ;;2326
- ;;
- ;;2327
- ;;
- ;;2328
- ;;
- ;;1709
- ;;
- ;;1710
- ;;
- ;;1711
- ;;
- ;;2467
- ;;
- ;;2468
- ;;
- ;;2963
- ;;
- ;;1338
- ;;
- ;;1339
- ;;
- ;;29
- ;;
- ;;1568
- ;;
- ;;1649
- ;;
- ;;1651
- ;;
- ;;1652
- ;;
- ;;1650
- ;;
- ;;1645
- ;;
- ;;1647
- ;;
- ;;1648
- ;;
- ;;1646
- ;;
- ;;1641
- ;;
- ;;1643
- ;;
- ;;1644
- ;;
- ;;1642
- ;;
- ;;1957
- ;;
- ;;1959
- ;;
- ;;1960
- ;;
- ;;1958
- ;;
- ;;1956
- ;;
- ;;1961
- ;;
- ;;1962
- ;;
- ;;1963
- ;;
- ;;1964
- ;;
- ;;1965
- ;;
- ;;1966
- ;;
- ;;1967
- ;;
- ;;1969
- ;;
- ;;1970
- ;;
- ;;1971
- ;;
- ;;1968
- ;;
- ;;1972
- ;;
- ;;1973
- ;;
- ;;749
- ;;
- ;;748
- ;;
- ;;1067
- ;;
- ;;1479
- ;;
- ;;2801
- ;;
- ;;2800
- ;;
- ;;2804
- ;;
- ;;2803
- ;;
- ;;2802
- ;;
- ;;3101
- ;;
- ;;3100
- ;;
- ;;2799
- ;;
- ;;381
- ;;
- ;;382
- ;;
- ;;383
- ;;
- ;;384
- ;;
- ;;386
- ;;
- ;;385
- ;;
- ;;388
- ;;
- ;;387
- ;;
- ;;390
- ;;
- ;;389
- ;;
- ;;628
- ;;
- ;;1778
- ;;
- ;;1080
- ;;
- ;;1356
- ;;
- ;;1540
- ;;
- ;;41
- ;;
- ;;1093
- ;;
- ;;1098
- ;;
- ;;930
- ;;
- ;;2348
- ;;
- ;;3365
- ;;
- ;;3382
- ;;
- ;;1577
- ;;
- ;;2509
- ;;
- ;;2967
- ;;
- ;;3444
- ;;
- ;;351
- ;;
- ;;831
- ;;
- ;;1692
- ;;
- ;;1693
- ;;
- ;;1694
- ;;
- ;;1695
- ;;
- ;;1696
- ;;
- ;;1697
- ;;
- ;;3356
- ;;
- ;;3357
- ;;
- ;;3358
- ;;
- ;;33
- ;;
- ;;34
- ;;
- ;;1344
- ;;
- ;;1345
- ;;
- ;;1346
- ;;
- ;;1016
- ;;
- ;;3194
- ;;
- ;;3203
- ;;
- ;;3204
- ;;
- ;;1536
- ;;
- ;;1531
- ;;
- ;;1532
- ;;
- ;;1533
- ;;
- ;;1534
- ;;
- ;;1535
- ;;
- ;;1541
- ;;
- ;;1542
- ;;
- ;;1939
- ;;
- ;;1940
- ;;
- ;;1786
- ;;
- ;;1787
- ;;
- ;;1788
- ;;
- ;;1789
- ;;
- ;;1781
- ;;
- ;;1782
- ;;
- ;;1783
- ;;
- ;;1784
- ;;
- ;;1785
- ;;
- ;;1938
- ;;
- ;;1944
- ;;
- ;;1945
- ;;
- ;;1941
- ;;
- ;;1790
- ;;
- ;;1791
- ;;
- ;;1792
- ;;
- ;;1793
- ;;
- ;;1794
- ;;
- ;;1795
- ;;
- ;;1796
- ;;
- ;;1942
- ;;
- ;;1797
- ;;
- ;;1943
- ;;
- ;;1954
- ;;
- ;;1955
- ;;
- ;;1946
- ;;
- ;;1798
- ;;
- ;;1947
- ;;
- ;;1799
- ;;
- ;;1800
- ;;
- ;;1948
- ;;
- ;;1949
- ;;
- ;;1801
- ;;
- ;;1802
- ;;
- ;;1950
- ;;
- ;;1951
- ;;
- ;;1803
- ;;
- ;;1804
- ;;
- ;;1805
- ;;
- ;;1952
- ;;
- ;;1806
- ;;
- ;;1807
- ;;
- ;;1808
- ;;
- ;;1953
- ;;
- ;;629
- ;;
- ;;750
- ;;
- ;;630
- ;;
- ;;631
- ;;
- ;;751
- ;;
- ;;632
- ;;
- ;;633
- ;;
- ;;634
- ;;
- ;;635
- ;;
- ;;752
- ;;
- ;;753
- ;;
- ;;636
- ;;
- ;;637
- ;;
- ;;638
- ;;
- ;;639
- ;;
- ;;640
- ;;
- ;;578
- ;;
- ;;579
- ;;
- ;;3170
- ;;
- ;;3171
- ;;
- ;;3181
- ;;
- ;;3182
- ;;
- ;;3183
- ;;
- ;;3184
- ;;
- ;;3185
- ;;
- ;;3186
- ;;
- ;;279
- ;;
- ;;280
- ;;
- ;;2510
- ;;
- ;;2511
- ;;
- ;;2512
- ;;
- ;;2513
- ;;
- ;;2514
- ;;
- ;;2812
- ;;
- ;;2813
- ;;
- ;;2805
- ;;
- ;;2806
- ;;
- ;;2807
- ;;
- ;;2808
- ;;
- ;;2515
- ;;
- ;;2809
- ;;
- ;;2810
- ;;
- ;;2516
- ;;
- ;;2811
- ;;
- ;;3180
- ;;
- ;;3172
- ;;
- ;;3173
- ;;
- ;;3174
- ;;
- ;;3175
- ;;
- ;;3176
- ;;
- ;;3177
- ;;
- ;;3178
- ;;
- ;;3179
- ;;
- ;;2814
- ;;
- ;;2815
- ;;
- ;;2517
- ;;
- ;;2518
- ;;
- ;;2519
- ;;
- ;;2520
- ;;
- ;;2816
- ;;
- ;;2521
- ;;
- ;;2522
- ;;
- ;;2523
- ;;
- ;;2524
- ;;
- ;;2525
- ;;
- ;;2526
- ;;
- ;;2940
- ;;
- ;;931
- ;;
- ;;932
- ;;
- ;;933
- ;;
- ;;934
- ;;
- ;;935
- ;;
- ;;936
- ;;
- ;;1022
- ;;
- ;;1017
- ;;
- ;;1018
- ;;
- ;;1019
- ;;
- ;;1020
- ;
- OTHER ; OTHER ROUTINES
- D ^BGP0YE2
- D ^BGP0YE3
- D ^BGP0YE4
- D ^BGP0YE5
- Q
- BGP0YE ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
- +1 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
- +2 ;;BGP TOTAL COLECTOMY CPTS
- +3 ;
- +4 ; This routine loads Taxonomy BGP TOTAL COLECTOMY CPTS
- +5 ;
- START ;
- +1 IF '$GET(ATXPGMC)
- KILL ^TMP("ATX",$JOB)
- +2 SET ATXPGMC=$GET(ATXPGMC)+1
- +3 FOR ATXI=1:1
- SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)
- IF X=""
- QUIT
- SET X="^TMP(""ATX"",$J,"_X
- SET ATXI=ATXI+1
- SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)
- SET @X=Y
- +4 DO OTHER
- +5 IF $ORDER(^TMP("ATX",$JOB,3.6,0))
- DO BULL^ATXSTX2
- +6 IF $ORDER(^TMP("ATX",$JOB,9002226,0))
- DO TAX^ATXSTX2
- +7 DO KILL^ATXSTX2
- +8 QUIT
- +9 ;
- TMP ;;TAXONOMY (WITH BULLETIN)
- +1 ;;21,"44150 ")
- +2 ;;1
- +3 ;;21,"44157 ")
- +4 ;;2
- +5 ;;21,"44210 ")
- +6 ;;3
- +7 ;;9002226,527,.01)
- +8 ;;BGP TOTAL COLECTOMY CPTS
- +9 ;;9002226,527,.02)
- +10 ;;@
- +11 ;;9002226,527,.04)
- +12 ;;n
- +13 ;;9002226,527,.06)
- +14 ;;@
- +15 ;;9002226,527,.08)
- +16 ;;0
- +17 ;;9002226,527,.09)
- +18 ;;3070821
- +19 ;;9002226,527,.11)
- +20 ;;@
- +21 ;;9002226,527,.12)
- +22 ;;455
- +23 ;;9002226,527,.13)
- +24 ;;1
- +25 ;;9002226,527,.14)
- +26 ;;@
- +27 ;;9002226,527,.15)
- +28 ;;81
- +29 ;;9002226,527,.16)
- +30 ;;@
- +31 ;;9002226,527,.17)
- +32 ;;@
- +33 ;;9002226,527,3101)
- +34 ;;@
- +35 ;;9002226.02101,"527,44150 ",.01)
- +36 ;;44150
- +37 ;;9002226.02101,"527,44150 ",.02)
- +38 ;;44156
- +39 ;;9002226.02101,"527,44157 ",.01)
- +40 ;;44157
- +41 ;;9002226.02101,"527,44157 ",.02)
- +42 ;;44158
- +43 ;;9002226.02101,"527,44210 ",.01)
- +44 ;;44210
- +45 ;;9002226.02101,"527,44210 ",.02)
- +46 ;;44212
- +47 ;;
- +48 ;;3148
- +49 ;;
- +50 ;;897
- +51 ;;
- +52 ;;3191
- +53 ;;
- +54 ;;3196
- +55 ;;
- +56 ;;3197
- +57 ;;
- +58 ;;3149
- +59 ;;
- +60 ;;3150
- +61 ;;
- +62 ;;3151
- +63 ;;
- +64 ;;3208
- +65 ;;
- +66 ;;3209
- +67 ;;
- +68 ;;3435
- +69 ;;
- +70 ;;3436
- +71 ;;
- +72 ;;584
- +73 ;;
- +74 ;;583
- +75 ;;
- +76 ;;2440
- +77 ;;
- +78 ;;2091
- +79 ;;
- +80 ;;2092
- +81 ;;
- +82 ;;2093
- +83 ;;
- +84 ;;2094
- +85 ;;
- +86 ;;2096
- +87 ;;
- +88 ;;2097
- +89 ;;
- +90 ;;2098
- +91 ;;
- +92 ;;2095
- +93 ;;
- +94 ;;3314
- +95 ;;
- +96 ;;3315
- +97 ;;
- +98 ;;3316
- +99 ;;
- +100 ;;300
- +101 ;;
- +102 ;;298
- +103 ;;
- +104 ;;299
- +105 ;;
- +106 ;;301
- +107 ;;
- +108 ;;3446
- +109 ;;
- +110 ;;3447
- +111 ;;
- +112 ;;3448
- +113 ;;
- +114 ;;3449
- +115 ;;
- +116 ;;3450
- +117 ;;
- +118 ;;3451
- +119 ;;
- +120 ;;3453
- +121 ;;
- +122 ;;3452
- +123 ;;
- +124 ;;296
- +125 ;;
- +126 ;;261
- +127 ;;
- +128 ;;262
- +129 ;;
- +130 ;;263
- +131 ;;
- +132 ;;1223
- +133 ;;
- +134 ;;1224
- +135 ;;
- +136 ;;302
- +137 ;;
- +138 ;;1084
- +139 ;;
- +140 ;;2089
- +141 ;;
- +142 ;;2090
- +143 ;;
- +144 ;;535
- +145 ;;
- +146 ;;536
- +147 ;;
- +148 ;;571
- +149 ;;
- +150 ;;572
- +151 ;;
- +152 ;;2527
- +153 ;;
- +154 ;;58
- +155 ;;
- +156 ;;60
- +157 ;;
- +158 ;;61
- +159 ;;
- +160 ;;63
- +161 ;;
- +162 ;;59
- +163 ;;
- +164 ;;62
- +165 ;;
- +166 ;;1524
- +167 ;;
- +168 ;;1525
- +169 ;;
- +170 ;;826
- +171 ;;
- +172 ;;828
- +173 ;;
- +174 ;;824
- +175 ;;
- +176 ;;825
- +177 ;;
- +178 ;;827
- +179 ;;
- +180 ;;829
- +181 ;;
- +182 ;;2553
- +183 ;;
- +184 ;;2554
- +185 ;;
- +186 ;;2555
- +187 ;;
- +188 ;;2556
- +189 ;;
- +190 ;;2557
- +191 ;;
- +192 ;;2558
- +193 ;;
- +194 ;;2559
- +195 ;;
- +196 ;;2560
- +197 ;;
- +198 ;;844
- +199 ;;
- +200 ;;2985
- +201 ;;
- +202 ;;2986
- +203 ;;
- +204 ;;2987
- +205 ;;
- +206 ;;2988
- +207 ;;
- +208 ;;2989
- +209 ;;
- +210 ;;2990
- +211 ;;
- +212 ;;1581
- +213 ;;
- +214 ;;1582
- +215 ;;
- +216 ;;3401
- +217 ;;
- +218 ;;3402
- +219 ;;
- +220 ;;3400
- +221 ;;
- +222 ;;1374
- +223 ;;
- +224 ;;1375
- +225 ;;
- +226 ;;1376
- +227 ;;
- +228 ;;392
- +229 ;;
- +230 ;;3234
- +231 ;;
- +232 ;;3235
- +233 ;;
- +234 ;;3
- +235 ;;
- +236 ;;4
- +237 ;;
- +238 ;;2911
- +239 ;;
- +240 ;;2912
- +241 ;;
- +242 ;;2913
- +243 ;;
- +244 ;;2914
- +245 ;;
- +246 ;;1115
- +247 ;;
- +248 ;;1116
- +249 ;;
- +250 ;;83
- +251 ;;
- +252 ;;395
- +253 ;;
- +254 ;;393
- +255 ;;
- +256 ;;2371
- +257 ;;
- +258 ;;2372
- +259 ;;
- +260 ;;2373
- +261 ;;
- +262 ;;394
- +263 ;;
- +264 ;;391
- +265 ;;
- +266 ;;1053
- +267 ;;
- +268 ;;2996
- +269 ;;
- +270 ;;2997
- +271 ;;
- +272 ;;2995
- +273 ;;
- +274 ;;1754
- +275 ;;
- +276 ;;611
- +277 ;;
- +278 ;;613
- +279 ;;
- +280 ;;614
- +281 ;;
- +282 ;;616
- +283 ;;
- +284 ;;1109
- +285 ;;
- +286 ;;1110
- +287 ;;
- +288 ;;1111
- +289 ;;
- +290 ;;1112
- +291 ;;
- +292 ;;1113
- +293 ;;
- +294 ;;1114
- +295 ;;
- +296 ;;1538
- +297 ;;
- +298 ;;3229
- +299 ;;
- +300 ;;3230
- +301 ;;
- +302 ;;3231
- +303 ;;
- +304 ;;612
- +305 ;;
- +306 ;;615
- +307 ;;
- +308 ;;1752
- +309 ;;
- +310 ;;1753
- +311 ;;
- +312 ;;3364
- +313 ;;
- +314 ;;3363
- +315 ;;
- +316 ;;2490
- +317 ;;
- +318 ;;2491
- +319 ;;
- +320 ;;345
- +321 ;;
- +322 ;;346
- +323 ;;
- +324 ;;347
- +325 ;;
- +326 ;;343
- +327 ;;
- +328 ;;344
- +329 ;;
- +330 ;;3225
- +331 ;;
- +332 ;;3226
- +333 ;;
- +334 ;;1105
- +335 ;;
- +336 ;;1106
- +337 ;;
- +338 ;;1107
- +339 ;;
- +340 ;;1108
- +341 ;;
- +342 ;;600
- +343 ;;
- +344 ;;601
- +345 ;;
- +346 ;;599
- +347 ;;
- +348 ;;1698
- +349 ;;
- +350 ;;1699
- +351 ;;
- +352 ;;1700
- +353 ;;
- +354 ;;1701
- +355 ;;
- +356 ;;1702
- +357 ;;
- +358 ;;595
- +359 ;;
- +360 ;;596
- +361 ;;
- +362 ;;597
- +363 ;;
- +364 ;;598
- +365 ;;
- +366 ;;246
- +367 ;;
- +368 ;;247
- +369 ;;
- +370 ;;248
- +371 ;;
- +372 ;;249
- +373 ;;
- +374 ;;250
- +375 ;;
- +376 ;;251
- +377 ;;
- +378 ;;334
- +379 ;;
- +380 ;;335
- +381 ;;
- +382 ;;336
- +383 ;;
- +384 ;;337
- +385 ;;
- +386 ;;338
- +387 ;;
- +388 ;;28
- +389 ;;
- +390 ;;1574
- +391 ;;
- +392 ;;1575
- +393 ;;
- +394 ;;1576
- +395 ;;
- +396 ;;624
- +397 ;;
- +398 ;;625
- +399 ;;
- +400 ;;626
- +401 ;;
- +402 ;;627
- +403 ;;
- +404 ;;348
- +405 ;;
- +406 ;;1052
- +407 ;;
- +408 ;;40
- +409 ;;
- +410 ;;2503
- +411 ;;
- +412 ;;2504
- +413 ;;
- +414 ;;928
- +415 ;;
- +416 ;;2507
- +417 ;;
- +418 ;;2508
- +419 ;;
- +420 ;;1539
- +421 ;;
- +422 ;;929
- +423 ;;
- +424 ;;2505
- +425 ;;
- +426 ;;2506
- +427 ;;
- +428 ;;1353
- +429 ;;
- +430 ;;830
- +431 ;;
- +432 ;;349
- +433 ;;
- +434 ;;1354
- +435 ;;
- +436 ;;1355
- +437 ;;
- +438 ;;1090
- +439 ;;
- +440 ;;1
- +441 ;;
- +442 ;;1091
- +443 ;;
- +444 ;;1092
- +445 ;;
- +446 ;;2345
- +447 ;;
- +448 ;;1051
- +449 ;;
- +450 ;;2346
- +451 ;;
- +452 ;;2347
- +453 ;;
- +454 ;;1639
- +455 ;;
- +456 ;;1640
- +457 ;;
- +458 ;;1638
- +459 ;;
- +460 ;;1688
- +461 ;;
- +462 ;;1687
- +463 ;;
- +464 ;;85
- +465 ;;
- +466 ;;86
- +467 ;;
- +468 ;;84
- +469 ;;
- +470 ;;88
- +471 ;;
- +472 ;;89
- +473 ;;
- +474 ;;90
- +475 ;;
- +476 ;;87
- +477 ;;
- +478 ;;91
- +479 ;;
- +480 ;;2568
- +481 ;;
- +482 ;;2569
- +483 ;;
- +484 ;;2991
- +485 ;;
- +486 ;;2992
- +487 ;;
- +488 ;;2993
- +489 ;;
- +490 ;;2994
- +491 ;;
- +492 ;;2565
- +493 ;;
- +494 ;;2566
- +495 ;;
- +496 ;;2567
- +497 ;;
- +498 ;;2131
- +499 ;;
- +500 ;;2132
- +501 ;;
- +502 ;;2127
- +503 ;;
- +504 ;;2128
- +505 ;;
- +506 ;;2129
+507 ;;
+508 ;;2130
+509 ;;
+510 ;;950
+511 ;;
+512 ;;951
+513 ;;
+514 ;;948
+515 ;;
+516 ;;949
+517 ;;
+518 ;;1283
+519 ;;
+520 ;;1284
+521 ;;
+522 ;;1809
+523 ;;
+524 ;;1810
+525 ;;
+526 ;;1811
+527 ;;
+528 ;;1812
+529 ;;
+530 ;;1813
+531 ;;
+532 ;;1814
+533 ;;
+534 ;;3379
+535 ;;
+536 ;;3380
+537 ;;
+538 ;;3381
+539 ;;
+540 ;;2121
+541 ;;
+542 ;;2122
+543 ;;
+544 ;;2123
+545 ;;
+546 ;;2124
+547 ;;
+548 ;;2125
+549 ;;
+550 ;;2126
+551 ;;
+552 ;;943
+553 ;;
+554 ;;944
+555 ;;
+556 ;;942
+557 ;;
+558 ;;946
+559 ;;
+560 ;;947
+561 ;;
+562 ;;945
+563 ;;
+564 ;;1054
+565 ;;
+566 ;;2528
+567 ;;
+568 ;;2529
+569 ;;
+570 ;;2530
+571 ;;
+572 ;;2531
+573 ;;
+574 ;;2532
+575 ;;
+576 ;;2533
+577 ;;
+578 ;;2976
+579 ;;
+580 ;;2977
+581 ;;
+582 ;;2978
+583 ;;
+584 ;;2979
+585 ;;
+586 ;;67
+587 ;;
+588 ;;2909
+589 ;;
+590 ;;2910
+591 ;;
+592 ;;64
+593 ;;
+594 ;;65
+595 ;;
+596 ;;66
+597 ;;
+598 ;;2
+599 ;;
+600 ;;1757
+601 ;;
+602 ;;1755
+603 ;;
+604 ;;1756
+605 ;;
+606 ;;923
+607 ;;
+608 ;;1760
+609 ;;
+610 ;;1758
+611 ;;
+612 ;;1759
+613 ;;
+614 ;;1763
+615 ;;
+616 ;;1762
+617 ;;
+618 ;;1761
+619 ;;
+620 ;;2492
+621 ;;
+622 ;;2494
+623 ;;
+624 ;;2496
+625 ;;
+626 ;;2495
+627 ;;
+628 ;;2493
+629 ;;
+630 ;;2497
+631 ;;
+632 ;;813
+633 ;;
+634 ;;815
+635 ;;
+636 ;;818
+637 ;;
+638 ;;814
+639 ;;
+640 ;;816
+641 ;;
+642 ;;817
+643 ;;
+644 ;;1779
+645 ;;
+646 ;;1780
+647 ;;
+648 ;;3190
+649 ;;
+650 ;;1078
+651 ;;
+652 ;;1079
+653 ;;
+654 ;;617
+655 ;;
+656 ;;618
+657 ;;
+658 ;;619
+659 ;;
+660 ;;620
+661 ;;
+662 ;;2335
+663 ;;
+664 ;;2336
+665 ;;
+666 ;;2337
+667 ;;
+668 ;;2338
+669 ;;
+670 ;;621
+671 ;;
+672 ;;1087
+673 ;;
+674 ;;1088
+675 ;;
+676 ;;1089
+677 ;;
+678 ;;1764
+679 ;;
+680 ;;1765
+681 ;;
+682 ;;1766
+683 ;;
+684 ;;1767
+685 ;;
+686 ;;1347
+687 ;;
+688 ;;1348
+689 ;;
+690 ;;1349
+691 ;;
+692 ;;1571
+693 ;;
+694 ;;1572
+695 ;;
+696 ;;1573
+697 ;;
+698 ;;2964
+699 ;;
+700 ;;2965
+701 ;;
+702 ;;2966
+703 ;;
+704 ;;2499
+705 ;;
+706 ;;2500
+707 ;;
+708 ;;2501
+709 ;;
+710 ;;2498
+711 ;;
+712 ;;35
+713 ;;
+714 ;;36
+715 ;;
+716 ;;37
+717 ;;
+718 ;;81
+719 ;;
+720 ;;82
+721 ;;
+722 ;;3397
+723 ;;
+724 ;;3398
+725 ;;
+726 ;;3399
+727 ;;
+728 ;;1578
+729 ;;
+730 ;;1579
+731 ;;
+732 ;;1580
+733 ;;
+734 ;;1815
+735 ;;
+736 ;;1816
+737 ;;
+738 ;;1817
+739 ;;
+740 ;;1818
+741 ;;
+742 ;;1819
+743 ;;
+744 ;;641
+745 ;;
+746 ;;642
+747 ;;
+748 ;;643
+749 ;;
+750 ;;2363
+751 ;;
+752 ;;2365
+753 ;;
+754 ;;2367
+755 ;;
+756 ;;2369
+757 ;;
+758 ;;2364
+759 ;;
+760 ;;2366
+761 ;;
+762 ;;2368
+763 ;;
+764 ;;2370
+765 ;;
+766 ;;841
+767 ;;
+768 ;;842
+769 ;;
+770 ;;843
+771 ;;
+772 ;;840
+773 ;;
+774 ;;2538
+775 ;;
+776 ;;2534
+777 ;;
+778 ;;2535
+779 ;;
+780 ;;2536
+781 ;;
+782 ;;2537
+783 ;;
+784 ;;2984
+785 ;;
+786 ;;2981
+787 ;;
+788 ;;2982
+789 ;;
+790 ;;2980
+791 ;;
+792 ;;2983
+793 ;;
+794 ;;1371
+795 ;;
+796 ;;1372
+797 ;;
+798 ;;1373
+799 ;;
+800 ;;937
+801 ;;
+802 ;;938
+803 ;;
+804 ;;939
+805 ;;
+806 ;;1083
+807 ;;
+808 ;;1081
+809 ;;
+810 ;;1082
+811 ;;
+812 ;;350
+813 ;;
+814 ;;3232
+815 ;;
+816 ;;3233
+817 ;;
+818 ;;1772
+819 ;;
+820 ;;1773
+821 ;;
+822 ;;1774
+823 ;;
+824 ;;1775
+825 ;;
+826 ;;1776
+827 ;;
+828 ;;1777
+829 ;;
+830 ;;3593
+831 ;;
+832 ;;3594
+833 ;;
+834 ;;3595
+835 ;;
+836 ;;1894
+837 ;;
+838 ;;1895
+839 ;;
+840 ;;1896
+841 ;;
+842 ;;1897
+843 ;;
+844 ;;1898
+845 ;;
+846 ;;1899
+847 ;;
+848 ;;1900
+849 ;;
+850 ;;1901
+851 ;;
+852 ;;2840
+853 ;;
+854 ;;2841
+855 ;;
+856 ;;2842
+857 ;;
+858 ;;2843
+859 ;;
+860 ;;2845
+861 ;;
+862 ;;2846
+863 ;;
+864 ;;570
+865 ;;
+866 ;;515
+867 ;;
+868 ;;516
+869 ;;
+870 ;;517
+871 ;;
+872 ;;518
+873 ;;
+874 ;;1912
+875 ;;
+876 ;;1902
+877 ;;
+878 ;;1903
+879 ;;
+880 ;;1904
+881 ;;
+882 ;;1905
+883 ;;
+884 ;;1906
+885 ;;
+886 ;;1907
+887 ;;
+888 ;;1908
+889 ;;
+890 ;;1909
+891 ;;
+892 ;;1910
+893 ;;
+894 ;;1911
+895 ;;
+896 ;;2839
+897 ;;
+898 ;;2834
+899 ;;
+900 ;;2835
+901 ;;
+902 ;;2836
+903 ;;
+904 ;;2837
+905 ;;
+906 ;;2838
+907 ;;
+908 ;;3110
+909 ;;
+910 ;;3111
+911 ;;
+912 ;;3112
+913 ;;
+914 ;;3113
+915 ;;
+916 ;;3114
+917 ;;
+918 ;;3115
+919 ;;
+920 ;;3354
+921 ;;
+922 ;;1487
+923 ;;
+924 ;;1488
+925 ;;
+926 ;;209
+927 ;;
+928 ;;210
+929 ;;
+930 ;;211
+931 ;;
+932 ;;212
+933 ;;
+934 ;;1888
+935 ;;
+936 ;;1889
+937 ;;
+938 ;;1890
+939 ;;
+940 ;;1891
+941 ;;
+942 ;;1892
+943 ;;
+944 ;;1893
+945 ;;
+946 ;;776
+947 ;;
+948 ;;777
+949 ;;
+950 ;;778
+951 ;;
+952 ;;779
+953 ;;
+954 ;;1189
+955 ;;
+956 ;;1190
+957 ;;
+958 ;;1191
+959 ;;
+960 ;;1192
+961 ;;
+962 ;;1193
+963 ;;
+964 ;;1194
+965 ;;
+966 ;;1195
+967 ;;
+968 ;;1196
+969 ;;
+970 ;;1197
+971 ;;
+972 ;;3378
+973 ;;
+974 ;;1281
+975 ;;
+976 ;;1279
+977 ;;
+978 ;;1282
+979 ;;
+980 ;;1280
+981 ;;
+982 ;;885
+983 ;;
+984 ;;886
+985 ;;
+986 ;;887
+987 ;;
+988 ;;888
+989 ;;
+990 ;;889
+991 ;;
+992 ;;2415
+993 ;;
+994 ;;2416
+995 ;;
+996 ;;3116
+997 ;;
+998 ;;3109
+999 ;;
+1000 ;;207
+1001 ;;
+1002 ;;208
+1003 ;;
+1004 ;;770
+1005 ;;
+1006 ;;771
+1007 ;;
+1008 ;;774
+1009 ;;
+1010 ;;1613
+1011 ;;
+1012 ;;293
+1013 ;;
+1014 ;;781
+1015 ;;
+1016 ;;3295
+1017 ;;
+1018 ;;3588
+1019 ;;
+1020 ;;3589
+1021 ;;
+1022 ;;3590
+1023 ;;
+1024 ;;3591
+1025 ;;
+1026 ;;3592
+1027 ;;
+1028 ;;884
+1029 ;;
+1030 ;;1323
+1031 ;;
+1032 ;;920
+1033 ;;
+1034 ;;206
+1035 ;;
+1036 ;;3366
+1037 ;;
+1038 ;;3367
+1039 ;;
+1040 ;;3368
+1041 ;;
+1042 ;;3369
+1043 ;;
+1044 ;;51
+1045 ;;
+1046 ;;52
+1047 ;;
+1048 ;;53
+1049 ;;
+1050 ;;50
+1051 ;;
+1052 ;;55
+1053 ;;
+1054 ;;56
+1055 ;;
+1056 ;;57
+1057 ;;
+1058 ;;54
+1059 ;;
+1060 ;;832
+1061 ;;
+1062 ;;2907
+1063 ;;
+1064 ;;2908
+1065 ;;
+1066 ;;2151
+1067 ;;
+1068 ;;644
+1069 ;;
+1070 ;;645
+1071 ;;
+1072 ;;646
+1073 ;;
+1074 ;;1820
+1075 ;;
+1076 ;;1821
+1077 ;;
+1078 ;;1822
+1079 ;;
+1080 ;;1824
+1081 ;;
+1082 ;;1823
+1083 ;;
+1084 ;;1825
+1085 ;;
+1086 ;;1826
+1087 ;;
+1088 ;;940
+1089 ;;
+1090 ;;941
+1091 ;;
+1092 ;;1377
+1093 ;;
+1094 ;;1378
+1095 ;;
+1096 ;;2561
+1097 ;;
+1098 ;;2562
+1099 ;;
+1100 ;;2563
+1101 ;;
+1102 ;;2564
+1103 ;;
+1104 ;;1583
+1105 ;;
+1106 ;;1117
+1107 ;;
+1108 ;;1076
+1109 ;;
+1110 ;;1077
+1111 ;;
+1112 ;;602
+1113 ;;
+1114 ;;603
+1115 ;;
+1116 ;;604
+1117 ;;
+1118 ;;2325
+1119 ;;
+1120 ;;2326
+1121 ;;
+1122 ;;2327
+1123 ;;
+1124 ;;2328
+1125 ;;
+1126 ;;1709
+1127 ;;
+1128 ;;1710
+1129 ;;
+1130 ;;1711
+1131 ;;
+1132 ;;2467
+1133 ;;
+1134 ;;2468
+1135 ;;
+1136 ;;2963
+1137 ;;
+1138 ;;1338
+1139 ;;
+1140 ;;1339
+1141 ;;
+1142 ;;29
+1143 ;;
+1144 ;;1568
+1145 ;;
+1146 ;;1649
+1147 ;;
+1148 ;;1651
+1149 ;;
+1150 ;;1652
+1151 ;;
+1152 ;;1650
+1153 ;;
+1154 ;;1645
+1155 ;;
+1156 ;;1647
+1157 ;;
+1158 ;;1648
+1159 ;;
+1160 ;;1646
+1161 ;;
+1162 ;;1641
+1163 ;;
+1164 ;;1643
+1165 ;;
+1166 ;;1644
+1167 ;;
+1168 ;;1642
+1169 ;;
+1170 ;;1957
+1171 ;;
+1172 ;;1959
+1173 ;;
+1174 ;;1960
+1175 ;;
+1176 ;;1958
+1177 ;;
+1178 ;;1956
+1179 ;;
+1180 ;;1961
+1181 ;;
+1182 ;;1962
+1183 ;;
+1184 ;;1963
+1185 ;;
+1186 ;;1964
+1187 ;;
+1188 ;;1965
+1189 ;;
+1190 ;;1966
+1191 ;;
+1192 ;;1967
+1193 ;;
+1194 ;;1969
+1195 ;;
+1196 ;;1970
+1197 ;;
+1198 ;;1971
+1199 ;;
+1200 ;;1968
+1201 ;;
+1202 ;;1972
+1203 ;;
+1204 ;;1973
+1205 ;;
+1206 ;;749
+1207 ;;
+1208 ;;748
+1209 ;;
+1210 ;;1067
+1211 ;;
+1212 ;;1479
+1213 ;;
+1214 ;;2801
+1215 ;;
+1216 ;;2800
+1217 ;;
+1218 ;;2804
+1219 ;;
+1220 ;;2803
+1221 ;;
+1222 ;;2802
+1223 ;;
+1224 ;;3101
+1225 ;;
+1226 ;;3100
+1227 ;;
+1228 ;;2799
+1229 ;;
+1230 ;;381
+1231 ;;
+1232 ;;382
+1233 ;;
+1234 ;;383
+1235 ;;
+1236 ;;384
+1237 ;;
+1238 ;;386
+1239 ;;
+1240 ;;385
+1241 ;;
+1242 ;;388
+1243 ;;
+1244 ;;387
+1245 ;;
+1246 ;;390
+1247 ;;
+1248 ;;389
+1249 ;;
+1250 ;;628
+1251 ;;
+1252 ;;1778
+1253 ;;
+1254 ;;1080
+1255 ;;
+1256 ;;1356
+1257 ;;
+1258 ;;1540
+1259 ;;
+1260 ;;41
+1261 ;;
+1262 ;;1093
+1263 ;;
+1264 ;;1098
+1265 ;;
+1266 ;;930
+1267 ;;
+1268 ;;2348
+1269 ;;
+1270 ;;3365
+1271 ;;
+1272 ;;3382
+1273 ;;
+1274 ;;1577
+1275 ;;
+1276 ;;2509
+1277 ;;
+1278 ;;2967
+1279 ;;
+1280 ;;3444
+1281 ;;
+1282 ;;351
+1283 ;;
+1284 ;;831
+1285 ;;
+1286 ;;1692
+1287 ;;
+1288 ;;1693
+1289 ;;
+1290 ;;1694
+1291 ;;
+1292 ;;1695
+1293 ;;
+1294 ;;1696
+1295 ;;
+1296 ;;1697
+1297 ;;
+1298 ;;3356
+1299 ;;
+1300 ;;3357
+1301 ;;
+1302 ;;3358
+1303 ;;
+1304 ;;33
+1305 ;;
+1306 ;;34
+1307 ;;
+1308 ;;1344
+1309 ;;
+1310 ;;1345
+1311 ;;
+1312 ;;1346
+1313 ;;
+1314 ;;1016
+1315 ;;
+1316 ;;3194
+1317 ;;
+1318 ;;3203
+1319 ;;
+1320 ;;3204
+1321 ;;
+1322 ;;1536
+1323 ;;
+1324 ;;1531
+1325 ;;
+1326 ;;1532
+1327 ;;
+1328 ;;1533
+1329 ;;
+1330 ;;1534
+1331 ;;
+1332 ;;1535
+1333 ;;
+1334 ;;1541
+1335 ;;
+1336 ;;1542
+1337 ;;
+1338 ;;1939
+1339 ;;
+1340 ;;1940
+1341 ;;
+1342 ;;1786
+1343 ;;
+1344 ;;1787
+1345 ;;
+1346 ;;1788
+1347 ;;
+1348 ;;1789
+1349 ;;
+1350 ;;1781
+1351 ;;
+1352 ;;1782
+1353 ;;
+1354 ;;1783
+1355 ;;
+1356 ;;1784
+1357 ;;
+1358 ;;1785
+1359 ;;
+1360 ;;1938
+1361 ;;
+1362 ;;1944
+1363 ;;
+1364 ;;1945
+1365 ;;
+1366 ;;1941
+1367 ;;
+1368 ;;1790
+1369 ;;
+1370 ;;1791
+1371 ;;
+1372 ;;1792
+1373 ;;
+1374 ;;1793
+1375 ;;
+1376 ;;1794
+1377 ;;
+1378 ;;1795
+1379 ;;
+1380 ;;1796
+1381 ;;
+1382 ;;1942
+1383 ;;
+1384 ;;1797
+1385 ;;
+1386 ;;1943
+1387 ;;
+1388 ;;1954
+1389 ;;
+1390 ;;1955
+1391 ;;
+1392 ;;1946
+1393 ;;
+1394 ;;1798
+1395 ;;
+1396 ;;1947
+1397 ;;
+1398 ;;1799
+1399 ;;
+1400 ;;1800
+1401 ;;
+1402 ;;1948
+1403 ;;
+1404 ;;1949
+1405 ;;
+1406 ;;1801
+1407 ;;
+1408 ;;1802
+1409 ;;
+1410 ;;1950
+1411 ;;
+1412 ;;1951
+1413 ;;
+1414 ;;1803
+1415 ;;
+1416 ;;1804
+1417 ;;
+1418 ;;1805
+1419 ;;
+1420 ;;1952
+1421 ;;
+1422 ;;1806
+1423 ;;
+1424 ;;1807
+1425 ;;
+1426 ;;1808
+1427 ;;
+1428 ;;1953
+1429 ;;
+1430 ;;629
+1431 ;;
+1432 ;;750
+1433 ;;
+1434 ;;630
+1435 ;;
+1436 ;;631
+1437 ;;
+1438 ;;751
+1439 ;;
+1440 ;;632
+1441 ;;
+1442 ;;633
+1443 ;;
+1444 ;;634
+1445 ;;
+1446 ;;635
+1447 ;;
+1448 ;;752
+1449 ;;
+1450 ;;753
+1451 ;;
+1452 ;;636
+1453 ;;
+1454 ;;637
+1455 ;;
+1456 ;;638
+1457 ;;
+1458 ;;639
+1459 ;;
+1460 ;;640
+1461 ;;
+1462 ;;578
+1463 ;;
+1464 ;;579
+1465 ;;
+1466 ;;3170
+1467 ;;
+1468 ;;3171
+1469 ;;
+1470 ;;3181
+1471 ;;
+1472 ;;3182
+1473 ;;
+1474 ;;3183
+1475 ;;
+1476 ;;3184
+1477 ;;
+1478 ;;3185
+1479 ;;
+1480 ;;3186
+1481 ;;
+1482 ;;279
+1483 ;;
+1484 ;;280
+1485 ;;
+1486 ;;2510
+1487 ;;
+1488 ;;2511
+1489 ;;
+1490 ;;2512
+1491 ;;
+1492 ;;2513
+1493 ;;
+1494 ;;2514
+1495 ;;
+1496 ;;2812
+1497 ;;
+1498 ;;2813
+1499 ;;
+1500 ;;2805
+1501 ;;
+1502 ;;2806
+1503 ;;
+1504 ;;2807
+1505 ;;
+1506 ;;2808
+1507 ;;
+1508 ;;2515
+1509 ;;
+1510 ;;2809
+1511 ;;
+1512 ;;2810
+1513 ;;
+1514 ;;2516
+1515 ;;
+1516 ;;2811
+1517 ;;
+1518 ;;3180
+1519 ;;
+1520 ;;3172
+1521 ;;
+1522 ;;3173
+1523 ;;
+1524 ;;3174
+1525 ;;
+1526 ;;3175
+1527 ;;
+1528 ;;3176
+1529 ;;
+1530 ;;3177
+1531 ;;
+1532 ;;3178
+1533 ;;
+1534 ;;3179
+1535 ;;
+1536 ;;2814
+1537 ;;
+1538 ;;2815
+1539 ;;
+1540 ;;2517
+1541 ;;
+1542 ;;2518
+1543 ;;
+1544 ;;2519
+1545 ;;
+1546 ;;2520
+1547 ;;
+1548 ;;2816
+1549 ;;
+1550 ;;2521
+1551 ;;
+1552 ;;2522
+1553 ;;
+1554 ;;2523
+1555 ;;
+1556 ;;2524
+1557 ;;
+1558 ;;2525
+1559 ;;
+1560 ;;2526
+1561 ;;
+1562 ;;2940
+1563 ;;
+1564 ;;931
+1565 ;;
+1566 ;;932
+1567 ;;
+1568 ;;933
+1569 ;;
+1570 ;;934
+1571 ;;
+1572 ;;935
+1573 ;;
+1574 ;;936
+1575 ;;
+1576 ;;1022
+1577 ;;
+1578 ;;1017
+1579 ;;
+1580 ;;1018
+1581 ;;
+1582 ;;1019
+1583 ;;
+1584 ;;1020
+1585 ;
OTHER ; OTHER ROUTINES
+1 DO ^BGP0YE2
+2 DO ^BGP0YE3
+3 DO ^BGP0YE4
+4 DO ^BGP0YE5
+5 QUIT