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