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

BGPM5ABR.m

Go to the documentation of this file.
  1. BGPM5ABR ;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,"830,00480726201 ",.02)
  1. ;;00480726201
  1. ;;9002226.02101,"830,00480726205 ",.01)
  1. ;;00480726205
  1. ;;9002226.02101,"830,00480726205 ",.02)
  1. ;;00480726205
  1. ;;9002226.02101,"830,00480726701 ",.01)
  1. ;;00480726701
  1. ;;9002226.02101,"830,00480726701 ",.02)
  1. ;;00480726701
  1. ;;9002226.02101,"830,00480726710 ",.01)
  1. ;;00480726710
  1. ;;9002226.02101,"830,00480726710 ",.02)
  1. ;;00480726710
  1. ;;9002226.02101,"830,00480745501 ",.01)
  1. ;;00480745501
  1. ;;9002226.02101,"830,00480745501 ",.02)
  1. ;;00480745501
  1. ;;9002226.02101,"830,00480745601 ",.01)
  1. ;;00480745601
  1. ;;9002226.02101,"830,00480745601 ",.02)
  1. ;;00480745601
  1. ;;9002226.02101,"830,00480745701 ",.01)
  1. ;;00480745701
  1. ;;9002226.02101,"830,00480745701 ",.02)
  1. ;;00480745701
  1. ;;9002226.02101,"830,00555010702 ",.01)
  1. ;;00555010702
  1. ;;9002226.02101,"830,00555010702 ",.02)
  1. ;;00555010702
  1. ;;9002226.02101,"830,00555038501 ",.01)
  1. ;;00555038501
  1. ;;9002226.02101,"830,00555038501 ",.02)
  1. ;;00555038501
  1. ;;9002226.02101,"830,00555038502 ",.01)
  1. ;;00555038502
  1. ;;9002226.02101,"830,00555038502 ",.02)
  1. ;;00555038502
  1. ;;9002226.02101,"830,00555038504 ",.01)
  1. ;;00555038504
  1. ;;9002226.02101,"830,00555038504 ",.02)
  1. ;;00555038504
  1. ;;9002226.02101,"830,00555038601 ",.01)
  1. ;;00555038601
  1. ;;9002226.02101,"830,00555038601 ",.02)
  1. ;;00555038601
  1. ;;9002226.02101,"830,00555038602 ",.01)
  1. ;;00555038602
  1. ;;9002226.02101,"830,00555038602 ",.02)
  1. ;;00555038602
  1. ;;9002226.02101,"830,00555038610 ",.01)
  1. ;;00555038610
  1. ;;9002226.02101,"830,00555038610 ",.02)
  1. ;;00555038610
  1. ;;9002226.02101,"830,00555038701 ",.01)
  1. ;;00555038701
  1. ;;9002226.02101,"830,00555038701 ",.02)
  1. ;;00555038701
  1. ;;9002226.02101,"830,00555038702 ",.01)
  1. ;;00555038702
  1. ;;9002226.02101,"830,00555038702 ",.02)
  1. ;;00555038702
  1. ;;9002226.02101,"830,00555038704 ",.01)
  1. ;;00555038704
  1. ;;9002226.02101,"830,00555038704 ",.02)
  1. ;;00555038704
  1. ;;9002226.02101,"830,00555062502 ",.01)
  1. ;;00555062502
  1. ;;9002226.02101,"830,00555062502 ",.02)
  1. ;;00555062502
  1. ;;9002226.02101,"830,00555062602 ",.01)
  1. ;;00555062602
  1. ;;9002226.02101,"830,00555062602 ",.02)
  1. ;;00555062602
  1. ;;9002226.02101,"830,00555062702 ",.01)
  1. ;;00555062702
  1. ;;9002226.02101,"830,00555062702 ",.02)
  1. ;;00555062702
  1. ;;9002226.02101,"830,00591245501 ",.01)
  1. ;;00591245501
  1. ;;9002226.02101,"830,00591245501 ",.02)
  1. ;;00591245501
  1. ;;9002226.02101,"830,00591245505 ",.01)
  1. ;;00591245505
  1. ;;9002226.02101,"830,00591245505 ",.02)
  1. ;;00591245505
  1. ;;9002226.02101,"830,00591245510 ",.01)
  1. ;;00591245510
  1. ;;9002226.02101,"830,00591245510 ",.02)
  1. ;;00591245510
  1. ;;9002226.02101,"830,00591271301 ",.01)
  1. ;;00591271301
  1. ;;9002226.02101,"830,00591271301 ",.02)
  1. ;;00591271301
  1. ;;9002226.02101,"830,00591271305 ",.01)
  1. ;;00591271305
  1. ;;9002226.02101,"830,00591271305 ",.02)
  1. ;;00591271305
  1. ;;9002226.02101,"830,00591271310 ",.01)
  1. ;;00591271310
  1. ;;9002226.02101,"830,00591271310 ",.02)
  1. ;;00591271310
  1. ;;9002226.02101,"830,00591277501 ",.01)
  1. ;;00591277501
  1. ;;9002226.02101,"830,00591277501 ",.02)
  1. ;;00591277501
  1. ;;9002226.02101,"830,00591277525 ",.01)
  1. ;;00591277525
  1. ;;9002226.02101,"830,00591277525 ",.02)
  1. ;;00591277525
  1. ;;9002226.02101,"830,00591277560 ",.01)
  1. ;;00591277560
  1. ;;9002226.02101,"830,00591277560 ",.02)
  1. ;;00591277560
  1. ;;9002226.02101,"830,00591397101 ",.01)
  1. ;;00591397101
  1. ;;9002226.02101,"830,00591397101 ",.02)
  1. ;;00591397101
  1. ;;9002226.02101,"830,00591397201 ",.01)
  1. ;;00591397201
  1. ;;9002226.02101,"830,00591397201 ",.02)
  1. ;;00591397201
  1. ;;9002226.02101,"830,00591397301 ",.01)
  1. ;;00591397301
  1. ;;9002226.02101,"830,00591397301 ",.02)
  1. ;;00591397301
  1. ;;9002226.02101,"830,00615458031 ",.01)
  1. ;;00615458031
  1. ;;9002226.02101,"830,00615458031 ",.02)
  1. ;;00615458031
  1. ;;9002226.02101,"830,00615458039 ",.01)
  1. ;;00615458039
  1. ;;9002226.02101,"830,00615458039 ",.02)
  1. ;;00615458039
  1. ;;9002226.02101,"830,00615550531 ",.01)
  1. ;;00615550531
  1. ;;9002226.02101,"830,00615550531 ",.02)
  1. ;;00615550531
  1. ;;9002226.02101,"830,00615550539 ",.01)
  1. ;;00615550539
  1. ;;9002226.02101,"830,00615550539 ",.02)
  1. ;;00615550539
  1. ;;9002226.02101,"830,00615558331 ",.01)
  1. ;;00615558331
  1. ;;9002226.02101,"830,00615558331 ",.02)
  1. ;;00615558331
  1. ;;9002226.02101,"830,00615558339 ",.01)
  1. ;;00615558339
  1. ;;9002226.02101,"830,00615558339 ",.02)
  1. ;;00615558339
  1. ;;9002226.02101,"830,00615559031 ",.01)
  1. ;;00615559031
  1. ;;9002226.02101,"830,00615559031 ",.02)
  1. ;;00615559031
  1. ;;9002226.02101,"830,00615559039 ",.01)
  1. ;;00615559039
  1. ;;9002226.02101,"830,00615559039 ",.02)
  1. ;;00615559039
  1. ;;9002226.02101,"830,00615762631 ",.01)
  1. ;;00615762631
  1. ;;9002226.02101,"830,00615762631 ",.02)
  1. ;;00615762631
  1. ;;9002226.02101,"830,00615762639 ",.01)
  1. ;;00615762639
  1. ;;9002226.02101,"830,00615762639 ",.02)
  1. ;;00615762639
  1. ;;9002226.02101,"830,00781505001 ",.01)
  1. ;;00781505001
  1. ;;9002226.02101,"830,00781505001 ",.02)
  1. ;;00781505001
  1. ;;9002226.02101,"830,00781505005 ",.01)
  1. ;;00781505005
  1. ;;9002226.02101,"830,00781505005 ",.02)
  1. ;;00781505005
  1. ;;9002226.02101,"830,00781505010 ",.01)
  1. ;;00781505010
  1. ;;9002226.02101,"830,00781505010 ",.02)
  1. ;;00781505010
  1. ;;9002226.02101,"830,00781505061 ",.01)
  1. ;;00781505061
  1. ;;9002226.02101,"830,00781505061 ",.02)
  1. ;;00781505061
  1. ;;9002226.02101,"830,00781505101 ",.01)
  1. ;;00781505101
  1. ;;9002226.02101,"830,00781505101 ",.02)
  1. ;;00781505101
  1. ;;9002226.02101,"830,00781505105 ",.01)
  1. ;;00781505105
  1. ;;9002226.02101,"830,00781505105 ",.02)
  1. ;;00781505105
  1. ;;9002226.02101,"830,00781505161 ",.01)
  1. ;;00781505161
  1. ;;9002226.02101,"830,00781505161 ",.02)
  1. ;;00781505161
  1. ;;9002226.02101,"830,00781505201 ",.01)
  1. ;;00781505201
  1. ;;9002226.02101,"830,00781505201 ",.02)
  1. ;;00781505201
  1. ;;9002226.02101,"830,00781505205 ",.01)
  1. ;;00781505205
  1. ;;9002226.02101,"830,00781505205 ",.02)
  1. ;;00781505205
  1. ;;9002226.02101,"830,00781505261 ",.01)
  1. ;;00781505261
  1. ;;9002226.02101,"830,00781505261 ",.02)
  1. ;;00781505261
  1. ;;9002226.02101,"830,00781517001 ",.01)
  1. ;;00781517001
  1. ;;9002226.02101,"830,00781517001 ",.02)
  1. ;;00781517001
  1. ;;9002226.02101,"830,00781517005 ",.01)
  1. ;;00781517005
  1. ;;9002226.02101,"830,00781517005 ",.02)
  1. ;;00781517005
  1. ;;9002226.02101,"830,00781517010 ",.01)
  1. ;;00781517010
  1. ;;9002226.02101,"830,00781517010 ",.02)
  1. ;;00781517010
  1. ;;9002226.02101,"830,00781517101 ",.01)
  1. ;;00781517101
  1. ;;9002226.02101,"830,00781517101 ",.02)
  1. ;;00781517101
  1. ;;9002226.02101,"830,00781517105 ",.01)
  1. ;;00781517105
  1. ;;9002226.02101,"830,00781517105 ",.02)
  1. ;;00781517105
  1. ;;9002226.02101,"830,00781517110 ",.01)
  1. ;;00781517110
  1. ;;9002226.02101,"830,00781517110 ",.02)
  1. ;;00781517110
  1. ;;9002226.02101,"830,00781517201 ",.01)
  1. ;;00781517201
  1. ;;9002226.02101,"830,00781517201 ",.02)
  1. ;;00781517201
  1. ;;9002226.02101,"830,00781517205 ",.01)
  1. ;;00781517205
  1. ;;9002226.02101,"830,00781517205 ",.02)
  1. ;;00781517205
  1. ;;9002226.02101,"830,00781517210 ",.01)
  1. ;;00781517210
  1. ;;9002226.02101,"830,00781517210 ",.02)
  1. ;;00781517210
  1. ;;9002226.02101,"830,00781530401 ",.01)
  1. ;;00781530401
  1. ;;9002226.02101,"830,00781530401 ",.02)
  1. ;;00781530401
  1. ;;9002226.02101,"830,00781530405 ",.01)
  1. ;;00781530405
  1. ;;9002226.02101,"830,00781530405 ",.02)
  1. ;;00781530405
  1. ;;9002226.02101,"830,00781530410 ",.01)
  1. ;;00781530410
  1. ;;9002226.02101,"830,00781530410 ",.02)
  1. ;;00781530410
  1. ;;9002226.02101,"830,00781530501 ",.01)
  1. ;;00781530501
  1. ;;9002226.02101,"830,00781530501 ",.02)
  1. ;;00781530501
  1. ;;9002226.02101,"830,00781530505 ",.01)
  1. ;;00781530505
  1. ;;9002226.02101,"830,00781530505 ",.02)
  1. ;;00781530505
  1. ;;9002226.02101,"830,00781530510 ",.01)
  1. ;;00781530510
  1. ;;9002226.02101,"830,00781530510 ",.02)
  1. ;;00781530510
  1. ;;9002226.02101,"830,00781530601 ",.01)
  1. ;;00781530601
  1. ;;9002226.02101,"830,00781530601 ",.02)
  1. ;;00781530601
  1. ;;9002226.02101,"830,00781530605 ",.01)
  1. ;;00781530605
  1. ;;9002226.02101,"830,00781530605 ",.02)
  1. ;;00781530605
  1. ;;9002226.02101,"830,00781530610 ",.01)
  1. ;;00781530610
  1. ;;9002226.02101,"830,00781530610 ",.02)
  1. ;;00781530610
  1. ;;9002226.02101,"830,00904560118 ",.01)
  1. ;;00904560118
  1. ;;9002226.02101,"830,00904560118 ",.02)
  1. ;;00904560118
  1. ;;9002226.02101,"830,00904560152 ",.01)
  1. ;;00904560152
  1. ;;9002226.02101,"830,00904560152 ",.02)
  1. ;;00904560152
  1. ;;9002226.02101,"830,00904560154 ",.01)
  1. ;;00904560154
  1. ;;9002226.02101,"830,00904560154 ",.02)
  1. ;;00904560154
  1. ;;9002226.02101,"830,00904560161 ",.01)
  1. ;;00904560161
  1. ;;9002226.02101,"830,00904560161 ",.02)
  1. ;;00904560161
  1. ;;9002226.02101,"830,00904560180 ",.01)
  1. ;;00904560180
  1. ;;9002226.02101,"830,00904560180 ",.02)
  1. ;;00904560180
  1. ;;9002226.02101,"830,00904560189 ",.01)
  1. ;;00904560189
  1. ;;9002226.02101,"830,00904560189 ",.02)
  1. ;;00904560189
  1. ;;9002226.02101,"830,00904560193 ",.01)
  1. ;;00904560193
  1. ;;9002226.02101,"830,00904560193 ",.02)
  1. ;;00904560193
  1. ;;9002226.02101,"830,00904560240 ",.01)
  1. ;;00904560240
  1. ;;9002226.02101,"830,00904560240 ",.02)
  1. ;;00904560240
  1. ;;9002226.02101,"830,00904560253 ",.01)
  1. ;;00904560253
  1. ;;9002226.02101,"830,00904560253 ",.02)
  1. ;;00904560253
  1. ;;9002226.02101,"830,00904560261 ",.01)
  1. ;;00904560261
  1. ;;9002226.02101,"830,00904560261 ",.02)
  1. ;;00904560261
  1. ;;9002226.02101,"830,00904560289 ",.01)
  1. ;;00904560289
  1. ;;9002226.02101,"830,00904560289 ",.02)
  1. ;;00904560289
  1. ;;9002226.02101,"830,00904560293 ",.01)
  1. ;;00904560293
  1. ;;9002226.02101,"830,00904560293 ",.02)
  1. ;;00904560293
  1. ;;9002226.02101,"830,00904560340 ",.01)
  1. ;;00904560340
  1. ;;9002226.02101,"830,00904560340 ",.02)
  1. ;;00904560340
  1. ;;9002226.02101,"830,00904560352 ",.01)
  1. ;;00904560352
  1. ;;9002226.02101,"830,00904560352 ",.02)
  1. ;;00904560352
  1. ;;9002226.02101,"830,00904560361 ",.01)
  1. ;;00904560361
  1. ;;9002226.02101,"830,00904560361 ",.02)
  1. ;;00904560361
  1. ;;9002226.02101,"830,00904560389 ",.01)
  1. ;;00904560389
  1. ;;9002226.02101,"830,00904560389 ",.02)
  1. ;;00904560389
  1. ;;9002226.02101,"830,00904560393 ",.01)
  1. ;;00904560393
  1. ;;9002226.02101,"830,00904560393 ",.02)
  1. ;;00904560393
  1. ;;9002226.02101,"830,00904563461 ",.01)
  1. ;;00904563461
  1. ;;9002226.02101,"830,00904563461 ",.02)
  1. ;;00904563461
  1. ;;9002226.02101,"830,00904563561 ",.01)
  1. ;;00904563561
  1. ;;9002226.02101,"830,00904563561 ",.02)
  1. ;;00904563561
  1. ;;9002226.02101,"830,00904563661 ",.01)
  1. ;;00904563661
  1. ;;9002226.02101,"830,00904563661 ",.02)
  1. ;;00904563661
  1. ;;9002226.02101,"830,00904579461 ",.01)
  1. ;;00904579461
  1. ;;9002226.02101,"830,00904579461 ",.02)
  1. ;;00904579461
  1. ;;9002226.02101,"830,00904579561 ",.01)
  1. ;;00904579561
  1. ;;9002226.02101,"830,00904579561 ",.02)
  1. ;;00904579561
  1. ;;9002226.02101,"830,00904584914 ",.01)
  1. ;;00904584914
  1. ;;9002226.02101,"830,00904584914 ",.02)
  1. ;;00904584914
  1. ;;9002226.02101,"830,00904584918 ",.01)
  1. ;;00904584918
  1. ;;9002226.02101,"830,00904584918 ",.02)
  1. ;;00904584918
  1. ;;9002226.02101,"830,00904584940 ",.01)
  1. ;;00904584940
  1. ;;9002226.02101,"830,00904584940 ",.02)
  1. ;;00904584940
  1. ;;9002226.02101,"830,00904584952 ",.01)
  1. ;;00904584952
  1. ;;9002226.02101,"830,00904584952 ",.02)
  1. ;;00904584952
  1. ;;9002226.02101,"830,00904584953 ",.01)
  1. ;;00904584953
  1. ;;9002226.02101,"830,00904584953 ",.02)
  1. ;;00904584953
  1. ;;9002226.02101,"830,00904584954 ",.01)
  1. ;;00904584954
  1. ;;9002226.02101,"830,00904584954 ",.02)
  1. ;;00904584954
  1. ;;9002226.02101,"830,00904584980 ",.01)
  1. ;;00904584980
  1. ;;9002226.02101,"830,00904584980 ",.02)
  1. ;;00904584980
  1. ;;9002226.02101,"830,00904584989 ",.01)
  1. ;;00904584989
  1. ;;9002226.02101,"830,00904584989 ",.02)
  1. ;;00904584989
  1. ;;9002226.02101,"830,00904584993 ",.01)
  1. ;;00904584993
  1. ;;9002226.02101,"830,00904584993 ",.02)
  1. ;;00904584993
  1. ;;9002226.02101,"830,00904585040 ",.01)
  1. ;;00904585040
  1. ;;9002226.02101,"830,00904585040 ",.02)
  1. ;;00904585040
  1. ;;9002226.02101,"830,00904585053 ",.01)
  1. ;;00904585053