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

BGPM3AAH.m

Go to the documentation of this file.
  1. BGPM3AAH ;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,"774,00615455029 ",.02)
  1. ;;00615455029
  1. ;;9002226.02101,"774,00615455031 ",.01)
  1. ;;00615455031
  1. ;;9002226.02101,"774,00615455031 ",.02)
  1. ;;00615455031
  1. ;;9002226.02101,"774,00615455039 ",.01)
  1. ;;00615455039
  1. ;;9002226.02101,"774,00615455039 ",.02)
  1. ;;00615455039
  1. ;;9002226.02101,"774,00615455129 ",.01)
  1. ;;00615455129
  1. ;;9002226.02101,"774,00615455129 ",.02)
  1. ;;00615455129
  1. ;;9002226.02101,"774,00641039102 ",.01)
  1. ;;00641039102
  1. ;;9002226.02101,"774,00641039102 ",.02)
  1. ;;00641039102
  1. ;;9002226.02101,"774,00641039125 ",.01)
  1. ;;00641039125
  1. ;;9002226.02101,"774,00641039125 ",.02)
  1. ;;00641039125
  1. ;;9002226.02101,"774,00641039164 ",.01)
  1. ;;00641039164
  1. ;;9002226.02101,"774,00641039164 ",.02)
  1. ;;00641039164
  1. ;;9002226.02101,"774,00641040002 ",.01)
  1. ;;00641040002
  1. ;;9002226.02101,"774,00641040002 ",.02)
  1. ;;00641040002
  1. ;;9002226.02101,"774,00641040021 ",.01)
  1. ;;00641040021
  1. ;;9002226.02101,"774,00641040021 ",.02)
  1. ;;00641040021
  1. ;;9002226.02101,"774,00641040025 ",.01)
  1. ;;00641040025
  1. ;;9002226.02101,"774,00641040025 ",.02)
  1. ;;00641040025
  1. ;;9002226.02101,"774,00641040064 ",.01)
  1. ;;00641040064
  1. ;;9002226.02101,"774,00641040064 ",.02)
  1. ;;00641040064
  1. ;;9002226.02101,"774,00641040125 ",.01)
  1. ;;00641040125
  1. ;;9002226.02101,"774,00641040125 ",.02)
  1. ;;00641040125
  1. ;;9002226.02101,"774,00641041002 ",.01)
  1. ;;00641041002
  1. ;;9002226.02101,"774,00641041002 ",.02)
  1. ;;00641041002
  1. ;;9002226.02101,"774,00641041025 ",.01)
  1. ;;00641041025
  1. ;;9002226.02101,"774,00641041025 ",.02)
  1. ;;00641041025
  1. ;;9002226.02101,"774,00641041064 ",.01)
  1. ;;00641041064
  1. ;;9002226.02101,"774,00641041064 ",.02)
  1. ;;00641041064
  1. ;;9002226.02101,"774,00641244041 ",.01)
  1. ;;00641244041
  1. ;;9002226.02101,"774,00641244041 ",.02)
  1. ;;00641244041
  1. ;;9002226.02101,"774,00641244045 ",.01)
  1. ;;00641244045
  1. ;;9002226.02101,"774,00641244045 ",.02)
  1. ;;00641244045
  1. ;;9002226.02101,"774,00641245041 ",.01)
  1. ;;00641245041
  1. ;;9002226.02101,"774,00641245041 ",.02)
  1. ;;00641245041
  1. ;;9002226.02101,"774,00641245045 ",.01)
  1. ;;00641245045
  1. ;;9002226.02101,"774,00641245045 ",.02)
  1. ;;00641245045
  1. ;;9002226.02101,"774,00641246041 ",.01)
  1. ;;00641246041
  1. ;;9002226.02101,"774,00641246041 ",.02)
  1. ;;00641246041
  1. ;;9002226.02101,"774,00641246045 ",.01)
  1. ;;00641246045
  1. ;;9002226.02101,"774,00641246045 ",.02)
  1. ;;00641246045
  1. ;;9002226.02101,"774,00641247041 ",.01)
  1. ;;00641247041
  1. ;;9002226.02101,"774,00641247041 ",.02)
  1. ;;00641247041
  1. ;;9002226.02101,"774,00641247045 ",.01)
  1. ;;00641247045
  1. ;;9002226.02101,"774,00641247045 ",.02)
  1. ;;00641247045
  1. ;;9002226.02101,"774,00641326209 ",.01)
  1. ;;00641326209
  1. ;;9002226.02101,"774,00641326209 ",.02)
  1. ;;00641326209
  1. ;;9002226.02101,"774,00641326403 ",.01)
  1. ;;00641326403
  1. ;;9002226.02101,"774,00641326403 ",.02)
  1. ;;00641326403
  1. ;;9002226.02101,"774,00641326503 ",.01)
  1. ;;00641326503
  1. ;;9002226.02101,"774,00641326503 ",.02)
  1. ;;00641326503
  1. ;;9002226.02101,"774,00641326603 ",.01)
  1. ;;00641326603
  1. ;;9002226.02101,"774,00641326603 ",.02)
  1. ;;00641326603
  1. ;;9002226.02101,"774,00641326703 ",.01)
  1. ;;00641326703
  1. ;;9002226.02101,"774,00641326703 ",.02)
  1. ;;00641326703
  1. ;;9002226.02101,"774,00641326803 ",.01)
  1. ;;00641326803
  1. ;;9002226.02101,"774,00641326803 ",.02)
  1. ;;00641326803
  1. ;;9002226.02101,"774,00677027521 ",.01)
  1. ;;00677027521
  1. ;;9002226.02101,"774,00677027521 ",.02)
  1. ;;00677027521
  1. ;;9002226.02101,"774,00677079301 ",.01)
  1. ;;00677079301
  1. ;;9002226.02101,"774,00677079301 ",.02)
  1. ;;00677079301
  1. ;;9002226.02101,"774,00677079401 ",.01)
  1. ;;00677079401
  1. ;;9002226.02101,"774,00677079401 ",.02)
  1. ;;00677079401
  1. ;;9002226.02101,"774,00686001101 ",.01)
  1. ;;00686001101
  1. ;;9002226.02101,"774,00686001101 ",.02)
  1. ;;00686001101
  1. ;;9002226.02101,"774,00686001105 ",.01)
  1. ;;00686001105
  1. ;;9002226.02101,"774,00686001105 ",.02)
  1. ;;00686001105
  1. ;;9002226.02101,"774,00686001910 ",.01)
  1. ;;00686001910
  1. ;;9002226.02101,"774,00686001910 ",.02)
  1. ;;00686001910
  1. ;;9002226.02101,"774,00719199310 ",.01)
  1. ;;00719199310
  1. ;;9002226.02101,"774,00719199310 ",.02)
  1. ;;00719199310
  1. ;;9002226.02101,"774,00719199313 ",.01)
  1. ;;00719199313
  1. ;;9002226.02101,"774,00719199313 ",.02)
  1. ;;00719199313
  1. ;;9002226.02101,"774,00725004401 ",.01)
  1. ;;00725004401
  1. ;;9002226.02101,"774,00725004401 ",.02)
  1. ;;00725004401
  1. ;;9002226.02101,"774,00725004410 ",.01)
  1. ;;00725004410
  1. ;;9002226.02101,"774,00725004410 ",.02)
  1. ;;00725004410
  1. ;;9002226.02101,"774,00725004501 ",.01)
  1. ;;00725004501
  1. ;;9002226.02101,"774,00725004501 ",.02)
  1. ;;00725004501
  1. ;;9002226.02101,"774,00725004510 ",.01)
  1. ;;00725004510
  1. ;;9002226.02101,"774,00725004510 ",.02)
  1. ;;00725004510
  1. ;;9002226.02101,"774,00725004601 ",.01)
  1. ;;00725004601
  1. ;;9002226.02101,"774,00725004601 ",.02)
  1. ;;00725004601
  1. ;;9002226.02101,"774,00725004610 ",.01)
  1. ;;00725004610
  1. ;;9002226.02101,"774,00725004610 ",.02)
  1. ;;00725004610
  1. ;;9002226.02101,"774,00725004701 ",.01)
  1. ;;00725004701
  1. ;;9002226.02101,"774,00725004701 ",.02)
  1. ;;00725004701
  1. ;;9002226.02101,"774,00725004710 ",.01)
  1. ;;00725004710
  1. ;;9002226.02101,"774,00725004710 ",.02)
  1. ;;00725004710
  1. ;;9002226.02101,"774,00725005001 ",.01)
  1. ;;00725005001
  1. ;;9002226.02101,"774,00725005001 ",.02)
  1. ;;00725005001
  1. ;;9002226.02101,"774,00725005010 ",.01)
  1. ;;00725005010
  1. ;;9002226.02101,"774,00725005010 ",.02)
  1. ;;00725005010
  1. ;;9002226.02101,"774,00781035207 ",.01)
  1. ;;00781035207
  1. ;;9002226.02101,"774,00781035207 ",.02)
  1. ;;00781035207
  1. ;;9002226.02101,"774,00781035208 ",.01)
  1. ;;00781035208
  1. ;;9002226.02101,"774,00781035208 ",.02)
  1. ;;00781035208
  1. ;;9002226.02101,"774,00781036306 ",.01)
  1. ;;00781036306
  1. ;;9002226.02101,"774,00781036306 ",.02)
  1. ;;00781036306
  1. ;;9002226.02101,"774,00781036307 ",.01)
  1. ;;00781036307
  1. ;;9002226.02101,"774,00781036307 ",.02)
  1. ;;00781036307
  1. ;;9002226.02101,"774,00781036308 ",.01)
  1. ;;00781036308
  1. ;;9002226.02101,"774,00781036308 ",.02)
  1. ;;00781036308
  1. ;;9002226.02101,"774,00781036406 ",.01)
  1. ;;00781036406
  1. ;;9002226.02101,"774,00781036406 ",.02)
  1. ;;00781036406
  1. ;;9002226.02101,"774,00781036407 ",.01)
  1. ;;00781036407
  1. ;;9002226.02101,"774,00781036407 ",.02)
  1. ;;00781036407
  1. ;;9002226.02101,"774,00781036408 ",.01)
  1. ;;00781036408
  1. ;;9002226.02101,"774,00781036408 ",.02)
  1. ;;00781036408
  1. ;;9002226.02101,"774,00781036607 ",.01)
  1. ;;00781036607
  1. ;;9002226.02101,"774,00781036607 ",.02)
  1. ;;00781036607
  1. ;;9002226.02101,"774,00781036608 ",.01)
  1. ;;00781036608
  1. ;;9002226.02101,"774,00781036608 ",.02)
  1. ;;00781036608
  1. ;;9002226.02101,"774,00781036907 ",.01)
  1. ;;00781036907
  1. ;;9002226.02101,"774,00781036907 ",.02)
  1. ;;00781036907
  1. ;;9002226.02101,"774,00781036908 ",.01)
  1. ;;00781036908
  1. ;;9002226.02101,"774,00781036908 ",.02)
  1. ;;00781036908
  1. ;;9002226.02101,"774,00781037704 ",.01)
  1. ;;00781037704
  1. ;;9002226.02101,"774,00781037704 ",.02)
  1. ;;00781037704
  1. ;;9002226.02101,"774,00781037706 ",.01)
  1. ;;00781037706
  1. ;;9002226.02101,"774,00781037706 ",.02)
  1. ;;00781037706
  1. ;;9002226.02101,"774,00781037707 ",.01)
  1. ;;00781037707
  1. ;;9002226.02101,"774,00781037707 ",.02)
  1. ;;00781037707
  1. ;;9002226.02101,"774,00781037708 ",.01)
  1. ;;00781037708
  1. ;;9002226.02101,"774,00781037708 ",.02)
  1. ;;00781037708
  1. ;;9002226.02101,"774,00781038107 ",.01)
  1. ;;00781038107
  1. ;;9002226.02101,"774,00781038107 ",.02)
  1. ;;00781038107
  1. ;;9002226.02101,"774,00781038108 ",.01)
  1. ;;00781038108
  1. ;;9002226.02101,"774,00781038108 ",.02)
  1. ;;00781038108
  1. ;;9002226.02101,"774,00781038607 ",.01)
  1. ;;00781038607
  1. ;;9002226.02101,"774,00781038607 ",.02)
  1. ;;00781038607
  1. ;;9002226.02101,"774,00781038608 ",.01)
  1. ;;00781038608
  1. ;;9002226.02101,"774,00781038608 ",.02)
  1. ;;00781038608
  1. ;;9002226.02101,"774,00781038707 ",.01)
  1. ;;00781038707
  1. ;;9002226.02101,"774,00781038707 ",.02)
  1. ;;00781038707
  1. ;;9002226.02101,"774,00781038708 ",.01)
  1. ;;00781038708
  1. ;;9002226.02101,"774,00781038708 ",.02)
  1. ;;00781038708
  1. ;;9002226.02101,"774,00781311963 ",.01)
  1. ;;00781311963
  1. ;;9002226.02101,"774,00781311963 ",.02)
  1. ;;00781311963
  1. ;;9002226.02101,"774,00781311964 ",.01)
  1. ;;00781311964
  1. ;;9002226.02101,"774,00781311964 ",.02)
  1. ;;00781311964
  1. ;;9002226.02101,"774,00781311966 ",.01)
  1. ;;00781311966
  1. ;;9002226.02101,"774,00781311966 ",.02)
  1. ;;00781311966
  1. ;;9002226.02101,"774,00781311968 ",.01)
  1. ;;00781311968
  1. ;;9002226.02101,"774,00781311968 ",.02)
  1. ;;00781311968
  1. ;;9002226.02101,"774,00781311969 ",.01)
  1. ;;00781311969
  1. ;;9002226.02101,"774,00781311969 ",.02)
  1. ;;00781311969
  1. ;;9002226.02101,"774,00781312168 ",.01)
  1. ;;00781312168
  1. ;;9002226.02101,"774,00781312168 ",.02)
  1. ;;00781312168
  1. ;;9002226.02101,"774,00781312169 ",.01)
  1. ;;00781312169
  1. ;;9002226.02101,"774,00781312169 ",.02)
  1. ;;00781312169
  1. ;;9002226.02101,"774,00814365046 ",.01)
  1. ;;00814365046
  1. ;;9002226.02101,"774,00814365046 ",.02)
  1. ;;00814365046
  1. ;;9002226.02101,"774,00814365540 ",.01)
  1. ;;00814365540
  1. ;;9002226.02101,"774,00814365540 ",.02)
  1. ;;00814365540
  1. ;;9002226.02101,"774,00814852114 ",.01)
  1. ;;00814852114
  1. ;;9002226.02101,"774,00814852114 ",.02)
  1. ;;00814852114
  1. ;;9002226.02101,"774,00814852214 ",.01)
  1. ;;00814852214
  1. ;;9002226.02101,"774,00814852214 ",.02)
  1. ;;00814852214
  1. ;;9002226.02101,"774,00814852230 ",.01)
  1. ;;00814852230
  1. ;;9002226.02101,"774,00814852230 ",.02)
  1. ;;00814852230
  1. ;;9002226.02101,"774,00832062500 ",.01)
  1. ;;00832062500
  1. ;;9002226.02101,"774,00832062500 ",.02)
  1. ;;00832062500
  1. ;;9002226.02101,"774,00832062600 ",.01)
  1. ;;00832062600
  1. ;;9002226.02101,"774,00832062600 ",.02)
  1. ;;00832062600
  1. ;;9002226.02101,"774,00832062700 ",.01)
  1. ;;00832062700
  1. ;;9002226.02101,"774,00832062700 ",.02)
  1. ;;00832062700
  1. ;;9002226.02101,"774,00832062710 ",.01)
  1. ;;00832062710
  1. ;;9002226.02101,"774,00832062710 ",.02)
  1. ;;00832062710
  1. ;;9002226.02101,"774,00832062725 ",.01)
  1. ;;00832062725
  1. ;;9002226.02101,"774,00832062725 ",.02)
  1. ;;00832062725
  1. ;;9002226.02101,"774,00839517530 ",.01)
  1. ;;00839517530
  1. ;;9002226.02101,"774,00839517530 ",.02)
  1. ;;00839517530
  1. ;;9002226.02101,"774,00839558930 ",.01)
  1. ;;00839558930
  1. ;;9002226.02101,"774,00839558930 ",.02)
  1. ;;00839558930
  1. ;;9002226.02101,"774,00839559025 ",.01)
  1. ;;00839559025
  1. ;;9002226.02101,"774,00839559025 ",.02)
  1. ;;00839559025
  1. ;;9002226.02101,"774,00839662606 ",.01)
  1. ;;00839662606
  1. ;;9002226.02101,"774,00839662606 ",.02)
  1. ;;00839662606
  1. ;;9002226.02101,"774,00839662706 ",.01)
  1. ;;00839662706
  1. ;;9002226.02101,"774,00839662706 ",.02)
  1. ;;00839662706
  1. ;;9002226.02101,"774,00839662806 ",.01)
  1. ;;00839662806
  1. ;;9002226.02101,"774,00839662806 ",.02)
  1. ;;00839662806
  1. ;;9002226.02101,"774,00839662906 ",.01)
  1. ;;00839662906
  1. ;;9002226.02101,"774,00839662906 ",.02)
  1. ;;00839662906
  1. ;;9002226.02101,"774,00839663006 ",.01)
  1. ;;00839663006
  1. ;;9002226.02101,"774,00839663006 ",.02)
  1. ;;00839663006
  1. ;;9002226.02101,"774,00894556001 ",.01)
  1. ;;00894556001
  1. ;;9002226.02101,"774,00894556001 ",.02)
  1. ;;00894556001
  1. ;;9002226.02101,"774,00894556002 ",.01)
  1. ;;00894556002
  1. ;;9002226.02101,"774,00894556002 ",.02)
  1. ;;00894556002
  1. ;;9002226.02101,"774,00894556501 ",.01)
  1. ;;00894556501
  1. ;;9002226.02101,"774,00894556501 ",.02)
  1. ;;00894556501
  1. ;;9002226.02101,"774,00894556502 ",.01)
  1. ;;00894556502
  1. ;;9002226.02101,"774,00894556502 ",.02)
  1. ;;00894556502
  1. ;;9002226.02101,"774,00894557001 ",.01)
  1. ;;00894557001
  1. ;;9002226.02101,"774,00894557001 ",.02)
  1. ;;00894557001
  1. ;;9002226.02101,"774,00894557002 ",.01)
  1. ;;00894557002
  1. ;;9002226.02101,"774,00894557002 ",.02)
  1. ;;00894557002
  1. ;;9002226.02101,"774,00894557601 ",.01)
  1. ;;00894557601
  1. ;;9002226.02101,"774,00894557601 ",.02)
  1. ;;00894557601
  1. ;;9002226.02101,"774,00894557602 ",.01)
  1. ;;00894557602
  1. ;;9002226.02101,"774,00894557602 ",.02)
  1. ;;00894557602
  1. ;;9002226.02101,"774,00894558001 ",.01)
  1. ;;00894558001