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