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

BGP62Z35.m

Go to the documentation of this file.
BGP62Z35 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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,35356-0029-30 ",.01)
 ;;35356-0029-30
 ;;9002226.02101,"869,35356-0029-30 ",.02)
 ;;35356-0029-30
 ;;9002226.02101,"869,35356-0030-30 ",.01)
 ;;35356-0030-30
 ;;9002226.02101,"869,35356-0030-30 ",.02)
 ;;35356-0030-30
 ;;9002226.02101,"869,35356-0031-30 ",.01)
 ;;35356-0031-30
 ;;9002226.02101,"869,35356-0031-30 ",.02)
 ;;35356-0031-30
 ;;9002226.02101,"869,35356-0032-30 ",.01)
 ;;35356-0032-30
 ;;9002226.02101,"869,35356-0032-30 ",.02)
 ;;35356-0032-30
 ;;9002226.02101,"869,35356-0033-30 ",.01)
 ;;35356-0033-30
 ;;9002226.02101,"869,35356-0033-30 ",.02)
 ;;35356-0033-30
 ;;9002226.02101,"869,35356-0045-30 ",.01)
 ;;35356-0045-30
 ;;9002226.02101,"869,35356-0045-30 ",.02)
 ;;35356-0045-30
 ;;9002226.02101,"869,35356-0046-30 ",.01)
 ;;35356-0046-30
 ;;9002226.02101,"869,35356-0046-30 ",.02)
 ;;35356-0046-30
 ;;9002226.02101,"869,35356-0087-30 ",.01)
 ;;35356-0087-30
 ;;9002226.02101,"869,35356-0087-30 ",.02)
 ;;35356-0087-30
 ;;9002226.02101,"869,35356-0087-60 ",.01)
 ;;35356-0087-60
 ;;9002226.02101,"869,35356-0087-60 ",.02)
 ;;35356-0087-60
 ;;9002226.02101,"869,35356-0087-90 ",.01)
 ;;35356-0087-90
 ;;9002226.02101,"869,35356-0087-90 ",.02)
 ;;35356-0087-90
 ;;9002226.02101,"869,35356-0369-60 ",.01)
 ;;35356-0369-60
 ;;9002226.02101,"869,35356-0369-60 ",.02)
 ;;35356-0369-60
 ;;9002226.02101,"869,35356-0491-30 ",.01)
 ;;35356-0491-30
 ;;9002226.02101,"869,35356-0491-30 ",.02)
 ;;35356-0491-30
 ;;9002226.02101,"869,35356-0668-30 ",.01)
 ;;35356-0668-30
 ;;9002226.02101,"869,35356-0668-30 ",.02)
 ;;35356-0668-30
 ;;9002226.02101,"869,35356-0669-30 ",.01)
 ;;35356-0669-30
 ;;9002226.02101,"869,35356-0669-30 ",.02)
 ;;35356-0669-30
 ;;9002226.02101,"869,35356-0680-30 ",.01)
 ;;35356-0680-30
 ;;9002226.02101,"869,35356-0680-30 ",.02)
 ;;35356-0680-30
 ;;9002226.02101,"869,35356-0680-60 ",.01)
 ;;35356-0680-60
 ;;9002226.02101,"869,35356-0680-60 ",.02)
 ;;35356-0680-60
 ;;9002226.02101,"869,35356-0680-90 ",.01)
 ;;35356-0680-90
 ;;9002226.02101,"869,35356-0680-90 ",.02)
 ;;35356-0680-90
 ;;9002226.02101,"869,35356-0688-30 ",.01)
 ;;35356-0688-30
 ;;9002226.02101,"869,35356-0688-30 ",.02)
 ;;35356-0688-30
 ;;9002226.02101,"869,35356-0712-00 ",.01)
 ;;35356-0712-00
 ;;9002226.02101,"869,35356-0712-00 ",.02)
 ;;35356-0712-00
 ;;9002226.02101,"869,35356-0712-15 ",.01)
 ;;35356-0712-15
 ;;9002226.02101,"869,35356-0712-15 ",.02)
 ;;35356-0712-15
 ;;9002226.02101,"869,35356-0712-30 ",.01)
 ;;35356-0712-30
 ;;9002226.02101,"869,35356-0712-30 ",.02)
 ;;35356-0712-30
 ;;9002226.02101,"869,35356-0712-60 ",.01)
 ;;35356-0712-60
 ;;9002226.02101,"869,35356-0712-60 ",.02)
 ;;35356-0712-60
 ;;9002226.02101,"869,35356-0712-90 ",.01)
 ;;35356-0712-90
 ;;9002226.02101,"869,35356-0712-90 ",.02)
 ;;35356-0712-90
 ;;9002226.02101,"869,35356-0718-00 ",.01)
 ;;35356-0718-00
 ;;9002226.02101,"869,35356-0718-00 ",.02)
 ;;35356-0718-00
 ;;9002226.02101,"869,35356-0718-30 ",.01)
 ;;35356-0718-30
 ;;9002226.02101,"869,35356-0718-30 ",.02)
 ;;35356-0718-30
 ;;9002226.02101,"869,35356-0718-60 ",.01)
 ;;35356-0718-60
 ;;9002226.02101,"869,35356-0718-60 ",.02)
 ;;35356-0718-60
 ;;9002226.02101,"869,35356-0718-90 ",.01)
 ;;35356-0718-90
 ;;9002226.02101,"869,35356-0718-90 ",.02)
 ;;35356-0718-90
 ;;9002226.02101,"869,35356-0728-30 ",.01)
 ;;35356-0728-30
 ;;9002226.02101,"869,35356-0728-30 ",.02)
 ;;35356-0728-30
 ;;9002226.02101,"869,35356-0728-60 ",.01)
 ;;35356-0728-60
 ;;9002226.02101,"869,35356-0728-60 ",.02)
 ;;35356-0728-60
 ;;9002226.02101,"869,35356-0728-90 ",.01)
 ;;35356-0728-90
 ;;9002226.02101,"869,35356-0728-90 ",.02)
 ;;35356-0728-90
 ;;9002226.02101,"869,35356-0729-30 ",.01)
 ;;35356-0729-30
 ;;9002226.02101,"869,35356-0729-30 ",.02)
 ;;35356-0729-30
 ;;9002226.02101,"869,35356-0742-30 ",.01)
 ;;35356-0742-30
 ;;9002226.02101,"869,35356-0742-30 ",.02)
 ;;35356-0742-30
 ;;9002226.02101,"869,35356-0742-60 ",.01)
 ;;35356-0742-60
 ;;9002226.02101,"869,35356-0742-60 ",.02)
 ;;35356-0742-60
 ;;9002226.02101,"869,35356-0742-90 ",.01)
 ;;35356-0742-90
 ;;9002226.02101,"869,35356-0742-90 ",.02)
 ;;35356-0742-90
 ;;9002226.02101,"869,35356-0743-30 ",.01)
 ;;35356-0743-30
 ;;9002226.02101,"869,35356-0743-30 ",.02)
 ;;35356-0743-30
 ;;9002226.02101,"869,35356-0743-60 ",.01)
 ;;35356-0743-60
 ;;9002226.02101,"869,35356-0743-60 ",.02)
 ;;35356-0743-60
 ;;9002226.02101,"869,35356-0743-90 ",.01)
 ;;35356-0743-90
 ;;9002226.02101,"869,35356-0743-90 ",.02)
 ;;35356-0743-90
 ;;9002226.02101,"869,36818-0137-01 ",.01)
 ;;36818-0137-01
 ;;9002226.02101,"869,36818-0137-01 ",.02)
 ;;36818-0137-01
 ;;9002226.02101,"869,41616-0758-81 ",.01)
 ;;41616-0758-81
 ;;9002226.02101,"869,41616-0758-81 ",.02)
 ;;41616-0758-81
 ;;9002226.02101,"869,41616-0758-83 ",.01)
 ;;41616-0758-83
 ;;9002226.02101,"869,41616-0758-83 ",.02)
 ;;41616-0758-83
 ;;9002226.02101,"869,41616-0759-81 ",.01)
 ;;41616-0759-81
 ;;9002226.02101,"869,41616-0759-81 ",.02)
 ;;41616-0759-81
 ;;9002226.02101,"869,41616-0759-83 ",.01)
 ;;41616-0759-83
 ;;9002226.02101,"869,41616-0759-83 ",.02)
 ;;41616-0759-83
 ;;9002226.02101,"869,41616-0760-81 ",.01)
 ;;41616-0760-81
 ;;9002226.02101,"869,41616-0760-81 ",.02)
 ;;41616-0760-81
 ;;9002226.02101,"869,41616-0760-83 ",.01)
 ;;41616-0760-83
 ;;9002226.02101,"869,41616-0760-83 ",.02)
 ;;41616-0760-83
 ;;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,42549-0529-30 ",.01)
 ;;42549-0529-30
 ;;9002226.02101,"869,42549-0529-30 ",.02)
 ;;42549-0529-30
 ;;9002226.02101,"869,42549-0529-60 ",.01)
 ;;42549-0529-60
 ;;9002226.02101,"869,42549-0529-60 ",.02)
 ;;42549-0529-60
 ;;9002226.02101,"869,42549-0529-90 ",.01)
 ;;42549-0529-90
 ;;9002226.02101,"869,42549-0529-90 ",.02)
 ;;42549-0529-90
 ;;9002226.02101,"869,42549-0546-12 ",.01)
 ;;42549-0546-12
 ;;9002226.02101,"869,42549-0546-12 ",.02)
 ;;42549-0546-12
 ;;9002226.02101,"869,42549-0546-30 ",.01)
 ;;42549-0546-30
 ;;9002226.02101,"869,42549-0546-30 ",.02)
 ;;42549-0546-30
 ;;9002226.02101,"869,42549-0546-60 ",.01)
 ;;42549-0546-60
 ;;9002226.02101,"869,42549-0546-60 ",.02)
 ;;42549-0546-60
 ;;9002226.02101,"869,42549-0546-90 ",.01)
 ;;42549-0546-90
 ;;9002226.02101,"869,42549-0546-90 ",.02)
 ;;42549-0546-90
 ;;9002226.02101,"869,42549-0599-30 ",.01)
 ;;42549-0599-30
 ;;9002226.02101,"869,42549-0599-30 ",.02)
 ;;42549-0599-30
 ;;9002226.02101,"869,42549-0605-30 ",.01)
 ;;42549-0605-30
 ;;9002226.02101,"869,42549-0605-30 ",.02)
 ;;42549-0605-30
 ;;9002226.02101,"869,42549-0605-60 ",.01)
 ;;42549-0605-60
 ;;9002226.02101,"869,42549-0605-60 ",.02)
 ;;42549-0605-60
 ;;9002226.02101,"869,42549-0605-90 ",.01)
 ;;42549-0605-90
 ;;9002226.02101,"869,42549-0605-90 ",.02)
 ;;42549-0605-90
 ;;9002226.02101,"869,42549-0613-30 ",.01)
 ;;42549-0613-30
 ;;9002226.02101,"869,42549-0613-30 ",.02)
 ;;42549-0613-30
 ;;9002226.02101,"869,42549-0613-60 ",.01)
 ;;42549-0613-60
 ;;9002226.02101,"869,42549-0613-60 ",.02)
 ;;42549-0613-60
 ;;9002226.02101,"869,42549-0613-90 ",.01)
 ;;42549-0613-90
 ;;9002226.02101,"869,42549-0613-90 ",.02)
 ;;42549-0613-90
 ;;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-0216-01 ",.01)
 ;;43063-0216-01
 ;;9002226.02101,"869,43063-0216-01 ",.02)
 ;;43063-0216-01
 ;;9002226.02101,"869,43063-0217-01 ",.01)
 ;;43063-0217-01
 ;;9002226.02101,"869,43063-0217-01 ",.02)
 ;;43063-0217-01
 ;;9002226.02101,"869,43063-0221-01 ",.01)
 ;;43063-0221-01
 ;;9002226.02101,"869,43063-0221-01 ",.02)
 ;;43063-0221-01
 ;;9002226.02101,"869,43063-0221-30 ",.01)
 ;;43063-0221-30
 ;;9002226.02101,"869,43063-0221-30 ",.02)
 ;;43063-0221-30