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

BGP82A34.m

Go to the documentation of this file.
BGP82A34 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"1799,63629-3152-01 ",.01)
 ;;63629-3152-01
 ;;9002226.02101,"1799,63629-3152-01 ",.02)
 ;;63629-3152-01
 ;;9002226.02101,"1799,63629-3152-02 ",.01)
 ;;63629-3152-02
 ;;9002226.02101,"1799,63629-3152-02 ",.02)
 ;;63629-3152-02
 ;;9002226.02101,"1799,63629-3199-01 ",.01)
 ;;63629-3199-01
 ;;9002226.02101,"1799,63629-3199-01 ",.02)
 ;;63629-3199-01
 ;;9002226.02101,"1799,63629-3199-02 ",.01)
 ;;63629-3199-02
 ;;9002226.02101,"1799,63629-3199-02 ",.02)
 ;;63629-3199-02
 ;;9002226.02101,"1799,63629-3199-03 ",.01)
 ;;63629-3199-03
 ;;9002226.02101,"1799,63629-3199-03 ",.02)
 ;;63629-3199-03
 ;;9002226.02101,"1799,63629-3199-04 ",.01)
 ;;63629-3199-04
 ;;9002226.02101,"1799,63629-3199-04 ",.02)
 ;;63629-3199-04
 ;;9002226.02101,"1799,63629-3204-01 ",.01)
 ;;63629-3204-01
 ;;9002226.02101,"1799,63629-3204-01 ",.02)
 ;;63629-3204-01
 ;;9002226.02101,"1799,63629-3204-02 ",.01)
 ;;63629-3204-02
 ;;9002226.02101,"1799,63629-3204-02 ",.02)
 ;;63629-3204-02
 ;;9002226.02101,"1799,63629-3204-03 ",.01)
 ;;63629-3204-03
 ;;9002226.02101,"1799,63629-3204-03 ",.02)
 ;;63629-3204-03
 ;;9002226.02101,"1799,63629-3204-04 ",.01)
 ;;63629-3204-04
 ;;9002226.02101,"1799,63629-3204-04 ",.02)
 ;;63629-3204-04
 ;;9002226.02101,"1799,63629-3205-01 ",.01)
 ;;63629-3205-01
 ;;9002226.02101,"1799,63629-3205-01 ",.02)
 ;;63629-3205-01
 ;;9002226.02101,"1799,63629-3205-02 ",.01)
 ;;63629-3205-02
 ;;9002226.02101,"1799,63629-3205-02 ",.02)
 ;;63629-3205-02
 ;;9002226.02101,"1799,63629-3205-03 ",.01)
 ;;63629-3205-03
 ;;9002226.02101,"1799,63629-3205-03 ",.02)
 ;;63629-3205-03
 ;;9002226.02101,"1799,63629-3221-01 ",.01)
 ;;63629-3221-01
 ;;9002226.02101,"1799,63629-3221-01 ",.02)
 ;;63629-3221-01
 ;;9002226.02101,"1799,63629-3337-01 ",.01)
 ;;63629-3337-01
 ;;9002226.02101,"1799,63629-3337-01 ",.02)
 ;;63629-3337-01
 ;;9002226.02101,"1799,63629-3337-02 ",.01)
 ;;63629-3337-02
 ;;9002226.02101,"1799,63629-3337-02 ",.02)
 ;;63629-3337-02
 ;;9002226.02101,"1799,63629-3337-03 ",.01)
 ;;63629-3337-03
 ;;9002226.02101,"1799,63629-3337-03 ",.02)
 ;;63629-3337-03
 ;;9002226.02101,"1799,63629-3337-04 ",.01)
 ;;63629-3337-04
 ;;9002226.02101,"1799,63629-3337-04 ",.02)
 ;;63629-3337-04
 ;;9002226.02101,"1799,63629-3348-01 ",.01)
 ;;63629-3348-01
 ;;9002226.02101,"1799,63629-3348-01 ",.02)
 ;;63629-3348-01
 ;;9002226.02101,"1799,63629-3348-02 ",.01)
 ;;63629-3348-02
 ;;9002226.02101,"1799,63629-3348-02 ",.02)
 ;;63629-3348-02
 ;;9002226.02101,"1799,63629-3348-03 ",.01)
 ;;63629-3348-03
 ;;9002226.02101,"1799,63629-3348-03 ",.02)
 ;;63629-3348-03
 ;;9002226.02101,"1799,63629-3348-04 ",.01)
 ;;63629-3348-04
 ;;9002226.02101,"1799,63629-3348-04 ",.02)
 ;;63629-3348-04
 ;;9002226.02101,"1799,63629-3349-01 ",.01)
 ;;63629-3349-01
 ;;9002226.02101,"1799,63629-3349-01 ",.02)
 ;;63629-3349-01
 ;;9002226.02101,"1799,63629-3362-01 ",.01)
 ;;63629-3362-01
 ;;9002226.02101,"1799,63629-3362-01 ",.02)
 ;;63629-3362-01
 ;;9002226.02101,"1799,63629-3362-02 ",.01)
 ;;63629-3362-02
 ;;9002226.02101,"1799,63629-3362-02 ",.02)
 ;;63629-3362-02
 ;;9002226.02101,"1799,63629-3362-03 ",.01)
 ;;63629-3362-03
 ;;9002226.02101,"1799,63629-3362-03 ",.02)
 ;;63629-3362-03
 ;;9002226.02101,"1799,63629-3362-04 ",.01)
 ;;63629-3362-04
 ;;9002226.02101,"1799,63629-3362-04 ",.02)
 ;;63629-3362-04
 ;;9002226.02101,"1799,63629-3362-05 ",.01)
 ;;63629-3362-05
 ;;9002226.02101,"1799,63629-3362-05 ",.02)
 ;;63629-3362-05
 ;;9002226.02101,"1799,63629-3362-06 ",.01)
 ;;63629-3362-06
 ;;9002226.02101,"1799,63629-3362-06 ",.02)
 ;;63629-3362-06
 ;;9002226.02101,"1799,63629-3405-01 ",.01)
 ;;63629-3405-01
 ;;9002226.02101,"1799,63629-3405-01 ",.02)
 ;;63629-3405-01
 ;;9002226.02101,"1799,63629-3405-02 ",.01)
 ;;63629-3405-02
 ;;9002226.02101,"1799,63629-3405-02 ",.02)
 ;;63629-3405-02
 ;;9002226.02101,"1799,63629-3405-03 ",.01)
 ;;63629-3405-03
 ;;9002226.02101,"1799,63629-3405-03 ",.02)
 ;;63629-3405-03
 ;;9002226.02101,"1799,63629-3405-04 ",.01)
 ;;63629-3405-04
 ;;9002226.02101,"1799,63629-3405-04 ",.02)
 ;;63629-3405-04
 ;;9002226.02101,"1799,63629-3548-01 ",.01)
 ;;63629-3548-01
 ;;9002226.02101,"1799,63629-3548-01 ",.02)
 ;;63629-3548-01
 ;;9002226.02101,"1799,63629-3548-02 ",.01)
 ;;63629-3548-02
 ;;9002226.02101,"1799,63629-3548-02 ",.02)
 ;;63629-3548-02
 ;;9002226.02101,"1799,63629-3548-03 ",.01)
 ;;63629-3548-03
 ;;9002226.02101,"1799,63629-3548-03 ",.02)
 ;;63629-3548-03
 ;;9002226.02101,"1799,63629-3548-04 ",.01)
 ;;63629-3548-04
 ;;9002226.02101,"1799,63629-3548-04 ",.02)
 ;;63629-3548-04
 ;;9002226.02101,"1799,63629-3548-05 ",.01)
 ;;63629-3548-05
 ;;9002226.02101,"1799,63629-3548-05 ",.02)
 ;;63629-3548-05
 ;;9002226.02101,"1799,63629-3548-06 ",.01)
 ;;63629-3548-06
 ;;9002226.02101,"1799,63629-3548-06 ",.02)
 ;;63629-3548-06
 ;;9002226.02101,"1799,63629-3548-07 ",.01)
 ;;63629-3548-07
 ;;9002226.02101,"1799,63629-3548-07 ",.02)
 ;;63629-3548-07
 ;;9002226.02101,"1799,63629-3548-08 ",.01)
 ;;63629-3548-08
 ;;9002226.02101,"1799,63629-3548-08 ",.02)
 ;;63629-3548-08
 ;;9002226.02101,"1799,63629-3549-01 ",.01)
 ;;63629-3549-01
 ;;9002226.02101,"1799,63629-3549-01 ",.02)
 ;;63629-3549-01
 ;;9002226.02101,"1799,63629-3549-02 ",.01)
 ;;63629-3549-02
 ;;9002226.02101,"1799,63629-3549-02 ",.02)
 ;;63629-3549-02
 ;;9002226.02101,"1799,63629-3549-03 ",.01)
 ;;63629-3549-03
 ;;9002226.02101,"1799,63629-3549-03 ",.02)
 ;;63629-3549-03
 ;;9002226.02101,"1799,63629-3549-04 ",.01)
 ;;63629-3549-04
 ;;9002226.02101,"1799,63629-3549-04 ",.02)
 ;;63629-3549-04
 ;;9002226.02101,"1799,63629-3549-05 ",.01)
 ;;63629-3549-05
 ;;9002226.02101,"1799,63629-3549-05 ",.02)
 ;;63629-3549-05
 ;;9002226.02101,"1799,63629-3549-06 ",.01)
 ;;63629-3549-06
 ;;9002226.02101,"1799,63629-3549-06 ",.02)
 ;;63629-3549-06
 ;;9002226.02101,"1799,63629-3597-01 ",.01)
 ;;63629-3597-01
 ;;9002226.02101,"1799,63629-3597-01 ",.02)
 ;;63629-3597-01
 ;;9002226.02101,"1799,63629-3597-02 ",.01)
 ;;63629-3597-02
 ;;9002226.02101,"1799,63629-3597-02 ",.02)
 ;;63629-3597-02
 ;;9002226.02101,"1799,63629-3597-03 ",.01)
 ;;63629-3597-03
 ;;9002226.02101,"1799,63629-3597-03 ",.02)
 ;;63629-3597-03
 ;;9002226.02101,"1799,63629-3597-04 ",.01)
 ;;63629-3597-04
 ;;9002226.02101,"1799,63629-3597-04 ",.02)
 ;;63629-3597-04
 ;;9002226.02101,"1799,63629-3645-01 ",.01)
 ;;63629-3645-01
 ;;9002226.02101,"1799,63629-3645-01 ",.02)
 ;;63629-3645-01
 ;;9002226.02101,"1799,63629-3645-02 ",.01)
 ;;63629-3645-02
 ;;9002226.02101,"1799,63629-3645-02 ",.02)
 ;;63629-3645-02
 ;;9002226.02101,"1799,63629-3786-01 ",.01)
 ;;63629-3786-01
 ;;9002226.02101,"1799,63629-3786-01 ",.02)
 ;;63629-3786-01
 ;;9002226.02101,"1799,63629-3786-02 ",.01)
 ;;63629-3786-02
 ;;9002226.02101,"1799,63629-3786-02 ",.02)
 ;;63629-3786-02
 ;;9002226.02101,"1799,63629-3906-01 ",.01)
 ;;63629-3906-01
 ;;9002226.02101,"1799,63629-3906-01 ",.02)
 ;;63629-3906-01
 ;;9002226.02101,"1799,63629-3906-02 ",.01)
 ;;63629-3906-02
 ;;9002226.02101,"1799,63629-3906-02 ",.02)
 ;;63629-3906-02
 ;;9002226.02101,"1799,63629-3906-03 ",.01)
 ;;63629-3906-03
 ;;9002226.02101,"1799,63629-3906-03 ",.02)
 ;;63629-3906-03
 ;;9002226.02101,"1799,63629-3990-01 ",.01)
 ;;63629-3990-01
 ;;9002226.02101,"1799,63629-3990-01 ",.02)
 ;;63629-3990-01
 ;;9002226.02101,"1799,63629-3990-02 ",.01)
 ;;63629-3990-02
 ;;9002226.02101,"1799,63629-3990-02 ",.02)
 ;;63629-3990-02
 ;;9002226.02101,"1799,63629-4026-01 ",.01)
 ;;63629-4026-01
 ;;9002226.02101,"1799,63629-4026-01 ",.02)
 ;;63629-4026-01
 ;;9002226.02101,"1799,63629-4123-01 ",.01)
 ;;63629-4123-01
 ;;9002226.02101,"1799,63629-4123-01 ",.02)
 ;;63629-4123-01
 ;;9002226.02101,"1799,63629-4123-02 ",.01)
 ;;63629-4123-02
 ;;9002226.02101,"1799,63629-4123-02 ",.02)
 ;;63629-4123-02
 ;;9002226.02101,"1799,63629-4276-01 ",.01)
 ;;63629-4276-01
 ;;9002226.02101,"1799,63629-4276-01 ",.02)
 ;;63629-4276-01
 ;;9002226.02101,"1799,63629-4276-02 ",.01)
 ;;63629-4276-02
 ;;9002226.02101,"1799,63629-4276-02 ",.02)
 ;;63629-4276-02
 ;;9002226.02101,"1799,63629-4304-01 ",.01)
 ;;63629-4304-01
 ;;9002226.02101,"1799,63629-4304-01 ",.02)
 ;;63629-4304-01
 ;;9002226.02101,"1799,63629-4304-02 ",.01)
 ;;63629-4304-02
 ;;9002226.02101,"1799,63629-4304-02 ",.02)
 ;;63629-4304-02
 ;;9002226.02101,"1799,63629-4304-03 ",.01)
 ;;63629-4304-03
 ;;9002226.02101,"1799,63629-4304-03 ",.02)
 ;;63629-4304-03
 ;;9002226.02101,"1799,63629-4597-01 ",.01)
 ;;63629-4597-01
 ;;9002226.02101,"1799,63629-4597-01 ",.02)
 ;;63629-4597-01
 ;;9002226.02101,"1799,63629-4615-01 ",.01)
 ;;63629-4615-01
 ;;9002226.02101,"1799,63629-4615-01 ",.02)
 ;;63629-4615-01
 ;;9002226.02101,"1799,63629-4615-02 ",.01)
 ;;63629-4615-02
 ;;9002226.02101,"1799,63629-4615-02 ",.02)
 ;;63629-4615-02
 ;;9002226.02101,"1799,63629-4615-03 ",.01)
 ;;63629-4615-03
 ;;9002226.02101,"1799,63629-4615-03 ",.02)
 ;;63629-4615-03
 ;;9002226.02101,"1799,63629-4615-04 ",.01)
 ;;63629-4615-04
 ;;9002226.02101,"1799,63629-4615-04 ",.02)
 ;;63629-4615-04
 ;;9002226.02101,"1799,63629-4615-05 ",.01)
 ;;63629-4615-05
 ;;9002226.02101,"1799,63629-4615-05 ",.02)
 ;;63629-4615-05
 ;;9002226.02101,"1799,63629-5028-01 ",.01)
 ;;63629-5028-01
 ;;9002226.02101,"1799,63629-5028-01 ",.02)
 ;;63629-5028-01
 ;;9002226.02101,"1799,63629-5028-02 ",.01)
 ;;63629-5028-02
 ;;9002226.02101,"1799,63629-5028-02 ",.02)
 ;;63629-5028-02
 ;;9002226.02101,"1799,63629-5028-03 ",.01)
 ;;63629-5028-03
 ;;9002226.02101,"1799,63629-5028-03 ",.02)
 ;;63629-5028-03
 ;;9002226.02101,"1799,63629-5320-01 ",.01)
 ;;63629-5320-01
 ;;9002226.02101,"1799,63629-5320-01 ",.02)
 ;;63629-5320-01
 ;;9002226.02101,"1799,63629-5320-02 ",.01)
 ;;63629-5320-02
 ;;9002226.02101,"1799,63629-5320-02 ",.02)
 ;;63629-5320-02
 ;;9002226.02101,"1799,63629-5320-03 ",.01)
 ;;63629-5320-03
 ;;9002226.02101,"1799,63629-5320-03 ",.02)
 ;;63629-5320-03
 ;;9002226.02101,"1799,63629-5320-04 ",.01)
 ;;63629-5320-04
 ;;9002226.02101,"1799,63629-5320-04 ",.02)
 ;;63629-5320-04
 ;;9002226.02101,"1799,63739-0200-10 ",.01)
 ;;63739-0200-10
 ;;9002226.02101,"1799,63739-0200-10 ",.02)
 ;;63739-0200-10
 ;;9002226.02101,"1799,63739-0201-10 ",.01)
 ;;63739-0201-10
 ;;9002226.02101,"1799,63739-0201-10 ",.02)
 ;;63739-0201-10
 ;;9002226.02101,"1799,63739-0526-10 ",.01)
 ;;63739-0526-10
 ;;9002226.02101,"1799,63739-0526-10 ",.02)
 ;;63739-0526-10
 ;;9002226.02101,"1799,63739-0888-10 ",.01)
 ;;63739-0888-10
 ;;9002226.02101,"1799,63739-0888-10 ",.02)
 ;;63739-0888-10
 ;;9002226.02101,"1799,63739-0963-10 ",.01)
 ;;63739-0963-10
 ;;9002226.02101,"1799,63739-0963-10 ",.02)
 ;;63739-0963-10
 ;;9002226.02101,"1799,63874-0219-01 ",.01)
 ;;63874-0219-01
 ;;9002226.02101,"1799,63874-0219-01 ",.02)
 ;;63874-0219-01
 ;;9002226.02101,"1799,63874-0219-20 ",.01)
 ;;63874-0219-20
 ;;9002226.02101,"1799,63874-0219-20 ",.02)
 ;;63874-0219-20
 ;;9002226.02101,"1799,63874-0219-25 ",.01)
 ;;63874-0219-25
 ;;9002226.02101,"1799,63874-0219-25 ",.02)
 ;;63874-0219-25
 ;;9002226.02101,"1799,63874-0219-30 ",.01)
 ;;63874-0219-30
 ;;9002226.02101,"1799,63874-0219-30 ",.02)
 ;;63874-0219-30
 ;;9002226.02101,"1799,63874-0268-01 ",.01)
 ;;63874-0268-01
 ;;9002226.02101,"1799,63874-0268-01 ",.02)
 ;;63874-0268-01
 ;;9002226.02101,"1799,63874-0268-02 ",.01)
 ;;63874-0268-02
 ;;9002226.02101,"1799,63874-0268-02 ",.02)
 ;;63874-0268-02
 ;;9002226.02101,"1799,63874-0268-10 ",.01)
 ;;63874-0268-10
 ;;9002226.02101,"1799,63874-0268-10 ",.02)
 ;;63874-0268-10
 ;;9002226.02101,"1799,63874-0268-12 ",.01)
 ;;63874-0268-12
 ;;9002226.02101,"1799,63874-0268-12 ",.02)
 ;;63874-0268-12
 ;;9002226.02101,"1799,63874-0268-14 ",.01)
 ;;63874-0268-14