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

BGPM5AXH.m

Go to the documentation of this file.
  1. BGPM5AXH ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 30, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;21,"63629279201 ")
  1. ;;205
  1. ;;21,"63629279202 ")
  1. ;;206
  1. ;;21,"63629355101 ")
  1. ;;207
  1. ;;21,"63874044301 ")
  1. ;;208
  1. ;;21,"63874044315 ")
  1. ;;209
  1. ;;21,"63874044320 ")
  1. ;;210
  1. ;;21,"63874044330 ")
  1. ;;211
  1. ;;21,"63874044701 ")
  1. ;;212
  1. ;;21,"63874044715 ")
  1. ;;213
  1. ;;21,"63874044720 ")
  1. ;;214
  1. ;;21,"63874044730 ")
  1. ;;215
  1. ;;21,"63874044760 ")
  1. ;;216
  1. ;;21,"63874067501 ")
  1. ;;217
  1. ;;21,"63874067515 ")
  1. ;;218
  1. ;;21,"63874067520 ")
  1. ;;219
  1. ;;21,"64725032703 ")
  1. ;;220
  1. ;;21,"64725032803 ")
  1. ;;221
  1. ;;21,"65162032411 ")
  1. ;;222
  1. ;;21,"65162032510 ")
  1. ;;223
  1. ;;21,"65162032511 ")
  1. ;;224
  1. ;;21,"65162033510 ")
  1. ;;225
  1. ;;21,"66267082310 ")
  1. ;;226
  1. ;;21,"66466304600 ")
  1. ;;227
  1. ;;21,"66466304601 ")
  1. ;;228
  1. ;;21,"67228013903 ")
  1. ;;229
  1. ;;21,"67228013906 ")
  1. ;;230
  1. ;;21,"67228018003 ")
  1. ;;231
  1. ;;21,"67228018006 ")
  1. ;;232
  1. ;;21,"67228018103 ")
  1. ;;233
  1. ;;21,"67228018106 ")
  1. ;;234
  1. ;;21,"67544084932 ")
  1. ;;235
  1. ;;21,"68071040830 ")
  1. ;;236
  1. ;;21,"68462035601 ")
  1. ;;237
  1. ;;21,"68462035605 ")
  1. ;;238
  1. ;;21,"68462038001 ")
  1. ;;239
  1. ;;21,"68462038005 ")
  1. ;;240
  1. ;;9002226,1034,.01)
  1. ;;BGPMU ASTHMA GENERAL NDCS
  1. ;;9002226,1034,.02)
  1. ;;Asthma meds no inhalers
  1. ;;9002226,1034,.04)
  1. ;;@
  1. ;;9002226,1034,.06)
  1. ;;@
  1. ;;9002226,1034,.08)
  1. ;;@
  1. ;;9002226,1034,.09)
  1. ;;@
  1. ;;9002226,1034,.11)
  1. ;;@
  1. ;;9002226,1034,.12)
  1. ;;@
  1. ;;9002226,1034,.13)
  1. ;;@
  1. ;;9002226,1034,.14)
  1. ;;@
  1. ;;9002226,1034,.15)
  1. ;;50.67
  1. ;;9002226,1034,.16)
  1. ;;@
  1. ;;9002226,1034,.17)
  1. ;;@
  1. ;;9002226,1034,3101)
  1. ;;@
  1. ;;9002226.02101,"1034,00054884501 ",.01)
  1. ;;00054884501
  1. ;;9002226.02101,"1034,00054884501 ",.02)
  1. ;;00054884501
  1. ;;9002226.02101,"1034,00054884816 ",.01)
  1. ;;00054884816
  1. ;;9002226.02101,"1034,00054884816 ",.02)
  1. ;;00054884816
  1. ;;9002226.02101,"1034,00074490918 ",.01)
  1. ;;00074490918
  1. ;;9002226.02101,"1034,00074490918 ",.02)
  1. ;;00074490918
  1. ;;9002226.02101,"1034,00074766503 ",.01)
  1. ;;00074766503
  1. ;;9002226.02101,"1034,00074766503 ",.02)
  1. ;;00074766503
  1. ;;9002226.02101,"1034,00074766662 ",.01)
  1. ;;00074766662
  1. ;;9002226.02101,"1034,00074766662 ",.02)
  1. ;;00074766662
  1. ;;9002226.02101,"1034,00074767713 ",.01)
  1. ;;00074767713
  1. ;;9002226.02101,"1034,00074767713 ",.02)
  1. ;;00074767713
  1. ;;9002226.02101,"1034,00121479415 ",.01)
  1. ;;00121479415
  1. ;;9002226.02101,"1034,00121479415 ",.02)
  1. ;;00121479415
  1. ;;9002226.02101,"1034,00143102001 ",.01)
  1. ;;00143102001
  1. ;;9002226.02101,"1034,00143102001 ",.02)
  1. ;;00143102001
  1. ;;9002226.02101,"1034,00143102010 ",.01)
  1. ;;00143102010
  1. ;;9002226.02101,"1034,00143102010 ",.02)
  1. ;;00143102010
  1. ;;9002226.02101,"1034,00143102025 ",.01)
  1. ;;00143102025
  1. ;;9002226.02101,"1034,00143102025 ",.02)
  1. ;;00143102025
  1. ;;9002226.02101,"1034,00143102501 ",.01)
  1. ;;00143102501
  1. ;;9002226.02101,"1034,00143102501 ",.02)
  1. ;;00143102501
  1. ;;9002226.02101,"1034,00143102510 ",.01)
  1. ;;00143102510
  1. ;;9002226.02101,"1034,00143102510 ",.02)
  1. ;;00143102510
  1. ;;9002226.02101,"1034,00143102525 ",.01)
  1. ;;00143102525
  1. ;;9002226.02101,"1034,00143102525 ",.02)
  1. ;;00143102525
  1. ;;9002226.02101,"1034,00179142202 ",.01)
  1. ;;00179142202
  1. ;;9002226.02101,"1034,00179142202 ",.02)
  1. ;;00179142202
  1. ;;9002226.02101,"1034,00179142270 ",.01)
  1. ;;00179142270
  1. ;;9002226.02101,"1034,00179142270 ",.02)
  1. ;;00179142270
  1. ;;9002226.02101,"1034,00179142271 ",.01)
  1. ;;00179142271
  1. ;;9002226.02101,"1034,00179142271 ",.02)
  1. ;;00179142271
  1. ;;9002226.02101,"1034,00179142272 ",.01)
  1. ;;00179142272
  1. ;;9002226.02101,"1034,00179142272 ",.02)
  1. ;;00179142272
  1. ;;9002226.02101,"1034,00179142302 ",.01)
  1. ;;00179142302
  1. ;;9002226.02101,"1034,00179142302 ",.02)
  1. ;;00179142302
  1. ;;9002226.02101,"1034,00179142370 ",.01)
  1. ;;00179142370
  1. ;;9002226.02101,"1034,00179142370 ",.02)
  1. ;;00179142370
  1. ;;9002226.02101,"1034,00179154970 ",.01)
  1. ;;00179154970
  1. ;;9002226.02101,"1034,00179154970 ",.02)
  1. ;;00179154970
  1. ;;9002226.02101,"1034,00179154971 ",.01)
  1. ;;00179154971
  1. ;;9002226.02101,"1034,00179154971 ",.02)
  1. ;;00179154971
  1. ;;9002226.02101,"1034,00179154972 ",.01)
  1. ;;00179154972
  1. ;;9002226.02101,"1034,00179154972 ",.02)
  1. ;;00179154972
  1. ;;9002226.02101,"1034,00179155070 ",.01)
  1. ;;00179155070
  1. ;;9002226.02101,"1034,00179155070 ",.02)
  1. ;;00179155070
  1. ;;9002226.02101,"1034,00179155071 ",.01)
  1. ;;00179155071
  1. ;;9002226.02101,"1034,00179155071 ",.02)
  1. ;;00179155071
  1. ;;9002226.02101,"1034,00179155072 ",.01)
  1. ;;00179155072
  1. ;;9002226.02101,"1034,00179155072 ",.02)
  1. ;;00179155072
  1. ;;9002226.02101,"1034,00179174370 ",.01)
  1. ;;00179174370
  1. ;;9002226.02101,"1034,00179174370 ",.02)
  1. ;;00179174370
  1. ;;9002226.02101,"1034,00179174371 ",.01)
  1. ;;00179174371
  1. ;;9002226.02101,"1034,00179174371 ",.02)
  1. ;;00179174371
  1. ;;9002226.02101,"1034,00179174372 ",.01)
  1. ;;00179174372
  1. ;;9002226.02101,"1034,00179174372 ",.02)
  1. ;;00179174372
  1. ;;9002226.02101,"1034,00182140089 ",.01)
  1. ;;00182140089
  1. ;;9002226.02101,"1034,00182140089 ",.02)
  1. ;;00182140089
  1. ;;9002226.02101,"1034,00182158989 ",.01)
  1. ;;00182158989
  1. ;;9002226.02101,"1034,00182158989 ",.02)
  1. ;;00182158989
  1. ;;9002226.02101,"1034,00182159089 ",.01)
  1. ;;00182159089
  1. ;;9002226.02101,"1034,00182159089 ",.02)
  1. ;;00182159089
  1. ;;9002226.02101,"1034,00247065602 ",.01)
  1. ;;00247065602
  1. ;;9002226.02101,"1034,00247065602 ",.02)
  1. ;;00247065602
  1. ;;9002226.02101,"1034,00247065604 ",.01)
  1. ;;00247065604
  1. ;;9002226.02101,"1034,00247065604 ",.02)
  1. ;;00247065604
  1. ;;9002226.02101,"1034,00247065610 ",.01)
  1. ;;00247065610
  1. ;;9002226.02101,"1034,00247065610 ",.02)
  1. ;;00247065610
  1. ;;9002226.02101,"1034,00247065614 ",.01)
  1. ;;00247065614
  1. ;;9002226.02101,"1034,00247065614 ",.02)
  1. ;;00247065614
  1. ;;9002226.02101,"1034,00247065620 ",.01)
  1. ;;00247065620
  1. ;;9002226.02101,"1034,00247065620 ",.02)
  1. ;;00247065620
  1. ;;9002226.02101,"1034,00247065628 ",.01)
  1. ;;00247065628
  1. ;;9002226.02101,"1034,00247065628 ",.02)
  1. ;;00247065628
  1. ;;9002226.02101,"1034,00247065630 ",.01)
  1. ;;00247065630
  1. ;;9002226.02101,"1034,00247065630 ",.02)
  1. ;;00247065630
  1. ;;9002226.02101,"1034,00247065660 ",.01)
  1. ;;00247065660
  1. ;;9002226.02101,"1034,00247065660 ",.02)
  1. ;;00247065660
  1. ;;9002226.02101,"1034,00247082406 ",.01)
  1. ;;00247082406
  1. ;;9002226.02101,"1034,00247082406 ",.02)
  1. ;;00247082406
  1. ;;9002226.02101,"1034,00247082410 ",.01)
  1. ;;00247082410
  1. ;;9002226.02101,"1034,00247082410 ",.02)
  1. ;;00247082410
  1. ;;9002226.02101,"1034,00247082430 ",.01)
  1. ;;00247082430
  1. ;;9002226.02101,"1034,00247082430 ",.02)
  1. ;;00247082430
  1. ;;9002226.02101,"1034,00247082460 ",.01)
  1. ;;00247082460
  1. ;;9002226.02101,"1034,00247082460 ",.02)
  1. ;;00247082460
  1. ;;9002226.02101,"1034,00247082490 ",.01)
  1. ;;00247082490
  1. ;;9002226.02101,"1034,00247082490 ",.02)
  1. ;;00247082490
  1. ;;9002226.02101,"1034,00258358101 ",.01)
  1. ;;00258358101
  1. ;;9002226.02101,"1034,00258358101 ",.02)
  1. ;;00258358101
  1. ;;9002226.02101,"1034,00258358105 ",.01)
  1. ;;00258358105
  1. ;;9002226.02101,"1034,00258358105 ",.02)
  1. ;;00258358105
  1. ;;9002226.02101,"1034,00258358110 ",.01)
  1. ;;00258358110
  1. ;;9002226.02101,"1034,00258358110 ",.02)
  1. ;;00258358110
  1. ;;9002226.02101,"1034,00258358301 ",.01)
  1. ;;00258358301
  1. ;;9002226.02101,"1034,00258358301 ",.02)
  1. ;;00258358301
  1. ;;9002226.02101,"1034,00258358305 ",.01)
  1. ;;00258358305
  1. ;;9002226.02101,"1034,00258358305 ",.02)
  1. ;;00258358305
  1. ;;9002226.02101,"1034,00258358310 ",.01)
  1. ;;00258358310
  1. ;;9002226.02101,"1034,00258358310 ",.02)
  1. ;;00258358310
  1. ;;9002226.02101,"1034,00258358401 ",.01)
  1. ;;00258358401
  1. ;;9002226.02101,"1034,00258358401 ",.02)
  1. ;;00258358401
  1. ;;9002226.02101,"1034,00258358405 ",.01)
  1. ;;00258358405
  1. ;;9002226.02101,"1034,00258358405 ",.02)
  1. ;;00258358405
  1. ;;9002226.02101,"1034,00258358410 ",.01)
  1. ;;00258358410
  1. ;;9002226.02101,"1034,00258358410 ",.02)
  1. ;;00258358410
  1. ;;9002226.02101,"1034,00258361410 ",.01)
  1. ;;00258361410
  1. ;;9002226.02101,"1034,00258361410 ",.02)
  1. ;;00258361410
  1. ;;9002226.02101,"1034,00258362501 ",.01)
  1. ;;00258362501
  1. ;;9002226.02101,"1034,00258362501 ",.02)
  1. ;;00258362501
  1. ;;9002226.02101,"1034,00258363401 ",.01)
  1. ;;00258363401
  1. ;;9002226.02101,"1034,00258363401 ",.02)
  1. ;;00258363401
  1. ;;9002226.02101,"1034,00258363701 ",.01)
  1. ;;00258363701
  1. ;;9002226.02101,"1034,00258363701 ",.02)
  1. ;;00258363701
  1. ;;9002226.02101,"1034,00258363801 ",.01)
  1. ;;00258363801
  1. ;;9002226.02101,"1034,00258363801 ",.02)
  1. ;;00258363801
  1. ;;9002226.02101,"1034,00264955400 ",.01)
  1. ;;00264955400
  1. ;;9002226.02101,"1034,00264955400 ",.02)
  1. ;;00264955400
  1. ;;9002226.02101,"1034,00264955410 ",.01)
  1. ;;00264955410
  1. ;;9002226.02101,"1034,00264955410 ",.02)
  1. ;;00264955410
  1. ;;9002226.02101,"1034,00264955810 ",.01)
  1. ;;00264955810
  1. ;;9002226.02101,"1034,00264955810 ",.02)
  1. ;;00264955810
  1. ;;9002226.02101,"1034,00264955820 ",.01)
  1. ;;00264955820
  1. ;;9002226.02101,"1034,00264955820 ",.02)
  1. ;;00264955820
  1. ;;9002226.02101,"1034,00338043903 ",.01)
  1. ;;00338043903
  1. ;;9002226.02101,"1034,00338043903 ",.02)
  1. ;;00338043903
  1. ;;9002226.02101,"1034,00338043904 ",.01)
  1. ;;00338043904
  1. ;;9002226.02101,"1034,00338043904 ",.02)
  1. ;;00338043904
  1. ;;9002226.02101,"1034,00338044102 ",.01)
  1. ;;00338044102
  1. ;;9002226.02101,"1034,00338044102 ",.02)
  1. ;;00338044102
  1. ;;9002226.02101,"1034,00338044103 ",.01)
  1. ;;00338044103
  1. ;;9002226.02101,"1034,00338044103 ",.02)
  1. ;;00338044103
  1. ;;9002226.02101,"1034,00338044348 ",.01)
  1. ;;00338044348
  1. ;;9002226.02101,"1034,00338044348 ",.02)
  1. ;;00338044348
  1. ;;9002226.02101,"1034,00338044402 ",.01)
  1. ;;00338044402
  1. ;;9002226.02101,"1034,00338044402 ",.02)
  1. ;;00338044402
  1. ;;9002226.02101,"1034,00338044541 ",.01)
  1. ;;00338044541
  1. ;;9002226.02101,"1034,00338044541 ",.02)
  1. ;;00338044541
  1. ;;9002226.02101,"1034,00338044548 ",.01)
  1. ;;00338044548
  1. ;;9002226.02101,"1034,00338044548 ",.02)
  1. ;;00338044548
  1. ;;9002226.02101,"1034,00339570011 ",.01)
  1. ;;00339570011
  1. ;;9002226.02101,"1034,00339570011 ",.02)
  1. ;;00339570011
  1. ;;9002226.02101,"1034,00339570014 ",.01)
  1. ;;00339570014
  1. ;;9002226.02101,"1034,00339570014 ",.02)
  1. ;;00339570014
  1. ;;9002226.02101,"1034,00409592101 ",.01)
  1. ;;00409592101
  1. ;;9002226.02101,"1034,00409592101 ",.02)
  1. ;;00409592101
  1. ;;9002226.02101,"1034,00409592201 ",.01)
  1. ;;00409592201
  1. ;;9002226.02101,"1034,00409592201 ",.02)
  1. ;;00409592201
  1. ;;9002226.02101,"1034,00409738501 ",.01)
  1. ;;00409738501
  1. ;;9002226.02101,"1034,00409738501 ",.02)
  1. ;;00409738501
  1. ;;9002226.02101,"1034,00409738601 ",.01)
  1. ;;00409738601
  1. ;;9002226.02101,"1034,00409738601 ",.02)
  1. ;;00409738601
  1. ;;9002226.02101,"1034,00409766503 ",.01)
  1. ;;00409766503
  1. ;;9002226.02101,"1034,00409766503 ",.02)
  1. ;;00409766503
  1. ;;9002226.02101,"1034,00409766509 ",.01)
  1. ;;00409766509
  1. ;;9002226.02101,"1034,00409766509 ",.02)
  1. ;;00409766509
  1. ;;9002226.02101,"1034,00409766602 ",.01)
  1. ;;00409766602
  1. ;;9002226.02101,"1034,00409766602 ",.02)
  1. ;;00409766602
  1. ;;9002226.02101,"1034,00409766603 ",.01)
  1. ;;00409766603
  1. ;;9002226.02101,"1034,00409766603 ",.02)
  1. ;;00409766603
  1. ;;9002226.02101,"1034,00409766662 ",.01)
  1. ;;00409766662
  1. ;;9002226.02101,"1034,00409766662 ",.02)
  1. ;;00409766662
  1. ;;9002226.02101,"1034,00409766823 ",.01)
  1. ;;00409766823
  1. ;;9002226.02101,"1034,00409766823 ",.02)
  1. ;;00409766823
  1. ;;9002226.02101,"1034,00409767713 ",.01)
  1. ;;00409767713
  1. ;;9002226.02101,"1034,00409767713 ",.02)
  1. ;;00409767713
  1. ;;9002226.02101,"1034,00409767723 ",.01)
  1. ;;00409767723
  1. ;;9002226.02101,"1034,00409767723 ",.02)
  1. ;;00409767723
  1. ;;9002226.02101,"1034,00409770562 ",.01)
  1. ;;00409770562
  1. ;;9002226.02101,"1034,00409770562 ",.02)
  1. ;;00409770562
  1. ;;9002226.02101,"1034,00463600110 ",.01)
  1. ;;00463600110
  1. ;;9002226.02101,"1034,00463600110 ",.02)
  1. ;;00463600110
  1. ;;9002226.02101,"1034,00463600310 ",.01)
  1. ;;00463600310