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

BGP82Z37.m

Go to the documentation of this file.
BGP82Z37 ; 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,"619,35356-0837-30 ",.02)
 ;;35356-0837-30
 ;;9002226.02101,"619,35356-0838-01 ",.01)
 ;;35356-0838-01
 ;;9002226.02101,"619,35356-0838-01 ",.02)
 ;;35356-0838-01
 ;;9002226.02101,"619,35356-0838-30 ",.01)
 ;;35356-0838-30
 ;;9002226.02101,"619,35356-0838-30 ",.02)
 ;;35356-0838-30
 ;;9002226.02101,"619,35356-0838-60 ",.01)
 ;;35356-0838-60
 ;;9002226.02101,"619,35356-0838-60 ",.02)
 ;;35356-0838-60
 ;;9002226.02101,"619,35356-0838-90 ",.01)
 ;;35356-0838-90
 ;;9002226.02101,"619,35356-0838-90 ",.02)
 ;;35356-0838-90
 ;;9002226.02101,"619,35356-0839-30 ",.01)
 ;;35356-0839-30
 ;;9002226.02101,"619,35356-0839-30 ",.02)
 ;;35356-0839-30
 ;;9002226.02101,"619,35356-0839-60 ",.01)
 ;;35356-0839-60
 ;;9002226.02101,"619,35356-0839-60 ",.02)
 ;;35356-0839-60
 ;;9002226.02101,"619,35356-0839-90 ",.01)
 ;;35356-0839-90
 ;;9002226.02101,"619,35356-0839-90 ",.02)
 ;;35356-0839-90
 ;;9002226.02101,"619,35356-0841-30 ",.01)
 ;;35356-0841-30
 ;;9002226.02101,"619,35356-0841-30 ",.02)
 ;;35356-0841-30
 ;;9002226.02101,"619,35356-0841-60 ",.01)
 ;;35356-0841-60
 ;;9002226.02101,"619,35356-0841-60 ",.02)
 ;;35356-0841-60
 ;;9002226.02101,"619,35356-0841-90 ",.01)
 ;;35356-0841-90
 ;;9002226.02101,"619,35356-0841-90 ",.02)
 ;;35356-0841-90
 ;;9002226.02101,"619,35356-0848-30 ",.01)
 ;;35356-0848-30
 ;;9002226.02101,"619,35356-0848-30 ",.02)
 ;;35356-0848-30
 ;;9002226.02101,"619,35356-0848-60 ",.01)
 ;;35356-0848-60
 ;;9002226.02101,"619,35356-0848-60 ",.02)
 ;;35356-0848-60
 ;;9002226.02101,"619,35356-0848-90 ",.01)
 ;;35356-0848-90
 ;;9002226.02101,"619,35356-0848-90 ",.02)
 ;;35356-0848-90
 ;;9002226.02101,"619,35356-0849-30 ",.01)
 ;;35356-0849-30
 ;;9002226.02101,"619,35356-0849-30 ",.02)
 ;;35356-0849-30
 ;;9002226.02101,"619,35356-0849-60 ",.01)
 ;;35356-0849-60
 ;;9002226.02101,"619,35356-0849-60 ",.02)
 ;;35356-0849-60
 ;;9002226.02101,"619,35356-0849-90 ",.01)
 ;;35356-0849-90
 ;;9002226.02101,"619,35356-0849-90 ",.02)
 ;;35356-0849-90
 ;;9002226.02101,"619,35356-0937-01 ",.01)
 ;;35356-0937-01
 ;;9002226.02101,"619,35356-0937-01 ",.02)
 ;;35356-0937-01
 ;;9002226.02101,"619,35356-0937-15 ",.01)
 ;;35356-0937-15
 ;;9002226.02101,"619,35356-0937-15 ",.02)
 ;;35356-0937-15
 ;;9002226.02101,"619,35356-0937-30 ",.01)
 ;;35356-0937-30
 ;;9002226.02101,"619,35356-0937-30 ",.02)
 ;;35356-0937-30
 ;;9002226.02101,"619,35356-0937-60 ",.01)
 ;;35356-0937-60
 ;;9002226.02101,"619,35356-0937-60 ",.02)
 ;;35356-0937-60
 ;;9002226.02101,"619,35356-0937-90 ",.01)
 ;;35356-0937-90
 ;;9002226.02101,"619,35356-0937-90 ",.02)
 ;;35356-0937-90
 ;;9002226.02101,"619,35356-0967-30 ",.01)
 ;;35356-0967-30
 ;;9002226.02101,"619,35356-0967-30 ",.02)
 ;;35356-0967-30
 ;;9002226.02101,"619,35356-0968-01 ",.01)
 ;;35356-0968-01
 ;;9002226.02101,"619,35356-0968-01 ",.02)
 ;;35356-0968-01
 ;;9002226.02101,"619,35356-0968-30 ",.01)
 ;;35356-0968-30
 ;;9002226.02101,"619,35356-0968-30 ",.02)
 ;;35356-0968-30
 ;;9002226.02101,"619,35356-0968-60 ",.01)
 ;;35356-0968-60
 ;;9002226.02101,"619,35356-0968-60 ",.02)
 ;;35356-0968-60
 ;;9002226.02101,"619,35356-0999-30 ",.01)
 ;;35356-0999-30
 ;;9002226.02101,"619,35356-0999-30 ",.02)
 ;;35356-0999-30
 ;;9002226.02101,"619,42195-0840-10 ",.01)
 ;;42195-0840-10
 ;;9002226.02101,"619,42195-0840-10 ",.02)
 ;;42195-0840-10
 ;;9002226.02101,"619,42254-0002-05 ",.01)
 ;;42254-0002-05
 ;;9002226.02101,"619,42254-0002-05 ",.02)
 ;;42254-0002-05
 ;;9002226.02101,"619,42254-0022-30 ",.01)
 ;;42254-0022-30
 ;;9002226.02101,"619,42254-0022-30 ",.02)
 ;;42254-0022-30
 ;;9002226.02101,"619,42254-0051-12 ",.01)
 ;;42254-0051-12
 ;;9002226.02101,"619,42254-0051-12 ",.02)
 ;;42254-0051-12
 ;;9002226.02101,"619,42254-0051-30 ",.01)
 ;;42254-0051-30
 ;;9002226.02101,"619,42254-0051-30 ",.02)
 ;;42254-0051-30
 ;;9002226.02101,"619,42254-0051-60 ",.01)
 ;;42254-0051-60
 ;;9002226.02101,"619,42254-0051-60 ",.02)
 ;;42254-0051-60
 ;;9002226.02101,"619,42254-0051-90 ",.01)
 ;;42254-0051-90
 ;;9002226.02101,"619,42254-0051-90 ",.02)
 ;;42254-0051-90
 ;;9002226.02101,"619,42254-0079-08 ",.01)
 ;;42254-0079-08
 ;;9002226.02101,"619,42254-0079-08 ",.02)
 ;;42254-0079-08
 ;;9002226.02101,"619,42254-0079-10 ",.01)
 ;;42254-0079-10
 ;;9002226.02101,"619,42254-0079-10 ",.02)
 ;;42254-0079-10
 ;;9002226.02101,"619,42254-0079-20 ",.01)
 ;;42254-0079-20
 ;;9002226.02101,"619,42254-0079-20 ",.02)
 ;;42254-0079-20
 ;;9002226.02101,"619,42254-0079-30 ",.01)
 ;;42254-0079-30
 ;;9002226.02101,"619,42254-0079-30 ",.02)
 ;;42254-0079-30
 ;;9002226.02101,"619,42254-0079-60 ",.01)
 ;;42254-0079-60
 ;;9002226.02101,"619,42254-0079-60 ",.02)
 ;;42254-0079-60
 ;;9002226.02101,"619,42254-0079-90 ",.01)
 ;;42254-0079-90
 ;;9002226.02101,"619,42254-0079-90 ",.02)
 ;;42254-0079-90
 ;;9002226.02101,"619,42254-0100-08 ",.01)
 ;;42254-0100-08
 ;;9002226.02101,"619,42254-0100-08 ",.02)
 ;;42254-0100-08
 ;;9002226.02101,"619,42254-0100-10 ",.01)
 ;;42254-0100-10
 ;;9002226.02101,"619,42254-0100-10 ",.02)
 ;;42254-0100-10
 ;;9002226.02101,"619,42254-0100-12 ",.01)
 ;;42254-0100-12
 ;;9002226.02101,"619,42254-0100-12 ",.02)
 ;;42254-0100-12
 ;;9002226.02101,"619,42254-0100-15 ",.01)
 ;;42254-0100-15
 ;;9002226.02101,"619,42254-0100-15 ",.02)
 ;;42254-0100-15
 ;;9002226.02101,"619,42254-0100-20 ",.01)
 ;;42254-0100-20
 ;;9002226.02101,"619,42254-0100-20 ",.02)
 ;;42254-0100-20
 ;;9002226.02101,"619,42254-0100-21 ",.01)
 ;;42254-0100-21
 ;;9002226.02101,"619,42254-0100-21 ",.02)
 ;;42254-0100-21
 ;;9002226.02101,"619,42254-0100-24 ",.01)
 ;;42254-0100-24
 ;;9002226.02101,"619,42254-0100-24 ",.02)
 ;;42254-0100-24
 ;;9002226.02101,"619,42254-0100-30 ",.01)
 ;;42254-0100-30
 ;;9002226.02101,"619,42254-0100-30 ",.02)
 ;;42254-0100-30
 ;;9002226.02101,"619,42254-0100-40 ",.01)
 ;;42254-0100-40
 ;;9002226.02101,"619,42254-0100-40 ",.02)
 ;;42254-0100-40
 ;;9002226.02101,"619,42254-0100-45 ",.01)
 ;;42254-0100-45
 ;;9002226.02101,"619,42254-0100-45 ",.02)
 ;;42254-0100-45
 ;;9002226.02101,"619,42254-0100-60 ",.01)
 ;;42254-0100-60
 ;;9002226.02101,"619,42254-0100-60 ",.02)
 ;;42254-0100-60
 ;;9002226.02101,"619,42254-0100-90 ",.01)
 ;;42254-0100-90
 ;;9002226.02101,"619,42254-0100-90 ",.02)
 ;;42254-0100-90
 ;;9002226.02101,"619,42254-0114-60 ",.01)
 ;;42254-0114-60
 ;;9002226.02101,"619,42254-0114-60 ",.02)
 ;;42254-0114-60
 ;;9002226.02101,"619,42254-0140-04 ",.01)
 ;;42254-0140-04
 ;;9002226.02101,"619,42254-0140-04 ",.02)
 ;;42254-0140-04
 ;;9002226.02101,"619,42254-0145-60 ",.01)
 ;;42254-0145-60
 ;;9002226.02101,"619,42254-0145-60 ",.02)
 ;;42254-0145-60
 ;;9002226.02101,"619,42254-0159-60 ",.01)
 ;;42254-0159-60
 ;;9002226.02101,"619,42254-0159-60 ",.02)
 ;;42254-0159-60
 ;;9002226.02101,"619,42254-0214-00 ",.01)
 ;;42254-0214-00
 ;;9002226.02101,"619,42254-0214-00 ",.02)
 ;;42254-0214-00
 ;;9002226.02101,"619,42254-0214-20 ",.01)
 ;;42254-0214-20
 ;;9002226.02101,"619,42254-0214-20 ",.02)
 ;;42254-0214-20
 ;;9002226.02101,"619,42254-0214-30 ",.01)
 ;;42254-0214-30
 ;;9002226.02101,"619,42254-0214-30 ",.02)
 ;;42254-0214-30
 ;;9002226.02101,"619,42254-0214-60 ",.01)
 ;;42254-0214-60
 ;;9002226.02101,"619,42254-0214-60 ",.02)
 ;;42254-0214-60
 ;;9002226.02101,"619,42254-0214-90 ",.01)
 ;;42254-0214-90
 ;;9002226.02101,"619,42254-0214-90 ",.02)
 ;;42254-0214-90
 ;;9002226.02101,"619,42254-0223-15 ",.01)
 ;;42254-0223-15
 ;;9002226.02101,"619,42254-0223-15 ",.02)
 ;;42254-0223-15
 ;;9002226.02101,"619,42254-0223-20 ",.01)
 ;;42254-0223-20
 ;;9002226.02101,"619,42254-0223-20 ",.02)
 ;;42254-0223-20
 ;;9002226.02101,"619,42254-0223-21 ",.01)
 ;;42254-0223-21
 ;;9002226.02101,"619,42254-0223-21 ",.02)
 ;;42254-0223-21
 ;;9002226.02101,"619,42254-0223-30 ",.01)
 ;;42254-0223-30
 ;;9002226.02101,"619,42254-0223-30 ",.02)
 ;;42254-0223-30
 ;;9002226.02101,"619,42254-0223-40 ",.01)
 ;;42254-0223-40
 ;;9002226.02101,"619,42254-0223-40 ",.02)
 ;;42254-0223-40
 ;;9002226.02101,"619,42254-0223-60 ",.01)
 ;;42254-0223-60
 ;;9002226.02101,"619,42254-0223-60 ",.02)
 ;;42254-0223-60
 ;;9002226.02101,"619,42254-0228-14 ",.01)
 ;;42254-0228-14
 ;;9002226.02101,"619,42254-0228-14 ",.02)
 ;;42254-0228-14
 ;;9002226.02101,"619,42254-0228-30 ",.01)
 ;;42254-0228-30
 ;;9002226.02101,"619,42254-0228-30 ",.02)
 ;;42254-0228-30
 ;;9002226.02101,"619,42254-0228-60 ",.01)
 ;;42254-0228-60
 ;;9002226.02101,"619,42254-0228-60 ",.02)
 ;;42254-0228-60
 ;;9002226.02101,"619,42254-0228-90 ",.01)
 ;;42254-0228-90
 ;;9002226.02101,"619,42254-0228-90 ",.02)
 ;;42254-0228-90
 ;;9002226.02101,"619,42254-0244-30 ",.01)
 ;;42254-0244-30
 ;;9002226.02101,"619,42254-0244-30 ",.02)
 ;;42254-0244-30
 ;;9002226.02101,"619,42254-0291-30 ",.01)
 ;;42254-0291-30
 ;;9002226.02101,"619,42254-0291-30 ",.02)
 ;;42254-0291-30
 ;;9002226.02101,"619,42254-0291-60 ",.01)
 ;;42254-0291-60
 ;;9002226.02101,"619,42254-0291-60 ",.02)
 ;;42254-0291-60
 ;;9002226.02101,"619,42254-0300-30 ",.01)
 ;;42254-0300-30
 ;;9002226.02101,"619,42254-0300-30 ",.02)
 ;;42254-0300-30
 ;;9002226.02101,"619,42254-0300-60 ",.01)
 ;;42254-0300-60
 ;;9002226.02101,"619,42254-0300-60 ",.02)
 ;;42254-0300-60
 ;;9002226.02101,"619,42254-0300-90 ",.01)
 ;;42254-0300-90
 ;;9002226.02101,"619,42254-0300-90 ",.02)
 ;;42254-0300-90
 ;;9002226.02101,"619,42254-0301-30 ",.01)
 ;;42254-0301-30
 ;;9002226.02101,"619,42254-0301-30 ",.02)
 ;;42254-0301-30
 ;;9002226.02101,"619,42254-0301-60 ",.01)
 ;;42254-0301-60
 ;;9002226.02101,"619,42254-0301-60 ",.02)
 ;;42254-0301-60
 ;;9002226.02101,"619,42254-0301-90 ",.01)
 ;;42254-0301-90
 ;;9002226.02101,"619,42254-0301-90 ",.02)
 ;;42254-0301-90
 ;;9002226.02101,"619,42254-0340-12 ",.01)
 ;;42254-0340-12
 ;;9002226.02101,"619,42254-0340-12 ",.02)
 ;;42254-0340-12
 ;;9002226.02101,"619,42254-0340-30 ",.01)
 ;;42254-0340-30
 ;;9002226.02101,"619,42254-0340-30 ",.02)
 ;;42254-0340-30
 ;;9002226.02101,"619,42254-0340-60 ",.01)
 ;;42254-0340-60
 ;;9002226.02101,"619,42254-0340-60 ",.02)
 ;;42254-0340-60
 ;;9002226.02101,"619,42254-0340-90 ",.01)
 ;;42254-0340-90
 ;;9002226.02101,"619,42254-0340-90 ",.02)
 ;;42254-0340-90
 ;;9002226.02101,"619,42254-0346-08 ",.01)
 ;;42254-0346-08
 ;;9002226.02101,"619,42254-0346-08 ",.02)
 ;;42254-0346-08
 ;;9002226.02101,"619,42254-0346-20 ",.01)
 ;;42254-0346-20
 ;;9002226.02101,"619,42254-0346-20 ",.02)
 ;;42254-0346-20
 ;;9002226.02101,"619,42254-0346-30 ",.01)
 ;;42254-0346-30
 ;;9002226.02101,"619,42254-0346-30 ",.02)
 ;;42254-0346-30
 ;;9002226.02101,"619,42254-0346-60 ",.01)
 ;;42254-0346-60
 ;;9002226.02101,"619,42254-0346-60 ",.02)
 ;;42254-0346-60
 ;;9002226.02101,"619,42254-0346-90 ",.01)
 ;;42254-0346-90
 ;;9002226.02101,"619,42254-0346-90 ",.02)
 ;;42254-0346-90
 ;;9002226.02101,"619,42291-0332-01 ",.01)
 ;;42291-0332-01
 ;;9002226.02101,"619,42291-0332-01 ",.02)
 ;;42291-0332-01
 ;;9002226.02101,"619,42291-0333-01 ",.01)
 ;;42291-0333-01
 ;;9002226.02101,"619,42291-0333-01 ",.02)
 ;;42291-0333-01
 ;;9002226.02101,"619,42291-0334-01 ",.01)
 ;;42291-0334-01
 ;;9002226.02101,"619,42291-0334-01 ",.02)
 ;;42291-0334-01
 ;;9002226.02101,"619,42291-0645-01 ",.01)
 ;;42291-0645-01
 ;;9002226.02101,"619,42291-0645-01 ",.02)
 ;;42291-0645-01
 ;;9002226.02101,"619,42291-0646-01 ",.01)
 ;;42291-0646-01
 ;;9002226.02101,"619,42291-0646-01 ",.02)
 ;;42291-0646-01
 ;;9002226.02101,"619,42291-0832-90 ",.01)
 ;;42291-0832-90
 ;;9002226.02101,"619,42291-0832-90 ",.02)
 ;;42291-0832-90
 ;;9002226.02101,"619,42358-0100-32 ",.01)
 ;;42358-0100-32
 ;;9002226.02101,"619,42358-0100-32 ",.02)
 ;;42358-0100-32
 ;;9002226.02101,"619,42358-0102-10 ",.01)
 ;;42358-0102-10