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

BGP9WXG.m

Go to the documentation of this file.
BGP9WXG ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 25, 2009 ;
 ;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009
 ;;BGP CMS BETA BLOCKER NDC
 ;
 ; This routine loads Taxonomy BGP CMS BETA BLOCKER NDC
 ;
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
 D OTHER
 I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2
 I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2
 D KILL^ATXSTX2
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;21,"00005-3816-38 ")
 ;;1
 ;;21,"00005-3817-38 ")
 ;;2
 ;;21,"00007-4139-20 ")
 ;;3
 ;;21,"00007-4140-20 ")
 ;;4
 ;;21,"00007-4141-20 ")
 ;;5
 ;;21,"00007-4142-20 ")
 ;;6
 ;;21,"00008-4177-01 ")
 ;;7
 ;;21,"00008-4179-01 ")
 ;;8
 ;;21,"00025-5101-31 ")
 ;;9
 ;;21,"00025-5201-31 ")
 ;;10
 ;;21,"00028-0051-01 ")
 ;;11
 ;;21,"00028-0051-10 ")
 ;;12
 ;;21,"00028-0071-01 ")
 ;;13
 ;;21,"00028-0071-10 ")
 ;;14
 ;;21,"00046-0421-81 ")
 ;;15
 ;;21,"00046-0422-81 ")
 ;;16
 ;;21,"00046-0424-81 ")
 ;;17
 ;;21,"00046-0426-81 ")
 ;;18
 ;;21,"00046-0470-81 ")
 ;;19
 ;;21,"00046-0473-81 ")
 ;;20
 ;;21,"00046-0479-81 ")
 ;;21
 ;;21,"00046-0484-81 ")
 ;;22
 ;;21,"00074-1664-13 ")
 ;;23
 ;;21,"00083-0133-11 ")
 ;;24
 ;;21,"00085-0244-04 ")
 ;;25
 ;;21,"00085-0244-05 ")
 ;;26
 ;;21,"00085-0244-07 ")
 ;;27
 ;;21,"00085-0244-08 ")
 ;;28
 ;;21,"00085-0438-03 ")
 ;;29
 ;;21,"00085-0438-05 ")
 ;;30
 ;;21,"00085-0438-06 ")
 ;;31
 ;;21,"00085-0752-04 ")
 ;;32
 ;;21,"00085-0752-05 ")
 ;;33
 ;;21,"00085-0752-08 ")
 ;;34
 ;;21,"00091-4500-15 ")
 ;;35
 ;;21,"00093-0733-01 ")
 ;;36
 ;;21,"00093-0733-10 ")
 ;;37
 ;;21,"00093-0734-01 ")
 ;;38
 ;;21,"00093-0734-10 ")
 ;;39
 ;;21,"00093-0752-01 ")
 ;;40
 ;;21,"00093-0752-10 ")
 ;;41
 ;;21,"00093-0753-01 ")
 ;;42
 ;;21,"00093-1060-01 ")
 ;;43
 ;;21,"00093-1061-01 ")
 ;;44
 ;;21,"00093-1062-01 ")
 ;;45
 ;;21,"00093-1063-01 ")
 ;;46
 ;;21,"00093-5270-56 ")
 ;;47
 ;;21,"00115-2101-01 ")
 ;;48
 ;;21,"00115-2711-01 ")
 ;;49
 ;;21,"00115-2722-01 ")
 ;;50
 ;;21,"00115-2733-01 ")
 ;;51
 ;;21,"00115-2744-01 ")
 ;;52
 ;;21,"00158-0171-01 ")
 ;;53
 ;;21,"00172-4217-60 ")
 ;;54
 ;;21,"00172-4218-60 ")
 ;;55
 ;;21,"00172-4235-60 ")
 ;;56
 ;;21,"00172-4235-70 ")
 ;;57
 ;;21,"00172-4236-60 ")
 ;;58
 ;;21,"00172-4237-60 ")
 ;;59
 ;;21,"00172-4238-60 ")
 ;;60
 ;;21,"00172-4239-60 ")
 ;;61
 ;;21,"00172-4364-60 ")
 ;;62
 ;;21,"00172-4364-70 ")
 ;;63
 ;;21,"00172-4365-60 ")
 ;;64
 ;;21,"00172-4365-70 ")
 ;;65
 ;;21,"00172-4366-60 ")
 ;;66
 ;;21,"00182-1001-01 ")
 ;;67
 ;;21,"00182-1812-89 ")
 ;;68
 ;;21,"00182-1813-89 ")
 ;;69
 ;;21,"00182-1814-89 ")
 ;;70
 ;;21,"00182-1815-89 ")
 ;;71
 ;;21,"00182-2632-89 ")
 ;;72
 ;;21,"00185-0010-01 ")
 ;;73
 ;;21,"00185-0010-05 ")
 ;;74
 ;;21,"00185-0117-01 ")
 ;;75
 ;;21,"00185-0117-05 ")
 ;;76
 ;;21,"00185-0118-01 ")
 ;;77
 ;;21,"00185-0118-05 ")
 ;;78
 ;;21,"00185-0170-01 ")
 ;;79
 ;;21,"00185-0174-01 ")
 ;;80
 ;;21,"00185-0177-01 ")
 ;;81
 ;;21,"00185-0771-01 ")
 ;;82
 ;;21,"00185-0771-30 ")
 ;;83
 ;;21,"00185-0774-01 ")
 ;;84
 ;;21,"00185-0774-30 ")
 ;;85
 ;;21,"00223-2551-01 ")
 ;;86
 ;;21,"00223-2551-02 ")
 ;;87
 ;;21,"00223-2552-01 ")
 ;;88
 ;;21,"00223-2552-02 ")
 ;;89
 ;;21,"00223-2553-01 ")
 ;;90
 ;;21,"00223-2553-02 ")
 ;;91
 ;;21,"00223-2554-01 ")
 ;;92
 ;;21,"00223-2554-02 ")
 ;;93
 ;;21,"00364-2514-01 ")
 ;;94
 ;;21,"00378-0028-01 ")
 ;;95
 ;;21,"00378-0032-01 ")
 ;;96
 ;;21,"00378-0032-10 ")
 ;;97
 ;;21,"00378-0047-01 ")
 ;;98
 ;;21,"00378-0047-10 ")
 ;;99
 ;;21,"00378-0052-01 ")
 ;;100
 ;;21,"00378-0127-01 ")
 ;;101
 ;;21,"00378-0182-01 ")
 ;;102
 ;;21,"00378-0182-10 ")
 ;;103
 ;;21,"00378-0183-01 ")
 ;;104
 ;;21,"00378-0183-10 ")
 ;;105
 ;;21,"00378-0184-01 ")
 ;;106
 ;;21,"00378-0185-01 ")
 ;;107
 ;;21,"00378-0185-05 ")
 ;;108
 ;;21,"00378-0231-01 ")
 ;;109
 ;;21,"00378-0231-10 ")
 ;;110
 ;;21,"00378-0305-01 ")
 ;;111
 ;;21,"00378-0310-01 ")
 ;;112
 ;;21,"00378-0314-01 ")
 ;;113
 ;;21,"00378-0434-01 ")
 ;;114
 ;;21,"00378-0445-01 ")
 ;;115
 ;;21,"00378-0757-01 ")
 ;;116
 ;;21,"00378-1132-01 ")
 ;;117
 ;;21,"00378-1132-10 ")
 ;;118
 ;;21,"00378-1171-01 ")
 ;;119
 ;;21,"00378-1171-10 ")
 ;;120
 ;;21,"00378-1200-01 ")
 ;;121
 ;;21,"00378-1400-01 ")
 ;;122
 ;;21,"00591-0438-01 ")
 ;;123
 ;;21,"00591-0462-01 ")
 ;;124
 ;;21,"00591-0462-10 ")
 ;;125
 ;;21,"00591-0463-01 ")
 ;;126
 ;;21,"00591-0606-01 ")
 ;;127
 ;;21,"00591-0606-05 ")
 ;;128
 ;;21,"00591-0607-01 ")
 ;;129
 ;;21,"00591-5554-01 ")
 ;;130
 ;;21,"00591-5554-10 ")
 ;;131
 ;;21,"00591-5555-01 ")
 ;;132
 ;;21,"00591-5555-10 ")
 ;;133
 ;;21,"00591-5556-01 ")
 ;;134
 ;;21,"00591-5556-10 ")
 ;;135
 ;;21,"00591-5557-01 ")
 ;;136
 ;;21,"00591-5557-10 ")
 ;;137
 ;;21,"00591-5777-01 ")
 ;;138
 ;;21,"00603-4627-21 ")
 ;;139
 ;;21,"00603-4627-32 ")
 ;;140
 ;;21,"00603-4628-21 ")
 ;;141
 ;;21,"00603-4628-32 ")
 ;;142
 ;;21,"00603-5221-01 ")
 ;;143
 ;;21,"00615-2561-53 ")
 ;;144
 ;;21,"00615-2561-63 ")
 ;;145
 ;;21,"00615-2562-53 ")
 ;;146
 ;;21,"00615-2562-63 ")
 ;;147
 ;;21,"00615-3532-53 ")
 ;;148
 ;;21,"00615-3532-63 ")
 ;;149
 ;;21,"00615-3544-53 ")
 ;;150
 ;
OTHER ; OTHER ROUTINES
 D ^BGP9WXGB
 D ^BGP9WXGC
 D ^BGP9WXGD
 D ^BGP9WXGE
 D ^BGP9WXGF
 D ^BGP9WXGG
 D ^BGP9WXGH
 D ^BGP9WXGI
 D ^BGP9WXGJ
 D ^BGP9WXGK
 D ^BGP9WXGL
 D ^BGP9WXGM
 D ^BGP9WXGN
 D ^BGP9WXGO
 D ^BGP9WXGP
 D ^BGP9WXGQ
 D ^BGP9WXGR
 Q