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

BGPM3ADC.m

Go to the documentation of this file.
  1. BGPM3ADC ;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,58016092273 ",.02)
  1. ;;58016092273
  1. ;;9002226.02101,"786,58016092275 ",.01)
  1. ;;58016092275
  1. ;;9002226.02101,"786,58016092275 ",.02)
  1. ;;58016092275
  1. ;;9002226.02101,"786,58016092276 ",.01)
  1. ;;58016092276
  1. ;;9002226.02101,"786,58016092276 ",.02)
  1. ;;58016092276
  1. ;;9002226.02101,"786,58016092277 ",.01)
  1. ;;58016092277
  1. ;;9002226.02101,"786,58016092277 ",.02)
  1. ;;58016092277
  1. ;;9002226.02101,"786,58016092279 ",.01)
  1. ;;58016092279
  1. ;;9002226.02101,"786,58016092279 ",.02)
  1. ;;58016092279
  1. ;;9002226.02101,"786,58016092280 ",.01)
  1. ;;58016092280
  1. ;;9002226.02101,"786,58016092280 ",.02)
  1. ;;58016092280
  1. ;;9002226.02101,"786,58016092281 ",.01)
  1. ;;58016092281
  1. ;;9002226.02101,"786,58016092281 ",.02)
  1. ;;58016092281
  1. ;;9002226.02101,"786,58016092282 ",.01)
  1. ;;58016092282
  1. ;;9002226.02101,"786,58016092282 ",.02)
  1. ;;58016092282
  1. ;;9002226.02101,"786,58016092283 ",.01)
  1. ;;58016092283
  1. ;;9002226.02101,"786,58016092283 ",.02)
  1. ;;58016092283
  1. ;;9002226.02101,"786,58016092284 ",.01)
  1. ;;58016092284
  1. ;;9002226.02101,"786,58016092284 ",.02)
  1. ;;58016092284
  1. ;;9002226.02101,"786,58016092287 ",.01)
  1. ;;58016092287
  1. ;;9002226.02101,"786,58016092287 ",.02)
  1. ;;58016092287
  1. ;;9002226.02101,"786,58016092289 ",.01)
  1. ;;58016092289
  1. ;;9002226.02101,"786,58016092289 ",.02)
  1. ;;58016092289
  1. ;;9002226.02101,"786,58016092290 ",.01)
  1. ;;58016092290
  1. ;;9002226.02101,"786,58016092290 ",.02)
  1. ;;58016092290
  1. ;;9002226.02101,"786,58016092291 ",.01)
  1. ;;58016092291
  1. ;;9002226.02101,"786,58016092291 ",.02)
  1. ;;58016092291
  1. ;;9002226.02101,"786,58016092292 ",.01)
  1. ;;58016092292
  1. ;;9002226.02101,"786,58016092292 ",.02)
  1. ;;58016092292
  1. ;;9002226.02101,"786,58016092293 ",.01)
  1. ;;58016092293
  1. ;;9002226.02101,"786,58016092293 ",.02)
  1. ;;58016092293
  1. ;;9002226.02101,"786,58016092296 ",.01)
  1. ;;58016092296
  1. ;;9002226.02101,"786,58016092296 ",.02)
  1. ;;58016092296
  1. ;;9002226.02101,"786,58016092297 ",.01)
  1. ;;58016092297
  1. ;;9002226.02101,"786,58016092297 ",.02)
  1. ;;58016092297
  1. ;;9002226.02101,"786,58016092298 ",.01)
  1. ;;58016092298
  1. ;;9002226.02101,"786,58016092298 ",.02)
  1. ;;58016092298
  1. ;;9002226.02101,"786,58016092299 ",.01)
  1. ;;58016092299
  1. ;;9002226.02101,"786,58016092299 ",.02)
  1. ;;58016092299
  1. ;;9002226.02101,"786,58016097900 ",.01)
  1. ;;58016097900
  1. ;;9002226.02101,"786,58016097900 ",.02)
  1. ;;58016097900
  1. ;;9002226.02101,"786,58016097901 ",.01)
  1. ;;58016097901
  1. ;;9002226.02101,"786,58016097901 ",.02)
  1. ;;58016097901
  1. ;;9002226.02101,"786,58016097902 ",.01)
  1. ;;58016097902
  1. ;;9002226.02101,"786,58016097902 ",.02)
  1. ;;58016097902
  1. ;;9002226.02101,"786,58016097903 ",.01)
  1. ;;58016097903
  1. ;;9002226.02101,"786,58016097903 ",.02)
  1. ;;58016097903
  1. ;;9002226.02101,"786,58016097904 ",.01)
  1. ;;58016097904
  1. ;;9002226.02101,"786,58016097904 ",.02)
  1. ;;58016097904
  1. ;;9002226.02101,"786,58016097905 ",.01)
  1. ;;58016097905
  1. ;;9002226.02101,"786,58016097905 ",.02)
  1. ;;58016097905
  1. ;;9002226.02101,"786,58016097906 ",.01)
  1. ;;58016097906
  1. ;;9002226.02101,"786,58016097906 ",.02)
  1. ;;58016097906
  1. ;;9002226.02101,"786,58016097907 ",.01)
  1. ;;58016097907
  1. ;;9002226.02101,"786,58016097907 ",.02)
  1. ;;58016097907
  1. ;;9002226.02101,"786,58016097908 ",.01)
  1. ;;58016097908
  1. ;;9002226.02101,"786,58016097908 ",.02)
  1. ;;58016097908
  1. ;;9002226.02101,"786,58016097909 ",.01)
  1. ;;58016097909
  1. ;;9002226.02101,"786,58016097909 ",.02)
  1. ;;58016097909
  1. ;;9002226.02101,"786,58016097910 ",.01)
  1. ;;58016097910
  1. ;;9002226.02101,"786,58016097910 ",.02)
  1. ;;58016097910
  1. ;;9002226.02101,"786,58016097912 ",.01)
  1. ;;58016097912
  1. ;;9002226.02101,"786,58016097912 ",.02)
  1. ;;58016097912
  1. ;;9002226.02101,"786,58016097914 ",.01)
  1. ;;58016097914
  1. ;;9002226.02101,"786,58016097914 ",.02)
  1. ;;58016097914
  1. ;;9002226.02101,"786,58016097915 ",.01)
  1. ;;58016097915
  1. ;;9002226.02101,"786,58016097915 ",.02)
  1. ;;58016097915
  1. ;;9002226.02101,"786,58016097916 ",.01)
  1. ;;58016097916
  1. ;;9002226.02101,"786,58016097916 ",.02)
  1. ;;58016097916
  1. ;;9002226.02101,"786,58016097918 ",.01)
  1. ;;58016097918
  1. ;;9002226.02101,"786,58016097918 ",.02)
  1. ;;58016097918
  1. ;;9002226.02101,"786,58016097920 ",.01)
  1. ;;58016097920
  1. ;;9002226.02101,"786,58016097920 ",.02)
  1. ;;58016097920
  1. ;;9002226.02101,"786,58016097921 ",.01)
  1. ;;58016097921
  1. ;;9002226.02101,"786,58016097921 ",.02)
  1. ;;58016097921
  1. ;;9002226.02101,"786,58016097924 ",.01)
  1. ;;58016097924
  1. ;;9002226.02101,"786,58016097924 ",.02)
  1. ;;58016097924
  1. ;;9002226.02101,"786,58016097925 ",.01)
  1. ;;58016097925
  1. ;;9002226.02101,"786,58016097925 ",.02)
  1. ;;58016097925
  1. ;;9002226.02101,"786,58016097926 ",.01)
  1. ;;58016097926
  1. ;;9002226.02101,"786,58016097926 ",.02)
  1. ;;58016097926
  1. ;;9002226.02101,"786,58016097928 ",.01)
  1. ;;58016097928
  1. ;;9002226.02101,"786,58016097928 ",.02)
  1. ;;58016097928
  1. ;;9002226.02101,"786,58016097930 ",.01)
  1. ;;58016097930
  1. ;;9002226.02101,"786,58016097930 ",.02)
  1. ;;58016097930
  1. ;;9002226.02101,"786,58016097932 ",.01)
  1. ;;58016097932
  1. ;;9002226.02101,"786,58016097932 ",.02)
  1. ;;58016097932
  1. ;;9002226.02101,"786,58016097935 ",.01)
  1. ;;58016097935
  1. ;;9002226.02101,"786,58016097935 ",.02)
  1. ;;58016097935
  1. ;;9002226.02101,"786,58016097936 ",.01)
  1. ;;58016097936
  1. ;;9002226.02101,"786,58016097936 ",.02)
  1. ;;58016097936
  1. ;;9002226.02101,"786,58016097940 ",.01)
  1. ;;58016097940
  1. ;;9002226.02101,"786,58016097940 ",.02)
  1. ;;58016097940
  1. ;;9002226.02101,"786,58016097942 ",.01)
  1. ;;58016097942
  1. ;;9002226.02101,"786,58016097942 ",.02)
  1. ;;58016097942
  1. ;;9002226.02101,"786,58016097944 ",.01)
  1. ;;58016097944
  1. ;;9002226.02101,"786,58016097944 ",.02)
  1. ;;58016097944
  1. ;;9002226.02101,"786,58016097945 ",.01)
  1. ;;58016097945
  1. ;;9002226.02101,"786,58016097945 ",.02)
  1. ;;58016097945
  1. ;;9002226.02101,"786,58016097948 ",.01)
  1. ;;58016097948
  1. ;;9002226.02101,"786,58016097948 ",.02)
  1. ;;58016097948
  1. ;;9002226.02101,"786,58016097950 ",.01)
  1. ;;58016097950
  1. ;;9002226.02101,"786,58016097950 ",.02)
  1. ;;58016097950
  1. ;;9002226.02101,"786,58016097956 ",.01)
  1. ;;58016097956
  1. ;;9002226.02101,"786,58016097956 ",.02)
  1. ;;58016097956
  1. ;;9002226.02101,"786,58016097960 ",.01)
  1. ;;58016097960
  1. ;;9002226.02101,"786,58016097960 ",.02)
  1. ;;58016097960
  1. ;;9002226.02101,"786,58016097967 ",.01)
  1. ;;58016097967
  1. ;;9002226.02101,"786,58016097967 ",.02)
  1. ;;58016097967
  1. ;;9002226.02101,"786,58016097969 ",.01)
  1. ;;58016097969
  1. ;;9002226.02101,"786,58016097969 ",.02)
  1. ;;58016097969
  1. ;;9002226.02101,"786,58016097970 ",.01)
  1. ;;58016097970
  1. ;;9002226.02101,"786,58016097970 ",.02)
  1. ;;58016097970
  1. ;;9002226.02101,"786,58016097971 ",.01)
  1. ;;58016097971
  1. ;;9002226.02101,"786,58016097971 ",.02)
  1. ;;58016097971
  1. ;;9002226.02101,"786,58016097972 ",.01)
  1. ;;58016097972
  1. ;;9002226.02101,"786,58016097972 ",.02)
  1. ;;58016097972
  1. ;;9002226.02101,"786,58016097973 ",.01)
  1. ;;58016097973
  1. ;;9002226.02101,"786,58016097973 ",.02)
  1. ;;58016097973
  1. ;;9002226.02101,"786,58016097975 ",.01)
  1. ;;58016097975
  1. ;;9002226.02101,"786,58016097975 ",.02)
  1. ;;58016097975
  1. ;;9002226.02101,"786,58016097976 ",.01)
  1. ;;58016097976
  1. ;;9002226.02101,"786,58016097976 ",.02)
  1. ;;58016097976
  1. ;;9002226.02101,"786,58016097977 ",.01)
  1. ;;58016097977
  1. ;;9002226.02101,"786,58016097977 ",.02)
  1. ;;58016097977
  1. ;;9002226.02101,"786,58016097979 ",.01)
  1. ;;58016097979
  1. ;;9002226.02101,"786,58016097979 ",.02)
  1. ;;58016097979
  1. ;;9002226.02101,"786,58016097980 ",.01)
  1. ;;58016097980
  1. ;;9002226.02101,"786,58016097980 ",.02)
  1. ;;58016097980
  1. ;;9002226.02101,"786,58016097981 ",.01)
  1. ;;58016097981
  1. ;;9002226.02101,"786,58016097981 ",.02)
  1. ;;58016097981
  1. ;;9002226.02101,"786,58016097982 ",.01)
  1. ;;58016097982
  1. ;;9002226.02101,"786,58016097982 ",.02)
  1. ;;58016097982
  1. ;;9002226.02101,"786,58016097983 ",.01)
  1. ;;58016097983
  1. ;;9002226.02101,"786,58016097983 ",.02)
  1. ;;58016097983
  1. ;;9002226.02101,"786,58016097984 ",.01)
  1. ;;58016097984
  1. ;;9002226.02101,"786,58016097984 ",.02)
  1. ;;58016097984
  1. ;;9002226.02101,"786,58016097987 ",.01)
  1. ;;58016097987
  1. ;;9002226.02101,"786,58016097987 ",.02)
  1. ;;58016097987
  1. ;;9002226.02101,"786,58016097989 ",.01)
  1. ;;58016097989
  1. ;;9002226.02101,"786,58016097989 ",.02)
  1. ;;58016097989
  1. ;;9002226.02101,"786,58016097990 ",.01)
  1. ;;58016097990
  1. ;;9002226.02101,"786,58016097990 ",.02)
  1. ;;58016097990
  1. ;;9002226.02101,"786,58016097991 ",.01)
  1. ;;58016097991
  1. ;;9002226.02101,"786,58016097991 ",.02)
  1. ;;58016097991
  1. ;;9002226.02101,"786,58016097992 ",.01)
  1. ;;58016097992
  1. ;;9002226.02101,"786,58016097992 ",.02)
  1. ;;58016097992
  1. ;;9002226.02101,"786,58016097993 ",.01)
  1. ;;58016097993
  1. ;;9002226.02101,"786,58016097993 ",.02)
  1. ;;58016097993
  1. ;;9002226.02101,"786,58016097996 ",.01)
  1. ;;58016097996
  1. ;;9002226.02101,"786,58016097996 ",.02)
  1. ;;58016097996
  1. ;;9002226.02101,"786,58016097997 ",.01)
  1. ;;58016097997
  1. ;;9002226.02101,"786,58016097997 ",.02)
  1. ;;58016097997
  1. ;;9002226.02101,"786,58016097998 ",.01)
  1. ;;58016097998
  1. ;;9002226.02101,"786,58016097998 ",.02)
  1. ;;58016097998
  1. ;;9002226.02101,"786,58016097999 ",.01)
  1. ;;58016097999
  1. ;;9002226.02101,"786,58016097999 ",.02)
  1. ;;58016097999
  1. ;;9002226.02101,"786,58056038106 ",.01)
  1. ;;58056038106
  1. ;;9002226.02101,"786,58056038106 ",.02)
  1. ;;58056038106
  1. ;;9002226.02101,"786,58056038250 ",.01)
  1. ;;58056038250
  1. ;;9002226.02101,"786,58056038250 ",.02)
  1. ;;58056038250
  1. ;;9002226.02101,"786,58864071060 ",.01)
  1. ;;58864071060
  1. ;;9002226.02101,"786,58864071060 ",.02)
  1. ;;58864071060
  1. ;;9002226.02101,"786,58864078030 ",.01)
  1. ;;58864078030
  1. ;;9002226.02101,"786,58864078030 ",.02)
  1. ;;58864078030
  1. ;;9002226.02101,"786,58864078060 ",.01)
  1. ;;58864078060
  1. ;;9002226.02101,"786,58864078060 ",.02)
  1. ;;58864078060
  1. ;;9002226.02101,"786,58864078130 ",.01)
  1. ;;58864078130
  1. ;;9002226.02101,"786,58864078130 ",.02)
  1. ;;58864078130
  1. ;;9002226.02101,"786,59591001768 ",.01)
  1. ;;59591001768
  1. ;;9002226.02101,"786,59591001768 ",.02)
  1. ;;59591001768
  1. ;;9002226.02101,"786,59630062899 ",.01)
  1. ;;59630062899
  1. ;;9002226.02101,"786,59630062899 ",.02)
  1. ;;59630062899
  1. ;;9002226.02101,"786,59762026001 ",.01)
  1. ;;59762026001
  1. ;;9002226.02101,"786,59762026001 ",.02)
  1. ;;59762026001
  1. ;;9002226.02101,"786,59762026002 ",.01)
  1. ;;59762026002
  1. ;;9002226.02101,"786,59762026002 ",.02)
  1. ;;59762026002
  1. ;;9002226.02101,"786,59762026003 ",.01)
  1. ;;59762026003
  1. ;;9002226.02101,"786,59762026003 ",.02)
  1. ;;59762026003
  1. ;;9002226.02101,"786,59762045001 ",.01)
  1. ;;59762045001
  1. ;;9002226.02101,"786,59762045001 ",.02)
  1. ;;59762045001
  1. ;;9002226.02101,"786,59772558501 ",.01)
  1. ;;59772558501
  1. ;;9002226.02101,"786,59772558501 ",.02)
  1. ;;59772558501
  1. ;;9002226.02101,"786,59772558502 ",.01)
  1. ;;59772558502
  1. ;;9002226.02101,"786,59772558502 ",.02)
  1. ;;59772558502
  1. ;;9002226.02101,"786,59772558520 ",.01)
  1. ;;59772558520
  1. ;;9002226.02101,"786,59772558520 ",.02)
  1. ;;59772558520
  1. ;;9002226.02101,"786,59772558901 ",.01)
  1. ;;59772558901
  1. ;;9002226.02101,"786,59772558901 ",.02)
  1. ;;59772558901
  1. ;;9002226.02101,"786,59772558902 ",.01)
  1. ;;59772558902
  1. ;;9002226.02101,"786,59772558902 ",.02)
  1. ;;59772558902
  1. ;;9002226.02101,"786,59772558920 ",.01)
  1. ;;59772558920
  1. ;;9002226.02101,"786,59772558920 ",.02)
  1. ;;59772558920
  1. ;;9002226.02101,"786,59930163801 ",.01)
  1. ;;59930163801
  1. ;;9002226.02101,"786,59930163801 ",.02)
  1. ;;59930163801
  1. ;;9002226.02101,"786,59930163802 ",.01)
  1. ;;59930163802
  1. ;;9002226.02101,"786,59930163802 ",.02)
  1. ;;59930163802
  1. ;;9002226.02101,"786,60312036300 ",.01)
  1. ;;60312036300
  1. ;;9002226.02101,"786,60312036300 ",.02)
  1. ;;60312036300
  1. ;;9002226.02101,"786,60312036400 ",.01)
  1. ;;60312036400
  1. ;;9002226.02101,"786,60312036400 ",.02)
  1. ;;60312036400
  1. ;;9002226.02101,"786,60312036500 ",.01)
  1. ;;60312036500
  1. ;;9002226.02101,"786,60312036500 ",.02)
  1. ;;60312036500
  1. ;;9002226.02101,"786,60312036600 ",.01)
  1. ;;60312036600