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

ATXXB61.m

Go to the documentation of this file.
  1. ATXXB61 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 2014;
  1. ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
  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,"1804,08H031Z ",.01)
  1. ;;08H031Z
  1. ;;9002226.02101,"1804,08H031Z ",.02)
  1. ;;08H031Z
  1. ;;9002226.02101,"1804,08H031Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08H0X1Z ",.01)
  1. ;;08H0X1Z
  1. ;;9002226.02101,"1804,08H0X1Z ",.02)
  1. ;;08H0X1Z
  1. ;;9002226.02101,"1804,08H0X1Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08H131Z ",.01)
  1. ;;08H131Z
  1. ;;9002226.02101,"1804,08H131Z ",.02)
  1. ;;08H131Z
  1. ;;9002226.02101,"1804,08H131Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08H1X1Z ",.01)
  1. ;;08H1X1Z
  1. ;;9002226.02101,"1804,08H1X1Z ",.02)
  1. ;;08H1X1Z
  1. ;;9002226.02101,"1804,08H1X1Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08J0XZZ ",.01)
  1. ;;08J0XZZ
  1. ;;9002226.02101,"1804,08J0XZZ ",.02)
  1. ;;08J0XZZ
  1. ;;9002226.02101,"1804,08J0XZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08J1XZZ ",.01)
  1. ;;08J1XZZ
  1. ;;9002226.02101,"1804,08J1XZZ ",.02)
  1. ;;08J1XZZ
  1. ;;9002226.02101,"1804,08J1XZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08P0X0Z ",.01)
  1. ;;08P0X0Z
  1. ;;9002226.02101,"1804,08P0X0Z ",.02)
  1. ;;08P0X0Z
  1. ;;9002226.02101,"1804,08P0X0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08P0X3Z ",.01)
  1. ;;08P0X3Z
  1. ;;9002226.02101,"1804,08P0X3Z ",.02)
  1. ;;08P0X3Z
  1. ;;9002226.02101,"1804,08P0X3Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08P0XCZ ",.01)
  1. ;;08P0XCZ
  1. ;;9002226.02101,"1804,08P0XCZ ",.02)
  1. ;;08P0XCZ
  1. ;;9002226.02101,"1804,08P0XCZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08P0XDZ ",.01)
  1. ;;08P0XDZ
  1. ;;9002226.02101,"1804,08P0XDZ ",.02)
  1. ;;08P0XDZ
  1. ;;9002226.02101,"1804,08P0XDZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08P0XJZ ",.01)
  1. ;;08P0XJZ
  1. ;;9002226.02101,"1804,08P0XJZ ",.02)
  1. ;;08P0XJZ
  1. ;;9002226.02101,"1804,08P0XJZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08P1X0Z ",.01)
  1. ;;08P1X0Z
  1. ;;9002226.02101,"1804,08P1X0Z ",.02)
  1. ;;08P1X0Z
  1. ;;9002226.02101,"1804,08P1X0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08P1X1Z ",.01)
  1. ;;08P1X1Z
  1. ;;9002226.02101,"1804,08P1X1Z ",.02)
  1. ;;08P1X1Z
  1. ;;9002226.02101,"1804,08P1X1Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08P1X3Z ",.01)
  1. ;;08P1X3Z
  1. ;;9002226.02101,"1804,08P1X3Z ",.02)
  1. ;;08P1X3Z
  1. ;;9002226.02101,"1804,08P1X3Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08P1XCZ ",.01)
  1. ;;08P1XCZ
  1. ;;9002226.02101,"1804,08P1XCZ ",.02)
  1. ;;08P1XCZ
  1. ;;9002226.02101,"1804,08P1XCZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08P1XDZ ",.01)
  1. ;;08P1XDZ
  1. ;;9002226.02101,"1804,08P1XDZ ",.02)
  1. ;;08P1XDZ
  1. ;;9002226.02101,"1804,08P1XDZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08P1XJZ ",.01)
  1. ;;08P1XJZ
  1. ;;9002226.02101,"1804,08P1XJZ ",.02)
  1. ;;08P1XJZ
  1. ;;9002226.02101,"1804,08P1XJZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08W0X0Z ",.01)
  1. ;;08W0X0Z
  1. ;;9002226.02101,"1804,08W0X0Z ",.02)
  1. ;;08W0X0Z
  1. ;;9002226.02101,"1804,08W0X0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08W0X3Z ",.01)
  1. ;;08W0X3Z
  1. ;;9002226.02101,"1804,08W0X3Z ",.02)
  1. ;;08W0X3Z
  1. ;;9002226.02101,"1804,08W0X3Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08W0X7Z ",.01)
  1. ;;08W0X7Z
  1. ;;9002226.02101,"1804,08W0X7Z ",.02)
  1. ;;08W0X7Z
  1. ;;9002226.02101,"1804,08W0X7Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08W0XCZ ",.01)
  1. ;;08W0XCZ
  1. ;;9002226.02101,"1804,08W0XCZ ",.02)
  1. ;;08W0XCZ
  1. ;;9002226.02101,"1804,08W0XCZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08W0XDZ ",.01)
  1. ;;08W0XDZ
  1. ;;9002226.02101,"1804,08W0XDZ ",.02)
  1. ;;08W0XDZ
  1. ;;9002226.02101,"1804,08W0XDZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08W0XJZ ",.01)
  1. ;;08W0XJZ
  1. ;;9002226.02101,"1804,08W0XJZ ",.02)
  1. ;;08W0XJZ
  1. ;;9002226.02101,"1804,08W0XJZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08W0XKZ ",.01)
  1. ;;08W0XKZ
  1. ;;9002226.02101,"1804,08W0XKZ ",.02)
  1. ;;08W0XKZ
  1. ;;9002226.02101,"1804,08W0XKZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08W1X0Z ",.01)
  1. ;;08W1X0Z
  1. ;;9002226.02101,"1804,08W1X0Z ",.02)
  1. ;;08W1X0Z
  1. ;;9002226.02101,"1804,08W1X0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08W1X3Z ",.01)
  1. ;;08W1X3Z
  1. ;;9002226.02101,"1804,08W1X3Z ",.02)
  1. ;;08W1X3Z
  1. ;;9002226.02101,"1804,08W1X3Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08W1X7Z ",.01)
  1. ;;08W1X7Z
  1. ;;9002226.02101,"1804,08W1X7Z ",.02)
  1. ;;08W1X7Z
  1. ;;9002226.02101,"1804,08W1X7Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08W1XCZ ",.01)
  1. ;;08W1XCZ
  1. ;;9002226.02101,"1804,08W1XCZ ",.02)
  1. ;;08W1XCZ
  1. ;;9002226.02101,"1804,08W1XCZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08W1XDZ ",.01)
  1. ;;08W1XDZ
  1. ;;9002226.02101,"1804,08W1XDZ ",.02)
  1. ;;08W1XDZ
  1. ;;9002226.02101,"1804,08W1XDZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08W1XJZ ",.01)
  1. ;;08W1XJZ
  1. ;;9002226.02101,"1804,08W1XJZ ",.02)
  1. ;;08W1XJZ
  1. ;;9002226.02101,"1804,08W1XJZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08W1XKZ ",.01)
  1. ;;08W1XKZ
  1. ;;9002226.02101,"1804,08W1XKZ ",.02)
  1. ;;08W1XKZ
  1. ;;9002226.02101,"1804,08W1XKZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08WJXJZ ",.01)
  1. ;;08WJXJZ
  1. ;;9002226.02101,"1804,08WJXJZ ",.02)
  1. ;;08WJXJZ
  1. ;;9002226.02101,"1804,08WJXJZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08WKXJZ ",.01)
  1. ;;08WKXJZ
  1. ;;9002226.02101,"1804,08WKXJZ ",.02)
  1. ;;08WKXJZ
  1. ;;9002226.02101,"1804,08WKXJZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,092HX0Z ",.01)
  1. ;;092HX0Z
  1. ;;9002226.02101,"1804,092HX0Z ",.02)
  1. ;;092HX0Z
  1. ;;9002226.02101,"1804,092HX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,092HXYZ ",.01)
  1. ;;092HXYZ
  1. ;;9002226.02101,"1804,092HXYZ ",.02)
  1. ;;092HXYZ
  1. ;;9002226.02101,"1804,092HXYZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,092JX0Z ",.01)
  1. ;;092JX0Z
  1. ;;9002226.02101,"1804,092JX0Z ",.02)
  1. ;;092JX0Z
  1. ;;9002226.02101,"1804,092JX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,092JXYZ ",.01)
  1. ;;092JXYZ
  1. ;;9002226.02101,"1804,092JXYZ ",.02)
  1. ;;092JXYZ
  1. ;;9002226.02101,"1804,092JXYZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,092KX0Z ",.01)
  1. ;;092KX0Z
  1. ;;9002226.02101,"1804,092KX0Z ",.02)
  1. ;;092KX0Z
  1. ;;9002226.02101,"1804,092KX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,092KXYZ ",.01)
  1. ;;092KXYZ
  1. ;;9002226.02101,"1804,092KXYZ ",.02)
  1. ;;092KXYZ
  1. ;;9002226.02101,"1804,092KXYZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,092YX0Z ",.01)
  1. ;;092YX0Z
  1. ;;9002226.02101,"1804,092YX0Z ",.02)
  1. ;;092YX0Z
  1. ;;9002226.02101,"1804,092YX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,092YXYZ ",.01)
  1. ;;092YXYZ
  1. ;;9002226.02101,"1804,092YXYZ ",.02)
  1. ;;092YXYZ
  1. ;;9002226.02101,"1804,092YXYZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09C0XZZ ",.01)
  1. ;;09C0XZZ
  1. ;;9002226.02101,"1804,09C0XZZ ",.02)
  1. ;;09C0XZZ
  1. ;;9002226.02101,"1804,09C0XZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09C1XZZ ",.01)
  1. ;;09C1XZZ
  1. ;;9002226.02101,"1804,09C1XZZ ",.02)
  1. ;;09C1XZZ
  1. ;;9002226.02101,"1804,09C1XZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09C37ZZ ",.01)
  1. ;;09C37ZZ
  1. ;;9002226.02101,"1804,09C37ZZ ",.02)
  1. ;;09C37ZZ
  1. ;;9002226.02101,"1804,09C37ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09C38ZZ ",.01)
  1. ;;09C38ZZ
  1. ;;9002226.02101,"1804,09C38ZZ ",.02)
  1. ;;09C38ZZ
  1. ;;9002226.02101,"1804,09C38ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09C3XZZ ",.01)
  1. ;;09C3XZZ
  1. ;;9002226.02101,"1804,09C3XZZ ",.02)
  1. ;;09C3XZZ
  1. ;;9002226.02101,"1804,09C3XZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09C47ZZ ",.01)
  1. ;;09C47ZZ
  1. ;;9002226.02101,"1804,09C47ZZ ",.02)
  1. ;;09C47ZZ
  1. ;;9002226.02101,"1804,09C47ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09C48ZZ ",.01)
  1. ;;09C48ZZ
  1. ;;9002226.02101,"1804,09C48ZZ ",.02)
  1. ;;09C48ZZ
  1. ;;9002226.02101,"1804,09C48ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09C4XZZ ",.01)
  1. ;;09C4XZZ
  1. ;;9002226.02101,"1804,09C4XZZ ",.02)
  1. ;;09C4XZZ
  1. ;;9002226.02101,"1804,09C4XZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09CF7ZZ ",.01)
  1. ;;09CF7ZZ
  1. ;;9002226.02101,"1804,09CF7ZZ ",.02)
  1. ;;09CF7ZZ
  1. ;;9002226.02101,"1804,09CF7ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09CF8ZZ ",.01)
  1. ;;09CF8ZZ
  1. ;;9002226.02101,"1804,09CF8ZZ ",.02)
  1. ;;09CF8ZZ
  1. ;;9002226.02101,"1804,09CF8ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09CG7ZZ ",.01)
  1. ;;09CG7ZZ
  1. ;;9002226.02101,"1804,09CG7ZZ ",.02)
  1. ;;09CG7ZZ
  1. ;;9002226.02101,"1804,09CG7ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09CG8ZZ ",.01)
  1. ;;09CG8ZZ
  1. ;;9002226.02101,"1804,09CG8ZZ ",.02)
  1. ;;09CG8ZZ
  1. ;;9002226.02101,"1804,09CG8ZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09CKXZZ ",.01)
  1. ;;09CKXZZ
  1. ;;9002226.02101,"1804,09CKXZZ ",.02)
  1. ;;09CKXZZ
  1. ;;9002226.02101,"1804,09CKXZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09HN7BZ ",.01)
  1. ;;09HN7BZ
  1. ;;9002226.02101,"1804,09HN7BZ ",.02)
  1. ;;09HN7BZ
  1. ;;9002226.02101,"1804,09HN7BZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09HN8BZ ",.01)
  1. ;;09HN8BZ
  1. ;;9002226.02101,"1804,09HN8BZ ",.02)
  1. ;;09HN8BZ
  1. ;;9002226.02101,"1804,09HN8BZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09JYXZZ ",.01)
  1. ;;09JYXZZ
  1. ;;9002226.02101,"1804,09JYXZZ ",.02)
  1. ;;09JYXZZ
  1. ;;9002226.02101,"1804,09JYXZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09P7X0Z ",.01)
  1. ;;09P7X0Z
  1. ;;9002226.02101,"1804,09P7X0Z ",.02)
  1. ;;09P7X0Z
  1. ;;9002226.02101,"1804,09P7X0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09P8X0Z ",.01)
  1. ;;09P8X0Z
  1. ;;9002226.02101,"1804,09P8X0Z ",.02)
  1. ;;09P8X0Z
  1. ;;9002226.02101,"1804,09P8X0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09PHX0Z ",.01)
  1. ;;09PHX0Z
  1. ;;9002226.02101,"1804,09PHX0Z ",.02)
  1. ;;09PHX0Z
  1. ;;9002226.02101,"1804,09PHX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09PHXDZ ",.01)
  1. ;;09PHXDZ
  1. ;;9002226.02101,"1804,09PHXDZ ",.02)
  1. ;;09PHXDZ
  1. ;;9002226.02101,"1804,09PHXDZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09PHXJZ ",.01)
  1. ;;09PHXJZ
  1. ;;9002226.02101,"1804,09PHXJZ ",.02)
  1. ;;09PHXJZ
  1. ;;9002226.02101,"1804,09PHXJZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09PHXKZ ",.01)
  1. ;;09PHXKZ
  1. ;;9002226.02101,"1804,09PHXKZ ",.02)
  1. ;;09PHXKZ
  1. ;;9002226.02101,"1804,09PHXKZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09PJX0Z ",.01)
  1. ;;09PJX0Z
  1. ;;9002226.02101,"1804,09PJX0Z ",.02)
  1. ;;09PJX0Z
  1. ;;9002226.02101,"1804,09PJX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09PJXDZ ",.01)
  1. ;;09PJXDZ
  1. ;;9002226.02101,"1804,09PJXDZ ",.02)
  1. ;;09PJXDZ
  1. ;;9002226.02101,"1804,09PJXDZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09PJXJZ ",.01)
  1. ;;09PJXJZ
  1. ;;9002226.02101,"1804,09PJXJZ ",.02)
  1. ;;09PJXJZ
  1. ;;9002226.02101,"1804,09PJXJZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09PJXKZ ",.01)
  1. ;;09PJXKZ
  1. ;;9002226.02101,"1804,09PJXKZ ",.02)
  1. ;;09PJXKZ
  1. ;;9002226.02101,"1804,09PJXKZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09PK7DZ ",.01)
  1. ;;09PK7DZ
  1. ;;9002226.02101,"1804,09PK7DZ ",.02)
  1. ;;09PK7DZ
  1. ;;9002226.02101,"1804,09PK7DZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09PK8DZ ",.01)
  1. ;;09PK8DZ
  1. ;;9002226.02101,"1804,09PK8DZ ",.02)
  1. ;;09PK8DZ
  1. ;;9002226.02101,"1804,09PK8DZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09PKX0Z ",.01)
  1. ;;09PKX0Z
  1. ;;9002226.02101,"1804,09PKX0Z ",.02)
  1. ;;09PKX0Z
  1. ;;9002226.02101,"1804,09PKX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09PKXDZ ",.01)
  1. ;;09PKXDZ
  1. ;;9002226.02101,"1804,09PKXDZ ",.02)
  1. ;;09PKXDZ
  1. ;;9002226.02101,"1804,09PKXDZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09PKXJZ ",.01)
  1. ;;09PKXJZ
  1. ;;9002226.02101,"1804,09PKXJZ ",.02)
  1. ;;09PKXJZ
  1. ;;9002226.02101,"1804,09PKXJZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09PKXKZ ",.01)
  1. ;;09PKXKZ
  1. ;;9002226.02101,"1804,09PKXKZ ",.02)
  1. ;;09PKXKZ
  1. ;;9002226.02101,"1804,09PKXKZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09PYX0Z ",.01)
  1. ;;09PYX0Z
  1. ;;9002226.02101,"1804,09PYX0Z ",.02)
  1. ;;09PYX0Z
  1. ;;9002226.02101,"1804,09PYX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09WHX0Z ",.01)
  1. ;;09WHX0Z
  1. ;;9002226.02101,"1804,09WHX0Z ",.02)
  1. ;;09WHX0Z
  1. ;;9002226.02101,"1804,09WHX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09WHX7Z ",.01)
  1. ;;09WHX7Z
  1. ;;9002226.02101,"1804,09WHX7Z ",.02)
  1. ;;09WHX7Z
  1. ;;9002226.02101,"1804,09WHX7Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09WHXDZ ",.01)
  1. ;;09WHXDZ
  1. ;;9002226.02101,"1804,09WHXDZ ",.02)
  1. ;;09WHXDZ
  1. ;;9002226.02101,"1804,09WHXDZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09WHXJZ ",.01)
  1. ;;09WHXJZ
  1. ;;9002226.02101,"1804,09WHXJZ ",.02)
  1. ;;09WHXJZ
  1. ;;9002226.02101,"1804,09WHXJZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,09WHXKZ ",.01)
  1. ;;09WHXKZ