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

BGP47P6.m

Go to the documentation of this file.
BGP47P6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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,"806,00039-0052-10 ",.01)
 ;;00039-0052-10
 ;;9002226.02101,"806,00039-0052-10 ",.02)
 ;;00039-0052-10
 ;;9002226.02101,"806,00039-0052-11 ",.01)
 ;;00039-0052-11
 ;;9002226.02101,"806,00039-0052-11 ",.02)
 ;;00039-0052-11
 ;;9002226.02101,"806,00039-0052-50 ",.01)
 ;;00039-0052-50
 ;;9002226.02101,"806,00039-0052-50 ",.02)
 ;;00039-0052-50
 ;;9002226.02101,"806,00039-0052-70 ",.01)
 ;;00039-0052-70
 ;;9002226.02101,"806,00039-0052-70 ",.02)
 ;;00039-0052-70
 ;;9002226.02101,"806,00039-0053-05 ",.01)
 ;;00039-0053-05
 ;;9002226.02101,"806,00039-0053-05 ",.02)
 ;;00039-0053-05
 ;;9002226.02101,"806,00046-0749-05 ",.01)
 ;;00046-0749-05
 ;;9002226.02101,"806,00046-0749-05 ",.02)
 ;;00046-0749-05
 ;;9002226.02101,"806,00046-0864-81 ",.01)
 ;;00046-0864-81
 ;;9002226.02101,"806,00046-0864-81 ",.02)
 ;;00046-0864-81
 ;;9002226.02101,"806,00046-0865-81 ",.01)
 ;;00046-0865-81
 ;;9002226.02101,"806,00046-0865-81 ",.02)
 ;;00046-0865-81
 ;;9002226.02101,"806,00046-0865-91 ",.01)
 ;;00046-0865-91
 ;;9002226.02101,"806,00046-0865-91 ",.02)
 ;;00046-0865-91
 ;;9002226.02101,"806,00046-0866-81 ",.01)
 ;;00046-0866-81
 ;;9002226.02101,"806,00046-0866-81 ",.02)
 ;;00046-0866-81
 ;;9002226.02101,"806,00046-0866-91 ",.01)
 ;;00046-0866-91
 ;;9002226.02101,"806,00046-0866-91 ",.02)
 ;;00046-0866-91
 ;;9002226.02101,"806,00046-0866-95 ",.01)
 ;;00046-0866-95
 ;;9002226.02101,"806,00046-0866-95 ",.02)
 ;;00046-0866-95
 ;;9002226.02101,"806,00046-0866-99 ",.01)
 ;;00046-0866-99
 ;;9002226.02101,"806,00046-0866-99 ",.02)
 ;;00046-0866-99
 ;;9002226.02101,"806,00046-0867-81 ",.01)
 ;;00046-0867-81
 ;;9002226.02101,"806,00046-0867-81 ",.02)
 ;;00046-0867-81
 ;;9002226.02101,"806,00046-0867-91 ",.01)
 ;;00046-0867-91
 ;;9002226.02101,"806,00046-0867-91 ",.02)
 ;;00046-0867-91
 ;;9002226.02101,"806,00046-0867-95 ",.01)
 ;;00046-0867-95
 ;;9002226.02101,"806,00046-0867-95 ",.02)
 ;;00046-0867-95
 ;;9002226.02101,"806,00046-0867-99 ",.01)
 ;;00046-0867-99
 ;;9002226.02101,"806,00046-0867-99 ",.02)
 ;;00046-0867-99
 ;;9002226.02101,"806,00046-0868-81 ",.01)
 ;;00046-0868-81
 ;;9002226.02101,"806,00046-0868-81 ",.02)
 ;;00046-0868-81
 ;;9002226.02101,"806,00046-0868-91 ",.01)
 ;;00046-0868-91
 ;;9002226.02101,"806,00046-0868-91 ",.02)
 ;;00046-0868-91
 ;;9002226.02101,"806,00046-0875-05 ",.01)
 ;;00046-0875-05
 ;;9002226.02101,"806,00046-0875-05 ",.02)
 ;;00046-0875-05
 ;;9002226.02101,"806,00046-0875-06 ",.01)
 ;;00046-0875-06
 ;;9002226.02101,"806,00046-0875-06 ",.02)
 ;;00046-0875-06
 ;;9002226.02101,"806,00046-0875-11 ",.01)
 ;;00046-0875-11
 ;;9002226.02101,"806,00046-0875-11 ",.02)
 ;;00046-0875-11
 ;;9002226.02101,"806,00046-0936-81 ",.01)
 ;;00046-0936-81
 ;;9002226.02101,"806,00046-0936-81 ",.02)
 ;;00046-0936-81
 ;;9002226.02101,"806,00046-0937-08 ",.01)
 ;;00046-0937-08
 ;;9002226.02101,"806,00046-0937-08 ",.02)
 ;;00046-0937-08
 ;;9002226.02101,"806,00046-0937-09 ",.01)
 ;;00046-0937-09
 ;;9002226.02101,"806,00046-0937-09 ",.02)
 ;;00046-0937-09
 ;;9002226.02101,"806,00046-0937-18 ",.01)
 ;;00046-0937-18
 ;;9002226.02101,"806,00046-0937-18 ",.02)
 ;;00046-0937-18
 ;;9002226.02101,"806,00046-0938-08 ",.01)
 ;;00046-0938-08
 ;;9002226.02101,"806,00046-0938-08 ",.02)
 ;;00046-0938-08
 ;;9002226.02101,"806,00046-0938-09 ",.01)
 ;;00046-0938-09
 ;;9002226.02101,"806,00046-0938-09 ",.02)
 ;;00046-0938-09
 ;;9002226.02101,"806,00046-0938-18 ",.01)
 ;;00046-0938-18
 ;;9002226.02101,"806,00046-0938-18 ",.02)
 ;;00046-0938-18
 ;;9002226.02101,"806,00046-0975-05 ",.01)
 ;;00046-0975-05
 ;;9002226.02101,"806,00046-0975-05 ",.02)
 ;;00046-0975-05
 ;;9002226.02101,"806,00046-0975-06 ",.01)
 ;;00046-0975-06
 ;;9002226.02101,"806,00046-0975-06 ",.02)
 ;;00046-0975-06
 ;;9002226.02101,"806,00046-0975-11 ",.01)
 ;;00046-0975-11
 ;;9002226.02101,"806,00046-0975-11 ",.02)
 ;;00046-0975-11
 ;;9002226.02101,"806,00046-1100-81 ",.01)
 ;;00046-1100-81
 ;;9002226.02101,"806,00046-1100-81 ",.02)
 ;;00046-1100-81
 ;;9002226.02101,"806,00046-1100-91 ",.01)
 ;;00046-1100-91
 ;;9002226.02101,"806,00046-1100-91 ",.02)
 ;;00046-1100-91
 ;;9002226.02101,"806,00046-1101-81 ",.01)
 ;;00046-1101-81
 ;;9002226.02101,"806,00046-1101-81 ",.02)
 ;;00046-1101-81
 ;;9002226.02101,"806,00046-1102-81 ",.01)
 ;;00046-1102-81
 ;;9002226.02101,"806,00046-1102-81 ",.02)
 ;;00046-1102-81
 ;;9002226.02101,"806,00046-1102-91 ",.01)
 ;;00046-1102-91
 ;;9002226.02101,"806,00046-1102-91 ",.02)
 ;;00046-1102-91
 ;;9002226.02101,"806,00046-1103-81 ",.01)
 ;;00046-1103-81
 ;;9002226.02101,"806,00046-1103-81 ",.02)
 ;;00046-1103-81
 ;;9002226.02101,"806,00046-1104-81 ",.01)
 ;;00046-1104-81
 ;;9002226.02101,"806,00046-1104-81 ",.02)
 ;;00046-1104-81
 ;;9002226.02101,"806,00046-1104-91 ",.01)
 ;;00046-1104-91
 ;;9002226.02101,"806,00046-1104-91 ",.02)
 ;;00046-1104-91
 ;;9002226.02101,"806,00046-1105-11 ",.01)
 ;;00046-1105-11
 ;;9002226.02101,"806,00046-1105-11 ",.02)
 ;;00046-1105-11
 ;;9002226.02101,"806,00046-1106-11 ",.01)
 ;;00046-1106-11
 ;;9002226.02101,"806,00046-1106-11 ",.02)
 ;;00046-1106-11
 ;;9002226.02101,"806,00046-1107-11 ",.01)
 ;;00046-1107-11
 ;;9002226.02101,"806,00046-1107-11 ",.02)
 ;;00046-1107-11
 ;;9002226.02101,"806,00046-1108-11 ",.01)
 ;;00046-1108-11
 ;;9002226.02101,"806,00046-1108-11 ",.02)
 ;;00046-1108-11
 ;;9002226.02101,"806,00046-2573-05 ",.01)
 ;;00046-2573-05
 ;;9002226.02101,"806,00046-2573-05 ",.02)
 ;;00046-2573-05
 ;;9002226.02101,"806,00046-2573-06 ",.01)
 ;;00046-2573-06
 ;;9002226.02101,"806,00046-2573-06 ",.02)
 ;;00046-2573-06
 ;;9002226.02101,"806,00046-2575-12 ",.01)
 ;;00046-2575-12
 ;;9002226.02101,"806,00046-2575-12 ",.02)
 ;;00046-2575-12
 ;;9002226.02101,"806,00046-2579-11 ",.01)
 ;;00046-2579-11
 ;;9002226.02101,"806,00046-2579-11 ",.02)
 ;;00046-2579-11
 ;;9002226.02101,"806,00046-3867-81 ",.01)
 ;;00046-3867-81
 ;;9002226.02101,"806,00046-3867-81 ",.02)
 ;;00046-3867-81
 ;;9002226.02101,"806,00051-1028-58 ",.01)
 ;;00051-1028-58
 ;;9002226.02101,"806,00051-1028-58 ",.02)
 ;;00051-1028-58
 ;;9002226.02101,"806,00054-3542-58 ",.01)
 ;;00054-3542-58
 ;;9002226.02101,"806,00054-3542-58 ",.02)
 ;;00054-3542-58
 ;;9002226.02101,"806,00054-4603-25 ",.01)
 ;;00054-4603-25
 ;;9002226.02101,"806,00054-4603-25 ",.02)
 ;;00054-4603-25
 ;;9002226.02101,"806,00054-4604-25 ",.01)
 ;;00054-4604-25
 ;;9002226.02101,"806,00054-4604-25 ",.02)
 ;;00054-4604-25
 ;;9002226.02101,"806,00054-8603-25 ",.01)
 ;;00054-8603-25
 ;;9002226.02101,"806,00054-8603-25 ",.02)
 ;;00054-8603-25
 ;;9002226.02101,"806,00054-8604-25 ",.01)
 ;;00054-8604-25
 ;;9002226.02101,"806,00054-8604-25 ",.02)
 ;;00054-8604-25
 ;;9002226.02101,"806,00062-1840-15 ",.01)
 ;;00062-1840-15
 ;;9002226.02101,"806,00062-1840-15 ",.02)
 ;;00062-1840-15
 ;;9002226.02101,"806,00069-3930-66 ",.01)
 ;;00069-3930-66
 ;;9002226.02101,"806,00069-3930-66 ",.02)
 ;;00069-3930-66
 ;;9002226.02101,"806,00069-3940-66 ",.01)
 ;;00069-3940-66
 ;;9002226.02101,"806,00069-3940-66 ",.02)
 ;;00069-3940-66
 ;;9002226.02101,"806,00069-3940-82 ",.01)
 ;;00069-3940-82
 ;;9002226.02101,"806,00069-3940-82 ",.02)
 ;;00069-3940-82
 ;;9002226.02101,"806,00071-0144-23 ",.01)
 ;;00071-0144-23
 ;;9002226.02101,"806,00071-0144-23 ",.02)
 ;;00071-0144-23
 ;;9002226.02101,"806,00071-0144-45 ",.01)
 ;;00071-0144-45
 ;;9002226.02101,"806,00071-0144-45 ",.02)
 ;;00071-0144-45
 ;;9002226.02101,"806,00078-0343-42 ",.01)
 ;;00078-0343-42
 ;;9002226.02101,"806,00078-0343-42 ",.02)
 ;;00078-0343-42
 ;;9002226.02101,"806,00078-0343-45 ",.01)
 ;;00078-0343-45
 ;;9002226.02101,"806,00078-0343-45 ",.02)
 ;;00078-0343-45
 ;;9002226.02101,"806,00078-0343-62 ",.01)
 ;;00078-0343-62
 ;;9002226.02101,"806,00078-0343-62 ",.02)
 ;;00078-0343-62
 ;;9002226.02101,"806,00078-0344-42 ",.01)
 ;;00078-0344-42
 ;;9002226.02101,"806,00078-0344-42 ",.02)
 ;;00078-0344-42
 ;;9002226.02101,"806,00078-0344-45 ",.01)
 ;;00078-0344-45
 ;;9002226.02101,"806,00078-0344-45 ",.02)
 ;;00078-0344-45
 ;;9002226.02101,"806,00078-0344-62 ",.01)
 ;;00078-0344-62
 ;;9002226.02101,"806,00078-0344-62 ",.02)
 ;;00078-0344-62
 ;;9002226.02101,"806,00078-0345-42 ",.01)
 ;;00078-0345-42
 ;;9002226.02101,"806,00078-0345-42 ",.02)
 ;;00078-0345-42
 ;;9002226.02101,"806,00078-0345-45 ",.01)
 ;;00078-0345-45
 ;;9002226.02101,"806,00078-0345-45 ",.02)
 ;;00078-0345-45
 ;;9002226.02101,"806,00078-0345-62 ",.01)
 ;;00078-0345-62
 ;;9002226.02101,"806,00078-0345-62 ",.02)
 ;;00078-0345-62
 ;;9002226.02101,"806,00078-0346-42 ",.01)
 ;;00078-0346-42
 ;;9002226.02101,"806,00078-0346-42 ",.02)
 ;;00078-0346-42
 ;;9002226.02101,"806,00078-0346-45 ",.01)
 ;;00078-0346-45
 ;;9002226.02101,"806,00078-0346-45 ",.02)
 ;;00078-0346-45
 ;;9002226.02101,"806,00078-0346-62 ",.01)
 ;;00078-0346-62
 ;;9002226.02101,"806,00078-0346-62 ",.02)
 ;;00078-0346-62
 ;;9002226.02101,"806,00078-0348-42 ",.01)
 ;;00078-0348-42
 ;;9002226.02101,"806,00078-0348-42 ",.02)
 ;;00078-0348-42
 ;;9002226.02101,"806,00078-0348-44 ",.01)
 ;;00078-0348-44
 ;;9002226.02101,"806,00078-0348-44 ",.02)
 ;;00078-0348-44
 ;;9002226.02101,"806,00078-0365-42 ",.01)
 ;;00078-0365-42
 ;;9002226.02101,"806,00078-0365-42 ",.02)
 ;;00078-0365-42
 ;;9002226.02101,"806,00078-0365-45 ",.01)
 ;;00078-0365-45
 ;;9002226.02101,"806,00078-0365-45 ",.02)
 ;;00078-0365-45
 ;;9002226.02101,"806,00078-0377-42 ",.01)
 ;;00078-0377-42
 ;;9002226.02101,"806,00078-0377-42 ",.02)
 ;;00078-0377-42
 ;;9002226.02101,"806,00078-0377-45 ",.01)
 ;;00078-0377-45
 ;;9002226.02101,"806,00078-0377-45 ",.02)
 ;;00078-0377-45
 ;;9002226.02101,"806,00078-0377-62 ",.01)
 ;;00078-0377-62
 ;;9002226.02101,"806,00078-0377-62 ",.02)
 ;;00078-0377-62
 ;;9002226.02101,"806,00078-0378-42 ",.01)
 ;;00078-0378-42
 ;;9002226.02101,"806,00078-0378-42 ",.02)
 ;;00078-0378-42
 ;;9002226.02101,"806,00078-0378-45 ",.01)
 ;;00078-0378-45
 ;;9002226.02101,"806,00078-0378-45 ",.02)
 ;;00078-0378-45
 ;;9002226.02101,"806,00078-0378-62 ",.01)
 ;;00078-0378-62
 ;;9002226.02101,"806,00078-0378-62 ",.02)
 ;;00078-0378-62
 ;;9002226.02101,"806,00078-0481-42 ",.01)
 ;;00078-0481-42
 ;;9002226.02101,"806,00078-0481-42 ",.02)
 ;;00078-0481-42
 ;;9002226.02101,"806,00078-0481-62 ",.01)
 ;;00078-0481-62
 ;;9002226.02101,"806,00078-0481-62 ",.02)
 ;;00078-0481-62
 ;;9002226.02101,"806,00083-2310-01 ",.01)
 ;;00083-2310-01
 ;;9002226.02101,"806,00083-2310-01 ",.02)
 ;;00083-2310-01
 ;;9002226.02101,"806,00083-2310-08 ",.01)
 ;;00083-2310-08
 ;;9002226.02101,"806,00083-2310-08 ",.02)
 ;;00083-2310-08
 ;;9002226.02101,"806,00083-2310-62 ",.01)
 ;;00083-2310-62
 ;;9002226.02101,"806,00083-2310-62 ",.02)
 ;;00083-2310-62
 ;;9002226.02101,"806,00083-2320-01 ",.01)
 ;;00083-2320-01
 ;;9002226.02101,"806,00083-2320-01 ",.02)
 ;;00083-2320-01
 ;;9002226.02101,"806,00083-2320-08 ",.01)
 ;;00083-2320-08
 ;;9002226.02101,"806,00083-2320-08 ",.02)
 ;;00083-2320-08
 ;;9002226.02101,"806,00083-2320-62 ",.01)
 ;;00083-2320-62
 ;;9002226.02101,"806,00083-2320-62 ",.02)
 ;;00083-2320-62
 ;;9002226.02101,"806,00083-2325-01 ",.01)
 ;;00083-2325-01
 ;;9002226.02101,"806,00083-2325-01 ",.02)
 ;;00083-2325-01
 ;;9002226.02101,"806,00083-2325-08 ",.01)
 ;;00083-2325-08
 ;;9002226.02101,"806,00083-2325-08 ",.02)
 ;;00083-2325-08
 ;;9002226.02101,"806,00083-2325-62 ",.01)
 ;;00083-2325-62
 ;;9002226.02101,"806,00083-2325-62 ",.02)
 ;;00083-2325-62
 ;;9002226.02101,"806,00083-2326-01 ",.01)
 ;;00083-2326-01
 ;;9002226.02101,"806,00083-2326-01 ",.02)
 ;;00083-2326-01
 ;;9002226.02101,"806,00083-2326-08 ",.01)
 ;;00083-2326-08
 ;;9002226.02101,"806,00083-2326-08 ",.02)
 ;;00083-2326-08
 ;;9002226.02101,"806,00083-2326-62 ",.01)
 ;;00083-2326-62
 ;;9002226.02101,"806,00083-2326-62 ",.02)
 ;;00083-2326-62
 ;;9002226.02101,"806,00083-2327-01 ",.01)
 ;;00083-2327-01
 ;;9002226.02101,"806,00083-2327-01 ",.02)
 ;;00083-2327-01
 ;;9002226.02101,"806,00083-2327-08 ",.01)
 ;;00083-2327-08
 ;;9002226.02101,"806,00083-2327-08 ",.02)
 ;;00083-2327-08
 ;;9002226.02101,"806,00083-2327-62 ",.01)
 ;;00083-2327-62
 ;;9002226.02101,"806,00083-2327-62 ",.02)
 ;;00083-2327-62
 ;;9002226.02101,"806,00083-2328-01 ",.01)
 ;;00083-2328-01
 ;;9002226.02101,"806,00083-2328-01 ",.02)
 ;;00083-2328-01
 ;;9002226.02101,"806,00083-2328-08 ",.01)
 ;;00083-2328-08
 ;;9002226.02101,"806,00083-2328-08 ",.02)
 ;;00083-2328-08
 ;;9002226.02101,"806,00083-2328-62 ",.01)
 ;;00083-2328-62
 ;;9002226.02101,"806,00083-2328-62 ",.02)
 ;;00083-2328-62
 ;;9002226.02101,"806,00085-0070-03 ",.01)
 ;;00085-0070-03
 ;;9002226.02101,"806,00085-0070-03 ",.02)
 ;;00085-0070-03
 ;;9002226.02101,"806,00085-0070-06 ",.01)
 ;;00085-0070-06
 ;;9002226.02101,"806,00085-0070-06 ",.02)
 ;;00085-0070-06
 ;;9002226.02101,"806,00085-0298-03 ",.01)
 ;;00085-0298-03
 ;;9002226.02101,"806,00085-0298-03 ",.02)
 ;;00085-0298-03
 ;;9002226.02101,"806,00085-0298-06 ",.01)
 ;;00085-0298-06
 ;;9002226.02101,"806,00085-0298-06 ",.02)
 ;;00085-0298-06
 ;;9002226.02101,"806,00087-0021-41 ",.01)
 ;;00087-0021-41
 ;;9002226.02101,"806,00087-0021-41 ",.02)
 ;;00087-0021-41
 ;;9002226.02101,"806,00087-0755-01 ",.01)
 ;;00087-0755-01
 ;;9002226.02101,"806,00087-0755-01 ",.02)
 ;;00087-0755-01
 ;;9002226.02101,"806,00087-0755-48 ",.01)
 ;;00087-0755-48
 ;;9002226.02101,"806,00087-0755-48 ",.02)
 ;;00087-0755-48
 ;;9002226.02101,"806,00087-0756-01 ",.01)
 ;;00087-0756-01
 ;;9002226.02101,"806,00087-0756-01 ",.02)
 ;;00087-0756-01