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