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

BGP83A45.m

Go to the documentation of this file.
BGP83A45 ; 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,67544-0879-55 ",.02)
 ;;67544-0879-55
 ;;9002226.02101,"1828,67544-0879-60 ",.01)
 ;;67544-0879-60
 ;;9002226.02101,"1828,67544-0879-60 ",.02)
 ;;67544-0879-60
 ;;9002226.02101,"1828,67544-0879-70 ",.01)
 ;;67544-0879-70
 ;;9002226.02101,"1828,67544-0879-70 ",.02)
 ;;67544-0879-70
 ;;9002226.02101,"1828,67544-0879-75 ",.01)
 ;;67544-0879-75
 ;;9002226.02101,"1828,67544-0879-75 ",.02)
 ;;67544-0879-75
 ;;9002226.02101,"1828,67544-0879-80 ",.01)
 ;;67544-0879-80
 ;;9002226.02101,"1828,67544-0879-80 ",.02)
 ;;67544-0879-80
 ;;9002226.02101,"1828,67544-0879-92 ",.01)
 ;;67544-0879-92
 ;;9002226.02101,"1828,67544-0879-92 ",.02)
 ;;67544-0879-92
 ;;9002226.02101,"1828,67544-0982-15 ",.01)
 ;;67544-0982-15
 ;;9002226.02101,"1828,67544-0982-15 ",.02)
 ;;67544-0982-15
 ;;9002226.02101,"1828,67544-0982-30 ",.01)
 ;;67544-0982-30
 ;;9002226.02101,"1828,67544-0982-30 ",.02)
 ;;67544-0982-30
 ;;9002226.02101,"1828,67544-0982-45 ",.01)
 ;;67544-0982-45
 ;;9002226.02101,"1828,67544-0982-45 ",.02)
 ;;67544-0982-45
 ;;9002226.02101,"1828,67544-0982-53 ",.01)
 ;;67544-0982-53
 ;;9002226.02101,"1828,67544-0982-53 ",.02)
 ;;67544-0982-53
 ;;9002226.02101,"1828,67544-0982-60 ",.01)
 ;;67544-0982-60
 ;;9002226.02101,"1828,67544-0982-60 ",.02)
 ;;67544-0982-60
 ;;9002226.02101,"1828,67544-0982-70 ",.01)
 ;;67544-0982-70
 ;;9002226.02101,"1828,67544-0982-70 ",.02)
 ;;67544-0982-70
 ;;9002226.02101,"1828,67544-0982-75 ",.01)
 ;;67544-0982-75
 ;;9002226.02101,"1828,67544-0982-75 ",.02)
 ;;67544-0982-75
 ;;9002226.02101,"1828,67544-0982-80 ",.01)
 ;;67544-0982-80
 ;;9002226.02101,"1828,67544-0982-80 ",.02)
 ;;67544-0982-80
 ;;9002226.02101,"1828,67544-0982-92 ",.01)
 ;;67544-0982-92
 ;;9002226.02101,"1828,67544-0982-92 ",.02)
 ;;67544-0982-92
 ;;9002226.02101,"1828,67877-0146-01 ",.01)
 ;;67877-0146-01
 ;;9002226.02101,"1828,67877-0146-01 ",.02)
 ;;67877-0146-01
 ;;9002226.02101,"1828,67877-0146-05 ",.01)
 ;;67877-0146-05
 ;;9002226.02101,"1828,67877-0146-05 ",.02)
 ;;67877-0146-05
 ;;9002226.02101,"1828,67877-0147-01 ",.01)
 ;;67877-0147-01
 ;;9002226.02101,"1828,67877-0147-01 ",.02)
 ;;67877-0147-01
 ;;9002226.02101,"1828,67877-0147-05 ",.01)
 ;;67877-0147-05
 ;;9002226.02101,"1828,67877-0147-05 ",.02)
 ;;67877-0147-05
 ;;9002226.02101,"1828,67877-0148-01 ",.01)
 ;;67877-0148-01
 ;;9002226.02101,"1828,67877-0148-01 ",.02)
 ;;67877-0148-01
 ;;9002226.02101,"1828,67877-0149-30 ",.01)
 ;;67877-0149-30
 ;;9002226.02101,"1828,67877-0149-30 ",.02)
 ;;67877-0149-30
 ;;9002226.02101,"1828,68071-0220-20 ",.01)
 ;;68071-0220-20
 ;;9002226.02101,"1828,68071-0220-20 ",.02)
 ;;68071-0220-20
 ;;9002226.02101,"1828,68071-0220-30 ",.01)
 ;;68071-0220-30
 ;;9002226.02101,"1828,68071-0220-30 ",.02)
 ;;68071-0220-30
 ;;9002226.02101,"1828,68071-0460-90 ",.01)
 ;;68071-0460-90
 ;;9002226.02101,"1828,68071-0460-90 ",.02)
 ;;68071-0460-90
 ;;9002226.02101,"1828,68071-0734-60 ",.01)
 ;;68071-0734-60
 ;;9002226.02101,"1828,68071-0734-60 ",.02)
 ;;68071-0734-60
 ;;9002226.02101,"1828,68071-2015-09 ",.01)
 ;;68071-2015-09
 ;;9002226.02101,"1828,68071-2015-09 ",.02)
 ;;68071-2015-09
 ;;9002226.02101,"1828,68084-0414-01 ",.01)
 ;;68084-0414-01
 ;;9002226.02101,"1828,68084-0414-01 ",.02)
 ;;68084-0414-01
 ;;9002226.02101,"1828,68084-0414-11 ",.01)
 ;;68084-0414-11
 ;;9002226.02101,"1828,68084-0414-11 ",.02)
 ;;68084-0414-11
 ;;9002226.02101,"1828,68084-0549-11 ",.01)
 ;;68084-0549-11
 ;;9002226.02101,"1828,68084-0549-11 ",.02)
 ;;68084-0549-11
 ;;9002226.02101,"1828,68084-0549-21 ",.01)
 ;;68084-0549-21
 ;;9002226.02101,"1828,68084-0549-21 ",.02)
 ;;68084-0549-21
 ;;9002226.02101,"1828,68084-0647-01 ",.01)
 ;;68084-0647-01
 ;;9002226.02101,"1828,68084-0647-01 ",.02)
 ;;68084-0647-01
 ;;9002226.02101,"1828,68084-0647-11 ",.01)
 ;;68084-0647-11
 ;;9002226.02101,"1828,68084-0647-11 ",.02)
 ;;68084-0647-11
 ;;9002226.02101,"1828,68084-0672-01 ",.01)
 ;;68084-0672-01
 ;;9002226.02101,"1828,68084-0672-01 ",.02)
 ;;68084-0672-01
 ;;9002226.02101,"1828,68084-0672-11 ",.01)
 ;;68084-0672-11
 ;;9002226.02101,"1828,68084-0672-11 ",.02)
 ;;68084-0672-11
 ;;9002226.02101,"1828,68084-0736-01 ",.01)
 ;;68084-0736-01
 ;;9002226.02101,"1828,68084-0736-01 ",.02)
 ;;68084-0736-01
 ;;9002226.02101,"1828,68084-0736-11 ",.01)
 ;;68084-0736-11
 ;;9002226.02101,"1828,68084-0736-11 ",.02)
 ;;68084-0736-11
 ;;9002226.02101,"1828,68084-0742-01 ",.01)
 ;;68084-0742-01
 ;;9002226.02101,"1828,68084-0742-01 ",.02)
 ;;68084-0742-01
 ;;9002226.02101,"1828,68084-0742-11 ",.01)
 ;;68084-0742-11
 ;;9002226.02101,"1828,68084-0742-11 ",.02)
 ;;68084-0742-11
 ;;9002226.02101,"1828,68084-0754-01 ",.01)
 ;;68084-0754-01
 ;;9002226.02101,"1828,68084-0754-01 ",.02)
 ;;68084-0754-01
 ;;9002226.02101,"1828,68084-0754-11 ",.01)
 ;;68084-0754-11
 ;;9002226.02101,"1828,68084-0754-11 ",.02)
 ;;68084-0754-11
 ;;9002226.02101,"1828,68084-0784-11 ",.01)
 ;;68084-0784-11
 ;;9002226.02101,"1828,68084-0784-11 ",.02)
 ;;68084-0784-11
 ;;9002226.02101,"1828,68084-0784-21 ",.01)
 ;;68084-0784-21
 ;;9002226.02101,"1828,68084-0784-21 ",.02)
 ;;68084-0784-21
 ;;9002226.02101,"1828,68094-0716-59 ",.01)
 ;;68094-0716-59
 ;;9002226.02101,"1828,68094-0716-59 ",.02)
 ;;68094-0716-59
 ;;9002226.02101,"1828,68094-0716-62 ",.01)
 ;;68094-0716-62
 ;;9002226.02101,"1828,68094-0716-62 ",.02)
 ;;68094-0716-62
 ;;9002226.02101,"1828,68094-0750-59 ",.01)
 ;;68094-0750-59
 ;;9002226.02101,"1828,68094-0750-59 ",.02)
 ;;68094-0750-59
 ;;9002226.02101,"1828,68094-0750-62 ",.01)
 ;;68094-0750-62
 ;;9002226.02101,"1828,68094-0750-62 ",.02)
 ;;68094-0750-62
 ;;9002226.02101,"1828,68094-0762-59 ",.01)
 ;;68094-0762-59
 ;;9002226.02101,"1828,68094-0762-59 ",.02)
 ;;68094-0762-59
 ;;9002226.02101,"1828,68094-0762-62 ",.01)
 ;;68094-0762-62
 ;;9002226.02101,"1828,68094-0762-62 ",.02)
 ;;68094-0762-62
 ;;9002226.02101,"1828,68094-0764-59 ",.01)
 ;;68094-0764-59
 ;;9002226.02101,"1828,68094-0764-59 ",.02)
 ;;68094-0764-59
 ;;9002226.02101,"1828,68094-0764-62 ",.01)
 ;;68094-0764-62
 ;;9002226.02101,"1828,68094-0764-62 ",.02)
 ;;68094-0764-62
 ;;9002226.02101,"1828,68405-0013-06 ",.01)
 ;;68405-0013-06
 ;;9002226.02101,"1828,68405-0013-06 ",.02)
 ;;68405-0013-06
 ;;9002226.02101,"1828,68682-0409-10 ",.01)
 ;;68682-0409-10
 ;;9002226.02101,"1828,68682-0409-10 ",.02)
 ;;68682-0409-10
 ;;9002226.02101,"1828,68788-2027-03 ",.01)
 ;;68788-2027-03
 ;;9002226.02101,"1828,68788-2027-03 ",.02)
 ;;68788-2027-03
 ;;9002226.02101,"1828,68788-2027-09 ",.01)
 ;;68788-2027-09
 ;;9002226.02101,"1828,68788-2027-09 ",.02)
 ;;68788-2027-09
 ;;9002226.02101,"1828,68788-2029-03 ",.01)
 ;;68788-2029-03
 ;;9002226.02101,"1828,68788-2029-03 ",.02)
 ;;68788-2029-03
 ;;9002226.02101,"1828,68788-2029-06 ",.01)
 ;;68788-2029-06
 ;;9002226.02101,"1828,68788-2029-06 ",.02)
 ;;68788-2029-06
 ;;9002226.02101,"1828,68788-6358-02 ",.01)
 ;;68788-6358-02
 ;;9002226.02101,"1828,68788-6358-02 ",.02)
 ;;68788-6358-02
 ;;9002226.02101,"1828,68788-6358-03 ",.01)
 ;;68788-6358-03
 ;;9002226.02101,"1828,68788-6358-03 ",.02)
 ;;68788-6358-03
 ;;9002226.02101,"1828,68788-6358-06 ",.01)
 ;;68788-6358-06
 ;;9002226.02101,"1828,68788-6358-06 ",.02)
 ;;68788-6358-06
 ;;9002226.02101,"1828,68788-6358-09 ",.01)
 ;;68788-6358-09
 ;;9002226.02101,"1828,68788-6358-09 ",.02)
 ;;68788-6358-09
 ;;9002226.02101,"1828,68788-6381-02 ",.01)
 ;;68788-6381-02
 ;;9002226.02101,"1828,68788-6381-02 ",.02)
 ;;68788-6381-02
 ;;9002226.02101,"1828,68788-6381-03 ",.01)
 ;;68788-6381-03
 ;;9002226.02101,"1828,68788-6381-03 ",.02)
 ;;68788-6381-03
 ;;9002226.02101,"1828,68788-6381-06 ",.01)
 ;;68788-6381-06
 ;;9002226.02101,"1828,68788-6381-06 ",.02)
 ;;68788-6381-06
 ;;9002226.02101,"1828,68788-6381-08 ",.01)
 ;;68788-6381-08
 ;;9002226.02101,"1828,68788-6381-08 ",.02)
 ;;68788-6381-08
 ;;9002226.02101,"1828,68788-6381-09 ",.01)
 ;;68788-6381-09
 ;;9002226.02101,"1828,68788-6381-09 ",.02)
 ;;68788-6381-09
 ;;9002226.02101,"1828,68788-6413-00 ",.01)
 ;;68788-6413-00
 ;;9002226.02101,"1828,68788-6413-00 ",.02)
 ;;68788-6413-00
 ;;9002226.02101,"1828,68788-6413-01 ",.01)
 ;;68788-6413-01
 ;;9002226.02101,"1828,68788-6413-01 ",.02)
 ;;68788-6413-01
 ;;9002226.02101,"1828,68788-6413-02 ",.01)
 ;;68788-6413-02
 ;;9002226.02101,"1828,68788-6413-02 ",.02)
 ;;68788-6413-02
 ;;9002226.02101,"1828,68788-6413-03 ",.01)
 ;;68788-6413-03
 ;;9002226.02101,"1828,68788-6413-03 ",.02)
 ;;68788-6413-03
 ;;9002226.02101,"1828,68788-6413-04 ",.01)
 ;;68788-6413-04
 ;;9002226.02101,"1828,68788-6413-04 ",.02)
 ;;68788-6413-04
 ;;9002226.02101,"1828,68788-6413-05 ",.01)
 ;;68788-6413-05
 ;;9002226.02101,"1828,68788-6413-05 ",.02)
 ;;68788-6413-05
 ;;9002226.02101,"1828,68788-6413-06 ",.01)
 ;;68788-6413-06
 ;;9002226.02101,"1828,68788-6413-06 ",.02)
 ;;68788-6413-06
 ;;9002226.02101,"1828,68788-6413-08 ",.01)
 ;;68788-6413-08
 ;;9002226.02101,"1828,68788-6413-08 ",.02)
 ;;68788-6413-08
 ;;9002226.02101,"1828,68788-6413-09 ",.01)
 ;;68788-6413-09
 ;;9002226.02101,"1828,68788-6413-09 ",.02)
 ;;68788-6413-09
 ;;9002226.02101,"1828,68788-6943-03 ",.01)
 ;;68788-6943-03
 ;;9002226.02101,"1828,68788-6943-03 ",.02)
 ;;68788-6943-03
 ;;9002226.02101,"1828,68788-6943-06 ",.01)
 ;;68788-6943-06
 ;;9002226.02101,"1828,68788-6943-06 ",.02)
 ;;68788-6943-06
 ;;9002226.02101,"1828,68788-6943-09 ",.01)
 ;;68788-6943-09
 ;;9002226.02101,"1828,68788-6943-09 ",.02)
 ;;68788-6943-09
 ;;9002226.02101,"1828,68788-7394-02 ",.01)
 ;;68788-7394-02
 ;;9002226.02101,"1828,68788-7394-02 ",.02)
 ;;68788-7394-02
 ;;9002226.02101,"1828,68788-7394-03 ",.01)
 ;;68788-7394-03
 ;;9002226.02101,"1828,68788-7394-03 ",.02)
 ;;68788-7394-03
 ;;9002226.02101,"1828,68788-7394-06 ",.01)
 ;;68788-7394-06
 ;;9002226.02101,"1828,68788-7394-06 ",.02)
 ;;68788-7394-06
 ;;9002226.02101,"1828,68788-7394-09 ",.01)
 ;;68788-7394-09
 ;;9002226.02101,"1828,68788-7394-09 ",.02)
 ;;68788-7394-09
 ;;9002226.02101,"1828,68788-9001-03 ",.01)
 ;;68788-9001-03
 ;;9002226.02101,"1828,68788-9001-03 ",.02)
 ;;68788-9001-03
 ;;9002226.02101,"1828,68788-9001-09 ",.01)
 ;;68788-9001-09
 ;;9002226.02101,"1828,68788-9001-09 ",.02)
 ;;68788-9001-09
 ;;9002226.02101,"1828,68788-9002-03 ",.01)
 ;;68788-9002-03
 ;;9002226.02101,"1828,68788-9002-03 ",.02)
 ;;68788-9002-03
 ;;9002226.02101,"1828,68788-9002-06 ",.01)
 ;;68788-9002-06
 ;;9002226.02101,"1828,68788-9002-06 ",.02)
 ;;68788-9002-06
 ;;9002226.02101,"1828,68788-9002-09 ",.01)
 ;;68788-9002-09
 ;;9002226.02101,"1828,68788-9002-09 ",.02)
 ;;68788-9002-09
 ;;9002226.02101,"1828,68788-9003-09 ",.01)
 ;;68788-9003-09
 ;;9002226.02101,"1828,68788-9003-09 ",.02)
 ;;68788-9003-09
 ;;9002226.02101,"1828,68788-9207-06 ",.01)
 ;;68788-9207-06
 ;;9002226.02101,"1828,68788-9207-06 ",.02)
 ;;68788-9207-06
 ;;9002226.02101,"1828,68788-9207-08 ",.01)
 ;;68788-9207-08
 ;;9002226.02101,"1828,68788-9207-08 ",.02)
 ;;68788-9207-08
 ;;9002226.02101,"1828,68788-9208-03 ",.01)
 ;;68788-9208-03
 ;;9002226.02101,"1828,68788-9208-03 ",.02)
 ;;68788-9208-03
 ;;9002226.02101,"1828,68788-9258-01 ",.01)
 ;;68788-9258-01
 ;;9002226.02101,"1828,68788-9258-01 ",.02)
 ;;68788-9258-01
 ;;9002226.02101,"1828,68788-9258-03 ",.01)
 ;;68788-9258-03
 ;;9002226.02101,"1828,68788-9258-03 ",.02)
 ;;68788-9258-03
 ;;9002226.02101,"1828,68788-9258-06 ",.01)
 ;;68788-9258-06
 ;;9002226.02101,"1828,68788-9258-06 ",.02)
 ;;68788-9258-06
 ;;9002226.02101,"1828,68788-9258-08 ",.01)
 ;;68788-9258-08
 ;;9002226.02101,"1828,68788-9258-08 ",.02)
 ;;68788-9258-08
 ;;9002226.02101,"1828,68788-9258-09 ",.01)
 ;;68788-9258-09
 ;;9002226.02101,"1828,68788-9258-09 ",.02)
 ;;68788-9258-09