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