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

BGP14C4.m

Go to the documentation of this file.
BGP14C4 ; 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,"63304-0598-05 ")
 ;;786
 ;;21,"63304-0598-90 ")
 ;;787
 ;;21,"63304-0789-10 ")
 ;;1326
 ;;21,"63304-0789-30 ")
 ;;1327
 ;;21,"63304-0789-90 ")
 ;;1328
 ;;21,"63304-0790-10 ")
 ;;943
 ;;21,"63304-0790-30 ")
 ;;944
 ;;21,"63304-0790-90 ")
 ;;945
 ;;21,"63304-0791-10 ")
 ;;1070
 ;;21,"63304-0791-30 ")
 ;;1071
 ;;21,"63304-0791-90 ")
 ;;1072
 ;;21,"63304-0792-10 ")
 ;;1219
 ;;21,"63304-0792-30 ")
 ;;1220
 ;;21,"63304-0792-90 ")
 ;;1221
 ;;21,"63304-0793-10 ")
 ;;1404
 ;;21,"63304-0793-30 ")
 ;;1405
 ;;21,"63304-0793-50 ")
 ;;1406
 ;;21,"63304-0793-90 ")
 ;;1407
 ;;21,"63629-1447-01 ")
 ;;157
 ;;21,"63629-1464-01 ")
 ;;400
 ;;21,"63629-1464-02 ")
 ;;427
 ;;21,"63629-1464-03 ")
 ;;401
 ;;21,"63629-1606-01 ")
 ;;763
 ;;21,"63629-1606-02 ")
 ;;764
 ;;21,"63629-1784-01 ")
 ;;528
 ;;21,"63629-1784-02 ")
 ;;529
 ;;21,"63629-3366-01 ")
 ;;214
 ;;21,"63629-3366-02 ")
 ;;215
 ;;21,"63629-3366-03 ")
 ;;216
 ;;21,"63629-3366-04 ")
 ;;217
 ;;21,"63629-3381-01 ")
 ;;816
 ;;21,"63629-3381-02 ")
 ;;817
 ;;21,"63629-3381-03 ")
 ;;818
 ;;21,"63629-3381-04 ")
 ;;819
 ;;21,"63629-3385-01 ")
 ;;1271
 ;;21,"63629-3385-02 ")
 ;;1272
 ;;21,"63629-3385-03 ")
 ;;1222
 ;;21,"63629-3385-04 ")
 ;;1273
 ;;21,"63629-3385-05 ")
 ;;1274
 ;;21,"63629-3392-01 ")
 ;;973
 ;;21,"63629-3393-01 ")
 ;;1119
 ;;21,"63629-3393-02 ")
 ;;1120
 ;;21,"63629-3393-03 ")
 ;;1121
 ;;21,"63629-3393-04 ")
 ;;1122
 ;;21,"63629-3408-01 ")
 ;;1452
 ;;21,"63629-3408-02 ")
 ;;1453
 ;;21,"63629-3408-03 ")
 ;;1454
 ;;21,"63629-3408-04 ")
 ;;1455
 ;;21,"63629-3563-01 ")
 ;;676
 ;;21,"63629-3583-01 ")
 ;;303
 ;;21,"63629-3583-02 ")
 ;;304
 ;;21,"63739-0280-10 ")
 ;;305
 ;;21,"63739-0280-15 ")
 ;;306
 ;;21,"63739-0281-03 ")
 ;;402
 ;;21,"63739-0281-10 ")
 ;;403
 ;;21,"63739-0281-15 ")
 ;;404
 ;;21,"63739-0282-03 ")
 ;;501
 ;;21,"63739-0282-10 ")
 ;;502
 ;;21,"63739-0419-10 ")
 ;;1329
 ;;21,"63739-0420-10 ")
 ;;946
 ;;21,"63739-0421-10 ")
 ;;1073
 ;;21,"63739-0422-10 ")
 ;;1223
 ;;21,"63739-0435-10 ")
 ;;1330
 ;;21,"63739-0436-10 ")
 ;;947
 ;;21,"63739-0437-10 ")
 ;;1074
 ;;21,"63739-0438-10 ")
 ;;1224
 ;;21,"63874-0319-10 ")
 ;;181
 ;;21,"63874-0319-15 ")
 ;;182
 ;;21,"63874-0319-30 ")
 ;;183
 ;;21,"63874-0319-90 ")
 ;;184
 ;;21,"63874-0589-01 ")
 ;;116
 ;;21,"63874-0589-10 ")
 ;;117
 ;;21,"63874-0589-30 ")
 ;;118
 ;;21,"63874-0589-90 ")
 ;;119
 ;;21,"63874-0590-01 ")
 ;;146
 ;;21,"63874-0590-10 ")
 ;;147
 ;;21,"63874-0590-15 ")
 ;;148
 ;;21,"63874-0590-30 ")
 ;;149
 ;;21,"63874-0590-90 ")
 ;;150
 ;;21,"65243-0065-15 ")
 ;;1075
 ;;21,"65243-0065-45 ")
 ;;1076
 ;;21,"65243-0082-15 ")
 ;;1225
 ;;21,"65243-0082-45 ")
 ;;1226
 ;;21,"65243-0127-45 ")
 ;;1408
 ;;21,"65243-0348-15 ")
 ;;1077
 ;;21,"65243-0348-45 ")
 ;;1078
 ;;21,"65243-0349-15 ")
 ;;1227
 ;;21,"65243-0349-45 ")
 ;;1228
 ;;21,"65243-0350-45 ")
 ;;1409
 ;;21,"65243-0352-03 ")
 ;;503
 ;;21,"65243-0352-09 ")
 ;;504
 ;;21,"65243-0352-45 ")
 ;;505
 ;;21,"65243-0360-45 ")
 ;;1079
 ;;21,"65243-0361-45 ")
 ;;1410
 ;;21,"65243-0365-45 ")
 ;;1229
 ;;21,"65243-0367-09 ")
 ;;1411
 ;;21,"65243-0367-45 ")
 ;;1412
 ;;21,"65862-0050-30 ")
 ;;1331
 ;;21,"65862-0050-90 ")
 ;;1332
 ;;21,"65862-0050-99 ")
 ;;1333
 ;;21,"65862-0051-26 ")
 ;;977
 ;;21,"65862-0051-30 ")
 ;;948
 ;;21,"65862-0051-90 ")
 ;;949
 ;;21,"65862-0051-99 ")
 ;;950
 ;;21,"65862-0052-26 ")
 ;;1123
 ;;21,"65862-0052-30 ")
 ;;1080
 ;;21,"65862-0052-90 ")
 ;;1081
 ;;21,"65862-0052-99 ")
 ;;1082
 ;;21,"65862-0053-22 ")
 ;;1230
 ;;21,"65862-0053-30 ")
 ;;1231
 ;;21,"65862-0053-90 ")
 ;;1232
 ;;21,"65862-0053-99 ")
 ;;1233
 ;;21,"65862-0054-30 ")
 ;;1413
 ;;21,"65862-0054-39 ")
 ;;1456
 ;;21,"65862-0054-90 ")
 ;;1414
 ;;21,"65862-0054-99 ")
 ;;1415
 ;;21,"66105-0120-01 ")
 ;;586
 ;;21,"66105-0120-03 ")
 ;;587
 ;;21,"66105-0120-06 ")
 ;;588
 ;;21,"66105-0120-09 ")
 ;;589
 ;;21,"66105-0120-15 ")
 ;;590
 ;;21,"66105-0121-01 ")
 ;;662
 ;;21,"66105-0121-03 ")
 ;;663
 ;;21,"66105-0121-06 ")
 ;;664
 ;;21,"66105-0121-09 ")
 ;;665
 ;;21,"66105-0121-15 ")
 ;;666
 ;;21,"66105-0122-01 ")
 ;;748
 ;;21,"66105-0122-03 ")
 ;;749
 ;;21,"66105-0122-06 ")
 ;;750
 ;;21,"66105-0122-09 ")
 ;;751
 ;;21,"66105-0122-15 ")
 ;;752
 ;;21,"66105-0147-01 ")
 ;;229
 ;;21,"66105-0147-03 ")
 ;;230
 ;;21,"66105-0147-06 ")
 ;;231
 ;;21,"66105-0147-09 ")
 ;;232
 ;;21,"66105-0147-10 ")
 ;;233
 ;;21,"66105-0506-01 ")
 ;;1234
 ;;21,"66105-0506-03 ")
 ;;1235
 ;;21,"66105-0506-06 ")
 ;;1236
 ;;21,"66105-0506-09 ")
 ;;1237
 ;;21,"66105-0506-10 ")
 ;;1238
 ;;21,"66105-0988-03 ")
 ;;813
 ;;21,"66116-0238-30 ")
 ;;667
 ;;21,"66116-0276-30 ")
 ;;120
 ;;21,"66116-0277-30 ")
 ;;405
 ;;21,"66267-0561-30 ")
 ;;530
 ;;21,"66267-0561-60 ")
 ;;531
 ;;21,"66267-0561-90 ")
 ;;532
 ;;21,"66336-0310-05 ")
 ;;428
 ;;21,"66336-0310-30 ")
 ;;406
 ;;21,"66336-0310-60 ")
 ;;407
 ;;21,"66336-0412-05 ")
 ;;506
 ;;21,"66336-0412-30 ")
 ;;507
 ;;21,"66336-0602-05 ")
 ;;320
 ;;21,"66336-0674-30 ")
 ;;840
 ;;21,"66336-0685-30 ")
 ;;677
 ;;21,"66336-0685-90 ")
 ;;678
 ;;21,"66336-0813-30 ")
 ;;753
 ;;21,"66336-0813-90 ")
 ;;765
 ;;21,"66336-0953-30 ")
 ;;1239
 ;;21,"66336-0953-90 ")
 ;;1240
 ;;21,"66336-0954-30 ")
 ;;1083
 ;;21,"66336-0954-90 ")
 ;;1084
 ;;21,"66336-0986-30 ")
 ;;1416
 ;;21,"66582-0311-01 ")
 ;;3
 ;;21,"66582-0311-28 ")
 ;;4
 ;;21,"66582-0311-31 ")
 ;;5
 ;;21,"66582-0311-54 ")
 ;;6
 ;;21,"66582-0311-82 ")
 ;;7
 ;;21,"66582-0312-01 ")
 ;;17
 ;;21,"66582-0312-28 ")
 ;;18
 ;;21,"66582-0312-31 ")
 ;;19
 ;;21,"66582-0312-54 ")
 ;;20
 ;;21,"66582-0312-82 ")
 ;;21
 ;;21,"66582-0312-87 ")
 ;;22
 ;;21,"66582-0313-01 ")
 ;;30
 ;;21,"66582-0313-31 ")
 ;;31
 ;;21,"66582-0313-52 ")
 ;;32
 ;;21,"66582-0313-54 ")
 ;;33
 ;;21,"66582-0313-74 ")
 ;;34
 ;;21,"66582-0313-86 ")
 ;;35
 ;;21,"66582-0315-01 ")
 ;;39
 ;;21,"66582-0315-31 ")
 ;;40
 ;;21,"66582-0315-52 ")
 ;;41
 ;;21,"66582-0315-54 ")
 ;;42
 ;;21,"66582-0315-66 ")
 ;;43
 ;;21,"66582-0315-74 ")
 ;;44
 ;;21,"67544-0050-15 ")
 ;;951
 ;;21,"67544-0050-30 ")
 ;;952
 ;;21,"67544-0050-45 ")
 ;;953
 ;;21,"67544-0050-53 ")
 ;;954
 ;;21,"67544-0050-60 ")
 ;;955
 ;;21,"67544-0051-15 ")
 ;;1417
 ;;21,"67544-0051-16 ")
 ;;1418
 ;;21,"67544-0051-45 ")
 ;;1419
 ;;21,"67544-0051-53 ")
 ;;1420
 ;;21,"67544-0060-15 ")
 ;;209
 ;;21,"67544-0060-30 ")
 ;;210
 ;;21,"67544-0060-45 ")
 ;;211
 ;;21,"67544-0060-60 ")
 ;;212
 ;;21,"67544-0081-15 ")
 ;;1085
 ;;21,"67544-0081-30 ")
 ;;1086
 ;;21,"67544-0081-45 ")
 ;;1087
 ;;21,"67544-0081-60 ")
 ;;1088
 ;;21,"67544-0082-15 ")
 ;;1241
 ;;21,"67544-0082-45 ")
 ;;1242
 ;;21,"67544-0106-15 ")
 ;;408
 ;;21,"67544-0106-30 ")
 ;;409
 ;;21,"67544-0106-45 ")
 ;;410
 ;;21,"67544-0106-53 ")
 ;;411
 ;;21,"67544-0106-60 ")
 ;;412
 ;;21,"67544-0106-80 ")
 ;;413
 ;;21,"67544-0225-15 ")
 ;;508
 ;;21,"67544-0225-30 ")
 ;;509
 ;;21,"67544-0225-45 ")
 ;;510
 ;;21,"67544-0225-53 ")
 ;;511
 ;;21,"67544-0225-60 ")
 ;;512
 ;;21,"67544-0225-80 ")
 ;;513
 ;;21,"67544-0245-30 ")
 ;;307
 ;;21,"67544-0245-60 ")
 ;;308
 ;;21,"67544-0247-30 ")
 ;;185
 ;;21,"67544-0854-45 ")
 ;;956
 ;;21,"67544-0854-60 ")
 ;;957
 ;;21,"67544-0855-15 ")
 ;;1089
 ;;21,"67544-0855-30 ")
 ;;1090
 ;;21,"67544-0855-45 ")
 ;;1091
 ;;21,"67544-0855-60 ")
 ;;1092
 ;;21,"67544-0856-15 ")
 ;;1243
 ;;21,"67544-0856-45 ")
 ;;1244
 ;;21,"67544-0857-15 ")
 ;;1421
 ;;21,"67544-0857-45 ")
 ;;1422
 ;;21,"67544-0857-60 ")
 ;;1457
 ;;21,"67544-1001-30 ")
 ;;1334
 ;;21,"67544-1001-60 ")
 ;;1335
 ;;21,"67544-1003-15 ")
 ;;1423
 ;;21,"67544-1003-45 ")
 ;;1424
 ;;21,"67544-1003-53 ")
 ;;1425
 ;;21,"67544-1029-99 ")
 ;;246
 ;;21,"67544-1030-99 ")
 ;;241
 ;;21,"67544-1032-15 ")
 ;;853
 ;;21,"67544-1032-45 ")
 ;;854
 ;;21,"67544-1032-82 ")
 ;;855
 ;;21,"67544-1032-99 ")
 ;;856
 ;;21,"67544-1078-30 ")
 ;;1245
 ;;21,"67544-1254-15 ")
 ;;1246
 ;;21,"67544-1254-45 ")
 ;;1247
 ;;21,"67544-1255-15 ")
 ;;1426
 ;;21,"67544-1255-30 ")
 ;;1427
 ;;21,"67544-1255-45 ")
 ;;1428
 ;;21,"67544-1255-60 ")
 ;;1429
 ;;21,"67544-1256-15 ")
 ;;1093
 ;;21,"67544-1256-30 ")
 ;;1094
 ;;21,"67544-1256-45 ")
 ;;1095
 ;;21,"67544-1257-45 ")
 ;;958
 ;;21,"67544-1257-60 ")
 ;;959
 ;;21,"68071-0154-30 ")
 ;;151
 ;;21,"68071-0263-30 ")
 ;;835
 ;;21,"68071-0310-30 ")
 ;;186
 ;;21,"68071-0399-30 ")
 ;;121
 ;;21,"68071-0433-30 ")
 ;;814
 ;;21,"68071-0784-30 ")
 ;;863
 ;;21,"68084-0131-01 ")
 ;;309
 ;;21,"68084-0131-11 ")
 ;;310
 ;;21,"68084-0132-01 ")
 ;;414
 ;;21,"68084-0132-11 ")
 ;;415
 ;;21,"68084-0133-01 ")
 ;;514
 ;;21,"68084-0133-11 ")
 ;;515
 ;;21,"68084-0161-01 ")
 ;;1336
 ;;21,"68084-0161-11 ")
 ;;1337
 ;;21,"68084-0162-01 ")
 ;;960
 ;;21,"68084-0162-11 ")
 ;;961
 ;;21,"68084-0163-01 ")
 ;;1096
 ;;21,"68084-0163-11 ")
 ;;1097
 ;;21,"68084-0164-01 ")
 ;;1248
 ;;21,"68084-0164-11 ")
 ;;1249
 ;;21,"68084-0165-01 ")
 ;;1430
 ;;21,"68084-0165-11 ")
 ;;1431
 ;;21,"68084-0186-01 ")
 ;;591
 ;;21,"68084-0186-11 ")
 ;;592
 ;;21,"68084-0187-01 ")
 ;;668
 ;;21,"68084-0187-11 ")
 ;;669
 ;;21,"68084-0188-01 ")
 ;;754
 ;;21,"68084-0188-11 ")
 ;;755
 ;;21,"68115-0218-30 ")
 ;;311
 ;;21,"68115-0219-30 ")
 ;;416
 ;;21,"68115-0219-60 ")
 ;;417
 ;;21,"68115-0494-30 ")
 ;;152
 ;;21,"68115-0494-60 ")
 ;;153
 ;;21,"68115-0658-00 ")
 ;;516
 ;;21,"68115-0658-60 ")
 ;;517
 ;;21,"68115-0664-90 ")
 ;;756
 ;;21,"68115-0668-15 ")
 ;;187
 ;;21,"68115-0668-30 ")
 ;;188
 ;;21,"68115-0668-90 ")
 ;;189
 ;;21,"68115-0672-30 ")
 ;;1098
 ;;21,"68115-0720-30 ")
 ;;962
 ;;21,"68115-0759-30 ")
 ;;1432
 ;;21,"68115-0777-30 ")
 ;;1250
 ;;21,"68115-0777-90 ")
 ;;1251
 ;;21,"68115-0800-90 ")
 ;;154
 ;;21,"68115-0836-30 ")
 ;;122
 ;;21,"68115-0836-90 ")
 ;;123
 ;;21,"68180-0467-01 ")
 ;;312
 ;;21,"68180-0467-03 ")
 ;;313
 ;;21,"68180-0467-07 ")
 ;;314
 ;;21,"68180-0468-01 ")
 ;;418
 ;;21,"68180-0468-03 ")
 ;;419
 ;;21,"68180-0468-05 ")
 ;;429
 ;;21,"68180-0468-07 ")
 ;;420
 ;;21,"68180-0469-01 ")
 ;;518
 ;;21,"68180-0469-03 ")
 ;;519
 ;;21,"68180-0469-05 ")
 ;;533
 ;;21,"68180-0469-07 ")
 ;;520
 ;;21,"68180-0478-01 ")
 ;;963
 ;;21,"68180-0478-02 ")
 ;;964
 ;;21,"68180-0478-03 ")
 ;;965
 ;;21,"68180-0479-01 ")
 ;;1099
 ;;21,"68180-0479-02 ")
 ;;1100
 ;;21,"68180-0479-03 ")
 ;;1101
 ;;21,"68180-0480-01 ")
 ;;1252
 ;;21,"68180-0480-02 ")
 ;;1253
 ;;21,"68180-0480-03 ")
 ;;1254
 ;;21,"68180-0481-01 ")
 ;;1433
 ;;21,"68180-0481-02 ")
 ;;1434
 ;;21,"68180-0481-03 ")
 ;;1435
 ;;21,"68180-0482-06 ")
 ;;1338
 ;;21,"68180-0482-09 ")
 ;;1339
 ;;21,"68180-0485-02 ")
 ;;593
 ;;21,"68180-0485-09 ")
 ;;594
 ;;21,"68180-0486-02 ")
 ;;670
 ;;21,"68180-0486-09 ")
 ;;671
 ;;21,"68180-0487-02 ")
 ;;757
 ;;21,"68180-0487-09 ")
 ;;758
 ;;21,"68180-0488-02 ")
 ;;788
 ;;21,"68180-0488-09 ")
 ;;789
 ;;21,"68258-1040-01 ")
 ;;155
 ;;21,"68258-1057-01 ")
 ;;421
 ;;21,"68258-6000-03 ")
 ;;126
 ;;21,"68258-6000-09 ")
 ;;124
 ;;21,"68258-6001-03 ")
 ;;158
 ;;21,"68258-6001-09 ")
 ;;156
 ;;21,"68258-6002-03 ")
 ;;193
 ;;21,"68258-6002-09 ")
 ;;190
 ;;21,"68258-6009-03 ")
 ;;974
 ;;21,"68258-6013-03 ")
 ;;794
 ;;21,"68258-9001-01 ")
 ;;213
 ;;21,"68258-9128-01 ")
 ;;595
 ;;21,"68258-9154-01 ")
 ;;191
 ;;21,"68382-0065-05 ")
 ;;1340
 ;;21,"68382-0065-06 ")
 ;;1341
 ;;21,"68382-0065-10 ")
 ;;1342
 ;;21,"68382-0065-14 ")
 ;;1343
 ;;21,"68382-0065-16 ")
 ;;1344
 ;;21,"68382-0066-05 ")
 ;;966
 ;;21,"68382-0066-06 ")
 ;;967
 ;;21,"68382-0066-10 ")
 ;;968
 ;;21,"68382-0066-14 ")
 ;;969
 ;;21,"68382-0066-16 ")
 ;;970
 ;;21,"68382-0066-24 ")
 ;;971
 ;;21,"68382-0067-05 ")
 ;;1102
 ;;21,"68382-0067-06 ")
 ;;1103
 ;;21,"68382-0067-10 ")
 ;;1104
 ;;21,"68382-0067-14 ")
 ;;1105
 ;;21,"68382-0067-16 ")
 ;;1106
 ;;21,"68382-0067-24 ")
 ;;1107
 ;;21,"68382-0068-05 ")
 ;;1255