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

BGP31P24.m

Go to the documentation of this file.
BGP31P24 ;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,"730,50991-0514-16 ",.02)
 ;;50991-0514-16
 ;;9002226.02101,"730,51079-0094-01 ",.01)
 ;;51079-0094-01
 ;;9002226.02101,"730,51079-0094-01 ",.02)
 ;;51079-0094-01
 ;;9002226.02101,"730,51079-0094-20 ",.01)
 ;;51079-0094-20
 ;;9002226.02101,"730,51079-0094-20 ",.02)
 ;;51079-0094-20
 ;;9002226.02101,"730,51079-0095-01 ",.01)
 ;;51079-0095-01
 ;;9002226.02101,"730,51079-0095-01 ",.02)
 ;;51079-0095-01
 ;;9002226.02101,"730,51079-0095-20 ",.01)
 ;;51079-0095-20
 ;;9002226.02101,"730,51079-0095-20 ",.02)
 ;;51079-0095-20
 ;;9002226.02101,"730,51079-0107-01 ",.01)
 ;;51079-0107-01
 ;;9002226.02101,"730,51079-0107-01 ",.02)
 ;;51079-0107-01
 ;;9002226.02101,"730,51079-0107-17 ",.01)
 ;;51079-0107-17
 ;;9002226.02101,"730,51079-0107-17 ",.02)
 ;;51079-0107-17
 ;;9002226.02101,"730,51079-0107-19 ",.01)
 ;;51079-0107-19
 ;;9002226.02101,"730,51079-0107-19 ",.02)
 ;;51079-0107-19
 ;;9002226.02101,"730,51079-0107-20 ",.01)
 ;;51079-0107-20
 ;;9002226.02101,"730,51079-0107-20 ",.02)
 ;;51079-0107-20
 ;;9002226.02101,"730,51079-0107-63 ",.01)
 ;;51079-0107-63
 ;;9002226.02101,"730,51079-0107-63 ",.02)
 ;;51079-0107-63
 ;;9002226.02101,"730,51079-0131-01 ",.01)
 ;;51079-0131-01
 ;;9002226.02101,"730,51079-0131-01 ",.02)
 ;;51079-0131-01
 ;;9002226.02101,"730,51079-0131-17 ",.01)
 ;;51079-0131-17
 ;;9002226.02101,"730,51079-0131-17 ",.02)
 ;;51079-0131-17
 ;;9002226.02101,"730,51079-0131-20 ",.01)
 ;;51079-0131-20
 ;;9002226.02101,"730,51079-0131-20 ",.02)
 ;;51079-0131-20
 ;;9002226.02101,"730,51079-0131-63 ",.01)
 ;;51079-0131-63
 ;;9002226.02101,"730,51079-0131-63 ",.02)
 ;;51079-0131-63
 ;;9002226.02101,"730,51079-0133-01 ",.01)
 ;;51079-0133-01
 ;;9002226.02101,"730,51079-0133-01 ",.02)
 ;;51079-0133-01
 ;;9002226.02101,"730,51079-0133-20 ",.01)
 ;;51079-0133-20
 ;;9002226.02101,"730,51079-0133-20 ",.02)
 ;;51079-0133-20
 ;;9002226.02101,"730,51079-0133-63 ",.01)
 ;;51079-0133-63
 ;;9002226.02101,"730,51079-0133-63 ",.02)
 ;;51079-0133-63
 ;;9002226.02101,"730,51079-0147-01 ",.01)
 ;;51079-0147-01
 ;;9002226.02101,"730,51079-0147-01 ",.02)
 ;;51079-0147-01
 ;;9002226.02101,"730,51079-0147-20 ",.01)
 ;;51079-0147-20
 ;;9002226.02101,"730,51079-0147-20 ",.02)
 ;;51079-0147-20
 ;;9002226.02101,"730,51079-0436-01 ",.01)
 ;;51079-0436-01
 ;;9002226.02101,"730,51079-0436-01 ",.02)
 ;;51079-0436-01
 ;;9002226.02101,"730,51079-0436-20 ",.01)
 ;;51079-0436-20
 ;;9002226.02101,"730,51079-0436-20 ",.02)
 ;;51079-0436-20
 ;;9002226.02101,"730,51079-0437-01 ",.01)
 ;;51079-0437-01
 ;;9002226.02101,"730,51079-0437-01 ",.02)
 ;;51079-0437-01
 ;;9002226.02101,"730,51079-0437-20 ",.01)
 ;;51079-0437-20
 ;;9002226.02101,"730,51079-0437-20 ",.02)
 ;;51079-0437-20
 ;;9002226.02101,"730,51079-0438-01 ",.01)
 ;;51079-0438-01
 ;;9002226.02101,"730,51079-0438-01 ",.02)
 ;;51079-0438-01
 ;;9002226.02101,"730,51079-0438-20 ",.01)
 ;;51079-0438-20
 ;;9002226.02101,"730,51079-0438-20 ",.02)
 ;;51079-0438-20
 ;;9002226.02101,"730,51079-0563-01 ",.01)
 ;;51079-0563-01
 ;;9002226.02101,"730,51079-0563-01 ",.02)
 ;;51079-0563-01
 ;;9002226.02101,"730,51079-0563-20 ",.01)
 ;;51079-0563-20
 ;;9002226.02101,"730,51079-0563-20 ",.02)
 ;;51079-0563-20
 ;;9002226.02101,"730,51079-0564-01 ",.01)
 ;;51079-0564-01
 ;;9002226.02101,"730,51079-0564-01 ",.02)
 ;;51079-0564-01
 ;;9002226.02101,"730,51079-0564-20 ",.01)
 ;;51079-0564-20
 ;;9002226.02101,"730,51079-0564-20 ",.02)
 ;;51079-0564-20
 ;;9002226.02101,"730,51079-0565-01 ",.01)
 ;;51079-0565-01
 ;;9002226.02101,"730,51079-0565-01 ",.02)
 ;;51079-0565-01
 ;;9002226.02101,"730,51079-0565-20 ",.01)
 ;;51079-0565-20
 ;;9002226.02101,"730,51079-0565-20 ",.02)
 ;;51079-0565-20
 ;;9002226.02101,"730,51079-0566-01 ",.01)
 ;;51079-0566-01
 ;;9002226.02101,"730,51079-0566-01 ",.02)
 ;;51079-0566-01
 ;;9002226.02101,"730,51079-0566-20 ",.01)
 ;;51079-0566-20
 ;;9002226.02101,"730,51079-0566-20 ",.02)
 ;;51079-0566-20
 ;;9002226.02101,"730,51079-0567-01 ",.01)
 ;;51079-0567-01
 ;;9002226.02101,"730,51079-0567-01 ",.02)
 ;;51079-0567-01
 ;;9002226.02101,"730,51079-0567-20 ",.01)
 ;;51079-0567-20
 ;;9002226.02101,"730,51079-0567-20 ",.02)
 ;;51079-0567-20
 ;;9002226.02101,"730,51079-0580-01 ",.01)
 ;;51079-0580-01
 ;;9002226.02101,"730,51079-0580-01 ",.02)
 ;;51079-0580-01
 ;;9002226.02101,"730,51079-0580-20 ",.01)
 ;;51079-0580-20
 ;;9002226.02101,"730,51079-0580-20 ",.02)
 ;;51079-0580-20
 ;;9002226.02101,"730,51079-0645-01 ",.01)
 ;;51079-0645-01
 ;;9002226.02101,"730,51079-0645-01 ",.02)
 ;;51079-0645-01
 ;;9002226.02101,"730,51079-0645-20 ",.01)
 ;;51079-0645-20
 ;;9002226.02101,"730,51079-0645-20 ",.02)
 ;;51079-0645-20
 ;;9002226.02101,"730,51079-0651-01 ",.01)
 ;;51079-0651-01
 ;;9002226.02101,"730,51079-0651-01 ",.02)
 ;;51079-0651-01
 ;;9002226.02101,"730,51079-0651-20 ",.01)
 ;;51079-0651-20
 ;;9002226.02101,"730,51079-0651-20 ",.02)
 ;;51079-0651-20
 ;;9002226.02101,"730,51079-0724-01 ",.01)
 ;;51079-0724-01
 ;;9002226.02101,"730,51079-0724-01 ",.02)
 ;;51079-0724-01
 ;;9002226.02101,"730,51079-0724-20 ",.01)
 ;;51079-0724-20
 ;;9002226.02101,"730,51079-0724-20 ",.02)
 ;;51079-0724-20
 ;;9002226.02101,"730,51079-0725-01 ",.01)
 ;;51079-0725-01
 ;;9002226.02101,"730,51079-0725-01 ",.02)
 ;;51079-0725-01
 ;;9002226.02101,"730,51079-0725-20 ",.01)
 ;;51079-0725-20
 ;;9002226.02101,"730,51079-0725-20 ",.02)
 ;;51079-0725-20
 ;;9002226.02101,"730,51138-0001-30 ",.01)
 ;;51138-0001-30
 ;;9002226.02101,"730,51138-0001-30 ",.02)
 ;;51138-0001-30
 ;;9002226.02101,"730,51138-0002-30 ",.01)
 ;;51138-0002-30
 ;;9002226.02101,"730,51138-0002-30 ",.02)
 ;;51138-0002-30
 ;;9002226.02101,"730,51138-0003-30 ",.01)
 ;;51138-0003-30
 ;;9002226.02101,"730,51138-0003-30 ",.02)
 ;;51138-0003-30
 ;;9002226.02101,"730,51138-0004-30 ",.01)
 ;;51138-0004-30
 ;;9002226.02101,"730,51138-0004-30 ",.02)
 ;;51138-0004-30
 ;;9002226.02101,"730,51138-0005-30 ",.01)
 ;;51138-0005-30
 ;;9002226.02101,"730,51138-0005-30 ",.02)
 ;;51138-0005-30
 ;;9002226.02101,"730,51138-0006-30 ",.01)
 ;;51138-0006-30
 ;;9002226.02101,"730,51138-0006-30 ",.02)
 ;;51138-0006-30
 ;;9002226.02101,"730,51138-0012-30 ",.01)
 ;;51138-0012-30
 ;;9002226.02101,"730,51138-0012-30 ",.02)
 ;;51138-0012-30
 ;;9002226.02101,"730,51138-0028-30 ",.01)
 ;;51138-0028-30
 ;;9002226.02101,"730,51138-0028-30 ",.02)
 ;;51138-0028-30
 ;;9002226.02101,"730,51138-0029-30 ",.01)
 ;;51138-0029-30
 ;;9002226.02101,"730,51138-0029-30 ",.02)
 ;;51138-0029-30
 ;;9002226.02101,"730,51138-0030-30 ",.01)
 ;;51138-0030-30
 ;;9002226.02101,"730,51138-0030-30 ",.02)
 ;;51138-0030-30
 ;;9002226.02101,"730,51138-0031-30 ",.01)
 ;;51138-0031-30
 ;;9002226.02101,"730,51138-0031-30 ",.02)
 ;;51138-0031-30
 ;;9002226.02101,"730,51138-0032-30 ",.01)
 ;;51138-0032-30
 ;;9002226.02101,"730,51138-0032-30 ",.02)
 ;;51138-0032-30
 ;;9002226.02101,"730,51285-0538-02 ",.01)
 ;;51285-0538-02
 ;;9002226.02101,"730,51285-0538-02 ",.02)
 ;;51285-0538-02
 ;;9002226.02101,"730,51285-0539-02 ",.01)
 ;;51285-0539-02
 ;;9002226.02101,"730,51285-0539-02 ",.02)
 ;;51285-0539-02
 ;;9002226.02101,"730,51285-0554-02 ",.01)
 ;;51285-0554-02
 ;;9002226.02101,"730,51285-0554-02 ",.02)
 ;;51285-0554-02
 ;;9002226.02101,"730,51655-0047-24 ",.01)
 ;;51655-0047-24
 ;;9002226.02101,"730,51655-0047-24 ",.02)
 ;;51655-0047-24
 ;;9002226.02101,"730,51655-0062-24 ",.01)
 ;;51655-0062-24
 ;;9002226.02101,"730,51655-0062-24 ",.02)
 ;;51655-0062-24
 ;;9002226.02101,"730,51655-0082-24 ",.01)
 ;;51655-0082-24
 ;;9002226.02101,"730,51655-0082-24 ",.02)
 ;;51655-0082-24
 ;;9002226.02101,"730,51655-0119-21 ",.01)
 ;;51655-0119-21
 ;;9002226.02101,"730,51655-0119-21 ",.02)
 ;;51655-0119-21
 ;;9002226.02101,"730,51655-0119-26 ",.01)
 ;;51655-0119-26
 ;;9002226.02101,"730,51655-0119-26 ",.02)
 ;;51655-0119-26
 ;;9002226.02101,"730,51655-0119-52 ",.01)
 ;;51655-0119-52
 ;;9002226.02101,"730,51655-0119-52 ",.02)
 ;;51655-0119-52
 ;;9002226.02101,"730,51655-0121-24 ",.01)
 ;;51655-0121-24
 ;;9002226.02101,"730,51655-0121-24 ",.02)
 ;;51655-0121-24
 ;;9002226.02101,"730,51655-0121-25 ",.01)
 ;;51655-0121-25
 ;;9002226.02101,"730,51655-0121-25 ",.02)
 ;;51655-0121-25
 ;;9002226.02101,"730,51655-0215-21 ",.01)
 ;;51655-0215-21
 ;;9002226.02101,"730,51655-0215-21 ",.02)
 ;;51655-0215-21
 ;;9002226.02101,"730,51655-0254-24 ",.01)
 ;;51655-0254-24
 ;;9002226.02101,"730,51655-0254-24 ",.02)
 ;;51655-0254-24
 ;;9002226.02101,"730,51655-0295-21 ",.01)
 ;;51655-0295-21
 ;;9002226.02101,"730,51655-0295-21 ",.02)
 ;;51655-0295-21
 ;;9002226.02101,"730,51655-0295-24 ",.01)
 ;;51655-0295-24
 ;;9002226.02101,"730,51655-0295-24 ",.02)
 ;;51655-0295-24
 ;;9002226.02101,"730,51655-0392-24 ",.01)
 ;;51655-0392-24
 ;;9002226.02101,"730,51655-0392-24 ",.02)
 ;;51655-0392-24
 ;;9002226.02101,"730,51655-0588-24 ",.01)
 ;;51655-0588-24
 ;;9002226.02101,"730,51655-0588-24 ",.02)
 ;;51655-0588-24
 ;;9002226.02101,"730,51655-0633-24 ",.01)
 ;;51655-0633-24
 ;;9002226.02101,"730,51655-0633-24 ",.02)
 ;;51655-0633-24
 ;;9002226.02101,"730,51655-0838-25 ",.01)
 ;;51655-0838-25
 ;;9002226.02101,"730,51655-0838-25 ",.02)
 ;;51655-0838-25
 ;;9002226.02101,"730,51655-0848-24 ",.01)
 ;;51655-0848-24
 ;;9002226.02101,"730,51655-0848-24 ",.02)
 ;;51655-0848-24
 ;;9002226.02101,"730,51655-0848-26 ",.01)
 ;;51655-0848-26
 ;;9002226.02101,"730,51655-0848-26 ",.02)
 ;;51655-0848-26
 ;;9002226.02101,"730,51655-0848-82 ",.01)
 ;;51655-0848-82
 ;;9002226.02101,"730,51655-0848-82 ",.02)
 ;;51655-0848-82
 ;;9002226.02101,"730,51655-0848-83 ",.01)
 ;;51655-0848-83
 ;;9002226.02101,"730,51655-0848-83 ",.02)
 ;;51655-0848-83
 ;;9002226.02101,"730,51655-0848-92 ",.01)
 ;;51655-0848-92
 ;;9002226.02101,"730,51655-0848-92 ",.02)
 ;;51655-0848-92
 ;;9002226.02101,"730,51655-0848-93 ",.01)
 ;;51655-0848-93
 ;;9002226.02101,"730,51655-0848-93 ",.02)
 ;;51655-0848-93
 ;;9002226.02101,"730,51660-0784-01 ",.01)
 ;;51660-0784-01
 ;;9002226.02101,"730,51660-0784-01 ",.02)
 ;;51660-0784-01
 ;;9002226.02101,"730,51660-0784-10 ",.01)
 ;;51660-0784-10
 ;;9002226.02101,"730,51660-0784-10 ",.02)
 ;;51660-0784-10
 ;;9002226.02101,"730,51660-0785-01 ",.01)
 ;;51660-0785-01
 ;;9002226.02101,"730,51660-0785-01 ",.02)
 ;;51660-0785-01
 ;;9002226.02101,"730,51660-0785-10 ",.01)
 ;;51660-0785-10
 ;;9002226.02101,"730,51660-0785-10 ",.02)
 ;;51660-0785-10
 ;;9002226.02101,"730,51660-0786-01 ",.01)
 ;;51660-0786-01
 ;;9002226.02101,"730,51660-0786-01 ",.02)
 ;;51660-0786-01
 ;;9002226.02101,"730,51660-0786-10 ",.01)
 ;;51660-0786-10
 ;;9002226.02101,"730,51660-0786-10 ",.02)
 ;;51660-0786-10
 ;;9002226.02101,"730,51660-0787-01 ",.01)
 ;;51660-0787-01
 ;;9002226.02101,"730,51660-0787-01 ",.02)
 ;;51660-0787-01
 ;;9002226.02101,"730,51660-0787-10 ",.01)
 ;;51660-0787-10
 ;;9002226.02101,"730,51660-0787-10 ",.02)
 ;;51660-0787-10
 ;;9002226.02101,"730,51672-4011-01 ",.01)
 ;;51672-4011-01
 ;;9002226.02101,"730,51672-4011-01 ",.02)
 ;;51672-4011-01
 ;;9002226.02101,"730,51672-4011-05 ",.01)
 ;;51672-4011-05
 ;;9002226.02101,"730,51672-4011-05 ",.02)
 ;;51672-4011-05
 ;;9002226.02101,"730,51672-4011-06 ",.01)
 ;;51672-4011-06
 ;;9002226.02101,"730,51672-4011-06 ",.02)
 ;;51672-4011-06
 ;;9002226.02101,"730,51672-4012-01 ",.01)
 ;;51672-4012-01
 ;;9002226.02101,"730,51672-4012-01 ",.02)
 ;;51672-4012-01
 ;;9002226.02101,"730,51672-4012-05 ",.01)
 ;;51672-4012-05
 ;;9002226.02101,"730,51672-4012-05 ",.02)
 ;;51672-4012-05
 ;;9002226.02101,"730,51672-4012-06 ",.01)
 ;;51672-4012-06
 ;;9002226.02101,"730,51672-4012-06 ",.02)
 ;;51672-4012-06
 ;;9002226.02101,"730,51672-4013-01 ",.01)
 ;;51672-4013-01
 ;;9002226.02101,"730,51672-4013-01 ",.02)
 ;;51672-4013-01
 ;;9002226.02101,"730,51672-4013-05 ",.01)
 ;;51672-4013-05
 ;;9002226.02101,"730,51672-4013-05 ",.02)
 ;;51672-4013-05
 ;;9002226.02101,"730,51672-4013-06 ",.01)
 ;;51672-4013-06
 ;;9002226.02101,"730,51672-4013-06 ",.02)
 ;;51672-4013-06
 ;;9002226.02101,"730,51674-0009-01 ",.01)
 ;;51674-0009-01
 ;;9002226.02101,"730,51674-0009-01 ",.02)
 ;;51674-0009-01
 ;;9002226.02101,"730,51862-0179-01 ",.01)
 ;;51862-0179-01
 ;;9002226.02101,"730,51862-0179-01 ",.02)
 ;;51862-0179-01
 ;;9002226.02101,"730,51991-0073-01 ",.01)
 ;;51991-0073-01
 ;;9002226.02101,"730,51991-0073-01 ",.02)
 ;;51991-0073-01
 ;;9002226.02101,"730,51991-0074-01 ",.01)
 ;;51991-0074-01
 ;;9002226.02101,"730,51991-0074-01 ",.02)
 ;;51991-0074-01
 ;;9002226.02101,"730,51991-0074-05 ",.01)
 ;;51991-0074-05
 ;;9002226.02101,"730,51991-0074-05 ",.02)
 ;;51991-0074-05
 ;;9002226.02101,"730,51991-0076-33 ",.01)
 ;;51991-0076-33
 ;;9002226.02101,"730,51991-0076-33 ",.02)
 ;;51991-0076-33
 ;;9002226.02101,"730,51991-0080-51 ",.01)
 ;;51991-0080-51
 ;;9002226.02101,"730,51991-0080-51 ",.02)
 ;;51991-0080-51
 ;;9002226.02101,"730,51991-0080-52 ",.01)
 ;;51991-0080-52
 ;;9002226.02101,"730,51991-0080-52 ",.02)
 ;;51991-0080-52
 ;;9002226.02101,"730,51991-0251-33 ",.01)
 ;;51991-0251-33
 ;;9002226.02101,"730,51991-0251-33 ",.02)
 ;;51991-0251-33
 ;;9002226.02101,"730,51991-0416-01 ",.01)
 ;;51991-0416-01
 ;;9002226.02101,"730,51991-0416-01 ",.02)
 ;;51991-0416-01
 ;;9002226.02101,"730,51991-0416-02 ",.01)
 ;;51991-0416-02
 ;;9002226.02101,"730,51991-0416-02 ",.02)
 ;;51991-0416-02
 ;;9002226.02101,"730,51991-0417-01 ",.01)
 ;;51991-0417-01
 ;;9002226.02101,"730,51991-0417-01 ",.02)
 ;;51991-0417-01
 ;;9002226.02101,"730,51991-0417-02 ",.01)
 ;;51991-0417-02