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

BGPM5ALL.m

Go to the documentation of this file.
BGPM5ALL ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"68788263309 ")
 ;;2172
 ;;21,"68788263403 ")
 ;;2173
 ;;21,"68788263503 ")
 ;;2174
 ;;21,"68788263506 ")
 ;;2175
 ;;21,"68788263509 ")
 ;;2176
 ;;21,"74312000720 ")
 ;;2177
 ;;21,"74312001483 ")
 ;;2178
 ;;21,"74312005800 ")
 ;;2179
 ;;9002226,900,.01)
 ;;BGPMU CAD LIPID LOWERING NDCS
 ;;9002226,900,.02)
 ;;NDCs for EP lipid lowering
 ;;9002226,900,.04)
 ;;@
 ;;9002226,900,.06)
 ;;@
 ;;9002226,900,.08)
 ;;@
 ;;9002226,900,.09)
 ;;@
 ;;9002226,900,.11)
 ;;@
 ;;9002226,900,.12)
 ;;@
 ;;9002226,900,.13)
 ;;@
 ;;9002226,900,.14)
 ;;@
 ;;9002226,900,.15)
 ;;50.67
 ;;9002226,900,.16)
 ;;@
 ;;9002226,900,.17)
 ;;@
 ;;9002226,900,3101)
 ;;@
 ;;9002226.02101,"900,00003053750 ",.01)
 ;;00003053750
 ;;9002226.02101,"900,00003053750 ",.02)
 ;;00003053750
 ;;9002226.02101,"900,00006041415 ",.01)
 ;;00006041415
 ;;9002226.02101,"900,00006041415 ",.02)
 ;;00006041415
 ;;9002226.02101,"900,00006054301 ",.01)
 ;;00006054301
 ;;9002226.02101,"900,00006054301 ",.02)
 ;;00006054301
 ;;9002226.02101,"900,00006054328 ",.01)
 ;;00006054328
 ;;9002226.02101,"900,00006054328 ",.02)
 ;;00006054328
 ;;9002226.02101,"900,00006054331 ",.01)
 ;;00006054331
 ;;9002226.02101,"900,00006054331 ",.02)
 ;;00006054331
 ;;9002226.02101,"900,00006054354 ",.01)
 ;;00006054354
 ;;9002226.02101,"900,00006054354 ",.02)
 ;;00006054354
 ;;9002226.02101,"900,00006054382 ",.01)
 ;;00006054382
 ;;9002226.02101,"900,00006054382 ",.02)
 ;;00006054382
 ;;9002226.02101,"900,00006072628 ",.01)
 ;;00006072628
 ;;9002226.02101,"900,00006072628 ",.02)
 ;;00006072628
 ;;9002226.02101,"900,00006072631 ",.01)
 ;;00006072631
 ;;9002226.02101,"900,00006072631 ",.02)
 ;;00006072631
 ;;9002226.02101,"900,00006072654 ",.01)
 ;;00006072654
 ;;9002226.02101,"900,00006072654 ",.02)
 ;;00006072654
 ;;9002226.02101,"900,00006072682 ",.01)
 ;;00006072682
 ;;9002226.02101,"900,00006072682 ",.02)
 ;;00006072682
 ;;9002226.02101,"900,00006073161 ",.01)
 ;;00006073161
 ;;9002226.02101,"900,00006073161 ",.02)
 ;;00006073161
 ;;9002226.02101,"900,00006073261 ",.01)
 ;;00006073261
 ;;9002226.02101,"900,00006073261 ",.02)
 ;;00006073261
 ;;9002226.02101,"900,00006073528 ",.01)
 ;;00006073528
 ;;9002226.02101,"900,00006073528 ",.02)
 ;;00006073528
 ;;9002226.02101,"900,00006073531 ",.01)
 ;;00006073531
 ;;9002226.02101,"900,00006073531 ",.02)
 ;;00006073531
 ;;9002226.02101,"900,00006073554 ",.01)
 ;;00006073554
 ;;9002226.02101,"900,00006073554 ",.02)
 ;;00006073554
 ;;9002226.02101,"900,00006073561 ",.01)
 ;;00006073561
 ;;9002226.02101,"900,00006073561 ",.02)
 ;;00006073561
 ;;9002226.02101,"900,00006073582 ",.01)
 ;;00006073582
 ;;9002226.02101,"900,00006073582 ",.02)
 ;;00006073582
 ;;9002226.02101,"900,00006073587 ",.01)
 ;;00006073587
 ;;9002226.02101,"900,00006073587 ",.02)
 ;;00006073587
 ;;9002226.02101,"900,00006074028 ",.01)
 ;;00006074028
 ;;9002226.02101,"900,00006074028 ",.02)
 ;;00006074028
 ;;9002226.02101,"900,00006074031 ",.01)
 ;;00006074031
 ;;9002226.02101,"900,00006074031 ",.02)
 ;;00006074031
 ;;9002226.02101,"900,00006074054 ",.01)
 ;;00006074054
 ;;9002226.02101,"900,00006074054 ",.02)
 ;;00006074054
 ;;9002226.02101,"900,00006074082 ",.01)
 ;;00006074082
 ;;9002226.02101,"900,00006074082 ",.02)
 ;;00006074082
 ;;9002226.02101,"900,00006074087 ",.01)
 ;;00006074087
 ;;9002226.02101,"900,00006074087 ",.02)
 ;;00006074087
 ;;9002226.02101,"900,00006074928 ",.01)
 ;;00006074928
 ;;9002226.02101,"900,00006074928 ",.02)
 ;;00006074928
 ;;9002226.02101,"900,00006074931 ",.01)
 ;;00006074931
 ;;9002226.02101,"900,00006074931 ",.02)
 ;;00006074931
 ;;9002226.02101,"900,00006074954 ",.01)
 ;;00006074954
 ;;9002226.02101,"900,00006074954 ",.02)
 ;;00006074954
 ;;9002226.02101,"900,00006074982 ",.01)
 ;;00006074982
 ;;9002226.02101,"900,00006074982 ",.02)
 ;;00006074982
 ;;9002226.02101,"900,00069215030 ",.01)
 ;;00069215030
 ;;9002226.02101,"900,00069215030 ",.02)
 ;;00069215030
 ;;9002226.02101,"900,00069216030 ",.01)
 ;;00069216030
 ;;9002226.02101,"900,00069216030 ",.02)
 ;;00069216030
 ;;9002226.02101,"900,00069217030 ",.01)
 ;;00069217030
 ;;9002226.02101,"900,00069217030 ",.02)
 ;;00069217030
 ;;9002226.02101,"900,00069218030 ",.01)
 ;;00069218030
 ;;9002226.02101,"900,00069218030 ",.02)
 ;;00069218030
 ;;9002226.02101,"900,00069219030 ",.01)
 ;;00069219030
 ;;9002226.02101,"900,00069219030 ",.02)
 ;;00069219030
 ;;9002226.02101,"900,00069225030 ",.01)
 ;;00069225030
 ;;9002226.02101,"900,00069225030 ",.02)
 ;;00069225030
 ;;9002226.02101,"900,00069226030 ",.01)
 ;;00069226030
 ;;9002226.02101,"900,00069226030 ",.02)
 ;;00069226030
 ;;9002226.02101,"900,00069227030 ",.01)
 ;;00069227030
 ;;9002226.02101,"900,00069227030 ",.02)
 ;;00069227030
 ;;9002226.02101,"900,00069296030 ",.01)
 ;;00069296030
 ;;9002226.02101,"900,00069296030 ",.02)
 ;;00069296030
 ;;9002226.02101,"900,00069297030 ",.01)
 ;;00069297030
 ;;9002226.02101,"900,00069297030 ",.02)
 ;;00069297030
 ;;9002226.02101,"900,00069298030 ",.01)
 ;;00069298030
 ;;9002226.02101,"900,00069298030 ",.02)
 ;;00069298030
 ;;9002226.02101,"900,00071015523 ",.01)
 ;;00071015523
 ;;9002226.02101,"900,00071015523 ",.02)
 ;;00071015523
 ;;9002226.02101,"900,00071015534 ",.01)
 ;;00071015534
 ;;9002226.02101,"900,00071015534 ",.02)
 ;;00071015534
 ;;9002226.02101,"900,00071015540 ",.01)
 ;;00071015540
 ;;9002226.02101,"900,00071015540 ",.02)
 ;;00071015540
 ;;9002226.02101,"900,00071015623 ",.01)
 ;;00071015623
 ;;9002226.02101,"900,00071015623 ",.02)
 ;;00071015623
 ;;9002226.02101,"900,00071015640 ",.01)
 ;;00071015640
 ;;9002226.02101,"900,00071015640 ",.02)
 ;;00071015640
 ;;9002226.02101,"900,00071015694 ",.01)
 ;;00071015694
 ;;9002226.02101,"900,00071015694 ",.02)
 ;;00071015694
 ;;9002226.02101,"900,00071015723 ",.01)
 ;;00071015723
 ;;9002226.02101,"900,00071015723 ",.02)
 ;;00071015723
 ;;9002226.02101,"900,00071015740 ",.01)
 ;;00071015740
 ;;9002226.02101,"900,00071015740 ",.02)
 ;;00071015740
 ;;9002226.02101,"900,00071015773 ",.01)
 ;;00071015773
 ;;9002226.02101,"900,00071015773 ",.02)
 ;;00071015773
 ;;9002226.02101,"900,00071015788 ",.01)
 ;;00071015788
 ;;9002226.02101,"900,00071015788 ",.02)
 ;;00071015788
 ;;9002226.02101,"900,00071015823 ",.01)
 ;;00071015823
 ;;9002226.02101,"900,00071015823 ",.02)
 ;;00071015823
 ;;9002226.02101,"900,00071015873 ",.01)
 ;;00071015873
 ;;9002226.02101,"900,00071015873 ",.02)
 ;;00071015873
 ;;9002226.02101,"900,00071015888 ",.01)
 ;;00071015888
 ;;9002226.02101,"900,00071015888 ",.02)
 ;;00071015888
 ;;9002226.02101,"900,00071015892 ",.01)
 ;;00071015892
 ;;9002226.02101,"900,00071015892 ",.02)
 ;;00071015892
 ;;9002226.02101,"900,00071073720 ",.01)
 ;;00071073720
 ;;9002226.02101,"900,00071073720 ",.02)
 ;;00071073720
 ;;9002226.02101,"900,00071073730 ",.01)
 ;;00071073730
 ;;9002226.02101,"900,00071073730 ",.02)
 ;;00071073730
 ;;9002226.02101,"900,00074300503 ",.01)
 ;;00074300503
 ;;9002226.02101,"900,00074300503 ",.02)
 ;;00074300503
 ;;9002226.02101,"900,00074300590 ",.01)
 ;;00074300590
 ;;9002226.02101,"900,00074300590 ",.02)
 ;;00074300590
 ;;9002226.02101,"900,00074300790 ",.01)
 ;;00074300790
 ;;9002226.02101,"900,00074300790 ",.02)
 ;;00074300790
 ;;9002226.02101,"900,00074307290 ",.01)
 ;;00074307290
 ;;9002226.02101,"900,00074307290 ",.02)
 ;;00074307290
 ;;9002226.02101,"900,00074612271 ",.01)
 ;;00074612271
 ;;9002226.02101,"900,00074612271 ",.02)
 ;;00074612271
 ;;9002226.02101,"900,00074612290 ",.01)
 ;;00074612290
 ;;9002226.02101,"900,00074612290 ",.02)
 ;;00074612290
 ;;9002226.02101,"900,00074612371 ",.01)
 ;;00074612371
 ;;9002226.02101,"900,00074612371 ",.02)
 ;;00074612371
 ;;9002226.02101,"900,00074612390 ",.01)
 ;;00074612390
 ;;9002226.02101,"900,00074612390 ",.02)
 ;;00074612390
 ;;9002226.02101,"900,00078017605 ",.01)
 ;;00078017605
 ;;9002226.02101,"900,00078017605 ",.02)
 ;;00078017605
 ;;9002226.02101,"900,00078017615 ",.01)
 ;;00078017615
 ;;9002226.02101,"900,00078017615 ",.02)
 ;;00078017615
 ;;9002226.02101,"900,00078023405 ",.01)
 ;;00078023405
 ;;9002226.02101,"900,00078023405 ",.02)
 ;;00078023405
 ;;9002226.02101,"900,00078023415 ",.01)
 ;;00078023415
 ;;9002226.02101,"900,00078023415 ",.02)
 ;;00078023415
 ;;9002226.02101,"900,00078035405 ",.01)
 ;;00078035405
 ;;9002226.02101,"900,00078035405 ",.02)
 ;;00078035405
 ;;9002226.02101,"900,00078035415 ",.01)
 ;;00078035415
 ;;9002226.02101,"900,00078035415 ",.02)
 ;;00078035415
 ;;9002226.02101,"900,00087058005 ",.01)
 ;;00087058005
 ;;9002226.02101,"900,00087058005 ",.02)
 ;;00087058005
 ;;9002226.02101,"900,00087058011 ",.01)
 ;;00087058011
 ;;9002226.02101,"900,00087058011 ",.02)
 ;;00087058011
 ;;9002226.02101,"900,00087058901 ",.01)
 ;;00087058901
 ;;9002226.02101,"900,00087058901 ",.02)
 ;;00087058901
 ;;9002226.02101,"900,00087058903 ",.01)
 ;;00087058903
 ;;9002226.02101,"900,00087058903 ",.02)
 ;;00087058903
 ;;9002226.02101,"900,00087944211 ",.01)
 ;;00087944211
 ;;9002226.02101,"900,00087944211 ",.02)
 ;;00087944211
 ;;9002226.02101,"900,00093057606 ",.01)
 ;;00093057606
 ;;9002226.02101,"900,00093057606 ",.02)
 ;;00093057606
 ;;9002226.02101,"900,00093057610 ",.01)
 ;;00093057610
 ;;9002226.02101,"900,00093057610 ",.02)
 ;;00093057610
 ;;9002226.02101,"900,00093057619 ",.01)
 ;;00093057619
 ;;9002226.02101,"900,00093057619 ",.02)
 ;;00093057619
 ;;9002226.02101,"900,00093057693 ",.01)
 ;;00093057693
 ;;9002226.02101,"900,00093057693 ",.02)
 ;;00093057693
 ;;9002226.02101,"900,00093067005 ",.01)
 ;;00093067005
 ;;9002226.02101,"900,00093067005 ",.02)
 ;;00093067005
 ;;9002226.02101,"900,00093067006 ",.01)
 ;;00093067006
 ;;9002226.02101,"900,00093067006 ",.02)
 ;;00093067006
 ;;9002226.02101,"900,00093067010 ",.01)
 ;;00093067010
 ;;9002226.02101,"900,00093067010 ",.02)
 ;;00093067010
 ;;9002226.02101,"900,00093067019 ",.01)
 ;;00093067019
 ;;9002226.02101,"900,00093067019 ",.02)
 ;;00093067019
 ;;9002226.02101,"900,00093067093 ",.01)
 ;;00093067093
 ;;9002226.02101,"900,00093067093 ",.02)
 ;;00093067093
 ;;9002226.02101,"900,00093092606 ",.01)
 ;;00093092606
 ;;9002226.02101,"900,00093092606 ",.02)
 ;;00093092606
 ;;9002226.02101,"900,00093092610 ",.01)
 ;;00093092610
 ;;9002226.02101,"900,00093092610 ",.02)
 ;;00093092610
 ;;9002226.02101,"900,00093092619 ",.01)
 ;;00093092619
 ;;9002226.02101,"900,00093092619 ",.02)
 ;;00093092619
 ;;9002226.02101,"900,00093092693 ",.01)
 ;;00093092693
 ;;9002226.02101,"900,00093092693 ",.02)
 ;;00093092693
 ;;9002226.02101,"900,00093092806 ",.01)
 ;;00093092806
 ;;9002226.02101,"900,00093092806 ",.02)
 ;;00093092806
 ;;9002226.02101,"900,00093092810 ",.01)
 ;;00093092810
 ;;9002226.02101,"900,00093092810 ",.02)
 ;;00093092810
 ;;9002226.02101,"900,00093092819 ",.01)
 ;;00093092819
 ;;9002226.02101,"900,00093092819 ",.02)
 ;;00093092819
 ;;9002226.02101,"900,00093092893 ",.01)
 ;;00093092893
 ;;9002226.02101,"900,00093092893 ",.02)
 ;;00093092893
 ;;9002226.02101,"900,00093801101 ",.01)
 ;;00093801101
 ;;9002226.02101,"900,00093801101 ",.02)
 ;;00093801101
 ;;9002226.02101,"900,00115051101 ",.01)
 ;;00115051101
 ;;9002226.02101,"900,00115051101 ",.02)
 ;;00115051101
 ;;9002226.02101,"900,00115052201 ",.01)
 ;;00115052201
 ;;9002226.02101,"900,00115052201 ",.02)
 ;;00115052201
 ;;9002226.02101,"900,00115053301 ",.01)
 ;;00115053301
 ;;9002226.02101,"900,00115053301 ",.02)
 ;;00115053301
 ;;9002226.02101,"900,00115991102 ",.01)
 ;;00115991102
 ;;9002226.02101,"900,00115991102 ",.02)
 ;;00115991102