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

BGP31L26.m

Go to the documentation of this file.
BGP31L26 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 29, 2012;
 ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81
 ;
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-4014-01 ",.01)
 ;;58016-4014-01
 ;;9002226.02101,"618,58016-4014-01 ",.02)
 ;;58016-4014-01
 ;;9002226.02101,"618,58016-4062-01 ",.01)
 ;;58016-4062-01
 ;;9002226.02101,"618,58016-4062-01 ",.02)
 ;;58016-4062-01
 ;;9002226.02101,"618,58016-4845-01 ",.01)
 ;;58016-4845-01
 ;;9002226.02101,"618,58016-4845-01 ",.02)
 ;;58016-4845-01
 ;;9002226.02101,"618,58016-4852-01 ",.01)
 ;;58016-4852-01
 ;;9002226.02101,"618,58016-4852-01 ",.02)
 ;;58016-4852-01
 ;;9002226.02101,"618,58016-5009-01 ",.01)
 ;;58016-5009-01
 ;;9002226.02101,"618,58016-5009-01 ",.02)
 ;;58016-5009-01
 ;;9002226.02101,"618,58016-9299-01 ",.01)
 ;;58016-9299-01
 ;;9002226.02101,"618,58016-9299-01 ",.02)
 ;;58016-9299-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-0220-16 ",.01)
 ;;60258-0220-16
 ;;9002226.02101,"618,60258-0220-16 ",.02)
 ;;60258-0220-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-0395-30 ",.01)
 ;;60258-0395-30
 ;;9002226.02101,"618,60258-0395-30 ",.02)
 ;;60258-0395-30
 ;;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-0414-16 ",.01)
 ;;60258-0414-16
 ;;9002226.02101,"618,60258-0414-16 ",.02)
 ;;60258-0414-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-0431-16 ",.01)
 ;;60258-0431-16
 ;;9002226.02101,"618,60258-0431-16 ",.02)
 ;;60258-0431-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
 ;;9002226.02101,"618,60258-0433-30 ",.02)
 ;;60258-0433-30
 ;;9002226.02101,"618,60258-0434-16 ",.01)
 ;;60258-0434-16
 ;;9002226.02101,"618,60258-0434-16 ",.02)
 ;;60258-0434-16
 ;;9002226.02101,"618,60258-0435-30 ",.01)
 ;;60258-0435-30
 ;;9002226.02101,"618,60258-0435-30 ",.02)
 ;;60258-0435-30
 ;;9002226.02101,"618,60258-0436-16 ",.01)
 ;;60258-0436-16
 ;;9002226.02101,"618,60258-0436-16 ",.02)
 ;;60258-0436-16
 ;;9002226.02101,"618,60258-0437-30 ",.01)
 ;;60258-0437-30
 ;;9002226.02101,"618,60258-0437-30 ",.02)
 ;;60258-0437-30
 ;;9002226.02101,"618,60258-0438-16 ",.01)
 ;;60258-0438-16
 ;;9002226.02101,"618,60258-0438-16 ",.02)
 ;;60258-0438-16
 ;;9002226.02101,"618,60258-0443-30 ",.01)
 ;;60258-0443-30
 ;;9002226.02101,"618,60258-0443-30 ",.02)
 ;;60258-0443-30