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

BGP8ZM8.m

Go to the documentation of this file.
BGP8ZM8 ;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,54868-4754-00 ",.02)
 ;;54868-4754-00
 ;;9002226.02101,"544,54868-4776-00 ",.01)
 ;;54868-4776-00
 ;;9002226.02101,"544,54868-4776-00 ",.02)
 ;;54868-4776-00
 ;;9002226.02101,"544,54868-4814-00 ",.01)
 ;;54868-4814-00
 ;;9002226.02101,"544,54868-4814-00 ",.02)
 ;;54868-4814-00
 ;;9002226.02101,"544,54868-4828-00 ",.01)
 ;;54868-4828-00
 ;;9002226.02101,"544,54868-4828-00 ",.02)
 ;;54868-4828-00
 ;;9002226.02101,"544,54868-4832-01 ",.01)
 ;;54868-4832-01
 ;;9002226.02101,"544,54868-4832-01 ",.02)
 ;;54868-4832-01
 ;;9002226.02101,"544,54868-4851-00 ",.01)
 ;;54868-4851-00
 ;;9002226.02101,"544,54868-4851-00 ",.02)
 ;;54868-4851-00
 ;;9002226.02101,"544,54868-4860-00 ",.01)
 ;;54868-4860-00
 ;;9002226.02101,"544,54868-4860-00 ",.02)
 ;;54868-4860-00
 ;;9002226.02101,"544,54868-5028-00 ",.01)
 ;;54868-5028-00
 ;;9002226.02101,"544,54868-5028-00 ",.02)
 ;;54868-5028-00
 ;;9002226.02101,"544,54868-5257-00 ",.01)
 ;;54868-5257-00
 ;;9002226.02101,"544,54868-5257-00 ",.02)
 ;;54868-5257-00
 ;;9002226.02101,"544,54868-5286-00 ",.01)
 ;;54868-5286-00
 ;;9002226.02101,"544,54868-5286-00 ",.02)
 ;;54868-5286-00
 ;;9002226.02101,"544,54868-5326-00 ",.01)
 ;;54868-5326-00
 ;;9002226.02101,"544,54868-5326-00 ",.02)
 ;;54868-5326-00
 ;;9002226.02101,"544,54868-5356-00 ",.01)
 ;;54868-5356-00
 ;;9002226.02101,"544,54868-5356-00 ",.02)
 ;;54868-5356-00
 ;;9002226.02101,"544,54868-5826-00 ",.01)
 ;;54868-5826-00
 ;;9002226.02101,"544,54868-5826-00 ",.02)
 ;;54868-5826-00
 ;;9002226.02101,"544,54868-5828-00 ",.01)
 ;;54868-5828-00
 ;;9002226.02101,"544,54868-5828-00 ",.02)
 ;;54868-5828-00
 ;;9002226.02101,"544,54868-5942-00 ",.01)
 ;;54868-5942-00
 ;;9002226.02101,"544,54868-5942-00 ",.02)
 ;;54868-5942-00
 ;;9002226.02101,"544,55045-3497-01 ",.01)
 ;;55045-3497-01
 ;;9002226.02101,"544,55045-3497-01 ",.02)
 ;;55045-3497-01
 ;;9002226.02101,"544,55045-3498-01 ",.01)
 ;;55045-3498-01
 ;;9002226.02101,"544,55045-3498-01 ",.02)
 ;;55045-3498-01
 ;;9002226.02101,"544,55045-3505-01 ",.01)
 ;;55045-3505-01
 ;;9002226.02101,"544,55045-3505-01 ",.02)
 ;;55045-3505-01
 ;;9002226.02101,"544,55289-0247-08 ",.01)
 ;;55289-0247-08
 ;;9002226.02101,"544,55289-0247-08 ",.02)
 ;;55289-0247-08
 ;;9002226.02101,"544,55289-0887-04 ",.01)
 ;;55289-0887-04
 ;;9002226.02101,"544,55289-0887-04 ",.02)
 ;;55289-0887-04
 ;;9002226.02101,"544,55887-0052-28 ",.01)
 ;;55887-0052-28
 ;;9002226.02101,"544,55887-0052-28 ",.02)
 ;;55887-0052-28
 ;;9002226.02101,"544,59762-4537-01 ",.01)
 ;;59762-4537-01
 ;;9002226.02101,"544,59762-4537-01 ",.02)
 ;;59762-4537-01
 ;;9002226.02101,"544,59762-4537-02 ",.01)
 ;;59762-4537-02
 ;;9002226.02101,"544,59762-4537-02 ",.02)
 ;;59762-4537-02
 ;;9002226.02101,"544,59762-4538-02 ",.01)
 ;;59762-4538-02
 ;;9002226.02101,"544,59762-4538-02 ",.02)
 ;;59762-4538-02
 ;;9002226.02101,"544,59762-4538-09 ",.01)
 ;;59762-4538-09
 ;;9002226.02101,"544,59762-4538-09 ",.02)
 ;;59762-4538-09
 ;;9002226.02101,"544,62756-0718-60 ",.01)
 ;;62756-0718-60
 ;;9002226.02101,"544,62756-0718-60 ",.02)
 ;;62756-0718-60
 ;;9002226.02101,"544,63704-0020-01 ",.01)
 ;;63704-0020-01
 ;;9002226.02101,"544,63704-0020-01 ",.02)
 ;;63704-0020-01
 ;;9002226.02101,"544,64679-0050-02 ",.01)
 ;;64679-0050-02
 ;;9002226.02101,"544,64679-0050-02 ",.02)
 ;;64679-0050-02
 ;;9002226.02101,"544,65162-0316-84 ",.01)
 ;;65162-0316-84
 ;;9002226.02101,"544,65162-0316-84 ",.02)
 ;;65162-0316-84
 ;;9002226.02101,"544,65162-0347-84 ",.01)
 ;;65162-0347-84
 ;;9002226.02101,"544,65162-0347-84 ",.02)
 ;;65162-0347-84
 ;;9002226.02101,"544,68180-0837-11 ",.01)
 ;;68180-0837-11
 ;;9002226.02101,"544,68180-0837-11 ",.02)
 ;;68180-0837-11
 ;;9002226.02101,"544,68180-0837-13 ",.01)
 ;;68180-0837-13
 ;;9002226.02101,"544,68180-0837-13 ",.02)
 ;;68180-0837-13
 ;;9002226.02101,"544,68180-0838-11 ",.01)
 ;;68180-0838-11
 ;;9002226.02101,"544,68180-0838-11 ",.02)
 ;;68180-0838-11
 ;;9002226.02101,"544,68180-0838-13 ",.01)
 ;;68180-0838-13
 ;;9002226.02101,"544,68180-0838-13 ",.02)
 ;;68180-0838-13
 ;;9002226.02101,"544,68180-0840-11 ",.01)
 ;;68180-0840-11
 ;;9002226.02101,"544,68180-0840-11 ",.02)
 ;;68180-0840-11
 ;;9002226.02101,"544,68180-0840-13 ",.01)
 ;;68180-0840-13
 ;;9002226.02101,"544,68180-0840-13 ",.02)
 ;;68180-0840-13
 ;;9002226.02101,"544,68180-0843-13 ",.01)
 ;;68180-0843-13
 ;;9002226.02101,"544,68180-0843-13 ",.02)
 ;;68180-0843-13
 ;;9002226.02101,"544,68180-0844-13 ",.01)
 ;;68180-0844-13
 ;;9002226.02101,"544,68180-0844-13 ",.02)
 ;;68180-0844-13
 ;;9002226.02101,"544,68180-0846-13 ",.01)
 ;;68180-0846-13
 ;;9002226.02101,"544,68180-0846-13 ",.02)
 ;;68180-0846-13
 ;;9002226.02101,"544,68180-0848-13 ",.01)
 ;;68180-0848-13
 ;;9002226.02101,"544,68180-0848-13 ",.02)
 ;;68180-0848-13
 ;;9002226.02101,"544,68180-0852-11 ",.01)
 ;;68180-0852-11
 ;;9002226.02101,"544,68180-0852-11 ",.02)
 ;;68180-0852-11
 ;;9002226.02101,"544,68180-0852-12 ",.01)
 ;;68180-0852-12
 ;;9002226.02101,"544,68180-0852-12 ",.02)
 ;;68180-0852-12
 ;;9002226.02101,"544,68180-0853-13 ",.01)
 ;;68180-0853-13
 ;;9002226.02101,"544,68180-0853-13 ",.02)
 ;;68180-0853-13
 ;;9002226.02101,"544,68180-0854-13 ",.01)
 ;;68180-0854-13
 ;;9002226.02101,"544,68180-0854-13 ",.02)
 ;;68180-0854-13
 ;;9002226.02101,"544,68180-0860-11 ",.01)
 ;;68180-0860-11
 ;;9002226.02101,"544,68180-0860-11 ",.02)
 ;;68180-0860-11
 ;;9002226.02101,"544,68180-0860-12 ",.01)
 ;;68180-0860-12
 ;;9002226.02101,"544,68180-0860-12 ",.02)
 ;;68180-0860-12
 ;;9002226.02101,"544,68180-0864-11 ",.01)
 ;;68180-0864-11
 ;;9002226.02101,"544,68180-0864-11 ",.02)
 ;;68180-0864-11
 ;;9002226.02101,"544,68180-0864-13 ",.01)
 ;;68180-0864-13
 ;;9002226.02101,"544,68180-0864-13 ",.02)
 ;;68180-0864-13
 ;;9002226.02101,"544,68180-0865-11 ",.01)
 ;;68180-0865-11
 ;;9002226.02101,"544,68180-0865-11 ",.02)
 ;;68180-0865-11
 ;;9002226.02101,"544,68180-0865-13 ",.01)
 ;;68180-0865-13
 ;;9002226.02101,"544,68180-0865-13 ",.02)
 ;;68180-0865-13
 ;;9002226.02101,"544,68180-0866-11 ",.01)
 ;;68180-0866-11
 ;;9002226.02101,"544,68180-0866-11 ",.02)
 ;;68180-0866-11
 ;;9002226.02101,"544,68180-0866-13 ",.01)
 ;;68180-0866-13
 ;;9002226.02101,"544,68180-0866-13 ",.02)
 ;;68180-0866-13
 ;;9002226.02101,"544,68180-0873-13 ",.01)
 ;;68180-0873-13
 ;;9002226.02101,"544,68180-0873-13 ",.02)
 ;;68180-0873-13
 ;;9002226.02101,"544,68180-0875-13 ",.01)
 ;;68180-0875-13
 ;;9002226.02101,"544,68180-0875-13 ",.02)
 ;;68180-0875-13
 ;;9002226.02101,"544,68180-0876-11 ",.01)
 ;;68180-0876-11
 ;;9002226.02101,"544,68180-0876-11 ",.02)
 ;;68180-0876-11
 ;;9002226.02101,"544,68180-0876-13 ",.01)
 ;;68180-0876-13
 ;;9002226.02101,"544,68180-0876-13 ",.02)
 ;;68180-0876-13
 ;;9002226.02101,"544,68180-0877-11 ",.01)
 ;;68180-0877-11
 ;;9002226.02101,"544,68180-0877-11 ",.02)
 ;;68180-0877-11
 ;;9002226.02101,"544,68180-0877-13 ",.01)
 ;;68180-0877-13
 ;;9002226.02101,"544,68180-0877-13 ",.02)
 ;;68180-0877-13
 ;;9002226.02101,"544,68180-0882-13 ",.01)
 ;;68180-0882-13
 ;;9002226.02101,"544,68180-0882-13 ",.02)
 ;;68180-0882-13
 ;;9002226.02101,"544,68180-0886-13 ",.01)
 ;;68180-0886-13
 ;;9002226.02101,"544,68180-0886-13 ",.02)
 ;;68180-0886-13
 ;;9002226.02101,"544,68180-0892-11 ",.01)
 ;;68180-0892-11
 ;;9002226.02101,"544,68180-0892-11 ",.02)
 ;;68180-0892-11
 ;;9002226.02101,"544,68180-0892-13 ",.01)
 ;;68180-0892-13
 ;;9002226.02101,"544,68180-0892-13 ",.02)
 ;;68180-0892-13
 ;;9002226.02101,"544,68180-0893-11 ",.01)
 ;;68180-0893-11
 ;;9002226.02101,"544,68180-0893-11 ",.02)
 ;;68180-0893-11
 ;;9002226.02101,"544,68180-0893-13 ",.01)
 ;;68180-0893-13
 ;;9002226.02101,"544,68180-0893-13 ",.02)
 ;;68180-0893-13
 ;;9002226.02101,"544,68180-0897-13 ",.01)
 ;;68180-0897-13
 ;;9002226.02101,"544,68180-0897-13 ",.02)
 ;;68180-0897-13
 ;;9002226.02101,"544,68180-0898-13 ",.01)
 ;;68180-0898-13
 ;;9002226.02101,"544,68180-0898-13 ",.02)
 ;;68180-0898-13
 ;;9002226.02101,"544,68180-0899-13 ",.01)
 ;;68180-0899-13
 ;;9002226.02101,"544,68180-0899-13 ",.02)
 ;;68180-0899-13
 ;;9002226.02101,"544,68180-0902-13 ",.01)
 ;;68180-0902-13
 ;;9002226.02101,"544,68180-0902-13 ",.02)
 ;;68180-0902-13
 ;;9002226.02101,"544,68180-0903-13 ",.01)
 ;;68180-0903-13
 ;;9002226.02101,"544,68180-0903-13 ",.02)
 ;;68180-0903-13
 ;;9002226.02101,"544,68180-0911-11 ",.01)
 ;;68180-0911-11
 ;;9002226.02101,"544,68180-0911-11 ",.02)
 ;;68180-0911-11
 ;;9002226.02101,"544,68180-0911-13 ",.01)
 ;;68180-0911-13
 ;;9002226.02101,"544,68180-0911-13 ",.02)
 ;;68180-0911-13
 ;;9002226.02101,"544,68462-0123-40 ",.01)
 ;;68462-0123-40
 ;;9002226.02101,"544,68462-0123-40 ",.02)
 ;;68462-0123-40
 ;;9002226.02101,"544,68462-0132-79 ",.01)
 ;;68462-0132-79
 ;;9002226.02101,"544,68462-0132-79 ",.02)
 ;;68462-0132-79
 ;;9002226.02101,"544,68462-0132-81 ",.01)
 ;;68462-0132-81
 ;;9002226.02101,"544,68462-0132-81 ",.02)
 ;;68462-0132-81
 ;;9002226.02101,"544,68462-0303-29 ",.01)
 ;;68462-0303-29
 ;;9002226.02101,"544,68462-0303-29 ",.02)
 ;;68462-0303-29
 ;;9002226.02101,"544,68462-0303-84 ",.01)
 ;;68462-0303-84
 ;;9002226.02101,"544,68462-0303-84 ",.02)
 ;;68462-0303-84
 ;;9002226.02101,"544,68462-0305-29 ",.01)
 ;;68462-0305-29
 ;;9002226.02101,"544,68462-0305-29 ",.02)
 ;;68462-0305-29
 ;;9002226.02101,"544,68462-0305-84 ",.01)
 ;;68462-0305-84
 ;;9002226.02101,"544,68462-0305-84 ",.02)
 ;;68462-0305-84
 ;;9002226.02101,"544,68462-0309-29 ",.01)
 ;;68462-0309-29
 ;;9002226.02101,"544,68462-0309-29 ",.02)
 ;;68462-0309-29
 ;;9002226.02101,"544,68462-0309-84 ",.01)
 ;;68462-0309-84
 ;;9002226.02101,"544,68462-0309-84 ",.02)
 ;;68462-0309-84
 ;;9002226.02101,"544,68462-0316-29 ",.01)
 ;;68462-0316-29
 ;;9002226.02101,"544,68462-0316-29 ",.02)
 ;;68462-0316-29
 ;;9002226.02101,"544,68462-0316-84 ",.01)
 ;;68462-0316-84
 ;;9002226.02101,"544,68462-0316-84 ",.02)
 ;;68462-0316-84
 ;;9002226.02101,"544,68462-0318-29 ",.01)
 ;;68462-0318-29
 ;;9002226.02101,"544,68462-0318-29 ",.02)
 ;;68462-0318-29
 ;;9002226.02101,"544,68462-0318-84 ",.01)
 ;;68462-0318-84
 ;;9002226.02101,"544,68462-0318-84 ",.02)
 ;;68462-0318-84
 ;;9002226.02101,"544,68462-0388-29 ",.01)
 ;;68462-0388-29
 ;;9002226.02101,"544,68462-0388-29 ",.02)
 ;;68462-0388-29
 ;;9002226.02101,"544,68462-0388-84 ",.01)
 ;;68462-0388-84
 ;;9002226.02101,"544,68462-0388-84 ",.02)
 ;;68462-0388-84
 ;;9002226.02101,"544,68462-0394-29 ",.01)
 ;;68462-0394-29
 ;;9002226.02101,"544,68462-0394-29 ",.02)
 ;;68462-0394-29
 ;;9002226.02101,"544,68462-0394-84 ",.01)
 ;;68462-0394-84
 ;;9002226.02101,"544,68462-0394-84 ",.02)
 ;;68462-0394-84
 ;;9002226.02101,"544,68462-0556-29 ",.01)
 ;;68462-0556-29
 ;;9002226.02101,"544,68462-0556-29 ",.02)
 ;;68462-0556-29
 ;;9002226.02101,"544,68462-0556-84 ",.01)
 ;;68462-0556-84
 ;;9002226.02101,"544,68462-0556-84 ",.02)
 ;;68462-0556-84
 ;;9002226.02101,"544,68462-0565-29 ",.01)
 ;;68462-0565-29
 ;;9002226.02101,"544,68462-0565-29 ",.02)
 ;;68462-0565-29
 ;;9002226.02101,"544,68462-0637-29 ",.01)
 ;;68462-0637-29
 ;;9002226.02101,"544,68462-0637-29 ",.02)
 ;;68462-0637-29
 ;;9002226.02101,"544,68462-0637-84 ",.01)
 ;;68462-0637-84
 ;;9002226.02101,"544,68462-0637-84 ",.02)
 ;;68462-0637-84
 ;;9002226.02101,"544,68462-0646-91 ",.01)
 ;;68462-0646-91
 ;;9002226.02101,"544,68462-0646-91 ",.02)
 ;;68462-0646-91
 ;;9002226.02101,"544,68462-0646-93 ",.01)
 ;;68462-0646-93
 ;;9002226.02101,"544,68462-0646-93 ",.02)
 ;;68462-0646-93
 ;;9002226.02101,"544,68462-0672-91 ",.01)
 ;;68462-0672-91
 ;;9002226.02101,"544,68462-0672-91 ",.02)
 ;;68462-0672-91
 ;;9002226.02101,"544,68462-0672-95 ",.01)
 ;;68462-0672-95