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

BGP13W3.m

Go to the documentation of this file.
BGP13W3 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;21,"23490-6504-09 ")
 ;;144
 ;;21,"23490-7861-03 ")
 ;;111
 ;;21,"23490-9369-03 ")
 ;;952
 ;;21,"23490-9369-06 ")
 ;;953
 ;;21,"23490-9370-03 ")
 ;;1010
 ;;21,"23490-9370-06 ")
 ;;1011
 ;;21,"23490-9371-03 ")
 ;;798
 ;;21,"23490-9371-06 ")
 ;;799
 ;;21,"23490-9372-03 ")
 ;;874
 ;;21,"23490-9372-06 ")
 ;;875
 ;;21,"23629-0001-10 ")
 ;;221
 ;;21,"23629-0038-10 ")
 ;;1179
 ;;21,"24090-0470-88 ")
 ;;1969
 ;;21,"24090-0471-88 ")
 ;;1995
 ;;21,"24090-0473-88 ")
 ;;1923
 ;;21,"24090-0479-88 ")
 ;;1948
 ;;21,"29300-0126-01 ")
 ;;742
 ;;21,"29300-0126-13 ")
 ;;743
 ;;21,"29300-0127-01 ")
 ;;721
 ;;21,"29300-0127-13 ")
 ;;722
 ;;21,"33358-0037-00 ")
 ;;399
 ;;21,"33358-0037-30 ")
 ;;400
 ;;21,"33358-0037-60 ")
 ;;401
 ;;21,"33358-0038-00 ")
 ;;542
 ;;21,"33358-0038-30 ")
 ;;543
 ;;21,"33358-0038-60 ")
 ;;544
 ;;21,"33358-0039-00 ")
 ;;274
 ;;21,"33358-0039-30 ")
 ;;275
 ;;21,"33358-0192-30 ")
 ;;2077
 ;;21,"33358-0193-30 ")
 ;;2139
 ;;21,"33358-0194-30 ")
 ;;1970
 ;;21,"33358-0242-00 ")
 ;;1605
 ;;21,"33358-0242-01 ")
 ;;1606
 ;;21,"33358-0242-30 ")
 ;;1607
 ;;21,"33358-0242-60 ")
 ;;1608
 ;;21,"33358-0242-90 ")
 ;;1609
 ;;21,"33358-0243-00 ")
 ;;1413
 ;;21,"33358-0243-30 ")
 ;;1414
 ;;21,"35356-0362-60 ")
 ;;1095
 ;;21,"35356-0415-30 ")
 ;;1610
 ;;21,"35356-0490-30 ")
 ;;783
 ;;21,"35356-0512-30 ")
 ;;1012
 ;;21,"35356-0513-30 ")
 ;;954
 ;;21,"35356-0518-30 ")
 ;;772
 ;;21,"35356-0526-00 ")
 ;;876
 ;;21,"38245-0724-20 ")
 ;;1872
 ;;21,"38245-0727-20 ")
 ;;1794
 ;;21,"42291-0171-90 ")
 ;;126
 ;;21,"42291-0172-90 ")
 ;;167
 ;;21,"42291-0173-90 ")
 ;;92
 ;;21,"42806-0038-01 ")
 ;;707
 ;;21,"42806-0039-01 ")
 ;;714
 ;;21,"43063-0006-01 ")
 ;;1415
 ;;21,"43063-0125-93 ")
 ;;800
 ;;21,"43063-0126-93 ")
 ;;955
 ;;21,"43063-0127-93 ")
 ;;1013
 ;;21,"43063-0129-93 ")
 ;;877
 ;;21,"43063-0134-90 ")
 ;;74
 ;;21,"43063-0135-90 ")
 ;;112
 ;;21,"43063-0210-30 ")
 ;;1301
 ;;21,"43063-0211-30 ")
 ;;1364
 ;;21,"43353-0111-30 ")
 ;;878
 ;;21,"43353-0111-53 ")
 ;;879
 ;;21,"43353-0111-60 ")
 ;;880
 ;;21,"43353-0111-80 ")
 ;;881
 ;;21,"43353-0119-30 ")
 ;;1014
 ;;21,"43353-0119-53 ")
 ;;1015
 ;;21,"43353-0119-60 ")
 ;;1016
 ;;21,"43353-0119-80 ")
 ;;1017
 ;;21,"43353-0122-30 ")
 ;;801
 ;;21,"43353-0122-53 ")
 ;;802
 ;;21,"43353-0122-60 ")
 ;;803
 ;;21,"43353-0133-60 ")
 ;;934
 ;;21,"43353-0134-45 ")
 ;;1200
 ;;21,"43353-0134-60 ")
 ;;1201
 ;;21,"43353-0160-30 ")
 ;;850
 ;;21,"43353-0160-53 ")
 ;;851
 ;;21,"43353-0160-60 ")
 ;;852
 ;;21,"43353-0160-70 ")
 ;;853
 ;;21,"43353-0160-80 ")
 ;;854
 ;;21,"43353-0173-30 ")
 ;;1318
 ;;21,"43353-0173-42 ")
 ;;1319
 ;;21,"43353-0173-45 ")
 ;;1320
 ;;21,"43353-0173-80 ")
 ;;1321
 ;;21,"43353-0348-30 ")
 ;;1322
 ;;21,"43353-0348-45 ")
 ;;1323
 ;;21,"43353-0399-60 ")
 ;;545
 ;;21,"43353-0440-30 ")
 ;;882
 ;;21,"43353-0440-53 ")
 ;;883
 ;;21,"43353-0440-60 ")
 ;;884
 ;;21,"43353-0440-80 ")
 ;;885
 ;;21,"43353-0478-30 ")
 ;;804
 ;;21,"43353-0478-53 ")
 ;;805
 ;;21,"43353-0478-60 ")
 ;;806
 ;;21,"43353-0485-53 ")
 ;;956
 ;;21,"43353-0485-60 ")
 ;;957
 ;;21,"43353-0486-30 ")
 ;;1018
 ;;21,"43353-0486-53 ")
 ;;1019
 ;;21,"43353-0486-60 ")
 ;;1020
 ;;21,"43353-0486-80 ")
 ;;1021
 ;;21,"43353-0508-60 ")
 ;;2140
 ;;21,"43353-0576-45 ")
 ;;1782
 ;;21,"43353-0576-53 ")
 ;;1783
 ;;21,"43353-0576-60 ")
 ;;1784
 ;;21,"43353-0576-70 ")
 ;;1785
 ;;21,"43353-0576-80 ")
 ;;1786
 ;;21,"43353-0576-92 ")
 ;;1787
 ;;21,"43478-0900-88 ")
 ;;1971
 ;;21,"43478-0901-88 ")
 ;;1996
 ;;21,"43478-0902-88 ")
 ;;1924
 ;;21,"43478-0903-88 ")
 ;;1949
 ;;21,"43547-0254-10 ")
 ;;995
 ;;21,"43547-0255-10 ")
 ;;1071
 ;;21,"43547-0256-10 ")
 ;;855
 ;;21,"43547-0257-10 ")
 ;;935
 ;;21,"43683-0142-30 ")
 ;;53
 ;;21,"43683-0143-30 ")
 ;;21
 ;;21,"43683-0144-30 ")
 ;;693
 ;;21,"43683-0146-30 ")
 ;;1788
 ;;21,"49884-0282-01 ")
 ;;1972
 ;;21,"49884-0282-10 ")
 ;;1973
 ;;21,"49884-0328-01 ")
 ;;1997
 ;;21,"49884-0328-10 ")
 ;;1998
 ;;21,"49884-0329-01 ")
 ;;1925
 ;;21,"49884-0329-10 ")
 ;;1926
 ;;21,"49884-0330-01 ")
 ;;1950
 ;;21,"49884-0330-10 ")
 ;;1951
 ;;21,"49884-0404-01 ")
 ;;1273
 ;;21,"49884-0404-10 ")
 ;;1274
 ;;21,"49884-0405-01 ")
 ;;1324
 ;;21,"49884-0405-10 ")
 ;;1325
 ;;21,"49884-0406-01 ")
 ;;1202
 ;;21,"49884-0406-10 ")
 ;;1203
 ;;21,"49884-0407-01 ")
 ;;1241
 ;;21,"49884-0407-10 ")
 ;;1242
 ;;21,"49884-0456-01 ")
 ;;546
 ;;21,"49884-0456-10 ")
 ;;547
 ;;21,"49884-0457-01 ")
 ;;276
 ;;21,"49884-0457-10 ")
 ;;277
 ;;21,"49884-0587-01 ")
 ;;222
 ;;21,"49884-0588-01 ")
 ;;238
 ;;21,"49884-0944-01 ")
 ;;402
 ;;21,"49884-0944-10 ")
 ;;403
 ;;21,"49999-0010-00 ")
 ;;1611
 ;;21,"49999-0010-30 ")
 ;;1612
 ;;21,"49999-0010-60 ")
 ;;1613
 ;;21,"49999-0104-00 ")
 ;;548
 ;;21,"49999-0104-30 ")
 ;;549
 ;;21,"49999-0104-60 ")
 ;;550
 ;;21,"49999-0104-90 ")
 ;;551
 ;;21,"49999-0178-00 ")
 ;;278
 ;;21,"49999-0178-30 ")
 ;;279
 ;;21,"49999-0201-30 ")
 ;;1837
 ;;21,"49999-0202-30 ")
 ;;1873
 ;;21,"49999-0203-30 ")
 ;;1799
 ;;21,"49999-0226-00 ")
 ;;1416
 ;;21,"49999-0226-30 ")
 ;;1417
 ;;21,"49999-0226-60 ")
 ;;1418
 ;;21,"49999-0286-60 ")
 ;;2236
 ;;21,"49999-0454-00 ")
 ;;404
 ;;21,"49999-0454-10 ")
 ;;405
 ;;21,"49999-0454-30 ")
 ;;406
 ;;21,"49999-0454-60 ")
 ;;407
 ;;21,"49999-0454-90 ")
 ;;408
 ;;21,"49999-0482-30 ")
 ;;1275
 ;;21,"49999-0483-00 ")
 ;;1326
 ;;21,"49999-0483-30 ")
 ;;1327
 ;;21,"49999-0484-00 ")
 ;;1204
 ;;21,"49999-0484-30 ")
 ;;1205
 ;;21,"49999-0512-30 ")
 ;;31
 ;;21,"49999-0555-90 ")
 ;;2141
 ;;21,"49999-0575-10 ")
 ;;1521
 ;;21,"49999-0575-20 ")
 ;;1522
 ;;21,"49999-0575-30 ")
 ;;1523
 ;;21,"49999-0577-20 ")
 ;;958
 ;;21,"49999-0866-00 ")
 ;;744
 ;;21,"49999-0872-30 ")
 ;;886
 ;;21,"49999-0938-30 ")
 ;;807
 ;;21,"49999-0939-30 ")
 ;;1022
 ;;21,"49999-0996-00 ")
 ;;1243
 ;;21,"50111-0467-01 ")
 ;;2078
 ;;21,"50111-0467-03 ")
 ;;2079
 ;;21,"50111-0468-01 ")
 ;;2142
 ;;21,"50111-0468-03 ")
 ;;2143
 ;;21,"50111-0469-01 ")
 ;;2237
 ;;21,"50111-0469-03 ")
 ;;2238
 ;;21,"50111-0470-01 ")
 ;;2282
 ;;21,"50111-0471-01 ")
 ;;2314
 ;;21,"50111-0471-02 ")
 ;;2315
 ;;21,"50111-0473-01 ")
 ;;209
 ;;21,"50111-0473-02 ")
 ;;210
 ;;21,"50111-0474-01 ")
 ;;215
 ;;21,"50268-0050-15 ")
 ;;233
 ;;21,"50268-0051-15 ")
 ;;242
 ;;21,"51079-0255-01 ")
 ;;1524
 ;;21,"51079-0255-17 ")
 ;;1525
 ;;21,"51079-0255-19 ")
 ;;1526
 ;;21,"51079-0255-20 ")
 ;;1527
 ;;21,"51079-0277-01 ")
 ;;2080
 ;;21,"51079-0277-17 ")
 ;;2081
 ;;21,"51079-0277-19 ")
 ;;2082
 ;;21,"51079-0277-20 ")
 ;;2083
 ;;21,"51079-0278-01 ")
 ;;2144
 ;;21,"51079-0278-20 ")
 ;;2145
 ;;21,"51079-0279-01 ")
 ;;2239
 ;;21,"51079-0279-20 ")
 ;;2240
 ;;21,"51079-0280-01 ")
 ;;2316
 ;;21,"51079-0280-20 ")
 ;;2317
 ;;21,"51079-0684-01 ")
 ;;552
 ;;21,"51079-0684-17 ")
 ;;553
 ;;21,"51079-0684-19 ")
 ;;554
 ;;21,"51079-0684-20 ")
 ;;555
 ;;21,"51079-0684-24 ")
 ;;556
 ;;21,"51079-0684-63 ")
 ;;557
 ;;21,"51079-0685-01 ")
 ;;280
 ;;21,"51079-0685-20 ")
 ;;281
 ;;21,"51079-0759-01 ")
 ;;409
 ;;21,"51079-0759-17 ")
 ;;410
 ;;21,"51079-0759-19 ")
 ;;411
 ;;21,"51079-0759-20 ")
 ;;412
 ;;21,"51079-0759-63 ")
 ;;413
 ;;21,"51079-0771-01 ")
 ;;959
 ;;21,"51079-0771-17 ")
 ;;960
 ;;21,"51079-0771-19 ")
 ;;961
 ;;21,"51079-0771-20 ")
 ;;962
 ;;21,"51079-0801-01 ")
 ;;1614
 ;;21,"51079-0801-17 ")
 ;;1615
 ;;21,"51079-0801-19 ")
 ;;1616
 ;;21,"51079-0801-20 ")
 ;;1617
 ;;21,"51079-0801-23 ")
 ;;1618
 ;;21,"51079-0801-24 ")
 ;;1619
 ;;21,"51079-0801-30 ")
 ;;1620
 ;;21,"51079-0801-56 ")
 ;;1621
 ;;21,"51079-0801-57 ")
 ;;1622
 ;;21,"51079-0802-01 ")
 ;;1419
 ;;21,"51079-0802-17 ")
 ;;1420
 ;;21,"51079-0802-19 ")
 ;;1421
 ;;21,"51079-0802-20 ")
 ;;1422
 ;;21,"51079-0812-01 ")
 ;;1812
 ;;21,"51079-0812-20 ")
 ;;1813
 ;;21,"51079-0813-01 ")
 ;;1838
 ;;21,"51079-0813-20 ")
 ;;1839
 ;;21,"51079-0814-01 ")
 ;;1874
 ;;21,"51079-0814-20 ")
 ;;1875
 ;;21,"51079-0928-01 ")
 ;;1096
 ;;21,"51079-0928-20 ")
 ;;1097
 ;;21,"51079-0929-01 ")
 ;;1143
 ;;21,"51079-0929-20 ")
 ;;1144
 ;;21,"51079-0930-01 ")
 ;;1023
 ;;21,"51079-0930-17 ")
 ;;1024
 ;;21,"51079-0930-19 ")
 ;;1025
 ;;21,"51079-0930-20 ")
 ;;1026
 ;;21,"51079-0931-01 ")
 ;;808
 ;;21,"51079-0931-17 ")
 ;;809
 ;;21,"51079-0931-19 ")
 ;;810
 ;;21,"51079-0931-20 ")
 ;;811
 ;;21,"51079-0932-01 ")
 ;;887
 ;;21,"51079-0932-20 ")
 ;;888
 ;;21,"51079-0954-01 ")
 ;;113
 ;;21,"51079-0954-20 ")
 ;;114
 ;;21,"51079-0955-01 ")
 ;;145
 ;;21,"51079-0955-20 ")
 ;;146
 ;;21,"51079-0956-01 ")
 ;;75
 ;;21,"51079-0956-20 ")
 ;;76
 ;;21,"51285-0040-01 ")
 ;;77
 ;;21,"51285-0047-02 ")
 ;;115
 ;;21,"51285-0048-02 ")
 ;;147
 ;;21,"51285-0049-01 ")
 ;;78
 ;;21,"51285-0050-02 ")
 ;;148
 ;;21,"51285-0060-01 ")
 ;;745
 ;;21,"51285-0061-01 ")
 ;;723
 ;;21,"51655-0019-24 ")
 ;;558
 ;;21,"51655-0019-25 ")
 ;;559
 ;;21,"51655-0149-24 ")
 ;;1623
 ;;21,"51655-0149-25 ")
 ;;1624
 ;;21,"51655-0284-24 ")
 ;;1423
 ;;21,"51655-0319-25 ")
 ;;282
 ;;21,"51655-0331-24 ")
 ;;1840
 ;;21,"51655-0349-24 ")
 ;;2241
 ;;21,"51655-0350-24 ")
 ;;2146
 ;;21,"51655-0530-24 ")
 ;;560
 ;;21,"51655-0532-24 ")
 ;;283
 ;;21,"52152-0179-02 ")
 ;;702
 ;;21,"52152-0180-02 ")
 ;;711
 ;;21,"52544-0463-10 ")
 ;;1424
 ;;21,"52544-0605-01 ")
 ;;1098
 ;;21,"52544-0605-05 ")
 ;;1099
 ;;21,"52555-0454-01 ")
 ;;1911
 ;;21,"52555-0455-01 ")
 ;;1906
 ;;21,"52959-0212-01 ")
 ;;2147
 ;;21,"52959-0212-10 ")
 ;;2148
 ;;21,"52959-0212-20 ")
 ;;2149
 ;;21,"52959-0212-45 ")
 ;;2150
 ;;21,"52959-0212-50 ")
 ;;2151
 ;;21,"52959-0212-60 ")
 ;;2152
 ;;21,"52959-0241-30 ")
 ;;79
 ;;21,"52959-0247-30 ")
 ;;1999
 ;;21,"52959-0253-00 ")
 ;;561
 ;;21,"52959-0253-20 ")
 ;;562
 ;;21,"52959-0253-30 ")
 ;;563
 ;;21,"52959-0253-40 ")
 ;;564
 ;;21,"52959-0258-30 ")
 ;;284
 ;;21,"52959-0280-30 ")
 ;;565
 ;;21,"52959-0337-10 ")
 ;;149
 ;;21,"52959-0337-30 ")
 ;;150
 ;;21,"52959-0463-01 ")
 ;;414
 ;;21,"52959-0463-30 ")
 ;;415
 ;;21,"52959-0463-60 ")
 ;;416
 ;;21,"52959-0543-30 ")
 ;;1938
 ;;21,"52959-0827-30 ")
 ;;2084
 ;;21,"52959-0839-30 ")
 ;;1625
 ;;21,"52959-0839-60 ")
 ;;1626
 ;;21,"52959-0895-60 ")
 ;;2242
 ;;21,"53002-1004-00 ")
 ;;696
 ;;21,"53002-1004-03 ")
 ;;697
 ;;21,"53002-1004-06 ")
 ;;698
 ;;21,"53002-1108-00 ")
 ;;494
 ;;21,"53002-1108-03 ")
 ;;495
 ;;21,"53002-1108-06 ")
 ;;496
 ;;21,"53002-1138-00 ")
 ;;361
 ;;21,"53002-1138-03 ")
 ;;362
 ;;21,"53002-1138-06 ")
 ;;363
 ;;21,"53265-0412-10 ")
 ;;417
 ;;21,"53265-0412-11 ")
 ;;418
 ;;21,"53265-0413-10 ")
 ;;566
 ;;21,"53265-0413-11 ")
 ;;567
 ;;21,"53265-0414-10 ")
 ;;285
 ;;21,"53265-0414-11 ")
 ;;286
 ;;21,"53489-0354-01 ")
 ;;1100
 ;;21,"53489-0354-05 ")
 ;;1101
 ;;21,"53489-0355-01 ")
 ;;1145
 ;;21,"53489-0355-05 ")
 ;;1146
 ;;21,"53489-0356-01 ")
 ;;1180
 ;;21,"53489-0356-05 ")
 ;;1181
 ;;21,"53489-0366-01 ")
 ;;1627
 ;;21,"53489-0366-10 ")
 ;;1628
 ;;21,"53489-0367-01 ")
 ;;1425
 ;;21,"53489-0367-10 ")
 ;;1426
 ;;21,"53489-0430-01 ")
 ;;1912
 ;;21,"53489-0431-01 ")
 ;;1907
 ;;21,"53489-0529-01 ")
 ;;568
 ;;21,"53489-0529-10 ")
 ;;569
 ;;21,"53489-0530-01 ")
 ;;287
 ;;21,"53489-0530-10 ")
 ;;288
 ;;21,"53489-0531-01 ")
 ;;32
 ;;21,"53489-0532-01 ")
 ;;8
 ;;21,"53489-0536-01 ")
 ;;419
 ;;21,"53489-0536-10 ")
 ;;420
 ;;21,"53489-0555-01 ")
 ;;746
 ;;21,"53489-0555-07 ")
 ;;747
 ;;21,"53489-0556-01 ")
 ;;724
 ;;21,"53489-0556-07 ")
 ;;725
 ;;21,"54348-0142-30 ")
 ;;570
 ;;21,"54458-0931-05 ")
 ;;694
 ;;21,"54569-0442-00 ")
 ;;2283
 ;;21,"54569-0557-00 ")
 ;;2085
 ;;21,"54569-0557-01 ")
 ;;2086
 ;;21,"54569-0557-03 ")
 ;;2087
 ;;21,"54569-0559-00 ")
 ;;2153
 ;;21,"54569-0559-01 ")
 ;;2154
 ;;21,"54569-0559-03 ")
 ;;2155
 ;;21,"54569-0561-01 ")
 ;;2243
 ;;21,"54569-0561-02 ")
 ;;2244
 ;;21,"54569-0561-03 ")
 ;;2245