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

BGP82Z29.m

Go to the documentation of this file.
BGP82Z29 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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)
 ;;9002226.02101,"619,16590-0740-73 ",.02)
 ;;16590-0740-73
 ;;9002226.02101,"619,16590-0747-30 ",.01)
 ;;16590-0747-30
 ;;9002226.02101,"619,16590-0747-30 ",.02)
 ;;16590-0747-30
 ;;9002226.02101,"619,16590-0747-56 ",.01)
 ;;16590-0747-56
 ;;9002226.02101,"619,16590-0747-56 ",.02)
 ;;16590-0747-56
 ;;9002226.02101,"619,16590-0747-60 ",.01)
 ;;16590-0747-60
 ;;9002226.02101,"619,16590-0747-60 ",.02)
 ;;16590-0747-60
 ;;9002226.02101,"619,16590-0747-90 ",.01)
 ;;16590-0747-90
 ;;9002226.02101,"619,16590-0747-90 ",.02)
 ;;16590-0747-90
 ;;9002226.02101,"619,16590-0765-28 ",.01)
 ;;16590-0765-28
 ;;9002226.02101,"619,16590-0765-28 ",.02)
 ;;16590-0765-28
 ;;9002226.02101,"619,16590-0765-30 ",.01)
 ;;16590-0765-30
 ;;9002226.02101,"619,16590-0765-30 ",.02)
 ;;16590-0765-30
 ;;9002226.02101,"619,16590-0765-56 ",.01)
 ;;16590-0765-56
 ;;9002226.02101,"619,16590-0765-56 ",.02)
 ;;16590-0765-56
 ;;9002226.02101,"619,16590-0765-60 ",.01)
 ;;16590-0765-60
 ;;9002226.02101,"619,16590-0765-60 ",.02)
 ;;16590-0765-60
 ;;9002226.02101,"619,16590-0765-90 ",.01)
 ;;16590-0765-90
 ;;9002226.02101,"619,16590-0765-90 ",.02)
 ;;16590-0765-90
 ;;9002226.02101,"619,16590-0767-30 ",.01)
 ;;16590-0767-30
 ;;9002226.02101,"619,16590-0767-30 ",.02)
 ;;16590-0767-30
 ;;9002226.02101,"619,16590-0767-56 ",.01)
 ;;16590-0767-56
 ;;9002226.02101,"619,16590-0767-56 ",.02)
 ;;16590-0767-56
 ;;9002226.02101,"619,16590-0767-60 ",.01)
 ;;16590-0767-60
 ;;9002226.02101,"619,16590-0767-60 ",.02)
 ;;16590-0767-60
 ;;9002226.02101,"619,16590-0774-30 ",.01)
 ;;16590-0774-30
 ;;9002226.02101,"619,16590-0774-30 ",.02)
 ;;16590-0774-30
 ;;9002226.02101,"619,16590-0774-60 ",.01)
 ;;16590-0774-60
 ;;9002226.02101,"619,16590-0774-60 ",.02)
 ;;16590-0774-60
 ;;9002226.02101,"619,16590-0774-90 ",.01)
 ;;16590-0774-90
 ;;9002226.02101,"619,16590-0774-90 ",.02)
 ;;16590-0774-90
 ;;9002226.02101,"619,16590-0778-30 ",.01)
 ;;16590-0778-30
 ;;9002226.02101,"619,16590-0778-30 ",.02)
 ;;16590-0778-30
 ;;9002226.02101,"619,16590-0778-60 ",.01)
 ;;16590-0778-60
 ;;9002226.02101,"619,16590-0778-60 ",.02)
 ;;16590-0778-60
 ;;9002226.02101,"619,16590-0778-90 ",.01)
 ;;16590-0778-90
 ;;9002226.02101,"619,16590-0778-90 ",.02)
 ;;16590-0778-90
 ;;9002226.02101,"619,16590-0827-20 ",.01)
 ;;16590-0827-20
 ;;9002226.02101,"619,16590-0827-20 ",.02)
 ;;16590-0827-20
 ;;9002226.02101,"619,16590-0827-30 ",.01)
 ;;16590-0827-30
 ;;9002226.02101,"619,16590-0827-30 ",.02)
 ;;16590-0827-30
 ;;9002226.02101,"619,16590-0827-56 ",.01)
 ;;16590-0827-56
 ;;9002226.02101,"619,16590-0827-56 ",.02)
 ;;16590-0827-56
 ;;9002226.02101,"619,16590-0827-60 ",.01)
 ;;16590-0827-60
 ;;9002226.02101,"619,16590-0827-60 ",.02)
 ;;16590-0827-60
 ;;9002226.02101,"619,16590-0835-30 ",.01)
 ;;16590-0835-30
 ;;9002226.02101,"619,16590-0835-30 ",.02)
 ;;16590-0835-30
 ;;9002226.02101,"619,16590-0835-50 ",.01)
 ;;16590-0835-50
 ;;9002226.02101,"619,16590-0835-50 ",.02)
 ;;16590-0835-50
 ;;9002226.02101,"619,16590-0835-56 ",.01)
 ;;16590-0835-56
 ;;9002226.02101,"619,16590-0835-56 ",.02)
 ;;16590-0835-56
 ;;9002226.02101,"619,16590-0835-60 ",.01)
 ;;16590-0835-60
 ;;9002226.02101,"619,16590-0835-60 ",.02)
 ;;16590-0835-60
 ;;9002226.02101,"619,16590-0835-72 ",.01)
 ;;16590-0835-72
 ;;9002226.02101,"619,16590-0835-72 ",.02)
 ;;16590-0835-72
 ;;9002226.02101,"619,16590-0835-90 ",.01)
 ;;16590-0835-90
 ;;9002226.02101,"619,16590-0835-90 ",.02)
 ;;16590-0835-90
 ;;9002226.02101,"619,16590-0863-60 ",.01)
 ;;16590-0863-60
 ;;9002226.02101,"619,16590-0863-60 ",.02)
 ;;16590-0863-60
 ;;9002226.02101,"619,16590-0875-30 ",.01)
 ;;16590-0875-30
 ;;9002226.02101,"619,16590-0875-30 ",.02)
 ;;16590-0875-30
 ;;9002226.02101,"619,16590-0875-60 ",.01)
 ;;16590-0875-60
 ;;9002226.02101,"619,16590-0875-60 ",.02)
 ;;16590-0875-60
 ;;9002226.02101,"619,16590-0875-90 ",.01)
 ;;16590-0875-90
 ;;9002226.02101,"619,16590-0875-90 ",.02)
 ;;16590-0875-90
 ;;9002226.02101,"619,16590-0878-30 ",.01)
 ;;16590-0878-30
 ;;9002226.02101,"619,16590-0878-30 ",.02)
 ;;16590-0878-30
 ;;9002226.02101,"619,16590-0878-40 ",.01)
 ;;16590-0878-40
 ;;9002226.02101,"619,16590-0878-40 ",.02)
 ;;16590-0878-40
 ;;9002226.02101,"619,16590-0884-56 ",.01)
 ;;16590-0884-56
 ;;9002226.02101,"619,16590-0884-56 ",.02)
 ;;16590-0884-56
 ;;9002226.02101,"619,16590-0885-30 ",.01)
 ;;16590-0885-30
 ;;9002226.02101,"619,16590-0885-30 ",.02)
 ;;16590-0885-30
 ;;9002226.02101,"619,16590-0885-60 ",.01)
 ;;16590-0885-60
 ;;9002226.02101,"619,16590-0885-60 ",.02)
 ;;16590-0885-60
 ;;9002226.02101,"619,16590-0885-90 ",.01)
 ;;16590-0885-90
 ;;9002226.02101,"619,16590-0885-90 ",.02)
 ;;16590-0885-90
 ;;9002226.02101,"619,16590-0889-30 ",.01)
 ;;16590-0889-30
 ;;9002226.02101,"619,16590-0889-30 ",.02)
 ;;16590-0889-30
 ;;9002226.02101,"619,16590-0889-60 ",.01)
 ;;16590-0889-60
 ;;9002226.02101,"619,16590-0889-60 ",.02)
 ;;16590-0889-60
 ;;9002226.02101,"619,16590-0889-72 ",.01)
 ;;16590-0889-72
 ;;9002226.02101,"619,16590-0889-72 ",.02)
 ;;16590-0889-72
 ;;9002226.02101,"619,16590-0893-30 ",.01)
 ;;16590-0893-30
 ;;9002226.02101,"619,16590-0893-30 ",.02)
 ;;16590-0893-30
 ;;9002226.02101,"619,16590-0893-60 ",.01)
 ;;16590-0893-60
 ;;9002226.02101,"619,16590-0893-60 ",.02)
 ;;16590-0893-60
 ;;9002226.02101,"619,16590-0893-90 ",.01)
 ;;16590-0893-90
 ;;9002226.02101,"619,16590-0893-90 ",.02)
 ;;16590-0893-90
 ;;9002226.02101,"619,16590-0913-72 ",.01)
 ;;16590-0913-72
 ;;9002226.02101,"619,16590-0913-72 ",.02)
 ;;16590-0913-72
 ;;9002226.02101,"619,16590-0925-30 ",.01)
 ;;16590-0925-30
 ;;9002226.02101,"619,16590-0925-30 ",.02)
 ;;16590-0925-30
 ;;9002226.02101,"619,16590-0925-60 ",.01)
 ;;16590-0925-60
 ;;9002226.02101,"619,16590-0925-60 ",.02)
 ;;16590-0925-60
 ;;9002226.02101,"619,16590-0925-72 ",.01)
 ;;16590-0925-72
 ;;9002226.02101,"619,16590-0925-72 ",.02)
 ;;16590-0925-72
 ;;9002226.02101,"619,16590-0925-83 ",.01)
 ;;16590-0925-83
 ;;9002226.02101,"619,16590-0925-83 ",.02)
 ;;16590-0925-83
 ;;9002226.02101,"619,16590-0925-90 ",.01)
 ;;16590-0925-90
 ;;9002226.02101,"619,16590-0925-90 ",.02)
 ;;16590-0925-90
 ;;9002226.02101,"619,16590-0942-30 ",.01)
 ;;16590-0942-30
 ;;9002226.02101,"619,16590-0942-30 ",.02)
 ;;16590-0942-30
 ;;9002226.02101,"619,16590-0947-30 ",.01)
 ;;16590-0947-30
 ;;9002226.02101,"619,16590-0947-30 ",.02)
 ;;16590-0947-30
 ;;9002226.02101,"619,16590-0947-60 ",.01)
 ;;16590-0947-60
 ;;9002226.02101,"619,16590-0947-60 ",.02)
 ;;16590-0947-60
 ;;9002226.02101,"619,16590-0966-30 ",.01)
 ;;16590-0966-30
 ;;9002226.02101,"619,16590-0966-30 ",.02)
 ;;16590-0966-30
 ;;9002226.02101,"619,16590-0966-60 ",.01)
 ;;16590-0966-60
 ;;9002226.02101,"619,16590-0966-60 ",.02)
 ;;16590-0966-60
 ;;9002226.02101,"619,16590-0966-90 ",.01)
 ;;16590-0966-90
 ;;9002226.02101,"619,16590-0966-90 ",.02)
 ;;16590-0966-90
 ;;9002226.02101,"619,16714-0111-10 ",.01)
 ;;16714-0111-10
 ;;9002226.02101,"619,16714-0111-10 ",.02)
 ;;16714-0111-10
 ;;9002226.02101,"619,16714-0111-11 ",.01)
 ;;16714-0111-11
 ;;9002226.02101,"619,16714-0111-11 ",.02)
 ;;16714-0111-11
 ;;9002226.02101,"619,16714-0111-12 ",.01)
 ;;16714-0111-12
 ;;9002226.02101,"619,16714-0111-12 ",.02)
 ;;16714-0111-12
 ;;9002226.02101,"619,16714-0481-01 ",.01)
 ;;16714-0481-01
 ;;9002226.02101,"619,16714-0481-01 ",.02)
 ;;16714-0481-01
 ;;9002226.02101,"619,16714-0481-02 ",.01)
 ;;16714-0481-02
 ;;9002226.02101,"619,16714-0481-02 ",.02)
 ;;16714-0481-02
 ;;9002226.02101,"619,16714-0481-03 ",.01)
 ;;16714-0481-03
 ;;9002226.02101,"619,16714-0481-03 ",.02)
 ;;16714-0481-03
 ;;9002226.02101,"619,17478-0450-16 ",.01)
 ;;17478-0450-16
 ;;9002226.02101,"619,17478-0450-16 ",.02)
 ;;17478-0450-16
 ;;9002226.02101,"619,17478-0805-04 ",.01)
 ;;17478-0805-04
 ;;9002226.02101,"619,17478-0805-04 ",.02)
 ;;17478-0805-04
 ;;9002226.02101,"619,17478-0805-16 ",.01)
 ;;17478-0805-16
 ;;9002226.02101,"619,17478-0805-16 ",.02)
 ;;17478-0805-16
 ;;9002226.02101,"619,17856-0079-01 ",.01)
 ;;17856-0079-01
 ;;9002226.02101,"619,17856-0079-01 ",.02)
 ;;17856-0079-01
 ;;9002226.02101,"619,17856-0079-02 ",.01)
 ;;17856-0079-02
 ;;9002226.02101,"619,17856-0079-02 ",.02)
 ;;17856-0079-02
 ;;9002226.02101,"619,17856-0079-05 ",.01)
 ;;17856-0079-05
 ;;9002226.02101,"619,17856-0079-05 ",.02)
 ;;17856-0079-05
 ;;9002226.02101,"619,17856-0235-05 ",.01)
 ;;17856-0235-05
 ;;9002226.02101,"619,17856-0235-05 ",.02)
 ;;17856-0235-05
 ;;9002226.02101,"619,17856-0490-30 ",.01)
 ;;17856-0490-30
 ;;9002226.02101,"619,17856-0490-30 ",.02)
 ;;17856-0490-30
 ;;9002226.02101,"619,17856-0490-31 ",.01)
 ;;17856-0490-31
 ;;9002226.02101,"619,17856-0490-31 ",.02)
 ;;17856-0490-31
 ;;9002226.02101,"619,17856-0490-32 ",.01)
 ;;17856-0490-32
 ;;9002226.02101,"619,17856-0490-32 ",.02)
 ;;17856-0490-32
 ;;9002226.02101,"619,17856-0527-01 ",.01)
 ;;17856-0527-01
 ;;9002226.02101,"619,17856-0527-01 ",.02)
 ;;17856-0527-01
 ;;9002226.02101,"619,17856-0804-05 ",.01)
 ;;17856-0804-05
 ;;9002226.02101,"619,17856-0804-05 ",.02)
 ;;17856-0804-05
 ;;9002226.02101,"619,17856-1075-01 ",.01)
 ;;17856-1075-01
 ;;9002226.02101,"619,17856-1075-01 ",.02)
 ;;17856-1075-01
 ;;9002226.02101,"619,17856-1075-05 ",.01)
 ;;17856-1075-05
 ;;9002226.02101,"619,17856-1075-05 ",.02)
 ;;17856-1075-05
 ;;9002226.02101,"619,17856-1295-01 ",.01)
 ;;17856-1295-01
 ;;9002226.02101,"619,17856-1295-01 ",.02)
 ;;17856-1295-01
 ;;9002226.02101,"619,17856-1295-02 ",.01)
 ;;17856-1295-02
 ;;9002226.02101,"619,17856-1295-02 ",.02)
 ;;17856-1295-02
 ;;9002226.02101,"619,20482-0001-01 ",.01)
 ;;20482-0001-01
 ;;9002226.02101,"619,20482-0001-01 ",.02)
 ;;20482-0001-01
 ;;9002226.02101,"619,20482-0001-10 ",.01)
 ;;20482-0001-10
 ;;9002226.02101,"619,20482-0001-10 ",.02)
 ;;20482-0001-10
 ;;9002226.02101,"619,20482-0001-30 ",.01)
 ;;20482-0001-30
 ;;9002226.02101,"619,20482-0001-30 ",.02)
 ;;20482-0001-30
 ;;9002226.02101,"619,20482-0002-01 ",.01)
 ;;20482-0002-01
 ;;9002226.02101,"619,20482-0002-01 ",.02)
 ;;20482-0002-01
 ;;9002226.02101,"619,20482-0002-10 ",.01)
 ;;20482-0002-10
 ;;9002226.02101,"619,20482-0002-10 ",.02)
 ;;20482-0002-10
 ;;9002226.02101,"619,20482-0002-30 ",.01)
 ;;20482-0002-30
 ;;9002226.02101,"619,20482-0002-30 ",.02)
 ;;20482-0002-30
 ;;9002226.02101,"619,20482-0004-01 ",.01)
 ;;20482-0004-01
 ;;9002226.02101,"619,20482-0004-01 ",.02)
 ;;20482-0004-01
 ;;9002226.02101,"619,20482-0004-10 ",.01)
 ;;20482-0004-10
 ;;9002226.02101,"619,20482-0004-10 ",.02)
 ;;20482-0004-10
 ;;9002226.02101,"619,20482-0004-30 ",.01)
 ;;20482-0004-30
 ;;9002226.02101,"619,20482-0004-30 ",.02)
 ;;20482-0004-30
 ;;9002226.02101,"619,20482-0006-01 ",.01)
 ;;20482-0006-01
 ;;9002226.02101,"619,20482-0006-01 ",.02)
 ;;20482-0006-01
 ;;9002226.02101,"619,20482-0006-10 ",.01)
 ;;20482-0006-10
 ;;9002226.02101,"619,20482-0006-10 ",.02)
 ;;20482-0006-10
 ;;9002226.02101,"619,20482-0006-30 ",.01)
 ;;20482-0006-30
 ;;9002226.02101,"619,20482-0006-30 ",.02)
 ;;20482-0006-30
 ;;9002226.02101,"619,20482-0008-01 ",.01)
 ;;20482-0008-01
 ;;9002226.02101,"619,20482-0008-01 ",.02)
 ;;20482-0008-01
 ;;9002226.02101,"619,20482-0008-10 ",.01)
 ;;20482-0008-10
 ;;9002226.02101,"619,20482-0008-10 ",.02)
 ;;20482-0008-10
 ;;9002226.02101,"619,20482-0008-30 ",.01)
 ;;20482-0008-30
 ;;9002226.02101,"619,20482-0008-30 ",.02)
 ;;20482-0008-30
 ;;9002226.02101,"619,20482-0012-01 ",.01)
 ;;20482-0012-01
 ;;9002226.02101,"619,20482-0012-01 ",.02)
 ;;20482-0012-01
 ;;9002226.02101,"619,20482-0012-15 ",.01)
 ;;20482-0012-15
 ;;9002226.02101,"619,20482-0012-15 ",.02)
 ;;20482-0012-15
 ;;9002226.02101,"619,20482-0016-01 ",.01)
 ;;20482-0016-01