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

BGP82Z58.m

Go to the documentation of this file.
BGP82Z58 ; 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,55289-0997-88 ",.02)
 ;;55289-0997-88
 ;;9002226.02101,"619,55289-0997-90 ",.01)
 ;;55289-0997-90
 ;;9002226.02101,"619,55289-0997-90 ",.02)
 ;;55289-0997-90
 ;;9002226.02101,"619,55700-0016-30 ",.01)
 ;;55700-0016-30
 ;;9002226.02101,"619,55700-0016-30 ",.02)
 ;;55700-0016-30
 ;;9002226.02101,"619,55700-0020-60 ",.01)
 ;;55700-0020-60
 ;;9002226.02101,"619,55700-0020-60 ",.02)
 ;;55700-0020-60
 ;;9002226.02101,"619,55700-0020-90 ",.01)
 ;;55700-0020-90
 ;;9002226.02101,"619,55700-0020-90 ",.02)
 ;;55700-0020-90
 ;;9002226.02101,"619,55700-0029-30 ",.01)
 ;;55700-0029-30
 ;;9002226.02101,"619,55700-0029-30 ",.02)
 ;;55700-0029-30
 ;;9002226.02101,"619,55700-0124-20 ",.01)
 ;;55700-0124-20
 ;;9002226.02101,"619,55700-0124-20 ",.02)
 ;;55700-0124-20
 ;;9002226.02101,"619,55700-0124-30 ",.01)
 ;;55700-0124-30
 ;;9002226.02101,"619,55700-0124-30 ",.02)
 ;;55700-0124-30
 ;;9002226.02101,"619,55700-0124-60 ",.01)
 ;;55700-0124-60
 ;;9002226.02101,"619,55700-0124-60 ",.02)
 ;;55700-0124-60
 ;;9002226.02101,"619,55700-0124-90 ",.01)
 ;;55700-0124-90
 ;;9002226.02101,"619,55700-0124-90 ",.02)
 ;;55700-0124-90
 ;;9002226.02101,"619,55700-0158-60 ",.01)
 ;;55700-0158-60
 ;;9002226.02101,"619,55700-0158-60 ",.02)
 ;;55700-0158-60
 ;;9002226.02101,"619,55700-0161-30 ",.01)
 ;;55700-0161-30
 ;;9002226.02101,"619,55700-0161-30 ",.02)
 ;;55700-0161-30
 ;;9002226.02101,"619,55700-0162-30 ",.01)
 ;;55700-0162-30
 ;;9002226.02101,"619,55700-0162-30 ",.02)
 ;;55700-0162-30
 ;;9002226.02101,"619,55700-0162-60 ",.01)
 ;;55700-0162-60
 ;;9002226.02101,"619,55700-0162-60 ",.02)
 ;;55700-0162-60
 ;;9002226.02101,"619,55700-0163-60 ",.01)
 ;;55700-0163-60
 ;;9002226.02101,"619,55700-0163-60 ",.02)
 ;;55700-0163-60
 ;;9002226.02101,"619,55700-0170-01 ",.01)
 ;;55700-0170-01
 ;;9002226.02101,"619,55700-0170-01 ",.02)
 ;;55700-0170-01
 ;;9002226.02101,"619,55700-0170-08 ",.01)
 ;;55700-0170-08
 ;;9002226.02101,"619,55700-0170-08 ",.02)
 ;;55700-0170-08
 ;;9002226.02101,"619,55700-0170-30 ",.01)
 ;;55700-0170-30
 ;;9002226.02101,"619,55700-0170-30 ",.02)
 ;;55700-0170-30
 ;;9002226.02101,"619,55700-0170-40 ",.01)
 ;;55700-0170-40
 ;;9002226.02101,"619,55700-0170-40 ",.02)
 ;;55700-0170-40
 ;;9002226.02101,"619,55700-0170-60 ",.01)
 ;;55700-0170-60
 ;;9002226.02101,"619,55700-0170-60 ",.02)
 ;;55700-0170-60
 ;;9002226.02101,"619,55700-0170-90 ",.01)
 ;;55700-0170-90
 ;;9002226.02101,"619,55700-0170-90 ",.02)
 ;;55700-0170-90
 ;;9002226.02101,"619,55700-0174-01 ",.01)
 ;;55700-0174-01
 ;;9002226.02101,"619,55700-0174-01 ",.02)
 ;;55700-0174-01
 ;;9002226.02101,"619,55700-0174-30 ",.01)
 ;;55700-0174-30
 ;;9002226.02101,"619,55700-0174-30 ",.02)
 ;;55700-0174-30
 ;;9002226.02101,"619,55700-0174-60 ",.01)
 ;;55700-0174-60
 ;;9002226.02101,"619,55700-0174-60 ",.02)
 ;;55700-0174-60
 ;;9002226.02101,"619,55700-0174-90 ",.01)
 ;;55700-0174-90
 ;;9002226.02101,"619,55700-0174-90 ",.02)
 ;;55700-0174-90
 ;;9002226.02101,"619,55700-0175-01 ",.01)
 ;;55700-0175-01
 ;;9002226.02101,"619,55700-0175-01 ",.02)
 ;;55700-0175-01
 ;;9002226.02101,"619,55700-0175-30 ",.01)
 ;;55700-0175-30
 ;;9002226.02101,"619,55700-0175-30 ",.02)
 ;;55700-0175-30
 ;;9002226.02101,"619,55700-0175-60 ",.01)
 ;;55700-0175-60
 ;;9002226.02101,"619,55700-0175-60 ",.02)
 ;;55700-0175-60
 ;;9002226.02101,"619,55700-0175-90 ",.01)
 ;;55700-0175-90
 ;;9002226.02101,"619,55700-0175-90 ",.02)
 ;;55700-0175-90
 ;;9002226.02101,"619,55700-0213-10 ",.01)
 ;;55700-0213-10
 ;;9002226.02101,"619,55700-0213-10 ",.02)
 ;;55700-0213-10
 ;;9002226.02101,"619,55700-0213-12 ",.01)
 ;;55700-0213-12
 ;;9002226.02101,"619,55700-0213-12 ",.02)
 ;;55700-0213-12
 ;;9002226.02101,"619,55700-0213-15 ",.01)
 ;;55700-0213-15
 ;;9002226.02101,"619,55700-0213-15 ",.02)
 ;;55700-0213-15
 ;;9002226.02101,"619,55700-0213-20 ",.01)
 ;;55700-0213-20
 ;;9002226.02101,"619,55700-0213-20 ",.02)
 ;;55700-0213-20
 ;;9002226.02101,"619,55700-0213-30 ",.01)
 ;;55700-0213-30
 ;;9002226.02101,"619,55700-0213-30 ",.02)
 ;;55700-0213-30
 ;;9002226.02101,"619,55700-0213-60 ",.01)
 ;;55700-0213-60
 ;;9002226.02101,"619,55700-0213-60 ",.02)
 ;;55700-0213-60
 ;;9002226.02101,"619,55700-0215-30 ",.01)
 ;;55700-0215-30
 ;;9002226.02101,"619,55700-0215-30 ",.02)
 ;;55700-0215-30
 ;;9002226.02101,"619,55700-0215-60 ",.01)
 ;;55700-0215-60
 ;;9002226.02101,"619,55700-0215-60 ",.02)
 ;;55700-0215-60
 ;;9002226.02101,"619,55700-0216-08 ",.01)
 ;;55700-0216-08
 ;;9002226.02101,"619,55700-0216-08 ",.02)
 ;;55700-0216-08
 ;;9002226.02101,"619,55700-0216-30 ",.01)
 ;;55700-0216-30
 ;;9002226.02101,"619,55700-0216-30 ",.02)
 ;;55700-0216-30
 ;;9002226.02101,"619,55700-0216-60 ",.01)
 ;;55700-0216-60
 ;;9002226.02101,"619,55700-0216-60 ",.02)
 ;;55700-0216-60
 ;;9002226.02101,"619,55700-0216-90 ",.01)
 ;;55700-0216-90
 ;;9002226.02101,"619,55700-0216-90 ",.02)
 ;;55700-0216-90
 ;;9002226.02101,"619,55700-0219-30 ",.01)
 ;;55700-0219-30
 ;;9002226.02101,"619,55700-0219-30 ",.02)
 ;;55700-0219-30
 ;;9002226.02101,"619,55700-0220-01 ",.01)
 ;;55700-0220-01
 ;;9002226.02101,"619,55700-0220-01 ",.02)
 ;;55700-0220-01
 ;;9002226.02101,"619,55700-0220-06 ",.01)
 ;;55700-0220-06
 ;;9002226.02101,"619,55700-0220-06 ",.02)
 ;;55700-0220-06
 ;;9002226.02101,"619,55700-0220-08 ",.01)
 ;;55700-0220-08
 ;;9002226.02101,"619,55700-0220-08 ",.02)
 ;;55700-0220-08
 ;;9002226.02101,"619,55700-0220-30 ",.01)
 ;;55700-0220-30
 ;;9002226.02101,"619,55700-0220-30 ",.02)
 ;;55700-0220-30
 ;;9002226.02101,"619,55700-0220-40 ",.01)
 ;;55700-0220-40
 ;;9002226.02101,"619,55700-0220-40 ",.02)
 ;;55700-0220-40
 ;;9002226.02101,"619,55700-0220-60 ",.01)
 ;;55700-0220-60
 ;;9002226.02101,"619,55700-0220-60 ",.02)
 ;;55700-0220-60
 ;;9002226.02101,"619,55700-0220-90 ",.01)
 ;;55700-0220-90
 ;;9002226.02101,"619,55700-0220-90 ",.02)
 ;;55700-0220-90
 ;;9002226.02101,"619,55700-0224-01 ",.01)
 ;;55700-0224-01
 ;;9002226.02101,"619,55700-0224-01 ",.02)
 ;;55700-0224-01
 ;;9002226.02101,"619,55700-0224-08 ",.01)
 ;;55700-0224-08
 ;;9002226.02101,"619,55700-0224-08 ",.02)
 ;;55700-0224-08
 ;;9002226.02101,"619,55700-0224-30 ",.01)
 ;;55700-0224-30
 ;;9002226.02101,"619,55700-0224-30 ",.02)
 ;;55700-0224-30
 ;;9002226.02101,"619,55700-0224-40 ",.01)
 ;;55700-0224-40
 ;;9002226.02101,"619,55700-0224-40 ",.02)
 ;;55700-0224-40
 ;;9002226.02101,"619,55700-0224-60 ",.01)
 ;;55700-0224-60
 ;;9002226.02101,"619,55700-0224-60 ",.02)
 ;;55700-0224-60
 ;;9002226.02101,"619,55700-0224-90 ",.01)
 ;;55700-0224-90
 ;;9002226.02101,"619,55700-0224-90 ",.02)
 ;;55700-0224-90
 ;;9002226.02101,"619,55700-0260-00 ",.01)
 ;;55700-0260-00
 ;;9002226.02101,"619,55700-0260-00 ",.02)
 ;;55700-0260-00
 ;;9002226.02101,"619,55700-0260-01 ",.01)
 ;;55700-0260-01
 ;;9002226.02101,"619,55700-0260-01 ",.02)
 ;;55700-0260-01
 ;;9002226.02101,"619,55700-0260-08 ",.01)
 ;;55700-0260-08
 ;;9002226.02101,"619,55700-0260-08 ",.02)
 ;;55700-0260-08
 ;;9002226.02101,"619,55700-0260-14 ",.01)
 ;;55700-0260-14
 ;;9002226.02101,"619,55700-0260-14 ",.02)
 ;;55700-0260-14
 ;;9002226.02101,"619,55700-0260-15 ",.01)
 ;;55700-0260-15
 ;;9002226.02101,"619,55700-0260-15 ",.02)
 ;;55700-0260-15
 ;;9002226.02101,"619,55700-0260-21 ",.01)
 ;;55700-0260-21
 ;;9002226.02101,"619,55700-0260-21 ",.02)
 ;;55700-0260-21
 ;;9002226.02101,"619,55700-0260-30 ",.01)
 ;;55700-0260-30
 ;;9002226.02101,"619,55700-0260-30 ",.02)
 ;;55700-0260-30
 ;;9002226.02101,"619,55700-0260-40 ",.01)
 ;;55700-0260-40
 ;;9002226.02101,"619,55700-0260-40 ",.02)
 ;;55700-0260-40
 ;;9002226.02101,"619,55700-0260-60 ",.01)
 ;;55700-0260-60
 ;;9002226.02101,"619,55700-0260-60 ",.02)
 ;;55700-0260-60
 ;;9002226.02101,"619,55700-0260-90 ",.01)
 ;;55700-0260-90
 ;;9002226.02101,"619,55700-0260-90 ",.02)
 ;;55700-0260-90
 ;;9002226.02101,"619,55700-0261-01 ",.01)
 ;;55700-0261-01
 ;;9002226.02101,"619,55700-0261-01 ",.02)
 ;;55700-0261-01
 ;;9002226.02101,"619,55700-0261-06 ",.01)
 ;;55700-0261-06
 ;;9002226.02101,"619,55700-0261-06 ",.02)
 ;;55700-0261-06
 ;;9002226.02101,"619,55700-0261-08 ",.01)
 ;;55700-0261-08
 ;;9002226.02101,"619,55700-0261-08 ",.02)
 ;;55700-0261-08
 ;;9002226.02101,"619,55700-0261-10 ",.01)
 ;;55700-0261-10
 ;;9002226.02101,"619,55700-0261-10 ",.02)
 ;;55700-0261-10
 ;;9002226.02101,"619,55700-0261-12 ",.01)
 ;;55700-0261-12
 ;;9002226.02101,"619,55700-0261-12 ",.02)
 ;;55700-0261-12
 ;;9002226.02101,"619,55700-0261-14 ",.01)
 ;;55700-0261-14
 ;;9002226.02101,"619,55700-0261-14 ",.02)
 ;;55700-0261-14
 ;;9002226.02101,"619,55700-0261-15 ",.01)
 ;;55700-0261-15
 ;;9002226.02101,"619,55700-0261-15 ",.02)
 ;;55700-0261-15
 ;;9002226.02101,"619,55700-0261-20 ",.01)
 ;;55700-0261-20
 ;;9002226.02101,"619,55700-0261-20 ",.02)
 ;;55700-0261-20
 ;;9002226.02101,"619,55700-0261-21 ",.01)
 ;;55700-0261-21
 ;;9002226.02101,"619,55700-0261-21 ",.02)
 ;;55700-0261-21
 ;;9002226.02101,"619,55700-0261-30 ",.01)
 ;;55700-0261-30
 ;;9002226.02101,"619,55700-0261-30 ",.02)
 ;;55700-0261-30
 ;;9002226.02101,"619,55700-0261-40 ",.01)
 ;;55700-0261-40
 ;;9002226.02101,"619,55700-0261-40 ",.02)
 ;;55700-0261-40
 ;;9002226.02101,"619,55700-0261-60 ",.01)
 ;;55700-0261-60
 ;;9002226.02101,"619,55700-0261-60 ",.02)
 ;;55700-0261-60
 ;;9002226.02101,"619,55700-0261-90 ",.01)
 ;;55700-0261-90
 ;;9002226.02101,"619,55700-0261-90 ",.02)
 ;;55700-0261-90
 ;;9002226.02101,"619,55700-0262-01 ",.01)
 ;;55700-0262-01
 ;;9002226.02101,"619,55700-0262-01 ",.02)
 ;;55700-0262-01
 ;;9002226.02101,"619,55700-0262-08 ",.01)
 ;;55700-0262-08
 ;;9002226.02101,"619,55700-0262-08 ",.02)
 ;;55700-0262-08
 ;;9002226.02101,"619,55700-0262-15 ",.01)
 ;;55700-0262-15
 ;;9002226.02101,"619,55700-0262-15 ",.02)
 ;;55700-0262-15
 ;;9002226.02101,"619,55700-0262-30 ",.01)
 ;;55700-0262-30
 ;;9002226.02101,"619,55700-0262-30 ",.02)
 ;;55700-0262-30
 ;;9002226.02101,"619,55700-0262-40 ",.01)
 ;;55700-0262-40
 ;;9002226.02101,"619,55700-0262-40 ",.02)
 ;;55700-0262-40
 ;;9002226.02101,"619,55700-0262-60 ",.01)
 ;;55700-0262-60
 ;;9002226.02101,"619,55700-0262-60 ",.02)
 ;;55700-0262-60
 ;;9002226.02101,"619,55700-0262-90 ",.01)
 ;;55700-0262-90
 ;;9002226.02101,"619,55700-0262-90 ",.02)
 ;;55700-0262-90
 ;;9002226.02101,"619,55700-0293-15 ",.01)
 ;;55700-0293-15
 ;;9002226.02101,"619,55700-0293-15 ",.02)
 ;;55700-0293-15
 ;;9002226.02101,"619,55700-0293-30 ",.01)
 ;;55700-0293-30
 ;;9002226.02101,"619,55700-0293-30 ",.02)
 ;;55700-0293-30
 ;;9002226.02101,"619,55700-0293-60 ",.01)
 ;;55700-0293-60
 ;;9002226.02101,"619,55700-0293-60 ",.02)
 ;;55700-0293-60
 ;;9002226.02101,"619,55700-0293-90 ",.01)
 ;;55700-0293-90
 ;;9002226.02101,"619,55700-0293-90 ",.02)
 ;;55700-0293-90
 ;;9002226.02101,"619,55700-0334-30 ",.01)
 ;;55700-0334-30
 ;;9002226.02101,"619,55700-0334-30 ",.02)
 ;;55700-0334-30
 ;;9002226.02101,"619,55700-0349-60 ",.01)
 ;;55700-0349-60
 ;;9002226.02101,"619,55700-0349-60 ",.02)
 ;;55700-0349-60
 ;;9002226.02101,"619,55700-0350-60 ",.01)
 ;;55700-0350-60
 ;;9002226.02101,"619,55700-0350-60 ",.02)
 ;;55700-0350-60
 ;;9002226.02101,"619,55700-0366-01 ",.01)
 ;;55700-0366-01
 ;;9002226.02101,"619,55700-0366-01 ",.02)
 ;;55700-0366-01
 ;;9002226.02101,"619,55700-0366-30 ",.01)
 ;;55700-0366-30
 ;;9002226.02101,"619,55700-0366-30 ",.02)
 ;;55700-0366-30
 ;;9002226.02101,"619,55700-0366-60 ",.01)
 ;;55700-0366-60
 ;;9002226.02101,"619,55700-0366-60 ",.02)
 ;;55700-0366-60
 ;;9002226.02101,"619,55700-0366-90 ",.01)
 ;;55700-0366-90
 ;;9002226.02101,"619,55700-0366-90 ",.02)
 ;;55700-0366-90
 ;;9002226.02101,"619,55700-0367-01 ",.01)
 ;;55700-0367-01