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