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

BGP8AXN.m

Go to the documentation of this file.
BGP8AXN ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 28, 2007 ;
 ;;8.0;IHS CLINICAL REPORTING;;MAR 12, 2008
 ;;BGP ASTHMA INHALED STEROID NDC
 ;
 ; This routine loads Taxonomy BGP ASTHMA INHALED STEROID 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,"00075-0060-37 ")
 ;;41
 ;;21,"00085-0649-02 ")
 ;;10
 ;;21,"00085-0736-04 ")
 ;;14
 ;;21,"00085-1341-01 ")
 ;;4
 ;;21,"00085-1341-02 ")
 ;;3
 ;;21,"00085-1341-03 ")
 ;;2
 ;;21,"00085-1341-04 ")
 ;;1
 ;;21,"00089-0175-40 ")
 ;;8
 ;;21,"00089-0177-80 ")
 ;;9
 ;;21,"00173-0491-00 ")
 ;;46
 ;;21,"00173-0494-00 ")
 ;;48
 ;;21,"00173-0495-00 ")
 ;;50
 ;;21,"00173-0497-00 ")
 ;;45
 ;;21,"00173-0498-00 ")
 ;;47
 ;;21,"00173-0499-00 ")
 ;;49
 ;;21,"00173-0504-00 ")
 ;;59
 ;;21,"00173-0509-00 ")
 ;;57
 ;;21,"00173-0511-00 ")
 ;;58
 ;;21,"00173-0695-00 ")
 ;;30
 ;;21,"00173-0695-02 ")
 ;;29
 ;;21,"00173-0696-00 ")
 ;;34
 ;;21,"00173-0696-02 ")
 ;;33
 ;;21,"00173-0697-00 ")
 ;;38
 ;;21,"00173-0697-02 ")
 ;;37
 ;;21,"00186-0915-42 ")
 ;;27
 ;;21,"00186-1988-04 ")
 ;;23
 ;;21,"00186-1989-04 ")
 ;;24
 ;;21,"51479-0011-03 ")
 ;;21
 ;;21,"52959-0286-03 ")
 ;;43
 ;;21,"52959-0585-00 ")
 ;;12
 ;;21,"52959-0596-01 ")
 ;;16
 ;;21,"52959-0598-01 ")
 ;;20
 ;;21,"54569-0053-00 ")
 ;;42
 ;;21,"54569-0067-00 ")
 ;;15
 ;;21,"54569-1004-00 ")
 ;;5
 ;;21,"54569-3656-00 ")
 ;;11
 ;;21,"54569-4540-00 ")
 ;;19
 ;;21,"54569-4602-00 ")
 ;;52
 ;;21,"54569-4603-00 ")
 ;;53
 ;;21,"54569-4863-00 ")
 ;;51
 ;;21,"54569-4896-00 ")
 ;;60
 ;;21,"54569-5162-00 ")
 ;;25
 ;;21,"54569-5163-00 ")
 ;;26
 ;;21,"54569-5241-00 ")
 ;;31
 ;;21,"54569-5242-00 ")
 ;;35
 ;;21,"54569-5243-00 ")
 ;;39
 ;;21,"54868-1268-01 ")
 ;;44
 ;;21,"54868-1269-01 ")
 ;;6
 ;;21,"54868-1841-01 ")
 ;;17
 ;;21,"54868-4182-00 ")
 ;;55
 ;;21,"54868-4264-00 ")
 ;;54
 ;;21,"54868-4295-00 ")
 ;;28
 ;;21,"54868-4392-00 ")
 ;;56
 ;;21,"54868-4516-00 ")
 ;;40
 ;;21,"54868-4517-00 ")
 ;;32
 ;;21,"54868-4518-00 ")
 ;;36
 ;;21,"54969-4741-00 ")
 ;;22
 ;;21,"58016-6075-01 ")
 ;;13
 ;;21,"58016-6207-01 ")
 ;;7
 ;;21,"59569-4822-00 ")
 ;;18
 ;;9002226,454,.01)
 ;;BGP ASTHMA INHALED STEROID NDC
 ;;9002226,454,.02)
 ;;@
 ;;9002226,454,.04)
 ;;n
 ;;9002226,454,.06)
 ;;@
 ;;9002226,454,.08)
 ;;@
 ;;9002226,454,.09)
 ;;@
 ;;9002226,454,.11)
 ;;@
 ;;9002226,454,.12)
 ;;@
 ;;9002226,454,.13)
 ;;1
 ;;9002226,454,.14)
 ;;@
 ;;9002226,454,.15)
 ;;@
 ;;9002226,454,.16)
 ;;@
 ;;9002226,454,.17)
 ;;@
 ;;9002226,454,3101)
 ;;@
 ;;9002226.02101,"454,00075-0060-37 ",.01)
 ;;00075-0060-37
 ;;9002226.02101,"454,00075-0060-37 ",.02)
 ;;00075-0060-37
 ;;9002226.02101,"454,00085-0649-02 ",.01)
 ;;00085-0649-02
 ;;9002226.02101,"454,00085-0649-02 ",.02)
 ;;00085-0649-02
 ;;9002226.02101,"454,00085-0736-04 ",.01)
 ;;00085-0736-04
 ;;9002226.02101,"454,00085-0736-04 ",.02)
 ;;00085-0736-04
 ;;9002226.02101,"454,00085-1341-01 ",.01)
 ;;00085-1341-01
 ;;9002226.02101,"454,00085-1341-01 ",.02)
 ;;00085-1341-01
 ;;9002226.02101,"454,00085-1341-02 ",.01)
 ;;00085-1341-02
 ;;9002226.02101,"454,00085-1341-02 ",.02)
 ;;00085-1341-02
 ;;9002226.02101,"454,00085-1341-03 ",.01)
 ;;00085-1341-03
 ;;9002226.02101,"454,00085-1341-03 ",.02)
 ;;00085-1341-03
 ;;9002226.02101,"454,00085-1341-04 ",.01)
 ;;00085-1341-04
 ;;9002226.02101,"454,00085-1341-04 ",.02)
 ;;00085-1341-04
 ;;9002226.02101,"454,00089-0175-40 ",.01)
 ;;00089-0175-40
 ;;9002226.02101,"454,00089-0175-40 ",.02)
 ;;00089-0175-40
 ;;9002226.02101,"454,00089-0177-80 ",.01)
 ;;00089-0177-80
 ;;9002226.02101,"454,00089-0177-80 ",.02)
 ;;00089-0177-80
 ;;9002226.02101,"454,00173-0491-00 ",.01)
 ;;00173-0491-00
 ;;9002226.02101,"454,00173-0491-00 ",.02)
 ;;00173-0491-00
 ;;9002226.02101,"454,00173-0494-00 ",.01)
 ;;00173-0494-00
 ;;9002226.02101,"454,00173-0494-00 ",.02)
 ;;00173-0494-00
 ;;9002226.02101,"454,00173-0495-00 ",.01)
 ;;00173-0495-00
 ;;9002226.02101,"454,00173-0495-00 ",.02)
 ;;00173-0495-00
 ;;9002226.02101,"454,00173-0497-00 ",.01)
 ;;00173-0497-00
 ;;9002226.02101,"454,00173-0497-00 ",.02)
 ;;00173-0497-00
 ;;9002226.02101,"454,00173-0498-00 ",.01)
 ;;00173-0498-00
 ;;9002226.02101,"454,00173-0498-00 ",.02)
 ;;00173-0498-00
 ;;9002226.02101,"454,00173-0499-00 ",.01)
 ;;00173-0499-00
 ;;9002226.02101,"454,00173-0499-00 ",.02)
 ;;00173-0499-00
 ;;9002226.02101,"454,00173-0504-00 ",.01)
 ;;00173-0504-00
 ;;9002226.02101,"454,00173-0504-00 ",.02)
 ;;00173-0504-00
 ;;9002226.02101,"454,00173-0509-00 ",.01)
 ;;00173-0509-00
 ;;9002226.02101,"454,00173-0509-00 ",.02)
 ;;00173-0509-00
 ;;9002226.02101,"454,00173-0511-00 ",.01)
 ;;00173-0511-00
 ;;9002226.02101,"454,00173-0511-00 ",.02)
 ;;00173-0511-00
 ;;9002226.02101,"454,00173-0695-00 ",.01)
 ;;00173-0695-00
 ;;9002226.02101,"454,00173-0695-00 ",.02)
 ;;00173-0695-00
 ;;9002226.02101,"454,00173-0695-02 ",.01)
 ;;00173-0695-02
 ;;9002226.02101,"454,00173-0695-02 ",.02)
 ;;00173-0695-02
 ;;9002226.02101,"454,00173-0696-00 ",.01)
 ;;00173-0696-00
 ;;9002226.02101,"454,00173-0696-00 ",.02)
 ;;00173-0696-00
 ;;9002226.02101,"454,00173-0696-02 ",.01)
 ;;00173-0696-02
 ;;9002226.02101,"454,00173-0696-02 ",.02)
 ;;00173-0696-02
 ;;9002226.02101,"454,00173-0697-00 ",.01)
 ;;00173-0697-00
 ;;9002226.02101,"454,00173-0697-00 ",.02)
 ;;00173-0697-00
 ;;9002226.02101,"454,00173-0697-02 ",.01)
 ;;00173-0697-02
 ;;9002226.02101,"454,00173-0697-02 ",.02)
 ;;00173-0697-02
 ;;9002226.02101,"454,00186-0915-42 ",.01)
 ;;00186-0915-42
 ;;9002226.02101,"454,00186-0915-42 ",.02)
 ;;00186-0915-42
 ;;9002226.02101,"454,00186-1988-04 ",.01)
 ;;00186-1988-04
 ;;9002226.02101,"454,00186-1988-04 ",.02)
 ;;00186-1988-04
 ;;9002226.02101,"454,00186-1989-04 ",.01)
 ;;00186-1989-04
 ;;9002226.02101,"454,00186-1989-04 ",.02)
 ;;00186-1989-04
 ;;9002226.02101,"454,51479-0011-03 ",.01)
 ;;51479-0011-03
 ;;9002226.02101,"454,51479-0011-03 ",.02)
 ;;51479-0011-03
 ;;9002226.02101,"454,52959-0286-03 ",.01)
 ;;52959-0286-03
 ;;9002226.02101,"454,52959-0286-03 ",.02)
 ;;52959-0286-03
 ;;9002226.02101,"454,52959-0585-00 ",.01)
 ;;52959-0585-00
 ;;9002226.02101,"454,52959-0585-00 ",.02)
 ;;52959-0585-00
 ;;9002226.02101,"454,52959-0596-01 ",.01)
 ;;52959-0596-01
 ;;9002226.02101,"454,52959-0596-01 ",.02)
 ;;52959-0596-01
 ;;9002226.02101,"454,52959-0598-01 ",.01)
 ;;52959-0598-01
 ;;9002226.02101,"454,52959-0598-01 ",.02)
 ;;52959-0598-01
 ;;9002226.02101,"454,54569-0053-00 ",.01)
 ;;54569-0053-00
 ;;9002226.02101,"454,54569-0053-00 ",.02)
 ;;54569-0053-00
 ;;9002226.02101,"454,54569-0067-00 ",.01)
 ;;54569-0067-00
 ;;9002226.02101,"454,54569-0067-00 ",.02)
 ;;54569-0067-00
 ;;9002226.02101,"454,54569-1004-00 ",.01)
 ;;54569-1004-00
 ;;9002226.02101,"454,54569-1004-00 ",.02)
 ;;54569-1004-00
 ;;9002226.02101,"454,54569-3656-00 ",.01)
 ;;54569-3656-00
 ;;9002226.02101,"454,54569-3656-00 ",.02)
 ;;54569-3656-00
 ;;9002226.02101,"454,54569-4540-00 ",.01)
 ;;54569-4540-00
 ;;9002226.02101,"454,54569-4540-00 ",.02)
 ;;54569-4540-00
 ;;9002226.02101,"454,54569-4602-00 ",.01)
 ;;54569-4602-00
 ;;9002226.02101,"454,54569-4602-00 ",.02)
 ;;54569-4602-00
 ;;9002226.02101,"454,54569-4603-00 ",.01)
 ;;54569-4603-00
 ;;9002226.02101,"454,54569-4603-00 ",.02)
 ;;54569-4603-00
 ;;9002226.02101,"454,54569-4863-00 ",.01)
 ;;54569-4863-00
 ;;9002226.02101,"454,54569-4863-00 ",.02)
 ;;54569-4863-00
 ;;9002226.02101,"454,54569-4896-00 ",.01)
 ;;54569-4896-00
 ;;9002226.02101,"454,54569-4896-00 ",.02)
 ;;54569-4896-00
 ;;9002226.02101,"454,54569-5162-00 ",.01)
 ;;54569-5162-00
 ;;9002226.02101,"454,54569-5162-00 ",.02)
 ;;54569-5162-00
 ;;9002226.02101,"454,54569-5163-00 ",.01)
 ;;54569-5163-00
 ;;9002226.02101,"454,54569-5163-00 ",.02)
 ;;54569-5163-00
 ;;9002226.02101,"454,54569-5241-00 ",.01)
 ;;54569-5241-00
 ;;9002226.02101,"454,54569-5241-00 ",.02)
 ;;54569-5241-00
 ;;9002226.02101,"454,54569-5242-00 ",.01)
 ;;54569-5242-00
 ;;9002226.02101,"454,54569-5242-00 ",.02)
 ;;54569-5242-00
 ;;9002226.02101,"454,54569-5243-00 ",.01)
 ;;54569-5243-00
 ;;9002226.02101,"454,54569-5243-00 ",.02)
 ;;54569-5243-00
 ;;9002226.02101,"454,54868-1268-01 ",.01)
 ;;54868-1268-01
 ;;9002226.02101,"454,54868-1268-01 ",.02)
 ;;54868-1268-01
 ;;9002226.02101,"454,54868-1269-01 ",.01)
 ;;54868-1269-01
 ;;9002226.02101,"454,54868-1269-01 ",.02)
 ;;54868-1269-01
 ;;9002226.02101,"454,54868-1841-01 ",.01)
 ;;54868-1841-01
 ;;9002226.02101,"454,54868-1841-01 ",.02)
 ;;54868-1841-01
 ;;9002226.02101,"454,54868-4182-00 ",.01)
 ;;54868-4182-00
 ;;9002226.02101,"454,54868-4182-00 ",.02)
 ;;54868-4182-00
 ;;9002226.02101,"454,54868-4264-00 ",.01)
 ;;54868-4264-00
 ;;9002226.02101,"454,54868-4264-00 ",.02)
 ;;54868-4264-00
 ;;9002226.02101,"454,54868-4295-00 ",.01)
 ;;54868-4295-00
 ;;9002226.02101,"454,54868-4295-00 ",.02)
 ;;54868-4295-00
 ;;9002226.02101,"454,54868-4392-00 ",.01)
 ;;54868-4392-00
 ;;9002226.02101,"454,54868-4392-00 ",.02)
 ;;54868-4392-00
 ;;9002226.02101,"454,54868-4516-00 ",.01)
 ;;54868-4516-00
 ;;9002226.02101,"454,54868-4516-00 ",.02)
 ;;54868-4516-00
 ;;9002226.02101,"454,54868-4517-00 ",.01)
 ;;54868-4517-00
 ;;9002226.02101,"454,54868-4517-00 ",.02)
 ;;54868-4517-00
 ;;9002226.02101,"454,54868-4518-00 ",.01)
 ;;54868-4518-00
 ;;9002226.02101,"454,54868-4518-00 ",.02)
 ;;54868-4518-00
 ;;9002226.02101,"454,54969-4741-00 ",.01)
 ;;54969-4741-00
 ;;9002226.02101,"454,54969-4741-00 ",.02)
 ;;54969-4741-00
 ;;9002226.02101,"454,58016-6075-01 ",.01)
 ;;58016-6075-01
 ;;9002226.02101,"454,58016-6075-01 ",.02)
 ;;58016-6075-01
 ;;9002226.02101,"454,58016-6207-01 ",.01)
 ;;58016-6207-01
 ;;9002226.02101,"454,58016-6207-01 ",.02)
 ;;58016-6207-01
 ;;9002226.02101,"454,59569-4822-00 ",.01)
 ;;59569-4822-00
 ;;9002226.02101,"454,59569-4822-00 ",.02)
 ;;59569-4822-00
 ;
OTHER ; OTHER ROUTINES
 Q