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

BGP82Z69.m

Go to the documentation of this file.
BGP82Z69 ; 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,63717-0875-16 ",.02)
 ;;63717-0875-16
 ;;9002226.02101,"619,63717-0876-16 ",.01)
 ;;63717-0876-16
 ;;9002226.02101,"619,63717-0876-16 ",.02)
 ;;63717-0876-16
 ;;9002226.02101,"619,63717-0877-16 ",.01)
 ;;63717-0877-16
 ;;9002226.02101,"619,63717-0877-16 ",.02)
 ;;63717-0877-16
 ;;9002226.02101,"619,63739-0004-10 ",.01)
 ;;63739-0004-10
 ;;9002226.02101,"619,63739-0004-10 ",.02)
 ;;63739-0004-10
 ;;9002226.02101,"619,63739-0006-10 ",.01)
 ;;63739-0006-10
 ;;9002226.02101,"619,63739-0006-10 ",.02)
 ;;63739-0006-10
 ;;9002226.02101,"619,63739-0177-10 ",.01)
 ;;63739-0177-10
 ;;9002226.02101,"619,63739-0177-10 ",.02)
 ;;63739-0177-10
 ;;9002226.02101,"619,63739-0217-10 ",.01)
 ;;63739-0217-10
 ;;9002226.02101,"619,63739-0217-10 ",.02)
 ;;63739-0217-10
 ;;9002226.02101,"619,63739-0275-10 ",.01)
 ;;63739-0275-10
 ;;9002226.02101,"619,63739-0275-10 ",.02)
 ;;63739-0275-10
 ;;9002226.02101,"619,63739-0326-10 ",.01)
 ;;63739-0326-10
 ;;9002226.02101,"619,63739-0326-10 ",.02)
 ;;63739-0326-10
 ;;9002226.02101,"619,63739-0365-10 ",.01)
 ;;63739-0365-10
 ;;9002226.02101,"619,63739-0365-10 ",.02)
 ;;63739-0365-10
 ;;9002226.02101,"619,63739-0455-01 ",.01)
 ;;63739-0455-01
 ;;9002226.02101,"619,63739-0455-01 ",.02)
 ;;63739-0455-01
 ;;9002226.02101,"619,63739-0455-10 ",.01)
 ;;63739-0455-10
 ;;9002226.02101,"619,63739-0455-10 ",.02)
 ;;63739-0455-10
 ;;9002226.02101,"619,63739-0532-10 ",.01)
 ;;63739-0532-10
 ;;9002226.02101,"619,63739-0532-10 ",.02)
 ;;63739-0532-10
 ;;9002226.02101,"619,63739-0557-10 ",.01)
 ;;63739-0557-10
 ;;9002226.02101,"619,63739-0557-10 ",.02)
 ;;63739-0557-10
 ;;9002226.02101,"619,63739-0636-10 ",.01)
 ;;63739-0636-10
 ;;9002226.02101,"619,63739-0636-10 ",.02)
 ;;63739-0636-10
 ;;9002226.02101,"619,63739-0671-10 ",.01)
 ;;63739-0671-10
 ;;9002226.02101,"619,63739-0671-10 ",.02)
 ;;63739-0671-10
 ;;9002226.02101,"619,63739-0704-10 ",.01)
 ;;63739-0704-10
 ;;9002226.02101,"619,63739-0704-10 ",.02)
 ;;63739-0704-10
 ;;9002226.02101,"619,63739-0709-10 ",.01)
 ;;63739-0709-10
 ;;9002226.02101,"619,63739-0709-10 ",.02)
 ;;63739-0709-10
 ;;9002226.02101,"619,63739-0726-10 ",.01)
 ;;63739-0726-10
 ;;9002226.02101,"619,63739-0726-10 ",.02)
 ;;63739-0726-10
 ;;9002226.02101,"619,63739-0739-10 ",.01)
 ;;63739-0739-10
 ;;9002226.02101,"619,63739-0739-10 ",.02)
 ;;63739-0739-10
 ;;9002226.02101,"619,63739-0791-10 ",.01)
 ;;63739-0791-10
 ;;9002226.02101,"619,63739-0791-10 ",.02)
 ;;63739-0791-10
 ;;9002226.02101,"619,63739-0899-10 ",.01)
 ;;63739-0899-10
 ;;9002226.02101,"619,63739-0899-10 ",.02)
 ;;63739-0899-10
 ;;9002226.02101,"619,63874-0202-01 ",.01)
 ;;63874-0202-01
 ;;9002226.02101,"619,63874-0202-01 ",.02)
 ;;63874-0202-01
 ;;9002226.02101,"619,63874-0202-02 ",.01)
 ;;63874-0202-02
 ;;9002226.02101,"619,63874-0202-02 ",.02)
 ;;63874-0202-02
 ;;9002226.02101,"619,63874-0202-04 ",.01)
 ;;63874-0202-04
 ;;9002226.02101,"619,63874-0202-04 ",.02)
 ;;63874-0202-04
 ;;9002226.02101,"619,63874-0202-05 ",.01)
 ;;63874-0202-05
 ;;9002226.02101,"619,63874-0202-05 ",.02)
 ;;63874-0202-05
 ;;9002226.02101,"619,63874-0202-06 ",.01)
 ;;63874-0202-06
 ;;9002226.02101,"619,63874-0202-06 ",.02)
 ;;63874-0202-06
 ;;9002226.02101,"619,63874-0202-08 ",.01)
 ;;63874-0202-08
 ;;9002226.02101,"619,63874-0202-08 ",.02)
 ;;63874-0202-08
 ;;9002226.02101,"619,63874-0202-10 ",.01)
 ;;63874-0202-10
 ;;9002226.02101,"619,63874-0202-10 ",.02)
 ;;63874-0202-10
 ;;9002226.02101,"619,63874-0202-12 ",.01)
 ;;63874-0202-12
 ;;9002226.02101,"619,63874-0202-12 ",.02)
 ;;63874-0202-12
 ;;9002226.02101,"619,63874-0202-14 ",.01)
 ;;63874-0202-14
 ;;9002226.02101,"619,63874-0202-14 ",.02)
 ;;63874-0202-14
 ;;9002226.02101,"619,63874-0202-15 ",.01)
 ;;63874-0202-15
 ;;9002226.02101,"619,63874-0202-15 ",.02)
 ;;63874-0202-15
 ;;9002226.02101,"619,63874-0202-16 ",.01)
 ;;63874-0202-16
 ;;9002226.02101,"619,63874-0202-16 ",.02)
 ;;63874-0202-16
 ;;9002226.02101,"619,63874-0202-18 ",.01)
 ;;63874-0202-18
 ;;9002226.02101,"619,63874-0202-18 ",.02)
 ;;63874-0202-18
 ;;9002226.02101,"619,63874-0202-20 ",.01)
 ;;63874-0202-20
 ;;9002226.02101,"619,63874-0202-20 ",.02)
 ;;63874-0202-20
 ;;9002226.02101,"619,63874-0202-24 ",.01)
 ;;63874-0202-24
 ;;9002226.02101,"619,63874-0202-24 ",.02)
 ;;63874-0202-24
 ;;9002226.02101,"619,63874-0202-25 ",.01)
 ;;63874-0202-25
 ;;9002226.02101,"619,63874-0202-25 ",.02)
 ;;63874-0202-25
 ;;9002226.02101,"619,63874-0202-28 ",.01)
 ;;63874-0202-28
 ;;9002226.02101,"619,63874-0202-28 ",.02)
 ;;63874-0202-28
 ;;9002226.02101,"619,63874-0202-30 ",.01)
 ;;63874-0202-30
 ;;9002226.02101,"619,63874-0202-30 ",.02)
 ;;63874-0202-30
 ;;9002226.02101,"619,63874-0202-40 ",.01)
 ;;63874-0202-40
 ;;9002226.02101,"619,63874-0202-40 ",.02)
 ;;63874-0202-40
 ;;9002226.02101,"619,63874-0202-42 ",.01)
 ;;63874-0202-42
 ;;9002226.02101,"619,63874-0202-42 ",.02)
 ;;63874-0202-42
 ;;9002226.02101,"619,63874-0202-50 ",.01)
 ;;63874-0202-50
 ;;9002226.02101,"619,63874-0202-50 ",.02)
 ;;63874-0202-50
 ;;9002226.02101,"619,63874-0202-60 ",.01)
 ;;63874-0202-60
 ;;9002226.02101,"619,63874-0202-60 ",.02)
 ;;63874-0202-60
 ;;9002226.02101,"619,63874-0202-90 ",.01)
 ;;63874-0202-90
 ;;9002226.02101,"619,63874-0202-90 ",.02)
 ;;63874-0202-90
 ;;9002226.02101,"619,63874-0203-01 ",.01)
 ;;63874-0203-01
 ;;9002226.02101,"619,63874-0203-01 ",.02)
 ;;63874-0203-01
 ;;9002226.02101,"619,63874-0203-20 ",.01)
 ;;63874-0203-20
 ;;9002226.02101,"619,63874-0203-20 ",.02)
 ;;63874-0203-20
 ;;9002226.02101,"619,63874-0203-30 ",.01)
 ;;63874-0203-30
 ;;9002226.02101,"619,63874-0203-30 ",.02)
 ;;63874-0203-30
 ;;9002226.02101,"619,63874-0203-60 ",.01)
 ;;63874-0203-60
 ;;9002226.02101,"619,63874-0203-60 ",.02)
 ;;63874-0203-60
 ;;9002226.02101,"619,63874-0203-90 ",.01)
 ;;63874-0203-90
 ;;9002226.02101,"619,63874-0203-90 ",.02)
 ;;63874-0203-90
 ;;9002226.02101,"619,63874-0204-12 ",.01)
 ;;63874-0204-12
 ;;9002226.02101,"619,63874-0204-12 ",.02)
 ;;63874-0204-12
 ;;9002226.02101,"619,63874-0204-18 ",.01)
 ;;63874-0204-18
 ;;9002226.02101,"619,63874-0204-18 ",.02)
 ;;63874-0204-18
 ;;9002226.02101,"619,63874-0204-24 ",.01)
 ;;63874-0204-24
 ;;9002226.02101,"619,63874-0204-24 ",.02)
 ;;63874-0204-24
 ;;9002226.02101,"619,63874-0204-38 ",.01)
 ;;63874-0204-38
 ;;9002226.02101,"619,63874-0204-38 ",.02)
 ;;63874-0204-38
 ;;9002226.02101,"619,63874-0204-48 ",.01)
 ;;63874-0204-48
 ;;9002226.02101,"619,63874-0204-48 ",.02)
 ;;63874-0204-48
 ;;9002226.02101,"619,63874-0209-12 ",.01)
 ;;63874-0209-12
 ;;9002226.02101,"619,63874-0209-12 ",.02)
 ;;63874-0209-12
 ;;9002226.02101,"619,63874-0209-18 ",.01)
 ;;63874-0209-18
 ;;9002226.02101,"619,63874-0209-18 ",.02)
 ;;63874-0209-18
 ;;9002226.02101,"619,63874-0209-24 ",.01)
 ;;63874-0209-24
 ;;9002226.02101,"619,63874-0209-24 ",.02)
 ;;63874-0209-24
 ;;9002226.02101,"619,63874-0219-01 ",.01)
 ;;63874-0219-01
 ;;9002226.02101,"619,63874-0219-01 ",.02)
 ;;63874-0219-01
 ;;9002226.02101,"619,63874-0219-20 ",.01)
 ;;63874-0219-20
 ;;9002226.02101,"619,63874-0219-20 ",.02)
 ;;63874-0219-20
 ;;9002226.02101,"619,63874-0219-25 ",.01)
 ;;63874-0219-25
 ;;9002226.02101,"619,63874-0219-25 ",.02)
 ;;63874-0219-25
 ;;9002226.02101,"619,63874-0219-30 ",.01)
 ;;63874-0219-30
 ;;9002226.02101,"619,63874-0219-30 ",.02)
 ;;63874-0219-30
 ;;9002226.02101,"619,63874-0220-01 ",.01)
 ;;63874-0220-01
 ;;9002226.02101,"619,63874-0220-01 ",.02)
 ;;63874-0220-01
 ;;9002226.02101,"619,63874-0220-03 ",.01)
 ;;63874-0220-03
 ;;9002226.02101,"619,63874-0220-03 ",.02)
 ;;63874-0220-03
 ;;9002226.02101,"619,63874-0220-04 ",.01)
 ;;63874-0220-04
 ;;9002226.02101,"619,63874-0220-04 ",.02)
 ;;63874-0220-04
 ;;9002226.02101,"619,63874-0220-10 ",.01)
 ;;63874-0220-10
 ;;9002226.02101,"619,63874-0220-10 ",.02)
 ;;63874-0220-10
 ;;9002226.02101,"619,63874-0220-12 ",.01)
 ;;63874-0220-12
 ;;9002226.02101,"619,63874-0220-12 ",.02)
 ;;63874-0220-12
 ;;9002226.02101,"619,63874-0220-15 ",.01)
 ;;63874-0220-15
 ;;9002226.02101,"619,63874-0220-15 ",.02)
 ;;63874-0220-15
 ;;9002226.02101,"619,63874-0220-20 ",.01)
 ;;63874-0220-20
 ;;9002226.02101,"619,63874-0220-20 ",.02)
 ;;63874-0220-20
 ;;9002226.02101,"619,63874-0220-30 ",.01)
 ;;63874-0220-30
 ;;9002226.02101,"619,63874-0220-30 ",.02)
 ;;63874-0220-30
 ;;9002226.02101,"619,63874-0220-35 ",.01)
 ;;63874-0220-35
 ;;9002226.02101,"619,63874-0220-35 ",.02)
 ;;63874-0220-35
 ;;9002226.02101,"619,63874-0220-40 ",.01)
 ;;63874-0220-40
 ;;9002226.02101,"619,63874-0220-40 ",.02)
 ;;63874-0220-40
 ;;9002226.02101,"619,63874-0220-60 ",.01)
 ;;63874-0220-60
 ;;9002226.02101,"619,63874-0220-60 ",.02)
 ;;63874-0220-60
 ;;9002226.02101,"619,63874-0220-90 ",.01)
 ;;63874-0220-90
 ;;9002226.02101,"619,63874-0220-90 ",.02)
 ;;63874-0220-90
 ;;9002226.02101,"619,63874-0230-01 ",.01)
 ;;63874-0230-01
 ;;9002226.02101,"619,63874-0230-01 ",.02)
 ;;63874-0230-01
 ;;9002226.02101,"619,63874-0230-04 ",.01)
 ;;63874-0230-04
 ;;9002226.02101,"619,63874-0230-04 ",.02)
 ;;63874-0230-04
 ;;9002226.02101,"619,63874-0230-30 ",.01)
 ;;63874-0230-30
 ;;9002226.02101,"619,63874-0230-30 ",.02)
 ;;63874-0230-30
 ;;9002226.02101,"619,63874-0230-60 ",.01)
 ;;63874-0230-60
 ;;9002226.02101,"619,63874-0230-60 ",.02)
 ;;63874-0230-60
 ;;9002226.02101,"619,63874-0230-90 ",.01)
 ;;63874-0230-90
 ;;9002226.02101,"619,63874-0230-90 ",.02)
 ;;63874-0230-90
 ;;9002226.02101,"619,63874-0259-01 ",.01)
 ;;63874-0259-01
 ;;9002226.02101,"619,63874-0259-01 ",.02)
 ;;63874-0259-01
 ;;9002226.02101,"619,63874-0259-02 ",.01)
 ;;63874-0259-02
 ;;9002226.02101,"619,63874-0259-02 ",.02)
 ;;63874-0259-02
 ;;9002226.02101,"619,63874-0259-04 ",.01)
 ;;63874-0259-04
 ;;9002226.02101,"619,63874-0259-04 ",.02)
 ;;63874-0259-04
 ;;9002226.02101,"619,63874-0259-12 ",.01)
 ;;63874-0259-12
 ;;9002226.02101,"619,63874-0259-12 ",.02)
 ;;63874-0259-12
 ;;9002226.02101,"619,63874-0259-15 ",.01)
 ;;63874-0259-15
 ;;9002226.02101,"619,63874-0259-15 ",.02)
 ;;63874-0259-15
 ;;9002226.02101,"619,63874-0259-20 ",.01)
 ;;63874-0259-20
 ;;9002226.02101,"619,63874-0259-20 ",.02)
 ;;63874-0259-20
 ;;9002226.02101,"619,63874-0259-24 ",.01)
 ;;63874-0259-24
 ;;9002226.02101,"619,63874-0259-24 ",.02)
 ;;63874-0259-24
 ;;9002226.02101,"619,63874-0259-30 ",.01)
 ;;63874-0259-30
 ;;9002226.02101,"619,63874-0259-30 ",.02)
 ;;63874-0259-30
 ;;9002226.02101,"619,63874-0259-50 ",.01)
 ;;63874-0259-50
 ;;9002226.02101,"619,63874-0259-50 ",.02)
 ;;63874-0259-50
 ;;9002226.02101,"619,63874-0259-60 ",.01)
 ;;63874-0259-60
 ;;9002226.02101,"619,63874-0259-60 ",.02)
 ;;63874-0259-60
 ;;9002226.02101,"619,63874-0266-12 ",.01)
 ;;63874-0266-12
 ;;9002226.02101,"619,63874-0266-12 ",.02)
 ;;63874-0266-12
 ;;9002226.02101,"619,63874-0266-38 ",.01)
 ;;63874-0266-38
 ;;9002226.02101,"619,63874-0266-38 ",.02)
 ;;63874-0266-38
 ;;9002226.02101,"619,63874-0266-48 ",.01)
 ;;63874-0266-48
 ;;9002226.02101,"619,63874-0266-48 ",.02)
 ;;63874-0266-48
 ;;9002226.02101,"619,63874-0266-90 ",.01)
 ;;63874-0266-90
 ;;9002226.02101,"619,63874-0266-90 ",.02)
 ;;63874-0266-90
 ;;9002226.02101,"619,63874-0267-01 ",.01)
 ;;63874-0267-01
 ;;9002226.02101,"619,63874-0267-01 ",.02)
 ;;63874-0267-01
 ;;9002226.02101,"619,63874-0267-02 ",.01)
 ;;63874-0267-02
 ;;9002226.02101,"619,63874-0267-02 ",.02)
 ;;63874-0267-02
 ;;9002226.02101,"619,63874-0267-03 ",.01)
 ;;63874-0267-03
 ;;9002226.02101,"619,63874-0267-03 ",.02)
 ;;63874-0267-03
 ;;9002226.02101,"619,63874-0267-04 ",.01)
 ;;63874-0267-04
 ;;9002226.02101,"619,63874-0267-04 ",.02)
 ;;63874-0267-04
 ;;9002226.02101,"619,63874-0267-05 ",.01)
 ;;63874-0267-05