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

BGP8ZI31.m

Go to the documentation of this file.
BGP8ZI31 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
 ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
 ;
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,"869,21695-0428-30 ",.01)
 ;;21695-0428-30
 ;;9002226.02101,"869,21695-0428-30 ",.02)
 ;;21695-0428-30
 ;;9002226.02101,"869,21695-0441-30 ",.01)
 ;;21695-0441-30
 ;;9002226.02101,"869,21695-0441-30 ",.02)
 ;;21695-0441-30
 ;;9002226.02101,"869,21695-0446-30 ",.01)
 ;;21695-0446-30
 ;;9002226.02101,"869,21695-0446-30 ",.02)
 ;;21695-0446-30
 ;;9002226.02101,"869,21695-0465-90 ",.01)
 ;;21695-0465-90
 ;;9002226.02101,"869,21695-0465-90 ",.02)
 ;;21695-0465-90
 ;;9002226.02101,"869,21695-0577-30 ",.01)
 ;;21695-0577-30
 ;;9002226.02101,"869,21695-0577-30 ",.02)
 ;;21695-0577-30
 ;;9002226.02101,"869,21695-0578-30 ",.01)
 ;;21695-0578-30
 ;;9002226.02101,"869,21695-0578-30 ",.02)
 ;;21695-0578-30
 ;;9002226.02101,"869,21695-0596-30 ",.01)
 ;;21695-0596-30
 ;;9002226.02101,"869,21695-0596-30 ",.02)
 ;;21695-0596-30
 ;;9002226.02101,"869,21695-0641-30 ",.01)
 ;;21695-0641-30
 ;;9002226.02101,"869,21695-0641-30 ",.02)
 ;;21695-0641-30
 ;;9002226.02101,"869,21695-0655-30 ",.01)
 ;;21695-0655-30
 ;;9002226.02101,"869,21695-0655-30 ",.02)
 ;;21695-0655-30
 ;;9002226.02101,"869,21695-0657-60 ",.01)
 ;;21695-0657-60
 ;;9002226.02101,"869,21695-0657-60 ",.02)
 ;;21695-0657-60
 ;;9002226.02101,"869,21695-0715-60 ",.01)
 ;;21695-0715-60
 ;;9002226.02101,"869,21695-0715-60 ",.02)
 ;;21695-0715-60
 ;;9002226.02101,"869,21695-0716-30 ",.01)
 ;;21695-0716-30
 ;;9002226.02101,"869,21695-0716-30 ",.02)
 ;;21695-0716-30
 ;;9002226.02101,"869,21695-0720-60 ",.01)
 ;;21695-0720-60
 ;;9002226.02101,"869,21695-0720-60 ",.02)
 ;;21695-0720-60
 ;;9002226.02101,"869,23155-0246-01 ",.01)
 ;;23155-0246-01
 ;;9002226.02101,"869,23155-0246-01 ",.02)
 ;;23155-0246-01
 ;;9002226.02101,"869,23155-0246-09 ",.01)
 ;;23155-0246-09
 ;;9002226.02101,"869,23155-0246-09 ",.02)
 ;;23155-0246-09
 ;;9002226.02101,"869,23155-0247-01 ",.01)
 ;;23155-0247-01
 ;;9002226.02101,"869,23155-0247-01 ",.02)
 ;;23155-0247-01
 ;;9002226.02101,"869,23155-0247-09 ",.01)
 ;;23155-0247-09
 ;;9002226.02101,"869,23155-0247-09 ",.02)
 ;;23155-0247-09
 ;;9002226.02101,"869,23155-0248-01 ",.01)
 ;;23155-0248-01
 ;;9002226.02101,"869,23155-0248-01 ",.02)
 ;;23155-0248-01
 ;;9002226.02101,"869,23155-0248-09 ",.01)
 ;;23155-0248-09
 ;;9002226.02101,"869,23155-0248-09 ",.02)
 ;;23155-0248-09
 ;;9002226.02101,"869,23155-0249-01 ",.01)
 ;;23155-0249-01
 ;;9002226.02101,"869,23155-0249-01 ",.02)
 ;;23155-0249-01
 ;;9002226.02101,"869,23155-0249-09 ",.01)
 ;;23155-0249-09
 ;;9002226.02101,"869,23155-0249-09 ",.02)
 ;;23155-0249-09
 ;;9002226.02101,"869,23155-0250-01 ",.01)
 ;;23155-0250-01
 ;;9002226.02101,"869,23155-0250-01 ",.02)
 ;;23155-0250-01
 ;;9002226.02101,"869,23155-0250-09 ",.01)
 ;;23155-0250-09
 ;;9002226.02101,"869,23155-0250-09 ",.02)
 ;;23155-0250-09
 ;;9002226.02101,"869,23155-0578-01 ",.01)
 ;;23155-0578-01
 ;;9002226.02101,"869,23155-0578-01 ",.02)
 ;;23155-0578-01
 ;;9002226.02101,"869,23155-0579-01 ",.01)
 ;;23155-0579-01
 ;;9002226.02101,"869,23155-0579-01 ",.02)
 ;;23155-0579-01
 ;;9002226.02101,"869,23155-0580-01 ",.01)
 ;;23155-0580-01
 ;;9002226.02101,"869,23155-0580-01 ",.02)
 ;;23155-0580-01
 ;;9002226.02101,"869,23155-0581-01 ",.01)
 ;;23155-0581-01
 ;;9002226.02101,"869,23155-0581-01 ",.02)
 ;;23155-0581-01
 ;;9002226.02101,"869,23155-0582-01 ",.01)
 ;;23155-0582-01
 ;;9002226.02101,"869,23155-0582-01 ",.02)
 ;;23155-0582-01
 ;;9002226.02101,"869,23155-0583-25 ",.01)
 ;;23155-0583-25
 ;;9002226.02101,"869,23155-0583-25 ",.02)
 ;;23155-0583-25
 ;;9002226.02101,"869,23490-5047-00 ",.01)
 ;;23490-5047-00
 ;;9002226.02101,"869,23490-5047-00 ",.02)
 ;;23490-5047-00
 ;;9002226.02101,"869,23490-5047-01 ",.01)
 ;;23490-5047-01
 ;;9002226.02101,"869,23490-5047-01 ",.02)
 ;;23490-5047-01
 ;;9002226.02101,"869,23490-5047-02 ",.01)
 ;;23490-5047-02
 ;;9002226.02101,"869,23490-5047-02 ",.02)
 ;;23490-5047-02
 ;;9002226.02101,"869,23490-5047-03 ",.01)
 ;;23490-5047-03
 ;;9002226.02101,"869,23490-5047-03 ",.02)
 ;;23490-5047-03
 ;;9002226.02101,"869,23490-5047-04 ",.01)
 ;;23490-5047-04
 ;;9002226.02101,"869,23490-5047-04 ",.02)
 ;;23490-5047-04
 ;;9002226.02101,"869,23490-5050-00 ",.01)
 ;;23490-5050-00
 ;;9002226.02101,"869,23490-5050-00 ",.02)
 ;;23490-5050-00
 ;;9002226.02101,"869,23490-5050-01 ",.01)
 ;;23490-5050-01
 ;;9002226.02101,"869,23490-5050-01 ",.02)
 ;;23490-5050-01
 ;;9002226.02101,"869,23490-5050-04 ",.01)
 ;;23490-5050-04
 ;;9002226.02101,"869,23490-5050-04 ",.02)
 ;;23490-5050-04
 ;;9002226.02101,"869,23490-5050-05 ",.01)
 ;;23490-5050-05
 ;;9002226.02101,"869,23490-5050-05 ",.02)
 ;;23490-5050-05
 ;;9002226.02101,"869,23490-5050-06 ",.01)
 ;;23490-5050-06
 ;;9002226.02101,"869,23490-5050-06 ",.02)
 ;;23490-5050-06
 ;;9002226.02101,"869,23490-5050-08 ",.01)
 ;;23490-5050-08
 ;;9002226.02101,"869,23490-5050-08 ",.02)
 ;;23490-5050-08
 ;;9002226.02101,"869,23490-5050-09 ",.01)
 ;;23490-5050-09
 ;;9002226.02101,"869,23490-5050-09 ",.02)
 ;;23490-5050-09
 ;;9002226.02101,"869,23490-5051-01 ",.01)
 ;;23490-5051-01
 ;;9002226.02101,"869,23490-5051-01 ",.02)
 ;;23490-5051-01
 ;;9002226.02101,"869,23490-5051-02 ",.01)
 ;;23490-5051-02
 ;;9002226.02101,"869,23490-5051-02 ",.02)
 ;;23490-5051-02
 ;;9002226.02101,"869,23490-5051-03 ",.01)
 ;;23490-5051-03
 ;;9002226.02101,"869,23490-5051-03 ",.02)
 ;;23490-5051-03
 ;;9002226.02101,"869,23490-5052-03 ",.01)
 ;;23490-5052-03
 ;;9002226.02101,"869,23490-5052-03 ",.02)
 ;;23490-5052-03
 ;;9002226.02101,"869,23490-5172-03 ",.01)
 ;;23490-5172-03
 ;;9002226.02101,"869,23490-5172-03 ",.02)
 ;;23490-5172-03
 ;;9002226.02101,"869,23490-5172-06 ",.01)
 ;;23490-5172-06
 ;;9002226.02101,"869,23490-5172-06 ",.02)
 ;;23490-5172-06
 ;;9002226.02101,"869,23490-5173-03 ",.01)
 ;;23490-5173-03
 ;;9002226.02101,"869,23490-5173-03 ",.02)
 ;;23490-5173-03
 ;;9002226.02101,"869,23490-5391-01 ",.01)
 ;;23490-5391-01
 ;;9002226.02101,"869,23490-5391-01 ",.02)
 ;;23490-5391-01
 ;;9002226.02101,"869,23490-5392-01 ",.01)
 ;;23490-5392-01
 ;;9002226.02101,"869,23490-5392-01 ",.02)
 ;;23490-5392-01
 ;;9002226.02101,"869,23490-5393-01 ",.01)
 ;;23490-5393-01
 ;;9002226.02101,"869,23490-5393-01 ",.02)
 ;;23490-5393-01
 ;;9002226.02101,"869,23490-5393-02 ",.01)
 ;;23490-5393-02
 ;;9002226.02101,"869,23490-5393-02 ",.02)
 ;;23490-5393-02
 ;;9002226.02101,"869,23490-5394-01 ",.01)
 ;;23490-5394-01
 ;;9002226.02101,"869,23490-5394-01 ",.02)
 ;;23490-5394-01
 ;;9002226.02101,"869,23490-5394-02 ",.01)
 ;;23490-5394-02
 ;;9002226.02101,"869,23490-5394-02 ",.02)
 ;;23490-5394-02
 ;;9002226.02101,"869,23490-5394-03 ",.01)
 ;;23490-5394-03
 ;;9002226.02101,"869,23490-5394-03 ",.02)
 ;;23490-5394-03
 ;;9002226.02101,"869,23490-5480-03 ",.01)
 ;;23490-5480-03
 ;;9002226.02101,"869,23490-5480-03 ",.02)
 ;;23490-5480-03
 ;;9002226.02101,"869,23490-5601-03 ",.01)
 ;;23490-5601-03
 ;;9002226.02101,"869,23490-5601-03 ",.02)
 ;;23490-5601-03
 ;;9002226.02101,"869,23490-5602-01 ",.01)
 ;;23490-5602-01
 ;;9002226.02101,"869,23490-5602-01 ",.02)
 ;;23490-5602-01
 ;;9002226.02101,"869,23490-5602-02 ",.01)
 ;;23490-5602-02
 ;;9002226.02101,"869,23490-5602-02 ",.02)
 ;;23490-5602-02
 ;;9002226.02101,"869,23490-5602-03 ",.01)
 ;;23490-5602-03
 ;;9002226.02101,"869,23490-5602-03 ",.02)
 ;;23490-5602-03
 ;;9002226.02101,"869,23490-6019-01 ",.01)
 ;;23490-6019-01
 ;;9002226.02101,"869,23490-6019-01 ",.02)
 ;;23490-6019-01
 ;;9002226.02101,"869,23490-6019-02 ",.01)
 ;;23490-6019-02
 ;;9002226.02101,"869,23490-6019-02 ",.02)
 ;;23490-6019-02
 ;;9002226.02101,"869,23490-6019-03 ",.01)
 ;;23490-6019-03
 ;;9002226.02101,"869,23490-6019-03 ",.02)
 ;;23490-6019-03
 ;;9002226.02101,"869,23490-6019-04 ",.01)
 ;;23490-6019-04
 ;;9002226.02101,"869,23490-6019-04 ",.02)
 ;;23490-6019-04
 ;;9002226.02101,"869,23490-6020-01 ",.01)
 ;;23490-6020-01
 ;;9002226.02101,"869,23490-6020-01 ",.02)
 ;;23490-6020-01
 ;;9002226.02101,"869,23490-6020-02 ",.01)
 ;;23490-6020-02
 ;;9002226.02101,"869,23490-6020-02 ",.02)
 ;;23490-6020-02
 ;;9002226.02101,"869,23490-6020-03 ",.01)
 ;;23490-6020-03
 ;;9002226.02101,"869,23490-6020-03 ",.02)
 ;;23490-6020-03
 ;;9002226.02101,"869,23490-6021-06 ",.01)
 ;;23490-6021-06
 ;;9002226.02101,"869,23490-6021-06 ",.02)
 ;;23490-6021-06
 ;;9002226.02101,"869,23490-6059-01 ",.01)
 ;;23490-6059-01
 ;;9002226.02101,"869,23490-6059-01 ",.02)
 ;;23490-6059-01
 ;;9002226.02101,"869,23490-6059-02 ",.01)
 ;;23490-6059-02
 ;;9002226.02101,"869,23490-6059-02 ",.02)
 ;;23490-6059-02
 ;;9002226.02101,"869,23490-6059-03 ",.01)
 ;;23490-6059-03
 ;;9002226.02101,"869,23490-6059-03 ",.02)
 ;;23490-6059-03
 ;;9002226.02101,"869,23490-6060-01 ",.01)
 ;;23490-6060-01
 ;;9002226.02101,"869,23490-6060-01 ",.02)
 ;;23490-6060-01
 ;;9002226.02101,"869,23490-6060-02 ",.01)
 ;;23490-6060-02
 ;;9002226.02101,"869,23490-6060-02 ",.02)
 ;;23490-6060-02
 ;;9002226.02101,"869,23490-6263-01 ",.01)
 ;;23490-6263-01
 ;;9002226.02101,"869,23490-6263-01 ",.02)
 ;;23490-6263-01
 ;;9002226.02101,"869,23490-6263-02 ",.01)
 ;;23490-6263-02
 ;;9002226.02101,"869,23490-6263-02 ",.02)
 ;;23490-6263-02
 ;;9002226.02101,"869,23490-6263-03 ",.01)
 ;;23490-6263-03
 ;;9002226.02101,"869,23490-6263-03 ",.02)
 ;;23490-6263-03
 ;;9002226.02101,"869,23490-6264-01 ",.01)
 ;;23490-6264-01
 ;;9002226.02101,"869,23490-6264-01 ",.02)
 ;;23490-6264-01
 ;;9002226.02101,"869,23490-6264-02 ",.01)
 ;;23490-6264-02
 ;;9002226.02101,"869,23490-6264-02 ",.02)
 ;;23490-6264-02
 ;;9002226.02101,"869,23490-6264-03 ",.01)
 ;;23490-6264-03
 ;;9002226.02101,"869,23490-6264-03 ",.02)
 ;;23490-6264-03
 ;;9002226.02101,"869,23490-6264-04 ",.01)
 ;;23490-6264-04
 ;;9002226.02101,"869,23490-6264-04 ",.02)
 ;;23490-6264-04
 ;;9002226.02101,"869,23490-6405-01 ",.01)
 ;;23490-6405-01
 ;;9002226.02101,"869,23490-6405-01 ",.02)
 ;;23490-6405-01
 ;;9002226.02101,"869,23490-6405-02 ",.01)
 ;;23490-6405-02
 ;;9002226.02101,"869,23490-6405-02 ",.02)
 ;;23490-6405-02
 ;;9002226.02101,"869,23490-6405-09 ",.01)
 ;;23490-6405-09
 ;;9002226.02101,"869,23490-6405-09 ",.02)
 ;;23490-6405-09
 ;;9002226.02101,"869,23490-6406-01 ",.01)
 ;;23490-6406-01
 ;;9002226.02101,"869,23490-6406-01 ",.02)
 ;;23490-6406-01
 ;;9002226.02101,"869,23490-6406-02 ",.01)
 ;;23490-6406-02
 ;;9002226.02101,"869,23490-6406-02 ",.02)
 ;;23490-6406-02
 ;;9002226.02101,"869,23490-6406-06 ",.01)
 ;;23490-6406-06
 ;;9002226.02101,"869,23490-6406-06 ",.02)
 ;;23490-6406-06
 ;;9002226.02101,"869,23490-6406-09 ",.01)
 ;;23490-6406-09
 ;;9002226.02101,"869,23490-6406-09 ",.02)
 ;;23490-6406-09
 ;;9002226.02101,"869,23490-6407-01 ",.01)
 ;;23490-6407-01
 ;;9002226.02101,"869,23490-6407-01 ",.02)
 ;;23490-6407-01
 ;;9002226.02101,"869,23490-6407-02 ",.01)
 ;;23490-6407-02
 ;;9002226.02101,"869,23490-6407-02 ",.02)
 ;;23490-6407-02
 ;;9002226.02101,"869,23490-6407-03 ",.01)
 ;;23490-6407-03
 ;;9002226.02101,"869,23490-6407-03 ",.02)
 ;;23490-6407-03
 ;;9002226.02101,"869,23490-6407-04 ",.01)
 ;;23490-6407-04
 ;;9002226.02101,"869,23490-6407-04 ",.02)
 ;;23490-6407-04
 ;;9002226.02101,"869,23490-6530-06 ",.01)
 ;;23490-6530-06
 ;;9002226.02101,"869,23490-6530-06 ",.02)
 ;;23490-6530-06
 ;;9002226.02101,"869,23490-6577-01 ",.01)
 ;;23490-6577-01
 ;;9002226.02101,"869,23490-6577-01 ",.02)
 ;;23490-6577-01
 ;;9002226.02101,"869,23490-6579-01 ",.01)
 ;;23490-6579-01
 ;;9002226.02101,"869,23490-6579-01 ",.02)
 ;;23490-6579-01
 ;;9002226.02101,"869,23490-6579-02 ",.01)
 ;;23490-6579-02
 ;;9002226.02101,"869,23490-6579-02 ",.02)
 ;;23490-6579-02
 ;;9002226.02101,"869,23490-6579-03 ",.01)
 ;;23490-6579-03
 ;;9002226.02101,"869,23490-6579-03 ",.02)
 ;;23490-6579-03