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

BGPM5AWC.m

Go to the documentation of this file.
BGPM5AWC ;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,58864076720 ",.02)
 ;;58864076720
 ;;9002226.02101,"1033,58864076721 ",.01)
 ;;58864076721
 ;;9002226.02101,"1033,58864076721 ",.02)
 ;;58864076721
 ;;9002226.02101,"1033,58864076730 ",.01)
 ;;58864076730
 ;;9002226.02101,"1033,58864076730 ",.02)
 ;;58864076730
 ;;9002226.02101,"1033,58864077730 ",.01)
 ;;58864077730
 ;;9002226.02101,"1033,58864077730 ",.02)
 ;;58864077730
 ;;9002226.02101,"1033,58864079106 ",.01)
 ;;58864079106
 ;;9002226.02101,"1033,58864079106 ",.02)
 ;;58864079106
 ;;9002226.02101,"1033,58864080606 ",.01)
 ;;58864080606
 ;;9002226.02101,"1033,58864080606 ",.02)
 ;;58864080606
 ;;9002226.02101,"1033,58864080614 ",.01)
 ;;58864080614
 ;;9002226.02101,"1033,58864080614 ",.02)
 ;;58864080614
 ;;9002226.02101,"1033,58864080620 ",.01)
 ;;58864080620
 ;;9002226.02101,"1033,58864080620 ",.02)
 ;;58864080620
 ;;9002226.02101,"1033,58864083310 ",.01)
 ;;58864083310
 ;;9002226.02101,"1033,58864083310 ",.02)
 ;;58864083310
 ;;9002226.02101,"1033,58864083320 ",.01)
 ;;58864083320
 ;;9002226.02101,"1033,58864083320 ",.02)
 ;;58864083320
 ;;9002226.02101,"1033,58864083720 ",.01)
 ;;58864083720
 ;;9002226.02101,"1033,58864083720 ",.02)
 ;;58864083720
 ;;9002226.02101,"1033,58864084830 ",.01)
 ;;58864084830
 ;;9002226.02101,"1033,58864084830 ",.02)
 ;;58864084830
 ;;9002226.02101,"1033,59115002301 ",.01)
 ;;59115002301
 ;;9002226.02101,"1033,59115002301 ",.02)
 ;;59115002301
 ;;9002226.02101,"1033,59115002350 ",.01)
 ;;59115002350
 ;;9002226.02101,"1033,59115002350 ",.02)
 ;;59115002350
 ;;9002226.02101,"1033,59115002375 ",.01)
 ;;59115002375
 ;;9002226.02101,"1033,59115002375 ",.02)
 ;;59115002375
 ;;9002226.02101,"1033,59115002401 ",.01)
 ;;59115002401
 ;;9002226.02101,"1033,59115002401 ",.02)
 ;;59115002401
 ;;9002226.02101,"1033,59115002450 ",.01)
 ;;59115002450
 ;;9002226.02101,"1033,59115002450 ",.02)
 ;;59115002450
 ;;9002226.02101,"1033,59115002475 ",.01)
 ;;59115002475
 ;;9002226.02101,"1033,59115002475 ",.02)
 ;;59115002475
 ;;9002226.02101,"1033,59115002801 ",.01)
 ;;59115002801
 ;;9002226.02101,"1033,59115002801 ",.02)
 ;;59115002801
 ;;9002226.02101,"1033,59115002850 ",.01)
 ;;59115002850
 ;;9002226.02101,"1033,59115002850 ",.02)
 ;;59115002850
 ;;9002226.02101,"1033,59115002899 ",.01)
 ;;59115002899
 ;;9002226.02101,"1033,59115002899 ",.02)
 ;;59115002899
 ;;9002226.02101,"1033,59115002901 ",.01)
 ;;59115002901
 ;;9002226.02101,"1033,59115002901 ",.02)
 ;;59115002901
 ;;9002226.02101,"1033,59115002933 ",.01)
 ;;59115002933
 ;;9002226.02101,"1033,59115002933 ",.02)
 ;;59115002933
 ;;9002226.02101,"1033,59115002955 ",.01)
 ;;59115002955
 ;;9002226.02101,"1033,59115002955 ",.02)
 ;;59115002955
 ;;9002226.02101,"1033,59115002999 ",.01)
 ;;59115002999
 ;;9002226.02101,"1033,59115002999 ",.02)
 ;;59115002999
 ;;9002226.02101,"1033,59115003001 ",.01)
 ;;59115003001
 ;;9002226.02101,"1033,59115003001 ",.02)
 ;;59115003001
 ;;9002226.02101,"1033,59115003033 ",.01)
 ;;59115003033
 ;;9002226.02101,"1033,59115003033 ",.02)
 ;;59115003033
 ;;9002226.02101,"1033,59115003055 ",.01)
 ;;59115003055
 ;;9002226.02101,"1033,59115003055 ",.02)
 ;;59115003055
 ;;9002226.02101,"1033,59115003099 ",.01)
 ;;59115003099
 ;;9002226.02101,"1033,59115003099 ",.02)
 ;;59115003099
 ;;9002226.02101,"1033,59115003301 ",.01)
 ;;59115003301
 ;;9002226.02101,"1033,59115003301 ",.02)
 ;;59115003301
 ;;9002226.02101,"1033,59115003355 ",.01)
 ;;59115003355
 ;;9002226.02101,"1033,59115003355 ",.02)
 ;;59115003355
 ;;9002226.02101,"1033,59115004001 ",.01)
 ;;59115004001
 ;;9002226.02101,"1033,59115004001 ",.02)
 ;;59115004001
 ;;9002226.02101,"1033,59115004022 ",.01)
 ;;59115004022
 ;;9002226.02101,"1033,59115004022 ",.02)
 ;;59115004022
 ;;9002226.02101,"1033,59115004101 ",.01)
 ;;59115004101
 ;;9002226.02101,"1033,59115004101 ",.02)
 ;;59115004101
 ;;9002226.02101,"1033,59115004122 ",.01)
 ;;59115004122
 ;;9002226.02101,"1033,59115004122 ",.02)
 ;;59115004122
 ;;9002226.02101,"1033,59115004155 ",.01)
 ;;59115004155
 ;;9002226.02101,"1033,59115004155 ",.02)
 ;;59115004155
 ;;9002226.02101,"1033,59115004201 ",.01)
 ;;59115004201
 ;;9002226.02101,"1033,59115004201 ",.02)
 ;;59115004201
 ;;9002226.02101,"1033,59115004233 ",.01)
 ;;59115004233
 ;;9002226.02101,"1033,59115004233 ",.02)
 ;;59115004233
 ;;9002226.02101,"1033,59115004255 ",.01)
 ;;59115004255
 ;;9002226.02101,"1033,59115004255 ",.02)
 ;;59115004255
 ;;9002226.02101,"1033,59115004301 ",.01)
 ;;59115004301
 ;;9002226.02101,"1033,59115004301 ",.02)
 ;;59115004301
 ;;9002226.02101,"1033,59115004350 ",.01)
 ;;59115004350
 ;;9002226.02101,"1033,59115004350 ",.02)
 ;;59115004350
 ;;9002226.02101,"1033,59115004375 ",.01)
 ;;59115004375
 ;;9002226.02101,"1033,59115004375 ",.02)
 ;;59115004375
 ;;9002226.02101,"1033,59115004401 ",.01)
 ;;59115004401
 ;;9002226.02101,"1033,59115004401 ",.02)
 ;;59115004401
 ;;9002226.02101,"1033,59115004405 ",.01)
 ;;59115004405
 ;;9002226.02101,"1033,59115004405 ",.02)
 ;;59115004405
 ;;9002226.02101,"1033,59115004480 ",.01)
 ;;59115004480
 ;;9002226.02101,"1033,59115004480 ",.02)
 ;;59115004480
 ;;9002226.02101,"1033,59115004501 ",.01)
 ;;59115004501
 ;;9002226.02101,"1033,59115004501 ",.02)
 ;;59115004501
 ;;9002226.02101,"1033,59115004550 ",.01)
 ;;59115004550
 ;;9002226.02101,"1033,59115004550 ",.02)
 ;;59115004550
 ;;9002226.02101,"1033,59115004575 ",.01)
 ;;59115004575
 ;;9002226.02101,"1033,59115004575 ",.02)
 ;;59115004575
 ;;9002226.02101,"1033,59115004601 ",.01)
 ;;59115004601
 ;;9002226.02101,"1033,59115004601 ",.02)
 ;;59115004601
 ;;9002226.02101,"1033,59115004605 ",.01)
 ;;59115004605
 ;;9002226.02101,"1033,59115004605 ",.02)
 ;;59115004605
 ;;9002226.02101,"1033,59115004680 ",.01)
 ;;59115004680
 ;;9002226.02101,"1033,59115004680 ",.02)
 ;;59115004680
 ;;9002226.02101,"1033,59115005101 ",.01)
 ;;59115005101
 ;;9002226.02101,"1033,59115005101 ",.02)
 ;;59115005101
 ;;9002226.02101,"1033,59115005122 ",.01)
 ;;59115005122
 ;;9002226.02101,"1033,59115005122 ",.02)
 ;;59115005122
 ;;9002226.02101,"1033,59115005150 ",.01)
 ;;59115005150
 ;;9002226.02101,"1033,59115005150 ",.02)
 ;;59115005150
 ;;9002226.02101,"1033,59115005201 ",.01)
 ;;59115005201
 ;;9002226.02101,"1033,59115005201 ",.02)
 ;;59115005201
 ;;9002226.02101,"1033,59115005250 ",.01)
 ;;59115005250
 ;;9002226.02101,"1033,59115005250 ",.02)
 ;;59115005250
 ;;9002226.02101,"1033,59115006120 ",.01)
 ;;59115006120
 ;;9002226.02101,"1033,59115006120 ",.02)
 ;;59115006120
 ;;9002226.02101,"1033,59115006125 ",.01)
 ;;59115006125
 ;;9002226.02101,"1033,59115006125 ",.02)
 ;;59115006125
 ;;9002226.02101,"1033,59115006175 ",.01)
 ;;59115006175
 ;;9002226.02101,"1033,59115006175 ",.02)
 ;;59115006175
 ;;9002226.02101,"1033,59115012205 ",.01)
 ;;59115012205
 ;;9002226.02101,"1033,59115012205 ",.02)
 ;;59115012205
 ;;9002226.02101,"1033,59115012214 ",.01)
 ;;59115012214
 ;;9002226.02101,"1033,59115012214 ",.02)
 ;;59115012214
 ;;9002226.02101,"1033,59115012220 ",.01)
 ;;59115012220
 ;;9002226.02101,"1033,59115012220 ",.02)
 ;;59115012220
 ;;9002226.02101,"1033,59115012250 ",.01)
 ;;59115012250
 ;;9002226.02101,"1033,59115012250 ",.02)
 ;;59115012250
 ;;9002226.02101,"1033,59115012299 ",.01)
 ;;59115012299
 ;;9002226.02101,"1033,59115012299 ",.02)
 ;;59115012299
 ;;9002226.02101,"1033,59115012305 ",.01)
 ;;59115012305
 ;;9002226.02101,"1033,59115012305 ",.02)
 ;;59115012305
 ;;9002226.02101,"1033,59115012350 ",.01)
 ;;59115012350
 ;;9002226.02101,"1033,59115012350 ",.02)
 ;;59115012350
 ;;9002226.02101,"1033,59214010606 ",.01)
 ;;59214010606
 ;;9002226.02101,"1033,59214010606 ",.02)
 ;;59214010606
 ;;9002226.02101,"1033,59214083901 ",.01)
 ;;59214083901
 ;;9002226.02101,"1033,59214083901 ",.02)
 ;;59214083901
 ;;9002226.02101,"1033,59214252201 ",.01)
 ;;59214252201
 ;;9002226.02101,"1033,59214252201 ",.02)
 ;;59214252201
 ;;9002226.02101,"1033,59366271306 ",.01)
 ;;59366271306
 ;;9002226.02101,"1033,59366271306 ",.02)
 ;;59366271306
 ;;9002226.02101,"1033,59366285206 ",.01)
 ;;59366285206
 ;;9002226.02101,"1033,59366285206 ",.02)
 ;;59366285206
 ;;9002226.02101,"1033,59453009201 ",.01)
 ;;59453009201
 ;;9002226.02101,"1033,59453009201 ",.02)
 ;;59453009201
 ;;9002226.02101,"1033,59453013001 ",.01)
 ;;59453013001
 ;;9002226.02101,"1033,59453013001 ",.02)
 ;;59453013001
 ;;9002226.02101,"1033,59564019905 ",.01)
 ;;59564019905
 ;;9002226.02101,"1033,59564019905 ",.02)
 ;;59564019905
 ;;9002226.02101,"1033,59564019910 ",.01)
 ;;59564019910
 ;;9002226.02101,"1033,59564019910 ",.02)
 ;;59564019910
 ;;9002226.02101,"1033,59564019911 ",.01)
 ;;59564019911
 ;;9002226.02101,"1033,59564019911 ",.02)
 ;;59564019911
 ;;9002226.02101,"1033,59564019914 ",.01)
 ;;59564019914
 ;;9002226.02101,"1033,59564019914 ",.02)
 ;;59564019914
 ;;9002226.02101,"1033,59564019928 ",.01)
 ;;59564019928
 ;;9002226.02101,"1033,59564019928 ",.02)
 ;;59564019928
 ;;9002226.02101,"1033,59762001601 ",.01)
 ;;59762001601
 ;;9002226.02101,"1033,59762001601 ",.02)
 ;;59762001601
 ;;9002226.02101,"1033,59762028003 ",.01)
 ;;59762028003
 ;;9002226.02101,"1033,59762028003 ",.02)
 ;;59762028003
 ;;9002226.02101,"1033,59762040902 ",.01)
 ;;59762040902
 ;;9002226.02101,"1033,59762040902 ",.02)
 ;;59762040902
 ;;9002226.02101,"1033,59762040904 ",.01)
 ;;59762040904
 ;;9002226.02101,"1033,59762040904 ",.02)
 ;;59762040904
 ;;9002226.02101,"1033,59762040907 ",.01)
 ;;59762040907
 ;;9002226.02101,"1033,59762040907 ",.02)
 ;;59762040907
 ;;9002226.02101,"1033,59762102001 ",.01)
 ;;59762102001
 ;;9002226.02101,"1033,59762102001 ",.02)
 ;;59762102001
 ;;9002226.02101,"1033,59762102003 ",.01)
 ;;59762102003
 ;;9002226.02101,"1033,59762102003 ",.02)
 ;;59762102003
 ;;9002226.02101,"1033,59762102101 ",.01)
 ;;59762102101
 ;;9002226.02101,"1033,59762102101 ",.02)
 ;;59762102101
 ;;9002226.02101,"1033,59762102107 ",.01)
 ;;59762102107
 ;;9002226.02101,"1033,59762102107 ",.02)
 ;;59762102107
 ;;9002226.02101,"1033,59762102202 ",.01)
 ;;59762102202
 ;;9002226.02101,"1033,59762102202 ",.02)
 ;;59762102202
 ;;9002226.02101,"1033,59762102204 ",.01)
 ;;59762102204
 ;;9002226.02101,"1033,59762102204 ",.02)
 ;;59762102204
 ;;9002226.02101,"1033,59762102207 ",.01)
 ;;59762102207
 ;;9002226.02101,"1033,59762102207 ",.02)
 ;;59762102207
 ;;9002226.02101,"1033,59762102304 ",.01)
 ;;59762102304
 ;;9002226.02101,"1033,59762102304 ",.02)
 ;;59762102304
 ;;9002226.02101,"1033,59762102305 ",.01)
 ;;59762102305
 ;;9002226.02101,"1033,59762102305 ",.02)
 ;;59762102305
 ;;9002226.02101,"1033,59762102306 ",.01)
 ;;59762102306
 ;;9002226.02101,"1033,59762102306 ",.02)
 ;;59762102306
 ;;9002226.02101,"1033,59762105002 ",.01)
 ;;59762105002
 ;;9002226.02101,"1033,59762105002 ",.02)
 ;;59762105002
 ;;9002226.02101,"1033,59762105005 ",.01)
 ;;59762105005
 ;;9002226.02101,"1033,59762105005 ",.02)
 ;;59762105005
 ;;9002226.02101,"1033,59762108101 ",.01)
 ;;59762108101
 ;;9002226.02101,"1033,59762108101 ",.02)
 ;;59762108101
 ;;9002226.02101,"1033,59762108102 ",.01)
 ;;59762108102
 ;;9002226.02101,"1033,59762108102 ",.02)
 ;;59762108102
 ;;9002226.02101,"1033,59762108301 ",.01)
 ;;59762108301
 ;;9002226.02101,"1033,59762108301 ",.02)
 ;;59762108301
 ;;9002226.02101,"1033,59762108302 ",.01)
 ;;59762108302
 ;;9002226.02101,"1033,59762108302 ",.02)
 ;;59762108302
 ;;9002226.02101,"1033,59762153401 ",.01)
 ;;59762153401
 ;;9002226.02101,"1033,59762153401 ",.02)
 ;;59762153401
 ;;9002226.02101,"1033,59762153402 ",.01)
 ;;59762153402
 ;;9002226.02101,"1033,59762153402 ",.02)
 ;;59762153402