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

BGP51T3.m

Go to the documentation of this file.
BGP51T3 ;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,"58016-0876-14 ")
 ;;263
 ;;21,"58016-0876-15 ")
 ;;264
 ;;21,"58016-0876-20 ")
 ;;265
 ;;21,"58016-0876-21 ")
 ;;266
 ;;21,"58016-0876-24 ")
 ;;267
 ;;21,"58016-0876-28 ")
 ;;268
 ;;21,"58016-0876-30 ")
 ;;269
 ;;21,"58016-0876-40 ")
 ;;270
 ;;21,"58016-0876-50 ")
 ;;271
 ;;21,"58016-0876-60 ")
 ;;272
 ;;21,"58118-0321-03 ")
 ;;82
 ;;21,"58118-0321-06 ")
 ;;83
 ;;21,"58118-0322-03 ")
 ;;145
 ;;21,"58118-0322-06 ")
 ;;146
 ;;21,"58118-0461-06 ")
 ;;456
 ;;21,"58118-0461-08 ")
 ;;457
 ;;21,"58118-0461-09 ")
 ;;458
 ;;21,"58118-1452-03 ")
 ;;273
 ;;21,"58118-1452-06 ")
 ;;274
 ;;21,"58118-1452-09 ")
 ;;275
 ;;21,"58118-2331-03 ")
 ;;1059
 ;;21,"58118-2331-09 ")
 ;;1060
 ;;21,"58118-2332-03 ")
 ;;1140
 ;;21,"58118-2332-09 ")
 ;;1141
 ;;21,"58118-8343-08 ")
 ;;682
 ;;21,"58118-8343-09 ")
 ;;683
 ;;21,"58864-0027-14 ")
 ;;276
 ;;21,"58864-0027-30 ")
 ;;277
 ;;21,"58864-0027-60 ")
 ;;278
 ;;21,"58864-0027-90 ")
 ;;279
 ;;21,"58864-0161-30 ")
 ;;454
 ;;21,"58864-0161-60 ")
 ;;455
 ;;21,"58864-0224-30 ")
 ;;785
 ;;21,"58864-0224-60 ")
 ;;786
 ;;21,"58864-0224-93 ")
 ;;787
 ;;21,"58864-0689-30 ")
 ;;602
 ;;21,"58864-0689-60 ")
 ;;603
 ;;21,"58864-0705-30 ")
 ;;542
 ;;21,"58864-0711-30 ")
 ;;1038
 ;;21,"58864-0858-30 ")
 ;;494
 ;;21,"58864-0952-30 ")
 ;;1061
 ;;21,"58864-0953-30 ")
 ;;1139
 ;;21,"58864-0956-30 ")
 ;;566
 ;;21,"58864-0957-30 ")
 ;;515
 ;;21,"59762-0540-01 ")
 ;;492
 ;;21,"59762-0541-01 ")
 ;;531
 ;;21,"59762-0541-02 ")
 ;;532
 ;;21,"59762-0542-01 ")
 ;;588
 ;;21,"59762-0542-02 ")
 ;;589
 ;;21,"59762-2330-07 ")
 ;;1020
 ;;21,"59762-2331-06 ")
 ;;1057
 ;;21,"59762-2331-08 ")
 ;;1058
 ;;21,"59762-2332-06 ")
 ;;1142
 ;;21,"59762-2332-08 ")
 ;;1143
 ;;21,"59762-3725-01 ")
 ;;614
 ;;21,"59762-3726-03 ")
 ;;679
 ;;21,"59762-3727-04 ")
 ;;782
 ;;21,"59762-3727-06 ")
 ;;783
 ;;21,"59762-3727-07 ")
 ;;784
 ;;21,"59762-5031-01 ")
 ;;493
 ;;21,"59762-5032-01 ")
 ;;529
 ;;21,"59762-5032-02 ")
 ;;530
 ;;21,"59762-5033-01 ")
 ;;590
 ;;21,"59762-5033-02 ")
 ;;591
 ;;21,"59762-7020-09 ")
 ;;613
 ;;21,"59762-7021-05 ")
 ;;680
 ;;21,"59762-7021-09 ")
 ;;681
 ;;21,"59762-7022-05 ")
 ;;780
 ;;21,"59762-7022-09 ")
 ;;781
 ;;21,"60429-0082-01 ")
 ;;280
 ;;21,"60429-0082-10 ")
 ;;281
 ;;21,"60429-0083-01 ")
 ;;452
 ;;21,"60429-0083-10 ")
 ;;453
 ;;21,"60429-0085-12 ")
 ;;712
 ;;21,"60429-0085-18 ")
 ;;713
 ;;21,"60429-0085-27 ")
 ;;714
 ;;21,"60429-0085-30 ")
 ;;715
 ;;21,"60429-0085-36 ")
 ;;716
 ;;21,"60429-0085-60 ")
 ;;717
 ;;21,"60429-0085-90 ")
 ;;718
 ;;21,"60429-0283-01 ")
 ;;902
 ;;21,"60429-0284-01 ")
 ;;913
 ;;21,"60429-0285-01 ")
 ;;935
 ;;21,"60429-0291-01 ")
 ;;33
 ;;21,"60429-0293-01 ")
 ;;156
 ;;21,"60505-0141-00 ")
 ;;254
 ;;21,"60505-0141-01 ")
 ;;255
 ;;21,"60505-0141-02 ")
 ;;256
 ;;21,"60505-0141-08 ")
 ;;257
 ;;21,"60505-0142-00 ")
 ;;459
 ;;21,"60505-0142-01 ")
 ;;460
 ;;21,"60505-0142-02 ")
 ;;461
 ;;21,"60505-0142-04 ")
 ;;462
 ;;21,"60760-0024-60 ")
 ;;445
 ;;21,"60760-0024-98 ")
 ;;446
 ;;21,"60760-0141-60 ")
 ;;258
 ;;21,"60760-0141-98 ")
 ;;259
 ;;21,"60760-0175-30 ")
 ;;978
 ;;21,"60760-0175-90 ")
 ;;979
 ;;21,"60760-0176-30 ")
 ;;994
 ;;21,"60760-0176-90 ")
 ;;995
 ;;21,"60760-0229-30 ")
 ;;80
 ;;21,"60760-0229-90 ")
 ;;81
 ;;21,"60760-0230-30 ")
 ;;153
 ;;21,"60760-0230-90 ")
 ;;154
 ;;21,"61442-0115-01 ")
 ;;34
 ;;21,"61442-0116-01 ")
 ;;79
 ;;21,"61442-0117-01 ")
 ;;155
 ;;21,"63629-1255-01 ")
 ;;157
 ;;21,"63629-1255-02 ")
 ;;158
 ;;21,"63629-1392-01 ")
 ;;1062
 ;;21,"63629-1392-02 ")
 ;;1063
 ;;21,"63629-1392-03 ")
 ;;1064
 ;;21,"63629-1393-01 ")
 ;;819
 ;;21,"63629-1393-02 ")
 ;;820
 ;;21,"63629-1393-03 ")
 ;;821
 ;;21,"63629-1393-04 ")
 ;;822
 ;;21,"63629-1394-01 ")
 ;;428
 ;;21,"63629-1394-02 ")
 ;;429
 ;;21,"63629-1394-03 ")
 ;;430
 ;;21,"63629-1398-01 ")
 ;;293
 ;;21,"63629-1398-02 ")
 ;;294
 ;;21,"63629-1398-03 ")
 ;;295
 ;;21,"63629-2793-01 ")
 ;;1135
 ;;21,"63629-2793-03 ")
 ;;1136
 ;;21,"63629-2793-04 ")
 ;;1137
 ;;21,"63629-2793-05 ")
 ;;1138
 ;;21,"63629-2907-01 ")
 ;;656
 ;;21,"63629-2907-02 ")
 ;;657
 ;;21,"63629-3043-01 ")
 ;;87
 ;;21,"63629-3043-02 ")
 ;;88
 ;;21,"63629-3158-01 ")
 ;;563
 ;;21,"63629-3158-02 ")
 ;;564
 ;;21,"63629-3158-03 ")
 ;;565
 ;;21,"63629-3397-03 ")
 ;;901
 ;;21,"63629-3998-01 ")
 ;;1021
 ;;21,"63629-4071-01 ")
 ;;516
 ;;21,"63739-0119-10 ")
 ;;823
 ;;21,"63874-0316-01 ")
 ;;237
 ;;21,"63874-0316-02 ")
 ;;238
 ;;21,"63874-0316-04 ")
 ;;239
 ;;21,"63874-0316-05 ")
 ;;240
 ;;21,"63874-0316-10 ")
 ;;241
 ;;21,"63874-0316-12 ")
 ;;242
 ;;21,"63874-0316-14 ")
 ;;243
 ;;21,"63874-0316-15 ")
 ;;244
 ;;21,"63874-0316-20 ")
 ;;245
 ;;21,"63874-0316-21 ")
 ;;246
 ;;21,"63874-0316-24 ")
 ;;247
 ;;21,"63874-0316-28 ")
 ;;248
 ;;21,"63874-0316-30 ")
 ;;249
 ;;21,"63874-0316-50 ")
 ;;250
 ;;21,"63874-0316-60 ")
 ;;251
 ;;21,"63874-0316-81 ")
 ;;252
 ;;21,"63874-0316-90 ")
 ;;253
 ;;21,"63874-0317-01 ")
 ;;788
 ;;21,"63874-0317-02 ")
 ;;789
 ;;21,"63874-0317-04 ")
 ;;790
 ;;21,"63874-0317-10 ")
 ;;791
 ;;21,"63874-0317-12 ")
 ;;792
 ;;21,"63874-0317-14 ")
 ;;793
 ;;21,"63874-0317-15 ")
 ;;794
 ;;21,"63874-0317-20 ")
 ;;795
 ;;21,"63874-0317-24 ")
 ;;796
 ;;21,"63874-0317-28 ")
 ;;797
 ;;21,"63874-0317-30 ")
 ;;798
 ;;21,"63874-0317-40 ")
 ;;799
 ;;21,"63874-0317-50 ")
 ;;800
 ;;21,"63874-0317-60 ")
 ;;801
 ;;21,"63874-0317-90 ")
 ;;802
 ;;21,"63874-0357-01 ")
 ;;8
 ;;21,"63874-0357-02 ")
 ;;9
 ;;21,"63874-0357-10 ")
 ;;10
 ;;21,"63874-0357-12 ")
 ;;11
 ;;21,"63874-0357-14 ")
 ;;12
 ;;21,"63874-0357-15 ")
 ;;13
 ;;21,"63874-0357-20 ")
 ;;14
 ;;21,"63874-0357-21 ")
 ;;15
 ;;21,"63874-0357-24 ")
 ;;16
 ;;21,"63874-0357-30 ")
 ;;17
 ;;21,"63874-0357-40 ")
 ;;18
 ;;21,"63874-0357-60 ")
 ;;19
 ;;21,"63874-0432-01 ")
 ;;431
 ;;21,"63874-0432-02 ")
 ;;432
 ;;21,"63874-0432-04 ")
 ;;433
 ;;21,"63874-0432-10 ")
 ;;434
 ;;21,"63874-0432-14 ")
 ;;435
 ;;21,"63874-0432-20 ")
 ;;436
 ;;21,"63874-0432-21 ")
 ;;437
 ;;21,"63874-0432-24 ")
 ;;438
 ;;21,"63874-0432-28 ")
 ;;439
 ;;21,"63874-0432-30 ")
 ;;440
 ;;21,"63874-0432-50 ")
 ;;441
 ;;21,"63874-0432-60 ")
 ;;442
 ;;21,"63874-0432-81 ")
 ;;443
 ;;21,"63874-0432-90 ")
 ;;444
 ;;21,"63874-0588-01 ")
 ;;658
 ;;21,"63874-0588-04 ")
 ;;659
 ;;21,"63874-0588-10 ")
 ;;660
 ;;21,"63874-0588-14 ")
 ;;661
 ;;21,"63874-0588-20 ")
 ;;662
 ;;21,"63874-0588-30 ")
 ;;663
 ;;21,"63874-0588-60 ")
 ;;664
 ;;21,"63874-0588-80 ")
 ;;665
 ;;21,"63874-0588-90 ")
 ;;666
 ;;21,"63874-0665-01 ")
 ;;621
 ;;21,"63874-0665-04 ")
 ;;622
 ;;21,"63874-0665-10 ")
 ;;623
 ;;21,"63874-0665-14 ")
 ;;624
 ;;21,"63874-0665-30 ")
 ;;625
 ;;21,"63874-0665-60 ")
 ;;626
 ;;21,"63874-0665-90 ")
 ;;627
 ;;21,"64720-0123-10 ")
 ;;628
 ;;21,"64720-0124-10 ")
 ;;655
 ;;21,"64720-0125-10 ")
 ;;824
 ;;21,"64720-0125-11 ")
 ;;825
 ;;21,"64764-0302-30 ")
 ;;1176
 ;;21,"64764-0304-30 ")
 ;;1178
 ;;21,"65243-0176-09 ")
 ;;812
 ;;21,"65243-0176-12 ")
 ;;813
 ;;21,"65243-0176-18 ")
 ;;814
 ;;21,"65243-0176-27 ")
 ;;815
 ;;21,"65243-0176-36 ")
 ;;816
 ;;21,"65243-0183-18 ")
 ;;447
 ;;21,"65243-0185-36 ")
 ;;811
 ;;21,"65243-0325-09 ")
 ;;669
 ;;21,"65243-0325-18 ")
 ;;670
 ;;21,"65243-0343-09 ")
 ;;809
 ;;21,"65243-0343-36 ")
 ;;810
 ;;21,"65243-0346-09 ")
 ;;291
 ;;21,"65243-0375-09 ")
 ;;676
 ;;21,"65243-0378-09 ")
 ;;292
 ;;21,"65862-0028-01 ")
 ;;620
 ;;21,"65862-0029-01 ")
 ;;667
 ;;21,"65862-0029-05 ")
 ;;668
 ;;21,"65862-0030-01 ")
 ;;817
 ;;21,"65862-0030-99 ")
 ;;818
 ;;21,"65862-0080-01 ")
 ;;1022
 ;;21,"65862-0080-05 ")
 ;;1023
 ;;21,"65862-0081-01 ")
 ;;1065
 ;;21,"65862-0081-05 ")
 ;;1066
 ;;21,"65862-0082-01 ")
 ;;1133
 ;;21,"65862-0082-05 ")
 ;;1134
 ;;21,"66105-0984-03 ")
 ;;615
 ;;21,"66105-0984-06 ")
 ;;616
 ;;21,"66105-0984-10 ")
 ;;617
 ;;21,"66105-0984-11 ")
 ;;618
 ;;21,"66105-0984-50 ")
 ;;619
 ;;21,"66105-0985-03 ")
 ;;671
 ;;21,"66105-0985-06 ")
 ;;672
 ;;21,"66105-0985-10 ")
 ;;673
 ;;21,"66105-0985-11 ")
 ;;674
 ;;21,"66105-0985-50 ")
 ;;675
 ;;21,"66105-0986-03 ")
 ;;803
 ;;21,"66105-0986-06 ")
 ;;804
 ;;21,"66105-0986-10 ")
 ;;805
 ;;21,"66105-0986-11 ")
 ;;806
 ;;21,"66105-0986-50 ")
 ;;807
 ;;21,"66116-0233-30 ")
 ;;1037
 ;;21,"66267-0099-30 ")
 ;;475
 ;;21,"66267-0100-30 ")
 ;;286
 ;;21,"66267-0100-60 ")
 ;;287
 ;;21,"66267-0100-90 ")
 ;;288
 ;;21,"66267-0100-91 ")
 ;;289
 ;;21,"66267-0100-92 ")
 ;;290
 ;;21,"66267-0103-30 ")
 ;;808
 ;;21,"66336-0028-30 ")
 ;;677
 ;;21,"66336-0028-90 ")
 ;;678
 ;;21,"66336-0269-30 ")
 ;;586
 ;;21,"66336-0269-90 ")
 ;;587
 ;;21,"66336-0319-30 ")
 ;;1091
 ;;21,"66336-0534-30 ")
 ;;31
 ;;21,"66336-0534-90 ")
 ;;32
 ;;21,"66336-0535-30 ")
 ;;84
 ;;21,"66336-0535-60 ")
 ;;85
 ;;21,"66336-0535-90 ")
 ;;86
 ;;21,"66336-0573-30 ")
 ;;142
 ;;21,"66336-0573-60 ")
 ;;143
 ;;21,"66336-0573-90 ")
 ;;144
 ;;21,"66336-0662-30 ")
 ;;448
 ;;21,"66336-0662-60 ")
 ;;449
 ;;21,"66336-0662-90 ")
 ;;450
 ;;21,"66336-0662-94 ")
 ;;451
 ;;21,"66336-0712-90 ")
 ;;936
 ;;21,"66336-0730-14 ")
 ;;282
 ;;21,"66336-0730-30 ")
 ;;283
 ;;21,"66336-0730-60 ")
 ;;284
 ;;21,"66336-0730-90 ")
 ;;285
 ;;21,"66336-0784-30 ")
 ;;1130
 ;;21,"66336-0784-60 ")
 ;;1131
 ;;21,"66336-0784-90 ")
 ;;1132
 ;;21,"66336-0850-30 ")
 ;;1067
 ;;21,"66336-0850-60 ")
 ;;1068
 ;;21,"66336-0850-90 ")
 ;;1069
 ;;21,"66336-0938-30 ")
 ;;850
 ;;21,"66336-0938-60 ")
 ;;851
 ;;21,"66336-0938-90 ")
 ;;852
 ;;21,"66993-0162-02 ")
 ;;35
 ;;21,"66993-0163-02 ")
 ;;78
 ;;21,"66993-0164-02 ")
 ;;159
 ;;21,"67253-0460-10 ")
 ;;900
 ;;21,"67253-0461-10 ")
 ;;914
 ;;21,"67253-0461-11 ")
 ;;915
 ;;21,"67253-0461-50 ")
 ;;916
 ;;21,"67253-0462-10 ")
 ;;932
 ;;21,"67253-0462-11 ")
 ;;933
 ;;21,"67253-0462-50 ")
 ;;934
 ;;21,"67544-0097-53 ")
 ;;469
 ;;21,"67544-0097-60 ")
 ;;470
 ;;21,"67544-0097-70 ")
 ;;471
 ;;21,"67544-0097-80 ")
 ;;472
 ;;21,"67544-0097-92 ")
 ;;473
 ;;21,"67544-0097-94 ")
 ;;474
 ;;21,"67544-0129-53 ")
 ;;465
 ;;21,"67544-0129-70 ")
 ;;466
 ;;21,"67544-0129-80 ")
 ;;467
 ;;21,"67544-0129-94 ")
 ;;468
 ;;21,"67544-0199-80 ")
 ;;604
 ;;21,"67544-0296-70 ")
 ;;1090
 ;;21,"67544-0302-32 ")
 ;;228
 ;;21,"67544-0302-45 ")
 ;;229
 ;;21,"67544-0302-60 ")
 ;;230
 ;;21,"67544-0302-73 ")
 ;;231
 ;;21,"67544-0302-80 ")
 ;;232
 ;;21,"67544-0302-92 ")
 ;;233
 ;;21,"67544-0302-98 ")
 ;;234
 ;;21,"67544-0364-70 ")
 ;;1147
 ;;21,"67544-0417-70 ")
 ;;1148
 ;;21,"67544-0511-70 ")
 ;;1144
 ;;21,"67544-0511-94 ")
 ;;1145
 ;;21,"67544-0566-53 ")
 ;;826
 ;;21,"67544-0566-60 ")
 ;;827
 ;;21,"67544-0566-70 ")
 ;;828
 ;;21,"67544-0566-80 ")
 ;;829
 ;;21,"67544-0566-90 ")
 ;;830
 ;;21,"67544-0566-92 ")
 ;;831
 ;;21,"67544-0566-94 ")
 ;;832
 ;;21,"67544-0613-53 ")
 ;;833
 ;;21,"67544-0613-60 ")
 ;;834
 ;;21,"67544-0613-70 ")
 ;;835
 ;;21,"67544-0613-80 ")
 ;;836
 ;;21,"67544-0613-90 ")
 ;;837
 ;;21,"67544-0613-92 ")
 ;;838
 ;;21,"67544-0613-94 ")
 ;;839
 ;;21,"67544-0643-80 ")
 ;;840
 ;;21,"67544-0643-94 ")
 ;;841
 ;;21,"67544-0653-53 ")
 ;;842
 ;;21,"67544-0653-60 ")
 ;;843
 ;;21,"67544-0653-70 ")
 ;;844
 ;;21,"67544-0653-80 ")
 ;;845
 ;;21,"67544-0653-90 ")
 ;;846
 ;;21,"67544-0653-92 ")
 ;;847
 ;;21,"67544-0653-94 ")
 ;;848
 ;;21,"67544-0653-98 ")
 ;;849
 ;;21,"67544-0661-41 ")
 ;;611
 ;;21,"67544-0661-81 ")
 ;;612
 ;;21,"67544-0751-60 ")
 ;;463
 ;;21,"67544-0751-80 ")
 ;;464
 ;;21,"67544-0756-60 ")
 ;;235
 ;;21,"67544-0756-80 ")
 ;;236
 ;;21,"67544-0808-60 ")
 ;;567
 ;;21,"67544-0875-60 ")
 ;;684
 ;;21,"67544-0875-80 ")
 ;;685
 ;;21,"67544-0927-60 ")
 ;;686
 ;;21,"67544-1129-70 ")
 ;;1146
 ;;21,"68001-0177-00 ")
 ;;48
 ;;21,"68001-0178-00 ")
 ;;90
 ;;21,"68001-0179-00 ")
 ;;185
 ;;21,"68071-0008-30 ")
 ;;526
 ;;21,"68071-0028-30 ")
 ;;1151
 ;;21,"68071-0028-60 ")
 ;;1152
 ;;21,"68071-0388-30 ")
 ;;184
 ;;21,"68071-0823-30 ")
 ;;91
 ;;21,"68084-0111-01 ")
 ;;527
 ;;21,"68084-0111-11 ")
 ;;528
 ;;21,"68084-0112-01 ")
 ;;557
 ;;21,"68084-0112-11 ")
 ;;558
 ;;21,"68084-0136-01 ")
 ;;1034
 ;;21,"68084-0136-11 ")
 ;;1035
 ;;21,"68084-0137-01 ")
 ;;1088
 ;;21,"68084-0137-11 ")
 ;;1089
 ;;21,"68084-0138-01 ")
 ;;1149
 ;;21,"68084-0138-11 ")
 ;;1150
 ;;21,"68084-0295-11 ")
 ;;484
 ;;21,"68084-0295-21 ")
 ;;485
 ;;21,"68084-0326-01 ")
 ;;92
 ;;21,"68084-0326-11 ")
 ;;93
 ;;21,"68084-0327-01 ")
 ;;182
 ;;21,"68084-0327-11 ")
 ;;183
 ;;21,"68084-0556-11 ")
 ;;953
 ;;21,"68084-0556-21 ")
 ;;954
 ;;21,"68084-0745-25 ")
 ;;1153
 ;;21,"68084-0745-95 ")
 ;;1154
 ;;21,"68645-0150-54 ")
 ;;187
 ;;21,"68645-0151-59 ")
 ;;383
 ;;21,"68645-0210-54 ")
 ;;709