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

BGPM5AKF.m

Go to the documentation of this file.
  1. BGPM5AKF ;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,"889,63739002710 ",.01)
  1. ;;63739002710
  1. ;;9002226.02101,"889,63739002710 ",.02)
  1. ;;63739002710
  1. ;;9002226.02101,"889,63739002810 ",.01)
  1. ;;63739002810
  1. ;;9002226.02101,"889,63739002810 ",.02)
  1. ;;63739002810
  1. ;;9002226.02101,"889,63739036610 ",.01)
  1. ;;63739036610
  1. ;;9002226.02101,"889,63739036610 ",.02)
  1. ;;63739036610
  1. ;;9002226.02101,"889,63739040510 ",.01)
  1. ;;63739040510
  1. ;;9002226.02101,"889,63739040510 ",.02)
  1. ;;63739040510
  1. ;;9002226.02101,"889,63739042810 ",.01)
  1. ;;63739042810
  1. ;;9002226.02101,"889,63739042810 ",.02)
  1. ;;63739042810
  1. ;;9002226.02101,"889,63775071700 ",.01)
  1. ;;63775071700
  1. ;;9002226.02101,"889,63775071700 ",.02)
  1. ;;63775071700
  1. ;;9002226.02101,"889,63775071701 ",.01)
  1. ;;63775071701
  1. ;;9002226.02101,"889,63775071701 ",.02)
  1. ;;63775071701
  1. ;;9002226.02101,"889,63775071702 ",.01)
  1. ;;63775071702
  1. ;;9002226.02101,"889,63775071702 ",.02)
  1. ;;63775071702
  1. ;;9002226.02101,"889,63775071703 ",.01)
  1. ;;63775071703
  1. ;;9002226.02101,"889,63775071703 ",.02)
  1. ;;63775071703
  1. ;;9002226.02101,"889,63874033201 ",.01)
  1. ;;63874033201
  1. ;;9002226.02101,"889,63874033201 ",.02)
  1. ;;63874033201
  1. ;;9002226.02101,"889,63874033202 ",.01)
  1. ;;63874033202
  1. ;;9002226.02101,"889,63874033202 ",.02)
  1. ;;63874033202
  1. ;;9002226.02101,"889,63874033207 ",.01)
  1. ;;63874033207
  1. ;;9002226.02101,"889,63874033207 ",.02)
  1. ;;63874033207
  1. ;;9002226.02101,"889,63874033210 ",.01)
  1. ;;63874033210
  1. ;;9002226.02101,"889,63874033210 ",.02)
  1. ;;63874033210
  1. ;;9002226.02101,"889,63874033214 ",.01)
  1. ;;63874033214
  1. ;;9002226.02101,"889,63874033214 ",.02)
  1. ;;63874033214
  1. ;;9002226.02101,"889,63874033215 ",.01)
  1. ;;63874033215
  1. ;;9002226.02101,"889,63874033215 ",.02)
  1. ;;63874033215
  1. ;;9002226.02101,"889,63874033220 ",.01)
  1. ;;63874033220
  1. ;;9002226.02101,"889,63874033220 ",.02)
  1. ;;63874033220
  1. ;;9002226.02101,"889,63874033230 ",.01)
  1. ;;63874033230
  1. ;;9002226.02101,"889,63874033230 ",.02)
  1. ;;63874033230
  1. ;;9002226.02101,"889,63874033260 ",.01)
  1. ;;63874033260
  1. ;;9002226.02101,"889,63874033260 ",.02)
  1. ;;63874033260
  1. ;;9002226.02101,"889,63874033290 ",.01)
  1. ;;63874033290
  1. ;;9002226.02101,"889,63874033290 ",.02)
  1. ;;63874033290
  1. ;;9002226.02101,"889,63874036801 ",.01)
  1. ;;63874036801
  1. ;;9002226.02101,"889,63874036801 ",.02)
  1. ;;63874036801
  1. ;;9002226.02101,"889,63874036802 ",.01)
  1. ;;63874036802
  1. ;;9002226.02101,"889,63874036802 ",.02)
  1. ;;63874036802
  1. ;;9002226.02101,"889,63874036815 ",.01)
  1. ;;63874036815
  1. ;;9002226.02101,"889,63874036815 ",.02)
  1. ;;63874036815
  1. ;;9002226.02101,"889,63874036820 ",.01)
  1. ;;63874036820
  1. ;;9002226.02101,"889,63874036820 ",.02)
  1. ;;63874036820
  1. ;;9002226.02101,"889,63874036828 ",.01)
  1. ;;63874036828
  1. ;;9002226.02101,"889,63874036828 ",.02)
  1. ;;63874036828
  1. ;;9002226.02101,"889,63874036830 ",.01)
  1. ;;63874036830
  1. ;;9002226.02101,"889,63874036830 ",.02)
  1. ;;63874036830
  1. ;;9002226.02101,"889,63874036860 ",.01)
  1. ;;63874036860
  1. ;;9002226.02101,"889,63874036860 ",.02)
  1. ;;63874036860
  1. ;;9002226.02101,"889,63874038801 ",.01)
  1. ;;63874038801
  1. ;;9002226.02101,"889,63874038801 ",.02)
  1. ;;63874038801
  1. ;;9002226.02101,"889,63874038807 ",.01)
  1. ;;63874038807
  1. ;;9002226.02101,"889,63874038807 ",.02)
  1. ;;63874038807
  1. ;;9002226.02101,"889,63874038810 ",.01)
  1. ;;63874038810
  1. ;;9002226.02101,"889,63874038810 ",.02)
  1. ;;63874038810
  1. ;;9002226.02101,"889,63874038812 ",.01)
  1. ;;63874038812
  1. ;;9002226.02101,"889,63874038812 ",.02)
  1. ;;63874038812
  1. ;;9002226.02101,"889,63874038815 ",.01)
  1. ;;63874038815
  1. ;;9002226.02101,"889,63874038815 ",.02)
  1. ;;63874038815
  1. ;;9002226.02101,"889,63874038820 ",.01)
  1. ;;63874038820
  1. ;;9002226.02101,"889,63874038820 ",.02)
  1. ;;63874038820
  1. ;;9002226.02101,"889,63874038830 ",.01)
  1. ;;63874038830
  1. ;;9002226.02101,"889,63874038830 ",.02)
  1. ;;63874038830
  1. ;;9002226.02101,"889,63874040601 ",.01)
  1. ;;63874040601
  1. ;;9002226.02101,"889,63874040601 ",.02)
  1. ;;63874040601
  1. ;;9002226.02101,"889,63874040610 ",.01)
  1. ;;63874040610
  1. ;;9002226.02101,"889,63874040610 ",.02)
  1. ;;63874040610
  1. ;;9002226.02101,"889,63874040614 ",.01)
  1. ;;63874040614
  1. ;;9002226.02101,"889,63874040614 ",.02)
  1. ;;63874040614
  1. ;;9002226.02101,"889,63874040615 ",.01)
  1. ;;63874040615
  1. ;;9002226.02101,"889,63874040615 ",.02)
  1. ;;63874040615
  1. ;;9002226.02101,"889,63874040620 ",.01)
  1. ;;63874040620
  1. ;;9002226.02101,"889,63874040620 ",.02)
  1. ;;63874040620
  1. ;;9002226.02101,"889,63874040628 ",.01)
  1. ;;63874040628
  1. ;;9002226.02101,"889,63874040628 ",.02)
  1. ;;63874040628
  1. ;;9002226.02101,"889,63874040630 ",.01)
  1. ;;63874040630
  1. ;;9002226.02101,"889,63874040630 ",.02)
  1. ;;63874040630
  1. ;;9002226.02101,"889,63874040660 ",.01)
  1. ;;63874040660
  1. ;;9002226.02101,"889,63874040660 ",.02)
  1. ;;63874040660
  1. ;;9002226.02101,"889,63874040701 ",.01)
  1. ;;63874040701
  1. ;;9002226.02101,"889,63874040701 ",.02)
  1. ;;63874040701
  1. ;;9002226.02101,"889,63874040710 ",.01)
  1. ;;63874040710
  1. ;;9002226.02101,"889,63874040710 ",.02)
  1. ;;63874040710
  1. ;;9002226.02101,"889,63874040715 ",.01)
  1. ;;63874040715
  1. ;;9002226.02101,"889,63874040715 ",.02)
  1. ;;63874040715
  1. ;;9002226.02101,"889,63874040720 ",.01)
  1. ;;63874040720
  1. ;;9002226.02101,"889,63874040720 ",.02)
  1. ;;63874040720
  1. ;;9002226.02101,"889,63874040730 ",.01)
  1. ;;63874040730
  1. ;;9002226.02101,"889,63874040730 ",.02)
  1. ;;63874040730
  1. ;;9002226.02101,"889,63874040760 ",.01)
  1. ;;63874040760
  1. ;;9002226.02101,"889,63874040760 ",.02)
  1. ;;63874040760
  1. ;;9002226.02101,"889,63874040790 ",.01)
  1. ;;63874040790
  1. ;;9002226.02101,"889,63874040790 ",.02)
  1. ;;63874040790
  1. ;;9002226.02101,"889,63874045401 ",.01)
  1. ;;63874045401
  1. ;;9002226.02101,"889,63874045401 ",.02)
  1. ;;63874045401
  1. ;;9002226.02101,"889,63874045402 ",.01)
  1. ;;63874045402
  1. ;;9002226.02101,"889,63874045402 ",.02)
  1. ;;63874045402
  1. ;;9002226.02101,"889,63874045404 ",.01)
  1. ;;63874045404
  1. ;;9002226.02101,"889,63874045404 ",.02)
  1. ;;63874045404
  1. ;;9002226.02101,"889,63874045415 ",.01)
  1. ;;63874045415
  1. ;;9002226.02101,"889,63874045415 ",.02)
  1. ;;63874045415
  1. ;;9002226.02101,"889,63874045420 ",.01)
  1. ;;63874045420
  1. ;;9002226.02101,"889,63874045420 ",.02)
  1. ;;63874045420
  1. ;;9002226.02101,"889,63874045430 ",.01)
  1. ;;63874045430
  1. ;;9002226.02101,"889,63874045430 ",.02)
  1. ;;63874045430
  1. ;;9002226.02101,"889,63874045460 ",.01)
  1. ;;63874045460
  1. ;;9002226.02101,"889,63874045460 ",.02)
  1. ;;63874045460
  1. ;;9002226.02101,"889,63874046801 ",.01)
  1. ;;63874046801
  1. ;;9002226.02101,"889,63874046801 ",.02)
  1. ;;63874046801
  1. ;;9002226.02101,"889,63874046810 ",.01)
  1. ;;63874046810
  1. ;;9002226.02101,"889,63874046810 ",.02)
  1. ;;63874046810
  1. ;;9002226.02101,"889,63874046814 ",.01)
  1. ;;63874046814
  1. ;;9002226.02101,"889,63874046814 ",.02)
  1. ;;63874046814
  1. ;;9002226.02101,"889,63874046815 ",.01)
  1. ;;63874046815
  1. ;;9002226.02101,"889,63874046815 ",.02)
  1. ;;63874046815
  1. ;;9002226.02101,"889,63874046820 ",.01)
  1. ;;63874046820
  1. ;;9002226.02101,"889,63874046820 ",.02)
  1. ;;63874046820
  1. ;;9002226.02101,"889,63874046830 ",.01)
  1. ;;63874046830
  1. ;;9002226.02101,"889,63874046830 ",.02)
  1. ;;63874046830
  1. ;;9002226.02101,"889,63874046860 ",.01)
  1. ;;63874046860
  1. ;;9002226.02101,"889,63874046860 ",.02)
  1. ;;63874046860
  1. ;;9002226.02101,"889,63874046890 ",.01)
  1. ;;63874046890
  1. ;;9002226.02101,"889,63874046890 ",.02)
  1. ;;63874046890
  1. ;;9002226.02101,"889,63874048601 ",.01)
  1. ;;63874048601
  1. ;;9002226.02101,"889,63874048601 ",.02)
  1. ;;63874048601
  1. ;;9002226.02101,"889,63874048602 ",.01)
  1. ;;63874048602
  1. ;;9002226.02101,"889,63874048602 ",.02)
  1. ;;63874048602
  1. ;;9002226.02101,"889,63874048615 ",.01)
  1. ;;63874048615
  1. ;;9002226.02101,"889,63874048615 ",.02)
  1. ;;63874048615
  1. ;;9002226.02101,"889,63874048630 ",.01)
  1. ;;63874048630
  1. ;;9002226.02101,"889,63874048630 ",.02)
  1. ;;63874048630
  1. ;;9002226.02101,"889,63874048640 ",.01)
  1. ;;63874048640
  1. ;;9002226.02101,"889,63874048640 ",.02)
  1. ;;63874048640
  1. ;;9002226.02101,"889,63874048660 ",.01)
  1. ;;63874048660
  1. ;;9002226.02101,"889,63874048660 ",.02)
  1. ;;63874048660
  1. ;;9002226.02101,"889,63874067601 ",.01)
  1. ;;63874067601
  1. ;;9002226.02101,"889,63874067601 ",.02)
  1. ;;63874067601
  1. ;;9002226.02101,"889,63874067612 ",.01)
  1. ;;63874067612
  1. ;;9002226.02101,"889,63874067612 ",.02)
  1. ;;63874067612
  1. ;;9002226.02101,"889,63874067615 ",.01)
  1. ;;63874067615
  1. ;;9002226.02101,"889,63874067615 ",.02)
  1. ;;63874067615
  1. ;;9002226.02101,"889,63874067620 ",.01)
  1. ;;63874067620
  1. ;;9002226.02101,"889,63874067620 ",.02)
  1. ;;63874067620
  1. ;;9002226.02101,"889,64376050201 ",.01)
  1. ;;64376050201
  1. ;;9002226.02101,"889,64376050201 ",.02)
  1. ;;64376050201
  1. ;;9002226.02101,"889,64376050210 ",.01)
  1. ;;64376050210
  1. ;;9002226.02101,"889,64376050210 ",.02)
  1. ;;64376050210
  1. ;;9002226.02101,"889,64376050301 ",.01)
  1. ;;64376050301
  1. ;;9002226.02101,"889,64376050301 ",.02)
  1. ;;64376050301
  1. ;;9002226.02101,"889,64376050310 ",.01)
  1. ;;64376050310
  1. ;;9002226.02101,"889,64376050310 ",.02)
  1. ;;64376050310
  1. ;;9002226.02101,"889,64579038600 ",.01)
  1. ;;64579038600
  1. ;;9002226.02101,"889,64579038600 ",.02)
  1. ;;64579038600
  1. ;;9002226.02101,"889,64579038601 ",.01)
  1. ;;64579038601
  1. ;;9002226.02101,"889,64579038601 ",.02)
  1. ;;64579038601
  1. ;;9002226.02101,"889,64725003203 ",.01)
  1. ;;64725003203
  1. ;;9002226.02101,"889,64725003203 ",.02)
  1. ;;64725003203
  1. ;;9002226.02101,"889,64725021303 ",.01)
  1. ;;64725021303
  1. ;;9002226.02101,"889,64725021303 ",.02)
  1. ;;64725021303
  1. ;;9002226.02101,"889,64725021403 ",.01)
  1. ;;64725021403
  1. ;;9002226.02101,"889,64725021403 ",.02)
  1. ;;64725021403
  1. ;;9002226.02101,"889,64725027403 ",.01)
  1. ;;64725027403
  1. ;;9002226.02101,"889,64725027403 ",.02)
  1. ;;64725027403
  1. ;;9002226.02101,"889,64725027503 ",.01)
  1. ;;64725027503
  1. ;;9002226.02101,"889,64725027503 ",.02)
  1. ;;64725027503
  1. ;;9002226.02101,"889,64725027603 ",.01)
  1. ;;64725027603
  1. ;;9002226.02101,"889,64725027603 ",.02)
  1. ;;64725027603
  1. ;;9002226.02101,"889,64725039103 ",.01)
  1. ;;64725039103
  1. ;;9002226.02101,"889,64725039103 ",.02)
  1. ;;64725039103
  1. ;;9002226.02101,"889,65084028410 ",.01)
  1. ;;65084028410
  1. ;;9002226.02101,"889,65084028410 ",.02)
  1. ;;65084028410
  1. ;;9002226.02101,"889,65084035218 ",.01)
  1. ;;65084035218
  1. ;;9002226.02101,"889,65084035218 ",.02)
  1. ;;65084035218
  1. ;;9002226.02101,"889,65084035318 ",.01)
  1. ;;65084035318
  1. ;;9002226.02101,"889,65084035318 ",.02)
  1. ;;65084035318
  1. ;;9002226.02101,"889,65243001403 ",.01)
  1. ;;65243001403
  1. ;;9002226.02101,"889,65243001403 ",.02)
  1. ;;65243001403
  1. ;;9002226.02101,"889,65243001406 ",.01)
  1. ;;65243001406
  1. ;;9002226.02101,"889,65243001406 ",.02)
  1. ;;65243001406
  1. ;;9002226.02101,"889,65243001409 ",.01)
  1. ;;65243001409
  1. ;;9002226.02101,"889,65243001409 ",.02)
  1. ;;65243001409
  1. ;;9002226.02101,"889,65243001418 ",.01)
  1. ;;65243001418
  1. ;;9002226.02101,"889,65243001418 ",.02)
  1. ;;65243001418
  1. ;;9002226.02101,"889,65243001445 ",.01)
  1. ;;65243001445
  1. ;;9002226.02101,"889,65243001445 ",.02)
  1. ;;65243001445
  1. ;;9002226.02101,"889,65243004803 ",.01)
  1. ;;65243004803
  1. ;;9002226.02101,"889,65243004803 ",.02)
  1. ;;65243004803
  1. ;;9002226.02101,"889,65243004806 ",.01)
  1. ;;65243004806
  1. ;;9002226.02101,"889,65243004806 ",.02)
  1. ;;65243004806
  1. ;;9002226.02101,"889,65243004809 ",.01)
  1. ;;65243004809
  1. ;;9002226.02101,"889,65243004809 ",.02)
  1. ;;65243004809
  1. ;;9002226.02101,"889,65243004812 ",.01)
  1. ;;65243004812
  1. ;;9002226.02101,"889,65243004812 ",.02)
  1. ;;65243004812
  1. ;;9002226.02101,"889,65243004818 ",.01)
  1. ;;65243004818
  1. ;;9002226.02101,"889,65243004818 ",.02)
  1. ;;65243004818
  1. ;;9002226.02101,"889,65243004827 ",.01)
  1. ;;65243004827
  1. ;;9002226.02101,"889,65243004827 ",.02)
  1. ;;65243004827
  1. ;;9002226.02101,"889,65243004845 ",.01)
  1. ;;65243004845
  1. ;;9002226.02101,"889,65243004845 ",.02)
  1. ;;65243004845
  1. ;;9002226.02101,"889,65243009103 ",.01)
  1. ;;65243009103
  1. ;;9002226.02101,"889,65243009103 ",.02)
  1. ;;65243009103