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

BGP7LXIC.m

Go to the documentation of this file.
BGP7LXIC ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 29, 2006 ;
 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
 ;
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,"626,54429-3227-03 ",.01)
 ;;54429-3227-03
 ;;9002226.02101,"626,54429-3227-03 ",.02)
 ;;54429-3227-03
 ;;9002226.02101,"626,54429-3453-01 ",.01)
 ;;54429-3453-01
 ;;9002226.02101,"626,54429-3453-01 ",.02)
 ;;54429-3453-01
 ;;9002226.02101,"626,54569-0241-00 ",.01)
 ;;54569-0241-00
 ;;9002226.02101,"626,54569-0241-00 ",.02)
 ;;54569-0241-00
 ;;9002226.02101,"626,54569-0241-01 ",.01)
 ;;54569-0241-01
 ;;9002226.02101,"626,54569-0241-01 ",.02)
 ;;54569-0241-01
 ;;9002226.02101,"626,54569-2464-00 ",.01)
 ;;54569-2464-00
 ;;9002226.02101,"626,54569-2464-00 ",.02)
 ;;54569-2464-00
 ;;9002226.02101,"626,54569-3005-00 ",.01)
 ;;54569-3005-00
 ;;9002226.02101,"626,54569-3005-00 ",.02)
 ;;54569-3005-00
 ;;9002226.02101,"626,54569-3010-00 ",.01)
 ;;54569-3010-00
 ;;9002226.02101,"626,54569-3010-00 ",.02)
 ;;54569-3010-00
 ;;9002226.02101,"626,54569-3023-00 ",.01)
 ;;54569-3023-00
 ;;9002226.02101,"626,54569-3023-00 ",.02)
 ;;54569-3023-00
 ;;9002226.02101,"626,54569-3026-00 ",.01)
 ;;54569-3026-00
 ;;9002226.02101,"626,54569-3026-00 ",.02)
 ;;54569-3026-00
 ;;9002226.02101,"626,54569-3121-00 ",.01)
 ;;54569-3121-00
 ;;9002226.02101,"626,54569-3121-00 ",.02)
 ;;54569-3121-00
 ;;9002226.02101,"626,54569-3121-01 ",.01)
 ;;54569-3121-01
 ;;9002226.02101,"626,54569-3121-01 ",.02)
 ;;54569-3121-01
 ;;9002226.02101,"626,54569-3121-02 ",.01)
 ;;54569-3121-02
 ;;9002226.02101,"626,54569-3121-02 ",.02)
 ;;54569-3121-02
 ;;9002226.02101,"626,54569-3121-03 ",.01)
 ;;54569-3121-03
 ;;9002226.02101,"626,54569-3121-03 ",.02)
 ;;54569-3121-03
 ;;9002226.02101,"626,54569-3121-04 ",.01)
 ;;54569-3121-04
 ;;9002226.02101,"626,54569-3121-04 ",.02)
 ;;54569-3121-04
 ;;9002226.02101,"626,54569-3121-05 ",.01)
 ;;54569-3121-05
 ;;9002226.02101,"626,54569-3121-05 ",.02)
 ;;54569-3121-05
 ;;9002226.02101,"626,54569-3122-02 ",.01)
 ;;54569-3122-02
 ;;9002226.02101,"626,54569-3122-02 ",.02)
 ;;54569-3122-02
 ;;9002226.02101,"626,54868-1050-01 ",.01)
 ;;54868-1050-01
 ;;9002226.02101,"626,54868-1050-01 ",.02)
 ;;54868-1050-01
 ;;9002226.02101,"626,54868-1050-03 ",.01)
 ;;54868-1050-03
 ;;9002226.02101,"626,54868-1050-03 ",.02)
 ;;54868-1050-03
 ;;9002226.02101,"626,54868-1050-04 ",.01)
 ;;54868-1050-04
 ;;9002226.02101,"626,54868-1050-04 ",.02)
 ;;54868-1050-04
 ;;9002226.02101,"626,54868-1050-05 ",.01)
 ;;54868-1050-05
 ;;9002226.02101,"626,54868-1050-05 ",.02)
 ;;54868-1050-05
 ;;9002226.02101,"626,54868-1326-00 ",.01)
 ;;54868-1326-00
 ;;9002226.02101,"626,54868-1326-00 ",.02)
 ;;54868-1326-00
 ;;9002226.02101,"626,54868-1326-02 ",.01)
 ;;54868-1326-02
 ;;9002226.02101,"626,54868-1326-02 ",.02)
 ;;54868-1326-02
 ;;9002226.02101,"626,54868-1521-00 ",.01)
 ;;54868-1521-00
 ;;9002226.02101,"626,54868-1521-00 ",.02)
 ;;54868-1521-00
 ;;9002226.02101,"626,54868-1521-02 ",.01)
 ;;54868-1521-02
 ;;9002226.02101,"626,54868-1521-02 ",.02)
 ;;54868-1521-02
 ;;9002226.02101,"626,54868-3644-00 ",.01)
 ;;54868-3644-00
 ;;9002226.02101,"626,54868-3644-00 ",.02)
 ;;54868-3644-00
 ;;9002226.02101,"626,55045-1124-00 ",.01)
 ;;55045-1124-00
 ;;9002226.02101,"626,55045-1124-00 ",.02)
 ;;55045-1124-00
 ;;9002226.02101,"626,55045-1124-05 ",.01)
 ;;55045-1124-05
 ;;9002226.02101,"626,55045-1124-05 ",.02)
 ;;55045-1124-05
 ;;9002226.02101,"626,55045-1124-08 ",.01)
 ;;55045-1124-08
 ;;9002226.02101,"626,55045-1124-08 ",.02)
 ;;55045-1124-08
 ;;9002226.02101,"626,55175-3891-01 ",.01)
 ;;55175-3891-01
 ;;9002226.02101,"626,55175-3891-01 ",.02)
 ;;55175-3891-01
 ;;9002226.02101,"626,55175-3891-02 ",.01)
 ;;55175-3891-02
 ;;9002226.02101,"626,55175-3891-02 ",.02)
 ;;55175-3891-02
 ;;9002226.02101,"626,55175-3891-03 ",.01)
 ;;55175-3891-03
 ;;9002226.02101,"626,55175-3891-03 ",.02)
 ;;55175-3891-03
 ;;9002226.02101,"626,55175-3891-05 ",.01)
 ;;55175-3891-05
 ;;9002226.02101,"626,55175-3891-05 ",.02)
 ;;55175-3891-05
 ;;9002226.02101,"626,55289-0100-40 ",.01)
 ;;55289-0100-40
 ;;9002226.02101,"626,55289-0100-40 ",.02)
 ;;55289-0100-40
 ;;9002226.02101,"626,55289-0884-16 ",.01)
 ;;55289-0884-16
 ;;9002226.02101,"626,55289-0884-16 ",.02)
 ;;55289-0884-16
 ;;9002226.02101,"626,55289-0907-08 ",.01)
 ;;55289-0907-08
 ;;9002226.02101,"626,55289-0907-08 ",.02)
 ;;55289-0907-08
 ;;9002226.02101,"626,55289-0907-30 ",.01)
 ;;55289-0907-30
 ;;9002226.02101,"626,55289-0907-30 ",.02)
 ;;55289-0907-30
 ;;9002226.02101,"626,55289-0907-97 ",.01)
 ;;55289-0907-97
 ;;9002226.02101,"626,55289-0907-97 ",.02)
 ;;55289-0907-97
 ;;9002226.02101,"626,55370-0156-07 ",.01)
 ;;55370-0156-07
 ;;9002226.02101,"626,55370-0156-07 ",.02)
 ;;55370-0156-07
 ;;9002226.02101,"626,55370-0156-11 ",.01)
 ;;55370-0156-11
 ;;9002226.02101,"626,55370-0156-11 ",.02)
 ;;55370-0156-11
 ;;9002226.02101,"626,55370-0157-07 ",.01)
 ;;55370-0157-07
 ;;9002226.02101,"626,55370-0157-07 ",.02)
 ;;55370-0157-07
 ;;9002226.02101,"626,55370-0157-11 ",.01)
 ;;55370-0157-11
 ;;9002226.02101,"626,55370-0157-11 ",.02)
 ;;55370-0157-11
 ;;9002226.02101,"626,55726-0259-10 ",.01)
 ;;55726-0259-10
 ;;9002226.02101,"626,55726-0259-10 ",.02)
 ;;55726-0259-10
 ;;9002226.02101,"626,55953-0171-40 ",.01)
 ;;55953-0171-40
 ;;9002226.02101,"626,55953-0171-40 ",.02)
 ;;55953-0171-40
 ;;9002226.02101,"626,55953-0171-41 ",.01)
 ;;55953-0171-41
 ;;9002226.02101,"626,55953-0171-41 ",.02)
 ;;55953-0171-41
 ;;9002226.02101,"626,55953-0171-60 ",.01)
 ;;55953-0171-60
 ;;9002226.02101,"626,55953-0171-60 ",.02)
 ;;55953-0171-60
 ;;9002226.02101,"626,55953-0171-81 ",.01)
 ;;55953-0171-81
 ;;9002226.02101,"626,55953-0171-81 ",.02)
 ;;55953-0171-81
 ;;9002226.02101,"626,56126-0449-11 ",.01)
 ;;56126-0449-11
 ;;9002226.02101,"626,56126-0449-11 ",.02)
 ;;56126-0449-11
 ;;9002226.02101,"626,56126-0453-11 ",.01)
 ;;56126-0453-11
 ;;9002226.02101,"626,56126-0453-11 ",.02)
 ;;56126-0453-11
 ;;9002226.02101,"626,57480-0389-06 ",.01)
 ;;57480-0389-06
 ;;9002226.02101,"626,57480-0389-06 ",.02)
 ;;57480-0389-06
 ;;9002226.02101,"626,57664-0872-08 ",.01)
 ;;57664-0872-08
 ;;9002226.02101,"626,57664-0872-08 ",.02)
 ;;57664-0872-08
 ;;9002226.02101,"626,57664-0872-11 ",.01)
 ;;57664-0872-11
 ;;9002226.02101,"626,57664-0872-11 ",.02)
 ;;57664-0872-11
 ;;9002226.02101,"626,57664-0872-18 ",.01)
 ;;57664-0872-18
 ;;9002226.02101,"626,57664-0872-18 ",.02)
 ;;57664-0872-18
 ;;9002226.02101,"626,57664-0873-08 ",.01)
 ;;57664-0873-08
 ;;9002226.02101,"626,57664-0873-08 ",.02)
 ;;57664-0873-08
 ;;9002226.02101,"626,57664-0873-11 ",.01)
 ;;57664-0873-11
 ;;9002226.02101,"626,57664-0873-11 ",.02)
 ;;57664-0873-11
 ;;9002226.02101,"626,57664-0873-18 ",.01)
 ;;57664-0873-18
 ;;9002226.02101,"626,57664-0873-18 ",.02)
 ;;57664-0873-18
 ;;9002226.02101,"626,57866-3762-02 ",.01)
 ;;57866-3762-02
 ;;9002226.02101,"626,57866-3762-02 ",.02)
 ;;57866-3762-02
 ;;9002226.02101,"626,58016-0620-00 ",.01)
 ;;58016-0620-00
 ;;9002226.02101,"626,58016-0620-00 ",.02)
 ;;58016-0620-00
 ;;9002226.02101,"626,58016-0620-12 ",.01)
 ;;58016-0620-12
 ;;9002226.02101,"626,58016-0620-12 ",.02)
 ;;58016-0620-12
 ;;9002226.02101,"626,58016-0620-15 ",.01)
 ;;58016-0620-15
 ;;9002226.02101,"626,58016-0620-15 ",.02)
 ;;58016-0620-15
 ;;9002226.02101,"626,58016-0620-20 ",.01)
 ;;58016-0620-20
 ;;9002226.02101,"626,58016-0620-20 ",.02)
 ;;58016-0620-20
 ;;9002226.02101,"626,58016-0620-30 ",.01)
 ;;58016-0620-30
 ;;9002226.02101,"626,58016-0620-30 ",.02)
 ;;58016-0620-30
 ;;9002226.02101,"626,58016-0620-90 ",.01)
 ;;58016-0620-90
 ;;9002226.02101,"626,58016-0620-90 ",.02)
 ;;58016-0620-90
 ;;9002226.02101,"626,58016-0622-00 ",.01)
 ;;58016-0622-00
 ;;9002226.02101,"626,58016-0622-00 ",.02)
 ;;58016-0622-00
 ;;9002226.02101,"626,58016-0622-08 ",.01)
 ;;58016-0622-08
 ;;9002226.02101,"626,58016-0622-08 ",.02)
 ;;58016-0622-08
 ;;9002226.02101,"626,58016-0622-12 ",.01)
 ;;58016-0622-12
 ;;9002226.02101,"626,58016-0622-12 ",.02)
 ;;58016-0622-12
 ;;9002226.02101,"626,58016-0622-15 ",.01)
 ;;58016-0622-15
 ;;9002226.02101,"626,58016-0622-15 ",.02)
 ;;58016-0622-15
 ;;9002226.02101,"626,58016-0622-20 ",.01)
 ;;58016-0622-20
 ;;9002226.02101,"626,58016-0622-20 ",.02)
 ;;58016-0622-20
 ;;9002226.02101,"626,58016-0622-30 ",.01)
 ;;58016-0622-30
 ;;9002226.02101,"626,58016-0622-30 ",.02)
 ;;58016-0622-30
 ;;9002226.02101,"626,58016-0622-50 ",.01)
 ;;58016-0622-50
 ;;9002226.02101,"626,58016-0622-50 ",.02)
 ;;58016-0622-50
 ;;9002226.02101,"626,58016-0622-60 ",.01)
 ;;58016-0622-60
 ;;9002226.02101,"626,58016-0622-60 ",.02)
 ;;58016-0622-60
 ;;9002226.02101,"626,58016-0622-90 ",.01)
 ;;58016-0622-90
 ;;9002226.02101,"626,58016-0622-90 ",.02)
 ;;58016-0622-90
 ;;9002226.02101,"626,58441-0114-10 ",.01)
 ;;58441-0114-10
 ;;9002226.02101,"626,58441-0114-10 ",.02)
 ;;58441-0114-10
 ;;9002226.02101,"626,58864-0163-01 ",.01)
 ;;58864-0163-01
 ;;9002226.02101,"626,58864-0163-01 ",.02)
 ;;58864-0163-01
 ;;9002226.02101,"626,59010-0535-10 ",.01)
 ;;59010-0535-10
 ;;9002226.02101,"626,59010-0535-10 ",.02)
 ;;59010-0535-10
 ;;9002226.02101,"626,60346-0045-06 ",.01)
 ;;60346-0045-06
 ;;9002226.02101,"626,60346-0045-06 ",.02)
 ;;60346-0045-06
 ;;9002226.02101,"626,60346-0045-12 ",.01)
 ;;60346-0045-12
 ;;9002226.02101,"626,60346-0045-12 ",.02)
 ;;60346-0045-12
 ;;9002226.02101,"626,60346-0045-15 ",.01)
 ;;60346-0045-15
 ;;9002226.02101,"626,60346-0045-15 ",.02)
 ;;60346-0045-15
 ;;9002226.02101,"626,60346-0045-20 ",.01)
 ;;60346-0045-20
 ;;9002226.02101,"626,60346-0045-20 ",.02)
 ;;60346-0045-20
 ;;9002226.02101,"626,60346-0045-30 ",.01)
 ;;60346-0045-30
 ;;9002226.02101,"626,60346-0045-30 ",.02)
 ;;60346-0045-30
 ;;9002226.02101,"626,60346-0045-44 ",.01)
 ;;60346-0045-44
 ;;9002226.02101,"626,60346-0045-44 ",.02)
 ;;60346-0045-44
 ;;9002226.02101,"626,60346-0045-60 ",.01)
 ;;60346-0045-60
 ;;9002226.02101,"626,60346-0045-60 ",.02)
 ;;60346-0045-60
 ;;9002226.02101,"626,60346-0045-94 ",.01)
 ;;60346-0045-94
 ;;9002226.02101,"626,60346-0045-94 ",.02)
 ;;60346-0045-94
 ;;9002226.02101,"626,60809-0300-55 ",.01)
 ;;60809-0300-55
 ;;9002226.02101,"626,60809-0300-55 ",.02)
 ;;60809-0300-55
 ;;9002226.02101,"626,60809-0300-72 ",.01)
 ;;60809-0300-72
 ;;9002226.02101,"626,60809-0300-72 ",.02)
 ;;60809-0300-72
 ;;9002226.02101,"626,60809-0301-55 ",.01)
 ;;60809-0301-55
 ;;9002226.02101,"626,60809-0301-55 ",.02)
 ;;60809-0301-55
 ;;9002226.02101,"626,60809-0301-72 ",.01)
 ;;60809-0301-72
 ;;9002226.02101,"626,60809-0301-72 ",.02)
 ;;60809-0301-72
 ;;9002226.02101,"626,60977-0001-44 ",.01)
 ;;60977-0001-44
 ;;9002226.02101,"626,60977-0001-44 ",.02)
 ;;60977-0001-44
 ;;9002226.02101,"626,60977-0002-44 ",.01)
 ;;60977-0002-44
 ;;9002226.02101,"626,60977-0002-44 ",.02)
 ;;60977-0002-44
 ;;9002226.02101,"626,61392-0353-30 ",.01)
 ;;61392-0353-30
 ;;9002226.02101,"626,61392-0353-30 ",.02)
 ;;61392-0353-30
 ;;9002226.02101,"626,61392-0353-31 ",.01)
 ;;61392-0353-31
 ;;9002226.02101,"626,61392-0353-31 ",.02)
 ;;61392-0353-31
 ;;9002226.02101,"626,61392-0353-32 ",.01)
 ;;61392-0353-32
 ;;9002226.02101,"626,61392-0353-32 ",.02)
 ;;61392-0353-32
 ;;9002226.02101,"626,61392-0353-34 ",.01)
 ;;61392-0353-34
 ;;9002226.02101,"626,61392-0353-34 ",.02)
 ;;61392-0353-34
 ;;9002226.02101,"626,61392-0353-36 ",.01)
 ;;61392-0353-36
 ;;9002226.02101,"626,61392-0353-36 ",.02)
 ;;61392-0353-36
 ;;9002226.02101,"626,61392-0353-39 ",.01)
 ;;61392-0353-39
 ;;9002226.02101,"626,61392-0353-39 ",.02)
 ;;61392-0353-39
 ;;9002226.02101,"626,61392-0353-45 ",.01)
 ;;61392-0353-45
 ;;9002226.02101,"626,61392-0353-45 ",.02)
 ;;61392-0353-45
 ;;9002226.02101,"626,61392-0353-51 ",.01)
 ;;61392-0353-51
 ;;9002226.02101,"626,61392-0353-51 ",.02)
 ;;61392-0353-51
 ;;9002226.02101,"626,61392-0353-54 ",.01)
 ;;61392-0353-54
 ;;9002226.02101,"626,61392-0353-54 ",.02)
 ;;61392-0353-54
 ;;9002226.02101,"626,61392-0353-56 ",.01)
 ;;61392-0353-56
 ;;9002226.02101,"626,61392-0353-56 ",.02)
 ;;61392-0353-56
 ;;9002226.02101,"626,61392-0353-60 ",.01)
 ;;61392-0353-60
 ;;9002226.02101,"626,61392-0353-60 ",.02)
 ;;61392-0353-60
 ;;9002226.02101,"626,61392-0353-90 ",.01)
 ;;61392-0353-90
 ;;9002226.02101,"626,61392-0353-90 ",.02)
 ;;61392-0353-90
 ;;9002226.02101,"626,61392-0353-91 ",.01)
 ;;61392-0353-91
 ;;9002226.02101,"626,61392-0353-91 ",.02)
 ;;61392-0353-91
 ;;9002226.02101,"626,61392-0356-15 ",.01)
 ;;61392-0356-15
 ;;9002226.02101,"626,61392-0356-15 ",.02)
 ;;61392-0356-15
 ;;9002226.02101,"626,61392-0356-30 ",.01)
 ;;61392-0356-30
 ;;9002226.02101,"626,61392-0356-30 ",.02)
 ;;61392-0356-30
 ;;9002226.02101,"626,61392-0356-31 ",.01)
 ;;61392-0356-31
 ;;9002226.02101,"626,61392-0356-31 ",.02)
 ;;61392-0356-31
 ;;9002226.02101,"626,61392-0356-32 ",.01)
 ;;61392-0356-32
 ;;9002226.02101,"626,61392-0356-32 ",.02)
 ;;61392-0356-32
 ;;9002226.02101,"626,61392-0356-39 ",.01)
 ;;61392-0356-39
 ;;9002226.02101,"626,61392-0356-39 ",.02)
 ;;61392-0356-39
 ;;9002226.02101,"626,61392-0356-45 ",.01)
 ;;61392-0356-45
 ;;9002226.02101,"626,61392-0356-45 ",.02)
 ;;61392-0356-45
 ;;9002226.02101,"626,61392-0356-51 ",.01)
 ;;61392-0356-51
 ;;9002226.02101,"626,61392-0356-51 ",.02)
 ;;61392-0356-51
 ;;9002226.02101,"626,61392-0356-54 ",.01)
 ;;61392-0356-54
 ;;9002226.02101,"626,61392-0356-54 ",.02)
 ;;61392-0356-54
 ;;9002226.02101,"626,61392-0356-56 ",.01)
 ;;61392-0356-56
 ;;9002226.02101,"626,61392-0356-56 ",.02)
 ;;61392-0356-56
 ;;9002226.02101,"626,61392-0356-60 ",.01)
 ;;61392-0356-60
 ;;9002226.02101,"626,61392-0356-60 ",.02)
 ;;61392-0356-60