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

BGP51S3.m

Go to the documentation of this file.
BGP51S3 ;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,"55048-0611-74 ")
 ;;704
 ;;21,"55048-0612-30 ")
 ;;422
 ;;21,"55048-0629-60 ")
 ;;27
 ;;21,"55048-0629-71 ")
 ;;28
 ;;21,"55048-0630-60 ")
 ;;29
 ;;21,"55048-0630-71 ")
 ;;30
 ;;21,"55048-0631-60 ")
 ;;886
 ;;21,"55048-0631-71 ")
 ;;887
 ;;21,"55048-0632-60 ")
 ;;888
 ;;21,"55048-0632-71 ")
 ;;889
 ;;21,"55111-0695-01 ")
 ;;1095
 ;;21,"55111-0696-01 ")
 ;;1133
 ;;21,"55111-0696-10 ")
 ;;1134
 ;;21,"55111-0697-01 ")
 ;;1190
 ;;21,"55111-0697-10 ")
 ;;1191
 ;;21,"55289-0211-60 ")
 ;;6
 ;;21,"55289-0281-30 ")
 ;;1212
 ;;21,"55289-0281-60 ")
 ;;1213
 ;;21,"55289-0281-86 ")
 ;;1214
 ;;21,"55289-0281-90 ")
 ;;1215
 ;;21,"55289-0384-30 ")
 ;;874
 ;;21,"55289-0384-60 ")
 ;;875
 ;;21,"55289-0384-86 ")
 ;;876
 ;;21,"55289-0384-90 ")
 ;;877
 ;;21,"55289-0384-93 ")
 ;;878
 ;;21,"55289-0384-94 ")
 ;;879
 ;;21,"55289-0615-14 ")
 ;;87
 ;;21,"55289-0615-30 ")
 ;;88
 ;;21,"55289-0615-60 ")
 ;;89
 ;;21,"55289-0615-86 ")
 ;;90
 ;;21,"55289-0615-90 ")
 ;;91
 ;;21,"55289-0615-93 ")
 ;;92
 ;;21,"55289-0615-94 ")
 ;;93
 ;;21,"55289-0615-98 ")
 ;;94
 ;;21,"55289-0919-30 ")
 ;;705
 ;;21,"55289-0919-60 ")
 ;;706
 ;;21,"55289-0919-90 ")
 ;;707
 ;;21,"55289-0919-93 ")
 ;;708
 ;;21,"55289-0919-94 ")
 ;;709
 ;;21,"55289-0919-98 ")
 ;;710
 ;;21,"55289-0934-30 ")
 ;;410
 ;;21,"55289-0934-60 ")
 ;;411
 ;;21,"55289-0934-93 ")
 ;;412
 ;;21,"55289-0934-94 ")
 ;;413
 ;;21,"55289-0934-98 ")
 ;;414
 ;;21,"55700-0041-30 ")
 ;;997
 ;;21,"57237-0023-01 ")
 ;;1098
 ;;21,"57237-0023-05 ")
 ;;1099
 ;;21,"57237-0024-01 ")
 ;;1141
 ;;21,"57237-0024-05 ")
 ;;1142
 ;;21,"57237-0025-01 ")
 ;;1205
 ;;21,"57237-0025-05 ")
 ;;1206
 ;;21,"57664-0397-13 ")
 ;;100
 ;;21,"57664-0397-18 ")
 ;;1
 ;;21,"57664-0397-51 ")
 ;;95
 ;;21,"57664-0397-53 ")
 ;;96
 ;;21,"57664-0397-58 ")
 ;;97
 ;;21,"57664-0397-88 ")
 ;;98
 ;;21,"57664-0397-99 ")
 ;;99
 ;;21,"57664-0435-13 ")
 ;;415
 ;;21,"57664-0435-18 ")
 ;;416
 ;;21,"57664-0435-51 ")
 ;;417
 ;;21,"57664-0435-53 ")
 ;;418
 ;;21,"57664-0435-58 ")
 ;;419
 ;;21,"57664-0435-88 ")
 ;;420
 ;;21,"57664-0435-99 ")
 ;;421
 ;;21,"57664-0474-13 ")
 ;;711
 ;;21,"57664-0474-18 ")
 ;;712
 ;;21,"57664-0474-51 ")
 ;;713
 ;;21,"57664-0474-53 ")
 ;;714
 ;;21,"57664-0474-58 ")
 ;;715
 ;;21,"57664-0474-88 ")
 ;;716
 ;;21,"57664-0474-99 ")
 ;;717
 ;;21,"57664-0724-88 ")
 ;;1072
 ;;21,"57664-0725-88 ")
 ;;1063
 ;;21,"57664-0727-88 ")
 ;;1054
 ;;21,"58016-0058-00 ")
 ;;1100
 ;;21,"58016-0058-30 ")
 ;;1101
 ;;21,"58016-0058-60 ")
 ;;1102
 ;;21,"58016-0058-90 ")
 ;;1103
 ;;21,"58016-0213-00 ")
 ;;2
 ;;21,"58016-0213-10 ")
 ;;3
 ;;21,"58016-0213-30 ")
 ;;4
 ;;21,"58016-0213-60 ")
 ;;5
 ;;21,"58016-0411-00 ")
 ;;1207
 ;;21,"58016-0411-02 ")
 ;;1208
 ;;21,"58016-0411-30 ")
 ;;1209
 ;;21,"58016-0411-60 ")
 ;;1210
 ;;21,"58016-0411-90 ")
 ;;1211
 ;;21,"58016-0457-00 ")
 ;;363
 ;;21,"58016-0457-10 ")
 ;;364
 ;;21,"58016-0457-30 ")
 ;;365
 ;;21,"58016-0457-60 ")
 ;;366
 ;;21,"58016-0466-00 ")
 ;;718
 ;;21,"58016-0466-30 ")
 ;;719
 ;;21,"58016-0466-60 ")
 ;;720
 ;;21,"58016-0466-90 ")
 ;;721
 ;;21,"58016-0536-00 ")
 ;;447
 ;;21,"58016-0536-30 ")
 ;;448
 ;;21,"58016-0536-60 ")
 ;;449
 ;;21,"58016-0536-90 ")
 ;;450
 ;;21,"58016-0553-00 ")
 ;;582
 ;;21,"58016-0553-10 ")
 ;;583
 ;;21,"58016-0553-30 ")
 ;;584
 ;;21,"58016-0553-60 ")
 ;;585
 ;;21,"58016-0772-00 ")
 ;;167
 ;;21,"58016-0772-30 ")
 ;;168
 ;;21,"58016-0772-60 ")
 ;;169
 ;;21,"58016-0772-90 ")
 ;;170
 ;;21,"58016-0883-00 ")
 ;;833
 ;;21,"58016-0883-30 ")
 ;;834
 ;;21,"58016-0883-60 ")
 ;;835
 ;;21,"58016-0883-90 ")
 ;;836
 ;;21,"58118-0010-06 ")
 ;;586
 ;;21,"58118-0010-08 ")
 ;;587
 ;;21,"58118-0010-09 ")
 ;;588
 ;;21,"58118-0102-03 ")
 ;;164
 ;;21,"58118-0102-06 ")
 ;;165
 ;;21,"58118-0102-09 ")
 ;;166
 ;;21,"58118-0178-03 ")
 ;;829
 ;;21,"58118-0178-06 ")
 ;;830
 ;;21,"58118-0178-07 ")
 ;;831
 ;;21,"58118-0178-09 ")
 ;;832
 ;;21,"58118-0435-03 ")
 ;;451
 ;;21,"58118-0435-09 ")
 ;;452
 ;;21,"58118-2331-03 ")
 ;;1145
 ;;21,"58118-2331-09 ")
 ;;1146
 ;;21,"58118-2332-03 ")
 ;;1226
 ;;21,"58118-2332-09 ")
 ;;1227
 ;;21,"58118-7212-03 ")
 ;;979
 ;;21,"58118-7212-09 ")
 ;;980
 ;;21,"58517-0040-90 ")
 ;;159
 ;;21,"58864-0015-28 ")
 ;;160
 ;;21,"58864-0015-30 ")
 ;;161
 ;;21,"58864-0015-60 ")
 ;;162
 ;;21,"58864-0015-90 ")
 ;;163
 ;;21,"58864-0507-30 ")
 ;;828
 ;;21,"58864-0693-30 ")
 ;;592
 ;;21,"58864-0693-60 ")
 ;;593
 ;;21,"58864-0711-30 ")
 ;;1124
 ;;21,"58864-0789-30 ")
 ;;434
 ;;21,"58864-0851-30 ")
 ;;842
 ;;21,"58864-0952-30 ")
 ;;1147
 ;;21,"58864-0953-30 ")
 ;;1225
 ;;21,"59630-0574-60 ")
 ;;990
 ;;21,"59630-0575-60 ")
 ;;996
 ;;21,"59762-2330-07 ")
 ;;1106
 ;;21,"59762-2331-06 ")
 ;;1143
 ;;21,"59762-2331-08 ")
 ;;1144
 ;;21,"59762-2332-06 ")
 ;;1228
 ;;21,"59762-2332-08 ")
 ;;1229
 ;;21,"59762-4320-00 ")
 ;;171
 ;;21,"59762-4320-02 ")
 ;;172
 ;;21,"59762-4320-06 ")
 ;;173
 ;;21,"59762-4321-00 ")
 ;;444
 ;;21,"59762-4321-02 ")
 ;;445
 ;;21,"59762-4321-06 ")
 ;;446
 ;;21,"59762-4322-00 ")
 ;;589
 ;;21,"59762-4322-02 ")
 ;;590
 ;;21,"59762-4322-06 ")
 ;;591
 ;;21,"60429-0111-01 ")
 ;;174
 ;;21,"60429-0111-10 ")
 ;;175
 ;;21,"60429-0111-12 ")
 ;;176
 ;;21,"60429-0111-18 ")
 ;;177
 ;;21,"60429-0111-27 ")
 ;;178
 ;;21,"60429-0111-36 ")
 ;;179
 ;;21,"60429-0111-45 ")
 ;;180
 ;;21,"60429-0111-60 ")
 ;;181
 ;;21,"60429-0111-90 ")
 ;;182
 ;;21,"60429-0112-01 ")
 ;;439
 ;;21,"60429-0112-05 ")
 ;;440
 ;;21,"60429-0112-18 ")
 ;;441
 ;;21,"60429-0112-27 ")
 ;;442
 ;;21,"60429-0112-90 ")
 ;;443
 ;;21,"60429-0113-05 ")
 ;;594
 ;;21,"60429-0113-10 ")
 ;;595
 ;;21,"60429-0113-18 ")
 ;;596
 ;;21,"60429-0113-60 ")
 ;;597
 ;;21,"60429-0113-90 ")
 ;;598
 ;;21,"60429-0280-01 ")
 ;;976
 ;;21,"60429-0280-10 ")
 ;;977
 ;;21,"60429-0280-18 ")
 ;;978
 ;;21,"60429-0722-18 ")
 ;;577
 ;;21,"60429-0722-60 ")
 ;;578
 ;;21,"60429-0723-12 ")
 ;;146
 ;;21,"60429-0723-18 ")
 ;;147
 ;;21,"60429-0723-60 ")
 ;;148
 ;;21,"60429-0723-90 ")
 ;;149
 ;;21,"60429-0724-18 ")
 ;;358
 ;;21,"60429-0724-60 ")
 ;;359
 ;;21,"60429-0725-05 ")
 ;;845
 ;;21,"60429-0725-18 ")
 ;;846
 ;;21,"60429-0725-60 ")
 ;;847
 ;;21,"60429-0725-90 ")
 ;;848
 ;;21,"60505-0190-00 ")
 ;;142
 ;;21,"60505-0190-01 ")
 ;;143
 ;;21,"60505-0190-04 ")
 ;;144
 ;;21,"60505-0190-08 ")
 ;;145
 ;;21,"60505-0191-00 ")
 ;;430
 ;;21,"60505-0191-01 ")
 ;;431
 ;;21,"60505-0191-04 ")
 ;;432
 ;;21,"60505-0191-08 ")
 ;;433
 ;;21,"60505-0192-00 ")
 ;;603
 ;;21,"60505-0192-01 ")
 ;;604
 ;;21,"60505-0192-04 ")
 ;;605
 ;;21,"60505-0192-08 ")
 ;;606
 ;;21,"60505-0260-01 ")
 ;;839
 ;;21,"60505-0260-02 ")
 ;;840
 ;;21,"60505-0260-07 ")
 ;;841
 ;;21,"60505-1329-01 ")
 ;;974
 ;;21,"60760-0042-60 ")
 ;;855
 ;;21,"60760-0175-30 ")
 ;;1064
 ;;21,"60760-0175-90 ")
 ;;1065
 ;;21,"60760-0176-30 ")
 ;;1080
 ;;21,"60760-0176-90 ")
 ;;1081
 ;;21,"60760-0973-60 ")
 ;;153
 ;;21,"60760-0973-98 ")
 ;;154
 ;;21,"60760-0974-60 ")
 ;;426
 ;;21,"60760-0974-90 ")
 ;;427
 ;;21,"60760-0975-60 ")
 ;;601
 ;;21,"60760-0975-90 ")
 ;;602
 ;;21,"61442-0361-01 ")
 ;;150
 ;;21,"61442-0361-05 ")
 ;;151
 ;;21,"61442-0361-10 ")
 ;;152
 ;;21,"61442-0362-01 ")
 ;;428
 ;;21,"61442-0362-05 ")
 ;;429
 ;;21,"61442-0363-01 ")
 ;;599
 ;;21,"61442-0363-05 ")
 ;;600
 ;;21,"62037-0571-01 ")
 ;;843
 ;;21,"62037-0571-10 ")
 ;;844
 ;;21,"62037-0577-01 ")
 ;;972
 ;;21,"62037-0577-10 ")
 ;;973
 ;;21,"62037-0674-01 ")
 ;;155
 ;;21,"62037-0674-10 ")
 ;;156
 ;;21,"62037-0675-01 ")
 ;;437
 ;;21,"62037-0675-10 ")
 ;;438
 ;;21,"62037-0676-01 ")
 ;;607
 ;;21,"62037-0676-10 ")
 ;;608
 ;;21,"62584-0259-01 ")
 ;;157
 ;;21,"62584-0259-11 ")
 ;;158
 ;;21,"62584-0332-01 ")
 ;;435
 ;;21,"62584-0332-11 ")
 ;;436
 ;;21,"62584-0452-01 ")
 ;;609
 ;;21,"62584-0452-11 ")
 ;;610
 ;;21,"62756-0142-01 ")
 ;;837
 ;;21,"62756-0142-02 ")
 ;;838
 ;;21,"62756-0143-01 ")
 ;;975
 ;;21,"63629-1392-01 ")
 ;;1148
 ;;21,"63629-1392-02 ")
 ;;1149
 ;;21,"63629-1392-03 ")
 ;;1150
 ;;21,"63629-1395-01 ")
 ;;129
 ;;21,"63629-1395-02 ")
 ;;130
 ;;21,"63629-1395-03 ")
 ;;131
 ;;21,"63629-1396-01 ")
 ;;453
 ;;21,"63629-1396-02 ")
 ;;454
 ;;21,"63629-1397-01 ")
 ;;620
 ;;21,"63629-1397-02 ")
 ;;621
 ;;21,"63629-1397-03 ")
 ;;622
 ;;21,"63629-1397-04 ")
 ;;623
 ;;21,"63629-1397-05 ")
 ;;624
 ;;21,"63629-2793-01 ")
 ;;1221
 ;;21,"63629-2793-03 ")
 ;;1222
 ;;21,"63629-2793-04 ")
 ;;1223
 ;;21,"63629-2793-05 ")
 ;;1224
 ;;21,"63629-2883-01 ")
 ;;856
 ;;21,"63629-2883-02 ")
 ;;857
 ;;21,"63629-2883-03 ")
 ;;858
 ;;21,"63629-3998-01 ")
 ;;1107
 ;;21,"63739-0640-10 ")
 ;;122
 ;;21,"63874-0501-01 ")
 ;;132
 ;;21,"63874-0501-04 ")
 ;;133
 ;;21,"63874-0501-10 ")
 ;;134
 ;;21,"63874-0501-14 ")
 ;;135
 ;;21,"63874-0501-20 ")
 ;;136
 ;;21,"63874-0501-24 ")
 ;;137
 ;;21,"63874-0501-28 ")
 ;;138
 ;;21,"63874-0501-30 ")
 ;;139
 ;;21,"63874-0501-60 ")
 ;;140
 ;;21,"63874-0501-90 ")
 ;;141
 ;;21,"63874-0635-01 ")
 ;;455
 ;;21,"63874-0635-10 ")
 ;;456
 ;;21,"63874-0635-20 ")
 ;;457
 ;;21,"63874-0635-28 ")
 ;;458
 ;;21,"63874-0635-30 ")
 ;;459
 ;;21,"63874-0635-60 ")
 ;;460
 ;;21,"63874-0635-90 ")
 ;;461
 ;;21,"63874-0974-01 ")
 ;;617
 ;;21,"63874-0974-30 ")
 ;;618
 ;;21,"63874-0974-60 ")
 ;;619
 ;;21,"64764-0155-18 ")
 ;;1265
 ;;21,"64764-0155-60 ")
 ;;1266
 ;;21,"64764-0158-18 ")
 ;;1280
 ;;21,"64764-0158-60 ")
 ;;1281
 ;;21,"64764-0310-30 ")
 ;;1292
 ;;21,"64764-0335-60 ")
 ;;1006
 ;;21,"64764-0337-60 ")
 ;;1007
 ;;21,"64764-0510-30 ")
 ;;1291
 ;;21,"65084-0416-18 ")
 ;;575
 ;;21,"65084-0416-20 ")
 ;;576
 ;;21,"65162-0174-10 ")
 ;;465
 ;;21,"65162-0174-11 ")
 ;;466
 ;;21,"65162-0174-50 ")
 ;;467
 ;;21,"65162-0175-10 ")
 ;;123
 ;;21,"65162-0175-11 ")
 ;;124
 ;;21,"65162-0175-50 ")
 ;;125
 ;;21,"65162-0177-10 ")
 ;;611
 ;;21,"65162-0177-11 ")
 ;;612
 ;;21,"65162-0177-50 ")
 ;;613
 ;;21,"65162-0218-10 ")
 ;;126
 ;;21,"65162-0218-11 ")
 ;;127
 ;;21,"65162-0218-50 ")
 ;;128
 ;;21,"65162-0219-10 ")
 ;;462
 ;;21,"65162-0219-11 ")
 ;;463
 ;;21,"65162-0219-50 ")
 ;;464
 ;;21,"65162-0220-10 ")
 ;;614
 ;;21,"65162-0220-11 ")
 ;;615
 ;;21,"65162-0220-50 ")
 ;;616
 ;;21,"65243-0239-09 ")
 ;;471
 ;;21,"65243-0239-18 ")
 ;;472
 ;;21,"65243-0239-27 ")
 ;;473
 ;;21,"65243-0288-06 ")
 ;;114
 ;;21,"65243-0288-09 ")
 ;;115
 ;;21,"65243-0288-12 ")
 ;;116
 ;;21,"65243-0288-18 ")
 ;;117
 ;;21,"65243-0289-06 ")
 ;;638
 ;;21,"65243-0289-09 ")
 ;;639
 ;;21,"65243-0289-12 ")
 ;;640
 ;;21,"65243-0289-18 ")
 ;;641
 ;;21,"65243-0371-06 ")
 ;;631
 ;;21,"65243-0371-09 ")
 ;;632
 ;;21,"65243-0372-06 ")
 ;;111
 ;;21,"65243-0372-09 ")
 ;;112
 ;;21,"65243-0372-18 ")
 ;;113
 ;;21,"65243-0373-09 ")
 ;;474
 ;;21,"65862-0008-01 ")
 ;;118
 ;;21,"65862-0008-05 ")
 ;;119
 ;;21,"65862-0008-90 ")
 ;;120
 ;;21,"65862-0008-99 ")
 ;;121
 ;;21,"65862-0009-01 ")
 ;;468
 ;;21,"65862-0009-05 ")
 ;;469
 ;;21,"65862-0009-90 ")
 ;;470
 ;;21,"65862-0010-01 ")
 ;;633
 ;;21,"65862-0010-05 ")
 ;;634
 ;;21,"65862-0010-46 ")
 ;;635
 ;;21,"65862-0010-90 ")
 ;;636
 ;;21,"65862-0010-99 ")
 ;;637
 ;;21,"65862-0080-01 ")
 ;;1108
 ;;21,"65862-0080-05 ")
 ;;1109
 ;;21,"65862-0081-01 ")
 ;;1151
 ;;21,"65862-0081-05 ")
 ;;1152
 ;;21,"65862-0082-01 ")
 ;;1219
 ;;21,"65862-0082-05 ")
 ;;1220
 ;;21,"65862-0291-01 ")
 ;;853
 ;;21,"65862-0291-05 ")
 ;;854
 ;;21,"65862-0292-01 ")
 ;;969
 ;;21,"65862-0525-18 ")
 ;;1267
 ;;21,"65862-0525-60 ")
 ;;1268
 ;;21,"65862-0526-18 ")
 ;;1282
 ;;21,"65862-0526-60 ")
 ;;1283
 ;;21,"66116-0233-30 ")
 ;;1123
 ;;21,"66116-0282-60 ")
 ;;103
 ;;21,"66116-0293-30 ")
 ;;626
 ;;21,"66116-0454-30 ")
 ;;101
 ;;21,"66116-0695-60 ")
 ;;102
 ;;21,"66267-0493-14 ")
 ;;104
 ;;21,"66267-0493-30 ")
 ;;105
 ;;21,"66267-0493-60 ")
 ;;106
 ;;21,"66267-0493-90 ")
 ;;107
 ;;21,"66267-0493-91 ")
 ;;108
 ;;21,"66267-0493-92 ")
 ;;109
 ;;21,"66267-0493-93 ")
 ;;110
 ;;21,"66267-0497-30 ")
 ;;475
 ;;21,"66267-0553-30 ")
 ;;625
 ;;21,"66336-0270-30 ")
 ;;849
 ;;21,"66336-0270-60 ")
 ;;850
 ;;21,"66336-0270-90 ")
 ;;851
 ;;21,"66336-0270-94 ")
 ;;852
 ;;21,"66336-0292-60 ")
 ;;827
 ;;21,"66336-0319-30 ")
 ;;1177
 ;;21,"66336-0358-30 ")
 ;;627
 ;;21,"66336-0358-60 ")
 ;;628
 ;;21,"66336-0358-62 ")
 ;;629
 ;;21,"66336-0358-90 ")
 ;;630
 ;;21,"66336-0500-30 ")
 ;;970
 ;;21,"66336-0500-90 ")
 ;;971
 ;;21,"66336-0784-30 ")
 ;;1216
 ;;21,"66336-0784-60 ")
 ;;1217
 ;;21,"66336-0784-90 ")
 ;;1218
 ;;21,"66336-0850-30 ")
 ;;1153
 ;;21,"66336-0850-60 ")
 ;;1154
 ;;21,"66336-0850-90 ")
 ;;1155
 ;;21,"66336-0883-30 ")
 ;;488
 ;;21,"66336-0883-60 ")
 ;;489
 ;;21,"66336-0883-90 ")
 ;;490
 ;;21,"66336-0884-14 ")
 ;;193