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

BGP05X6.m

Go to the documentation of this file.
BGP05X6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
 ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
 ;
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,"686,00781-8840-01 ",.02)
 ;;00781-8840-01
 ;;9002226.02101,"686,00781-8841-01 ",.01)
 ;;00781-8841-01
 ;;9002226.02101,"686,00781-8841-01 ",.02)
 ;;00781-8841-01
 ;;9002226.02101,"686,00781-8842-01 ",.01)
 ;;00781-8842-01
 ;;9002226.02101,"686,00781-8842-01 ",.02)
 ;;00781-8842-01
 ;;9002226.02101,"686,00781-8842-10 ",.01)
 ;;00781-8842-10
 ;;9002226.02101,"686,00781-8842-10 ",.02)
 ;;00781-8842-10
 ;;9002226.02101,"686,00781-8843-01 ",.01)
 ;;00781-8843-01
 ;;9002226.02101,"686,00781-8843-01 ",.02)
 ;;00781-8843-01
 ;;9002226.02101,"686,00904-0614-60 ",.01)
 ;;00904-0614-60
 ;;9002226.02101,"686,00904-0614-60 ",.02)
 ;;00904-0614-60
 ;;9002226.02101,"686,00904-0614-80 ",.01)
 ;;00904-0614-80
 ;;9002226.02101,"686,00904-0614-80 ",.02)
 ;;00904-0614-80
 ;;9002226.02101,"686,00904-0618-60 ",.01)
 ;;00904-0618-60
 ;;9002226.02101,"686,00904-0618-60 ",.02)
 ;;00904-0618-60
 ;;9002226.02101,"686,00904-0618-70 ",.01)
 ;;00904-0618-70
 ;;9002226.02101,"686,00904-0618-70 ",.02)
 ;;00904-0618-70
 ;;9002226.02101,"686,00904-2768-60 ",.01)
 ;;00904-2768-60
 ;;9002226.02101,"686,00904-2768-60 ",.02)
 ;;00904-2768-60
 ;;9002226.02101,"686,00904-2768-80 ",.01)
 ;;00904-2768-80
 ;;9002226.02101,"686,00904-2768-80 ",.02)
 ;;00904-2768-80
 ;;9002226.02101,"686,00904-2769-60 ",.01)
 ;;00904-2769-60
 ;;9002226.02101,"686,00904-2769-60 ",.02)
 ;;00904-2769-60
 ;;9002226.02101,"686,00904-2769-80 ",.01)
 ;;00904-2769-80
 ;;9002226.02101,"686,00904-2769-80 ",.02)
 ;;00904-2769-80
 ;;9002226.02101,"686,00904-2770-60 ",.01)
 ;;00904-2770-60
 ;;9002226.02101,"686,00904-2770-60 ",.02)
 ;;00904-2770-60
 ;;9002226.02101,"686,00904-2770-80 ",.01)
 ;;00904-2770-80
 ;;9002226.02101,"686,00904-2770-80 ",.02)
 ;;00904-2770-80
 ;;9002226.02101,"686,00904-2773-60 ",.01)
 ;;00904-2773-60
 ;;9002226.02101,"686,00904-2773-60 ",.02)
 ;;00904-2773-60
 ;;9002226.02101,"686,00904-3921-60 ",.01)
 ;;00904-3921-60
 ;;9002226.02101,"686,00904-3921-60 ",.02)
 ;;00904-3921-60
 ;;9002226.02101,"686,00904-3921-80 ",.01)
 ;;00904-3921-80
 ;;9002226.02101,"686,00904-3921-80 ",.02)
 ;;00904-3921-80
 ;;9002226.02101,"686,00904-4270-80 ",.01)
 ;;00904-4270-80
 ;;9002226.02101,"686,00904-4270-80 ",.02)
 ;;00904-4270-80
 ;;9002226.02101,"686,10702-0025-01 ",.01)
 ;;10702-0025-01
 ;;9002226.02101,"686,10702-0025-01 ",.02)
 ;;10702-0025-01
 ;;9002226.02101,"686,10702-0025-03 ",.01)
 ;;10702-0025-03
 ;;9002226.02101,"686,10702-0025-03 ",.02)
 ;;10702-0025-03
 ;;9002226.02101,"686,10702-0025-10 ",.01)
 ;;10702-0025-10
 ;;9002226.02101,"686,10702-0025-10 ",.02)
 ;;10702-0025-10
 ;;9002226.02101,"686,10702-0026-01 ",.01)
 ;;10702-0026-01
 ;;9002226.02101,"686,10702-0026-01 ",.02)
 ;;10702-0026-01
 ;;9002226.02101,"686,10702-0026-10 ",.01)
 ;;10702-0026-10
 ;;9002226.02101,"686,10702-0026-10 ",.02)
 ;;10702-0026-10
 ;;9002226.02101,"686,10702-0027-01 ",.01)
 ;;10702-0027-01
 ;;9002226.02101,"686,10702-0027-01 ",.02)
 ;;10702-0027-01
 ;;9002226.02101,"686,10702-0027-10 ",.01)
 ;;10702-0027-10
 ;;9002226.02101,"686,10702-0027-10 ",.02)
 ;;10702-0027-10
 ;;9002226.02101,"686,10702-0028-01 ",.01)
 ;;10702-0028-01
 ;;9002226.02101,"686,10702-0028-01 ",.02)
 ;;10702-0028-01
 ;;9002226.02101,"686,10702-0028-10 ",.01)
 ;;10702-0028-10
 ;;9002226.02101,"686,10702-0028-10 ",.02)
 ;;10702-0028-10
 ;;9002226.02101,"686,10702-0029-01 ",.01)
 ;;10702-0029-01
 ;;9002226.02101,"686,10702-0029-01 ",.02)
 ;;10702-0029-01
 ;;9002226.02101,"686,10702-0029-10 ",.01)
 ;;10702-0029-10
 ;;9002226.02101,"686,10702-0029-10 ",.02)
 ;;10702-0029-10
 ;;9002226.02101,"686,11808-0555-01 ",.01)
 ;;11808-0555-01
 ;;9002226.02101,"686,11808-0555-01 ",.02)
 ;;11808-0555-01
 ;;9002226.02101,"686,12280-0085-07 ",.01)
 ;;12280-0085-07
 ;;9002226.02101,"686,12280-0085-07 ",.02)
 ;;12280-0085-07
 ;;9002226.02101,"686,12280-0085-14 ",.01)
 ;;12280-0085-14
 ;;9002226.02101,"686,12280-0085-14 ",.02)
 ;;12280-0085-14
 ;;9002226.02101,"686,12280-0135-00 ",.01)
 ;;12280-0135-00
 ;;9002226.02101,"686,12280-0135-00 ",.02)
 ;;12280-0135-00
 ;;9002226.02101,"686,12280-0231-00 ",.01)
 ;;12280-0231-00
 ;;9002226.02101,"686,12280-0231-00 ",.02)
 ;;12280-0231-00
 ;;9002226.02101,"686,14629-0117-16 ",.01)
 ;;14629-0117-16
 ;;9002226.02101,"686,14629-0117-16 ",.02)
 ;;14629-0117-16
 ;;9002226.02101,"686,16590-0185-30 ",.01)
 ;;16590-0185-30
 ;;9002226.02101,"686,16590-0185-30 ",.02)
 ;;16590-0185-30
 ;;9002226.02101,"686,16590-0185-60 ",.01)
 ;;16590-0185-60
 ;;9002226.02101,"686,16590-0185-60 ",.02)
 ;;16590-0185-60
 ;;9002226.02101,"686,16590-0186-30 ",.01)
 ;;16590-0186-30
 ;;9002226.02101,"686,16590-0186-30 ",.02)
 ;;16590-0186-30
 ;;9002226.02101,"686,16590-0186-60 ",.01)
 ;;16590-0186-60
 ;;9002226.02101,"686,16590-0186-60 ",.02)
 ;;16590-0186-60
 ;;9002226.02101,"686,17314-5850-02 ",.01)
 ;;17314-5850-02
 ;;9002226.02101,"686,17314-5850-02 ",.02)
 ;;17314-5850-02
 ;;9002226.02101,"686,17314-5851-02 ",.01)
 ;;17314-5851-02
 ;;9002226.02101,"686,17314-5851-02 ",.02)
 ;;17314-5851-02
 ;;9002226.02101,"686,17314-5852-02 ",.01)
 ;;17314-5852-02
 ;;9002226.02101,"686,17314-5852-02 ",.02)
 ;;17314-5852-02
 ;;9002226.02101,"686,17314-5853-02 ",.01)
 ;;17314-5853-02
 ;;9002226.02101,"686,17314-5853-02 ",.02)
 ;;17314-5853-02
 ;;9002226.02101,"686,21695-0509-00 ",.01)
 ;;21695-0509-00
 ;;9002226.02101,"686,21695-0509-00 ",.02)
 ;;21695-0509-00
 ;;9002226.02101,"686,21695-0510-30 ",.01)
 ;;21695-0510-30
 ;;9002226.02101,"686,21695-0510-30 ",.02)
 ;;21695-0510-30
 ;;9002226.02101,"686,21695-0597-07 ",.01)
 ;;21695-0597-07
 ;;9002226.02101,"686,21695-0597-07 ",.02)
 ;;21695-0597-07
 ;;9002226.02101,"686,21695-0597-60 ",.01)
 ;;21695-0597-60
 ;;9002226.02101,"686,21695-0597-60 ",.02)
 ;;21695-0597-60
 ;;9002226.02101,"686,23490-5133-01 ",.01)
 ;;23490-5133-01
 ;;9002226.02101,"686,23490-5133-01 ",.02)
 ;;23490-5133-01
 ;;9002226.02101,"686,23490-5133-02 ",.01)
 ;;23490-5133-02
 ;;9002226.02101,"686,23490-5133-02 ",.02)
 ;;23490-5133-02
 ;;9002226.02101,"686,23490-5133-03 ",.01)
 ;;23490-5133-03
 ;;9002226.02101,"686,23490-5133-03 ",.02)
 ;;23490-5133-03
 ;;9002226.02101,"686,23490-5434-01 ",.01)
 ;;23490-5434-01
 ;;9002226.02101,"686,23490-5434-01 ",.02)
 ;;23490-5434-01
 ;;9002226.02101,"686,23490-5434-02 ",.01)
 ;;23490-5434-02
 ;;9002226.02101,"686,23490-5434-02 ",.02)
 ;;23490-5434-02
 ;;9002226.02101,"686,23490-5434-03 ",.01)
 ;;23490-5434-03
 ;;9002226.02101,"686,23490-5434-03 ",.02)
 ;;23490-5434-03
 ;;9002226.02101,"686,23490-5434-04 ",.01)
 ;;23490-5434-04
 ;;9002226.02101,"686,23490-5434-04 ",.02)
 ;;23490-5434-04
 ;;9002226.02101,"686,23490-5434-05 ",.01)
 ;;23490-5434-05
 ;;9002226.02101,"686,23490-5434-05 ",.02)
 ;;23490-5434-05
 ;;9002226.02101,"686,23490-5434-06 ",.01)
 ;;23490-5434-06
 ;;9002226.02101,"686,23490-5434-06 ",.02)
 ;;23490-5434-06
 ;;9002226.02101,"686,23490-5434-07 ",.01)
 ;;23490-5434-07
 ;;9002226.02101,"686,23490-5434-07 ",.02)
 ;;23490-5434-07
 ;;9002226.02101,"686,23490-5435-01 ",.01)
 ;;23490-5435-01
 ;;9002226.02101,"686,23490-5435-01 ",.02)
 ;;23490-5435-01
 ;;9002226.02101,"686,23490-5435-02 ",.01)
 ;;23490-5435-02
 ;;9002226.02101,"686,23490-5435-02 ",.02)
 ;;23490-5435-02
 ;;9002226.02101,"686,23490-5435-03 ",.01)
 ;;23490-5435-03
 ;;9002226.02101,"686,23490-5435-03 ",.02)
 ;;23490-5435-03
 ;;9002226.02101,"686,23490-5435-04 ",.01)
 ;;23490-5435-04
 ;;9002226.02101,"686,23490-5435-04 ",.02)
 ;;23490-5435-04
 ;;9002226.02101,"686,23490-6081-01 ",.01)
 ;;23490-6081-01
 ;;9002226.02101,"686,23490-6081-01 ",.02)
 ;;23490-6081-01
 ;;9002226.02101,"686,23490-6081-02 ",.01)
 ;;23490-6081-02
 ;;9002226.02101,"686,23490-6081-02 ",.02)
 ;;23490-6081-02
 ;;9002226.02101,"686,23490-6081-03 ",.01)
 ;;23490-6081-03
 ;;9002226.02101,"686,23490-6081-03 ",.02)
 ;;23490-6081-03
 ;;9002226.02101,"686,23490-6081-04 ",.01)
 ;;23490-6081-04
 ;;9002226.02101,"686,23490-6081-04 ",.02)
 ;;23490-6081-04
 ;;9002226.02101,"686,23490-6082-01 ",.01)
 ;;23490-6082-01
 ;;9002226.02101,"686,23490-6082-01 ",.02)
 ;;23490-6082-01
 ;;9002226.02101,"686,23490-6082-02 ",.01)
 ;;23490-6082-02
 ;;9002226.02101,"686,23490-6082-02 ",.02)
 ;;23490-6082-02
 ;;9002226.02101,"686,23490-6082-03 ",.01)
 ;;23490-6082-03
 ;;9002226.02101,"686,23490-6082-03 ",.02)
 ;;23490-6082-03
 ;;9002226.02101,"686,23490-6082-04 ",.01)
 ;;23490-6082-04
 ;;9002226.02101,"686,23490-6082-04 ",.02)
 ;;23490-6082-04
 ;;9002226.02101,"686,23490-6082-05 ",.01)
 ;;23490-6082-05
 ;;9002226.02101,"686,23490-6082-05 ",.02)
 ;;23490-6082-05
 ;;9002226.02101,"686,23490-6082-06 ",.01)
 ;;23490-6082-06
 ;;9002226.02101,"686,23490-6082-06 ",.02)
 ;;23490-6082-06
 ;;9002226.02101,"686,23490-6082-07 ",.01)
 ;;23490-6082-07
 ;;9002226.02101,"686,23490-6082-07 ",.02)
 ;;23490-6082-07
 ;;9002226.02101,"686,23490-6082-08 ",.01)
 ;;23490-6082-08
 ;;9002226.02101,"686,23490-6082-08 ",.02)
 ;;23490-6082-08
 ;;9002226.02101,"686,23490-6090-01 ",.01)
 ;;23490-6090-01
 ;;9002226.02101,"686,23490-6090-01 ",.02)
 ;;23490-6090-01
 ;;9002226.02101,"686,23490-6090-02 ",.01)
 ;;23490-6090-02
 ;;9002226.02101,"686,23490-6090-02 ",.02)
 ;;23490-6090-02
 ;;9002226.02101,"686,23490-6090-03 ",.01)
 ;;23490-6090-03
 ;;9002226.02101,"686,23490-6090-03 ",.02)
 ;;23490-6090-03
 ;;9002226.02101,"686,23490-6090-04 ",.01)
 ;;23490-6090-04
 ;;9002226.02101,"686,23490-6090-04 ",.02)
 ;;23490-6090-04
 ;;9002226.02101,"686,23490-6090-06 ",.01)
 ;;23490-6090-06
 ;;9002226.02101,"686,23490-6090-06 ",.02)
 ;;23490-6090-06
 ;;9002226.02101,"686,23490-6092-00 ",.01)
 ;;23490-6092-00
 ;;9002226.02101,"686,23490-6092-00 ",.02)
 ;;23490-6092-00
 ;;9002226.02101,"686,23490-6092-01 ",.01)
 ;;23490-6092-01
 ;;9002226.02101,"686,23490-6092-01 ",.02)
 ;;23490-6092-01
 ;;9002226.02101,"686,23490-6092-03 ",.01)
 ;;23490-6092-03
 ;;9002226.02101,"686,23490-6092-03 ",.02)
 ;;23490-6092-03
 ;;9002226.02101,"686,23490-6092-06 ",.01)
 ;;23490-6092-06
 ;;9002226.02101,"686,23490-6092-06 ",.02)
 ;;23490-6092-06
 ;;9002226.02101,"686,23490-6092-07 ",.01)
 ;;23490-6092-07
 ;;9002226.02101,"686,23490-6092-07 ",.02)
 ;;23490-6092-07
 ;;9002226.02101,"686,23490-6092-08 ",.01)
 ;;23490-6092-08
 ;;9002226.02101,"686,23490-6092-08 ",.02)
 ;;23490-6092-08
 ;;9002226.02101,"686,23490-6092-09 ",.01)
 ;;23490-6092-09
 ;;9002226.02101,"686,23490-6092-09 ",.02)
 ;;23490-6092-09
 ;;9002226.02101,"686,23490-6094-00 ",.01)
 ;;23490-6094-00
 ;;9002226.02101,"686,23490-6094-00 ",.02)
 ;;23490-6094-00
 ;;9002226.02101,"686,23490-6094-01 ",.01)
 ;;23490-6094-01
 ;;9002226.02101,"686,23490-6094-01 ",.02)
 ;;23490-6094-01
 ;;9002226.02101,"686,23490-6094-02 ",.01)
 ;;23490-6094-02
 ;;9002226.02101,"686,23490-6094-02 ",.02)
 ;;23490-6094-02
 ;;9002226.02101,"686,23490-6094-03 ",.01)
 ;;23490-6094-03
 ;;9002226.02101,"686,23490-6094-03 ",.02)
 ;;23490-6094-03
 ;;9002226.02101,"686,23490-6094-04 ",.01)
 ;;23490-6094-04
 ;;9002226.02101,"686,23490-6094-04 ",.02)
 ;;23490-6094-04
 ;;9002226.02101,"686,23490-6094-05 ",.01)
 ;;23490-6094-05
 ;;9002226.02101,"686,23490-6094-05 ",.02)
 ;;23490-6094-05
 ;;9002226.02101,"686,23490-6094-06 ",.01)
 ;;23490-6094-06
 ;;9002226.02101,"686,23490-6094-06 ",.02)
 ;;23490-6094-06
 ;;9002226.02101,"686,23490-6094-09 ",.01)
 ;;23490-6094-09
 ;;9002226.02101,"686,23490-6094-09 ",.02)
 ;;23490-6094-09
 ;;9002226.02101,"686,23490-7240-00 ",.01)
 ;;23490-7240-00
 ;;9002226.02101,"686,23490-7240-00 ",.02)
 ;;23490-7240-00
 ;;9002226.02101,"686,23490-7240-01 ",.01)
 ;;23490-7240-01
 ;;9002226.02101,"686,23490-7240-01 ",.02)
 ;;23490-7240-01
 ;;9002226.02101,"686,23490-7240-02 ",.01)
 ;;23490-7240-02
 ;;9002226.02101,"686,23490-7240-02 ",.02)
 ;;23490-7240-02
 ;;9002226.02101,"686,23490-7240-03 ",.01)
 ;;23490-7240-03
 ;;9002226.02101,"686,23490-7240-03 ",.02)
 ;;23490-7240-03
 ;;9002226.02101,"686,23490-7240-04 ",.01)
 ;;23490-7240-04
 ;;9002226.02101,"686,23490-7240-04 ",.02)
 ;;23490-7240-04
 ;;9002226.02101,"686,23490-7921-01 ",.01)
 ;;23490-7921-01
 ;;9002226.02101,"686,23490-7921-01 ",.02)
 ;;23490-7921-01
 ;;9002226.02101,"686,23490-7921-02 ",.01)
 ;;23490-7921-02
 ;;9002226.02101,"686,23490-7921-02 ",.02)
 ;;23490-7921-02
 ;;9002226.02101,"686,23490-7921-03 ",.01)
 ;;23490-7921-03
 ;;9002226.02101,"686,23490-7921-03 ",.02)
 ;;23490-7921-03
 ;;9002226.02101,"686,23490-7921-04 ",.01)
 ;;23490-7921-04
 ;;9002226.02101,"686,23490-7921-04 ",.02)
 ;;23490-7921-04
 ;;9002226.02101,"686,23490-7954-03 ",.01)
 ;;23490-7954-03
 ;;9002226.02101,"686,23490-7954-03 ",.02)
 ;;23490-7954-03
 ;;9002226.02101,"686,23490-7955-03 ",.01)
 ;;23490-7955-03
 ;;9002226.02101,"686,23490-7955-03 ",.02)
 ;;23490-7955-03
 ;;9002226.02101,"686,23490-7973-03 ",.01)
 ;;23490-7973-03
 ;;9002226.02101,"686,23490-7973-03 ",.02)
 ;;23490-7973-03
 ;;9002226.02101,"686,23490-7974-03 ",.01)
 ;;23490-7974-03
 ;;9002226.02101,"686,23490-7974-03 ",.02)
 ;;23490-7974-03
 ;;9002226.02101,"686,23490-7975-06 ",.01)
 ;;23490-7975-06
 ;;9002226.02101,"686,23490-7975-06 ",.02)
 ;;23490-7975-06
 ;;9002226.02101,"686,23589-0036-16 ",.01)
 ;;23589-0036-16
 ;;9002226.02101,"686,23589-0036-16 ",.02)
 ;;23589-0036-16
 ;;9002226.02101,"686,25332-1113-01 ",.01)
 ;;25332-1113-01
 ;;9002226.02101,"686,25332-1113-01 ",.02)
 ;;25332-1113-01
 ;;9002226.02101,"686,33358-0287-15 ",.01)
 ;;33358-0287-15
 ;;9002226.02101,"686,33358-0287-15 ",.02)
 ;;33358-0287-15
 ;;9002226.02101,"686,33358-0287-30 ",.01)
 ;;33358-0287-30