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

BGPM5AQV.m

Go to the documentation of this file.
  1. BGPM5AQV ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,23490148706 ",.02)
  1. ;;23490148706
  1. ;;9002226.02101,"1005,23490148709 ",.01)
  1. ;;23490148709
  1. ;;9002226.02101,"1005,23490148709 ",.02)
  1. ;;23490148709
  1. ;;9002226.02101,"1005,23490148800 ",.01)
  1. ;;23490148800
  1. ;;9002226.02101,"1005,23490148800 ",.02)
  1. ;;23490148800
  1. ;;9002226.02101,"1005,23490148803 ",.01)
  1. ;;23490148803
  1. ;;9002226.02101,"1005,23490148803 ",.02)
  1. ;;23490148803
  1. ;;9002226.02101,"1005,23490148806 ",.01)
  1. ;;23490148806
  1. ;;9002226.02101,"1005,23490148806 ",.02)
  1. ;;23490148806
  1. ;;9002226.02101,"1005,23490148809 ",.01)
  1. ;;23490148809
  1. ;;9002226.02101,"1005,23490148809 ",.02)
  1. ;;23490148809
  1. ;;9002226.02101,"1005,23490519101 ",.01)
  1. ;;23490519101
  1. ;;9002226.02101,"1005,23490519101 ",.02)
  1. ;;23490519101
  1. ;;9002226.02101,"1005,23490519201 ",.01)
  1. ;;23490519201
  1. ;;9002226.02101,"1005,23490519201 ",.02)
  1. ;;23490519201
  1. ;;9002226.02101,"1005,23490519301 ",.01)
  1. ;;23490519301
  1. ;;9002226.02101,"1005,23490519301 ",.02)
  1. ;;23490519301
  1. ;;9002226.02101,"1005,23490519302 ",.01)
  1. ;;23490519302
  1. ;;9002226.02101,"1005,23490519302 ",.02)
  1. ;;23490519302
  1. ;;9002226.02101,"1005,23490519303 ",.01)
  1. ;;23490519303
  1. ;;9002226.02101,"1005,23490519303 ",.02)
  1. ;;23490519303
  1. ;;9002226.02101,"1005,23490519400 ",.01)
  1. ;;23490519400
  1. ;;9002226.02101,"1005,23490519400 ",.02)
  1. ;;23490519400
  1. ;;9002226.02101,"1005,23490519401 ",.01)
  1. ;;23490519401
  1. ;;9002226.02101,"1005,23490519401 ",.02)
  1. ;;23490519401
  1. ;;9002226.02101,"1005,23490519402 ",.01)
  1. ;;23490519402
  1. ;;9002226.02101,"1005,23490519402 ",.02)
  1. ;;23490519402
  1. ;;9002226.02101,"1005,23490549101 ",.01)
  1. ;;23490549101
  1. ;;9002226.02101,"1005,23490549101 ",.02)
  1. ;;23490549101
  1. ;;9002226.02101,"1005,23490549102 ",.01)
  1. ;;23490549102
  1. ;;9002226.02101,"1005,23490549102 ",.02)
  1. ;;23490549102
  1. ;;9002226.02101,"1005,23490549108 ",.01)
  1. ;;23490549108
  1. ;;9002226.02101,"1005,23490549108 ",.02)
  1. ;;23490549108
  1. ;;9002226.02101,"1005,23490549109 ",.01)
  1. ;;23490549109
  1. ;;9002226.02101,"1005,23490549109 ",.02)
  1. ;;23490549109
  1. ;;9002226.02101,"1005,23490549201 ",.01)
  1. ;;23490549201
  1. ;;9002226.02101,"1005,23490549201 ",.02)
  1. ;;23490549201
  1. ;;9002226.02101,"1005,23490549202 ",.01)
  1. ;;23490549202
  1. ;;9002226.02101,"1005,23490549202 ",.02)
  1. ;;23490549202
  1. ;;9002226.02101,"1005,23490549401 ",.01)
  1. ;;23490549401
  1. ;;9002226.02101,"1005,23490549401 ",.02)
  1. ;;23490549401
  1. ;;9002226.02101,"1005,23490549402 ",.01)
  1. ;;23490549402
  1. ;;9002226.02101,"1005,23490549402 ",.02)
  1. ;;23490549402
  1. ;;9002226.02101,"1005,23490581500 ",.01)
  1. ;;23490581500
  1. ;;9002226.02101,"1005,23490581500 ",.02)
  1. ;;23490581500
  1. ;;9002226.02101,"1005,23490581501 ",.01)
  1. ;;23490581501
  1. ;;9002226.02101,"1005,23490581501 ",.02)
  1. ;;23490581501
  1. ;;9002226.02101,"1005,23490581601 ",.01)
  1. ;;23490581601
  1. ;;9002226.02101,"1005,23490581601 ",.02)
  1. ;;23490581601
  1. ;;9002226.02101,"1005,23490581602 ",.01)
  1. ;;23490581602
  1. ;;9002226.02101,"1005,23490581602 ",.02)
  1. ;;23490581602
  1. ;;9002226.02101,"1005,23490581606 ",.01)
  1. ;;23490581606
  1. ;;9002226.02101,"1005,23490581606 ",.02)
  1. ;;23490581606
  1. ;;9002226.02101,"1005,23490581702 ",.01)
  1. ;;23490581702
  1. ;;9002226.02101,"1005,23490581702 ",.02)
  1. ;;23490581702
  1. ;;9002226.02101,"1005,23490581802 ",.01)
  1. ;;23490581802
  1. ;;9002226.02101,"1005,23490581802 ",.02)
  1. ;;23490581802
  1. ;;9002226.02101,"1005,23490581902 ",.01)
  1. ;;23490581902
  1. ;;9002226.02101,"1005,23490581902 ",.02)
  1. ;;23490581902
  1. ;;9002226.02101,"1005,23490582001 ",.01)
  1. ;;23490582001
  1. ;;9002226.02101,"1005,23490582001 ",.02)
  1. ;;23490582001
  1. ;;9002226.02101,"1005,23490582101 ",.01)
  1. ;;23490582101
  1. ;;9002226.02101,"1005,23490582101 ",.02)
  1. ;;23490582101
  1. ;;9002226.02101,"1005,23490582201 ",.01)
  1. ;;23490582201
  1. ;;9002226.02101,"1005,23490582201 ",.02)
  1. ;;23490582201
  1. ;;9002226.02101,"1005,23490936403 ",.01)
  1. ;;23490936403
  1. ;;9002226.02101,"1005,23490936403 ",.02)
  1. ;;23490936403
  1. ;;9002226.02101,"1005,24196050101 ",.01)
  1. ;;24196050101
  1. ;;9002226.02101,"1005,24196050101 ",.02)
  1. ;;24196050101
  1. ;;9002226.02101,"1005,24196050105 ",.01)
  1. ;;24196050105
  1. ;;9002226.02101,"1005,24196050105 ",.02)
  1. ;;24196050105
  1. ;;9002226.02101,"1005,24196050201 ",.01)
  1. ;;24196050201
  1. ;;9002226.02101,"1005,24196050201 ",.02)
  1. ;;24196050201
  1. ;;9002226.02101,"1005,24196050210 ",.01)
  1. ;;24196050210
  1. ;;9002226.02101,"1005,24196050210 ",.02)
  1. ;;24196050210
  1. ;;9002226.02101,"1005,24196050301 ",.01)
  1. ;;24196050301
  1. ;;9002226.02101,"1005,24196050301 ",.02)
  1. ;;24196050301
  1. ;;9002226.02101,"1005,24196050310 ",.01)
  1. ;;24196050310
  1. ;;9002226.02101,"1005,24196050310 ",.02)
  1. ;;24196050310
  1. ;;9002226.02101,"1005,24196050401 ",.01)
  1. ;;24196050401
  1. ;;9002226.02101,"1005,24196050401 ",.02)
  1. ;;24196050401
  1. ;;9002226.02101,"1005,24196050410 ",.01)
  1. ;;24196050410
  1. ;;9002226.02101,"1005,24196050410 ",.02)
  1. ;;24196050410
  1. ;;9002226.02101,"1005,24196050501 ",.01)
  1. ;;24196050501
  1. ;;9002226.02101,"1005,24196050501 ",.02)
  1. ;;24196050501
  1. ;;9002226.02101,"1005,24196050601 ",.01)
  1. ;;24196050601
  1. ;;9002226.02101,"1005,24196050601 ",.02)
  1. ;;24196050601
  1. ;;9002226.02101,"1005,24196050605 ",.01)
  1. ;;24196050605
  1. ;;9002226.02101,"1005,24196050605 ",.02)
  1. ;;24196050605
  1. ;;9002226.02101,"1005,24196056501 ",.01)
  1. ;;24196056501
  1. ;;9002226.02101,"1005,24196056501 ",.02)
  1. ;;24196056501
  1. ;;9002226.02101,"1005,24196056505 ",.01)
  1. ;;24196056505
  1. ;;9002226.02101,"1005,24196056505 ",.02)
  1. ;;24196056505
  1. ;;9002226.02101,"1005,24196056601 ",.01)
  1. ;;24196056601
  1. ;;9002226.02101,"1005,24196056601 ",.02)
  1. ;;24196056601
  1. ;;9002226.02101,"1005,24196056605 ",.01)
  1. ;;24196056605
  1. ;;9002226.02101,"1005,24196056605 ",.02)
  1. ;;24196056605
  1. ;;9002226.02101,"1005,24196056701 ",.01)
  1. ;;24196056701
  1. ;;9002226.02101,"1005,24196056701 ",.02)
  1. ;;24196056701
  1. ;;9002226.02101,"1005,24196056705 ",.01)
  1. ;;24196056705
  1. ;;9002226.02101,"1005,24196056705 ",.02)
  1. ;;24196056705
  1. ;;9002226.02101,"1005,24236001002 ",.01)
  1. ;;24236001002
  1. ;;9002226.02101,"1005,24236001002 ",.02)
  1. ;;24236001002
  1. ;;9002226.02101,"1005,24236005102 ",.01)
  1. ;;24236005102
  1. ;;9002226.02101,"1005,24236005102 ",.02)
  1. ;;24236005102
  1. ;;9002226.02101,"1005,24236005202 ",.01)
  1. ;;24236005202
  1. ;;9002226.02101,"1005,24236005202 ",.02)
  1. ;;24236005202
  1. ;;9002226.02101,"1005,24236007602 ",.01)
  1. ;;24236007602
  1. ;;9002226.02101,"1005,24236007602 ",.02)
  1. ;;24236007602
  1. ;;9002226.02101,"1005,24236007902 ",.01)
  1. ;;24236007902
  1. ;;9002226.02101,"1005,24236007902 ",.02)
  1. ;;24236007902
  1. ;;9002226.02101,"1005,24236008002 ",.01)
  1. ;;24236008002
  1. ;;9002226.02101,"1005,24236008002 ",.02)
  1. ;;24236008002
  1. ;;9002226.02101,"1005,24236015302 ",.01)
  1. ;;24236015302
  1. ;;9002226.02101,"1005,24236015302 ",.02)
  1. ;;24236015302
  1. ;;9002226.02101,"1005,24236015402 ",.01)
  1. ;;24236015402
  1. ;;9002226.02101,"1005,24236015402 ",.02)
  1. ;;24236015402
  1. ;;9002226.02101,"1005,24236022702 ",.01)
  1. ;;24236022702
  1. ;;9002226.02101,"1005,24236022702 ",.02)
  1. ;;24236022702
  1. ;;9002226.02101,"1005,24236031702 ",.01)
  1. ;;24236031702
  1. ;;9002226.02101,"1005,24236031702 ",.02)
  1. ;;24236031702
  1. ;;9002226.02101,"1005,24236035102 ",.01)
  1. ;;24236035102
  1. ;;9002226.02101,"1005,24236035102 ",.02)
  1. ;;24236035102
  1. ;;9002226.02101,"1005,24236037602 ",.01)
  1. ;;24236037602
  1. ;;9002226.02101,"1005,24236037602 ",.02)
  1. ;;24236037602
  1. ;;9002226.02101,"1005,24236039502 ",.01)
  1. ;;24236039502
  1. ;;9002226.02101,"1005,24236039502 ",.02)
  1. ;;24236039502
  1. ;;9002226.02101,"1005,24236041202 ",.01)
  1. ;;24236041202
  1. ;;9002226.02101,"1005,24236041202 ",.02)
  1. ;;24236041202
  1. ;;9002226.02101,"1005,24236054402 ",.01)
  1. ;;24236054402
  1. ;;9002226.02101,"1005,24236054402 ",.02)
  1. ;;24236054402
  1. ;;9002226.02101,"1005,24236060802 ",.01)
  1. ;;24236060802
  1. ;;9002226.02101,"1005,24236060802 ",.02)
  1. ;;24236060802
  1. ;;9002226.02101,"1005,24236061502 ",.01)
  1. ;;24236061502
  1. ;;9002226.02101,"1005,24236061502 ",.02)
  1. ;;24236061502
  1. ;;9002226.02101,"1005,24236072002 ",.01)
  1. ;;24236072002
  1. ;;9002226.02101,"1005,24236072002 ",.02)
  1. ;;24236072002
  1. ;;9002226.02101,"1005,24236075002 ",.01)
  1. ;;24236075002
  1. ;;9002226.02101,"1005,24236075002 ",.02)
  1. ;;24236075002
  1. ;;9002226.02101,"1005,24236086602 ",.01)
  1. ;;24236086602
  1. ;;9002226.02101,"1005,24236086602 ",.02)
  1. ;;24236086602
  1. ;;9002226.02101,"1005,24236090002 ",.01)
  1. ;;24236090002
  1. ;;9002226.02101,"1005,24236090002 ",.02)
  1. ;;24236090002
  1. ;;9002226.02101,"1005,24236090902 ",.01)
  1. ;;24236090902
  1. ;;9002226.02101,"1005,24236090902 ",.02)
  1. ;;24236090902
  1. ;;9002226.02101,"1005,24658010010 ",.01)
  1. ;;24658010010
  1. ;;9002226.02101,"1005,24658010010 ",.02)
  1. ;;24658010010
  1. ;;9002226.02101,"1005,24658010090 ",.01)
  1. ;;24658010090
  1. ;;9002226.02101,"1005,24658010090 ",.02)
  1. ;;24658010090
  1. ;;9002226.02101,"1005,24658010110 ",.01)
  1. ;;24658010110
  1. ;;9002226.02101,"1005,24658010110 ",.02)
  1. ;;24658010110
  1. ;;9002226.02101,"1005,24658010190 ",.01)
  1. ;;24658010190
  1. ;;9002226.02101,"1005,24658010190 ",.02)
  1. ;;24658010190
  1. ;;9002226.02101,"1005,24658010210 ",.01)
  1. ;;24658010210
  1. ;;9002226.02101,"1005,24658010210 ",.02)
  1. ;;24658010210
  1. ;;9002226.02101,"1005,24658010290 ",.01)
  1. ;;24658010290
  1. ;;9002226.02101,"1005,24658010290 ",.02)
  1. ;;24658010290
  1. ;;9002226.02101,"1005,24658024010 ",.01)
  1. ;;24658024010
  1. ;;9002226.02101,"1005,24658024010 ",.02)
  1. ;;24658024010
  1. ;;9002226.02101,"1005,24658024090 ",.01)
  1. ;;24658024090
  1. ;;9002226.02101,"1005,24658024090 ",.02)
  1. ;;24658024090
  1. ;;9002226.02101,"1005,24658024110 ",.01)
  1. ;;24658024110
  1. ;;9002226.02101,"1005,24658024110 ",.02)
  1. ;;24658024110
  1. ;;9002226.02101,"1005,24658024130 ",.01)
  1. ;;24658024130
  1. ;;9002226.02101,"1005,24658024130 ",.02)
  1. ;;24658024130
  1. ;;9002226.02101,"1005,24658024145 ",.01)
  1. ;;24658024145
  1. ;;9002226.02101,"1005,24658024145 ",.02)
  1. ;;24658024145
  1. ;;9002226.02101,"1005,24658024190 ",.01)
  1. ;;24658024190
  1. ;;9002226.02101,"1005,24658024190 ",.02)
  1. ;;24658024190
  1. ;;9002226.02101,"1005,24658024210 ",.01)
  1. ;;24658024210
  1. ;;9002226.02101,"1005,24658024210 ",.02)
  1. ;;24658024210
  1. ;;9002226.02101,"1005,24658024215 ",.01)
  1. ;;24658024215
  1. ;;9002226.02101,"1005,24658024215 ",.02)
  1. ;;24658024215
  1. ;;9002226.02101,"1005,24658024218 ",.01)
  1. ;;24658024218
  1. ;;9002226.02101,"1005,24658024218 ",.02)
  1. ;;24658024218
  1. ;;9002226.02101,"1005,24658024230 ",.01)
  1. ;;24658024230
  1. ;;9002226.02101,"1005,24658024230 ",.02)
  1. ;;24658024230
  1. ;;9002226.02101,"1005,24658024245 ",.01)
  1. ;;24658024245
  1. ;;9002226.02101,"1005,24658024245 ",.02)
  1. ;;24658024245
  1. ;;9002226.02101,"1005,24658024290 ",.01)
  1. ;;24658024290
  1. ;;9002226.02101,"1005,24658024290 ",.02)
  1. ;;24658024290
  1. ;;9002226.02101,"1005,24658024310 ",.01)
  1. ;;24658024310
  1. ;;9002226.02101,"1005,24658024310 ",.02)
  1. ;;24658024310
  1. ;;9002226.02101,"1005,24658024315 ",.01)
  1. ;;24658024315
  1. ;;9002226.02101,"1005,24658024315 ",.02)
  1. ;;24658024315
  1. ;;9002226.02101,"1005,24658024318 ",.01)
  1. ;;24658024318
  1. ;;9002226.02101,"1005,24658024318 ",.02)
  1. ;;24658024318
  1. ;;9002226.02101,"1005,24658024330 ",.01)
  1. ;;24658024330
  1. ;;9002226.02101,"1005,24658024330 ",.02)
  1. ;;24658024330
  1. ;;9002226.02101,"1005,24658024345 ",.01)
  1. ;;24658024345
  1. ;;9002226.02101,"1005,24658024345 ",.02)
  1. ;;24658024345
  1. ;;9002226.02101,"1005,24658024390 ",.01)
  1. ;;24658024390
  1. ;;9002226.02101,"1005,24658024390 ",.02)
  1. ;;24658024390
  1. ;;9002226.02101,"1005,24658024401 ",.01)
  1. ;;24658024401
  1. ;;9002226.02101,"1005,24658024401 ",.02)
  1. ;;24658024401
  1. ;;9002226.02101,"1005,24658024410 ",.01)
  1. ;;24658024410
  1. ;;9002226.02101,"1005,24658024410 ",.02)
  1. ;;24658024410
  1. ;;9002226.02101,"1005,24658024510 ",.01)
  1. ;;24658024510
  1. ;;9002226.02101,"1005,24658024510 ",.02)
  1. ;;24658024510
  1. ;;9002226.02101,"1005,24658024515 ",.01)
  1. ;;24658024515
  1. ;;9002226.02101,"1005,24658024515 ",.02)
  1. ;;24658024515