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

BGP82D15.m

Go to the documentation of this file.
BGP82D15 ; 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,"1801,68084-0138-11 ",.01)
 ;;68084-0138-11
 ;;9002226.02101,"1801,68084-0138-11 ",.02)
 ;;68084-0138-11
 ;;9002226.02101,"1801,68084-0745-25 ",.01)
 ;;68084-0745-25
 ;;9002226.02101,"1801,68084-0745-25 ",.02)
 ;;68084-0745-25
 ;;9002226.02101,"1801,68084-0745-95 ",.01)
 ;;68084-0745-95
 ;;9002226.02101,"1801,68084-0745-95 ",.02)
 ;;68084-0745-95
 ;;9002226.02101,"1801,68084-0807-01 ",.01)
 ;;68084-0807-01
 ;;9002226.02101,"1801,68084-0807-01 ",.02)
 ;;68084-0807-01
 ;;9002226.02101,"1801,68084-0807-11 ",.01)
 ;;68084-0807-11
 ;;9002226.02101,"1801,68084-0807-11 ",.02)
 ;;68084-0807-11
 ;;9002226.02101,"1801,68094-0250-59 ",.01)
 ;;68094-0250-59
 ;;9002226.02101,"1801,68094-0250-59 ",.02)
 ;;68094-0250-59
 ;;9002226.02101,"1801,68094-0250-61 ",.01)
 ;;68094-0250-61
 ;;9002226.02101,"1801,68094-0250-61 ",.02)
 ;;68094-0250-61
 ;;9002226.02101,"1801,68094-0250-62 ",.01)
 ;;68094-0250-62
 ;;9002226.02101,"1801,68094-0250-62 ",.02)
 ;;68094-0250-62
 ;;9002226.02101,"1801,68094-0361-59 ",.01)
 ;;68094-0361-59
 ;;9002226.02101,"1801,68094-0361-59 ",.02)
 ;;68094-0361-59
 ;;9002226.02101,"1801,68094-0361-62 ",.01)
 ;;68094-0361-62
 ;;9002226.02101,"1801,68094-0361-62 ",.02)
 ;;68094-0361-62
 ;;9002226.02101,"1801,68094-0518-59 ",.01)
 ;;68094-0518-59
 ;;9002226.02101,"1801,68094-0518-59 ",.02)
 ;;68094-0518-59
 ;;9002226.02101,"1801,68094-0518-62 ",.01)
 ;;68094-0518-62
 ;;9002226.02101,"1801,68094-0518-62 ",.02)
 ;;68094-0518-62
 ;;9002226.02101,"1801,68094-0528-59 ",.01)
 ;;68094-0528-59
 ;;9002226.02101,"1801,68094-0528-59 ",.02)
 ;;68094-0528-59
 ;;9002226.02101,"1801,68094-0528-61 ",.01)
 ;;68094-0528-61
 ;;9002226.02101,"1801,68094-0528-61 ",.02)
 ;;68094-0528-61
 ;;9002226.02101,"1801,68094-0528-62 ",.01)
 ;;68094-0528-62
 ;;9002226.02101,"1801,68094-0528-62 ",.02)
 ;;68094-0528-62
 ;;9002226.02101,"1801,68180-0827-09 ",.01)
 ;;68180-0827-09
 ;;9002226.02101,"1801,68180-0827-09 ",.02)
 ;;68180-0827-09
 ;;9002226.02101,"1801,68180-0827-11 ",.01)
 ;;68180-0827-11
 ;;9002226.02101,"1801,68180-0827-11 ",.02)
 ;;68180-0827-11
 ;;9002226.02101,"1801,68180-0827-13 ",.01)
 ;;68180-0827-13
 ;;9002226.02101,"1801,68180-0827-13 ",.02)
 ;;68180-0827-13
 ;;9002226.02101,"1801,68180-0828-09 ",.01)
 ;;68180-0828-09
 ;;9002226.02101,"1801,68180-0828-09 ",.02)
 ;;68180-0828-09
 ;;9002226.02101,"1801,68180-0828-11 ",.01)
 ;;68180-0828-11
 ;;9002226.02101,"1801,68180-0828-11 ",.02)
 ;;68180-0828-11
 ;;9002226.02101,"1801,68180-0828-13 ",.01)
 ;;68180-0828-13
 ;;9002226.02101,"1801,68180-0828-13 ",.02)
 ;;68180-0828-13
 ;;9002226.02101,"1801,68180-0829-11 ",.01)
 ;;68180-0829-11
 ;;9002226.02101,"1801,68180-0829-11 ",.02)
 ;;68180-0829-11
 ;;9002226.02101,"1801,68180-0829-13 ",.01)
 ;;68180-0829-13
 ;;9002226.02101,"1801,68180-0829-13 ",.02)
 ;;68180-0829-13
 ;;9002226.02101,"1801,68180-0830-11 ",.01)
 ;;68180-0830-11
 ;;9002226.02101,"1801,68180-0830-11 ",.02)
 ;;68180-0830-11
 ;;9002226.02101,"1801,68180-0830-13 ",.01)
 ;;68180-0830-13
 ;;9002226.02101,"1801,68180-0830-13 ",.02)
 ;;68180-0830-13
 ;;9002226.02101,"1801,68258-5978-02 ",.01)
 ;;68258-5978-02
 ;;9002226.02101,"1801,68258-5978-02 ",.02)
 ;;68258-5978-02
 ;;9002226.02101,"1801,68258-5980-02 ",.01)
 ;;68258-5980-02
 ;;9002226.02101,"1801,68258-5980-02 ",.02)
 ;;68258-5980-02
 ;;9002226.02101,"1801,68382-0653-01 ",.01)
 ;;68382-0653-01
 ;;9002226.02101,"1801,68382-0653-01 ",.02)
 ;;68382-0653-01
 ;;9002226.02101,"1801,68382-0653-05 ",.01)
 ;;68382-0653-05
 ;;9002226.02101,"1801,68382-0653-05 ",.02)
 ;;68382-0653-05
 ;;9002226.02101,"1801,68382-0654-01 ",.01)
 ;;68382-0654-01
 ;;9002226.02101,"1801,68382-0654-01 ",.02)
 ;;68382-0654-01
 ;;9002226.02101,"1801,68382-0654-05 ",.01)
 ;;68382-0654-05
 ;;9002226.02101,"1801,68382-0654-05 ",.02)
 ;;68382-0654-05
 ;;9002226.02101,"1801,68382-0655-01 ",.01)
 ;;68382-0655-01
 ;;9002226.02101,"1801,68382-0655-01 ",.02)
 ;;68382-0655-01
 ;;9002226.02101,"1801,68382-0655-05 ",.01)
 ;;68382-0655-05
 ;;9002226.02101,"1801,68382-0655-05 ",.02)
 ;;68382-0655-05
 ;;9002226.02101,"1801,68382-0656-01 ",.01)
 ;;68382-0656-01
 ;;9002226.02101,"1801,68382-0656-01 ",.02)
 ;;68382-0656-01
 ;;9002226.02101,"1801,68382-0657-01 ",.01)
 ;;68382-0657-01
 ;;9002226.02101,"1801,68382-0657-01 ",.02)
 ;;68382-0657-01
 ;;9002226.02101,"1801,68382-0657-05 ",.01)
 ;;68382-0657-05
 ;;9002226.02101,"1801,68382-0657-05 ",.02)
 ;;68382-0657-05
 ;;9002226.02101,"1801,68382-0658-01 ",.01)
 ;;68382-0658-01
 ;;9002226.02101,"1801,68382-0658-01 ",.02)
 ;;68382-0658-01
 ;;9002226.02101,"1801,68382-0658-10 ",.01)
 ;;68382-0658-10
 ;;9002226.02101,"1801,68382-0658-10 ",.02)
 ;;68382-0658-10
 ;;9002226.02101,"1801,68462-0656-29 ",.01)
 ;;68462-0656-29
 ;;9002226.02101,"1801,68462-0656-29 ",.02)
 ;;68462-0656-29
 ;;9002226.02101,"1801,68462-0656-84 ",.01)
 ;;68462-0656-84
 ;;9002226.02101,"1801,68462-0656-84 ",.02)
 ;;68462-0656-84
 ;;9002226.02101,"1801,68462-0657-29 ",.01)
 ;;68462-0657-29
 ;;9002226.02101,"1801,68462-0657-29 ",.02)
 ;;68462-0657-29
 ;;9002226.02101,"1801,68462-0657-84 ",.01)
 ;;68462-0657-84
 ;;9002226.02101,"1801,68462-0657-84 ",.02)
 ;;68462-0657-84
 ;;9002226.02101,"1801,68462-0657-90 ",.01)
 ;;68462-0657-90
 ;;9002226.02101,"1801,68462-0657-90 ",.02)
 ;;68462-0657-90
 ;;9002226.02101,"1801,68645-0210-54 ",.01)
 ;;68645-0210-54
 ;;9002226.02101,"1801,68645-0210-54 ",.02)
 ;;68645-0210-54
 ;;9002226.02101,"1801,68645-0211-54 ",.01)
 ;;68645-0211-54
 ;;9002226.02101,"1801,68645-0211-54 ",.02)
 ;;68645-0211-54
 ;;9002226.02101,"1801,68788-6426-03 ",.01)
 ;;68788-6426-03
 ;;9002226.02101,"1801,68788-6426-03 ",.02)
 ;;68788-6426-03
 ;;9002226.02101,"1801,68788-6426-06 ",.01)
 ;;68788-6426-06
 ;;9002226.02101,"1801,68788-6426-06 ",.02)
 ;;68788-6426-06
 ;;9002226.02101,"1801,68788-6426-09 ",.01)
 ;;68788-6426-09
 ;;9002226.02101,"1801,68788-6426-09 ",.02)
 ;;68788-6426-09
 ;;9002226.02101,"1801,68788-6428-01 ",.01)
 ;;68788-6428-01
 ;;9002226.02101,"1801,68788-6428-01 ",.02)
 ;;68788-6428-01
 ;;9002226.02101,"1801,68788-9128-03 ",.01)
 ;;68788-9128-03
 ;;9002226.02101,"1801,68788-9128-03 ",.02)
 ;;68788-9128-03
 ;;9002226.02101,"1801,68788-9128-06 ",.01)
 ;;68788-9128-06
 ;;9002226.02101,"1801,68788-9128-06 ",.02)
 ;;68788-9128-06
 ;;9002226.02101,"1801,68788-9128-09 ",.01)
 ;;68788-9128-09
 ;;9002226.02101,"1801,68788-9128-09 ",.02)
 ;;68788-9128-09
 ;;9002226.02101,"1801,68788-9216-01 ",.01)
 ;;68788-9216-01
 ;;9002226.02101,"1801,68788-9216-01 ",.02)
 ;;68788-9216-01
 ;;9002226.02101,"1801,68788-9216-03 ",.01)
 ;;68788-9216-03
 ;;9002226.02101,"1801,68788-9216-03 ",.02)
 ;;68788-9216-03
 ;;9002226.02101,"1801,68788-9216-06 ",.01)
 ;;68788-9216-06
 ;;9002226.02101,"1801,68788-9216-06 ",.02)
 ;;68788-9216-06
 ;;9002226.02101,"1801,68788-9216-09 ",.01)
 ;;68788-9216-09
 ;;9002226.02101,"1801,68788-9216-09 ",.02)
 ;;68788-9216-09
 ;;9002226.02101,"1801,68788-9716-03 ",.01)
 ;;68788-9716-03
 ;;9002226.02101,"1801,68788-9716-03 ",.02)
 ;;68788-9716-03
 ;;9002226.02101,"1801,68788-9716-06 ",.01)
 ;;68788-9716-06
 ;;9002226.02101,"1801,68788-9716-06 ",.02)
 ;;68788-9716-06
 ;;9002226.02101,"1801,68788-9716-09 ",.01)
 ;;68788-9716-09
 ;;9002226.02101,"1801,68788-9716-09 ",.02)
 ;;68788-9716-09
 ;;9002226.02101,"1801,68788-9728-03 ",.01)
 ;;68788-9728-03
 ;;9002226.02101,"1801,68788-9728-03 ",.02)
 ;;68788-9728-03
 ;;9002226.02101,"1801,68968-0514-01 ",.01)
 ;;68968-0514-01
 ;;9002226.02101,"1801,68968-0514-01 ",.02)
 ;;68968-0514-01
 ;;9002226.02101,"1801,68968-0514-08 ",.01)
 ;;68968-0514-08
 ;;9002226.02101,"1801,68968-0514-08 ",.02)
 ;;68968-0514-08
 ;;9002226.02101,"1801,68968-0525-01 ",.01)
 ;;68968-0525-01
 ;;9002226.02101,"1801,68968-0525-01 ",.02)
 ;;68968-0525-01
 ;;9002226.02101,"1801,68968-0525-08 ",.01)
 ;;68968-0525-08
 ;;9002226.02101,"1801,68968-0525-08 ",.02)
 ;;68968-0525-08
 ;;9002226.02101,"1801,68968-6610-01 ",.01)
 ;;68968-6610-01
 ;;9002226.02101,"1801,68968-6610-01 ",.02)
 ;;68968-6610-01
 ;;9002226.02101,"1801,68968-6610-08 ",.01)
 ;;68968-6610-08
 ;;9002226.02101,"1801,68968-6610-08 ",.02)
 ;;68968-6610-08
 ;;9002226.02101,"1801,68968-6625-01 ",.01)
 ;;68968-6625-01
 ;;9002226.02101,"1801,68968-6625-01 ",.02)
 ;;68968-6625-01
 ;;9002226.02101,"1801,68968-6625-08 ",.01)
 ;;68968-6625-08
 ;;9002226.02101,"1801,68968-6625-08 ",.02)
 ;;68968-6625-08
 ;;9002226.02101,"1801,68968-6637-01 ",.01)
 ;;68968-6637-01
 ;;9002226.02101,"1801,68968-6637-01 ",.02)
 ;;68968-6637-01
 ;;9002226.02101,"1801,68968-6637-08 ",.01)
 ;;68968-6637-08
 ;;9002226.02101,"1801,68968-6637-08 ",.02)
 ;;68968-6637-08
 ;;9002226.02101,"1801,68968-6650-01 ",.01)
 ;;68968-6650-01
 ;;9002226.02101,"1801,68968-6650-01 ",.02)
 ;;68968-6650-01
 ;;9002226.02101,"1801,68968-6650-08 ",.01)
 ;;68968-6650-08
 ;;9002226.02101,"1801,68968-6650-08 ",.02)
 ;;68968-6650-08
 ;;9002226.02101,"1801,68968-6675-01 ",.01)
 ;;68968-6675-01
 ;;9002226.02101,"1801,68968-6675-01 ",.02)
 ;;68968-6675-01
 ;;9002226.02101,"1801,68968-6675-08 ",.01)
 ;;68968-6675-08
 ;;9002226.02101,"1801,68968-6675-08 ",.02)
 ;;68968-6675-08
 ;;9002226.02101,"1801,69238-1251-06 ",.01)
 ;;69238-1251-06
 ;;9002226.02101,"1801,69238-1251-06 ",.02)
 ;;69238-1251-06
 ;;9002226.02101,"1801,69238-1251-08 ",.01)
 ;;69238-1251-08
 ;;9002226.02101,"1801,69238-1251-08 ",.02)
 ;;69238-1251-08
 ;;9002226.02101,"1801,69238-1252-06 ",.01)
 ;;69238-1252-06
 ;;9002226.02101,"1801,69238-1252-06 ",.02)
 ;;69238-1252-06
 ;;9002226.02101,"1801,69238-1252-08 ",.01)
 ;;69238-1252-08
 ;;9002226.02101,"1801,69238-1252-08 ",.02)
 ;;69238-1252-08
 ;;9002226.02101,"1801,75834-0129-29 ",.01)
 ;;75834-0129-29
 ;;9002226.02101,"1801,75834-0129-29 ",.02)
 ;;75834-0129-29
 ;;9002226.02101,"1801,75834-0129-84 ",.01)
 ;;75834-0129-84
 ;;9002226.02101,"1801,75834-0129-84 ",.02)
 ;;75834-0129-84
 ;;9002226.02101,"1801,75834-0130-29 ",.01)
 ;;75834-0130-29
 ;;9002226.02101,"1801,75834-0130-29 ",.02)
 ;;75834-0130-29
 ;;9002226.02101,"1801,75834-0130-84 ",.01)
 ;;75834-0130-84
 ;;9002226.02101,"1801,75834-0130-84 ",.02)
 ;;75834-0130-84
 ;;9002226.02101,"1801,76420-0680-30 ",.01)
 ;;76420-0680-30
 ;;9002226.02101,"1801,76420-0680-30 ",.02)
 ;;76420-0680-30
 ;;9002226.02101,"1801,76420-0680-60 ",.01)
 ;;76420-0680-60
 ;;9002226.02101,"1801,76420-0680-60 ",.02)
 ;;76420-0680-60
 ;;9002226.02101,"1801,76420-0681-30 ",.01)
 ;;76420-0681-30
 ;;9002226.02101,"1801,76420-0681-30 ",.02)
 ;;76420-0681-30
 ;;9002226.02101,"1801,76420-0681-60 ",.01)
 ;;76420-0681-60
 ;;9002226.02101,"1801,76420-0681-60 ",.02)
 ;;76420-0681-60