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

BGP71T31.m

Go to the documentation of this file.
BGP71T31 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 11, 2016 ;
 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
 ;
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,"1218,68084-0263-11 ",.01)
 ;;68084-0263-11
 ;;9002226.02101,"1218,68084-0263-11 ",.02)
 ;;68084-0263-11
 ;;9002226.02101,"1218,68084-0264-01 ",.01)
 ;;68084-0264-01
 ;;9002226.02101,"1218,68084-0264-01 ",.02)
 ;;68084-0264-01
 ;;9002226.02101,"1218,68084-0264-11 ",.01)
 ;;68084-0264-11
 ;;9002226.02101,"1218,68084-0264-11 ",.02)
 ;;68084-0264-11
 ;;9002226.02101,"1218,68084-0301-01 ",.01)
 ;;68084-0301-01
 ;;9002226.02101,"1218,68084-0301-01 ",.02)
 ;;68084-0301-01
 ;;9002226.02101,"1218,68084-0301-11 ",.01)
 ;;68084-0301-11
 ;;9002226.02101,"1218,68084-0301-11 ",.02)
 ;;68084-0301-11
 ;;9002226.02101,"1218,68084-0302-11 ",.01)
 ;;68084-0302-11
 ;;9002226.02101,"1218,68084-0302-11 ",.02)
 ;;68084-0302-11
 ;;9002226.02101,"1218,68084-0302-21 ",.01)
 ;;68084-0302-21
 ;;9002226.02101,"1218,68084-0302-21 ",.02)
 ;;68084-0302-21
 ;;9002226.02101,"1218,68084-0303-01 ",.01)
 ;;68084-0303-01
 ;;9002226.02101,"1218,68084-0303-01 ",.02)
 ;;68084-0303-01
 ;;9002226.02101,"1218,68084-0303-11 ",.01)
 ;;68084-0303-11
 ;;9002226.02101,"1218,68084-0303-11 ",.02)
 ;;68084-0303-11
 ;;9002226.02101,"1218,68084-0304-01 ",.01)
 ;;68084-0304-01
 ;;9002226.02101,"1218,68084-0304-01 ",.02)
 ;;68084-0304-01
 ;;9002226.02101,"1218,68084-0304-11 ",.01)
 ;;68084-0304-11
 ;;9002226.02101,"1218,68084-0304-11 ",.02)
 ;;68084-0304-11
 ;;9002226.02101,"1218,68084-0456-01 ",.01)
 ;;68084-0456-01
 ;;9002226.02101,"1218,68084-0456-01 ",.02)
 ;;68084-0456-01
 ;;9002226.02101,"1218,68084-0456-11 ",.01)
 ;;68084-0456-11
 ;;9002226.02101,"1218,68084-0456-11 ",.02)
 ;;68084-0456-11
 ;;9002226.02101,"1218,68084-0457-01 ",.01)
 ;;68084-0457-01
 ;;9002226.02101,"1218,68084-0457-01 ",.02)
 ;;68084-0457-01
 ;;9002226.02101,"1218,68084-0457-11 ",.01)
 ;;68084-0457-11
 ;;9002226.02101,"1218,68084-0457-11 ",.02)
 ;;68084-0457-11
 ;;9002226.02101,"1218,68084-0487-11 ",.01)
 ;;68084-0487-11
 ;;9002226.02101,"1218,68084-0487-11 ",.02)
 ;;68084-0487-11
 ;;9002226.02101,"1218,68084-0487-21 ",.01)
 ;;68084-0487-21
 ;;9002226.02101,"1218,68084-0487-21 ",.02)
 ;;68084-0487-21
 ;;9002226.02101,"1218,68084-0503-01 ",.01)
 ;;68084-0503-01
 ;;9002226.02101,"1218,68084-0503-01 ",.02)
 ;;68084-0503-01
 ;;9002226.02101,"1218,68084-0503-11 ",.01)
 ;;68084-0503-11
 ;;9002226.02101,"1218,68084-0503-11 ",.02)
 ;;68084-0503-11
 ;;9002226.02101,"1218,68084-0504-01 ",.01)
 ;;68084-0504-01
 ;;9002226.02101,"1218,68084-0504-01 ",.02)
 ;;68084-0504-01
 ;;9002226.02101,"1218,68084-0504-11 ",.01)
 ;;68084-0504-11
 ;;9002226.02101,"1218,68084-0504-11 ",.02)
 ;;68084-0504-11
 ;;9002226.02101,"1218,68084-0659-01 ",.01)
 ;;68084-0659-01
 ;;9002226.02101,"1218,68084-0659-01 ",.02)
 ;;68084-0659-01
 ;;9002226.02101,"1218,68084-0659-11 ",.01)
 ;;68084-0659-11
 ;;9002226.02101,"1218,68084-0659-11 ",.02)
 ;;68084-0659-11
 ;;9002226.02101,"1218,68084-0666-01 ",.01)
 ;;68084-0666-01
 ;;9002226.02101,"1218,68084-0666-01 ",.02)
 ;;68084-0666-01
 ;;9002226.02101,"1218,68084-0666-11 ",.01)
 ;;68084-0666-11
 ;;9002226.02101,"1218,68084-0666-11 ",.02)
 ;;68084-0666-11
 ;;9002226.02101,"1218,68084-0673-01 ",.01)
 ;;68084-0673-01
 ;;9002226.02101,"1218,68084-0673-01 ",.02)
 ;;68084-0673-01
 ;;9002226.02101,"1218,68084-0673-11 ",.01)
 ;;68084-0673-11
 ;;9002226.02101,"1218,68084-0673-11 ",.02)
 ;;68084-0673-11
 ;;9002226.02101,"1218,68084-0755-11 ",.01)
 ;;68084-0755-11
 ;;9002226.02101,"1218,68084-0755-11 ",.02)
 ;;68084-0755-11
 ;;9002226.02101,"1218,68084-0755-21 ",.01)
 ;;68084-0755-21
 ;;9002226.02101,"1218,68084-0755-21 ",.02)
 ;;68084-0755-21
 ;;9002226.02101,"1218,68084-0763-11 ",.01)
 ;;68084-0763-11
 ;;9002226.02101,"1218,68084-0763-11 ",.02)
 ;;68084-0763-11
 ;;9002226.02101,"1218,68084-0763-21 ",.01)
 ;;68084-0763-21
 ;;9002226.02101,"1218,68084-0763-21 ",.02)
 ;;68084-0763-21
 ;;9002226.02101,"1218,68084-0843-01 ",.01)
 ;;68084-0843-01
 ;;9002226.02101,"1218,68084-0843-01 ",.02)
 ;;68084-0843-01
 ;;9002226.02101,"1218,68084-0843-11 ",.01)
 ;;68084-0843-11
 ;;9002226.02101,"1218,68084-0843-11 ",.02)
 ;;68084-0843-11
 ;;9002226.02101,"1218,68084-0854-01 ",.01)
 ;;68084-0854-01
 ;;9002226.02101,"1218,68084-0854-01 ",.02)
 ;;68084-0854-01
 ;;9002226.02101,"1218,68084-0854-11 ",.01)
 ;;68084-0854-11
 ;;9002226.02101,"1218,68084-0854-11 ",.02)
 ;;68084-0854-11
 ;;9002226.02101,"1218,68084-0865-01 ",.01)
 ;;68084-0865-01
 ;;9002226.02101,"1218,68084-0865-01 ",.02)
 ;;68084-0865-01
 ;;9002226.02101,"1218,68084-0865-11 ",.01)
 ;;68084-0865-11
 ;;9002226.02101,"1218,68084-0865-11 ",.02)
 ;;68084-0865-11
 ;;9002226.02101,"1218,68084-0876-01 ",.01)
 ;;68084-0876-01
 ;;9002226.02101,"1218,68084-0876-01 ",.02)
 ;;68084-0876-01
 ;;9002226.02101,"1218,68084-0876-11 ",.01)
 ;;68084-0876-11
 ;;9002226.02101,"1218,68084-0876-11 ",.02)
 ;;68084-0876-11
 ;;9002226.02101,"1218,68084-0897-25 ",.01)
 ;;68084-0897-25
 ;;9002226.02101,"1218,68084-0897-25 ",.02)
 ;;68084-0897-25
 ;;9002226.02101,"1218,68084-0897-95 ",.01)
 ;;68084-0897-95
 ;;9002226.02101,"1218,68084-0897-95 ",.02)
 ;;68084-0897-95
 ;;9002226.02101,"1218,68084-0916-25 ",.01)
 ;;68084-0916-25
 ;;9002226.02101,"1218,68084-0916-25 ",.02)
 ;;68084-0916-25
 ;;9002226.02101,"1218,68084-0916-95 ",.01)
 ;;68084-0916-95
 ;;9002226.02101,"1218,68084-0916-95 ",.02)
 ;;68084-0916-95
 ;;9002226.02101,"1218,68084-0932-32 ",.01)
 ;;68084-0932-32
 ;;9002226.02101,"1218,68084-0932-32 ",.02)
 ;;68084-0932-32
 ;;9002226.02101,"1218,68084-0932-33 ",.01)
 ;;68084-0932-33
 ;;9002226.02101,"1218,68084-0932-33 ",.02)
 ;;68084-0932-33
 ;;9002226.02101,"1218,68258-6010-03 ",.01)
 ;;68258-6010-03
 ;;9002226.02101,"1218,68258-6010-03 ",.02)
 ;;68258-6010-03
 ;;9002226.02101,"1218,68258-6010-09 ",.01)
 ;;68258-6010-09
 ;;9002226.02101,"1218,68258-6010-09 ",.02)
 ;;68258-6010-09
 ;;9002226.02101,"1218,68258-6019-06 ",.01)
 ;;68258-6019-06
 ;;9002226.02101,"1218,68258-6019-06 ",.02)
 ;;68258-6019-06
 ;;9002226.02101,"1218,68258-6019-09 ",.01)
 ;;68258-6019-09
 ;;9002226.02101,"1218,68258-6019-09 ",.02)
 ;;68258-6019-09
 ;;9002226.02101,"1218,68258-6033-03 ",.01)
 ;;68258-6033-03
 ;;9002226.02101,"1218,68258-6033-03 ",.02)
 ;;68258-6033-03
 ;;9002226.02101,"1218,68258-6033-06 ",.01)
 ;;68258-6033-06
 ;;9002226.02101,"1218,68258-6033-06 ",.02)
 ;;68258-6033-06
 ;;9002226.02101,"1218,68258-6034-03 ",.01)
 ;;68258-6034-03
 ;;9002226.02101,"1218,68258-6034-03 ",.02)
 ;;68258-6034-03
 ;;9002226.02101,"1218,68258-6047-03 ",.01)
 ;;68258-6047-03
 ;;9002226.02101,"1218,68258-6047-03 ",.02)
 ;;68258-6047-03
 ;;9002226.02101,"1218,68258-6047-09 ",.01)
 ;;68258-6047-09
 ;;9002226.02101,"1218,68258-6047-09 ",.02)
 ;;68258-6047-09
 ;;9002226.02101,"1218,68382-0022-01 ",.01)
 ;;68382-0022-01
 ;;9002226.02101,"1218,68382-0022-01 ",.02)
 ;;68382-0022-01
 ;;9002226.02101,"1218,68382-0022-10 ",.01)
 ;;68382-0022-10
 ;;9002226.02101,"1218,68382-0022-10 ",.02)
 ;;68382-0022-10
 ;;9002226.02101,"1218,68382-0023-01 ",.01)
 ;;68382-0023-01
 ;;9002226.02101,"1218,68382-0023-01 ",.02)
 ;;68382-0023-01
 ;;9002226.02101,"1218,68382-0023-10 ",.01)
 ;;68382-0023-10
 ;;9002226.02101,"1218,68382-0023-10 ",.02)
 ;;68382-0023-10
 ;;9002226.02101,"1218,68382-0024-01 ",.01)
 ;;68382-0024-01
 ;;9002226.02101,"1218,68382-0024-01 ",.02)
 ;;68382-0024-01
 ;;9002226.02101,"1218,68382-0024-10 ",.01)
 ;;68382-0024-10
 ;;9002226.02101,"1218,68382-0024-10 ",.02)
 ;;68382-0024-10
 ;;9002226.02101,"1218,68382-0092-01 ",.01)
 ;;68382-0092-01
 ;;9002226.02101,"1218,68382-0092-01 ",.02)
 ;;68382-0092-01
 ;;9002226.02101,"1218,68382-0092-05 ",.01)
 ;;68382-0092-05
 ;;9002226.02101,"1218,68382-0092-05 ",.02)
 ;;68382-0092-05
 ;;9002226.02101,"1218,68382-0092-17 ",.01)
 ;;68382-0092-17
 ;;9002226.02101,"1218,68382-0092-17 ",.02)
 ;;68382-0092-17
 ;;9002226.02101,"1218,68382-0093-01 ",.01)
 ;;68382-0093-01
 ;;9002226.02101,"1218,68382-0093-01 ",.02)
 ;;68382-0093-01
 ;;9002226.02101,"1218,68382-0093-05 ",.01)
 ;;68382-0093-05
 ;;9002226.02101,"1218,68382-0093-05 ",.02)
 ;;68382-0093-05
 ;;9002226.02101,"1218,68382-0093-17 ",.01)
 ;;68382-0093-17
 ;;9002226.02101,"1218,68382-0093-17 ",.02)
 ;;68382-0093-17
 ;;9002226.02101,"1218,68382-0094-01 ",.01)
 ;;68382-0094-01
 ;;9002226.02101,"1218,68382-0094-01 ",.02)
 ;;68382-0094-01
 ;;9002226.02101,"1218,68382-0094-05 ",.01)
 ;;68382-0094-05
 ;;9002226.02101,"1218,68382-0094-05 ",.02)
 ;;68382-0094-05
 ;;9002226.02101,"1218,68382-0094-17 ",.01)
 ;;68382-0094-17
 ;;9002226.02101,"1218,68382-0094-17 ",.02)
 ;;68382-0094-17
 ;;9002226.02101,"1218,68382-0095-01 ",.01)
 ;;68382-0095-01
 ;;9002226.02101,"1218,68382-0095-01 ",.02)
 ;;68382-0095-01
 ;;9002226.02101,"1218,68382-0095-05 ",.01)
 ;;68382-0095-05
 ;;9002226.02101,"1218,68382-0095-05 ",.02)
 ;;68382-0095-05
 ;;9002226.02101,"1218,68382-0095-17 ",.01)
 ;;68382-0095-17
 ;;9002226.02101,"1218,68382-0095-17 ",.02)
 ;;68382-0095-17
 ;;9002226.02101,"1218,68462-0162-01 ",.01)
 ;;68462-0162-01
 ;;9002226.02101,"1218,68462-0162-01 ",.02)
 ;;68462-0162-01
 ;;9002226.02101,"1218,68462-0162-05 ",.01)
 ;;68462-0162-05
 ;;9002226.02101,"1218,68462-0162-05 ",.02)
 ;;68462-0162-05
 ;;9002226.02101,"1218,68462-0163-01 ",.01)
 ;;68462-0163-01
 ;;9002226.02101,"1218,68462-0163-01 ",.02)
 ;;68462-0163-01
 ;;9002226.02101,"1218,68462-0163-05 ",.01)
 ;;68462-0163-05
 ;;9002226.02101,"1218,68462-0163-05 ",.02)
 ;;68462-0163-05
 ;;9002226.02101,"1218,68462-0164-01 ",.01)
 ;;68462-0164-01
 ;;9002226.02101,"1218,68462-0164-01 ",.02)
 ;;68462-0164-01
 ;;9002226.02101,"1218,68462-0164-05 ",.01)
 ;;68462-0164-05
 ;;9002226.02101,"1218,68462-0164-05 ",.02)
 ;;68462-0164-05
 ;;9002226.02101,"1218,68462-0165-01 ",.01)
 ;;68462-0165-01
 ;;9002226.02101,"1218,68462-0165-01 ",.02)
 ;;68462-0165-01
 ;;9002226.02101,"1218,68462-0165-05 ",.01)
 ;;68462-0165-05
 ;;9002226.02101,"1218,68462-0165-05 ",.02)
 ;;68462-0165-05
 ;;9002226.02101,"1218,68645-0190-59 ",.01)
 ;;68645-0190-59
 ;;9002226.02101,"1218,68645-0190-59 ",.02)
 ;;68645-0190-59
 ;;9002226.02101,"1218,68645-0191-59 ",.01)
 ;;68645-0191-59
 ;;9002226.02101,"1218,68645-0191-59 ",.02)
 ;;68645-0191-59
 ;;9002226.02101,"1218,68645-0310-54 ",.01)
 ;;68645-0310-54
 ;;9002226.02101,"1218,68645-0310-54 ",.02)
 ;;68645-0310-54
 ;;9002226.02101,"1218,68645-0350-59 ",.01)
 ;;68645-0350-59
 ;;9002226.02101,"1218,68645-0350-59 ",.02)
 ;;68645-0350-59
 ;;9002226.02101,"1218,68645-0351-59 ",.01)
 ;;68645-0351-59
 ;;9002226.02101,"1218,68645-0351-59 ",.02)
 ;;68645-0351-59
 ;;9002226.02101,"1218,68645-0352-59 ",.01)
 ;;68645-0352-59
 ;;9002226.02101,"1218,68645-0352-59 ",.02)
 ;;68645-0352-59
 ;;9002226.02101,"1218,68645-0468-59 ",.01)
 ;;68645-0468-59
 ;;9002226.02101,"1218,68645-0468-59 ",.02)
 ;;68645-0468-59
 ;;9002226.02101,"1218,68645-0477-54 ",.01)
 ;;68645-0477-54
 ;;9002226.02101,"1218,68645-0477-54 ",.02)
 ;;68645-0477-54
 ;;9002226.02101,"1218,68645-0478-54 ",.01)
 ;;68645-0478-54
 ;;9002226.02101,"1218,68645-0478-54 ",.02)
 ;;68645-0478-54
 ;;9002226.02101,"1218,68645-0479-54 ",.01)
 ;;68645-0479-54
 ;;9002226.02101,"1218,68645-0479-54 ",.02)
 ;;68645-0479-54
 ;;9002226.02101,"1218,68645-0493-54 ",.01)
 ;;68645-0493-54
 ;;9002226.02101,"1218,68645-0493-54 ",.02)
 ;;68645-0493-54
 ;;9002226.02101,"1218,68645-0496-59 ",.01)
 ;;68645-0496-59
 ;;9002226.02101,"1218,68645-0496-59 ",.02)
 ;;68645-0496-59
 ;;9002226.02101,"1218,68788-8932-01 ",.01)
 ;;68788-8932-01
 ;;9002226.02101,"1218,68788-8932-01 ",.02)
 ;;68788-8932-01
 ;;9002226.02101,"1218,68788-8932-03 ",.01)
 ;;68788-8932-03
 ;;9002226.02101,"1218,68788-8932-03 ",.02)
 ;;68788-8932-03
 ;;9002226.02101,"1218,68788-8932-06 ",.01)
 ;;68788-8932-06