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

BGPM3ACT.m

Go to the documentation of this file.
  1. BGPM3ACT ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
  1. ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
  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,"786,00904598861 ",.02)
  1. ;;00904598861
  1. ;;9002226.02101,"786,00904773240 ",.01)
  1. ;;00904773240
  1. ;;9002226.02101,"786,00904773240 ",.02)
  1. ;;00904773240
  1. ;;9002226.02101,"786,00904773252 ",.01)
  1. ;;00904773252
  1. ;;9002226.02101,"786,00904773252 ",.02)
  1. ;;00904773252
  1. ;;9002226.02101,"786,06059800701 ",.01)
  1. ;;06059800701
  1. ;;9002226.02101,"786,06059800701 ",.02)
  1. ;;06059800701
  1. ;;9002226.02101,"786,10135018601 ",.01)
  1. ;;10135018601
  1. ;;9002226.02101,"786,10135018601 ",.02)
  1. ;;10135018601
  1. ;;9002226.02101,"786,10135018610 ",.01)
  1. ;;10135018610
  1. ;;9002226.02101,"786,10135018610 ",.02)
  1. ;;10135018610
  1. ;;9002226.02101,"786,10135018801 ",.01)
  1. ;;10135018801
  1. ;;9002226.02101,"786,10135018801 ",.02)
  1. ;;10135018801
  1. ;;9002226.02101,"786,10135018901 ",.01)
  1. ;;10135018901
  1. ;;9002226.02101,"786,10135018901 ",.02)
  1. ;;10135018901
  1. ;;9002226.02101,"786,10135019199 ",.01)
  1. ;;10135019199
  1. ;;9002226.02101,"786,10135019199 ",.02)
  1. ;;10135019199
  1. ;;9002226.02101,"786,10135019201 ",.01)
  1. ;;10135019201
  1. ;;9002226.02101,"786,10135019201 ",.02)
  1. ;;10135019201
  1. ;;9002226.02101,"786,10135019210 ",.01)
  1. ;;10135019210
  1. ;;9002226.02101,"786,10135019210 ",.02)
  1. ;;10135019210
  1. ;;9002226.02101,"786,10135050805 ",.01)
  1. ;;10135050805
  1. ;;9002226.02101,"786,10135050805 ",.02)
  1. ;;10135050805
  1. ;;9002226.02101,"786,10135050890 ",.01)
  1. ;;10135050890
  1. ;;9002226.02101,"786,10135050890 ",.02)
  1. ;;10135050890
  1. ;;9002226.02101,"786,10135050905 ",.01)
  1. ;;10135050905
  1. ;;9002226.02101,"786,10135050905 ",.02)
  1. ;;10135050905
  1. ;;9002226.02101,"786,10135050930 ",.01)
  1. ;;10135050930
  1. ;;9002226.02101,"786,10135050930 ",.02)
  1. ;;10135050930
  1. ;;9002226.02101,"786,10135050990 ",.01)
  1. ;;10135050990
  1. ;;9002226.02101,"786,10135050990 ",.02)
  1. ;;10135050990
  1. ;;9002226.02101,"786,10135051005 ",.01)
  1. ;;10135051005
  1. ;;9002226.02101,"786,10135051005 ",.02)
  1. ;;10135051005
  1. ;;9002226.02101,"786,10135051030 ",.01)
  1. ;;10135051030
  1. ;;9002226.02101,"786,10135051030 ",.02)
  1. ;;10135051030
  1. ;;9002226.02101,"786,10135051090 ",.01)
  1. ;;10135051090
  1. ;;9002226.02101,"786,10135051090 ",.02)
  1. ;;10135051090
  1. ;;9002226.02101,"786,10135051105 ",.01)
  1. ;;10135051105
  1. ;;9002226.02101,"786,10135051105 ",.02)
  1. ;;10135051105
  1. ;;9002226.02101,"786,10135051130 ",.01)
  1. ;;10135051130
  1. ;;9002226.02101,"786,10135051130 ",.02)
  1. ;;10135051130
  1. ;;9002226.02101,"786,10135051190 ",.01)
  1. ;;10135051190
  1. ;;9002226.02101,"786,10135051190 ",.02)
  1. ;;10135051190
  1. ;;9002226.02101,"786,10135051205 ",.01)
  1. ;;10135051205
  1. ;;9002226.02101,"786,10135051205 ",.02)
  1. ;;10135051205
  1. ;;9002226.02101,"786,10135051230 ",.01)
  1. ;;10135051230
  1. ;;9002226.02101,"786,10135051230 ",.02)
  1. ;;10135051230
  1. ;;9002226.02101,"786,10135051290 ",.01)
  1. ;;10135051290
  1. ;;9002226.02101,"786,10135051290 ",.02)
  1. ;;10135051290
  1. ;;9002226.02101,"786,10267005300 ",.01)
  1. ;;10267005300
  1. ;;9002226.02101,"786,10267005300 ",.02)
  1. ;;10267005300
  1. ;;9002226.02101,"786,10432003801 ",.01)
  1. ;;10432003801
  1. ;;9002226.02101,"786,10432003801 ",.02)
  1. ;;10432003801
  1. ;;9002226.02101,"786,10432013301 ",.01)
  1. ;;10432013301
  1. ;;9002226.02101,"786,10432013301 ",.02)
  1. ;;10432013301
  1. ;;9002226.02101,"786,10432030201 ",.01)
  1. ;;10432030201
  1. ;;9002226.02101,"786,10432030201 ",.02)
  1. ;;10432030201
  1. ;;9002226.02101,"786,10544015230 ",.01)
  1. ;;10544015230
  1. ;;9002226.02101,"786,10544015230 ",.02)
  1. ;;10544015230
  1. ;;9002226.02101,"786,11014050520 ",.01)
  1. ;;11014050520
  1. ;;9002226.02101,"786,11014050520 ",.02)
  1. ;;11014050520
  1. ;;9002226.02101,"786,11383012323 ",.01)
  1. ;;11383012323
  1. ;;9002226.02101,"786,11383012323 ",.02)
  1. ;;11383012323
  1. ;;9002226.02101,"786,11383014711 ",.01)
  1. ;;11383014711
  1. ;;9002226.02101,"786,11383014711 ",.02)
  1. ;;11383014711
  1. ;;9002226.02101,"786,11694074201 ",.01)
  1. ;;11694074201
  1. ;;9002226.02101,"786,11694074201 ",.02)
  1. ;;11694074201
  1. ;;9002226.02101,"786,11694086101 ",.01)
  1. ;;11694086101
  1. ;;9002226.02101,"786,11694086101 ",.02)
  1. ;;11694086101
  1. ;;9002226.02101,"786,11694086104 ",.01)
  1. ;;11694086104
  1. ;;9002226.02101,"786,11694086104 ",.02)
  1. ;;11694086104
  1. ;;9002226.02101,"786,11694088101 ",.01)
  1. ;;11694088101
  1. ;;9002226.02101,"786,11694088101 ",.02)
  1. ;;11694088101
  1. ;;9002226.02101,"786,11819011395 ",.01)
  1. ;;11819011395
  1. ;;9002226.02101,"786,11819011395 ",.02)
  1. ;;11819011395
  1. ;;9002226.02101,"786,11819013030 ",.01)
  1. ;;11819013030
  1. ;;9002226.02101,"786,11819013030 ",.02)
  1. ;;11819013030
  1. ;;9002226.02101,"786,11819013530 ",.01)
  1. ;;11819013530
  1. ;;9002226.02101,"786,11819013530 ",.02)
  1. ;;11819013530
  1. ;;9002226.02101,"786,11819013590 ",.01)
  1. ;;11819013590
  1. ;;9002226.02101,"786,11819013590 ",.02)
  1. ;;11819013590
  1. ;;9002226.02101,"786,11819025630 ",.01)
  1. ;;11819025630
  1. ;;9002226.02101,"786,11819025630 ",.02)
  1. ;;11819025630
  1. ;;9002226.02101,"786,11819025645 ",.01)
  1. ;;11819025645
  1. ;;9002226.02101,"786,11819025645 ",.02)
  1. ;;11819025645
  1. ;;9002226.02101,"786,11819025690 ",.01)
  1. ;;11819025690
  1. ;;9002226.02101,"786,11819025690 ",.02)
  1. ;;11819025690
  1. ;;9002226.02101,"786,11845005781 ",.01)
  1. ;;11845005781
  1. ;;9002226.02101,"786,11845005781 ",.02)
  1. ;;11845005781
  1. ;;9002226.02101,"786,11845008825 ",.01)
  1. ;;11845008825
  1. ;;9002226.02101,"786,11845008825 ",.02)
  1. ;;11845008825
  1. ;;9002226.02101,"786,11845009401 ",.01)
  1. ;;11845009401
  1. ;;9002226.02101,"786,11845009401 ",.02)
  1. ;;11845009401
  1. ;;9002226.02101,"786,11845057701 ",.01)
  1. ;;11845057701
  1. ;;9002226.02101,"786,11845057701 ",.02)
  1. ;;11845057701
  1. ;;9002226.02101,"786,11845057801 ",.01)
  1. ;;11845057801
  1. ;;9002226.02101,"786,11845057801 ",.02)
  1. ;;11845057801
  1. ;;9002226.02101,"786,11845074201 ",.01)
  1. ;;11845074201
  1. ;;9002226.02101,"786,11845074201 ",.02)
  1. ;;11845074201
  1. ;;9002226.02101,"786,11845094101 ",.01)
  1. ;;11845094101
  1. ;;9002226.02101,"786,11845094101 ",.02)
  1. ;;11845094101
  1. ;;9002226.02101,"786,11845095201 ",.01)
  1. ;;11845095201
  1. ;;9002226.02101,"786,11845095201 ",.02)
  1. ;;11845095201
  1. ;;9002226.02101,"786,11845107501 ",.01)
  1. ;;11845107501
  1. ;;9002226.02101,"786,11845107501 ",.02)
  1. ;;11845107501
  1. ;;9002226.02101,"786,12280010860 ",.01)
  1. ;;12280010860
  1. ;;9002226.02101,"786,12280010860 ",.02)
  1. ;;12280010860
  1. ;;9002226.02101,"786,12634033001 ",.01)
  1. ;;12634033001
  1. ;;9002226.02101,"786,12634033001 ",.02)
  1. ;;12634033001
  1. ;;9002226.02101,"786,12634033210 ",.01)
  1. ;;12634033210
  1. ;;9002226.02101,"786,12634033210 ",.02)
  1. ;;12634033210
  1. ;;9002226.02101,"786,12634033301 ",.01)
  1. ;;12634033301
  1. ;;9002226.02101,"786,12634033301 ",.02)
  1. ;;12634033301
  1. ;;9002226.02101,"786,12634071501 ",.01)
  1. ;;12634071501
  1. ;;9002226.02101,"786,12634071501 ",.02)
  1. ;;12634071501
  1. ;;9002226.02101,"786,12634071505 ",.01)
  1. ;;12634071505
  1. ;;9002226.02101,"786,12634071505 ",.02)
  1. ;;12634071505
  1. ;;9002226.02101,"786,12634082390 ",.01)
  1. ;;12634082390
  1. ;;9002226.02101,"786,12634082390 ",.02)
  1. ;;12634082390
  1. ;;9002226.02101,"786,13411016703 ",.01)
  1. ;;13411016703
  1. ;;9002226.02101,"786,13411016703 ",.02)
  1. ;;13411016703
  1. ;;9002226.02101,"786,13411016710 ",.01)
  1. ;;13411016710
  1. ;;9002226.02101,"786,13411016710 ",.02)
  1. ;;13411016710
  1. ;;9002226.02101,"786,13411054403 ",.01)
  1. ;;13411054403
  1. ;;9002226.02101,"786,13411054403 ",.02)
  1. ;;13411054403
  1. ;;9002226.02101,"786,13411054503 ",.01)
  1. ;;13411054503
  1. ;;9002226.02101,"786,13411054503 ",.02)
  1. ;;13411054503
  1. ;;9002226.02101,"786,13411054603 ",.01)
  1. ;;13411054603
  1. ;;9002226.02101,"786,13411054603 ",.02)
  1. ;;13411054603
  1. ;;9002226.02101,"786,14508011513 ",.01)
  1. ;;14508011513
  1. ;;9002226.02101,"786,14508011513 ",.02)
  1. ;;14508011513
  1. ;;9002226.02101,"786,14508011518 ",.01)
  1. ;;14508011518
  1. ;;9002226.02101,"786,14508011518 ",.02)
  1. ;;14508011518
  1. ;;9002226.02101,"786,14508011586 ",.01)
  1. ;;14508011586
  1. ;;9002226.02101,"786,14508011586 ",.02)
  1. ;;14508011586
  1. ;;9002226.02101,"786,14550051401 ",.01)
  1. ;;14550051401
  1. ;;9002226.02101,"786,14550051401 ",.02)
  1. ;;14550051401
  1. ;;9002226.02101,"786,14550051404 ",.01)
  1. ;;14550051404
  1. ;;9002226.02101,"786,14550051404 ",.02)
  1. ;;14550051404
  1. ;;9002226.02101,"786,14550051501 ",.01)
  1. ;;14550051501
  1. ;;9002226.02101,"786,14550051501 ",.02)
  1. ;;14550051501
  1. ;;9002226.02101,"786,14550051504 ",.01)
  1. ;;14550051504
  1. ;;9002226.02101,"786,14550051504 ",.02)
  1. ;;14550051504
  1. ;;9002226.02101,"786,14550051601 ",.01)
  1. ;;14550051601
  1. ;;9002226.02101,"786,14550051601 ",.02)
  1. ;;14550051601
  1. ;;9002226.02101,"786,14550051604 ",.01)
  1. ;;14550051604
  1. ;;9002226.02101,"786,14550051604 ",.02)
  1. ;;14550051604
  1. ;;9002226.02101,"786,16252050530 ",.01)
  1. ;;16252050530
  1. ;;9002226.02101,"786,16252050530 ",.02)
  1. ;;16252050530
  1. ;;9002226.02101,"786,16252050550 ",.01)
  1. ;;16252050550
  1. ;;9002226.02101,"786,16252050550 ",.02)
  1. ;;16252050550
  1. ;;9002226.02101,"786,16252050590 ",.01)
  1. ;;16252050590
  1. ;;9002226.02101,"786,16252050590 ",.02)
  1. ;;16252050590
  1. ;;9002226.02101,"786,16252050600 ",.01)
  1. ;;16252050600
  1. ;;9002226.02101,"786,16252050600 ",.02)
  1. ;;16252050600
  1. ;;9002226.02101,"786,16252050630 ",.01)
  1. ;;16252050630
  1. ;;9002226.02101,"786,16252050630 ",.02)
  1. ;;16252050630
  1. ;;9002226.02101,"786,16252050650 ",.01)
  1. ;;16252050650
  1. ;;9002226.02101,"786,16252050650 ",.02)
  1. ;;16252050650
  1. ;;9002226.02101,"786,16252050690 ",.01)
  1. ;;16252050690
  1. ;;9002226.02101,"786,16252050690 ",.02)
  1. ;;16252050690
  1. ;;9002226.02101,"786,16252050700 ",.01)
  1. ;;16252050700
  1. ;;9002226.02101,"786,16252050700 ",.02)
  1. ;;16252050700
  1. ;;9002226.02101,"786,16252050730 ",.01)
  1. ;;16252050730
  1. ;;9002226.02101,"786,16252050730 ",.02)
  1. ;;16252050730
  1. ;;9002226.02101,"786,16252050750 ",.01)
  1. ;;16252050750
  1. ;;9002226.02101,"786,16252050750 ",.02)
  1. ;;16252050750
  1. ;;9002226.02101,"786,16252050790 ",.01)
  1. ;;16252050790
  1. ;;9002226.02101,"786,16252050790 ",.02)
  1. ;;16252050790
  1. ;;9002226.02101,"786,16252050800 ",.01)
  1. ;;16252050800
  1. ;;9002226.02101,"786,16252050800 ",.02)
  1. ;;16252050800
  1. ;;9002226.02101,"786,16252050830 ",.01)
  1. ;;16252050830
  1. ;;9002226.02101,"786,16252050830 ",.02)
  1. ;;16252050830
  1. ;;9002226.02101,"786,16252050850 ",.01)
  1. ;;16252050850
  1. ;;9002226.02101,"786,16252050850 ",.02)
  1. ;;16252050850
  1. ;;9002226.02101,"786,16252050890 ",.01)
  1. ;;16252050890
  1. ;;9002226.02101,"786,16252050890 ",.02)
  1. ;;16252050890
  1. ;;9002226.02101,"786,16252050900 ",.01)
  1. ;;16252050900
  1. ;;9002226.02101,"786,16252050900 ",.02)
  1. ;;16252050900
  1. ;;9002226.02101,"786,16252050930 ",.01)
  1. ;;16252050930
  1. ;;9002226.02101,"786,16252050930 ",.02)
  1. ;;16252050930
  1. ;;9002226.02101,"786,16252050950 ",.01)
  1. ;;16252050950
  1. ;;9002226.02101,"786,16252050950 ",.02)
  1. ;;16252050950
  1. ;;9002226.02101,"786,16252050990 ",.01)
  1. ;;16252050990
  1. ;;9002226.02101,"786,16252050990 ",.02)
  1. ;;16252050990
  1. ;;9002226.02101,"786,16364000410 ",.01)
  1. ;;16364000410
  1. ;;9002226.02101,"786,16364000410 ",.02)
  1. ;;16364000410
  1. ;;9002226.02101,"786,16364000412 ",.01)
  1. ;;16364000412
  1. ;;9002226.02101,"786,16364000412 ",.02)
  1. ;;16364000412
  1. ;;9002226.02101,"786,16364000415 ",.01)
  1. ;;16364000415
  1. ;;9002226.02101,"786,16364000415 ",.02)
  1. ;;16364000415
  1. ;;9002226.02101,"786,16364000417 ",.01)
  1. ;;16364000417
  1. ;;9002226.02101,"786,16364000417 ",.02)
  1. ;;16364000417
  1. ;;9002226.02101,"786,16364000510 ",.01)
  1. ;;16364000510
  1. ;;9002226.02101,"786,16364000510 ",.02)
  1. ;;16364000510
  1. ;;9002226.02101,"786,16364000512 ",.01)
  1. ;;16364000512
  1. ;;9002226.02101,"786,16364000512 ",.02)
  1. ;;16364000512
  1. ;;9002226.02101,"786,16364000515 ",.01)
  1. ;;16364000515
  1. ;;9002226.02101,"786,16364000515 ",.02)
  1. ;;16364000515
  1. ;;9002226.02101,"786,16364000517 ",.01)
  1. ;;16364000517
  1. ;;9002226.02101,"786,16364000517 ",.02)
  1. ;;16364000517
  1. ;;9002226.02101,"786,16364000610 ",.01)
  1. ;;16364000610
  1. ;;9002226.02101,"786,16364000610 ",.02)
  1. ;;16364000610
  1. ;;9002226.02101,"786,16364000612 ",.01)
  1. ;;16364000612