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

BGP62Y53.m

Go to the documentation of this file.
  1. BGP62Y53 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
  1. ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"868,49999-0455-05 ",.02)
  1. ;;49999-0455-05
  1. ;;9002226.02101,"868,49999-0455-10 ",.01)
  1. ;;49999-0455-10
  1. ;;9002226.02101,"868,49999-0455-10 ",.02)
  1. ;;49999-0455-10
  1. ;;9002226.02101,"868,49999-0455-30 ",.01)
  1. ;;49999-0455-30
  1. ;;9002226.02101,"868,49999-0455-30 ",.02)
  1. ;;49999-0455-30
  1. ;;9002226.02101,"868,49999-0503-20 ",.01)
  1. ;;49999-0503-20
  1. ;;9002226.02101,"868,49999-0503-20 ",.02)
  1. ;;49999-0503-20
  1. ;;9002226.02101,"868,49999-0504-28 ",.01)
  1. ;;49999-0504-28
  1. ;;9002226.02101,"868,49999-0504-28 ",.02)
  1. ;;49999-0504-28
  1. ;;9002226.02101,"868,49999-0505-07 ",.01)
  1. ;;49999-0505-07
  1. ;;9002226.02101,"868,49999-0505-07 ",.02)
  1. ;;49999-0505-07
  1. ;;9002226.02101,"868,49999-0505-20 ",.01)
  1. ;;49999-0505-20
  1. ;;9002226.02101,"868,49999-0505-20 ",.02)
  1. ;;49999-0505-20
  1. ;;9002226.02101,"868,49999-0505-28 ",.01)
  1. ;;49999-0505-28
  1. ;;9002226.02101,"868,49999-0505-28 ",.02)
  1. ;;49999-0505-28
  1. ;;9002226.02101,"868,49999-0541-00 ",.01)
  1. ;;49999-0541-00
  1. ;;9002226.02101,"868,49999-0541-00 ",.02)
  1. ;;49999-0541-00
  1. ;;9002226.02101,"868,49999-0541-28 ",.01)
  1. ;;49999-0541-28
  1. ;;9002226.02101,"868,49999-0541-28 ",.02)
  1. ;;49999-0541-28
  1. ;;9002226.02101,"868,49999-0556-00 ",.01)
  1. ;;49999-0556-00
  1. ;;9002226.02101,"868,49999-0556-00 ",.02)
  1. ;;49999-0556-00
  1. ;;9002226.02101,"868,49999-0556-50 ",.01)
  1. ;;49999-0556-50
  1. ;;9002226.02101,"868,49999-0556-50 ",.02)
  1. ;;49999-0556-50
  1. ;;9002226.02101,"868,49999-0557-30 ",.01)
  1. ;;49999-0557-30
  1. ;;9002226.02101,"868,49999-0557-30 ",.02)
  1. ;;49999-0557-30
  1. ;;9002226.02101,"868,49999-0557-42 ",.01)
  1. ;;49999-0557-42
  1. ;;9002226.02101,"868,49999-0557-42 ",.02)
  1. ;;49999-0557-42
  1. ;;9002226.02101,"868,49999-0582-15 ",.01)
  1. ;;49999-0582-15
  1. ;;9002226.02101,"868,49999-0582-15 ",.02)
  1. ;;49999-0582-15
  1. ;;9002226.02101,"868,49999-0586-01 ",.01)
  1. ;;49999-0586-01
  1. ;;9002226.02101,"868,49999-0586-01 ",.02)
  1. ;;49999-0586-01
  1. ;;9002226.02101,"868,49999-0586-10 ",.01)
  1. ;;49999-0586-10
  1. ;;9002226.02101,"868,49999-0586-10 ",.02)
  1. ;;49999-0586-10
  1. ;;9002226.02101,"868,49999-0649-10 ",.01)
  1. ;;49999-0649-10
  1. ;;9002226.02101,"868,49999-0649-10 ",.02)
  1. ;;49999-0649-10
  1. ;;9002226.02101,"868,49999-0649-20 ",.01)
  1. ;;49999-0649-20
  1. ;;9002226.02101,"868,49999-0649-20 ",.02)
  1. ;;49999-0649-20
  1. ;;9002226.02101,"868,49999-0649-30 ",.01)
  1. ;;49999-0649-30
  1. ;;9002226.02101,"868,49999-0649-30 ",.02)
  1. ;;49999-0649-30
  1. ;;9002226.02101,"868,49999-0649-60 ",.01)
  1. ;;49999-0649-60
  1. ;;9002226.02101,"868,49999-0649-60 ",.02)
  1. ;;49999-0649-60
  1. ;;9002226.02101,"868,49999-0649-90 ",.01)
  1. ;;49999-0649-90
  1. ;;9002226.02101,"868,49999-0649-90 ",.02)
  1. ;;49999-0649-90
  1. ;;9002226.02101,"868,49999-0651-30 ",.01)
  1. ;;49999-0651-30
  1. ;;9002226.02101,"868,49999-0651-30 ",.02)
  1. ;;49999-0651-30
  1. ;;9002226.02101,"868,49999-0713-00 ",.01)
  1. ;;49999-0713-00
  1. ;;9002226.02101,"868,49999-0713-00 ",.02)
  1. ;;49999-0713-00
  1. ;;9002226.02101,"868,49999-0766-20 ",.01)
  1. ;;49999-0766-20
  1. ;;9002226.02101,"868,49999-0766-20 ",.02)
  1. ;;49999-0766-20
  1. ;;9002226.02101,"868,49999-0766-28 ",.01)
  1. ;;49999-0766-28
  1. ;;9002226.02101,"868,49999-0766-28 ",.02)
  1. ;;49999-0766-28
  1. ;;9002226.02101,"868,49999-0785-20 ",.01)
  1. ;;49999-0785-20
  1. ;;9002226.02101,"868,49999-0785-20 ",.02)
  1. ;;49999-0785-20
  1. ;;9002226.02101,"868,49999-0786-06 ",.01)
  1. ;;49999-0786-06
  1. ;;9002226.02101,"868,49999-0786-06 ",.02)
  1. ;;49999-0786-06
  1. ;;9002226.02101,"868,49999-0810-00 ",.01)
  1. ;;49999-0810-00
  1. ;;9002226.02101,"868,49999-0810-00 ",.02)
  1. ;;49999-0810-00
  1. ;;9002226.02101,"868,49999-0904-14 ",.01)
  1. ;;49999-0904-14
  1. ;;9002226.02101,"868,49999-0904-14 ",.02)
  1. ;;49999-0904-14
  1. ;;9002226.02101,"868,49999-0904-20 ",.01)
  1. ;;49999-0904-20
  1. ;;9002226.02101,"868,49999-0904-20 ",.02)
  1. ;;49999-0904-20
  1. ;;9002226.02101,"868,49999-0983-00 ",.01)
  1. ;;49999-0983-00
  1. ;;9002226.02101,"868,49999-0983-00 ",.02)
  1. ;;49999-0983-00
  1. ;;9002226.02101,"868,50111-0767-28 ",.01)
  1. ;;50111-0767-28
  1. ;;9002226.02101,"868,50111-0767-28 ",.02)
  1. ;;50111-0767-28
  1. ;;9002226.02101,"868,50111-0787-10 ",.01)
  1. ;;50111-0787-10
  1. ;;9002226.02101,"868,50111-0787-10 ",.02)
  1. ;;50111-0787-10
  1. ;;9002226.02101,"868,50111-0787-51 ",.01)
  1. ;;50111-0787-51
  1. ;;9002226.02101,"868,50111-0787-51 ",.02)
  1. ;;50111-0787-51
  1. ;;9002226.02101,"868,50111-0787-52 ",.01)
  1. ;;50111-0787-52
  1. ;;9002226.02101,"868,50111-0787-52 ",.02)
  1. ;;50111-0787-52
  1. ;;9002226.02101,"868,50111-0787-66 ",.01)
  1. ;;50111-0787-66
  1. ;;9002226.02101,"868,50111-0787-66 ",.02)
  1. ;;50111-0787-66
  1. ;;9002226.02101,"868,50111-0788-10 ",.01)
  1. ;;50111-0788-10
  1. ;;9002226.02101,"868,50111-0788-10 ",.02)
  1. ;;50111-0788-10
  1. ;;9002226.02101,"868,50111-0788-52 ",.01)
  1. ;;50111-0788-52
  1. ;;9002226.02101,"868,50111-0788-52 ",.02)
  1. ;;50111-0788-52
  1. ;;9002226.02101,"868,50111-0788-55 ",.01)
  1. ;;50111-0788-55
  1. ;;9002226.02101,"868,50111-0788-55 ",.02)
  1. ;;50111-0788-55
  1. ;;9002226.02101,"868,50111-0788-67 ",.01)
  1. ;;50111-0788-67
  1. ;;9002226.02101,"868,50111-0788-67 ",.02)
  1. ;;50111-0788-67
  1. ;;9002226.02101,"868,50111-0789-10 ",.01)
  1. ;;50111-0789-10
  1. ;;9002226.02101,"868,50111-0789-10 ",.02)
  1. ;;50111-0789-10
  1. ;;9002226.02101,"868,50111-0791-20 ",.01)
  1. ;;50111-0791-20
  1. ;;9002226.02101,"868,50111-0791-20 ",.02)
  1. ;;50111-0791-20
  1. ;;9002226.02101,"868,50111-0792-22 ",.01)
  1. ;;50111-0792-22
  1. ;;9002226.02101,"868,50111-0792-22 ",.02)
  1. ;;50111-0792-22
  1. ;;9002226.02101,"868,50111-0793-20 ",.01)
  1. ;;50111-0793-20
  1. ;;9002226.02101,"868,50111-0793-20 ",.02)
  1. ;;50111-0793-20
  1. ;;9002226.02101,"868,50111-0794-78 ",.01)
  1. ;;50111-0794-78
  1. ;;9002226.02101,"868,50111-0794-78 ",.02)
  1. ;;50111-0794-78
  1. ;;9002226.02101,"868,50268-0098-15 ",.01)
  1. ;;50268-0098-15
  1. ;;9002226.02101,"868,50268-0098-15 ",.02)
  1. ;;50268-0098-15
  1. ;;9002226.02101,"868,50268-0099-13 ",.01)
  1. ;;50268-0099-13
  1. ;;9002226.02101,"868,50268-0099-13 ",.02)
  1. ;;50268-0099-13
  1. ;;9002226.02101,"868,50268-0100-15 ",.01)
  1. ;;50268-0100-15
  1. ;;9002226.02101,"868,50268-0100-15 ",.02)
  1. ;;50268-0100-15
  1. ;;9002226.02101,"868,50268-0101-13 ",.01)
  1. ;;50268-0101-13
  1. ;;9002226.02101,"868,50268-0101-13 ",.02)
  1. ;;50268-0101-13
  1. ;;9002226.02101,"868,50268-0151-15 ",.01)
  1. ;;50268-0151-15
  1. ;;9002226.02101,"868,50268-0151-15 ",.02)
  1. ;;50268-0151-15
  1. ;;9002226.02101,"868,50268-0152-15 ",.01)
  1. ;;50268-0152-15
  1. ;;9002226.02101,"868,50268-0152-15 ",.02)
  1. ;;50268-0152-15
  1. ;;9002226.02101,"868,50268-0180-15 ",.01)
  1. ;;50268-0180-15
  1. ;;9002226.02101,"868,50268-0180-15 ",.02)
  1. ;;50268-0180-15
  1. ;;9002226.02101,"868,50268-0181-15 ",.01)
  1. ;;50268-0181-15
  1. ;;9002226.02101,"868,50268-0181-15 ",.02)
  1. ;;50268-0181-15
  1. ;;9002226.02101,"868,50268-0277-15 ",.01)
  1. ;;50268-0277-15
  1. ;;9002226.02101,"868,50268-0277-15 ",.02)
  1. ;;50268-0277-15
  1. ;;9002226.02101,"868,50268-0278-15 ",.01)
  1. ;;50268-0278-15
  1. ;;9002226.02101,"868,50268-0278-15 ",.02)
  1. ;;50268-0278-15
  1. ;;9002226.02101,"868,50268-0279-15 ",.01)
  1. ;;50268-0279-15
  1. ;;9002226.02101,"868,50268-0279-15 ",.02)
  1. ;;50268-0279-15
  1. ;;9002226.02101,"868,50268-0567-11 ",.01)
  1. ;;50268-0567-11
  1. ;;9002226.02101,"868,50268-0567-11 ",.02)
  1. ;;50268-0567-11
  1. ;;9002226.02101,"868,50268-0567-15 ",.01)
  1. ;;50268-0567-15
  1. ;;9002226.02101,"868,50268-0567-15 ",.02)
  1. ;;50268-0567-15
  1. ;;9002226.02101,"868,50268-0569-11 ",.01)
  1. ;;50268-0569-11
  1. ;;9002226.02101,"868,50268-0569-11 ",.02)
  1. ;;50268-0569-11
  1. ;;9002226.02101,"868,50268-0569-13 ",.01)
  1. ;;50268-0569-13
  1. ;;9002226.02101,"868,50268-0569-13 ",.02)
  1. ;;50268-0569-13
  1. ;;9002226.02101,"868,50268-0728-15 ",.01)
  1. ;;50268-0728-15
  1. ;;9002226.02101,"868,50268-0728-15 ",.02)
  1. ;;50268-0728-15
  1. ;;9002226.02101,"868,50268-0729-13 ",.01)
  1. ;;50268-0729-13
  1. ;;9002226.02101,"868,50268-0729-13 ",.02)
  1. ;;50268-0729-13
  1. ;;9002226.02101,"868,50268-0775-15 ",.01)
  1. ;;50268-0775-15
  1. ;;9002226.02101,"868,50268-0775-15 ",.02)
  1. ;;50268-0775-15
  1. ;;9002226.02101,"868,50383-0286-04 ",.01)
  1. ;;50383-0286-04
  1. ;;9002226.02101,"868,50383-0286-04 ",.02)
  1. ;;50383-0286-04
  1. ;;9002226.02101,"868,50383-0286-08 ",.01)
  1. ;;50383-0286-08
  1. ;;9002226.02101,"868,50383-0286-08 ",.02)
  1. ;;50383-0286-08
  1. ;;9002226.02101,"868,50383-0286-11 ",.01)
  1. ;;50383-0286-11
  1. ;;9002226.02101,"868,50383-0286-11 ",.02)
  1. ;;50383-0286-11
  1. ;;9002226.02101,"868,50383-0286-16 ",.01)
  1. ;;50383-0286-16
  1. ;;9002226.02101,"868,50383-0286-16 ",.02)
  1. ;;50383-0286-16
  1. ;;9002226.02101,"868,50383-0286-21 ",.01)
  1. ;;50383-0286-21
  1. ;;9002226.02101,"868,50383-0286-21 ",.02)
  1. ;;50383-0286-21
  1. ;;9002226.02101,"868,50383-0823-16 ",.01)
  1. ;;50383-0823-16
  1. ;;9002226.02101,"868,50383-0823-16 ",.02)
  1. ;;50383-0823-16
  1. ;;9002226.02101,"868,50383-0824-16 ",.01)
  1. ;;50383-0824-16
  1. ;;9002226.02101,"868,50383-0824-16 ",.02)
  1. ;;50383-0824-16
  1. ;;9002226.02101,"868,50383-0824-21 ",.01)
  1. ;;50383-0824-21
  1. ;;9002226.02101,"868,50383-0824-21 ",.02)
  1. ;;50383-0824-21
  1. ;;9002226.02101,"868,50419-0754-01 ",.01)
  1. ;;50419-0754-01
  1. ;;9002226.02101,"868,50419-0754-01 ",.02)
  1. ;;50419-0754-01
  1. ;;9002226.02101,"868,50419-0758-01 ",.01)
  1. ;;50419-0758-01
  1. ;;9002226.02101,"868,50419-0758-01 ",.02)
  1. ;;50419-0758-01
  1. ;;9002226.02101,"868,50419-0759-01 ",.01)
  1. ;;50419-0759-01
  1. ;;9002226.02101,"868,50419-0759-01 ",.02)
  1. ;;50419-0759-01
  1. ;;9002226.02101,"868,50419-0773-01 ",.01)
  1. ;;50419-0773-01
  1. ;;9002226.02101,"868,50419-0773-01 ",.02)
  1. ;;50419-0773-01
  1. ;;9002226.02101,"868,50419-0777-01 ",.01)
  1. ;;50419-0777-01
  1. ;;9002226.02101,"868,50419-0777-01 ",.02)
  1. ;;50419-0777-01
  1. ;;9002226.02101,"868,50419-0788-01 ",.01)
  1. ;;50419-0788-01
  1. ;;9002226.02101,"868,50419-0788-01 ",.02)
  1. ;;50419-0788-01
  1. ;;9002226.02101,"868,50419-0789-01 ",.01)
  1. ;;50419-0789-01
  1. ;;9002226.02101,"868,50419-0789-01 ",.02)
  1. ;;50419-0789-01
  1. ;;9002226.02101,"868,50458-0164-20 ",.01)
  1. ;;50458-0164-20
  1. ;;9002226.02101,"868,50458-0164-20 ",.02)
  1. ;;50458-0164-20
  1. ;;9002226.02101,"868,50458-0165-30 ",.01)
  1. ;;50458-0165-30
  1. ;;9002226.02101,"868,50458-0165-30 ",.02)
  1. ;;50458-0165-30
  1. ;;9002226.02101,"868,50458-0166-01 ",.01)
  1. ;;50458-0166-01
  1. ;;9002226.02101,"868,50458-0166-01 ",.02)
  1. ;;50458-0166-01
  1. ;;9002226.02101,"868,50458-0167-01 ",.01)
  1. ;;50458-0167-01
  1. ;;9002226.02101,"868,50458-0167-01 ",.02)
  1. ;;50458-0167-01
  1. ;;9002226.02101,"868,50458-0168-01 ",.01)
  1. ;;50458-0168-01
  1. ;;9002226.02101,"868,50458-0168-01 ",.02)
  1. ;;50458-0168-01
  1. ;;9002226.02101,"868,50458-0170-01 ",.01)
  1. ;;50458-0170-01
  1. ;;9002226.02101,"868,50458-0170-01 ",.02)
  1. ;;50458-0170-01
  1. ;;9002226.02101,"868,50458-0920-10 ",.01)
  1. ;;50458-0920-10
  1. ;;9002226.02101,"868,50458-0920-10 ",.02)
  1. ;;50458-0920-10
  1. ;;9002226.02101,"868,50458-0920-50 ",.01)
  1. ;;50458-0920-50
  1. ;;9002226.02101,"868,50458-0920-50 ",.02)
  1. ;;50458-0920-50
  1. ;;9002226.02101,"868,50458-0925-10 ",.01)
  1. ;;50458-0925-10
  1. ;;9002226.02101,"868,50458-0925-10 ",.02)
  1. ;;50458-0925-10
  1. ;;9002226.02101,"868,50458-0925-50 ",.01)
  1. ;;50458-0925-50
  1. ;;9002226.02101,"868,50458-0925-50 ",.02)
  1. ;;50458-0925-50
  1. ;;9002226.02101,"868,50458-0930-10 ",.01)
  1. ;;50458-0930-10
  1. ;;9002226.02101,"868,50458-0930-10 ",.02)
  1. ;;50458-0930-10
  1. ;;9002226.02101,"868,50458-0930-20 ",.01)
  1. ;;50458-0930-20
  1. ;;9002226.02101,"868,50458-0930-20 ",.02)
  1. ;;50458-0930-20
  1. ;;9002226.02101,"868,50962-0302-20 ",.01)
  1. ;;50962-0302-20
  1. ;;9002226.02101,"868,50962-0302-20 ",.02)
  1. ;;50962-0302-20
  1. ;;9002226.02101,"868,51079-0016-01 ",.01)
  1. ;;51079-0016-01
  1. ;;9002226.02101,"868,51079-0016-01 ",.02)
  1. ;;51079-0016-01
  1. ;;9002226.02101,"868,51079-0016-20 ",.01)
  1. ;;51079-0016-20
  1. ;;9002226.02101,"868,51079-0016-20 ",.02)
  1. ;;51079-0016-20
  1. ;;9002226.02101,"868,51079-0017-01 ",.01)
  1. ;;51079-0017-01
  1. ;;9002226.02101,"868,51079-0017-01 ",.02)
  1. ;;51079-0017-01
  1. ;;9002226.02101,"868,51079-0017-20 ",.01)
  1. ;;51079-0017-20
  1. ;;9002226.02101,"868,51079-0017-20 ",.02)
  1. ;;51079-0017-20
  1. ;;9002226.02101,"868,51079-0034-01 ",.01)
  1. ;;51079-0034-01