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

BGPM5ASY.m

Go to the documentation of this file.
BGPM5ASY ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 24, 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,"67801030535 ")
 ;;535
 ;;21,"68115092330 ")
 ;;536
 ;;21,"68258303101 ")
 ;;537
 ;;21,"68258303203 ")
 ;;538
 ;;21,"68258303303 ")
 ;;539
 ;;21,"68258303701 ")
 ;;540
 ;;21,"68462038001 ")
 ;;541
 ;;21,"68462038005 ")
 ;;542
 ;;21,"68734070010 ")
 ;;543
 ;;21,"68788000102 ")
 ;;544
 ;;21,"68788013402 ")
 ;;545
 ;;21,"68788074102 ")
 ;;546
 ;;9002226,1011,.01)
 ;;BGPMU ASTHMA MEDS NDCS
 ;;9002226,1011,.02)
 ;;Asthma Medication NDC codes
 ;;9002226,1011,.04)
 ;;@
 ;;9002226,1011,.06)
 ;;@
 ;;9002226,1011,.08)
 ;;@
 ;;9002226,1011,.09)
 ;;@
 ;;9002226,1011,.11)
 ;;@
 ;;9002226,1011,.12)
 ;;@
 ;;9002226,1011,.13)
 ;;@
 ;;9002226,1011,.14)
 ;;@
 ;;9002226,1011,.15)
 ;;50.67
 ;;9002226,1011,.16)
 ;;@
 ;;9002226,1011,.17)
 ;;@
 ;;9002226,1011,3101)
 ;;@
 ;;9002226.02101,"1011,00006011701 ",.01)
 ;;00006011701
 ;;9002226.02101,"1011,00006011701 ",.02)
 ;;00006011701
 ;;9002226.02101,"1011,00006011715 ",.01)
 ;;00006011715
 ;;9002226.02101,"1011,00006011715 ",.02)
 ;;00006011715
 ;;9002226.02101,"1011,00006011728 ",.01)
 ;;00006011728
 ;;9002226.02101,"1011,00006011728 ",.02)
 ;;00006011728
 ;;9002226.02101,"1011,00006011731 ",.01)
 ;;00006011731
 ;;9002226.02101,"1011,00006011731 ",.02)
 ;;00006011731
 ;;9002226.02101,"1011,00006011754 ",.01)
 ;;00006011754
 ;;9002226.02101,"1011,00006011754 ",.02)
 ;;00006011754
 ;;9002226.02101,"1011,00006011780 ",.01)
 ;;00006011780
 ;;9002226.02101,"1011,00006011780 ",.02)
 ;;00006011780
 ;;9002226.02101,"1011,00006027501 ",.01)
 ;;00006027501
 ;;9002226.02101,"1011,00006027501 ",.02)
 ;;00006027501
 ;;9002226.02101,"1011,00006027515 ",.01)
 ;;00006027515
 ;;9002226.02101,"1011,00006027515 ",.02)
 ;;00006027515
 ;;9002226.02101,"1011,00006027528 ",.01)
 ;;00006027528
 ;;9002226.02101,"1011,00006027528 ",.02)
 ;;00006027528
 ;;9002226.02101,"1011,00006027531 ",.01)
 ;;00006027531
 ;;9002226.02101,"1011,00006027531 ",.02)
 ;;00006027531
 ;;9002226.02101,"1011,00006027554 ",.01)
 ;;00006027554
 ;;9002226.02101,"1011,00006027554 ",.02)
 ;;00006027554
 ;;9002226.02101,"1011,00006027582 ",.01)
 ;;00006027582
 ;;9002226.02101,"1011,00006027582 ",.02)
 ;;00006027582
 ;;9002226.02101,"1011,00006071101 ",.01)
 ;;00006071101
 ;;9002226.02101,"1011,00006071101 ",.02)
 ;;00006071101
 ;;9002226.02101,"1011,00006071115 ",.01)
 ;;00006071115
 ;;9002226.02101,"1011,00006071115 ",.02)
 ;;00006071115
 ;;9002226.02101,"1011,00006071128 ",.01)
 ;;00006071128
 ;;9002226.02101,"1011,00006071128 ",.02)
 ;;00006071128
 ;;9002226.02101,"1011,00006071131 ",.01)
 ;;00006071131
 ;;9002226.02101,"1011,00006071131 ",.02)
 ;;00006071131
 ;;9002226.02101,"1011,00006071154 ",.01)
 ;;00006071154
 ;;9002226.02101,"1011,00006071154 ",.02)
 ;;00006071154
 ;;9002226.02101,"1011,00006384114 ",.01)
 ;;00006384114
 ;;9002226.02101,"1011,00006384114 ",.02)
 ;;00006384114
 ;;9002226.02101,"1011,00006384130 ",.01)
 ;;00006384130
 ;;9002226.02101,"1011,00006384130 ",.02)
 ;;00006384130
 ;;9002226.02101,"1011,00034700470 ",.01)
 ;;00034700470
 ;;9002226.02101,"1011,00034700470 ",.02)
 ;;00034700470
 ;;9002226.02101,"1011,00034700480 ",.01)
 ;;00034700480
 ;;9002226.02101,"1011,00034700480 ",.02)
 ;;00034700480
 ;;9002226.02101,"1011,00034700680 ",.01)
 ;;00034700680
 ;;9002226.02101,"1011,00034700680 ",.02)
 ;;00034700680
 ;;9002226.02101,"1011,00034710206 ",.01)
 ;;00034710206
 ;;9002226.02101,"1011,00034710206 ",.02)
 ;;00034710206
 ;;9002226.02101,"1011,00034710280 ",.01)
 ;;00034710280
 ;;9002226.02101,"1011,00034710280 ",.02)
 ;;00034710280
 ;;9002226.02101,"1011,00034710299 ",.01)
 ;;00034710299
 ;;9002226.02101,"1011,00034710299 ",.02)
 ;;00034710299
 ;;9002226.02101,"1011,00054806311 ",.01)
 ;;00054806311
 ;;9002226.02101,"1011,00054806311 ",.02)
 ;;00054806311
 ;;9002226.02101,"1011,00054806313 ",.01)
 ;;00054806313
 ;;9002226.02101,"1011,00054806313 ",.02)
 ;;00054806313
 ;;9002226.02101,"1011,00054806321 ",.01)
 ;;00054806321
 ;;9002226.02101,"1011,00054806321 ",.02)
 ;;00054806321
 ;;9002226.02101,"1011,00054816721 ",.01)
 ;;00054816721
 ;;9002226.02101,"1011,00054816721 ",.02)
 ;;00054816721
 ;;9002226.02101,"1011,00054816723 ",.01)
 ;;00054816723
 ;;9002226.02101,"1011,00054816723 ",.02)
 ;;00054816723
 ;;9002226.02101,"1011,00083016702 ",.01)
 ;;00083016702
 ;;9002226.02101,"1011,00083016702 ",.02)
 ;;00083016702
 ;;9002226.02101,"1011,00083016776 ",.01)
 ;;00083016776
 ;;9002226.02101,"1011,00083016776 ",.02)
 ;;00083016776
 ;;9002226.02101,"1011,00085020802 ",.01)
 ;;00085020802
 ;;9002226.02101,"1011,00085020802 ",.02)
 ;;00085020802
 ;;9002226.02101,"1011,00085020901 ",.01)
 ;;00085020901
 ;;9002226.02101,"1011,00085020901 ",.02)
 ;;00085020901
 ;;9002226.02101,"1011,00085061402 ",.01)
 ;;00085061402
 ;;9002226.02101,"1011,00085061402 ",.02)
 ;;00085061402
 ;;9002226.02101,"1011,00085061403 ",.01)
 ;;00085061403
 ;;9002226.02101,"1011,00085061403 ",.02)
 ;;00085061403
 ;;9002226.02101,"1011,00085113201 ",.01)
 ;;00085113201
 ;;9002226.02101,"1011,00085113201 ",.02)
 ;;00085113201
 ;;9002226.02101,"1011,00085134101 ",.01)
 ;;00085134101
 ;;9002226.02101,"1011,00085134101 ",.02)
 ;;00085134101
 ;;9002226.02101,"1011,00085134102 ",.01)
 ;;00085134102
 ;;9002226.02101,"1011,00085134102 ",.02)
 ;;00085134102
 ;;9002226.02101,"1011,00085134103 ",.01)
 ;;00085134103
 ;;9002226.02101,"1011,00085134103 ",.02)
 ;;00085134103
 ;;9002226.02101,"1011,00085134104 ",.01)
 ;;00085134104
 ;;9002226.02101,"1011,00085134104 ",.02)
 ;;00085134104
 ;;9002226.02101,"1011,00085134105 ",.01)
 ;;00085134105
 ;;9002226.02101,"1011,00085134105 ",.02)
 ;;00085134105
 ;;9002226.02101,"1011,00085140101 ",.01)
 ;;00085140101
 ;;9002226.02101,"1011,00085140101 ",.02)
 ;;00085140101
 ;;9002226.02101,"1011,00085140201 ",.01)
 ;;00085140201
 ;;9002226.02101,"1011,00085140201 ",.02)
 ;;00085140201
 ;;9002226.02101,"1011,00085180601 ",.01)
 ;;00085180601
 ;;9002226.02101,"1011,00085180601 ",.02)
 ;;00085180601
 ;;9002226.02101,"1011,00087051260 ",.01)
 ;;00087051260
 ;;9002226.02101,"1011,00087051260 ",.02)
 ;;00087051260
 ;;9002226.02101,"1011,00087051961 ",.01)
 ;;00087051961
 ;;9002226.02101,"1011,00087051961 ",.02)
 ;;00087051961
 ;;9002226.02101,"1011,00089071020 ",.01)
 ;;00089071020
 ;;9002226.02101,"1011,00089071020 ",.02)
 ;;00089071020
 ;;9002226.02101,"1011,00089079421 ",.01)
 ;;00089079421
 ;;9002226.02101,"1011,00089079421 ",.02)
 ;;00089079421
 ;;9002226.02101,"1011,00089079423 ",.01)
 ;;00089079423
 ;;9002226.02101,"1011,00089079423 ",.02)
 ;;00089079423
 ;;9002226.02101,"1011,00089079621 ",.01)
 ;;00089079621
 ;;9002226.02101,"1011,00089079621 ",.02)
 ;;00089079621
 ;;9002226.02101,"1011,00089079721 ",.01)
 ;;00089079721
 ;;9002226.02101,"1011,00089079721 ",.02)
 ;;00089079721
 ;;9002226.02101,"1011,00089079799 ",.01)
 ;;00089079799
 ;;9002226.02101,"1011,00089079799 ",.02)
 ;;00089079799
 ;;9002226.02101,"1011,00089178902 ",.01)
 ;;00089178902
 ;;9002226.02101,"1011,00089178902 ",.02)
 ;;00089178902
 ;;9002226.02101,"1011,00089178903 ",.01)
 ;;00089178903
 ;;9002226.02101,"1011,00089178903 ",.02)
 ;;00089178903
 ;;9002226.02101,"1011,00089178904 ",.01)
 ;;00089178904
 ;;9002226.02101,"1011,00089178904 ",.02)
 ;;00089178904
 ;;9002226.02101,"1011,00172439018 ",.01)
 ;;00172439018
 ;;9002226.02101,"1011,00172439018 ",.02)
 ;;00172439018
 ;;9002226.02101,"1011,00172640544 ",.01)
 ;;00172640544
 ;;9002226.02101,"1011,00172640544 ",.02)
 ;;00172640544
 ;;9002226.02101,"1011,00172640549 ",.01)
 ;;00172640549
 ;;9002226.02101,"1011,00172640549 ",.02)
 ;;00172640549
 ;;9002226.02101,"1011,00172640649 ",.01)
 ;;00172640649
 ;;9002226.02101,"1011,00172640649 ",.02)
 ;;00172640649
 ;;9002226.02101,"1011,00172640659 ",.01)
 ;;00172640659
 ;;9002226.02101,"1011,00172640659 ",.02)
 ;;00172640659
 ;;9002226.02101,"1011,00173052000 ",.01)
 ;;00173052000
 ;;9002226.02101,"1011,00173052000 ",.02)
 ;;00173052000
 ;;9002226.02101,"1011,00173052100 ",.01)
 ;;00173052100
 ;;9002226.02101,"1011,00173052100 ",.02)
 ;;00173052100
 ;;9002226.02101,"1011,00173060001 ",.01)
 ;;00173060001
 ;;9002226.02101,"1011,00173060001 ",.02)
 ;;00173060001
 ;;9002226.02101,"1011,00173060002 ",.01)
 ;;00173060002
 ;;9002226.02101,"1011,00173060002 ",.02)
 ;;00173060002
 ;;9002226.02101,"1011,00173060101 ",.01)
 ;;00173060101
 ;;9002226.02101,"1011,00173060101 ",.02)
 ;;00173060101
 ;;9002226.02101,"1011,00173060102 ",.01)
 ;;00173060102
 ;;9002226.02101,"1011,00173060102 ",.02)
 ;;00173060102
 ;;9002226.02101,"1011,00173060202 ",.01)
 ;;00173060202
 ;;9002226.02101,"1011,00173060202 ",.02)
 ;;00173060202
 ;;9002226.02101,"1011,00173068220 ",.01)
 ;;00173068220
 ;;9002226.02101,"1011,00173068220 ",.02)
 ;;00173068220
 ;;9002226.02101,"1011,00173069500 ",.01)
 ;;00173069500
 ;;9002226.02101,"1011,00173069500 ",.02)
 ;;00173069500
 ;;9002226.02101,"1011,00173069600 ",.01)
 ;;00173069600
 ;;9002226.02101,"1011,00173069600 ",.02)
 ;;00173069600
 ;;9002226.02101,"1011,00173069700 ",.01)
 ;;00173069700
 ;;9002226.02101,"1011,00173069700 ",.02)
 ;;00173069700
 ;;9002226.02101,"1011,00173071820 ",.01)
 ;;00173071820
 ;;9002226.02101,"1011,00173071820 ",.02)
 ;;00173071820
 ;;9002226.02101,"1011,00173071860 ",.01)
 ;;00173071860
 ;;9002226.02101,"1011,00173071860 ",.02)
 ;;00173071860
 ;;9002226.02101,"1011,00173071920 ",.01)
 ;;00173071920
 ;;9002226.02101,"1011,00173071920 ",.02)
 ;;00173071920
 ;;9002226.02101,"1011,00173072020 ",.01)
 ;;00173072020
 ;;9002226.02101,"1011,00173072020 ",.02)
 ;;00173072020
 ;;9002226.02101,"1011,00179036502 ",.01)
 ;;00179036502
 ;;9002226.02101,"1011,00179036502 ",.02)
 ;;00179036502
 ;;9002226.02101,"1011,00179036530 ",.01)
 ;;00179036530
 ;;9002226.02101,"1011,00179036530 ",.02)
 ;;00179036530
 ;;9002226.02101,"1011,00179036550 ",.01)
 ;;00179036550
 ;;9002226.02101,"1011,00179036550 ",.02)
 ;;00179036550
 ;;9002226.02101,"1011,00179036560 ",.01)
 ;;00179036560
 ;;9002226.02101,"1011,00179036560 ",.02)
 ;;00179036560
 ;;9002226.02101,"1011,00179104701 ",.01)
 ;;00179104701
 ;;9002226.02101,"1011,00179104701 ",.02)
 ;;00179104701
 ;;9002226.02101,"1011,00179104702 ",.01)
 ;;00179104702
 ;;9002226.02101,"1011,00179104702 ",.02)
 ;;00179104702
 ;;9002226.02101,"1011,00179104730 ",.01)
 ;;00179104730
 ;;9002226.02101,"1011,00179104730 ",.02)
 ;;00179104730
 ;;9002226.02101,"1011,00179104750 ",.01)
 ;;00179104750
 ;;9002226.02101,"1011,00179104750 ",.02)
 ;;00179104750
 ;;9002226.02101,"1011,00179142302 ",.01)
 ;;00179142302
 ;;9002226.02101,"1011,00179142302 ",.02)
 ;;00179142302
 ;;9002226.02101,"1011,00179142370 ",.01)
 ;;00179142370
 ;;9002226.02101,"1011,00179142370 ",.02)
 ;;00179142370
 ;;9002226.02101,"1011,00179154970 ",.01)
 ;;00179154970
 ;;9002226.02101,"1011,00179154970 ",.02)
 ;;00179154970
 ;;9002226.02101,"1011,00179154971 ",.01)
 ;;00179154971
 ;;9002226.02101,"1011,00179154971 ",.02)
 ;;00179154971
 ;;9002226.02101,"1011,00179154972 ",.01)
 ;;00179154972
 ;;9002226.02101,"1011,00179154972 ",.02)
 ;;00179154972
 ;;9002226.02101,"1011,00182140089 ",.01)
 ;;00182140089
 ;;9002226.02101,"1011,00182140089 ",.02)
 ;;00182140089
 ;;9002226.02101,"1011,00182601465 ",.01)
 ;;00182601465
 ;;9002226.02101,"1011,00182601465 ",.02)
 ;;00182601465
 ;;9002226.02101,"1011,00186198804 ",.01)
 ;;00186198804
 ;;9002226.02101,"1011,00186198804 ",.02)
 ;;00186198804
 ;;9002226.02101,"1011,00186198904 ",.01)
 ;;00186198904
 ;;9002226.02101,"1011,00186198904 ",.02)
 ;;00186198904
 ;;9002226.02101,"1011,00247017110 ",.01)
 ;;00247017110