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

BGPM5AIY.m

Go to the documentation of this file.
BGPM5AIY ;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,"68788904909 ")
 ;;3439
 ;;21,"68884046797 ")
 ;;3440
 ;;21,"68884046897 ")
 ;;3441
 ;;21,"68884046997 ")
 ;;3442
 ;;21,"68884047097 ")
 ;;3443
 ;;21,"68884047197 ")
 ;;3444
 ;;21,"68966003201 ")
 ;;3445
 ;;21,"68966577701 ")
 ;;3446
 ;;9002226,889,.01)
 ;;BGPMU BETABLOCKER NDCS
 ;;9002226,889,.02)
 ;;Beta Blocker NDC Codes
 ;;9002226,889,.04)
 ;;n
 ;;9002226,889,.06)
 ;;@
 ;;9002226,889,.08)
 ;;@
 ;;9002226,889,.09)
 ;;3110714
 ;;9002226,889,.11)
 ;;@
 ;;9002226,889,.12)
 ;;@
 ;;9002226,889,.13)
 ;;@
 ;;9002226,889,.14)
 ;;@
 ;;9002226,889,.15)
 ;;@
 ;;9002226,889,.16)
 ;;@
 ;;9002226,889,.17)
 ;;@
 ;;9002226,889,3101)
 ;;@
 ;;9002226.02101,"889,00003020750 ",.01)
 ;;00003020750
 ;;9002226.02101,"889,00003020750 ",.02)
 ;;00003020750
 ;;9002226.02101,"889,00003020753 ",.01)
 ;;00003020753
 ;;9002226.02101,"889,00003020753 ",.02)
 ;;00003020753
 ;;9002226.02101,"889,00003020767 ",.01)
 ;;00003020767
 ;;9002226.02101,"889,00003020767 ",.02)
 ;;00003020767
 ;;9002226.02101,"889,00003020776 ",.01)
 ;;00003020776
 ;;9002226.02101,"889,00003020776 ",.02)
 ;;00003020776
 ;;9002226.02101,"889,00003020850 ",.01)
 ;;00003020850
 ;;9002226.02101,"889,00003020850 ",.02)
 ;;00003020850
 ;;9002226.02101,"889,00003020876 ",.01)
 ;;00003020876
 ;;9002226.02101,"889,00003020876 ",.02)
 ;;00003020876
 ;;9002226.02101,"889,00003023215 ",.01)
 ;;00003023215
 ;;9002226.02101,"889,00003023215 ",.02)
 ;;00003023215
 ;;9002226.02101,"889,00003023250 ",.01)
 ;;00003023250
 ;;9002226.02101,"889,00003023250 ",.02)
 ;;00003023250
 ;;9002226.02101,"889,00003023251 ",.01)
 ;;00003023251
 ;;9002226.02101,"889,00003023251 ",.02)
 ;;00003023251
 ;;9002226.02101,"889,00003024150 ",.01)
 ;;00003024150
 ;;9002226.02101,"889,00003024150 ",.02)
 ;;00003024150
 ;;9002226.02101,"889,00003024155 ",.01)
 ;;00003024155
 ;;9002226.02101,"889,00003024155 ",.02)
 ;;00003024155
 ;;9002226.02101,"889,00003024176 ",.01)
 ;;00003024176
 ;;9002226.02101,"889,00003024176 ",.02)
 ;;00003024176
 ;;9002226.02101,"889,00003024649 ",.01)
 ;;00003024649
 ;;9002226.02101,"889,00003024649 ",.02)
 ;;00003024649
 ;;9002226.02101,"889,00003028316 ",.01)
 ;;00003028316
 ;;9002226.02101,"889,00003028316 ",.02)
 ;;00003028316
 ;;9002226.02101,"889,00003028350 ",.01)
 ;;00003028350
 ;;9002226.02101,"889,00003028350 ",.02)
 ;;00003028350
 ;;9002226.02101,"889,00003028450 ",.01)
 ;;00003028450
 ;;9002226.02101,"889,00003028450 ",.02)
 ;;00003028450
 ;;9002226.02101,"889,00005323423 ",.01)
 ;;00005323423
 ;;9002226.02101,"889,00005323423 ",.02)
 ;;00005323423
 ;;9002226.02101,"889,00005323538 ",.01)
 ;;00005323538
 ;;9002226.02101,"889,00005323538 ",.02)
 ;;00005323538
 ;;9002226.02101,"889,00005323823 ",.01)
 ;;00005323823
 ;;9002226.02101,"889,00005323823 ",.02)
 ;;00005323823
 ;;9002226.02101,"889,00005381638 ",.01)
 ;;00005381638
 ;;9002226.02101,"889,00005381638 ",.02)
 ;;00005381638
 ;;9002226.02101,"889,00005381738 ",.01)
 ;;00005381738
 ;;9002226.02101,"889,00005381738 ",.02)
 ;;00005381738
 ;;9002226.02101,"889,00006005968 ",.01)
 ;;00006005968
 ;;9002226.02101,"889,00006005968 ",.02)
 ;;00006005968
 ;;9002226.02101,"889,00006013668 ",.01)
 ;;00006013668
 ;;9002226.02101,"889,00006013668 ",.02)
 ;;00006013668
 ;;9002226.02101,"889,00006043768 ",.01)
 ;;00006043768
 ;;9002226.02101,"889,00006043768 ",.02)
 ;;00006043768
 ;;9002226.02101,"889,00007413906 ",.01)
 ;;00007413906
 ;;9002226.02101,"889,00007413906 ",.02)
 ;;00007413906
 ;;9002226.02101,"889,00007413920 ",.01)
 ;;00007413920
 ;;9002226.02101,"889,00007413920 ",.02)
 ;;00007413920
 ;;9002226.02101,"889,00007414020 ",.01)
 ;;00007414020
 ;;9002226.02101,"889,00007414020 ",.02)
 ;;00007414020
 ;;9002226.02101,"889,00007414120 ",.01)
 ;;00007414120
 ;;9002226.02101,"889,00007414120 ",.02)
 ;;00007414120
 ;;9002226.02101,"889,00007414220 ",.01)
 ;;00007414220
 ;;9002226.02101,"889,00007414220 ",.02)
 ;;00007414220
 ;;9002226.02101,"889,00015246201 ",.01)
 ;;00015246201
 ;;9002226.02101,"889,00015246201 ",.02)
 ;;00015246201
 ;;9002226.02101,"889,00015246202 ",.01)
 ;;00015246202
 ;;9002226.02101,"889,00015246202 ",.02)
 ;;00015246202
 ;;9002226.02101,"889,00015246203 ",.01)
 ;;00015246203
 ;;9002226.02101,"889,00015246203 ",.02)
 ;;00015246203
 ;;9002226.02101,"889,00024230020 ",.01)
 ;;00024230020
 ;;9002226.02101,"889,00024230020 ",.02)
 ;;00024230020
 ;;9002226.02101,"889,00024230110 ",.01)
 ;;00024230110
 ;;9002226.02101,"889,00024230110 ",.02)
 ;;00024230110
 ;;9002226.02101,"889,00025510131 ",.01)
 ;;00025510131
 ;;9002226.02101,"889,00025510131 ",.02)
 ;;00025510131
 ;;9002226.02101,"889,00025520131 ",.01)
 ;;00025520131
 ;;9002226.02101,"889,00025520131 ",.02)
 ;;00025520131
 ;;9002226.02101,"889,00028003501 ",.01)
 ;;00028003501
 ;;9002226.02101,"889,00028003501 ",.02)
 ;;00028003501
 ;;9002226.02101,"889,00028005101 ",.01)
 ;;00028005101
 ;;9002226.02101,"889,00028005101 ",.02)
 ;;00028005101
 ;;9002226.02101,"889,00028005110 ",.01)
 ;;00028005110
 ;;9002226.02101,"889,00028005110 ",.02)
 ;;00028005110
 ;;9002226.02101,"889,00028005114 ",.01)
 ;;00028005114
 ;;9002226.02101,"889,00028005114 ",.02)
 ;;00028005114
 ;;9002226.02101,"889,00028005136 ",.01)
 ;;00028005136
 ;;9002226.02101,"889,00028005136 ",.02)
 ;;00028005136
 ;;9002226.02101,"889,00028005161 ",.01)
 ;;00028005161
 ;;9002226.02101,"889,00028005161 ",.02)
 ;;00028005161
 ;;9002226.02101,"889,00028005165 ",.01)
 ;;00028005165
 ;;9002226.02101,"889,00028005165 ",.02)
 ;;00028005165
 ;;9002226.02101,"889,00028005301 ",.01)
 ;;00028005301
 ;;9002226.02101,"889,00028005301 ",.02)
 ;;00028005301
 ;;9002226.02101,"889,00028007101 ",.01)
 ;;00028007101
 ;;9002226.02101,"889,00028007101 ",.02)
 ;;00028007101
 ;;9002226.02101,"889,00028007110 ",.01)
 ;;00028007110
 ;;9002226.02101,"889,00028007110 ",.02)
 ;;00028007110
 ;;9002226.02101,"889,00028007114 ",.01)
 ;;00028007114
 ;;9002226.02101,"889,00028007114 ",.02)
 ;;00028007114
 ;;9002226.02101,"889,00028007161 ",.01)
 ;;00028007161
 ;;9002226.02101,"889,00028007161 ",.02)
 ;;00028007161
 ;;9002226.02101,"889,00028007165 ",.01)
 ;;00028007165
 ;;9002226.02101,"889,00028007165 ",.02)
 ;;00028007165
 ;;9002226.02101,"889,00028007173 ",.01)
 ;;00028007173
 ;;9002226.02101,"889,00028007173 ",.02)
 ;;00028007173
 ;;9002226.02101,"889,00028007301 ",.01)
 ;;00028007301
 ;;9002226.02101,"889,00028007301 ",.02)
 ;;00028007301
 ;;9002226.02101,"889,00028007339 ",.01)
 ;;00028007339
 ;;9002226.02101,"889,00028007339 ",.02)
 ;;00028007339
 ;;9002226.02101,"889,00028137100 ",.01)
 ;;00028137100
 ;;9002226.02101,"889,00028137100 ",.02)
 ;;00028137100
 ;;9002226.02101,"889,00028137200 ",.01)
 ;;00028137200
 ;;9002226.02101,"889,00028137200 ",.02)
 ;;00028137200
 ;;9002226.02101,"889,00028420133 ",.01)
 ;;00028420133
 ;;9002226.02101,"889,00028420133 ",.02)
 ;;00028420133
 ;;9002226.02101,"889,00046042681 ",.01)
 ;;00046042681
 ;;9002226.02101,"889,00046042681 ",.02)
 ;;00046042681
 ;;9002226.02101,"889,00046042881 ",.01)
 ;;00046042881
 ;;9002226.02101,"889,00046042881 ",.02)
 ;;00046042881
 ;;9002226.02101,"889,00046047081 ",.01)
 ;;00046047081
 ;;9002226.02101,"889,00046047081 ",.02)
 ;;00046047081
 ;;9002226.02101,"889,00046047181 ",.01)
 ;;00046047181
 ;;9002226.02101,"889,00046047181 ",.02)
 ;;00046047181
 ;;9002226.02101,"889,00046047381 ",.01)
 ;;00046047381
 ;;9002226.02101,"889,00046047381 ",.02)
 ;;00046047381
 ;;9002226.02101,"889,00046047981 ",.01)
 ;;00046047981
 ;;9002226.02101,"889,00046047981 ",.02)
 ;;00046047981
 ;;9002226.02101,"889,00046048481 ",.01)
 ;;00046048481
 ;;9002226.02101,"889,00046048481 ",.02)
 ;;00046048481
 ;;9002226.02101,"889,00046326510 ",.01)
 ;;00046326510
 ;;9002226.02101,"889,00046326510 ",.02)
 ;;00046326510
 ;;9002226.02101,"889,00054372763 ",.01)
 ;;00054372763
 ;;9002226.02101,"889,00054372763 ",.02)
 ;;00054372763
 ;;9002226.02101,"889,00054373063 ",.01)
 ;;00054373063
 ;;9002226.02101,"889,00054373063 ",.02)
 ;;00054373063
 ;;9002226.02101,"889,00074226705 ",.01)
 ;;00074226705
 ;;9002226.02101,"889,00074226705 ",.02)
 ;;00074226705
 ;;9002226.02101,"889,00074226711 ",.01)
 ;;00074226711
 ;;9002226.02101,"889,00074226711 ",.02)
 ;;00074226711
 ;;9002226.02101,"889,00074226720 ",.01)
 ;;00074226720
 ;;9002226.02101,"889,00074226720 ",.02)
 ;;00074226720
 ;;9002226.02101,"889,00074226734 ",.01)
 ;;00074226734
 ;;9002226.02101,"889,00074226734 ",.02)
 ;;00074226734
 ;;9002226.02101,"889,00078007305 ",.01)
 ;;00078007305
 ;;9002226.02101,"889,00078007305 ",.02)
 ;;00078007305
 ;;9002226.02101,"889,00078011105 ",.01)
 ;;00078011105
 ;;9002226.02101,"889,00078011105 ",.02)
 ;;00078011105
 ;;9002226.02101,"889,00078040001 ",.01)
 ;;00078040001
 ;;9002226.02101,"889,00078040001 ",.02)
 ;;00078040001
 ;;9002226.02101,"889,00078040061 ",.01)
 ;;00078040061
 ;;9002226.02101,"889,00078040061 ",.02)
 ;;00078040061
 ;;9002226.02101,"889,00078045805 ",.01)
 ;;00078045805
 ;;9002226.02101,"889,00078045805 ",.02)
 ;;00078045805
 ;;9002226.02101,"889,00078045809 ",.01)
 ;;00078045809
 ;;9002226.02101,"889,00078045809 ",.02)
 ;;00078045809
 ;;9002226.02101,"889,00078045905 ",.01)
 ;;00078045905
 ;;9002226.02101,"889,00078045905 ",.02)
 ;;00078045905
 ;;9002226.02101,"889,00078045909 ",.01)
 ;;00078045909
 ;;9002226.02101,"889,00078045909 ",.02)
 ;;00078045909
 ;;9002226.02101,"889,00078046005 ",.01)
 ;;00078046005
 ;;9002226.02101,"889,00078046005 ",.02)
 ;;00078046005
 ;;9002226.02101,"889,00078046105 ",.01)
 ;;00078046105
 ;;9002226.02101,"889,00078046105 ",.02)
 ;;00078046105
 ;;9002226.02101,"889,00078046205 ",.01)
 ;;00078046205
 ;;9002226.02101,"889,00078046205 ",.02)
 ;;00078046205
 ;;9002226.02101,"889,00078054605 ",.01)
 ;;00078054605
 ;;9002226.02101,"889,00078054605 ",.02)
 ;;00078054605
 ;;9002226.02101,"889,00078054609 ",.01)
 ;;00078054609
 ;;9002226.02101,"889,00078054609 ",.02)
 ;;00078054609
 ;;9002226.02101,"889,00078054705 ",.01)
 ;;00078054705
 ;;9002226.02101,"889,00078054705 ",.02)
 ;;00078054705
 ;;9002226.02101,"889,00078054709 ",.01)
 ;;00078054709
 ;;9002226.02101,"889,00078054709 ",.02)
 ;;00078054709
 ;;9002226.02101,"889,00078054805 ",.01)
 ;;00078054805
 ;;9002226.02101,"889,00078054805 ",.02)
 ;;00078054805
 ;;9002226.02101,"889,00078054905 ",.01)
 ;;00078054905
 ;;9002226.02101,"889,00078054905 ",.02)
 ;;00078054905
 ;;9002226.02101,"889,00078055005 ",.01)
 ;;00078055005
 ;;9002226.02101,"889,00078055005 ",.02)
 ;;00078055005
 ;;9002226.02101,"889,00078057605 ",.01)
 ;;00078057605
 ;;9002226.02101,"889,00078057605 ",.02)
 ;;00078057605
 ;;9002226.02101,"889,00078057705 ",.01)
 ;;00078057705
 ;;9002226.02101,"889,00078057705 ",.02)
 ;;00078057705
 ;;9002226.02101,"889,00078057805 ",.01)
 ;;00078057805
 ;;9002226.02101,"889,00078057805 ",.02)
 ;;00078057805
 ;;9002226.02101,"889,00083005101 ",.01)
 ;;00083005101
 ;;9002226.02101,"889,00083005101 ",.02)
 ;;00083005101
 ;;9002226.02101,"889,00085024404 ",.01)
 ;;00085024404
 ;;9002226.02101,"889,00085024404 ",.02)
 ;;00085024404
 ;;9002226.02101,"889,00085024405 ",.01)
 ;;00085024405
 ;;9002226.02101,"889,00085024405 ",.02)
 ;;00085024405
 ;;9002226.02101,"889,00085024407 ",.01)
 ;;00085024407
 ;;9002226.02101,"889,00085024407 ",.02)
 ;;00085024407
 ;;9002226.02101,"889,00085024408 ",.01)
 ;;00085024408
 ;;9002226.02101,"889,00085024408 ",.02)
 ;;00085024408
 ;;9002226.02101,"889,00085036206 ",.01)
 ;;00085036206
 ;;9002226.02101,"889,00085036206 ",.02)
 ;;00085036206