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

BGP73G36.m

Go to the documentation of this file.
BGP73G36 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 05, 2017;
 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
 ;
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,"869,49999-0774-30 ",.02)
 ;;49999-0774-30
 ;;9002226.02101,"869,49999-0774-60 ",.01)
 ;;49999-0774-60
 ;;9002226.02101,"869,49999-0774-60 ",.02)
 ;;49999-0774-60
 ;;9002226.02101,"869,49999-0774-90 ",.01)
 ;;49999-0774-90
 ;;9002226.02101,"869,49999-0774-90 ",.02)
 ;;49999-0774-90
 ;;9002226.02101,"869,49999-0776-30 ",.01)
 ;;49999-0776-30
 ;;9002226.02101,"869,49999-0776-30 ",.02)
 ;;49999-0776-30
 ;;9002226.02101,"869,49999-0776-50 ",.01)
 ;;49999-0776-50
 ;;9002226.02101,"869,49999-0776-50 ",.02)
 ;;49999-0776-50
 ;;9002226.02101,"869,49999-0780-30 ",.01)
 ;;49999-0780-30
 ;;9002226.02101,"869,49999-0780-30 ",.02)
 ;;49999-0780-30
 ;;9002226.02101,"869,49999-0789-30 ",.01)
 ;;49999-0789-30
 ;;9002226.02101,"869,49999-0789-30 ",.02)
 ;;49999-0789-30
 ;;9002226.02101,"869,49999-0789-60 ",.01)
 ;;49999-0789-60
 ;;9002226.02101,"869,49999-0789-60 ",.02)
 ;;49999-0789-60
 ;;9002226.02101,"869,49999-0789-90 ",.01)
 ;;49999-0789-90
 ;;9002226.02101,"869,49999-0789-90 ",.02)
 ;;49999-0789-90
 ;;9002226.02101,"869,49999-0828-30 ",.01)
 ;;49999-0828-30
 ;;9002226.02101,"869,49999-0828-30 ",.02)
 ;;49999-0828-30
 ;;9002226.02101,"869,49999-0860-30 ",.01)
 ;;49999-0860-30
 ;;9002226.02101,"869,49999-0860-30 ",.02)
 ;;49999-0860-30
 ;;9002226.02101,"869,49999-0860-60 ",.01)
 ;;49999-0860-60
 ;;9002226.02101,"869,49999-0860-60 ",.02)
 ;;49999-0860-60
 ;;9002226.02101,"869,49999-0861-30 ",.01)
 ;;49999-0861-30
 ;;9002226.02101,"869,49999-0861-30 ",.02)
 ;;49999-0861-30
 ;;9002226.02101,"869,49999-0861-60 ",.01)
 ;;49999-0861-60
 ;;9002226.02101,"869,49999-0861-60 ",.02)
 ;;49999-0861-60
 ;;9002226.02101,"869,49999-0861-90 ",.01)
 ;;49999-0861-90
 ;;9002226.02101,"869,49999-0861-90 ",.02)
 ;;49999-0861-90
 ;;9002226.02101,"869,49999-0886-30 ",.01)
 ;;49999-0886-30
 ;;9002226.02101,"869,49999-0886-30 ",.02)
 ;;49999-0886-30
 ;;9002226.02101,"869,49999-0909-00 ",.01)
 ;;49999-0909-00
 ;;9002226.02101,"869,49999-0909-00 ",.02)
 ;;49999-0909-00
 ;;9002226.02101,"869,49999-0913-30 ",.01)
 ;;49999-0913-30
 ;;9002226.02101,"869,49999-0913-30 ",.02)
 ;;49999-0913-30
 ;;9002226.02101,"869,49999-0915-90 ",.01)
 ;;49999-0915-90
 ;;9002226.02101,"869,49999-0915-90 ",.02)
 ;;49999-0915-90
 ;;9002226.02101,"869,49999-0918-30 ",.01)
 ;;49999-0918-30
 ;;9002226.02101,"869,49999-0918-30 ",.02)
 ;;49999-0918-30
 ;;9002226.02101,"869,49999-0965-30 ",.01)
 ;;49999-0965-30
 ;;9002226.02101,"869,49999-0965-30 ",.02)
 ;;49999-0965-30
 ;;9002226.02101,"869,49999-0965-60 ",.01)
 ;;49999-0965-60
 ;;9002226.02101,"869,49999-0965-60 ",.02)
 ;;49999-0965-60
 ;;9002226.02101,"869,50111-0433-01 ",.01)
 ;;50111-0433-01
 ;;9002226.02101,"869,50111-0433-01 ",.02)
 ;;50111-0433-01
 ;;9002226.02101,"869,50111-0433-02 ",.01)
 ;;50111-0433-02
 ;;9002226.02101,"869,50111-0433-02 ",.02)
 ;;50111-0433-02
 ;;9002226.02101,"869,50111-0433-03 ",.01)
 ;;50111-0433-03
 ;;9002226.02101,"869,50111-0433-03 ",.02)
 ;;50111-0433-03
 ;;9002226.02101,"869,50111-0434-01 ",.01)
 ;;50111-0434-01
 ;;9002226.02101,"869,50111-0434-01 ",.02)
 ;;50111-0434-01
 ;;9002226.02101,"869,50111-0434-02 ",.01)
 ;;50111-0434-02
 ;;9002226.02101,"869,50111-0434-02 ",.02)
 ;;50111-0434-02
 ;;9002226.02101,"869,50111-0434-03 ",.01)
 ;;50111-0434-03
 ;;9002226.02101,"869,50111-0434-03 ",.02)
 ;;50111-0434-03
 ;;9002226.02101,"869,50111-0441-01 ",.01)
 ;;50111-0441-01
 ;;9002226.02101,"869,50111-0441-01 ",.02)
 ;;50111-0441-01
 ;;9002226.02101,"869,50111-0441-02 ",.01)
 ;;50111-0441-02
 ;;9002226.02101,"869,50111-0441-02 ",.02)
 ;;50111-0441-02
 ;;9002226.02101,"869,50111-0523-03 ",.01)
 ;;50111-0523-03
 ;;9002226.02101,"869,50111-0523-03 ",.02)
 ;;50111-0523-03
 ;;9002226.02101,"869,50111-0524-03 ",.01)
 ;;50111-0524-03
 ;;9002226.02101,"869,50111-0524-03 ",.02)
 ;;50111-0524-03
 ;;9002226.02101,"869,50111-0647-01 ",.01)
 ;;50111-0647-01
 ;;9002226.02101,"869,50111-0647-01 ",.02)
 ;;50111-0647-01
 ;;9002226.02101,"869,50111-0647-02 ",.01)
 ;;50111-0647-02
 ;;9002226.02101,"869,50111-0647-02 ",.02)
 ;;50111-0647-02
 ;;9002226.02101,"869,50111-0647-03 ",.01)
 ;;50111-0647-03
 ;;9002226.02101,"869,50111-0647-03 ",.02)
 ;;50111-0647-03
 ;;9002226.02101,"869,50111-0648-01 ",.01)
 ;;50111-0648-01
 ;;9002226.02101,"869,50111-0648-01 ",.02)
 ;;50111-0648-01
 ;;9002226.02101,"869,50111-0648-03 ",.01)
 ;;50111-0648-03
 ;;9002226.02101,"869,50111-0648-03 ",.02)
 ;;50111-0648-03
 ;;9002226.02101,"869,50268-0333-15 ",.01)
 ;;50268-0333-15
 ;;9002226.02101,"869,50268-0333-15 ",.02)
 ;;50268-0333-15
 ;;9002226.02101,"869,50268-0334-15 ",.01)
 ;;50268-0334-15
 ;;9002226.02101,"869,50268-0334-15 ",.02)
 ;;50268-0334-15
 ;;9002226.02101,"869,50268-0335-15 ",.01)
 ;;50268-0335-15
 ;;9002226.02101,"869,50268-0335-15 ",.02)
 ;;50268-0335-15
 ;;9002226.02101,"869,50268-0640-15 ",.01)
 ;;50268-0640-15
 ;;9002226.02101,"869,50268-0640-15 ",.02)
 ;;50268-0640-15
 ;;9002226.02101,"869,50268-0641-15 ",.01)
 ;;50268-0641-15
 ;;9002226.02101,"869,50268-0641-15 ",.02)
 ;;50268-0641-15
 ;;9002226.02101,"869,50268-0642-15 ",.01)
 ;;50268-0642-15
 ;;9002226.02101,"869,50268-0642-15 ",.02)
 ;;50268-0642-15
 ;;9002226.02101,"869,50268-0643-15 ",.01)
 ;;50268-0643-15
 ;;9002226.02101,"869,50268-0643-15 ",.02)
 ;;50268-0643-15
 ;;9002226.02101,"869,50268-0798-15 ",.01)
 ;;50268-0798-15
 ;;9002226.02101,"869,50268-0798-15 ",.02)
 ;;50268-0798-15
 ;;9002226.02101,"869,50268-0799-15 ",.01)
 ;;50268-0799-15
 ;;9002226.02101,"869,50268-0799-15 ",.02)
 ;;50268-0799-15
 ;;9002226.02101,"869,50268-0800-15 ",.01)
 ;;50268-0800-15
 ;;9002226.02101,"869,50268-0800-15 ",.02)
 ;;50268-0800-15
 ;;9002226.02101,"869,50268-0801-15 ",.01)
 ;;50268-0801-15
 ;;9002226.02101,"869,50268-0801-15 ",.02)
 ;;50268-0801-15
 ;;9002226.02101,"869,50268-0802-15 ",.01)
 ;;50268-0802-15
 ;;9002226.02101,"869,50268-0802-15 ",.02)
 ;;50268-0802-15
 ;;9002226.02101,"869,50383-0959-10 ",.01)
 ;;50383-0959-10
 ;;9002226.02101,"869,50383-0959-10 ",.02)
 ;;50383-0959-10
 ;;9002226.02101,"869,50383-0960-10 ",.01)
 ;;50383-0960-10
 ;;9002226.02101,"869,50383-0960-10 ",.02)
 ;;50383-0960-10
 ;;9002226.02101,"869,51079-0047-01 ",.01)
 ;;51079-0047-01
 ;;9002226.02101,"869,51079-0047-01 ",.02)
 ;;51079-0047-01
 ;;9002226.02101,"869,51079-0047-20 ",.01)
 ;;51079-0047-20
 ;;9002226.02101,"869,51079-0047-20 ",.02)
 ;;51079-0047-20
 ;;9002226.02101,"869,51079-0086-01 ",.01)
 ;;51079-0086-01
 ;;9002226.02101,"869,51079-0086-01 ",.02)
 ;;51079-0086-01
 ;;9002226.02101,"869,51079-0086-20 ",.01)
 ;;51079-0086-20
 ;;9002226.02101,"869,51079-0086-20 ",.02)
 ;;51079-0086-20
 ;;9002226.02101,"869,51079-0086-30 ",.01)
 ;;51079-0086-30
 ;;9002226.02101,"869,51079-0086-30 ",.02)
 ;;51079-0086-30
 ;;9002226.02101,"869,51079-0086-56 ",.01)
 ;;51079-0086-56
 ;;9002226.02101,"869,51079-0086-56 ",.02)
 ;;51079-0086-56
 ;;9002226.02101,"869,51079-0087-01 ",.01)
 ;;51079-0087-01
 ;;9002226.02101,"869,51079-0087-01 ",.02)
 ;;51079-0087-01
 ;;9002226.02101,"869,51079-0087-20 ",.01)
 ;;51079-0087-20
 ;;9002226.02101,"869,51079-0087-20 ",.02)
 ;;51079-0087-20
 ;;9002226.02101,"869,51079-0087-30 ",.01)
 ;;51079-0087-30
 ;;9002226.02101,"869,51079-0087-30 ",.02)
 ;;51079-0087-30
 ;;9002226.02101,"869,51079-0087-56 ",.01)
 ;;51079-0087-56
 ;;9002226.02101,"869,51079-0087-56 ",.02)
 ;;51079-0087-56
 ;;9002226.02101,"869,51079-0088-01 ",.01)
 ;;51079-0088-01
 ;;9002226.02101,"869,51079-0088-01 ",.02)
 ;;51079-0088-01
 ;;9002226.02101,"869,51079-0088-20 ",.01)
 ;;51079-0088-20
 ;;9002226.02101,"869,51079-0088-20 ",.02)
 ;;51079-0088-20
 ;;9002226.02101,"869,51079-0088-30 ",.01)
 ;;51079-0088-30
 ;;9002226.02101,"869,51079-0088-30 ",.02)
 ;;51079-0088-30
 ;;9002226.02101,"869,51079-0088-56 ",.01)
 ;;51079-0088-56
 ;;9002226.02101,"869,51079-0088-56 ",.02)
 ;;51079-0088-56
 ;;9002226.02101,"869,51079-0107-01 ",.01)
 ;;51079-0107-01
 ;;9002226.02101,"869,51079-0107-01 ",.02)
 ;;51079-0107-01
 ;;9002226.02101,"869,51079-0107-17 ",.01)
 ;;51079-0107-17
 ;;9002226.02101,"869,51079-0107-17 ",.02)
 ;;51079-0107-17
 ;;9002226.02101,"869,51079-0107-19 ",.01)
 ;;51079-0107-19
 ;;9002226.02101,"869,51079-0107-19 ",.02)
 ;;51079-0107-19
 ;;9002226.02101,"869,51079-0107-20 ",.01)
 ;;51079-0107-20
 ;;9002226.02101,"869,51079-0107-20 ",.02)
 ;;51079-0107-20
 ;;9002226.02101,"869,51079-0107-63 ",.01)
 ;;51079-0107-63
 ;;9002226.02101,"869,51079-0107-63 ",.02)
 ;;51079-0107-63
 ;;9002226.02101,"869,51079-0109-01 ",.01)
 ;;51079-0109-01
 ;;9002226.02101,"869,51079-0109-01 ",.02)
 ;;51079-0109-01
 ;;9002226.02101,"869,51079-0109-03 ",.01)
 ;;51079-0109-03
 ;;9002226.02101,"869,51079-0109-03 ",.02)
 ;;51079-0109-03
 ;;9002226.02101,"869,51079-0131-01 ",.01)
 ;;51079-0131-01
 ;;9002226.02101,"869,51079-0131-01 ",.02)
 ;;51079-0131-01
 ;;9002226.02101,"869,51079-0131-20 ",.01)
 ;;51079-0131-20
 ;;9002226.02101,"869,51079-0131-20 ",.02)
 ;;51079-0131-20
 ;;9002226.02101,"869,51079-0131-63 ",.01)
 ;;51079-0131-63
 ;;9002226.02101,"869,51079-0131-63 ",.02)
 ;;51079-0131-63
 ;;9002226.02101,"869,51079-0133-01 ",.01)
 ;;51079-0133-01
 ;;9002226.02101,"869,51079-0133-01 ",.02)
 ;;51079-0133-01
 ;;9002226.02101,"869,51079-0133-20 ",.01)
 ;;51079-0133-20
 ;;9002226.02101,"869,51079-0133-20 ",.02)
 ;;51079-0133-20
 ;;9002226.02101,"869,51079-0133-63 ",.01)
 ;;51079-0133-63
 ;;9002226.02101,"869,51079-0133-63 ",.02)
 ;;51079-0133-63
 ;;9002226.02101,"869,51079-0134-01 ",.01)
 ;;51079-0134-01
 ;;9002226.02101,"869,51079-0134-01 ",.02)
 ;;51079-0134-01
 ;;9002226.02101,"869,51079-0134-20 ",.01)
 ;;51079-0134-20
 ;;9002226.02101,"869,51079-0134-20 ",.02)
 ;;51079-0134-20
 ;;9002226.02101,"869,51079-0135-01 ",.01)
 ;;51079-0135-01
 ;;9002226.02101,"869,51079-0135-01 ",.02)
 ;;51079-0135-01
 ;;9002226.02101,"869,51079-0135-20 ",.01)
 ;;51079-0135-20
 ;;9002226.02101,"869,51079-0135-20 ",.02)
 ;;51079-0135-20
 ;;9002226.02101,"869,51079-0136-01 ",.01)
 ;;51079-0136-01
 ;;9002226.02101,"869,51079-0136-01 ",.02)
 ;;51079-0136-01
 ;;9002226.02101,"869,51079-0136-04 ",.01)
 ;;51079-0136-04
 ;;9002226.02101,"869,51079-0136-04 ",.02)
 ;;51079-0136-04
 ;;9002226.02101,"869,51079-0137-01 ",.01)
 ;;51079-0137-01
 ;;9002226.02101,"869,51079-0137-01 ",.02)
 ;;51079-0137-01
 ;;9002226.02101,"869,51079-0137-20 ",.01)
 ;;51079-0137-20
 ;;9002226.02101,"869,51079-0137-20 ",.02)
 ;;51079-0137-20
 ;;9002226.02101,"869,51079-0147-01 ",.01)
 ;;51079-0147-01
 ;;9002226.02101,"869,51079-0147-01 ",.02)
 ;;51079-0147-01
 ;;9002226.02101,"869,51079-0147-20 ",.01)
 ;;51079-0147-20
 ;;9002226.02101,"869,51079-0147-20 ",.02)
 ;;51079-0147-20
 ;;9002226.02101,"869,51079-0149-01 ",.01)
 ;;51079-0149-01
 ;;9002226.02101,"869,51079-0149-01 ",.02)
 ;;51079-0149-01
 ;;9002226.02101,"869,51079-0149-20 ",.01)
 ;;51079-0149-20
 ;;9002226.02101,"869,51079-0149-20 ",.02)
 ;;51079-0149-20
 ;;9002226.02101,"869,51079-0150-01 ",.01)
 ;;51079-0150-01
 ;;9002226.02101,"869,51079-0150-01 ",.02)
 ;;51079-0150-01
 ;;9002226.02101,"869,51079-0150-20 ",.01)
 ;;51079-0150-20
 ;;9002226.02101,"869,51079-0150-20 ",.02)
 ;;51079-0150-20
 ;;9002226.02101,"869,51079-0151-01 ",.01)
 ;;51079-0151-01
 ;;9002226.02101,"869,51079-0151-01 ",.02)
 ;;51079-0151-01
 ;;9002226.02101,"869,51079-0151-20 ",.01)
 ;;51079-0151-20
 ;;9002226.02101,"869,51079-0151-20 ",.02)
 ;;51079-0151-20
 ;;9002226.02101,"869,51079-0391-01 ",.01)
 ;;51079-0391-01
 ;;9002226.02101,"869,51079-0391-01 ",.02)
 ;;51079-0391-01
 ;;9002226.02101,"869,51079-0391-20 ",.01)
 ;;51079-0391-20
 ;;9002226.02101,"869,51079-0391-20 ",.02)
 ;;51079-0391-20
 ;;9002226.02101,"869,51079-0392-01 ",.01)
 ;;51079-0392-01