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

BGP8ZM7.m

Go to the documentation of this file.
BGP8ZM7 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
 ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
 ;
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,"544,52544-0248-28 ",.02)
 ;;52544-0248-28
 ;;9002226.02101,"544,52544-0249-28 ",.01)
 ;;52544-0249-28
 ;;9002226.02101,"544,52544-0249-28 ",.02)
 ;;52544-0249-28
 ;;9002226.02101,"544,52544-0254-28 ",.01)
 ;;52544-0254-28
 ;;9002226.02101,"544,52544-0254-28 ",.02)
 ;;52544-0254-28
 ;;9002226.02101,"544,52544-0259-28 ",.01)
 ;;52544-0259-28
 ;;9002226.02101,"544,52544-0259-28 ",.02)
 ;;52544-0259-28
 ;;9002226.02101,"544,52544-0259-88 ",.01)
 ;;52544-0259-88
 ;;9002226.02101,"544,52544-0259-88 ",.02)
 ;;52544-0259-88
 ;;9002226.02101,"544,52544-0265-31 ",.01)
 ;;52544-0265-31
 ;;9002226.02101,"544,52544-0265-31 ",.02)
 ;;52544-0265-31
 ;;9002226.02101,"544,52544-0268-29 ",.01)
 ;;52544-0268-29
 ;;9002226.02101,"544,52544-0268-29 ",.02)
 ;;52544-0268-29
 ;;9002226.02101,"544,52544-0268-84 ",.01)
 ;;52544-0268-84
 ;;9002226.02101,"544,52544-0268-84 ",.02)
 ;;52544-0268-84
 ;;9002226.02101,"544,52544-0274-28 ",.01)
 ;;52544-0274-28
 ;;9002226.02101,"544,52544-0274-28 ",.02)
 ;;52544-0274-28
 ;;9002226.02101,"544,52544-0275-36 ",.01)
 ;;52544-0275-36
 ;;9002226.02101,"544,52544-0275-36 ",.02)
 ;;52544-0275-36
 ;;9002226.02101,"544,52544-0276-21 ",.01)
 ;;52544-0276-21
 ;;9002226.02101,"544,52544-0276-21 ",.02)
 ;;52544-0276-21
 ;;9002226.02101,"544,52544-0279-28 ",.01)
 ;;52544-0279-28
 ;;9002226.02101,"544,52544-0279-28 ",.02)
 ;;52544-0279-28
 ;;9002226.02101,"544,52544-0287-54 ",.01)
 ;;52544-0287-54
 ;;9002226.02101,"544,52544-0287-54 ",.02)
 ;;52544-0287-54
 ;;9002226.02101,"544,52544-0290-21 ",.01)
 ;;52544-0290-21
 ;;9002226.02101,"544,52544-0290-21 ",.02)
 ;;52544-0290-21
 ;;9002226.02101,"544,52544-0291-28 ",.01)
 ;;52544-0291-28
 ;;9002226.02101,"544,52544-0291-28 ",.02)
 ;;52544-0291-28
 ;;9002226.02101,"544,52544-0292-31 ",.01)
 ;;52544-0292-31
 ;;9002226.02101,"544,52544-0292-31 ",.02)
 ;;52544-0292-31
 ;;9002226.02101,"544,52544-0292-41 ",.01)
 ;;52544-0292-41
 ;;9002226.02101,"544,52544-0292-41 ",.02)
 ;;52544-0292-41
 ;;9002226.02101,"544,52544-0298-31 ",.01)
 ;;52544-0298-31
 ;;9002226.02101,"544,52544-0298-31 ",.02)
 ;;52544-0298-31
 ;;9002226.02101,"544,52544-0383-28 ",.01)
 ;;52544-0383-28
 ;;9002226.02101,"544,52544-0383-28 ",.02)
 ;;52544-0383-28
 ;;9002226.02101,"544,52544-0384-28 ",.01)
 ;;52544-0384-28
 ;;9002226.02101,"544,52544-0384-28 ",.02)
 ;;52544-0384-28
 ;;9002226.02101,"544,52544-0550-28 ",.01)
 ;;52544-0550-28
 ;;9002226.02101,"544,52544-0550-28 ",.02)
 ;;52544-0550-28
 ;;9002226.02101,"544,52544-0552-28 ",.01)
 ;;52544-0552-28
 ;;9002226.02101,"544,52544-0552-28 ",.02)
 ;;52544-0552-28
 ;;9002226.02101,"544,52544-0554-28 ",.01)
 ;;52544-0554-28
 ;;9002226.02101,"544,52544-0554-28 ",.02)
 ;;52544-0554-28
 ;;9002226.02101,"544,52544-0629-28 ",.01)
 ;;52544-0629-28
 ;;9002226.02101,"544,52544-0629-28 ",.02)
 ;;52544-0629-28
 ;;9002226.02101,"544,52544-0630-28 ",.01)
 ;;52544-0630-28
 ;;9002226.02101,"544,52544-0630-28 ",.02)
 ;;52544-0630-28
 ;;9002226.02101,"544,52544-0631-28 ",.01)
 ;;52544-0631-28
 ;;9002226.02101,"544,52544-0631-28 ",.02)
 ;;52544-0631-28
 ;;9002226.02101,"544,52544-0847-28 ",.01)
 ;;52544-0847-28
 ;;9002226.02101,"544,52544-0847-28 ",.02)
 ;;52544-0847-28
 ;;9002226.02101,"544,52544-0848-28 ",.01)
 ;;52544-0848-28
 ;;9002226.02101,"544,52544-0848-28 ",.02)
 ;;52544-0848-28
 ;;9002226.02101,"544,52544-0892-28 ",.01)
 ;;52544-0892-28
 ;;9002226.02101,"544,52544-0892-28 ",.02)
 ;;52544-0892-28
 ;;9002226.02101,"544,52544-0936-28 ",.01)
 ;;52544-0936-28
 ;;9002226.02101,"544,52544-0936-28 ",.02)
 ;;52544-0936-28
 ;;9002226.02101,"544,52544-0940-28 ",.01)
 ;;52544-0940-28
 ;;9002226.02101,"544,52544-0940-28 ",.02)
 ;;52544-0940-28
 ;;9002226.02101,"544,52544-0949-28 ",.01)
 ;;52544-0949-28
 ;;9002226.02101,"544,52544-0949-28 ",.02)
 ;;52544-0949-28
 ;;9002226.02101,"544,52544-0950-21 ",.01)
 ;;52544-0950-21
 ;;9002226.02101,"544,52544-0950-21 ",.02)
 ;;52544-0950-21
 ;;9002226.02101,"544,52544-0951-21 ",.01)
 ;;52544-0951-21
 ;;9002226.02101,"544,52544-0951-21 ",.02)
 ;;52544-0951-21
 ;;9002226.02101,"544,52544-0953-28 ",.01)
 ;;52544-0953-28
 ;;9002226.02101,"544,52544-0953-28 ",.02)
 ;;52544-0953-28
 ;;9002226.02101,"544,52544-0954-28 ",.01)
 ;;52544-0954-28
 ;;9002226.02101,"544,52544-0954-28 ",.02)
 ;;52544-0954-28
 ;;9002226.02101,"544,52544-0959-31 ",.01)
 ;;52544-0959-31
 ;;9002226.02101,"544,52544-0959-31 ",.02)
 ;;52544-0959-31
 ;;9002226.02101,"544,52544-0966-91 ",.01)
 ;;52544-0966-91
 ;;9002226.02101,"544,52544-0966-91 ",.02)
 ;;52544-0966-91
 ;;9002226.02101,"544,52544-0967-28 ",.01)
 ;;52544-0967-28
 ;;9002226.02101,"544,52544-0967-28 ",.02)
 ;;52544-0967-28
 ;;9002226.02101,"544,52544-0981-31 ",.01)
 ;;52544-0981-31
 ;;9002226.02101,"544,52544-0981-31 ",.02)
 ;;52544-0981-31
 ;;9002226.02101,"544,52544-0982-31 ",.01)
 ;;52544-0982-31
 ;;9002226.02101,"544,52544-0982-31 ",.02)
 ;;52544-0982-31
 ;;9002226.02101,"544,52925-0112-01 ",.01)
 ;;52925-0112-01
 ;;9002226.02101,"544,52925-0112-01 ",.02)
 ;;52925-0112-01
 ;;9002226.02101,"544,52925-0112-02 ",.01)
 ;;52925-0112-02
 ;;9002226.02101,"544,52925-0112-02 ",.02)
 ;;52925-0112-02
 ;;9002226.02101,"544,52925-0112-03 ",.01)
 ;;52925-0112-03
 ;;9002226.02101,"544,52925-0112-03 ",.02)
 ;;52925-0112-03
 ;;9002226.02101,"544,52925-0312-14 ",.01)
 ;;52925-0312-14
 ;;9002226.02101,"544,52925-0312-14 ",.02)
 ;;52925-0312-14
 ;;9002226.02101,"544,52959-0450-02 ",.01)
 ;;52959-0450-02
 ;;9002226.02101,"544,52959-0450-02 ",.02)
 ;;52959-0450-02
 ;;9002226.02101,"544,54569-0679-00 ",.01)
 ;;54569-0679-00
 ;;9002226.02101,"544,54569-0679-00 ",.02)
 ;;54569-0679-00
 ;;9002226.02101,"544,54569-0685-00 ",.01)
 ;;54569-0685-00
 ;;9002226.02101,"544,54569-0685-00 ",.02)
 ;;54569-0685-00
 ;;9002226.02101,"544,54569-0685-01 ",.01)
 ;;54569-0685-01
 ;;9002226.02101,"544,54569-0685-01 ",.02)
 ;;54569-0685-01
 ;;9002226.02101,"544,54569-0689-00 ",.01)
 ;;54569-0689-00
 ;;9002226.02101,"544,54569-0689-00 ",.02)
 ;;54569-0689-00
 ;;9002226.02101,"544,54569-0689-01 ",.01)
 ;;54569-0689-01
 ;;9002226.02101,"544,54569-0689-01 ",.02)
 ;;54569-0689-01
 ;;9002226.02101,"544,54569-3701-00 ",.01)
 ;;54569-3701-00
 ;;9002226.02101,"544,54569-3701-00 ",.02)
 ;;54569-3701-00
 ;;9002226.02101,"544,54569-3844-00 ",.01)
 ;;54569-3844-00
 ;;9002226.02101,"544,54569-3844-00 ",.02)
 ;;54569-3844-00
 ;;9002226.02101,"544,54569-4222-00 ",.01)
 ;;54569-4222-00
 ;;9002226.02101,"544,54569-4222-00 ",.02)
 ;;54569-4222-00
 ;;9002226.02101,"544,54569-4273-01 ",.01)
 ;;54569-4273-01
 ;;9002226.02101,"544,54569-4273-01 ",.02)
 ;;54569-4273-01
 ;;9002226.02101,"544,54569-4817-00 ",.01)
 ;;54569-4817-00
 ;;9002226.02101,"544,54569-4817-00 ",.02)
 ;;54569-4817-00
 ;;9002226.02101,"544,54569-4878-01 ",.01)
 ;;54569-4878-01
 ;;9002226.02101,"544,54569-4878-01 ",.02)
 ;;54569-4878-01
 ;;9002226.02101,"544,54569-4904-00 ",.01)
 ;;54569-4904-00
 ;;9002226.02101,"544,54569-4904-00 ",.02)
 ;;54569-4904-00
 ;;9002226.02101,"544,54569-4997-00 ",.01)
 ;;54569-4997-00
 ;;9002226.02101,"544,54569-4997-00 ",.02)
 ;;54569-4997-00
 ;;9002226.02101,"544,54569-4998-00 ",.01)
 ;;54569-4998-00
 ;;9002226.02101,"544,54569-4998-00 ",.02)
 ;;54569-4998-00
 ;;9002226.02101,"544,54569-5349-00 ",.01)
 ;;54569-5349-00
 ;;9002226.02101,"544,54569-5349-00 ",.02)
 ;;54569-5349-00
 ;;9002226.02101,"544,54569-5493-00 ",.01)
 ;;54569-5493-00
 ;;9002226.02101,"544,54569-5493-00 ",.02)
 ;;54569-5493-00
 ;;9002226.02101,"544,54569-5493-02 ",.01)
 ;;54569-5493-02
 ;;9002226.02101,"544,54569-5493-02 ",.02)
 ;;54569-5493-02
 ;;9002226.02101,"544,54569-5527-00 ",.01)
 ;;54569-5527-00
 ;;9002226.02101,"544,54569-5527-00 ",.02)
 ;;54569-5527-00
 ;;9002226.02101,"544,54569-5796-00 ",.01)
 ;;54569-5796-00
 ;;9002226.02101,"544,54569-5796-00 ",.02)
 ;;54569-5796-00
 ;;9002226.02101,"544,54569-5797-00 ",.01)
 ;;54569-5797-00
 ;;9002226.02101,"544,54569-5797-00 ",.02)
 ;;54569-5797-00
 ;;9002226.02101,"544,54569-5798-00 ",.01)
 ;;54569-5798-00
 ;;9002226.02101,"544,54569-5798-00 ",.02)
 ;;54569-5798-00
 ;;9002226.02101,"544,54569-5816-00 ",.01)
 ;;54569-5816-00
 ;;9002226.02101,"544,54569-5816-00 ",.02)
 ;;54569-5816-00
 ;;9002226.02101,"544,54569-5826-00 ",.01)
 ;;54569-5826-00
 ;;9002226.02101,"544,54569-5826-00 ",.02)
 ;;54569-5826-00
 ;;9002226.02101,"544,54569-5865-00 ",.01)
 ;;54569-5865-00
 ;;9002226.02101,"544,54569-5865-00 ",.02)
 ;;54569-5865-00
 ;;9002226.02101,"544,54569-6032-00 ",.01)
 ;;54569-6032-00
 ;;9002226.02101,"544,54569-6032-00 ",.02)
 ;;54569-6032-00
 ;;9002226.02101,"544,54569-6128-00 ",.01)
 ;;54569-6128-00
 ;;9002226.02101,"544,54569-6128-00 ",.02)
 ;;54569-6128-00
 ;;9002226.02101,"544,54569-6144-00 ",.01)
 ;;54569-6144-00
 ;;9002226.02101,"544,54569-6144-00 ",.02)
 ;;54569-6144-00
 ;;9002226.02101,"544,54569-6145-00 ",.01)
 ;;54569-6145-00
 ;;9002226.02101,"544,54569-6145-00 ",.02)
 ;;54569-6145-00
 ;;9002226.02101,"544,54569-6219-00 ",.01)
 ;;54569-6219-00
 ;;9002226.02101,"544,54569-6219-00 ",.02)
 ;;54569-6219-00
 ;;9002226.02101,"544,54569-6272-00 ",.01)
 ;;54569-6272-00
 ;;9002226.02101,"544,54569-6272-00 ",.02)
 ;;54569-6272-00
 ;;9002226.02101,"544,54569-6280-00 ",.01)
 ;;54569-6280-00
 ;;9002226.02101,"544,54569-6280-00 ",.02)
 ;;54569-6280-00
 ;;9002226.02101,"544,54569-6281-00 ",.01)
 ;;54569-6281-00
 ;;9002226.02101,"544,54569-6281-00 ",.02)
 ;;54569-6281-00
 ;;9002226.02101,"544,54868-0443-00 ",.01)
 ;;54868-0443-00
 ;;9002226.02101,"544,54868-0443-00 ",.02)
 ;;54868-0443-00
 ;;9002226.02101,"544,54868-0507-00 ",.01)
 ;;54868-0507-00
 ;;9002226.02101,"544,54868-0507-00 ",.02)
 ;;54868-0507-00
 ;;9002226.02101,"544,54868-0508-01 ",.01)
 ;;54868-0508-01
 ;;9002226.02101,"544,54868-0508-01 ",.02)
 ;;54868-0508-01
 ;;9002226.02101,"544,54868-0509-01 ",.01)
 ;;54868-0509-01
 ;;9002226.02101,"544,54868-0509-01 ",.02)
 ;;54868-0509-01
 ;;9002226.02101,"544,54868-0516-00 ",.01)
 ;;54868-0516-00
 ;;9002226.02101,"544,54868-0516-00 ",.02)
 ;;54868-0516-00
 ;;9002226.02101,"544,54868-1564-00 ",.01)
 ;;54868-1564-00
 ;;9002226.02101,"544,54868-1564-00 ",.02)
 ;;54868-1564-00
 ;;9002226.02101,"544,54868-2316-00 ",.01)
 ;;54868-2316-00
 ;;9002226.02101,"544,54868-2316-00 ",.02)
 ;;54868-2316-00
 ;;9002226.02101,"544,54868-2701-00 ",.01)
 ;;54868-2701-00
 ;;9002226.02101,"544,54868-2701-00 ",.02)
 ;;54868-2701-00
 ;;9002226.02101,"544,54868-4093-00 ",.01)
 ;;54868-4093-00
 ;;9002226.02101,"544,54868-4093-00 ",.02)
 ;;54868-4093-00
 ;;9002226.02101,"544,54868-4239-00 ",.01)
 ;;54868-4239-00
 ;;9002226.02101,"544,54868-4239-00 ",.02)
 ;;54868-4239-00
 ;;9002226.02101,"544,54868-4369-00 ",.01)
 ;;54868-4369-00
 ;;9002226.02101,"544,54868-4369-00 ",.02)
 ;;54868-4369-00
 ;;9002226.02101,"544,54868-4538-00 ",.01)
 ;;54868-4538-00
 ;;9002226.02101,"544,54868-4538-00 ",.02)
 ;;54868-4538-00
 ;;9002226.02101,"544,54868-4590-00 ",.01)
 ;;54868-4590-00
 ;;9002226.02101,"544,54868-4590-00 ",.02)
 ;;54868-4590-00
 ;;9002226.02101,"544,54868-4607-00 ",.01)
 ;;54868-4607-00
 ;;9002226.02101,"544,54868-4607-00 ",.02)
 ;;54868-4607-00
 ;;9002226.02101,"544,54868-4730-00 ",.01)
 ;;54868-4730-00
 ;;9002226.02101,"544,54868-4730-00 ",.02)
 ;;54868-4730-00
 ;;9002226.02101,"544,54868-4731-00 ",.01)
 ;;54868-4731-00
 ;;9002226.02101,"544,54868-4731-00 ",.02)
 ;;54868-4731-00
 ;;9002226.02101,"544,54868-4742-00 ",.01)
 ;;54868-4742-00
 ;;9002226.02101,"544,54868-4742-00 ",.02)
 ;;54868-4742-00
 ;;9002226.02101,"544,54868-4745-00 ",.01)
 ;;54868-4745-00
 ;;9002226.02101,"544,54868-4745-00 ",.02)
 ;;54868-4745-00
 ;;9002226.02101,"544,54868-4754-00 ",.01)
 ;;54868-4754-00