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

BGP51P4.m

Go to the documentation of this file.
BGP51P4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"51991-0820-01 ")
 ;;388
 ;;21,"52244-0450-10 ")
 ;;56
 ;;21,"52343-0026-01 ")
 ;;1768
 ;;21,"52343-0026-05 ")
 ;;1769
 ;;21,"52343-0027-01 ")
 ;;1883
 ;;21,"52343-0027-05 ")
 ;;1884
 ;;21,"52343-0028-01 ")
 ;;2001
 ;;21,"52343-0028-05 ")
 ;;2002
 ;;21,"52343-0029-01 ")
 ;;2127
 ;;21,"52343-0029-05 ")
 ;;2128
 ;;21,"52343-0059-01 ")
 ;;1285
 ;;21,"52343-0059-99 ")
 ;;1286
 ;;21,"52343-0060-01 ")
 ;;1374
 ;;21,"52343-0060-99 ")
 ;;1375
 ;;21,"52343-0061-01 ")
 ;;1556
 ;;21,"52343-0061-99 ")
 ;;1557
 ;;21,"52959-0212-01 ")
 ;;160
 ;;21,"52959-0212-10 ")
 ;;161
 ;;21,"52959-0212-20 ")
 ;;162
 ;;21,"52959-0212-45 ")
 ;;163
 ;;21,"52959-0212-50 ")
 ;;164
 ;;21,"52959-0212-60 ")
 ;;165
 ;;21,"52959-0241-30 ")
 ;;2394
 ;;21,"52959-0253-00 ")
 ;;600
 ;;21,"52959-0253-20 ")
 ;;601
 ;;21,"52959-0253-30 ")
 ;;602
 ;;21,"52959-0253-40 ")
 ;;603
 ;;21,"52959-0258-30 ")
 ;;846
 ;;21,"52959-0258-60 ")
 ;;847
 ;;21,"52959-0280-30 ")
 ;;745
 ;;21,"52959-0337-10 ")
 ;;2358
 ;;21,"52959-0337-30 ")
 ;;2359
 ;;21,"52959-0463-01 ")
 ;;447
 ;;21,"52959-0463-30 ")
 ;;448
 ;;21,"52959-0463-60 ")
 ;;449
 ;;21,"52959-0543-30 ")
 ;;362
 ;;21,"52959-0827-30 ")
 ;;72
 ;;21,"52959-0839-30 ")
 ;;1347
 ;;21,"52959-0839-60 ")
 ;;1348
 ;;21,"52959-0895-60 ")
 ;;190
 ;;21,"53002-1004-00 ")
 ;;597
 ;;21,"53002-1004-03 ")
 ;;598
 ;;21,"53002-1004-06 ")
 ;;599
 ;;21,"53002-1108-00 ")
 ;;450
 ;;21,"53002-1108-03 ")
 ;;451
 ;;21,"53002-1108-06 ")
 ;;452
 ;;21,"53002-1138-00 ")
 ;;843
 ;;21,"53002-1138-03 ")
 ;;844
 ;;21,"53002-1138-06 ")
 ;;845
 ;;21,"53489-0529-01 ")
 ;;575
 ;;21,"53489-0529-10 ")
 ;;576
 ;;21,"53489-0530-01 ")
 ;;832
 ;;21,"53489-0530-10 ")
 ;;833
 ;;21,"53489-0531-01 ")
 ;;2297
 ;;21,"53489-0532-01 ")
 ;;2323
 ;;21,"53489-0536-01 ")
 ;;453
 ;;21,"53489-0536-10 ")
 ;;454
 ;;21,"54348-0142-30 ")
 ;;591
 ;;21,"54458-0300-30 ")
 ;;958
 ;;21,"54458-0300-31 ")
 ;;959
 ;;21,"54458-0301-30 ")
 ;;1062
 ;;21,"54458-0301-31 ")
 ;;1063
 ;;21,"54458-0302-30 ")
 ;;1158
 ;;21,"54458-0302-31 ")
 ;;1159
 ;;21,"54458-0931-05 ")
 ;;574
 ;;21,"54569-0557-01 ")
 ;;74
 ;;21,"54569-0559-01 ")
 ;;158
 ;;21,"54569-0559-06 ")
 ;;159
 ;;21,"54569-0561-01 ")
 ;;191
 ;;21,"54569-0561-06 ")
 ;;192
 ;;21,"54569-3097-00 ")
 ;;334
 ;;21,"54569-3432-00 ")
 ;;592
 ;;21,"54569-3432-01 ")
 ;;593
 ;;21,"54569-3432-04 ")
 ;;594
 ;;21,"54569-3432-07 ")
 ;;595
 ;;21,"54569-3432-08 ")
 ;;596
 ;;21,"54569-3654-00 ")
 ;;848
 ;;21,"54569-3654-03 ")
 ;;849
 ;;21,"54569-3654-04 ")
 ;;850
 ;;21,"54569-3654-05 ")
 ;;851
 ;;21,"54569-3787-00 ")
 ;;1376
 ;;21,"54569-3787-01 ")
 ;;1377
 ;;21,"54569-3787-04 ")
 ;;1378
 ;;21,"54569-3787-05 ")
 ;;1379
 ;;21,"54569-3788-00 ")
 ;;1552
 ;;21,"54569-3788-01 ")
 ;;1553
 ;;21,"54569-3788-03 ")
 ;;1554
 ;;21,"54569-3788-04 ")
 ;;1555
 ;;21,"54569-3885-00 ")
 ;;455
 ;;21,"54569-3885-02 ")
 ;;456
 ;;21,"54569-3885-04 ")
 ;;457
 ;;21,"54569-3885-05 ")
 ;;458
 ;;21,"54569-3885-06 ")
 ;;459
 ;;21,"54569-4441-00 ")
 ;;1094
 ;;21,"54569-4442-00 ")
 ;;1182
 ;;21,"54569-5404-00 ")
 ;;2360
 ;;21,"54569-5404-01 ")
 ;;2361
 ;;21,"54569-5404-02 ")
 ;;2362
 ;;21,"54569-5417-00 ")
 ;;2349
 ;;21,"54569-5417-01 ")
 ;;2350
 ;;21,"54569-5419-00 ")
 ;;2396
 ;;21,"54569-5419-01 ")
 ;;2397
 ;;21,"54569-5870-00 ")
 ;;977
 ;;21,"54569-5870-01 ")
 ;;978
 ;;21,"54569-5870-02 ")
 ;;979
 ;;21,"54569-5954-00 ")
 ;;1076
 ;;21,"54569-5954-01 ")
 ;;1077
 ;;21,"54569-5961-00 ")
 ;;1164
 ;;21,"54569-5961-01 ")
 ;;1165
 ;;21,"54569-5961-02 ")
 ;;1166
 ;;21,"54569-5974-00 ")
 ;;1777
 ;;21,"54569-5974-01 ")
 ;;1778
 ;;21,"54569-5974-02 ")
 ;;1779
 ;;21,"54569-5975-00 ")
 ;;1891
 ;;21,"54569-5975-01 ")
 ;;1892
 ;;21,"54569-5975-02 ")
 ;;1893
 ;;21,"54569-5975-03 ")
 ;;1894
 ;;21,"54569-5975-04 ")
 ;;1895
 ;;21,"54569-5976-00 ")
 ;;2003
 ;;21,"54569-5976-01 ")
 ;;2004
 ;;21,"54569-5976-02 ")
 ;;2005
 ;;21,"54569-5976-03 ")
 ;;2006
 ;;21,"54569-5976-04 ")
 ;;2007
 ;;21,"54569-5977-00 ")
 ;;2141
 ;;21,"54569-5977-01 ")
 ;;2142
 ;;21,"54569-5977-02 ")
 ;;2143
 ;;21,"54569-5977-03 ")
 ;;2144
 ;;21,"54569-5977-04 ")
 ;;2145
 ;;21,"54569-6119-00 ")
 ;;1692
 ;;21,"54569-6169-00 ")
 ;;2194
 ;;21,"54569-6298-00 ")
 ;;1308
 ;;21,"54569-6298-01 ")
 ;;1309
 ;;21,"54569-6298-02 ")
 ;;1310
 ;;21,"54569-6298-03 ")
 ;;1311
 ;;21,"54569-6314-00 ")
 ;;2234
 ;;21,"54569-6315-00 ")
 ;;2264
 ;;21,"54569-6342-00 ")
 ;;1698
 ;;21,"54569-6342-01 ")
 ;;1699
 ;;21,"54868-0052-00 ")
 ;;69
 ;;21,"54868-0052-01 ")
 ;;70
 ;;21,"54868-0052-02 ")
 ;;71
 ;;21,"54868-0053-02 ")
 ;;186
 ;;21,"54868-0053-03 ")
 ;;187
 ;;21,"54868-0053-07 ")
 ;;188
 ;;21,"54868-0106-00 ")
 ;;2170
 ;;21,"54868-0106-01 ")
 ;;2171
 ;;21,"54868-0293-00 ")
 ;;167
 ;;21,"54868-0293-01 ")
 ;;168
 ;;21,"54868-0293-05 ")
 ;;169
 ;;21,"54868-0293-06 ")
 ;;170
 ;;21,"54868-0321-00 ")
 ;;2312
 ;;21,"54868-0674-00 ")
 ;;17
 ;;21,"54868-0674-01 ")
 ;;18
 ;;21,"54868-0680-00 ")
 ;;316
 ;;21,"54868-0680-01 ")
 ;;317
 ;;21,"54868-0685-01 ")
 ;;1316
 ;;21,"54868-0696-01 ")
 ;;253
 ;;21,"54868-0696-02 ")
 ;;254
 ;;21,"54868-0696-03 ")
 ;;255
 ;;21,"54868-0701-00 ")
 ;;746
 ;;21,"54868-0854-00 ")
 ;;386
 ;;21,"54868-0854-01 ")
 ;;387
 ;;21,"54868-1063-00 ")
 ;;1536
 ;;21,"54868-1063-01 ")
 ;;1537
 ;;21,"54868-1063-02 ")
 ;;1538
 ;;21,"54868-1441-00 ")
 ;;281
 ;;21,"54868-1441-01 ")
 ;;282
 ;;21,"54868-1442-00 ")
 ;;343
 ;;21,"54868-1442-01 ")
 ;;344
 ;;21,"54868-1442-02 ")
 ;;345
 ;;21,"54868-1517-00 ")
 ;;300
 ;;21,"54868-1517-02 ")
 ;;280
 ;;21,"54868-1517-03 ")
 ;;301
 ;;21,"54868-1518-00 ")
 ;;357
 ;;21,"54868-1518-01 ")
 ;;358
 ;;21,"54868-1518-02 ")
 ;;359
 ;;21,"54868-1518-03 ")
 ;;360
 ;;21,"54868-1871-00 ")
 ;;570
 ;;21,"54868-1871-01 ")
 ;;571
 ;;21,"54868-1871-02 ")
 ;;572
 ;;21,"54868-1871-04 ")
 ;;573
 ;;21,"54868-1971-00 ")
 ;;834
 ;;21,"54868-1971-01 ")
 ;;835
 ;;21,"54868-1971-03 ")
 ;;836
 ;;21,"54868-1971-04 ")
 ;;837
 ;;21,"54868-1980-00 ")
 ;;1780
 ;;21,"54868-1980-01 ")
 ;;1781
 ;;21,"54868-2349-01 ")
 ;;466
 ;;21,"54868-2349-02 ")
 ;;467
 ;;21,"54868-2349-03 ")
 ;;468
 ;;21,"54868-2349-04 ")
 ;;469
 ;;21,"54868-2349-05 ")
 ;;470
 ;;21,"54868-2572-00 ")
 ;;371
 ;;21,"54868-2572-01 ")
 ;;372
 ;;21,"54868-2572-02 ")
 ;;373
 ;;21,"54868-2683-00 ")
 ;;2298
 ;;21,"54868-2683-01 ")
 ;;2299
 ;;21,"54868-2683-02 ")
 ;;2300
 ;;21,"54868-2864-00 ")
 ;;2222
 ;;21,"54868-2864-01 ")
 ;;2223
 ;;21,"54868-2989-00 ")
 ;;1349
 ;;21,"54868-2989-02 ")
 ;;1350
 ;;21,"54868-2989-03 ")
 ;;1351
 ;;21,"54868-2989-04 ")
 ;;1352
 ;;21,"54868-2989-05 ")
 ;;1353
 ;;21,"54868-2989-06 ")
 ;;1354
 ;;21,"54868-2989-07 ")
 ;;1312
 ;;21,"54868-2990-00 ")
 ;;1542
 ;;21,"54868-2990-02 ")
 ;;1543
 ;;21,"54868-2990-03 ")
 ;;1544
 ;;21,"54868-2990-04 ")
 ;;1545
 ;;21,"54868-2990-05 ")
 ;;1546
 ;;21,"54868-3062-00 ")
 ;;1887
 ;;21,"54868-3062-01 ")
 ;;1888
 ;;21,"54868-3062-02 ")
 ;;1889
 ;;21,"54868-3062-03 ")
 ;;1890
 ;;21,"54868-3064-00 ")
 ;;2324
 ;;21,"54868-3064-01 ")
 ;;2325
 ;;21,"54868-3257-01 ")
 ;;33
 ;;21,"54868-3257-02 ")
 ;;34
 ;;21,"54868-3257-03 ")
 ;;35
 ;;21,"54868-3257-04 ")
 ;;36
 ;;21,"54868-3257-05 ")
 ;;37
 ;;21,"54868-3257-06 ")
 ;;38
 ;;21,"54868-3587-00 ")
 ;;1087
 ;;21,"54868-3587-01 ")
 ;;1088
 ;;21,"54868-3587-02 ")
 ;;1089
 ;;21,"54868-3587-03 ")
 ;;1090
 ;;21,"54868-3587-04 ")
 ;;1091
 ;;21,"54868-3602-00 ")
 ;;58
 ;;21,"54868-3721-01 ")
 ;;54
 ;;21,"54868-3721-02 ")
 ;;55
 ;;21,"54868-4173-00 ")
 ;;2391
 ;;21,"54868-4179-00 ")
 ;;2417
 ;;21,"54868-4223-00 ")
 ;;1176
 ;;21,"54868-4223-01 ")
 ;;1177
 ;;21,"54868-4223-02 ")
 ;;1178
 ;;21,"54868-4223-03 ")
 ;;1179
 ;;21,"54868-4395-00 ")
 ;;2154
 ;;21,"54868-4395-01 ")
 ;;2155
 ;;21,"54868-4395-02 ")
 ;;2156
 ;;21,"54868-4395-03 ")
 ;;2157
 ;;21,"54868-4396-00 ")
 ;;2026
 ;;21,"54868-4396-01 ")
 ;;2027
 ;;21,"54868-4396-02 ")
 ;;2028
 ;;21,"54868-4396-03 ")
 ;;2029
 ;;21,"54868-4421-00 ")
 ;;1790
 ;;21,"54868-4421-01 ")
 ;;1791
 ;;21,"54868-4421-02 ")
 ;;1792
 ;;21,"54868-4424-00 ")
 ;;1910
 ;;21,"54868-4424-01 ")
 ;;1911
 ;;21,"54868-4424-02 ")
 ;;1912
 ;;21,"54868-4424-03 ")
 ;;1913
 ;;21,"54868-4576-00 ")
 ;;2364
 ;;21,"54868-4576-01 ")
 ;;2365
 ;;21,"54868-4576-02 ")
 ;;2366
 ;;21,"54868-4576-03 ")
 ;;2367
 ;;21,"54868-4577-00 ")
 ;;2346
 ;;21,"54868-4577-01 ")
 ;;2347
 ;;21,"54868-4577-03 ")
 ;;2348
 ;;21,"54868-4578-00 ")
 ;;2398
 ;;21,"54868-4578-01 ")
 ;;2399
 ;;21,"54868-4578-02 ")
 ;;2400
 ;;21,"54868-4578-03 ")
 ;;2401
 ;;21,"54868-4621-00 ")
 ;;898
 ;;21,"54868-4661-00 ")
 ;;990
 ;;21,"54868-4661-01 ")
 ;;991
 ;;21,"54868-4844-00 ")
 ;;2230
 ;;21,"54868-4844-01 ")
 ;;2231
 ;;21,"54868-4844-02 ")
 ;;2232
 ;;21,"54868-4844-03 ")
 ;;2233
 ;;21,"54868-4903-00 ")
 ;;2265
 ;;21,"54868-4903-01 ")
 ;;2266
 ;;21,"54868-4903-02 ")
 ;;2267
 ;;21,"54868-4921-00 ")
 ;;2189
 ;;21,"54868-4921-01 ")
 ;;2190
 ;;21,"54868-4921-02 ")
 ;;2191
 ;;21,"54868-4921-03 ")
 ;;2192
 ;;21,"54868-4921-04 ")
 ;;2193
 ;;21,"54868-4932-00 ")
 ;;869
 ;;21,"54868-4932-01 ")
 ;;870
 ;;21,"54868-5013-00 ")
 ;;900
 ;;21,"54868-5013-01 ")
 ;;899
 ;;21,"54868-5021-00 ")
 ;;1302
 ;;21,"54868-5021-01 ")
 ;;1303
 ;;21,"54868-5021-02 ")
 ;;1304
 ;;21,"54868-5021-03 ")
 ;;1305
 ;;21,"54868-5021-04 ")
 ;;1306
 ;;21,"54868-5068-00 ")
 ;;1218
 ;;21,"54868-5068-01 ")
 ;;1219
 ;;21,"54868-5068-03 ")
 ;;1220
 ;;21,"54868-5095-00 ")
 ;;879
 ;;21,"54868-5095-01 ")
 ;;880
 ;;21,"54868-5095-02 ")
 ;;881
 ;;21,"54868-5095-03 ")
 ;;882
 ;;21,"54868-5295-00 ")
 ;;14
 ;;21,"54868-5295-01 ")
 ;;15
 ;;21,"54868-5344-00 ")
 ;;2442
 ;;21,"54868-5344-01 ")
 ;;2443
 ;;21,"54868-5344-02 ")
 ;;2444
 ;;21,"54868-5395-00 ")
 ;;408
 ;;21,"54868-5400-00 ")
 ;;2426
 ;;21,"54868-5400-01 ")
 ;;2427
 ;;21,"54868-5520-00 ")
 ;;417
 ;;21,"54868-5524-00 ")
 ;;2429
 ;;21,"54868-5524-01 ")
 ;;2430
 ;;21,"54868-5564-00 ")
 ;;244
 ;;21,"54868-5564-01 ")
 ;;245
 ;;21,"54868-5729-00 ")
 ;;967
 ;;21,"54868-5729-01 ")
 ;;968
 ;;21,"54868-5729-02 ")
 ;;969
 ;;21,"54868-5729-03 ")
 ;;970
 ;;21,"54868-5729-04 ")
 ;;971
 ;;21,"54868-5729-05 ")
 ;;972
 ;;21,"54868-5729-06 ")
 ;;973
 ;;21,"54868-5730-00 ")
 ;;1068
 ;;21,"54868-5730-01 ")
 ;;1069
 ;;21,"54868-5730-02 ")
 ;;1070
 ;;21,"54868-5730-03 ")
 ;;1071
 ;;21,"54868-5730-04 ")
 ;;1072
 ;;21,"54868-5730-05 ")
 ;;1073
 ;;21,"54868-5731-00 ")
 ;;1169
 ;;21,"54868-5731-01 ")
 ;;1170
 ;;21,"54868-5731-02 ")
 ;;1171
 ;;21,"54868-5731-03 ")
 ;;1172
 ;;21,"54868-5731-04 ")
 ;;1173
 ;;21,"54868-5731-05 ")
 ;;1174
 ;;21,"54868-5732-00 ")
 ;;1213
 ;;21,"54868-5732-01 ")
 ;;1214
 ;;21,"54868-5732-02 ")
 ;;1215
 ;;21,"54868-5755-00 ")
 ;;331
 ;;21,"54868-5755-01 ")
 ;;332
 ;;21,"54868-5771-00 ")
 ;;2179
 ;;21,"54868-5771-01 ")
 ;;2180
 ;;21,"54868-5773-00 ")
 ;;2014
 ;;21,"54868-5773-01 ")
 ;;2015
 ;;21,"54868-5773-02 ")
 ;;2016
 ;;21,"54868-5773-03 ")
 ;;2017
 ;;21,"54868-5817-00 ")
 ;;2131
 ;;21,"54868-5817-01 ")
 ;;2132
 ;;21,"54868-5817-02 ")
 ;;2133
 ;;21,"54868-5817-03 ")
 ;;2134
 ;;21,"54868-5869-00 ")
 ;;2175
 ;;21,"54868-5869-01 ")
 ;;2176
 ;;21,"54868-5944-00 ")
 ;;1690
 ;;21,"54868-5944-01 ")
 ;;1691
 ;;21,"54868-6018-00 ")
 ;;1700
 ;;21,"54868-6018-01 ")
 ;;1701
 ;;21,"54868-6019-00 ")
 ;;2166
 ;;21,"54868-6019-01 ")
 ;;2167
 ;;21,"55045-1236-08 ")
 ;;171
 ;;21,"55045-1860-01 ")
 ;;587
 ;;21,"55045-1860-02 ")
 ;;588
 ;;21,"55045-1860-08 ")
 ;;589
 ;;21,"55045-1860-09 ")
 ;;590
 ;;21,"55045-2078-01 ")
 ;;68
 ;;21,"55045-2217-08 ")
 ;;1547
 ;;21,"55045-2269-01 ")
 ;;839
 ;;21,"55045-2269-06 ")
 ;;840
 ;;21,"55045-2269-08 ")
 ;;841
 ;;21,"55045-2269-09 ")
 ;;842
 ;;21,"55045-2282-00 ")
 ;;1359
 ;;21,"55045-2282-06 ")
 ;;1360
 ;;21,"55045-2498-08 ")
 ;;460
 ;;21,"55045-2754-00 ")
 ;;2326
 ;;21,"55045-2755-00 ")
 ;;2296
 ;;21,"55045-3361-01 ")
 ;;989
 ;;21,"55045-3762-08 ")
 ;;1358
 ;;21,"55045-3798-01 ")
 ;;974
 ;;21,"55045-3867-01 ")
 ;;1774
 ;;21,"55048-0028-30 ")
 ;;461
 ;;21,"55048-0029-30 ")
 ;;585
 ;;21,"55048-0029-90 ")
 ;;586
 ;;21,"55048-0030-30 ")
 ;;838
 ;;21,"55048-0056-30 ")
 ;;2012
 ;;21,"55048-0056-60 ")
 ;;2013
 ;;21,"55048-0057-30 ")
 ;;1899
 ;;21,"55048-0057-60 ")
 ;;1900
 ;;21,"55048-0058-30 ")
 ;;2139
 ;;21,"55048-0058-60 ")
 ;;2140
 ;;21,"55048-0059-30 ")
 ;;1785
 ;;21,"55048-0059-60 ")
 ;;1786
 ;;21,"55048-0127-30 ")
 ;;462
 ;;21,"55048-0128-30 ")
 ;;584
 ;;21,"55048-0134-60 ")
 ;;1898
 ;;21,"55048-0135-60 ")
 ;;2008
 ;;21,"55048-0137-60 ")
 ;;2009
 ;;21,"55048-0138-60 ")
 ;;2137
 ;;21,"55048-0144-60 ")
 ;;2138
 ;;21,"55048-0519-30 ")
 ;;1078
 ;;21,"55048-0519-60 ")
 ;;1079