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

ATXO1E.m

Go to the documentation of this file.
ATXO1E ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON OCT 28, 2013;
 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
 ;;BGP CMS EJECTION FRACTION PROC
 ;
 ; This routine loads Taxonomy BGP CMS EJECTION FRACTION PROC
 ;
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
 D OTHER
 I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2
 I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2
 D KILL^ATXSTX2
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;21,"88.53 ")
 ;;1
 ;;21,"B2050ZZ ")
 ;;2
 ;;21,"B2051ZZ ")
 ;;3
 ;;21,"B205YZZ ")
 ;;4
 ;;21,"B2060ZZ ")
 ;;5
 ;;21,"B2061ZZ ")
 ;;6
 ;;21,"B206YZZ ")
 ;;7
 ;;21,"B2150ZZ ")
 ;;8
 ;;21,"B2151ZZ ")
 ;;9
 ;;21,"B215YZZ ")
 ;;10
 ;;21,"B2160ZZ ")
 ;;11
 ;;21,"B2161ZZ ")
 ;;12
 ;;21,"B216YZZ ")
 ;;13
 ;;9002226,356,.01)
 ;;BGP CMS EJECTION FRACTION PROC
 ;;9002226,356,.02)
 ;;@
 ;;9002226,356,.04)
 ;;n
 ;;9002226,356,.06)
 ;;@
 ;;9002226,356,.08)
 ;;0
 ;;9002226,356,.09)
 ;;3130123
 ;;9002226,356,.11)
 ;;@
 ;;9002226,356,.12)
 ;;255
 ;;9002226,356,.13)
 ;;1
 ;;9002226,356,.14)
 ;;@
 ;;9002226,356,.15)
 ;;80.1
 ;;9002226,356,.16)
 ;;@
 ;;9002226,356,.17)
 ;;@
 ;;9002226,356,3101)
 ;;@
 ;;9002226.02101,"356,88.53 ",.01)
 ;;88.53 
 ;;9002226.02101,"356,88.53 ",.02)
 ;;88.54 
 ;;9002226.02101,"356,88.53 ",.03)
 ;;2
 ;;9002226.02101,"356,B2050ZZ ",.01)
 ;;B2050ZZ
 ;;9002226.02101,"356,B2050ZZ ",.02)
 ;;B2050ZZ
 ;;9002226.02101,"356,B2050ZZ ",.03)
 ;;31
 ;;9002226.02101,"356,B2051ZZ ",.01)
 ;;B2051ZZ
 ;;9002226.02101,"356,B2051ZZ ",.02)
 ;;B2051ZZ
 ;;9002226.02101,"356,B2051ZZ ",.03)
 ;;31
 ;;9002226.02101,"356,B205YZZ ",.01)
 ;;B205YZZ
 ;;9002226.02101,"356,B205YZZ ",.02)
 ;;B205YZZ
 ;;9002226.02101,"356,B205YZZ ",.03)
 ;;31
 ;;9002226.02101,"356,B2060ZZ ",.01)
 ;;B2060ZZ
 ;;9002226.02101,"356,B2060ZZ ",.02)
 ;;B2060ZZ
 ;;9002226.02101,"356,B2060ZZ ",.03)
 ;;31
 ;;9002226.02101,"356,B2061ZZ ",.01)
 ;;B2061ZZ
 ;;9002226.02101,"356,B2061ZZ ",.02)
 ;;B2061ZZ
 ;;9002226.02101,"356,B2061ZZ ",.03)
 ;;31
 ;;9002226.02101,"356,B206YZZ ",.01)
 ;;B206YZZ
 ;;9002226.02101,"356,B206YZZ ",.02)
 ;;B206YZZ
 ;;9002226.02101,"356,B206YZZ ",.03)
 ;;31
 ;;9002226.02101,"356,B2150ZZ ",.01)
 ;;B2150ZZ
 ;;9002226.02101,"356,B2150ZZ ",.02)
 ;;B2150ZZ
 ;;9002226.02101,"356,B2150ZZ ",.03)
 ;;31
 ;;9002226.02101,"356,B2151ZZ ",.01)
 ;;B2151ZZ
 ;;9002226.02101,"356,B2151ZZ ",.02)
 ;;B2151ZZ
 ;;9002226.02101,"356,B2151ZZ ",.03)
 ;;31
 ;;9002226.02101,"356,B215YZZ ",.01)
 ;;B215YZZ
 ;;9002226.02101,"356,B215YZZ ",.02)
 ;;B215YZZ
 ;;9002226.02101,"356,B215YZZ ",.03)
 ;;31
 ;;9002226.02101,"356,B2160ZZ ",.01)
 ;;B2160ZZ
 ;;9002226.02101,"356,B2160ZZ ",.02)
 ;;B2160ZZ
 ;;9002226.02101,"356,B2160ZZ ",.03)
 ;;31
 ;;9002226.02101,"356,B2161ZZ ",.01)
 ;;B2161ZZ
 ;;9002226.02101,"356,B2161ZZ ",.02)
 ;;B2161ZZ
 ;;9002226.02101,"356,B2161ZZ ",.03)
 ;;31
 ;;9002226.02101,"356,B216YZZ ",.01)
 ;;B216YZZ
 ;;9002226.02101,"356,B216YZZ ",.02)
 ;;B216YZZ
 ;;9002226.02101,"356,B216YZZ ",.03)
 ;;31
 ;;9002226.04101,"356,1",.01)
 ;;BGP
 ;
OTHER ; OTHER ROUTINES
 Q