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

ATXFCJ3.m

Go to the documentation of this file.
ATXFCJ3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON DEC 19, 2017;
 ;;5.1;TAXONOMY;**25**;FEB 04, 1997;Build 47
 ;
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,"O99.325 ")
 ;;833
 ;;21,"O99.330 ")
 ;;834
 ;;21,"O99.331 ")
 ;;835
 ;;21,"O99.332 ")
 ;;836
 ;;21,"O99.333 ")
 ;;837
 ;;21,"O99.334 ")
 ;;838
 ;;21,"O99.335 ")
 ;;839
 ;;21,"O99.340 ")
 ;;840
 ;;21,"O99.341 ")
 ;;841
 ;;21,"O99.342 ")
 ;;842
 ;;21,"O99.343 ")
 ;;843
 ;;21,"O99.344 ")
 ;;844
 ;;21,"O99.345 ")
 ;;845
 ;;21,"O99.350 ")
 ;;846
 ;;21,"O99.351 ")
 ;;847
 ;;21,"O99.352 ")
 ;;848
 ;;21,"O99.353 ")
 ;;849
 ;;21,"O99.354 ")
 ;;850
 ;;21,"O99.355 ")
 ;;851
 ;;21,"O99.411 ")
 ;;852
 ;;21,"O99.412 ")
 ;;853
 ;;21,"O99.413 ")
 ;;854
 ;;21,"O99.419 ")
 ;;855
 ;;21,"O99.42 ")
 ;;856
 ;;21,"O99.43 ")
 ;;857
 ;;21,"O99.810 ")
 ;;858
 ;;21,"O99.814 ")
 ;;859
 ;;21,"O99.815 ")
 ;;860
 ;;21,"O99.834 ")
 ;;861
 ;;21,"O99.835 ")
 ;;862
 ;;21,"O99.840 ")
 ;;863
 ;;21,"O99.841 ")
 ;;864
 ;;21,"O99.842 ")
 ;;865
 ;;21,"O99.843 ")
 ;;866
 ;;21,"O99.844 ")
 ;;867
 ;;21,"O99.845 ")
 ;;868
 ;;21,"O99.89 ")
 ;;869
 ;;21,"Z33.1 ")
 ;;870
 ;;21,"Z33.2 ")
 ;;871
 ;;21,"Z33.3 ")
 ;;872
 ;;21,"Z34.00 ")
 ;;873
 ;;21,"Z34.01 ")
 ;;874
 ;;21,"Z34.02 ")
 ;;875
 ;;21,"Z34.03 ")
 ;;876
 ;;21,"Z34.80 ")
 ;;877
 ;;21,"Z34.81 ")
 ;;878
 ;;21,"Z34.82 ")
 ;;879
 ;;21,"Z34.83 ")
 ;;880
 ;;21,"Z34.90 ")
 ;;881
 ;;21,"Z34.91 ")
 ;;882
 ;;21,"Z34.92 ")
 ;;883
 ;;21,"Z34.93 ")
 ;;884
 ;;21,"Z36. ")
 ;;885
 ;;9002226,2236,.01)
 ;;BGP IPC PREGNANCY CMS69 DXS
 ;;9002226,2236,.02)
 ;;@
 ;;9002226,2236,.04)
 ;;n
 ;;9002226,2236,.06)
 ;;@
 ;;9002226,2236,.08)
 ;;@
 ;;9002226,2236,.09)
 ;;3171219
 ;;9002226,2236,.11)
 ;;@
 ;;9002226,2236,.12)
 ;;31
 ;;9002226,2236,.13)
 ;;1
 ;;9002226,2236,.14)
 ;;@
 ;;9002226,2236,.15)
 ;;80
 ;;9002226,2236,.16)
 ;;@
 ;;9002226,2236,.17)
 ;;@
 ;;9002226,2236,.22)
 ;;1
 ;;9002226,2236,3101)
 ;;@
 ;;9002226.02101,"2236,A34. ",.01)
 ;;A34. 
 ;;9002226.02101,"2236,A34. ",.02)
 ;;A34. 
 ;;9002226.02101,"2236,A34. ",.03)
 ;;30
 ;;9002226.02101,"2236,O00.00 ",.01)
 ;;O00.00 
 ;;9002226.02101,"2236,O00.00 ",.02)
 ;;O00.00 
 ;;9002226.02101,"2236,O00.00 ",.03)
 ;;30
 ;;9002226.02101,"2236,O00.01 ",.01)
 ;;O00.01 
 ;;9002226.02101,"2236,O00.01 ",.02)
 ;;O00.01 
 ;;9002226.02101,"2236,O00.01 ",.03)
 ;;30
 ;;9002226.02101,"2236,O00.10 ",.01)
 ;;O00.10 
 ;;9002226.02101,"2236,O00.10 ",.02)
 ;;O00.10 
 ;;9002226.02101,"2236,O00.10 ",.03)
 ;;30
 ;;9002226.02101,"2236,O00.11 ",.01)
 ;;O00.11 
 ;;9002226.02101,"2236,O00.11 ",.02)
 ;;O00.11 
 ;;9002226.02101,"2236,O00.11 ",.03)
 ;;30
 ;;9002226.02101,"2236,O00.20 ",.01)
 ;;O00.20 
 ;;9002226.02101,"2236,O00.20 ",.02)
 ;;O00.20 
 ;;9002226.02101,"2236,O00.20 ",.03)
 ;;30
 ;;9002226.02101,"2236,O00.21 ",.01)
 ;;O00.21 
 ;;9002226.02101,"2236,O00.21 ",.02)
 ;;O00.21 
 ;;9002226.02101,"2236,O00.21 ",.03)
 ;;30
 ;;9002226.02101,"2236,O00.80 ",.01)
 ;;O00.80 
 ;;9002226.02101,"2236,O00.80 ",.02)
 ;;O00.80 
 ;;9002226.02101,"2236,O00.80 ",.03)
 ;;30
 ;;9002226.02101,"2236,O00.81 ",.01)
 ;;O00.81 
 ;;9002226.02101,"2236,O00.81 ",.02)
 ;;O00.81 
 ;;9002226.02101,"2236,O00.81 ",.03)
 ;;30
 ;;9002226.02101,"2236,O00.90 ",.01)
 ;;O00.90 
 ;;9002226.02101,"2236,O00.90 ",.02)
 ;;O00.90 
 ;;9002226.02101,"2236,O00.90 ",.03)
 ;;30
 ;;9002226.02101,"2236,O00.91 ",.01)
 ;;O00.91 
 ;;9002226.02101,"2236,O00.91 ",.02)
 ;;O00.91 
 ;;9002226.02101,"2236,O00.91 ",.03)
 ;;30
 ;;9002226.02101,"2236,O01.9 ",.01)
 ;;O01.9 
 ;;9002226.02101,"2236,O01.9 ",.02)
 ;;O01.9 
 ;;9002226.02101,"2236,O01.9 ",.03)
 ;;30
 ;;9002226.02101,"2236,O02.0 ",.01)
 ;;O02.0 
 ;;9002226.02101,"2236,O02.0 ",.02)
 ;;O02.0 
 ;;9002226.02101,"2236,O02.0 ",.03)
 ;;30
 ;;9002226.02101,"2236,O02.1 ",.01)
 ;;O02.1 
 ;;9002226.02101,"2236,O02.1 ",.02)
 ;;O02.1 
 ;;9002226.02101,"2236,O02.1 ",.03)
 ;;30
 ;;9002226.02101,"2236,O03.0 ",.01)
 ;;O03.0 
 ;;9002226.02101,"2236,O03.0 ",.02)
 ;;O03.0 
 ;;9002226.02101,"2236,O03.0 ",.03)
 ;;30
 ;;9002226.02101,"2236,O03.1 ",.01)
 ;;O03.1 
 ;;9002226.02101,"2236,O03.1 ",.02)
 ;;O03.1 
 ;;9002226.02101,"2236,O03.1 ",.03)
 ;;30
 ;;9002226.02101,"2236,O03.2 ",.01)
 ;;O03.2 
 ;;9002226.02101,"2236,O03.2 ",.02)
 ;;O03.2 
 ;;9002226.02101,"2236,O03.2 ",.03)
 ;;30
 ;;9002226.02101,"2236,O03.30 ",.01)
 ;;O03.30 
 ;;9002226.02101,"2236,O03.30 ",.02)
 ;;O03.30 
 ;;9002226.02101,"2236,O03.30 ",.03)
 ;;30
 ;;9002226.02101,"2236,O03.31 ",.01)
 ;;O03.31 
 ;;9002226.02101,"2236,O03.31 ",.02)
 ;;O03.31 
 ;;9002226.02101,"2236,O03.31 ",.03)
 ;;30
 ;;9002226.02101,"2236,O03.32 ",.01)
 ;;O03.32 
 ;;9002226.02101,"2236,O03.32 ",.02)
 ;;O03.32 
 ;;9002226.02101,"2236,O03.32 ",.03)
 ;;30
 ;;9002226.02101,"2236,O03.33 ",.01)
 ;;O03.33 
 ;;9002226.02101,"2236,O03.33 ",.02)
 ;;O03.33 
 ;;9002226.02101,"2236,O03.33 ",.03)
 ;;30
 ;;9002226.02101,"2236,O03.34 ",.01)
 ;;O03.34 
 ;;9002226.02101,"2236,O03.34 ",.02)
 ;;O03.34 
 ;;9002226.02101,"2236,O03.34 ",.03)
 ;;30
 ;;9002226.02101,"2236,O03.37 ",.01)
 ;;O03.37 
 ;;9002226.02101,"2236,O03.37 ",.02)
 ;;O03.37 
 ;;9002226.02101,"2236,O03.37 ",.03)
 ;;30
 ;;9002226.02101,"2236,O03.39 ",.01)
 ;;O03.39 
 ;;9002226.02101,"2236,O03.39 ",.02)
 ;;O03.39 
 ;;9002226.02101,"2236,O03.39 ",.03)
 ;;30
 ;;9002226.02101,"2236,O03.4 ",.01)
 ;;O03.4 
 ;;9002226.02101,"2236,O03.4 ",.02)
 ;;O03.4 
 ;;9002226.02101,"2236,O03.4 ",.03)
 ;;30
 ;;9002226.02101,"2236,O03.5 ",.01)
 ;;O03.5 
 ;;9002226.02101,"2236,O03.5 ",.02)
 ;;O03.5 
 ;;9002226.02101,"2236,O03.5 ",.03)
 ;;30
 ;;9002226.02101,"2236,O03.6 ",.01)
 ;;O03.6 
 ;;9002226.02101,"2236,O03.6 ",.02)
 ;;O03.6 
 ;;9002226.02101,"2236,O03.6 ",.03)
 ;;30
 ;;9002226.02101,"2236,O03.7 ",.01)
 ;;O03.7 
 ;;9002226.02101,"2236,O03.7 ",.02)
 ;;O03.7 
 ;;9002226.02101,"2236,O03.7 ",.03)
 ;;30
 ;;9002226.02101,"2236,O03.80 ",.01)
 ;;O03.80 
 ;;9002226.02101,"2236,O03.80 ",.02)
 ;;O03.80 
 ;;9002226.02101,"2236,O03.80 ",.03)
 ;;30
 ;;9002226.02101,"2236,O03.81 ",.01)
 ;;O03.81 
 ;;9002226.02101,"2236,O03.81 ",.02)
 ;;O03.81 
 ;;9002226.02101,"2236,O03.81 ",.03)
 ;;30
 ;;9002226.02101,"2236,O03.82 ",.01)
 ;;O03.82 
 ;;9002226.02101,"2236,O03.82 ",.02)
 ;;O03.82 
 ;;9002226.02101,"2236,O03.82 ",.03)
 ;;30
 ;;9002226.02101,"2236,O03.83 ",.01)
 ;;O03.83 
 ;;9002226.02101,"2236,O03.83 ",.02)
 ;;O03.83 
 ;;9002226.02101,"2236,O03.83 ",.03)
 ;;30
 ;;9002226.02101,"2236,O03.84 ",.01)
 ;;O03.84 
 ;;9002226.02101,"2236,O03.84 ",.02)
 ;;O03.84 
 ;;9002226.02101,"2236,O03.84 ",.03)
 ;;30
 ;;9002226.02101,"2236,O03.85 ",.01)
 ;;O03.85 
 ;;9002226.02101,"2236,O03.85 ",.02)
 ;;O03.85 
 ;;9002226.02101,"2236,O03.85 ",.03)
 ;;30
 ;;9002226.02101,"2236,O03.86 ",.01)
 ;;O03.86 
 ;;9002226.02101,"2236,O03.86 ",.02)
 ;;O03.86 
 ;;9002226.02101,"2236,O03.86 ",.03)
 ;;30
 ;;9002226.02101,"2236,O03.87 ",.01)
 ;;O03.87 
 ;;9002226.02101,"2236,O03.87 ",.02)
 ;;O03.87 
 ;;9002226.02101,"2236,O03.87 ",.03)
 ;;30
 ;;9002226.02101,"2236,O03.88 ",.01)
 ;;O03.88 
 ;;9002226.02101,"2236,O03.88 ",.02)
 ;;O03.88 
 ;;9002226.02101,"2236,O03.88 ",.03)
 ;;30
 ;;9002226.02101,"2236,O03.89 ",.01)
 ;;O03.89 
 ;;9002226.02101,"2236,O03.89 ",.02)
 ;;O03.89 
 ;;9002226.02101,"2236,O03.89 ",.03)
 ;;30
 ;;9002226.02101,"2236,O03.9 ",.01)
 ;;O03.9 
 ;;9002226.02101,"2236,O03.9 ",.02)
 ;;O03.9 
 ;;9002226.02101,"2236,O03.9 ",.03)
 ;;30
 ;;9002226.02101,"2236,O04.5 ",.01)
 ;;O04.5 
 ;;9002226.02101,"2236,O04.5 ",.02)
 ;;O04.5 
 ;;9002226.02101,"2236,O04.5 ",.03)
 ;;30
 ;;9002226.02101,"2236,O04.6 ",.01)
 ;;O04.6 
 ;;9002226.02101,"2236,O04.6 ",.02)
 ;;O04.6 
 ;;9002226.02101,"2236,O04.6 ",.03)
 ;;30
 ;;9002226.02101,"2236,O04.7 ",.01)
 ;;O04.7 
 ;;9002226.02101,"2236,O04.7 ",.02)
 ;;O04.7 
 ;;9002226.02101,"2236,O04.7 ",.03)
 ;;30
 ;;9002226.02101,"2236,O04.80 ",.01)
 ;;O04.80 
 ;;9002226.02101,"2236,O04.80 ",.02)
 ;;O04.80 
 ;;9002226.02101,"2236,O04.80 ",.03)
 ;;30
 ;;9002226.02101,"2236,O04.81 ",.01)
 ;;O04.81 
 ;;9002226.02101,"2236,O04.81 ",.02)
 ;;O04.81 
 ;;9002226.02101,"2236,O04.81 ",.03)
 ;;30
 ;;9002226.02101,"2236,O04.82 ",.01)
 ;;O04.82 
 ;;9002226.02101,"2236,O04.82 ",.02)
 ;;O04.82 
 ;;9002226.02101,"2236,O04.82 ",.03)
 ;;30
 ;;9002226.02101,"2236,O04.83 ",.01)
 ;;O04.83 
 ;;9002226.02101,"2236,O04.83 ",.02)
 ;;O04.83 
 ;;9002226.02101,"2236,O04.83 ",.03)
 ;;30
 ;;9002226.02101,"2236,O04.84 ",.01)
 ;;O04.84 
 ;;9002226.02101,"2236,O04.84 ",.02)
 ;;O04.84 
 ;;9002226.02101,"2236,O04.84 ",.03)
 ;;30
 ;;9002226.02101,"2236,O04.85 ",.01)
 ;;O04.85 
 ;;9002226.02101,"2236,O04.85 ",.02)
 ;;O04.85 
 ;;9002226.02101,"2236,O04.85 ",.03)
 ;;30
 ;;9002226.02101,"2236,O04.86 ",.01)
 ;;O04.86 
 ;;9002226.02101,"2236,O04.86 ",.02)
 ;;O04.86 
 ;;9002226.02101,"2236,O04.86 ",.03)
 ;;30
 ;;9002226.02101,"2236,O04.87 ",.01)
 ;;O04.87 
 ;;9002226.02101,"2236,O04.87 ",.02)
 ;;O04.87 
 ;;9002226.02101,"2236,O04.87 ",.03)
 ;;30
 ;;9002226.02101,"2236,O04.88 ",.01)
 ;;O04.88 
 ;;9002226.02101,"2236,O04.88 ",.02)
 ;;O04.88 
 ;;9002226.02101,"2236,O04.88 ",.03)
 ;;30
 ;;9002226.02101,"2236,O04.89 ",.01)
 ;;O04.89 
 ;;9002226.02101,"2236,O04.89 ",.02)
 ;;O04.89 
 ;;9002226.02101,"2236,O04.89 ",.03)
 ;;30
 ;;9002226.02101,"2236,O07.0 ",.01)
 ;;O07.0 
 ;;9002226.02101,"2236,O07.0 ",.02)
 ;;O07.0 
 ;;9002226.02101,"2236,O07.0 ",.03)
 ;;30
 ;;9002226.02101,"2236,O07.1 ",.01)
 ;;O07.1 
 ;;9002226.02101,"2236,O07.1 ",.02)
 ;;O07.1 
 ;;9002226.02101,"2236,O07.1 ",.03)
 ;;30
 ;;9002226.02101,"2236,O07.2 ",.01)
 ;;O07.2 
 ;;9002226.02101,"2236,O07.2 ",.02)
 ;;O07.2 
 ;;9002226.02101,"2236,O07.2 ",.03)
 ;;30
 ;;9002226.02101,"2236,O07.30 ",.01)
 ;;O07.30 
 ;;9002226.02101,"2236,O07.30 ",.02)
 ;;O07.30 
 ;;9002226.02101,"2236,O07.30 ",.03)
 ;;30
 ;;9002226.02101,"2236,O07.31 ",.01)
 ;;O07.31 
 ;;9002226.02101,"2236,O07.31 ",.02)
 ;;O07.31 
 ;;9002226.02101,"2236,O07.31 ",.03)
 ;;30
 ;;9002226.02101,"2236,O07.32 ",.01)
 ;;O07.32 
 ;;9002226.02101,"2236,O07.32 ",.02)
 ;;O07.32 
 ;;9002226.02101,"2236,O07.32 ",.03)
 ;;30
 ;;9002226.02101,"2236,O07.33 ",.01)
 ;;O07.33 
 ;;9002226.02101,"2236,O07.33 ",.02)
 ;;O07.33 
 ;;9002226.02101,"2236,O07.33 ",.03)
 ;;30
 ;;9002226.02101,"2236,O07.34 ",.01)
 ;;O07.34 
 ;;9002226.02101,"2236,O07.34 ",.02)
 ;;O07.34 
 ;;9002226.02101,"2236,O07.34 ",.03)
 ;;30
 ;;9002226.02101,"2236,O07.35 ",.01)
 ;;O07.35 
 ;;9002226.02101,"2236,O07.35 ",.02)
 ;;O07.35 
 ;;9002226.02101,"2236,O07.35 ",.03)
 ;;30
 ;;9002226.02101,"2236,O07.36 ",.01)
 ;;O07.36 
 ;;9002226.02101,"2236,O07.36 ",.02)
 ;;O07.36 
 ;;9002226.02101,"2236,O07.36 ",.03)
 ;;30
 ;;9002226.02101,"2236,O07.37 ",.01)
 ;;O07.37 
 ;;9002226.02101,"2236,O07.37 ",.02)
 ;;O07.37 
 ;;9002226.02101,"2236,O07.37 ",.03)
 ;;30
 ;;9002226.02101,"2236,O07.38 ",.01)
 ;;O07.38 
 ;;9002226.02101,"2236,O07.38 ",.02)
 ;;O07.38 
 ;;9002226.02101,"2236,O07.38 ",.03)
 ;;30
 ;;9002226.02101,"2236,O07.39 ",.01)
 ;;O07.39 
 ;;9002226.02101,"2236,O07.39 ",.02)
 ;;O07.39 
 ;;9002226.02101,"2236,O07.39 ",.03)
 ;;30
 ;;9002226.02101,"2236,O07.4 ",.01)
 ;;O07.4 
 ;;9002226.02101,"2236,O07.4 ",.02)
 ;;O07.4 
 ;;9002226.02101,"2236,O07.4 ",.03)
 ;;30
 ;;9002226.02101,"2236,O08.0 ",.01)
 ;;O08.0 
 ;;9002226.02101,"2236,O08.0 ",.02)
 ;;O08.0 
 ;;9002226.02101,"2236,O08.0 ",.03)
 ;;30
 ;;9002226.02101,"2236,O08.1 ",.01)
 ;;O08.1 
 ;;9002226.02101,"2236,O08.1 ",.02)
 ;;O08.1 
 ;;9002226.02101,"2236,O08.1 ",.03)
 ;;30