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

BGP83A17.m

Go to the documentation of this file.
BGP83A17 ; 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,16729-0136-16 ",.02)
 ;;16729-0136-16
 ;;9002226.02101,"1828,16729-0137-00 ",.01)
 ;;16729-0137-00
 ;;9002226.02101,"1828,16729-0137-00 ",.02)
 ;;16729-0137-00
 ;;9002226.02101,"1828,16729-0137-16 ",.01)
 ;;16729-0137-16
 ;;9002226.02101,"1828,16729-0137-16 ",.02)
 ;;16729-0137-16
 ;;9002226.02101,"1828,16729-0138-00 ",.01)
 ;;16729-0138-00
 ;;9002226.02101,"1828,16729-0138-00 ",.02)
 ;;16729-0138-00
 ;;9002226.02101,"1828,16729-0138-16 ",.01)
 ;;16729-0138-16
 ;;9002226.02101,"1828,16729-0138-16 ",.02)
 ;;16729-0138-16
 ;;9002226.02101,"1828,17856-3566-02 ",.01)
 ;;17856-3566-02
 ;;9002226.02101,"1828,17856-3566-02 ",.02)
 ;;17856-3566-02
 ;;9002226.02101,"1828,17856-3566-03 ",.01)
 ;;17856-3566-03
 ;;9002226.02101,"1828,17856-3566-03 ",.02)
 ;;17856-3566-03
 ;;9002226.02101,"1828,18860-0322-01 ",.01)
 ;;18860-0322-01
 ;;9002226.02101,"1828,18860-0322-01 ",.02)
 ;;18860-0322-01
 ;;9002226.02101,"1828,18860-0323-01 ",.01)
 ;;18860-0323-01
 ;;9002226.02101,"1828,18860-0323-01 ",.02)
 ;;18860-0323-01
 ;;9002226.02101,"1828,18860-0324-01 ",.01)
 ;;18860-0324-01
 ;;9002226.02101,"1828,18860-0324-01 ",.02)
 ;;18860-0324-01
 ;;9002226.02101,"1828,21695-0220-30 ",.01)
 ;;21695-0220-30
 ;;9002226.02101,"1828,21695-0220-30 ",.02)
 ;;21695-0220-30
 ;;9002226.02101,"1828,21695-0238-00 ",.01)
 ;;21695-0238-00
 ;;9002226.02101,"1828,21695-0238-00 ",.02)
 ;;21695-0238-00
 ;;9002226.02101,"1828,21695-0238-15 ",.01)
 ;;21695-0238-15
 ;;9002226.02101,"1828,21695-0238-15 ",.02)
 ;;21695-0238-15
 ;;9002226.02101,"1828,21695-0238-30 ",.01)
 ;;21695-0238-30
 ;;9002226.02101,"1828,21695-0238-30 ",.02)
 ;;21695-0238-30
 ;;9002226.02101,"1828,21695-0238-60 ",.01)
 ;;21695-0238-60
 ;;9002226.02101,"1828,21695-0238-60 ",.02)
 ;;21695-0238-60
 ;;9002226.02101,"1828,21695-0238-90 ",.01)
 ;;21695-0238-90
 ;;9002226.02101,"1828,21695-0238-90 ",.02)
 ;;21695-0238-90
 ;;9002226.02101,"1828,21695-0239-03 ",.01)
 ;;21695-0239-03
 ;;9002226.02101,"1828,21695-0239-03 ",.02)
 ;;21695-0239-03
 ;;9002226.02101,"1828,21695-0239-15 ",.01)
 ;;21695-0239-15
 ;;9002226.02101,"1828,21695-0239-15 ",.02)
 ;;21695-0239-15
 ;;9002226.02101,"1828,21695-0239-30 ",.01)
 ;;21695-0239-30
 ;;9002226.02101,"1828,21695-0239-30 ",.02)
 ;;21695-0239-30
 ;;9002226.02101,"1828,21695-0239-60 ",.01)
 ;;21695-0239-60
 ;;9002226.02101,"1828,21695-0239-60 ",.02)
 ;;21695-0239-60
 ;;9002226.02101,"1828,21695-0239-90 ",.01)
 ;;21695-0239-90
 ;;9002226.02101,"1828,21695-0239-90 ",.02)
 ;;21695-0239-90
 ;;9002226.02101,"1828,21695-0240-03 ",.01)
 ;;21695-0240-03
 ;;9002226.02101,"1828,21695-0240-03 ",.02)
 ;;21695-0240-03
 ;;9002226.02101,"1828,21695-0240-30 ",.01)
 ;;21695-0240-30
 ;;9002226.02101,"1828,21695-0240-30 ",.02)
 ;;21695-0240-30
 ;;9002226.02101,"1828,21695-0240-60 ",.01)
 ;;21695-0240-60
 ;;9002226.02101,"1828,21695-0240-60 ",.02)
 ;;21695-0240-60
 ;;9002226.02101,"1828,21695-0247-30 ",.01)
 ;;21695-0247-30
 ;;9002226.02101,"1828,21695-0247-30 ",.02)
 ;;21695-0247-30
 ;;9002226.02101,"1828,21695-0247-60 ",.01)
 ;;21695-0247-60
 ;;9002226.02101,"1828,21695-0247-60 ",.02)
 ;;21695-0247-60
 ;;9002226.02101,"1828,21695-0247-90 ",.01)
 ;;21695-0247-90
 ;;9002226.02101,"1828,21695-0247-90 ",.02)
 ;;21695-0247-90
 ;;9002226.02101,"1828,21695-0248-00 ",.01)
 ;;21695-0248-00
 ;;9002226.02101,"1828,21695-0248-00 ",.02)
 ;;21695-0248-00
 ;;9002226.02101,"1828,21695-0248-15 ",.01)
 ;;21695-0248-15
 ;;9002226.02101,"1828,21695-0248-15 ",.02)
 ;;21695-0248-15
 ;;9002226.02101,"1828,21695-0248-30 ",.01)
 ;;21695-0248-30
 ;;9002226.02101,"1828,21695-0248-30 ",.02)
 ;;21695-0248-30
 ;;9002226.02101,"1828,21695-0248-60 ",.01)
 ;;21695-0248-60
 ;;9002226.02101,"1828,21695-0248-60 ",.02)
 ;;21695-0248-60
 ;;9002226.02101,"1828,21695-0249-30 ",.01)
 ;;21695-0249-30
 ;;9002226.02101,"1828,21695-0249-30 ",.02)
 ;;21695-0249-30
 ;;9002226.02101,"1828,21695-0249-45 ",.01)
 ;;21695-0249-45
 ;;9002226.02101,"1828,21695-0249-45 ",.02)
 ;;21695-0249-45
 ;;9002226.02101,"1828,21695-0249-60 ",.01)
 ;;21695-0249-60
 ;;9002226.02101,"1828,21695-0249-60 ",.02)
 ;;21695-0249-60
 ;;9002226.02101,"1828,21695-0250-30 ",.01)
 ;;21695-0250-30
 ;;9002226.02101,"1828,21695-0250-30 ",.02)
 ;;21695-0250-30
 ;;9002226.02101,"1828,21695-0250-60 ",.01)
 ;;21695-0250-60
 ;;9002226.02101,"1828,21695-0250-60 ",.02)
 ;;21695-0250-60
 ;;9002226.02101,"1828,21695-0260-00 ",.01)
 ;;21695-0260-00
 ;;9002226.02101,"1828,21695-0260-00 ",.02)
 ;;21695-0260-00
 ;;9002226.02101,"1828,21695-0260-30 ",.01)
 ;;21695-0260-30
 ;;9002226.02101,"1828,21695-0260-30 ",.02)
 ;;21695-0260-30
 ;;9002226.02101,"1828,21695-0260-60 ",.01)
 ;;21695-0260-60
 ;;9002226.02101,"1828,21695-0260-60 ",.02)
 ;;21695-0260-60
 ;;9002226.02101,"1828,21695-0260-72 ",.01)
 ;;21695-0260-72
 ;;9002226.02101,"1828,21695-0260-72 ",.02)
 ;;21695-0260-72
 ;;9002226.02101,"1828,21695-0260-90 ",.01)
 ;;21695-0260-90
 ;;9002226.02101,"1828,21695-0260-90 ",.02)
 ;;21695-0260-90
 ;;9002226.02101,"1828,21695-0261-00 ",.01)
 ;;21695-0261-00
 ;;9002226.02101,"1828,21695-0261-00 ",.02)
 ;;21695-0261-00
 ;;9002226.02101,"1828,21695-0261-30 ",.01)
 ;;21695-0261-30
 ;;9002226.02101,"1828,21695-0261-30 ",.02)
 ;;21695-0261-30
 ;;9002226.02101,"1828,21695-0261-60 ",.01)
 ;;21695-0261-60
 ;;9002226.02101,"1828,21695-0261-60 ",.02)
 ;;21695-0261-60
 ;;9002226.02101,"1828,21695-0261-72 ",.01)
 ;;21695-0261-72
 ;;9002226.02101,"1828,21695-0261-72 ",.02)
 ;;21695-0261-72
 ;;9002226.02101,"1828,21695-0261-90 ",.01)
 ;;21695-0261-90
 ;;9002226.02101,"1828,21695-0261-90 ",.02)
 ;;21695-0261-90
 ;;9002226.02101,"1828,21695-0262-60 ",.01)
 ;;21695-0262-60
 ;;9002226.02101,"1828,21695-0262-60 ",.02)
 ;;21695-0262-60
 ;;9002226.02101,"1828,21695-0263-30 ",.01)
 ;;21695-0263-30
 ;;9002226.02101,"1828,21695-0263-30 ",.02)
 ;;21695-0263-30
 ;;9002226.02101,"1828,21695-0263-90 ",.01)
 ;;21695-0263-90
 ;;9002226.02101,"1828,21695-0263-90 ",.02)
 ;;21695-0263-90
 ;;9002226.02101,"1828,21695-0264-02 ",.01)
 ;;21695-0264-02
 ;;9002226.02101,"1828,21695-0264-02 ",.02)
 ;;21695-0264-02
 ;;9002226.02101,"1828,21695-0264-10 ",.01)
 ;;21695-0264-10
 ;;9002226.02101,"1828,21695-0264-10 ",.02)
 ;;21695-0264-10
 ;;9002226.02101,"1828,21695-0264-12 ",.01)
 ;;21695-0264-12
 ;;9002226.02101,"1828,21695-0264-12 ",.02)
 ;;21695-0264-12
 ;;9002226.02101,"1828,21695-0264-15 ",.01)
 ;;21695-0264-15
 ;;9002226.02101,"1828,21695-0264-15 ",.02)
 ;;21695-0264-15
 ;;9002226.02101,"1828,21695-0264-20 ",.01)
 ;;21695-0264-20
 ;;9002226.02101,"1828,21695-0264-20 ",.02)
 ;;21695-0264-20
 ;;9002226.02101,"1828,21695-0264-30 ",.01)
 ;;21695-0264-30
 ;;9002226.02101,"1828,21695-0264-30 ",.02)
 ;;21695-0264-30
 ;;9002226.02101,"1828,21695-0264-45 ",.01)
 ;;21695-0264-45
 ;;9002226.02101,"1828,21695-0264-45 ",.02)
 ;;21695-0264-45
 ;;9002226.02101,"1828,21695-0264-60 ",.01)
 ;;21695-0264-60
 ;;9002226.02101,"1828,21695-0264-60 ",.02)
 ;;21695-0264-60
 ;;9002226.02101,"1828,21695-0264-90 ",.01)
 ;;21695-0264-90
 ;;9002226.02101,"1828,21695-0264-90 ",.02)
 ;;21695-0264-90
 ;;9002226.02101,"1828,21695-0265-05 ",.01)
 ;;21695-0265-05
 ;;9002226.02101,"1828,21695-0265-05 ",.02)
 ;;21695-0265-05
 ;;9002226.02101,"1828,21695-0265-15 ",.01)
 ;;21695-0265-15
 ;;9002226.02101,"1828,21695-0265-15 ",.02)
 ;;21695-0265-15
 ;;9002226.02101,"1828,21695-0265-30 ",.01)
 ;;21695-0265-30
 ;;9002226.02101,"1828,21695-0265-30 ",.02)
 ;;21695-0265-30
 ;;9002226.02101,"1828,21695-0265-60 ",.01)
 ;;21695-0265-60
 ;;9002226.02101,"1828,21695-0265-60 ",.02)
 ;;21695-0265-60
 ;;9002226.02101,"1828,21695-0265-90 ",.01)
 ;;21695-0265-90
 ;;9002226.02101,"1828,21695-0265-90 ",.02)
 ;;21695-0265-90
 ;;9002226.02101,"1828,21695-0282-30 ",.01)
 ;;21695-0282-30
 ;;9002226.02101,"1828,21695-0282-30 ",.02)
 ;;21695-0282-30
 ;;9002226.02101,"1828,21695-0282-60 ",.01)
 ;;21695-0282-60
 ;;9002226.02101,"1828,21695-0282-60 ",.02)
 ;;21695-0282-60
 ;;9002226.02101,"1828,21695-0282-78 ",.01)
 ;;21695-0282-78
 ;;9002226.02101,"1828,21695-0282-78 ",.02)
 ;;21695-0282-78
 ;;9002226.02101,"1828,21695-0283-30 ",.01)
 ;;21695-0283-30
 ;;9002226.02101,"1828,21695-0283-30 ",.02)
 ;;21695-0283-30
 ;;9002226.02101,"1828,21695-0283-90 ",.01)
 ;;21695-0283-90
 ;;9002226.02101,"1828,21695-0283-90 ",.02)
 ;;21695-0283-90
 ;;9002226.02101,"1828,21695-0284-00 ",.01)
 ;;21695-0284-00
 ;;9002226.02101,"1828,21695-0284-00 ",.02)
 ;;21695-0284-00
 ;;9002226.02101,"1828,21695-0284-10 ",.01)
 ;;21695-0284-10
 ;;9002226.02101,"1828,21695-0284-10 ",.02)
 ;;21695-0284-10
 ;;9002226.02101,"1828,21695-0303-10 ",.01)
 ;;21695-0303-10
 ;;9002226.02101,"1828,21695-0303-10 ",.02)
 ;;21695-0303-10
 ;;9002226.02101,"1828,21695-0303-30 ",.01)
 ;;21695-0303-30
 ;;9002226.02101,"1828,21695-0303-30 ",.02)
 ;;21695-0303-30
 ;;9002226.02101,"1828,21695-0363-30 ",.01)
 ;;21695-0363-30
 ;;9002226.02101,"1828,21695-0363-30 ",.02)
 ;;21695-0363-30
 ;;9002226.02101,"1828,21695-0433-60 ",.01)
 ;;21695-0433-60
 ;;9002226.02101,"1828,21695-0433-60 ",.02)
 ;;21695-0433-60
 ;;9002226.02101,"1828,21695-0434-60 ",.01)
 ;;21695-0434-60
 ;;9002226.02101,"1828,21695-0434-60 ",.02)
 ;;21695-0434-60
 ;;9002226.02101,"1828,21695-0602-60 ",.01)
 ;;21695-0602-60
 ;;9002226.02101,"1828,21695-0602-60 ",.02)
 ;;21695-0602-60
 ;;9002226.02101,"1828,21695-0603-60 ",.01)
 ;;21695-0603-60
 ;;9002226.02101,"1828,21695-0603-60 ",.02)
 ;;21695-0603-60
 ;;9002226.02101,"1828,21695-0604-60 ",.01)
 ;;21695-0604-60
 ;;9002226.02101,"1828,21695-0604-60 ",.02)
 ;;21695-0604-60
 ;;9002226.02101,"1828,21695-0605-60 ",.01)
 ;;21695-0605-60
 ;;9002226.02101,"1828,21695-0605-60 ",.02)
 ;;21695-0605-60
 ;;9002226.02101,"1828,33261-0004-02 ",.01)
 ;;33261-0004-02
 ;;9002226.02101,"1828,33261-0004-02 ",.02)
 ;;33261-0004-02
 ;;9002226.02101,"1828,33261-0004-07 ",.01)
 ;;33261-0004-07
 ;;9002226.02101,"1828,33261-0004-07 ",.02)
 ;;33261-0004-07
 ;;9002226.02101,"1828,33261-0004-10 ",.01)
 ;;33261-0004-10
 ;;9002226.02101,"1828,33261-0004-10 ",.02)
 ;;33261-0004-10
 ;;9002226.02101,"1828,33261-0004-14 ",.01)
 ;;33261-0004-14
 ;;9002226.02101,"1828,33261-0004-14 ",.02)
 ;;33261-0004-14
 ;;9002226.02101,"1828,33261-0004-20 ",.01)
 ;;33261-0004-20
 ;;9002226.02101,"1828,33261-0004-20 ",.02)
 ;;33261-0004-20
 ;;9002226.02101,"1828,33261-0004-21 ",.01)
 ;;33261-0004-21
 ;;9002226.02101,"1828,33261-0004-21 ",.02)
 ;;33261-0004-21
 ;;9002226.02101,"1828,33261-0004-28 ",.01)
 ;;33261-0004-28
 ;;9002226.02101,"1828,33261-0004-28 ",.02)
 ;;33261-0004-28
 ;;9002226.02101,"1828,33261-0004-30 ",.01)
 ;;33261-0004-30
 ;;9002226.02101,"1828,33261-0004-30 ",.02)
 ;;33261-0004-30
 ;;9002226.02101,"1828,33261-0004-40 ",.01)
 ;;33261-0004-40
 ;;9002226.02101,"1828,33261-0004-40 ",.02)
 ;;33261-0004-40
 ;;9002226.02101,"1828,33261-0004-60 ",.01)
 ;;33261-0004-60
 ;;9002226.02101,"1828,33261-0004-60 ",.02)
 ;;33261-0004-60
 ;;9002226.02101,"1828,33261-0004-90 ",.01)
 ;;33261-0004-90
 ;;9002226.02101,"1828,33261-0004-90 ",.02)
 ;;33261-0004-90
 ;;9002226.02101,"1828,33261-0005-00 ",.01)
 ;;33261-0005-00
 ;;9002226.02101,"1828,33261-0005-00 ",.02)
 ;;33261-0005-00
 ;;9002226.02101,"1828,33261-0005-02 ",.01)
 ;;33261-0005-02
 ;;9002226.02101,"1828,33261-0005-02 ",.02)
 ;;33261-0005-02
 ;;9002226.02101,"1828,33261-0005-06 ",.01)
 ;;33261-0005-06
 ;;9002226.02101,"1828,33261-0005-06 ",.02)
 ;;33261-0005-06
 ;;9002226.02101,"1828,33261-0005-15 ",.01)
 ;;33261-0005-15
 ;;9002226.02101,"1828,33261-0005-15 ",.02)
 ;;33261-0005-15
 ;;9002226.02101,"1828,33261-0005-30 ",.01)
 ;;33261-0005-30
 ;;9002226.02101,"1828,33261-0005-30 ",.02)
 ;;33261-0005-30