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

BGPM3ADI.m

Go to the documentation of this file.
BGPM3ADI ;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,68382006814 ",.02)
 ;;68382006814
 ;;9002226.02101,"786,68382006816 ",.01)
 ;;68382006816
 ;;9002226.02101,"786,68382006816 ",.02)
 ;;68382006816
 ;;9002226.02101,"786,68382006819 ",.01)
 ;;68382006819
 ;;9002226.02101,"786,68382006819 ",.02)
 ;;68382006819
 ;;9002226.02101,"786,68382006840 ",.01)
 ;;68382006840
 ;;9002226.02101,"786,68382006840 ",.02)
 ;;68382006840
 ;;9002226.02101,"786,68382006905 ",.01)
 ;;68382006905
 ;;9002226.02101,"786,68382006905 ",.02)
 ;;68382006905
 ;;9002226.02101,"786,68382006906 ",.01)
 ;;68382006906
 ;;9002226.02101,"786,68382006906 ",.02)
 ;;68382006906
 ;;9002226.02101,"786,68382006910 ",.01)
 ;;68382006910
 ;;9002226.02101,"786,68382006910 ",.02)
 ;;68382006910
 ;;9002226.02101,"786,68382006914 ",.01)
 ;;68382006914
 ;;9002226.02101,"786,68382006914 ",.02)
 ;;68382006914
 ;;9002226.02101,"786,68382006916 ",.01)
 ;;68382006916
 ;;9002226.02101,"786,68382006916 ",.02)
 ;;68382006916
 ;;9002226.02101,"786,68382010005 ",.01)
 ;;68382010005
 ;;9002226.02101,"786,68382010005 ",.02)
 ;;68382010005
 ;;9002226.02101,"786,68382010014 ",.01)
 ;;68382010014
 ;;9002226.02101,"786,68382010014 ",.02)
 ;;68382010014
 ;;9002226.02101,"786,68533000500 ",.01)
 ;;68533000500
 ;;9002226.02101,"786,68533000500 ",.02)
 ;;68533000500
 ;;9002226.02101,"786,68533000512 ",.01)
 ;;68533000512
 ;;9002226.02101,"786,68533000512 ",.02)
 ;;68533000512
 ;;9002226.02101,"786,68533000525 ",.01)
 ;;68533000525
 ;;9002226.02101,"786,68533000525 ",.02)
 ;;68533000525
 ;;9002226.02101,"786,68533000540 ",.01)
 ;;68533000540
 ;;9002226.02101,"786,68533000540 ",.02)
 ;;68533000540
 ;;9002226.02101,"786,68533000600 ",.01)
 ;;68533000600
 ;;9002226.02101,"786,68533000600 ",.02)
 ;;68533000600
 ;;9002226.02101,"786,68533000612 ",.01)
 ;;68533000612
 ;;9002226.02101,"786,68533000612 ",.02)
 ;;68533000612
 ;;9002226.02101,"786,68533000625 ",.01)
 ;;68533000625
 ;;9002226.02101,"786,68533000625 ",.02)
 ;;68533000625
 ;;9002226.02101,"786,68533000640 ",.01)
 ;;68533000640
 ;;9002226.02101,"786,68533000640 ",.02)
 ;;68533000640
 ;;9002226.02101,"786,68533000700 ",.01)
 ;;68533000700
 ;;9002226.02101,"786,68533000700 ",.02)
 ;;68533000700
 ;;9002226.02101,"786,68533000712 ",.01)
 ;;68533000712
 ;;9002226.02101,"786,68533000712 ",.02)
 ;;68533000712
 ;;9002226.02101,"786,68533000740 ",.01)
 ;;68533000740
 ;;9002226.02101,"786,68533000740 ",.02)
 ;;68533000740
 ;;9002226.02101,"786,68533000745 ",.01)
 ;;68533000745
 ;;9002226.02101,"786,68533000745 ",.02)
 ;;68533000745
 ;;9002226.02101,"786,68533000800 ",.01)
 ;;68533000800
 ;;9002226.02101,"786,68533000800 ",.02)
 ;;68533000800
 ;;9002226.02101,"786,68533000812 ",.01)
 ;;68533000812
 ;;9002226.02101,"786,68533000812 ",.02)
 ;;68533000812
 ;;9002226.02101,"786,68533000822 ",.01)
 ;;68533000822
 ;;9002226.02101,"786,68533000822 ",.02)
 ;;68533000822
 ;;9002226.02101,"786,68533000840 ",.01)
 ;;68533000840
 ;;9002226.02101,"786,68533000840 ",.02)
 ;;68533000840
 ;;9002226.02101,"786,68533000900 ",.01)
 ;;68533000900
 ;;9002226.02101,"786,68533000900 ",.02)
 ;;68533000900
 ;;9002226.02101,"786,68533000912 ",.01)
 ;;68533000912
 ;;9002226.02101,"786,68533000912 ",.02)
 ;;68533000912
 ;;9002226.02101,"786,68533000922 ",.01)
 ;;68533000922
 ;;9002226.02101,"786,68533000922 ",.02)
 ;;68533000922
 ;;9002226.02101,"786,68533000940 ",.01)
 ;;68533000940
 ;;9002226.02101,"786,68533000940 ",.02)
 ;;68533000940
 ;;9002226.02101,"786,68533050550 ",.01)
 ;;68533050550
 ;;9002226.02101,"786,68533050550 ",.02)
 ;;68533050550
 ;;9002226.02101,"786,68533050590 ",.01)
 ;;68533050590
 ;;9002226.02101,"786,68533050590 ",.02)
 ;;68533050590
 ;;9002226.02101,"786,68533050650 ",.01)
 ;;68533050650
 ;;9002226.02101,"786,68533050650 ",.02)
 ;;68533050650
 ;;9002226.02101,"786,68533050690 ",.01)
 ;;68533050690
 ;;9002226.02101,"786,68533050690 ",.02)
 ;;68533050690
 ;;9002226.02101,"786,68533050750 ",.01)
 ;;68533050750
 ;;9002226.02101,"786,68533050750 ",.02)
 ;;68533050750
 ;;9002226.02101,"786,68533050890 ",.01)
 ;;68533050890
 ;;9002226.02101,"786,68533050890 ",.02)
 ;;68533050890
 ;;9002226.02101,"786,68533050990 ",.01)
 ;;68533050990
 ;;9002226.02101,"786,68533050990 ",.02)
 ;;68533050990
 ;;9002226.02101,"786,68688009300 ",.01)
 ;;68688009300
 ;;9002226.02101,"786,68688009300 ",.02)
 ;;68688009300
 ;;9002226.02101,"786,68688029200 ",.01)
 ;;68688029200
 ;;9002226.02101,"786,68688029200 ",.02)
 ;;68688029200
 ;;9002226.02101,"786,68688038400 ",.01)
 ;;68688038400
 ;;9002226.02101,"786,68688038400 ",.02)
 ;;68688038400
 ;;9002226.02101,"786,68688087900 ",.01)
 ;;68688087900
 ;;9002226.02101,"786,68688087900 ",.02)
 ;;68688087900
 ;;9002226.02101,"786,68688092400 ",.01)
 ;;68688092400
 ;;9002226.02101,"786,68688092400 ",.02)
 ;;68688092400
 ;;9002226.02101,"786,68788003403 ",.01)
 ;;68788003403
 ;;9002226.02101,"786,68788003403 ",.02)
 ;;68788003403
 ;;9002226.02101,"786,68788003405 ",.01)
 ;;68788003405
 ;;9002226.02101,"786,68788003405 ",.02)
 ;;68788003405
 ;;9002226.02101,"786,68788003406 ",.01)
 ;;68788003406
 ;;9002226.02101,"786,68788003406 ",.02)
 ;;68788003406
 ;;9002226.02101,"786,68788005203 ",.01)
 ;;68788005203
 ;;9002226.02101,"786,68788005203 ",.02)
 ;;68788005203
 ;;9002226.02101,"786,68788005206 ",.01)
 ;;68788005206
 ;;9002226.02101,"786,68788005206 ",.02)
 ;;68788005206
 ;;9002226.02101,"786,68788005209 ",.01)
 ;;68788005209
 ;;9002226.02101,"786,68788005209 ",.02)
 ;;68788005209
 ;;9002226.02101,"786,68788007403 ",.01)
 ;;68788007403
 ;;9002226.02101,"786,68788007403 ",.02)
 ;;68788007403
 ;;9002226.02101,"786,68788007406 ",.01)
 ;;68788007406
 ;;9002226.02101,"786,68788007406 ",.02)
 ;;68788007406
 ;;9002226.02101,"786,68788007409 ",.01)
 ;;68788007409
 ;;9002226.02101,"786,68788007409 ",.02)
 ;;68788007409
 ;;9002226.02101,"786,68788057603 ",.01)
 ;;68788057603
 ;;9002226.02101,"786,68788057603 ",.02)
 ;;68788057603
 ;;9002226.02101,"786,68788057606 ",.01)
 ;;68788057606
 ;;9002226.02101,"786,68788057606 ",.02)
 ;;68788057606
 ;;9002226.02101,"786,68788057609 ",.01)
 ;;68788057609
 ;;9002226.02101,"786,68788057609 ",.02)
 ;;68788057609
 ;;9002226.02101,"786,68788070603 ",.01)
 ;;68788070603
 ;;9002226.02101,"786,68788070603 ",.02)
 ;;68788070603
 ;;9002226.02101,"786,68788070606 ",.01)
 ;;68788070606
 ;;9002226.02101,"786,68788070606 ",.02)
 ;;68788070606
 ;;9002226.02101,"786,68788070609 ",.01)
 ;;68788070609
 ;;9002226.02101,"786,68788070609 ",.02)
 ;;68788070609
 ;;9002226.02101,"786,68788075503 ",.01)
 ;;68788075503
 ;;9002226.02101,"786,68788075503 ",.02)
 ;;68788075503
 ;;9002226.02101,"786,68788075506 ",.01)
 ;;68788075506
 ;;9002226.02101,"786,68788075506 ",.02)
 ;;68788075506
 ;;9002226.02101,"786,68788075509 ",.01)
 ;;68788075509
 ;;9002226.02101,"786,68788075509 ",.02)
 ;;68788075509
 ;;9002226.02101,"786,68788079603 ",.01)
 ;;68788079603
 ;;9002226.02101,"786,68788079603 ",.02)
 ;;68788079603
 ;;9002226.02101,"786,68788079606 ",.01)
 ;;68788079606
 ;;9002226.02101,"786,68788079606 ",.02)
 ;;68788079606
 ;;9002226.02101,"786,68788079609 ",.01)
 ;;68788079609
 ;;9002226.02101,"786,68788079609 ",.02)
 ;;68788079609
 ;;9002226.02101,"786,68788092603 ",.01)
 ;;68788092603
 ;;9002226.02101,"786,68788092603 ",.02)
 ;;68788092603
 ;;9002226.02101,"786,68788092606 ",.01)
 ;;68788092606
 ;;9002226.02101,"786,68788092606 ",.02)
 ;;68788092606
 ;;9002226.02101,"786,68788092609 ",.01)
 ;;68788092609
 ;;9002226.02101,"786,68788092609 ",.02)
 ;;68788092609
 ;;9002226.02101,"786,68788092803 ",.01)
 ;;68788092803
 ;;9002226.02101,"786,68788092803 ",.02)
 ;;68788092803
 ;;9002226.02101,"786,68788092806 ",.01)
 ;;68788092806
 ;;9002226.02101,"786,68788092806 ",.02)
 ;;68788092806
 ;;9002226.02101,"786,68788092809 ",.01)
 ;;68788092809
 ;;9002226.02101,"786,68788092809 ",.02)
 ;;68788092809
 ;;9002226.02101,"786,68788236403 ",.01)
 ;;68788236403
 ;;9002226.02101,"786,68788236403 ",.02)
 ;;68788236403
 ;;9002226.02101,"786,68788236406 ",.01)
 ;;68788236406
 ;;9002226.02101,"786,68788236406 ",.02)
 ;;68788236406
 ;;9002226.02101,"786,68788236409 ",.01)
 ;;68788236409
 ;;9002226.02101,"786,68788236409 ",.02)
 ;;68788236409
 ;;9002226.02101,"786,68788263303 ",.01)
 ;;68788263303
 ;;9002226.02101,"786,68788263303 ",.02)
 ;;68788263303
 ;;9002226.02101,"786,68788263306 ",.01)
 ;;68788263306
 ;;9002226.02101,"786,68788263306 ",.02)
 ;;68788263306
 ;;9002226.02101,"786,68788263309 ",.01)
 ;;68788263309
 ;;9002226.02101,"786,68788263309 ",.02)
 ;;68788263309
 ;;9002226.02101,"786,68788263403 ",.01)
 ;;68788263403
 ;;9002226.02101,"786,68788263403 ",.02)
 ;;68788263403
 ;;9002226.02101,"786,68788263503 ",.01)
 ;;68788263503
 ;;9002226.02101,"786,68788263503 ",.02)
 ;;68788263503
 ;;9002226.02101,"786,68788263506 ",.01)
 ;;68788263506
 ;;9002226.02101,"786,68788263506 ",.02)
 ;;68788263506
 ;;9002226.02101,"786,68788263509 ",.01)
 ;;68788263509
 ;;9002226.02101,"786,68788263509 ",.02)
 ;;68788263509
 ;;9002226.02101,"786,74312000720 ",.01)
 ;;74312000720
 ;;9002226.02101,"786,74312000720 ",.02)
 ;;74312000720
 ;;9002226.02101,"786,74312001483 ",.01)
 ;;74312001483
 ;;9002226.02101,"786,74312001483 ",.02)
 ;;74312001483
 ;;9002226.02101,"786,74312001660 ",.01)
 ;;74312001660
 ;;9002226.02101,"786,74312001660 ",.02)
 ;;74312001660
 ;;9002226.02101,"786,74312005800 ",.01)
 ;;74312005800
 ;;9002226.02101,"786,74312005800 ",.02)
 ;;74312005800