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

BGP44P2.m

Go to the documentation of this file.
BGP44P2 ;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,"00456-2613-90 ")
 ;;613
 ;;21,"00456-2614-00 ")
 ;;633
 ;;21,"00456-2614-30 ")
 ;;634
 ;;21,"00456-2614-90 ")
 ;;635
 ;;21,"00456-2615-00 ")
 ;;652
 ;;21,"00456-2615-30 ")
 ;;653
 ;;21,"00456-2615-90 ")
 ;;654
 ;;21,"00456-2616-00 ")
 ;;674
 ;;21,"00456-2616-30 ")
 ;;675
 ;;21,"00456-2616-90 ")
 ;;676
 ;;21,"00456-2617-00 ")
 ;;686
 ;;21,"00456-2617-30 ")
 ;;687
 ;;21,"00456-2617-90 ")
 ;;688
 ;;21,"00490-0126-00 ")
 ;;170
 ;;21,"00490-0126-30 ")
 ;;171
 ;;21,"00490-0126-60 ")
 ;;172
 ;;21,"00490-0126-90 ")
 ;;173
 ;;21,"00555-1069-02 ")
 ;;997
 ;;21,"00555-1070-02 ")
 ;;1002
 ;;21,"00591-0343-01 ")
 ;;1307
 ;;21,"00591-0343-05 ")
 ;;1308
 ;;21,"00591-0343-10 ")
 ;;1309
 ;;21,"00591-0345-01 ")
 ;;1337
 ;;21,"00591-0345-05 ")
 ;;1343
 ;;21,"00591-0345-10 ")
 ;;1344
 ;;21,"00591-0404-01 ")
 ;;1283
 ;;21,"00591-2880-01 ")
 ;;1530
 ;;21,"00591-2882-01 ")
 ;;1535
 ;;21,"00591-2884-01 ")
 ;;1546
 ;;21,"00591-2886-01 ")
 ;;1557
 ;;21,"00591-3193-01 ")
 ;;1022
 ;;21,"00591-3193-05 ")
 ;;1023
 ;;21,"00591-3194-01 ")
 ;;1081
 ;;21,"00591-3194-05 ")
 ;;1082
 ;;21,"00591-3757-01 ")
 ;;1566
 ;;21,"00591-3758-01 ")
 ;;1612
 ;;21,"00591-3758-05 ")
 ;;1613
 ;;21,"00591-3759-01 ")
 ;;1656
 ;;21,"00591-3759-05 ")
 ;;1657
 ;;21,"00591-3760-01 ")
 ;;1706
 ;;21,"00591-3760-05 ")
 ;;1707
 ;;21,"00591-3761-01 ")
 ;;1688
 ;;21,"00591-3762-01 ")
 ;;1752
 ;;21,"00597-0124-37 ")
 ;;1810
 ;;21,"00597-0125-37 ")
 ;;1811
 ;;21,"00597-0126-37 ")
 ;;1812
 ;;21,"00597-0127-37 ")
 ;;1813
 ;;21,"00603-2108-02 ")
 ;;72
 ;;21,"00603-2108-25 ")
 ;;73
 ;;21,"00603-2108-28 ")
 ;;74
 ;;21,"00603-2108-32 ")
 ;;75
 ;;21,"00603-2109-02 ")
 ;;214
 ;;21,"00603-2109-25 ")
 ;;215
 ;;21,"00603-2109-28 ")
 ;;216
 ;;21,"00603-2109-32 ")
 ;;217
 ;;21,"00603-2109-34 ")
 ;;218
 ;;21,"00603-2110-02 ")
 ;;371
 ;;21,"00603-2110-16 ")
 ;;372
 ;;21,"00603-2110-28 ")
 ;;373
 ;;21,"00603-2110-32 ")
 ;;374
 ;;21,"00603-2110-33 ")
 ;;375
 ;;21,"00603-2110-60 ")
 ;;376
 ;;21,"00603-3581-21 ")
 ;;909
 ;;21,"00603-3581-28 ")
 ;;910
 ;;21,"00603-3582-21 ")
 ;;937
 ;;21,"00603-3582-28 ")
 ;;938
 ;;21,"00603-3583-21 ")
 ;;967
 ;;21,"00603-3583-28 ")
 ;;968
 ;;21,"00677-1978-01 ")
 ;;1265
 ;;21,"00677-1980-01 ")
 ;;1273
 ;;21,"00677-1981-01 ")
 ;;1276
 ;;21,"00781-2271-01 ")
 ;;1574
 ;;21,"00781-2271-64 ")
 ;;1575
 ;;21,"00781-2272-01 ")
 ;;1587
 ;;21,"00781-2272-10 ")
 ;;1588
 ;;21,"00781-2272-64 ")
 ;;1589
 ;;21,"00781-2273-01 ")
 ;;1632
 ;;21,"00781-2273-10 ")
 ;;1633
 ;;21,"00781-2273-64 ")
 ;;1634
 ;;21,"00781-2274-01 ")
 ;;1722
 ;;21,"00781-2274-10 ")
 ;;1723
 ;;21,"00781-2274-64 ")
 ;;1724
 ;;21,"00781-2277-01 ")
 ;;1695
 ;;21,"00781-2279-01 ")
 ;;1759
 ;;21,"00781-2452-05 ")
 ;;584
 ;;21,"00781-2452-31 ")
 ;;585
 ;;21,"00781-2452-92 ")
 ;;586
 ;;21,"00781-2453-05 ")
 ;;604
 ;;21,"00781-2453-31 ")
 ;;605
 ;;21,"00781-2453-92 ")
 ;;606
 ;;21,"00781-2454-05 ")
 ;;620
 ;;21,"00781-2454-31 ")
 ;;621
 ;;21,"00781-2454-92 ")
 ;;622
 ;;21,"00781-2455-05 ")
 ;;645
 ;;21,"00781-2455-31 ")
 ;;646
 ;;21,"00781-2455-92 ")
 ;;647
 ;;21,"00781-2456-05 ")
 ;;662
 ;;21,"00781-2456-31 ")
 ;;663
 ;;21,"00781-2456-92 ")
 ;;664
 ;;21,"00781-2457-05 ")
 ;;681
 ;;21,"00781-2457-31 ")
 ;;682
 ;;21,"00781-2457-92 ")
 ;;683
 ;;21,"00904-2920-61 ")
 ;;1300
 ;;21,"00904-2924-61 ")
 ;;1349
 ;;21,"00904-5991-61 ")
 ;;27
 ;;21,"00904-5992-61 ")
 ;;164
 ;;21,"00904-5993-61 ")
 ;;335
 ;;21,"00904-6174-40 ")
 ;;174
 ;;21,"00904-6174-89 ")
 ;;175
 ;;21,"00904-6175-40 ")
 ;;329
 ;;21,"00904-6175-89 ")
 ;;330
 ;;21,"00904-6188-40 ")
 ;;26
 ;;21,"00904-6188-89 ")
 ;;53
 ;;21,"10135-0524-03 ")
 ;;18
 ;;21,"10135-0524-05 ")
 ;;19
 ;;21,"10135-0524-10 ")
 ;;20
 ;;21,"10135-0524-90 ")
 ;;21
 ;;21,"10135-0525-03 ")
 ;;125
 ;;21,"10135-0525-05 ")
 ;;126
 ;;21,"10135-0525-10 ")
 ;;127
 ;;21,"10135-0525-90 ")
 ;;128
 ;;21,"10135-0526-01 ")
 ;;291
 ;;21,"10135-0526-03 ")
 ;;292
 ;;21,"10135-0526-05 ")
 ;;293
 ;;21,"10135-0526-10 ")
 ;;294
 ;;21,"10135-0526-90 ")
 ;;295
 ;;21,"10544-0035-30 ")
 ;;1483
 ;;21,"10544-0541-30 ")
 ;;1470
 ;;21,"10631-0488-01 ")
 ;;1352
 ;;21,"10631-0489-01 ")
 ;;1392
 ;;21,"10631-0490-01 ")
 ;;1447
 ;;21,"10631-0490-05 ")
 ;;1448
 ;;21,"13411-0148-01 ")
 ;;262
 ;;21,"13411-0148-03 ")
 ;;263
 ;;21,"13411-0148-06 ")
 ;;264
 ;;21,"13411-0148-09 ")
 ;;265
 ;;21,"13411-0148-10 ")
 ;;266
 ;;21,"13411-0157-01 ")
 ;;86
 ;;21,"13411-0157-03 ")
 ;;87
 ;;21,"13411-0157-06 ")
 ;;88
 ;;21,"13411-0157-09 ")
 ;;89
 ;;21,"13411-0157-10 ")
 ;;90
 ;;21,"13411-0158-01 ")
 ;;423
 ;;21,"13411-0158-03 ")
 ;;424
 ;;21,"13411-0158-06 ")
 ;;425
 ;;21,"13411-0158-09 ")
 ;;426
 ;;21,"13411-0158-10 ")
 ;;427
 ;;21,"13668-0022-03 ")
 ;;76
 ;;21,"13668-0022-05 ")
 ;;77
 ;;21,"13668-0023-03 ")
 ;;209
 ;;21,"13668-0023-05 ")
 ;;210
 ;;21,"13668-0024-05 ")
 ;;366
 ;;21,"13668-0024-10 ")
 ;;367
 ;;21,"13668-0132-01 ")
 ;;915
 ;;21,"13668-0132-05 ")
 ;;916
 ;;21,"13668-0132-10 ")
 ;;917
 ;;21,"13668-0132-90 ")
 ;;918
 ;;21,"13668-0133-01 ")
 ;;923
 ;;21,"13668-0133-05 ")
 ;;924
 ;;21,"13668-0133-10 ")
 ;;925
 ;;21,"13668-0133-90 ")
 ;;926
 ;;21,"13668-0134-01 ")
 ;;977
 ;;21,"13668-0134-05 ")
 ;;978
 ;;21,"13668-0134-10 ")
 ;;979
 ;;21,"13668-0134-90 ")
 ;;980
 ;;21,"16252-0539-01 ")
 ;;985
 ;;21,"16252-0540-01 ")
 ;;986
 ;;21,"16252-0545-90 ")
 ;;198
 ;;21,"16590-0295-30 ")
 ;;93
 ;;21,"16590-0295-60 ")
 ;;94
 ;;21,"16590-0460-30 ")
 ;;368
 ;;21,"16590-0460-60 ")
 ;;357
 ;;21,"16590-0460-90 ")
 ;;358
 ;;21,"16590-0948-60 ")
 ;;1198
 ;;21,"21695-0151-15 ")
 ;;245
 ;;21,"21695-0403-30 ")
 ;;733
 ;;21,"21695-0404-30 ")
 ;;785
 ;;21,"21695-0408-30 ")
 ;;485
 ;;21,"21695-0408-60 ")
 ;;486
 ;;21,"21695-0410-30 ")
 ;;520
 ;;21,"21695-0511-30 ")
 ;;1303
 ;;21,"21695-0512-30 ")
 ;;1346
 ;;21,"21695-0512-90 ")
 ;;1347
 ;;21,"21695-0541-60 ")
 ;;66
 ;;21,"21695-0542-30 ")
 ;;232
 ;;21,"21695-0542-60 ")
 ;;233
 ;;21,"21695-0542-90 ")
 ;;234
 ;;21,"21695-0543-30 ")
 ;;393
 ;;21,"21695-0543-90 ")
 ;;394
 ;;21,"21695-0776-30 ")
 ;;1151
 ;;21,"21695-0803-30 ")
 ;;804
 ;;21,"21695-0807-30 ")
 ;;1236
 ;;21,"21695-0807-90 ")
 ;;1237
 ;;21,"21695-0866-90 ")
 ;;1590
 ;;21,"21695-0868-90 ")
 ;;1488
 ;;21,"21695-0908-30 ")
 ;;1034
 ;;21,"21695-0908-90 ")
 ;;1035
 ;;21,"21695-0909-30 ")
 ;;1115
 ;;21,"21695-0909-90 ")
 ;;1116
 ;;21,"21695-0916-30 ")
 ;;1720
 ;;21,"21695-0916-90 ")
 ;;1721
 ;;21,"21695-0998-30 ")
 ;;818
 ;;21,"23155-0026-01 ")
 ;;1304
 ;;21,"23155-0027-01 ")
 ;;1340
 ;;21,"23490-5055-03 ")
 ;;31
 ;;21,"23490-5056-01 ")
 ;;327
 ;;21,"23490-5056-02 ")
 ;;328
 ;;21,"23490-5057-03 ")
 ;;155
 ;;21,"23490-5057-04 ")
 ;;156
 ;;21,"23490-5057-06 ")
 ;;157
 ;;21,"23490-5057-09 ")
 ;;158
 ;;21,"23490-5447-03 ")
 ;;468
 ;;21,"23490-5447-06 ")
 ;;469
 ;;21,"23490-5450-03 ")
 ;;833
 ;;21,"23490-5450-04 ")
 ;;834
 ;;21,"23490-5991-01 ")
 ;;1068
 ;;21,"23490-5992-01 ")
 ;;1108
 ;;21,"23490-6462-01 ")
 ;;1341
 ;;21,"23490-6462-05 ")
 ;;1342
 ;;21,"23490-6463-01 ")
 ;;1379
 ;;21,"23490-6464-01 ")
 ;;1396
 ;;21,"23490-6464-09 ")
 ;;1397
 ;;21,"23490-6466-01 ")
 ;;1453
 ;;21,"23490-6466-06 ")
 ;;1454
 ;;21,"23490-6466-09 ")
 ;;1455
 ;;21,"23490-7060-01 ")
 ;;1630
 ;;21,"23490-7062-01 ")
 ;;1747
 ;;21,"24477-0515-01 ")
 ;;1008
 ;;21,"24477-0516-01 ")
 ;;1011
 ;;21,"31722-0237-10 ")
 ;;3
 ;;21,"31722-0237-90 ")
 ;;4
 ;;21,"31722-0238-10 ")
 ;;91
 ;;21,"31722-0238-90 ")
 ;;92
 ;;21,"31722-0239-10 ")
 ;;271
 ;;21,"31722-0239-90 ")
 ;;272
 ;;21,"33261-0437-02 ")
 ;;165
 ;;21,"33261-0437-30 ")
 ;;166
 ;;21,"33261-0437-60 ")
 ;;167
 ;;21,"33261-0437-90 ")
 ;;168
 ;;21,"33261-0535-02 ")
 ;;331
 ;;21,"33261-0535-30 ")
 ;;332
 ;;21,"33261-0535-60 ")
 ;;333
 ;;21,"33261-0535-90 ")
 ;;334
 ;;21,"33261-0675-00 ")
 ;;1362
 ;;21,"33261-0675-02 ")
 ;;1363
 ;;21,"33261-0675-07 ")
 ;;1364
 ;;21,"33261-0675-14 ")
 ;;1365
 ;;21,"33261-0675-20 ")
 ;;1366
 ;;21,"33261-0675-21 ")
 ;;1367
 ;;21,"33261-0675-28 ")
 ;;1368
 ;;21,"33261-0675-30 ")
 ;;1369
 ;;21,"33261-0675-60 ")
 ;;1370
 ;;21,"33261-0675-90 ")
 ;;1371
 ;;21,"33261-0836-00 ")
 ;;1419
 ;;21,"33261-0836-30 ")
 ;;1420
 ;;21,"33261-0836-60 ")
 ;;1421
 ;;21,"33261-0836-90 ")
 ;;1422
 ;;21,"33358-0109-30 ")
 ;;541
 ;;21,"33358-0222-00 ")
 ;;1674
 ;;21,"33358-0262-00 ")
 ;;1172
 ;;21,"33358-0262-30 ")
 ;;1173
 ;;21,"35356-0026-00 ")
 ;;487
 ;;21,"35356-0027-00 ")
 ;;510
 ;;21,"35356-0059-10 ")
 ;;132
 ;;21,"35356-0059-30 ")
 ;;133
 ;;21,"35356-0059-60 ")
 ;;179
 ;;21,"35356-0059-90 ")
 ;;180
 ;;21,"35356-0268-30 ")
 ;;1773
 ;;21,"35356-0510-30 ")
 ;;689
 ;;21,"35356-0511-30 ")
 ;;721
 ;;21,"35356-0739-10 ")
 ;;159
 ;;21,"35356-0740-10 ")
 ;;160
 ;;21,"35356-0774-30 ")
 ;;323
 ;;21,"35356-0774-60 ")
 ;;324
 ;;21,"35356-0858-60 ")
 ;;161
 ;;21,"35356-0866-60 ")
 ;;480
 ;;21,"35356-0907-30 ")
 ;;522
 ;;21,"35356-0915-30 ")
 ;;8
 ;;21,"35356-0917-30 ")
 ;;1610
 ;;21,"35356-0947-30 ")
 ;;754
 ;;21,"35356-0952-30 ")
 ;;1148
 ;;21,"35356-0960-30 ")
 ;;1658
 ;;21,"35356-0960-60 ")
 ;;1659
 ;;21,"35356-0960-90 ")
 ;;1660
 ;;21,"35356-0965-30 ")
 ;;1685
 ;;21,"35356-0965-60 ")
 ;;1686
 ;;21,"35356-0965-90 ")
 ;;1687
 ;;21,"35356-0971-30 ")
 ;;443
 ;;21,"35356-0971-60 ")
 ;;444
 ;;21,"35356-0971-90 ")
 ;;445
 ;;21,"42254-0072-30 ")
 ;;1645
 ;;21,"42254-0073-30 ")
 ;;1696
 ;;21,"42254-0074-30 ")
 ;;1764
 ;;21,"42254-0095-30 ")
 ;;1204
 ;;21,"42254-0095-90 ")
 ;;1205
 ;;21,"42254-0398-30 ")
 ;;705
 ;;21,"42291-0640-90 ")
 ;;998
 ;;21,"42291-0641-90 ")
 ;;999
 ;;21,"42806-0055-05 ")
 ;;63
 ;;21,"42806-0055-09 ")
 ;;64
 ;;21,"42806-0055-10 ")
 ;;65
 ;;21,"42806-0056-05 ")
 ;;238
 ;;21,"42806-0056-09 ")
 ;;239
 ;;21,"42806-0056-10 ")
 ;;240
 ;;21,"42806-0057-05 ")
 ;;389
 ;;21,"42806-0057-09 ")
 ;;390
 ;;21,"42806-0057-10 ")
 ;;391
 ;;21,"42806-0501-01 ")
 ;;994
 ;;21,"42806-0501-05 ")
 ;;995
 ;;21,"42806-0501-09 ")
 ;;996
 ;;21,"42806-0502-01 ")
 ;;1003
 ;;21,"42806-0502-05 ")
 ;;1004
 ;;21,"42806-0502-09 ")
 ;;1005
 ;;21,"43063-0011-01 ")
 ;;1508
 ;;21,"43063-0171-14 ")
 ;;1565
 ;;21,"43063-0232-30 ")
 ;;1718
 ;;21,"43063-0232-60 ")
 ;;1719
 ;;21,"43063-0233-60 ")
 ;;1618
 ;;21,"43063-0234-60 ")
 ;;1672
 ;;21,"43063-0402-60 ")
 ;;1646
 ;;21,"43063-0404-90 ")
 ;;360
 ;;21,"43353-0073-30 ")
 ;;300
 ;;21,"43353-0073-45 ")
 ;;301
 ;;21,"43353-0073-53 ")
 ;;302
 ;;21,"43353-0130-30 ")
 ;;1110
 ;;21,"43353-0130-60 ")
 ;;1111
 ;;21,"43353-0130-80 ")
 ;;1112
 ;;21,"43353-0188-30 ")
 ;;303
 ;;21,"43353-0188-45 ")
 ;;280
 ;;21,"43353-0256-30 ")
 ;;95
 ;;21,"43353-0256-45 ")
 ;;96
 ;;21,"43353-0256-53 ")
 ;;97
 ;;21,"43353-0256-60 ")
 ;;98
 ;;21,"43353-0295-30 ")
 ;;268
 ;;21,"43353-0295-45 ")
 ;;269
 ;;21,"43353-0295-53 ")
 ;;270
 ;;21,"43353-0311-30 ")
 ;;1083
 ;;21,"43353-0311-60 ")
 ;;1084
 ;;21,"43353-0311-80 ")
 ;;1085
 ;;21,"43353-0328-60 ")
 ;;105
 ;;21,"43353-0452-30 ")
 ;;213
 ;;21,"43353-0534-30 ")
 ;;340
 ;;21,"43353-0534-45 ")
 ;;341
 ;;21,"43353-0534-60 ")
 ;;342
 ;;21,"43353-0545-45 ")
 ;;181
 ;;21,"43353-0551-30 ")
 ;;345
 ;;21,"43353-0599-60 ")
 ;;1423
 ;;21,"43353-0599-80 ")
 ;;1424
 ;;21,"43353-0600-60 ")
 ;;1468
 ;;21,"43353-0601-60 ")
 ;;1440
 ;;21,"43353-0602-60 ")
 ;;1441
 ;;21,"43353-0684-15 ")
 ;;235
 ;;21,"43353-0684-30 ")
 ;;236
 ;;21,"43353-0684-45 ")
 ;;237
 ;;21,"43353-0691-30 ")
 ;;392
 ;;21,"43353-0723-60 ")
 ;;1042
 ;;21,"43353-0750-60 ")
 ;;1142
 ;;21,"43353-0750-81 ")
 ;;1143
 ;;21,"43353-0782-30 ")
 ;;1119
 ;;21,"43353-0782-60 ")
 ;;1120
 ;;21,"43353-0782-80 ")
 ;;1121
 ;;21,"43353-0792-30 ")
 ;;1043
 ;;21,"43353-0792-60 ")
 ;;1044
 ;;21,"43547-0230-09 ")
 ;;28
 ;;21,"43547-0230-11 ")
 ;;29
 ;;21,"43547-0231-09 ")
 ;;162
 ;;21,"43547-0231-11 ")
 ;;163
 ;;21,"43547-0232-09 ")
 ;;336
 ;;21,"43547-0232-11 ")
 ;;337
 ;;21,"43683-0133-30 ")
 ;;169
 ;;21,"45963-0152-02 ")
 ;;1144
 ;;21,"47335-0669-13 ")
 ;;581
 ;;21,"47335-0669-81 ")
 ;;582
 ;;21,"47335-0669-83 ")
 ;;583
 ;;21,"47335-0670-13 ")
 ;;599
 ;;21,"47335-0670-81 ")
 ;;600
 ;;21,"47335-0670-83 ")
 ;;601
 ;;21,"47335-0671-13 ")
 ;;625
 ;;21,"47335-0671-81 ")
 ;;626
 ;;21,"47335-0671-83 ")
 ;;627
 ;;21,"47335-0672-13 ")
 ;;640
 ;;21,"47335-0672-81 ")
 ;;641
 ;;21,"47335-0672-83 ")
 ;;642
 ;;21,"47335-0673-13 ")
 ;;667
 ;;21,"47335-0673-81 ")
 ;;668
 ;;21,"47335-0673-83 ")
 ;;669
 ;;21,"47335-0675-13 ")
 ;;727
 ;;21,"47335-0675-81 ")
 ;;728
 ;;21,"47335-0676-13 ")
 ;;778
 ;;21,"47335-0676-81 ")
 ;;779
 ;;21,"47335-0677-13 ")
 ;;831
 ;;21,"47335-0677-81 ")
 ;;832
 ;;21,"47335-0678-13 ")
 ;;869