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

BGPM5ARY.m

Go to the documentation of this file.
BGPM5ARY ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"1005,60440013501 ",.02)
 ;;60440013501
 ;;9002226.02101,"1005,60440014101 ",.01)
 ;;60440014101
 ;;9002226.02101,"1005,60440014101 ",.02)
 ;;60440014101
 ;;9002226.02101,"1005,60440014201 ",.01)
 ;;60440014201
 ;;9002226.02101,"1005,60440014201 ",.02)
 ;;60440014201
 ;;9002226.02101,"1005,60440014501 ",.01)
 ;;60440014501
 ;;9002226.02101,"1005,60440014501 ",.02)
 ;;60440014501
 ;;9002226.02101,"1005,60440914100 ",.01)
 ;;60440914100
 ;;9002226.02101,"1005,60440914100 ",.02)
 ;;60440914100
 ;;9002226.02101,"1005,60440914102 ",.01)
 ;;60440914102
 ;;9002226.02101,"1005,60440914102 ",.02)
 ;;60440914102
 ;;9002226.02101,"1005,60440914200 ",.01)
 ;;60440914200
 ;;9002226.02101,"1005,60440914200 ",.02)
 ;;60440914200
 ;;9002226.02101,"1005,60440914500 ",.01)
 ;;60440914500
 ;;9002226.02101,"1005,60440914500 ",.02)
 ;;60440914500
 ;;9002226.02101,"1005,60491000130 ",.01)
 ;;60491000130
 ;;9002226.02101,"1005,60491000130 ",.02)
 ;;60491000130
 ;;9002226.02101,"1005,60491000134 ",.01)
 ;;60491000134
 ;;9002226.02101,"1005,60491000134 ",.02)
 ;;60491000134
 ;;9002226.02101,"1005,60491000330 ",.01)
 ;;60491000330
 ;;9002226.02101,"1005,60491000330 ",.02)
 ;;60491000330
 ;;9002226.02101,"1005,60491000334 ",.01)
 ;;60491000334
 ;;9002226.02101,"1005,60491000334 ",.02)
 ;;60491000334
 ;;9002226.02101,"1005,60491000430 ",.01)
 ;;60491000430
 ;;9002226.02101,"1005,60491000430 ",.02)
 ;;60491000430
 ;;9002226.02101,"1005,60491000434 ",.01)
 ;;60491000434
 ;;9002226.02101,"1005,60491000434 ",.02)
 ;;60491000434
 ;;9002226.02101,"1005,60491002730 ",.01)
 ;;60491002730
 ;;9002226.02101,"1005,60491002730 ",.02)
 ;;60491002730
 ;;9002226.02101,"1005,60491002734 ",.01)
 ;;60491002734
 ;;9002226.02101,"1005,60491002734 ",.02)
 ;;60491002734
 ;;9002226.02101,"1005,60491002830 ",.01)
 ;;60491002830
 ;;9002226.02101,"1005,60491002830 ",.02)
 ;;60491002830
 ;;9002226.02101,"1005,60491002834 ",.01)
 ;;60491002834
 ;;9002226.02101,"1005,60491002834 ",.02)
 ;;60491002834
 ;;9002226.02101,"1005,60491002930 ",.01)
 ;;60491002930
 ;;9002226.02101,"1005,60491002930 ",.02)
 ;;60491002930
 ;;9002226.02101,"1005,60491002934 ",.01)
 ;;60491002934
 ;;9002226.02101,"1005,60491002934 ",.02)
 ;;60491002934
 ;;9002226.02101,"1005,60491003030 ",.01)
 ;;60491003030
 ;;9002226.02101,"1005,60491003030 ",.02)
 ;;60491003030
 ;;9002226.02101,"1005,60491003034 ",.01)
 ;;60491003034
 ;;9002226.02101,"1005,60491003034 ",.02)
 ;;60491003034
 ;;9002226.02101,"1005,60491010160 ",.01)
 ;;60491010160
 ;;9002226.02101,"1005,60491010160 ",.02)
 ;;60491010160
 ;;9002226.02101,"1005,60491010168 ",.01)
 ;;60491010168
 ;;9002226.02101,"1005,60491010168 ",.02)
 ;;60491010168
 ;;9002226.02101,"1005,60491010180 ",.01)
 ;;60491010180
 ;;9002226.02101,"1005,60491010180 ",.02)
 ;;60491010180
 ;;9002226.02101,"1005,60491010260 ",.01)
 ;;60491010260
 ;;9002226.02101,"1005,60491010260 ",.02)
 ;;60491010260
 ;;9002226.02101,"1005,60491010268 ",.01)
 ;;60491010268
 ;;9002226.02101,"1005,60491010268 ",.02)
 ;;60491010268
 ;;9002226.02101,"1005,60491010280 ",.01)
 ;;60491010280
 ;;9002226.02101,"1005,60491010280 ",.02)
 ;;60491010280
 ;;9002226.02101,"1005,60491010301 ",.01)
 ;;60491010301
 ;;9002226.02101,"1005,60491010301 ",.02)
 ;;60491010301
 ;;9002226.02101,"1005,60491010360 ",.01)
 ;;60491010360
 ;;9002226.02101,"1005,60491010360 ",.02)
 ;;60491010360
 ;;9002226.02101,"1005,60491010368 ",.01)
 ;;60491010368
 ;;9002226.02101,"1005,60491010368 ",.02)
 ;;60491010368
 ;;9002226.02101,"1005,60491010530 ",.01)
 ;;60491010530
 ;;9002226.02101,"1005,60491010530 ",.02)
 ;;60491010530
 ;;9002226.02101,"1005,60491010534 ",.01)
 ;;60491010534
 ;;9002226.02101,"1005,60491010534 ",.02)
 ;;60491010534
 ;;9002226.02101,"1005,60491010630 ",.01)
 ;;60491010630
 ;;9002226.02101,"1005,60491010630 ",.02)
 ;;60491010630
 ;;9002226.02101,"1005,60491010634 ",.01)
 ;;60491010634
 ;;9002226.02101,"1005,60491010634 ",.02)
 ;;60491010634
 ;;9002226.02101,"1005,60491010730 ",.01)
 ;;60491010730
 ;;9002226.02101,"1005,60491010730 ",.02)
 ;;60491010730
 ;;9002226.02101,"1005,60491010734 ",.01)
 ;;60491010734
 ;;9002226.02101,"1005,60491010734 ",.02)
 ;;60491010734
 ;;9002226.02101,"1005,60491010830 ",.01)
 ;;60491010830
 ;;9002226.02101,"1005,60491010830 ",.02)
 ;;60491010830
 ;;9002226.02101,"1005,60491010834 ",.01)
 ;;60491010834
 ;;9002226.02101,"1005,60491010834 ",.02)
 ;;60491010834
 ;;9002226.02101,"1005,60491051930 ",.01)
 ;;60491051930
 ;;9002226.02101,"1005,60491051930 ",.02)
 ;;60491051930
 ;;9002226.02101,"1005,60491051934 ",.01)
 ;;60491051934
 ;;9002226.02101,"1005,60491051934 ",.02)
 ;;60491051934
 ;;9002226.02101,"1005,60491052030 ",.01)
 ;;60491052030
 ;;9002226.02101,"1005,60491052030 ",.02)
 ;;60491052030
 ;;9002226.02101,"1005,60491052034 ",.01)
 ;;60491052034
 ;;9002226.02101,"1005,60491052034 ",.02)
 ;;60491052034
 ;;9002226.02101,"1005,60491052130 ",.01)
 ;;60491052130
 ;;9002226.02101,"1005,60491052130 ",.02)
 ;;60491052130
 ;;9002226.02101,"1005,60491052134 ",.01)
 ;;60491052134
 ;;9002226.02101,"1005,60491052134 ",.02)
 ;;60491052134
 ;;9002226.02101,"1005,60491052330 ",.01)
 ;;60491052330
 ;;9002226.02101,"1005,60491052330 ",.02)
 ;;60491052330
 ;;9002226.02101,"1005,60491052334 ",.01)
 ;;60491052334
 ;;9002226.02101,"1005,60491052334 ",.02)
 ;;60491052334
 ;;9002226.02101,"1005,60491052430 ",.01)
 ;;60491052430
 ;;9002226.02101,"1005,60491052430 ",.02)
 ;;60491052430
 ;;9002226.02101,"1005,60491052434 ",.01)
 ;;60491052434
 ;;9002226.02101,"1005,60491052434 ",.02)
 ;;60491052434
 ;;9002226.02101,"1005,60491052530 ",.01)
 ;;60491052530
 ;;9002226.02101,"1005,60491052530 ",.02)
 ;;60491052530
 ;;9002226.02101,"1005,60491052534 ",.01)
 ;;60491052534
 ;;9002226.02101,"1005,60491052534 ",.02)
 ;;60491052534
 ;;9002226.02101,"1005,60491052630 ",.01)
 ;;60491052630
 ;;9002226.02101,"1005,60491052630 ",.02)
 ;;60491052630
 ;;9002226.02101,"1005,60491052634 ",.01)
 ;;60491052634
 ;;9002226.02101,"1005,60491052634 ",.02)
 ;;60491052634
 ;;9002226.02101,"1005,60491068330 ",.01)
 ;;60491068330
 ;;9002226.02101,"1005,60491068330 ",.02)
 ;;60491068330
 ;;9002226.02101,"1005,60491068334 ",.01)
 ;;60491068334
 ;;9002226.02101,"1005,60491068334 ",.02)
 ;;60491068334
 ;;9002226.02101,"1005,60491068630 ",.01)
 ;;60491068630
 ;;9002226.02101,"1005,60491068630 ",.02)
 ;;60491068630
 ;;9002226.02101,"1005,60491068660 ",.01)
 ;;60491068660
 ;;9002226.02101,"1005,60491068660 ",.02)
 ;;60491068660
 ;;9002226.02101,"1005,60491068668 ",.01)
 ;;60491068668
 ;;9002226.02101,"1005,60491068668 ",.02)
 ;;60491068668
 ;;9002226.02101,"1005,60491068730 ",.01)
 ;;60491068730
 ;;9002226.02101,"1005,60491068730 ",.02)
 ;;60491068730
 ;;9002226.02101,"1005,60491068734 ",.01)
 ;;60491068734
 ;;9002226.02101,"1005,60491068734 ",.02)
 ;;60491068734
 ;;9002226.02101,"1005,60491068830 ",.01)
 ;;60491068830
 ;;9002226.02101,"1005,60491068830 ",.02)
 ;;60491068830
 ;;9002226.02101,"1005,60491068834 ",.01)
 ;;60491068834
 ;;9002226.02101,"1005,60491068834 ",.02)
 ;;60491068834
 ;;9002226.02101,"1005,60491068860 ",.01)
 ;;60491068860
 ;;9002226.02101,"1005,60491068860 ",.02)
 ;;60491068860
 ;;9002226.02101,"1005,60491068930 ",.01)
 ;;60491068930
 ;;9002226.02101,"1005,60491068930 ",.02)
 ;;60491068930
 ;;9002226.02101,"1005,60491068934 ",.01)
 ;;60491068934
 ;;9002226.02101,"1005,60491068934 ",.02)
 ;;60491068934
 ;;9002226.02101,"1005,60491071101 ",.01)
 ;;60491071101
 ;;9002226.02101,"1005,60491071101 ",.02)
 ;;60491071101
 ;;9002226.02101,"1005,60491071130 ",.01)
 ;;60491071130
 ;;9002226.02101,"1005,60491071130 ",.02)
 ;;60491071130
 ;;9002226.02101,"1005,60491071134 ",.01)
 ;;60491071134
 ;;9002226.02101,"1005,60491071134 ",.02)
 ;;60491071134
 ;;9002226.02101,"1005,60491071201 ",.01)
 ;;60491071201
 ;;9002226.02101,"1005,60491071201 ",.02)
 ;;60491071201
 ;;9002226.02101,"1005,60491071220 ",.01)
 ;;60491071220
 ;;9002226.02101,"1005,60491071220 ",.02)
 ;;60491071220
 ;;9002226.02101,"1005,60491071230 ",.01)
 ;;60491071230
 ;;9002226.02101,"1005,60491071230 ",.02)
 ;;60491071230
 ;;9002226.02101,"1005,60491071234 ",.01)
 ;;60491071234
 ;;9002226.02101,"1005,60491071234 ",.02)
 ;;60491071234
 ;;9002226.02101,"1005,60491071301 ",.01)
 ;;60491071301
 ;;9002226.02101,"1005,60491071301 ",.02)
 ;;60491071301
 ;;9002226.02101,"1005,60491071320 ",.01)
 ;;60491071320
 ;;9002226.02101,"1005,60491071320 ",.02)
 ;;60491071320
 ;;9002226.02101,"1005,60491071330 ",.01)
 ;;60491071330
 ;;9002226.02101,"1005,60491071330 ",.02)
 ;;60491071330
 ;;9002226.02101,"1005,60491071334 ",.01)
 ;;60491071334
 ;;9002226.02101,"1005,60491071334 ",.02)
 ;;60491071334
 ;;9002226.02101,"1005,60491071730 ",.01)
 ;;60491071730
 ;;9002226.02101,"1005,60491071730 ",.02)
 ;;60491071730
 ;;9002226.02101,"1005,60491071734 ",.01)
 ;;60491071734
 ;;9002226.02101,"1005,60491071734 ",.02)
 ;;60491071734
 ;;9002226.02101,"1005,60505000306 ",.01)
 ;;60505000306
 ;;9002226.02101,"1005,60505000306 ",.02)
 ;;60505000306
 ;;9002226.02101,"1005,60505000309 ",.01)
 ;;60505000309
 ;;9002226.02101,"1005,60505000309 ",.02)
 ;;60505000309
 ;;9002226.02101,"1005,60505000406 ",.01)
 ;;60505000406
 ;;9002226.02101,"1005,60505000406 ",.02)
 ;;60505000406
 ;;9002226.02101,"1005,60505000409 ",.01)
 ;;60505000409
 ;;9002226.02101,"1005,60505000409 ",.02)
 ;;60505000409
 ;;9002226.02101,"1005,60505000506 ",.01)
 ;;60505000506
 ;;9002226.02101,"1005,60505000506 ",.02)
 ;;60505000506
 ;;9002226.02101,"1005,60505000509 ",.01)
 ;;60505000509
 ;;9002226.02101,"1005,60505000509 ",.02)
 ;;60505000509
 ;;9002226.02101,"1005,60505000606 ",.01)
 ;;60505000606
 ;;9002226.02101,"1005,60505000606 ",.02)
 ;;60505000606
 ;;9002226.02101,"1005,60505000609 ",.01)
 ;;60505000609
 ;;9002226.02101,"1005,60505000609 ",.02)
 ;;60505000609
 ;;9002226.02101,"1005,60505004906 ",.01)
 ;;60505004906
 ;;9002226.02101,"1005,60505004906 ",.02)
 ;;60505004906
 ;;9002226.02101,"1005,60505004907 ",.01)
 ;;60505004907
 ;;9002226.02101,"1005,60505004907 ",.02)
 ;;60505004907
 ;;9002226.02101,"1005,60505004909 ",.01)
 ;;60505004909
 ;;9002226.02101,"1005,60505004909 ",.02)
 ;;60505004909
 ;;9002226.02101,"1005,60505005006 ",.01)
 ;;60505005006
 ;;9002226.02101,"1005,60505005006 ",.02)
 ;;60505005006
 ;;9002226.02101,"1005,60505005007 ",.01)
 ;;60505005007
 ;;9002226.02101,"1005,60505005007 ",.02)
 ;;60505005007
 ;;9002226.02101,"1005,60505005009 ",.01)
 ;;60505005009
 ;;9002226.02101,"1005,60505005009 ",.02)
 ;;60505005009
 ;;9002226.02101,"1005,60505005106 ",.01)
 ;;60505005106
 ;;9002226.02101,"1005,60505005106 ",.02)
 ;;60505005106
 ;;9002226.02101,"1005,60505005107 ",.01)
 ;;60505005107
 ;;9002226.02101,"1005,60505005107 ",.02)
 ;;60505005107
 ;;9002226.02101,"1005,60505005109 ",.01)
 ;;60505005109
 ;;9002226.02101,"1005,60505005109 ",.02)
 ;;60505005109
 ;;9002226.02101,"1005,60505005206 ",.01)
 ;;60505005206
 ;;9002226.02101,"1005,60505005206 ",.02)
 ;;60505005206
 ;;9002226.02101,"1005,60505005207 ",.01)
 ;;60505005207
 ;;9002226.02101,"1005,60505005207 ",.02)
 ;;60505005207
 ;;9002226.02101,"1005,60505005209 ",.01)
 ;;60505005209
 ;;9002226.02101,"1005,60505005209 ",.02)
 ;;60505005209
 ;;9002226.02101,"1005,60505017200 ",.01)
 ;;60505017200
 ;;9002226.02101,"1005,60505017200 ",.02)
 ;;60505017200
 ;;9002226.02101,"1005,60505017201 ",.01)
 ;;60505017201
 ;;9002226.02101,"1005,60505017201 ",.02)
 ;;60505017201
 ;;9002226.02101,"1005,60505017202 ",.01)
 ;;60505017202
 ;;9002226.02101,"1005,60505017202 ",.02)
 ;;60505017202