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

BGPM5AVB.m

Go to the documentation of this file.
  1. BGPM5AVB ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,54569568800 ",.01)
  1. ;;54569568800
  1. ;;9002226.02101,"1033,54569568800 ",.02)
  1. ;;54569568800
  1. ;;9002226.02101,"1033,54569568900 ",.01)
  1. ;;54569568900
  1. ;;9002226.02101,"1033,54569568900 ",.02)
  1. ;;54569568900
  1. ;;9002226.02101,"1033,54569569000 ",.01)
  1. ;;54569569000
  1. ;;9002226.02101,"1033,54569569000 ",.02)
  1. ;;54569569000
  1. ;;9002226.02101,"1033,54569569800 ",.01)
  1. ;;54569569800
  1. ;;9002226.02101,"1033,54569569800 ",.02)
  1. ;;54569569800
  1. ;;9002226.02101,"1033,54569569801 ",.01)
  1. ;;54569569801
  1. ;;9002226.02101,"1033,54569569801 ",.02)
  1. ;;54569569801
  1. ;;9002226.02101,"1033,54569569802 ",.01)
  1. ;;54569569802
  1. ;;9002226.02101,"1033,54569569802 ",.02)
  1. ;;54569569802
  1. ;;9002226.02101,"1033,54569572000 ",.01)
  1. ;;54569572000
  1. ;;9002226.02101,"1033,54569572000 ",.02)
  1. ;;54569572000
  1. ;;9002226.02101,"1033,54569572100 ",.01)
  1. ;;54569572100
  1. ;;9002226.02101,"1033,54569572100 ",.02)
  1. ;;54569572100
  1. ;;9002226.02101,"1033,54569572200 ",.01)
  1. ;;54569572200
  1. ;;9002226.02101,"1033,54569572200 ",.02)
  1. ;;54569572200
  1. ;;9002226.02101,"1033,54569572300 ",.01)
  1. ;;54569572300
  1. ;;9002226.02101,"1033,54569572300 ",.02)
  1. ;;54569572300
  1. ;;9002226.02101,"1033,54569572400 ",.01)
  1. ;;54569572400
  1. ;;9002226.02101,"1033,54569572400 ",.02)
  1. ;;54569572400
  1. ;;9002226.02101,"1033,54569572500 ",.01)
  1. ;;54569572500
  1. ;;9002226.02101,"1033,54569572500 ",.02)
  1. ;;54569572500
  1. ;;9002226.02101,"1033,54569572700 ",.01)
  1. ;;54569572700
  1. ;;9002226.02101,"1033,54569572700 ",.02)
  1. ;;54569572700
  1. ;;9002226.02101,"1033,54569575400 ",.01)
  1. ;;54569575400
  1. ;;9002226.02101,"1033,54569575400 ",.02)
  1. ;;54569575400
  1. ;;9002226.02101,"1033,54569575500 ",.01)
  1. ;;54569575500
  1. ;;9002226.02101,"1033,54569575500 ",.02)
  1. ;;54569575500
  1. ;;9002226.02101,"1033,54569577400 ",.01)
  1. ;;54569577400
  1. ;;9002226.02101,"1033,54569577400 ",.02)
  1. ;;54569577400
  1. ;;9002226.02101,"1033,54569577401 ",.01)
  1. ;;54569577401
  1. ;;9002226.02101,"1033,54569577401 ",.02)
  1. ;;54569577401
  1. ;;9002226.02101,"1033,54569577402 ",.01)
  1. ;;54569577402
  1. ;;9002226.02101,"1033,54569577402 ",.02)
  1. ;;54569577402
  1. ;;9002226.02101,"1033,54569577403 ",.01)
  1. ;;54569577403
  1. ;;9002226.02101,"1033,54569577403 ",.02)
  1. ;;54569577403
  1. ;;9002226.02101,"1033,54569578400 ",.01)
  1. ;;54569578400
  1. ;;9002226.02101,"1033,54569578400 ",.02)
  1. ;;54569578400
  1. ;;9002226.02101,"1033,54569578500 ",.01)
  1. ;;54569578500
  1. ;;9002226.02101,"1033,54569578500 ",.02)
  1. ;;54569578500
  1. ;;9002226.02101,"1033,54569580600 ",.01)
  1. ;;54569580600
  1. ;;9002226.02101,"1033,54569580600 ",.02)
  1. ;;54569580600
  1. ;;9002226.02101,"1033,54569580700 ",.01)
  1. ;;54569580700
  1. ;;9002226.02101,"1033,54569580700 ",.02)
  1. ;;54569580700
  1. ;;9002226.02101,"1033,54569580800 ",.01)
  1. ;;54569580800
  1. ;;9002226.02101,"1033,54569580800 ",.02)
  1. ;;54569580800
  1. ;;9002226.02101,"1033,54569580900 ",.01)
  1. ;;54569580900
  1. ;;9002226.02101,"1033,54569580900 ",.02)
  1. ;;54569580900
  1. ;;9002226.02101,"1033,54569581000 ",.01)
  1. ;;54569581000
  1. ;;9002226.02101,"1033,54569581000 ",.02)
  1. ;;54569581000
  1. ;;9002226.02101,"1033,54569581300 ",.01)
  1. ;;54569581300
  1. ;;9002226.02101,"1033,54569581300 ",.02)
  1. ;;54569581300
  1. ;;9002226.02101,"1033,54569582900 ",.01)
  1. ;;54569582900
  1. ;;9002226.02101,"1033,54569582900 ",.02)
  1. ;;54569582900
  1. ;;9002226.02101,"1033,54569583100 ",.01)
  1. ;;54569583100
  1. ;;9002226.02101,"1033,54569583100 ",.02)
  1. ;;54569583100
  1. ;;9002226.02101,"1033,54569589900 ",.01)
  1. ;;54569589900
  1. ;;9002226.02101,"1033,54569589900 ",.02)
  1. ;;54569589900
  1. ;;9002226.02101,"1033,54569591700 ",.01)
  1. ;;54569591700
  1. ;;9002226.02101,"1033,54569591700 ",.02)
  1. ;;54569591700
  1. ;;9002226.02101,"1033,54569591800 ",.01)
  1. ;;54569591800
  1. ;;9002226.02101,"1033,54569591800 ",.02)
  1. ;;54569591800
  1. ;;9002226.02101,"1033,54569591900 ",.01)
  1. ;;54569591900
  1. ;;9002226.02101,"1033,54569591900 ",.02)
  1. ;;54569591900
  1. ;;9002226.02101,"1033,54569592000 ",.01)
  1. ;;54569592000
  1. ;;9002226.02101,"1033,54569592000 ",.02)
  1. ;;54569592000
  1. ;;9002226.02101,"1033,54569592100 ",.01)
  1. ;;54569592100
  1. ;;9002226.02101,"1033,54569592100 ",.02)
  1. ;;54569592100
  1. ;;9002226.02101,"1033,54569592101 ",.01)
  1. ;;54569592101
  1. ;;9002226.02101,"1033,54569592101 ",.02)
  1. ;;54569592101
  1. ;;9002226.02101,"1033,54569603700 ",.01)
  1. ;;54569603700
  1. ;;9002226.02101,"1033,54569603700 ",.02)
  1. ;;54569603700
  1. ;;9002226.02101,"1033,54569604300 ",.01)
  1. ;;54569604300
  1. ;;9002226.02101,"1033,54569604300 ",.02)
  1. ;;54569604300
  1. ;;9002226.02101,"1033,54569608300 ",.01)
  1. ;;54569608300
  1. ;;9002226.02101,"1033,54569608300 ",.02)
  1. ;;54569608300
  1. ;;9002226.02101,"1033,54569608400 ",.01)
  1. ;;54569608400
  1. ;;9002226.02101,"1033,54569608400 ",.02)
  1. ;;54569608400
  1. ;;9002226.02101,"1033,54569619500 ",.01)
  1. ;;54569619500
  1. ;;9002226.02101,"1033,54569619500 ",.02)
  1. ;;54569619500
  1. ;;9002226.02101,"1033,54569800400 ",.01)
  1. ;;54569800400
  1. ;;9002226.02101,"1033,54569800400 ",.02)
  1. ;;54569800400
  1. ;;9002226.02101,"1033,54807025120 ",.01)
  1. ;;54807025120
  1. ;;9002226.02101,"1033,54807025120 ",.02)
  1. ;;54807025120
  1. ;;9002226.02101,"1033,54868001801 ",.01)
  1. ;;54868001801
  1. ;;9002226.02101,"1033,54868001801 ",.02)
  1. ;;54868001801
  1. ;;9002226.02101,"1033,54868001803 ",.01)
  1. ;;54868001803
  1. ;;9002226.02101,"1033,54868001803 ",.02)
  1. ;;54868001803
  1. ;;9002226.02101,"1033,54868001804 ",.01)
  1. ;;54868001804
  1. ;;9002226.02101,"1033,54868001804 ",.02)
  1. ;;54868001804
  1. ;;9002226.02101,"1033,54868001805 ",.01)
  1. ;;54868001805
  1. ;;9002226.02101,"1033,54868001805 ",.02)
  1. ;;54868001805
  1. ;;9002226.02101,"1033,54868001806 ",.01)
  1. ;;54868001806
  1. ;;9002226.02101,"1033,54868001806 ",.02)
  1. ;;54868001806
  1. ;;9002226.02101,"1033,54868001807 ",.01)
  1. ;;54868001807
  1. ;;9002226.02101,"1033,54868001807 ",.02)
  1. ;;54868001807
  1. ;;9002226.02101,"1033,54868001809 ",.01)
  1. ;;54868001809
  1. ;;9002226.02101,"1033,54868001809 ",.02)
  1. ;;54868001809
  1. ;;9002226.02101,"1033,54868002100 ",.01)
  1. ;;54868002100
  1. ;;9002226.02101,"1033,54868002100 ",.02)
  1. ;;54868002100
  1. ;;9002226.02101,"1033,54868002101 ",.01)
  1. ;;54868002101
  1. ;;9002226.02101,"1033,54868002101 ",.02)
  1. ;;54868002101
  1. ;;9002226.02101,"1033,54868002102 ",.01)
  1. ;;54868002102
  1. ;;9002226.02101,"1033,54868002102 ",.02)
  1. ;;54868002102
  1. ;;9002226.02101,"1033,54868002104 ",.01)
  1. ;;54868002104
  1. ;;9002226.02101,"1033,54868002104 ",.02)
  1. ;;54868002104
  1. ;;9002226.02101,"1033,54868002105 ",.01)
  1. ;;54868002105
  1. ;;9002226.02101,"1033,54868002105 ",.02)
  1. ;;54868002105
  1. ;;9002226.02101,"1033,54868002106 ",.01)
  1. ;;54868002106
  1. ;;9002226.02101,"1033,54868002106 ",.02)
  1. ;;54868002106
  1. ;;9002226.02101,"1033,54868002107 ",.01)
  1. ;;54868002107
  1. ;;9002226.02101,"1033,54868002107 ",.02)
  1. ;;54868002107
  1. ;;9002226.02101,"1033,54868002108 ",.01)
  1. ;;54868002108
  1. ;;9002226.02101,"1033,54868002108 ",.02)
  1. ;;54868002108
  1. ;;9002226.02101,"1033,54868002109 ",.01)
  1. ;;54868002109
  1. ;;9002226.02101,"1033,54868002109 ",.02)
  1. ;;54868002109
  1. ;;9002226.02101,"1033,54868002300 ",.01)
  1. ;;54868002300
  1. ;;9002226.02101,"1033,54868002300 ",.02)
  1. ;;54868002300
  1. ;;9002226.02101,"1033,54868002301 ",.01)
  1. ;;54868002301
  1. ;;9002226.02101,"1033,54868002301 ",.02)
  1. ;;54868002301
  1. ;;9002226.02101,"1033,54868002302 ",.01)
  1. ;;54868002302
  1. ;;9002226.02101,"1033,54868002302 ",.02)
  1. ;;54868002302
  1. ;;9002226.02101,"1033,54868002303 ",.01)
  1. ;;54868002303
  1. ;;9002226.02101,"1033,54868002303 ",.02)
  1. ;;54868002303
  1. ;;9002226.02101,"1033,54868002304 ",.01)
  1. ;;54868002304
  1. ;;9002226.02101,"1033,54868002304 ",.02)
  1. ;;54868002304
  1. ;;9002226.02101,"1033,54868002305 ",.01)
  1. ;;54868002305
  1. ;;9002226.02101,"1033,54868002305 ",.02)
  1. ;;54868002305
  1. ;;9002226.02101,"1033,54868002306 ",.01)
  1. ;;54868002306
  1. ;;9002226.02101,"1033,54868002306 ",.02)
  1. ;;54868002306
  1. ;;9002226.02101,"1033,54868002307 ",.01)
  1. ;;54868002307
  1. ;;9002226.02101,"1033,54868002307 ",.02)
  1. ;;54868002307
  1. ;;9002226.02101,"1033,54868002308 ",.01)
  1. ;;54868002308
  1. ;;9002226.02101,"1033,54868002308 ",.02)
  1. ;;54868002308
  1. ;;9002226.02101,"1033,54868002309 ",.01)
  1. ;;54868002309
  1. ;;9002226.02101,"1033,54868002309 ",.02)
  1. ;;54868002309
  1. ;;9002226.02101,"1033,54868002314 ",.01)
  1. ;;54868002314
  1. ;;9002226.02101,"1033,54868002314 ",.02)
  1. ;;54868002314
  1. ;;9002226.02101,"1033,54868002401 ",.01)
  1. ;;54868002401
  1. ;;9002226.02101,"1033,54868002401 ",.02)
  1. ;;54868002401
  1. ;;9002226.02101,"1033,54868002403 ",.01)
  1. ;;54868002403
  1. ;;9002226.02101,"1033,54868002403 ",.02)
  1. ;;54868002403
  1. ;;9002226.02101,"1033,54868002404 ",.01)
  1. ;;54868002404
  1. ;;9002226.02101,"1033,54868002404 ",.02)
  1. ;;54868002404
  1. ;;9002226.02101,"1033,54868002405 ",.01)
  1. ;;54868002405
  1. ;;9002226.02101,"1033,54868002405 ",.02)
  1. ;;54868002405
  1. ;;9002226.02101,"1033,54868002407 ",.01)
  1. ;;54868002407
  1. ;;9002226.02101,"1033,54868002407 ",.02)
  1. ;;54868002407
  1. ;;9002226.02101,"1033,54868002408 ",.01)
  1. ;;54868002408
  1. ;;9002226.02101,"1033,54868002408 ",.02)
  1. ;;54868002408
  1. ;;9002226.02101,"1033,54868002501 ",.01)
  1. ;;54868002501
  1. ;;9002226.02101,"1033,54868002501 ",.02)
  1. ;;54868002501
  1. ;;9002226.02101,"1033,54868002503 ",.01)
  1. ;;54868002503
  1. ;;9002226.02101,"1033,54868002503 ",.02)
  1. ;;54868002503
  1. ;;9002226.02101,"1033,54868002504 ",.01)
  1. ;;54868002504
  1. ;;9002226.02101,"1033,54868002504 ",.02)
  1. ;;54868002504
  1. ;;9002226.02101,"1033,54868002505 ",.01)
  1. ;;54868002505
  1. ;;9002226.02101,"1033,54868002505 ",.02)
  1. ;;54868002505
  1. ;;9002226.02101,"1033,54868002507 ",.01)
  1. ;;54868002507
  1. ;;9002226.02101,"1033,54868002507 ",.02)
  1. ;;54868002507
  1. ;;9002226.02101,"1033,54868002509 ",.01)
  1. ;;54868002509
  1. ;;9002226.02101,"1033,54868002509 ",.02)
  1. ;;54868002509
  1. ;;9002226.02101,"1033,54868015300 ",.01)
  1. ;;54868015300
  1. ;;9002226.02101,"1033,54868015300 ",.02)
  1. ;;54868015300
  1. ;;9002226.02101,"1033,54868015301 ",.01)
  1. ;;54868015301
  1. ;;9002226.02101,"1033,54868015301 ",.02)
  1. ;;54868015301
  1. ;;9002226.02101,"1033,54868015302 ",.01)
  1. ;;54868015302
  1. ;;9002226.02101,"1033,54868015302 ",.02)
  1. ;;54868015302
  1. ;;9002226.02101,"1033,54868015303 ",.01)
  1. ;;54868015303
  1. ;;9002226.02101,"1033,54868015303 ",.02)
  1. ;;54868015303
  1. ;;9002226.02101,"1033,54868015304 ",.01)
  1. ;;54868015304
  1. ;;9002226.02101,"1033,54868015304 ",.02)
  1. ;;54868015304
  1. ;;9002226.02101,"1033,54868015305 ",.01)
  1. ;;54868015305
  1. ;;9002226.02101,"1033,54868015305 ",.02)
  1. ;;54868015305
  1. ;;9002226.02101,"1033,54868015306 ",.01)
  1. ;;54868015306
  1. ;;9002226.02101,"1033,54868015306 ",.02)
  1. ;;54868015306
  1. ;;9002226.02101,"1033,54868015307 ",.01)
  1. ;;54868015307
  1. ;;9002226.02101,"1033,54868015307 ",.02)
  1. ;;54868015307
  1. ;;9002226.02101,"1033,54868015308 ",.01)
  1. ;;54868015308
  1. ;;9002226.02101,"1033,54868015308 ",.02)
  1. ;;54868015308
  1. ;;9002226.02101,"1033,54868015309 ",.01)
  1. ;;54868015309
  1. ;;9002226.02101,"1033,54868015309 ",.02)
  1. ;;54868015309
  1. ;;9002226.02101,"1033,54868015400 ",.01)
  1. ;;54868015400
  1. ;;9002226.02101,"1033,54868015400 ",.02)
  1. ;;54868015400
  1. ;;9002226.02101,"1033,54868015401 ",.01)
  1. ;;54868015401
  1. ;;9002226.02101,"1033,54868015401 ",.02)
  1. ;;54868015401
  1. ;;9002226.02101,"1033,54868015402 ",.01)
  1. ;;54868015402
  1. ;;9002226.02101,"1033,54868015402 ",.02)
  1. ;;54868015402
  1. ;;9002226.02101,"1033,54868015403 ",.01)
  1. ;;54868015403
  1. ;;9002226.02101,"1033,54868015403 ",.02)
  1. ;;54868015403
  1. ;;9002226.02101,"1033,54868015404 ",.01)
  1. ;;54868015404
  1. ;;9002226.02101,"1033,54868015404 ",.02)
  1. ;;54868015404
  1. ;;9002226.02101,"1033,54868015405 ",.01)
  1. ;;54868015405
  1. ;;9002226.02101,"1033,54868015405 ",.02)
  1. ;;54868015405
  1. ;;9002226.02101,"1033,54868015406 ",.01)
  1. ;;54868015406
  1. ;;9002226.02101,"1033,54868015406 ",.02)
  1. ;;54868015406
  1. ;;9002226.02101,"1033,54868015407 ",.01)
  1. ;;54868015407
  1. ;;9002226.02101,"1033,54868015407 ",.02)
  1. ;;54868015407
  1. ;;9002226.02101,"1033,54868015408 ",.01)
  1. ;;54868015408