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

BGP44O4.m

Go to the documentation of this file.
BGP44O4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 11, 2013;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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-9602-03 ")
 ;;1896
 ;;21,"23490-9602-04 ")
 ;;1897
 ;;21,"23490-9604-03 ")
 ;;1959
 ;;21,"24658-0240-10 ")
 ;;913
 ;;21,"24658-0240-90 ")
 ;;914
 ;;21,"24658-0241-10 ")
 ;;1001
 ;;21,"24658-0241-30 ")
 ;;1002
 ;;21,"24658-0241-45 ")
 ;;1003
 ;;21,"24658-0241-90 ")
 ;;1004
 ;;21,"24658-0242-10 ")
 ;;1170
 ;;21,"24658-0242-15 ")
 ;;1171
 ;;21,"24658-0242-18 ")
 ;;1172
 ;;21,"24658-0242-30 ")
 ;;1173
 ;;21,"24658-0242-45 ")
 ;;1174
 ;;21,"24658-0242-90 ")
 ;;1175
 ;;21,"24658-0243-10 ")
 ;;1315
 ;;21,"24658-0243-15 ")
 ;;1316
 ;;21,"24658-0243-18 ")
 ;;1317
 ;;21,"24658-0243-30 ")
 ;;1318
 ;;21,"24658-0243-45 ")
 ;;1319
 ;;21,"24658-0243-90 ")
 ;;1320
 ;;21,"24658-0245-10 ")
 ;;1661
 ;;21,"24658-0245-15 ")
 ;;1662
 ;;21,"24658-0245-18 ")
 ;;1663
 ;;21,"24658-0245-30 ")
 ;;1664
 ;;21,"24658-0245-45 ")
 ;;1665
 ;;21,"24658-0245-60 ")
 ;;1666
 ;;21,"24658-0245-90 ")
 ;;1667
 ;;21,"30698-0449-01 ")
 ;;152
 ;;21,"30698-0450-01 ")
 ;;217
 ;;21,"31722-0200-10 ")
 ;;742
 ;;21,"31722-0200-90 ")
 ;;743
 ;;21,"31722-0201-10 ")
 ;;819
 ;;21,"31722-0201-90 ")
 ;;820
 ;;21,"31722-0202-10 ")
 ;;840
 ;;21,"31722-0202-90 ")
 ;;841
 ;;21,"31722-0267-90 ")
 ;;1713
 ;;21,"31722-0268-90 ")
 ;;1736
 ;;21,"31722-0269-90 ")
 ;;1762
 ;;21,"31722-0270-90 ")
 ;;1793
 ;;21,"31722-0271-01 ")
 ;;1832
 ;;21,"31722-0272-01 ")
 ;;1861
 ;;21,"31722-0272-05 ")
 ;;1862
 ;;21,"31722-0272-10 ")
 ;;1863
 ;;21,"31722-0273-01 ")
 ;;1914
 ;;21,"31722-0273-05 ")
 ;;1915
 ;;21,"31722-0273-10 ")
 ;;1916
 ;;21,"31722-0274-01 ")
 ;;1989
 ;;21,"31722-0274-05 ")
 ;;1960
 ;;21,"31722-0274-10 ")
 ;;1961
 ;;21,"31722-0374-90 ")
 ;;3190
 ;;21,"31722-0375-90 ")
 ;;3204
 ;;21,"31722-0376-90 ")
 ;;3213
 ;;21,"31722-0729-30 ")
 ;;2080
 ;;21,"31722-0729-90 ")
 ;;2081
 ;;21,"31722-0730-30 ")
 ;;2142
 ;;21,"31722-0730-90 ")
 ;;2143
 ;;21,"31722-0731-30 ")
 ;;2200
 ;;21,"31722-0731-90 ")
 ;;2201
 ;;21,"33261-0109-30 ")
 ;;1628
 ;;21,"33261-0109-60 ")
 ;;1629
 ;;21,"33261-0109-90 ")
 ;;1630
 ;;21,"33261-0110-07 ")
 ;;1280
 ;;21,"33261-0110-14 ")
 ;;1281
 ;;21,"33261-0110-20 ")
 ;;1282
 ;;21,"33261-0110-21 ")
 ;;1283
 ;;21,"33261-0110-28 ")
 ;;1284
 ;;21,"33261-0110-30 ")
 ;;1285
 ;;21,"33261-0110-60 ")
 ;;1286
 ;;21,"33261-0110-90 ")
 ;;1287
 ;;21,"33261-0180-02 ")
 ;;113
 ;;21,"33261-0180-30 ")
 ;;114
 ;;21,"33261-0180-60 ")
 ;;115
 ;;21,"33261-0180-90 ")
 ;;116
 ;;21,"33261-0416-30 ")
 ;;3045
 ;;21,"33261-0416-60 ")
 ;;3046
 ;;21,"33261-0416-90 ")
 ;;3047
 ;;21,"33261-0453-30 ")
 ;;2837
 ;;21,"33261-0453-60 ")
 ;;2838
 ;;21,"33261-0453-90 ")
 ;;2839
 ;;21,"33261-0728-00 ")
 ;;3153
 ;;21,"33261-0728-30 ")
 ;;3154
 ;;21,"33261-0728-60 ")
 ;;3155
 ;;21,"33261-0728-90 ")
 ;;3156
 ;;21,"33261-0828-30 ")
 ;;2937
 ;;21,"33261-0828-60 ")
 ;;2938
 ;;21,"33261-0828-90 ")
 ;;2939
 ;;21,"33261-0838-00 ")
 ;;3360
 ;;21,"33261-0838-30 ")
 ;;3361
 ;;21,"33261-0838-60 ")
 ;;3362
 ;;21,"33261-0838-90 ")
 ;;3363
 ;;21,"33342-0047-07 ")
 ;;2084
 ;;21,"33342-0047-10 ")
 ;;2085
 ;;21,"33342-0048-07 ")
 ;;2155
 ;;21,"33342-0048-10 ")
 ;;2156
 ;;21,"33342-0049-07 ")
 ;;2205
 ;;21,"33342-0049-10 ")
 ;;2206
 ;;21,"33342-0057-07 ")
 ;;3294
 ;;21,"33342-0057-10 ")
 ;;3295
 ;;21,"33342-0058-07 ")
 ;;3325
 ;;21,"33342-0058-10 ")
 ;;3326
 ;;21,"33358-0047-30 ")
 ;;2843
 ;;21,"33358-0048-30 ")
 ;;47
 ;;21,"33358-0049-30 ")
 ;;95
 ;;21,"33358-0050-30 ")
 ;;2868
 ;;21,"33358-0126-30 ")
 ;;511
 ;;21,"33358-0127-30 ")
 ;;628
 ;;21,"33358-0127-60 ")
 ;;629
 ;;21,"33358-0128-30 ")
 ;;715
 ;;21,"33358-0128-60 ")
 ;;716
 ;;21,"33358-0211-30 ")
 ;;1030
 ;;21,"33358-0212-30 ")
 ;;1207
 ;;21,"33358-0213-30 ")
 ;;1379
 ;;21,"33358-0214-30 ")
 ;;2977
 ;;21,"33358-0214-60 ")
 ;;2978
 ;;21,"33358-0222-00 ")
 ;;2731
 ;;21,"35356-0060-30 ")
 ;;3652
 ;;21,"35356-0101-90 ")
 ;;2601
 ;;21,"35356-0131-30 ")
 ;;2190
 ;;21,"35356-0133-30 ")
 ;;2602
 ;;21,"35356-0216-30 ")
 ;;2482
 ;;21,"35356-0216-90 ")
 ;;2483
 ;;21,"35356-0256-30 ")
 ;;3520
 ;;21,"35356-0256-90 ")
 ;;3521
 ;;21,"35356-0257-30 ")
 ;;3522
 ;;21,"35356-0257-90 ")
 ;;3523
 ;;21,"35356-0258-30 ")
 ;;3539
 ;;21,"35356-0258-90 ")
 ;;3540
 ;;21,"35356-0268-30 ")
 ;;2824
 ;;21,"35356-0287-20 ")
 ;;2459
 ;;21,"35356-0287-30 ")
 ;;2460
 ;;21,"35356-0288-40 ")
 ;;3531
 ;;21,"35356-0289-40 ")
 ;;3532
 ;;21,"35356-0293-90 ")
 ;;3684
 ;;21,"35356-0294-90 ")
 ;;3704
 ;;21,"35356-0295-30 ")
 ;;2498
 ;;21,"35356-0296-30 ")
 ;;2511
 ;;21,"35356-0297-30 ")
 ;;3545
 ;;21,"35356-0298-30 ")
 ;;2515
 ;;21,"35356-0299-30 ")
 ;;3546
 ;;21,"35356-0300-30 ")
 ;;3554
 ;;21,"35356-0373-90 ")
 ;;2229
 ;;21,"35356-0374-15 ")
 ;;3288
 ;;21,"35356-0374-30 ")
 ;;3289
 ;;21,"35356-0406-30 ")
 ;;3317
 ;;21,"35356-0416-10 ")
 ;;3347
 ;;21,"35356-0416-20 ")
 ;;3348
 ;;21,"35356-0416-30 ")
 ;;3349
 ;;21,"35356-0427-30 ")
 ;;2038
 ;;21,"35356-0428-30 ")
 ;;2112
 ;;21,"35356-0432-30 ")
 ;;204
 ;;21,"35356-0432-60 ")
 ;;205
 ;;21,"35356-0432-90 ")
 ;;206
 ;;21,"35356-0541-30 ")
 ;;418
 ;;21,"35356-0587-30 ")
 ;;4
 ;;21,"35356-0587-60 ")
 ;;5
 ;;21,"35356-0587-90 ")
 ;;6
 ;;21,"35356-0601-30 ")
 ;;1697
 ;;21,"35356-0695-30 ")
 ;;1259
 ;;21,"35356-0773-30 ")
 ;;2451
 ;;21,"35356-0777-30 ")
 ;;2972
 ;;21,"35356-0778-30 ")
 ;;3152
 ;;21,"35356-0779-30 ")
 ;;2373
 ;;21,"35356-0780-30 ")
 ;;3448
 ;;21,"35356-0854-30 ")
 ;;2103
 ;;21,"35356-0861-30 ")
 ;;125
 ;;21,"35356-0869-30 ")
 ;;576
 ;;21,"35356-0871-30 ")
 ;;675
 ;;21,"35356-0879-30 ")
 ;;1044
 ;;21,"35356-0879-90 ")
 ;;1045
 ;;21,"35356-0883-30 ")
 ;;2452
 ;;21,"35356-0884-30 ")
 ;;2371
 ;;21,"35356-0884-90 ")
 ;;2372
 ;;21,"35356-0893-30 ")
 ;;1964
 ;;21,"35356-0910-30 ")
 ;;35
 ;;21,"35356-0913-30 ")
 ;;1812
 ;;21,"35356-0917-30 ")
 ;;2644
 ;;21,"35356-0945-30 ")
 ;;535
 ;;21,"35356-0945-60 ")
 ;;536
 ;;21,"35356-0945-90 ")
 ;;537
 ;;21,"35356-0948-30 ")
 ;;1526
 ;;21,"35356-0948-60 ")
 ;;1527
 ;;21,"35356-0948-90 ")
 ;;1528
 ;;21,"35356-0949-30 ")
 ;;2241
 ;;21,"35356-0960-30 ")
 ;;2688
 ;;21,"35356-0960-60 ")
 ;;2689
 ;;21,"35356-0960-90 ")
 ;;2690
 ;;21,"35356-0961-30 ")
 ;;779
 ;;21,"35356-0961-60 ")
 ;;780
 ;;21,"35356-0961-90 ")
 ;;781
 ;;21,"35356-0965-30 ")
 ;;2742
 ;;21,"35356-0965-60 ")
 ;;2743
 ;;21,"35356-0965-90 ")
 ;;2744
 ;;21,"35356-0973-30 ")
 ;;879
 ;;21,"35356-0973-60 ")
 ;;880
 ;;21,"35356-0973-90 ")
 ;;881
 ;;21,"35356-0976-30 ")
 ;;3631
 ;;21,"35356-0976-60 ")
 ;;3632
 ;;21,"35356-0979-30 ")
 ;;3669
 ;;21,"35356-0979-60 ")
 ;;3670
 ;;21,"42254-0072-30 ")
 ;;2721
 ;;21,"42254-0073-30 ")
 ;;2740
 ;;21,"42254-0074-30 ")
 ;;2803
 ;;21,"42254-0156-30 ")
 ;;96
 ;;21,"42254-0156-90 ")
 ;;97
 ;;21,"42254-0192-90 ")
 ;;15
 ;;21,"42254-0255-90 ")
 ;;183
 ;;21,"42254-0328-90 ")
 ;;46
 ;;21,"42254-0335-78 ")
 ;;275
 ;;21,"42254-0353-90 ")
 ;;370
 ;;21,"42254-0385-30 ")
 ;;3423
 ;;21,"42291-0160-90 ")
 ;;16
 ;;21,"42291-0161-90 ")
 ;;45
 ;;21,"42291-0162-18 ")
 ;;98
 ;;21,"42291-0162-90 ")
 ;;99
 ;;21,"42291-0163-18 ")
 ;;181
 ;;21,"42291-0163-90 ")
 ;;182
 ;;21,"42291-0701-90 ")
 ;;1722
 ;;21,"42291-0702-90 ")
 ;;1742
 ;;21,"42291-0703-90 ")
 ;;1777
 ;;21,"42291-0704-90 ")
 ;;1806
 ;;21,"42291-0705-90 ")
 ;;3192
 ;;21,"42291-0706-90 ")
 ;;3201
 ;;21,"42291-0707-90 ")
 ;;3215
 ;;21,"42549-0707-30 ")
 ;;1974
 ;;21,"43063-0007-01 ")
 ;;1333
 ;;21,"43063-0007-14 ")
 ;;1334
 ;;21,"43063-0007-30 ")
 ;;1335
 ;;21,"43063-0007-60 ")
 ;;1336
 ;;21,"43063-0007-90 ")
 ;;1337
 ;;21,"43063-0007-98 ")
 ;;1338
 ;;21,"43063-0032-01 ")
 ;;1659
 ;;21,"43063-0065-30 ")
 ;;3060
 ;;21,"43063-0065-90 ")
 ;;3061
 ;;21,"43063-0118-30 ")
 ;;2979
 ;;21,"43063-0118-90 ")
 ;;2980
 ;;21,"43063-0130-90 ")
 ;;3135
 ;;21,"43063-0131-30 ")
 ;;134
 ;;21,"43063-0132-30 ")
 ;;199
 ;;21,"43063-0138-90 ")
 ;;1217
 ;;21,"43063-0146-30 ")
 ;;230
 ;;21,"43063-0171-14 ")
 ;;2629
 ;;21,"43063-0232-30 ")
 ;;2757
 ;;21,"43063-0232-60 ")
 ;;2758
 ;;21,"43063-0233-60 ")
 ;;2669
 ;;21,"43063-0234-60 ")
 ;;2720
 ;;21,"43063-0288-30 ")
 ;;58
 ;;21,"43063-0303-30 ")
 ;;1986
 ;;21,"43063-0347-30 ")
 ;;2453
 ;;21,"43063-0402-60 ")
 ;;2710
 ;;21,"43063-0403-30 ")
 ;;121
 ;;21,"43063-0414-01 ")
 ;;1251
 ;;21,"43353-0045-80 ")
 ;;552
 ;;21,"43353-0313-15 ")
 ;;1425
 ;;21,"43353-0313-60 ")
 ;;1426
 ;;21,"43353-0318-60 ")
 ;;3084
 ;;21,"43353-0350-30 ")
 ;;1532
 ;;21,"43353-0350-45 ")
 ;;1533
 ;;21,"43353-0350-60 ")
 ;;1534
 ;;21,"43353-0350-80 ")
 ;;1535
 ;;21,"43353-0365-15 ")
 ;;943
 ;;21,"43353-0365-30 ")
 ;;944
 ;;21,"43353-0365-45 ")
 ;;945
 ;;21,"43353-0365-60 ")
 ;;946
 ;;21,"43353-0371-45 ")
 ;;1391
 ;;21,"43353-0371-60 ")
 ;;1392
 ;;21,"43353-0411-60 ")
 ;;1584
 ;;21,"43353-0459-45 ")
 ;;2387
 ;;21,"43353-0488-45 ")
 ;;959
 ;;21,"43353-0488-60 ")
 ;;960
 ;;21,"43353-0516-45 ")
 ;;1563
 ;;21,"43353-0521-60 ")
 ;;727
 ;;21,"43353-0521-80 ")
 ;;728
 ;;21,"43353-0596-30 ")
 ;;2942
 ;;21,"43353-0596-60 ")
 ;;2943
 ;;21,"43353-0626-60 ")
 ;;3106
 ;;21,"43353-0643-60 ")
 ;;900
 ;;21,"43353-0655-60 ")
 ;;3107
 ;;21,"43353-0662-80 ")
 ;;1573
 ;;21,"43353-0667-60 ")
 ;;2269
 ;;21,"43353-0668-45 ")
 ;;2428
 ;;21,"43353-0668-60 ")
 ;;2429
 ;;21,"43353-0671-30 ")
 ;;2356
 ;;21,"43353-0671-45 ")
 ;;2357
 ;;21,"43353-0676-60 ")
 ;;3118
 ;;21,"43353-0712-60 ")
 ;;2993
 ;;21,"43353-0722-60 ")
 ;;3117
 ;;21,"43353-0726-60 ")
 ;;3041
 ;;21,"43353-0726-80 ")
 ;;3042
 ;;21,"43353-0728-60 ")
 ;;2270
 ;;21,"43353-0729-30 ")
 ;;2353
 ;;21,"43353-0729-45 ")
 ;;2354
 ;;21,"43353-0729-60 ")
 ;;2355
 ;;21,"43353-0730-30 ")
 ;;2991
 ;;21,"43353-0730-60 ")
 ;;2992
 ;;21,"43353-0800-60 ")
 ;;3158
 ;;21,"43386-0710-05 ")
 ;;3186
 ;;21,"43386-0710-09 ")
 ;;3187
 ;;21,"43386-0711-05 ")
 ;;3196
 ;;21,"43386-0711-09 ")
 ;;3197
 ;;21,"43386-0712-05 ")
 ;;3209
 ;;21,"43386-0712-09 ")
 ;;3210
 ;;21,"43547-0277-03 ")
 ;;2100
 ;;21,"43547-0277-09 ")
 ;;2101
 ;;21,"43547-0277-50 ")
 ;;2102
 ;;21,"43547-0278-03 ")
 ;;2169
 ;;21,"43547-0278-09 ")
 ;;2170
 ;;21,"43547-0278-50 ")
 ;;2171
 ;;21,"43547-0279-03 ")
 ;;2224
 ;;21,"43547-0279-09 ")
 ;;2225
 ;;21,"43547-0279-50 ")
 ;;2226
 ;;21,"43683-0147-30 ")
 ;;1218
 ;;21,"43683-0148-30 ")
 ;;3127
 ;;21,"47463-0020-30 ")
 ;;2657
 ;;21,"47463-0021-30 ")
 ;;2789
 ;;21,"47463-0022-30 ")
 ;;2694
 ;;21,"47463-0023-30 ")
 ;;3241
 ;;21,"47463-0024-30 ")
 ;;3227
 ;;21,"47463-0039-30 ")
 ;;106
 ;;21,"47463-0040-30 ")
 ;;173
 ;;21,"47463-0043-30 ")
 ;;40
 ;;21,"47463-0220-30 ")
 ;;443
 ;;21,"47463-0221-30 ")
 ;;630
 ;;21,"47463-0222-30 ")
 ;;714
 ;;21,"47463-0223-30 ")
 ;;515
 ;;21,"47463-0250-30 ")
 ;;2560
 ;;21,"47463-0251-30 ")
 ;;2600
 ;;21,"47463-0252-30 ")
 ;;3653
 ;;21,"47463-0253-30 ")
 ;;3703
 ;;21,"47463-0375-30 ")
 ;;2130
 ;;21,"47463-0376-30 ")
 ;;2191
 ;;21,"47463-0387-30 ")
 ;;1451
 ;;21,"47463-0387-60 ")
 ;;1452
 ;;21,"47463-0387-90 ")
 ;;1453
 ;;21,"47463-0388-30 ")
 ;;1560
 ;;21,"47463-0388-60 ")
 ;;1561
 ;;21,"47463-0388-90 ")
 ;;1562
 ;;21,"47463-0389-30 ")
 ;;1135
 ;;21,"47463-0390-30 ")
 ;;3031
 ;;21,"47463-0390-60 ")
 ;;3032
 ;;21,"47463-0409-30 ")
 ;;2947
 ;;21,"47463-0410-30 ")
 ;;3088
 ;;21,"47463-0410-90 ")
 ;;3089
 ;;21,"47463-0429-30 ")
 ;;961
 ;;21,"47463-0618-30 ")
 ;;2500
 ;;21,"47463-0619-30 ")
 ;;2509
 ;;21,"47463-0620-30 ")
 ;;2517
 ;;21,"49158-0500-01 ")
 ;;438
 ;;21,"49158-0500-10 ")
 ;;439
 ;;21,"49158-0501-01 ")
 ;;502
 ;;21,"49158-0501-10 ")
 ;;503
 ;;21,"49158-0502-01 ")
 ;;621
 ;;21,"49158-0502-10 ")
 ;;622
 ;;21,"49158-0503-01 ")
 ;;699
 ;;21,"49158-0503-10 ")
 ;;700
 ;;21,"49848-0008-90 ")
 ;;2232
 ;;21,"49884-0658-09 ")
 ;;2034
 ;;21,"49884-0659-09 ")
 ;;2040
 ;;21,"49884-0660-09 ")
 ;;2054
 ;;21,"49884-0661-09 ")
 ;;2064
 ;;21,"49884-0662-09 ")
 ;;3255
 ;;21,"49884-0663-09 ")
 ;;3269
 ;;21,"49884-0664-09 ")
 ;;3273
 ;;21,"49884-0929-01 ")
 ;;2620
 ;;21,"49884-0929-05 ")
 ;;2621
 ;;21,"49884-0930-01 ")
 ;;2641
 ;;21,"49884-0930-05 ")
 ;;2642
 ;;21,"49884-0931-01 ")
 ;;2692
 ;;21,"49884-0931-05 ")
 ;;2693
 ;;21,"49884-0932-01 ")
 ;;2769
 ;;21,"49884-0932-05 ")
 ;;2770
 ;;21,"49884-0952-01 ")
 ;;2738
 ;;21,"49884-0952-05 ")
 ;;2739
 ;;21,"49884-0953-01 ")
 ;;2801
 ;;21,"49884-0953-05 ")
 ;;2802
 ;;21,"49999-0105-00 ")
 ;;318
 ;;21,"49999-0105-10 ")
 ;;319
 ;;21,"49999-0105-30 ")
 ;;320
 ;;21,"49999-0105-60 ")
 ;;321
 ;;21,"49999-0182-10 ")
 ;;1107
 ;;21,"49999-0182-30 ")
 ;;1108
 ;;21,"49999-0182-60 ")
 ;;1109
 ;;21,"49999-0182-90 ")
 ;;1110
 ;;21,"49999-0183-10 ")
 ;;1387
 ;;21,"49999-0183-30 ")
 ;;1388
 ;;21,"49999-0183-60 ")
 ;;1389
 ;;21,"49999-0183-90 ")
 ;;1390
 ;;21,"49999-0239-00 ")
 ;;512
 ;;21,"49999-0239-30 ")
 ;;513