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

BGP48K11.m

Go to the documentation of this file.
BGP48K11 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 24, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"1813,51138-0198-30 ",.02)
 ;;51138-0198-30
 ;;9002226.02101,"1813,51138-0199-30 ",.01)
 ;;51138-0199-30
 ;;9002226.02101,"1813,51138-0199-30 ",.02)
 ;;51138-0199-30
 ;;9002226.02101,"1813,51138-0200-30 ",.01)
 ;;51138-0200-30
 ;;9002226.02101,"1813,51138-0200-30 ",.02)
 ;;51138-0200-30
 ;;9002226.02101,"1813,51138-0201-30 ",.01)
 ;;51138-0201-30
 ;;9002226.02101,"1813,51138-0201-30 ",.02)
 ;;51138-0201-30
 ;;9002226.02101,"1813,51138-0202-30 ",.01)
 ;;51138-0202-30
 ;;9002226.02101,"1813,51138-0202-30 ",.02)
 ;;51138-0202-30
 ;;9002226.02101,"1813,51138-0203-30 ",.01)
 ;;51138-0203-30
 ;;9002226.02101,"1813,51138-0203-30 ",.02)
 ;;51138-0203-30
 ;;9002226.02101,"1813,51138-0482-10 ",.01)
 ;;51138-0482-10
 ;;9002226.02101,"1813,51138-0482-10 ",.02)
 ;;51138-0482-10
 ;;9002226.02101,"1813,51138-0482-30 ",.01)
 ;;51138-0482-30
 ;;9002226.02101,"1813,51138-0482-30 ",.02)
 ;;51138-0482-30
 ;;9002226.02101,"1813,51138-0483-30 ",.01)
 ;;51138-0483-30
 ;;9002226.02101,"1813,51138-0483-30 ",.02)
 ;;51138-0483-30
 ;;9002226.02101,"1813,51138-0484-10 ",.01)
 ;;51138-0484-10
 ;;9002226.02101,"1813,51138-0484-10 ",.02)
 ;;51138-0484-10
 ;;9002226.02101,"1813,51138-0484-30 ",.01)
 ;;51138-0484-30
 ;;9002226.02101,"1813,51138-0484-30 ",.02)
 ;;51138-0484-30
 ;;9002226.02101,"1813,51138-0484-45 ",.01)
 ;;51138-0484-45
 ;;9002226.02101,"1813,51138-0484-45 ",.02)
 ;;51138-0484-45
 ;;9002226.02101,"1813,51138-0485-10 ",.01)
 ;;51138-0485-10
 ;;9002226.02101,"1813,51138-0485-10 ",.02)
 ;;51138-0485-10
 ;;9002226.02101,"1813,51138-0485-30 ",.01)
 ;;51138-0485-30
 ;;9002226.02101,"1813,51138-0485-30 ",.02)
 ;;51138-0485-30
 ;;9002226.02101,"1813,51138-0486-10 ",.01)
 ;;51138-0486-10
 ;;9002226.02101,"1813,51138-0486-10 ",.02)
 ;;51138-0486-10
 ;;9002226.02101,"1813,51138-0486-30 ",.01)
 ;;51138-0486-30
 ;;9002226.02101,"1813,51138-0486-30 ",.02)
 ;;51138-0486-30
 ;;9002226.02101,"1813,51138-0487-10 ",.01)
 ;;51138-0487-10
 ;;9002226.02101,"1813,51138-0487-10 ",.02)
 ;;51138-0487-10
 ;;9002226.02101,"1813,51138-0487-20 ",.01)
 ;;51138-0487-20
 ;;9002226.02101,"1813,51138-0487-20 ",.02)
 ;;51138-0487-20
 ;;9002226.02101,"1813,51138-0487-30 ",.01)
 ;;51138-0487-30
 ;;9002226.02101,"1813,51138-0487-30 ",.02)
 ;;51138-0487-30
 ;;9002226.02101,"1813,51138-0487-75 ",.01)
 ;;51138-0487-75
 ;;9002226.02101,"1813,51138-0487-75 ",.02)
 ;;51138-0487-75
 ;;9002226.02101,"1813,51138-0488-10 ",.01)
 ;;51138-0488-10
 ;;9002226.02101,"1813,51138-0488-10 ",.02)
 ;;51138-0488-10
 ;;9002226.02101,"1813,51138-0488-30 ",.01)
 ;;51138-0488-30
 ;;9002226.02101,"1813,51138-0488-30 ",.02)
 ;;51138-0488-30
 ;;9002226.02101,"1813,51138-0489-30 ",.01)
 ;;51138-0489-30
 ;;9002226.02101,"1813,51138-0489-30 ",.02)
 ;;51138-0489-30
 ;;9002226.02101,"1813,51138-0490-10 ",.01)
 ;;51138-0490-10
 ;;9002226.02101,"1813,51138-0490-10 ",.02)
 ;;51138-0490-10
 ;;9002226.02101,"1813,51138-0490-30 ",.01)
 ;;51138-0490-30
 ;;9002226.02101,"1813,51138-0490-30 ",.02)
 ;;51138-0490-30
 ;;9002226.02101,"1813,51672-4027-01 ",.01)
 ;;51672-4027-01
 ;;9002226.02101,"1813,51672-4027-01 ",.02)
 ;;51672-4027-01
 ;;9002226.02101,"1813,51672-4027-03 ",.01)
 ;;51672-4027-03
 ;;9002226.02101,"1813,51672-4027-03 ",.02)
 ;;51672-4027-03
 ;;9002226.02101,"1813,51672-4027-07 ",.01)
 ;;51672-4027-07
 ;;9002226.02101,"1813,51672-4027-07 ",.02)
 ;;51672-4027-07
 ;;9002226.02101,"1813,51672-4028-01 ",.01)
 ;;51672-4028-01
 ;;9002226.02101,"1813,51672-4028-01 ",.02)
 ;;51672-4028-01
 ;;9002226.02101,"1813,51672-4028-03 ",.01)
 ;;51672-4028-03
 ;;9002226.02101,"1813,51672-4028-03 ",.02)
 ;;51672-4028-03
 ;;9002226.02101,"1813,51672-4028-07 ",.01)
 ;;51672-4028-07
 ;;9002226.02101,"1813,51672-4028-07 ",.02)
 ;;51672-4028-07
 ;;9002226.02101,"1813,51672-4029-01 ",.01)
 ;;51672-4029-01
 ;;9002226.02101,"1813,51672-4029-01 ",.02)
 ;;51672-4029-01
 ;;9002226.02101,"1813,51672-4029-03 ",.01)
 ;;51672-4029-03
 ;;9002226.02101,"1813,51672-4029-03 ",.02)
 ;;51672-4029-03
 ;;9002226.02101,"1813,51672-4029-07 ",.01)
 ;;51672-4029-07
 ;;9002226.02101,"1813,51672-4029-07 ",.02)
 ;;51672-4029-07
 ;;9002226.02101,"1813,51672-4030-01 ",.01)
 ;;51672-4030-01
 ;;9002226.02101,"1813,51672-4030-01 ",.02)
 ;;51672-4030-01
 ;;9002226.02101,"1813,51672-4030-03 ",.01)
 ;;51672-4030-03
 ;;9002226.02101,"1813,51672-4030-03 ",.02)
 ;;51672-4030-03
 ;;9002226.02101,"1813,51672-4030-07 ",.01)
 ;;51672-4030-07
 ;;9002226.02101,"1813,51672-4030-07 ",.02)
 ;;51672-4030-07
 ;;9002226.02101,"1813,51672-4031-01 ",.01)
 ;;51672-4031-01
 ;;9002226.02101,"1813,51672-4031-01 ",.02)
 ;;51672-4031-01
 ;;9002226.02101,"1813,51672-4031-03 ",.01)
 ;;51672-4031-03
 ;;9002226.02101,"1813,51672-4031-03 ",.02)
 ;;51672-4031-03
 ;;9002226.02101,"1813,51672-4031-07 ",.01)
 ;;51672-4031-07
 ;;9002226.02101,"1813,51672-4031-07 ",.02)
 ;;51672-4031-07
 ;;9002226.02101,"1813,51672-4032-01 ",.01)
 ;;51672-4032-01
 ;;9002226.02101,"1813,51672-4032-01 ",.02)
 ;;51672-4032-01
 ;;9002226.02101,"1813,51672-4032-03 ",.01)
 ;;51672-4032-03
 ;;9002226.02101,"1813,51672-4032-03 ",.02)
 ;;51672-4032-03
 ;;9002226.02101,"1813,51672-4032-07 ",.01)
 ;;51672-4032-07
 ;;9002226.02101,"1813,51672-4032-07 ",.02)
 ;;51672-4032-07
 ;;9002226.02101,"1813,51672-4033-01 ",.01)
 ;;51672-4033-01
 ;;9002226.02101,"1813,51672-4033-01 ",.02)
 ;;51672-4033-01
 ;;9002226.02101,"1813,51672-4033-03 ",.01)
 ;;51672-4033-03
 ;;9002226.02101,"1813,51672-4033-03 ",.02)
 ;;51672-4033-03
 ;;9002226.02101,"1813,51672-4034-01 ",.01)
 ;;51672-4034-01
 ;;9002226.02101,"1813,51672-4034-01 ",.02)
 ;;51672-4034-01
 ;;9002226.02101,"1813,51672-4034-03 ",.01)
 ;;51672-4034-03
 ;;9002226.02101,"1813,51672-4034-03 ",.02)
 ;;51672-4034-03
 ;;9002226.02101,"1813,51672-4035-01 ",.01)
 ;;51672-4035-01
 ;;9002226.02101,"1813,51672-4035-01 ",.02)
 ;;51672-4035-01
 ;;9002226.02101,"1813,51672-4035-03 ",.01)
 ;;51672-4035-03
 ;;9002226.02101,"1813,51672-4035-03 ",.02)
 ;;51672-4035-03
 ;;9002226.02101,"1813,52533-0104-70 ",.01)
 ;;52533-0104-70
 ;;9002226.02101,"1813,52533-0104-70 ",.02)
 ;;52533-0104-70
 ;;9002226.02101,"1813,52959-0924-30 ",.01)
 ;;52959-0924-30
 ;;9002226.02101,"1813,52959-0924-30 ",.02)
 ;;52959-0924-30
 ;;9002226.02101,"1813,52959-0925-30 ",.01)
 ;;52959-0925-30
 ;;9002226.02101,"1813,52959-0925-30 ",.02)
 ;;52959-0925-30
 ;;9002226.02101,"1813,52959-0926-30 ",.01)
 ;;52959-0926-30
 ;;9002226.02101,"1813,52959-0926-30 ",.02)
 ;;52959-0926-30
 ;;9002226.02101,"1813,53217-0001-00 ",.01)
 ;;53217-0001-00
 ;;9002226.02101,"1813,53217-0001-00 ",.02)
 ;;53217-0001-00
 ;;9002226.02101,"1813,53217-0001-30 ",.01)
 ;;53217-0001-30
 ;;9002226.02101,"1813,53217-0001-30 ",.02)
 ;;53217-0001-30
 ;;9002226.02101,"1813,53217-0001-60 ",.01)
 ;;53217-0001-60
 ;;9002226.02101,"1813,53217-0001-60 ",.02)
 ;;53217-0001-60
 ;;9002226.02101,"1813,53217-0001-90 ",.01)
 ;;53217-0001-90
 ;;9002226.02101,"1813,53217-0001-90 ",.02)
 ;;53217-0001-90
 ;;9002226.02101,"1813,53258-0813-05 ",.01)
 ;;53258-0813-05
 ;;9002226.02101,"1813,53258-0813-05 ",.02)
 ;;53258-0813-05
 ;;9002226.02101,"1813,53258-0833-07 ",.01)
 ;;53258-0833-07
 ;;9002226.02101,"1813,53258-0833-07 ",.02)
 ;;53258-0833-07
 ;;9002226.02101,"1813,54569-0158-00 ",.01)
 ;;54569-0158-00
 ;;9002226.02101,"1813,54569-0158-00 ",.02)
 ;;54569-0158-00
 ;;9002226.02101,"1813,54569-0158-01 ",.01)
 ;;54569-0158-01
 ;;9002226.02101,"1813,54569-0158-01 ",.02)
 ;;54569-0158-01
 ;;9002226.02101,"1813,54569-0159-00 ",.01)
 ;;54569-0159-00
 ;;9002226.02101,"1813,54569-0159-00 ",.02)
 ;;54569-0159-00
 ;;9002226.02101,"1813,54569-0159-01 ",.01)
 ;;54569-0159-01
 ;;9002226.02101,"1813,54569-0159-01 ",.02)
 ;;54569-0159-01
 ;;9002226.02101,"1813,54569-0212-01 ",.01)
 ;;54569-0212-01
 ;;9002226.02101,"1813,54569-0212-01 ",.02)
 ;;54569-0212-01
 ;;9002226.02101,"1813,54569-0212-02 ",.01)
 ;;54569-0212-02
 ;;9002226.02101,"1813,54569-0212-02 ",.02)
 ;;54569-0212-02
 ;;9002226.02101,"1813,54569-1496-00 ",.01)
 ;;54569-1496-00
 ;;9002226.02101,"1813,54569-1496-00 ",.02)
 ;;54569-1496-00
 ;;9002226.02101,"1813,54569-4216-00 ",.01)
 ;;54569-4216-00
 ;;9002226.02101,"1813,54569-4216-00 ",.02)
 ;;54569-4216-00
 ;;9002226.02101,"1813,54569-4443-00 ",.01)
 ;;54569-4443-00
 ;;9002226.02101,"1813,54569-4443-00 ",.02)
 ;;54569-4443-00
 ;;9002226.02101,"1813,54569-4443-01 ",.01)
 ;;54569-4443-01
 ;;9002226.02101,"1813,54569-4443-01 ",.02)
 ;;54569-4443-01
 ;;9002226.02101,"1813,54569-4934-00 ",.01)
 ;;54569-4934-00
 ;;9002226.02101,"1813,54569-4934-00 ",.02)
 ;;54569-4934-00
 ;;9002226.02101,"1813,54569-4934-01 ",.01)
 ;;54569-4934-01
 ;;9002226.02101,"1813,54569-4934-01 ",.02)
 ;;54569-4934-01
 ;;9002226.02101,"1813,54569-4934-02 ",.01)
 ;;54569-4934-02
 ;;9002226.02101,"1813,54569-4934-02 ",.02)
 ;;54569-4934-02
 ;;9002226.02101,"1813,54569-5742-00 ",.01)
 ;;54569-5742-00
 ;;9002226.02101,"1813,54569-5742-00 ",.02)
 ;;54569-5742-00
 ;;9002226.02101,"1813,54569-5742-01 ",.01)
 ;;54569-5742-01
 ;;9002226.02101,"1813,54569-5742-01 ",.02)
 ;;54569-5742-01
 ;;9002226.02101,"1813,54569-5868-00 ",.01)
 ;;54569-5868-00
 ;;9002226.02101,"1813,54569-5868-00 ",.02)
 ;;54569-5868-00
 ;;9002226.02101,"1813,54569-5869-00 ",.01)
 ;;54569-5869-00
 ;;9002226.02101,"1813,54569-5869-00 ",.02)
 ;;54569-5869-00
 ;;9002226.02101,"1813,54569-6224-00 ",.01)
 ;;54569-6224-00
 ;;9002226.02101,"1813,54569-6224-00 ",.02)
 ;;54569-6224-00
 ;;9002226.02101,"1813,54569-6225-00 ",.01)
 ;;54569-6225-00
 ;;9002226.02101,"1813,54569-6225-00 ",.02)
 ;;54569-6225-00
 ;;9002226.02101,"1813,54569-6312-00 ",.01)
 ;;54569-6312-00
 ;;9002226.02101,"1813,54569-6312-00 ",.02)
 ;;54569-6312-00
 ;;9002226.02101,"1813,54569-6313-00 ",.01)
 ;;54569-6313-00
 ;;9002226.02101,"1813,54569-6313-00 ",.02)
 ;;54569-6313-00
 ;;9002226.02101,"1813,54569-6313-01 ",.01)
 ;;54569-6313-01
 ;;9002226.02101,"1813,54569-6313-01 ",.02)
 ;;54569-6313-01
 ;;9002226.02101,"1813,54569-6394-00 ",.01)
 ;;54569-6394-00
 ;;9002226.02101,"1813,54569-6394-00 ",.02)
 ;;54569-6394-00
 ;;9002226.02101,"1813,54569-6427-00 ",.01)
 ;;54569-6427-00
 ;;9002226.02101,"1813,54569-6427-00 ",.02)
 ;;54569-6427-00
 ;;9002226.02101,"1813,54868-0485-00 ",.01)
 ;;54868-0485-00
 ;;9002226.02101,"1813,54868-0485-00 ",.02)
 ;;54868-0485-00
 ;;9002226.02101,"1813,54868-0822-00 ",.01)
 ;;54868-0822-00
 ;;9002226.02101,"1813,54868-0822-00 ",.02)
 ;;54868-0822-00
 ;;9002226.02101,"1813,54868-0825-00 ",.01)
 ;;54868-0825-00
 ;;9002226.02101,"1813,54868-0825-00 ",.02)
 ;;54868-0825-00
 ;;9002226.02101,"1813,54868-1216-00 ",.01)
 ;;54868-1216-00
 ;;9002226.02101,"1813,54868-1216-00 ",.02)
 ;;54868-1216-00
 ;;9002226.02101,"1813,54868-1259-00 ",.01)
 ;;54868-1259-00
 ;;9002226.02101,"1813,54868-1259-00 ",.02)
 ;;54868-1259-00
 ;;9002226.02101,"1813,54868-1259-01 ",.01)
 ;;54868-1259-01
 ;;9002226.02101,"1813,54868-1259-01 ",.02)
 ;;54868-1259-01
 ;;9002226.02101,"1813,54868-1259-02 ",.01)
 ;;54868-1259-02
 ;;9002226.02101,"1813,54868-1259-02 ",.02)
 ;;54868-1259-02
 ;;9002226.02101,"1813,54868-1259-03 ",.01)
 ;;54868-1259-03
 ;;9002226.02101,"1813,54868-1259-03 ",.02)
 ;;54868-1259-03
 ;;9002226.02101,"1813,54868-1259-04 ",.01)
 ;;54868-1259-04
 ;;9002226.02101,"1813,54868-1259-04 ",.02)
 ;;54868-1259-04
 ;;9002226.02101,"1813,54868-1259-05 ",.01)
 ;;54868-1259-05
 ;;9002226.02101,"1813,54868-1259-05 ",.02)
 ;;54868-1259-05
 ;;9002226.02101,"1813,54868-1259-06 ",.01)
 ;;54868-1259-06
 ;;9002226.02101,"1813,54868-1259-06 ",.02)
 ;;54868-1259-06
 ;;9002226.02101,"1813,54868-1259-07 ",.01)
 ;;54868-1259-07
 ;;9002226.02101,"1813,54868-1259-07 ",.02)
 ;;54868-1259-07
 ;;9002226.02101,"1813,54868-2128-00 ",.01)
 ;;54868-2128-00
 ;;9002226.02101,"1813,54868-2128-00 ",.02)
 ;;54868-2128-00
 ;;9002226.02101,"1813,54868-2128-01 ",.01)
 ;;54868-2128-01
 ;;9002226.02101,"1813,54868-2128-01 ",.02)
 ;;54868-2128-01
 ;;9002226.02101,"1813,54868-2128-02 ",.01)
 ;;54868-2128-02
 ;;9002226.02101,"1813,54868-2128-02 ",.02)
 ;;54868-2128-02
 ;;9002226.02101,"1813,54868-2128-03 ",.01)
 ;;54868-2128-03
 ;;9002226.02101,"1813,54868-2128-03 ",.02)
 ;;54868-2128-03
 ;;9002226.02101,"1813,54868-2129-00 ",.01)
 ;;54868-2129-00
 ;;9002226.02101,"1813,54868-2129-00 ",.02)
 ;;54868-2129-00
 ;;9002226.02101,"1813,54868-2129-01 ",.01)
 ;;54868-2129-01
 ;;9002226.02101,"1813,54868-2129-01 ",.02)
 ;;54868-2129-01
 ;;9002226.02101,"1813,54868-2129-02 ",.01)
 ;;54868-2129-02
 ;;9002226.02101,"1813,54868-2129-02 ",.02)
 ;;54868-2129-02
 ;;9002226.02101,"1813,54868-2129-03 ",.01)
 ;;54868-2129-03
 ;;9002226.02101,"1813,54868-2129-03 ",.02)
 ;;54868-2129-03
 ;;9002226.02101,"1813,54868-2154-00 ",.01)
 ;;54868-2154-00
 ;;9002226.02101,"1813,54868-2154-00 ",.02)
 ;;54868-2154-00
 ;;9002226.02101,"1813,54868-2154-01 ",.01)
 ;;54868-2154-01
 ;;9002226.02101,"1813,54868-2154-01 ",.02)
 ;;54868-2154-01
 ;;9002226.02101,"1813,54868-2154-02 ",.01)
 ;;54868-2154-02
 ;;9002226.02101,"1813,54868-2154-02 ",.02)
 ;;54868-2154-02
 ;;9002226.02101,"1813,54868-2154-03 ",.01)
 ;;54868-2154-03
 ;;9002226.02101,"1813,54868-2154-03 ",.02)
 ;;54868-2154-03
 ;;9002226.02101,"1813,54868-2252-00 ",.01)
 ;;54868-2252-00
 ;;9002226.02101,"1813,54868-2252-00 ",.02)
 ;;54868-2252-00
 ;;9002226.02101,"1813,54868-2252-01 ",.01)
 ;;54868-2252-01
 ;;9002226.02101,"1813,54868-2252-01 ",.02)
 ;;54868-2252-01
 ;;9002226.02101,"1813,54868-2454-00 ",.01)
 ;;54868-2454-00
 ;;9002226.02101,"1813,54868-2454-00 ",.02)
 ;;54868-2454-00