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

BGP83A13.m

Go to the documentation of this file.
BGP83A13 ; 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,"1828,00378-5050-05 ",.02)
 ;;00378-5050-05
 ;;9002226.02101,"1828,00378-5050-77 ",.01)
 ;;00378-5050-77
 ;;9002226.02101,"1828,00378-5050-77 ",.02)
 ;;00378-5050-77
 ;;9002226.02101,"1828,00406-9914-03 ",.01)
 ;;00406-9914-03
 ;;9002226.02101,"1828,00406-9914-03 ",.02)
 ;;00406-9914-03
 ;;9002226.02101,"1828,00406-9915-01 ",.01)
 ;;00406-9915-01
 ;;9002226.02101,"1828,00406-9915-01 ",.02)
 ;;00406-9915-01
 ;;9002226.02101,"1828,00406-9915-03 ",.01)
 ;;00406-9915-03
 ;;9002226.02101,"1828,00406-9915-03 ",.02)
 ;;00406-9915-03
 ;;9002226.02101,"1828,00406-9916-01 ",.01)
 ;;00406-9916-01
 ;;9002226.02101,"1828,00406-9916-01 ",.02)
 ;;00406-9916-01
 ;;9002226.02101,"1828,00406-9917-01 ",.01)
 ;;00406-9917-01
 ;;9002226.02101,"1828,00406-9917-01 ",.02)
 ;;00406-9917-01
 ;;9002226.02101,"1828,00406-9959-03 ",.01)
 ;;00406-9959-03
 ;;9002226.02101,"1828,00406-9959-03 ",.02)
 ;;00406-9959-03
 ;;9002226.02101,"1828,00406-9960-01 ",.01)
 ;;00406-9960-01
 ;;9002226.02101,"1828,00406-9960-01 ",.02)
 ;;00406-9960-01
 ;;9002226.02101,"1828,00440-0146-01 ",.01)
 ;;00440-0146-01
 ;;9002226.02101,"1828,00440-0146-01 ",.02)
 ;;00440-0146-01
 ;;9002226.02101,"1828,00440-0146-05 ",.01)
 ;;00440-0146-05
 ;;9002226.02101,"1828,00440-0146-05 ",.02)
 ;;00440-0146-05
 ;;9002226.02101,"1828,00440-0147-01 ",.01)
 ;;00440-0147-01
 ;;9002226.02101,"1828,00440-0147-01 ",.02)
 ;;00440-0147-01
 ;;9002226.02101,"1828,00440-0147-05 ",.01)
 ;;00440-0147-05
 ;;9002226.02101,"1828,00440-0147-05 ",.02)
 ;;00440-0147-05
 ;;9002226.02101,"1828,00440-0148-01 ",.01)
 ;;00440-0148-01
 ;;9002226.02101,"1828,00440-0148-01 ",.02)
 ;;00440-0148-01
 ;;9002226.02101,"1828,00440-0149-30 ",.01)
 ;;00440-0149-30
 ;;9002226.02101,"1828,00440-0149-30 ",.02)
 ;;00440-0149-30
 ;;9002226.02101,"1828,00440-7070-06 ",.01)
 ;;00440-7070-06
 ;;9002226.02101,"1828,00440-7070-06 ",.02)
 ;;00440-7070-06
 ;;9002226.02101,"1828,00440-7070-30 ",.01)
 ;;00440-7070-30
 ;;9002226.02101,"1828,00440-7070-30 ",.02)
 ;;00440-7070-30
 ;;9002226.02101,"1828,00440-7070-60 ",.01)
 ;;00440-7070-60
 ;;9002226.02101,"1828,00440-7070-60 ",.02)
 ;;00440-7070-60
 ;;9002226.02101,"1828,00440-7070-90 ",.01)
 ;;00440-7070-90
 ;;9002226.02101,"1828,00440-7070-90 ",.02)
 ;;00440-7070-90
 ;;9002226.02101,"1828,00440-7071-03 ",.01)
 ;;00440-7071-03
 ;;9002226.02101,"1828,00440-7071-03 ",.02)
 ;;00440-7071-03
 ;;9002226.02101,"1828,00440-7071-06 ",.01)
 ;;00440-7071-06
 ;;9002226.02101,"1828,00440-7071-06 ",.02)
 ;;00440-7071-06
 ;;9002226.02101,"1828,00440-7071-10 ",.01)
 ;;00440-7071-10
 ;;9002226.02101,"1828,00440-7071-10 ",.02)
 ;;00440-7071-10
 ;;9002226.02101,"1828,00440-7071-30 ",.01)
 ;;00440-7071-30
 ;;9002226.02101,"1828,00440-7071-30 ",.02)
 ;;00440-7071-30
 ;;9002226.02101,"1828,00440-7071-60 ",.01)
 ;;00440-7071-60
 ;;9002226.02101,"1828,00440-7071-60 ",.02)
 ;;00440-7071-60
 ;;9002226.02101,"1828,00440-7071-90 ",.01)
 ;;00440-7071-90
 ;;9002226.02101,"1828,00440-7071-90 ",.02)
 ;;00440-7071-90
 ;;9002226.02101,"1828,00440-7071-91 ",.01)
 ;;00440-7071-91
 ;;9002226.02101,"1828,00440-7071-91 ",.02)
 ;;00440-7071-91
 ;;9002226.02101,"1828,00440-7072-30 ",.01)
 ;;00440-7072-30
 ;;9002226.02101,"1828,00440-7072-30 ",.02)
 ;;00440-7072-30
 ;;9002226.02101,"1828,00440-7072-90 ",.01)
 ;;00440-7072-90
 ;;9002226.02101,"1828,00440-7072-90 ",.02)
 ;;00440-7072-90
 ;;9002226.02101,"1828,00440-7072-91 ",.01)
 ;;00440-7072-91
 ;;9002226.02101,"1828,00440-7072-91 ",.02)
 ;;00440-7072-91
 ;;9002226.02101,"1828,00440-7073-60 ",.01)
 ;;00440-7073-60
 ;;9002226.02101,"1828,00440-7073-60 ",.02)
 ;;00440-7073-60
 ;;9002226.02101,"1828,00440-7073-90 ",.01)
 ;;00440-7073-90
 ;;9002226.02101,"1828,00440-7073-90 ",.02)
 ;;00440-7073-90
 ;;9002226.02101,"1828,00440-7250-30 ",.01)
 ;;00440-7250-30
 ;;9002226.02101,"1828,00440-7250-30 ",.02)
 ;;00440-7250-30
 ;;9002226.02101,"1828,00440-7251-30 ",.01)
 ;;00440-7251-30
 ;;9002226.02101,"1828,00440-7251-30 ",.02)
 ;;00440-7251-30
 ;;9002226.02101,"1828,00440-7251-60 ",.01)
 ;;00440-7251-60
 ;;9002226.02101,"1828,00440-7251-60 ",.02)
 ;;00440-7251-60
 ;;9002226.02101,"1828,00440-7251-90 ",.01)
 ;;00440-7251-90
 ;;9002226.02101,"1828,00440-7251-90 ",.02)
 ;;00440-7251-90
 ;;9002226.02101,"1828,00440-7251-91 ",.01)
 ;;00440-7251-91
 ;;9002226.02101,"1828,00440-7251-91 ",.02)
 ;;00440-7251-91
 ;;9002226.02101,"1828,00440-7252-03 ",.01)
 ;;00440-7252-03
 ;;9002226.02101,"1828,00440-7252-03 ",.02)
 ;;00440-7252-03
 ;;9002226.02101,"1828,00440-7252-06 ",.01)
 ;;00440-7252-06
 ;;9002226.02101,"1828,00440-7252-06 ",.02)
 ;;00440-7252-06
 ;;9002226.02101,"1828,00440-7252-08 ",.01)
 ;;00440-7252-08
 ;;9002226.02101,"1828,00440-7252-08 ",.02)
 ;;00440-7252-08
 ;;9002226.02101,"1828,00440-7252-12 ",.01)
 ;;00440-7252-12
 ;;9002226.02101,"1828,00440-7252-12 ",.02)
 ;;00440-7252-12
 ;;9002226.02101,"1828,00440-7252-15 ",.01)
 ;;00440-7252-15
 ;;9002226.02101,"1828,00440-7252-15 ",.02)
 ;;00440-7252-15
 ;;9002226.02101,"1828,00440-7252-30 ",.01)
 ;;00440-7252-30
 ;;9002226.02101,"1828,00440-7252-30 ",.02)
 ;;00440-7252-30
 ;;9002226.02101,"1828,00440-7252-90 ",.01)
 ;;00440-7252-90
 ;;9002226.02101,"1828,00440-7252-90 ",.02)
 ;;00440-7252-90
 ;;9002226.02101,"1828,00440-7252-91 ",.01)
 ;;00440-7252-91
 ;;9002226.02101,"1828,00440-7252-91 ",.02)
 ;;00440-7252-91
 ;;9002226.02101,"1828,00440-7275-30 ",.01)
 ;;00440-7275-30
 ;;9002226.02101,"1828,00440-7275-30 ",.02)
 ;;00440-7275-30
 ;;9002226.02101,"1828,00440-7275-60 ",.01)
 ;;00440-7275-60
 ;;9002226.02101,"1828,00440-7275-60 ",.02)
 ;;00440-7275-60
 ;;9002226.02101,"1828,00440-7320-30 ",.01)
 ;;00440-7320-30
 ;;9002226.02101,"1828,00440-7320-30 ",.02)
 ;;00440-7320-30
 ;;9002226.02101,"1828,00440-7320-60 ",.01)
 ;;00440-7320-60
 ;;9002226.02101,"1828,00440-7320-60 ",.02)
 ;;00440-7320-60
 ;;9002226.02101,"1828,00440-7320-90 ",.01)
 ;;00440-7320-90
 ;;9002226.02101,"1828,00440-7320-90 ",.02)
 ;;00440-7320-90
 ;;9002226.02101,"1828,00440-7320-91 ",.01)
 ;;00440-7320-91
 ;;9002226.02101,"1828,00440-7320-91 ",.02)
 ;;00440-7320-91
 ;;9002226.02101,"1828,00440-7321-30 ",.01)
 ;;00440-7321-30
 ;;9002226.02101,"1828,00440-7321-30 ",.02)
 ;;00440-7321-30
 ;;9002226.02101,"1828,00440-7321-60 ",.01)
 ;;00440-7321-60
 ;;9002226.02101,"1828,00440-7321-60 ",.02)
 ;;00440-7321-60
 ;;9002226.02101,"1828,00440-7321-90 ",.01)
 ;;00440-7321-90
 ;;9002226.02101,"1828,00440-7321-90 ",.02)
 ;;00440-7321-90
 ;;9002226.02101,"1828,00440-7321-91 ",.01)
 ;;00440-7321-91
 ;;9002226.02101,"1828,00440-7321-91 ",.02)
 ;;00440-7321-91
 ;;9002226.02101,"1828,00440-7322-30 ",.01)
 ;;00440-7322-30
 ;;9002226.02101,"1828,00440-7322-30 ",.02)
 ;;00440-7322-30
 ;;9002226.02101,"1828,00440-7322-60 ",.01)
 ;;00440-7322-60
 ;;9002226.02101,"1828,00440-7322-60 ",.02)
 ;;00440-7322-60
 ;;9002226.02101,"1828,00440-7322-90 ",.01)
 ;;00440-7322-90
 ;;9002226.02101,"1828,00440-7322-90 ",.02)
 ;;00440-7322-90
 ;;9002226.02101,"1828,00440-7375-30 ",.01)
 ;;00440-7375-30
 ;;9002226.02101,"1828,00440-7375-30 ",.02)
 ;;00440-7375-30
 ;;9002226.02101,"1828,00440-7376-03 ",.01)
 ;;00440-7376-03
 ;;9002226.02101,"1828,00440-7376-03 ",.02)
 ;;00440-7376-03
 ;;9002226.02101,"1828,00440-7376-04 ",.01)
 ;;00440-7376-04
 ;;9002226.02101,"1828,00440-7376-04 ",.02)
 ;;00440-7376-04
 ;;9002226.02101,"1828,00440-7376-06 ",.01)
 ;;00440-7376-06
 ;;9002226.02101,"1828,00440-7376-06 ",.02)
 ;;00440-7376-06
 ;;9002226.02101,"1828,00440-7376-10 ",.01)
 ;;00440-7376-10
 ;;9002226.02101,"1828,00440-7376-10 ",.02)
 ;;00440-7376-10
 ;;9002226.02101,"1828,00440-7376-30 ",.01)
 ;;00440-7376-30
 ;;9002226.02101,"1828,00440-7376-30 ",.02)
 ;;00440-7376-30
 ;;9002226.02101,"1828,00440-7376-60 ",.01)
 ;;00440-7376-60
 ;;9002226.02101,"1828,00440-7376-60 ",.02)
 ;;00440-7376-60
 ;;9002226.02101,"1828,00440-7376-90 ",.01)
 ;;00440-7376-90
 ;;9002226.02101,"1828,00440-7376-90 ",.02)
 ;;00440-7376-90
 ;;9002226.02101,"1828,00440-7376-91 ",.01)
 ;;00440-7376-91
 ;;9002226.02101,"1828,00440-7376-91 ",.02)
 ;;00440-7376-91
 ;;9002226.02101,"1828,00440-7377-30 ",.01)
 ;;00440-7377-30
 ;;9002226.02101,"1828,00440-7377-30 ",.02)
 ;;00440-7377-30
 ;;9002226.02101,"1828,00440-7377-60 ",.01)
 ;;00440-7377-60
 ;;9002226.02101,"1828,00440-7377-60 ",.02)
 ;;00440-7377-60
 ;;9002226.02101,"1828,00440-7377-90 ",.01)
 ;;00440-7377-90
 ;;9002226.02101,"1828,00440-7377-90 ",.02)
 ;;00440-7377-90
 ;;9002226.02101,"1828,00440-7377-91 ",.01)
 ;;00440-7377-91
 ;;9002226.02101,"1828,00440-7377-91 ",.02)
 ;;00440-7377-91
 ;;9002226.02101,"1828,00440-7377-93 ",.01)
 ;;00440-7377-93
 ;;9002226.02101,"1828,00440-7377-93 ",.02)
 ;;00440-7377-93
 ;;9002226.02101,"1828,00440-7516-30 ",.01)
 ;;00440-7516-30
 ;;9002226.02101,"1828,00440-7516-30 ",.02)
 ;;00440-7516-30
 ;;9002226.02101,"1828,00440-7530-30 ",.01)
 ;;00440-7530-30
 ;;9002226.02101,"1828,00440-7530-30 ",.02)
 ;;00440-7530-30
 ;;9002226.02101,"1828,00440-7531-30 ",.01)
 ;;00440-7531-30
 ;;9002226.02101,"1828,00440-7531-30 ",.02)
 ;;00440-7531-30
 ;;9002226.02101,"1828,00440-7720-06 ",.01)
 ;;00440-7720-06
 ;;9002226.02101,"1828,00440-7720-06 ",.02)
 ;;00440-7720-06
 ;;9002226.02101,"1828,00440-7720-14 ",.01)
 ;;00440-7720-14
 ;;9002226.02101,"1828,00440-7720-14 ",.02)
 ;;00440-7720-14
 ;;9002226.02101,"1828,00440-7720-15 ",.01)
 ;;00440-7720-15
 ;;9002226.02101,"1828,00440-7720-15 ",.02)
 ;;00440-7720-15
 ;;9002226.02101,"1828,00440-7720-30 ",.01)
 ;;00440-7720-30
 ;;9002226.02101,"1828,00440-7720-30 ",.02)
 ;;00440-7720-30
 ;;9002226.02101,"1828,00440-7720-60 ",.01)
 ;;00440-7720-60
 ;;9002226.02101,"1828,00440-7720-60 ",.02)
 ;;00440-7720-60
 ;;9002226.02101,"1828,00440-7720-90 ",.01)
 ;;00440-7720-90
 ;;9002226.02101,"1828,00440-7720-90 ",.02)
 ;;00440-7720-90
 ;;9002226.02101,"1828,00440-7721-03 ",.01)
 ;;00440-7721-03
 ;;9002226.02101,"1828,00440-7721-03 ",.02)
 ;;00440-7721-03
 ;;9002226.02101,"1828,00440-7721-04 ",.01)
 ;;00440-7721-04
 ;;9002226.02101,"1828,00440-7721-04 ",.02)
 ;;00440-7721-04
 ;;9002226.02101,"1828,00440-7721-06 ",.01)
 ;;00440-7721-06
 ;;9002226.02101,"1828,00440-7721-06 ",.02)
 ;;00440-7721-06
 ;;9002226.02101,"1828,00440-7721-08 ",.01)
 ;;00440-7721-08
 ;;9002226.02101,"1828,00440-7721-08 ",.02)
 ;;00440-7721-08
 ;;9002226.02101,"1828,00440-7721-15 ",.01)
 ;;00440-7721-15
 ;;9002226.02101,"1828,00440-7721-15 ",.02)
 ;;00440-7721-15
 ;;9002226.02101,"1828,00440-7721-30 ",.01)
 ;;00440-7721-30
 ;;9002226.02101,"1828,00440-7721-30 ",.02)
 ;;00440-7721-30
 ;;9002226.02101,"1828,00440-7721-60 ",.01)
 ;;00440-7721-60
 ;;9002226.02101,"1828,00440-7721-60 ",.02)
 ;;00440-7721-60
 ;;9002226.02101,"1828,00440-7721-90 ",.01)
 ;;00440-7721-90
 ;;9002226.02101,"1828,00440-7721-90 ",.02)
 ;;00440-7721-90
 ;;9002226.02101,"1828,00440-7721-91 ",.01)
 ;;00440-7721-91
 ;;9002226.02101,"1828,00440-7721-91 ",.02)
 ;;00440-7721-91
 ;;9002226.02101,"1828,00440-7722-30 ",.01)
 ;;00440-7722-30
 ;;9002226.02101,"1828,00440-7722-30 ",.02)
 ;;00440-7722-30
 ;;9002226.02101,"1828,00440-7722-60 ",.01)
 ;;00440-7722-60
 ;;9002226.02101,"1828,00440-7722-60 ",.02)
 ;;00440-7722-60
 ;;9002226.02101,"1828,00440-7722-90 ",.01)
 ;;00440-7722-90
 ;;9002226.02101,"1828,00440-7722-90 ",.02)
 ;;00440-7722-90
 ;;9002226.02101,"1828,00440-7995-30 ",.01)
 ;;00440-7995-30
 ;;9002226.02101,"1828,00440-7995-30 ",.02)
 ;;00440-7995-30
 ;;9002226.02101,"1828,00440-7995-50 ",.01)
 ;;00440-7995-50
 ;;9002226.02101,"1828,00440-7995-50 ",.02)
 ;;00440-7995-50
 ;;9002226.02101,"1828,00440-7995-60 ",.01)
 ;;00440-7995-60
 ;;9002226.02101,"1828,00440-7995-60 ",.02)
 ;;00440-7995-60