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

BGP51I4.m

Go to the documentation of this file.
BGP51I4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"726,54868-1326-04 ",.02)
 ;;54868-1326-04
 ;;9002226.02101,"726,54868-1326-05 ",.01)
 ;;54868-1326-05
 ;;9002226.02101,"726,54868-1326-05 ",.02)
 ;;54868-1326-05
 ;;9002226.02101,"726,54868-1326-06 ",.01)
 ;;54868-1326-06
 ;;9002226.02101,"726,54868-1326-06 ",.02)
 ;;54868-1326-06
 ;;9002226.02101,"726,54868-1326-07 ",.01)
 ;;54868-1326-07
 ;;9002226.02101,"726,54868-1326-07 ",.02)
 ;;54868-1326-07
 ;;9002226.02101,"726,54868-1328-00 ",.01)
 ;;54868-1328-00
 ;;9002226.02101,"726,54868-1328-00 ",.02)
 ;;54868-1328-00
 ;;9002226.02101,"726,54868-1328-01 ",.01)
 ;;54868-1328-01
 ;;9002226.02101,"726,54868-1328-01 ",.02)
 ;;54868-1328-01
 ;;9002226.02101,"726,54868-1328-02 ",.01)
 ;;54868-1328-02
 ;;9002226.02101,"726,54868-1328-02 ",.02)
 ;;54868-1328-02
 ;;9002226.02101,"726,54868-1328-03 ",.01)
 ;;54868-1328-03
 ;;9002226.02101,"726,54868-1328-03 ",.02)
 ;;54868-1328-03
 ;;9002226.02101,"726,54868-1521-00 ",.01)
 ;;54868-1521-00
 ;;9002226.02101,"726,54868-1521-00 ",.02)
 ;;54868-1521-00
 ;;9002226.02101,"726,54868-1521-02 ",.01)
 ;;54868-1521-02
 ;;9002226.02101,"726,54868-1521-02 ",.02)
 ;;54868-1521-02
 ;;9002226.02101,"726,54868-2134-01 ",.01)
 ;;54868-2134-01
 ;;9002226.02101,"726,54868-2134-01 ",.02)
 ;;54868-2134-01
 ;;9002226.02101,"726,54868-2134-02 ",.01)
 ;;54868-2134-02
 ;;9002226.02101,"726,54868-2134-02 ",.02)
 ;;54868-2134-02
 ;;9002226.02101,"726,54868-2134-03 ",.01)
 ;;54868-2134-03
 ;;9002226.02101,"726,54868-2134-03 ",.02)
 ;;54868-2134-03
 ;;9002226.02101,"726,54868-2134-04 ",.01)
 ;;54868-2134-04
 ;;9002226.02101,"726,54868-2134-04 ",.02)
 ;;54868-2134-04
 ;;9002226.02101,"726,54868-2181-00 ",.01)
 ;;54868-2181-00
 ;;9002226.02101,"726,54868-2181-00 ",.02)
 ;;54868-2181-00
 ;;9002226.02101,"726,54868-3816-00 ",.01)
 ;;54868-3816-00
 ;;9002226.02101,"726,54868-3816-00 ",.02)
 ;;54868-3816-00
 ;;9002226.02101,"726,54868-4876-00 ",.01)
 ;;54868-4876-00
 ;;9002226.02101,"726,54868-4876-00 ",.02)
 ;;54868-4876-00
 ;;9002226.02101,"726,54868-4876-01 ",.01)
 ;;54868-4876-01
 ;;9002226.02101,"726,54868-4876-01 ",.02)
 ;;54868-4876-01
 ;;9002226.02101,"726,54868-4876-02 ",.01)
 ;;54868-4876-02
 ;;9002226.02101,"726,54868-4876-02 ",.02)
 ;;54868-4876-02
 ;;9002226.02101,"726,55048-0208-30 ",.01)
 ;;55048-0208-30
 ;;9002226.02101,"726,55048-0208-30 ",.02)
 ;;55048-0208-30
 ;;9002226.02101,"726,55048-0209-30 ",.01)
 ;;55048-0209-30
 ;;9002226.02101,"726,55048-0209-30 ",.02)
 ;;55048-0209-30
 ;;9002226.02101,"726,55289-0002-01 ",.01)
 ;;55289-0002-01
 ;;9002226.02101,"726,55289-0002-01 ",.02)
 ;;55289-0002-01
 ;;9002226.02101,"726,55289-0002-30 ",.01)
 ;;55289-0002-30
 ;;9002226.02101,"726,55289-0002-30 ",.02)
 ;;55289-0002-30
 ;;9002226.02101,"726,55289-0098-01 ",.01)
 ;;55289-0098-01
 ;;9002226.02101,"726,55289-0098-01 ",.02)
 ;;55289-0098-01
 ;;9002226.02101,"726,55289-0098-30 ",.01)
 ;;55289-0098-30
 ;;9002226.02101,"726,55289-0098-30 ",.02)
 ;;55289-0098-30
 ;;9002226.02101,"726,55289-0098-60 ",.01)
 ;;55289-0098-60
 ;;9002226.02101,"726,55289-0098-60 ",.02)
 ;;55289-0098-60
 ;;9002226.02101,"726,55289-0290-30 ",.01)
 ;;55289-0290-30
 ;;9002226.02101,"726,55289-0290-30 ",.02)
 ;;55289-0290-30
 ;;9002226.02101,"726,55289-0290-50 ",.01)
 ;;55289-0290-50
 ;;9002226.02101,"726,55289-0290-50 ",.02)
 ;;55289-0290-50
 ;;9002226.02101,"726,55289-0626-01 ",.01)
 ;;55289-0626-01
 ;;9002226.02101,"726,55289-0626-01 ",.02)
 ;;55289-0626-01
 ;;9002226.02101,"726,55289-0626-03 ",.01)
 ;;55289-0626-03
 ;;9002226.02101,"726,55289-0626-03 ",.02)
 ;;55289-0626-03
 ;;9002226.02101,"726,55289-0626-14 ",.01)
 ;;55289-0626-14
 ;;9002226.02101,"726,55289-0626-14 ",.02)
 ;;55289-0626-14
 ;;9002226.02101,"726,55289-0626-30 ",.01)
 ;;55289-0626-30
 ;;9002226.02101,"726,55289-0626-30 ",.02)
 ;;55289-0626-30
 ;;9002226.02101,"726,55289-0626-60 ",.01)
 ;;55289-0626-60
 ;;9002226.02101,"726,55289-0626-60 ",.02)
 ;;55289-0626-60
 ;;9002226.02101,"726,55289-0734-01 ",.01)
 ;;55289-0734-01
 ;;9002226.02101,"726,55289-0734-01 ",.02)
 ;;55289-0734-01
 ;;9002226.02101,"726,55289-0734-30 ",.01)
 ;;55289-0734-30
 ;;9002226.02101,"726,55289-0734-30 ",.02)
 ;;55289-0734-30
 ;;9002226.02101,"726,55289-0907-08 ",.01)
 ;;55289-0907-08
 ;;9002226.02101,"726,55289-0907-08 ",.02)
 ;;55289-0907-08
 ;;9002226.02101,"726,55289-0907-30 ",.01)
 ;;55289-0907-30
 ;;9002226.02101,"726,55289-0907-30 ",.02)
 ;;55289-0907-30
 ;;9002226.02101,"726,55289-0907-79 ",.01)
 ;;55289-0907-79
 ;;9002226.02101,"726,55289-0907-79 ",.02)
 ;;55289-0907-79
 ;;9002226.02101,"726,55289-0927-01 ",.01)
 ;;55289-0927-01
 ;;9002226.02101,"726,55289-0927-01 ",.02)
 ;;55289-0927-01
 ;;9002226.02101,"726,55289-0927-30 ",.01)
 ;;55289-0927-30
 ;;9002226.02101,"726,55289-0927-30 ",.02)
 ;;55289-0927-30
 ;;9002226.02101,"726,57664-0437-18 ",.01)
 ;;57664-0437-18
 ;;9002226.02101,"726,57664-0437-18 ",.02)
 ;;57664-0437-18
 ;;9002226.02101,"726,57664-0437-88 ",.01)
 ;;57664-0437-88
 ;;9002226.02101,"726,57664-0437-88 ",.02)
 ;;57664-0437-88
 ;;9002226.02101,"726,57664-0441-18 ",.01)
 ;;57664-0441-18
 ;;9002226.02101,"726,57664-0441-18 ",.02)
 ;;57664-0441-18
 ;;9002226.02101,"726,57664-0441-88 ",.01)
 ;;57664-0441-88
 ;;9002226.02101,"726,57664-0441-88 ",.02)
 ;;57664-0441-88
 ;;9002226.02101,"726,58016-0202-00 ",.01)
 ;;58016-0202-00
 ;;9002226.02101,"726,58016-0202-00 ",.02)
 ;;58016-0202-00
 ;;9002226.02101,"726,58016-0202-30 ",.01)
 ;;58016-0202-30
 ;;9002226.02101,"726,58016-0202-30 ",.02)
 ;;58016-0202-30
 ;;9002226.02101,"726,58016-0202-60 ",.01)
 ;;58016-0202-60
 ;;9002226.02101,"726,58016-0202-60 ",.02)
 ;;58016-0202-60
 ;;9002226.02101,"726,58016-0537-00 ",.01)
 ;;58016-0537-00
 ;;9002226.02101,"726,58016-0537-00 ",.02)
 ;;58016-0537-00
 ;;9002226.02101,"726,58016-0537-03 ",.01)
 ;;58016-0537-03
 ;;9002226.02101,"726,58016-0537-03 ",.02)
 ;;58016-0537-03
 ;;9002226.02101,"726,58016-0537-10 ",.01)
 ;;58016-0537-10
 ;;9002226.02101,"726,58016-0537-10 ",.02)
 ;;58016-0537-10
 ;;9002226.02101,"726,58016-0537-12 ",.01)
 ;;58016-0537-12
 ;;9002226.02101,"726,58016-0537-12 ",.02)
 ;;58016-0537-12
 ;;9002226.02101,"726,58016-0537-15 ",.01)
 ;;58016-0537-15
 ;;9002226.02101,"726,58016-0537-15 ",.02)
 ;;58016-0537-15
 ;;9002226.02101,"726,58016-0537-30 ",.01)
 ;;58016-0537-30
 ;;9002226.02101,"726,58016-0537-30 ",.02)
 ;;58016-0537-30
 ;;9002226.02101,"726,58016-0620-00 ",.01)
 ;;58016-0620-00
 ;;9002226.02101,"726,58016-0620-00 ",.02)
 ;;58016-0620-00
 ;;9002226.02101,"726,58016-0620-12 ",.01)
 ;;58016-0620-12
 ;;9002226.02101,"726,58016-0620-12 ",.02)
 ;;58016-0620-12
 ;;9002226.02101,"726,58016-0620-15 ",.01)
 ;;58016-0620-15
 ;;9002226.02101,"726,58016-0620-15 ",.02)
 ;;58016-0620-15
 ;;9002226.02101,"726,58016-0620-20 ",.01)
 ;;58016-0620-20
 ;;9002226.02101,"726,58016-0620-20 ",.02)
 ;;58016-0620-20
 ;;9002226.02101,"726,58016-0620-30 ",.01)
 ;;58016-0620-30
 ;;9002226.02101,"726,58016-0620-30 ",.02)
 ;;58016-0620-30
 ;;9002226.02101,"726,58016-0620-90 ",.01)
 ;;58016-0620-90
 ;;9002226.02101,"726,58016-0620-90 ",.02)
 ;;58016-0620-90
 ;;9002226.02101,"726,58016-0622-00 ",.01)
 ;;58016-0622-00
 ;;9002226.02101,"726,58016-0622-00 ",.02)
 ;;58016-0622-00
 ;;9002226.02101,"726,58016-0622-08 ",.01)
 ;;58016-0622-08
 ;;9002226.02101,"726,58016-0622-08 ",.02)
 ;;58016-0622-08
 ;;9002226.02101,"726,58016-0622-30 ",.01)
 ;;58016-0622-30
 ;;9002226.02101,"726,58016-0622-30 ",.02)
 ;;58016-0622-30
 ;;9002226.02101,"726,58016-0622-50 ",.01)
 ;;58016-0622-50
 ;;9002226.02101,"726,58016-0622-50 ",.02)
 ;;58016-0622-50
 ;;9002226.02101,"726,58016-0622-60 ",.01)
 ;;58016-0622-60
 ;;9002226.02101,"726,58016-0622-60 ",.02)
 ;;58016-0622-60
 ;;9002226.02101,"726,58016-0622-90 ",.01)
 ;;58016-0622-90
 ;;9002226.02101,"726,58016-0622-90 ",.02)
 ;;58016-0622-90
 ;;9002226.02101,"726,58016-0755-00 ",.01)
 ;;58016-0755-00
 ;;9002226.02101,"726,58016-0755-00 ",.02)
 ;;58016-0755-00
 ;;9002226.02101,"726,58016-0755-30 ",.01)
 ;;58016-0755-30
 ;;9002226.02101,"726,58016-0755-30 ",.02)
 ;;58016-0755-30
 ;;9002226.02101,"726,58016-0755-60 ",.01)
 ;;58016-0755-60
 ;;9002226.02101,"726,58016-0755-60 ",.02)
 ;;58016-0755-60
 ;;9002226.02101,"726,58864-0068-20 ",.01)
 ;;58864-0068-20
 ;;9002226.02101,"726,58864-0068-20 ",.02)
 ;;58864-0068-20
 ;;9002226.02101,"726,58864-0068-30 ",.01)
 ;;58864-0068-30
 ;;9002226.02101,"726,58864-0068-30 ",.02)
 ;;58864-0068-30
 ;;9002226.02101,"726,58864-0634-14 ",.01)
 ;;58864-0634-14
 ;;9002226.02101,"726,58864-0634-14 ",.02)
 ;;58864-0634-14
 ;;9002226.02101,"726,58864-0634-20 ",.01)
 ;;58864-0634-20
 ;;9002226.02101,"726,58864-0634-20 ",.02)
 ;;58864-0634-20
 ;;9002226.02101,"726,58864-0796-20 ",.01)
 ;;58864-0796-20
 ;;9002226.02101,"726,58864-0796-20 ",.02)
 ;;58864-0796-20
 ;;9002226.02101,"726,58864-0797-30 ",.01)
 ;;58864-0797-30
 ;;9002226.02101,"726,58864-0797-30 ",.02)
 ;;58864-0797-30
 ;;9002226.02101,"726,58864-0815-01 ",.01)
 ;;58864-0815-01
 ;;9002226.02101,"726,58864-0815-01 ",.02)
 ;;58864-0815-01
 ;;9002226.02101,"726,58864-0815-30 ",.01)
 ;;58864-0815-30
 ;;9002226.02101,"726,58864-0815-30 ",.02)
 ;;58864-0815-30
 ;;9002226.02101,"726,58864-0870-14 ",.01)
 ;;58864-0870-14
 ;;9002226.02101,"726,58864-0870-14 ",.02)
 ;;58864-0870-14
 ;;9002226.02101,"726,59762-1004-01 ",.01)
 ;;59762-1004-01
 ;;9002226.02101,"726,59762-1004-01 ",.02)
 ;;59762-1004-01
 ;;9002226.02101,"726,60429-0099-01 ",.01)
 ;;60429-0099-01
 ;;9002226.02101,"726,60429-0099-01 ",.02)
 ;;60429-0099-01
 ;;9002226.02101,"726,60429-0099-10 ",.01)
 ;;60429-0099-10
 ;;9002226.02101,"726,60429-0099-10 ",.02)
 ;;60429-0099-10
 ;;9002226.02101,"726,60429-0100-01 ",.01)
 ;;60429-0100-01
 ;;9002226.02101,"726,60429-0100-01 ",.02)
 ;;60429-0100-01
 ;;9002226.02101,"726,60429-0100-10 ",.01)
 ;;60429-0100-10
 ;;9002226.02101,"726,60429-0100-10 ",.02)
 ;;60429-0100-10
 ;;9002226.02101,"726,60429-0124-01 ",.01)
 ;;60429-0124-01
 ;;9002226.02101,"726,60429-0124-01 ",.02)
 ;;60429-0124-01
 ;;9002226.02101,"726,60429-0124-90 ",.01)
 ;;60429-0124-90
 ;;9002226.02101,"726,60429-0124-90 ",.02)
 ;;60429-0124-90
 ;;9002226.02101,"726,60429-0125-01 ",.01)
 ;;60429-0125-01
 ;;9002226.02101,"726,60429-0125-01 ",.02)
 ;;60429-0125-01
 ;;9002226.02101,"726,60429-0163-01 ",.01)
 ;;60429-0163-01
 ;;9002226.02101,"726,60429-0163-01 ",.02)
 ;;60429-0163-01
 ;;9002226.02101,"726,60760-0003-30 ",.01)
 ;;60760-0003-30
 ;;9002226.02101,"726,60760-0003-30 ",.02)
 ;;60760-0003-30
 ;;9002226.02101,"726,62584-0989-01 ",.01)
 ;;62584-0989-01
 ;;9002226.02101,"726,62584-0989-01 ",.02)
 ;;62584-0989-01
 ;;9002226.02101,"726,62584-0989-11 ",.01)
 ;;62584-0989-11
 ;;9002226.02101,"726,62584-0989-11 ",.02)
 ;;62584-0989-11
 ;;9002226.02101,"726,62584-0990-01 ",.01)
 ;;62584-0990-01
 ;;9002226.02101,"726,62584-0990-01 ",.02)
 ;;62584-0990-01
 ;;9002226.02101,"726,62584-0990-11 ",.01)
 ;;62584-0990-11
 ;;9002226.02101,"726,62584-0990-11 ",.02)
 ;;62584-0990-11
 ;;9002226.02101,"726,63629-1558-01 ",.01)
 ;;63629-1558-01
 ;;9002226.02101,"726,63629-1558-01 ",.02)
 ;;63629-1558-01
 ;;9002226.02101,"726,63629-1558-02 ",.01)
 ;;63629-1558-02
 ;;9002226.02101,"726,63629-1558-02 ",.02)
 ;;63629-1558-02
 ;;9002226.02101,"726,63629-1558-03 ",.01)
 ;;63629-1558-03
 ;;9002226.02101,"726,63629-1558-03 ",.02)
 ;;63629-1558-03
 ;;9002226.02101,"726,63629-1558-04 ",.01)
 ;;63629-1558-04
 ;;9002226.02101,"726,63629-1558-04 ",.02)
 ;;63629-1558-04
 ;;9002226.02101,"726,63629-1558-05 ",.01)
 ;;63629-1558-05
 ;;9002226.02101,"726,63629-1558-05 ",.02)
 ;;63629-1558-05
 ;;9002226.02101,"726,63629-2579-01 ",.01)
 ;;63629-2579-01
 ;;9002226.02101,"726,63629-2579-01 ",.02)
 ;;63629-2579-01
 ;;9002226.02101,"726,63629-2579-02 ",.01)
 ;;63629-2579-02
 ;;9002226.02101,"726,63629-2579-02 ",.02)
 ;;63629-2579-02
 ;;9002226.02101,"726,63629-2579-03 ",.01)
 ;;63629-2579-03
 ;;9002226.02101,"726,63629-2579-03 ",.02)
 ;;63629-2579-03
 ;;9002226.02101,"726,63629-2579-04 ",.01)
 ;;63629-2579-04
 ;;9002226.02101,"726,63629-2579-04 ",.02)
 ;;63629-2579-04
 ;;9002226.02101,"726,63629-2579-05 ",.01)
 ;;63629-2579-05
 ;;9002226.02101,"726,63629-2579-05 ",.02)
 ;;63629-2579-05
 ;;9002226.02101,"726,63629-3870-01 ",.01)
 ;;63629-3870-01
 ;;9002226.02101,"726,63629-3870-01 ",.02)
 ;;63629-3870-01
 ;;9002226.02101,"726,63629-3870-02 ",.01)
 ;;63629-3870-02
 ;;9002226.02101,"726,63629-3870-02 ",.02)
 ;;63629-3870-02
 ;;9002226.02101,"726,63629-3870-03 ",.01)
 ;;63629-3870-03
 ;;9002226.02101,"726,63629-3870-03 ",.02)
 ;;63629-3870-03
 ;;9002226.02101,"726,63629-3870-04 ",.01)
 ;;63629-3870-04
 ;;9002226.02101,"726,63629-3870-04 ",.02)
 ;;63629-3870-04
 ;;9002226.02101,"726,65162-0711-10 ",.01)
 ;;65162-0711-10
 ;;9002226.02101,"726,65162-0711-10 ",.02)
 ;;65162-0711-10
 ;;9002226.02101,"726,65162-0713-10 ",.01)
 ;;65162-0713-10
 ;;9002226.02101,"726,65162-0713-10 ",.02)
 ;;65162-0713-10
 ;;9002226.02101,"726,65243-0023-03 ",.01)
 ;;65243-0023-03
 ;;9002226.02101,"726,65243-0023-03 ",.02)
 ;;65243-0023-03
 ;;9002226.02101,"726,65243-0023-09 ",.01)
 ;;65243-0023-09
 ;;9002226.02101,"726,65243-0023-09 ",.02)
 ;;65243-0023-09
 ;;9002226.02101,"726,65243-0024-09 ",.01)
 ;;65243-0024-09
 ;;9002226.02101,"726,65243-0024-09 ",.02)
 ;;65243-0024-09
 ;;9002226.02101,"726,66116-0429-30 ",.01)
 ;;66116-0429-30
 ;;9002226.02101,"726,66116-0429-30 ",.02)
 ;;66116-0429-30
 ;;9002226.02101,"726,66116-0430-30 ",.01)
 ;;66116-0430-30