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

BGP6T1I7.m

Go to the documentation of this file.
BGP6T1I7 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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,54868-4788-01 ",.02)
 ;;54868-4788-01
 ;;9002226.02101,"1803,54868-5808-00 ",.01)
 ;;54868-5808-00
 ;;9002226.02101,"1803,54868-5808-00 ",.02)
 ;;54868-5808-00
 ;;9002226.02101,"1803,54868-6040-00 ",.01)
 ;;54868-6040-00
 ;;9002226.02101,"1803,54868-6040-00 ",.02)
 ;;54868-6040-00
 ;;9002226.02101,"1803,54868-6040-01 ",.01)
 ;;54868-6040-01
 ;;9002226.02101,"1803,54868-6040-01 ",.02)
 ;;54868-6040-01
 ;;9002226.02101,"1803,55045-1163-01 ",.01)
 ;;55045-1163-01
 ;;9002226.02101,"1803,55045-1163-01 ",.02)
 ;;55045-1163-01
 ;;9002226.02101,"1803,55045-1163-02 ",.01)
 ;;55045-1163-02
 ;;9002226.02101,"1803,55045-1163-02 ",.02)
 ;;55045-1163-02
 ;;9002226.02101,"1803,55045-1163-04 ",.01)
 ;;55045-1163-04
 ;;9002226.02101,"1803,55045-1163-04 ",.02)
 ;;55045-1163-04
 ;;9002226.02101,"1803,55045-1163-06 ",.01)
 ;;55045-1163-06
 ;;9002226.02101,"1803,55045-1163-06 ",.02)
 ;;55045-1163-06
 ;;9002226.02101,"1803,55045-1163-08 ",.01)
 ;;55045-1163-08
 ;;9002226.02101,"1803,55045-1163-08 ",.02)
 ;;55045-1163-08
 ;;9002226.02101,"1803,55045-1163-09 ",.01)
 ;;55045-1163-09
 ;;9002226.02101,"1803,55045-1163-09 ",.02)
 ;;55045-1163-09
 ;;9002226.02101,"1803,55045-1385-02 ",.01)
 ;;55045-1385-02
 ;;9002226.02101,"1803,55045-1385-02 ",.02)
 ;;55045-1385-02
 ;;9002226.02101,"1803,55045-1385-07 ",.01)
 ;;55045-1385-07
 ;;9002226.02101,"1803,55045-1385-07 ",.02)
 ;;55045-1385-07
 ;;9002226.02101,"1803,55045-1385-08 ",.01)
 ;;55045-1385-08
 ;;9002226.02101,"1803,55045-1385-08 ",.02)
 ;;55045-1385-08
 ;;9002226.02101,"1803,55045-1437-08 ",.01)
 ;;55045-1437-08
 ;;9002226.02101,"1803,55045-1437-08 ",.02)
 ;;55045-1437-08
 ;;9002226.02101,"1803,55045-2530-03 ",.01)
 ;;55045-2530-03
 ;;9002226.02101,"1803,55045-2530-03 ",.02)
 ;;55045-2530-03
 ;;9002226.02101,"1803,55045-2530-04 ",.01)
 ;;55045-2530-04
 ;;9002226.02101,"1803,55045-2530-04 ",.02)
 ;;55045-2530-04
 ;;9002226.02101,"1803,55045-2530-05 ",.01)
 ;;55045-2530-05
 ;;9002226.02101,"1803,55045-2530-05 ",.02)
 ;;55045-2530-05
 ;;9002226.02101,"1803,55045-3037-08 ",.01)
 ;;55045-3037-08
 ;;9002226.02101,"1803,55045-3037-08 ",.02)
 ;;55045-3037-08
 ;;9002226.02101,"1803,55045-3099-00 ",.01)
 ;;55045-3099-00
 ;;9002226.02101,"1803,55045-3099-00 ",.02)
 ;;55045-3099-00
 ;;9002226.02101,"1803,55045-3099-01 ",.01)
 ;;55045-3099-01
 ;;9002226.02101,"1803,55045-3099-01 ",.02)
 ;;55045-3099-01
 ;;9002226.02101,"1803,55045-3099-04 ",.01)
 ;;55045-3099-04
 ;;9002226.02101,"1803,55045-3099-04 ",.02)
 ;;55045-3099-04
 ;;9002226.02101,"1803,55045-3099-05 ",.01)
 ;;55045-3099-05
 ;;9002226.02101,"1803,55045-3099-05 ",.02)
 ;;55045-3099-05
 ;;9002226.02101,"1803,55045-3099-07 ",.01)
 ;;55045-3099-07
 ;;9002226.02101,"1803,55045-3099-07 ",.02)
 ;;55045-3099-07
 ;;9002226.02101,"1803,55045-3099-08 ",.01)
 ;;55045-3099-08
 ;;9002226.02101,"1803,55045-3099-08 ",.02)
 ;;55045-3099-08
 ;;9002226.02101,"1803,55045-3099-09 ",.01)
 ;;55045-3099-09
 ;;9002226.02101,"1803,55045-3099-09 ",.02)
 ;;55045-3099-09
 ;;9002226.02101,"1803,55045-3213-01 ",.01)
 ;;55045-3213-01
 ;;9002226.02101,"1803,55045-3213-01 ",.02)
 ;;55045-3213-01
 ;;9002226.02101,"1803,55045-3213-02 ",.01)
 ;;55045-3213-02
 ;;9002226.02101,"1803,55045-3213-02 ",.02)
 ;;55045-3213-02
 ;;9002226.02101,"1803,55045-3555-01 ",.01)
 ;;55045-3555-01
 ;;9002226.02101,"1803,55045-3555-01 ",.02)
 ;;55045-3555-01
 ;;9002226.02101,"1803,55048-0380-20 ",.01)
 ;;55048-0380-20
 ;;9002226.02101,"1803,55048-0380-20 ",.02)
 ;;55048-0380-20
 ;;9002226.02101,"1803,55048-0380-30 ",.01)
 ;;55048-0380-30
 ;;9002226.02101,"1803,55048-0380-30 ",.02)
 ;;55048-0380-30
 ;;9002226.02101,"1803,55048-0380-60 ",.01)
 ;;55048-0380-60
 ;;9002226.02101,"1803,55048-0380-60 ",.02)
 ;;55048-0380-60
 ;;9002226.02101,"1803,55048-0406-20 ",.01)
 ;;55048-0406-20
 ;;9002226.02101,"1803,55048-0406-20 ",.02)
 ;;55048-0406-20
 ;;9002226.02101,"1803,55048-0406-30 ",.01)
 ;;55048-0406-30
 ;;9002226.02101,"1803,55048-0406-30 ",.02)
 ;;55048-0406-30
 ;;9002226.02101,"1803,55048-0407-20 ",.01)
 ;;55048-0407-20
 ;;9002226.02101,"1803,55048-0407-20 ",.02)
 ;;55048-0407-20
 ;;9002226.02101,"1803,55048-0407-30 ",.01)
 ;;55048-0407-30
 ;;9002226.02101,"1803,55048-0407-30 ",.02)
 ;;55048-0407-30
 ;;9002226.02101,"1803,55289-0147-15 ",.01)
 ;;55289-0147-15
 ;;9002226.02101,"1803,55289-0147-15 ",.02)
 ;;55289-0147-15
 ;;9002226.02101,"1803,55289-0147-20 ",.01)
 ;;55289-0147-20
 ;;9002226.02101,"1803,55289-0147-20 ",.02)
 ;;55289-0147-20
 ;;9002226.02101,"1803,55289-0147-21 ",.01)
 ;;55289-0147-21
 ;;9002226.02101,"1803,55289-0147-21 ",.02)
 ;;55289-0147-21
 ;;9002226.02101,"1803,55289-0147-30 ",.01)
 ;;55289-0147-30
 ;;9002226.02101,"1803,55289-0147-30 ",.02)
 ;;55289-0147-30
 ;;9002226.02101,"1803,55289-0147-90 ",.01)
 ;;55289-0147-90
 ;;9002226.02101,"1803,55289-0147-90 ",.02)
 ;;55289-0147-90
 ;;9002226.02101,"1803,55289-0328-10 ",.01)
 ;;55289-0328-10
 ;;9002226.02101,"1803,55289-0328-10 ",.02)
 ;;55289-0328-10
 ;;9002226.02101,"1803,55289-0328-12 ",.01)
 ;;55289-0328-12
 ;;9002226.02101,"1803,55289-0328-12 ",.02)
 ;;55289-0328-12
 ;;9002226.02101,"1803,55289-0328-15 ",.01)
 ;;55289-0328-15
 ;;9002226.02101,"1803,55289-0328-15 ",.02)
 ;;55289-0328-15
 ;;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-0299-01 ",.01)
 ;;55390-0299-01
 ;;9002226.02101,"1803,55390-0299-01 ",.02)
 ;;55390-0299-01
 ;;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,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,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-0569-01 ",.01)
 ;;60429-0569-01
 ;;9002226.02101,"1803,60429-0569-01 ",.02)
 ;;60429-0569-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-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-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-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-0138-10 ",.01)
 ;;61919-0138-10
 ;;9002226.02101,"1803,61919-0138-10 ",.02)
 ;;61919-0138-10
 ;;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-0556-30 ",.01)
 ;;61919-0556-30
 ;;9002226.02101,"1803,61919-0556-30 ",.02)
 ;;61919-0556-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-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-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