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

BGP03R.m

Go to the documentation of this file.
  1. BGP03R ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
  1. ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
  1. ;;BGP CMS POST-OPERATIVE INF DXS
  1. ;
  1. ; This routine loads Taxonomy BGP CMS POST-OPERATIVE INF 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,"001.0 ")
  1. ;;1
  1. ;;21,"373.13 ")
  1. ;;2
  1. ;;21,"376.01 ")
  1. ;;3
  1. ;;21,"480.0 ")
  1. ;;4
  1. ;;21,"481. ")
  1. ;;5
  1. ;;21,"482.0 ")
  1. ;;6
  1. ;;21,"483. ")
  1. ;;7
  1. ;;21,"484.1 ")
  1. ;;8
  1. ;;21,"485. ")
  1. ;;9
  1. ;;21,"486. ")
  1. ;;10
  1. ;;21,"487.0 ")
  1. ;;11
  1. ;;21,"528.3 ")
  1. ;;12
  1. ;;21,"528.5 ")
  1. ;;13
  1. ;;21,"566. ")
  1. ;;14
  1. ;;21,"578.1 ")
  1. ;;15
  1. ;;21,"599.0 ")
  1. ;;16
  1. ;;21,"604.0 ")
  1. ;;17
  1. ;;21,"607.2 ")
  1. ;;18
  1. ;;21,"608.4 ")
  1. ;;19
  1. ;;21,"616.3 ")
  1. ;;20
  1. ;;21,"659.30 ")
  1. ;;21
  1. ;;21,"659.33 ")
  1. ;;22
  1. ;;21,"674.30 ")
  1. ;;23
  1. ;;21,"675.10 ")
  1. ;;24
  1. ;;21,"681.00 ")
  1. ;;25
  1. ;;21,"682.0 ")
  1. ;;26
  1. ;;21,"730.00 ")
  1. ;;27
  1. ;;21,"771.4 ")
  1. ;;28
  1. ;;21,"771.81 ")
  1. ;;29
  1. ;;21,"771.82 ")
  1. ;;30
  1. ;;21,"792.1 ")
  1. ;;31
  1. ;;21,"996.6 ")
  1. ;;32
  1. ;;21,"998.51 ")
  1. ;;33
  1. ;;21,"999.3 ")
  1. ;;34
  1. ;;9002226,854,.01)
  1. ;;BGP CMS POST-OPERATIVE INF DXS
  1. ;;9002226,854,.02)
  1. ;;@
  1. ;;9002226,854,.04)
  1. ;;n
  1. ;;9002226,854,.06)
  1. ;;@
  1. ;;9002226,854,.08)
  1. ;;0
  1. ;;9002226,854,.09)
  1. ;;3070605
  1. ;;9002226,854,.11)
  1. ;;@
  1. ;;9002226,854,.12)
  1. ;;31
  1. ;;9002226,854,.13)
  1. ;;1
  1. ;;9002226,854,.14)
  1. ;;@
  1. ;;9002226,854,.15)
  1. ;;80
  1. ;;9002226,854,.16)
  1. ;;@
  1. ;;9002226,854,.17)
  1. ;;@
  1. ;;9002226,854,3101)
  1. ;;@
  1. ;;9002226.02101,"854,001.0 ",.01)
  1. ;;001.0
  1. ;;9002226.02101,"854,001.0 ",.02)
  1. ;;139.8
  1. ;;9002226.02101,"854,373.13 ",.01)
  1. ;;373.13
  1. ;;9002226.02101,"854,373.13 ",.02)
  1. ;;373.13
  1. ;;9002226.02101,"854,376.01 ",.01)
  1. ;;376.01
  1. ;;9002226.02101,"854,376.01 ",.02)
  1. ;;376.01
  1. ;;9002226.02101,"854,480.0 ",.01)
  1. ;;480.0
  1. ;;9002226.02101,"854,480.0 ",.02)
  1. ;;480.9
  1. ;;9002226.02101,"854,481. ",.01)
  1. ;;481.
  1. ;;9002226.02101,"854,481. ",.02)
  1. ;;481.
  1. ;;9002226.02101,"854,482.0 ",.01)
  1. ;;482.0
  1. ;;9002226.02101,"854,482.0 ",.02)
  1. ;;482.9
  1. ;;9002226.02101,"854,483. ",.01)
  1. ;;483.
  1. ;;9002226.02101,"854,483. ",.02)
  1. ;;483.8
  1. ;;9002226.02101,"854,484.1 ",.01)
  1. ;;484.1
  1. ;;9002226.02101,"854,484.1 ",.02)
  1. ;;484.8
  1. ;;9002226.02101,"854,485. ",.01)
  1. ;;485.
  1. ;;9002226.02101,"854,485. ",.02)
  1. ;;485.
  1. ;;9002226.02101,"854,486. ",.01)
  1. ;;486.
  1. ;;9002226.02101,"854,486. ",.02)
  1. ;;486.
  1. ;;9002226.02101,"854,487.0 ",.01)
  1. ;;487.0
  1. ;;9002226.02101,"854,487.0 ",.02)
  1. ;;487.0
  1. ;;9002226.02101,"854,528.3 ",.01)
  1. ;;528.3
  1. ;;9002226.02101,"854,528.3 ",.02)
  1. ;;528.3
  1. ;;9002226.02101,"854,528.5 ",.01)
  1. ;;528.5
  1. ;;9002226.02101,"854,528.5 ",.02)
  1. ;;528.5
  1. ;;9002226.02101,"854,566. ",.01)
  1. ;;566.
  1. ;;9002226.02101,"854,566. ",.02)
  1. ;;566.
  1. ;;9002226.02101,"854,578.1 ",.01)
  1. ;;578.1
  1. ;;9002226.02101,"854,578.1 ",.02)
  1. ;;578.1
  1. ;;9002226.02101,"854,599.0 ",.01)
  1. ;;599.0
  1. ;;9002226.02101,"854,599.0 ",.02)
  1. ;;599.0
  1. ;;9002226.02101,"854,604.0 ",.01)
  1. ;;604.0
  1. ;;9002226.02101,"854,604.0 ",.02)
  1. ;;604.0
  1. ;;9002226.02101,"854,607.2 ",.01)
  1. ;;607.2
  1. ;;9002226.02101,"854,607.2 ",.02)
  1. ;;607.2
  1. ;;9002226.02101,"854,608.4 ",.01)
  1. ;;608.4
  1. ;;9002226.02101,"854,608.4 ",.02)
  1. ;;608.4
  1. ;;9002226.02101,"854,616.3 ",.01)
  1. ;;616.3
  1. ;;9002226.02101,"854,616.3 ",.02)
  1. ;;616.4
  1. ;;9002226.02101,"854,659.30 ",.01)
  1. ;;659.30
  1. ;;9002226.02101,"854,659.30 ",.02)
  1. ;;659.31
  1. ;;9002226.02101,"854,659.33 ",.01)
  1. ;;659.33
  1. ;;9002226.02101,"854,659.33 ",.02)
  1. ;;659.33
  1. ;;9002226.02101,"854,674.30 ",.01)
  1. ;;674.30
  1. ;;9002226.02101,"854,674.30 ",.02)
  1. ;;674.34
  1. ;;9002226.02101,"854,675.10 ",.01)
  1. ;;675.10
  1. ;;9002226.02101,"854,675.10 ",.02)
  1. ;;675.14
  1. ;;9002226.02101,"854,681.00 ",.01)
  1. ;;681.00
  1. ;;9002226.02101,"854,681.00 ",.02)
  1. ;;681.11
  1. ;;9002226.02101,"854,682.0 ",.01)
  1. ;;682.0
  1. ;;9002226.02101,"854,682.0 ",.02)
  1. ;;682.9
  1. ;;9002226.02101,"854,730.00 ",.01)
  1. ;;730.00
  1. ;;9002226.02101,"854,730.00 ",.02)
  1. ;;730.99
  1. ;;9002226.02101,"854,771.4 ",.01)
  1. ;;771.4
  1. ;;9002226.02101,"854,771.4 ",.02)
  1. ;;771.4
  1. ;;9002226.02101,"854,771.81 ",.01)
  1. ;;771.81
  1. ;;9002226.02101,"854,771.81 ",.02)
  1. ;;771.81
  1. ;;9002226.02101,"854,771.82 ",.01)
  1. ;;771.82
  1. ;;9002226.02101,"854,771.82 ",.02)
  1. ;;771.82
  1. ;;9002226.02101,"854,792.1 ",.01)
  1. ;;792.1
  1. ;;9002226.02101,"854,792.1 ",.02)
  1. ;;792.1
  1. ;;9002226.02101,"854,996.6 ",.01)
  1. ;;996.6
  1. ;;9002226.02101,"854,996.6 ",.02)
  1. ;;996.69
  1. ;;9002226.02101,"854,998.51 ",.01)
  1. ;;998.51
  1. ;;9002226.02101,"854,998.51 ",.02)
  1. ;;998.59
  1. ;;9002226.02101,"854,999.3 ",.01)
  1. ;;999.3
  1. ;;9002226.02101,"854,999.3 ",.02)
  1. ;;999.3
  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. OTHER ; OTHER ROUTINES
  1. D ^BGP03R2
  1. D ^BGP03R3
  1. D ^BGP03R4
  1. D ^BGP03R5
  1. Q