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

BGP47J29.m

Go to the documentation of this file.
BGP47J29 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"618,58016-9299-01 ",.02)
 ;;58016-9299-01
 ;;9002226.02101,"618,58118-0011-06 ",.01)
 ;;58118-0011-06
 ;;9002226.02101,"618,58118-0011-06 ",.02)
 ;;58118-0011-06
 ;;9002226.02101,"618,58118-0011-08 ",.01)
 ;;58118-0011-08
 ;;9002226.02101,"618,58118-0011-08 ",.02)
 ;;58118-0011-08
 ;;9002226.02101,"618,58118-0012-06 ",.01)
 ;;58118-0012-06
 ;;9002226.02101,"618,58118-0012-06 ",.02)
 ;;58118-0012-06
 ;;9002226.02101,"618,58118-0012-08 ",.01)
 ;;58118-0012-08
 ;;9002226.02101,"618,58118-0012-08 ",.02)
 ;;58118-0012-08
 ;;9002226.02101,"618,58118-0034-01 ",.01)
 ;;58118-0034-01
 ;;9002226.02101,"618,58118-0034-01 ",.02)
 ;;58118-0034-01
 ;;9002226.02101,"618,58118-0613-03 ",.01)
 ;;58118-0613-03
 ;;9002226.02101,"618,58118-0613-03 ",.02)
 ;;58118-0613-03
 ;;9002226.02101,"618,58118-0613-06 ",.01)
 ;;58118-0613-06
 ;;9002226.02101,"618,58118-0613-06 ",.02)
 ;;58118-0613-06
 ;;9002226.02101,"618,58118-0615-03 ",.01)
 ;;58118-0615-03
 ;;9002226.02101,"618,58118-0615-03 ",.02)
 ;;58118-0615-03
 ;;9002226.02101,"618,58118-0615-06 ",.01)
 ;;58118-0615-06
 ;;9002226.02101,"618,58118-0615-06 ",.02)
 ;;58118-0615-06
 ;;9002226.02101,"618,58118-5307-01 ",.01)
 ;;58118-5307-01
 ;;9002226.02101,"618,58118-5307-01 ",.02)
 ;;58118-5307-01
 ;;9002226.02101,"618,58118-5307-02 ",.01)
 ;;58118-5307-02
 ;;9002226.02101,"618,58118-5307-02 ",.02)
 ;;58118-5307-02
 ;;9002226.02101,"618,58118-5307-03 ",.01)
 ;;58118-5307-03
 ;;9002226.02101,"618,58118-5307-03 ",.02)
 ;;58118-5307-03
 ;;9002226.02101,"618,58118-5307-05 ",.01)
 ;;58118-5307-05
 ;;9002226.02101,"618,58118-5307-05 ",.02)
 ;;58118-5307-05
 ;;9002226.02101,"618,58118-5307-09 ",.01)
 ;;58118-5307-09
 ;;9002226.02101,"618,58118-5307-09 ",.02)
 ;;58118-5307-09
 ;;9002226.02101,"618,58118-9914-01 ",.01)
 ;;58118-9914-01
 ;;9002226.02101,"618,58118-9914-01 ",.02)
 ;;58118-9914-01
 ;;9002226.02101,"618,58118-9915-01 ",.01)
 ;;58118-9915-01
 ;;9002226.02101,"618,58118-9915-01 ",.02)
 ;;58118-9915-01
 ;;9002226.02101,"618,58177-0019-04 ",.01)
 ;;58177-0019-04
 ;;9002226.02101,"618,58177-0019-04 ",.02)
 ;;58177-0019-04
 ;;9002226.02101,"618,58177-0020-04 ",.01)
 ;;58177-0020-04
 ;;9002226.02101,"618,58177-0020-04 ",.02)
 ;;58177-0020-04
 ;;9002226.02101,"618,58177-0027-04 ",.01)
 ;;58177-0027-04
 ;;9002226.02101,"618,58177-0027-04 ",.02)
 ;;58177-0027-04
 ;;9002226.02101,"618,58177-0076-04 ",.01)
 ;;58177-0076-04
 ;;9002226.02101,"618,58177-0076-04 ",.02)
 ;;58177-0076-04
 ;;9002226.02101,"618,58177-0077-04 ",.01)
 ;;58177-0077-04
 ;;9002226.02101,"618,58177-0077-04 ",.02)
 ;;58177-0077-04
 ;;9002226.02101,"618,58177-0917-07 ",.01)
 ;;58177-0917-07
 ;;9002226.02101,"618,58177-0917-07 ",.02)
 ;;58177-0917-07
 ;;9002226.02101,"618,58177-0920-07 ",.01)
 ;;58177-0920-07
 ;;9002226.02101,"618,58177-0920-07 ",.02)
 ;;58177-0920-07
 ;;9002226.02101,"618,58177-0924-07 ",.01)
 ;;58177-0924-07
 ;;9002226.02101,"618,58177-0924-07 ",.02)
 ;;58177-0924-07
 ;;9002226.02101,"618,58238-0215-04 ",.01)
 ;;58238-0215-04
 ;;9002226.02101,"618,58238-0215-04 ",.02)
 ;;58238-0215-04
 ;;9002226.02101,"618,58407-0012-01 ",.01)
 ;;58407-0012-01
 ;;9002226.02101,"618,58407-0012-01 ",.02)
 ;;58407-0012-01
 ;;9002226.02101,"618,58407-0755-16 ",.01)
 ;;58407-0755-16
 ;;9002226.02101,"618,58407-0755-16 ",.02)
 ;;58407-0755-16
 ;;9002226.02101,"618,58407-0920-16 ",.01)
 ;;58407-0920-16
 ;;9002226.02101,"618,58407-0920-16 ",.02)
 ;;58407-0920-16
 ;;9002226.02101,"618,58552-0305-01 ",.01)
 ;;58552-0305-01
 ;;9002226.02101,"618,58552-0305-01 ",.02)
 ;;58552-0305-01
 ;;9002226.02101,"618,58605-0150-01 ",.01)
 ;;58605-0150-01
 ;;9002226.02101,"618,58605-0150-01 ",.02)
 ;;58605-0150-01
 ;;9002226.02101,"618,58605-0152-01 ",.01)
 ;;58605-0152-01
 ;;9002226.02101,"618,58605-0152-01 ",.02)
 ;;58605-0152-01
 ;;9002226.02101,"618,58605-0153-01 ",.01)
 ;;58605-0153-01
 ;;9002226.02101,"618,58605-0153-01 ",.02)
 ;;58605-0153-01
 ;;9002226.02101,"618,58605-0274-01 ",.01)
 ;;58605-0274-01
 ;;9002226.02101,"618,58605-0274-01 ",.02)
 ;;58605-0274-01
 ;;9002226.02101,"618,58605-0277-01 ",.01)
 ;;58605-0277-01
 ;;9002226.02101,"618,58605-0277-01 ",.02)
 ;;58605-0277-01
 ;;9002226.02101,"618,58605-0402-01 ",.01)
 ;;58605-0402-01
 ;;9002226.02101,"618,58605-0402-01 ",.02)
 ;;58605-0402-01
 ;;9002226.02101,"618,58605-0403-01 ",.01)
 ;;58605-0403-01
 ;;9002226.02101,"618,58605-0403-01 ",.02)
 ;;58605-0403-01
 ;;9002226.02101,"618,58605-0436-01 ",.01)
 ;;58605-0436-01
 ;;9002226.02101,"618,58605-0436-01 ",.02)
 ;;58605-0436-01
 ;;9002226.02101,"618,58605-0437-01 ",.01)
 ;;58605-0437-01
 ;;9002226.02101,"618,58605-0437-01 ",.02)
 ;;58605-0437-01
 ;;9002226.02101,"618,58605-0438-01 ",.01)
 ;;58605-0438-01
 ;;9002226.02101,"618,58605-0438-01 ",.02)
 ;;58605-0438-01
 ;;9002226.02101,"618,58605-0440-01 ",.01)
 ;;58605-0440-01
 ;;9002226.02101,"618,58605-0440-01 ",.02)
 ;;58605-0440-01
 ;;9002226.02101,"618,58605-0502-01 ",.01)
 ;;58605-0502-01
 ;;9002226.02101,"618,58605-0502-01 ",.02)
 ;;58605-0502-01
 ;;9002226.02101,"618,58864-0045-20 ",.01)
 ;;58864-0045-20
 ;;9002226.02101,"618,58864-0045-20 ",.02)
 ;;58864-0045-20
 ;;9002226.02101,"618,58864-0045-30 ",.01)
 ;;58864-0045-30
 ;;9002226.02101,"618,58864-0045-30 ",.02)
 ;;58864-0045-30
 ;;9002226.02101,"618,58864-0045-42 ",.01)
 ;;58864-0045-42
 ;;9002226.02101,"618,58864-0045-42 ",.02)
 ;;58864-0045-42
 ;;9002226.02101,"618,58864-0045-60 ",.01)
 ;;58864-0045-60
 ;;9002226.02101,"618,58864-0045-60 ",.02)
 ;;58864-0045-60
 ;;9002226.02101,"618,58864-0055-06 ",.01)
 ;;58864-0055-06
 ;;9002226.02101,"618,58864-0055-06 ",.02)
 ;;58864-0055-06
 ;;9002226.02101,"618,58864-0055-60 ",.01)
 ;;58864-0055-60
 ;;9002226.02101,"618,58864-0055-60 ",.02)
 ;;58864-0055-60
 ;;9002226.02101,"618,58864-0056-30 ",.01)
 ;;58864-0056-30
 ;;9002226.02101,"618,58864-0056-30 ",.02)
 ;;58864-0056-30
 ;;9002226.02101,"618,58864-0056-60 ",.01)
 ;;58864-0056-60
 ;;9002226.02101,"618,58864-0056-60 ",.02)
 ;;58864-0056-60
 ;;9002226.02101,"618,58864-0094-30 ",.01)
 ;;58864-0094-30
 ;;9002226.02101,"618,58864-0094-30 ",.02)
 ;;58864-0094-30
 ;;9002226.02101,"618,58864-0163-01 ",.01)
 ;;58864-0163-01
 ;;9002226.02101,"618,58864-0163-01 ",.02)
 ;;58864-0163-01
 ;;9002226.02101,"618,58864-0163-30 ",.01)
 ;;58864-0163-30
 ;;9002226.02101,"618,58864-0163-30 ",.02)
 ;;58864-0163-30
 ;;9002226.02101,"618,58864-0163-60 ",.01)
 ;;58864-0163-60
 ;;9002226.02101,"618,58864-0163-60 ",.02)
 ;;58864-0163-60
 ;;9002226.02101,"618,58864-0671-10 ",.01)
 ;;58864-0671-10
 ;;9002226.02101,"618,58864-0671-10 ",.02)
 ;;58864-0671-10
 ;;9002226.02101,"618,58864-0671-42 ",.01)
 ;;58864-0671-42
 ;;9002226.02101,"618,58864-0671-42 ",.02)
 ;;58864-0671-42
 ;;9002226.02101,"618,58864-0758-30 ",.01)
 ;;58864-0758-30
 ;;9002226.02101,"618,58864-0758-30 ",.02)
 ;;58864-0758-30
 ;;9002226.02101,"618,58864-0761-10 ",.01)
 ;;58864-0761-10
 ;;9002226.02101,"618,58864-0761-10 ",.02)
 ;;58864-0761-10
 ;;9002226.02101,"618,58864-0761-25 ",.01)
 ;;58864-0761-25
 ;;9002226.02101,"618,58864-0761-25 ",.02)
 ;;58864-0761-25
 ;;9002226.02101,"618,58864-0761-30 ",.01)
 ;;58864-0761-30
 ;;9002226.02101,"618,58864-0761-30 ",.02)
 ;;58864-0761-30
 ;;9002226.02101,"618,58864-0761-42 ",.01)
 ;;58864-0761-42
 ;;9002226.02101,"618,58864-0761-42 ",.02)
 ;;58864-0761-42
 ;;9002226.02101,"618,58869-0401-01 ",.01)
 ;;58869-0401-01
 ;;9002226.02101,"618,58869-0401-01 ",.02)
 ;;58869-0401-01
 ;;9002226.02101,"618,58869-0406-01 ",.01)
 ;;58869-0406-01
 ;;9002226.02101,"618,58869-0406-01 ",.02)
 ;;58869-0406-01
 ;;9002226.02101,"618,59196-0003-01 ",.01)
 ;;59196-0003-01
 ;;9002226.02101,"618,59196-0003-01 ",.02)
 ;;59196-0003-01
 ;;9002226.02101,"618,59196-0004-01 ",.01)
 ;;59196-0004-01
 ;;9002226.02101,"618,59196-0004-01 ",.02)
 ;;59196-0004-01
 ;;9002226.02101,"618,59196-0006-01 ",.01)
 ;;59196-0006-01
 ;;9002226.02101,"618,59196-0006-01 ",.02)
 ;;59196-0006-01
 ;;9002226.02101,"618,59196-0033-01 ",.01)
 ;;59196-0033-01
 ;;9002226.02101,"618,59196-0033-01 ",.02)
 ;;59196-0033-01
 ;;9002226.02101,"618,59196-0114-01 ",.01)
 ;;59196-0114-01
 ;;9002226.02101,"618,59196-0114-01 ",.02)
 ;;59196-0114-01
 ;;9002226.02101,"618,59196-0116-01 ",.01)
 ;;59196-0116-01
 ;;9002226.02101,"618,59196-0116-01 ",.02)
 ;;59196-0116-01
 ;;9002226.02101,"618,59196-0117-01 ",.01)
 ;;59196-0117-01
 ;;9002226.02101,"618,59196-0117-01 ",.02)
 ;;59196-0117-01
 ;;9002226.02101,"618,59310-0112-10 ",.01)
 ;;59310-0112-10
 ;;9002226.02101,"618,59310-0112-10 ",.02)
 ;;59310-0112-10
 ;;9002226.02101,"618,59702-0040-04 ",.01)
 ;;59702-0040-04
 ;;9002226.02101,"618,59702-0040-04 ",.02)
 ;;59702-0040-04
 ;;9002226.02101,"618,59702-0111-01 ",.01)
 ;;59702-0111-01
 ;;9002226.02101,"618,59702-0111-01 ",.02)
 ;;59702-0111-01
 ;;9002226.02101,"618,59702-0112-01 ",.01)
 ;;59702-0112-01
 ;;9002226.02101,"618,59702-0112-01 ",.02)
 ;;59702-0112-01
 ;;9002226.02101,"618,59702-0141-04 ",.01)
 ;;59702-0141-04
 ;;9002226.02101,"618,59702-0141-04 ",.02)
 ;;59702-0141-04
 ;;9002226.02101,"618,59702-0152-01 ",.01)
 ;;59702-0152-01
 ;;9002226.02101,"618,59702-0152-01 ",.02)
 ;;59702-0152-01
 ;;9002226.02101,"618,59741-0134-30 ",.01)
 ;;59741-0134-30
 ;;9002226.02101,"618,59741-0134-30 ",.02)
 ;;59741-0134-30
 ;;9002226.02101,"618,59741-0135-04 ",.01)
 ;;59741-0135-04
 ;;9002226.02101,"618,59741-0135-04 ",.02)
 ;;59741-0135-04
 ;;9002226.02101,"618,59741-0135-16 ",.01)
 ;;59741-0135-16
 ;;9002226.02101,"618,59741-0135-16 ",.02)
 ;;59741-0135-16
 ;;9002226.02101,"618,59741-0135-20 ",.01)
 ;;59741-0135-20
 ;;9002226.02101,"618,59741-0135-20 ",.02)
 ;;59741-0135-20
 ;;9002226.02101,"618,59741-0136-30 ",.01)
 ;;59741-0136-30
 ;;9002226.02101,"618,59741-0136-30 ",.02)
 ;;59741-0136-30
 ;;9002226.02101,"618,59743-0053-01 ",.01)
 ;;59743-0053-01
 ;;9002226.02101,"618,59743-0053-01 ",.02)
 ;;59743-0053-01
 ;;9002226.02101,"618,59743-0053-05 ",.01)
 ;;59743-0053-05
 ;;9002226.02101,"618,59743-0053-05 ",.02)
 ;;59743-0053-05
 ;;9002226.02101,"618,59743-0060-01 ",.01)
 ;;59743-0060-01
 ;;9002226.02101,"618,59743-0060-01 ",.02)
 ;;59743-0060-01
 ;;9002226.02101,"618,59743-0061-01 ",.01)
 ;;59743-0061-01
 ;;9002226.02101,"618,59743-0061-01 ",.02)
 ;;59743-0061-01
 ;;9002226.02101,"618,59879-0504-01 ",.01)
 ;;59879-0504-01
 ;;9002226.02101,"618,59879-0504-01 ",.02)
 ;;59879-0504-01
 ;;9002226.02101,"618,60258-0081-16 ",.01)
 ;;60258-0081-16
 ;;9002226.02101,"618,60258-0081-16 ",.02)
 ;;60258-0081-16
 ;;9002226.02101,"618,60258-0230-16 ",.01)
 ;;60258-0230-16
 ;;9002226.02101,"618,60258-0230-16 ",.02)
 ;;60258-0230-16
 ;;9002226.02101,"618,60258-0231-16 ",.01)
 ;;60258-0231-16
 ;;9002226.02101,"618,60258-0231-16 ",.02)
 ;;60258-0231-16
 ;;9002226.02101,"618,60258-0233-01 ",.01)
 ;;60258-0233-01
 ;;9002226.02101,"618,60258-0233-01 ",.02)
 ;;60258-0233-01
 ;;9002226.02101,"618,60258-0235-16 ",.01)
 ;;60258-0235-16
 ;;9002226.02101,"618,60258-0235-16 ",.02)
 ;;60258-0235-16
 ;;9002226.02101,"618,60258-0236-30 ",.01)
 ;;60258-0236-30
 ;;9002226.02101,"618,60258-0236-30 ",.02)
 ;;60258-0236-30
 ;;9002226.02101,"618,60258-0251-16 ",.01)
 ;;60258-0251-16
 ;;9002226.02101,"618,60258-0251-16 ",.02)
 ;;60258-0251-16
 ;;9002226.02101,"618,60258-0278-16 ",.01)
 ;;60258-0278-16
 ;;9002226.02101,"618,60258-0278-16 ",.02)
 ;;60258-0278-16
 ;;9002226.02101,"618,60258-0295-01 ",.01)
 ;;60258-0295-01
 ;;9002226.02101,"618,60258-0295-01 ",.02)
 ;;60258-0295-01
 ;;9002226.02101,"618,60258-0315-16 ",.01)
 ;;60258-0315-16
 ;;9002226.02101,"618,60258-0315-16 ",.02)
 ;;60258-0315-16
 ;;9002226.02101,"618,60258-0316-16 ",.01)
 ;;60258-0316-16
 ;;9002226.02101,"618,60258-0316-16 ",.02)
 ;;60258-0316-16
 ;;9002226.02101,"618,60258-0329-01 ",.01)
 ;;60258-0329-01
 ;;9002226.02101,"618,60258-0329-01 ",.02)
 ;;60258-0329-01
 ;;9002226.02101,"618,60258-0351-01 ",.01)
 ;;60258-0351-01
 ;;9002226.02101,"618,60258-0351-01 ",.02)
 ;;60258-0351-01
 ;;9002226.02101,"618,60258-0352-01 ",.01)
 ;;60258-0352-01
 ;;9002226.02101,"618,60258-0352-01 ",.02)
 ;;60258-0352-01
 ;;9002226.02101,"618,60258-0404-16 ",.01)
 ;;60258-0404-16
 ;;9002226.02101,"618,60258-0404-16 ",.02)
 ;;60258-0404-16
 ;;9002226.02101,"618,60258-0405-16 ",.01)
 ;;60258-0405-16
 ;;9002226.02101,"618,60258-0405-16 ",.02)
 ;;60258-0405-16
 ;;9002226.02101,"618,60258-0407-16 ",.01)
 ;;60258-0407-16
 ;;9002226.02101,"618,60258-0407-16 ",.02)
 ;;60258-0407-16
 ;;9002226.02101,"618,60258-0416-30 ",.01)
 ;;60258-0416-30
 ;;9002226.02101,"618,60258-0416-30 ",.02)
 ;;60258-0416-30
 ;;9002226.02101,"618,60258-0420-16 ",.01)
 ;;60258-0420-16
 ;;9002226.02101,"618,60258-0420-16 ",.02)
 ;;60258-0420-16
 ;;9002226.02101,"618,60258-0421-16 ",.01)
 ;;60258-0421-16
 ;;9002226.02101,"618,60258-0421-16 ",.02)
 ;;60258-0421-16
 ;;9002226.02101,"618,60258-0422-16 ",.01)
 ;;60258-0422-16
 ;;9002226.02101,"618,60258-0422-16 ",.02)
 ;;60258-0422-16
 ;;9002226.02101,"618,60258-0424-16 ",.01)
 ;;60258-0424-16
 ;;9002226.02101,"618,60258-0424-16 ",.02)
 ;;60258-0424-16
 ;;9002226.02101,"618,60258-0427-30 ",.01)
 ;;60258-0427-30
 ;;9002226.02101,"618,60258-0427-30 ",.02)
 ;;60258-0427-30
 ;;9002226.02101,"618,60258-0430-16 ",.01)
 ;;60258-0430-16
 ;;9002226.02101,"618,60258-0430-16 ",.02)
 ;;60258-0430-16
 ;;9002226.02101,"618,60258-0432-16 ",.01)
 ;;60258-0432-16
 ;;9002226.02101,"618,60258-0432-16 ",.02)
 ;;60258-0432-16
 ;;9002226.02101,"618,60258-0433-30 ",.01)
 ;;60258-0433-30