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

BGP82Z56.m

Go to the documentation of this file.
BGP82Z56 ; 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,54868-5390-03 ",.02)
 ;;54868-5390-03
 ;;9002226.02101,"619,54868-5390-04 ",.01)
 ;;54868-5390-04
 ;;9002226.02101,"619,54868-5390-04 ",.02)
 ;;54868-5390-04
 ;;9002226.02101,"619,54868-5390-05 ",.01)
 ;;54868-5390-05
 ;;9002226.02101,"619,54868-5390-05 ",.02)
 ;;54868-5390-05
 ;;9002226.02101,"619,54868-5390-06 ",.01)
 ;;54868-5390-06
 ;;9002226.02101,"619,54868-5390-06 ",.02)
 ;;54868-5390-06
 ;;9002226.02101,"619,54868-5390-07 ",.01)
 ;;54868-5390-07
 ;;9002226.02101,"619,54868-5390-07 ",.02)
 ;;54868-5390-07
 ;;9002226.02101,"619,54868-5390-08 ",.01)
 ;;54868-5390-08
 ;;9002226.02101,"619,54868-5390-08 ",.02)
 ;;54868-5390-08
 ;;9002226.02101,"619,54868-5413-00 ",.01)
 ;;54868-5413-00
 ;;9002226.02101,"619,54868-5413-00 ",.02)
 ;;54868-5413-00
 ;;9002226.02101,"619,54868-5508-01 ",.01)
 ;;54868-5508-01
 ;;9002226.02101,"619,54868-5508-01 ",.02)
 ;;54868-5508-01
 ;;9002226.02101,"619,54868-5584-00 ",.01)
 ;;54868-5584-00
 ;;9002226.02101,"619,54868-5584-00 ",.02)
 ;;54868-5584-00
 ;;9002226.02101,"619,54868-5590-00 ",.01)
 ;;54868-5590-00
 ;;9002226.02101,"619,54868-5590-00 ",.02)
 ;;54868-5590-00
 ;;9002226.02101,"619,54868-5590-01 ",.01)
 ;;54868-5590-01
 ;;9002226.02101,"619,54868-5590-01 ",.02)
 ;;54868-5590-01
 ;;9002226.02101,"619,54868-5590-02 ",.01)
 ;;54868-5590-02
 ;;9002226.02101,"619,54868-5590-02 ",.02)
 ;;54868-5590-02
 ;;9002226.02101,"619,54868-5590-03 ",.01)
 ;;54868-5590-03
 ;;9002226.02101,"619,54868-5590-03 ",.02)
 ;;54868-5590-03
 ;;9002226.02101,"619,54868-5590-04 ",.01)
 ;;54868-5590-04
 ;;9002226.02101,"619,54868-5590-04 ",.02)
 ;;54868-5590-04
 ;;9002226.02101,"619,54868-5701-00 ",.01)
 ;;54868-5701-00
 ;;9002226.02101,"619,54868-5701-00 ",.02)
 ;;54868-5701-00
 ;;9002226.02101,"619,54868-5701-01 ",.01)
 ;;54868-5701-01
 ;;9002226.02101,"619,54868-5701-01 ",.02)
 ;;54868-5701-01
 ;;9002226.02101,"619,54868-5701-02 ",.01)
 ;;54868-5701-02
 ;;9002226.02101,"619,54868-5701-02 ",.02)
 ;;54868-5701-02
 ;;9002226.02101,"619,54868-5701-03 ",.01)
 ;;54868-5701-03
 ;;9002226.02101,"619,54868-5701-03 ",.02)
 ;;54868-5701-03
 ;;9002226.02101,"619,54868-5706-00 ",.01)
 ;;54868-5706-00
 ;;9002226.02101,"619,54868-5706-00 ",.02)
 ;;54868-5706-00
 ;;9002226.02101,"619,54868-5790-00 ",.01)
 ;;54868-5790-00
 ;;9002226.02101,"619,54868-5790-00 ",.02)
 ;;54868-5790-00
 ;;9002226.02101,"619,54868-5791-00 ",.01)
 ;;54868-5791-00
 ;;9002226.02101,"619,54868-5791-00 ",.02)
 ;;54868-5791-00
 ;;9002226.02101,"619,54868-5850-00 ",.01)
 ;;54868-5850-00
 ;;9002226.02101,"619,54868-5850-00 ",.02)
 ;;54868-5850-00
 ;;9002226.02101,"619,54868-5850-01 ",.01)
 ;;54868-5850-01
 ;;9002226.02101,"619,54868-5850-01 ",.02)
 ;;54868-5850-01
 ;;9002226.02101,"619,54868-5850-02 ",.01)
 ;;54868-5850-02
 ;;9002226.02101,"619,54868-5850-02 ",.02)
 ;;54868-5850-02
 ;;9002226.02101,"619,54868-5900-00 ",.01)
 ;;54868-5900-00
 ;;9002226.02101,"619,54868-5900-00 ",.02)
 ;;54868-5900-00
 ;;9002226.02101,"619,54868-5902-00 ",.01)
 ;;54868-5902-00
 ;;9002226.02101,"619,54868-5902-00 ",.02)
 ;;54868-5902-00
 ;;9002226.02101,"619,54868-5902-01 ",.01)
 ;;54868-5902-01
 ;;9002226.02101,"619,54868-5902-01 ",.02)
 ;;54868-5902-01
 ;;9002226.02101,"619,54868-5902-02 ",.01)
 ;;54868-5902-02
 ;;9002226.02101,"619,54868-5902-02 ",.02)
 ;;54868-5902-02
 ;;9002226.02101,"619,54868-5902-03 ",.01)
 ;;54868-5902-03
 ;;9002226.02101,"619,54868-5902-03 ",.02)
 ;;54868-5902-03
 ;;9002226.02101,"619,54868-5957-00 ",.01)
 ;;54868-5957-00
 ;;9002226.02101,"619,54868-5957-00 ",.02)
 ;;54868-5957-00
 ;;9002226.02101,"619,54868-5963-00 ",.01)
 ;;54868-5963-00
 ;;9002226.02101,"619,54868-5963-00 ",.02)
 ;;54868-5963-00
 ;;9002226.02101,"619,54868-5964-00 ",.01)
 ;;54868-5964-00
 ;;9002226.02101,"619,54868-5964-00 ",.02)
 ;;54868-5964-00
 ;;9002226.02101,"619,54868-5964-01 ",.01)
 ;;54868-5964-01
 ;;9002226.02101,"619,54868-5964-01 ",.02)
 ;;54868-5964-01
 ;;9002226.02101,"619,54868-5964-02 ",.01)
 ;;54868-5964-02
 ;;9002226.02101,"619,54868-5964-02 ",.02)
 ;;54868-5964-02
 ;;9002226.02101,"619,54868-5966-01 ",.01)
 ;;54868-5966-01
 ;;9002226.02101,"619,54868-5966-01 ",.02)
 ;;54868-5966-01
 ;;9002226.02101,"619,54868-5966-02 ",.01)
 ;;54868-5966-02
 ;;9002226.02101,"619,54868-5966-02 ",.02)
 ;;54868-5966-02
 ;;9002226.02101,"619,54868-5970-00 ",.01)
 ;;54868-5970-00
 ;;9002226.02101,"619,54868-5970-00 ",.02)
 ;;54868-5970-00
 ;;9002226.02101,"619,54868-5970-01 ",.01)
 ;;54868-5970-01
 ;;9002226.02101,"619,54868-5970-01 ",.02)
 ;;54868-5970-01
 ;;9002226.02101,"619,54868-5975-00 ",.01)
 ;;54868-5975-00
 ;;9002226.02101,"619,54868-5975-00 ",.02)
 ;;54868-5975-00
 ;;9002226.02101,"619,54868-5979-00 ",.01)
 ;;54868-5979-00
 ;;9002226.02101,"619,54868-5979-00 ",.02)
 ;;54868-5979-00
 ;;9002226.02101,"619,54868-5979-01 ",.01)
 ;;54868-5979-01
 ;;9002226.02101,"619,54868-5979-01 ",.02)
 ;;54868-5979-01
 ;;9002226.02101,"619,54868-6002-00 ",.01)
 ;;54868-6002-00
 ;;9002226.02101,"619,54868-6002-00 ",.02)
 ;;54868-6002-00
 ;;9002226.02101,"619,54868-6025-00 ",.01)
 ;;54868-6025-00
 ;;9002226.02101,"619,54868-6025-00 ",.02)
 ;;54868-6025-00
 ;;9002226.02101,"619,54868-6026-00 ",.01)
 ;;54868-6026-00
 ;;9002226.02101,"619,54868-6026-00 ",.02)
 ;;54868-6026-00
 ;;9002226.02101,"619,54868-6027-00 ",.01)
 ;;54868-6027-00
 ;;9002226.02101,"619,54868-6027-00 ",.02)
 ;;54868-6027-00
 ;;9002226.02101,"619,54868-6037-00 ",.01)
 ;;54868-6037-00
 ;;9002226.02101,"619,54868-6037-00 ",.02)
 ;;54868-6037-00
 ;;9002226.02101,"619,54868-6039-00 ",.01)
 ;;54868-6039-00
 ;;9002226.02101,"619,54868-6039-00 ",.02)
 ;;54868-6039-00
 ;;9002226.02101,"619,54868-6040-00 ",.01)
 ;;54868-6040-00
 ;;9002226.02101,"619,54868-6040-00 ",.02)
 ;;54868-6040-00
 ;;9002226.02101,"619,54868-6040-01 ",.01)
 ;;54868-6040-01
 ;;9002226.02101,"619,54868-6040-01 ",.02)
 ;;54868-6040-01
 ;;9002226.02101,"619,54868-6128-00 ",.01)
 ;;54868-6128-00
 ;;9002226.02101,"619,54868-6128-00 ",.02)
 ;;54868-6128-00
 ;;9002226.02101,"619,54868-6196-00 ",.01)
 ;;54868-6196-00
 ;;9002226.02101,"619,54868-6196-00 ",.02)
 ;;54868-6196-00
 ;;9002226.02101,"619,54868-6196-01 ",.01)
 ;;54868-6196-01
 ;;9002226.02101,"619,54868-6196-01 ",.02)
 ;;54868-6196-01
 ;;9002226.02101,"619,54868-6379-00 ",.01)
 ;;54868-6379-00
 ;;9002226.02101,"619,54868-6379-00 ",.02)
 ;;54868-6379-00
 ;;9002226.02101,"619,54868-6387-00 ",.01)
 ;;54868-6387-00
 ;;9002226.02101,"619,54868-6387-00 ",.02)
 ;;54868-6387-00
 ;;9002226.02101,"619,54868-6388-00 ",.01)
 ;;54868-6388-00
 ;;9002226.02101,"619,54868-6388-00 ",.02)
 ;;54868-6388-00
 ;;9002226.02101,"619,55045-1266-08 ",.01)
 ;;55045-1266-08
 ;;9002226.02101,"619,55045-1266-08 ",.02)
 ;;55045-1266-08
 ;;9002226.02101,"619,55045-1495-09 ",.01)
 ;;55045-1495-09
 ;;9002226.02101,"619,55045-1495-09 ",.02)
 ;;55045-1495-09
 ;;9002226.02101,"619,55045-1580-05 ",.01)
 ;;55045-1580-05
 ;;9002226.02101,"619,55045-1580-05 ",.02)
 ;;55045-1580-05
 ;;9002226.02101,"619,55045-2386-06 ",.01)
 ;;55045-2386-06
 ;;9002226.02101,"619,55045-2386-06 ",.02)
 ;;55045-2386-06
 ;;9002226.02101,"619,55045-2386-07 ",.01)
 ;;55045-2386-07
 ;;9002226.02101,"619,55045-2386-07 ",.02)
 ;;55045-2386-07
 ;;9002226.02101,"619,55045-2386-08 ",.01)
 ;;55045-2386-08
 ;;9002226.02101,"619,55045-2386-08 ",.02)
 ;;55045-2386-08
 ;;9002226.02101,"619,55154-2541-04 ",.01)
 ;;55154-2541-04
 ;;9002226.02101,"619,55154-2541-04 ",.02)
 ;;55154-2541-04
 ;;9002226.02101,"619,55154-2541-07 ",.01)
 ;;55154-2541-07
 ;;9002226.02101,"619,55154-2541-07 ",.02)
 ;;55154-2541-07
 ;;9002226.02101,"619,55253-0070-01 ",.01)
 ;;55253-0070-01
 ;;9002226.02101,"619,55253-0070-01 ",.02)
 ;;55253-0070-01
 ;;9002226.02101,"619,55253-0070-30 ",.01)
 ;;55253-0070-30
 ;;9002226.02101,"619,55253-0070-30 ",.02)
 ;;55253-0070-30
 ;;9002226.02101,"619,55253-0071-01 ",.01)
 ;;55253-0071-01
 ;;9002226.02101,"619,55253-0071-01 ",.02)
 ;;55253-0071-01
 ;;9002226.02101,"619,55253-0071-30 ",.01)
 ;;55253-0071-30
 ;;9002226.02101,"619,55253-0071-30 ",.02)
 ;;55253-0071-30
 ;;9002226.02101,"619,55253-0072-01 ",.01)
 ;;55253-0072-01
 ;;9002226.02101,"619,55253-0072-01 ",.02)
 ;;55253-0072-01
 ;;9002226.02101,"619,55253-0072-30 ",.01)
 ;;55253-0072-30
 ;;9002226.02101,"619,55253-0072-30 ",.02)
 ;;55253-0072-30
 ;;9002226.02101,"619,55253-0073-01 ",.01)
 ;;55253-0073-01
 ;;9002226.02101,"619,55253-0073-01 ",.02)
 ;;55253-0073-01
 ;;9002226.02101,"619,55253-0073-30 ",.01)
 ;;55253-0073-30
 ;;9002226.02101,"619,55253-0073-30 ",.02)
 ;;55253-0073-30
 ;;9002226.02101,"619,55253-0074-01 ",.01)
 ;;55253-0074-01
 ;;9002226.02101,"619,55253-0074-01 ",.02)
 ;;55253-0074-01
 ;;9002226.02101,"619,55253-0074-30 ",.01)
 ;;55253-0074-30
 ;;9002226.02101,"619,55253-0074-30 ",.02)
 ;;55253-0074-30
 ;;9002226.02101,"619,55253-0075-01 ",.01)
 ;;55253-0075-01
 ;;9002226.02101,"619,55253-0075-01 ",.02)
 ;;55253-0075-01
 ;;9002226.02101,"619,55253-0075-30 ",.01)
 ;;55253-0075-30
 ;;9002226.02101,"619,55253-0075-30 ",.02)
 ;;55253-0075-30
 ;;9002226.02101,"619,55289-0005-06 ",.01)
 ;;55289-0005-06
 ;;9002226.02101,"619,55289-0005-06 ",.02)
 ;;55289-0005-06
 ;;9002226.02101,"619,55289-0005-10 ",.01)
 ;;55289-0005-10
 ;;9002226.02101,"619,55289-0005-10 ",.02)
 ;;55289-0005-10
 ;;9002226.02101,"619,55289-0005-12 ",.01)
 ;;55289-0005-12
 ;;9002226.02101,"619,55289-0005-12 ",.02)
 ;;55289-0005-12
 ;;9002226.02101,"619,55289-0005-15 ",.01)
 ;;55289-0005-15
 ;;9002226.02101,"619,55289-0005-15 ",.02)
 ;;55289-0005-15
 ;;9002226.02101,"619,55289-0005-18 ",.01)
 ;;55289-0005-18
 ;;9002226.02101,"619,55289-0005-18 ",.02)
 ;;55289-0005-18
 ;;9002226.02101,"619,55289-0005-20 ",.01)
 ;;55289-0005-20
 ;;9002226.02101,"619,55289-0005-20 ",.02)
 ;;55289-0005-20
 ;;9002226.02101,"619,55289-0005-24 ",.01)
 ;;55289-0005-24
 ;;9002226.02101,"619,55289-0005-24 ",.02)
 ;;55289-0005-24
 ;;9002226.02101,"619,55289-0005-25 ",.01)
 ;;55289-0005-25
 ;;9002226.02101,"619,55289-0005-25 ",.02)
 ;;55289-0005-25
 ;;9002226.02101,"619,55289-0005-30 ",.01)
 ;;55289-0005-30
 ;;9002226.02101,"619,55289-0005-30 ",.02)
 ;;55289-0005-30
 ;;9002226.02101,"619,55289-0005-40 ",.01)
 ;;55289-0005-40
 ;;9002226.02101,"619,55289-0005-40 ",.02)
 ;;55289-0005-40
 ;;9002226.02101,"619,55289-0005-60 ",.01)
 ;;55289-0005-60
 ;;9002226.02101,"619,55289-0005-60 ",.02)
 ;;55289-0005-60
 ;;9002226.02101,"619,55289-0005-90 ",.01)
 ;;55289-0005-90
 ;;9002226.02101,"619,55289-0005-90 ",.02)
 ;;55289-0005-90
 ;;9002226.02101,"619,55289-0005-98 ",.01)
 ;;55289-0005-98
 ;;9002226.02101,"619,55289-0005-98 ",.02)
 ;;55289-0005-98
 ;;9002226.02101,"619,55289-0026-20 ",.01)
 ;;55289-0026-20
 ;;9002226.02101,"619,55289-0026-20 ",.02)
 ;;55289-0026-20
 ;;9002226.02101,"619,55289-0048-15 ",.01)
 ;;55289-0048-15
 ;;9002226.02101,"619,55289-0048-15 ",.02)
 ;;55289-0048-15
 ;;9002226.02101,"619,55289-0339-15 ",.01)
 ;;55289-0339-15
 ;;9002226.02101,"619,55289-0339-15 ",.02)
 ;;55289-0339-15
 ;;9002226.02101,"619,55289-0348-15 ",.01)
 ;;55289-0348-15
 ;;9002226.02101,"619,55289-0348-15 ",.02)
 ;;55289-0348-15
 ;;9002226.02101,"619,55289-0449-15 ",.01)
 ;;55289-0449-15
 ;;9002226.02101,"619,55289-0449-15 ",.02)
 ;;55289-0449-15
 ;;9002226.02101,"619,55289-0449-30 ",.01)
 ;;55289-0449-30
 ;;9002226.02101,"619,55289-0449-30 ",.02)
 ;;55289-0449-30
 ;;9002226.02101,"619,55289-0511-60 ",.01)
 ;;55289-0511-60
 ;;9002226.02101,"619,55289-0511-60 ",.02)
 ;;55289-0511-60
 ;;9002226.02101,"619,55289-0511-90 ",.01)
 ;;55289-0511-90
 ;;9002226.02101,"619,55289-0511-90 ",.02)
 ;;55289-0511-90
 ;;9002226.02101,"619,55289-0511-93 ",.01)
 ;;55289-0511-93