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

BGP82F7.m

Go to the documentation of this file.
BGP82F7 ; 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,"1803,55289-0328-20 ",.01)
 ;;55289-0328-20
 ;;9002226.02101,"1803,55289-0328-20 ",.02)
 ;;55289-0328-20
 ;;9002226.02101,"1803,55289-0328-30 ",.01)
 ;;55289-0328-30
 ;;9002226.02101,"1803,55289-0328-30 ",.02)
 ;;55289-0328-30
 ;;9002226.02101,"1803,55289-0469-10 ",.01)
 ;;55289-0469-10
 ;;9002226.02101,"1803,55289-0469-10 ",.02)
 ;;55289-0469-10
 ;;9002226.02101,"1803,55289-0469-14 ",.01)
 ;;55289-0469-14
 ;;9002226.02101,"1803,55289-0469-14 ",.02)
 ;;55289-0469-14
 ;;9002226.02101,"1803,55289-0469-15 ",.01)
 ;;55289-0469-15
 ;;9002226.02101,"1803,55289-0469-15 ",.02)
 ;;55289-0469-15
 ;;9002226.02101,"1803,55289-0469-20 ",.01)
 ;;55289-0469-20
 ;;9002226.02101,"1803,55289-0469-20 ",.02)
 ;;55289-0469-20
 ;;9002226.02101,"1803,55289-0469-30 ",.01)
 ;;55289-0469-30
 ;;9002226.02101,"1803,55289-0469-30 ",.02)
 ;;55289-0469-30
 ;;9002226.02101,"1803,55289-0663-01 ",.01)
 ;;55289-0663-01
 ;;9002226.02101,"1803,55289-0663-01 ",.02)
 ;;55289-0663-01
 ;;9002226.02101,"1803,55289-0663-20 ",.01)
 ;;55289-0663-20
 ;;9002226.02101,"1803,55289-0663-20 ",.02)
 ;;55289-0663-20
 ;;9002226.02101,"1803,55289-0663-30 ",.01)
 ;;55289-0663-30
 ;;9002226.02101,"1803,55289-0663-30 ",.02)
 ;;55289-0663-30
 ;;9002226.02101,"1803,55390-0480-01 ",.01)
 ;;55390-0480-01
 ;;9002226.02101,"1803,55390-0480-01 ",.02)
 ;;55390-0480-01
 ;;9002226.02101,"1803,55390-0481-01 ",.01)
 ;;55390-0481-01
 ;;9002226.02101,"1803,55390-0481-01 ",.02)
 ;;55390-0481-01
 ;;9002226.02101,"1803,55390-0481-02 ",.01)
 ;;55390-0481-02
 ;;9002226.02101,"1803,55390-0481-02 ",.02)
 ;;55390-0481-02
 ;;9002226.02101,"1803,55390-0481-10 ",.01)
 ;;55390-0481-10
 ;;9002226.02101,"1803,55390-0481-10 ",.02)
 ;;55390-0481-10
 ;;9002226.02101,"1803,55700-0330-21 ",.01)
 ;;55700-0330-21
 ;;9002226.02101,"1803,55700-0330-21 ",.02)
 ;;55700-0330-21
 ;;9002226.02101,"1803,55700-0330-30 ",.01)
 ;;55700-0330-30
 ;;9002226.02101,"1803,55700-0330-30 ",.02)
 ;;55700-0330-30
 ;;9002226.02101,"1803,55700-0378-30 ",.01)
 ;;55700-0378-30
 ;;9002226.02101,"1803,55700-0378-30 ",.02)
 ;;55700-0378-30
 ;;9002226.02101,"1803,55700-0378-60 ",.01)
 ;;55700-0378-60
 ;;9002226.02101,"1803,55700-0378-60 ",.02)
 ;;55700-0378-60
 ;;9002226.02101,"1803,55700-0438-30 ",.01)
 ;;55700-0438-30
 ;;9002226.02101,"1803,55700-0438-30 ",.02)
 ;;55700-0438-30
 ;;9002226.02101,"1803,57664-0467-08 ",.01)
 ;;57664-0467-08
 ;;9002226.02101,"1803,57664-0467-08 ",.02)
 ;;57664-0467-08
 ;;9002226.02101,"1803,57664-0471-08 ",.01)
 ;;57664-0471-08
 ;;9002226.02101,"1803,57664-0471-08 ",.02)
 ;;57664-0471-08
 ;;9002226.02101,"1803,58118-0314-05 ",.01)
 ;;58118-0314-05
 ;;9002226.02101,"1803,58118-0314-05 ",.02)
 ;;58118-0314-05
 ;;9002226.02101,"1803,58864-0296-42 ",.01)
 ;;58864-0296-42
 ;;9002226.02101,"1803,58864-0296-42 ",.02)
 ;;58864-0296-42
 ;;9002226.02101,"1803,58864-0296-90 ",.01)
 ;;58864-0296-90
 ;;9002226.02101,"1803,58864-0296-90 ",.02)
 ;;58864-0296-90
 ;;9002226.02101,"1803,59746-0379-60 ",.01)
 ;;59746-0379-60
 ;;9002226.02101,"1803,59746-0379-60 ",.02)
 ;;59746-0379-60
 ;;9002226.02101,"1803,59746-0379-90 ",.01)
 ;;59746-0379-90
 ;;9002226.02101,"1803,59746-0379-90 ",.02)
 ;;59746-0379-90
 ;;9002226.02101,"1803,60429-0534-01 ",.01)
 ;;60429-0534-01
 ;;9002226.02101,"1803,60429-0534-01 ",.02)
 ;;60429-0534-01
 ;;9002226.02101,"1803,60429-0535-01 ",.01)
 ;;60429-0535-01
 ;;9002226.02101,"1803,60429-0535-01 ",.02)
 ;;60429-0535-01
 ;;9002226.02101,"1803,60429-0570-01 ",.01)
 ;;60429-0570-01
 ;;9002226.02101,"1803,60429-0570-01 ",.02)
 ;;60429-0570-01
 ;;9002226.02101,"1803,60760-0314-20 ",.01)
 ;;60760-0314-20
 ;;9002226.02101,"1803,60760-0314-20 ",.02)
 ;;60760-0314-20
 ;;9002226.02101,"1803,60760-0402-30 ",.01)
 ;;60760-0402-30
 ;;9002226.02101,"1803,60760-0402-30 ",.02)
 ;;60760-0402-30
 ;;9002226.02101,"1803,60760-0607-14 ",.01)
 ;;60760-0607-14
 ;;9002226.02101,"1803,60760-0607-14 ",.02)
 ;;60760-0607-14
 ;;9002226.02101,"1803,61553-0170-41 ",.01)
 ;;61553-0170-41
 ;;9002226.02101,"1803,61553-0170-41 ",.02)
 ;;61553-0170-41
 ;;9002226.02101,"1803,61553-0172-48 ",.01)
 ;;61553-0172-48
 ;;9002226.02101,"1803,61553-0172-48 ",.02)
 ;;61553-0172-48
 ;;9002226.02101,"1803,61553-0173-48 ",.01)
 ;;61553-0173-48
 ;;9002226.02101,"1803,61553-0173-48 ",.02)
 ;;61553-0173-48
 ;;9002226.02101,"1803,61553-0513-69 ",.01)
 ;;61553-0513-69
 ;;9002226.02101,"1803,61553-0513-69 ",.02)
 ;;61553-0513-69
 ;;9002226.02101,"1803,61553-0611-75 ",.01)
 ;;61553-0611-75
 ;;9002226.02101,"1803,61553-0611-75 ",.02)
 ;;61553-0611-75
 ;;9002226.02101,"1803,61553-0623-75 ",.01)
 ;;61553-0623-75
 ;;9002226.02101,"1803,61553-0623-75 ",.02)
 ;;61553-0623-75
 ;;9002226.02101,"1803,61553-0674-67 ",.01)
 ;;61553-0674-67
 ;;9002226.02101,"1803,61553-0674-67 ",.02)
 ;;61553-0674-67
 ;;9002226.02101,"1803,61553-0675-76 ",.01)
 ;;61553-0675-76
 ;;9002226.02101,"1803,61553-0675-76 ",.02)
 ;;61553-0675-76
 ;;9002226.02101,"1803,61553-0676-44 ",.01)
 ;;61553-0676-44
 ;;9002226.02101,"1803,61553-0676-44 ",.02)
 ;;61553-0676-44
 ;;9002226.02101,"1803,61553-0676-67 ",.01)
 ;;61553-0676-67
 ;;9002226.02101,"1803,61553-0676-67 ",.02)
 ;;61553-0676-67
 ;;9002226.02101,"1803,61553-0677-76 ",.01)
 ;;61553-0677-76
 ;;9002226.02101,"1803,61553-0677-76 ",.02)
 ;;61553-0677-76
 ;;9002226.02101,"1803,61553-0716-68 ",.01)
 ;;61553-0716-68
 ;;9002226.02101,"1803,61553-0716-68 ",.02)
 ;;61553-0716-68
 ;;9002226.02101,"1803,61553-0840-48 ",.01)
 ;;61553-0840-48
 ;;9002226.02101,"1803,61553-0840-48 ",.02)
 ;;61553-0840-48
 ;;9002226.02101,"1803,61553-0841-48 ",.01)
 ;;61553-0841-48
 ;;9002226.02101,"1803,61553-0841-48 ",.02)
 ;;61553-0841-48
 ;;9002226.02101,"1803,61919-0129-30 ",.01)
 ;;61919-0129-30
 ;;9002226.02101,"1803,61919-0129-30 ",.02)
 ;;61919-0129-30
 ;;9002226.02101,"1803,61919-0130-15 ",.01)
 ;;61919-0130-15
 ;;9002226.02101,"1803,61919-0130-15 ",.02)
 ;;61919-0130-15
 ;;9002226.02101,"1803,61919-0130-90 ",.01)
 ;;61919-0130-90
 ;;9002226.02101,"1803,61919-0130-90 ",.02)
 ;;61919-0130-90
 ;;9002226.02101,"1803,61919-0138-10 ",.01)
 ;;61919-0138-10
 ;;9002226.02101,"1803,61919-0138-10 ",.02)
 ;;61919-0138-10
 ;;9002226.02101,"1803,61919-0138-15 ",.01)
 ;;61919-0138-15
 ;;9002226.02101,"1803,61919-0138-15 ",.02)
 ;;61919-0138-15
 ;;9002226.02101,"1803,61919-0138-20 ",.01)
 ;;61919-0138-20
 ;;9002226.02101,"1803,61919-0138-20 ",.02)
 ;;61919-0138-20
 ;;9002226.02101,"1803,61919-0138-30 ",.01)
 ;;61919-0138-30
 ;;9002226.02101,"1803,61919-0138-30 ",.02)
 ;;61919-0138-30
 ;;9002226.02101,"1803,61919-0344-60 ",.01)
 ;;61919-0344-60
 ;;9002226.02101,"1803,61919-0344-60 ",.02)
 ;;61919-0344-60
 ;;9002226.02101,"1803,61919-0487-15 ",.01)
 ;;61919-0487-15
 ;;9002226.02101,"1803,61919-0487-15 ",.02)
 ;;61919-0487-15
 ;;9002226.02101,"1803,61919-0487-30 ",.01)
 ;;61919-0487-30
 ;;9002226.02101,"1803,61919-0487-30 ",.02)
 ;;61919-0487-30
 ;;9002226.02101,"1803,61919-0487-60 ",.01)
 ;;61919-0487-60
 ;;9002226.02101,"1803,61919-0487-60 ",.02)
 ;;61919-0487-60
 ;;9002226.02101,"1803,61919-0556-30 ",.01)
 ;;61919-0556-30
 ;;9002226.02101,"1803,61919-0556-30 ",.02)
 ;;61919-0556-30
 ;;9002226.02101,"1803,63187-0128-15 ",.01)
 ;;63187-0128-15
 ;;9002226.02101,"1803,63187-0128-15 ",.02)
 ;;63187-0128-15
 ;;9002226.02101,"1803,63187-0282-30 ",.01)
 ;;63187-0282-30
 ;;9002226.02101,"1803,63187-0282-30 ",.02)
 ;;63187-0282-30
 ;;9002226.02101,"1803,63323-0161-01 ",.01)
 ;;63323-0161-01
 ;;9002226.02101,"1803,63323-0161-01 ",.02)
 ;;63323-0161-01
 ;;9002226.02101,"1803,63323-0161-12 ",.01)
 ;;63323-0161-12
 ;;9002226.02101,"1803,63323-0161-12 ",.02)
 ;;63323-0161-12
 ;;9002226.02101,"1803,63323-0161-16 ",.01)
 ;;63323-0161-16
 ;;9002226.02101,"1803,63323-0161-16 ",.02)
 ;;63323-0161-16
 ;;9002226.02101,"1803,63323-0162-01 ",.01)
 ;;63323-0162-01
 ;;9002226.02101,"1803,63323-0162-01 ",.02)
 ;;63323-0162-01
 ;;9002226.02101,"1803,63323-0162-02 ",.01)
 ;;63323-0162-02
 ;;9002226.02101,"1803,63323-0162-02 ",.02)
 ;;63323-0162-02
 ;;9002226.02101,"1803,63323-0162-12 ",.01)
 ;;63323-0162-12
 ;;9002226.02101,"1803,63323-0162-12 ",.02)
 ;;63323-0162-12
 ;;9002226.02101,"1803,63323-0162-14 ",.01)
 ;;63323-0162-14
 ;;9002226.02101,"1803,63323-0162-14 ",.02)
 ;;63323-0162-14
 ;;9002226.02101,"1803,63323-0162-16 ",.01)
 ;;63323-0162-16
 ;;9002226.02101,"1803,63323-0162-16 ",.02)
 ;;63323-0162-16
 ;;9002226.02101,"1803,63323-0162-26 ",.01)
 ;;63323-0162-26
 ;;9002226.02101,"1803,63323-0162-26 ",.02)
 ;;63323-0162-26
 ;;9002226.02101,"1803,63323-0659-03 ",.01)
 ;;63323-0659-03
 ;;9002226.02101,"1803,63323-0659-03 ",.02)
 ;;63323-0659-03
 ;;9002226.02101,"1803,63323-0659-09 ",.01)
 ;;63323-0659-09
 ;;9002226.02101,"1803,63323-0659-09 ",.02)
 ;;63323-0659-09
 ;;9002226.02101,"1803,63323-0659-94 ",.01)
 ;;63323-0659-94
 ;;9002226.02101,"1803,63323-0659-94 ",.02)
 ;;63323-0659-94
 ;;9002226.02101,"1803,63629-1418-01 ",.01)
 ;;63629-1418-01
 ;;9002226.02101,"1803,63629-1418-01 ",.02)
 ;;63629-1418-01
 ;;9002226.02101,"1803,63629-1418-02 ",.01)
 ;;63629-1418-02
 ;;9002226.02101,"1803,63629-1418-02 ",.02)
 ;;63629-1418-02
 ;;9002226.02101,"1803,63629-1418-03 ",.01)
 ;;63629-1418-03
 ;;9002226.02101,"1803,63629-1418-03 ",.02)
 ;;63629-1418-03
 ;;9002226.02101,"1803,63629-1418-04 ",.01)
 ;;63629-1418-04
 ;;9002226.02101,"1803,63629-1418-04 ",.02)
 ;;63629-1418-04
 ;;9002226.02101,"1803,63629-1418-05 ",.01)
 ;;63629-1418-05
 ;;9002226.02101,"1803,63629-1418-05 ",.02)
 ;;63629-1418-05
 ;;9002226.02101,"1803,63629-1418-06 ",.01)
 ;;63629-1418-06
 ;;9002226.02101,"1803,63629-1418-06 ",.02)
 ;;63629-1418-06
 ;;9002226.02101,"1803,63629-1780-01 ",.01)
 ;;63629-1780-01
 ;;9002226.02101,"1803,63629-1780-01 ",.02)
 ;;63629-1780-01
 ;;9002226.02101,"1803,63629-1780-02 ",.01)
 ;;63629-1780-02
 ;;9002226.02101,"1803,63629-1780-02 ",.02)
 ;;63629-1780-02
 ;;9002226.02101,"1803,63629-1780-03 ",.01)
 ;;63629-1780-03
 ;;9002226.02101,"1803,63629-1780-03 ",.02)
 ;;63629-1780-03
 ;;9002226.02101,"1803,63629-2974-01 ",.01)
 ;;63629-2974-01
 ;;9002226.02101,"1803,63629-2974-01 ",.02)
 ;;63629-2974-01
 ;;9002226.02101,"1803,63629-2974-02 ",.01)
 ;;63629-2974-02
 ;;9002226.02101,"1803,63629-2974-02 ",.02)
 ;;63629-2974-02
 ;;9002226.02101,"1803,63629-2974-03 ",.01)
 ;;63629-2974-03
 ;;9002226.02101,"1803,63629-2974-03 ",.02)
 ;;63629-2974-03
 ;;9002226.02101,"1803,63629-2974-04 ",.01)
 ;;63629-2974-04
 ;;9002226.02101,"1803,63629-2974-04 ",.02)
 ;;63629-2974-04
 ;;9002226.02101,"1803,63629-2974-05 ",.01)
 ;;63629-2974-05
 ;;9002226.02101,"1803,63629-2974-05 ",.02)
 ;;63629-2974-05
 ;;9002226.02101,"1803,63629-2974-06 ",.01)
 ;;63629-2974-06
 ;;9002226.02101,"1803,63629-2974-06 ",.02)
 ;;63629-2974-06
 ;;9002226.02101,"1803,63629-2974-07 ",.01)
 ;;63629-2974-07
 ;;9002226.02101,"1803,63629-2974-07 ",.02)
 ;;63629-2974-07
 ;;9002226.02101,"1803,63629-3201-01 ",.01)
 ;;63629-3201-01
 ;;9002226.02101,"1803,63629-3201-01 ",.02)
 ;;63629-3201-01
 ;;9002226.02101,"1803,63629-3201-02 ",.01)
 ;;63629-3201-02
 ;;9002226.02101,"1803,63629-3201-02 ",.02)
 ;;63629-3201-02
 ;;9002226.02101,"1803,63629-3201-03 ",.01)
 ;;63629-3201-03
 ;;9002226.02101,"1803,63629-3201-03 ",.02)
 ;;63629-3201-03
 ;;9002226.02101,"1803,63629-3206-01 ",.01)
 ;;63629-3206-01
 ;;9002226.02101,"1803,63629-3206-01 ",.02)
 ;;63629-3206-01
 ;;9002226.02101,"1803,63629-3206-02 ",.01)
 ;;63629-3206-02
 ;;9002226.02101,"1803,63629-3206-02 ",.02)
 ;;63629-3206-02
 ;;9002226.02101,"1803,63629-3206-03 ",.01)
 ;;63629-3206-03
 ;;9002226.02101,"1803,63629-3206-03 ",.02)
 ;;63629-3206-03
 ;;9002226.02101,"1803,63629-4549-01 ",.01)
 ;;63629-4549-01