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

ATXXB60.m

Go to the documentation of this file.
  1. ATXXB60 ;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,072NX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,072NXYZ ",.01)
  1. ;;072NXYZ
  1. ;;9002226.02101,"1804,072NXYZ ",.02)
  1. ;;072NXYZ
  1. ;;9002226.02101,"1804,072NXYZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,072PX0Z ",.01)
  1. ;;072PX0Z
  1. ;;9002226.02101,"1804,072PX0Z ",.02)
  1. ;;072PX0Z
  1. ;;9002226.02101,"1804,072PX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,072PXYZ ",.01)
  1. ;;072PXYZ
  1. ;;9002226.02101,"1804,072PXYZ ",.02)
  1. ;;072PXYZ
  1. ;;9002226.02101,"1804,072PXYZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,072TX0Z ",.01)
  1. ;;072TX0Z
  1. ;;9002226.02101,"1804,072TX0Z ",.02)
  1. ;;072TX0Z
  1. ;;9002226.02101,"1804,072TX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,072TXYZ ",.01)
  1. ;;072TXYZ
  1. ;;9002226.02101,"1804,072TXYZ ",.02)
  1. ;;072TXYZ
  1. ;;9002226.02101,"1804,072TXYZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07HK03Z ",.01)
  1. ;;07HK03Z
  1. ;;9002226.02101,"1804,07HK03Z ",.02)
  1. ;;07HK03Z
  1. ;;9002226.02101,"1804,07HK03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07HK33Z ",.01)
  1. ;;07HK33Z
  1. ;;9002226.02101,"1804,07HK33Z ",.02)
  1. ;;07HK33Z
  1. ;;9002226.02101,"1804,07HK33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07HK43Z ",.01)
  1. ;;07HK43Z
  1. ;;9002226.02101,"1804,07HK43Z ",.02)
  1. ;;07HK43Z
  1. ;;9002226.02101,"1804,07HK43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07HL03Z ",.01)
  1. ;;07HL03Z
  1. ;;9002226.02101,"1804,07HL03Z ",.02)
  1. ;;07HL03Z
  1. ;;9002226.02101,"1804,07HL03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07HL33Z ",.01)
  1. ;;07HL33Z
  1. ;;9002226.02101,"1804,07HL33Z ",.02)
  1. ;;07HL33Z
  1. ;;9002226.02101,"1804,07HL33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07HL43Z ",.01)
  1. ;;07HL43Z
  1. ;;9002226.02101,"1804,07HL43Z ",.02)
  1. ;;07HL43Z
  1. ;;9002226.02101,"1804,07HL43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07HM03Z ",.01)
  1. ;;07HM03Z
  1. ;;9002226.02101,"1804,07HM03Z ",.02)
  1. ;;07HM03Z
  1. ;;9002226.02101,"1804,07HM03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07HM33Z ",.01)
  1. ;;07HM33Z
  1. ;;9002226.02101,"1804,07HM33Z ",.02)
  1. ;;07HM33Z
  1. ;;9002226.02101,"1804,07HM33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07HM43Z ",.01)
  1. ;;07HM43Z
  1. ;;9002226.02101,"1804,07HM43Z ",.02)
  1. ;;07HM43Z
  1. ;;9002226.02101,"1804,07HM43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07HN03Z ",.01)
  1. ;;07HN03Z
  1. ;;9002226.02101,"1804,07HN03Z ",.02)
  1. ;;07HN03Z
  1. ;;9002226.02101,"1804,07HN03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07HN33Z ",.01)
  1. ;;07HN33Z
  1. ;;9002226.02101,"1804,07HN33Z ",.02)
  1. ;;07HN33Z
  1. ;;9002226.02101,"1804,07HN33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07HN43Z ",.01)
  1. ;;07HN43Z
  1. ;;9002226.02101,"1804,07HN43Z ",.02)
  1. ;;07HN43Z
  1. ;;9002226.02101,"1804,07HN43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07HP03Z ",.01)
  1. ;;07HP03Z
  1. ;;9002226.02101,"1804,07HP03Z ",.02)
  1. ;;07HP03Z
  1. ;;9002226.02101,"1804,07HP03Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07HP33Z ",.01)
  1. ;;07HP33Z
  1. ;;9002226.02101,"1804,07HP33Z ",.02)
  1. ;;07HP33Z
  1. ;;9002226.02101,"1804,07HP33Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07HP43Z ",.01)
  1. ;;07HP43Z
  1. ;;9002226.02101,"1804,07HP43Z ",.02)
  1. ;;07HP43Z
  1. ;;9002226.02101,"1804,07HP43Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07JNXZZ ",.01)
  1. ;;07JNXZZ
  1. ;;9002226.02101,"1804,07JNXZZ ",.02)
  1. ;;07JNXZZ
  1. ;;9002226.02101,"1804,07JNXZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07JPXZZ ",.01)
  1. ;;07JPXZZ
  1. ;;9002226.02101,"1804,07JPXZZ ",.02)
  1. ;;07JPXZZ
  1. ;;9002226.02101,"1804,07JPXZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07PKX0Z ",.01)
  1. ;;07PKX0Z
  1. ;;9002226.02101,"1804,07PKX0Z ",.02)
  1. ;;07PKX0Z
  1. ;;9002226.02101,"1804,07PKX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07PKX3Z ",.01)
  1. ;;07PKX3Z
  1. ;;9002226.02101,"1804,07PKX3Z ",.02)
  1. ;;07PKX3Z
  1. ;;9002226.02101,"1804,07PKX3Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07PKXDZ ",.01)
  1. ;;07PKXDZ
  1. ;;9002226.02101,"1804,07PKXDZ ",.02)
  1. ;;07PKXDZ
  1. ;;9002226.02101,"1804,07PKXDZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07PLX0Z ",.01)
  1. ;;07PLX0Z
  1. ;;9002226.02101,"1804,07PLX0Z ",.02)
  1. ;;07PLX0Z
  1. ;;9002226.02101,"1804,07PLX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07PLX3Z ",.01)
  1. ;;07PLX3Z
  1. ;;9002226.02101,"1804,07PLX3Z ",.02)
  1. ;;07PLX3Z
  1. ;;9002226.02101,"1804,07PLX3Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07PLXDZ ",.01)
  1. ;;07PLXDZ
  1. ;;9002226.02101,"1804,07PLXDZ ",.02)
  1. ;;07PLXDZ
  1. ;;9002226.02101,"1804,07PLXDZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07PMX0Z ",.01)
  1. ;;07PMX0Z
  1. ;;9002226.02101,"1804,07PMX0Z ",.02)
  1. ;;07PMX0Z
  1. ;;9002226.02101,"1804,07PMX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07PMX3Z ",.01)
  1. ;;07PMX3Z
  1. ;;9002226.02101,"1804,07PMX3Z ",.02)
  1. ;;07PMX3Z
  1. ;;9002226.02101,"1804,07PMX3Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07PNX0Z ",.01)
  1. ;;07PNX0Z
  1. ;;9002226.02101,"1804,07PNX0Z ",.02)
  1. ;;07PNX0Z
  1. ;;9002226.02101,"1804,07PNX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07PNX3Z ",.01)
  1. ;;07PNX3Z
  1. ;;9002226.02101,"1804,07PNX3Z ",.02)
  1. ;;07PNX3Z
  1. ;;9002226.02101,"1804,07PNX3Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07PNXDZ ",.01)
  1. ;;07PNXDZ
  1. ;;9002226.02101,"1804,07PNXDZ ",.02)
  1. ;;07PNXDZ
  1. ;;9002226.02101,"1804,07PNXDZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07PPX0Z ",.01)
  1. ;;07PPX0Z
  1. ;;9002226.02101,"1804,07PPX0Z ",.02)
  1. ;;07PPX0Z
  1. ;;9002226.02101,"1804,07PPX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07PPX3Z ",.01)
  1. ;;07PPX3Z
  1. ;;9002226.02101,"1804,07PPX3Z ",.02)
  1. ;;07PPX3Z
  1. ;;9002226.02101,"1804,07PPX3Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07PTX0Z ",.01)
  1. ;;07PTX0Z
  1. ;;9002226.02101,"1804,07PTX0Z ",.02)
  1. ;;07PTX0Z
  1. ;;9002226.02101,"1804,07PTX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07WKX0Z ",.01)
  1. ;;07WKX0Z
  1. ;;9002226.02101,"1804,07WKX0Z ",.02)
  1. ;;07WKX0Z
  1. ;;9002226.02101,"1804,07WKX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07WKX3Z ",.01)
  1. ;;07WKX3Z
  1. ;;9002226.02101,"1804,07WKX3Z ",.02)
  1. ;;07WKX3Z
  1. ;;9002226.02101,"1804,07WKX3Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07WKX7Z ",.01)
  1. ;;07WKX7Z
  1. ;;9002226.02101,"1804,07WKX7Z ",.02)
  1. ;;07WKX7Z
  1. ;;9002226.02101,"1804,07WKX7Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07WKXCZ ",.01)
  1. ;;07WKXCZ
  1. ;;9002226.02101,"1804,07WKXCZ ",.02)
  1. ;;07WKXCZ
  1. ;;9002226.02101,"1804,07WKXCZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07WKXDZ ",.01)
  1. ;;07WKXDZ
  1. ;;9002226.02101,"1804,07WKXDZ ",.02)
  1. ;;07WKXDZ
  1. ;;9002226.02101,"1804,07WKXDZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07WKXJZ ",.01)
  1. ;;07WKXJZ
  1. ;;9002226.02101,"1804,07WKXJZ ",.02)
  1. ;;07WKXJZ
  1. ;;9002226.02101,"1804,07WKXJZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07WKXKZ ",.01)
  1. ;;07WKXKZ
  1. ;;9002226.02101,"1804,07WKXKZ ",.02)
  1. ;;07WKXKZ
  1. ;;9002226.02101,"1804,07WKXKZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07WLX0Z ",.01)
  1. ;;07WLX0Z
  1. ;;9002226.02101,"1804,07WLX0Z ",.02)
  1. ;;07WLX0Z
  1. ;;9002226.02101,"1804,07WLX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07WLX3Z ",.01)
  1. ;;07WLX3Z
  1. ;;9002226.02101,"1804,07WLX3Z ",.02)
  1. ;;07WLX3Z
  1. ;;9002226.02101,"1804,07WLX3Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07WLX7Z ",.01)
  1. ;;07WLX7Z
  1. ;;9002226.02101,"1804,07WLX7Z ",.02)
  1. ;;07WLX7Z
  1. ;;9002226.02101,"1804,07WLX7Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07WLXCZ ",.01)
  1. ;;07WLXCZ
  1. ;;9002226.02101,"1804,07WLXCZ ",.02)
  1. ;;07WLXCZ
  1. ;;9002226.02101,"1804,07WLXCZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07WLXDZ ",.01)
  1. ;;07WLXDZ
  1. ;;9002226.02101,"1804,07WLXDZ ",.02)
  1. ;;07WLXDZ
  1. ;;9002226.02101,"1804,07WLXDZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07WLXJZ ",.01)
  1. ;;07WLXJZ
  1. ;;9002226.02101,"1804,07WLXJZ ",.02)
  1. ;;07WLXJZ
  1. ;;9002226.02101,"1804,07WLXJZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07WLXKZ ",.01)
  1. ;;07WLXKZ
  1. ;;9002226.02101,"1804,07WLXKZ ",.02)
  1. ;;07WLXKZ
  1. ;;9002226.02101,"1804,07WLXKZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07WMX0Z ",.01)
  1. ;;07WMX0Z
  1. ;;9002226.02101,"1804,07WMX0Z ",.02)
  1. ;;07WMX0Z
  1. ;;9002226.02101,"1804,07WMX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07WMX3Z ",.01)
  1. ;;07WMX3Z
  1. ;;9002226.02101,"1804,07WMX3Z ",.02)
  1. ;;07WMX3Z
  1. ;;9002226.02101,"1804,07WMX3Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07WNX0Z ",.01)
  1. ;;07WNX0Z
  1. ;;9002226.02101,"1804,07WNX0Z ",.02)
  1. ;;07WNX0Z
  1. ;;9002226.02101,"1804,07WNX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07WNX3Z ",.01)
  1. ;;07WNX3Z
  1. ;;9002226.02101,"1804,07WNX3Z ",.02)
  1. ;;07WNX3Z
  1. ;;9002226.02101,"1804,07WNX3Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07WNX7Z ",.01)
  1. ;;07WNX7Z
  1. ;;9002226.02101,"1804,07WNX7Z ",.02)
  1. ;;07WNX7Z
  1. ;;9002226.02101,"1804,07WNX7Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07WNXCZ ",.01)
  1. ;;07WNXCZ
  1. ;;9002226.02101,"1804,07WNXCZ ",.02)
  1. ;;07WNXCZ
  1. ;;9002226.02101,"1804,07WNXCZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07WNXDZ ",.01)
  1. ;;07WNXDZ
  1. ;;9002226.02101,"1804,07WNXDZ ",.02)
  1. ;;07WNXDZ
  1. ;;9002226.02101,"1804,07WNXDZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07WNXJZ ",.01)
  1. ;;07WNXJZ
  1. ;;9002226.02101,"1804,07WNXJZ ",.02)
  1. ;;07WNXJZ
  1. ;;9002226.02101,"1804,07WNXJZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07WNXKZ ",.01)
  1. ;;07WNXKZ
  1. ;;9002226.02101,"1804,07WNXKZ ",.02)
  1. ;;07WNXKZ
  1. ;;9002226.02101,"1804,07WNXKZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07WPX0Z ",.01)
  1. ;;07WPX0Z
  1. ;;9002226.02101,"1804,07WPX0Z ",.02)
  1. ;;07WPX0Z
  1. ;;9002226.02101,"1804,07WPX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07WPX3Z ",.01)
  1. ;;07WPX3Z
  1. ;;9002226.02101,"1804,07WPX3Z ",.02)
  1. ;;07WPX3Z
  1. ;;9002226.02101,"1804,07WPX3Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,07WTX0Z ",.01)
  1. ;;07WTX0Z
  1. ;;9002226.02101,"1804,07WTX0Z ",.02)
  1. ;;07WTX0Z
  1. ;;9002226.02101,"1804,07WTX0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0820X0Z ",.01)
  1. ;;0820X0Z
  1. ;;9002226.02101,"1804,0820X0Z ",.02)
  1. ;;0820X0Z
  1. ;;9002226.02101,"1804,0820X0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0820XYZ ",.01)
  1. ;;0820XYZ
  1. ;;9002226.02101,"1804,0820XYZ ",.02)
  1. ;;0820XYZ
  1. ;;9002226.02101,"1804,0820XYZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0821X0Z ",.01)
  1. ;;0821X0Z
  1. ;;9002226.02101,"1804,0821X0Z ",.02)
  1. ;;0821X0Z
  1. ;;9002226.02101,"1804,0821X0Z ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,0821XYZ ",.01)
  1. ;;0821XYZ
  1. ;;9002226.02101,"1804,0821XYZ ",.02)
  1. ;;0821XYZ
  1. ;;9002226.02101,"1804,0821XYZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08C0XZZ ",.01)
  1. ;;08C0XZZ
  1. ;;9002226.02101,"1804,08C0XZZ ",.02)
  1. ;;08C0XZZ
  1. ;;9002226.02101,"1804,08C0XZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08C1XZZ ",.01)
  1. ;;08C1XZZ
  1. ;;9002226.02101,"1804,08C1XZZ ",.02)
  1. ;;08C1XZZ
  1. ;;9002226.02101,"1804,08C1XZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08C2XZZ ",.01)
  1. ;;08C2XZZ
  1. ;;9002226.02101,"1804,08C2XZZ ",.02)
  1. ;;08C2XZZ
  1. ;;9002226.02101,"1804,08C2XZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08C3XZZ ",.01)
  1. ;;08C3XZZ
  1. ;;9002226.02101,"1804,08C3XZZ ",.02)
  1. ;;08C3XZZ
  1. ;;9002226.02101,"1804,08C3XZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08C6XZZ ",.01)
  1. ;;08C6XZZ
  1. ;;9002226.02101,"1804,08C6XZZ ",.02)
  1. ;;08C6XZZ
  1. ;;9002226.02101,"1804,08C6XZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08C7XZZ ",.01)
  1. ;;08C7XZZ
  1. ;;9002226.02101,"1804,08C7XZZ ",.02)
  1. ;;08C7XZZ
  1. ;;9002226.02101,"1804,08C7XZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08CNXZZ ",.01)
  1. ;;08CNXZZ
  1. ;;9002226.02101,"1804,08CNXZZ ",.02)
  1. ;;08CNXZZ
  1. ;;9002226.02101,"1804,08CNXZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08CPXZZ ",.01)
  1. ;;08CPXZZ
  1. ;;9002226.02101,"1804,08CPXZZ ",.02)
  1. ;;08CPXZZ
  1. ;;9002226.02101,"1804,08CPXZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08CQXZZ ",.01)
  1. ;;08CQXZZ
  1. ;;9002226.02101,"1804,08CQXZZ ",.02)
  1. ;;08CQXZZ
  1. ;;9002226.02101,"1804,08CQXZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08CRXZZ ",.01)
  1. ;;08CRXZZ
  1. ;;9002226.02101,"1804,08CRXZZ ",.02)
  1. ;;08CRXZZ
  1. ;;9002226.02101,"1804,08CRXZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08F4XZZ ",.01)
  1. ;;08F4XZZ
  1. ;;9002226.02101,"1804,08F4XZZ ",.02)
  1. ;;08F4XZZ
  1. ;;9002226.02101,"1804,08F4XZZ ",.03)
  1. ;;31
  1. ;;9002226.02101,"1804,08F5XZZ ",.01)
  1. ;;08F5XZZ
  1. ;;9002226.02101,"1804,08F5XZZ ",.02)
  1. ;;08F5XZZ
  1. ;;9002226.02101,"1804,08F5XZZ ",.03)
  1. ;;31