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

BGP51S4.m

Go to the documentation of this file.
BGP51S4 ;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,"66336-0884-28 ")
 ;;194
 ;;21,"66336-0884-30 ")
 ;;195
 ;;21,"66336-0884-60 ")
 ;;196
 ;;21,"66336-0884-62 ")
 ;;197
 ;;21,"66336-0884-90 ")
 ;;198
 ;;21,"67544-0047-30 ")
 ;;183
 ;;21,"67544-0047-53 ")
 ;;184
 ;;21,"67544-0047-60 ")
 ;;185
 ;;21,"67544-0047-70 ")
 ;;186
 ;;21,"67544-0047-75 ")
 ;;187
 ;;21,"67544-0047-80 ")
 ;;188
 ;;21,"67544-0047-90 ")
 ;;189
 ;;21,"67544-0047-92 ")
 ;;190
 ;;21,"67544-0047-94 ")
 ;;191
 ;;21,"67544-0047-96 ")
 ;;192
 ;;21,"67544-0107-53 ")
 ;;491
 ;;21,"67544-0107-60 ")
 ;;492
 ;;21,"67544-0107-80 ")
 ;;493
 ;;21,"67544-0107-92 ")
 ;;494
 ;;21,"67544-0163-30 ")
 ;;642
 ;;21,"67544-0163-45 ")
 ;;643
 ;;21,"67544-0163-53 ")
 ;;644
 ;;21,"67544-0163-60 ")
 ;;645
 ;;21,"67544-0163-80 ")
 ;;646
 ;;21,"67544-0296-70 ")
 ;;1176
 ;;21,"67544-0364-70 ")
 ;;1233
 ;;21,"67544-0417-70 ")
 ;;1234
 ;;21,"67544-0421-60 ")
 ;;485
 ;;21,"67544-0421-80 ")
 ;;486
 ;;21,"67544-0421-92 ")
 ;;487
 ;;21,"67544-0422-30 ")
 ;;859
 ;;21,"67544-0422-53 ")
 ;;860
 ;;21,"67544-0422-60 ")
 ;;861
 ;;21,"67544-0422-70 ")
 ;;862
 ;;21,"67544-0422-75 ")
 ;;863
 ;;21,"67544-0422-80 ")
 ;;864
 ;;21,"67544-0422-90 ")
 ;;865
 ;;21,"67544-0422-92 ")
 ;;866
 ;;21,"67544-0422-94 ")
 ;;867
 ;;21,"67544-0422-96 ")
 ;;868
 ;;21,"67544-0424-30 ")
 ;;199
 ;;21,"67544-0424-53 ")
 ;;200
 ;;21,"67544-0424-60 ")
 ;;201
 ;;21,"67544-0424-70 ")
 ;;202
 ;;21,"67544-0424-75 ")
 ;;203
 ;;21,"67544-0424-80 ")
 ;;204
 ;;21,"67544-0424-90 ")
 ;;205
 ;;21,"67544-0424-92 ")
 ;;206
 ;;21,"67544-0424-94 ")
 ;;207
 ;;21,"67544-0424-96 ")
 ;;208
 ;;21,"67544-0428-45 ")
 ;;647
 ;;21,"67544-0428-53 ")
 ;;648
 ;;21,"67544-0428-60 ")
 ;;649
 ;;21,"67544-0428-73 ")
 ;;650
 ;;21,"67544-0428-80 ")
 ;;651
 ;;21,"67544-0486-53 ")
 ;;213
 ;;21,"67544-0511-70 ")
 ;;1230
 ;;21,"67544-0511-94 ")
 ;;1231
 ;;21,"67544-0596-53 ")
 ;;209
 ;;21,"67544-0596-60 ")
 ;;210
 ;;21,"67544-0596-80 ")
 ;;211
 ;;21,"67544-0596-96 ")
 ;;212
 ;;21,"67544-1081-80 ")
 ;;872
 ;;21,"67544-1081-94 ")
 ;;873
 ;;21,"67544-1129-70 ")
 ;;1232
 ;;21,"67544-1198-53 ")
 ;;652
 ;;21,"67544-1198-60 ")
 ;;653
 ;;21,"67544-1198-80 ")
 ;;654
 ;;21,"67544-1216-53 ")
 ;;481
 ;;21,"67544-1216-60 ")
 ;;482
 ;;21,"67544-1216-80 ")
 ;;483
 ;;21,"67544-1216-92 ")
 ;;484
 ;;21,"67544-1379-80 ")
 ;;214
 ;;21,"67544-1383-60 ")
 ;;479
 ;;21,"67544-1383-80 ")
 ;;480
 ;;21,"67877-0159-01 ")
 ;;869
 ;;21,"67877-0159-05 ")
 ;;870
 ;;21,"67877-0159-10 ")
 ;;871
 ;;21,"67877-0217-01 ")
 ;;215
 ;;21,"67877-0217-05 ")
 ;;216
 ;;21,"67877-0217-10 ")
 ;;217
 ;;21,"67877-0218-01 ")
 ;;476
 ;;21,"67877-0218-05 ")
 ;;477
 ;;21,"67877-0218-10 ")
 ;;478
 ;;21,"67877-0221-01 ")
 ;;815
 ;;21,"67877-0221-05 ")
 ;;816
 ;;21,"67877-0221-10 ")
 ;;817
 ;;21,"68012-0002-13 ")
 ;;1000
 ;;21,"68012-0003-16 ")
 ;;1005
 ;;21,"68071-0028-30 ")
 ;;1237
 ;;21,"68071-0028-60 ")
 ;;1238
 ;;21,"68084-0072-01 ")
 ;;954
 ;;21,"68084-0072-11 ")
 ;;955
 ;;21,"68084-0136-01 ")
 ;;1120
 ;;21,"68084-0136-11 ")
 ;;1121
 ;;21,"68084-0137-01 ")
 ;;1174
 ;;21,"68084-0137-11 ")
 ;;1175
 ;;21,"68084-0138-01 ")
 ;;1235
 ;;21,"68084-0138-11 ")
 ;;1236
 ;;21,"68084-0745-25 ")
 ;;1239
 ;;21,"68084-0745-95 ")
 ;;1240
 ;;21,"68180-0336-07 ")
 ;;993
 ;;21,"68180-0337-07 ")
 ;;999
 ;;21,"68382-0027-05 ")
 ;;956
 ;;21,"68382-0028-01 ")
 ;;349
 ;;21,"68382-0028-05 ")
 ;;350
 ;;21,"68382-0028-10 ")
 ;;351
 ;;21,"68382-0029-01 ")
 ;;500
 ;;21,"68382-0029-05 ")
 ;;501
 ;;21,"68382-0029-10 ")
 ;;502
 ;;21,"68382-0030-01 ")
 ;;812
 ;;21,"68382-0030-05 ")
 ;;813
 ;;21,"68382-0030-10 ")
 ;;814
 ;;21,"68382-0039-05 ")
 ;;989
 ;;21,"68462-0159-01 ")
 ;;353
 ;;21,"68462-0159-05 ")
 ;;354
 ;;21,"68462-0159-10 ")
 ;;355
 ;;21,"68462-0159-18 ")
 ;;356
 ;;21,"68462-0159-90 ")
 ;;357
 ;;21,"68462-0160-01 ")
 ;;495
 ;;21,"68462-0160-05 ")
 ;;496
 ;;21,"68462-0160-10 ")
 ;;497
 ;;21,"68462-0160-18 ")
 ;;498
 ;;21,"68462-0160-90 ")
 ;;499
 ;;21,"68462-0161-01 ")
 ;;818
 ;;21,"68462-0161-05 ")
 ;;819
 ;;21,"68462-0161-10 ")
 ;;820
 ;;21,"68462-0161-18 ")
 ;;821
 ;;21,"68462-0161-90 ")
 ;;822
 ;;21,"68645-0290-59 ")
 ;;352
 ;;21,"68645-0300-59 ")
 ;;823
 ;;9002226,1198,.01)
 ;;BGP PQA BIGUANIDE NDC
 ;;9002226,1198,.02)
 ;;@
 ;;9002226,1198,.04)
 ;;n
 ;;9002226,1198,.06)
 ;;@
 ;;9002226,1198,.08)
 ;;@
 ;;9002226,1198,.09)
 ;;3140819
 ;;9002226,1198,.11)
 ;;@
 ;;9002226,1198,.12)
 ;;@
 ;;9002226,1198,.13)
 ;;1
 ;;9002226,1198,.14)
 ;;@
 ;;9002226,1198,.15)
 ;;50.67
 ;;9002226,1198,.16)
 ;;@
 ;;9002226,1198,.17)
 ;;@
 ;;9002226,1198,3101)
 ;;@
 ;;9002226.02101,"1198,00003-4221-11 ",.01)
 ;;00003-4221-11
 ;;9002226.02101,"1198,00003-4221-11 ",.02)
 ;;00003-4221-11
 ;;9002226.02101,"1198,00003-4222-16 ",.01)
 ;;00003-4222-16
 ;;9002226.02101,"1198,00003-4222-16 ",.02)
 ;;00003-4222-16
 ;;9002226.02101,"1198,00003-4223-11 ",.01)
 ;;00003-4223-11
 ;;9002226.02101,"1198,00003-4223-11 ",.02)
 ;;00003-4223-11
 ;;9002226.02101,"1198,00006-0078-61 ",.01)
 ;;00006-0078-61
 ;;9002226.02101,"1198,00006-0078-61 ",.02)
 ;;00006-0078-61
 ;;9002226.02101,"1198,00006-0078-62 ",.01)
 ;;00006-0078-62
 ;;9002226.02101,"1198,00006-0078-62 ",.02)
 ;;00006-0078-62
 ;;9002226.02101,"1198,00006-0078-82 ",.01)
 ;;00006-0078-82
 ;;9002226.02101,"1198,00006-0078-82 ",.02)
 ;;00006-0078-82
 ;;9002226.02101,"1198,00006-0080-61 ",.01)
 ;;00006-0080-61
 ;;9002226.02101,"1198,00006-0080-61 ",.02)
 ;;00006-0080-61
 ;;9002226.02101,"1198,00006-0080-62 ",.01)
 ;;00006-0080-62
 ;;9002226.02101,"1198,00006-0080-62 ",.02)
 ;;00006-0080-62
 ;;9002226.02101,"1198,00006-0080-82 ",.01)
 ;;00006-0080-82
 ;;9002226.02101,"1198,00006-0080-82 ",.02)
 ;;00006-0080-82
 ;;9002226.02101,"1198,00006-0081-31 ",.01)
 ;;00006-0081-31
 ;;9002226.02101,"1198,00006-0081-31 ",.02)
 ;;00006-0081-31
 ;;9002226.02101,"1198,00006-0081-54 ",.01)
 ;;00006-0081-54
 ;;9002226.02101,"1198,00006-0081-54 ",.02)
 ;;00006-0081-54
 ;;9002226.02101,"1198,00006-0081-82 ",.01)
 ;;00006-0081-82
 ;;9002226.02101,"1198,00006-0081-82 ",.02)
 ;;00006-0081-82
 ;;9002226.02101,"1198,00006-0575-52 ",.01)
 ;;00006-0575-52
 ;;9002226.02101,"1198,00006-0575-52 ",.02)
 ;;00006-0575-52
 ;;9002226.02101,"1198,00006-0575-61 ",.01)
 ;;00006-0575-61
 ;;9002226.02101,"1198,00006-0575-61 ",.02)
 ;;00006-0575-61
 ;;9002226.02101,"1198,00006-0575-62 ",.01)
 ;;00006-0575-62
 ;;9002226.02101,"1198,00006-0575-62 ",.02)
 ;;00006-0575-62
 ;;9002226.02101,"1198,00006-0575-82 ",.01)
 ;;00006-0575-82
 ;;9002226.02101,"1198,00006-0575-82 ",.02)
 ;;00006-0575-82
 ;;9002226.02101,"1198,00006-0577-52 ",.01)
 ;;00006-0577-52
 ;;9002226.02101,"1198,00006-0577-52 ",.02)
 ;;00006-0577-52
 ;;9002226.02101,"1198,00006-0577-61 ",.01)
 ;;00006-0577-61
 ;;9002226.02101,"1198,00006-0577-61 ",.02)
 ;;00006-0577-61
 ;;9002226.02101,"1198,00006-0577-62 ",.01)
 ;;00006-0577-62
 ;;9002226.02101,"1198,00006-0577-62 ",.02)
 ;;00006-0577-62
 ;;9002226.02101,"1198,00006-0577-82 ",.01)
 ;;00006-0577-82
 ;;9002226.02101,"1198,00006-0577-82 ",.02)
 ;;00006-0577-82
 ;;9002226.02101,"1198,00087-6060-05 ",.01)
 ;;00087-6060-05
 ;;9002226.02101,"1198,00087-6060-05 ",.02)
 ;;00087-6060-05
 ;;9002226.02101,"1198,00087-6060-10 ",.01)
 ;;00087-6060-10
 ;;9002226.02101,"1198,00087-6060-10 ",.02)
 ;;00087-6060-10
 ;;9002226.02101,"1198,00087-6063-13 ",.01)
 ;;00087-6063-13
 ;;9002226.02101,"1198,00087-6063-13 ",.02)
 ;;00087-6063-13
 ;;9002226.02101,"1198,00087-6064-13 ",.01)
 ;;00087-6064-13
 ;;9002226.02101,"1198,00087-6064-13 ",.02)
 ;;00087-6064-13
 ;;9002226.02101,"1198,00087-6070-05 ",.01)
 ;;00087-6070-05
 ;;9002226.02101,"1198,00087-6070-05 ",.02)
 ;;00087-6070-05
 ;;9002226.02101,"1198,00087-6071-11 ",.01)
 ;;00087-6071-11
 ;;9002226.02101,"1198,00087-6071-11 ",.02)
 ;;00087-6071-11
 ;;9002226.02101,"1198,00087-6072-11 ",.01)
 ;;00087-6072-11
 ;;9002226.02101,"1198,00087-6072-11 ",.02)
 ;;00087-6072-11
 ;;9002226.02101,"1198,00087-6073-11 ",.01)
 ;;00087-6073-11
 ;;9002226.02101,"1198,00087-6073-11 ",.02)
 ;;00087-6073-11
 ;;9002226.02101,"1198,00087-6074-11 ",.01)
 ;;00087-6074-11
 ;;9002226.02101,"1198,00087-6074-11 ",.02)
 ;;00087-6074-11
 ;;9002226.02101,"1198,00087-6077-31 ",.01)
 ;;00087-6077-31
 ;;9002226.02101,"1198,00087-6077-31 ",.02)
 ;;00087-6077-31
 ;;9002226.02101,"1198,00087-6078-31 ",.01)
 ;;00087-6078-31
 ;;9002226.02101,"1198,00087-6078-31 ",.02)
 ;;00087-6078-31
 ;;9002226.02101,"1198,00093-1048-01 ",.01)
 ;;00093-1048-01
 ;;9002226.02101,"1198,00093-1048-01 ",.02)
 ;;00093-1048-01
 ;;9002226.02101,"1198,00093-1048-10 ",.01)
 ;;00093-1048-10
 ;;9002226.02101,"1198,00093-1048-10 ",.02)
 ;;00093-1048-10
 ;;9002226.02101,"1198,00093-1048-19 ",.01)
 ;;00093-1048-19
 ;;9002226.02101,"1198,00093-1048-19 ",.02)
 ;;00093-1048-19
 ;;9002226.02101,"1198,00093-1048-93 ",.01)
 ;;00093-1048-93
 ;;9002226.02101,"1198,00093-1048-93 ",.02)
 ;;00093-1048-93
 ;;9002226.02101,"1198,00093-1048-98 ",.01)
 ;;00093-1048-98
 ;;9002226.02101,"1198,00093-1048-98 ",.02)
 ;;00093-1048-98
 ;;9002226.02101,"1198,00093-1049-01 ",.01)
 ;;00093-1049-01
 ;;9002226.02101,"1198,00093-1049-01 ",.02)
 ;;00093-1049-01
 ;;9002226.02101,"1198,00093-1049-10 ",.01)
 ;;00093-1049-10
 ;;9002226.02101,"1198,00093-1049-10 ",.02)
 ;;00093-1049-10
 ;;9002226.02101,"1198,00093-1049-19 ",.01)
 ;;00093-1049-19
 ;;9002226.02101,"1198,00093-1049-19 ",.02)
 ;;00093-1049-19
 ;;9002226.02101,"1198,00093-1049-93 ",.01)
 ;;00093-1049-93
 ;;9002226.02101,"1198,00093-1049-93 ",.02)
 ;;00093-1049-93
 ;;9002226.02101,"1198,00093-1049-98 ",.01)
 ;;00093-1049-98
 ;;9002226.02101,"1198,00093-1049-98 ",.02)
 ;;00093-1049-98
 ;;9002226.02101,"1198,00093-5049-06 ",.01)
 ;;00093-5049-06
 ;;9002226.02101,"1198,00093-5049-06 ",.02)
 ;;00093-5049-06
 ;;9002226.02101,"1198,00093-5049-86 ",.01)
 ;;00093-5049-86
 ;;9002226.02101,"1198,00093-5049-86 ",.02)
 ;;00093-5049-86
 ;;9002226.02101,"1198,00093-5050-06 ",.01)
 ;;00093-5050-06
 ;;9002226.02101,"1198,00093-5050-06 ",.02)
 ;;00093-5050-06
 ;;9002226.02101,"1198,00093-5050-86 ",.01)
 ;;00093-5050-86
 ;;9002226.02101,"1198,00093-5050-86 ",.02)
 ;;00093-5050-86
 ;;9002226.02101,"1198,00093-5710-01 ",.01)
 ;;00093-5710-01
 ;;9002226.02101,"1198,00093-5710-01 ",.02)
 ;;00093-5710-01
 ;;9002226.02101,"1198,00093-5710-05 ",.01)
 ;;00093-5710-05
 ;;9002226.02101,"1198,00093-5710-05 ",.02)
 ;;00093-5710-05
 ;;9002226.02101,"1198,00093-5710-19 ",.01)
 ;;00093-5710-19
 ;;9002226.02101,"1198,00093-5710-19 ",.02)
 ;;00093-5710-19
 ;;9002226.02101,"1198,00093-5710-83 ",.01)
 ;;00093-5710-83
 ;;9002226.02101,"1198,00093-5710-83 ",.02)
 ;;00093-5710-83
 ;;9002226.02101,"1198,00093-5710-93 ",.01)
 ;;00093-5710-93
 ;;9002226.02101,"1198,00093-5710-93 ",.02)
 ;;00093-5710-93
 ;;9002226.02101,"1198,00093-5711-01 ",.01)
 ;;00093-5711-01
 ;;9002226.02101,"1198,00093-5711-01 ",.02)
 ;;00093-5711-01
 ;;9002226.02101,"1198,00093-5711-05 ",.01)
 ;;00093-5711-05
 ;;9002226.02101,"1198,00093-5711-05 ",.02)
 ;;00093-5711-05
 ;;9002226.02101,"1198,00093-5711-19 ",.01)
 ;;00093-5711-19
 ;;9002226.02101,"1198,00093-5711-19 ",.02)
 ;;00093-5711-19
 ;;9002226.02101,"1198,00093-5711-93 ",.01)
 ;;00093-5711-93
 ;;9002226.02101,"1198,00093-5711-93 ",.02)
 ;;00093-5711-93
 ;;9002226.02101,"1198,00093-5712-01 ",.01)
 ;;00093-5712-01
 ;;9002226.02101,"1198,00093-5712-01 ",.02)
 ;;00093-5712-01
 ;;9002226.02101,"1198,00093-5712-05 ",.01)
 ;;00093-5712-05
 ;;9002226.02101,"1198,00093-5712-05 ",.02)
 ;;00093-5712-05
 ;;9002226.02101,"1198,00093-5712-19 ",.01)
 ;;00093-5712-19
 ;;9002226.02101,"1198,00093-5712-19 ",.02)
 ;;00093-5712-19
 ;;9002226.02101,"1198,00093-5712-93 ",.01)
 ;;00093-5712-93
 ;;9002226.02101,"1198,00093-5712-93 ",.02)
 ;;00093-5712-93
 ;;9002226.02101,"1198,00093-7212-01 ",.01)
 ;;00093-7212-01
 ;;9002226.02101,"1198,00093-7212-01 ",.02)
 ;;00093-7212-01
 ;;9002226.02101,"1198,00093-7214-01 ",.01)
 ;;00093-7214-01
 ;;9002226.02101,"1198,00093-7214-01 ",.02)
 ;;00093-7214-01
 ;;9002226.02101,"1198,00093-7214-10 ",.01)
 ;;00093-7214-10
 ;;9002226.02101,"1198,00093-7214-10 ",.02)
 ;;00093-7214-10
 ;;9002226.02101,"1198,00093-7214-98 ",.01)
 ;;00093-7214-98
 ;;9002226.02101,"1198,00093-7214-98 ",.02)
 ;;00093-7214-98
 ;;9002226.02101,"1198,00093-7261-05 ",.01)
 ;;00093-7261-05
 ;;9002226.02101,"1198,00093-7261-05 ",.02)
 ;;00093-7261-05
 ;;9002226.02101,"1198,00093-7262-05 ",.01)
 ;;00093-7262-05
 ;;9002226.02101,"1198,00093-7262-05 ",.02)
 ;;00093-7262-05
 ;;9002226.02101,"1198,00093-7267-01 ",.01)
 ;;00093-7267-01
 ;;9002226.02101,"1198,00093-7267-01 ",.02)
 ;;00093-7267-01
 ;;9002226.02101,"1198,00093-7267-10 ",.01)
 ;;00093-7267-10
 ;;9002226.02101,"1198,00093-7267-10 ",.02)
 ;;00093-7267-10
 ;;9002226.02101,"1198,00093-7455-01 ",.01)
 ;;00093-7455-01
 ;;9002226.02101,"1198,00093-7455-01 ",.02)
 ;;00093-7455-01
 ;;9002226.02101,"1198,00093-7456-01 ",.01)
 ;;00093-7456-01
 ;;9002226.02101,"1198,00093-7456-01 ",.02)
 ;;00093-7456-01
 ;;9002226.02101,"1198,00093-7457-01 ",.01)
 ;;00093-7457-01
 ;;9002226.02101,"1198,00093-7457-01 ",.02)
 ;;00093-7457-01
 ;;9002226.02101,"1198,00169-0092-01 ",.01)
 ;;00169-0092-01