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

BGPM5AXQ.m

Go to the documentation of this file.
BGPM5AXQ ;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,"66267074606 ")
 ;;259
 ;;21,"66267099517 ")
 ;;260
 ;;21,"66336005430 ")
 ;;261
 ;;21,"66336005490 ")
 ;;262
 ;;21,"66336028520 ")
 ;;263
 ;;21,"66336028530 ")
 ;;264
 ;;21,"66689023057 ")
 ;;265
 ;;21,"66794000125 ")
 ;;266
 ;;21,"66794000130 ")
 ;;267
 ;;21,"66794000160 ")
 ;;268
 ;;21,"66993023057 ")
 ;;269
 ;;21,"67296015001 ")
 ;;270
 ;;21,"67296027701 ")
 ;;271
 ;;21,"68071027520 ")
 ;;272
 ;;21,"68774040001 ")
 ;;273
 ;;21,"68774040101 ")
 ;;274
 ;;21,"68788000102 ")
 ;;275
 ;;21,"68788013402 ")
 ;;276
 ;;21,"68788017701 ")
 ;;277
 ;;21,"68788017703 ")
 ;;278
 ;;21,"68788017706 ")
 ;;279
 ;;21,"68788017709 ")
 ;;280
 ;;21,"68788025501 ")
 ;;281
 ;;21,"68788025502 ")
 ;;282
 ;;21,"68788025503 ")
 ;;283
 ;;21,"68788025506 ")
 ;;284
 ;;21,"68788074000 ")
 ;;285
 ;;21,"68788074102 ")
 ;;286
 ;;21,"68788082500 ")
 ;;287
 ;;21,"68788082504 ")
 ;;288
 ;;21,"68788156601 ")
 ;;289
 ;;9002226,1038,.01)
 ;;BGPMU ASTHMA BETA NDCS
 ;;9002226,1038,.02)
 ;;Short and Long Beta Agonists
 ;;9002226,1038,.04)
 ;;@
 ;;9002226,1038,.06)
 ;;@
 ;;9002226,1038,.08)
 ;;@
 ;;9002226,1038,.09)
 ;;@
 ;;9002226,1038,.11)
 ;;@
 ;;9002226,1038,.12)
 ;;@
 ;;9002226,1038,.13)
 ;;@
 ;;9002226,1038,.14)
 ;;@
 ;;9002226,1038,.15)
 ;;50.67
 ;;9002226,1038,.16)
 ;;@
 ;;9002226,1038,.17)
 ;;@
 ;;9002226,1038,3101)
 ;;@
 ;;9002226.02101,"1038,00054806311 ",.01)
 ;;00054806311
 ;;9002226.02101,"1038,00054806311 ",.02)
 ;;00054806311
 ;;9002226.02101,"1038,00054806313 ",.01)
 ;;00054806313
 ;;9002226.02101,"1038,00054806313 ",.02)
 ;;00054806313
 ;;9002226.02101,"1038,00054806321 ",.01)
 ;;00054806321
 ;;9002226.02101,"1038,00054806321 ",.02)
 ;;00054806321
 ;;9002226.02101,"1038,00093066116 ",.01)
 ;;00093066116
 ;;9002226.02101,"1038,00093066116 ",.02)
 ;;00093066116
 ;;9002226.02101,"1038,00093672373 ",.01)
 ;;00093672373
 ;;9002226.02101,"1038,00093672373 ",.02)
 ;;00093672373
 ;;9002226.02101,"1038,00093672374 ",.01)
 ;;00093672374
 ;;9002226.02101,"1038,00093672374 ",.02)
 ;;00093672374
 ;;9002226.02101,"1038,00172439018 ",.01)
 ;;00172439018
 ;;9002226.02101,"1038,00172439018 ",.02)
 ;;00172439018
 ;;9002226.02101,"1038,00172640544 ",.01)
 ;;00172640544
 ;;9002226.02101,"1038,00172640544 ",.02)
 ;;00172640544
 ;;9002226.02101,"1038,00172640549 ",.01)
 ;;00172640549
 ;;9002226.02101,"1038,00172640549 ",.02)
 ;;00172640549
 ;;9002226.02101,"1038,00179115204 ",.01)
 ;;00179115204
 ;;9002226.02101,"1038,00179115204 ",.02)
 ;;00179115204
 ;;9002226.02101,"1038,00179115208 ",.01)
 ;;00179115208
 ;;9002226.02101,"1038,00179115208 ",.02)
 ;;00179115208
 ;;9002226.02101,"1038,00182601465 ",.01)
 ;;00182601465
 ;;9002226.02101,"1038,00182601465 ",.02)
 ;;00182601465
 ;;9002226.02101,"1038,00185732213 ",.01)
 ;;00185732213
 ;;9002226.02101,"1038,00185732213 ",.02)
 ;;00185732213
 ;;9002226.02101,"1038,00185732230 ",.01)
 ;;00185732230
 ;;9002226.02101,"1038,00185732230 ",.02)
 ;;00185732230
 ;;9002226.02101,"1038,00185732260 ",.01)
 ;;00185732260
 ;;9002226.02101,"1038,00185732260 ",.02)
 ;;00185732260
 ;;9002226.02101,"1038,00247017110 ",.01)
 ;;00247017110
 ;;9002226.02101,"1038,00247017110 ",.02)
 ;;00247017110
 ;;9002226.02101,"1038,00247017112 ",.01)
 ;;00247017112
 ;;9002226.02101,"1038,00247017112 ",.02)
 ;;00247017112
 ;;9002226.02101,"1038,00247017130 ",.01)
 ;;00247017130
 ;;9002226.02101,"1038,00247017130 ",.02)
 ;;00247017130
 ;;9002226.02101,"1038,00247017175 ",.01)
 ;;00247017175
 ;;9002226.02101,"1038,00247017175 ",.02)
 ;;00247017175
 ;;9002226.02101,"1038,00247026404 ",.01)
 ;;00247026404
 ;;9002226.02101,"1038,00247026404 ",.02)
 ;;00247026404
 ;;9002226.02101,"1038,00247026406 ",.01)
 ;;00247026406
 ;;9002226.02101,"1038,00247026406 ",.02)
 ;;00247026406
 ;;9002226.02101,"1038,00247026432 ",.01)
 ;;00247026432
 ;;9002226.02101,"1038,00247026432 ",.02)
 ;;00247026432
 ;;9002226.02101,"1038,00247026504 ",.01)
 ;;00247026504
 ;;9002226.02101,"1038,00247026504 ",.02)
 ;;00247026504
 ;;9002226.02101,"1038,00247052805 ",.01)
 ;;00247052805
 ;;9002226.02101,"1038,00247052805 ",.02)
 ;;00247052805
 ;;9002226.02101,"1038,00247052830 ",.01)
 ;;00247052830
 ;;9002226.02101,"1038,00247052830 ",.02)
 ;;00247052830
 ;;9002226.02101,"1038,00247052852 ",.01)
 ;;00247052852
 ;;9002226.02101,"1038,00247052852 ",.02)
 ;;00247052852
 ;;9002226.02101,"1038,00247052860 ",.01)
 ;;00247052860
 ;;9002226.02101,"1038,00247052860 ",.02)
 ;;00247052860
 ;;9002226.02101,"1038,00247052890 ",.01)
 ;;00247052890
 ;;9002226.02101,"1038,00247052890 ",.02)
 ;;00247052890
 ;;9002226.02101,"1038,00247052895 ",.01)
 ;;00247052895
 ;;9002226.02101,"1038,00247052895 ",.02)
 ;;00247052895
 ;;9002226.02101,"1038,00247086752 ",.01)
 ;;00247086752
 ;;9002226.02101,"1038,00247086752 ",.02)
 ;;00247086752
 ;;9002226.02101,"1038,00247086795 ",.01)
 ;;00247086795
 ;;9002226.02101,"1038,00247086795 ",.02)
 ;;00247086795
 ;;9002226.02101,"1038,00247087020 ",.01)
 ;;00247087020
 ;;9002226.02101,"1038,00247087020 ",.02)
 ;;00247087020
 ;;9002226.02101,"1038,00254902958 ",.01)
 ;;00254902958
 ;;9002226.02101,"1038,00254902958 ",.02)
 ;;00254902958
 ;;9002226.02101,"1038,00378025501 ",.01)
 ;;00378025501
 ;;9002226.02101,"1038,00378025501 ",.02)
 ;;00378025501
 ;;9002226.02101,"1038,00378025505 ",.01)
 ;;00378025505
 ;;9002226.02101,"1038,00378025505 ",.02)
 ;;00378025505
 ;;9002226.02101,"1038,00378057201 ",.01)
 ;;00378057201
 ;;9002226.02101,"1038,00378057201 ",.02)
 ;;00378057201
 ;;9002226.02101,"1038,00378057205 ",.01)
 ;;00378057205
 ;;9002226.02101,"1038,00378057205 ",.02)
 ;;00378057205
 ;;9002226.02101,"1038,00378412201 ",.01)
 ;;00378412201
 ;;9002226.02101,"1038,00378412201 ",.02)
 ;;00378412201
 ;;9002226.02101,"1038,00378412205 ",.01)
 ;;00378412205
 ;;9002226.02101,"1038,00378412205 ",.02)
 ;;00378412205
 ;;9002226.02101,"1038,00378412401 ",.01)
 ;;00378412401
 ;;9002226.02101,"1038,00378412401 ",.02)
 ;;00378412401
 ;;9002226.02101,"1038,00378412405 ",.01)
 ;;00378412405
 ;;9002226.02101,"1038,00378412405 ",.02)
 ;;00378412405
 ;;9002226.02101,"1038,00378698858 ",.01)
 ;;00378698858
 ;;9002226.02101,"1038,00378698858 ",.02)
 ;;00378698858
 ;;9002226.02101,"1038,00378698891 ",.01)
 ;;00378698891
 ;;9002226.02101,"1038,00378698891 ",.02)
 ;;00378698891
 ;;9002226.02101,"1038,00378698893 ",.01)
 ;;00378698893
 ;;9002226.02101,"1038,00378698893 ",.02)
 ;;00378698893
 ;;9002226.02101,"1038,00378699052 ",.01)
 ;;00378699052
 ;;9002226.02101,"1038,00378699052 ",.02)
 ;;00378699052
 ;;9002226.02101,"1038,00378699058 ",.01)
 ;;00378699058
 ;;9002226.02101,"1038,00378699058 ",.02)
 ;;00378699058
 ;;9002226.02101,"1038,00378699091 ",.01)
 ;;00378699091
 ;;9002226.02101,"1038,00378699091 ",.02)
 ;;00378699091
 ;;9002226.02101,"1038,00378699093 ",.01)
 ;;00378699093
 ;;9002226.02101,"1038,00378699093 ",.02)
 ;;00378699093
 ;;9002226.02101,"1038,00378699152 ",.01)
 ;;00378699152
 ;;9002226.02101,"1038,00378699152 ",.02)
 ;;00378699152
 ;;9002226.02101,"1038,00378699252 ",.01)
 ;;00378699252
 ;;9002226.02101,"1038,00378699252 ",.02)
 ;;00378699252
 ;;9002226.02101,"1038,00378699331 ",.01)
 ;;00378699331
 ;;9002226.02101,"1038,00378699331 ",.02)
 ;;00378699331
 ;;9002226.02101,"1038,00378699393 ",.01)
 ;;00378699393
 ;;9002226.02101,"1038,00378699393 ",.02)
 ;;00378699393
 ;;9002226.02101,"1038,00472082504 ",.01)
 ;;00472082504
 ;;9002226.02101,"1038,00472082504 ",.02)
 ;;00472082504
 ;;9002226.02101,"1038,00472082516 ",.01)
 ;;00472082516
 ;;9002226.02101,"1038,00472082516 ",.02)
 ;;00472082516
 ;;9002226.02101,"1038,00472083123 ",.01)
 ;;00472083123
 ;;9002226.02101,"1038,00472083123 ",.02)
 ;;00472083123
 ;;9002226.02101,"1038,00472083125 ",.01)
 ;;00472083125
 ;;9002226.02101,"1038,00472083125 ",.02)
 ;;00472083125
 ;;9002226.02101,"1038,00472083130 ",.01)
 ;;00472083130
 ;;9002226.02101,"1038,00472083130 ",.02)
 ;;00472083130
 ;;9002226.02101,"1038,00472083160 ",.01)
 ;;00472083160
 ;;9002226.02101,"1038,00472083160 ",.02)
 ;;00472083160
 ;;9002226.02101,"1038,00487020101 ",.01)
 ;;00487020101
 ;;9002226.02101,"1038,00487020101 ",.02)
 ;;00487020101
 ;;9002226.02101,"1038,00487020102 ",.01)
 ;;00487020102
 ;;9002226.02101,"1038,00487020102 ",.02)
 ;;00487020102
 ;;9002226.02101,"1038,00487020103 ",.01)
 ;;00487020103
 ;;9002226.02101,"1038,00487020103 ",.02)
 ;;00487020103
 ;;9002226.02101,"1038,00487020106 ",.01)
 ;;00487020106
 ;;9002226.02101,"1038,00487020106 ",.02)
 ;;00487020106
 ;;9002226.02101,"1038,00487020110 ",.01)
 ;;00487020110
 ;;9002226.02101,"1038,00487020110 ",.02)
 ;;00487020110
 ;;9002226.02101,"1038,00487020160 ",.01)
 ;;00487020160
 ;;9002226.02101,"1038,00487020160 ",.02)
 ;;00487020160
 ;;9002226.02101,"1038,00487030101 ",.01)
 ;;00487030101
 ;;9002226.02101,"1038,00487030101 ",.02)
 ;;00487030101
 ;;9002226.02101,"1038,00487030102 ",.01)
 ;;00487030102
 ;;9002226.02101,"1038,00487030102 ",.02)
 ;;00487030102
 ;;9002226.02101,"1038,00487950101 ",.01)
 ;;00487950101
 ;;9002226.02101,"1038,00487950101 ",.02)
 ;;00487950101
 ;;9002226.02101,"1038,00487950102 ",.01)
 ;;00487950102
 ;;9002226.02101,"1038,00487950102 ",.02)
 ;;00487950102
 ;;9002226.02101,"1038,00487950103 ",.01)
 ;;00487950103
 ;;9002226.02101,"1038,00487950103 ",.02)
 ;;00487950103
 ;;9002226.02101,"1038,00487950125 ",.01)
 ;;00487950125
 ;;9002226.02101,"1038,00487950125 ",.02)
 ;;00487950125
 ;;9002226.02101,"1038,00487950160 ",.01)
 ;;00487950160
 ;;9002226.02101,"1038,00487950160 ",.02)
 ;;00487950160
 ;;9002226.02101,"1038,00487990102 ",.01)
 ;;00487990102
 ;;9002226.02101,"1038,00487990102 ",.02)
 ;;00487990102
 ;;9002226.02101,"1038,00487990130 ",.01)
 ;;00487990130
 ;;9002226.02101,"1038,00487990130 ",.02)
 ;;00487990130
 ;;9002226.02101,"1038,00487990401 ",.01)
 ;;00487990401
 ;;9002226.02101,"1038,00487990401 ",.02)
 ;;00487990401
 ;;9002226.02101,"1038,00487990402 ",.01)
 ;;00487990402
 ;;9002226.02101,"1038,00487990402 ",.02)
 ;;00487990402
 ;;9002226.02101,"1038,00487990425 ",.01)
 ;;00487990425
 ;;9002226.02101,"1038,00487990425 ",.02)
 ;;00487990425
 ;;9002226.02101,"1038,00591343330 ",.01)
 ;;00591343330
 ;;9002226.02101,"1038,00591343330 ",.02)
 ;;00591343330
 ;;9002226.02101,"1038,00591343360 ",.01)
 ;;00591343360
 ;;9002226.02101,"1038,00591343360 ",.02)
 ;;00591343360
 ;;9002226.02101,"1038,00591346753 ",.01)
 ;;00591346753
 ;;9002226.02101,"1038,00591346753 ",.02)
 ;;00591346753
 ;;9002226.02101,"1038,00591346853 ",.01)
 ;;00591346853
 ;;9002226.02101,"1038,00591346853 ",.02)
 ;;00591346853
 ;;9002226.02101,"1038,00591379730 ",.01)
 ;;00591379730
 ;;9002226.02101,"1038,00591379730 ",.02)
 ;;00591379730
 ;;9002226.02101,"1038,00591379760 ",.01)
 ;;00591379760
 ;;9002226.02101,"1038,00591379760 ",.02)
 ;;00591379760
 ;;9002226.02101,"1038,00591379783 ",.01)
 ;;00591379783
 ;;9002226.02101,"1038,00591379783 ",.02)
 ;;00591379783
 ;;9002226.02101,"1038,00603100540 ",.01)
 ;;00603100540
 ;;9002226.02101,"1038,00603100540 ",.02)
 ;;00603100540
 ;;9002226.02101,"1038,00603100758 ",.01)
 ;;00603100758
 ;;9002226.02101,"1038,00603100758 ",.02)
 ;;00603100758
 ;;9002226.02101,"1038,00603100858 ",.01)
 ;;00603100858
 ;;9002226.02101,"1038,00603100858 ",.02)
 ;;00603100858
 ;;9002226.02101,"1038,00603209321 ",.01)
 ;;00603209321
 ;;9002226.02101,"1038,00603209321 ",.02)
 ;;00603209321
 ;;9002226.02101,"1038,00603209328 ",.01)
 ;;00603209328
 ;;9002226.02101,"1038,00603209328 ",.02)
 ;;00603209328