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

BGP47N25.m

Go to the documentation of this file.
BGP47N25 ;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,"730,50111-0369-01 ",.02)
 ;;50111-0369-01
 ;;9002226.02101,"730,50111-0370-01 ",.01)
 ;;50111-0370-01
 ;;9002226.02101,"730,50111-0370-01 ",.02)
 ;;50111-0370-01
 ;;9002226.02101,"730,50111-0371-01 ",.01)
 ;;50111-0371-01
 ;;9002226.02101,"730,50111-0371-01 ",.02)
 ;;50111-0371-01
 ;;9002226.02101,"730,50383-0038-04 ",.01)
 ;;50383-0038-04
 ;;9002226.02101,"730,50383-0038-04 ",.02)
 ;;50383-0038-04
 ;;9002226.02101,"730,50436-0193-01 ",.01)
 ;;50436-0193-01
 ;;9002226.02101,"730,50436-0193-01 ",.02)
 ;;50436-0193-01
 ;;9002226.02101,"730,50436-1006-01 ",.01)
 ;;50436-1006-01
 ;;9002226.02101,"730,50436-1006-01 ",.02)
 ;;50436-1006-01
 ;;9002226.02101,"730,50436-3026-01 ",.01)
 ;;50436-3026-01
 ;;9002226.02101,"730,50436-3026-01 ",.02)
 ;;50436-3026-01
 ;;9002226.02101,"730,50436-3030-01 ",.01)
 ;;50436-3030-01
 ;;9002226.02101,"730,50436-3030-01 ",.02)
 ;;50436-3030-01
 ;;9002226.02101,"730,50436-3030-02 ",.01)
 ;;50436-3030-02
 ;;9002226.02101,"730,50436-3030-02 ",.02)
 ;;50436-3030-02
 ;;9002226.02101,"730,50436-3071-01 ",.01)
 ;;50436-3071-01
 ;;9002226.02101,"730,50436-3071-01 ",.02)
 ;;50436-3071-01
 ;;9002226.02101,"730,50436-3071-02 ",.01)
 ;;50436-3071-02
 ;;9002226.02101,"730,50436-3071-02 ",.02)
 ;;50436-3071-02
 ;;9002226.02101,"730,50436-3071-05 ",.01)
 ;;50436-3071-05
 ;;9002226.02101,"730,50436-3071-05 ",.02)
 ;;50436-3071-05
 ;;9002226.02101,"730,50436-3072-01 ",.01)
 ;;50436-3072-01
 ;;9002226.02101,"730,50436-3072-01 ",.02)
 ;;50436-3072-01
 ;;9002226.02101,"730,50436-3072-02 ",.01)
 ;;50436-3072-02
 ;;9002226.02101,"730,50436-3072-02 ",.02)
 ;;50436-3072-02
 ;;9002226.02101,"730,50436-3072-05 ",.01)
 ;;50436-3072-05
 ;;9002226.02101,"730,50436-3072-05 ",.02)
 ;;50436-3072-05
 ;;9002226.02101,"730,50436-3073-01 ",.01)
 ;;50436-3073-01
 ;;9002226.02101,"730,50436-3073-01 ",.02)
 ;;50436-3073-01
 ;;9002226.02101,"730,50436-3073-02 ",.01)
 ;;50436-3073-02
 ;;9002226.02101,"730,50436-3073-02 ",.02)
 ;;50436-3073-02
 ;;9002226.02101,"730,50436-3074-01 ",.01)
 ;;50436-3074-01
 ;;9002226.02101,"730,50436-3074-01 ",.02)
 ;;50436-3074-01
 ;;9002226.02101,"730,50436-3075-01 ",.01)
 ;;50436-3075-01
 ;;9002226.02101,"730,50436-3075-01 ",.02)
 ;;50436-3075-01
 ;;9002226.02101,"730,50436-3402-01 ",.01)
 ;;50436-3402-01
 ;;9002226.02101,"730,50436-3402-01 ",.02)
 ;;50436-3402-01
 ;;9002226.02101,"730,50436-4565-01 ",.01)
 ;;50436-4565-01
 ;;9002226.02101,"730,50436-4565-01 ",.02)
 ;;50436-4565-01
 ;;9002226.02101,"730,50436-4856-01 ",.01)
 ;;50436-4856-01
 ;;9002226.02101,"730,50436-4856-01 ",.02)
 ;;50436-4856-01
 ;;9002226.02101,"730,50436-4856-02 ",.01)
 ;;50436-4856-02
 ;;9002226.02101,"730,50436-4856-02 ",.02)
 ;;50436-4856-02
 ;;9002226.02101,"730,50991-0302-01 ",.01)
 ;;50991-0302-01
 ;;9002226.02101,"730,50991-0302-01 ",.02)
 ;;50991-0302-01
 ;;9002226.02101,"730,50991-0514-16 ",.01)
 ;;50991-0514-16
 ;;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,51293-0605-01 ",.01)
 ;;51293-0605-01
 ;;9002226.02101,"730,51293-0605-01 ",.02)
 ;;51293-0605-01
 ;;9002226.02101,"730,51293-0606-01 ",.01)
 ;;51293-0606-01
 ;;9002226.02101,"730,51293-0606-01 ",.02)
 ;;51293-0606-01
 ;;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