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

BGP82I47.m

Go to the documentation of this file.
BGP82I47 ; 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,"1733,58118-4745-03 ",.01)
 ;;58118-4745-03
 ;;9002226.02101,"1733,58118-4745-03 ",.02)
 ;;58118-4745-03
 ;;9002226.02101,"1733,58118-4745-09 ",.01)
 ;;58118-4745-09
 ;;9002226.02101,"1733,58118-4745-09 ",.02)
 ;;58118-4745-09
 ;;9002226.02101,"1733,58118-4775-03 ",.01)
 ;;58118-4775-03
 ;;9002226.02101,"1733,58118-4775-03 ",.02)
 ;;58118-4775-03
 ;;9002226.02101,"1733,58118-4775-09 ",.01)
 ;;58118-4775-09
 ;;9002226.02101,"1733,58118-4775-09 ",.02)
 ;;58118-4775-09
 ;;9002226.02101,"1733,58517-0240-30 ",.01)
 ;;58517-0240-30
 ;;9002226.02101,"1733,58517-0240-30 ",.02)
 ;;58517-0240-30
 ;;9002226.02101,"1733,58657-0610-10 ",.01)
 ;;58657-0610-10
 ;;9002226.02101,"1733,58657-0610-10 ",.02)
 ;;58657-0610-10
 ;;9002226.02101,"1733,58657-0610-50 ",.01)
 ;;58657-0610-50
 ;;9002226.02101,"1733,58657-0610-50 ",.02)
 ;;58657-0610-50
 ;;9002226.02101,"1733,58657-0610-90 ",.01)
 ;;58657-0610-90
 ;;9002226.02101,"1733,58657-0610-90 ",.02)
 ;;58657-0610-90
 ;;9002226.02101,"1733,58657-0611-10 ",.01)
 ;;58657-0611-10
 ;;9002226.02101,"1733,58657-0611-10 ",.02)
 ;;58657-0611-10
 ;;9002226.02101,"1733,58657-0611-30 ",.01)
 ;;58657-0611-30
 ;;9002226.02101,"1733,58657-0611-30 ",.02)
 ;;58657-0611-30
 ;;9002226.02101,"1733,58657-0611-90 ",.01)
 ;;58657-0611-90
 ;;9002226.02101,"1733,58657-0611-90 ",.02)
 ;;58657-0611-90
 ;;9002226.02101,"1733,58657-0612-10 ",.01)
 ;;58657-0612-10
 ;;9002226.02101,"1733,58657-0612-10 ",.02)
 ;;58657-0612-10
 ;;9002226.02101,"1733,58657-0612-30 ",.01)
 ;;58657-0612-30
 ;;9002226.02101,"1733,58657-0612-30 ",.02)
 ;;58657-0612-30
 ;;9002226.02101,"1733,58657-0612-90 ",.01)
 ;;58657-0612-90
 ;;9002226.02101,"1733,58657-0612-90 ",.02)
 ;;58657-0612-90
 ;;9002226.02101,"1733,58864-0000-63 ",.01)
 ;;58864-0000-63
 ;;9002226.02101,"1733,58864-0000-63 ",.02)
 ;;58864-0000-63
 ;;9002226.02101,"1733,58864-0006-30 ",.01)
 ;;58864-0006-30
 ;;9002226.02101,"1733,58864-0006-30 ",.02)
 ;;58864-0006-30
 ;;9002226.02101,"1733,58864-0066-28 ",.01)
 ;;58864-0066-28
 ;;9002226.02101,"1733,58864-0066-28 ",.02)
 ;;58864-0066-28
 ;;9002226.02101,"1733,58864-0603-15 ",.01)
 ;;58864-0603-15
 ;;9002226.02101,"1733,58864-0603-15 ",.02)
 ;;58864-0603-15
 ;;9002226.02101,"1733,58864-0603-30 ",.01)
 ;;58864-0603-30
 ;;9002226.02101,"1733,58864-0603-30 ",.02)
 ;;58864-0603-30
 ;;9002226.02101,"1733,58864-0603-90 ",.01)
 ;;58864-0603-90
 ;;9002226.02101,"1733,58864-0603-90 ",.02)
 ;;58864-0603-90
 ;;9002226.02101,"1733,58864-0605-30 ",.01)
 ;;58864-0605-30
 ;;9002226.02101,"1733,58864-0605-30 ",.02)
 ;;58864-0605-30
 ;;9002226.02101,"1733,58864-0618-15 ",.01)
 ;;58864-0618-15
 ;;9002226.02101,"1733,58864-0618-15 ",.02)
 ;;58864-0618-15
 ;;9002226.02101,"1733,58864-0618-30 ",.01)
 ;;58864-0618-30
 ;;9002226.02101,"1733,58864-0618-30 ",.02)
 ;;58864-0618-30
 ;;9002226.02101,"1733,58864-0654-30 ",.01)
 ;;58864-0654-30
 ;;9002226.02101,"1733,58864-0654-30 ",.02)
 ;;58864-0654-30
 ;;9002226.02101,"1733,58864-0659-30 ",.01)
 ;;58864-0659-30
 ;;9002226.02101,"1733,58864-0659-30 ",.02)
 ;;58864-0659-30
 ;;9002226.02101,"1733,58864-0662-30 ",.01)
 ;;58864-0662-30
 ;;9002226.02101,"1733,58864-0662-30 ",.02)
 ;;58864-0662-30
 ;;9002226.02101,"1733,58864-0674-30 ",.01)
 ;;58864-0674-30
 ;;9002226.02101,"1733,58864-0674-30 ",.02)
 ;;58864-0674-30
 ;;9002226.02101,"1733,58864-0681-30 ",.01)
 ;;58864-0681-30
 ;;9002226.02101,"1733,58864-0681-30 ",.02)
 ;;58864-0681-30
 ;;9002226.02101,"1733,58864-0726-15 ",.01)
 ;;58864-0726-15
 ;;9002226.02101,"1733,58864-0726-15 ",.02)
 ;;58864-0726-15
 ;;9002226.02101,"1733,58864-0726-30 ",.01)
 ;;58864-0726-30
 ;;9002226.02101,"1733,58864-0726-30 ",.02)
 ;;58864-0726-30
 ;;9002226.02101,"1733,58864-0750-30 ",.01)
 ;;58864-0750-30
 ;;9002226.02101,"1733,58864-0750-30 ",.02)
 ;;58864-0750-30
 ;;9002226.02101,"1733,58864-0753-30 ",.01)
 ;;58864-0753-30
 ;;9002226.02101,"1733,58864-0753-30 ",.02)
 ;;58864-0753-30
 ;;9002226.02101,"1733,58864-0753-90 ",.01)
 ;;58864-0753-90
 ;;9002226.02101,"1733,58864-0753-90 ",.02)
 ;;58864-0753-90
 ;;9002226.02101,"1733,58864-0754-30 ",.01)
 ;;58864-0754-30
 ;;9002226.02101,"1733,58864-0754-30 ",.02)
 ;;58864-0754-30
 ;;9002226.02101,"1733,58864-0755-30 ",.01)
 ;;58864-0755-30
 ;;9002226.02101,"1733,58864-0755-30 ",.02)
 ;;58864-0755-30
 ;;9002226.02101,"1733,58864-0762-30 ",.01)
 ;;58864-0762-30
 ;;9002226.02101,"1733,58864-0762-30 ",.02)
 ;;58864-0762-30
 ;;9002226.02101,"1733,58864-0771-15 ",.01)
 ;;58864-0771-15
 ;;9002226.02101,"1733,58864-0771-15 ",.02)
 ;;58864-0771-15
 ;;9002226.02101,"1733,58864-0774-90 ",.01)
 ;;58864-0774-90
 ;;9002226.02101,"1733,58864-0774-90 ",.02)
 ;;58864-0774-90
 ;;9002226.02101,"1733,58864-0787-30 ",.01)
 ;;58864-0787-30
 ;;9002226.02101,"1733,58864-0787-30 ",.02)
 ;;58864-0787-30
 ;;9002226.02101,"1733,58864-0807-30 ",.01)
 ;;58864-0807-30
 ;;9002226.02101,"1733,58864-0807-30 ",.02)
 ;;58864-0807-30
 ;;9002226.02101,"1733,58864-0847-30 ",.01)
 ;;58864-0847-30
 ;;9002226.02101,"1733,58864-0847-30 ",.02)
 ;;58864-0847-30
 ;;9002226.02101,"1733,58864-0859-30 ",.01)
 ;;58864-0859-30
 ;;9002226.02101,"1733,58864-0859-30 ",.02)
 ;;58864-0859-30
 ;;9002226.02101,"1733,58864-0863-30 ",.01)
 ;;58864-0863-30
 ;;9002226.02101,"1733,58864-0863-30 ",.02)
 ;;58864-0863-30
 ;;9002226.02101,"1733,58864-0869-30 ",.01)
 ;;58864-0869-30
 ;;9002226.02101,"1733,58864-0869-30 ",.02)
 ;;58864-0869-30
 ;;9002226.02101,"1733,59746-0333-10 ",.01)
 ;;59746-0333-10
 ;;9002226.02101,"1733,59746-0333-10 ",.02)
 ;;59746-0333-10
 ;;9002226.02101,"1733,59746-0333-90 ",.01)
 ;;59746-0333-90
 ;;9002226.02101,"1733,59746-0333-90 ",.02)
 ;;59746-0333-90
 ;;9002226.02101,"1733,59746-0334-10 ",.01)
 ;;59746-0334-10
 ;;9002226.02101,"1733,59746-0334-10 ",.02)
 ;;59746-0334-10
 ;;9002226.02101,"1733,59746-0334-30 ",.01)
 ;;59746-0334-30
 ;;9002226.02101,"1733,59746-0334-30 ",.02)
 ;;59746-0334-30
 ;;9002226.02101,"1733,59746-0334-90 ",.01)
 ;;59746-0334-90
 ;;9002226.02101,"1733,59746-0334-90 ",.02)
 ;;59746-0334-90
 ;;9002226.02101,"1733,59746-0335-10 ",.01)
 ;;59746-0335-10
 ;;9002226.02101,"1733,59746-0335-10 ",.02)
 ;;59746-0335-10
 ;;9002226.02101,"1733,59746-0335-30 ",.01)
 ;;59746-0335-30
 ;;9002226.02101,"1733,59746-0335-30 ",.02)
 ;;59746-0335-30
 ;;9002226.02101,"1733,59746-0335-90 ",.01)
 ;;59746-0335-90
 ;;9002226.02101,"1733,59746-0335-90 ",.02)
 ;;59746-0335-90
 ;;9002226.02101,"1733,59746-0337-30 ",.01)
 ;;59746-0337-30
 ;;9002226.02101,"1733,59746-0337-30 ",.02)
 ;;59746-0337-30
 ;;9002226.02101,"1733,59746-0337-90 ",.01)
 ;;59746-0337-90
 ;;9002226.02101,"1733,59746-0337-90 ",.02)
 ;;59746-0337-90
 ;;9002226.02101,"1733,59746-0338-30 ",.01)
 ;;59746-0338-30
 ;;9002226.02101,"1733,59746-0338-30 ",.02)
 ;;59746-0338-30
 ;;9002226.02101,"1733,59746-0338-90 ",.01)
 ;;59746-0338-90
 ;;9002226.02101,"1733,59746-0338-90 ",.02)
 ;;59746-0338-90
 ;;9002226.02101,"1733,59746-0339-30 ",.01)
 ;;59746-0339-30
 ;;9002226.02101,"1733,59746-0339-30 ",.02)
 ;;59746-0339-30
 ;;9002226.02101,"1733,59746-0339-90 ",.01)
 ;;59746-0339-90
 ;;9002226.02101,"1733,59746-0339-90 ",.02)
 ;;59746-0339-90
 ;;9002226.02101,"1733,59746-0360-30 ",.01)
 ;;59746-0360-30
 ;;9002226.02101,"1733,59746-0360-30 ",.02)
 ;;59746-0360-30
 ;;9002226.02101,"1733,59746-0361-90 ",.01)
 ;;59746-0361-90
 ;;9002226.02101,"1733,59746-0361-90 ",.02)
 ;;59746-0361-90
 ;;9002226.02101,"1733,59746-0362-90 ",.01)
 ;;59746-0362-90
 ;;9002226.02101,"1733,59746-0362-90 ",.02)
 ;;59746-0362-90
 ;;9002226.02101,"1733,59746-0363-90 ",.01)
 ;;59746-0363-90
 ;;9002226.02101,"1733,59746-0363-90 ",.02)
 ;;59746-0363-90
 ;;9002226.02101,"1733,59746-0447-30 ",.01)
 ;;59746-0447-30
 ;;9002226.02101,"1733,59746-0447-30 ",.02)
 ;;59746-0447-30
 ;;9002226.02101,"1733,59746-0447-90 ",.01)
 ;;59746-0447-90
 ;;9002226.02101,"1733,59746-0447-90 ",.02)
 ;;59746-0447-90
 ;;9002226.02101,"1733,59746-0448-30 ",.01)
 ;;59746-0448-30
 ;;9002226.02101,"1733,59746-0448-30 ",.02)
 ;;59746-0448-30
 ;;9002226.02101,"1733,59746-0448-90 ",.01)
 ;;59746-0448-90
 ;;9002226.02101,"1733,59746-0448-90 ",.02)
 ;;59746-0448-90
 ;;9002226.02101,"1733,59746-0449-30 ",.01)
 ;;59746-0449-30
 ;;9002226.02101,"1733,59746-0449-30 ",.02)
 ;;59746-0449-30
 ;;9002226.02101,"1733,59746-0449-90 ",.01)
 ;;59746-0449-90
 ;;9002226.02101,"1733,59746-0449-90 ",.02)
 ;;59746-0449-90
 ;;9002226.02101,"1733,59746-0463-30 ",.01)
 ;;59746-0463-30
 ;;9002226.02101,"1733,59746-0463-30 ",.02)
 ;;59746-0463-30
 ;;9002226.02101,"1733,59746-0465-30 ",.01)
 ;;59746-0465-30
 ;;9002226.02101,"1733,59746-0465-30 ",.02)
 ;;59746-0465-30
 ;;9002226.02101,"1733,59746-0465-90 ",.01)
 ;;59746-0465-90
 ;;9002226.02101,"1733,59746-0465-90 ",.02)
 ;;59746-0465-90
 ;;9002226.02101,"1733,59746-0466-30 ",.01)
 ;;59746-0466-30
 ;;9002226.02101,"1733,59746-0466-30 ",.02)
 ;;59746-0466-30
 ;;9002226.02101,"1733,59746-0466-90 ",.01)
 ;;59746-0466-90
 ;;9002226.02101,"1733,59746-0466-90 ",.02)
 ;;59746-0466-90
 ;;9002226.02101,"1733,59762-0122-01 ",.01)
 ;;59762-0122-01
 ;;9002226.02101,"1733,59762-0122-01 ",.02)
 ;;59762-0122-01
 ;;9002226.02101,"1733,59762-0132-01 ",.01)
 ;;59762-0132-01
 ;;9002226.02101,"1733,59762-0132-01 ",.02)
 ;;59762-0132-01
 ;;9002226.02101,"1733,59762-0142-01 ",.01)
 ;;59762-0142-01
 ;;9002226.02101,"1733,59762-0142-01 ",.02)
 ;;59762-0142-01
 ;;9002226.02101,"1733,59762-0152-01 ",.01)
 ;;59762-0152-01
 ;;9002226.02101,"1733,59762-0152-01 ",.02)
 ;;59762-0152-01
 ;;9002226.02101,"1733,59762-0220-01 ",.01)
 ;;59762-0220-01
 ;;9002226.02101,"1733,59762-0220-01 ",.02)
 ;;59762-0220-01
 ;;9002226.02101,"1733,59762-0222-01 ",.01)
 ;;59762-0222-01
 ;;9002226.02101,"1733,59762-0222-01 ",.02)
 ;;59762-0222-01
 ;;9002226.02101,"1733,59762-0223-01 ",.01)
 ;;59762-0223-01
 ;;9002226.02101,"1733,59762-0223-01 ",.02)
 ;;59762-0223-01
 ;;9002226.02101,"1733,59762-5019-01 ",.01)
 ;;59762-5019-01
 ;;9002226.02101,"1733,59762-5019-01 ",.02)
 ;;59762-5019-01
 ;;9002226.02101,"1733,59762-5020-01 ",.01)
 ;;59762-5020-01
 ;;9002226.02101,"1733,59762-5020-01 ",.02)
 ;;59762-5020-01
 ;;9002226.02101,"1733,59762-5021-01 ",.01)
 ;;59762-5021-01
 ;;9002226.02101,"1733,59762-5021-01 ",.02)
 ;;59762-5021-01
 ;;9002226.02101,"1733,59762-5022-01 ",.01)
 ;;59762-5022-01
 ;;9002226.02101,"1733,59762-5022-01 ",.02)
 ;;59762-5022-01
 ;;9002226.02101,"1733,60429-0029-01 ",.01)
 ;;60429-0029-01
 ;;9002226.02101,"1733,60429-0029-01 ",.02)
 ;;60429-0029-01
 ;;9002226.02101,"1733,60429-0029-10 ",.01)
 ;;60429-0029-10
 ;;9002226.02101,"1733,60429-0029-10 ",.02)
 ;;60429-0029-10
 ;;9002226.02101,"1733,60429-0029-90 ",.01)
 ;;60429-0029-90
 ;;9002226.02101,"1733,60429-0029-90 ",.02)
 ;;60429-0029-90
 ;;9002226.02101,"1733,60429-0030-01 ",.01)
 ;;60429-0030-01
 ;;9002226.02101,"1733,60429-0030-01 ",.02)
 ;;60429-0030-01
 ;;9002226.02101,"1733,60429-0030-10 ",.01)
 ;;60429-0030-10
 ;;9002226.02101,"1733,60429-0030-10 ",.02)
 ;;60429-0030-10
 ;;9002226.02101,"1733,60429-0030-12 ",.01)
 ;;60429-0030-12
 ;;9002226.02101,"1733,60429-0030-12 ",.02)
 ;;60429-0030-12
 ;;9002226.02101,"1733,60429-0030-27 ",.01)
 ;;60429-0030-27
 ;;9002226.02101,"1733,60429-0030-27 ",.02)
 ;;60429-0030-27
 ;;9002226.02101,"1733,60429-0030-60 ",.01)
 ;;60429-0030-60
 ;;9002226.02101,"1733,60429-0030-60 ",.02)
 ;;60429-0030-60
 ;;9002226.02101,"1733,60429-0030-90 ",.01)
 ;;60429-0030-90
 ;;9002226.02101,"1733,60429-0030-90 ",.02)
 ;;60429-0030-90
 ;;9002226.02101,"1733,60429-0031-01 ",.01)
 ;;60429-0031-01
 ;;9002226.02101,"1733,60429-0031-01 ",.02)
 ;;60429-0031-01
 ;;9002226.02101,"1733,60429-0031-10 ",.01)
 ;;60429-0031-10