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

BGP01B.m

Go to the documentation of this file.
  1. BGP01B ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
  1. ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
  1. ;;BGP BMD PROCEDURES
  1. ;
  1. ; This routine loads Taxonomy BGP BMD PROCEDURES
  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,"88.98 ")
  1. ;;1
  1. ;;9002226,340,.01)
  1. ;;BGP BMD PROCEDURES
  1. ;;9002226,340,.02)
  1. ;;@
  1. ;;9002226,340,.04)
  1. ;;n
  1. ;;9002226,340,.06)
  1. ;;@
  1. ;;9002226,340,.08)
  1. ;;@
  1. ;;9002226,340,.09)
  1. ;;3050304
  1. ;;9002226,340,.11)
  1. ;;@
  1. ;;9002226,340,.12)
  1. ;;255
  1. ;;9002226,340,.13)
  1. ;;1
  1. ;;9002226,340,.14)
  1. ;;@
  1. ;;9002226,340,.15)
  1. ;;80.1
  1. ;;9002226,340,.16)
  1. ;;@
  1. ;;9002226,340,.17)
  1. ;;@
  1. ;;9002226,340,3101)
  1. ;;@
  1. ;;9002226.02101,"340,88.98 ",.01)
  1. ;;88.98
  1. ;;9002226.02101,"340,88.98 ",.02)
  1. ;;88.98
  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
  1. ;;
  1. ;;771
  1. ;;
  1. ;;774
  1. ;;
  1. ;;1613
  1. ;;
  1. ;;293
  1. ;;
  1. ;;781
  1. ;;
  1. ;;3295
  1. ;;
  1. ;;3588
  1. ;;
  1. ;;3589
  1. ;;
  1. ;;3590
  1. ;;
  1. ;;3591
  1. ;;
  1. ;;3592
  1. ;;
  1. ;;884
  1. ;;
  1. ;;1323
  1. ;;
  1. ;;920
  1. ;;
  1. ;;206
  1. ;;
  1. ;;3366
  1. ;;
  1. ;;3367
  1. ;;
  1. ;;3368
  1. ;;
  1. ;;3369
  1. ;;
  1. ;;51
  1. ;;
  1. ;;52
  1. ;;
  1. ;;53
  1. ;;
  1. ;;50
  1. ;;
  1. ;;55
  1. ;;
  1. ;;56
  1. ;;
  1. ;;57
  1. ;;
  1. ;;54
  1. ;;
  1. ;;832
  1. ;;
  1. ;;2907
  1. ;;
  1. ;;2908
  1. ;;
  1. ;;2151
  1. ;;
  1. ;;644
  1. ;;
  1. ;;645
  1. ;;
  1. ;;646
  1. ;;
  1. ;;1820
  1. ;;
  1. ;;1821
  1. ;;
  1. ;;1822
  1. ;;
  1. ;;1824
  1. ;;
  1. ;;1823
  1. ;;
  1. ;;1825
  1. ;;
  1. ;;1826
  1. ;;
  1. ;;940
  1. ;;
  1. ;;941
  1. ;;
  1. ;;1377
  1. ;;
  1. ;;1378
  1. ;;
  1. ;;2561
  1. ;;
  1. ;;2562
  1. ;;
  1. ;;2563
  1. ;;
  1. ;;2564
  1. ;;
  1. ;;1583
  1. ;;
  1. ;;1117
  1. ;;
  1. ;;1076
  1. ;;
  1. ;;1077
  1. ;;
  1. ;;602
  1. ;;
  1. ;;603
  1. ;;
  1. ;;604
  1. ;;
  1. ;;2325
  1. ;;
  1. ;;2326
  1. ;;
  1. ;;2327
  1. ;;
  1. ;;2328
  1. ;;
  1. ;;1709
  1. ;;
  1. ;;1710
  1. ;;
  1. ;;1711
  1. ;;
  1. ;;2467
  1. ;;
  1. ;;2468
  1. ;;
  1. ;;2963
  1. ;;
  1. ;;1338
  1. ;;
  1. ;;1339
  1. ;;
  1. ;;29
  1. ;;
  1. ;;1568
  1. ;;
  1. ;;1649
  1. ;;
  1. ;;1651
  1. ;;
  1. ;;1652
  1. ;;
  1. ;;1650
  1. ;;
  1. ;;1645
  1. ;;
  1. ;;1647
  1. ;;
  1. ;;1648
  1. ;;
  1. ;;1646
  1. ;;
  1. ;;1641
  1. ;;
  1. ;;1643
  1. ;;
  1. ;;1644
  1. ;;
  1. ;;1642
  1. ;;
  1. ;;1957
  1. ;;
  1. ;;1959
  1. ;;
  1. ;;1960
  1. ;;
  1. ;;1958
  1. ;;
  1. ;;1956
  1. ;;
  1. ;;1961
  1. ;;
  1. ;;1962
  1. ;;
  1. ;;1963
  1. ;;
  1. ;;1964
  1. ;;
  1. ;;1965
  1. ;;
  1. ;;1966
  1. ;;
  1. ;;1967
  1. ;;
  1. ;;1969
  1. ;;
  1. ;;1970
  1. ;;
  1. ;;1971
  1. ;;
  1. ;;1968
  1. ;;
  1. ;;1972
  1. ;;
  1. ;;1973
  1. ;;
  1. ;;749
  1. ;;
  1. ;;748
  1. ;;
  1. ;;1067
  1. ;;
  1. ;;1479
  1. ;;
  1. ;;2801
  1. ;;
  1. ;;2800
  1. ;;
  1. ;;2804
  1. ;;
  1. ;;2803
  1. ;;
  1. ;;2802
  1. ;;
  1. ;;3101
  1. ;;
  1. ;;3100
  1. ;;
  1. ;;2799
  1. ;;
  1. ;;381
  1. ;;
  1. ;;382
  1. ;;
  1. ;;383
  1. ;;
  1. ;;384
  1. ;;
  1. ;;386
  1. ;;
  1. ;;385
  1. ;;
  1. ;;388
  1. ;;
  1. ;;387
  1. ;;
  1. ;;390
  1. ;;
  1. ;;389
  1. ;;
  1. ;;628
  1. ;;
  1. ;;1778
  1. ;;
  1. ;;1080
  1. ;;
  1. ;;1356
  1. ;;
  1. ;;1540
  1. ;;
  1. ;;41
  1. ;;
  1. ;;1093
  1. ;;
  1. ;;1098
  1. ;;
  1. ;;930
  1. ;;
  1. ;;2348
  1. ;;
  1. ;;3365
  1. ;;
  1. ;;3382
  1. ;;
  1. ;;1577
  1. ;;
  1. ;;2509
  1. ;;
  1. ;;2967
  1. ;;
  1. ;;3444
  1. ;;
  1. ;;351
  1. ;;
  1. ;;831
  1. ;;
  1. ;;1692
  1. ;;
  1. ;;1693
  1. ;;
  1. ;;1694
  1. ;;
  1. ;;1695
  1. ;;
  1. ;;1696
  1. ;;
  1. ;;1697
  1. ;;
  1. ;;3356
  1. ;;
  1. ;;3357
  1. ;;
  1. ;;3358
  1. ;;
  1. ;;33
  1. ;;
  1. ;;34
  1. ;;
  1. ;;1344
  1. ;;
  1. ;;1345
  1. ;;
  1. ;;1346
  1. ;;
  1. ;;1016
  1. ;;
  1. ;;3194
  1. ;;
  1. ;;3203
  1. ;;
  1. ;;3204
  1. ;;
  1. ;;1536
  1. ;;
  1. ;;1531
  1. ;;
  1. ;;1532
  1. ;;
  1. ;;1533
  1. ;;
  1. ;;1534
  1. ;;
  1. ;;1535
  1. ;;
  1. ;;1541
  1. ;;
  1. ;;1542
  1. ;;
  1. ;;1939
  1. ;;
  1. ;;1940
  1. ;;
  1. ;;1786
  1. ;;
  1. ;;1787
  1. ;;
  1. ;;1788
  1. ;;
  1. ;;1789
  1. ;;
  1. ;;1781
  1. ;;
  1. ;;1782
  1. ;;
  1. ;;1783
  1. ;;
  1. ;;1784
  1. ;;
  1. ;;1785
  1. ;;
  1. ;;1938
  1. ;;
  1. ;;1944
  1. ;;
  1. ;;1945
  1. ;;
  1. ;;1941
  1. ;;
  1. ;;1790
  1. ;;
  1. ;;1791
  1. ;;
  1. ;;1792
  1. ;;
  1. ;;1793
  1. ;;
  1. ;;1794
  1. ;;
  1. ;;1795
  1. ;;
  1. ;;1796
  1. ;;
  1. ;;1942
  1. ;;
  1. ;;1797
  1. ;;
  1. ;;1943
  1. ;;
  1. ;;1954
  1. ;;
  1. ;;1955
  1. ;;
  1. ;;1946
  1. ;;
  1. ;;1798
  1. ;;
  1. ;;1947
  1. ;;
  1. ;;1799
  1. ;;
  1. ;;1800
  1. ;;
  1. ;;1948
  1. ;;
  1. ;;1949
  1. ;;
  1. ;;1801
  1. ;;
  1. ;;1802
  1. ;;
  1. ;;1950
  1. ;;
  1. ;;1951
  1. ;;
  1. ;;1803
  1. ;;
  1. ;;1804
  1. ;;
  1. ;;1805
  1. ;;
  1. ;;1952
  1. ;;
  1. ;;1806
  1. ;;
  1. ;;1807
  1. ;;
  1. ;;1808
  1. ;;
  1. ;;1953
  1. ;;
  1. ;;629
  1. ;;
  1. ;;750
  1. ;;
  1. ;;630
  1. ;;
  1. ;;631
  1. ;;
  1. ;;751
  1. ;;
  1. ;;632
  1. ;;
  1. ;;633
  1. ;;
  1. ;;634
  1. ;;
  1. ;;635
  1. ;;
  1. ;;752
  1. ;;
  1. ;;753
  1. ;;
  1. ;;636
  1. ;;
  1. ;;637
  1. ;;
  1. ;;638
  1. ;;
  1. ;;639
  1. ;;
  1. ;;640
  1. ;;
  1. ;;578
  1. ;;
  1. ;;579
  1. ;;
  1. ;;3170
  1. ;;
  1. ;;3171
  1. ;;
  1. ;;3181
  1. ;;
  1. ;;3182
  1. ;;
  1. ;;3183
  1. ;;
  1. ;;3184
  1. ;;
  1. ;;3185
  1. ;;
  1. ;;3186
  1. ;;
  1. ;;279
  1. ;;
  1. ;;280
  1. ;;
  1. ;;2510
  1. ;;
  1. ;;2511
  1. ;;
  1. ;;2512
  1. ;;
  1. ;;2513
  1. ;;
  1. ;;2514
  1. ;;
  1. ;;2812
  1. ;;
  1. ;;2813
  1. ;;
  1. ;;2805
  1. ;;
  1. ;;2806
  1. ;;
  1. ;;2807
  1. ;;
  1. ;;2808
  1. ;;
  1. ;;2515
  1. ;;
  1. ;;2809
  1. ;;
  1. ;;2810
  1. ;;
  1. ;;2516
  1. ;;
  1. ;;2811
  1. ;;
  1. ;;3180
  1. ;;
  1. ;;3172
  1. ;;
  1. ;;3173
  1. ;;
  1. ;;3174
  1. ;;
  1. ;;3175
  1. ;;
  1. ;;3176
  1. ;;
  1. ;;3177
  1. ;;
  1. ;;3178
  1. ;;
  1. ;;3179
  1. ;;
  1. ;;2814
  1. ;;
  1. ;;2815
  1. ;;
  1. ;;2517
  1. ;;
  1. ;;2518
  1. ;;
  1. ;;2519
  1. ;;
  1. ;;2520
  1. ;;
  1. ;;2816
  1. ;;
  1. ;;2521
  1. ;;
  1. ;;2522
  1. ;;
  1. ;;2523
  1. ;;
  1. ;;2524
  1. ;;
  1. ;;2525
  1. ;;
  1. ;;2526
  1. ;;
  1. ;;2940
  1. ;;
  1. ;;931
  1. ;;
  1. ;;932
  1. ;;
  1. ;;933
  1. ;;
  1. ;;934
  1. ;;
  1. ;;935
  1. ;;
  1. ;;936
  1. ;;
  1. ;;1022
  1. ;;
  1. ;;1017
  1. ;;
  1. ;;1018
  1. ;;
  1. ;;1019
  1. ;;
  1. ;;1020
  1. ;;
  1. ;;1021
  1. ;;
  1. ;;553
  1. ;;
  1. ;;554
  1. ;;
  1. ;;555
  1. ;;
  1. ;;556
  1. ;;
  1. ;;907
  1. ;;
  1. ;;908
  1. ;;
  1. ;;909
  1. ;;
  1. ;;910
  1. ;;
  1. ;;911
  1. ;;
  1. ;;912
  1. ;;
  1. ;;913
  1. ;;
  1. ;;914
  1. ;;
  1. ;;915
  1. ;;
  1. ;;1262
  1. ;;
  1. ;;1263
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGP01B2
  1. D ^BGP01B3
  1. D ^BGP01B4
  1. D ^BGP01B5
  1. Q