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

BGPM5AUT.m

Go to the documentation of this file.
BGPM5AUT ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"1033,00781202076 ",.01)
 ;;00781202076
 ;;9002226.02101,"1033,00781202076 ",.02)
 ;;00781202076
 ;;9002226.02101,"1033,00781211201 ",.01)
 ;;00781211201
 ;;9002226.02101,"1033,00781211201 ",.02)
 ;;00781211201
 ;;9002226.02101,"1033,00781211301 ",.01)
 ;;00781211301
 ;;9002226.02101,"1033,00781211301 ",.02)
 ;;00781211301
 ;;9002226.02101,"1033,00781211317 ",.01)
 ;;00781211317
 ;;9002226.02101,"1033,00781211317 ",.02)
 ;;00781211317
 ;;9002226.02101,"1033,00781214401 ",.01)
 ;;00781214401
 ;;9002226.02101,"1033,00781214401 ",.02)
 ;;00781214401
 ;;9002226.02101,"1033,00781214405 ",.01)
 ;;00781214405
 ;;9002226.02101,"1033,00781214405 ",.02)
 ;;00781214405
 ;;9002226.02101,"1033,00781214501 ",.01)
 ;;00781214501
 ;;9002226.02101,"1033,00781214501 ",.02)
 ;;00781214501
 ;;9002226.02101,"1033,00781214505 ",.01)
 ;;00781214505
 ;;9002226.02101,"1033,00781214505 ",.02)
 ;;00781214505
 ;;9002226.02101,"1033,00781217601 ",.01)
 ;;00781217601
 ;;9002226.02101,"1033,00781217601 ",.02)
 ;;00781217601
 ;;9002226.02101,"1033,00781217660 ",.01)
 ;;00781217660
 ;;9002226.02101,"1033,00781217660 ",.02)
 ;;00781217660
 ;;9002226.02101,"1033,00781217664 ",.01)
 ;;00781217664
 ;;9002226.02101,"1033,00781217664 ",.02)
 ;;00781217664
 ;;9002226.02101,"1033,00781217669 ",.01)
 ;;00781217669
 ;;9002226.02101,"1033,00781217669 ",.02)
 ;;00781217669
 ;;9002226.02101,"1033,00781224801 ",.01)
 ;;00781224801
 ;;9002226.02101,"1033,00781224801 ",.02)
 ;;00781224801
 ;;9002226.02101,"1033,00781225801 ",.01)
 ;;00781225801
 ;;9002226.02101,"1033,00781225801 ",.02)
 ;;00781225801
 ;;9002226.02101,"1033,00781226801 ",.01)
 ;;00781226801
 ;;9002226.02101,"1033,00781226801 ",.02)
 ;;00781226801
 ;;9002226.02101,"1033,00781226807 ",.01)
 ;;00781226807
 ;;9002226.02101,"1033,00781226807 ",.02)
 ;;00781226807
 ;;9002226.02101,"1033,00781226822 ",.01)
 ;;00781226822
 ;;9002226.02101,"1033,00781226822 ",.02)
 ;;00781226822
 ;;9002226.02101,"1033,00781226860 ",.01)
 ;;00781226860
 ;;9002226.02101,"1033,00781226860 ",.02)
 ;;00781226860
 ;;9002226.02101,"1033,00781226868 ",.01)
 ;;00781226868
 ;;9002226.02101,"1033,00781226868 ",.02)
 ;;00781226868
 ;;9002226.02101,"1033,00781226881 ",.01)
 ;;00781226881
 ;;9002226.02101,"1033,00781226881 ",.02)
 ;;00781226881
 ;;9002226.02101,"1033,00781226907 ",.01)
 ;;00781226907
 ;;9002226.02101,"1033,00781226907 ",.02)
 ;;00781226907
 ;;9002226.02101,"1033,00781226922 ",.01)
 ;;00781226922
 ;;9002226.02101,"1033,00781226922 ",.02)
 ;;00781226922
 ;;9002226.02101,"1033,00781226950 ",.01)
 ;;00781226950
 ;;9002226.02101,"1033,00781226950 ",.02)
 ;;00781226950
 ;;9002226.02101,"1033,00781226969 ",.01)
 ;;00781226969
 ;;9002226.02101,"1033,00781226969 ",.02)
 ;;00781226969
 ;;9002226.02101,"1033,00781226981 ",.01)
 ;;00781226981
 ;;9002226.02101,"1033,00781226981 ",.02)
 ;;00781226981
 ;;9002226.02101,"1033,00781261301 ",.01)
 ;;00781261301
 ;;9002226.02101,"1033,00781261301 ",.02)
 ;;00781261301
 ;;9002226.02101,"1033,00781261305 ",.01)
 ;;00781261305
 ;;9002226.02101,"1033,00781261305 ",.02)
 ;;00781261305
 ;;9002226.02101,"1033,00781261331 ",.01)
 ;;00781261331
 ;;9002226.02101,"1033,00781261331 ",.02)
 ;;00781261331
 ;;9002226.02101,"1033,00781261376 ",.01)
 ;;00781261376
 ;;9002226.02101,"1033,00781261376 ",.02)
 ;;00781261376
 ;;9002226.02101,"1033,00781293801 ",.01)
 ;;00781293801
 ;;9002226.02101,"1033,00781293801 ",.02)
 ;;00781293801
 ;;9002226.02101,"1033,00781293850 ",.01)
 ;;00781293850
 ;;9002226.02101,"1033,00781293850 ",.02)
 ;;00781293850
 ;;9002226.02101,"1033,00781303270 ",.01)
 ;;00781303270
 ;;9002226.02101,"1033,00781303270 ",.02)
 ;;00781303270
 ;;9002226.02101,"1033,00781303295 ",.01)
 ;;00781303295
 ;;9002226.02101,"1033,00781303295 ",.02)
 ;;00781303295
 ;;9002226.02101,"1033,00781303370 ",.01)
 ;;00781303370
 ;;9002226.02101,"1033,00781303370 ",.02)
 ;;00781303370
 ;;9002226.02101,"1033,00781303395 ",.01)
 ;;00781303395
 ;;9002226.02101,"1033,00781303395 ",.02)
 ;;00781303395
 ;;9002226.02101,"1033,00781303446 ",.01)
 ;;00781303446
 ;;9002226.02101,"1033,00781303446 ",.02)
 ;;00781303446
 ;;9002226.02101,"1033,00781315796 ",.01)
 ;;00781315796
 ;;9002226.02101,"1033,00781315796 ",.02)
 ;;00781315796
 ;;9002226.02101,"1033,00781320685 ",.01)
 ;;00781320685
 ;;9002226.02101,"1033,00781320685 ",.02)
 ;;00781320685
 ;;9002226.02101,"1033,00781320695 ",.01)
 ;;00781320695
 ;;9002226.02101,"1033,00781320695 ",.02)
 ;;00781320695
 ;;9002226.02101,"1033,00781320785 ",.01)
 ;;00781320785
 ;;9002226.02101,"1033,00781320785 ",.02)
 ;;00781320785
 ;;9002226.02101,"1033,00781320795 ",.01)
 ;;00781320795
 ;;9002226.02101,"1033,00781320795 ",.02)
 ;;00781320795
 ;;9002226.02101,"1033,00781320885 ",.01)
 ;;00781320885
 ;;9002226.02101,"1033,00781320885 ",.02)
 ;;00781320885
 ;;9002226.02101,"1033,00781320895 ",.01)
 ;;00781320895
 ;;9002226.02101,"1033,00781320895 ",.02)
 ;;00781320895
 ;;9002226.02101,"1033,00781320990 ",.01)
 ;;00781320990
 ;;9002226.02101,"1033,00781320990 ",.02)
 ;;00781320990
 ;;9002226.02101,"1033,00781320995 ",.01)
 ;;00781320995
 ;;9002226.02101,"1033,00781320995 ",.02)
 ;;00781320995
 ;;9002226.02101,"1033,00781321046 ",.01)
 ;;00781321046
 ;;9002226.02101,"1033,00781321046 ",.02)
 ;;00781321046
 ;;9002226.02101,"1033,00781323909 ",.01)
 ;;00781323909
 ;;9002226.02101,"1033,00781323909 ",.02)
 ;;00781323909
 ;;9002226.02101,"1033,00781323946 ",.01)
 ;;00781323946
 ;;9002226.02101,"1033,00781323946 ",.02)
 ;;00781323946
 ;;9002226.02101,"1033,00781324009 ",.01)
 ;;00781324009
 ;;9002226.02101,"1033,00781324009 ",.02)
 ;;00781324009
 ;;9002226.02101,"1033,00781324048 ",.01)
 ;;00781324048
 ;;9002226.02101,"1033,00781324048 ",.02)
 ;;00781324048
 ;;9002226.02101,"1033,00781333870 ",.01)
 ;;00781333870
 ;;9002226.02101,"1033,00781333870 ",.02)
 ;;00781333870
 ;;9002226.02101,"1033,00781333885 ",.01)
 ;;00781333885
 ;;9002226.02101,"1033,00781333885 ",.02)
 ;;00781333885
 ;;9002226.02101,"1033,00781333895 ",.01)
 ;;00781333895
 ;;9002226.02101,"1033,00781333895 ",.02)
 ;;00781333895
 ;;9002226.02101,"1033,00781334646 ",.01)
 ;;00781334646
 ;;9002226.02101,"1033,00781334646 ",.02)
 ;;00781334646
 ;;9002226.02101,"1033,00781334695 ",.01)
 ;;00781334695
 ;;9002226.02101,"1033,00781334695 ",.02)
 ;;00781334695
 ;;9002226.02101,"1033,00781340078 ",.01)
 ;;00781340078
 ;;9002226.02101,"1033,00781340078 ",.02)
 ;;00781340078
 ;;9002226.02101,"1033,00781340095 ",.01)
 ;;00781340095
 ;;9002226.02101,"1033,00781340095 ",.02)
 ;;00781340095
 ;;9002226.02101,"1033,00781340278 ",.01)
 ;;00781340278
 ;;9002226.02101,"1033,00781340278 ",.02)
 ;;00781340278
 ;;9002226.02101,"1033,00781340295 ",.01)
 ;;00781340295
 ;;9002226.02101,"1033,00781340295 ",.02)
 ;;00781340295
 ;;9002226.02101,"1033,00781340485 ",.01)
 ;;00781340485
 ;;9002226.02101,"1033,00781340485 ",.02)
 ;;00781340485
 ;;9002226.02101,"1033,00781340495 ",.01)
 ;;00781340495
 ;;9002226.02101,"1033,00781340495 ",.02)
 ;;00781340495
 ;;9002226.02101,"1033,00781340778 ",.01)
 ;;00781340778
 ;;9002226.02101,"1033,00781340778 ",.02)
 ;;00781340778
 ;;9002226.02101,"1033,00781340795 ",.01)
 ;;00781340795
 ;;9002226.02101,"1033,00781340795 ",.02)
 ;;00781340795
 ;;9002226.02101,"1033,00781340880 ",.01)
 ;;00781340880
 ;;9002226.02101,"1033,00781340880 ",.02)
 ;;00781340880
 ;;9002226.02101,"1033,00781340895 ",.01)
 ;;00781340895
 ;;9002226.02101,"1033,00781340895 ",.02)
 ;;00781340895
 ;;9002226.02101,"1033,00781340946 ",.01)
 ;;00781340946
 ;;9002226.02101,"1033,00781340946 ",.02)
 ;;00781340946
 ;;9002226.02101,"1033,00781340995 ",.01)
 ;;00781340995
 ;;9002226.02101,"1033,00781340995 ",.02)
 ;;00781340995
 ;;9002226.02101,"1033,00781345070 ",.01)
 ;;00781345070
 ;;9002226.02101,"1033,00781345070 ",.02)
 ;;00781345070
 ;;9002226.02101,"1033,00781345095 ",.01)
 ;;00781345095
 ;;9002226.02101,"1033,00781345095 ",.02)
 ;;00781345095
 ;;9002226.02101,"1033,00781345170 ",.01)
 ;;00781345170
 ;;9002226.02101,"1033,00781345170 ",.02)
 ;;00781345170
 ;;9002226.02101,"1033,00781345196 ",.01)
 ;;00781345196
 ;;9002226.02101,"1033,00781345196 ",.02)
 ;;00781345196
 ;;9002226.02101,"1033,00781345246 ",.01)
 ;;00781345246
 ;;9002226.02101,"1033,00781345246 ",.02)
 ;;00781345246
 ;;9002226.02101,"1033,00781345295 ",.01)
 ;;00781345295
 ;;9002226.02101,"1033,00781345295 ",.02)
 ;;00781345295
 ;;9002226.02101,"1033,00781392280 ",.01)
 ;;00781392280
 ;;9002226.02101,"1033,00781392280 ",.02)
 ;;00781392280
 ;;9002226.02101,"1033,00781392296 ",.01)
 ;;00781392296
 ;;9002226.02101,"1033,00781392296 ",.02)
 ;;00781392296
 ;;9002226.02101,"1033,00781392646 ",.01)
 ;;00781392646
 ;;9002226.02101,"1033,00781392646 ",.02)
 ;;00781392646
 ;;9002226.02101,"1033,00781392695 ",.01)
 ;;00781392695
 ;;9002226.02101,"1033,00781392695 ",.02)
 ;;00781392695
 ;;9002226.02101,"1033,00781504301 ",.01)
 ;;00781504301
 ;;9002226.02101,"1033,00781504301 ",.02)
 ;;00781504301
 ;;9002226.02101,"1033,00781504401 ",.01)
 ;;00781504401
 ;;9002226.02101,"1033,00781504401 ",.02)
 ;;00781504401
 ;;9002226.02101,"1033,00781504450 ",.01)
 ;;00781504450
 ;;9002226.02101,"1033,00781504450 ",.02)
 ;;00781504450
 ;;9002226.02101,"1033,00781506001 ",.01)
 ;;00781506001
 ;;9002226.02101,"1033,00781506001 ",.02)
 ;;00781506001
 ;;9002226.02101,"1033,00781506005 ",.01)
 ;;00781506005
 ;;9002226.02101,"1033,00781506005 ",.02)
 ;;00781506005
 ;;9002226.02101,"1033,00781506020 ",.01)
 ;;00781506020
 ;;9002226.02101,"1033,00781506020 ",.02)
 ;;00781506020
 ;;9002226.02101,"1033,00781506101 ",.01)
 ;;00781506101
 ;;9002226.02101,"1033,00781506101 ",.02)
 ;;00781506101
 ;;9002226.02101,"1033,00781506105 ",.01)
 ;;00781506105
 ;;9002226.02101,"1033,00781506105 ",.02)
 ;;00781506105
 ;;9002226.02101,"1033,00781506120 ",.01)
 ;;00781506120
 ;;9002226.02101,"1033,00781506120 ",.02)
 ;;00781506120
 ;;9002226.02101,"1033,00781511501 ",.01)
 ;;00781511501
 ;;9002226.02101,"1033,00781511501 ",.02)
 ;;00781511501
 ;;9002226.02101,"1033,00781538501 ",.01)
 ;;00781538501
 ;;9002226.02101,"1033,00781538501 ",.02)
 ;;00781538501
 ;;9002226.02101,"1033,00781538510 ",.01)
 ;;00781538510
 ;;9002226.02101,"1033,00781538510 ",.02)
 ;;00781538510
 ;;9002226.02101,"1033,00781538531 ",.01)
 ;;00781538531
 ;;9002226.02101,"1033,00781538531 ",.02)
 ;;00781538531
 ;;9002226.02101,"1033,00781538601 ",.01)
 ;;00781538601
 ;;9002226.02101,"1033,00781538601 ",.02)
 ;;00781538601
 ;;9002226.02101,"1033,00781538610 ",.01)
 ;;00781538610
 ;;9002226.02101,"1033,00781538610 ",.02)
 ;;00781538610
 ;;9002226.02101,"1033,00781538631 ",.01)
 ;;00781538631
 ;;9002226.02101,"1033,00781538631 ",.02)
 ;;00781538631
 ;;9002226.02101,"1033,00781538701 ",.01)
 ;;00781538701
 ;;9002226.02101,"1033,00781538701 ",.02)
 ;;00781538701
 ;;9002226.02101,"1033,00781538710 ",.01)
 ;;00781538710
 ;;9002226.02101,"1033,00781538710 ",.02)
 ;;00781538710
 ;;9002226.02101,"1033,00781538731 ",.01)
 ;;00781538731
 ;;9002226.02101,"1033,00781538731 ",.02)
 ;;00781538731
 ;;9002226.02101,"1033,00781543820 ",.01)
 ;;00781543820
 ;;9002226.02101,"1033,00781543820 ",.02)
 ;;00781543820
 ;;9002226.02101,"1033,00781543901 ",.01)
 ;;00781543901
 ;;9002226.02101,"1033,00781543901 ",.02)
 ;;00781543901
 ;;9002226.02101,"1033,00781543920 ",.01)
 ;;00781543920
 ;;9002226.02101,"1033,00781543920 ",.02)
 ;;00781543920
 ;;9002226.02101,"1033,00781579201 ",.01)
 ;;00781579201
 ;;9002226.02101,"1033,00781579201 ",.02)
 ;;00781579201
 ;;9002226.02101,"1033,00781579210 ",.01)
 ;;00781579210