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

ATXXB44.m

Go to the documentation of this file.
ATXXB44 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON APR 29, 2014;
 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
 ;
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)
 ;;21,"HZ31ZZZ ")
 ;;16843
 ;;21,"HZ32ZZZ ")
 ;;16844
 ;;21,"HZ33ZZZ ")
 ;;16845
 ;;21,"HZ34ZZZ ")
 ;;16846
 ;;21,"HZ35ZZZ ")
 ;;16847
 ;;21,"HZ36ZZZ ")
 ;;16848
 ;;21,"HZ37ZZZ ")
 ;;16849
 ;;21,"HZ38ZZZ ")
 ;;16850
 ;;21,"HZ39ZZZ ")
 ;;16851
 ;;21,"HZ3BZZZ ")
 ;;16852
 ;;21,"HZ3CZZZ ")
 ;;16853
 ;;21,"HZ40ZZZ ")
 ;;16854
 ;;21,"HZ41ZZZ ")
 ;;16855
 ;;21,"HZ42ZZZ ")
 ;;16856
 ;;21,"HZ43ZZZ ")
 ;;16857
 ;;21,"HZ44ZZZ ")
 ;;16858
 ;;21,"HZ45ZZZ ")
 ;;16859
 ;;21,"HZ46ZZZ ")
 ;;16860
 ;;21,"HZ47ZZZ ")
 ;;16861
 ;;21,"HZ48ZZZ ")
 ;;16862
 ;;21,"HZ49ZZZ ")
 ;;16863
 ;;21,"HZ4BZZZ ")
 ;;16864
 ;;21,"HZ4CZZZ ")
 ;;16865
 ;;21,"HZ50ZZZ ")
 ;;16866
 ;;21,"HZ51ZZZ ")
 ;;16867
 ;;21,"HZ52ZZZ ")
 ;;16868
 ;;21,"HZ53ZZZ ")
 ;;16869
 ;;21,"HZ54ZZZ ")
 ;;16870
 ;;21,"HZ55ZZZ ")
 ;;16871
 ;;21,"HZ56ZZZ ")
 ;;16872
 ;;21,"HZ57ZZZ ")
 ;;16873
 ;;21,"HZ58ZZZ ")
 ;;16874
 ;;21,"HZ59ZZZ ")
 ;;16875
 ;;21,"HZ5BZZZ ")
 ;;16876
 ;;21,"HZ5CZZZ ")
 ;;16877
 ;;21,"HZ5DZZZ ")
 ;;16878
 ;;21,"HZ63ZZZ ")
 ;;16879
 ;;21,"HZ80ZZZ ")
 ;;16880
 ;;21,"HZ81ZZZ ")
 ;;16881
 ;;21,"HZ82ZZZ ")
 ;;16882
 ;;21,"HZ83ZZZ ")
 ;;16883
 ;;21,"HZ84ZZZ ")
 ;;16884
 ;;21,"HZ85ZZZ ")
 ;;16885
 ;;21,"HZ86ZZZ ")
 ;;16886
 ;;21,"HZ87ZZZ ")
 ;;16887
 ;;21,"HZ88ZZZ ")
 ;;16888
 ;;21,"HZ89ZZZ ")
 ;;16889
 ;;21,"HZ90ZZZ ")
 ;;16890
 ;;21,"HZ91ZZZ ")
 ;;16891
 ;;21,"HZ92ZZZ ")
 ;;16892
 ;;21,"HZ93ZZZ ")
 ;;16893
 ;;21,"HZ94ZZZ ")
 ;;16894
 ;;21,"HZ95ZZZ ")
 ;;16895
 ;;21,"HZ96ZZZ ")
 ;;16896
 ;;21,"HZ97ZZZ ")
 ;;16897
 ;;21,"HZ98ZZZ ")
 ;;16898
 ;;21,"HZ99ZZZ ")
 ;;16899
 ;;9002226,1804,.01)
 ;;APCH MINOR SURGICAL PROCS
 ;;9002226,1804,.02)
 ;;@
 ;;9002226,1804,.04)
 ;;n
 ;;9002226,1804,.06)
 ;;@
 ;;9002226,1804,.08)
 ;;0
 ;;9002226,1804,.09)
 ;;3131113
 ;;9002226,1804,.11)
 ;;@
 ;;9002226,1804,.12)
 ;;255
 ;;9002226,1804,.13)
 ;;1
 ;;9002226,1804,.14)
 ;;@
 ;;9002226,1804,.15)
 ;;80.1
 ;;9002226,1804,.16)
 ;;@
 ;;9002226,1804,.17)
 ;;@
 ;;9002226,1804,3101)
 ;;@
 ;;9002226.02101,"1804,0020X0Z ",.01)
 ;;0020X0Z 
 ;;9002226.02101,"1804,0020X0Z ",.02)
 ;;0020X0Z 
 ;;9002226.02101,"1804,0020X0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,0020XYZ ",.01)
 ;;0020XYZ 
 ;;9002226.02101,"1804,0020XYZ ",.02)
 ;;0020XYZ 
 ;;9002226.02101,"1804,0020XYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,002EX0Z ",.01)
 ;;002EX0Z 
 ;;9002226.02101,"1804,002EX0Z ",.02)
 ;;002EX0Z 
 ;;9002226.02101,"1804,002EX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,002EXYZ ",.01)
 ;;002EXYZ 
 ;;9002226.02101,"1804,002EXYZ ",.02)
 ;;002EXYZ 
 ;;9002226.02101,"1804,002EXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,002UX0Z ",.01)
 ;;002UX0Z 
 ;;9002226.02101,"1804,002UX0Z ",.02)
 ;;002UX0Z 
 ;;9002226.02101,"1804,002UX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,002UXYZ ",.01)
 ;;002UXYZ 
 ;;9002226.02101,"1804,002UXYZ ",.02)
 ;;002UXYZ 
 ;;9002226.02101,"1804,002UXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,00F3XZZ ",.01)
 ;;00F3XZZ 
 ;;9002226.02101,"1804,00F3XZZ ",.02)
 ;;00F3XZZ 
 ;;9002226.02101,"1804,00F3XZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,00F4XZZ ",.01)
 ;;00F4XZZ 
 ;;9002226.02101,"1804,00F4XZZ ",.02)
 ;;00F4XZZ 
 ;;9002226.02101,"1804,00F4XZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,00F5XZZ ",.01)
 ;;00F5XZZ 
 ;;9002226.02101,"1804,00F5XZZ ",.02)
 ;;00F5XZZ 
 ;;9002226.02101,"1804,00F5XZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,00F6XZZ ",.01)
 ;;00F6XZZ 
 ;;9002226.02101,"1804,00F6XZZ ",.02)
 ;;00F6XZZ 
 ;;9002226.02101,"1804,00F6XZZ ",.03)
 ;;31
 ;;9002226.02101,"1804,00P0X0Z ",.01)
 ;;00P0X0Z 
 ;;9002226.02101,"1804,00P0X0Z ",.02)
 ;;00P0X0Z 
 ;;9002226.02101,"1804,00P0X0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00P0X2Z ",.01)
 ;;00P0X2Z 
 ;;9002226.02101,"1804,00P0X2Z ",.02)
 ;;00P0X2Z 
 ;;9002226.02101,"1804,00P0X2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00P0X3Z ",.01)
 ;;00P0X3Z 
 ;;9002226.02101,"1804,00P0X3Z ",.02)
 ;;00P0X3Z 
 ;;9002226.02101,"1804,00P0X3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00P0XMZ ",.01)
 ;;00P0XMZ 
 ;;9002226.02101,"1804,00P0XMZ ",.02)
 ;;00P0XMZ 
 ;;9002226.02101,"1804,00P0XMZ ",.03)
 ;;31
 ;;9002226.02101,"1804,00P6X0Z ",.01)
 ;;00P6X0Z 
 ;;9002226.02101,"1804,00P6X0Z ",.02)
 ;;00P6X0Z 
 ;;9002226.02101,"1804,00P6X0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00P6X3Z ",.01)
 ;;00P6X3Z 
 ;;9002226.02101,"1804,00P6X3Z ",.02)
 ;;00P6X3Z 
 ;;9002226.02101,"1804,00P6X3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00PEX0Z ",.01)
 ;;00PEX0Z 
 ;;9002226.02101,"1804,00PEX0Z ",.02)
 ;;00PEX0Z 
 ;;9002226.02101,"1804,00PEX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00PEX2Z ",.01)
 ;;00PEX2Z 
 ;;9002226.02101,"1804,00PEX2Z ",.02)
 ;;00PEX2Z 
 ;;9002226.02101,"1804,00PEX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00PEX3Z ",.01)
 ;;00PEX3Z 
 ;;9002226.02101,"1804,00PEX3Z ",.02)
 ;;00PEX3Z 
 ;;9002226.02101,"1804,00PEX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00PUX0Z ",.01)
 ;;00PUX0Z 
 ;;9002226.02101,"1804,00PUX0Z ",.02)
 ;;00PUX0Z 
 ;;9002226.02101,"1804,00PUX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00PUX2Z ",.01)
 ;;00PUX2Z 
 ;;9002226.02101,"1804,00PUX2Z ",.02)
 ;;00PUX2Z 
 ;;9002226.02101,"1804,00PUX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00PUX3Z ",.01)
 ;;00PUX3Z 
 ;;9002226.02101,"1804,00PUX3Z ",.02)
 ;;00PUX3Z 
 ;;9002226.02101,"1804,00PUX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00PUXMZ ",.01)
 ;;00PUXMZ 
 ;;9002226.02101,"1804,00PUXMZ ",.02)
 ;;00PUXMZ 
 ;;9002226.02101,"1804,00PUXMZ ",.03)
 ;;31
 ;;9002226.02101,"1804,00PVX0Z ",.01)
 ;;00PVX0Z 
 ;;9002226.02101,"1804,00PVX0Z ",.02)
 ;;00PVX0Z 
 ;;9002226.02101,"1804,00PVX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00PVX2Z ",.01)
 ;;00PVX2Z 
 ;;9002226.02101,"1804,00PVX2Z ",.02)
 ;;00PVX2Z 
 ;;9002226.02101,"1804,00PVX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00PVX3Z ",.01)
 ;;00PVX3Z 
 ;;9002226.02101,"1804,00PVX3Z ",.02)
 ;;00PVX3Z 
 ;;9002226.02101,"1804,00PVX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00PVXMZ ",.01)
 ;;00PVXMZ 
 ;;9002226.02101,"1804,00PVXMZ ",.02)
 ;;00PVXMZ 
 ;;9002226.02101,"1804,00PVXMZ ",.03)
 ;;31
 ;;9002226.02101,"1804,00W0X0Z ",.01)
 ;;00W0X0Z 
 ;;9002226.02101,"1804,00W0X0Z ",.02)
 ;;00W0X0Z 
 ;;9002226.02101,"1804,00W0X0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00W0X2Z ",.01)
 ;;00W0X2Z 
 ;;9002226.02101,"1804,00W0X2Z ",.02)
 ;;00W0X2Z 
 ;;9002226.02101,"1804,00W0X2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00W0X3Z ",.01)
 ;;00W0X3Z 
 ;;9002226.02101,"1804,00W0X3Z ",.02)
 ;;00W0X3Z 
 ;;9002226.02101,"1804,00W0X3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00W0X7Z ",.01)
 ;;00W0X7Z 
 ;;9002226.02101,"1804,00W0X7Z ",.02)
 ;;00W0X7Z 
 ;;9002226.02101,"1804,00W0X7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00W0XJZ ",.01)
 ;;00W0XJZ 
 ;;9002226.02101,"1804,00W0XJZ ",.02)
 ;;00W0XJZ 
 ;;9002226.02101,"1804,00W0XJZ ",.03)
 ;;31
 ;;9002226.02101,"1804,00W0XKZ ",.01)
 ;;00W0XKZ 
 ;;9002226.02101,"1804,00W0XKZ ",.02)
 ;;00W0XKZ 
 ;;9002226.02101,"1804,00W0XKZ ",.03)
 ;;31
 ;;9002226.02101,"1804,00W0XMZ ",.01)
 ;;00W0XMZ 
 ;;9002226.02101,"1804,00W0XMZ ",.02)
 ;;00W0XMZ 
 ;;9002226.02101,"1804,00W0XMZ ",.03)
 ;;31
 ;;9002226.02101,"1804,00W6X0Z ",.01)
 ;;00W6X0Z 
 ;;9002226.02101,"1804,00W6X0Z ",.02)
 ;;00W6X0Z 
 ;;9002226.02101,"1804,00W6X0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00W6X2Z ",.01)
 ;;00W6X2Z 
 ;;9002226.02101,"1804,00W6X2Z ",.02)
 ;;00W6X2Z 
 ;;9002226.02101,"1804,00W6X2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00W6X3Z ",.01)
 ;;00W6X3Z 
 ;;9002226.02101,"1804,00W6X3Z ",.02)
 ;;00W6X3Z 
 ;;9002226.02101,"1804,00W6X3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00W6XJZ ",.01)
 ;;00W6XJZ 
 ;;9002226.02101,"1804,00W6XJZ ",.02)
 ;;00W6XJZ 
 ;;9002226.02101,"1804,00W6XJZ ",.03)
 ;;31
 ;;9002226.02101,"1804,00W6XMZ ",.01)
 ;;00W6XMZ 
 ;;9002226.02101,"1804,00W6XMZ ",.02)
 ;;00W6XMZ 
 ;;9002226.02101,"1804,00W6XMZ ",.03)
 ;;31
 ;;9002226.02101,"1804,00WEX0Z ",.01)
 ;;00WEX0Z 
 ;;9002226.02101,"1804,00WEX0Z ",.02)
 ;;00WEX0Z 
 ;;9002226.02101,"1804,00WEX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00WEX2Z ",.01)
 ;;00WEX2Z 
 ;;9002226.02101,"1804,00WEX2Z ",.02)
 ;;00WEX2Z 
 ;;9002226.02101,"1804,00WEX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00WEX3Z ",.01)
 ;;00WEX3Z 
 ;;9002226.02101,"1804,00WEX3Z ",.02)
 ;;00WEX3Z 
 ;;9002226.02101,"1804,00WEX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00WEX7Z ",.01)
 ;;00WEX7Z 
 ;;9002226.02101,"1804,00WEX7Z ",.02)
 ;;00WEX7Z 
 ;;9002226.02101,"1804,00WEX7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00WEXMZ ",.01)
 ;;00WEXMZ 
 ;;9002226.02101,"1804,00WEXMZ ",.02)
 ;;00WEXMZ 
 ;;9002226.02101,"1804,00WEXMZ ",.03)
 ;;31
 ;;9002226.02101,"1804,00WUX0Z ",.01)
 ;;00WUX0Z 
 ;;9002226.02101,"1804,00WUX0Z ",.02)
 ;;00WUX0Z 
 ;;9002226.02101,"1804,00WUX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00WUX2Z ",.01)
 ;;00WUX2Z 
 ;;9002226.02101,"1804,00WUX2Z ",.02)
 ;;00WUX2Z 
 ;;9002226.02101,"1804,00WUX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00WUX3Z ",.01)
 ;;00WUX3Z 
 ;;9002226.02101,"1804,00WUX3Z ",.02)
 ;;00WUX3Z 
 ;;9002226.02101,"1804,00WUX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00WUXJZ ",.01)
 ;;00WUXJZ 
 ;;9002226.02101,"1804,00WUXJZ ",.02)
 ;;00WUXJZ 
 ;;9002226.02101,"1804,00WUXJZ ",.03)
 ;;31
 ;;9002226.02101,"1804,00WUXMZ ",.01)
 ;;00WUXMZ 
 ;;9002226.02101,"1804,00WUXMZ ",.02)
 ;;00WUXMZ 
 ;;9002226.02101,"1804,00WUXMZ ",.03)
 ;;31
 ;;9002226.02101,"1804,00WVX0Z ",.01)
 ;;00WVX0Z 
 ;;9002226.02101,"1804,00WVX0Z ",.02)
 ;;00WVX0Z 
 ;;9002226.02101,"1804,00WVX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00WVX2Z ",.01)
 ;;00WVX2Z 
 ;;9002226.02101,"1804,00WVX2Z ",.02)
 ;;00WVX2Z 
 ;;9002226.02101,"1804,00WVX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00WVX3Z ",.01)
 ;;00WVX3Z 
 ;;9002226.02101,"1804,00WVX3Z ",.02)
 ;;00WVX3Z 
 ;;9002226.02101,"1804,00WVX3Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00WVX7Z ",.01)
 ;;00WVX7Z 
 ;;9002226.02101,"1804,00WVX7Z ",.02)
 ;;00WVX7Z 
 ;;9002226.02101,"1804,00WVX7Z ",.03)
 ;;31
 ;;9002226.02101,"1804,00WVXJZ ",.01)
 ;;00WVXJZ 
 ;;9002226.02101,"1804,00WVXJZ ",.02)
 ;;00WVXJZ 
 ;;9002226.02101,"1804,00WVXJZ ",.03)
 ;;31
 ;;9002226.02101,"1804,00WVXKZ ",.01)
 ;;00WVXKZ 
 ;;9002226.02101,"1804,00WVXKZ ",.02)
 ;;00WVXKZ 
 ;;9002226.02101,"1804,00WVXKZ ",.03)
 ;;31
 ;;9002226.02101,"1804,00WVXMZ ",.01)
 ;;00WVXMZ 
 ;;9002226.02101,"1804,00WVXMZ ",.02)
 ;;00WVXMZ 
 ;;9002226.02101,"1804,00WVXMZ ",.03)
 ;;31
 ;;9002226.02101,"1804,012YX0Z ",.01)
 ;;012YX0Z 
 ;;9002226.02101,"1804,012YX0Z ",.02)
 ;;012YX0Z 
 ;;9002226.02101,"1804,012YX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,012YXYZ ",.01)
 ;;012YXYZ 
 ;;9002226.02101,"1804,012YXYZ ",.02)
 ;;012YXYZ 
 ;;9002226.02101,"1804,012YXYZ ",.03)
 ;;31
 ;;9002226.02101,"1804,01PYX0Z ",.01)
 ;;01PYX0Z 
 ;;9002226.02101,"1804,01PYX0Z ",.02)
 ;;01PYX0Z 
 ;;9002226.02101,"1804,01PYX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,01PYX2Z ",.01)
 ;;01PYX2Z 
 ;;9002226.02101,"1804,01PYX2Z ",.02)
 ;;01PYX2Z 
 ;;9002226.02101,"1804,01PYX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,01PYXMZ ",.01)
 ;;01PYXMZ 
 ;;9002226.02101,"1804,01PYXMZ ",.02)
 ;;01PYXMZ 
 ;;9002226.02101,"1804,01PYXMZ ",.03)
 ;;31
 ;;9002226.02101,"1804,01WYX0Z ",.01)
 ;;01WYX0Z 
 ;;9002226.02101,"1804,01WYX0Z ",.02)
 ;;01WYX0Z 
 ;;9002226.02101,"1804,01WYX0Z ",.03)
 ;;31
 ;;9002226.02101,"1804,01WYX2Z ",.01)
 ;;01WYX2Z 
 ;;9002226.02101,"1804,01WYX2Z ",.02)
 ;;01WYX2Z 
 ;;9002226.02101,"1804,01WYX2Z ",.03)
 ;;31
 ;;9002226.02101,"1804,01WYX7Z ",.01)
 ;;01WYX7Z 
 ;;9002226.02101,"1804,01WYX7Z ",.02)
 ;;01WYX7Z