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

BGP73G33.m

Go to the documentation of this file.
BGP73G33 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 05, 2017;
 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
 ;
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,"869,42291-0182-90 ",.02)
 ;;42291-0182-90
 ;;9002226.02101,"869,42291-0183-30 ",.01)
 ;;42291-0183-30
 ;;9002226.02101,"869,42291-0183-30 ",.02)
 ;;42291-0183-30
 ;;9002226.02101,"869,42291-0183-50 ",.01)
 ;;42291-0183-50
 ;;9002226.02101,"869,42291-0183-50 ",.02)
 ;;42291-0183-50
 ;;9002226.02101,"869,42291-0345-01 ",.01)
 ;;42291-0345-01
 ;;9002226.02101,"869,42291-0345-01 ",.02)
 ;;42291-0345-01
 ;;9002226.02101,"869,42291-0346-01 ",.01)
 ;;42291-0346-01
 ;;9002226.02101,"869,42291-0346-01 ",.02)
 ;;42291-0346-01
 ;;9002226.02101,"869,42291-0347-01 ",.01)
 ;;42291-0347-01
 ;;9002226.02101,"869,42291-0347-01 ",.02)
 ;;42291-0347-01
 ;;9002226.02101,"869,42291-0627-60 ",.01)
 ;;42291-0627-60
 ;;9002226.02101,"869,42291-0627-60 ",.02)
 ;;42291-0627-60
 ;;9002226.02101,"869,42291-0833-10 ",.01)
 ;;42291-0833-10
 ;;9002226.02101,"869,42291-0833-10 ",.02)
 ;;42291-0833-10
 ;;9002226.02101,"869,42291-0834-10 ",.01)
 ;;42291-0834-10
 ;;9002226.02101,"869,42291-0834-10 ",.02)
 ;;42291-0834-10
 ;;9002226.02101,"869,42291-0835-50 ",.01)
 ;;42291-0835-50
 ;;9002226.02101,"869,42291-0835-50 ",.02)
 ;;42291-0835-50
 ;;9002226.02101,"869,42291-0836-01 ",.01)
 ;;42291-0836-01
 ;;9002226.02101,"869,42291-0836-01 ",.02)
 ;;42291-0836-01
 ;;9002226.02101,"869,42291-0892-90 ",.01)
 ;;42291-0892-90
 ;;9002226.02101,"869,42291-0892-90 ",.02)
 ;;42291-0892-90
 ;;9002226.02101,"869,42291-0893-90 ",.01)
 ;;42291-0893-90
 ;;9002226.02101,"869,42291-0893-90 ",.02)
 ;;42291-0893-90
 ;;9002226.02101,"869,42291-0894-90 ",.01)
 ;;42291-0894-90
 ;;9002226.02101,"869,42291-0894-90 ",.02)
 ;;42291-0894-90
 ;;9002226.02101,"869,42291-0895-50 ",.01)
 ;;42291-0895-50
 ;;9002226.02101,"869,42291-0895-50 ",.02)
 ;;42291-0895-50
 ;;9002226.02101,"869,42291-0895-90 ",.01)
 ;;42291-0895-90
 ;;9002226.02101,"869,42291-0895-90 ",.02)
 ;;42291-0895-90
 ;;9002226.02101,"869,42291-0896-50 ",.01)
 ;;42291-0896-50
 ;;9002226.02101,"869,42291-0896-50 ",.02)
 ;;42291-0896-50
 ;;9002226.02101,"869,42291-0896-90 ",.01)
 ;;42291-0896-90
 ;;9002226.02101,"869,42291-0896-90 ",.02)
 ;;42291-0896-90
 ;;9002226.02101,"869,42543-0725-01 ",.01)
 ;;42543-0725-01
 ;;9002226.02101,"869,42543-0725-01 ",.02)
 ;;42543-0725-01
 ;;9002226.02101,"869,42543-0725-10 ",.01)
 ;;42543-0725-10
 ;;9002226.02101,"869,42543-0725-10 ",.02)
 ;;42543-0725-10
 ;;9002226.02101,"869,42543-0726-01 ",.01)
 ;;42543-0726-01
 ;;9002226.02101,"869,42543-0726-01 ",.02)
 ;;42543-0726-01
 ;;9002226.02101,"869,42543-0726-10 ",.01)
 ;;42543-0726-10
 ;;9002226.02101,"869,42543-0726-10 ",.02)
 ;;42543-0726-10
 ;;9002226.02101,"869,42543-0727-01 ",.01)
 ;;42543-0727-01
 ;;9002226.02101,"869,42543-0727-01 ",.02)
 ;;42543-0727-01
 ;;9002226.02101,"869,42543-0727-05 ",.01)
 ;;42543-0727-05
 ;;9002226.02101,"869,42543-0727-05 ",.02)
 ;;42543-0727-05
 ;;9002226.02101,"869,42543-0727-30 ",.01)
 ;;42543-0727-30
 ;;9002226.02101,"869,42543-0727-30 ",.02)
 ;;42543-0727-30
 ;;9002226.02101,"869,42769-1221-00 ",.01)
 ;;42769-1221-00
 ;;9002226.02101,"869,42769-1221-00 ",.02)
 ;;42769-1221-00
 ;;9002226.02101,"869,42769-1222-00 ",.01)
 ;;42769-1222-00
 ;;9002226.02101,"869,42769-1222-00 ",.02)
 ;;42769-1222-00
 ;;9002226.02101,"869,42769-1225-00 ",.01)
 ;;42769-1225-00
 ;;9002226.02101,"869,42769-1225-00 ",.02)
 ;;42769-1225-00
 ;;9002226.02101,"869,42806-0019-01 ",.01)
 ;;42806-0019-01
 ;;9002226.02101,"869,42806-0019-01 ",.02)
 ;;42806-0019-01
 ;;9002226.02101,"869,42806-0019-10 ",.01)
 ;;42806-0019-10
 ;;9002226.02101,"869,42806-0019-10 ",.02)
 ;;42806-0019-10
 ;;9002226.02101,"869,42806-0020-01 ",.01)
 ;;42806-0020-01
 ;;9002226.02101,"869,42806-0020-01 ",.02)
 ;;42806-0020-01
 ;;9002226.02101,"869,42806-0020-10 ",.01)
 ;;42806-0020-10
 ;;9002226.02101,"869,42806-0020-10 ",.02)
 ;;42806-0020-10
 ;;9002226.02101,"869,42806-0021-01 ",.01)
 ;;42806-0021-01
 ;;9002226.02101,"869,42806-0021-01 ",.02)
 ;;42806-0021-01
 ;;9002226.02101,"869,42806-0021-10 ",.01)
 ;;42806-0021-10
 ;;9002226.02101,"869,42806-0021-10 ",.02)
 ;;42806-0021-10
 ;;9002226.02101,"869,42806-0096-01 ",.01)
 ;;42806-0096-01
 ;;9002226.02101,"869,42806-0096-01 ",.02)
 ;;42806-0096-01
 ;;9002226.02101,"869,42806-0097-01 ",.01)
 ;;42806-0097-01
 ;;9002226.02101,"869,42806-0097-01 ",.02)
 ;;42806-0097-01
 ;;9002226.02101,"869,43063-0009-01 ",.01)
 ;;43063-0009-01
 ;;9002226.02101,"869,43063-0009-01 ",.02)
 ;;43063-0009-01
 ;;9002226.02101,"869,43063-0033-01 ",.01)
 ;;43063-0033-01
 ;;9002226.02101,"869,43063-0033-01 ",.02)
 ;;43063-0033-01
 ;;9002226.02101,"869,43063-0063-14 ",.01)
 ;;43063-0063-14
 ;;9002226.02101,"869,43063-0063-14 ",.02)
 ;;43063-0063-14
 ;;9002226.02101,"869,43063-0063-30 ",.01)
 ;;43063-0063-30
 ;;9002226.02101,"869,43063-0063-30 ",.02)
 ;;43063-0063-30
 ;;9002226.02101,"869,43063-0063-60 ",.01)
 ;;43063-0063-60
 ;;9002226.02101,"869,43063-0063-60 ",.02)
 ;;43063-0063-60
 ;;9002226.02101,"869,43063-0063-90 ",.01)
 ;;43063-0063-90
 ;;9002226.02101,"869,43063-0063-90 ",.02)
 ;;43063-0063-90
 ;;9002226.02101,"869,43063-0170-90 ",.01)
 ;;43063-0170-90
 ;;9002226.02101,"869,43063-0170-90 ",.02)
 ;;43063-0170-90
 ;;9002226.02101,"869,43063-0183-60 ",.01)
 ;;43063-0183-60
 ;;9002226.02101,"869,43063-0183-60 ",.02)
 ;;43063-0183-60
 ;;9002226.02101,"869,43063-0193-60 ",.01)
 ;;43063-0193-60
 ;;9002226.02101,"869,43063-0193-60 ",.02)
 ;;43063-0193-60
 ;;9002226.02101,"869,43063-0197-30 ",.01)
 ;;43063-0197-30
 ;;9002226.02101,"869,43063-0197-30 ",.02)
 ;;43063-0197-30
 ;;9002226.02101,"869,43063-0197-90 ",.01)
 ;;43063-0197-90
 ;;9002226.02101,"869,43063-0197-90 ",.02)
 ;;43063-0197-90
 ;;9002226.02101,"869,43063-0243-30 ",.01)
 ;;43063-0243-30
 ;;9002226.02101,"869,43063-0243-30 ",.02)
 ;;43063-0243-30
 ;;9002226.02101,"869,43063-0262-30 ",.01)
 ;;43063-0262-30
 ;;9002226.02101,"869,43063-0262-30 ",.02)
 ;;43063-0262-30
 ;;9002226.02101,"869,43063-0284-30 ",.01)
 ;;43063-0284-30
 ;;9002226.02101,"869,43063-0284-30 ",.02)
 ;;43063-0284-30
 ;;9002226.02101,"869,43063-0284-98 ",.01)
 ;;43063-0284-98
 ;;9002226.02101,"869,43063-0284-98 ",.02)
 ;;43063-0284-98
 ;;9002226.02101,"869,43063-0292-30 ",.01)
 ;;43063-0292-30
 ;;9002226.02101,"869,43063-0292-30 ",.02)
 ;;43063-0292-30
 ;;9002226.02101,"869,43063-0336-30 ",.01)
 ;;43063-0336-30
 ;;9002226.02101,"869,43063-0336-30 ",.02)
 ;;43063-0336-30
 ;;9002226.02101,"869,43063-0336-60 ",.01)
 ;;43063-0336-60
 ;;9002226.02101,"869,43063-0336-60 ",.02)
 ;;43063-0336-60
 ;;9002226.02101,"869,43063-0374-01 ",.01)
 ;;43063-0374-01
 ;;9002226.02101,"869,43063-0374-01 ",.02)
 ;;43063-0374-01
 ;;9002226.02101,"869,43063-0374-30 ",.01)
 ;;43063-0374-30
 ;;9002226.02101,"869,43063-0374-30 ",.02)
 ;;43063-0374-30
 ;;9002226.02101,"869,43063-0374-90 ",.01)
 ;;43063-0374-90
 ;;9002226.02101,"869,43063-0374-90 ",.02)
 ;;43063-0374-90
 ;;9002226.02101,"869,43063-0385-01 ",.01)
 ;;43063-0385-01
 ;;9002226.02101,"869,43063-0385-01 ",.02)
 ;;43063-0385-01
 ;;9002226.02101,"869,43063-0385-30 ",.01)
 ;;43063-0385-30
 ;;9002226.02101,"869,43063-0385-30 ",.02)
 ;;43063-0385-30
 ;;9002226.02101,"869,43063-0385-90 ",.01)
 ;;43063-0385-90
 ;;9002226.02101,"869,43063-0385-90 ",.02)
 ;;43063-0385-90
 ;;9002226.02101,"869,43063-0387-90 ",.01)
 ;;43063-0387-90
 ;;9002226.02101,"869,43063-0387-90 ",.02)
 ;;43063-0387-90
 ;;9002226.02101,"869,43063-0388-90 ",.01)
 ;;43063-0388-90
 ;;9002226.02101,"869,43063-0388-90 ",.02)
 ;;43063-0388-90
 ;;9002226.02101,"869,43063-0389-30 ",.01)
 ;;43063-0389-30
 ;;9002226.02101,"869,43063-0389-30 ",.02)
 ;;43063-0389-30
 ;;9002226.02101,"869,43063-0390-30 ",.01)
 ;;43063-0390-30
 ;;9002226.02101,"869,43063-0390-30 ",.02)
 ;;43063-0390-30
 ;;9002226.02101,"869,43063-0411-60 ",.01)
 ;;43063-0411-60
 ;;9002226.02101,"869,43063-0411-60 ",.02)
 ;;43063-0411-60
 ;;9002226.02101,"869,43063-0411-90 ",.01)
 ;;43063-0411-90
 ;;9002226.02101,"869,43063-0411-90 ",.02)
 ;;43063-0411-90
 ;;9002226.02101,"869,43063-0413-90 ",.01)
 ;;43063-0413-90
 ;;9002226.02101,"869,43063-0413-90 ",.02)
 ;;43063-0413-90
 ;;9002226.02101,"869,43063-0481-05 ",.01)
 ;;43063-0481-05
 ;;9002226.02101,"869,43063-0481-05 ",.02)
 ;;43063-0481-05
 ;;9002226.02101,"869,43063-0503-30 ",.01)
 ;;43063-0503-30
 ;;9002226.02101,"869,43063-0503-30 ",.02)
 ;;43063-0503-30
 ;;9002226.02101,"869,43063-0521-30 ",.01)
 ;;43063-0521-30
 ;;9002226.02101,"869,43063-0521-30 ",.02)
 ;;43063-0521-30
 ;;9002226.02101,"869,43063-0521-90 ",.01)
 ;;43063-0521-90
 ;;9002226.02101,"869,43063-0521-90 ",.02)
 ;;43063-0521-90
 ;;9002226.02101,"869,43063-0570-28 ",.01)
 ;;43063-0570-28
 ;;9002226.02101,"869,43063-0570-28 ",.02)
 ;;43063-0570-28
 ;;9002226.02101,"869,43063-0570-30 ",.01)
 ;;43063-0570-30
 ;;9002226.02101,"869,43063-0570-30 ",.02)
 ;;43063-0570-30
 ;;9002226.02101,"869,43063-0570-90 ",.01)
 ;;43063-0570-90
 ;;9002226.02101,"869,43063-0570-90 ",.02)
 ;;43063-0570-90
 ;;9002226.02101,"869,43063-0633-90 ",.01)
 ;;43063-0633-90
 ;;9002226.02101,"869,43063-0633-90 ",.02)
 ;;43063-0633-90
 ;;9002226.02101,"869,43063-0661-30 ",.01)
 ;;43063-0661-30
 ;;9002226.02101,"869,43063-0661-30 ",.02)
 ;;43063-0661-30
 ;;9002226.02101,"869,43063-0661-90 ",.01)
 ;;43063-0661-90
 ;;9002226.02101,"869,43063-0661-90 ",.02)
 ;;43063-0661-90
 ;;9002226.02101,"869,43063-0666-01 ",.01)
 ;;43063-0666-01
 ;;9002226.02101,"869,43063-0666-01 ",.02)
 ;;43063-0666-01
 ;;9002226.02101,"869,43063-0666-30 ",.01)
 ;;43063-0666-30
 ;;9002226.02101,"869,43063-0666-30 ",.02)
 ;;43063-0666-30
 ;;9002226.02101,"869,43063-0666-90 ",.01)
 ;;43063-0666-90
 ;;9002226.02101,"869,43063-0666-90 ",.02)
 ;;43063-0666-90
 ;;9002226.02101,"869,43063-0670-30 ",.01)
 ;;43063-0670-30
 ;;9002226.02101,"869,43063-0670-30 ",.02)
 ;;43063-0670-30
 ;;9002226.02101,"869,43063-0670-90 ",.01)
 ;;43063-0670-90
 ;;9002226.02101,"869,43063-0670-90 ",.02)
 ;;43063-0670-90
 ;;9002226.02101,"869,43353-0362-15 ",.01)
 ;;43353-0362-15
 ;;9002226.02101,"869,43353-0362-15 ",.02)
 ;;43353-0362-15
 ;;9002226.02101,"869,43353-0364-15 ",.01)
 ;;43353-0364-15
 ;;9002226.02101,"869,43353-0364-15 ",.02)
 ;;43353-0364-15
 ;;9002226.02101,"869,43353-0370-53 ",.01)
 ;;43353-0370-53
 ;;9002226.02101,"869,43353-0370-53 ",.02)
 ;;43353-0370-53
 ;;9002226.02101,"869,43353-0378-45 ",.01)
 ;;43353-0378-45
 ;;9002226.02101,"869,43353-0378-45 ",.02)
 ;;43353-0378-45
 ;;9002226.02101,"869,43353-0382-30 ",.01)
 ;;43353-0382-30
 ;;9002226.02101,"869,43353-0382-30 ",.02)
 ;;43353-0382-30
 ;;9002226.02101,"869,43353-0415-30 ",.01)
 ;;43353-0415-30
 ;;9002226.02101,"869,43353-0415-30 ",.02)
 ;;43353-0415-30
 ;;9002226.02101,"869,43353-0419-15 ",.01)
 ;;43353-0419-15
 ;;9002226.02101,"869,43353-0419-15 ",.02)
 ;;43353-0419-15
 ;;9002226.02101,"869,43353-0421-30 ",.01)
 ;;43353-0421-30
 ;;9002226.02101,"869,43353-0421-30 ",.02)
 ;;43353-0421-30
 ;;9002226.02101,"869,43353-0429-15 ",.01)
 ;;43353-0429-15
 ;;9002226.02101,"869,43353-0429-15 ",.02)
 ;;43353-0429-15
 ;;9002226.02101,"869,43353-0435-30 ",.01)
 ;;43353-0435-30
 ;;9002226.02101,"869,43353-0435-30 ",.02)
 ;;43353-0435-30
 ;;9002226.02101,"869,43353-0441-53 ",.01)
 ;;43353-0441-53
 ;;9002226.02101,"869,43353-0441-53 ",.02)
 ;;43353-0441-53
 ;;9002226.02101,"869,43353-0447-15 ",.01)
 ;;43353-0447-15
 ;;9002226.02101,"869,43353-0447-15 ",.02)
 ;;43353-0447-15
 ;;9002226.02101,"869,43353-0536-45 ",.01)
 ;;43353-0536-45
 ;;9002226.02101,"869,43353-0536-45 ",.02)
 ;;43353-0536-45
 ;;9002226.02101,"869,43386-0360-21 ",.01)
 ;;43386-0360-21
 ;;9002226.02101,"869,43386-0360-21 ",.02)
 ;;43386-0360-21
 ;;9002226.02101,"869,43547-0281-10 ",.01)
 ;;43547-0281-10