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

BGPM3ACW.m

Go to the documentation of this file.
  1. BGPM3ACW ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
  1. ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
  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,"786,45802087993 ",.02)
  1. ;;45802087993
  1. ;;9002226.02101,"786,45802092465 ",.01)
  1. ;;45802092465
  1. ;;9002226.02101,"786,45802092465 ",.02)
  1. ;;45802092465
  1. ;;9002226.02101,"786,46193011401 ",.01)
  1. ;;46193011401
  1. ;;9002226.02101,"786,46193011401 ",.02)
  1. ;;46193011401
  1. ;;9002226.02101,"786,46193011410 ",.01)
  1. ;;46193011410
  1. ;;9002226.02101,"786,46193011410 ",.02)
  1. ;;46193011410
  1. ;;9002226.02101,"786,46193036301 ",.01)
  1. ;;46193036301
  1. ;;9002226.02101,"786,46193036301 ",.02)
  1. ;;46193036301
  1. ;;9002226.02101,"786,46193036310 ",.01)
  1. ;;46193036310
  1. ;;9002226.02101,"786,46193036310 ",.02)
  1. ;;46193036310
  1. ;;9002226.02101,"786,48817754701 ",.01)
  1. ;;48817754701
  1. ;;9002226.02101,"786,48817754701 ",.02)
  1. ;;48817754701
  1. ;;9002226.02101,"786,49072095377 ",.01)
  1. ;;49072095377
  1. ;;9002226.02101,"786,49072095377 ",.02)
  1. ;;49072095377
  1. ;;9002226.02101,"786,49348009710 ",.01)
  1. ;;49348009710
  1. ;;9002226.02101,"786,49348009710 ",.02)
  1. ;;49348009710
  1. ;;9002226.02101,"786,49348026212 ",.01)
  1. ;;49348026212
  1. ;;9002226.02101,"786,49348026212 ",.02)
  1. ;;49348026212
  1. ;;9002226.02101,"786,49483001301 ",.01)
  1. ;;49483001301
  1. ;;9002226.02101,"786,49483001301 ",.02)
  1. ;;49483001301
  1. ;;9002226.02101,"786,49483001310 ",.01)
  1. ;;49483001310
  1. ;;9002226.02101,"786,49483001310 ",.02)
  1. ;;49483001310
  1. ;;9002226.02101,"786,49483001401 ",.01)
  1. ;;49483001401
  1. ;;9002226.02101,"786,49483001401 ",.02)
  1. ;;49483001401
  1. ;;9002226.02101,"786,49483001410 ",.01)
  1. ;;49483001410
  1. ;;9002226.02101,"786,49483001410 ",.02)
  1. ;;49483001410
  1. ;;9002226.02101,"786,49483001501 ",.01)
  1. ;;49483001501
  1. ;;9002226.02101,"786,49483001501 ",.02)
  1. ;;49483001501
  1. ;;9002226.02101,"786,49483001510 ",.01)
  1. ;;49483001510
  1. ;;9002226.02101,"786,49483001510 ",.02)
  1. ;;49483001510
  1. ;;9002226.02101,"786,49483001801 ",.01)
  1. ;;49483001801
  1. ;;9002226.02101,"786,49483001801 ",.02)
  1. ;;49483001801
  1. ;;9002226.02101,"786,49648075000 ",.01)
  1. ;;49648075000
  1. ;;9002226.02101,"786,49648075000 ",.02)
  1. ;;49648075000
  1. ;;9002226.02101,"786,49648075001 ",.01)
  1. ;;49648075001
  1. ;;9002226.02101,"786,49648075001 ",.02)
  1. ;;49648075001
  1. ;;9002226.02101,"786,49648078100 ",.01)
  1. ;;49648078100
  1. ;;9002226.02101,"786,49648078100 ",.02)
  1. ;;49648078100
  1. ;;9002226.02101,"786,49648078101 ",.01)
  1. ;;49648078101
  1. ;;9002226.02101,"786,49648078101 ",.02)
  1. ;;49648078101
  1. ;;9002226.02101,"786,49856003400 ",.01)
  1. ;;49856003400
  1. ;;9002226.02101,"786,49856003400 ",.02)
  1. ;;49856003400
  1. ;;9002226.02101,"786,49856003406 ",.01)
  1. ;;49856003406
  1. ;;9002226.02101,"786,49856003406 ",.02)
  1. ;;49856003406
  1. ;;9002226.02101,"786,49856017700 ",.01)
  1. ;;49856017700
  1. ;;9002226.02101,"786,49856017700 ",.02)
  1. ;;49856017700
  1. ;;9002226.02101,"786,49856017701 ",.01)
  1. ;;49856017701
  1. ;;9002226.02101,"786,49856017701 ",.02)
  1. ;;49856017701
  1. ;;9002226.02101,"786,49856017703 ",.01)
  1. ;;49856017703
  1. ;;9002226.02101,"786,49856017703 ",.02)
  1. ;;49856017703
  1. ;;9002226.02101,"786,49856017709 ",.01)
  1. ;;49856017709
  1. ;;9002226.02101,"786,49856017709 ",.02)
  1. ;;49856017709
  1. ;;9002226.02101,"786,49856017800 ",.01)
  1. ;;49856017800
  1. ;;9002226.02101,"786,49856017800 ",.02)
  1. ;;49856017800
  1. ;;9002226.02101,"786,49856017801 ",.01)
  1. ;;49856017801
  1. ;;9002226.02101,"786,49856017801 ",.02)
  1. ;;49856017801
  1. ;;9002226.02101,"786,49856017803 ",.01)
  1. ;;49856017803
  1. ;;9002226.02101,"786,49856017803 ",.02)
  1. ;;49856017803
  1. ;;9002226.02101,"786,49856017809 ",.01)
  1. ;;49856017809
  1. ;;9002226.02101,"786,49856017809 ",.02)
  1. ;;49856017809
  1. ;;9002226.02101,"786,49856017900 ",.01)
  1. ;;49856017900
  1. ;;9002226.02101,"786,49856017900 ",.02)
  1. ;;49856017900
  1. ;;9002226.02101,"786,49856017901 ",.01)
  1. ;;49856017901
  1. ;;9002226.02101,"786,49856017901 ",.02)
  1. ;;49856017901
  1. ;;9002226.02101,"786,49856017903 ",.01)
  1. ;;49856017903
  1. ;;9002226.02101,"786,49856017903 ",.02)
  1. ;;49856017903
  1. ;;9002226.02101,"786,49856017909 ",.01)
  1. ;;49856017909
  1. ;;9002226.02101,"786,49856017909 ",.02)
  1. ;;49856017909
  1. ;;9002226.02101,"786,49884046565 ",.01)
  1. ;;49884046565
  1. ;;9002226.02101,"786,49884046565 ",.02)
  1. ;;49884046565
  1. ;;9002226.02101,"786,49884046566 ",.01)
  1. ;;49884046566
  1. ;;9002226.02101,"786,49884046566 ",.02)
  1. ;;49884046566
  1. ;;9002226.02101,"786,49884046665 ",.01)
  1. ;;49884046665
  1. ;;9002226.02101,"786,49884046665 ",.02)
  1. ;;49884046665
  1. ;;9002226.02101,"786,49884046667 ",.01)
  1. ;;49884046667
  1. ;;9002226.02101,"786,49884046667 ",.02)
  1. ;;49884046667
  1. ;;9002226.02101,"786,49884075401 ",.01)
  1. ;;49884075401
  1. ;;9002226.02101,"786,49884075401 ",.02)
  1. ;;49884075401
  1. ;;9002226.02101,"786,49884075402 ",.01)
  1. ;;49884075402
  1. ;;9002226.02101,"786,49884075402 ",.02)
  1. ;;49884075402
  1. ;;9002226.02101,"786,49884075410 ",.01)
  1. ;;49884075410
  1. ;;9002226.02101,"786,49884075410 ",.02)
  1. ;;49884075410
  1. ;;9002226.02101,"786,49884075501 ",.01)
  1. ;;49884075501
  1. ;;9002226.02101,"786,49884075501 ",.02)
  1. ;;49884075501
  1. ;;9002226.02101,"786,49884075502 ",.01)
  1. ;;49884075502
  1. ;;9002226.02101,"786,49884075502 ",.02)
  1. ;;49884075502
  1. ;;9002226.02101,"786,49884075510 ",.01)
  1. ;;49884075510
  1. ;;9002226.02101,"786,49884075510 ",.02)
  1. ;;49884075510
  1. ;;9002226.02101,"786,49884075601 ",.01)
  1. ;;49884075601
  1. ;;9002226.02101,"786,49884075601 ",.02)
  1. ;;49884075601
  1. ;;9002226.02101,"786,49884075602 ",.01)
  1. ;;49884075602
  1. ;;9002226.02101,"786,49884075602 ",.02)
  1. ;;49884075602
  1. ;;9002226.02101,"786,49884075610 ",.01)
  1. ;;49884075610
  1. ;;9002226.02101,"786,49884075610 ",.02)
  1. ;;49884075610
  1. ;;9002226.02101,"786,49999011430 ",.01)
  1. ;;49999011430
  1. ;;9002226.02101,"786,49999011430 ",.02)
  1. ;;49999011430
  1. ;;9002226.02101,"786,49999011460 ",.01)
  1. ;;49999011460
  1. ;;9002226.02101,"786,49999011460 ",.02)
  1. ;;49999011460
  1. ;;9002226.02101,"786,49999029330 ",.01)
  1. ;;49999029330
  1. ;;9002226.02101,"786,49999029330 ",.02)
  1. ;;49999029330
  1. ;;9002226.02101,"786,49999047060 ",.01)
  1. ;;49999047060
  1. ;;9002226.02101,"786,49999047060 ",.02)
  1. ;;49999047060
  1. ;;9002226.02101,"786,49999047100 ",.01)
  1. ;;49999047100
  1. ;;9002226.02101,"786,49999047100 ",.02)
  1. ;;49999047100
  1. ;;9002226.02101,"786,49999047130 ",.01)
  1. ;;49999047130
  1. ;;9002226.02101,"786,49999047130 ",.02)
  1. ;;49999047130
  1. ;;9002226.02101,"786,49999047160 ",.01)
  1. ;;49999047160
  1. ;;9002226.02101,"786,49999047160 ",.02)
  1. ;;49999047160
  1. ;;9002226.02101,"786,49999074130 ",.01)
  1. ;;49999074130
  1. ;;9002226.02101,"786,49999074130 ",.02)
  1. ;;49999074130
  1. ;;9002226.02101,"786,49999088930 ",.01)
  1. ;;49999088930
  1. ;;9002226.02101,"786,49999088930 ",.02)
  1. ;;49999088930
  1. ;;9002226.02101,"786,49999088960 ",.01)
  1. ;;49999088960
  1. ;;9002226.02101,"786,49999088960 ",.02)
  1. ;;49999088960
  1. ;;9002226.02101,"786,49999088990 ",.01)
  1. ;;49999088990
  1. ;;9002226.02101,"786,49999088990 ",.02)
  1. ;;49999088990
  1. ;;9002226.02101,"786,49999090090 ",.01)
  1. ;;49999090090
  1. ;;9002226.02101,"786,49999090090 ",.02)
  1. ;;49999090090
  1. ;;9002226.02101,"786,49999090315 ",.01)
  1. ;;49999090315
  1. ;;9002226.02101,"786,49999090315 ",.02)
  1. ;;49999090315
  1. ;;9002226.02101,"786,49999090330 ",.01)
  1. ;;49999090330
  1. ;;9002226.02101,"786,49999090330 ",.02)
  1. ;;49999090330
  1. ;;9002226.02101,"786,49999090390 ",.01)
  1. ;;49999090390
  1. ;;9002226.02101,"786,49999090390 ",.02)
  1. ;;49999090390
  1. ;;9002226.02101,"786,50111085702 ",.01)
  1. ;;50111085702
  1. ;;9002226.02101,"786,50111085702 ",.02)
  1. ;;50111085702
  1. ;;9002226.02101,"786,50111085704 ",.01)
  1. ;;50111085704
  1. ;;9002226.02101,"786,50111085704 ",.02)
  1. ;;50111085704
  1. ;;9002226.02101,"786,50428213843 ",.01)
  1. ;;50428213843
  1. ;;9002226.02101,"786,50428213843 ",.02)
  1. ;;50428213843
  1. ;;9002226.02101,"786,50752031080 ",.01)
  1. ;;50752031080
  1. ;;9002226.02101,"786,50752031080 ",.02)
  1. ;;50752031080
  1. ;;9002226.02101,"786,51079000820 ",.01)
  1. ;;51079000820
  1. ;;9002226.02101,"786,51079000820 ",.02)
  1. ;;51079000820
  1. ;;9002226.02101,"786,51079000920 ",.01)
  1. ;;51079000920
  1. ;;9002226.02101,"786,51079000920 ",.02)
  1. ;;51079000920
  1. ;;9002226.02101,"786,51079045401 ",.01)
  1. ;;51079045401
  1. ;;9002226.02101,"786,51079045401 ",.02)
  1. ;;51079045401
  1. ;;9002226.02101,"786,51079045420 ",.01)
  1. ;;51079045420
  1. ;;9002226.02101,"786,51079045420 ",.02)
  1. ;;51079045420
  1. ;;9002226.02101,"786,51079045501 ",.01)
  1. ;;51079045501
  1. ;;9002226.02101,"786,51079045501 ",.02)
  1. ;;51079045501
  1. ;;9002226.02101,"786,51079045520 ",.01)
  1. ;;51079045520
  1. ;;9002226.02101,"786,51079045520 ",.02)
  1. ;;51079045520
  1. ;;9002226.02101,"786,51079045601 ",.01)
  1. ;;51079045601
  1. ;;9002226.02101,"786,51079045601 ",.02)
  1. ;;51079045601
  1. ;;9002226.02101,"786,51079045620 ",.01)
  1. ;;51079045620
  1. ;;9002226.02101,"786,51079045620 ",.02)
  1. ;;51079045620
  1. ;;9002226.02101,"786,51079078701 ",.01)
  1. ;;51079078701
  1. ;;9002226.02101,"786,51079078701 ",.02)
  1. ;;51079078701
  1. ;;9002226.02101,"786,51079078717 ",.01)
  1. ;;51079078717
  1. ;;9002226.02101,"786,51079078717 ",.02)
  1. ;;51079078717
  1. ;;9002226.02101,"786,51079078719 ",.01)
  1. ;;51079078719
  1. ;;9002226.02101,"786,51079078719 ",.02)
  1. ;;51079078719
  1. ;;9002226.02101,"786,51079078720 ",.01)
  1. ;;51079078720
  1. ;;9002226.02101,"786,51079078720 ",.02)
  1. ;;51079078720
  1. ;;9002226.02101,"786,51079097401 ",.01)
  1. ;;51079097401
  1. ;;9002226.02101,"786,51079097401 ",.02)
  1. ;;51079097401
  1. ;;9002226.02101,"786,51079097420 ",.01)
  1. ;;51079097420
  1. ;;9002226.02101,"786,51079097420 ",.02)
  1. ;;51079097420
  1. ;;9002226.02101,"786,51079097501 ",.01)
  1. ;;51079097501
  1. ;;9002226.02101,"786,51079097501 ",.02)
  1. ;;51079097501
  1. ;;9002226.02101,"786,51079097520 ",.01)
  1. ;;51079097520
  1. ;;9002226.02101,"786,51079097520 ",.02)
  1. ;;51079097520
  1. ;;9002226.02101,"786,51079097530 ",.01)
  1. ;;51079097530
  1. ;;9002226.02101,"786,51079097530 ",.02)
  1. ;;51079097530
  1. ;;9002226.02101,"786,51079097556 ",.01)
  1. ;;51079097556
  1. ;;9002226.02101,"786,51079097556 ",.02)
  1. ;;51079097556
  1. ;;9002226.02101,"786,51079097601 ",.01)
  1. ;;51079097601
  1. ;;9002226.02101,"786,51079097601 ",.02)
  1. ;;51079097601
  1. ;;9002226.02101,"786,51079097620 ",.01)
  1. ;;51079097620
  1. ;;9002226.02101,"786,51079097620 ",.02)
  1. ;;51079097620
  1. ;;9002226.02101,"786,51079097630 ",.01)
  1. ;;51079097630
  1. ;;9002226.02101,"786,51079097630 ",.02)
  1. ;;51079097630
  1. ;;9002226.02101,"786,51079097656 ",.01)
  1. ;;51079097656
  1. ;;9002226.02101,"786,51079097656 ",.02)
  1. ;;51079097656
  1. ;;9002226.02101,"786,51129010301 ",.01)
  1. ;;51129010301
  1. ;;9002226.02101,"786,51129010301 ",.02)
  1. ;;51129010301
  1. ;;9002226.02101,"786,51129010401 ",.01)
  1. ;;51129010401
  1. ;;9002226.02101,"786,51129010401 ",.02)
  1. ;;51129010401
  1. ;;9002226.02101,"786,51129020000 ",.01)
  1. ;;51129020000
  1. ;;9002226.02101,"786,51129020000 ",.02)
  1. ;;51129020000
  1. ;;9002226.02101,"786,51129258201 ",.01)
  1. ;;51129258201
  1. ;;9002226.02101,"786,51129258201 ",.02)
  1. ;;51129258201
  1. ;;9002226.02101,"786,51129275401 ",.01)
  1. ;;51129275401
  1. ;;9002226.02101,"786,51129275401 ",.02)
  1. ;;51129275401
  1. ;;9002226.02101,"786,51129289201 ",.01)
  1. ;;51129289201
  1. ;;9002226.02101,"786,51129289201 ",.02)
  1. ;;51129289201
  1. ;;9002226.02101,"786,51129289901 ",.01)
  1. ;;51129289901
  1. ;;9002226.02101,"786,51129289901 ",.02)
  1. ;;51129289901
  1. ;;9002226.02101,"786,51129289902 ",.01)
  1. ;;51129289902
  1. ;;9002226.02101,"786,51129289902 ",.02)
  1. ;;51129289902
  1. ;;9002226.02101,"786,51129291101 ",.01)
  1. ;;51129291101
  1. ;;9002226.02101,"786,51129291101 ",.02)
  1. ;;51129291101
  1. ;;9002226.02101,"786,51129291102 ",.01)
  1. ;;51129291102
  1. ;;9002226.02101,"786,51129291102 ",.02)
  1. ;;51129291102
  1. ;;9002226.02101,"786,51129295201 ",.01)
  1. ;;51129295201
  1. ;;9002226.02101,"786,51129295201 ",.02)
  1. ;;51129295201
  1. ;;9002226.02101,"786,51129295202 ",.01)
  1. ;;51129295202
  1. ;;9002226.02101,"786,51129295202 ",.02)
  1. ;;51129295202
  1. ;;9002226.02101,"786,51129323601 ",.01)
  1. ;;51129323601
  1. ;;9002226.02101,"786,51129323601 ",.02)
  1. ;;51129323601
  1. ;;9002226.02101,"786,51129323602 ",.01)
  1. ;;51129323602