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

BGPM5ALV.m

Go to the documentation of this file.
  1. BGPM5ALV ;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,"900,54868189001 ",.01)
  1. ;;54868189001
  1. ;;9002226.02101,"900,54868189001 ",.02)
  1. ;;54868189001
  1. ;;9002226.02101,"900,54868196800 ",.01)
  1. ;;54868196800
  1. ;;9002226.02101,"900,54868196800 ",.02)
  1. ;;54868196800
  1. ;;9002226.02101,"900,54868216400 ",.01)
  1. ;;54868216400
  1. ;;9002226.02101,"900,54868216400 ",.02)
  1. ;;54868216400
  1. ;;9002226.02101,"900,54868216401 ",.01)
  1. ;;54868216401
  1. ;;9002226.02101,"900,54868216401 ",.02)
  1. ;;54868216401
  1. ;;9002226.02101,"900,54868219100 ",.01)
  1. ;;54868219100
  1. ;;9002226.02101,"900,54868219100 ",.02)
  1. ;;54868219100
  1. ;;9002226.02101,"900,54868235301 ",.01)
  1. ;;54868235301
  1. ;;9002226.02101,"900,54868235301 ",.02)
  1. ;;54868235301
  1. ;;9002226.02101,"900,54868235302 ",.01)
  1. ;;54868235302
  1. ;;9002226.02101,"900,54868235302 ",.02)
  1. ;;54868235302
  1. ;;9002226.02101,"900,54868235303 ",.01)
  1. ;;54868235303
  1. ;;9002226.02101,"900,54868235303 ",.02)
  1. ;;54868235303
  1. ;;9002226.02101,"900,54868235305 ",.01)
  1. ;;54868235305
  1. ;;9002226.02101,"900,54868235305 ",.02)
  1. ;;54868235305
  1. ;;9002226.02101,"900,54868235306 ",.01)
  1. ;;54868235306
  1. ;;9002226.02101,"900,54868235306 ",.02)
  1. ;;54868235306
  1. ;;9002226.02101,"900,54868263900 ",.01)
  1. ;;54868263900
  1. ;;9002226.02101,"900,54868263900 ",.02)
  1. ;;54868263900
  1. ;;9002226.02101,"900,54868263901 ",.01)
  1. ;;54868263901
  1. ;;9002226.02101,"900,54868263901 ",.02)
  1. ;;54868263901
  1. ;;9002226.02101,"900,54868264700 ",.01)
  1. ;;54868264700
  1. ;;9002226.02101,"900,54868264700 ",.02)
  1. ;;54868264700
  1. ;;9002226.02101,"900,54868310400 ",.01)
  1. ;;54868310400
  1. ;;9002226.02101,"900,54868310400 ",.02)
  1. ;;54868310400
  1. ;;9002226.02101,"900,54868310401 ",.01)
  1. ;;54868310401
  1. ;;9002226.02101,"900,54868310401 ",.02)
  1. ;;54868310401
  1. ;;9002226.02101,"900,54868328700 ",.01)
  1. ;;54868328700
  1. ;;9002226.02101,"900,54868328700 ",.02)
  1. ;;54868328700
  1. ;;9002226.02101,"900,54868328701 ",.01)
  1. ;;54868328701
  1. ;;9002226.02101,"900,54868328701 ",.02)
  1. ;;54868328701
  1. ;;9002226.02101,"900,54868332900 ",.01)
  1. ;;54868332900
  1. ;;9002226.02101,"900,54868332900 ",.02)
  1. ;;54868332900
  1. ;;9002226.02101,"900,54868393400 ",.01)
  1. ;;54868393400
  1. ;;9002226.02101,"900,54868393400 ",.02)
  1. ;;54868393400
  1. ;;9002226.02101,"900,54868393401 ",.01)
  1. ;;54868393401
  1. ;;9002226.02101,"900,54868393401 ",.02)
  1. ;;54868393401
  1. ;;9002226.02101,"900,54868393402 ",.01)
  1. ;;54868393402
  1. ;;9002226.02101,"900,54868393402 ",.02)
  1. ;;54868393402
  1. ;;9002226.02101,"900,54868393403 ",.01)
  1. ;;54868393403
  1. ;;9002226.02101,"900,54868393403 ",.02)
  1. ;;54868393403
  1. ;;9002226.02101,"900,54868393404 ",.01)
  1. ;;54868393404
  1. ;;9002226.02101,"900,54868393404 ",.02)
  1. ;;54868393404
  1. ;;9002226.02101,"900,54868394600 ",.01)
  1. ;;54868394600
  1. ;;9002226.02101,"900,54868394600 ",.02)
  1. ;;54868394600
  1. ;;9002226.02101,"900,54868394601 ",.01)
  1. ;;54868394601
  1. ;;9002226.02101,"900,54868394601 ",.02)
  1. ;;54868394601
  1. ;;9002226.02101,"900,54868394602 ",.01)
  1. ;;54868394602
  1. ;;9002226.02101,"900,54868394602 ",.02)
  1. ;;54868394602
  1. ;;9002226.02101,"900,54868394603 ",.01)
  1. ;;54868394603
  1. ;;9002226.02101,"900,54868394603 ",.02)
  1. ;;54868394603
  1. ;;9002226.02101,"900,54868394604 ",.01)
  1. ;;54868394604
  1. ;;9002226.02101,"900,54868394604 ",.02)
  1. ;;54868394604
  1. ;;9002226.02101,"900,54868415700 ",.01)
  1. ;;54868415700
  1. ;;9002226.02101,"900,54868415700 ",.02)
  1. ;;54868415700
  1. ;;9002226.02101,"900,54868415701 ",.01)
  1. ;;54868415701
  1. ;;9002226.02101,"900,54868415701 ",.02)
  1. ;;54868415701
  1. ;;9002226.02101,"900,54868415702 ",.01)
  1. ;;54868415702
  1. ;;9002226.02101,"900,54868415702 ",.02)
  1. ;;54868415702
  1. ;;9002226.02101,"900,54868418100 ",.01)
  1. ;;54868418100
  1. ;;9002226.02101,"900,54868418100 ",.02)
  1. ;;54868418100
  1. ;;9002226.02101,"900,54868418101 ",.01)
  1. ;;54868418101
  1. ;;9002226.02101,"900,54868418101 ",.02)
  1. ;;54868418101
  1. ;;9002226.02101,"900,54868422400 ",.01)
  1. ;;54868422400
  1. ;;9002226.02101,"900,54868422400 ",.02)
  1. ;;54868422400
  1. ;;9002226.02101,"900,54868422401 ",.01)
  1. ;;54868422401
  1. ;;9002226.02101,"900,54868422401 ",.02)
  1. ;;54868422401
  1. ;;9002226.02101,"900,54868422900 ",.01)
  1. ;;54868422900
  1. ;;9002226.02101,"900,54868422900 ",.02)
  1. ;;54868422900
  1. ;;9002226.02101,"900,54868422901 ",.01)
  1. ;;54868422901
  1. ;;9002226.02101,"900,54868422901 ",.02)
  1. ;;54868422901
  1. ;;9002226.02101,"900,54868422902 ",.01)
  1. ;;54868422902
  1. ;;9002226.02101,"900,54868422902 ",.02)
  1. ;;54868422902
  1. ;;9002226.02101,"900,54868422903 ",.01)
  1. ;;54868422903
  1. ;;9002226.02101,"900,54868422903 ",.02)
  1. ;;54868422903
  1. ;;9002226.02101,"900,54868447400 ",.01)
  1. ;;54868447400
  1. ;;9002226.02101,"900,54868447400 ",.02)
  1. ;;54868447400
  1. ;;9002226.02101,"900,54868447401 ",.01)
  1. ;;54868447401
  1. ;;9002226.02101,"900,54868447401 ",.02)
  1. ;;54868447401
  1. ;;9002226.02101,"900,54868447402 ",.01)
  1. ;;54868447402
  1. ;;9002226.02101,"900,54868447402 ",.02)
  1. ;;54868447402
  1. ;;9002226.02101,"900,54868447403 ",.01)
  1. ;;54868447403
  1. ;;9002226.02101,"900,54868447403 ",.02)
  1. ;;54868447403
  1. ;;9002226.02101,"900,54868458500 ",.01)
  1. ;;54868458500
  1. ;;9002226.02101,"900,54868458500 ",.02)
  1. ;;54868458500
  1. ;;9002226.02101,"900,54868458501 ",.01)
  1. ;;54868458501
  1. ;;9002226.02101,"900,54868458501 ",.02)
  1. ;;54868458501
  1. ;;9002226.02101,"900,54868458502 ",.01)
  1. ;;54868458502
  1. ;;9002226.02101,"900,54868458502 ",.02)
  1. ;;54868458502
  1. ;;9002226.02101,"900,54868458503 ",.01)
  1. ;;54868458503
  1. ;;9002226.02101,"900,54868458503 ",.02)
  1. ;;54868458503
  1. ;;9002226.02101,"900,54868459300 ",.01)
  1. ;;54868459300
  1. ;;9002226.02101,"900,54868459300 ",.02)
  1. ;;54868459300
  1. ;;9002226.02101,"900,54868459301 ",.01)
  1. ;;54868459301
  1. ;;9002226.02101,"900,54868459301 ",.02)
  1. ;;54868459301
  1. ;;9002226.02101,"900,54868459302 ",.01)
  1. ;;54868459302
  1. ;;9002226.02101,"900,54868459302 ",.02)
  1. ;;54868459302
  1. ;;9002226.02101,"900,54868459700 ",.01)
  1. ;;54868459700
  1. ;;9002226.02101,"900,54868459700 ",.02)
  1. ;;54868459700
  1. ;;9002226.02101,"900,54868460100 ",.01)
  1. ;;54868460100
  1. ;;9002226.02101,"900,54868460100 ",.02)
  1. ;;54868460100
  1. ;;9002226.02101,"900,54868471900 ",.01)
  1. ;;54868471900
  1. ;;9002226.02101,"900,54868471900 ",.02)
  1. ;;54868471900
  1. ;;9002226.02101,"900,54868471901 ",.01)
  1. ;;54868471901
  1. ;;9002226.02101,"900,54868471901 ",.02)
  1. ;;54868471901
  1. ;;9002226.02101,"900,54868477400 ",.01)
  1. ;;54868477400
  1. ;;9002226.02101,"900,54868477400 ",.02)
  1. ;;54868477400
  1. ;;9002226.02101,"900,54868477401 ",.01)
  1. ;;54868477401
  1. ;;9002226.02101,"900,54868477401 ",.02)
  1. ;;54868477401
  1. ;;9002226.02101,"900,54868477402 ",.01)
  1. ;;54868477402
  1. ;;9002226.02101,"900,54868477402 ",.02)
  1. ;;54868477402
  1. ;;9002226.02101,"900,54868477403 ",.01)
  1. ;;54868477403
  1. ;;9002226.02101,"900,54868477403 ",.02)
  1. ;;54868477403
  1. ;;9002226.02101,"900,54868480700 ",.01)
  1. ;;54868480700
  1. ;;9002226.02101,"900,54868480700 ",.02)
  1. ;;54868480700
  1. ;;9002226.02101,"900,54868480701 ",.01)
  1. ;;54868480701
  1. ;;9002226.02101,"900,54868480701 ",.02)
  1. ;;54868480701
  1. ;;9002226.02101,"900,54868480702 ",.01)
  1. ;;54868480702
  1. ;;9002226.02101,"900,54868480702 ",.02)
  1. ;;54868480702
  1. ;;9002226.02101,"900,54868481200 ",.01)
  1. ;;54868481200
  1. ;;9002226.02101,"900,54868481200 ",.02)
  1. ;;54868481200
  1. ;;9002226.02101,"900,54868481201 ",.01)
  1. ;;54868481201
  1. ;;9002226.02101,"900,54868481201 ",.02)
  1. ;;54868481201
  1. ;;9002226.02101,"900,54868493400 ",.01)
  1. ;;54868493400
  1. ;;9002226.02101,"900,54868493400 ",.02)
  1. ;;54868493400
  1. ;;9002226.02101,"900,54868493401 ",.01)
  1. ;;54868493401
  1. ;;9002226.02101,"900,54868493401 ",.02)
  1. ;;54868493401
  1. ;;9002226.02101,"900,54868493402 ",.01)
  1. ;;54868493402
  1. ;;9002226.02101,"900,54868493402 ",.02)
  1. ;;54868493402
  1. ;;9002226.02101,"900,54868496300 ",.01)
  1. ;;54868496300
  1. ;;9002226.02101,"900,54868496300 ",.02)
  1. ;;54868496300
  1. ;;9002226.02101,"900,54868496301 ",.01)
  1. ;;54868496301
  1. ;;9002226.02101,"900,54868496301 ",.02)
  1. ;;54868496301
  1. ;;9002226.02101,"900,54868496302 ",.01)
  1. ;;54868496302
  1. ;;9002226.02101,"900,54868496302 ",.02)
  1. ;;54868496302
  1. ;;9002226.02101,"900,54868496303 ",.01)
  1. ;;54868496303
  1. ;;9002226.02101,"900,54868496303 ",.02)
  1. ;;54868496303
  1. ;;9002226.02101,"900,54868499900 ",.01)
  1. ;;54868499900
  1. ;;9002226.02101,"900,54868499900 ",.02)
  1. ;;54868499900
  1. ;;9002226.02101,"900,54868499901 ",.01)
  1. ;;54868499901
  1. ;;9002226.02101,"900,54868499901 ",.02)
  1. ;;54868499901
  1. ;;9002226.02101,"900,54868508500 ",.01)
  1. ;;54868508500
  1. ;;9002226.02101,"900,54868508500 ",.02)
  1. ;;54868508500
  1. ;;9002226.02101,"900,54868508501 ",.01)
  1. ;;54868508501
  1. ;;9002226.02101,"900,54868508501 ",.02)
  1. ;;54868508501
  1. ;;9002226.02101,"900,54868508502 ",.01)
  1. ;;54868508502
  1. ;;9002226.02101,"900,54868508502 ",.02)
  1. ;;54868508502
  1. ;;9002226.02101,"900,54868508503 ",.01)
  1. ;;54868508503
  1. ;;9002226.02101,"900,54868508503 ",.02)
  1. ;;54868508503
  1. ;;9002226.02101,"900,54868508700 ",.01)
  1. ;;54868508700
  1. ;;9002226.02101,"900,54868508700 ",.02)
  1. ;;54868508700
  1. ;;9002226.02101,"900,54868517900 ",.01)
  1. ;;54868517900
  1. ;;9002226.02101,"900,54868517900 ",.02)
  1. ;;54868517900
  1. ;;9002226.02101,"900,54868518400 ",.01)
  1. ;;54868518400
  1. ;;9002226.02101,"900,54868518400 ",.02)
  1. ;;54868518400
  1. ;;9002226.02101,"900,54868518700 ",.01)
  1. ;;54868518700
  1. ;;9002226.02101,"900,54868518700 ",.02)
  1. ;;54868518700
  1. ;;9002226.02101,"900,54868518701 ",.01)
  1. ;;54868518701
  1. ;;9002226.02101,"900,54868518701 ",.02)
  1. ;;54868518701
  1. ;;9002226.02101,"900,54868518702 ",.01)
  1. ;;54868518702
  1. ;;9002226.02101,"900,54868518702 ",.02)
  1. ;;54868518702
  1. ;;9002226.02101,"900,54868518900 ",.01)
  1. ;;54868518900
  1. ;;9002226.02101,"900,54868518900 ",.02)
  1. ;;54868518900
  1. ;;9002226.02101,"900,54868518901 ",.01)
  1. ;;54868518901
  1. ;;9002226.02101,"900,54868518901 ",.02)
  1. ;;54868518901
  1. ;;9002226.02101,"900,54868520000 ",.01)
  1. ;;54868520000
  1. ;;9002226.02101,"900,54868520000 ",.02)
  1. ;;54868520000
  1. ;;9002226.02101,"900,54868520001 ",.01)
  1. ;;54868520001
  1. ;;9002226.02101,"900,54868520001 ",.02)
  1. ;;54868520001
  1. ;;9002226.02101,"900,54868520300 ",.01)
  1. ;;54868520300
  1. ;;9002226.02101,"900,54868520300 ",.02)
  1. ;;54868520300
  1. ;;9002226.02101,"900,54868520301 ",.01)
  1. ;;54868520301
  1. ;;9002226.02101,"900,54868520301 ",.02)
  1. ;;54868520301
  1. ;;9002226.02101,"900,54868520900 ",.01)
  1. ;;54868520900
  1. ;;9002226.02101,"900,54868520900 ",.02)
  1. ;;54868520900
  1. ;;9002226.02101,"900,54868520901 ",.01)
  1. ;;54868520901
  1. ;;9002226.02101,"900,54868520901 ",.02)
  1. ;;54868520901
  1. ;;9002226.02101,"900,54868522400 ",.01)
  1. ;;54868522400
  1. ;;9002226.02101,"900,54868522400 ",.02)
  1. ;;54868522400
  1. ;;9002226.02101,"900,54868522401 ",.01)
  1. ;;54868522401
  1. ;;9002226.02101,"900,54868522401 ",.02)
  1. ;;54868522401
  1. ;;9002226.02101,"900,54868525000 ",.01)
  1. ;;54868525000
  1. ;;9002226.02101,"900,54868525000 ",.02)
  1. ;;54868525000
  1. ;;9002226.02101,"900,54868525900 ",.01)
  1. ;;54868525900
  1. ;;9002226.02101,"900,54868525900 ",.02)
  1. ;;54868525900
  1. ;;9002226.02101,"900,54868525901 ",.01)
  1. ;;54868525901
  1. ;;9002226.02101,"900,54868525901 ",.02)
  1. ;;54868525901
  1. ;;9002226.02101,"900,54868534100 ",.01)
  1. ;;54868534100
  1. ;;9002226.02101,"900,54868534100 ",.02)
  1. ;;54868534100
  1. ;;9002226.02101,"900,54868534101 ",.01)
  1. ;;54868534101
  1. ;;9002226.02101,"900,54868534101 ",.02)
  1. ;;54868534101
  1. ;;9002226.02101,"900,54868535800 ",.01)
  1. ;;54868535800
  1. ;;9002226.02101,"900,54868535800 ",.02)
  1. ;;54868535800
  1. ;;9002226.02101,"900,54868542000 ",.01)
  1. ;;54868542000
  1. ;;9002226.02101,"900,54868542000 ",.02)
  1. ;;54868542000
  1. ;;9002226.02101,"900,54868549800 ",.01)
  1. ;;54868549800
  1. ;;9002226.02101,"900,54868549800 ",.02)
  1. ;;54868549800
  1. ;;9002226.02101,"900,54868551200 ",.01)
  1. ;;54868551200
  1. ;;9002226.02101,"900,54868551200 ",.02)
  1. ;;54868551200
  1. ;;9002226.02101,"900,54868551201 ",.01)
  1. ;;54868551201
  1. ;;9002226.02101,"900,54868551201 ",.02)
  1. ;;54868551201