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

BGP13W.m

Go to the documentation of this file.
  1. BGP13W ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
  1. ;;BGP PQA BETA BLOCKER NDC
  1. ;
  1. ; This routine loads Taxonomy BGP PQA BETA BLOCKER NDC
  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,"00003-0207-50 ")
  1. ;;1825
  1. ;;21,"00003-0207-76 ")
  1. ;;1826
  1. ;;21,"00003-0208-50 ")
  1. ;;1792
  1. ;;21,"00003-0232-50 ")
  1. ;;1803
  1. ;;21,"00003-0241-50 ")
  1. ;;1861
  1. ;;21,"00003-0241-76 ")
  1. ;;1862
  1. ;;21,"00003-0246-49 ")
  1. ;;1797
  1. ;;21,"00003-0283-50 ")
  1. ;;190
  1. ;;21,"00005-3219-43 ")
  1. ;;500
  1. ;;21,"00005-3220-34 ")
  1. ;;243
  1. ;;21,"00005-3234-23 ")
  1. ;;128
  1. ;;21,"00005-3235-38 ")
  1. ;;59
  1. ;;21,"00005-3238-23 ")
  1. ;;94
  1. ;;21,"00005-3816-38 ")
  1. ;;736
  1. ;;21,"00005-3817-38 ")
  1. ;;715
  1. ;;21,"00006-0059-68 ")
  1. ;;2345
  1. ;;21,"00006-0067-68 ")
  1. ;;216
  1. ;;21,"00006-0136-68 ")
  1. ;;2339
  1. ;;21,"00006-0437-68 ")
  1. ;;2342
  1. ;;21,"00007-3370-13 ")
  1. ;;764
  1. ;;21,"00007-3370-59 ")
  1. ;;765
  1. ;;21,"00007-3371-13 ")
  1. ;;769
  1. ;;21,"00007-3371-59 ")
  1. ;;770
  1. ;;21,"00007-3372-13 ")
  1. ;;775
  1. ;;21,"00007-3372-59 ")
  1. ;;776
  1. ;;21,"00007-3373-13 ")
  1. ;;780
  1. ;;21,"00007-3373-59 ")
  1. ;;781
  1. ;;21,"00007-4139-20 ")
  1. ;;940
  1. ;;21,"00007-4139-55 ")
  1. ;;941
  1. ;;21,"00007-4140-20 ")
  1. ;;1000
  1. ;;21,"00007-4140-55 ")
  1. ;;1001
  1. ;;21,"00007-4141-20 ")
  1. ;;786
  1. ;;21,"00007-4141-55 ")
  1. ;;787
  1. ;;21,"00007-4142-20 ")
  1. ;;860
  1. ;;21,"00007-4142-55 ")
  1. ;;861
  1. ;;21,"00008-4177-01 ")
  1. ;;217
  1. ;;21,"00008-4179-01 ")
  1. ;;235
  1. ;;21,"00024-2300-20 ")
  1. ;;708
  1. ;;21,"00024-2301-10 ")
  1. ;;699
  1. ;;21,"00025-5101-31 ")
  1. ;;700
  1. ;;21,"00025-5201-31 ")
  1. ;;709
  1. ;;21,"00028-0035-01 ")
  1. ;;182
  1. ;;21,"00028-0051-01 ")
  1. ;;1558
  1. ;;21,"00028-0051-10 ")
  1. ;;1559
  1. ;;21,"00028-0053-01 ")
  1. ;;169
  1. ;;21,"00028-0071-01 ")
  1. ;;1372
  1. ;;21,"00028-0071-10 ")
  1. ;;1373
  1. ;;21,"00028-0071-61 ")
  1. ;;1374
  1. ;;21,"00028-0073-01 ")
  1. ;;177
  1. ;;21,"00046-0421-81 ")
  1. ;;2048
  1. ;;21,"00046-0421-95 ")
  1. ;;2049
  1. ;;21,"00046-0422-81 ")
  1. ;;2116
  1. ;;21,"00046-0422-95 ")
  1. ;;2117
  1. ;;21,"00046-0424-81 ")
  1. ;;2210
  1. ;;21,"00046-0424-95 ")
  1. ;;2211
  1. ;;21,"00046-0426-81 ")
  1. ;;2275
  1. ;;21,"00046-0428-81 ")
  1. ;;2301
  1. ;;21,"00046-0470-81 ")
  1. ;;1961
  1. ;;21,"00046-0471-81 ")
  1. ;;1987
  1. ;;21,"00046-0473-81 ")
  1. ;;1915
  1. ;;21,"00046-0479-81 ")
  1. ;;1940
  1. ;;21,"00046-0484-81 ")
  1. ;;202
  1. ;;21,"00046-0488-81 ")
  1. ;;212
  1. ;;21,"00054-3727-63 ")
  1. ;;2019
  1. ;;21,"00054-3728-44 ")
  1. ;;2018
  1. ;;21,"00054-3730-63 ")
  1. ;;2021
  1. ;;21,"00054-8764-16 ")
  1. ;;2020
  1. ;;21,"00074-1664-13 ")
  1. ;;762
  1. ;;21,"00074-1665-13 ")
  1. ;;763
  1. ;;21,"00078-0458-05 ")
  1. ;;1560
  1. ;;21,"00078-0458-09 ")
  1. ;;1561
  1. ;;21,"00078-0459-05 ")
  1. ;;1375
  1. ;;21,"00078-0459-09 ")
  1. ;;1376
  1. ;;21,"00078-0460-05 ")
  1. ;;183
  1. ;;21,"00078-0461-05 ")
  1. ;;170
  1. ;;21,"00078-0462-05 ")
  1. ;;178
  1. ;;21,"00085-0244-04 ")
  1. ;;1076
  1. ;;21,"00085-0244-05 ")
  1. ;;1077
  1. ;;21,"00085-0244-07 ")
  1. ;;1078
  1. ;;21,"00085-0244-08 ")
  1. ;;1079
  1. ;;21,"00085-0438-03 ")
  1. ;;1167
  1. ;;21,"00085-0438-05 ")
  1. ;;1168
  1. ;;21,"00085-0438-06 ")
  1. ;;1169
  1. ;;21,"00085-0752-04 ")
  1. ;;1122
  1. ;;21,"00085-0752-05 ")
  1. ;;1123
  1. ;;21,"00085-0752-07 ")
  1. ;;1124
  1. ;;21,"00085-0752-08 ")
  1. ;;1125
  1. ;;21,"00091-4500-15 ")
  1. ;;1901
  1. ;;21,"00093-0051-01 ")
  1. ;;942
  1. ;;21,"00093-0051-05 ")
  1. ;;943
  1. ;;21,"00093-0135-01 ")
  1. ;;1002
  1. ;;21,"00093-0135-05 ")
  1. ;;1003
  1. ;;21,"00093-0733-01 ")
  1. ;;1562
  1. ;;21,"00093-0733-10 ")
  1. ;;1563
  1. ;;21,"00093-0734-01 ")
  1. ;;1377
  1. ;;21,"00093-0734-10 ")
  1. ;;1378
  1. ;;21,"00093-0752-01 ")
  1. ;;501
  1. ;;21,"00093-0752-10 ")
  1. ;;502
  1. ;;21,"00093-0753-01 ")
  1. ;;244
  1. ;;21,"00093-0753-05 ")
  1. ;;245
  1. ;;21,"00093-0787-01 ")
  1. ;;364
  1. ;;21,"00093-0787-10 ")
  1. ;;365
  1. ;;21,"00093-4235-01 ")
  1. ;;1804
  1. ;;21,"00093-4236-01 ")
  1. ;;1827
  1. ;;21,"00093-4237-01 ")
  1. ;;1863
  1. ;;21,"00093-5270-56 ")
  1. ;;737
  1. ;;21,"00093-5271-56 ")
  1. ;;716
  1. ;;21,"00093-7295-01 ")
  1. ;;788
  1. ;;21,"00093-7295-05 ")
  1. ;;789
  1. ;;21,"00093-7296-01 ")
  1. ;;862
  1. ;;21,"00093-7296-05 ")
  1. ;;863
  1. ;;21,"00115-5311-01 ")
  1. ;;191
  1. ;;21,"00115-5322-01 ")
  1. ;;195
  1. ;;21,"00172-4217-60 ")
  1. ;;1908
  1. ;;21,"00172-4218-60 ")
  1. ;;1902
  1. ;;21,"00172-4235-60 ")
  1. ;;1805
  1. ;;21,"00172-4235-70 ")
  1. ;;1806
  1. ;;21,"00172-4236-60 ")
  1. ;;1828
  1. ;;21,"00172-4237-60 ")
  1. ;;1864
  1. ;;21,"00172-4238-60 ")
  1. ;;1793
  1. ;;21,"00172-4239-60 ")
  1. ;;1798
  1. ;;21,"00172-4364-00 ")
  1. ;;1119
  1. ;;21,"00172-4364-10 ")
  1. ;;1120
  1. ;;21,"00172-4364-60 ")
  1. ;;1080
  1. ;;21,"00172-4364-70 ")
  1. ;;1081
  1. ;;21,"00172-4365-00 ")
  1. ;;1165
  1. ;;21,"00172-4365-10 ")
  1. ;;1166
  1. ;;21,"00172-4365-60 ")
  1. ;;1126
  1. ;;21,"00172-4365-70 ")
  1. ;;1127
  1. ;;21,"00172-4366-60 ")
  1. ;;1170
  1. ;;21,"00172-5730-60 ")
  1. ;;95
  1. ;;21,"00172-5730-70 ")
  1. ;;96
  1. ;;21,"00172-5731-60 ")
  1. ;;129
  1. ;;21,"00172-5731-70 ")
  1. ;;130
  1. ;;21,"00172-5732-60 ")
  1. ;;60
  1. ;;21,"00172-5732-70 ")
  1. ;;61
  1. ;;21,"00173-0346-44 ")
  1. ;;1082
  1. ;;21,"00173-0346-47 ")
  1. ;;1083
  1. ;;21,"00173-0347-43 ")
  1. ;;1128
  1. ;;21,"00173-0347-44 ")
  1. ;;1129
  1. ;;21,"00173-0347-47 ")
  1. ;;1130
  1. ;;21,"00173-0348-43 ")
  1. ;;1171
  1. ;;21,"00173-0348-44 ")
  1. ;;1172
  1. ;;21,"00173-0348-47 ")
  1. ;;1173
  1. ;;21,"00173-0790-01 ")
  1. ;;2039
  1. ;;21,"00173-0790-02 ")
  1. ;;2040
  1. ;;21,"00173-0791-01 ")
  1. ;;2030
  1. ;;21,"00173-0791-02 ")
  1. ;;2031
  1. ;;21,"00182-1001-89 ")
  1. ;;366
  1. ;;21,"00182-1812-89 ")
  1. ;;2050
  1. ;;21,"00182-1813-89 ")
  1. ;;2118
  1. ;;21,"00182-1814-89 ")
  1. ;;2212
  1. ;;21,"00182-1815-89 ")
  1. ;;2302
  1. ;;21,"00182-2632-89 ")
  1. ;;1807
  1. ;;21,"00182-2633-89 ")
  1. ;;1829
  1. ;;21,"00182-2634-89 ")
  1. ;;1865
  1. ;;21,"00182-8202-00 ")
  1. ;;1084
  1. ;;21,"00182-8202-89 ")
  1. ;;1085
  1. ;;21,"00182-8203-00 ")
  1. ;;1131
  1. ;;21,"00182-8203-89 ")
  1. ;;1132
  1. ;;21,"00182-8235-00 ")
  1. ;;367
  1. ;;21,"00182-8235-89 ")
  1. ;;368
  1. ;;21,"00182-8236-00 ")
  1. ;;503
  1. ;;21,"00182-8236-89 ")
  1. ;;504
  1. ;;21,"00185-0010-01 ")
  1. ;;1086
  1. ;;21,"00185-0010-05 ")
  1. ;;1087
  1. ;;21,"00185-0117-01 ")
  1. ;;1133
  1. ;;21,"00185-0117-05 ")
  1. ;;1134
  1. ;;21,"00185-0118-01 ")
  1. ;;1174
  1. ;;21,"00185-0118-05 ")
  1. ;;1175
  1. ;;21,"00185-0281-01 ")
  1. ;;1268
  1. ;;21,"00185-0281-10 ")
  1. ;;1269
  1. ;;21,"00185-0282-01 ")
  1. ;;1308
  1. ;;21,"00185-0282-10 ")
  1. ;;1309
  1. ;;21,"00185-0283-01 ")
  1. ;;1190
  1. ;;21,"00185-0283-10 ")
  1. ;;1191
  1. ;;21,"00185-0284-01 ")
  1. ;;1237
  1. ;;21,"00185-0284-10 ")
  1. ;;1238
  1. ;;21,"00185-0701-01 ")
  1. ;;97
  1. ;;21,"00185-0701-05 ")
  1. ;;98
  1. ;;21,"00185-0701-30 ")
  1. ;;99
  1. ;;21,"00185-0704-01 ")
  1. ;;131
  1. ;;21,"00185-0704-05 ")
  1. ;;132
  1. ;;21,"00185-0704-30 ")
  1. ;;133
  1. ;;21,"00185-0707-01 ")
  1. ;;62
  1. ;;21,"00185-0707-05 ")
  1. ;;63
  1. ;;21,"00185-0707-30 ")
  1. ;;64
  1. ;;21,"00185-0771-01 ")
  1. ;;738
  1. ;;21,"00185-0771-30 ")
  1. ;;739
  1. ;;21,"00185-0774-01 ")
  1. ;;717
  1. ;;21,"00185-0774-30 ")
  1. ;;718
  1. ;;21,"00186-1088-05 ")
  1. ;;1270
  1. ;;21,"00186-1088-39 ")
  1. ;;1271
  1. ;;21,"00186-1090-05 ")
  1. ;;1310
  1. ;;21,"00186-1090-39 ")
  1. ;;1311
  1. ;;21,"00186-1090-50 ")
  1. ;;1312
  1. ;;21,"00186-1092-05 ")
  1. ;;1192
  1. ;;21,"00186-1092-39 ")
  1. ;;1193
  1. ;;21,"00186-1094-05 ")
  1. ;;1239
  1. ;;21,"00186-7300-05 ")
  1. ;;1272
  1. ;;21,"00186-7301-05 ")
  1. ;;1313
  1. ;;21,"00186-7302-05 ")
  1. ;;1194
  1. ;;21,"00186-7303-05 ")
  1. ;;1240
  1. ;;21,"00228-2175-11 ")
  1. ;;944
  1. ;;21,"00228-2176-11 ")
  1. ;;1004
  1. ;;21,"00228-2177-11 ")
  1. ;;790
  1. ;;21,"00228-2178-11 ")
  1. ;;864
  1. ;;21,"00228-2358-10 ")
  1. ;;203
  1. ;;21,"00228-2358-50 ")
  1. ;;204
  1. ;;21,"00228-2358-96 ")
  1. ;;205
  1. ;;21,"00228-2360-10 ")
  1. ;;213
  1. ;;21,"00228-2650-10 ")
  1. ;;100
  1. ;;21,"00228-2651-10 ")
  1. ;;134
  1. ;;21,"00228-2652-03 ")
  1. ;;65
  1. ;;21,"00228-2778-11 ")
  1. ;;1962
  1. ;;21,"00228-2778-50 ")
  1. ;;1963
  1. ;;21,"00228-2779-11 ")
  1. ;;1988
  1. ;;21,"00228-2779-50 ")
  1. ;;1989
  1. ;;21,"00228-2780-11 ")
  1. ;;1916
  1. ;;21,"00228-2780-50 ")
  1. ;;1917
  1. ;;21,"00228-2781-11 ")
  1. ;;1941
  1. ;;21,"00228-2781-50 ")
  1. ;;1942
  1. ;;21,"00245-0084-10 ")
  1. ;;1964
  1. ;;21,"00245-0084-11 ")
  1. ;;1965
  1. ;;21,"00245-0085-10 ")
  1. ;;1990
  1. ;;21,"00245-0085-11 ")
  1. ;;1991
  1. ;;21,"00245-0086-10 ")
  1. ;;1918
  1. ;;21,"00245-0086-11 ")
  1. ;;1919
  1. ;;21,"00245-0087-10 ")
  1. ;;1943
  1. ;;21,"00245-0087-11 ")
  1. ;;1944
  1. ;;21,"00247-1012-00 ")
  1. ;;246
  1. ;;21,"00247-1050-04 ")
  1. ;;2051
  1. ;;21,"00247-1050-30 ")
  1. ;;2052
  1. ;;21,"00247-1050-52 ")
  1. ;;2053
  1. ;;21,"00247-1050-59 ")
  1. ;;2054
  1. ;;21,"00247-1050-60 ")
  1. ;;2055
  1. ;;21,"00247-1051-00 ")
  1. ;;2213
  1. ;;21,"00247-1051-30 ")
  1. ;;2214
  1. ;;21,"00247-1052-30 ")
  1. ;;206
  1. ;;21,"00247-1052-45 ")
  1. ;;207
  1. ;;21,"00247-1065-30 ")
  1. ;;1564
  1. ;;21,"00247-1072-30 ")
  1. ;;505
  1. ;;21,"00247-1072-60 ")
  1. ;;506
  1. ;;21,"00247-1119-14 ")
  1. ;;1565
  1. ;;21,"00247-1119-30 ")
  1. ;;1566
  1. ;;21,"00247-1119-52 ")
  1. ;;1567
  1. ;;21,"00247-1119-60 ")
  1. ;;1568
  1. ;;21,"00247-1120-30 ")
  1. ;;1379
  1. ;;21,"00247-1120-60 ")
  1. ;;1380
  1. ;;21,"00247-1121-30 ")
  1. ;;184
  1. ;;21,"00247-1121-60 ")
  1. ;;185
  1. ;;21,"00247-1122-30 ")
  1. ;;171
  1. ;;21,"00247-1122-60 ")
  1. ;;172
  1. ;;21,"00247-1123-30 ")
  1. ;;179
  1. ;;21,"00247-1123-60 ")
  1. ;;180
  1. ;;21,"00247-1146-30 ")
  1. ;;369
  1. ;;21,"00247-1146-60 ")
  1. ;;370
  1. ;;21,"00247-1273-00 ")
  1. ;;2119
  1. ;;21,"00247-1273-79 ")
  1. ;;2120
  1. ;;21,"00247-1274-00 ")
  1. ;;1195
  1. ;;21,"00247-1274-60 ")
  1. ;;1196
  1. ;;21,"00310-0101-10 ")
  1. ;;247
  1. ;;21,"00310-0105-10 ")
  1. ;;507
  1. ;;21,"00310-0105-34 ")
  1. ;;508
  1. ;;21,"00310-0107-10 ")
  1. ;;371
  1. ;;21,"00310-0115-10 ")
  1. ;;24
  1. ;;21,"00310-0117-10 ")
  1. ;;1
  1. ;;21,"00378-0018-01 ")
  1. ;;1514
  1. ;;21,"00378-0018-05 ")
  1. ;;1515
  1. ;;21,"00378-0018-91 ")
  1. ;;1516
  1. ;;21,"00378-0028-01 ")
  1. ;;1808
  1. ;;21,"00378-0032-01 ")
  1. ;;1569
  1. ;;21,"00378-0032-10 ")
  1. ;;1570
  1. ;;21,"00378-0047-01 ")
  1. ;;1381
  1. ;;21,"00378-0047-10 ")
  1. ;;1382
  1. ;;21,"00378-0052-01 ")
  1. ;;1909
  1. ;;21,"00378-0055-01 ")
  1. ;;2346
  1. ;;21,"00378-0096-01 ")
  1. ;;192
  1. ;;21,"00378-0099-01 ")
  1. ;;196
  1. ;;21,"00378-0127-01 ")
  1. ;;1903
  1. ;;21,"00378-0182-01 ")
  1. ;;2056
  1. ;;21,"00378-0182-10 ")
  1. ;;2057
  1. ;;21,"00378-0183-01 ")
  1. ;;2121
  1. ;;21,"00378-0183-10 ")
  1. ;;2122
  1. ;;21,"00378-0184-01 ")
  1. ;;2215
  1. ;;21,"00378-0184-10 ")
  1. ;;2216
  1. ;;21,"00378-0185-01 ")
  1. ;;2303
  1. ;;21,"00378-0185-05 ")
  1. ;;2304
  1. ;;21,"00378-0218-01 ")
  1. ;;372
  1. ;;21,"00378-0218-10 ")
  1. ;;373
  1. ;;21,"00378-0221-01 ")
  1. ;;2340
  1. ;;21,"00378-0231-01 ")
  1. ;;509
  1. ;;21,"00378-0231-10 ")
  1. ;;510
  1. ;;21,"00378-0347-01 ")
  1. ;;214
  1. ;;21,"00378-0424-01 ")
  1. ;;186
  1. ;;21,"00378-0434-01 ")
  1. ;;173
  1. ;;21,"00378-0445-01 ")
  1. ;;181
  1. ;;21,"00378-0501-01 ")
  1. ;;101
  1. ;;21,"00378-0501-10 ")
  1. ;;102
  1. ;;21,"00378-0503-01 ")
  1. ;;135
  1. ;;21,"00378-0503-10 ")
  1. ;;136
  1. ;;21,"00378-0505-01 ")
  1. ;;66
  1. ;;21,"00378-0505-05 ")
  1. ;;67
  1. ;;21,"00378-0523-01 ")
  1. ;;740
  1. ;;21,"00378-0523-93 ")
  1. ;;741
  1. ;;21,"00378-0524-01 ")
  1. ;;719
  1. ;;21,"00378-0524-93 ")
  1. ;;720
  1. ;;21,"00378-0715-01 ")
  1. ;;2343
  1. ;;21,"00378-0731-01 ")
  1. ;;208
  1. ;;21,"00378-0757-01 ")
  1. ;;248
  1. ;;21,"00378-0757-10 ")
  1. ;;249
  1. ;;21,"00378-0757-93 ")
  1. ;;250
  1. ;;21,"00378-1132-01 ")
  1. ;;1866
  1. ;;21,"00378-1132-10 ")
  1. ;;1867
  1. ;;21,"00378-1171-01 ")
  1. ;;1830
  1. ;;21,"00378-1171-10 ")
  1. ;;1831
  1. ;;21,"00378-1200-01 ")
  1. ;;218
  1. ;;21,"00378-1400-01 ")
  1. ;;236
  1. ;;21,"00378-2063-01 ")
  1. ;;25
  1. ;;21,"00378-2064-01 ")
  1. ;;2
  1. ;;21,"00378-2064-93 ")
  1. ;;3
  1. ;;21,"00378-3631-01 ")
  1. ;;945
  1. ;;21,"00378-3631-05 ")
  1. ;;946
  1. ;;21,"00378-3632-01 ")
  1. ;;1005
  1. ;;21,"00378-3632-05 ")
  1. ;;1006
  1. ;;21,"00378-3633-01 ")
  1. ;;791
  1. ;;21,"00378-3633-05 ")
  1. ;;792
  1. ;;21,"00378-3634-01 ")
  1. ;;865
  1. ;;21,"00378-3634-05 ")
  1. ;;866
  1. ;;21,"00378-6160-01 ")
  1. ;;1966
  1. ;;21,"00378-6160-05 ")
  1. ;;1967
  1. ;;21,"00378-6180-01 ")
  1. ;;1992
  1. ;;21,"00378-6180-05 ")
  1. ;;1993
  1. ;;21,"00378-6220-01 ")
  1. ;;1920
  1. ;;21,"00378-6220-05 ")
  1. ;;1921
  1. ;;21,"00378-6260-01 ")
  1. ;;1945
  1. ;;21,"00378-6260-05 ")
  1. ;;1946
  1. ;;21,"00406-2022-01 ")
  1. ;;374
  1. ;;21,"00406-2022-10 ")
  1. ;;375
  1. ;;21,"00406-2023-01 ")
  1. ;;511
  1. ;;21,"00406-2023-10 ")
  1. ;;512
  1. ;;21,"00406-2024-01 ")
  1. ;;251
  1. ;;21,"00406-2024-10 ")
  1. ;;252
  1. ;;21,"00440-7170-30 ")
  1. ;;376
  1. ;;21,"00440-7170-45 ")
  1. ;;377
  1. ;;21,"00440-7170-90 ")
  1. ;;378
  1. ;;21,"00440-7171-10 ")
  1. ;;513
  1. ;;21,"00440-7171-30 ")
  1. ;;514
  1. ;;21,"00440-7171-45 ")
  1. ;;515
  1. ;;21,"00440-7171-60 ")
  1. ;;516
  1. ;;21,"00440-7171-90 ")
  1. ;;517
  1. ;;21,"00440-7171-92 ")
  1. ;;518
  1. ;;21,"00440-7172-30 ")
  1. ;;253
  1. ;;21,"00440-7172-90 ")
  1. ;;254
  1. ;;21,"00440-7680-60 ")
  1. ;;1088
  1. ;;21,"00440-7681-60 ")
  1. ;;1135
  1. ;;21,"00440-7784-45 ")
  1. ;;1517
  1. ;;21,"00440-7784-90 ")
  1. ;;1518
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGP13W10
  1. D ^BGP13W11
  1. D ^BGP13W12
  1. D ^BGP13W13
  1. D ^BGP13W14
  1. D ^BGP13W15
  1. D ^BGP13W16
  1. D ^BGP13W17
  1. D ^BGP13W18
  1. D ^BGP13W19
  1. D ^BGP13W2
  1. D ^BGP13W20
  1. D ^BGP13W21
  1. D ^BGP13W22
  1. D ^BGP13W23
  1. D ^BGP13W24
  1. D ^BGP13W25
  1. D ^BGP13W26
  1. D ^BGP13W27
  1. D ^BGP13W28
  1. D ^BGP13W29
  1. D ^BGP13W3
  1. D ^BGP13W30
  1. D ^BGP13W4
  1. D ^BGP13W5
  1. D ^BGP13W6
  1. D ^BGP13W7
  1. D ^BGP13W8
  1. D ^BGP13W9
  1. Q