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

BGP02X.m

Go to the documentation of this file.
  1. BGP02X ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
  1. ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
  1. ;;BGP CMS HEART FAILURE DXS
  1. ;
  1. ; This routine loads Taxonomy BGP CMS HEART FAILURE DXS
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. D OTHER
  1. I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2
  1. I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2
  1. D KILL^ATXSTX2
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;21,"402.01 ")
  1. ;;1
  1. ;;21,"402.11 ")
  1. ;;2
  1. ;;21,"402.91 ")
  1. ;;3
  1. ;;21,"404.01 ")
  1. ;;4
  1. ;;21,"404.03 ")
  1. ;;5
  1. ;;21,"404.11 ")
  1. ;;6
  1. ;;21,"404.13 ")
  1. ;;7
  1. ;;21,"404.91 ")
  1. ;;8
  1. ;;21,"404.93 ")
  1. ;;9
  1. ;;21,"428.0 ")
  1. ;;10
  1. ;;9002226,357,.01)
  1. ;;BGP CMS HEART FAILURE DXS
  1. ;;9002226,357,.02)
  1. ;;@
  1. ;;9002226,357,.04)
  1. ;;n
  1. ;;9002226,357,.06)
  1. ;;@
  1. ;;9002226,357,.08)
  1. ;;0
  1. ;;9002226,357,.09)
  1. ;;3080312
  1. ;;9002226,357,.11)
  1. ;;@
  1. ;;9002226,357,.12)
  1. ;;31
  1. ;;9002226,357,.13)
  1. ;;1
  1. ;;9002226,357,.14)
  1. ;;@
  1. ;;9002226,357,.15)
  1. ;;80
  1. ;;9002226,357,.16)
  1. ;;@
  1. ;;9002226,357,.17)
  1. ;;@
  1. ;;9002226,357,3101)
  1. ;;@
  1. ;;9002226.02101,"357,402.01 ",.01)
  1. ;;402.01
  1. ;;9002226.02101,"357,402.01 ",.02)
  1. ;;402.01
  1. ;;9002226.02101,"357,402.11 ",.01)
  1. ;;402.11
  1. ;;9002226.02101,"357,402.11 ",.02)
  1. ;;402.11
  1. ;;9002226.02101,"357,402.91 ",.01)
  1. ;;402.91
  1. ;;9002226.02101,"357,402.91 ",.02)
  1. ;;402.91
  1. ;;9002226.02101,"357,404.01 ",.01)
  1. ;;404.01
  1. ;;9002226.02101,"357,404.01 ",.02)
  1. ;;404.01
  1. ;;9002226.02101,"357,404.03 ",.01)
  1. ;;404.03
  1. ;;9002226.02101,"357,404.03 ",.02)
  1. ;;404.03
  1. ;;9002226.02101,"357,404.11 ",.01)
  1. ;;404.11
  1. ;;9002226.02101,"357,404.11 ",.02)
  1. ;;404.11
  1. ;;9002226.02101,"357,404.13 ",.01)
  1. ;;404.13
  1. ;;9002226.02101,"357,404.13 ",.02)
  1. ;;404.13
  1. ;;9002226.02101,"357,404.91 ",.01)
  1. ;;404.91
  1. ;;9002226.02101,"357,404.91 ",.02)
  1. ;;404.91
  1. ;;9002226.02101,"357,404.93 ",.01)
  1. ;;404.93
  1. ;;9002226.02101,"357,404.93 ",.02)
  1. ;;404.93
  1. ;;9002226.02101,"357,428.0 ",.01)
  1. ;;428.0
  1. ;;9002226.02101,"357,428.0 ",.02)
  1. ;;428.9
  1. ;;
  1. ;;3148
  1. ;;
  1. ;;897
  1. ;;
  1. ;;3191
  1. ;;
  1. ;;3196
  1. ;;
  1. ;;3197
  1. ;;
  1. ;;3149
  1. ;;
  1. ;;3150
  1. ;;
  1. ;;3151
  1. ;;
  1. ;;3208
  1. ;;
  1. ;;3209
  1. ;;
  1. ;;3435
  1. ;;
  1. ;;3436
  1. ;;
  1. ;;584
  1. ;;
  1. ;;583
  1. ;;
  1. ;;2440
  1. ;;
  1. ;;2091
  1. ;;
  1. ;;2092
  1. ;;
  1. ;;2093
  1. ;;
  1. ;;2094
  1. ;;
  1. ;;2096
  1. ;;
  1. ;;2097
  1. ;;
  1. ;;2098
  1. ;;
  1. ;;2095
  1. ;;
  1. ;;3314
  1. ;;
  1. ;;3315
  1. ;;
  1. ;;3316
  1. ;;
  1. ;;300
  1. ;;
  1. ;;298
  1. ;;
  1. ;;299
  1. ;;
  1. ;;301
  1. ;;
  1. ;;3446
  1. ;;
  1. ;;3447
  1. ;;
  1. ;;3448
  1. ;;
  1. ;;3449
  1. ;;
  1. ;;3450
  1. ;;
  1. ;;3451
  1. ;;
  1. ;;3453
  1. ;;
  1. ;;3452
  1. ;;
  1. ;;296
  1. ;;
  1. ;;261
  1. ;;
  1. ;;262
  1. ;;
  1. ;;263
  1. ;;
  1. ;;1223
  1. ;;
  1. ;;1224
  1. ;;
  1. ;;302
  1. ;;
  1. ;;1084
  1. ;;
  1. ;;2089
  1. ;;
  1. ;;2090
  1. ;;
  1. ;;535
  1. ;;
  1. ;;536
  1. ;;
  1. ;;571
  1. ;;
  1. ;;572
  1. ;;
  1. ;;2527
  1. ;;
  1. ;;58
  1. ;;
  1. ;;60
  1. ;;
  1. ;;61
  1. ;;
  1. ;;63
  1. ;;
  1. ;;59
  1. ;;
  1. ;;62
  1. ;;
  1. ;;1524
  1. ;;
  1. ;;1525
  1. ;;
  1. ;;826
  1. ;;
  1. ;;828
  1. ;;
  1. ;;824
  1. ;;
  1. ;;825
  1. ;;
  1. ;;827
  1. ;;
  1. ;;829
  1. ;;
  1. ;;2553
  1. ;;
  1. ;;2554
  1. ;;
  1. ;;2555
  1. ;;
  1. ;;2556
  1. ;;
  1. ;;2557
  1. ;;
  1. ;;2558
  1. ;;
  1. ;;2559
  1. ;;
  1. ;;2560
  1. ;;
  1. ;;844
  1. ;;
  1. ;;2985
  1. ;;
  1. ;;2986
  1. ;;
  1. ;;2987
  1. ;;
  1. ;;2988
  1. ;;
  1. ;;2989
  1. ;;
  1. ;;2990
  1. ;;
  1. ;;1581
  1. ;;
  1. ;;1582
  1. ;;
  1. ;;3401
  1. ;;
  1. ;;3402
  1. ;;
  1. ;;3400
  1. ;;
  1. ;;1374
  1. ;;
  1. ;;1375
  1. ;;
  1. ;;1376
  1. ;;
  1. ;;392
  1. ;;
  1. ;;3234
  1. ;;
  1. ;;3235
  1. ;;
  1. ;;3
  1. ;;
  1. ;;4
  1. ;;
  1. ;;2911
  1. ;;
  1. ;;2912
  1. ;;
  1. ;;2913
  1. ;;
  1. ;;2914
  1. ;;
  1. ;;1115
  1. ;;
  1. ;;1116
  1. ;;
  1. ;;83
  1. ;;
  1. ;;395
  1. ;;
  1. ;;393
  1. ;;
  1. ;;2371
  1. ;;
  1. ;;2372
  1. ;;
  1. ;;2373
  1. ;;
  1. ;;394
  1. ;;
  1. ;;391
  1. ;;
  1. ;;1053
  1. ;;
  1. ;;2996
  1. ;;
  1. ;;2997
  1. ;;
  1. ;;2995
  1. ;;
  1. ;;1754
  1. ;;
  1. ;;611
  1. ;;
  1. ;;613
  1. ;;
  1. ;;614
  1. ;;
  1. ;;616
  1. ;;
  1. ;;1109
  1. ;;
  1. ;;1110
  1. ;;
  1. ;;1111
  1. ;;
  1. ;;1112
  1. ;;
  1. ;;1113
  1. ;;
  1. ;;1114
  1. ;;
  1. ;;1538
  1. ;;
  1. ;;3229
  1. ;;
  1. ;;3230
  1. ;;
  1. ;;3231
  1. ;;
  1. ;;612
  1. ;;
  1. ;;615
  1. ;;
  1. ;;1752
  1. ;;
  1. ;;1753
  1. ;;
  1. ;;3364
  1. ;;
  1. ;;3363
  1. ;;
  1. ;;2490
  1. ;;
  1. ;;2491
  1. ;;
  1. ;;345
  1. ;;
  1. ;;346
  1. ;;
  1. ;;347
  1. ;;
  1. ;;343
  1. ;;
  1. ;;344
  1. ;;
  1. ;;3225
  1. ;;
  1. ;;3226
  1. ;;
  1. ;;1105
  1. ;;
  1. ;;1106
  1. ;;
  1. ;;1107
  1. ;;
  1. ;;1108
  1. ;;
  1. ;;600
  1. ;;
  1. ;;601
  1. ;;
  1. ;;599
  1. ;;
  1. ;;1698
  1. ;;
  1. ;;1699
  1. ;;
  1. ;;1700
  1. ;;
  1. ;;1701
  1. ;;
  1. ;;1702
  1. ;;
  1. ;;595
  1. ;;
  1. ;;596
  1. ;;
  1. ;;597
  1. ;;
  1. ;;598
  1. ;;
  1. ;;246
  1. ;;
  1. ;;247
  1. ;;
  1. ;;248
  1. ;;
  1. ;;249
  1. ;;
  1. ;;250
  1. ;;
  1. ;;251
  1. ;;
  1. ;;334
  1. ;;
  1. ;;335
  1. ;;
  1. ;;336
  1. ;;
  1. ;;337
  1. ;;
  1. ;;338
  1. ;;
  1. ;;28
  1. ;;
  1. ;;1574
  1. ;;
  1. ;;1575
  1. ;;
  1. ;;1576
  1. ;;
  1. ;;624
  1. ;;
  1. ;;625
  1. ;;
  1. ;;626
  1. ;;
  1. ;;627
  1. ;;
  1. ;;348
  1. ;;
  1. ;;1052
  1. ;;
  1. ;;40
  1. ;;
  1. ;;2503
  1. ;;
  1. ;;2504
  1. ;;
  1. ;;928
  1. ;;
  1. ;;2507
  1. ;;
  1. ;;2508
  1. ;;
  1. ;;1539
  1. ;;
  1. ;;929
  1. ;;
  1. ;;2505
  1. ;;
  1. ;;2506
  1. ;;
  1. ;;1353
  1. ;;
  1. ;;830
  1. ;;
  1. ;;349
  1. ;;
  1. ;;1354
  1. ;;
  1. ;;1355
  1. ;;
  1. ;;1090
  1. ;;
  1. ;;1
  1. ;;
  1. ;;1091
  1. ;;
  1. ;;1092
  1. ;;
  1. ;;2345
  1. ;;
  1. ;;1051
  1. ;;
  1. ;;2346
  1. ;;
  1. ;;2347
  1. ;;
  1. ;;1639
  1. ;;
  1. ;;1640
  1. ;;
  1. ;;1638
  1. ;;
  1. ;;1688
  1. ;;
  1. ;;1687
  1. ;;
  1. ;;85
  1. ;;
  1. ;;86
  1. ;;
  1. ;;84
  1. ;;
  1. ;;88
  1. ;;
  1. ;;89
  1. ;;
  1. ;;90
  1. ;;
  1. ;;87
  1. ;;
  1. ;;91
  1. ;;
  1. ;;2568
  1. ;;
  1. ;;2569
  1. ;;
  1. ;;2991
  1. ;;
  1. ;;2992
  1. ;;
  1. ;;2993
  1. ;;
  1. ;;2994
  1. ;;
  1. ;;2565
  1. ;;
  1. ;;2566
  1. ;;
  1. ;;2567
  1. ;;
  1. ;;2131
  1. ;;
  1. ;;2132
  1. ;;
  1. ;;2127
  1. ;;
  1. ;;2128
  1. ;;
  1. ;;2129
  1. ;;
  1. ;;2130
  1. ;;
  1. ;;950
  1. ;;
  1. ;;951
  1. ;;
  1. ;;948
  1. ;;
  1. ;;949
  1. ;;
  1. ;;1283
  1. ;;
  1. ;;1284
  1. ;;
  1. ;;1809
  1. ;;
  1. ;;1810
  1. ;;
  1. ;;1811
  1. ;;
  1. ;;1812
  1. ;;
  1. ;;1813
  1. ;;
  1. ;;1814
  1. ;;
  1. ;;3379
  1. ;;
  1. ;;3380
  1. ;;
  1. ;;3381
  1. ;;
  1. ;;2121
  1. ;;
  1. ;;2122
  1. ;;
  1. ;;2123
  1. ;;
  1. ;;2124
  1. ;;
  1. ;;2125
  1. ;;
  1. ;;2126
  1. ;;
  1. ;;943
  1. ;;
  1. ;;944
  1. ;;
  1. ;;942
  1. ;;
  1. ;;946
  1. ;;
  1. ;;947
  1. ;;
  1. ;;945
  1. ;;
  1. ;;1054
  1. ;;
  1. ;;2528
  1. ;;
  1. ;;2529
  1. ;;
  1. ;;2530
  1. ;;
  1. ;;2531
  1. ;;
  1. ;;2532
  1. ;;
  1. ;;2533
  1. ;;
  1. ;;2976
  1. ;;
  1. ;;2977
  1. ;;
  1. ;;2978
  1. ;;
  1. ;;2979
  1. ;;
  1. ;;67
  1. ;;
  1. ;;2909
  1. ;;
  1. ;;2910
  1. ;;
  1. ;;64
  1. ;;
  1. ;;65
  1. ;;
  1. ;;66
  1. ;;
  1. ;;2
  1. ;;
  1. ;;1757
  1. ;;
  1. ;;1755
  1. ;;
  1. ;;1756
  1. ;;
  1. ;;923
  1. ;;
  1. ;;1760
  1. ;;
  1. ;;1758
  1. ;;
  1. ;;1759
  1. ;;
  1. ;;1763
  1. ;;
  1. ;;1762
  1. ;;
  1. ;;1761
  1. ;;
  1. ;;2492
  1. ;;
  1. ;;2494
  1. ;;
  1. ;;2496
  1. ;;
  1. ;;2495
  1. ;;
  1. ;;2493
  1. ;;
  1. ;;2497
  1. ;;
  1. ;;813
  1. ;;
  1. ;;815
  1. ;;
  1. ;;818
  1. ;;
  1. ;;814
  1. ;;
  1. ;;816
  1. ;;
  1. ;;817
  1. ;;
  1. ;;1779
  1. ;;
  1. ;;1780
  1. ;;
  1. ;;3190
  1. ;;
  1. ;;1078
  1. ;;
  1. ;;1079
  1. ;;
  1. ;;617
  1. ;;
  1. ;;618
  1. ;;
  1. ;;619
  1. ;;
  1. ;;620
  1. ;;
  1. ;;2335
  1. ;;
  1. ;;2336
  1. ;;
  1. ;;2337
  1. ;;
  1. ;;2338
  1. ;;
  1. ;;621
  1. ;;
  1. ;;1087
  1. ;;
  1. ;;1088
  1. ;;
  1. ;;1089
  1. ;;
  1. ;;1764
  1. ;;
  1. ;;1765
  1. ;;
  1. ;;1766
  1. ;;
  1. ;;1767
  1. ;;
  1. ;;1347
  1. ;;
  1. ;;1348
  1. ;;
  1. ;;1349
  1. ;;
  1. ;;1571
  1. ;;
  1. ;;1572
  1. ;;
  1. ;;1573
  1. ;;
  1. ;;2964
  1. ;;
  1. ;;2965
  1. ;;
  1. ;;2966
  1. ;;
  1. ;;2499
  1. ;;
  1. ;;2500
  1. ;;
  1. ;;2501
  1. ;;
  1. ;;2498
  1. ;;
  1. ;;35
  1. ;;
  1. ;;36
  1. ;;
  1. ;;37
  1. ;;
  1. ;;81
  1. ;;
  1. ;;82
  1. ;;
  1. ;;3397
  1. ;;
  1. ;;3398
  1. ;;
  1. ;;3399
  1. ;;
  1. ;;1578
  1. ;;
  1. ;;1579
  1. ;;
  1. ;;1580
  1. ;;
  1. ;;1815
  1. ;;
  1. ;;1816
  1. ;;
  1. ;;1817
  1. ;;
  1. ;;1818
  1. ;;
  1. ;;1819
  1. ;;
  1. ;;641
  1. ;;
  1. ;;642
  1. ;;
  1. ;;643
  1. ;;
  1. ;;2363
  1. ;;
  1. ;;2365
  1. ;;
  1. ;;2367
  1. ;;
  1. ;;2369
  1. ;;
  1. ;;2364
  1. ;;
  1. ;;2366
  1. ;;
  1. ;;2368
  1. ;;
  1. ;;2370
  1. ;;
  1. ;;841
  1. ;;
  1. ;;842
  1. ;;
  1. ;;843
  1. ;;
  1. ;;840
  1. ;;
  1. ;;2538
  1. ;;
  1. ;;2534
  1. ;;
  1. ;;2535
  1. ;;
  1. ;;2536
  1. ;;
  1. ;;2537
  1. ;;
  1. ;;2984
  1. ;;
  1. ;;2981
  1. ;;
  1. ;;2982
  1. ;;
  1. ;;2980
  1. ;;
  1. ;;2983
  1. ;;
  1. ;;1371
  1. ;;
  1. ;;1372
  1. ;;
  1. ;;1373
  1. ;;
  1. ;;937
  1. ;;
  1. ;;938
  1. ;;
  1. ;;939
  1. ;;
  1. ;;1083
  1. ;;
  1. ;;1081
  1. ;;
  1. ;;1082
  1. ;;
  1. ;;350
  1. ;;
  1. ;;3232
  1. ;;
  1. ;;3233
  1. ;;
  1. ;;1772
  1. ;;
  1. ;;1773
  1. ;;
  1. ;;1774
  1. ;;
  1. ;;1775
  1. ;;
  1. ;;1776
  1. ;;
  1. ;;1777
  1. ;;
  1. ;;3593
  1. ;;
  1. ;;3594
  1. ;;
  1. ;;3595
  1. ;;
  1. ;;1894
  1. ;;
  1. ;;1895
  1. ;;
  1. ;;1896
  1. ;;
  1. ;;1897
  1. ;;
  1. ;;1898
  1. ;;
  1. ;;1899
  1. ;;
  1. ;;1900
  1. ;;
  1. ;;1901
  1. ;;
  1. ;;2840
  1. ;;
  1. ;;2841
  1. ;;
  1. ;;2842
  1. ;;
  1. ;;2843
  1. ;;
  1. ;;2845
  1. ;;
  1. ;;2846
  1. ;;
  1. ;;570
  1. ;;
  1. ;;515
  1. ;;
  1. ;;516
  1. ;;
  1. ;;517
  1. ;;
  1. ;;518
  1. ;;
  1. ;;1912
  1. ;;
  1. ;;1902
  1. ;;
  1. ;;1903
  1. ;;
  1. ;;1904
  1. ;;
  1. ;;1905
  1. ;;
  1. ;;1906
  1. ;;
  1. ;;1907
  1. ;;
  1. ;;1908
  1. ;;
  1. ;;1909
  1. ;;
  1. ;;1910
  1. ;;
  1. ;;1911
  1. ;;
  1. ;;2839
  1. ;;
  1. ;;2834
  1. ;;
  1. ;;2835
  1. ;;
  1. ;;2836
  1. ;;
  1. ;;2837
  1. ;;
  1. ;;2838
  1. ;;
  1. ;;3110
  1. ;;
  1. ;;3111
  1. ;;
  1. ;;3112
  1. ;;
  1. ;;3113
  1. ;;
  1. ;;3114
  1. ;;
  1. ;;3115
  1. ;;
  1. ;;3354
  1. ;;
  1. ;;1487
  1. ;;
  1. ;;1488
  1. ;;
  1. ;;209
  1. ;;
  1. ;;210
  1. ;;
  1. ;;211
  1. ;;
  1. ;;212
  1. ;;
  1. ;;1888
  1. ;;
  1. ;;1889
  1. ;;
  1. ;;1890
  1. ;;
  1. ;;1891
  1. ;;
  1. ;;1892
  1. ;;
  1. ;;1893
  1. ;;
  1. ;;776
  1. ;;
  1. ;;777
  1. ;;
  1. ;;778
  1. ;;
  1. ;;779
  1. ;;
  1. ;;1189
  1. ;;
  1. ;;1190
  1. ;;
  1. ;;1191
  1. ;;
  1. ;;1192
  1. ;;
  1. ;;1193
  1. ;;
  1. ;;1194
  1. ;;
  1. ;;1195
  1. ;;
  1. ;;1196
  1. ;;
  1. ;;1197
  1. ;;
  1. ;;3378
  1. ;;
  1. ;;1281
  1. ;;
  1. ;;1279
  1. ;;
  1. ;;1282
  1. ;;
  1. ;;1280
  1. ;;
  1. ;;885
  1. ;;
  1. ;;886
  1. ;;
  1. ;;887
  1. ;;
  1. ;;888
  1. ;;
  1. ;;889
  1. ;;
  1. ;;2415
  1. ;;
  1. ;;2416
  1. ;;
  1. ;;3116
  1. ;;
  1. ;;3109
  1. ;;
  1. ;;207
  1. ;;
  1. ;;208
  1. ;;
  1. ;;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
 ;
OTHER ; OTHER ROUTINES
 D ^BGP02X2
 D ^BGP02X3
 D ^BGP02X4
 D ^BGP02X5
 Q