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

BGPM5ALZ.m

Go to the documentation of this file.
BGPM5ALZ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"900,58016025367 ",.01)
 ;;58016025367
 ;;9002226.02101,"900,58016025367 ",.02)
 ;;58016025367
 ;;9002226.02101,"900,58016025369 ",.01)
 ;;58016025369
 ;;9002226.02101,"900,58016025369 ",.02)
 ;;58016025369
 ;;9002226.02101,"900,58016025370 ",.01)
 ;;58016025370
 ;;9002226.02101,"900,58016025370 ",.02)
 ;;58016025370
 ;;9002226.02101,"900,58016025371 ",.01)
 ;;58016025371
 ;;9002226.02101,"900,58016025371 ",.02)
 ;;58016025371
 ;;9002226.02101,"900,58016025372 ",.01)
 ;;58016025372
 ;;9002226.02101,"900,58016025372 ",.02)
 ;;58016025372
 ;;9002226.02101,"900,58016025373 ",.01)
 ;;58016025373
 ;;9002226.02101,"900,58016025373 ",.02)
 ;;58016025373
 ;;9002226.02101,"900,58016025375 ",.01)
 ;;58016025375
 ;;9002226.02101,"900,58016025375 ",.02)
 ;;58016025375
 ;;9002226.02101,"900,58016025376 ",.01)
 ;;58016025376
 ;;9002226.02101,"900,58016025376 ",.02)
 ;;58016025376
 ;;9002226.02101,"900,58016025377 ",.01)
 ;;58016025377
 ;;9002226.02101,"900,58016025377 ",.02)
 ;;58016025377
 ;;9002226.02101,"900,58016025379 ",.01)
 ;;58016025379
 ;;9002226.02101,"900,58016025379 ",.02)
 ;;58016025379
 ;;9002226.02101,"900,58016025380 ",.01)
 ;;58016025380
 ;;9002226.02101,"900,58016025380 ",.02)
 ;;58016025380
 ;;9002226.02101,"900,58016025381 ",.01)
 ;;58016025381
 ;;9002226.02101,"900,58016025381 ",.02)
 ;;58016025381
 ;;9002226.02101,"900,58016025382 ",.01)
 ;;58016025382
 ;;9002226.02101,"900,58016025382 ",.02)
 ;;58016025382
 ;;9002226.02101,"900,58016025383 ",.01)
 ;;58016025383
 ;;9002226.02101,"900,58016025383 ",.02)
 ;;58016025383
 ;;9002226.02101,"900,58016025384 ",.01)
 ;;58016025384
 ;;9002226.02101,"900,58016025384 ",.02)
 ;;58016025384
 ;;9002226.02101,"900,58016025387 ",.01)
 ;;58016025387
 ;;9002226.02101,"900,58016025387 ",.02)
 ;;58016025387
 ;;9002226.02101,"900,58016025389 ",.01)
 ;;58016025389
 ;;9002226.02101,"900,58016025389 ",.02)
 ;;58016025389
 ;;9002226.02101,"900,58016025390 ",.01)
 ;;58016025390
 ;;9002226.02101,"900,58016025390 ",.02)
 ;;58016025390
 ;;9002226.02101,"900,58016025391 ",.01)
 ;;58016025391
 ;;9002226.02101,"900,58016025391 ",.02)
 ;;58016025391
 ;;9002226.02101,"900,58016025392 ",.01)
 ;;58016025392
 ;;9002226.02101,"900,58016025392 ",.02)
 ;;58016025392
 ;;9002226.02101,"900,58016025393 ",.01)
 ;;58016025393
 ;;9002226.02101,"900,58016025393 ",.02)
 ;;58016025393
 ;;9002226.02101,"900,58016025396 ",.01)
 ;;58016025396
 ;;9002226.02101,"900,58016025396 ",.02)
 ;;58016025396
 ;;9002226.02101,"900,58016025397 ",.01)
 ;;58016025397
 ;;9002226.02101,"900,58016025397 ",.02)
 ;;58016025397
 ;;9002226.02101,"900,58016025398 ",.01)
 ;;58016025398
 ;;9002226.02101,"900,58016025398 ",.02)
 ;;58016025398
 ;;9002226.02101,"900,58016025399 ",.01)
 ;;58016025399
 ;;9002226.02101,"900,58016025399 ",.02)
 ;;58016025399
 ;;9002226.02101,"900,58016036400 ",.01)
 ;;58016036400
 ;;9002226.02101,"900,58016036400 ",.02)
 ;;58016036400
 ;;9002226.02101,"900,58016036430 ",.01)
 ;;58016036430
 ;;9002226.02101,"900,58016036430 ",.02)
 ;;58016036430
 ;;9002226.02101,"900,58016036460 ",.01)
 ;;58016036460
 ;;9002226.02101,"900,58016036460 ",.02)
 ;;58016036460
 ;;9002226.02101,"900,58016036490 ",.01)
 ;;58016036490
 ;;9002226.02101,"900,58016036490 ",.02)
 ;;58016036490
 ;;9002226.02101,"900,58016036500 ",.01)
 ;;58016036500
 ;;9002226.02101,"900,58016036500 ",.02)
 ;;58016036500
 ;;9002226.02101,"900,58016036530 ",.01)
 ;;58016036530
 ;;9002226.02101,"900,58016036530 ",.02)
 ;;58016036530
 ;;9002226.02101,"900,58016036560 ",.01)
 ;;58016036560
 ;;9002226.02101,"900,58016036560 ",.02)
 ;;58016036560
 ;;9002226.02101,"900,58016036590 ",.01)
 ;;58016036590
 ;;9002226.02101,"900,58016036590 ",.02)
 ;;58016036590
 ;;9002226.02101,"900,58016038500 ",.01)
 ;;58016038500
 ;;9002226.02101,"900,58016038500 ",.02)
 ;;58016038500
 ;;9002226.02101,"900,58016038530 ",.01)
 ;;58016038530
 ;;9002226.02101,"900,58016038530 ",.02)
 ;;58016038530
 ;;9002226.02101,"900,58016038560 ",.01)
 ;;58016038560
 ;;9002226.02101,"900,58016038560 ",.02)
 ;;58016038560
 ;;9002226.02101,"900,58016038590 ",.01)
 ;;58016038590
 ;;9002226.02101,"900,58016038590 ",.02)
 ;;58016038590
 ;;9002226.02101,"900,58016054000 ",.01)
 ;;58016054000
 ;;9002226.02101,"900,58016054000 ",.02)
 ;;58016054000
 ;;9002226.02101,"900,58016054001 ",.01)
 ;;58016054001
 ;;9002226.02101,"900,58016054001 ",.02)
 ;;58016054001
 ;;9002226.02101,"900,58016054002 ",.01)
 ;;58016054002
 ;;9002226.02101,"900,58016054002 ",.02)
 ;;58016054002
 ;;9002226.02101,"900,58016054003 ",.01)
 ;;58016054003
 ;;9002226.02101,"900,58016054003 ",.02)
 ;;58016054003
 ;;9002226.02101,"900,58016054004 ",.01)
 ;;58016054004
 ;;9002226.02101,"900,58016054004 ",.02)
 ;;58016054004
 ;;9002226.02101,"900,58016054005 ",.01)
 ;;58016054005
 ;;9002226.02101,"900,58016054005 ",.02)
 ;;58016054005
 ;;9002226.02101,"900,58016054006 ",.01)
 ;;58016054006
 ;;9002226.02101,"900,58016054006 ",.02)
 ;;58016054006
 ;;9002226.02101,"900,58016054007 ",.01)
 ;;58016054007
 ;;9002226.02101,"900,58016054007 ",.02)
 ;;58016054007
 ;;9002226.02101,"900,58016054008 ",.01)
 ;;58016054008
 ;;9002226.02101,"900,58016054008 ",.02)
 ;;58016054008
 ;;9002226.02101,"900,58016054009 ",.01)
 ;;58016054009
 ;;9002226.02101,"900,58016054009 ",.02)
 ;;58016054009
 ;;9002226.02101,"900,58016054010 ",.01)
 ;;58016054010
 ;;9002226.02101,"900,58016054010 ",.02)
 ;;58016054010
 ;;9002226.02101,"900,58016054012 ",.01)
 ;;58016054012
 ;;9002226.02101,"900,58016054012 ",.02)
 ;;58016054012
 ;;9002226.02101,"900,58016054014 ",.01)
 ;;58016054014
 ;;9002226.02101,"900,58016054014 ",.02)
 ;;58016054014
 ;;9002226.02101,"900,58016054016 ",.01)
 ;;58016054016
 ;;9002226.02101,"900,58016054016 ",.02)
 ;;58016054016
 ;;9002226.02101,"900,58016054018 ",.01)
 ;;58016054018
 ;;9002226.02101,"900,58016054018 ",.02)
 ;;58016054018
 ;;9002226.02101,"900,58016054020 ",.01)
 ;;58016054020
 ;;9002226.02101,"900,58016054020 ",.02)
 ;;58016054020
 ;;9002226.02101,"900,58016054021 ",.01)
 ;;58016054021
 ;;9002226.02101,"900,58016054021 ",.02)
 ;;58016054021
 ;;9002226.02101,"900,58016054024 ",.01)
 ;;58016054024
 ;;9002226.02101,"900,58016054024 ",.02)
 ;;58016054024
 ;;9002226.02101,"900,58016054025 ",.01)
 ;;58016054025
 ;;9002226.02101,"900,58016054025 ",.02)
 ;;58016054025
 ;;9002226.02101,"900,58016054026 ",.01)
 ;;58016054026
 ;;9002226.02101,"900,58016054026 ",.02)
 ;;58016054026
 ;;9002226.02101,"900,58016054027 ",.01)
 ;;58016054027
 ;;9002226.02101,"900,58016054027 ",.02)
 ;;58016054027
 ;;9002226.02101,"900,58016054028 ",.01)
 ;;58016054028
 ;;9002226.02101,"900,58016054028 ",.02)
 ;;58016054028
 ;;9002226.02101,"900,58016054030 ",.01)
 ;;58016054030
 ;;9002226.02101,"900,58016054030 ",.02)
 ;;58016054030
 ;;9002226.02101,"900,58016054032 ",.01)
 ;;58016054032
 ;;9002226.02101,"900,58016054032 ",.02)
 ;;58016054032
 ;;9002226.02101,"900,58016054035 ",.01)
 ;;58016054035
 ;;9002226.02101,"900,58016054035 ",.02)
 ;;58016054035
 ;;9002226.02101,"900,58016054036 ",.01)
 ;;58016054036
 ;;9002226.02101,"900,58016054036 ",.02)
 ;;58016054036
 ;;9002226.02101,"900,58016054040 ",.01)
 ;;58016054040
 ;;9002226.02101,"900,58016054040 ",.02)
 ;;58016054040
 ;;9002226.02101,"900,58016054042 ",.01)
 ;;58016054042
 ;;9002226.02101,"900,58016054042 ",.02)
 ;;58016054042
 ;;9002226.02101,"900,58016054044 ",.01)
 ;;58016054044
 ;;9002226.02101,"900,58016054044 ",.02)
 ;;58016054044
 ;;9002226.02101,"900,58016054045 ",.01)
 ;;58016054045
 ;;9002226.02101,"900,58016054045 ",.02)
 ;;58016054045
 ;;9002226.02101,"900,58016054048 ",.01)
 ;;58016054048
 ;;9002226.02101,"900,58016054048 ",.02)
 ;;58016054048
 ;;9002226.02101,"900,58016054050 ",.01)
 ;;58016054050
 ;;9002226.02101,"900,58016054050 ",.02)
 ;;58016054050
 ;;9002226.02101,"900,58016054056 ",.01)
 ;;58016054056
 ;;9002226.02101,"900,58016054056 ",.02)
 ;;58016054056
 ;;9002226.02101,"900,58016054060 ",.01)
 ;;58016054060
 ;;9002226.02101,"900,58016054060 ",.02)
 ;;58016054060
 ;;9002226.02101,"900,58016054067 ",.01)
 ;;58016054067
 ;;9002226.02101,"900,58016054067 ",.02)
 ;;58016054067
 ;;9002226.02101,"900,58016054069 ",.01)
 ;;58016054069
 ;;9002226.02101,"900,58016054069 ",.02)
 ;;58016054069
 ;;9002226.02101,"900,58016054070 ",.01)
 ;;58016054070
 ;;9002226.02101,"900,58016054070 ",.02)
 ;;58016054070
 ;;9002226.02101,"900,58016054071 ",.01)
 ;;58016054071
 ;;9002226.02101,"900,58016054071 ",.02)
 ;;58016054071
 ;;9002226.02101,"900,58016054072 ",.01)
 ;;58016054072
 ;;9002226.02101,"900,58016054072 ",.02)
 ;;58016054072
 ;;9002226.02101,"900,58016054073 ",.01)
 ;;58016054073
 ;;9002226.02101,"900,58016054073 ",.02)
 ;;58016054073
 ;;9002226.02101,"900,58016054075 ",.01)
 ;;58016054075
 ;;9002226.02101,"900,58016054075 ",.02)
 ;;58016054075
 ;;9002226.02101,"900,58016054076 ",.01)
 ;;58016054076
 ;;9002226.02101,"900,58016054076 ",.02)
 ;;58016054076
 ;;9002226.02101,"900,58016054077 ",.01)
 ;;58016054077
 ;;9002226.02101,"900,58016054077 ",.02)
 ;;58016054077
 ;;9002226.02101,"900,58016054079 ",.01)
 ;;58016054079
 ;;9002226.02101,"900,58016054079 ",.02)
 ;;58016054079
 ;;9002226.02101,"900,58016054080 ",.01)
 ;;58016054080
 ;;9002226.02101,"900,58016054080 ",.02)
 ;;58016054080
 ;;9002226.02101,"900,58016054081 ",.01)
 ;;58016054081
 ;;9002226.02101,"900,58016054081 ",.02)
 ;;58016054081
 ;;9002226.02101,"900,58016054082 ",.01)
 ;;58016054082
 ;;9002226.02101,"900,58016054082 ",.02)
 ;;58016054082
 ;;9002226.02101,"900,58016054083 ",.01)
 ;;58016054083
 ;;9002226.02101,"900,58016054083 ",.02)
 ;;58016054083
 ;;9002226.02101,"900,58016054084 ",.01)
 ;;58016054084
 ;;9002226.02101,"900,58016054084 ",.02)
 ;;58016054084
 ;;9002226.02101,"900,58016054087 ",.01)
 ;;58016054087
 ;;9002226.02101,"900,58016054087 ",.02)
 ;;58016054087
 ;;9002226.02101,"900,58016054089 ",.01)
 ;;58016054089
 ;;9002226.02101,"900,58016054089 ",.02)
 ;;58016054089
 ;;9002226.02101,"900,58016054090 ",.01)
 ;;58016054090
 ;;9002226.02101,"900,58016054090 ",.02)
 ;;58016054090
 ;;9002226.02101,"900,58016054091 ",.01)
 ;;58016054091
 ;;9002226.02101,"900,58016054091 ",.02)
 ;;58016054091
 ;;9002226.02101,"900,58016054092 ",.01)
 ;;58016054092
 ;;9002226.02101,"900,58016054092 ",.02)
 ;;58016054092
 ;;9002226.02101,"900,58016054093 ",.01)
 ;;58016054093
 ;;9002226.02101,"900,58016054093 ",.02)
 ;;58016054093
 ;;9002226.02101,"900,58016054096 ",.01)
 ;;58016054096
 ;;9002226.02101,"900,58016054096 ",.02)
 ;;58016054096
 ;;9002226.02101,"900,58016054097 ",.01)
 ;;58016054097
 ;;9002226.02101,"900,58016054097 ",.02)
 ;;58016054097
 ;;9002226.02101,"900,58016054098 ",.01)
 ;;58016054098
 ;;9002226.02101,"900,58016054098 ",.02)
 ;;58016054098
 ;;9002226.02101,"900,58016054099 ",.01)
 ;;58016054099
 ;;9002226.02101,"900,58016054099 ",.02)
 ;;58016054099
 ;;9002226.02101,"900,58016057200 ",.01)
 ;;58016057200
 ;;9002226.02101,"900,58016057200 ",.02)
 ;;58016057200
 ;;9002226.02101,"900,58016057230 ",.01)
 ;;58016057230
 ;;9002226.02101,"900,58016057230 ",.02)
 ;;58016057230
 ;;9002226.02101,"900,58016057260 ",.01)
 ;;58016057260
 ;;9002226.02101,"900,58016057260 ",.02)
 ;;58016057260
 ;;9002226.02101,"900,58016057290 ",.01)
 ;;58016057290
 ;;9002226.02101,"900,58016057290 ",.02)
 ;;58016057290
 ;;9002226.02101,"900,58016086900 ",.01)
 ;;58016086900
 ;;9002226.02101,"900,58016086900 ",.02)
 ;;58016086900
 ;;9002226.02101,"900,58016086901 ",.01)
 ;;58016086901
 ;;9002226.02101,"900,58016086901 ",.02)
 ;;58016086901