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

BGP48A4.m

Go to the documentation of this file.
BGP48A4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"60760-0975-60 ")
 ;;733
 ;;21,"60760-0975-90 ")
 ;;734
 ;;21,"62022-0574-60 ")
 ;;1139
 ;;21,"62022-0575-60 ")
 ;;1146
 ;;21,"62037-0571-01 ")
 ;;1026
 ;;21,"62037-0571-10 ")
 ;;1027
 ;;21,"62037-0577-01 ")
 ;;1126
 ;;21,"62037-0577-10 ")
 ;;1127
 ;;21,"62037-0674-01 ")
 ;;178
 ;;21,"62037-0674-10 ")
 ;;179
 ;;21,"62037-0675-01 ")
 ;;518
 ;;21,"62037-0675-10 ")
 ;;519
 ;;21,"62037-0676-01 ")
 ;;926
 ;;21,"62037-0676-10 ")
 ;;927
 ;;21,"62584-0182-08 ")
 ;;180
 ;;21,"62584-0259-01 ")
 ;;181
 ;;21,"62584-0259-11 ")
 ;;182
 ;;21,"62584-0259-80 ")
 ;;183
 ;;21,"62584-0259-85 ")
 ;;184
 ;;21,"62584-0332-01 ")
 ;;545
 ;;21,"62584-0332-11 ")
 ;;546
 ;;21,"62584-0452-01 ")
 ;;892
 ;;21,"62584-0452-11 ")
 ;;893
 ;;21,"62584-0452-80 ")
 ;;894
 ;;21,"62584-0452-85 ")
 ;;895
 ;;21,"62682-5005-06 ")
 ;;6
 ;;21,"62756-0142-01 ")
 ;;981
 ;;21,"62756-0142-02 ")
 ;;982
 ;;21,"62756-0143-01 ")
 ;;1110
 ;;21,"63304-0206-01 ")
 ;;938
 ;;21,"63304-0206-02 ")
 ;;939
 ;;21,"63304-0767-01 ")
 ;;1135
 ;;21,"63304-0860-01 ")
 ;;1088
 ;;21,"63304-0860-05 ")
 ;;1089
 ;;21,"63304-0860-30 ")
 ;;1090
 ;;21,"63629-1392-01 ")
 ;;1326
 ;;21,"63629-1392-02 ")
 ;;1327
 ;;21,"63629-1392-03 ")
 ;;1328
 ;;21,"63629-1395-01 ")
 ;;47
 ;;21,"63629-1395-02 ")
 ;;48
 ;;21,"63629-1395-03 ")
 ;;49
 ;;21,"63629-1396-01 ")
 ;;520
 ;;21,"63629-1396-02 ")
 ;;521
 ;;21,"63629-1397-01 ")
 ;;921
 ;;21,"63629-1397-02 ")
 ;;922
 ;;21,"63629-1397-03 ")
 ;;923
 ;;21,"63629-1397-04 ")
 ;;924
 ;;21,"63629-1397-05 ")
 ;;925
 ;;21,"63629-2793-01 ")
 ;;1384
 ;;21,"63629-2793-03 ")
 ;;1385
 ;;21,"63629-2793-04 ")
 ;;1386
 ;;21,"63629-2793-05 ")
 ;;1387
 ;;21,"63629-2883-01 ")
 ;;1066
 ;;21,"63629-2883-02 ")
 ;;1067
 ;;21,"63629-2883-03 ")
 ;;1068
 ;;21,"63629-3998-01 ")
 ;;1266
 ;;21,"63739-0299-10 ")
 ;;336
 ;;21,"63739-0300-10 ")
 ;;645
 ;;21,"63739-0301-10 ")
 ;;873
 ;;21,"63874-0501-01 ")
 ;;338
 ;;21,"63874-0501-04 ")
 ;;339
 ;;21,"63874-0501-10 ")
 ;;340
 ;;21,"63874-0501-14 ")
 ;;341
 ;;21,"63874-0501-20 ")
 ;;342
 ;;21,"63874-0501-24 ")
 ;;343
 ;;21,"63874-0501-28 ")
 ;;344
 ;;21,"63874-0501-30 ")
 ;;234
 ;;21,"63874-0501-60 ")
 ;;235
 ;;21,"63874-0501-90 ")
 ;;236
 ;;21,"63874-0635-01 ")
 ;;501
 ;;21,"63874-0635-10 ")
 ;;502
 ;;21,"63874-0635-20 ")
 ;;503
 ;;21,"63874-0635-28 ")
 ;;504
 ;;21,"63874-0635-30 ")
 ;;505
 ;;21,"63874-0635-60 ")
 ;;506
 ;;21,"63874-0635-90 ")
 ;;507
 ;;21,"63874-0974-01 ")
 ;;914
 ;;21,"63874-0974-30 ")
 ;;915
 ;;21,"63874-0974-60 ")
 ;;916
 ;;21,"64679-0528-04 ")
 ;;50
 ;;21,"64679-0528-05 ")
 ;;51
 ;;21,"64679-0529-04 ")
 ;;447
 ;;21,"64679-0529-05 ")
 ;;448
 ;;21,"64679-0530-04 ")
 ;;684
 ;;21,"64679-0530-05 ")
 ;;685
 ;;21,"64764-0155-18 ")
 ;;1462
 ;;21,"64764-0155-60 ")
 ;;1463
 ;;21,"64764-0158-18 ")
 ;;1475
 ;;21,"64764-0158-60 ")
 ;;1476
 ;;21,"64764-0310-30 ")
 ;;1487
 ;;21,"64764-0335-60 ")
 ;;1156
 ;;21,"64764-0337-60 ")
 ;;1157
 ;;21,"64764-0510-30 ")
 ;;1486
 ;;21,"65084-0416-18 ")
 ;;653
 ;;21,"65084-0416-20 ")
 ;;941
 ;;21,"65162-0174-10 ")
 ;;529
 ;;21,"65162-0174-11 ")
 ;;530
 ;;21,"65162-0174-50 ")
 ;;531
 ;;21,"65162-0175-10 ")
 ;;167
 ;;21,"65162-0175-11 ")
 ;;168
 ;;21,"65162-0175-50 ")
 ;;169
 ;;21,"65162-0177-10 ")
 ;;1025
 ;;21,"65162-0177-11 ")
 ;;928
 ;;21,"65162-0177-50 ")
 ;;1028
 ;;21,"65162-0179-10 ")
 ;;1123
 ;;21,"65162-0218-10 ")
 ;;170
 ;;21,"65162-0218-11 ")
 ;;171
 ;;21,"65162-0218-50 ")
 ;;172
 ;;21,"65162-0219-10 ")
 ;;526
 ;;21,"65162-0219-11 ")
 ;;527
 ;;21,"65162-0219-50 ")
 ;;528
 ;;21,"65162-0220-10 ")
 ;;912
 ;;21,"65162-0220-11 ")
 ;;913
 ;;21,"65162-0220-50 ")
 ;;874
 ;;21,"65243-0239-09 ")
 ;;452
 ;;21,"65243-0239-18 ")
 ;;453
 ;;21,"65243-0239-27 ")
 ;;454
 ;;21,"65243-0288-06 ")
 ;;80
 ;;21,"65243-0288-09 ")
 ;;81
 ;;21,"65243-0288-12 ")
 ;;82
 ;;21,"65243-0288-18 ")
 ;;83
 ;;21,"65243-0289-06 ")
 ;;665
 ;;21,"65243-0289-09 ")
 ;;666
 ;;21,"65243-0289-12 ")
 ;;667
 ;;21,"65243-0289-18 ")
 ;;668
 ;;21,"65243-0371-06 ")
 ;;755
 ;;21,"65243-0371-09 ")
 ;;756
 ;;21,"65243-0372-06 ")
 ;;141
 ;;21,"65243-0372-09 ")
 ;;142
 ;;21,"65243-0372-18 ")
 ;;143
 ;;21,"65243-0373-09 ")
 ;;478
 ;;21,"65862-0008-01 ")
 ;;237
 ;;21,"65862-0008-05 ")
 ;;238
 ;;21,"65862-0008-90 ")
 ;;239
 ;;21,"65862-0008-99 ")
 ;;240
 ;;21,"65862-0009-01 ")
 ;;552
 ;;21,"65862-0009-05 ")
 ;;553
 ;;21,"65862-0009-90 ")
 ;;554
 ;;21,"65862-0010-01 ")
 ;;775
 ;;21,"65862-0010-05 ")
 ;;776
 ;;21,"65862-0010-46 ")
 ;;777
 ;;21,"65862-0010-90 ")
 ;;778
 ;;21,"65862-0010-99 ")
 ;;779
 ;;21,"65862-0080-01 ")
 ;;1264
 ;;21,"65862-0080-05 ")
 ;;1265
 ;;21,"65862-0081-01 ")
 ;;1324
 ;;21,"65862-0081-05 ")
 ;;1325
 ;;21,"65862-0082-01 ")
 ;;1376
 ;;21,"65862-0082-05 ")
 ;;1377
 ;;21,"65862-0291-01 ")
 ;;978
 ;;21,"65862-0291-05 ")
 ;;979
 ;;21,"65862-0292-01 ")
 ;;1111
 ;;21,"65862-0525-18 ")
 ;;1464
 ;;21,"65862-0525-60 ")
 ;;1465
 ;;21,"65862-0526-18 ")
 ;;1478
 ;;21,"65862-0526-60 ")
 ;;1479
 ;;21,"66116-0233-30 ")
 ;;1294
 ;;21,"66116-0282-60 ")
 ;;187
 ;;21,"66116-0293-30 ")
 ;;896
 ;;21,"66116-0454-30 ")
 ;;185
 ;;21,"66116-0695-60 ")
 ;;186
 ;;21,"66267-0493-14 ")
 ;;337
 ;;21,"66267-0493-30 ")
 ;;228
 ;;21,"66267-0493-60 ")
 ;;229
 ;;21,"66267-0493-90 ")
 ;;230
 ;;21,"66267-0493-91 ")
 ;;231
 ;;21,"66267-0493-92 ")
 ;;232
 ;;21,"66267-0493-93 ")
 ;;233
 ;;21,"66267-0497-30 ")
 ;;555
 ;;21,"66267-0553-30 ")
 ;;774
 ;;21,"66336-0270-30 ")
 ;;1047
 ;;21,"66336-0270-60 ")
 ;;1048
 ;;21,"66336-0270-90 ")
 ;;1049
 ;;21,"66336-0270-94 ")
 ;;1050
 ;;21,"66336-0292-60 ")
 ;;954
 ;;21,"66336-0319-30 ")
 ;;1364
 ;;21,"66336-0358-30 ")
 ;;762
 ;;21,"66336-0358-60 ")
 ;;763
 ;;21,"66336-0358-62 ")
 ;;764
 ;;21,"66336-0358-90 ")
 ;;765
 ;;21,"66336-0500-30 ")
 ;;1124
 ;;21,"66336-0500-90 ")
 ;;1125
 ;;21,"66336-0784-30 ")
 ;;1421
 ;;21,"66336-0784-60 ")
 ;;1407
 ;;21,"66336-0784-90 ")
 ;;1408
 ;;21,"66336-0850-30 ")
 ;;1321
 ;;21,"66336-0850-60 ")
 ;;1310
 ;;21,"66336-0850-90 ")
 ;;1311
 ;;21,"66336-0883-30 ")
 ;;633
 ;;21,"66336-0883-60 ")
 ;;634
 ;;21,"66336-0883-90 ")
 ;;635
 ;;21,"66336-0884-14 ")
 ;;330
 ;;21,"66336-0884-28 ")
 ;;331
 ;;21,"66336-0884-30 ")
 ;;332
 ;;21,"66336-0884-60 ")
 ;;333
 ;;21,"66336-0884-62 ")
 ;;334
 ;;21,"66336-0884-90 ")
 ;;335
 ;;21,"66689-0011-60 ")
 ;;227
 ;;21,"67544-0047-30 ")
 ;;144
 ;;21,"67544-0047-53 ")
 ;;145
 ;;21,"67544-0047-60 ")
 ;;146
 ;;21,"67544-0047-70 ")
 ;;147
 ;;21,"67544-0047-75 ")
 ;;148
 ;;21,"67544-0047-80 ")
 ;;149
 ;;21,"67544-0047-90 ")
 ;;150
 ;;21,"67544-0047-92 ")
 ;;151
 ;;21,"67544-0047-94 ")
 ;;152
 ;;21,"67544-0047-96 ")
 ;;153
 ;;21,"67544-0107-53 ")
 ;;455
 ;;21,"67544-0107-60 ")
 ;;456
 ;;21,"67544-0107-80 ")
 ;;457
 ;;21,"67544-0107-92 ")
 ;;458
 ;;21,"67544-0163-30 ")
 ;;907
 ;;21,"67544-0163-45 ")
 ;;908
 ;;21,"67544-0163-53 ")
 ;;909
 ;;21,"67544-0163-60 ")
 ;;910
 ;;21,"67544-0163-80 ")
 ;;911
 ;;21,"67544-0296-70 ")
 ;;1361
 ;;21,"67544-0364-70 ")
 ;;1453
 ;;21,"67544-0417-70 ")
 ;;1454
 ;;21,"67544-0421-60 ")
 ;;475
 ;;21,"67544-0421-80 ")
 ;;476
 ;;21,"67544-0421-92 ")
 ;;477
 ;;21,"67544-0422-30 ")
 ;;1051
 ;;21,"67544-0422-53 ")
 ;;1052
 ;;21,"67544-0422-60 ")
 ;;1053
 ;;21,"67544-0422-70 ")
 ;;1054
 ;;21,"67544-0422-75 ")
 ;;1055
 ;;21,"67544-0422-80 ")
 ;;1056
 ;;21,"67544-0422-90 ")
 ;;1057
 ;;21,"67544-0422-92 ")
 ;;1058
 ;;21,"67544-0422-94 ")
 ;;1059
 ;;21,"67544-0422-96 ")
 ;;1060
 ;;21,"67544-0424-30 ")
 ;;155
 ;;21,"67544-0424-53 ")
 ;;156
 ;;21,"67544-0424-60 ")
 ;;157
 ;;21,"67544-0424-70 ")
 ;;158
 ;;21,"67544-0424-75 ")
 ;;159
 ;;21,"67544-0424-80 ")
 ;;160
 ;;21,"67544-0424-90 ")
 ;;161
 ;;21,"67544-0424-92 ")
 ;;162
 ;;21,"67544-0424-94 ")
 ;;163
 ;;21,"67544-0424-96 ")
 ;;164
 ;;21,"67544-0428-45 ")
 ;;757
 ;;21,"67544-0428-53 ")
 ;;758
 ;;21,"67544-0428-60 ")
 ;;759
 ;;21,"67544-0428-73 ")
 ;;760
 ;;21,"67544-0428-80 ")
 ;;761
 ;;21,"67544-0486-53 ")
 ;;154
 ;;21,"67544-0511-70 ")
 ;;1457
 ;;21,"67544-0511-94 ")
 ;;1378
 ;;21,"67544-0596-53 ")
 ;;43
 ;;21,"67544-0596-60 ")
 ;;44
 ;;21,"67544-0596-80 ")
 ;;45
 ;;21,"67544-0596-96 ")
 ;;46
 ;;21,"67544-1081-80 ")
 ;;1029
 ;;21,"67544-1081-94 ")
 ;;1030
 ;;21,"67544-1129-70 ")
 ;;1422
 ;;21,"67544-1198-53 ")
 ;;906
 ;;21,"67544-1198-60 ")
 ;;878
 ;;21,"67544-1198-80 ")
 ;;879
 ;;21,"67544-1216-53 ")
 ;;636
 ;;21,"67544-1216-60 ")
 ;;637
 ;;21,"67544-1216-80 ")
 ;;638
 ;;21,"67544-1216-92 ")
 ;;639
 ;;21,"67544-1379-80 ")
 ;;345
 ;;21,"67544-1383-60 ")
 ;;643
 ;;21,"67544-1383-80 ")
 ;;644
 ;;21,"67767-0115-01 ")
 ;;974
 ;;21,"67877-0159-01 ")
 ;;975
 ;;21,"67877-0159-05 ")
 ;;976
 ;;21,"67877-0159-10 ")
 ;;977
 ;;21,"67877-0217-01 ")
 ;;348
 ;;21,"67877-0217-05 ")
 ;;349
 ;;21,"67877-0217-10 ")
 ;;350
 ;;21,"67877-0218-01 ")
 ;;630
 ;;21,"67877-0218-05 ")
 ;;631
 ;;21,"67877-0218-10 ")
 ;;632
 ;;21,"67877-0221-01 ")
 ;;880
 ;;21,"67877-0221-05 ")
 ;;881
 ;;21,"67877-0221-10 ")
 ;;882
 ;;21,"68012-0002-13 ")
 ;;1151
 ;;21,"68012-0003-16 ")
 ;;1154
 ;;21,"68071-0028-30 ")
 ;;1382
 ;;21,"68071-0028-60 ")
 ;;1383
 ;;21,"68084-0072-01 ")
 ;;1086
 ;;21,"68084-0072-11 ")
 ;;1087
 ;;21,"68084-0136-01 ")
 ;;1267
 ;;21,"68084-0136-11 ")
 ;;1268
 ;;21,"68084-0137-01 ")
 ;;1334
 ;;21,"68084-0137-11 ")
 ;;1335
 ;;21,"68084-0138-01 ")
 ;;1455
 ;;21,"68084-0138-11 ")
 ;;1456
 ;;21,"68115-0158-30 ")
 ;;1295
 ;;21,"68115-0158-60 ")
 ;;1296
 ;;21,"68115-0159-30 ")
 ;;1362
 ;;21,"68115-0159-60 ")
 ;;1363
 ;;21,"68115-0230-30 ")
 ;;669
 ;;21,"68115-0230-60 ")
 ;;670
 ;;21,"68115-0231-00 ")
 ;;84
 ;;21,"68115-0231-30 ")
 ;;85
 ;;21,"68115-0231-60 ")
 ;;86
 ;;21,"68115-0231-90 ")
 ;;87
 ;;21,"68115-0232-30 ")
 ;;449
 ;;21,"68115-0232-45 ")
 ;;450
 ;;21,"68115-0232-60 ")
 ;;451
 ;;21,"68115-0891-60 ")
 ;;1491
 ;;21,"68180-0336-07 ")
 ;;1143
 ;;21,"68180-0337-07 ")
 ;;1150
 ;;21,"68258-1016-01 ")
 ;;115
 ;;21,"68258-1077-01 ")
 ;;740
 ;;21,"68382-0027-05 ")
 ;;1095
 ;;21,"68382-0028-01 ")
 ;;42
 ;;21,"68382-0028-05 ")
 ;;346
 ;;21,"68382-0028-10 ")
 ;;347
 ;;21,"68382-0029-01 ")
 ;;640
 ;;21,"68382-0029-05 ")
 ;;641
 ;;21,"68382-0029-10 ")
 ;;642
 ;;21,"68382-0030-01 ")
 ;;875
 ;;21,"68382-0030-05 ")
 ;;876
 ;;21,"68382-0030-10 ")
 ;;877
 ;;21,"68382-0039-05 ")
 ;;1112
 ;;21,"68462-0159-01 ")
 ;;116
 ;;21,"68462-0159-05 ")
 ;;117
 ;;21,"68462-0159-10 ")
 ;;118
 ;;21,"68462-0159-18 ")
 ;;119
 ;;21,"68462-0159-90 ")
 ;;120
 ;;21,"68462-0160-01 ")
 ;;494
 ;;21,"68462-0160-05 ")
 ;;495
 ;;21,"68462-0160-10 ")
 ;;496
 ;;21,"68462-0160-18 ")
 ;;497
 ;;21,"68462-0160-90 ")
 ;;498
 ;;21,"68462-0161-01 ")
 ;;735
 ;;21,"68462-0161-05 ")
 ;;736
 ;;21,"68462-0161-10 ")
 ;;737
 ;;21,"68462-0161-18 ")
 ;;738
 ;;21,"68462-0161-90 ")
 ;;739
 ;;21,"68645-0120-59 ")
 ;;1010
 ;;21,"68645-0290-59 ")
 ;;241
 ;;21,"68645-0300-59 ")
 ;;780
 ;;9002226,1198,.01)
 ;;BGP PQA BIGUANIDE NDC
 ;;9002226,1198,.02)
 ;;@
 ;;9002226,1198,.04)
 ;;n
 ;;9002226,1198,.06)
 ;;@
 ;;9002226,1198,.08)
 ;;@
 ;;9002226,1198,.09)
 ;;3140317
 ;;9002226,1198,.11)
 ;;@
 ;;9002226,1198,.12)
 ;;@
 ;;9002226,1198,.13)
 ;;1
 ;;9002226,1198,.14)
 ;;@
 ;;9002226,1198,.15)
 ;;@
 ;;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