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

BGP72A25.m

Go to the documentation of this file.
BGP72A25 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 11, 2016 ;
 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
 ;
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)
 ;;9002226.02101,"1876,54868-4564-04 ",.01)
 ;;54868-4564-04
 ;;9002226.02101,"1876,54868-4564-04 ",.02)
 ;;54868-4564-04
 ;;9002226.02101,"1876,54868-4564-05 ",.01)
 ;;54868-4564-05
 ;;9002226.02101,"1876,54868-4564-05 ",.02)
 ;;54868-4564-05
 ;;9002226.02101,"1876,54868-4566-00 ",.01)
 ;;54868-4566-00
 ;;9002226.02101,"1876,54868-4566-00 ",.02)
 ;;54868-4566-00
 ;;9002226.02101,"1876,54868-4566-01 ",.01)
 ;;54868-4566-01
 ;;9002226.02101,"1876,54868-4566-01 ",.02)
 ;;54868-4566-01
 ;;9002226.02101,"1876,54868-4566-02 ",.01)
 ;;54868-4566-02
 ;;9002226.02101,"1876,54868-4566-02 ",.02)
 ;;54868-4566-02
 ;;9002226.02101,"1876,54868-4566-03 ",.01)
 ;;54868-4566-03
 ;;9002226.02101,"1876,54868-4566-03 ",.02)
 ;;54868-4566-03
 ;;9002226.02101,"1876,54868-4566-04 ",.01)
 ;;54868-4566-04
 ;;9002226.02101,"1876,54868-4566-04 ",.02)
 ;;54868-4566-04
 ;;9002226.02101,"1876,54868-4609-00 ",.01)
 ;;54868-4609-00
 ;;9002226.02101,"1876,54868-4609-00 ",.02)
 ;;54868-4609-00
 ;;9002226.02101,"1876,54868-4609-01 ",.01)
 ;;54868-4609-01
 ;;9002226.02101,"1876,54868-4609-01 ",.02)
 ;;54868-4609-01
 ;;9002226.02101,"1876,54868-4842-00 ",.01)
 ;;54868-4842-00
 ;;9002226.02101,"1876,54868-4842-00 ",.02)
 ;;54868-4842-00
 ;;9002226.02101,"1876,54868-4842-01 ",.01)
 ;;54868-4842-01
 ;;9002226.02101,"1876,54868-4842-01 ",.02)
 ;;54868-4842-01
 ;;9002226.02101,"1876,54868-4842-02 ",.01)
 ;;54868-4842-02
 ;;9002226.02101,"1876,54868-4842-02 ",.02)
 ;;54868-4842-02
 ;;9002226.02101,"1876,54868-4906-00 ",.01)
 ;;54868-4906-00
 ;;9002226.02101,"1876,54868-4906-00 ",.02)
 ;;54868-4906-00
 ;;9002226.02101,"1876,54868-4965-00 ",.01)
 ;;54868-4965-00
 ;;9002226.02101,"1876,54868-4965-00 ",.02)
 ;;54868-4965-00
 ;;9002226.02101,"1876,54868-4965-01 ",.01)
 ;;54868-4965-01
 ;;9002226.02101,"1876,54868-4965-01 ",.02)
 ;;54868-4965-01
 ;;9002226.02101,"1876,54868-4965-02 ",.01)
 ;;54868-4965-02
 ;;9002226.02101,"1876,54868-4965-02 ",.02)
 ;;54868-4965-02
 ;;9002226.02101,"1876,54868-4988-00 ",.01)
 ;;54868-4988-00
 ;;9002226.02101,"1876,54868-4988-00 ",.02)
 ;;54868-4988-00
 ;;9002226.02101,"1876,54868-4988-01 ",.01)
 ;;54868-4988-01
 ;;9002226.02101,"1876,54868-4988-01 ",.02)
 ;;54868-4988-01
 ;;9002226.02101,"1876,54868-4988-02 ",.01)
 ;;54868-4988-02
 ;;9002226.02101,"1876,54868-4988-02 ",.02)
 ;;54868-4988-02
 ;;9002226.02101,"1876,54868-4988-03 ",.01)
 ;;54868-4988-03
 ;;9002226.02101,"1876,54868-4988-03 ",.02)
 ;;54868-4988-03
 ;;9002226.02101,"1876,54868-4988-04 ",.01)
 ;;54868-4988-04
 ;;9002226.02101,"1876,54868-4988-04 ",.02)
 ;;54868-4988-04
 ;;9002226.02101,"1876,54868-5148-00 ",.01)
 ;;54868-5148-00
 ;;9002226.02101,"1876,54868-5148-00 ",.02)
 ;;54868-5148-00
 ;;9002226.02101,"1876,54868-5148-01 ",.01)
 ;;54868-5148-01
 ;;9002226.02101,"1876,54868-5148-01 ",.02)
 ;;54868-5148-01
 ;;9002226.02101,"1876,54868-5148-02 ",.01)
 ;;54868-5148-02
 ;;9002226.02101,"1876,54868-5148-02 ",.02)
 ;;54868-5148-02
 ;;9002226.02101,"1876,54868-5148-03 ",.01)
 ;;54868-5148-03
 ;;9002226.02101,"1876,54868-5148-03 ",.02)
 ;;54868-5148-03
 ;;9002226.02101,"1876,54868-5148-04 ",.01)
 ;;54868-5148-04
 ;;9002226.02101,"1876,54868-5148-04 ",.02)
 ;;54868-5148-04
 ;;9002226.02101,"1876,54868-5157-00 ",.01)
 ;;54868-5157-00
 ;;9002226.02101,"1876,54868-5157-00 ",.02)
 ;;54868-5157-00
 ;;9002226.02101,"1876,54868-5157-01 ",.01)
 ;;54868-5157-01
 ;;9002226.02101,"1876,54868-5157-01 ",.02)
 ;;54868-5157-01
 ;;9002226.02101,"1876,54868-5185-00 ",.01)
 ;;54868-5185-00
 ;;9002226.02101,"1876,54868-5185-00 ",.02)
 ;;54868-5185-00
 ;;9002226.02101,"1876,54868-5185-01 ",.01)
 ;;54868-5185-01
 ;;9002226.02101,"1876,54868-5185-01 ",.02)
 ;;54868-5185-01
 ;;9002226.02101,"1876,54868-5185-02 ",.01)
 ;;54868-5185-02
 ;;9002226.02101,"1876,54868-5185-02 ",.02)
 ;;54868-5185-02
 ;;9002226.02101,"1876,54868-5185-03 ",.01)
 ;;54868-5185-03
 ;;9002226.02101,"1876,54868-5185-03 ",.02)
 ;;54868-5185-03
 ;;9002226.02101,"1876,54868-5188-00 ",.01)
 ;;54868-5188-00
 ;;9002226.02101,"1876,54868-5188-00 ",.02)
 ;;54868-5188-00
 ;;9002226.02101,"1876,54868-5188-01 ",.01)
 ;;54868-5188-01
 ;;9002226.02101,"1876,54868-5188-01 ",.02)
 ;;54868-5188-01
 ;;9002226.02101,"1876,54868-5188-02 ",.01)
 ;;54868-5188-02
 ;;9002226.02101,"1876,54868-5188-02 ",.02)
 ;;54868-5188-02
 ;;9002226.02101,"1876,54868-5210-00 ",.01)
 ;;54868-5210-00
 ;;9002226.02101,"1876,54868-5210-00 ",.02)
 ;;54868-5210-00
 ;;9002226.02101,"1876,54868-5210-01 ",.01)
 ;;54868-5210-01
 ;;9002226.02101,"1876,54868-5210-01 ",.02)
 ;;54868-5210-01
 ;;9002226.02101,"1876,54868-5210-02 ",.01)
 ;;54868-5210-02
 ;;9002226.02101,"1876,54868-5210-02 ",.02)
 ;;54868-5210-02
 ;;9002226.02101,"1876,54868-5210-03 ",.01)
 ;;54868-5210-03
 ;;9002226.02101,"1876,54868-5210-03 ",.02)
 ;;54868-5210-03
 ;;9002226.02101,"1876,54868-5217-00 ",.01)
 ;;54868-5217-00
 ;;9002226.02101,"1876,54868-5217-00 ",.02)
 ;;54868-5217-00
 ;;9002226.02101,"1876,54868-5217-01 ",.01)
 ;;54868-5217-01
 ;;9002226.02101,"1876,54868-5217-01 ",.02)
 ;;54868-5217-01
 ;;9002226.02101,"1876,54868-5217-02 ",.01)
 ;;54868-5217-02
 ;;9002226.02101,"1876,54868-5217-02 ",.02)
 ;;54868-5217-02
 ;;9002226.02101,"1876,54868-5217-03 ",.01)
 ;;54868-5217-03
 ;;9002226.02101,"1876,54868-5217-03 ",.02)
 ;;54868-5217-03
 ;;9002226.02101,"1876,54868-5217-04 ",.01)
 ;;54868-5217-04
 ;;9002226.02101,"1876,54868-5217-04 ",.02)
 ;;54868-5217-04
 ;;9002226.02101,"1876,54868-5217-05 ",.01)
 ;;54868-5217-05
 ;;9002226.02101,"1876,54868-5217-05 ",.02)
 ;;54868-5217-05
 ;;9002226.02101,"1876,54868-5243-00 ",.01)
 ;;54868-5243-00
 ;;9002226.02101,"1876,54868-5243-00 ",.02)
 ;;54868-5243-00
 ;;9002226.02101,"1876,54868-5243-01 ",.01)
 ;;54868-5243-01
 ;;9002226.02101,"1876,54868-5243-01 ",.02)
 ;;54868-5243-01
 ;;9002226.02101,"1876,54868-5243-02 ",.01)
 ;;54868-5243-02
 ;;9002226.02101,"1876,54868-5243-02 ",.02)
 ;;54868-5243-02
 ;;9002226.02101,"1876,54868-5243-03 ",.01)
 ;;54868-5243-03
 ;;9002226.02101,"1876,54868-5243-03 ",.02)
 ;;54868-5243-03
 ;;9002226.02101,"1876,54868-5243-04 ",.01)
 ;;54868-5243-04
 ;;9002226.02101,"1876,54868-5243-04 ",.02)
 ;;54868-5243-04
 ;;9002226.02101,"1876,54868-5249-00 ",.01)
 ;;54868-5249-00
 ;;9002226.02101,"1876,54868-5249-00 ",.02)
 ;;54868-5249-00
 ;;9002226.02101,"1876,54868-5249-01 ",.01)
 ;;54868-5249-01
 ;;9002226.02101,"1876,54868-5249-01 ",.02)
 ;;54868-5249-01
 ;;9002226.02101,"1876,54868-5364-00 ",.01)
 ;;54868-5364-00
 ;;9002226.02101,"1876,54868-5364-00 ",.02)
 ;;54868-5364-00
 ;;9002226.02101,"1876,54868-5364-01 ",.01)
 ;;54868-5364-01
 ;;9002226.02101,"1876,54868-5364-01 ",.02)
 ;;54868-5364-01
 ;;9002226.02101,"1876,54868-5364-02 ",.01)
 ;;54868-5364-02
 ;;9002226.02101,"1876,54868-5364-02 ",.02)
 ;;54868-5364-02
 ;;9002226.02101,"1876,54868-5376-00 ",.01)
 ;;54868-5376-00
 ;;9002226.02101,"1876,54868-5376-00 ",.02)
 ;;54868-5376-00
 ;;9002226.02101,"1876,54868-5380-00 ",.01)
 ;;54868-5380-00
 ;;9002226.02101,"1876,54868-5380-00 ",.02)
 ;;54868-5380-00
 ;;9002226.02101,"1876,54868-5380-01 ",.01)
 ;;54868-5380-01
 ;;9002226.02101,"1876,54868-5380-01 ",.02)
 ;;54868-5380-01
 ;;9002226.02101,"1876,54868-5381-00 ",.01)
 ;;54868-5381-00
 ;;9002226.02101,"1876,54868-5381-00 ",.02)
 ;;54868-5381-00
 ;;9002226.02101,"1876,54868-5381-01 ",.01)
 ;;54868-5381-01
 ;;9002226.02101,"1876,54868-5381-01 ",.02)
 ;;54868-5381-01
 ;;9002226.02101,"1876,54868-5381-02 ",.01)
 ;;54868-5381-02
 ;;9002226.02101,"1876,54868-5381-02 ",.02)
 ;;54868-5381-02
 ;;9002226.02101,"1876,54868-5384-00 ",.01)
 ;;54868-5384-00
 ;;9002226.02101,"1876,54868-5384-00 ",.02)
 ;;54868-5384-00
 ;;9002226.02101,"1876,54868-5384-01 ",.01)
 ;;54868-5384-01
 ;;9002226.02101,"1876,54868-5384-01 ",.02)
 ;;54868-5384-01
 ;;9002226.02101,"1876,54868-5457-00 ",.01)
 ;;54868-5457-00
 ;;9002226.02101,"1876,54868-5457-00 ",.02)
 ;;54868-5457-00
 ;;9002226.02101,"1876,54868-5457-01 ",.01)
 ;;54868-5457-01
 ;;9002226.02101,"1876,54868-5457-01 ",.02)
 ;;54868-5457-01
 ;;9002226.02101,"1876,54868-5457-02 ",.01)
 ;;54868-5457-02
 ;;9002226.02101,"1876,54868-5457-02 ",.02)
 ;;54868-5457-02
 ;;9002226.02101,"1876,54868-5467-00 ",.01)
 ;;54868-5467-00
 ;;9002226.02101,"1876,54868-5467-00 ",.02)
 ;;54868-5467-00
 ;;9002226.02101,"1876,54868-5467-01 ",.01)
 ;;54868-5467-01
 ;;9002226.02101,"1876,54868-5467-01 ",.02)
 ;;54868-5467-01
 ;;9002226.02101,"1876,54868-5467-02 ",.01)
 ;;54868-5467-02
 ;;9002226.02101,"1876,54868-5467-02 ",.02)
 ;;54868-5467-02
 ;;9002226.02101,"1876,54868-5500-00 ",.01)
 ;;54868-5500-00
 ;;9002226.02101,"1876,54868-5500-00 ",.02)
 ;;54868-5500-00
 ;;9002226.02101,"1876,54868-5500-01 ",.01)
 ;;54868-5500-01
 ;;9002226.02101,"1876,54868-5500-01 ",.02)
 ;;54868-5500-01
 ;;9002226.02101,"1876,54868-5500-02 ",.01)
 ;;54868-5500-02
 ;;9002226.02101,"1876,54868-5500-02 ",.02)
 ;;54868-5500-02
 ;;9002226.02101,"1876,54868-5505-00 ",.01)
 ;;54868-5505-00
 ;;9002226.02101,"1876,54868-5505-00 ",.02)
 ;;54868-5505-00
 ;;9002226.02101,"1876,54868-5505-01 ",.01)
 ;;54868-5505-01
 ;;9002226.02101,"1876,54868-5505-01 ",.02)
 ;;54868-5505-01
 ;;9002226.02101,"1876,54868-5505-02 ",.01)
 ;;54868-5505-02
 ;;9002226.02101,"1876,54868-5505-02 ",.02)
 ;;54868-5505-02
 ;;9002226.02101,"1876,54868-5553-00 ",.01)
 ;;54868-5553-00
 ;;9002226.02101,"1876,54868-5553-00 ",.02)
 ;;54868-5553-00
 ;;9002226.02101,"1876,54868-5553-01 ",.01)
 ;;54868-5553-01
 ;;9002226.02101,"1876,54868-5553-01 ",.02)
 ;;54868-5553-01
 ;;9002226.02101,"1876,54868-5553-02 ",.01)
 ;;54868-5553-02
 ;;9002226.02101,"1876,54868-5553-02 ",.02)
 ;;54868-5553-02
 ;;9002226.02101,"1876,54868-5558-00 ",.01)
 ;;54868-5558-00
 ;;9002226.02101,"1876,54868-5558-00 ",.02)
 ;;54868-5558-00
 ;;9002226.02101,"1876,54868-5558-01 ",.01)
 ;;54868-5558-01
 ;;9002226.02101,"1876,54868-5558-01 ",.02)
 ;;54868-5558-01
 ;;9002226.02101,"1876,54868-5712-00 ",.01)
 ;;54868-5712-00
 ;;9002226.02101,"1876,54868-5712-00 ",.02)
 ;;54868-5712-00
 ;;9002226.02101,"1876,54868-5739-00 ",.01)
 ;;54868-5739-00
 ;;9002226.02101,"1876,54868-5739-00 ",.02)
 ;;54868-5739-00
 ;;9002226.02101,"1876,54868-5840-00 ",.01)
 ;;54868-5840-00
 ;;9002226.02101,"1876,54868-5840-00 ",.02)
 ;;54868-5840-00
 ;;9002226.02101,"1876,54868-5840-01 ",.01)
 ;;54868-5840-01
 ;;9002226.02101,"1876,54868-5840-01 ",.02)
 ;;54868-5840-01
 ;;9002226.02101,"1876,54868-5973-00 ",.01)
 ;;54868-5973-00
 ;;9002226.02101,"1876,54868-5973-00 ",.02)
 ;;54868-5973-00
 ;;9002226.02101,"1876,54868-6031-00 ",.01)
 ;;54868-6031-00
 ;;9002226.02101,"1876,54868-6031-00 ",.02)
 ;;54868-6031-00
 ;;9002226.02101,"1876,54868-6031-01 ",.01)
 ;;54868-6031-01
 ;;9002226.02101,"1876,54868-6031-01 ",.02)
 ;;54868-6031-01
 ;;9002226.02101,"1876,54868-6255-00 ",.01)
 ;;54868-6255-00
 ;;9002226.02101,"1876,54868-6255-00 ",.02)
 ;;54868-6255-00
 ;;9002226.02101,"1876,54868-6255-01 ",.01)
 ;;54868-6255-01
 ;;9002226.02101,"1876,54868-6255-01 ",.02)
 ;;54868-6255-01
 ;;9002226.02101,"1876,54868-6309-00 ",.01)
 ;;54868-6309-00
 ;;9002226.02101,"1876,54868-6309-00 ",.02)
 ;;54868-6309-00
 ;;9002226.02101,"1876,54868-6432-00 ",.01)
 ;;54868-6432-00
 ;;9002226.02101,"1876,54868-6432-00 ",.02)
 ;;54868-6432-00
 ;;9002226.02101,"1876,54868-6438-00 ",.01)
 ;;54868-6438-00
 ;;9002226.02101,"1876,54868-6438-00 ",.02)
 ;;54868-6438-00
 ;;9002226.02101,"1876,55048-0241-30 ",.01)
 ;;55048-0241-30
 ;;9002226.02101,"1876,55048-0241-30 ",.02)
 ;;55048-0241-30
 ;;9002226.02101,"1876,55048-0242-30 ",.01)
 ;;55048-0242-30
 ;;9002226.02101,"1876,55048-0242-30 ",.02)
 ;;55048-0242-30
 ;;9002226.02101,"1876,55048-0243-30 ",.01)
 ;;55048-0243-30