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

BGPM5AJQ.m

Go to the documentation of this file.
  1. BGPM5AJQ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"889,54868358700 ",.01)
  1. ;;54868358700
  1. ;;9002226.02101,"889,54868358700 ",.02)
  1. ;;54868358700
  1. ;;9002226.02101,"889,54868358701 ",.01)
  1. ;;54868358701
  1. ;;9002226.02101,"889,54868358701 ",.02)
  1. ;;54868358701
  1. ;;9002226.02101,"889,54868358702 ",.01)
  1. ;;54868358702
  1. ;;9002226.02101,"889,54868358702 ",.02)
  1. ;;54868358702
  1. ;;9002226.02101,"889,54868358703 ",.01)
  1. ;;54868358703
  1. ;;9002226.02101,"889,54868358703 ",.02)
  1. ;;54868358703
  1. ;;9002226.02101,"889,54868358704 ",.01)
  1. ;;54868358704
  1. ;;9002226.02101,"889,54868358704 ",.02)
  1. ;;54868358704
  1. ;;9002226.02101,"889,54868358705 ",.01)
  1. ;;54868358705
  1. ;;9002226.02101,"889,54868358705 ",.02)
  1. ;;54868358705
  1. ;;9002226.02101,"889,54868360200 ",.01)
  1. ;;54868360200
  1. ;;9002226.02101,"889,54868360200 ",.02)
  1. ;;54868360200
  1. ;;9002226.02101,"889,54868372101 ",.01)
  1. ;;54868372101
  1. ;;9002226.02101,"889,54868372101 ",.02)
  1. ;;54868372101
  1. ;;9002226.02101,"889,54868372102 ",.01)
  1. ;;54868372102
  1. ;;9002226.02101,"889,54868372102 ",.02)
  1. ;;54868372102
  1. ;;9002226.02101,"889,54868387300 ",.01)
  1. ;;54868387300
  1. ;;9002226.02101,"889,54868387300 ",.02)
  1. ;;54868387300
  1. ;;9002226.02101,"889,54868392000 ",.01)
  1. ;;54868392000
  1. ;;9002226.02101,"889,54868392000 ",.02)
  1. ;;54868392000
  1. ;;9002226.02101,"889,54868417300 ",.01)
  1. ;;54868417300
  1. ;;9002226.02101,"889,54868417300 ",.02)
  1. ;;54868417300
  1. ;;9002226.02101,"889,54868417900 ",.01)
  1. ;;54868417900
  1. ;;9002226.02101,"889,54868417900 ",.02)
  1. ;;54868417900
  1. ;;9002226.02101,"889,54868422300 ",.01)
  1. ;;54868422300
  1. ;;9002226.02101,"889,54868422300 ",.02)
  1. ;;54868422300
  1. ;;9002226.02101,"889,54868422301 ",.01)
  1. ;;54868422301
  1. ;;9002226.02101,"889,54868422301 ",.02)
  1. ;;54868422301
  1. ;;9002226.02101,"889,54868422302 ",.01)
  1. ;;54868422302
  1. ;;9002226.02101,"889,54868422302 ",.02)
  1. ;;54868422302
  1. ;;9002226.02101,"889,54868422303 ",.01)
  1. ;;54868422303
  1. ;;9002226.02101,"889,54868422303 ",.02)
  1. ;;54868422303
  1. ;;9002226.02101,"889,54868422304 ",.01)
  1. ;;54868422304
  1. ;;9002226.02101,"889,54868422304 ",.02)
  1. ;;54868422304
  1. ;;9002226.02101,"889,54868439500 ",.01)
  1. ;;54868439500
  1. ;;9002226.02101,"889,54868439500 ",.02)
  1. ;;54868439500
  1. ;;9002226.02101,"889,54868439501 ",.01)
  1. ;;54868439501
  1. ;;9002226.02101,"889,54868439501 ",.02)
  1. ;;54868439501
  1. ;;9002226.02101,"889,54868439502 ",.01)
  1. ;;54868439502
  1. ;;9002226.02101,"889,54868439502 ",.02)
  1. ;;54868439502
  1. ;;9002226.02101,"889,54868439503 ",.01)
  1. ;;54868439503
  1. ;;9002226.02101,"889,54868439503 ",.02)
  1. ;;54868439503
  1. ;;9002226.02101,"889,54868439600 ",.01)
  1. ;;54868439600
  1. ;;9002226.02101,"889,54868439600 ",.02)
  1. ;;54868439600
  1. ;;9002226.02101,"889,54868439601 ",.01)
  1. ;;54868439601
  1. ;;9002226.02101,"889,54868439601 ",.02)
  1. ;;54868439601
  1. ;;9002226.02101,"889,54868439602 ",.01)
  1. ;;54868439602
  1. ;;9002226.02101,"889,54868439602 ",.02)
  1. ;;54868439602
  1. ;;9002226.02101,"889,54868439603 ",.01)
  1. ;;54868439603
  1. ;;9002226.02101,"889,54868439603 ",.02)
  1. ;;54868439603
  1. ;;9002226.02101,"889,54868442100 ",.01)
  1. ;;54868442100
  1. ;;9002226.02101,"889,54868442100 ",.02)
  1. ;;54868442100
  1. ;;9002226.02101,"889,54868442101 ",.01)
  1. ;;54868442101
  1. ;;9002226.02101,"889,54868442101 ",.02)
  1. ;;54868442101
  1. ;;9002226.02101,"889,54868442102 ",.01)
  1. ;;54868442102
  1. ;;9002226.02101,"889,54868442102 ",.02)
  1. ;;54868442102
  1. ;;9002226.02101,"889,54868442400 ",.01)
  1. ;;54868442400
  1. ;;9002226.02101,"889,54868442400 ",.02)
  1. ;;54868442400
  1. ;;9002226.02101,"889,54868442401 ",.01)
  1. ;;54868442401
  1. ;;9002226.02101,"889,54868442401 ",.02)
  1. ;;54868442401
  1. ;;9002226.02101,"889,54868442402 ",.01)
  1. ;;54868442402
  1. ;;9002226.02101,"889,54868442402 ",.02)
  1. ;;54868442402
  1. ;;9002226.02101,"889,54868442403 ",.01)
  1. ;;54868442403
  1. ;;9002226.02101,"889,54868442403 ",.02)
  1. ;;54868442403
  1. ;;9002226.02101,"889,54868448600 ",.01)
  1. ;;54868448600
  1. ;;9002226.02101,"889,54868448600 ",.02)
  1. ;;54868448600
  1. ;;9002226.02101,"889,54868457600 ",.01)
  1. ;;54868457600
  1. ;;9002226.02101,"889,54868457600 ",.02)
  1. ;;54868457600
  1. ;;9002226.02101,"889,54868457601 ",.01)
  1. ;;54868457601
  1. ;;9002226.02101,"889,54868457601 ",.02)
  1. ;;54868457601
  1. ;;9002226.02101,"889,54868457602 ",.01)
  1. ;;54868457602
  1. ;;9002226.02101,"889,54868457602 ",.02)
  1. ;;54868457602
  1. ;;9002226.02101,"889,54868457603 ",.01)
  1. ;;54868457603
  1. ;;9002226.02101,"889,54868457603 ",.02)
  1. ;;54868457603
  1. ;;9002226.02101,"889,54868457700 ",.01)
  1. ;;54868457700
  1. ;;9002226.02101,"889,54868457700 ",.02)
  1. ;;54868457700
  1. ;;9002226.02101,"889,54868457701 ",.01)
  1. ;;54868457701
  1. ;;9002226.02101,"889,54868457701 ",.02)
  1. ;;54868457701
  1. ;;9002226.02101,"889,54868457702 ",.01)
  1. ;;54868457702
  1. ;;9002226.02101,"889,54868457702 ",.02)
  1. ;;54868457702
  1. ;;9002226.02101,"889,54868457703 ",.01)
  1. ;;54868457703
  1. ;;9002226.02101,"889,54868457703 ",.02)
  1. ;;54868457703
  1. ;;9002226.02101,"889,54868457800 ",.01)
  1. ;;54868457800
  1. ;;9002226.02101,"889,54868457800 ",.02)
  1. ;;54868457800
  1. ;;9002226.02101,"889,54868457801 ",.01)
  1. ;;54868457801
  1. ;;9002226.02101,"889,54868457801 ",.02)
  1. ;;54868457801
  1. ;;9002226.02101,"889,54868457802 ",.01)
  1. ;;54868457802
  1. ;;9002226.02101,"889,54868457802 ",.02)
  1. ;;54868457802
  1. ;;9002226.02101,"889,54868457803 ",.01)
  1. ;;54868457803
  1. ;;9002226.02101,"889,54868457803 ",.02)
  1. ;;54868457803
  1. ;;9002226.02101,"889,54868462100 ",.01)
  1. ;;54868462100
  1. ;;9002226.02101,"889,54868462100 ",.02)
  1. ;;54868462100
  1. ;;9002226.02101,"889,54868466100 ",.01)
  1. ;;54868466100
  1. ;;9002226.02101,"889,54868466100 ",.02)
  1. ;;54868466100
  1. ;;9002226.02101,"889,54868466101 ",.01)
  1. ;;54868466101
  1. ;;9002226.02101,"889,54868466101 ",.02)
  1. ;;54868466101
  1. ;;9002226.02101,"889,54868466102 ",.01)
  1. ;;54868466102
  1. ;;9002226.02101,"889,54868466102 ",.02)
  1. ;;54868466102
  1. ;;9002226.02101,"889,54868466103 ",.01)
  1. ;;54868466103
  1. ;;9002226.02101,"889,54868466103 ",.02)
  1. ;;54868466103
  1. ;;9002226.02101,"889,54868484400 ",.01)
  1. ;;54868484400
  1. ;;9002226.02101,"889,54868484400 ",.02)
  1. ;;54868484400
  1. ;;9002226.02101,"889,54868484401 ",.01)
  1. ;;54868484401
  1. ;;9002226.02101,"889,54868484401 ",.02)
  1. ;;54868484401
  1. ;;9002226.02101,"889,54868484402 ",.01)
  1. ;;54868484402
  1. ;;9002226.02101,"889,54868484402 ",.02)
  1. ;;54868484402
  1. ;;9002226.02101,"889,54868484403 ",.01)
  1. ;;54868484403
  1. ;;9002226.02101,"889,54868484403 ",.02)
  1. ;;54868484403
  1. ;;9002226.02101,"889,54868490300 ",.01)
  1. ;;54868490300
  1. ;;9002226.02101,"889,54868490300 ",.02)
  1. ;;54868490300
  1. ;;9002226.02101,"889,54868490301 ",.01)
  1. ;;54868490301
  1. ;;9002226.02101,"889,54868490301 ",.02)
  1. ;;54868490301
  1. ;;9002226.02101,"889,54868490302 ",.01)
  1. ;;54868490302
  1. ;;9002226.02101,"889,54868490302 ",.02)
  1. ;;54868490302
  1. ;;9002226.02101,"889,54868492100 ",.01)
  1. ;;54868492100
  1. ;;9002226.02101,"889,54868492100 ",.02)
  1. ;;54868492100
  1. ;;9002226.02101,"889,54868492101 ",.01)
  1. ;;54868492101
  1. ;;9002226.02101,"889,54868492101 ",.02)
  1. ;;54868492101
  1. ;;9002226.02101,"889,54868492102 ",.01)
  1. ;;54868492102
  1. ;;9002226.02101,"889,54868492102 ",.02)
  1. ;;54868492102
  1. ;;9002226.02101,"889,54868493200 ",.01)
  1. ;;54868493200
  1. ;;9002226.02101,"889,54868493200 ",.02)
  1. ;;54868493200
  1. ;;9002226.02101,"889,54868493201 ",.01)
  1. ;;54868493201
  1. ;;9002226.02101,"889,54868493201 ",.02)
  1. ;;54868493201
  1. ;;9002226.02101,"889,54868501300 ",.01)
  1. ;;54868501300
  1. ;;9002226.02101,"889,54868501300 ",.02)
  1. ;;54868501300
  1. ;;9002226.02101,"889,54868502100 ",.01)
  1. ;;54868502100
  1. ;;9002226.02101,"889,54868502100 ",.02)
  1. ;;54868502100
  1. ;;9002226.02101,"889,54868502101 ",.01)
  1. ;;54868502101
  1. ;;9002226.02101,"889,54868502101 ",.02)
  1. ;;54868502101
  1. ;;9002226.02101,"889,54868502102 ",.01)
  1. ;;54868502102
  1. ;;9002226.02101,"889,54868502102 ",.02)
  1. ;;54868502102
  1. ;;9002226.02101,"889,54868502103 ",.01)
  1. ;;54868502103
  1. ;;9002226.02101,"889,54868502103 ",.02)
  1. ;;54868502103
  1. ;;9002226.02101,"889,54868502104 ",.01)
  1. ;;54868502104
  1. ;;9002226.02101,"889,54868502104 ",.02)
  1. ;;54868502104
  1. ;;9002226.02101,"889,54868506800 ",.01)
  1. ;;54868506800
  1. ;;9002226.02101,"889,54868506800 ",.02)
  1. ;;54868506800
  1. ;;9002226.02101,"889,54868506801 ",.01)
  1. ;;54868506801
  1. ;;9002226.02101,"889,54868506801 ",.02)
  1. ;;54868506801
  1. ;;9002226.02101,"889,54868506802 ",.01)
  1. ;;54868506802
  1. ;;9002226.02101,"889,54868506802 ",.02)
  1. ;;54868506802
  1. ;;9002226.02101,"889,54868506803 ",.01)
  1. ;;54868506803
  1. ;;9002226.02101,"889,54868506803 ",.02)
  1. ;;54868506803
  1. ;;9002226.02101,"889,54868509500 ",.01)
  1. ;;54868509500
  1. ;;9002226.02101,"889,54868509500 ",.02)
  1. ;;54868509500
  1. ;;9002226.02101,"889,54868509501 ",.01)
  1. ;;54868509501
  1. ;;9002226.02101,"889,54868509501 ",.02)
  1. ;;54868509501
  1. ;;9002226.02101,"889,54868509502 ",.01)
  1. ;;54868509502
  1. ;;9002226.02101,"889,54868509502 ",.02)
  1. ;;54868509502
  1. ;;9002226.02101,"889,54868509503 ",.01)
  1. ;;54868509503
  1. ;;9002226.02101,"889,54868509503 ",.02)
  1. ;;54868509503
  1. ;;9002226.02101,"889,54868529500 ",.01)
  1. ;;54868529500
  1. ;;9002226.02101,"889,54868529500 ",.02)
  1. ;;54868529500
  1. ;;9002226.02101,"889,54868529501 ",.01)
  1. ;;54868529501
  1. ;;9002226.02101,"889,54868529501 ",.02)
  1. ;;54868529501
  1. ;;9002226.02101,"889,54868534400 ",.01)
  1. ;;54868534400
  1. ;;9002226.02101,"889,54868534400 ",.02)
  1. ;;54868534400
  1. ;;9002226.02101,"889,54868534401 ",.01)
  1. ;;54868534401
  1. ;;9002226.02101,"889,54868534401 ",.02)
  1. ;;54868534401
  1. ;;9002226.02101,"889,54868534402 ",.01)
  1. ;;54868534402
  1. ;;9002226.02101,"889,54868534402 ",.02)
  1. ;;54868534402
  1. ;;9002226.02101,"889,54868539500 ",.01)
  1. ;;54868539500
  1. ;;9002226.02101,"889,54868539500 ",.02)
  1. ;;54868539500
  1. ;;9002226.02101,"889,54868540000 ",.01)
  1. ;;54868540000
  1. ;;9002226.02101,"889,54868540000 ",.02)
  1. ;;54868540000
  1. ;;9002226.02101,"889,54868540001 ",.01)
  1. ;;54868540001
  1. ;;9002226.02101,"889,54868540001 ",.02)
  1. ;;54868540001
  1. ;;9002226.02101,"889,54868552400 ",.01)
  1. ;;54868552400
  1. ;;9002226.02101,"889,54868552400 ",.02)
  1. ;;54868552400
  1. ;;9002226.02101,"889,54868552401 ",.01)
  1. ;;54868552401
  1. ;;9002226.02101,"889,54868552401 ",.02)
  1. ;;54868552401
  1. ;;9002226.02101,"889,54868556400 ",.01)
  1. ;;54868556400
  1. ;;9002226.02101,"889,54868556400 ",.02)
  1. ;;54868556400
  1. ;;9002226.02101,"889,54868556401 ",.01)
  1. ;;54868556401
  1. ;;9002226.02101,"889,54868556401 ",.02)
  1. ;;54868556401
  1. ;;9002226.02101,"889,54868558800 ",.01)
  1. ;;54868558800
  1. ;;9002226.02101,"889,54868558800 ",.02)
  1. ;;54868558800
  1. ;;9002226.02101,"889,54868572600 ",.01)
  1. ;;54868572600
  1. ;;9002226.02101,"889,54868572600 ",.02)
  1. ;;54868572600
  1. ;;9002226.02101,"889,54868575500 ",.01)
  1. ;;54868575500
  1. ;;9002226.02101,"889,54868575500 ",.02)
  1. ;;54868575500
  1. ;;9002226.02101,"889,54868575501 ",.01)
  1. ;;54868575501
  1. ;;9002226.02101,"889,54868575501 ",.02)
  1. ;;54868575501
  1. ;;9002226.02101,"889,54921010110 ",.01)
  1. ;;54921010110
  1. ;;9002226.02101,"889,54921010110 ",.02)
  1. ;;54921010110
  1. ;;9002226.02101,"889,54921010139 ",.01)
  1. ;;54921010139
  1. ;;9002226.02101,"889,54921010139 ",.02)
  1. ;;54921010139
  1. ;;9002226.02101,"889,54921010510 ",.01)
  1. ;;54921010510
  1. ;;9002226.02101,"889,54921010510 ",.02)
  1. ;;54921010510
  1. ;;9002226.02101,"889,54921010534 ",.01)
  1. ;;54921010534
  1. ;;9002226.02101,"889,54921010534 ",.02)
  1. ;;54921010534
  1. ;;9002226.02101,"889,54921010539 ",.01)
  1. ;;54921010539
  1. ;;9002226.02101,"889,54921010539 ",.02)
  1. ;;54921010539
  1. ;;9002226.02101,"889,54921010710 ",.01)
  1. ;;54921010710
  1. ;;9002226.02101,"889,54921010710 ",.02)
  1. ;;54921010710
  1. ;;9002226.02101,"889,54921011510 ",.01)
  1. ;;54921011510
  1. ;;9002226.02101,"889,54921011510 ",.02)
  1. ;;54921011510
  1. ;;9002226.02101,"889,54921011710 ",.01)
  1. ;;54921011710
  1. ;;9002226.02101,"889,54921011710 ",.02)
  1. ;;54921011710
  1. ;;9002226.02101,"889,55045123607 ",.01)
  1. ;;55045123607
  1. ;;9002226.02101,"889,55045123607 ",.02)
  1. ;;55045123607