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

BGP7KXIB.m

Go to the documentation of this file.
BGP7KXIB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 10, 2006 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
 ;
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,"00536-2120-90 ")
 ;;157
 ;;21,"00536-3868-10 ")
 ;;1139
 ;;21,"00536-4652-01 ")
 ;;653
 ;;21,"00536-4652-05 ")
 ;;654
 ;;21,"00536-4652-10 ")
 ;;655
 ;;21,"00536-4996-01 ")
 ;;1177
 ;;21,"00536-4997-01 ")
 ;;252
 ;;21,"00536-4997-05 ")
 ;;1220
 ;;21,"00536-4997-10 ")
 ;;253
 ;;21,"00536-4998-01 ")
 ;;1284
 ;;21,"00536-4998-05 ")
 ;;329
 ;;21,"00536-4998-10 ")
 ;;330
 ;;21,"00537-2003-01 ")
 ;;57
 ;;21,"00537-2003-10 ")
 ;;1067
 ;;21,"00537-2004-10 ")
 ;;1068
 ;;21,"00537-2005-01 ")
 ;;1079
 ;;21,"00537-2005-10 ")
 ;;66
 ;;21,"00537-2546-16 ")
 ;;408
 ;;21,"00537-2546-28 ")
 ;;409
 ;;21,"00537-2550-16 ")
 ;;1119
 ;;21,"00537-2550-28 ")
 ;;1120
 ;;21,"00537-5006-10 ")
 ;;67
 ;;21,"00537-6062-01 ")
 ;;1140
 ;;21,"00537-6062-10 ")
 ;;1141
 ;;21,"00537-6365-16 ")
 ;;158
 ;;21,"00537-6365-28 ")
 ;;159
 ;;21,"00538-3378-01 ")
 ;;1094
 ;;21,"00538-3379-16 ")
 ;;1121
 ;;21,"00551-0123-01 ")
 ;;670
 ;;21,"00551-0123-02 ")
 ;;671
 ;;21,"00551-0124-01 ")
 ;;672
 ;;21,"00551-0124-02 ")
 ;;673
 ;;21,"00551-0205-01 ")
 ;;662
 ;;21,"00556-0048-01 ")
 ;;1069
 ;;21,"00556-0048-10 ")
 ;;58
 ;;21,"00556-0149-16 ")
 ;;659
 ;;21,"00556-0149-28 ")
 ;;660
 ;;21,"00556-0240-01 ")
 ;;1080
 ;;21,"00556-0240-10 ")
 ;;68
 ;;21,"00580-0008-01 ")
 ;;1070
 ;;21,"00580-0008-10 ")
 ;;59
 ;;21,"00580-0010-01 ")
 ;;69
 ;;21,"00580-0010-10 ")
 ;;70
 ;;21,"00580-0343-16 ")
 ;;1142
 ;;21,"00580-0346-16 ")
 ;;410
 ;;21,"00580-0346-99 ")
 ;;411
 ;;21,"00580-0704-01 ")
 ;;1285
 ;;21,"00580-0704-05 ")
 ;;1286
 ;;21,"00580-0875-01 ")
 ;;254
 ;;21,"00580-0875-05 ")
 ;;255
 ;;21,"00580-1584-34 ")
 ;;45
 ;;21,"00585-0218-84 ")
 ;;1058
 ;;21,"00585-0673-02 ")
 ;;682
 ;;21,"00585-0673-03 ")
 ;;683
 ;;21,"00585-0675-01 ")
 ;;684
 ;;21,"00585-0675-02 ")
 ;;685
 ;;21,"00585-0685-02 ")
 ;;720
 ;;21,"00585-2218-80 ")
 ;;46
 ;;21,"00585-2218-82 ")
 ;;1059
 ;;21,"00585-3318-40 ")
 ;;1287
 ;;21,"00585-4318-50 ")
 ;;331
 ;;21,"00585-5318-60 ")
 ;;1288
 ;;21,"00585-6218-70 ")
 ;;302
 ;;21,"00585-6219-01 ")
 ;;224
 ;;21,"00585-7218-75 ")
 ;;225
 ;;21,"00585-7219-10 ")
 ;;308
 ;;21,"00603-1190-58 ")
 ;;742
 ;;21,"00603-1715-58 ")
 ;;1113
 ;;21,"00603-1729-58 ")
 ;;661
 ;;21,"00603-1742-58 ")
 ;;436
 ;;21,"00603-5747-21 ")
 ;;709
 ;;21,"00603-5944-21 ")
 ;;745
 ;;21,"00603-5944-28 ")
 ;;746
 ;;21,"00603-5945-21 ")
 ;;697
 ;;21,"00603-5945-28 ")
 ;;698
 ;;21,"00603-5945-32 ")
 ;;699
 ;;21,"00603-5946-21 ")
 ;;700
 ;;21,"00603-5946-28 ")
 ;;701
 ;;21,"00603-5946-29 ")
 ;;702
 ;;21,"00603-5946-32 ")
 ;;703
 ;;21,"00603-5947-21 ")
 ;;401
 ;;21,"00603-5950-21 ")
 ;;747
 ;;21,"00603-5951-21 ")
 ;;721
 ;;21,"00603-5952-21 ")
 ;;748
 ;;21,"00615-0314-01 ")
 ;;160
 ;;21,"00615-0727-16 ")
 ;;1122
 ;;21,"00615-0729-16 ")
 ;;412
 ;;21,"00615-0729-60 ")
 ;;413
 ;;21,"00615-1706-16 ")
 ;;1123
 ;;21,"00659-1305-30 ")
 ;;1289
 ;;21,"00659-2805-25 ")
 ;;678
 ;;21,"00659-2809-30 ")
 ;;332
 ;;21,"00659-2810-30 ")
 ;;256
 ;;21,"00675-2250-07 ")
 ;;60
 ;;21,"00675-2250-12 ")
 ;;61
 ;;21,"00675-2258-07 ")
 ;;71
 ;;21,"00675-2258-12 ")
 ;;1081
 ;;21,"00675-2262-07 ")
 ;;1082
 ;;21,"00675-2262-12 ")
 ;;1083
 ;;21,"00675-2847-16 ")
 ;;149
 ;;21,"00675-2850-16 ")
 ;;1356
 ;;21,"00675-2850-28 ")
 ;;1357
 ;;21,"00675-2853-16 ")
 ;;437
 ;;21,"00675-2853-28 ")
 ;;438
 ;;21,"00675-4024-07 ")
 ;;391
 ;;21,"00675-4024-10 ")
 ;;392
 ;;21,"00677-0003-01 ")
 ;;738
 ;;21,"00677-0007-01 ")
 ;;675
 ;;21,"00677-0007-10 ")
 ;;676
 ;;21,"00677-0817-01 ")
 ;;693
 ;;21,"00677-0817-05 ")
 ;;694
 ;;21,"00677-0846-01 ")
 ;;695
 ;;21,"00677-0846-05 ")
 ;;696
 ;;21,"00677-1037-01 ")
 ;;712
 ;;21,"00677-1780-01 ")
 ;;719
 ;;21,"00686-0873-08 ")
 ;;47
 ;;21,"00686-1020-25 ")
 ;;62
 ;;21,"00686-1025-25 ")
 ;;1084
 ;;21,"00719-1030-13 ")
 ;;1071
 ;;21,"00719-1031-13 ")
 ;;1085
 ;;21,"00719-1939-10 ")
 ;;1178
 ;;21,"00719-1942-10 ")
 ;;1221
 ;;21,"00719-1942-13 ")
 ;;1222
 ;;21,"00719-1943-10 ")
 ;;1290
 ;;21,"00719-1943-12 ")
 ;;1291
 ;;21,"00719-1943-13 ")
 ;;333
 ;;21,"00719-4070-80 ")
 ;;1060
 ;;21,"00719-4172-83 ")
 ;;1143
 ;;21,"00719-4343-83 ")
 ;;136
 ;;21,"00719-4820-83 ")
 ;;1144
 ;;21,"00719-4820-85 ")
 ;;171
 ;;21,"00719-4825-83 ")
 ;;1358
 ;;21,"00719-4825-85 ")
 ;;1359
 ;;21,"00779-1085-25 ")
 ;;172
 ;;21,"00779-1085-30 ")
 ;;173
 ;;21,"00781-1004-13 ")
 ;;1223
 ;;21,"00781-1005-13 ")
 ;;334
 ;;21,"00781-1214-10 ")
 ;;63
 ;;21,"00781-2890-01 ")
 ;;174
 ;;21,"00781-2890-05 ")
 ;;1145
 ;;21,"00781-6600-16 ")
 ;;710
 ;;21,"00781-6600-28 ")
 ;;711
 ;;21,"00781-6602-16 ")
 ;;161
 ;;21,"00783-0152-09 ")
 ;;1072
 ;;21,"00783-0170-09 ")
 ;;35
 ;;21,"00783-0209-09 ")
 ;;1086
 ;;21,"00783-0665-09 ")
 ;;1087
 ;;21,"00785-4345-01 ")
 ;;730
 ;;21,"00801-0060-37 ")
 ;;441
 ;;21,"00801-0060-39 ")
 ;;1384
 ;;21,"00814-7785-86 ")
 ;;414
 ;;21,"00814-7790-82 ")
 ;;162
 ;;21,"00832-8019-16 ")
 ;;415
 ;;21,"00832-8019-28 ")
 ;;1360
 ;;21,"00832-8069-16 ")
 ;;1106
 ;;21,"00832-8069-28 ")
 ;;335
 ;;21,"00832-8078-16 ")
 ;;1383
 ;;21,"00832-8078-28 ")
 ;;1124
 ;;21,"00832-8525-08 ")
 ;;48
 ;;21,"00834-4019-91 ")
 ;;124
 ;;21,"00834-4019-99 ")
 ;;125
 ;;21,"00839-1011-06 ")
 ;;1393
 ;;21,"00839-1011-16 ")
 ;;704
 ;;21,"00839-5029-69 ")
 ;;705
 ;;21,"00839-5029-70 ")
 ;;706
 ;;21,"00839-5053-16 ")
 ;;743
 ;;21,"00839-5441-69 ")
 ;;163
 ;;21,"00839-6311-69 ")
 ;;1107
 ;;21,"00839-6348-69 ")
 ;;707
 ;;21,"00839-6693-06 ")
 ;;725
 ;;21,"00839-6693-12 ")
 ;;1292
 ;;21,"00839-6693-16 ")
 ;;726
 ;;21,"00839-6697-06 ")
 ;;692
 ;;21,"00839-6729-06 ")
 ;;727
 ;;21,"00839-6729-12 ")
 ;;728
 ;;21,"00839-6729-16 ")
 ;;729
 ;;21,"00839-6730-06 ")
 ;;750
 ;;21,"00839-6730-12 ")
 ;;751
 ;;21,"00839-7651-06 ")
 ;;737
 ;;21,"00839-7705-06 ")
 ;;766
 ;;21,"00839-7706-06 ")
 ;;732
 ;;21,"00839-7706-12 ")
 ;;733
 ;;21,"00839-7707-16 ")
 ;;734
 ;;21,"00839-7885-06 ")
 ;;739
 ;;21,"00839-7886-06 ")
 ;;764
 ;;21,"00839-7887-06 ")
 ;;741
 ;;21,"00839-7888-06 ")
 ;;765
 ;;21,"00853-0121-01 ")
 ;;1095
 ;;21,"00853-0121-10 ")
 ;;1096
 ;;21,"00879-0090-10 ")
 ;;1041
 ;;21,"00879-0426-16 ")
 ;;1125
 ;;21,"00879-0426-28 ")
 ;;1126
 ;;21,"00904-0978-16 ")
 ;;143
 ;;21,"00904-1445-16 ")
 ;;439
 ;;21,"00904-1445-28 ")
 ;;1127
 ;;21,"00904-1555-16 ")
 ;;761
 ;;21,"00904-1556-60 ")
 ;;731
 ;;21,"00904-1557-60 ")
 ;;755
 ;;21,"00904-1558-60 ")
 ;;718
 ;;21,"00904-1610-60 ")
 ;;762
 ;;21,"00904-1610-61 ")
 ;;763
 ;;21,"00904-1611-60 ")
 ;;713
 ;;21,"00904-1611-61 ")
 ;;714
 ;;21,"00904-1611-80 ")
 ;;735
 ;;21,"00904-1612-40 ")
 ;;715
 ;;21,"00904-1612-60 ")
 ;;716
 ;;21,"00904-1612-61 ")
 ;;717
 ;;21,"00904-1612-80 ")
 ;;736
 ;;21,"00904-2273-60 ")
 ;;752
 ;;21,"00904-2273-61 ")
 ;;1042
 ;;21,"00904-2273-80 ")
 ;;753
 ;;21,"00904-2282-60 ")
 ;;1128
 ;;21,"00904-2283-60 ")
 ;;1394
 ;;21,"00904-2283-80 ")
 ;;740
 ;;21,"00904-5386-60 ")
 ;;1097
 ;;21,"00904-7849-60 ")
 ;;773
 ;;21,"10350-0112-16 ")
 ;;416
 ;;21,"10892-0150-65 ")
 ;;749
 ;;21,"11517-3169-01 ")
 ;;11
 ;;21,"11517-3169-02 ")
 ;;95
 ;;21,"11517-3169-09 ")
 ;;12
 ;;21,"11845-0358-01 ")
 ;;204
 ;;21,"11845-0358-03 ")
 ;;1179
 ;;21,"11845-0359-01 ")
 ;;1224
 ;;21,"11845-0359-03 ")
 ;;1225
 ;;21,"11845-0360-01 ")
 ;;1293
 ;;21,"11845-0360-03 ")
 ;;336
 ;;21,"11845-0390-01 ")
 ;;175
 ;;21,"11845-0390-02 ")
 ;;1146
 ;;21,"11845-0390-04 ")
 ;;176
 ;;21,"11845-0390-20 ")
 ;;177
 ;;21,"12280-0042-90 ")
 ;;744
 ;;21,"12525-0675-01 ")
 ;;13
 ;;21,"12525-0675-02 ")
 ;;96
 ;;21,"12525-0675-99 ")
 ;;97
 ;;21,"12634-0132-01 ")
 ;;178
 ;;21,"12634-0132-10 ")
 ;;1147
 ;;21,"12939-0128-42 ")
 ;;1114
 ;;21,"12939-0132-16 ")
 ;;1392
 ;;21,"12939-0209-16 ")
 ;;1148
 ;;21,"12939-0212-16 ")
 ;;754
 ;;21,"12939-0459-90 ")
 ;;337
 ;;21,"12939-0482-50 ")
 ;;1226
 ;;21,"15370-0021-10 ")
 ;;14
 ;;21,"17022-3399-07 ")
 ;;150
 ;;21,"17022-3567-09 ")
 ;;417
 ;;21,"17022-8599-06 ")
 ;;1149
 ;;21,"17236-0103-01 ")
 ;;1043
 ;;21,"17236-0103-10 ")
 ;;1044
 ;;21,"17236-0142-01 ")
 ;;1098
 ;;21,"17236-0324-01 ")
 ;;756
 ;;21,"17236-0324-05 ")
 ;;757
 ;;21,"17236-0324-10 ")
 ;;758
 ;;21,"17236-0325-01 ")
 ;;759
 ;;21,"17236-0325-10 ")
 ;;760
 ;;21,"17236-0335-01 ")
 ;;777
 ;;21,"17236-0335-05 ")
 ;;778
 ;;21,"17236-0335-10 ")
 ;;1180
 ;;21,"17236-0503-01 ")
 ;;1088
 ;;21,"17236-0503-10 ")
 ;;1089
 ;;21,"17236-0561-01 ")
 ;;1150
 ;;21,"17236-0561-10 ")
 ;;179
 ;;21,"17236-0709-16 ")
 ;;144
 ;;21,"17236-0709-28 ")
 ;;1108
 ;;21,"17236-0840-16 ")
 ;;1115
 ;;21,"17236-0840-28 ")
 ;;1116
 ;;21,"17236-0842-16 ")
 ;;1361
 ;;21,"17236-0842-28 ")
 ;;418
 ;;21,"17270-0574-37 ")
 ;;1385
 ;;21,"17270-0574-39 ")
 ;;1386
 ;;21,"19458-0718-01 ")
 ;;98
 ;;21,"24208-0373-60 ")
 ;;793
 ;;21,"24208-0373-62 ")
 ;;794
 ;;21,"38130-0012-01 ")
 ;;768
 ;;21,"38130-0012-10 ")
 ;;769
 ;;21,"38130-0400-01 ")
 ;;1099
 ;;21,"43797-0075-03 ")
 ;;1227
 ;;21,"43797-0313-16 ")
 ;;109
 ;;21,"44514-0903-36 ")
 ;;1201
 ;;21,"44514-0904-36 ")
 ;;309
 ;;21,"45565-0305-01 ")
 ;;767
 ;;21,"45565-0306-17 ")
 ;;785
 ;;21,"45985-0633-08 ")
 ;;775
 ;;21,"45985-0647-01 ")
 ;;774
 ;;21,"46672-0614-16 ")
 ;;801
 ;;21,"47202-1077-01 ")
 ;;1151
 ;;21,"47202-1077-02 ")
 ;;1152
 ;;21,"47202-1078-01 ")
 ;;419
 ;;21,"47202-1078-02 ")
 ;;1362
 ;;21,"47202-1079-01 ")
 ;;1129
 ;;21,"47202-1275-01 ")
 ;;1109
 ;;21,"47202-1275-02 ")
 ;;1110
 ;;21,"47202-1296-01 ")
 ;;1103
 ;;21,"47202-1303-08 ")
 ;;1061
 ;;21,"47202-2001-01 ")
 ;;1045
 ;;21,"47202-2249-04 ")
 ;;1130
 ;;21,"47202-2320-01 ")
 ;;72
 ;;21,"47202-2421-01 ")
 ;;1294
 ;;21,"47202-2421-02 ")
 ;;1295
 ;;21,"47202-2421-03 ")
 ;;1296
 ;;21,"47202-2438-01 ")
 ;;1181
 ;;21,"47202-2439-01 ")
 ;;257
 ;;21,"47202-2439-03 ")
 ;;1228
 ;;21,"47202-2625-01 ")
 ;;111
 ;;21,"47202-2733-01 ")
 ;;112
 ;;21,"47202-2734-01 ")
 ;;22
 ;;21,"47649-0580-10 ")
 ;;258
 ;;21,"47649-0782-16 ")
 ;;1363
 ;;21,"47679-0437-11 ")
 ;;1131
 ;;21,"47679-0438-11 ")
 ;;1364
 ;;21,"48879-0673-02 ")
 ;;99
 ;;21,"48879-0673-03 ")
 ;;100
 ;;21,"48879-0673-99 ")
 ;;15
 ;;21,"48879-0996-02 ")
 ;;88
 ;;21,"48879-0996-03 ")
 ;;89
 ;;21,"49158-0261-34 ")
 ;;1365
 ;;21,"49158-0261-38 ")
 ;;420
 ;;21,"49158-0261-39 ")
 ;;421
 ;;21,"49502-0432-05 ")
 ;;259
 ;;21,"49502-0433-01 ")
 ;;1297
 ;;21,"49502-0433-05 ")
 ;;338
 ;;21,"49502-0433-10 ")
 ;;1298
 ;;21,"49502-0689-00 ")
 ;;90
 ;;21,"49502-0689-02 ")
 ;;782
 ;;21,"49502-0689-12 ")
 ;;783
 ;;21,"49502-0689-61 ")
 ;;784
 ;;21,"49727-0474-04 ")
 ;;1229
 ;;21,"49727-0475-04 ")
 ;;1299
 ;;21,"49727-0960-02 ")
 ;;1182
 ;;21,"49999-0533-30 ")
 ;;1157
 ;;21,"49999-0550-00 ")
 ;;73
 ;;21,"49999-0614-12 ")
 ;;1395
 ;;21,"50111-0459-01 ")
 ;;795
 ;;21,"50111-0459-02 ")
 ;;796
 ;;21,"50111-0459-03 ")
 ;;797
 ;;21,"50111-0482-01 ")
 ;;798
 ;;21,"50111-0482-02 ")
 ;;799
 ;;21,"50111-0482-03 ")
 ;;800
 ;;21,"50111-0483-01 ")
 ;;808
 ;;21,"50111-0483-02 ")
 ;;809
 ;;21,"50111-0483-03 ")
 ;;810
 ;;21,"50111-0518-01 ")
 ;;789
 ;;21,"50111-0846-01 ")
 ;;1230
 ;;21,"50111-0846-05 ")
 ;;1231
 ;;21,"50383-0806-16 ")
 ;;837
 ;;21,"50419-0112-08 ")
 ;;1366
 ;;21,"50419-0120-10 ")
 ;;1341
 ;;21,"50419-0121-16 ")
 ;;1342
 ;;21,"50419-0121-32 ")
 ;;1367
 ;;21,"50419-0123-10 ")
 ;;303
 ;;21,"50419-0123-11 ")
 ;;1269
 ;;21,"50419-0123-50 ")
 ;;1270
 ;;21,"50419-0123-51 ")
 ;;1271
 ;;21,"50419-0124-08 ")
 ;;1153
 ;;21,"50419-0124-28 ")
 ;;440
 ;;21,"50419-0129-10 ")
 ;;1197
 ;;21,"50419-0129-11 ")
 ;;1198
 ;;21,"50419-0129-50 ")
 ;;223
 ;;21,"50419-0129-51 ")
 ;;1199
 ;;21,"50419-0136-16 ")
 ;;148
 ;;21,"50474-0100-01 ")
 ;;790
 ;;21,"50474-0200-01 ")
 ;;848
 ;;21,"50474-0200-50 ")
 ;;849
 ;;21,"50474-0200-60 ")
 ;;850
 ;;21,"50474-0300-01 ")
 ;;786
 ;;21,"50474-0300-50 ")
 ;;787
 ;;21,"50474-0300-60 ")
 ;;788
 ;;21,"50474-0400-01 ")
 ;;792
 ;;21,"50474-2832-04 ")
 ;;1170
 ;;21,"50474-2832-06 ")
 ;;196
 ;;21,"50474-2842-04 ")
 ;;239
 ;;21,"50474-2842-06 ")
 ;;240
 ;;21,"50474-2842-08 ")
 ;;241
 ;;21,"50474-2852-04 ")
 ;;318
 ;;21,"50474-2852-06 ")
 ;;1277
 ;;21,"50474-2852-08 ")
 ;;319
 ;;21,"50474-2902-04 ")
 ;;394
 ;;21,"50474-2902-06 ")
 ;;1346
 ;;21,"50580-0175-40 ")
 ;;791
 ;;21,"50580-0177-80 ")
 ;;851
 ;;21,"50732-0896-04 ")
 ;;770
 ;;21,"50732-0896-16 ")
 ;;771
 ;;21,"50732-0896-28 ")
 ;;772
 ;;21,"50732-0897-16 ")
 ;;812
 ;;21,"50732-0897-28 ")
 ;;813
 ;;21,"50962-0401-15 ")
 ;;422
 ;;21,"50991-0200-16 ")
 ;;779
 ;;21,"50991-0214-16 ")
 ;;1396
 ;;21,"50991-0400-01 ")
 ;;780
 ;;21,"50991-0400-05 ")
 ;;781
 ;;21,"50991-0413-01 ")
 ;;1397
 ;;21,"51079-0311-10 ")
 ;;164
 ;;21,"51079-0312-10 ")
 ;;1132