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

BJPC2UKC.m

Go to the documentation of this file.
  1. BJPC2UKC ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 17, 2009;
  1. ;;2.0;IHS PCC SUITE;;MAY 14, 2009
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"751,00173-0602-00 ",.02)
  1. ;;00173-0602-00
  1. ;;9002226.02101,"751,00173-0602-02 ",.01)
  1. ;;00173-0602-02
  1. ;;9002226.02101,"751,00173-0602-02 ",.02)
  1. ;;00173-0602-02
  1. ;;9002226.02101,"751,00173-0695-00 ",.01)
  1. ;;00173-0695-00
  1. ;;9002226.02101,"751,00173-0695-00 ",.02)
  1. ;;00173-0695-00
  1. ;;9002226.02101,"751,00173-0695-02 ",.01)
  1. ;;00173-0695-02
  1. ;;9002226.02101,"751,00173-0695-02 ",.02)
  1. ;;00173-0695-02
  1. ;;9002226.02101,"751,00173-0696-00 ",.01)
  1. ;;00173-0696-00
  1. ;;9002226.02101,"751,00173-0696-00 ",.02)
  1. ;;00173-0696-00
  1. ;;9002226.02101,"751,00173-0696-02 ",.01)
  1. ;;00173-0696-02
  1. ;;9002226.02101,"751,00173-0696-02 ",.02)
  1. ;;00173-0696-02
  1. ;;9002226.02101,"751,00173-0697-00 ",.01)
  1. ;;00173-0697-00
  1. ;;9002226.02101,"751,00173-0697-00 ",.02)
  1. ;;00173-0697-00
  1. ;;9002226.02101,"751,00173-0697-02 ",.01)
  1. ;;00173-0697-02
  1. ;;9002226.02101,"751,00173-0697-02 ",.02)
  1. ;;00173-0697-02
  1. ;;9002226.02101,"751,00173-7010-00 ",.01)
  1. ;;00173-7010-00
  1. ;;9002226.02101,"751,00173-7010-00 ",.02)
  1. ;;00173-7010-00
  1. ;;9002226.02101,"751,00173-7010-01 ",.01)
  1. ;;00173-7010-01
  1. ;;9002226.02101,"751,00173-7010-01 ",.02)
  1. ;;00173-7010-01
  1. ;;9002226.02101,"751,00173-7010-02 ",.01)
  1. ;;00173-7010-02
  1. ;;9002226.02101,"751,00173-7010-02 ",.02)
  1. ;;00173-7010-02
  1. ;;9002226.02101,"751,00173-7011-00 ",.01)
  1. ;;00173-7011-00
  1. ;;9002226.02101,"751,00173-7011-00 ",.02)
  1. ;;00173-7011-00
  1. ;;9002226.02101,"751,00173-7011-01 ",.01)
  1. ;;00173-7011-01
  1. ;;9002226.02101,"751,00173-7011-01 ",.02)
  1. ;;00173-7011-01
  1. ;;9002226.02101,"751,00173-7011-02 ",.01)
  1. ;;00173-7011-02
  1. ;;9002226.02101,"751,00173-7011-02 ",.02)
  1. ;;00173-7011-02
  1. ;;9002226.02101,"751,00173-7012-00 ",.01)
  1. ;;00173-7012-00
  1. ;;9002226.02101,"751,00173-7012-00 ",.02)
  1. ;;00173-7012-00
  1. ;;9002226.02101,"751,00173-7012-01 ",.01)
  1. ;;00173-7012-01
  1. ;;9002226.02101,"751,00173-7012-01 ",.02)
  1. ;;00173-7012-01
  1. ;;9002226.02101,"751,00173-7012-02 ",.01)
  1. ;;00173-7012-02
  1. ;;9002226.02101,"751,00173-7012-02 ",.02)
  1. ;;00173-7012-02
  1. ;;9002226.02101,"751,00179-1228-20 ",.01)
  1. ;;00179-1228-20
  1. ;;9002226.02101,"751,00179-1228-20 ",.02)
  1. ;;00179-1228-20
  1. ;;9002226.02101,"751,00186-0915-42 ",.01)
  1. ;;00186-0915-42
  1. ;;9002226.02101,"751,00186-0915-42 ",.02)
  1. ;;00186-0915-42
  1. ;;9002226.02101,"751,00186-1988-04 ",.01)
  1. ;;00186-1988-04
  1. ;;9002226.02101,"751,00186-1988-04 ",.02)
  1. ;;00186-1988-04
  1. ;;9002226.02101,"751,00186-1989-04 ",.01)
  1. ;;00186-1989-04
  1. ;;9002226.02101,"751,00186-1989-04 ",.02)
  1. ;;00186-1989-04
  1. ;;9002226.02101,"751,00247-0190-20 ",.01)
  1. ;;00247-0190-20
  1. ;;9002226.02101,"751,00247-0190-20 ",.02)
  1. ;;00247-0190-20
  1. ;;9002226.02101,"751,00456-0670-99 ",.01)
  1. ;;00456-0670-99
  1. ;;9002226.02101,"751,00456-0670-99 ",.02)
  1. ;;00456-0670-99
  1. ;;9002226.02101,"751,00456-0672-99 ",.01)
  1. ;;00456-0672-99
  1. ;;9002226.02101,"751,00456-0672-99 ",.02)
  1. ;;00456-0672-99
  1. ;;9002226.02101,"751,00801-0060-37 ",.01)
  1. ;;00801-0060-37
  1. ;;9002226.02101,"751,00801-0060-37 ",.02)
  1. ;;00801-0060-37
  1. ;;9002226.02101,"751,00801-0060-39 ",.01)
  1. ;;00801-0060-39
  1. ;;9002226.02101,"751,00801-0060-39 ",.02)
  1. ;;00801-0060-39
  1. ;;9002226.02101,"751,17270-0574-37 ",.01)
  1. ;;17270-0574-37
  1. ;;9002226.02101,"751,17270-0574-37 ",.02)
  1. ;;17270-0574-37
  1. ;;9002226.02101,"751,17270-0574-39 ",.01)
  1. ;;17270-0574-39
  1. ;;9002226.02101,"751,17270-0574-39 ",.02)
  1. ;;17270-0574-39
  1. ;;9002226.02101,"751,50580-0175-40 ",.01)
  1. ;;50580-0175-40
  1. ;;9002226.02101,"751,50580-0175-40 ",.02)
  1. ;;50580-0175-40
  1. ;;9002226.02101,"751,50580-0177-80 ",.01)
  1. ;;50580-0177-80
  1. ;;9002226.02101,"751,50580-0177-80 ",.02)
  1. ;;50580-0177-80
  1. ;;9002226.02101,"751,51947-3600-01 ",.01)
  1. ;;51947-3600-01
  1. ;;9002226.02101,"751,51947-3600-01 ",.02)
  1. ;;51947-3600-01
  1. ;;9002226.02101,"751,51947-3601-02 ",.01)
  1. ;;51947-3601-02
  1. ;;9002226.02101,"751,51947-3601-02 ",.02)
  1. ;;51947-3601-02
  1. ;;9002226.02101,"751,51947-3602-03 ",.01)
  1. ;;51947-3602-03
  1. ;;9002226.02101,"751,51947-3602-03 ",.02)
  1. ;;51947-3602-03
  1. ;;9002226.02101,"751,51947-3603-04 ",.01)
  1. ;;51947-3603-04
  1. ;;9002226.02101,"751,51947-3603-04 ",.02)
  1. ;;51947-3603-04
  1. ;;9002226.02101,"751,52493-0888-17 ",.01)
  1. ;;52493-0888-17
  1. ;;9002226.02101,"751,52493-0888-17 ",.02)
  1. ;;52493-0888-17
  1. ;;9002226.02101,"751,52959-0131-00 ",.01)
  1. ;;52959-0131-00
  1. ;;9002226.02101,"751,52959-0131-00 ",.02)
  1. ;;52959-0131-00
  1. ;;9002226.02101,"751,52959-0286-03 ",.01)
  1. ;;52959-0286-03
  1. ;;9002226.02101,"751,52959-0286-03 ",.02)
  1. ;;52959-0286-03
  1. ;;9002226.02101,"751,52959-0596-01 ",.01)
  1. ;;52959-0596-01
  1. ;;9002226.02101,"751,52959-0596-01 ",.02)
  1. ;;52959-0596-01
  1. ;;9002226.02101,"751,52959-0598-01 ",.01)
  1. ;;52959-0598-01
  1. ;;9002226.02101,"751,52959-0598-01 ",.02)
  1. ;;52959-0598-01
  1. ;;9002226.02101,"751,52959-1447-01 ",.01)
  1. ;;52959-1447-01
  1. ;;9002226.02101,"751,52959-1447-01 ",.02)
  1. ;;52959-1447-01
  1. ;;9002226.02101,"751,52959-1466-01 ",.01)
  1. ;;52959-1466-01
  1. ;;9002226.02101,"751,52959-1466-01 ",.02)
  1. ;;52959-1466-01
  1. ;;9002226.02101,"751,54569-0053-00 ",.01)
  1. ;;54569-0053-00
  1. ;;9002226.02101,"751,54569-0053-00 ",.02)
  1. ;;54569-0053-00
  1. ;;9002226.02101,"751,54569-0067-00 ",.01)
  1. ;;54569-0067-00
  1. ;;9002226.02101,"751,54569-0067-00 ",.02)
  1. ;;54569-0067-00
  1. ;;9002226.02101,"751,54569-1004-00 ",.01)
  1. ;;54569-1004-00