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

BGPM5AMG.m

Go to the documentation of this file.
BGPM5AMG ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"900,66267046240 ",.01)
 ;;66267046240
 ;;9002226.02101,"900,66267046240 ",.02)
 ;;66267046240
 ;;9002226.02101,"900,66267046260 ",.01)
 ;;66267046260
 ;;9002226.02101,"900,66267046260 ",.02)
 ;;66267046260
 ;;9002226.02101,"900,66267050610 ",.01)
 ;;66267050610
 ;;9002226.02101,"900,66267050610 ",.02)
 ;;66267050610
 ;;9002226.02101,"900,66267050615 ",.01)
 ;;66267050615
 ;;9002226.02101,"900,66267050615 ",.02)
 ;;66267050615
 ;;9002226.02101,"900,66267050620 ",.01)
 ;;66267050620
 ;;9002226.02101,"900,66267050620 ",.02)
 ;;66267050620
 ;;9002226.02101,"900,66267050630 ",.01)
 ;;66267050630
 ;;9002226.02101,"900,66267050630 ",.02)
 ;;66267050630
 ;;9002226.02101,"900,66267050640 ",.01)
 ;;66267050640
 ;;9002226.02101,"900,66267050640 ",.02)
 ;;66267050640
 ;;9002226.02101,"900,66267050660 ",.01)
 ;;66267050660
 ;;9002226.02101,"900,66267050660 ",.02)
 ;;66267050660
 ;;9002226.02101,"900,66267050690 ",.01)
 ;;66267050690
 ;;9002226.02101,"900,66267050690 ",.02)
 ;;66267050690
 ;;9002226.02101,"900,66267053010 ",.01)
 ;;66267053010
 ;;9002226.02101,"900,66267053010 ",.02)
 ;;66267053010
 ;;9002226.02101,"900,66267053020 ",.01)
 ;;66267053020
 ;;9002226.02101,"900,66267053020 ",.02)
 ;;66267053020
 ;;9002226.02101,"900,66267053030 ",.01)
 ;;66267053030
 ;;9002226.02101,"900,66267053030 ",.02)
 ;;66267053030
 ;;9002226.02101,"900,66267053040 ",.01)
 ;;66267053040
 ;;9002226.02101,"900,66267053040 ",.02)
 ;;66267053040
 ;;9002226.02101,"900,66267053060 ",.01)
 ;;66267053060
 ;;9002226.02101,"900,66267053060 ",.02)
 ;;66267053060
 ;;9002226.02101,"900,66267055520 ",.01)
 ;;66267055520
 ;;9002226.02101,"900,66267055520 ",.02)
 ;;66267055520
 ;;9002226.02101,"900,66267055528 ",.01)
 ;;66267055528
 ;;9002226.02101,"900,66267055528 ",.02)
 ;;66267055528
 ;;9002226.02101,"900,66267055530 ",.01)
 ;;66267055530
 ;;9002226.02101,"900,66267055530 ",.02)
 ;;66267055530
 ;;9002226.02101,"900,66267055540 ",.01)
 ;;66267055540
 ;;9002226.02101,"900,66267055540 ",.02)
 ;;66267055540
 ;;9002226.02101,"900,66267055560 ",.01)
 ;;66267055560
 ;;9002226.02101,"900,66267055560 ",.02)
 ;;66267055560
 ;;9002226.02101,"900,66267055590 ",.01)
 ;;66267055590
 ;;9002226.02101,"900,66267055590 ",.02)
 ;;66267055590
 ;;9002226.02101,"900,66267056130 ",.01)
 ;;66267056130
 ;;9002226.02101,"900,66267056130 ",.02)
 ;;66267056130
 ;;9002226.02101,"900,66267056160 ",.01)
 ;;66267056160
 ;;9002226.02101,"900,66267056160 ",.02)
 ;;66267056160
 ;;9002226.02101,"900,66267056190 ",.01)
 ;;66267056190
 ;;9002226.02101,"900,66267056190 ",.02)
 ;;66267056190
 ;;9002226.02101,"900,66267069430 ",.01)
 ;;66267069430
 ;;9002226.02101,"900,66267069430 ",.02)
 ;;66267069430
 ;;9002226.02101,"900,66336031030 ",.01)
 ;;66336031030
 ;;9002226.02101,"900,66336031030 ",.02)
 ;;66336031030
 ;;9002226.02101,"900,66336031060 ",.01)
 ;;66336031060
 ;;9002226.02101,"900,66336031060 ",.02)
 ;;66336031060
 ;;9002226.02101,"900,66336036760 ",.01)
 ;;66336036760
 ;;9002226.02101,"900,66336036760 ",.02)
 ;;66336036760
 ;;9002226.02101,"900,66336037130 ",.01)
 ;;66336037130
 ;;9002226.02101,"900,66336037130 ",.02)
 ;;66336037130
 ;;9002226.02101,"900,66336041230 ",.01)
 ;;66336041230
 ;;9002226.02101,"900,66336041230 ",.02)
 ;;66336041230
 ;;9002226.02101,"900,66411015528 ",.01)
 ;;66411015528
 ;;9002226.02101,"900,66411015528 ",.02)
 ;;66411015528
 ;;9002226.02101,"900,66411015590 ",.01)
 ;;66411015590
 ;;9002226.02101,"900,66411015590 ",.02)
 ;;66411015590
 ;;9002226.02101,"900,66484074100 ",.01)
 ;;66484074100
 ;;9002226.02101,"900,66484074100 ",.02)
 ;;66484074100
 ;;9002226.02101,"900,66484074106 ",.01)
 ;;66484074106
 ;;9002226.02101,"900,66484074106 ",.02)
 ;;66484074106
 ;;9002226.02101,"900,66582031101 ",.01)
 ;;66582031101
 ;;9002226.02101,"900,66582031101 ",.02)
 ;;66582031101
 ;;9002226.02101,"900,66582031128 ",.01)
 ;;66582031128
 ;;9002226.02101,"900,66582031128 ",.02)
 ;;66582031128
 ;;9002226.02101,"900,66582031131 ",.01)
 ;;66582031131
 ;;9002226.02101,"900,66582031131 ",.02)
 ;;66582031131
 ;;9002226.02101,"900,66582031154 ",.01)
 ;;66582031154
 ;;9002226.02101,"900,66582031154 ",.02)
 ;;66582031154
 ;;9002226.02101,"900,66582031182 ",.01)
 ;;66582031182
 ;;9002226.02101,"900,66582031182 ",.02)
 ;;66582031182
 ;;9002226.02101,"900,66582031187 ",.01)
 ;;66582031187
 ;;9002226.02101,"900,66582031187 ",.02)
 ;;66582031187
 ;;9002226.02101,"900,66582031201 ",.01)
 ;;66582031201
 ;;9002226.02101,"900,66582031201 ",.02)
 ;;66582031201
 ;;9002226.02101,"900,66582031227 ",.01)
 ;;66582031227
 ;;9002226.02101,"900,66582031227 ",.02)
 ;;66582031227
 ;;9002226.02101,"900,66582031228 ",.01)
 ;;66582031228
 ;;9002226.02101,"900,66582031228 ",.02)
 ;;66582031228
 ;;9002226.02101,"900,66582031231 ",.01)
 ;;66582031231
 ;;9002226.02101,"900,66582031231 ",.02)
 ;;66582031231
 ;;9002226.02101,"900,66582031254 ",.01)
 ;;66582031254
 ;;9002226.02101,"900,66582031254 ",.02)
 ;;66582031254
 ;;9002226.02101,"900,66582031282 ",.01)
 ;;66582031282
 ;;9002226.02101,"900,66582031282 ",.02)
 ;;66582031282
 ;;9002226.02101,"900,66582031287 ",.01)
 ;;66582031287
 ;;9002226.02101,"900,66582031287 ",.02)
 ;;66582031287
 ;;9002226.02101,"900,66582031301 ",.01)
 ;;66582031301
 ;;9002226.02101,"900,66582031301 ",.02)
 ;;66582031301
 ;;9002226.02101,"900,66582031327 ",.01)
 ;;66582031327
 ;;9002226.02101,"900,66582031327 ",.02)
 ;;66582031327
 ;;9002226.02101,"900,66582031331 ",.01)
 ;;66582031331
 ;;9002226.02101,"900,66582031331 ",.02)
 ;;66582031331
 ;;9002226.02101,"900,66582031352 ",.01)
 ;;66582031352
 ;;9002226.02101,"900,66582031352 ",.02)
 ;;66582031352
 ;;9002226.02101,"900,66582031354 ",.01)
 ;;66582031354
 ;;9002226.02101,"900,66582031354 ",.02)
 ;;66582031354
 ;;9002226.02101,"900,66582031374 ",.01)
 ;;66582031374
 ;;9002226.02101,"900,66582031374 ",.02)
 ;;66582031374
 ;;9002226.02101,"900,66582031386 ",.01)
 ;;66582031386
 ;;9002226.02101,"900,66582031386 ",.02)
 ;;66582031386
 ;;9002226.02101,"900,66582031501 ",.01)
 ;;66582031501
 ;;9002226.02101,"900,66582031501 ",.02)
 ;;66582031501
 ;;9002226.02101,"900,66582031531 ",.01)
 ;;66582031531
 ;;9002226.02101,"900,66582031531 ",.02)
 ;;66582031531
 ;;9002226.02101,"900,66582031552 ",.01)
 ;;66582031552
 ;;9002226.02101,"900,66582031552 ",.02)
 ;;66582031552
 ;;9002226.02101,"900,66582031554 ",.01)
 ;;66582031554
 ;;9002226.02101,"900,66582031554 ",.02)
 ;;66582031554
 ;;9002226.02101,"900,66582031566 ",.01)
 ;;66582031566
 ;;9002226.02101,"900,66582031566 ",.02)
 ;;66582031566
 ;;9002226.02101,"900,66582031574 ",.01)
 ;;66582031574
 ;;9002226.02101,"900,66582031574 ",.02)
 ;;66582031574
 ;;9002226.02101,"900,66582041415 ",.01)
 ;;66582041415
 ;;9002226.02101,"900,66582041415 ",.02)
 ;;66582041415
 ;;9002226.02101,"900,66582041428 ",.01)
 ;;66582041428
 ;;9002226.02101,"900,66582041428 ",.02)
 ;;66582041428
 ;;9002226.02101,"900,66582041429 ",.01)
 ;;66582041429
 ;;9002226.02101,"900,66582041429 ",.02)
 ;;66582041429
 ;;9002226.02101,"900,66582041430 ",.01)
 ;;66582041430
 ;;9002226.02101,"900,66582041430 ",.02)
 ;;66582041430
 ;;9002226.02101,"900,66582041431 ",.01)
 ;;66582041431
 ;;9002226.02101,"900,66582041431 ",.02)
 ;;66582041431
 ;;9002226.02101,"900,66582041454 ",.01)
 ;;66582041454
 ;;9002226.02101,"900,66582041454 ",.02)
 ;;66582041454
 ;;9002226.02101,"900,66582041474 ",.01)
 ;;66582041474
 ;;9002226.02101,"900,66582041474 ",.02)
 ;;66582041474
 ;;9002226.02101,"900,66582041476 ",.01)
 ;;66582041476
 ;;9002226.02101,"900,66582041476 ",.02)
 ;;66582041476
 ;;9002226.02101,"900,67046023030 ",.01)
 ;;67046023030
 ;;9002226.02101,"900,67046023030 ",.02)
 ;;67046023030
 ;;9002226.02101,"900,67046023130 ",.01)
 ;;67046023130
 ;;9002226.02101,"900,67046023130 ",.02)
 ;;67046023130
 ;;9002226.02101,"900,67228023803 ",.01)
 ;;67228023803
 ;;9002226.02101,"900,67228023803 ",.02)
 ;;67228023803
 ;;9002226.02101,"900,67228023806 ",.01)
 ;;67228023806
 ;;9002226.02101,"900,67228023806 ",.02)
 ;;67228023806
 ;;9002226.02101,"900,67228029403 ",.01)
 ;;67228029403
 ;;9002226.02101,"900,67228029403 ",.02)
 ;;67228029403
 ;;9002226.02101,"900,67228029406 ",.01)
 ;;67228029406
 ;;9002226.02101,"900,67228029406 ",.02)
 ;;67228029406
 ;;9002226.02101,"900,67228034003 ",.01)
 ;;67228034003
 ;;9002226.02101,"900,67228034003 ",.02)
 ;;67228034003
 ;;9002226.02101,"900,67228034006 ",.01)
 ;;67228034006
 ;;9002226.02101,"900,67228034006 ",.02)
 ;;67228034006
 ;;9002226.02101,"900,67228044903 ",.01)
 ;;67228044903
 ;;9002226.02101,"900,67228044903 ",.02)
 ;;67228044903
 ;;9002226.02101,"900,67228044906 ",.01)
 ;;67228044906
 ;;9002226.02101,"900,67228044906 ",.02)
 ;;67228044906
 ;;9002226.02101,"900,67228045803 ",.01)
 ;;67228045803
 ;;9002226.02101,"900,67228045803 ",.02)
 ;;67228045803
 ;;9002226.02101,"900,67228045806 ",.01)
 ;;67228045806
 ;;9002226.02101,"900,67228045806 ",.02)
 ;;67228045806
 ;;9002226.02101,"900,67228046603 ",.01)
 ;;67228046603
 ;;9002226.02101,"900,67228046603 ",.02)
 ;;67228046603
 ;;9002226.02101,"900,67228046606 ",.01)
 ;;67228046606
 ;;9002226.02101,"900,67228046606 ",.02)
 ;;67228046606
 ;;9002226.02101,"900,67253074106 ",.01)
 ;;67253074106
 ;;9002226.02101,"900,67253074106 ",.02)
 ;;67253074106
 ;;9002226.02101,"900,67253074109 ",.01)
 ;;67253074109
 ;;9002226.02101,"900,67253074109 ",.02)
 ;;67253074109
 ;;9002226.02101,"900,67253074150 ",.01)
 ;;67253074150
 ;;9002226.02101,"900,67253074150 ",.02)
 ;;67253074150
 ;;9002226.02101,"900,67263004890 ",.01)
 ;;67263004890
 ;;9002226.02101,"900,67263004890 ",.02)
 ;;67263004890
 ;;9002226.02101,"900,67263026790 ",.01)
 ;;67263026790
 ;;9002226.02101,"900,67263026790 ",.02)
 ;;67263026790
 ;;9002226.02101,"900,67263054101 ",.01)
 ;;67263054101
 ;;9002226.02101,"900,67263054101 ",.02)
 ;;67263054101
 ;;9002226.02101,"900,67317031101 ",.01)
 ;;67317031101
 ;;9002226.02101,"900,67317031101 ",.02)
 ;;67317031101
 ;;9002226.02101,"900,67317031102 ",.01)
 ;;67317031102
 ;;9002226.02101,"900,67317031102 ",.02)
 ;;67317031102
 ;;9002226.02101,"900,67317031103 ",.01)
 ;;67317031103
 ;;9002226.02101,"900,67317031103 ",.02)
 ;;67317031103
 ;;9002226.02101,"900,67317031104 ",.01)
 ;;67317031104
 ;;9002226.02101,"900,67317031104 ",.02)
 ;;67317031104
 ;;9002226.02101,"900,67317031201 ",.01)
 ;;67317031201
 ;;9002226.02101,"900,67317031201 ",.02)
 ;;67317031201
 ;;9002226.02101,"900,67317031202 ",.01)
 ;;67317031202
 ;;9002226.02101,"900,67317031202 ",.02)
 ;;67317031202
 ;;9002226.02101,"900,67317031203 ",.01)
 ;;67317031203
 ;;9002226.02101,"900,67317031203 ",.02)
 ;;67317031203
 ;;9002226.02101,"900,67317031204 ",.01)
 ;;67317031204
 ;;9002226.02101,"900,67317031204 ",.02)
 ;;67317031204
 ;;9002226.02101,"900,67317031205 ",.01)
 ;;67317031205
 ;;9002226.02101,"900,67317031205 ",.02)
 ;;67317031205
 ;;9002226.02101,"900,67317031206 ",.01)
 ;;67317031206
 ;;9002226.02101,"900,67317031206 ",.02)
 ;;67317031206
 ;;9002226.02101,"900,67317031301 ",.01)
 ;;67317031301
 ;;9002226.02101,"900,67317031301 ",.02)
 ;;67317031301
 ;;9002226.02101,"900,67317031302 ",.01)
 ;;67317031302
 ;;9002226.02101,"900,67317031302 ",.02)
 ;;67317031302
 ;;9002226.02101,"900,67317031303 ",.01)
 ;;67317031303
 ;;9002226.02101,"900,67317031303 ",.02)
 ;;67317031303
 ;;9002226.02101,"900,67317031304 ",.01)
 ;;67317031304
 ;;9002226.02101,"900,67317031304 ",.02)
 ;;67317031304
 ;;9002226.02101,"900,67317031305 ",.01)
 ;;67317031305
 ;;9002226.02101,"900,67317031305 ",.02)
 ;;67317031305