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

BGP62Y27.m

Go to the documentation of this file.
BGP62Y27 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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,"868,00173-0741-10 ",.02)
 ;;00173-0741-10
 ;;9002226.02101,"868,00179-0021-88 ",.01)
 ;;00179-0021-88
 ;;9002226.02101,"868,00179-0021-88 ",.02)
 ;;00179-0021-88
 ;;9002226.02101,"868,00179-0023-88 ",.01)
 ;;00179-0023-88
 ;;9002226.02101,"868,00179-0023-88 ",.02)
 ;;00179-0023-88
 ;;9002226.02101,"868,00179-0024-88 ",.01)
 ;;00179-0024-88
 ;;9002226.02101,"868,00179-0024-88 ",.02)
 ;;00179-0024-88
 ;;9002226.02101,"868,00179-0033-70 ",.01)
 ;;00179-0033-70
 ;;9002226.02101,"868,00179-0033-70 ",.02)
 ;;00179-0033-70
 ;;9002226.02101,"868,00179-0054-14 ",.01)
 ;;00179-0054-14
 ;;9002226.02101,"868,00179-0054-14 ",.02)
 ;;00179-0054-14
 ;;9002226.02101,"868,00179-0054-20 ",.01)
 ;;00179-0054-20
 ;;9002226.02101,"868,00179-0054-20 ",.02)
 ;;00179-0054-20
 ;;9002226.02101,"868,00179-0076-88 ",.01)
 ;;00179-0076-88
 ;;9002226.02101,"868,00179-0076-88 ",.02)
 ;;00179-0076-88
 ;;9002226.02101,"868,00179-1982-01 ",.01)
 ;;00179-1982-01
 ;;9002226.02101,"868,00179-1982-01 ",.02)
 ;;00179-1982-01
 ;;9002226.02101,"868,00179-1982-14 ",.01)
 ;;00179-1982-14
 ;;9002226.02101,"868,00179-1982-14 ",.02)
 ;;00179-1982-14
 ;;9002226.02101,"868,00179-1982-20 ",.01)
 ;;00179-1982-20
 ;;9002226.02101,"868,00179-1982-20 ",.02)
 ;;00179-1982-20
 ;;9002226.02101,"868,00182-0679-00 ",.01)
 ;;00182-0679-00
 ;;9002226.02101,"868,00182-0679-00 ",.02)
 ;;00182-0679-00
 ;;9002226.02101,"868,00182-0679-89 ",.01)
 ;;00182-0679-89
 ;;9002226.02101,"868,00182-0679-89 ",.02)
 ;;00182-0679-89
 ;;9002226.02101,"868,00182-1035-00 ",.01)
 ;;00182-1035-00
 ;;9002226.02101,"868,00182-1035-00 ",.02)
 ;;00182-1035-00
 ;;9002226.02101,"868,00182-1035-89 ",.01)
 ;;00182-1035-89
 ;;9002226.02101,"868,00182-1035-89 ",.02)
 ;;00182-1035-89
 ;;9002226.02101,"868,00182-1535-00 ",.01)
 ;;00182-1535-00
 ;;9002226.02101,"868,00182-1535-00 ",.02)
 ;;00182-1535-00
 ;;9002226.02101,"868,00182-1535-89 ",.01)
 ;;00182-1535-89
 ;;9002226.02101,"868,00182-1535-89 ",.02)
 ;;00182-1535-89
 ;;9002226.02101,"868,00182-2631-01 ",.01)
 ;;00182-2631-01
 ;;9002226.02101,"868,00182-2631-01 ",.02)
 ;;00182-2631-01
 ;;9002226.02101,"868,00182-2721-36 ",.01)
 ;;00182-2721-36
 ;;9002226.02101,"868,00182-2721-36 ",.02)
 ;;00182-2721-36
 ;;9002226.02101,"868,00185-0036-01 ",.01)
 ;;00185-0036-01
 ;;9002226.02101,"868,00185-0036-01 ",.02)
 ;;00185-0036-01
 ;;9002226.02101,"868,00185-0106-01 ",.01)
 ;;00185-0106-01
 ;;9002226.02101,"868,00185-0106-01 ",.02)
 ;;00185-0106-01
 ;;9002226.02101,"868,00185-0112-01 ",.01)
 ;;00185-0112-01
 ;;9002226.02101,"868,00185-0112-01 ",.02)
 ;;00185-0112-01
 ;;9002226.02101,"868,00185-0112-05 ",.01)
 ;;00185-0112-05
 ;;9002226.02101,"868,00185-0112-05 ",.02)
 ;;00185-0112-05
 ;;9002226.02101,"868,00185-0216-52 ",.01)
 ;;00185-0216-52
 ;;9002226.02101,"868,00185-0216-52 ",.02)
 ;;00185-0216-52
 ;;9002226.02101,"868,00185-0216-53 ",.01)
 ;;00185-0216-53
 ;;9002226.02101,"868,00185-0216-53 ",.02)
 ;;00185-0216-53
 ;;9002226.02101,"868,00185-0275-60 ",.01)
 ;;00185-0275-60
 ;;9002226.02101,"868,00185-0275-60 ",.02)
 ;;00185-0275-60
 ;;9002226.02101,"868,00185-0805-01 ",.01)
 ;;00185-0805-01
 ;;9002226.02101,"868,00185-0805-01 ",.02)
 ;;00185-0805-01
 ;;9002226.02101,"868,00185-0810-01 ",.01)
 ;;00185-0810-01
 ;;9002226.02101,"868,00185-0810-01 ",.02)
 ;;00185-0810-01
 ;;9002226.02101,"868,00185-0810-52 ",.01)
 ;;00185-0810-52
 ;;9002226.02101,"868,00185-0810-52 ",.02)
 ;;00185-0810-52
 ;;9002226.02101,"868,00185-0810-53 ",.01)
 ;;00185-0810-53
 ;;9002226.02101,"868,00185-0810-53 ",.02)
 ;;00185-0810-53
 ;;9002226.02101,"868,00185-7203-70 ",.01)
 ;;00185-7203-70
 ;;9002226.02101,"868,00185-7203-70 ",.02)
 ;;00185-7203-70
 ;;9002226.02101,"868,00185-7206-70 ",.01)
 ;;00185-7206-70
 ;;9002226.02101,"868,00185-7206-70 ",.02)
 ;;00185-7206-70
 ;;9002226.02101,"868,00185-7209-69 ",.01)
 ;;00185-7209-69
 ;;9002226.02101,"868,00185-7209-69 ",.02)
 ;;00185-7209-69
 ;;9002226.02101,"868,00185-7212-68 ",.01)
 ;;00185-7212-68
 ;;9002226.02101,"868,00185-7212-68 ",.02)
 ;;00185-7212-68
 ;;9002226.02101,"868,00228-2895-06 ",.01)
 ;;00228-2895-06
 ;;9002226.02101,"868,00228-2895-06 ",.02)
 ;;00228-2895-06
 ;;9002226.02101,"868,00228-2896-11 ",.01)
 ;;00228-2896-11
 ;;9002226.02101,"868,00228-2896-11 ",.02)
 ;;00228-2896-11
 ;;9002226.02101,"868,00247-0001-33 ",.01)
 ;;00247-0001-33
 ;;9002226.02101,"868,00247-0001-33 ",.02)
 ;;00247-0001-33
 ;;9002226.02101,"868,00247-0001-56 ",.01)
 ;;00247-0001-56
 ;;9002226.02101,"868,00247-0001-56 ",.02)
 ;;00247-0001-56
 ;;9002226.02101,"868,00247-0001-69 ",.01)
 ;;00247-0001-69
 ;;9002226.02101,"868,00247-0001-69 ",.02)
 ;;00247-0001-69
 ;;9002226.02101,"868,00247-0002-12 ",.01)
 ;;00247-0002-12
 ;;9002226.02101,"868,00247-0002-12 ",.02)
 ;;00247-0002-12
 ;;9002226.02101,"868,00247-0002-16 ",.01)
 ;;00247-0002-16
 ;;9002226.02101,"868,00247-0002-16 ",.02)
 ;;00247-0002-16
 ;;9002226.02101,"868,00247-0002-22 ",.01)
 ;;00247-0002-22
 ;;9002226.02101,"868,00247-0002-22 ",.02)
 ;;00247-0002-22
 ;;9002226.02101,"868,00247-0002-25 ",.01)
 ;;00247-0002-25
 ;;9002226.02101,"868,00247-0002-25 ",.02)
 ;;00247-0002-25
 ;;9002226.02101,"868,00247-0002-32 ",.01)
 ;;00247-0002-32
 ;;9002226.02101,"868,00247-0002-32 ",.02)
 ;;00247-0002-32
 ;;9002226.02101,"868,00247-0002-33 ",.01)
 ;;00247-0002-33
 ;;9002226.02101,"868,00247-0002-33 ",.02)
 ;;00247-0002-33
 ;;9002226.02101,"868,00247-0002-50 ",.01)
 ;;00247-0002-50
 ;;9002226.02101,"868,00247-0002-50 ",.02)
 ;;00247-0002-50
 ;;9002226.02101,"868,00247-0002-69 ",.01)
 ;;00247-0002-69
 ;;9002226.02101,"868,00247-0002-69 ",.02)
 ;;00247-0002-69
 ;;9002226.02101,"868,00247-0002-80 ",.01)
 ;;00247-0002-80
 ;;9002226.02101,"868,00247-0002-80 ",.02)
 ;;00247-0002-80
 ;;9002226.02101,"868,00247-0003-03 ",.01)
 ;;00247-0003-03
 ;;9002226.02101,"868,00247-0003-03 ",.02)
 ;;00247-0003-03
 ;;9002226.02101,"868,00247-0003-09 ",.01)
 ;;00247-0003-09
 ;;9002226.02101,"868,00247-0003-09 ",.02)
 ;;00247-0003-09
 ;;9002226.02101,"868,00247-0003-32 ",.01)
 ;;00247-0003-32
 ;;9002226.02101,"868,00247-0003-32 ",.02)
 ;;00247-0003-32
 ;;9002226.02101,"868,00247-0005-03 ",.01)
 ;;00247-0005-03
 ;;9002226.02101,"868,00247-0005-03 ",.02)
 ;;00247-0005-03
 ;;9002226.02101,"868,00247-0005-24 ",.01)
 ;;00247-0005-24
 ;;9002226.02101,"868,00247-0005-24 ",.02)
 ;;00247-0005-24
 ;;9002226.02101,"868,00247-0005-56 ",.01)
 ;;00247-0005-56
 ;;9002226.02101,"868,00247-0005-56 ",.02)
 ;;00247-0005-56
 ;;9002226.02101,"868,00247-0006-17 ",.01)
 ;;00247-0006-17
 ;;9002226.02101,"868,00247-0006-17 ",.02)
 ;;00247-0006-17
 ;;9002226.02101,"868,00247-0006-21 ",.01)
 ;;00247-0006-21
 ;;9002226.02101,"868,00247-0006-21 ",.02)
 ;;00247-0006-21
 ;;9002226.02101,"868,00247-0006-60 ",.01)
 ;;00247-0006-60
 ;;9002226.02101,"868,00247-0006-60 ",.02)
 ;;00247-0006-60
 ;;9002226.02101,"868,00247-0008-00 ",.01)
 ;;00247-0008-00
 ;;9002226.02101,"868,00247-0008-00 ",.02)
 ;;00247-0008-00
 ;;9002226.02101,"868,00247-0008-02 ",.01)
 ;;00247-0008-02
 ;;9002226.02101,"868,00247-0008-02 ",.02)
 ;;00247-0008-02
 ;;9002226.02101,"868,00247-0008-03 ",.01)
 ;;00247-0008-03
 ;;9002226.02101,"868,00247-0008-03 ",.02)
 ;;00247-0008-03
 ;;9002226.02101,"868,00247-0008-04 ",.01)
 ;;00247-0008-04
 ;;9002226.02101,"868,00247-0008-04 ",.02)
 ;;00247-0008-04
 ;;9002226.02101,"868,00247-0008-05 ",.01)
 ;;00247-0008-05
 ;;9002226.02101,"868,00247-0008-05 ",.02)
 ;;00247-0008-05
 ;;9002226.02101,"868,00247-0008-06 ",.01)
 ;;00247-0008-06
 ;;9002226.02101,"868,00247-0008-06 ",.02)
 ;;00247-0008-06
 ;;9002226.02101,"868,00247-0008-09 ",.01)
 ;;00247-0008-09
 ;;9002226.02101,"868,00247-0008-09 ",.02)
 ;;00247-0008-09
 ;;9002226.02101,"868,00247-0008-10 ",.01)
 ;;00247-0008-10
 ;;9002226.02101,"868,00247-0008-10 ",.02)
 ;;00247-0008-10
 ;;9002226.02101,"868,00247-0008-15 ",.01)
 ;;00247-0008-15
 ;;9002226.02101,"868,00247-0008-15 ",.02)
 ;;00247-0008-15
 ;;9002226.02101,"868,00247-0008-18 ",.01)
 ;;00247-0008-18
 ;;9002226.02101,"868,00247-0008-18 ",.02)
 ;;00247-0008-18
 ;;9002226.02101,"868,00247-0008-20 ",.01)
 ;;00247-0008-20
 ;;9002226.02101,"868,00247-0008-20 ",.02)
 ;;00247-0008-20
 ;;9002226.02101,"868,00247-0008-21 ",.01)
 ;;00247-0008-21
 ;;9002226.02101,"868,00247-0008-21 ",.02)
 ;;00247-0008-21
 ;;9002226.02101,"868,00247-0008-24 ",.01)
 ;;00247-0008-24
 ;;9002226.02101,"868,00247-0008-24 ",.02)
 ;;00247-0008-24
 ;;9002226.02101,"868,00247-0008-30 ",.01)
 ;;00247-0008-30
 ;;9002226.02101,"868,00247-0008-30 ",.02)
 ;;00247-0008-30
 ;;9002226.02101,"868,00247-0008-42 ",.01)
 ;;00247-0008-42
 ;;9002226.02101,"868,00247-0008-42 ",.02)
 ;;00247-0008-42
 ;;9002226.02101,"868,00247-0008-98 ",.01)
 ;;00247-0008-98
 ;;9002226.02101,"868,00247-0008-98 ",.02)
 ;;00247-0008-98
 ;;9002226.02101,"868,00247-0009-00 ",.01)
 ;;00247-0009-00
 ;;9002226.02101,"868,00247-0009-00 ",.02)
 ;;00247-0009-00
 ;;9002226.02101,"868,00247-0009-78 ",.01)
 ;;00247-0009-78
 ;;9002226.02101,"868,00247-0009-78 ",.02)
 ;;00247-0009-78
 ;;9002226.02101,"868,00247-0009-79 ",.01)
 ;;00247-0009-79
 ;;9002226.02101,"868,00247-0009-79 ",.02)
 ;;00247-0009-79
 ;;9002226.02101,"868,00247-0014-00 ",.01)
 ;;00247-0014-00
 ;;9002226.02101,"868,00247-0014-00 ",.02)
 ;;00247-0014-00
 ;;9002226.02101,"868,00247-0014-79 ",.01)
 ;;00247-0014-79
 ;;9002226.02101,"868,00247-0014-79 ",.02)
 ;;00247-0014-79
 ;;9002226.02101,"868,00247-0022-05 ",.01)
 ;;00247-0022-05
 ;;9002226.02101,"868,00247-0022-05 ",.02)
 ;;00247-0022-05
 ;;9002226.02101,"868,00247-0022-10 ",.01)
 ;;00247-0022-10
 ;;9002226.02101,"868,00247-0022-10 ",.02)
 ;;00247-0022-10
 ;;9002226.02101,"868,00247-0023-02 ",.01)
 ;;00247-0023-02
 ;;9002226.02101,"868,00247-0023-02 ",.02)
 ;;00247-0023-02
 ;;9002226.02101,"868,00247-0023-04 ",.01)
 ;;00247-0023-04
 ;;9002226.02101,"868,00247-0023-04 ",.02)
 ;;00247-0023-04
 ;;9002226.02101,"868,00247-0023-06 ",.01)
 ;;00247-0023-06
 ;;9002226.02101,"868,00247-0023-06 ",.02)
 ;;00247-0023-06
 ;;9002226.02101,"868,00247-0023-08 ",.01)
 ;;00247-0023-08
 ;;9002226.02101,"868,00247-0023-08 ",.02)
 ;;00247-0023-08
 ;;9002226.02101,"868,00247-0025-00 ",.01)
 ;;00247-0025-00
 ;;9002226.02101,"868,00247-0025-00 ",.02)
 ;;00247-0025-00
 ;;9002226.02101,"868,00247-0025-75 ",.01)
 ;;00247-0025-75
 ;;9002226.02101,"868,00247-0025-75 ",.02)
 ;;00247-0025-75
 ;;9002226.02101,"868,00247-0025-78 ",.01)
 ;;00247-0025-78
 ;;9002226.02101,"868,00247-0025-78 ",.02)
 ;;00247-0025-78
 ;;9002226.02101,"868,00247-0027-01 ",.01)
 ;;00247-0027-01
 ;;9002226.02101,"868,00247-0027-01 ",.02)
 ;;00247-0027-01
 ;;9002226.02101,"868,00247-0027-02 ",.01)
 ;;00247-0027-02
 ;;9002226.02101,"868,00247-0027-02 ",.02)
 ;;00247-0027-02
 ;;9002226.02101,"868,00247-0027-03 ",.01)
 ;;00247-0027-03
 ;;9002226.02101,"868,00247-0027-03 ",.02)
 ;;00247-0027-03
 ;;9002226.02101,"868,00247-0027-07 ",.01)
 ;;00247-0027-07
 ;;9002226.02101,"868,00247-0027-07 ",.02)
 ;;00247-0027-07
 ;;9002226.02101,"868,00247-0027-10 ",.01)
 ;;00247-0027-10
 ;;9002226.02101,"868,00247-0027-10 ",.02)
 ;;00247-0027-10
 ;;9002226.02101,"868,00247-0027-30 ",.01)
 ;;00247-0027-30
 ;;9002226.02101,"868,00247-0027-30 ",.02)
 ;;00247-0027-30
 ;;9002226.02101,"868,00247-0028-01 ",.01)
 ;;00247-0028-01
 ;;9002226.02101,"868,00247-0028-01 ",.02)
 ;;00247-0028-01
 ;;9002226.02101,"868,00247-0028-03 ",.01)
 ;;00247-0028-03
 ;;9002226.02101,"868,00247-0028-03 ",.02)
 ;;00247-0028-03
 ;;9002226.02101,"868,00247-0028-06 ",.01)
 ;;00247-0028-06
 ;;9002226.02101,"868,00247-0028-06 ",.02)
 ;;00247-0028-06
 ;;9002226.02101,"868,00247-0035-00 ",.01)
 ;;00247-0035-00