- BGP03R ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
- ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
- ;;BGP CMS POST-OPERATIVE INF DXS
- ;
- ; This routine loads Taxonomy BGP CMS POST-OPERATIVE INF DXS
- ;
- 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,"001.0 ")
- ;;1
- ;;21,"373.13 ")
- ;;2
- ;;21,"376.01 ")
- ;;3
- ;;21,"480.0 ")
- ;;4
- ;;21,"481. ")
- ;;5
- ;;21,"482.0 ")
- ;;6
- ;;21,"483. ")
- ;;7
- ;;21,"484.1 ")
- ;;8
- ;;21,"485. ")
- ;;9
- ;;21,"486. ")
- ;;10
- ;;21,"487.0 ")
- ;;11
- ;;21,"528.3 ")
- ;;12
- ;;21,"528.5 ")
- ;;13
- ;;21,"566. ")
- ;;14
- ;;21,"578.1 ")
- ;;15
- ;;21,"599.0 ")
- ;;16
- ;;21,"604.0 ")
- ;;17
- ;;21,"607.2 ")
- ;;18
- ;;21,"608.4 ")
- ;;19
- ;;21,"616.3 ")
- ;;20
- ;;21,"659.30 ")
- ;;21
- ;;21,"659.33 ")
- ;;22
- ;;21,"674.30 ")
- ;;23
- ;;21,"675.10 ")
- ;;24
- ;;21,"681.00 ")
- ;;25
- ;;21,"682.0 ")
- ;;26
- ;;21,"730.00 ")
- ;;27
- ;;21,"771.4 ")
- ;;28
- ;;21,"771.81 ")
- ;;29
- ;;21,"771.82 ")
- ;;30
- ;;21,"792.1 ")
- ;;31
- ;;21,"996.6 ")
- ;;32
- ;;21,"998.51 ")
- ;;33
- ;;21,"999.3 ")
- ;;34
- ;;9002226,854,.01)
- ;;BGP CMS POST-OPERATIVE INF DXS
- ;;9002226,854,.02)
- ;;@
- ;;9002226,854,.04)
- ;;n
- ;;9002226,854,.06)
- ;;@
- ;;9002226,854,.08)
- ;;0
- ;;9002226,854,.09)
- ;;3070605
- ;;9002226,854,.11)
- ;;@
- ;;9002226,854,.12)
- ;;31
- ;;9002226,854,.13)
- ;;1
- ;;9002226,854,.14)
- ;;@
- ;;9002226,854,.15)
- ;;80
- ;;9002226,854,.16)
- ;;@
- ;;9002226,854,.17)
- ;;@
- ;;9002226,854,3101)
- ;;@
- ;;9002226.02101,"854,001.0 ",.01)
- ;;001.0
- ;;9002226.02101,"854,001.0 ",.02)
- ;;139.8
- ;;9002226.02101,"854,373.13 ",.01)
- ;;373.13
- ;;9002226.02101,"854,373.13 ",.02)
- ;;373.13
- ;;9002226.02101,"854,376.01 ",.01)
- ;;376.01
- ;;9002226.02101,"854,376.01 ",.02)
- ;;376.01
- ;;9002226.02101,"854,480.0 ",.01)
- ;;480.0
- ;;9002226.02101,"854,480.0 ",.02)
- ;;480.9
- ;;9002226.02101,"854,481. ",.01)
- ;;481.
- ;;9002226.02101,"854,481. ",.02)
- ;;481.
- ;;9002226.02101,"854,482.0 ",.01)
- ;;482.0
- ;;9002226.02101,"854,482.0 ",.02)
- ;;482.9
- ;;9002226.02101,"854,483. ",.01)
- ;;483.
- ;;9002226.02101,"854,483. ",.02)
- ;;483.8
- ;;9002226.02101,"854,484.1 ",.01)
- ;;484.1
- ;;9002226.02101,"854,484.1 ",.02)
- ;;484.8
- ;;9002226.02101,"854,485. ",.01)
- ;;485.
- ;;9002226.02101,"854,485. ",.02)
- ;;485.
- ;;9002226.02101,"854,486. ",.01)
- ;;486.
- ;;9002226.02101,"854,486. ",.02)
- ;;486.
- ;;9002226.02101,"854,487.0 ",.01)
- ;;487.0
- ;;9002226.02101,"854,487.0 ",.02)
- ;;487.0
- ;;9002226.02101,"854,528.3 ",.01)
- ;;528.3
- ;;9002226.02101,"854,528.3 ",.02)
- ;;528.3
- ;;9002226.02101,"854,528.5 ",.01)
- ;;528.5
- ;;9002226.02101,"854,528.5 ",.02)
- ;;528.5
- ;;9002226.02101,"854,566. ",.01)
- ;;566.
- ;;9002226.02101,"854,566. ",.02)
- ;;566.
- ;;9002226.02101,"854,578.1 ",.01)
- ;;578.1
- ;;9002226.02101,"854,578.1 ",.02)
- ;;578.1
- ;;9002226.02101,"854,599.0 ",.01)
- ;;599.0
- ;;9002226.02101,"854,599.0 ",.02)
- ;;599.0
- ;;9002226.02101,"854,604.0 ",.01)
- ;;604.0
- ;;9002226.02101,"854,604.0 ",.02)
- ;;604.0
- ;;9002226.02101,"854,607.2 ",.01)
- ;;607.2
- ;;9002226.02101,"854,607.2 ",.02)
- ;;607.2
- ;;9002226.02101,"854,608.4 ",.01)
- ;;608.4
- ;;9002226.02101,"854,608.4 ",.02)
- ;;608.4
- ;;9002226.02101,"854,616.3 ",.01)
- ;;616.3
- ;;9002226.02101,"854,616.3 ",.02)
- ;;616.4
- ;;9002226.02101,"854,659.30 ",.01)
- ;;659.30
- ;;9002226.02101,"854,659.30 ",.02)
- ;;659.31
- ;;9002226.02101,"854,659.33 ",.01)
- ;;659.33
- ;;9002226.02101,"854,659.33 ",.02)
- ;;659.33
- ;;9002226.02101,"854,674.30 ",.01)
- ;;674.30
- ;;9002226.02101,"854,674.30 ",.02)
- ;;674.34
- ;;9002226.02101,"854,675.10 ",.01)
- ;;675.10
- ;;9002226.02101,"854,675.10 ",.02)
- ;;675.14
- ;;9002226.02101,"854,681.00 ",.01)
- ;;681.00
- ;;9002226.02101,"854,681.00 ",.02)
- ;;681.11
- ;;9002226.02101,"854,682.0 ",.01)
- ;;682.0
- ;;9002226.02101,"854,682.0 ",.02)
- ;;682.9
- ;;9002226.02101,"854,730.00 ",.01)
- ;;730.00
- ;;9002226.02101,"854,730.00 ",.02)
- ;;730.99
- ;;9002226.02101,"854,771.4 ",.01)
- ;;771.4
- ;;9002226.02101,"854,771.4 ",.02)
- ;;771.4
- ;;9002226.02101,"854,771.81 ",.01)
- ;;771.81
- ;;9002226.02101,"854,771.81 ",.02)
- ;;771.81
- ;;9002226.02101,"854,771.82 ",.01)
- ;;771.82
- ;;9002226.02101,"854,771.82 ",.02)
- ;;771.82
- ;;9002226.02101,"854,792.1 ",.01)
- ;;792.1
- ;;9002226.02101,"854,792.1 ",.02)
- ;;792.1
- ;;9002226.02101,"854,996.6 ",.01)
- ;;996.6
- ;;9002226.02101,"854,996.6 ",.02)
- ;;996.69
- ;;9002226.02101,"854,998.51 ",.01)
- ;;998.51
- ;;9002226.02101,"854,998.51 ",.02)
- ;;998.59
- ;;9002226.02101,"854,999.3 ",.01)
- ;;999.3
- ;;9002226.02101,"854,999.3 ",.02)
- ;;999.3
- ;;
- ;;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
- ;
- OTHER ; OTHER ROUTINES
- D ^BGP03R2
- D ^BGP03R3
- D ^BGP03R4
- D ^BGP03R5
- Q
- BGP03R ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
- +1 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
- +2 ;;BGP CMS POST-OPERATIVE INF DXS
- +3 ;
- +4 ; This routine loads Taxonomy BGP CMS POST-OPERATIVE INF DXS
- +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,"001.0 ")
- +2 ;;1
- +3 ;;21,"373.13 ")
- +4 ;;2
- +5 ;;21,"376.01 ")
- +6 ;;3
- +7 ;;21,"480.0 ")
- +8 ;;4
- +9 ;;21,"481. ")
- +10 ;;5
- +11 ;;21,"482.0 ")
- +12 ;;6
- +13 ;;21,"483. ")
- +14 ;;7
- +15 ;;21,"484.1 ")
- +16 ;;8
- +17 ;;21,"485. ")
- +18 ;;9
- +19 ;;21,"486. ")
- +20 ;;10
- +21 ;;21,"487.0 ")
- +22 ;;11
- +23 ;;21,"528.3 ")
- +24 ;;12
- +25 ;;21,"528.5 ")
- +26 ;;13
- +27 ;;21,"566. ")
- +28 ;;14
- +29 ;;21,"578.1 ")
- +30 ;;15
- +31 ;;21,"599.0 ")
- +32 ;;16
- +33 ;;21,"604.0 ")
- +34 ;;17
- +35 ;;21,"607.2 ")
- +36 ;;18
- +37 ;;21,"608.4 ")
- +38 ;;19
- +39 ;;21,"616.3 ")
- +40 ;;20
- +41 ;;21,"659.30 ")
- +42 ;;21
- +43 ;;21,"659.33 ")
- +44 ;;22
- +45 ;;21,"674.30 ")
- +46 ;;23
- +47 ;;21,"675.10 ")
- +48 ;;24
- +49 ;;21,"681.00 ")
- +50 ;;25
- +51 ;;21,"682.0 ")
- +52 ;;26
- +53 ;;21,"730.00 ")
- +54 ;;27
- +55 ;;21,"771.4 ")
- +56 ;;28
- +57 ;;21,"771.81 ")
- +58 ;;29
- +59 ;;21,"771.82 ")
- +60 ;;30
- +61 ;;21,"792.1 ")
- +62 ;;31
- +63 ;;21,"996.6 ")
- +64 ;;32
- +65 ;;21,"998.51 ")
- +66 ;;33
- +67 ;;21,"999.3 ")
- +68 ;;34
- +69 ;;9002226,854,.01)
- +70 ;;BGP CMS POST-OPERATIVE INF DXS
- +71 ;;9002226,854,.02)
- +72 ;;@
- +73 ;;9002226,854,.04)
- +74 ;;n
- +75 ;;9002226,854,.06)
- +76 ;;@
- +77 ;;9002226,854,.08)
- +78 ;;0
- +79 ;;9002226,854,.09)
- +80 ;;3070605
- +81 ;;9002226,854,.11)
- +82 ;;@
- +83 ;;9002226,854,.12)
- +84 ;;31
- +85 ;;9002226,854,.13)
- +86 ;;1
- +87 ;;9002226,854,.14)
- +88 ;;@
- +89 ;;9002226,854,.15)
- +90 ;;80
- +91 ;;9002226,854,.16)
- +92 ;;@
- +93 ;;9002226,854,.17)
- +94 ;;@
- +95 ;;9002226,854,3101)
- +96 ;;@
- +97 ;;9002226.02101,"854,001.0 ",.01)
- +98 ;;001.0
- +99 ;;9002226.02101,"854,001.0 ",.02)
- +100 ;;139.8
- +101 ;;9002226.02101,"854,373.13 ",.01)
- +102 ;;373.13
- +103 ;;9002226.02101,"854,373.13 ",.02)
- +104 ;;373.13
- +105 ;;9002226.02101,"854,376.01 ",.01)
- +106 ;;376.01
- +107 ;;9002226.02101,"854,376.01 ",.02)
- +108 ;;376.01
- +109 ;;9002226.02101,"854,480.0 ",.01)
- +110 ;;480.0
- +111 ;;9002226.02101,"854,480.0 ",.02)
- +112 ;;480.9
- +113 ;;9002226.02101,"854,481. ",.01)
- +114 ;;481.
- +115 ;;9002226.02101,"854,481. ",.02)
- +116 ;;481.
- +117 ;;9002226.02101,"854,482.0 ",.01)
- +118 ;;482.0
- +119 ;;9002226.02101,"854,482.0 ",.02)
- +120 ;;482.9
- +121 ;;9002226.02101,"854,483. ",.01)
- +122 ;;483.
- +123 ;;9002226.02101,"854,483. ",.02)
- +124 ;;483.8
- +125 ;;9002226.02101,"854,484.1 ",.01)
- +126 ;;484.1
- +127 ;;9002226.02101,"854,484.1 ",.02)
- +128 ;;484.8
- +129 ;;9002226.02101,"854,485. ",.01)
- +130 ;;485.
- +131 ;;9002226.02101,"854,485. ",.02)
- +132 ;;485.
- +133 ;;9002226.02101,"854,486. ",.01)
- +134 ;;486.
- +135 ;;9002226.02101,"854,486. ",.02)
- +136 ;;486.
- +137 ;;9002226.02101,"854,487.0 ",.01)
- +138 ;;487.0
- +139 ;;9002226.02101,"854,487.0 ",.02)
- +140 ;;487.0
- +141 ;;9002226.02101,"854,528.3 ",.01)
- +142 ;;528.3
- +143 ;;9002226.02101,"854,528.3 ",.02)
- +144 ;;528.3
- +145 ;;9002226.02101,"854,528.5 ",.01)
- +146 ;;528.5
- +147 ;;9002226.02101,"854,528.5 ",.02)
- +148 ;;528.5
- +149 ;;9002226.02101,"854,566. ",.01)
- +150 ;;566.
- +151 ;;9002226.02101,"854,566. ",.02)
- +152 ;;566.
- +153 ;;9002226.02101,"854,578.1 ",.01)
- +154 ;;578.1
- +155 ;;9002226.02101,"854,578.1 ",.02)
- +156 ;;578.1
- +157 ;;9002226.02101,"854,599.0 ",.01)
- +158 ;;599.0
- +159 ;;9002226.02101,"854,599.0 ",.02)
- +160 ;;599.0
- +161 ;;9002226.02101,"854,604.0 ",.01)
- +162 ;;604.0
- +163 ;;9002226.02101,"854,604.0 ",.02)
- +164 ;;604.0
- +165 ;;9002226.02101,"854,607.2 ",.01)
- +166 ;;607.2
- +167 ;;9002226.02101,"854,607.2 ",.02)
- +168 ;;607.2
- +169 ;;9002226.02101,"854,608.4 ",.01)
- +170 ;;608.4
- +171 ;;9002226.02101,"854,608.4 ",.02)
- +172 ;;608.4
- +173 ;;9002226.02101,"854,616.3 ",.01)
- +174 ;;616.3
- +175 ;;9002226.02101,"854,616.3 ",.02)
- +176 ;;616.4
- +177 ;;9002226.02101,"854,659.30 ",.01)
- +178 ;;659.30
- +179 ;;9002226.02101,"854,659.30 ",.02)
- +180 ;;659.31
- +181 ;;9002226.02101,"854,659.33 ",.01)
- +182 ;;659.33
- +183 ;;9002226.02101,"854,659.33 ",.02)
- +184 ;;659.33
- +185 ;;9002226.02101,"854,674.30 ",.01)
- +186 ;;674.30
- +187 ;;9002226.02101,"854,674.30 ",.02)
- +188 ;;674.34
- +189 ;;9002226.02101,"854,675.10 ",.01)
- +190 ;;675.10
- +191 ;;9002226.02101,"854,675.10 ",.02)
- +192 ;;675.14
- +193 ;;9002226.02101,"854,681.00 ",.01)
- +194 ;;681.00
- +195 ;;9002226.02101,"854,681.00 ",.02)
- +196 ;;681.11
- +197 ;;9002226.02101,"854,682.0 ",.01)
- +198 ;;682.0
- +199 ;;9002226.02101,"854,682.0 ",.02)
- +200 ;;682.9
- +201 ;;9002226.02101,"854,730.00 ",.01)
- +202 ;;730.00
- +203 ;;9002226.02101,"854,730.00 ",.02)
- +204 ;;730.99
- +205 ;;9002226.02101,"854,771.4 ",.01)
- +206 ;;771.4
- +207 ;;9002226.02101,"854,771.4 ",.02)
- +208 ;;771.4
- +209 ;;9002226.02101,"854,771.81 ",.01)
- +210 ;;771.81
- +211 ;;9002226.02101,"854,771.81 ",.02)
- +212 ;;771.81
- +213 ;;9002226.02101,"854,771.82 ",.01)
- +214 ;;771.82
- +215 ;;9002226.02101,"854,771.82 ",.02)
- +216 ;;771.82
- +217 ;;9002226.02101,"854,792.1 ",.01)
- +218 ;;792.1
- +219 ;;9002226.02101,"854,792.1 ",.02)
- +220 ;;792.1
- +221 ;;9002226.02101,"854,996.6 ",.01)
- +222 ;;996.6
- +223 ;;9002226.02101,"854,996.6 ",.02)
- +224 ;;996.69
- +225 ;;9002226.02101,"854,998.51 ",.01)
- +226 ;;998.51
- +227 ;;9002226.02101,"854,998.51 ",.02)
- +228 ;;998.59
- +229 ;;9002226.02101,"854,999.3 ",.01)
- +230 ;;999.3
- +231 ;;9002226.02101,"854,999.3 ",.02)
- +232 ;;999.3
- +233 ;;
- +234 ;;3148
- +235 ;;
- +236 ;;897
- +237 ;;
- +238 ;;3191
- +239 ;;
- +240 ;;3196
- +241 ;;
- +242 ;;3197
- +243 ;;
- +244 ;;3149
- +245 ;;
- +246 ;;3150
- +247 ;;
- +248 ;;3151
- +249 ;;
- +250 ;;3208
- +251 ;;
- +252 ;;3209
- +253 ;;
- +254 ;;3435
- +255 ;;
- +256 ;;3436
- +257 ;;
- +258 ;;584
- +259 ;;
- +260 ;;583
- +261 ;;
- +262 ;;2440
- +263 ;;
- +264 ;;2091
- +265 ;;
- +266 ;;2092
- +267 ;;
- +268 ;;2093
- +269 ;;
- +270 ;;2094
- +271 ;;
- +272 ;;2096
- +273 ;;
- +274 ;;2097
- +275 ;;
- +276 ;;2098
- +277 ;;
- +278 ;;2095
- +279 ;;
- +280 ;;3314
- +281 ;;
- +282 ;;3315
- +283 ;;
- +284 ;;3316
- +285 ;;
- +286 ;;300
- +287 ;;
- +288 ;;298
- +289 ;;
- +290 ;;299
- +291 ;;
- +292 ;;301
- +293 ;;
- +294 ;;3446
- +295 ;;
- +296 ;;3447
- +297 ;;
- +298 ;;3448
- +299 ;;
- +300 ;;3449
- +301 ;;
- +302 ;;3450
- +303 ;;
- +304 ;;3451
- +305 ;;
- +306 ;;3453
- +307 ;;
- +308 ;;3452
- +309 ;;
- +310 ;;296
- +311 ;;
- +312 ;;261
- +313 ;;
- +314 ;;262
- +315 ;;
- +316 ;;263
- +317 ;;
- +318 ;;1223
- +319 ;;
- +320 ;;1224
- +321 ;;
- +322 ;;302
- +323 ;;
- +324 ;;1084
- +325 ;;
- +326 ;;2089
- +327 ;;
- +328 ;;2090
- +329 ;;
- +330 ;;535
- +331 ;;
- +332 ;;536
- +333 ;;
- +334 ;;571
- +335 ;;
- +336 ;;572
- +337 ;;
- +338 ;;2527
- +339 ;;
- +340 ;;58
- +341 ;;
- +342 ;;60
- +343 ;;
- +344 ;;61
- +345 ;;
- +346 ;;63
- +347 ;;
- +348 ;;59
- +349 ;;
- +350 ;;62
- +351 ;;
- +352 ;;1524
- +353 ;;
- +354 ;;1525
- +355 ;;
- +356 ;;826
- +357 ;;
- +358 ;;828
- +359 ;;
- +360 ;;824
- +361 ;;
- +362 ;;825
- +363 ;;
- +364 ;;827
- +365 ;;
- +366 ;;829
- +367 ;;
- +368 ;;2553
- +369 ;;
- +370 ;;2554
- +371 ;;
- +372 ;;2555
- +373 ;;
- +374 ;;2556
- +375 ;;
- +376 ;;2557
- +377 ;;
- +378 ;;2558
- +379 ;;
- +380 ;;2559
- +381 ;;
- +382 ;;2560
- +383 ;;
- +384 ;;844
- +385 ;;
- +386 ;;2985
- +387 ;;
- +388 ;;2986
- +389 ;;
- +390 ;;2987
- +391 ;;
- +392 ;;2988
- +393 ;;
- +394 ;;2989
- +395 ;;
- +396 ;;2990
- +397 ;;
- +398 ;;1581
- +399 ;;
- +400 ;;1582
- +401 ;;
- +402 ;;3401
- +403 ;;
- +404 ;;3402
- +405 ;;
- +406 ;;3400
- +407 ;;
- +408 ;;1374
- +409 ;;
- +410 ;;1375
- +411 ;;
- +412 ;;1376
- +413 ;;
- +414 ;;392
- +415 ;;
- +416 ;;3234
- +417 ;;
- +418 ;;3235
- +419 ;;
- +420 ;;3
- +421 ;;
- +422 ;;4
- +423 ;;
- +424 ;;2911
- +425 ;;
- +426 ;;2912
- +427 ;;
- +428 ;;2913
- +429 ;;
- +430 ;;2914
- +431 ;;
- +432 ;;1115
- +433 ;;
- +434 ;;1116
- +435 ;;
- +436 ;;83
- +437 ;;
- +438 ;;395
- +439 ;;
- +440 ;;393
- +441 ;;
- +442 ;;2371
- +443 ;;
- +444 ;;2372
- +445 ;;
- +446 ;;2373
- +447 ;;
- +448 ;;394
- +449 ;;
- +450 ;;391
- +451 ;;
- +452 ;;1053
- +453 ;;
- +454 ;;2996
- +455 ;;
- +456 ;;2997
- +457 ;;
- +458 ;;2995
- +459 ;;
- +460 ;;1754
- +461 ;;
- +462 ;;611
- +463 ;;
- +464 ;;613
- +465 ;;
- +466 ;;614
- +467 ;;
- +468 ;;616
- +469 ;;
- +470 ;;1109
- +471 ;;
- +472 ;;1110
- +473 ;;
- +474 ;;1111
- +475 ;;
- +476 ;;1112
- +477 ;;
- +478 ;;1113
- +479 ;;
- +480 ;;1114
- +481 ;;
- +482 ;;1538
- +483 ;;
- +484 ;;3229
- +485 ;;
- +486 ;;3230
- +487 ;;
- +488 ;;3231
- +489 ;;
- +490 ;;612
- +491 ;;
- +492 ;;615
- +493 ;;
- +494 ;;1752
- +495 ;;
- +496 ;;1753
- +497 ;;
- +498 ;;3364
- +499 ;;
- +500 ;;3363
- +501 ;;
- +502 ;;2490
- +503 ;;
- +504 ;;2491
- +505 ;;
- +506 ;;345
- +507 ;;
- +508 ;;346
- +509 ;;
- +510 ;;347
- +511 ;;
- +512 ;;343
- +513 ;;
- +514 ;;344
- +515 ;;
- +516 ;;3225
- +517 ;;
- +518 ;;3226
- +519 ;;
- +520 ;;1105
- +521 ;;
- +522 ;;1106
- +523 ;;
- +524 ;;1107
- +525 ;;
- +526 ;;1108
- +527 ;;
- +528 ;;600
- +529 ;;
- +530 ;;601
- +531 ;;
- +532 ;;599
- +533 ;;
- +534 ;;1698
- +535 ;;
- +536 ;;1699
- +537 ;;
- +538 ;;1700
- +539 ;;
- +540 ;;1701
- +541 ;;
- +542 ;;1702
- +543 ;;
- +544 ;;595
- +545 ;;
- +546 ;;596
- +547 ;;
- +548 ;;597
- +549 ;;
- +550 ;;598
- +551 ;;
- +552 ;;246
- +553 ;;
- +554 ;;247
- +555 ;;
- +556 ;;248
- +557 ;;
- +558 ;;249
- +559 ;;
- +560 ;;250
- +561 ;;
- +562 ;;251
- +563 ;;
- +564 ;;334
- +565 ;;
- +566 ;;335
- +567 ;;
- +568 ;;336
- +569 ;;
- +570 ;;337
- +571 ;;
- +572 ;;338
- +573 ;;
- +574 ;;28
- +575 ;;
- +576 ;;1574
- +577 ;;
- +578 ;;1575
- +579 ;;
- +580 ;;1576
- +581 ;;
- +582 ;;624
- +583 ;;
- +584 ;;625
- +585 ;;
- +586 ;;626
- +587 ;;
- +588 ;;627
- +589 ;;
- +590 ;;348
- +591 ;;
- +592 ;;1052
- +593 ;;
- +594 ;;40
- +595 ;;
- +596 ;;2503
- +597 ;;
- +598 ;;2504
- +599 ;;
- +600 ;;928
- +601 ;;
- +602 ;;2507
- +603 ;;
- +604 ;;2508
- +605 ;;
- +606 ;;1539
- +607 ;;
- +608 ;;929
- +609 ;;
- +610 ;;2505
- +611 ;;
- +612 ;;2506
- +613 ;;
- +614 ;;1353
- +615 ;;
- +616 ;;830
- +617 ;;
- +618 ;;349
- +619 ;;
- +620 ;;1354
- +621 ;;
- +622 ;;1355
- +623 ;;
- +624 ;;1090
- +625 ;;
- +626 ;;1
- +627 ;;
- +628 ;;1091
- +629 ;;
- +630 ;;1092
- +631 ;;
- +632 ;;2345
- +633 ;;
- +634 ;;1051
- +635 ;;
- +636 ;;2346
- +637 ;;
- +638 ;;2347
- +639 ;;
- +640 ;;1639
- +641 ;;
- +642 ;;1640
- +643 ;;
- +644 ;;1638
- +645 ;;
- +646 ;;1688
- +647 ;;
- +648 ;;1687
- +649 ;;
- +650 ;;85
- +651 ;;
- +652 ;;86
- +653 ;;
- +654 ;;84
- +655 ;;
- +656 ;;88
- +657 ;;
- +658 ;;89
- +659 ;;
- +660 ;;90
- +661 ;;
- +662 ;;87
- +663 ;;
- +664 ;;91
- +665 ;;
- +666 ;;2568
- +667 ;;
- +668 ;;2569
- +669 ;;
- +670 ;;2991
- +671 ;;
- +672 ;;2992
- +673 ;;
- +674 ;;2993
- +675 ;;
- +676 ;;2994
- +677 ;;
- +678 ;;2565
- +679 ;;
- +680 ;;2566
- +681 ;;
- +682 ;;2567
- +683 ;;
- +684 ;;2131
- +685 ;;
- +686 ;;2132
- +687 ;;
- +688 ;;2127
- +689 ;;
- +690 ;;2128
- +691 ;;
- +692 ;;2129
- +693 ;;
- +694 ;;2130
- +695 ;;
- +696 ;;950
- +697 ;;
- +698 ;;951
- +699 ;;
- +700 ;;948
- +701 ;;
- +702 ;;949
- +703 ;;
- +704 ;;1283
- +705 ;;
- +706 ;;1284
- +707 ;;
- +708 ;;1809
- +709 ;;
- +710 ;;1810
- +711 ;;
- +712 ;;1811
- +713 ;;
- +714 ;;1812
- +715 ;;
- +716 ;;1813
- +717 ;;
- +718 ;;1814
- +719 ;;
- +720 ;;3379
- +721 ;;
- +722 ;;3380
- +723 ;;
- +724 ;;3381
- +725 ;;
- +726 ;;2121
- +727 ;;
- +728 ;;2122
- +729 ;;
- +730 ;;2123
- +731 ;;
- +732 ;;2124
- +733 ;;
- +734 ;;2125
- +735 ;;
- +736 ;;2126
- +737 ;;
- +738 ;;943
- +739 ;;
- +740 ;;944
- +741 ;;
- +742 ;;942
- +743 ;;
- +744 ;;946
- +745 ;;
- +746 ;;947
- +747 ;;
- +748 ;;945
- +749 ;;
- +750 ;;1054
- +751 ;;
- +752 ;;2528
- +753 ;;
- +754 ;;2529
- +755 ;;
- +756 ;;2530
- +757 ;;
- +758 ;;2531
- +759 ;;
- +760 ;;2532
- +761 ;;
- +762 ;;2533
- +763 ;;
- +764 ;;2976
- +765 ;;
- +766 ;;2977
- +767 ;;
- +768 ;;2978
- +769 ;;
- +770 ;;2979
- +771 ;;
- +772 ;;67
- +773 ;;
- +774 ;;2909
- +775 ;;
- +776 ;;2910
- +777 ;;
- +778 ;;64
- +779 ;;
- +780 ;;65
- +781 ;;
- +782 ;;66
- +783 ;;
- +784 ;;2
- +785 ;;
- +786 ;;1757
- +787 ;;
- +788 ;;1755
- +789 ;;
- +790 ;;1756
- +791 ;;
- +792 ;;923
- +793 ;;
- +794 ;;1760
- +795 ;;
- +796 ;;1758
- +797 ;;
- +798 ;;1759
- +799 ;;
- +800 ;;1763
- +801 ;;
- +802 ;;1762
- +803 ;;
- +804 ;;1761
- +805 ;;
- +806 ;;2492
- +807 ;;
- +808 ;;2494
- +809 ;;
- +810 ;;2496
- +811 ;;
- +812 ;;2495
- +813 ;;
- +814 ;;2493
- +815 ;;
- +816 ;;2497
- +817 ;;
- +818 ;;813
- +819 ;;
- +820 ;;815
- +821 ;;
- +822 ;;818
- +823 ;;
- +824 ;;814
- +825 ;;
- +826 ;;816
- +827 ;;
- +828 ;;817
- +829 ;;
- +830 ;;1779
- +831 ;;
- +832 ;;1780
- +833 ;;
- +834 ;;3190
- +835 ;;
- +836 ;;1078
- +837 ;;
- +838 ;;1079
- +839 ;;
- +840 ;;617
- +841 ;;
- +842 ;;618
- +843 ;;
- +844 ;;619
- +845 ;;
- +846 ;;620
- +847 ;;
- +848 ;;2335
- +849 ;;
- +850 ;;2336
- +851 ;;
- +852 ;;2337
- +853 ;;
- +854 ;;2338
- +855 ;;
- +856 ;;621
- +857 ;;
- +858 ;;1087
- +859 ;;
- +860 ;;1088
- +861 ;;
- +862 ;;1089
- +863 ;;
- +864 ;;1764
- +865 ;;
- +866 ;;1765
- +867 ;;
- +868 ;;1766
- +869 ;;
- +870 ;;1767
- +871 ;;
- +872 ;;1347
- +873 ;;
- +874 ;;1348
- +875 ;;
- +876 ;;1349
- +877 ;;
- +878 ;;1571
- +879 ;;
- +880 ;;1572
- +881 ;;
- +882 ;;1573
- +883 ;;
- +884 ;;2964
- +885 ;;
- +886 ;;2965
- +887 ;;
- +888 ;;2966
- +889 ;;
- +890 ;;2499
- +891 ;;
- +892 ;;2500
- +893 ;;
- +894 ;;2501
- +895 ;;
- +896 ;;2498
- +897 ;;
- +898 ;;35
- +899 ;;
- +900 ;;36
- +901 ;;
- +902 ;;37
- +903 ;;
- +904 ;;81
- +905 ;;
- +906 ;;82
- +907 ;;
- +908 ;;3397
- +909 ;;
- +910 ;;3398
- +911 ;;
- +912 ;;3399
- +913 ;;
- +914 ;;1578
- +915 ;;
- +916 ;;1579
- +917 ;;
- +918 ;;1580
- +919 ;;
- +920 ;;1815
- +921 ;;
- +922 ;;1816
- +923 ;;
- +924 ;;1817
- +925 ;;
- +926 ;;1818
- +927 ;;
- +928 ;;1819
- +929 ;;
- +930 ;;641
- +931 ;;
- +932 ;;642
- +933 ;;
- +934 ;;643
- +935 ;;
- +936 ;;2363
- +937 ;;
- +938 ;;2365
- +939 ;;
- +940 ;;2367
- +941 ;;
- +942 ;;2369
- +943 ;;
- +944 ;;2364
- +945 ;;
- +946 ;;2366
- +947 ;;
- +948 ;;2368
- +949 ;;
- +950 ;;2370
- +951 ;;
- +952 ;;841
- +953 ;;
- +954 ;;842
- +955 ;;
- +956 ;;843
- +957 ;;
- +958 ;;840
- +959 ;;
- +960 ;;2538
- +961 ;;
- +962 ;;2534
- +963 ;;
- +964 ;;2535
- +965 ;;
- +966 ;;2536
- +967 ;;
- +968 ;;2537
- +969 ;;
- +970 ;;2984
- +971 ;;
- +972 ;;2981
- +973 ;;
- +974 ;;2982
- +975 ;;
- +976 ;;2980
- +977 ;;
- +978 ;;2983
- +979 ;;
- +980 ;;1371
- +981 ;;
- +982 ;;1372
- +983 ;;
- +984 ;;1373
- +985 ;;
- +986 ;;937
- +987 ;;
- +988 ;;938
- +989 ;;
- +990 ;;939
- +991 ;;
- +992 ;;1083
- +993 ;;
- +994 ;;1081
- +995 ;;
- +996 ;;1082
- +997 ;;
- +998 ;;350
- +999 ;;
- +1000 ;;3232
- +1001 ;;
- +1002 ;;3233
- +1003 ;;
- +1004 ;;1772
- +1005 ;;
- +1006 ;;1773
- +1007 ;;
- +1008 ;;1774
- +1009 ;;
- +1010 ;;1775
- +1011 ;;
- +1012 ;;1776
- +1013 ;;
- +1014 ;;1777
- +1015 ;;
- +1016 ;;3593
- +1017 ;;
- +1018 ;;3594
- +1019 ;;
- +1020 ;;3595
- +1021 ;;
- +1022 ;;1894
- +1023 ;;
- +1024 ;;1895
- +1025 ;;
- +1026 ;;1896
- +1027 ;;
- +1028 ;;1897
- +1029 ;;
- +1030 ;;1898
- +1031 ;;
- +1032 ;;1899
- +1033 ;;
- +1034 ;;1900
- +1035 ;;
- +1036 ;;1901
- +1037 ;;
- +1038 ;;2840
- +1039 ;;
- +1040 ;;2841
- +1041 ;;
- +1042 ;;2842
- +1043 ;;
- +1044 ;;2843
- +1045 ;;
- +1046 ;;2845
- +1047 ;;
- +1048 ;;2846
- +1049 ;;
- +1050 ;;570
- +1051 ;;
- +1052 ;;515
- +1053 ;;
- +1054 ;;516
- +1055 ;;
- +1056 ;;517
- +1057 ;;
- +1058 ;;518
- +1059 ;;
- +1060 ;;1912
- +1061 ;;
- +1062 ;;1902
- +1063 ;;
- +1064 ;;1903
- +1065 ;;
- +1066 ;;1904
- +1067 ;;
- +1068 ;;1905
- +1069 ;;
- +1070 ;;1906
- +1071 ;;
- +1072 ;;1907
- +1073 ;;
- +1074 ;;1908
- +1075 ;;
- +1076 ;;1909
- +1077 ;;
- +1078 ;;1910
- +1079 ;;
- +1080 ;;1911
- +1081 ;;
- +1082 ;;2839
- +1083 ;;
- +1084 ;;2834
- +1085 ;;
- +1086 ;;2835
- +1087 ;;
- +1088 ;;2836
- +1089 ;;
- +1090 ;;2837
- +1091 ;;
- +1092 ;;2838
- +1093 ;;
- +1094 ;;3110
- +1095 ;;
- +1096 ;;3111
- +1097 ;;
- +1098 ;;3112
- +1099 ;;
- +1100 ;;3113
- +1101 ;;
- +1102 ;;3114
- +1103 ;;
- +1104 ;;3115
- +1105 ;;
- +1106 ;;3354
- +1107 ;;
- +1108 ;;1487
- +1109 ;;
- +1110 ;;1488
- +1111 ;;
- +1112 ;;209
- +1113 ;;
- +1114 ;;210
- +1115 ;;
- +1116 ;;211
- +1117 ;;
- +1118 ;;212
- +1119 ;;
- +1120 ;;1888
- +1121 ;;
- +1122 ;;1889
- +1123 ;;
- +1124 ;;1890
- +1125 ;;
- +1126 ;;1891
- +1127 ;;
- +1128 ;;1892
- +1129 ;;
- +1130 ;;1893
- +1131 ;;
- +1132 ;;776
- +1133 ;;
- +1134 ;;777
- +1135 ;;
- +1136 ;;778
- +1137 ;;
- +1138 ;;779
- +1139 ;;
- +1140 ;;1189
- +1141 ;;
- +1142 ;;1190
- +1143 ;;
- +1144 ;;1191
- +1145 ;;
- +1146 ;;1192
- +1147 ;;
- +1148 ;;1193
- +1149 ;;
- +1150 ;;1194
- +1151 ;;
- +1152 ;;1195
- +1153 ;;
- +1154 ;;1196
- +1155 ;;
- +1156 ;;1197
- +1157 ;;
- +1158 ;;3378
- +1159 ;;
- +1160 ;;1281
- +1161 ;;
- +1162 ;;1279
- +1163 ;;
- +1164 ;;1282
- +1165 ;;
- +1166 ;;1280
- +1167 ;;
- +1168 ;;885
- +1169 ;;
- +1170 ;;886
- +1171 ;;
- +1172 ;;887
- +1173 ;;
- +1174 ;;888
- +1175 ;;
- +1176 ;;889
- +1177 ;;
- +1178 ;;2415
- +1179 ;;
- +1180 ;;2416
- +1181 ;;
- +1182 ;;3116
- +1183 ;;
- +1184 ;;3109
- +1185 ;;
- +1186 ;;207
- +1187 ;;
- +1188 ;;208
- +1189 ;;
- +1190 ;;770
- +1191 ;;
- +1192 ;;771
- +1193 ;;
- +1194 ;;774
- +1195 ;;
- +1196 ;;1613
- +1197 ;;
- +1198 ;;293
- +1199 ;;
- +1200 ;;781
- +1201 ;;
- +1202 ;;3295
- +1203 ;;
- +1204 ;;3588
- +1205 ;;
- +1206 ;;3589
- +1207 ;;
- +1208 ;;3590
- +1209 ;;
- +1210 ;;3591
- +1211 ;;
- +1212 ;;3592
- +1213 ;;
- +1214 ;;884
- +1215 ;;
- +1216 ;;1323
- +1217 ;;
- +1218 ;;920
- +1219 ;;
- +1220 ;;206
- +1221 ;;
- +1222 ;;3366
- +1223 ;;
- +1224 ;;3367
- +1225 ;;
- +1226 ;;3368
- +1227 ;;
- +1228 ;;3369
- +1229 ;;
- +1230 ;;51
- +1231 ;;
- +1232 ;;52
- +1233 ;;
- +1234 ;;53
- +1235 ;;
- +1236 ;;50
- +1237 ;;
- +1238 ;;55
- +1239 ;;
- +1240 ;;56
- +1241 ;;
- +1242 ;;57
- +1243 ;;
- +1244 ;;54
- +1245 ;;
- +1246 ;;832
- +1247 ;;
- +1248 ;;2907
- +1249 ;;
- +1250 ;;2908
- +1251 ;;
- +1252 ;;2151
- +1253 ;;
- +1254 ;;644
- +1255 ;;
- +1256 ;;645
- +1257 ;;
- +1258 ;;646
- +1259 ;;
- +1260 ;;1820
- +1261 ;;
- +1262 ;;1821
- +1263 ;;
- +1264 ;;1822
- +1265 ;;
- +1266 ;;1824
- +1267 ;;
- +1268 ;;1823
- +1269 ;;
- +1270 ;;1825
- +1271 ;;
- +1272 ;;1826
- +1273 ;;
- +1274 ;;940
- +1275 ;;
- +1276 ;;941
- +1277 ;;
- +1278 ;;1377
- +1279 ;;
- +1280 ;;1378
- +1281 ;;
- +1282 ;;2561
- +1283 ;;
- +1284 ;;2562
- +1285 ;;
- +1286 ;;2563
- +1287 ;;
- +1288 ;;2564
- +1289 ;;
- +1290 ;;1583
- +1291 ;;
- +1292 ;;1117
- +1293 ;;
- +1294 ;;1076
- +1295 ;;
- +1296 ;;1077
- +1297 ;;
- +1298 ;;602
- +1299 ;;
- +1300 ;;603
- +1301 ;;
- +1302 ;;604
- +1303 ;;
- +1304 ;;2325
- +1305 ;;
- +1306 ;;2326
- +1307 ;;
- +1308 ;;2327
- +1309 ;;
- +1310 ;;2328
- +1311 ;;
- +1312 ;;1709
- +1313 ;
- OTHER ; OTHER ROUTINES
- +1 DO ^BGP03R2
- +2 DO ^BGP03R3
- +3 DO ^BGP03R4
- +4 DO ^BGP03R5
- +5 QUIT