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

BGP44Q3.m

Go to the documentation of this file.
BGP44Q3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 11, 2013;
 ;;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,"58016-0772-00 ")
 ;;257
 ;;21,"58016-0772-30 ")
 ;;258
 ;;21,"58016-0772-60 ")
 ;;259
 ;;21,"58016-0772-90 ")
 ;;260
 ;;21,"58016-0883-00 ")
 ;;712
 ;;21,"58016-0883-30 ")
 ;;713
 ;;21,"58016-0883-60 ")
 ;;714
 ;;21,"58016-0883-90 ")
 ;;715
 ;;21,"58864-0015-28 ")
 ;;129
 ;;21,"58864-0015-30 ")
 ;;130
 ;;21,"58864-0015-60 ")
 ;;131
 ;;21,"58864-0015-90 ")
 ;;132
 ;;21,"58864-0507-30 ")
 ;;705
 ;;21,"58864-0693-30 ")
 ;;699
 ;;21,"58864-0693-60 ")
 ;;700
 ;;21,"58864-0711-30 ")
 ;;977
 ;;21,"58864-0789-30 ")
 ;;354
 ;;21,"58864-0851-30 ")
 ;;809
 ;;21,"58864-0952-30 ")
 ;;1019
 ;;21,"58864-0953-30 ")
 ;;1072
 ;;21,"59630-0574-60 ")
 ;;858
 ;;21,"59630-0575-60 ")
 ;;861
 ;;21,"59762-2330-07 ")
 ;;947
 ;;21,"59762-2331-06 ")
 ;;987
 ;;21,"59762-2331-08 ")
 ;;988
 ;;21,"59762-2332-06 ")
 ;;1044
 ;;21,"59762-2332-08 ")
 ;;1045
 ;;21,"59762-4320-00 ")
 ;;37
 ;;21,"59762-4320-02 ")
 ;;38
 ;;21,"59762-4320-06 ")
 ;;39
 ;;21,"59762-4321-00 ")
 ;;325
 ;;21,"59762-4321-02 ")
 ;;326
 ;;21,"59762-4321-06 ")
 ;;327
 ;;21,"59762-4322-00 ")
 ;;503
 ;;21,"59762-4322-02 ")
 ;;504
 ;;21,"59762-4322-06 ")
 ;;505
 ;;21,"60429-0280-01 ")
 ;;849
 ;;21,"60429-0280-10 ")
 ;;850
 ;;21,"60429-0280-18 ")
 ;;851
 ;;21,"60429-0723-12 ")
 ;;70
 ;;21,"60429-0723-18 ")
 ;;71
 ;;21,"60429-0723-60 ")
 ;;72
 ;;21,"60429-0723-90 ")
 ;;73
 ;;21,"60429-0725-05 ")
 ;;810
 ;;21,"60429-0725-18 ")
 ;;811
 ;;21,"60429-0725-60 ")
 ;;812
 ;;21,"60429-0725-90 ")
 ;;813
 ;;21,"60505-0190-00 ")
 ;;133
 ;;21,"60505-0190-01 ")
 ;;134
 ;;21,"60505-0190-04 ")
 ;;135
 ;;21,"60505-0190-08 ")
 ;;136
 ;;21,"60505-0191-00 ")
 ;;408
 ;;21,"60505-0191-01 ")
 ;;409
 ;;21,"60505-0191-04 ")
 ;;410
 ;;21,"60505-0191-08 ")
 ;;411
 ;;21,"60505-0192-00 ")
 ;;561
 ;;21,"60505-0192-01 ")
 ;;562
 ;;21,"60505-0192-04 ")
 ;;563
 ;;21,"60505-0192-08 ")
 ;;564
 ;;21,"60505-0260-01 ")
 ;;821
 ;;21,"60505-0260-02 ")
 ;;822
 ;;21,"60505-0260-07 ")
 ;;823
 ;;21,"60505-1329-01 ")
 ;;831
 ;;21,"60760-0042-60 ")
 ;;751
 ;;21,"60760-0175-30 ")
 ;;930
 ;;21,"60760-0176-30 ")
 ;;931
 ;;21,"60760-0973-60 ")
 ;;45
 ;;21,"60760-0974-60 ")
 ;;345
 ;;21,"60760-0975-60 ")
 ;;517
 ;;21,"62037-0571-01 ")
 ;;806
 ;;21,"62037-0571-10 ")
 ;;807
 ;;21,"62037-0577-01 ")
 ;;832
 ;;21,"62037-0577-10 ")
 ;;833
 ;;21,"62584-0259-01 ")
 ;;74
 ;;21,"62584-0259-11 ")
 ;;75
 ;;21,"62584-0332-01 ")
 ;;477
 ;;21,"62584-0332-11 ")
 ;;478
 ;;21,"62584-0452-01 ")
 ;;613
 ;;21,"62584-0452-11 ")
 ;;614
 ;;21,"62756-0142-01 ")
 ;;710
 ;;21,"62756-0142-02 ")
 ;;711
 ;;21,"62756-0143-01 ")
 ;;852
 ;;21,"63629-1392-01 ")
 ;;979
 ;;21,"63629-1392-02 ")
 ;;980
 ;;21,"63629-1392-03 ")
 ;;981
 ;;21,"63629-1395-01 ")
 ;;140
 ;;21,"63629-1395-02 ")
 ;;141
 ;;21,"63629-1395-03 ")
 ;;142
 ;;21,"63629-1396-01 ")
 ;;403
 ;;21,"63629-1396-02 ")
 ;;404
 ;;21,"63629-1397-01 ")
 ;;565
 ;;21,"63629-1397-02 ")
 ;;566
 ;;21,"63629-1397-03 ")
 ;;567
 ;;21,"63629-1397-04 ")
 ;;568
 ;;21,"63629-1397-05 ")
 ;;659
 ;;21,"63629-2793-01 ")
 ;;1049
 ;;21,"63629-2793-03 ")
 ;;1050
 ;;21,"63629-2793-04 ")
 ;;1051
 ;;21,"63629-2793-05 ")
 ;;1052
 ;;21,"63629-2883-01 ")
 ;;797
 ;;21,"63629-2883-02 ")
 ;;798
 ;;21,"63629-2883-03 ")
 ;;799
 ;;21,"63629-3998-01 ")
 ;;953
 ;;21,"63874-0501-01 ")
 ;;143
 ;;21,"63874-0501-04 ")
 ;;144
 ;;21,"63874-0501-10 ")
 ;;145
 ;;21,"63874-0501-14 ")
 ;;146
 ;;21,"63874-0501-20 ")
 ;;147
 ;;21,"63874-0501-24 ")
 ;;148
 ;;21,"63874-0501-28 ")
 ;;149
 ;;21,"63874-0501-30 ")
 ;;150
 ;;21,"63874-0501-60 ")
 ;;151
 ;;21,"63874-0501-90 ")
 ;;152
 ;;21,"63874-0635-01 ")
 ;;346
 ;;21,"63874-0635-10 ")
 ;;347
 ;;21,"63874-0635-20 ")
 ;;348
 ;;21,"63874-0635-28 ")
 ;;349
 ;;21,"63874-0635-30 ")
 ;;350
 ;;21,"63874-0635-60 ")
 ;;351
 ;;21,"63874-0635-90 ")
 ;;352
 ;;21,"63874-0974-01 ")
 ;;506
 ;;21,"63874-0974-30 ")
 ;;507
 ;;21,"63874-0974-60 ")
 ;;508
 ;;21,"64764-0155-18 ")
 ;;1099
 ;;21,"64764-0155-60 ")
 ;;1100
 ;;21,"64764-0158-18 ")
 ;;1113
 ;;21,"64764-0158-60 ")
 ;;1114
 ;;21,"64764-0310-30 ")
 ;;1124
 ;;21,"64764-0335-60 ")
 ;;870
 ;;21,"64764-0337-60 ")
 ;;871
 ;;21,"64764-0510-30 ")
 ;;1123
 ;;21,"65162-0174-10 ")
 ;;405
 ;;21,"65162-0174-11 ")
 ;;406
 ;;21,"65162-0174-50 ")
 ;;407
 ;;21,"65162-0175-10 ")
 ;;137
 ;;21,"65162-0175-11 ")
 ;;138
 ;;21,"65162-0175-50 ")
 ;;139
 ;;21,"65162-0177-10 ")
 ;;820
 ;;21,"65162-0177-11 ")
 ;;570
 ;;21,"65162-0177-50 ")
 ;;819
 ;;21,"65162-0218-10 ")
 ;;161
 ;;21,"65162-0218-11 ")
 ;;162
 ;;21,"65162-0218-50 ")
 ;;163
 ;;21,"65162-0219-10 ")
 ;;397
 ;;21,"65162-0219-11 ")
 ;;398
 ;;21,"65162-0219-50 ")
 ;;399
 ;;21,"65162-0220-10 ")
 ;;571
 ;;21,"65162-0220-11 ")
 ;;572
 ;;21,"65162-0220-50 ")
 ;;573
 ;;21,"65243-0239-09 ")
 ;;412
 ;;21,"65243-0239-18 ")
 ;;413
 ;;21,"65243-0239-27 ")
 ;;414
 ;;21,"65243-0288-06 ")
 ;;197
 ;;21,"65243-0288-09 ")
 ;;198
 ;;21,"65243-0288-12 ")
 ;;199
 ;;21,"65243-0288-18 ")
 ;;200
 ;;21,"65243-0289-06 ")
 ;;691
 ;;21,"65243-0289-09 ")
 ;;692
 ;;21,"65243-0289-12 ")
 ;;693
 ;;21,"65243-0289-18 ")
 ;;694
 ;;21,"65243-0371-06 ")
 ;;509
 ;;21,"65243-0371-09 ")
 ;;510
 ;;21,"65243-0372-06 ")
 ;;40
 ;;21,"65243-0372-09 ")
 ;;41
 ;;21,"65243-0372-18 ")
 ;;42
 ;;21,"65243-0373-09 ")
 ;;324
 ;;21,"65862-0008-01 ")
 ;;300
 ;;21,"65862-0008-05 ")
 ;;301
 ;;21,"65862-0008-90 ")
 ;;302
 ;;21,"65862-0008-99 ")
 ;;303
 ;;21,"65862-0009-01 ")
 ;;474
 ;;21,"65862-0009-05 ")
 ;;475
 ;;21,"65862-0009-90 ")
 ;;476
 ;;21,"65862-0010-01 ")
 ;;615
 ;;21,"65862-0010-05 ")
 ;;616
 ;;21,"65862-0010-46 ")
 ;;617
 ;;21,"65862-0010-90 ")
 ;;618
 ;;21,"65862-0010-99 ")
 ;;619
 ;;21,"65862-0080-01 ")
 ;;951
 ;;21,"65862-0080-05 ")
 ;;952
 ;;21,"65862-0081-01 ")
 ;;1000
 ;;21,"65862-0081-05 ")
 ;;1001
 ;;21,"65862-0082-01 ")
 ;;1030
 ;;21,"65862-0082-05 ")
 ;;1031
 ;;21,"65862-0291-01 ")
 ;;804
 ;;21,"65862-0291-05 ")
 ;;805
 ;;21,"65862-0292-01 ")
 ;;834
 ;;21,"65862-0525-18 ")
 ;;1104
 ;;21,"65862-0525-60 ")
 ;;1105
 ;;21,"65862-0526-18 ")
 ;;1118
 ;;21,"65862-0526-60 ")
 ;;1119
 ;;21,"66116-0233-30 ")
 ;;978
 ;;21,"66116-0282-60 ")
 ;;159
 ;;21,"66116-0293-30 ")
 ;;569
 ;;21,"66116-0454-30 ")
 ;;160
 ;;21,"66116-0695-60 ")
 ;;195
 ;;21,"66267-0493-14 ")
 ;;261
 ;;21,"66267-0493-30 ")
 ;;262
 ;;21,"66267-0493-60 ")
 ;;263
 ;;21,"66267-0493-90 ")
 ;;264
 ;;21,"66267-0493-91 ")
 ;;265
 ;;21,"66267-0493-92 ")
 ;;266
 ;;21,"66267-0493-93 ")
 ;;267
 ;;21,"66336-0270-30 ")
 ;;801
 ;;21,"66336-0270-60 ")
 ;;802
 ;;21,"66336-0270-90 ")
 ;;803
 ;;21,"66336-0270-94 ")
 ;;808
 ;;21,"66336-0292-60 ")
 ;;703
 ;;21,"66336-0319-30 ")
 ;;1025
 ;;21,"66336-0358-30 ")
 ;;590
 ;;21,"66336-0358-60 ")
 ;;591
 ;;21,"66336-0358-62 ")
 ;;592
 ;;21,"66336-0358-90 ")
 ;;593
 ;;21,"66336-0500-30 ")
 ;;843
 ;;21,"66336-0500-90 ")
 ;;844
 ;;21,"66336-0784-30 ")
 ;;1074
 ;;21,"66336-0784-60 ")
 ;;1040
 ;;21,"66336-0784-90 ")
 ;;1041
 ;;21,"66336-0850-30 ")
 ;;989
 ;;21,"66336-0850-60 ")
 ;;990
 ;;21,"66336-0850-90 ")
 ;;991
 ;;21,"66336-0883-30 ")
 ;;400
 ;;21,"66336-0883-60 ")
 ;;401
 ;;21,"66336-0883-90 ")
 ;;402
 ;;21,"66336-0884-14 ")
 ;;153
 ;;21,"66336-0884-28 ")
 ;;154
 ;;21,"66336-0884-30 ")
 ;;155
 ;;21,"66336-0884-60 ")
 ;;156
 ;;21,"66336-0884-62 ")
 ;;157
 ;;21,"66336-0884-90 ")
 ;;158
 ;;21,"67544-0047-30 ")
 ;;292
 ;;21,"67544-0047-53 ")
 ;;293
 ;;21,"67544-0047-60 ")
 ;;294
 ;;21,"67544-0047-70 ")
 ;;295
 ;;21,"67544-0047-75 ")
 ;;296
 ;;21,"67544-0047-80 ")
 ;;297
 ;;21,"67544-0047-90 ")
 ;;298
 ;;21,"67544-0047-92 ")
 ;;46
 ;;21,"67544-0047-94 ")
 ;;47
 ;;21,"67544-0047-96 ")
 ;;48
 ;;21,"67544-0107-53 ")
 ;;355
 ;;21,"67544-0107-60 ")
 ;;356
 ;;21,"67544-0107-80 ")
 ;;357
 ;;21,"67544-0107-92 ")
 ;;358
 ;;21,"67544-0163-30 ")
 ;;660
 ;;21,"67544-0163-45 ")
 ;;661
 ;;21,"67544-0163-53 ")
 ;;662
 ;;21,"67544-0163-60 ")
 ;;663
 ;;21,"67544-0163-80 ")
 ;;664
 ;;21,"67544-0296-70 ")
 ;;1026
 ;;21,"67544-0364-70 ")
 ;;1075
 ;;21,"67544-0417-70 ")
 ;;1076
 ;;21,"67544-0421-60 ")
 ;;479
 ;;21,"67544-0421-80 ")
 ;;480
 ;;21,"67544-0421-92 ")
 ;;481
 ;;21,"67544-0422-30 ")
 ;;721
 ;;21,"67544-0422-53 ")
 ;;722
 ;;21,"67544-0422-60 ")
 ;;723
 ;;21,"67544-0422-70 ")
 ;;724
 ;;21,"67544-0422-75 ")
 ;;725
 ;;21,"67544-0422-80 ")
 ;;726
 ;;21,"67544-0422-90 ")
 ;;727
 ;;21,"67544-0422-92 ")
 ;;728
 ;;21,"67544-0422-94 ")
 ;;729
 ;;21,"67544-0422-96 ")
 ;;730
 ;;21,"67544-0424-30 ")
 ;;268
 ;;21,"67544-0424-53 ")
 ;;269
 ;;21,"67544-0424-60 ")
 ;;270
 ;;21,"67544-0424-70 ")
 ;;271
 ;;21,"67544-0424-75 ")
 ;;272
 ;;21,"67544-0424-80 ")
 ;;273
 ;;21,"67544-0424-90 ")
 ;;274
 ;;21,"67544-0424-92 ")
 ;;275
 ;;21,"67544-0424-94 ")
 ;;276
 ;;21,"67544-0424-96 ")
 ;;277
 ;;21,"67544-0428-45 ")
 ;;604
 ;;21,"67544-0428-53 ")
 ;;605
 ;;21,"67544-0428-60 ")
 ;;606
 ;;21,"67544-0428-73 ")
 ;;607
 ;;21,"67544-0428-80 ")
 ;;608
 ;;21,"67544-0486-53 ")
 ;;299
 ;;21,"67544-0511-70 ")
 ;;1091
 ;;21,"67544-0511-94 ")
 ;;1032
 ;;21,"67544-0596-53 ")
 ;;50
 ;;21,"67544-0596-60 ")
 ;;51
 ;;21,"67544-0596-80 ")
 ;;52
 ;;21,"67544-0596-96 ")
 ;;53
 ;;21,"67544-1081-80 ")
 ;;744
 ;;21,"67544-1081-94 ")
 ;;745
 ;;21,"67544-1129-70 ")
 ;;1080
 ;;21,"67544-1198-53 ")
 ;;688
 ;;21,"67544-1198-60 ")
 ;;689
 ;;21,"67544-1198-80 ")
 ;;690
 ;;21,"67544-1216-53 ")
 ;;417
 ;;21,"67544-1216-60 ")
 ;;418
 ;;21,"67544-1216-80 ")
 ;;419
 ;;21,"67544-1216-92 ")
 ;;420
 ;;21,"67544-1379-80 ")
 ;;196
 ;;21,"67544-1383-60 ")
 ;;415
 ;;21,"67544-1383-80 ")
 ;;416
 ;;21,"67877-0159-01 ")
 ;;816
 ;;21,"67877-0159-05 ")
 ;;817
 ;;21,"67877-0159-10 ")
 ;;818
 ;;21,"67877-0217-01 ")
 ;;164
 ;;21,"67877-0217-05 ")
 ;;165
 ;;21,"67877-0217-10 ")
 ;;166
 ;;21,"67877-0218-01 ")
 ;;394
 ;;21,"67877-0218-05 ")
 ;;395
 ;;21,"67877-0218-10 ")
 ;;396
 ;;21,"67877-0221-01 ")
 ;;574
 ;;21,"67877-0221-05 ")
 ;;575
 ;;21,"67877-0221-10 ")
 ;;576
 ;;21,"68012-0002-13 ")
 ;;867
 ;;21,"68012-0003-16 ")
 ;;868
 ;;21,"68071-0028-30 ")
 ;;1042
 ;;21,"68071-0028-60 ")
 ;;1043
 ;;21,"68084-0072-01 ")
 ;;752
 ;;21,"68084-0072-11 ")
 ;;709
 ;;21,"68084-0136-01 ")
 ;;969
 ;;21,"68084-0136-11 ")
 ;;970
 ;;21,"68084-0137-01 ")
 ;;1013
 ;;21,"68084-0137-11 ")
 ;;1014
 ;;21,"68084-0138-01 ")
 ;;1092
 ;;21,"68084-0138-11 ")
 ;;1093
 ;;21,"68180-0336-07 ")
 ;;859
 ;;21,"68180-0337-07 ")
 ;;863
 ;;21,"68382-0027-05 ")
 ;;753
 ;;21,"68382-0028-01 ")
 ;;184
 ;;21,"68382-0028-05 ")
 ;;185
 ;;21,"68382-0028-10 ")
 ;;186
 ;;21,"68382-0029-01 ")
 ;;442
 ;;21,"68382-0029-05 ")
 ;;443
 ;;21,"68382-0029-10 ")
 ;;444
 ;;21,"68382-0030-01 ")
 ;;656
 ;;21,"68382-0030-05 ")
 ;;657
 ;;21,"68382-0030-10 ")
 ;;658
 ;;21,"68382-0039-05 ")
 ;;845
 ;;21,"68462-0159-01 ")
 ;;304
 ;;21,"68462-0159-05 ")
 ;;305
 ;;21,"68462-0159-10 ")
 ;;306
 ;;21,"68462-0159-18 ")
 ;;307
 ;;21,"68462-0159-90 ")
 ;;308
 ;;21,"68462-0160-01 ")
 ;;469
 ;;21,"68462-0160-05 ")
 ;;470
 ;;21,"68462-0160-10 ")
 ;;471
 ;;21,"68462-0160-18 ")
 ;;472
 ;;21,"68462-0160-90 ")
 ;;473
 ;;21,"68462-0161-01 ")
 ;;620
 ;;21,"68462-0161-05 ")
 ;;621
 ;;21,"68462-0161-10 ")
 ;;622
 ;;21,"68462-0161-18 ")
 ;;623
 ;;21,"68462-0161-90 ")
 ;;624
 ;;21,"68645-0120-59 ")
 ;;800
 ;;21,"68645-0290-59 ")
 ;;49
 ;;21,"68645-0300-59 ")
 ;;518
 ;;9002226,1198,.01)
 ;;BGP PQA BIGUANIDE NDC
 ;;9002226,1198,.02)
 ;;@
 ;;9002226,1198,.04)
 ;;n
 ;;9002226,1198,.06)
 ;;@
 ;;9002226,1198,.08)
 ;;@
 ;;9002226,1198,.09)
 ;;3130911
 ;;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