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

BGP62Y29.m

Go to the documentation of this file.
BGP62Y29 ;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,00247-0096-95 ",.02)
 ;;00247-0096-95
 ;;9002226.02101,"868,00247-0104-04 ",.01)
 ;;00247-0104-04
 ;;9002226.02101,"868,00247-0104-04 ",.02)
 ;;00247-0104-04
 ;;9002226.02101,"868,00247-0106-00 ",.01)
 ;;00247-0106-00
 ;;9002226.02101,"868,00247-0106-00 ",.02)
 ;;00247-0106-00
 ;;9002226.02101,"868,00247-0106-79 ",.01)
 ;;00247-0106-79
 ;;9002226.02101,"868,00247-0106-79 ",.02)
 ;;00247-0106-79
 ;;9002226.02101,"868,00247-0110-01 ",.01)
 ;;00247-0110-01
 ;;9002226.02101,"868,00247-0110-01 ",.02)
 ;;00247-0110-01
 ;;9002226.02101,"868,00247-0110-24 ",.01)
 ;;00247-0110-24
 ;;9002226.02101,"868,00247-0110-24 ",.02)
 ;;00247-0110-24
 ;;9002226.02101,"868,00247-0110-98 ",.01)
 ;;00247-0110-98
 ;;9002226.02101,"868,00247-0110-98 ",.02)
 ;;00247-0110-98
 ;;9002226.02101,"868,00247-0115-03 ",.01)
 ;;00247-0115-03
 ;;9002226.02101,"868,00247-0115-03 ",.02)
 ;;00247-0115-03
 ;;9002226.02101,"868,00247-0115-04 ",.01)
 ;;00247-0115-04
 ;;9002226.02101,"868,00247-0115-04 ",.02)
 ;;00247-0115-04
 ;;9002226.02101,"868,00247-0115-28 ",.01)
 ;;00247-0115-28
 ;;9002226.02101,"868,00247-0115-28 ",.02)
 ;;00247-0115-28
 ;;9002226.02101,"868,00247-0116-02 ",.01)
 ;;00247-0116-02
 ;;9002226.02101,"868,00247-0116-02 ",.02)
 ;;00247-0116-02
 ;;9002226.02101,"868,00247-0116-03 ",.01)
 ;;00247-0116-03
 ;;9002226.02101,"868,00247-0116-03 ",.02)
 ;;00247-0116-03
 ;;9002226.02101,"868,00247-0116-04 ",.01)
 ;;00247-0116-04
 ;;9002226.02101,"868,00247-0116-04 ",.02)
 ;;00247-0116-04
 ;;9002226.02101,"868,00247-0116-05 ",.01)
 ;;00247-0116-05
 ;;9002226.02101,"868,00247-0116-05 ",.02)
 ;;00247-0116-05
 ;;9002226.02101,"868,00247-0116-06 ",.01)
 ;;00247-0116-06
 ;;9002226.02101,"868,00247-0116-06 ",.02)
 ;;00247-0116-06
 ;;9002226.02101,"868,00247-0116-09 ",.01)
 ;;00247-0116-09
 ;;9002226.02101,"868,00247-0116-09 ",.02)
 ;;00247-0116-09
 ;;9002226.02101,"868,00247-0116-15 ",.01)
 ;;00247-0116-15
 ;;9002226.02101,"868,00247-0116-15 ",.02)
 ;;00247-0116-15
 ;;9002226.02101,"868,00247-0116-20 ",.01)
 ;;00247-0116-20
 ;;9002226.02101,"868,00247-0116-20 ",.02)
 ;;00247-0116-20
 ;;9002226.02101,"868,00247-0116-21 ",.01)
 ;;00247-0116-21
 ;;9002226.02101,"868,00247-0116-21 ",.02)
 ;;00247-0116-21
 ;;9002226.02101,"868,00247-0116-28 ",.01)
 ;;00247-0116-28
 ;;9002226.02101,"868,00247-0116-28 ",.02)
 ;;00247-0116-28
 ;;9002226.02101,"868,00247-0116-30 ",.01)
 ;;00247-0116-30
 ;;9002226.02101,"868,00247-0116-30 ",.02)
 ;;00247-0116-30
 ;;9002226.02101,"868,00247-0116-40 ",.01)
 ;;00247-0116-40
 ;;9002226.02101,"868,00247-0116-40 ",.02)
 ;;00247-0116-40
 ;;9002226.02101,"868,00247-0116-42 ",.01)
 ;;00247-0116-42
 ;;9002226.02101,"868,00247-0116-42 ",.02)
 ;;00247-0116-42
 ;;9002226.02101,"868,00247-0129-03 ",.01)
 ;;00247-0129-03
 ;;9002226.02101,"868,00247-0129-03 ",.02)
 ;;00247-0129-03
 ;;9002226.02101,"868,00247-0129-04 ",.01)
 ;;00247-0129-04
 ;;9002226.02101,"868,00247-0129-04 ",.02)
 ;;00247-0129-04
 ;;9002226.02101,"868,00247-0129-08 ",.01)
 ;;00247-0129-08
 ;;9002226.02101,"868,00247-0129-08 ",.02)
 ;;00247-0129-08
 ;;9002226.02101,"868,00247-0129-12 ",.01)
 ;;00247-0129-12
 ;;9002226.02101,"868,00247-0129-12 ",.02)
 ;;00247-0129-12
 ;;9002226.02101,"868,00247-0156-03 ",.01)
 ;;00247-0156-03
 ;;9002226.02101,"868,00247-0156-03 ",.02)
 ;;00247-0156-03
 ;;9002226.02101,"868,00247-0156-04 ",.01)
 ;;00247-0156-04
 ;;9002226.02101,"868,00247-0156-04 ",.02)
 ;;00247-0156-04
 ;;9002226.02101,"868,00247-0156-12 ",.01)
 ;;00247-0156-12
 ;;9002226.02101,"868,00247-0156-12 ",.02)
 ;;00247-0156-12
 ;;9002226.02101,"868,00247-0156-15 ",.01)
 ;;00247-0156-15
 ;;9002226.02101,"868,00247-0156-15 ",.02)
 ;;00247-0156-15
 ;;9002226.02101,"868,00247-0156-30 ",.01)
 ;;00247-0156-30
 ;;9002226.02101,"868,00247-0156-30 ",.02)
 ;;00247-0156-30
 ;;9002226.02101,"868,00247-0157-03 ",.01)
 ;;00247-0157-03
 ;;9002226.02101,"868,00247-0157-03 ",.02)
 ;;00247-0157-03
 ;;9002226.02101,"868,00247-0157-04 ",.01)
 ;;00247-0157-04
 ;;9002226.02101,"868,00247-0157-04 ",.02)
 ;;00247-0157-04
 ;;9002226.02101,"868,00247-0157-08 ",.01)
 ;;00247-0157-08
 ;;9002226.02101,"868,00247-0157-08 ",.02)
 ;;00247-0157-08
 ;;9002226.02101,"868,00247-0157-18 ",.01)
 ;;00247-0157-18
 ;;9002226.02101,"868,00247-0157-18 ",.02)
 ;;00247-0157-18
 ;;9002226.02101,"868,00247-0167-00 ",.01)
 ;;00247-0167-00
 ;;9002226.02101,"868,00247-0167-00 ",.02)
 ;;00247-0167-00
 ;;9002226.02101,"868,00247-0167-03 ",.01)
 ;;00247-0167-03
 ;;9002226.02101,"868,00247-0167-03 ",.02)
 ;;00247-0167-03
 ;;9002226.02101,"868,00247-0167-04 ",.01)
 ;;00247-0167-04
 ;;9002226.02101,"868,00247-0167-04 ",.02)
 ;;00247-0167-04
 ;;9002226.02101,"868,00247-0167-07 ",.01)
 ;;00247-0167-07
 ;;9002226.02101,"868,00247-0167-07 ",.02)
 ;;00247-0167-07
 ;;9002226.02101,"868,00247-0167-28 ",.01)
 ;;00247-0167-28
 ;;9002226.02101,"868,00247-0167-28 ",.02)
 ;;00247-0167-28
 ;;9002226.02101,"868,00247-0167-79 ",.01)
 ;;00247-0167-79
 ;;9002226.02101,"868,00247-0167-79 ",.02)
 ;;00247-0167-79
 ;;9002226.02101,"868,00247-0172-06 ",.01)
 ;;00247-0172-06
 ;;9002226.02101,"868,00247-0172-06 ",.02)
 ;;00247-0172-06
 ;;9002226.02101,"868,00247-0172-20 ",.01)
 ;;00247-0172-20
 ;;9002226.02101,"868,00247-0172-20 ",.02)
 ;;00247-0172-20
 ;;9002226.02101,"868,00247-0175-00 ",.01)
 ;;00247-0175-00
 ;;9002226.02101,"868,00247-0175-00 ",.02)
 ;;00247-0175-00
 ;;9002226.02101,"868,00247-0175-02 ",.01)
 ;;00247-0175-02
 ;;9002226.02101,"868,00247-0175-02 ",.02)
 ;;00247-0175-02
 ;;9002226.02101,"868,00247-0175-03 ",.01)
 ;;00247-0175-03
 ;;9002226.02101,"868,00247-0175-03 ",.02)
 ;;00247-0175-03
 ;;9002226.02101,"868,00247-0175-04 ",.01)
 ;;00247-0175-04
 ;;9002226.02101,"868,00247-0175-04 ",.02)
 ;;00247-0175-04
 ;;9002226.02101,"868,00247-0175-07 ",.01)
 ;;00247-0175-07
 ;;9002226.02101,"868,00247-0175-07 ",.02)
 ;;00247-0175-07
 ;;9002226.02101,"868,00247-0175-09 ",.01)
 ;;00247-0175-09
 ;;9002226.02101,"868,00247-0175-09 ",.02)
 ;;00247-0175-09
 ;;9002226.02101,"868,00247-0175-10 ",.01)
 ;;00247-0175-10
 ;;9002226.02101,"868,00247-0175-10 ",.02)
 ;;00247-0175-10
 ;;9002226.02101,"868,00247-0175-12 ",.01)
 ;;00247-0175-12
 ;;9002226.02101,"868,00247-0175-12 ",.02)
 ;;00247-0175-12
 ;;9002226.02101,"868,00247-0175-14 ",.01)
 ;;00247-0175-14
 ;;9002226.02101,"868,00247-0175-14 ",.02)
 ;;00247-0175-14
 ;;9002226.02101,"868,00247-0175-20 ",.01)
 ;;00247-0175-20
 ;;9002226.02101,"868,00247-0175-20 ",.02)
 ;;00247-0175-20
 ;;9002226.02101,"868,00247-0175-21 ",.01)
 ;;00247-0175-21
 ;;9002226.02101,"868,00247-0175-21 ",.02)
 ;;00247-0175-21
 ;;9002226.02101,"868,00247-0175-28 ",.01)
 ;;00247-0175-28
 ;;9002226.02101,"868,00247-0175-28 ",.02)
 ;;00247-0175-28
 ;;9002226.02101,"868,00247-0175-30 ",.01)
 ;;00247-0175-30
 ;;9002226.02101,"868,00247-0175-30 ",.02)
 ;;00247-0175-30
 ;;9002226.02101,"868,00247-0175-40 ",.01)
 ;;00247-0175-40
 ;;9002226.02101,"868,00247-0175-40 ",.02)
 ;;00247-0175-40
 ;;9002226.02101,"868,00247-0175-56 ",.01)
 ;;00247-0175-56
 ;;9002226.02101,"868,00247-0175-56 ",.02)
 ;;00247-0175-56
 ;;9002226.02101,"868,00247-0196-03 ",.01)
 ;;00247-0196-03
 ;;9002226.02101,"868,00247-0196-03 ",.02)
 ;;00247-0196-03
 ;;9002226.02101,"868,00247-0196-04 ",.01)
 ;;00247-0196-04
 ;;9002226.02101,"868,00247-0196-04 ",.02)
 ;;00247-0196-04
 ;;9002226.02101,"868,00247-0197-01 ",.01)
 ;;00247-0197-01
 ;;9002226.02101,"868,00247-0197-01 ",.02)
 ;;00247-0197-01
 ;;9002226.02101,"868,00247-0197-02 ",.01)
 ;;00247-0197-02
 ;;9002226.02101,"868,00247-0197-02 ",.02)
 ;;00247-0197-02
 ;;9002226.02101,"868,00247-0197-03 ",.01)
 ;;00247-0197-03
 ;;9002226.02101,"868,00247-0197-03 ",.02)
 ;;00247-0197-03
 ;;9002226.02101,"868,00247-0197-07 ",.01)
 ;;00247-0197-07
 ;;9002226.02101,"868,00247-0197-07 ",.02)
 ;;00247-0197-07
 ;;9002226.02101,"868,00247-0262-02 ",.01)
 ;;00247-0262-02
 ;;9002226.02101,"868,00247-0262-02 ",.02)
 ;;00247-0262-02
 ;;9002226.02101,"868,00247-0280-01 ",.01)
 ;;00247-0280-01
 ;;9002226.02101,"868,00247-0280-01 ",.02)
 ;;00247-0280-01
 ;;9002226.02101,"868,00247-0280-02 ",.01)
 ;;00247-0280-02
 ;;9002226.02101,"868,00247-0280-02 ",.02)
 ;;00247-0280-02
 ;;9002226.02101,"868,00247-0280-03 ",.01)
 ;;00247-0280-03
 ;;9002226.02101,"868,00247-0280-03 ",.02)
 ;;00247-0280-03
 ;;9002226.02101,"868,00247-0280-04 ",.01)
 ;;00247-0280-04
 ;;9002226.02101,"868,00247-0280-04 ",.02)
 ;;00247-0280-04
 ;;9002226.02101,"868,00247-0280-05 ",.01)
 ;;00247-0280-05
 ;;9002226.02101,"868,00247-0280-05 ",.02)
 ;;00247-0280-05
 ;;9002226.02101,"868,00247-0280-06 ",.01)
 ;;00247-0280-06
 ;;9002226.02101,"868,00247-0280-06 ",.02)
 ;;00247-0280-06
 ;;9002226.02101,"868,00247-0280-10 ",.01)
 ;;00247-0280-10
 ;;9002226.02101,"868,00247-0280-10 ",.02)
 ;;00247-0280-10
 ;;9002226.02101,"868,00247-0280-11 ",.01)
 ;;00247-0280-11
 ;;9002226.02101,"868,00247-0280-11 ",.02)
 ;;00247-0280-11
 ;;9002226.02101,"868,00247-0280-50 ",.01)
 ;;00247-0280-50
 ;;9002226.02101,"868,00247-0280-50 ",.02)
 ;;00247-0280-50
 ;;9002226.02101,"868,00247-0331-01 ",.01)
 ;;00247-0331-01
 ;;9002226.02101,"868,00247-0331-01 ",.02)
 ;;00247-0331-01
 ;;9002226.02101,"868,00247-0331-10 ",.01)
 ;;00247-0331-10
 ;;9002226.02101,"868,00247-0331-10 ",.02)
 ;;00247-0331-10
 ;;9002226.02101,"868,00247-0393-00 ",.01)
 ;;00247-0393-00
 ;;9002226.02101,"868,00247-0393-00 ",.02)
 ;;00247-0393-00
 ;;9002226.02101,"868,00247-0393-79 ",.01)
 ;;00247-0393-79
 ;;9002226.02101,"868,00247-0393-79 ",.02)
 ;;00247-0393-79
 ;;9002226.02101,"868,00247-0395-00 ",.01)
 ;;00247-0395-00
 ;;9002226.02101,"868,00247-0395-00 ",.02)
 ;;00247-0395-00
 ;;9002226.02101,"868,00247-0395-60 ",.01)
 ;;00247-0395-60
 ;;9002226.02101,"868,00247-0395-60 ",.02)
 ;;00247-0395-60
 ;;9002226.02101,"868,00247-0395-77 ",.01)
 ;;00247-0395-77
 ;;9002226.02101,"868,00247-0395-77 ",.02)
 ;;00247-0395-77
 ;;9002226.02101,"868,00247-0395-79 ",.01)
 ;;00247-0395-79
 ;;9002226.02101,"868,00247-0395-79 ",.02)
 ;;00247-0395-79
 ;;9002226.02101,"868,00247-0395-90 ",.01)
 ;;00247-0395-90
 ;;9002226.02101,"868,00247-0395-90 ",.02)
 ;;00247-0395-90
 ;;9002226.02101,"868,00247-0396-00 ",.01)
 ;;00247-0396-00
 ;;9002226.02101,"868,00247-0396-00 ",.02)
 ;;00247-0396-00
 ;;9002226.02101,"868,00247-0396-05 ",.01)
 ;;00247-0396-05
 ;;9002226.02101,"868,00247-0396-05 ",.02)
 ;;00247-0396-05
 ;;9002226.02101,"868,00247-0396-10 ",.01)
 ;;00247-0396-10
 ;;9002226.02101,"868,00247-0396-10 ",.02)
 ;;00247-0396-10
 ;;9002226.02101,"868,00247-0396-25 ",.01)
 ;;00247-0396-25
 ;;9002226.02101,"868,00247-0396-25 ",.02)
 ;;00247-0396-25
 ;;9002226.02101,"868,00247-0396-60 ",.01)
 ;;00247-0396-60
 ;;9002226.02101,"868,00247-0396-60 ",.02)
 ;;00247-0396-60
 ;;9002226.02101,"868,00247-0396-77 ",.01)
 ;;00247-0396-77
 ;;9002226.02101,"868,00247-0396-77 ",.02)
 ;;00247-0396-77
 ;;9002226.02101,"868,00247-0396-79 ",.01)
 ;;00247-0396-79
 ;;9002226.02101,"868,00247-0396-79 ",.02)
 ;;00247-0396-79
 ;;9002226.02101,"868,00247-0396-90 ",.01)
 ;;00247-0396-90
 ;;9002226.02101,"868,00247-0396-90 ",.02)
 ;;00247-0396-90
 ;;9002226.02101,"868,00247-0396-95 ",.01)
 ;;00247-0396-95
 ;;9002226.02101,"868,00247-0396-95 ",.02)
 ;;00247-0396-95
 ;;9002226.02101,"868,00247-0397-20 ",.01)
 ;;00247-0397-20
 ;;9002226.02101,"868,00247-0397-20 ",.02)
 ;;00247-0397-20
 ;;9002226.02101,"868,00247-0458-02 ",.01)
 ;;00247-0458-02
 ;;9002226.02101,"868,00247-0458-02 ",.02)
 ;;00247-0458-02
 ;;9002226.02101,"868,00247-0458-04 ",.01)
 ;;00247-0458-04
 ;;9002226.02101,"868,00247-0458-04 ",.02)
 ;;00247-0458-04
 ;;9002226.02101,"868,00247-0458-14 ",.01)
 ;;00247-0458-14