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

BGPM3AAZ.m

Go to the documentation of this file.
BGPM3AAZ ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
 ;
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,"67544031815 ")
 ;;1755
 ;;21,"67544031830 ")
 ;;1756
 ;;21,"67544031831 ")
 ;;1757
 ;;21,"67544031845 ")
 ;;1758
 ;;21,"67544031853 ")
 ;;1759
 ;;21,"67544065131 ")
 ;;919
 ;;21,"67544085932 ")
 ;;1517
 ;;21,"67544086032 ")
 ;;1760
 ;;21,"67544091719 ")
 ;;2347
 ;;21,"67544097132 ")
 ;;1761
 ;;21,"67544099030 ")
 ;;2131
 ;;21,"68071020230 ")
 ;;1881
 ;;21,"68080402777 ")
 ;;1882
 ;;21,"68080414677 ")
 ;;1518
 ;;21,"68080414877 ")
 ;;2132
 ;;21,"68084002701 ")
 ;;1883
 ;;21,"68084002711 ")
 ;;1884
 ;;21,"68084014677 ")
 ;;1519
 ;;21,"68084402777 ")
 ;;1885
 ;;21,"68084414777 ")
 ;;1989
 ;;21,"68115003430 ")
 ;;157
 ;;21,"68115003456 ")
 ;;158
 ;;21,"68115003530 ")
 ;;852
 ;;21,"68115003599 ")
 ;;853
 ;;21,"68115035930 ")
 ;;1520
 ;;21,"68115039930 ")
 ;;1762
 ;;21,"68115043320 ")
 ;;433
 ;;21,"68115043330 ")
 ;;434
 ;;21,"68115061436 ")
 ;;780
 ;;21,"68115065900 ")
 ;;2348
 ;;21,"68382005201 ")
 ;;1521
 ;;21,"68382005210 ")
 ;;1522
 ;;21,"68382005301 ")
 ;;1763
 ;;21,"68382005310 ")
 ;;1764
 ;;21,"68382005401 ")
 ;;1990
 ;;21,"68382005410 ")
 ;;1991
 ;;21,"68382005501 ")
 ;;2133
 ;;21,"68382005510 ")
 ;;2134
 ;;21,"68382005601 ")
 ;;2349
 ;;21,"68382005610 ")
 ;;2350
 ;;21,"68382005701 ")
 ;;2444
 ;;21,"68382005710 ")
 ;;2445
 ;;21,"68382005801 ")
 ;;2510
 ;;21,"68382005901 ")
 ;;1585
 ;;21,"68382006401 ")
 ;;1886
 ;;21,"68382006410 ")
 ;;1887
 ;;21,"70030041190 ")
 ;;435
 ;;21,"70030041687 ")
 ;;159
 ;;21,"70030046768 ")
 ;;781
 ;;21,"70030064278 ")
 ;;436
 ;;9002226,775,.01)
 ;;BGPMU ANTITHROMBOTIC NDCS
 ;;9002226,775,.02)
 ;;Drug Anthrombotic NDCs
 ;;9002226,775,.04)
 ;;n
 ;;9002226,775,.06)
 ;;@
 ;;9002226,775,.08)
 ;;@
 ;;9002226,775,.09)
 ;;3110217
 ;;9002226,775,.11)
 ;;@
 ;;9002226,775,.12)
 ;;@
 ;;9002226,775,.13)
 ;;1
 ;;9002226,775,.14)
 ;;@
 ;;9002226,775,.15)
 ;;@
 ;;9002226,775,.16)
 ;;@
 ;;9002226,775,.17)
 ;;@
 ;;9002226,775,3101)
 ;;@
 ;;9002226.02101,"775,00002012502 ",.01)
 ;;00002012502
 ;;9002226.02101,"775,00002012502 ",.02)
 ;;00002012502
 ;;9002226.02101,"775,00002012504 ",.01)
 ;;00002012504
 ;;9002226.02101,"775,00002012504 ",.02)
 ;;00002012504
 ;;9002226.02101,"775,00002013202 ",.01)
 ;;00002013202
 ;;9002226.02101,"775,00002013202 ",.02)
 ;;00002013202
 ;;9002226.02101,"775,00002013204 ",.01)
 ;;00002013204
 ;;9002226.02101,"775,00002013204 ",.02)
 ;;00002013204
 ;;9002226.02101,"775,00002061102 ",.01)
 ;;00002061102
 ;;9002226.02101,"775,00002061102 ",.02)
 ;;00002061102
 ;;9002226.02101,"775,00002200502 ",.01)
 ;;00002200502
 ;;9002226.02101,"775,00002200502 ",.02)
 ;;00002200502
 ;;9002226.02101,"775,00002200533 ",.01)
 ;;00002200533
 ;;9002226.02101,"775,00002200533 ",.02)
 ;;00002200533
 ;;9002226.02101,"775,00002721601 ",.01)
 ;;00002721601
 ;;9002226.02101,"775,00002721601 ",.02)
 ;;00002721601
 ;;9002226.02101,"775,00002721701 ",.01)
 ;;00002721701
 ;;9002226.02101,"775,00002721701 ",.02)
 ;;00002721701
 ;;9002226.02101,"775,00003296320 ",.01)
 ;;00003296320
 ;;9002226.02101,"775,00003296320 ",.02)
 ;;00003296320
 ;;9002226.02101,"775,00007440701 ",.01)
 ;;00007440701
 ;;9002226.02101,"775,00007440701 ",.02)
 ;;00007440701
 ;;9002226.02101,"775,00007440754 ",.01)
 ;;00007440754
 ;;9002226.02101,"775,00007440754 ",.02)
 ;;00007440754
 ;;9002226.02101,"775,00008027501 ",.01)
 ;;00008027501
 ;;9002226.02101,"775,00008027501 ",.02)
 ;;00008027501
 ;;9002226.02101,"775,00008027502 ",.01)
 ;;00008027502
 ;;9002226.02101,"775,00008027502 ",.02)
 ;;00008027502
 ;;9002226.02101,"775,00008027550 ",.01)
 ;;00008027550
 ;;9002226.02101,"775,00008027550 ",.02)
 ;;00008027550
 ;;9002226.02101,"775,00008027601 ",.01)
 ;;00008027601
 ;;9002226.02101,"775,00008027601 ",.02)
 ;;00008027601
 ;;9002226.02101,"775,00008027701 ",.01)
 ;;00008027701
 ;;9002226.02101,"775,00008027701 ",.02)
 ;;00008027701
 ;;9002226.02101,"775,00008027702 ",.01)
 ;;00008027702
 ;;9002226.02101,"775,00008027702 ",.02)
 ;;00008027702
 ;;9002226.02101,"775,00008027703 ",.01)
 ;;00008027703
 ;;9002226.02101,"775,00008027703 ",.02)
 ;;00008027703
 ;;9002226.02101,"775,00008027801 ",.01)
 ;;00008027801
 ;;9002226.02101,"775,00008027801 ",.02)
 ;;00008027801
 ;;9002226.02101,"775,00008027802 ",.01)
 ;;00008027802
 ;;9002226.02101,"775,00008027802 ",.02)
 ;;00008027802
 ;;9002226.02101,"775,00008029301 ",.01)
 ;;00008029301
 ;;9002226.02101,"775,00008029301 ",.02)
 ;;00008029301
 ;;9002226.02101,"775,00008031302 ",.01)
 ;;00008031302
 ;;9002226.02101,"775,00008031302 ",.02)
 ;;00008031302
 ;;9002226.02101,"775,00008048201 ",.01)
 ;;00008048201
 ;;9002226.02101,"775,00008048201 ",.02)
 ;;00008048201
 ;;9002226.02101,"775,00008048701 ",.01)
 ;;00008048701
 ;;9002226.02101,"775,00008048701 ",.02)
 ;;00008048701
 ;;9002226.02101,"775,00008048703 ",.01)
 ;;00008048703
 ;;9002226.02101,"775,00008048703 ",.02)
 ;;00008048703
 ;;9002226.02101,"775,00008252901 ",.01)
 ;;00008252901
 ;;9002226.02101,"775,00008252901 ",.02)
 ;;00008252901
 ;;9002226.02101,"775,00008252902 ",.01)
 ;;00008252902
 ;;9002226.02101,"775,00008252902 ",.02)
 ;;00008252902
 ;;9002226.02101,"775,00008252903 ",.01)
 ;;00008252903
 ;;9002226.02101,"775,00008252903 ",.02)
 ;;00008252903
 ;;9002226.02101,"775,00008252950 ",.01)
 ;;00008252950
 ;;9002226.02101,"775,00008252950 ",.02)
 ;;00008252950
 ;;9002226.02101,"775,00008252951 ",.01)
 ;;00008252951
 ;;9002226.02101,"775,00008252951 ",.02)
 ;;00008252951
 ;;9002226.02101,"775,00008252952 ",.01)
 ;;00008252952
 ;;9002226.02101,"775,00008252952 ",.02)
 ;;00008252952
 ;;9002226.02101,"775,00009026801 ",.01)
 ;;00009026801
 ;;9002226.02101,"775,00009026801 ",.02)
 ;;00009026801
 ;;9002226.02101,"775,00009026802 ",.01)
 ;;00009026802
 ;;9002226.02101,"775,00009026802 ",.02)
 ;;00009026802
 ;;9002226.02101,"775,00009026807 ",.01)
 ;;00009026807
 ;;9002226.02101,"775,00009026807 ",.02)
 ;;00009026807
 ;;9002226.02101,"775,00009026812 ",.01)
 ;;00009026812
 ;;9002226.02101,"775,00009026812 ",.02)
 ;;00009026812
 ;;9002226.02101,"775,00009029101 ",.01)
 ;;00009029101
 ;;9002226.02101,"775,00009029101 ",.02)
 ;;00009029101
 ;;9002226.02101,"775,00009029102 ",.01)
 ;;00009029102
 ;;9002226.02101,"775,00009029102 ",.02)
 ;;00009029102
 ;;9002226.02101,"775,00009031701 ",.01)
 ;;00009031701
 ;;9002226.02101,"775,00009031701 ",.02)
 ;;00009031701
 ;;9002226.02101,"775,00009031702 ",.01)
 ;;00009031702
 ;;9002226.02101,"775,00009031702 ",.02)
 ;;00009031702
 ;;9002226.02101,"775,00009031708 ",.01)
 ;;00009031708
 ;;9002226.02101,"775,00009031708 ",.02)
 ;;00009031708
 ;;9002226.02101,"775,00009031709 ",.01)
 ;;00009031709
 ;;9002226.02101,"775,00009031709 ",.02)
 ;;00009031709
 ;;9002226.02101,"775,00009031710 ",.01)
 ;;00009031710
 ;;9002226.02101,"775,00009031710 ",.02)
 ;;00009031710
 ;;9002226.02101,"775,00009031711 ",.01)
 ;;00009031711
 ;;9002226.02101,"775,00009031711 ",.02)
 ;;00009031711
 ;;9002226.02101,"775,00024072212 ",.01)
 ;;00024072212
 ;;9002226.02101,"775,00024072212 ",.02)
 ;;00024072212
 ;;9002226.02101,"775,00024072213 ",.01)
 ;;00024072213
 ;;9002226.02101,"775,00024072213 ",.02)
 ;;00024072213
 ;;9002226.02101,"775,00024072216 ",.01)
 ;;00024072216
 ;;9002226.02101,"775,00024072216 ",.02)
 ;;00024072216
 ;;9002226.02101,"775,00024072217 ",.01)
 ;;00024072217
 ;;9002226.02101,"775,00024072217 ",.02)
 ;;00024072217
 ;;9002226.02101,"775,00024072233 ",.01)
 ;;00024072233
 ;;9002226.02101,"775,00024072233 ",.02)
 ;;00024072233
 ;;9002226.02101,"775,00024073302 ",.01)
 ;;00024073302
 ;;9002226.02101,"775,00024073302 ",.02)
 ;;00024073302
 ;;9002226.02101,"775,00024073303 ",.01)
 ;;00024073303
 ;;9002226.02101,"775,00024073303 ",.02)
 ;;00024073303
 ;;9002226.02101,"775,00024073304 ",.01)
 ;;00024073304
 ;;9002226.02101,"775,00024073304 ",.02)
 ;;00024073304
 ;;9002226.02101,"775,00024073305 ",.01)
 ;;00024073305
 ;;9002226.02101,"775,00024073305 ",.02)
 ;;00024073305
 ;;9002226.02101,"775,00024073312 ",.01)
 ;;00024073312
 ;;9002226.02101,"775,00024073312 ",.02)
 ;;00024073312
 ;;9002226.02101,"775,00024073357 ",.01)
 ;;00024073357
 ;;9002226.02101,"775,00024073357 ",.02)
 ;;00024073357
 ;;9002226.02101,"775,00024074212 ",.01)
 ;;00024074212
 ;;9002226.02101,"775,00024074212 ",.02)
 ;;00024074212
 ;;9002226.02101,"775,00024102506 ",.01)
 ;;00024102506
 ;;9002226.02101,"775,00024102506 ",.02)
 ;;00024102506
 ;;9002226.02101,"775,00047060632 ",.01)
 ;;00047060632
 ;;9002226.02101,"775,00047060632 ",.02)
 ;;00047060632
 ;;9002226.02101,"775,00047060640 ",.01)
 ;;00047060640
 ;;9002226.02101,"775,00047060640 ",.02)
 ;;00047060640
 ;;9002226.02101,"775,00047060641 ",.01)
 ;;00047060641
 ;;9002226.02101,"775,00047060641 ",.02)
 ;;00047060641
 ;;9002226.02101,"775,00052081110 ",.01)
 ;;00052081110
 ;;9002226.02101,"775,00052081110 ",.02)
 ;;00052081110
 ;;9002226.02101,"775,00052081175 ",.01)
 ;;00052081175
 ;;9002226.02101,"775,00052081175 ",.02)
 ;;00052081175
 ;;9002226.02101,"775,00052081210 ",.01)
 ;;00052081210
 ;;9002226.02101,"775,00052081210 ",.02)
 ;;00052081210
 ;;9002226.02101,"775,00052081225 ",.01)
 ;;00052081225
 ;;9002226.02101,"775,00052081225 ",.02)
 ;;00052081225
 ;;9002226.02101,"775,00052081250 ",.01)
 ;;00052081250
 ;;9002226.02101,"775,00052081250 ",.02)
 ;;00052081250
 ;;9002226.02101,"775,00052081302 ",.01)
 ;;00052081302
 ;;9002226.02101,"775,00052081302 ",.02)
 ;;00052081302
 ;;9002226.02101,"775,00052081305 ",.01)
 ;;00052081305
 ;;9002226.02101,"775,00052081305 ",.02)
 ;;00052081305
 ;;9002226.02101,"775,00052081325 ",.01)
 ;;00052081325
 ;;9002226.02101,"775,00052081325 ",.02)
 ;;00052081325
 ;;9002226.02101,"775,00052081504 ",.01)
 ;;00052081504
 ;;9002226.02101,"775,00052081504 ",.02)
 ;;00052081504
 ;;9002226.02101,"775,00052081525 ",.01)
 ;;00052081525
 ;;9002226.02101,"775,00052081525 ",.02)
 ;;00052081525
 ;;9002226.02101,"775,00052081550 ",.01)
 ;;00052081550
 ;;9002226.02101,"775,00052081550 ",.02)
 ;;00052081550
 ;;9002226.02101,"775,00052081625 ",.01)
 ;;00052081625
 ;;9002226.02101,"775,00052081625 ",.02)
 ;;00052081625
 ;;9002226.02101,"775,00056017170 ",.01)
 ;;00056017170
 ;;9002226.02101,"775,00056017170 ",.02)
 ;;00056017170
 ;;9002226.02101,"775,00056017175 ",.01)
 ;;00056017175
 ;;9002226.02101,"775,00056017175 ",.02)
 ;;00056017175
 ;;9002226.02101,"775,00056017190 ",.01)
 ;;00056017190
 ;;9002226.02101,"775,00056017190 ",.02)
 ;;00056017190
 ;;9002226.02101,"775,00067014582 ",.01)
 ;;00067014582
 ;;9002226.02101,"775,00067014582 ",.02)
 ;;00067014582
 ;;9002226.02101,"775,00074115212 ",.01)
 ;;00074115212
 ;;9002226.02101,"775,00074115212 ",.02)
 ;;00074115212
 ;;9002226.02101,"775,00074115214 ",.01)
 ;;00074115214
 ;;9002226.02101,"775,00074115214 ",.02)
 ;;00074115214
 ;;9002226.02101,"775,00074115270 ",.01)
 ;;00074115270
 ;;9002226.02101,"775,00074115270 ",.02)
 ;;00074115270
 ;;9002226.02101,"775,00074115271 ",.01)
 ;;00074115271
 ;;9002226.02101,"775,00074115271 ",.02)
 ;;00074115271
 ;;9002226.02101,"775,00074115273 ",.01)
 ;;00074115273
 ;;9002226.02101,"775,00074115273 ",.02)
 ;;00074115273
 ;;9002226.02101,"775,00074115278 ",.01)
 ;;00074115278
 ;;9002226.02101,"775,00074115278 ",.02)
 ;;00074115278
 ;;9002226.02101,"775,00074128125 ",.01)
 ;;00074128125
 ;;9002226.02101,"775,00074128125 ",.02)
 ;;00074128125
 ;;9002226.02101,"775,00074131602 ",.01)
 ;;00074131602
 ;;9002226.02101,"775,00074131602 ",.02)
 ;;00074131602