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

BGPM5AQH.m

Go to the documentation of this file.
BGPM5AQH ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"68788906201 ")
 ;;4875
 ;;21,"68788906203 ")
 ;;4876
 ;;21,"68788906206 ")
 ;;4877
 ;;21,"68788906208 ")
 ;;4878
 ;;21,"68788906209 ")
 ;;4879
 ;;21,"68788999401 ")
 ;;4880
 ;;21,"68788999403 ")
 ;;4881
 ;;21,"68788999406 ")
 ;;4882
 ;;21,"68788999409 ")
 ;;4883
 ;;21,"68966207301 ")
 ;;4884
 ;;21,"69957010130 ")
 ;;4885
 ;;21,"69957010310 ")
 ;;4886
 ;;21,"69957010330 ")
 ;;4887
 ;;21,"69957010390 ")
 ;;4888
 ;;21,"69957010410 ")
 ;;4889
 ;;21,"69957010430 ")
 ;;4890
 ;;21,"69957010490 ")
 ;;4891
 ;;21,"9220 ")
 ;;2732
 ;;9002226,1005,.01)
 ;;BGPMU ACE ARBS NDCS
 ;;9002226,1005,.02)
 ;;NDC CODES FOR ACE AND ARB
 ;;9002226,1005,.04)
 ;;@
 ;;9002226,1005,.06)
 ;;@
 ;;9002226,1005,.08)
 ;;@
 ;;9002226,1005,.09)
 ;;3110817
 ;;9002226,1005,.11)
 ;;@
 ;;9002226,1005,.12)
 ;;@
 ;;9002226,1005,.13)
 ;;@
 ;;9002226,1005,.14)
 ;;@
 ;;9002226,1005,.15)
 ;;50.67
 ;;9002226,1005,.16)
 ;;1
 ;;9002226,1005,.17)
 ;;@
 ;;9002226,1005,3101)
 ;;@
 ;;9002226.02101,"1005,00 ",.01)
 ;;00
 ;;9002226.02101,"1005,00 ",.02)
 ;;00
 ;;9002226.02101,"1005,00003033810 ",.01)
 ;;00003033810
 ;;9002226.02101,"1005,00003033810 ",.02)
 ;;00003033810
 ;;9002226.02101,"1005,00003033830 ",.01)
 ;;00003033830
 ;;9002226.02101,"1005,00003033830 ",.02)
 ;;00003033830
 ;;9002226.02101,"1005,00003033850 ",.01)
 ;;00003033850
 ;;9002226.02101,"1005,00003033850 ",.02)
 ;;00003033850
 ;;9002226.02101,"1005,00003033892 ",.01)
 ;;00003033892
 ;;9002226.02101,"1005,00003033892 ",.02)
 ;;00003033892
 ;;9002226.02101,"1005,00003034950 ",.01)
 ;;00003034950
 ;;9002226.02101,"1005,00003034950 ",.02)
 ;;00003034950
 ;;9002226.02101,"1005,00003038450 ",.01)
 ;;00003038450
 ;;9002226.02101,"1005,00003038450 ",.02)
 ;;00003038450
 ;;9002226.02101,"1005,00003039046 ",.01)
 ;;00003039046
 ;;9002226.02101,"1005,00003039046 ",.02)
 ;;00003039046
 ;;9002226.02101,"1005,00003039050 ",.01)
 ;;00003039050
 ;;9002226.02101,"1005,00003039050 ",.02)
 ;;00003039050
 ;;9002226.02101,"1005,00003039092 ",.01)
 ;;00003039092
 ;;9002226.02101,"1005,00003039092 ",.02)
 ;;00003039092
 ;;9002226.02101,"1005,00003045051 ",.01)
 ;;00003045051
 ;;9002226.02101,"1005,00003045051 ",.02)
 ;;00003045051
 ;;9002226.02101,"1005,00003045054 ",.01)
 ;;00003045054
 ;;9002226.02101,"1005,00003045054 ",.02)
 ;;00003045054
 ;;9002226.02101,"1005,00003045075 ",.01)
 ;;00003045075
 ;;9002226.02101,"1005,00003045075 ",.02)
 ;;00003045075
 ;;9002226.02101,"1005,00003045250 ",.01)
 ;;00003045250
 ;;9002226.02101,"1005,00003045250 ",.02)
 ;;00003045250
 ;;9002226.02101,"1005,00003045251 ",.01)
 ;;00003045251
 ;;9002226.02101,"1005,00003045251 ",.02)
 ;;00003045251
 ;;9002226.02101,"1005,00003045294 ",.01)
 ;;00003045294
 ;;9002226.02101,"1005,00003045294 ",.02)
 ;;00003045294
 ;;9002226.02101,"1005,00003045295 ",.01)
 ;;00003045295
 ;;9002226.02101,"1005,00003045295 ",.02)
 ;;00003045295
 ;;9002226.02101,"1005,00003048250 ",.01)
 ;;00003048250
 ;;9002226.02101,"1005,00003048250 ",.02)
 ;;00003048250
 ;;9002226.02101,"1005,00003048251 ",.01)
 ;;00003048251
 ;;9002226.02101,"1005,00003048251 ",.02)
 ;;00003048251
 ;;9002226.02101,"1005,00003048275 ",.01)
 ;;00003048275
 ;;9002226.02101,"1005,00003048275 ",.02)
 ;;00003048275
 ;;9002226.02101,"1005,00003048550 ",.01)
 ;;00003048550
 ;;9002226.02101,"1005,00003048550 ",.02)
 ;;00003048550
 ;;9002226.02101,"1005,00006001428 ",.01)
 ;;00006001428
 ;;9002226.02101,"1005,00006001428 ",.02)
 ;;00006001428
 ;;9002226.02101,"1005,00006001468 ",.01)
 ;;00006001468
 ;;9002226.02101,"1005,00006001468 ",.02)
 ;;00006001468
 ;;9002226.02101,"1005,00006001482 ",.01)
 ;;00006001482
 ;;9002226.02101,"1005,00006001482 ",.02)
 ;;00006001482
 ;;9002226.02101,"1005,00006001487 ",.01)
 ;;00006001487
 ;;9002226.02101,"1005,00006001487 ",.02)
 ;;00006001487
 ;;9002226.02101,"1005,00006001494 ",.01)
 ;;00006001494
 ;;9002226.02101,"1005,00006001494 ",.02)
 ;;00006001494
 ;;9002226.02101,"1005,00006001498 ",.01)
 ;;00006001498
 ;;9002226.02101,"1005,00006001498 ",.02)
 ;;00006001498
 ;;9002226.02101,"1005,00006001907 ",.01)
 ;;00006001907
 ;;9002226.02101,"1005,00006001907 ",.02)
 ;;00006001907
 ;;9002226.02101,"1005,00006001928 ",.01)
 ;;00006001928
 ;;9002226.02101,"1005,00006001928 ",.02)
 ;;00006001928
 ;;9002226.02101,"1005,00006001954 ",.01)
 ;;00006001954
 ;;9002226.02101,"1005,00006001954 ",.02)
 ;;00006001954
 ;;9002226.02101,"1005,00006001958 ",.01)
 ;;00006001958
 ;;9002226.02101,"1005,00006001958 ",.02)
 ;;00006001958
 ;;9002226.02101,"1005,00006001972 ",.01)
 ;;00006001972
 ;;9002226.02101,"1005,00006001972 ",.02)
 ;;00006001972
 ;;9002226.02101,"1005,00006001982 ",.01)
 ;;00006001982
 ;;9002226.02101,"1005,00006001982 ",.02)
 ;;00006001982
 ;;9002226.02101,"1005,00006001986 ",.01)
 ;;00006001986
 ;;9002226.02101,"1005,00006001986 ",.02)
 ;;00006001986
 ;;9002226.02101,"1005,00006001987 ",.01)
 ;;00006001987
 ;;9002226.02101,"1005,00006001987 ",.02)
 ;;00006001987
 ;;9002226.02101,"1005,00006001992 ",.01)
 ;;00006001992
 ;;9002226.02101,"1005,00006001992 ",.02)
 ;;00006001992
 ;;9002226.02101,"1005,00006001994 ",.01)
 ;;00006001994
 ;;9002226.02101,"1005,00006001994 ",.02)
 ;;00006001994
 ;;9002226.02101,"1005,00006010628 ",.01)
 ;;00006010628
 ;;9002226.02101,"1005,00006010628 ",.02)
 ;;00006010628
 ;;9002226.02101,"1005,00006010631 ",.01)
 ;;00006010631
 ;;9002226.02101,"1005,00006010631 ",.02)
 ;;00006010631
 ;;9002226.02101,"1005,00006010654 ",.01)
 ;;00006010654
 ;;9002226.02101,"1005,00006010654 ",.02)
 ;;00006010654
 ;;9002226.02101,"1005,00006010658 ",.01)
 ;;00006010658
 ;;9002226.02101,"1005,00006010658 ",.02)
 ;;00006010658
 ;;9002226.02101,"1005,00006010672 ",.01)
 ;;00006010672
 ;;9002226.02101,"1005,00006010672 ",.02)
 ;;00006010672
 ;;9002226.02101,"1005,00006010682 ",.01)
 ;;00006010682
 ;;9002226.02101,"1005,00006010682 ",.02)
 ;;00006010682
 ;;9002226.02101,"1005,00006010686 ",.01)
 ;;00006010686
 ;;9002226.02101,"1005,00006010686 ",.02)
 ;;00006010686
 ;;9002226.02101,"1005,00006010687 ",.01)
 ;;00006010687
 ;;9002226.02101,"1005,00006010687 ",.02)
 ;;00006010687
 ;;9002226.02101,"1005,00006010694 ",.01)
 ;;00006010694
 ;;9002226.02101,"1005,00006010694 ",.02)
 ;;00006010694
 ;;9002226.02101,"1005,00006014031 ",.01)
 ;;00006014031
 ;;9002226.02101,"1005,00006014031 ",.02)
 ;;00006014031
 ;;9002226.02101,"1005,00006014058 ",.01)
 ;;00006014058
 ;;9002226.02101,"1005,00006014058 ",.02)
 ;;00006014058
 ;;9002226.02101,"1005,00006014231 ",.01)
 ;;00006014231
 ;;9002226.02101,"1005,00006014231 ",.02)
 ;;00006014231
 ;;9002226.02101,"1005,00006014558 ",.01)
 ;;00006014558
 ;;9002226.02101,"1005,00006014558 ",.02)
 ;;00006014558
 ;;9002226.02101,"1005,00006017368 ",.01)
 ;;00006017368
 ;;9002226.02101,"1005,00006017368 ",.02)
 ;;00006017368
 ;;9002226.02101,"1005,00006017399 ",.01)
 ;;00006017399
 ;;9002226.02101,"1005,00006017399 ",.02)
 ;;00006017399
 ;;9002226.02101,"1005,00006020728 ",.01)
 ;;00006020728
 ;;9002226.02101,"1005,00006020728 ",.02)
 ;;00006020728
 ;;9002226.02101,"1005,00006020731 ",.01)
 ;;00006020731
 ;;9002226.02101,"1005,00006020731 ",.02)
 ;;00006020731
 ;;9002226.02101,"1005,00006020754 ",.01)
 ;;00006020754
 ;;9002226.02101,"1005,00006020754 ",.02)
 ;;00006020754
 ;;9002226.02101,"1005,00006020758 ",.01)
 ;;00006020758
 ;;9002226.02101,"1005,00006020758 ",.02)
 ;;00006020758
 ;;9002226.02101,"1005,00006020772 ",.01)
 ;;00006020772
 ;;9002226.02101,"1005,00006020772 ",.02)
 ;;00006020772
 ;;9002226.02101,"1005,00006020782 ",.01)
 ;;00006020782
 ;;9002226.02101,"1005,00006020782 ",.02)
 ;;00006020782
 ;;9002226.02101,"1005,00006020787 ",.01)
 ;;00006020787
 ;;9002226.02101,"1005,00006020787 ",.02)
 ;;00006020787
 ;;9002226.02101,"1005,00006020794 ",.01)
 ;;00006020794
 ;;9002226.02101,"1005,00006020794 ",.02)
 ;;00006020794
 ;;9002226.02101,"1005,00006023758 ",.01)
 ;;00006023758
 ;;9002226.02101,"1005,00006023758 ",.02)
 ;;00006023758
 ;;9002226.02101,"1005,00006071228 ",.01)
 ;;00006071228
 ;;9002226.02101,"1005,00006071228 ",.02)
 ;;00006071228
 ;;9002226.02101,"1005,00006071268 ",.01)
 ;;00006071268
 ;;9002226.02101,"1005,00006071268 ",.02)
 ;;00006071268
 ;;9002226.02101,"1005,00006071281 ",.01)
 ;;00006071281
 ;;9002226.02101,"1005,00006071281 ",.02)
 ;;00006071281
 ;;9002226.02101,"1005,00006071282 ",.01)
 ;;00006071282
 ;;9002226.02101,"1005,00006071282 ",.02)
 ;;00006071282
 ;;9002226.02101,"1005,00006071287 ",.01)
 ;;00006071287
 ;;9002226.02101,"1005,00006071287 ",.02)
 ;;00006071287
 ;;9002226.02101,"1005,00006071294 ",.01)
 ;;00006071294
 ;;9002226.02101,"1005,00006071294 ",.02)
 ;;00006071294
 ;;9002226.02101,"1005,00006071298 ",.01)
 ;;00006071298
 ;;9002226.02101,"1005,00006071298 ",.02)
 ;;00006071298
 ;;9002226.02101,"1005,00006071328 ",.01)
 ;;00006071328
 ;;9002226.02101,"1005,00006071328 ",.02)
 ;;00006071328
 ;;9002226.02101,"1005,00006071368 ",.01)
 ;;00006071368
 ;;9002226.02101,"1005,00006071368 ",.02)
 ;;00006071368
 ;;9002226.02101,"1005,00006071382 ",.01)
 ;;00006071382
 ;;9002226.02101,"1005,00006071382 ",.02)
 ;;00006071382
 ;;9002226.02101,"1005,00006071387 ",.01)
 ;;00006071387
 ;;9002226.02101,"1005,00006071387 ",.02)
 ;;00006071387
 ;;9002226.02101,"1005,00006071394 ",.01)
 ;;00006071394
 ;;9002226.02101,"1005,00006071394 ",.02)
 ;;00006071394
 ;;9002226.02101,"1005,00006071398 ",.01)
 ;;00006071398
 ;;9002226.02101,"1005,00006071398 ",.02)
 ;;00006071398
 ;;9002226.02101,"1005,00006071428 ",.01)
 ;;00006071428
 ;;9002226.02101,"1005,00006071428 ",.02)
 ;;00006071428
 ;;9002226.02101,"1005,00006071468 ",.01)
 ;;00006071468
 ;;9002226.02101,"1005,00006071468 ",.02)
 ;;00006071468
 ;;9002226.02101,"1005,00006071482 ",.01)
 ;;00006071482
 ;;9002226.02101,"1005,00006071482 ",.02)
 ;;00006071482
 ;;9002226.02101,"1005,00006071487 ",.01)
 ;;00006071487
 ;;9002226.02101,"1005,00006071487 ",.02)
 ;;00006071487
 ;;9002226.02101,"1005,00006071494 ",.01)
 ;;00006071494
 ;;9002226.02101,"1005,00006071494 ",.02)
 ;;00006071494
 ;;9002226.02101,"1005,00006072068 ",.01)
 ;;00006072068
 ;;9002226.02101,"1005,00006072068 ",.02)
 ;;00006072068
 ;;9002226.02101,"1005,00006072099 ",.01)
 ;;00006072099
 ;;9002226.02101,"1005,00006072099 ",.02)
 ;;00006072099
 ;;9002226.02101,"1005,00006350804 ",.01)
 ;;00006350804
 ;;9002226.02101,"1005,00006350804 ",.02)
 ;;00006350804
 ;;9002226.02101,"1005,00006366131 ",.01)
 ;;00006366131
 ;;9002226.02101,"1005,00006366131 ",.02)
 ;;00006366131
 ;;9002226.02101,"1005,00006366168 ",.01)
 ;;00006366168
 ;;9002226.02101,"1005,00006366168 ",.02)
 ;;00006366168
 ;;9002226.02101,"1005,00024277594 ",.01)
 ;;00024277594
 ;;9002226.02101,"1005,00024277594 ",.02)
 ;;00024277594
 ;;9002226.02101,"1005,00032110101 ",.01)
 ;;00032110101
 ;;9002226.02101,"1005,00032110101 ",.02)
 ;;00032110101
 ;;9002226.02101,"1005,00032110141 ",.01)
 ;;00032110141
 ;;9002226.02101,"1005,00032110141 ",.02)
 ;;00032110141
 ;;9002226.02101,"1005,00032110201 ",.01)
 ;;00032110201
 ;;9002226.02101,"1005,00032110201 ",.02)
 ;;00032110201
 ;;9002226.02101,"1005,00032110241 ",.01)
 ;;00032110241
 ;;9002226.02101,"1005,00032110241 ",.02)
 ;;00032110241
 ;;9002226.02101,"1005,00032110301 ",.01)
 ;;00032110301
 ;;9002226.02101,"1005,00032110301 ",.02)
 ;;00032110301
 ;;9002226.02101,"1005,00039010310 ",.01)
 ;;00039010310
 ;;9002226.02101,"1005,00039010310 ",.02)
 ;;00039010310
 ;;9002226.02101,"1005,00039010311 ",.01)
 ;;00039010311
 ;;9002226.02101,"1005,00039010311 ",.02)
 ;;00039010311