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

BGPM3ABV.m

Go to the documentation of this file.
BGPM3ABV ;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,"775,61392092023 ",.01)
 ;;61392092023
 ;;9002226.02101,"775,61392092023 ",.02)
 ;;61392092023
 ;;9002226.02101,"775,61392092025 ",.01)
 ;;61392092025
 ;;9002226.02101,"775,61392092025 ",.02)
 ;;61392092025
 ;;9002226.02101,"775,61392092030 ",.01)
 ;;61392092030
 ;;9002226.02101,"775,61392092030 ",.02)
 ;;61392092030
 ;;9002226.02101,"775,61392092031 ",.01)
 ;;61392092031
 ;;9002226.02101,"775,61392092031 ",.02)
 ;;61392092031
 ;;9002226.02101,"775,61392092039 ",.01)
 ;;61392092039
 ;;9002226.02101,"775,61392092039 ",.02)
 ;;61392092039
 ;;9002226.02101,"775,61392092060 ",.01)
 ;;61392092060
 ;;9002226.02101,"775,61392092060 ",.02)
 ;;61392092060
 ;;9002226.02101,"775,61392092065 ",.01)
 ;;61392092065
 ;;9002226.02101,"775,61392092065 ",.02)
 ;;61392092065
 ;;9002226.02101,"775,61392092090 ",.01)
 ;;61392092090
 ;;9002226.02101,"775,61392092090 ",.02)
 ;;61392092090
 ;;9002226.02101,"775,61392092095 ",.01)
 ;;61392092095
 ;;9002226.02101,"775,61392092095 ",.02)
 ;;61392092095
 ;;9002226.02101,"775,62107002636 ",.01)
 ;;62107002636
 ;;9002226.02101,"775,62107002636 ",.02)
 ;;62107002636
 ;;9002226.02101,"775,62107002726 ",.01)
 ;;62107002726
 ;;9002226.02101,"775,62107002726 ",.02)
 ;;62107002726
 ;;9002226.02101,"775,62107002732 ",.01)
 ;;62107002732
 ;;9002226.02101,"775,62107002732 ",.02)
 ;;62107002732
 ;;9002226.02101,"775,62318002702 ",.01)
 ;;62318002702
 ;;9002226.02101,"775,62318002702 ",.02)
 ;;62318002702
 ;;9002226.02101,"775,62318002704 ",.01)
 ;;62318002704
 ;;9002226.02101,"775,62318002704 ",.02)
 ;;62318002704
 ;;9002226.02101,"775,62318002707 ",.01)
 ;;62318002707
 ;;9002226.02101,"775,62318002707 ",.02)
 ;;62318002707
 ;;9002226.02101,"775,62318002709 ",.01)
 ;;62318002709
 ;;9002226.02101,"775,62318002709 ",.02)
 ;;62318002709
 ;;9002226.02101,"775,62338313701 ",.01)
 ;;62338313701
 ;;9002226.02101,"775,62338313701 ",.02)
 ;;62338313701
 ;;9002226.02101,"775,62338332701 ",.01)
 ;;62338332701
 ;;9002226.02101,"775,62338332701 ",.02)
 ;;62338332701
 ;;9002226.02101,"775,62338352701 ",.01)
 ;;62338352701
 ;;9002226.02101,"775,62338352701 ",.02)
 ;;62338352701
 ;;9002226.02101,"775,62338510503 ",.01)
 ;;62338510503
 ;;9002226.02101,"775,62338510503 ",.02)
 ;;62338510503
 ;;9002226.02101,"775,62338521303 ",.01)
 ;;62338521303
 ;;9002226.02101,"775,62338521303 ",.02)
 ;;62338521303
 ;;9002226.02101,"775,62580499477 ",.01)
 ;;62580499477
 ;;9002226.02101,"775,62580499477 ",.02)
 ;;62580499477
 ;;9002226.02101,"775,62584012701 ",.01)
 ;;62584012701
 ;;9002226.02101,"775,62584012701 ",.02)
 ;;62584012701
 ;;9002226.02101,"775,62584012785 ",.01)
 ;;62584012785
 ;;9002226.02101,"775,62584012785 ",.02)
 ;;62584012785
 ;;9002226.02101,"775,62584017901 ",.01)
 ;;62584017901
 ;;9002226.02101,"775,62584017901 ",.02)
 ;;62584017901
 ;;9002226.02101,"775,62584038342 ",.01)
 ;;62584038342
 ;;9002226.02101,"775,62584038342 ",.02)
 ;;62584038342
 ;;9002226.02101,"775,62584038845 ",.01)
 ;;62584038845
 ;;9002226.02101,"775,62584038845 ",.02)
 ;;62584038845
 ;;9002226.02101,"775,62584064501 ",.01)
 ;;62584064501
 ;;9002226.02101,"775,62584064501 ",.02)
 ;;62584064501
 ;;9002226.02101,"775,62584064533 ",.01)
 ;;62584064533
 ;;9002226.02101,"775,62584064533 ",.02)
 ;;62584064533
 ;;9002226.02101,"775,62584098401 ",.01)
 ;;62584098401
 ;;9002226.02101,"775,62584098401 ",.02)
 ;;62584098401
 ;;9002226.02101,"775,62584098411 ",.01)
 ;;62584098411
 ;;9002226.02101,"775,62584098411 ",.02)
 ;;62584098411
 ;;9002226.02101,"775,62584098477 ",.01)
 ;;62584098477
 ;;9002226.02101,"775,62584098477 ",.02)
 ;;62584098477
 ;;9002226.02101,"775,62584098601 ",.01)
 ;;62584098601
 ;;9002226.02101,"775,62584098601 ",.02)
 ;;62584098601
 ;;9002226.02101,"775,62584099401 ",.01)
 ;;62584099401
 ;;9002226.02101,"775,62584099401 ",.02)
 ;;62584099401
 ;;9002226.02101,"775,62584099411 ",.01)
 ;;62584099411
 ;;9002226.02101,"775,62584099411 ",.02)
 ;;62584099411
 ;;9002226.02101,"775,62584099477 ",.01)
 ;;62584099477
 ;;9002226.02101,"775,62584099477 ",.02)
 ;;62584099477
 ;;9002226.02101,"775,63323003810 ",.01)
 ;;63323003810
 ;;9002226.02101,"775,63323003810 ",.02)
 ;;63323003810
 ;;9002226.02101,"775,63323003830 ",.01)
 ;;63323003830
 ;;9002226.02101,"775,63323003830 ",.02)
 ;;63323003830
 ;;9002226.02101,"775,63323004710 ",.01)
 ;;63323004710
 ;;9002226.02101,"775,63323004710 ",.02)
 ;;63323004710
 ;;9002226.02101,"775,63323026201 ",.01)
 ;;63323026201
 ;;9002226.02101,"775,63323026201 ",.02)
 ;;63323026201
 ;;9002226.02101,"775,63323026255 ",.01)
 ;;63323026255
 ;;9002226.02101,"775,63323026255 ",.02)
 ;;63323026255
 ;;9002226.02101,"775,63323027602 ",.01)
 ;;63323027602
 ;;9002226.02101,"775,63323027602 ",.02)
 ;;63323027602
 ;;9002226.02101,"775,63323054001 ",.01)
 ;;63323054001
 ;;9002226.02101,"775,63323054001 ",.02)
 ;;63323054001
 ;;9002226.02101,"775,63323054011 ",.01)
 ;;63323054011
 ;;9002226.02101,"775,63323054011 ",.02)
 ;;63323054011
 ;;9002226.02101,"775,63323054031 ",.01)
 ;;63323054031
 ;;9002226.02101,"775,63323054031 ",.02)
 ;;63323054031
 ;;9002226.02101,"775,63323054057 ",.01)
 ;;63323054057
 ;;9002226.02101,"775,63323054057 ",.02)
 ;;63323054057
 ;;9002226.02101,"775,63323054201 ",.01)
 ;;63323054201
 ;;9002226.02101,"775,63323054201 ",.02)
 ;;63323054201
 ;;9002226.02101,"775,63323054207 ",.01)
 ;;63323054207
 ;;9002226.02101,"775,63323054207 ",.02)
 ;;63323054207
 ;;9002226.02101,"775,63323054501 ",.01)
 ;;63323054501
 ;;9002226.02101,"775,63323054501 ",.02)
 ;;63323054501
 ;;9002226.02101,"775,63323054505 ",.01)
 ;;63323054505
 ;;9002226.02101,"775,63323054505 ",.02)
 ;;63323054505
 ;;9002226.02101,"775,63323091501 ",.01)
 ;;63323091501
 ;;9002226.02101,"775,63323091501 ",.02)
 ;;63323091501
 ;;9002226.02101,"775,63739002301 ",.01)
 ;;63739002301
 ;;9002226.02101,"775,63739002301 ",.02)
 ;;63739002301
 ;;9002226.02101,"775,63739002303 ",.01)
 ;;63739002303
 ;;9002226.02101,"775,63739002303 ",.02)
 ;;63739002303
 ;;9002226.02101,"775,63739002401 ",.01)
 ;;63739002401
 ;;9002226.02101,"775,63739002401 ",.02)
 ;;63739002401
 ;;9002226.02101,"775,63739002403 ",.01)
 ;;63739002403
 ;;9002226.02101,"775,63739002403 ",.02)
 ;;63739002403
 ;;9002226.02101,"775,63739002410 ",.01)
 ;;63739002410
 ;;9002226.02101,"775,63739002410 ",.02)
 ;;63739002410
 ;;9002226.02101,"775,63739002415 ",.01)
 ;;63739002415
 ;;9002226.02101,"775,63739002415 ",.02)
 ;;63739002415
 ;;9002226.02101,"775,63739002501 ",.01)
 ;;63739002501
 ;;9002226.02101,"775,63739002501 ",.02)
 ;;63739002501
 ;;9002226.02101,"775,63739002503 ",.01)
 ;;63739002503
 ;;9002226.02101,"775,63739002503 ",.02)
 ;;63739002503
 ;;9002226.02101,"775,63739027201 ",.01)
 ;;63739027201
 ;;9002226.02101,"775,63739027201 ",.02)
 ;;63739027201
 ;;9002226.02101,"775,63739027203 ",.01)
 ;;63739027203
 ;;9002226.02101,"775,63739027203 ",.02)
 ;;63739027203
 ;;9002226.02101,"775,63739027210 ",.01)
 ;;63739027210
 ;;9002226.02101,"775,63739027210 ",.02)
 ;;63739027210
 ;;9002226.02101,"775,63739036101 ",.01)
 ;;63739036101
 ;;9002226.02101,"775,63739036101 ",.02)
 ;;63739036101
 ;;9002226.02101,"775,63739036103 ",.01)
 ;;63739036103
 ;;9002226.02101,"775,63739036103 ",.02)
 ;;63739036103
 ;;9002226.02101,"775,63739036110 ",.01)
 ;;63739036110
 ;;9002226.02101,"775,63739036110 ",.02)
 ;;63739036110
 ;;9002226.02101,"775,63739036115 ",.01)
 ;;63739036115
 ;;9002226.02101,"775,63739036115 ",.02)
 ;;63739036115
 ;;9002226.02101,"775,63739036201 ",.01)
 ;;63739036201
 ;;9002226.02101,"775,63739036201 ",.02)
 ;;63739036201
 ;;9002226.02101,"775,63739036203 ",.01)
 ;;63739036203
 ;;9002226.02101,"775,63739036203 ",.02)
 ;;63739036203
 ;;9002226.02101,"775,63739036210 ",.01)
 ;;63739036210
 ;;9002226.02101,"775,63739036210 ",.02)
 ;;63739036210
 ;;9002226.02101,"775,63739036215 ",.01)
 ;;63739036215
 ;;9002226.02101,"775,63739036215 ",.02)
 ;;63739036215
 ;;9002226.02101,"775,63739036301 ",.01)
 ;;63739036301
 ;;9002226.02101,"775,63739036301 ",.02)
 ;;63739036301
 ;;9002226.02101,"775,63739036303 ",.01)
 ;;63739036303
 ;;9002226.02101,"775,63739036303 ",.02)
 ;;63739036303
 ;;9002226.02101,"775,63739036310 ",.01)
 ;;63739036310
 ;;9002226.02101,"775,63739036310 ",.02)
 ;;63739036310
 ;;9002226.02101,"775,63739036315 ",.01)
 ;;63739036315
 ;;9002226.02101,"775,63739036315 ",.02)
 ;;63739036315
 ;;9002226.02101,"775,63739036401 ",.01)
 ;;63739036401
 ;;9002226.02101,"775,63739036401 ",.02)
 ;;63739036401
 ;;9002226.02101,"775,63739036403 ",.01)
 ;;63739036403
 ;;9002226.02101,"775,63739036403 ",.02)
 ;;63739036403
 ;;9002226.02101,"775,63739036410 ",.01)
 ;;63739036410
 ;;9002226.02101,"775,63739036410 ",.02)
 ;;63739036410
 ;;9002226.02101,"775,63739036415 ",.01)
 ;;63739036415
 ;;9002226.02101,"775,63739036415 ",.02)
 ;;63739036415
 ;;9002226.02101,"775,63739043301 ",.01)
 ;;63739043301
 ;;9002226.02101,"775,63739043301 ",.02)
 ;;63739043301
 ;;9002226.02101,"775,63739043303 ",.01)
 ;;63739043303
 ;;9002226.02101,"775,63739043303 ",.02)
 ;;63739043303
 ;;9002226.02101,"775,63739043310 ",.01)
 ;;63739043310
 ;;9002226.02101,"775,63739043310 ",.02)
 ;;63739043310
 ;;9002226.02101,"775,63739043401 ",.01)
 ;;63739043401
 ;;9002226.02101,"775,63739043401 ",.02)
 ;;63739043401
 ;;9002226.02101,"775,63739043403 ",.01)
 ;;63739043403
 ;;9002226.02101,"775,63739043403 ",.02)
 ;;63739043403
 ;;9002226.02101,"775,63807060050 ",.01)
 ;;63807060050
 ;;9002226.02101,"775,63807060050 ",.02)
 ;;63807060050
 ;;9002226.02101,"775,63874000101 ",.01)
 ;;63874000101
 ;;9002226.02101,"775,63874000101 ",.02)
 ;;63874000101
 ;;9002226.02101,"775,63874000115 ",.01)
 ;;63874000115
 ;;9002226.02101,"775,63874000115 ",.02)
 ;;63874000115
 ;;9002226.02101,"775,63874000120 ",.01)
 ;;63874000120
 ;;9002226.02101,"775,63874000120 ",.02)
 ;;63874000120
 ;;9002226.02101,"775,63874000125 ",.01)
 ;;63874000125
 ;;9002226.02101,"775,63874000125 ",.02)
 ;;63874000125
 ;;9002226.02101,"775,63874000130 ",.01)
 ;;63874000130
 ;;9002226.02101,"775,63874000130 ",.02)
 ;;63874000130
 ;;9002226.02101,"775,63874000150 ",.01)
 ;;63874000150
 ;;9002226.02101,"775,63874000150 ",.02)
 ;;63874000150
 ;;9002226.02101,"775,63874099701 ",.01)
 ;;63874099701
 ;;9002226.02101,"775,63874099701 ",.02)
 ;;63874099701
 ;;9002226.02101,"775,63874099702 ",.01)
 ;;63874099702
 ;;9002226.02101,"775,63874099702 ",.02)
 ;;63874099702
 ;;9002226.02101,"775,63874099730 ",.01)
 ;;63874099730
 ;;9002226.02101,"775,63874099730 ",.02)
 ;;63874099730
 ;;9002226.02101,"775,64054100302 ",.01)
 ;;64054100302
 ;;9002226.02101,"775,64054100302 ",.02)
 ;;64054100302
 ;;9002226.02101,"775,64253033301 ",.01)
 ;;64253033301
 ;;9002226.02101,"775,64253033301 ",.02)
 ;;64253033301
 ;;9002226.02101,"775,64253033352 ",.01)
 ;;64253033352
 ;;9002226.02101,"775,64253033352 ",.02)
 ;;64253033352
 ;;9002226.02101,"775,64579004301 ",.01)
 ;;64579004301
 ;;9002226.02101,"775,64579004301 ",.02)
 ;;64579004301
 ;;9002226.02101,"775,64579004325 ",.01)
 ;;64579004325
 ;;9002226.02101,"775,64579004325 ",.02)
 ;;64579004325
 ;;9002226.02101,"775,64725036303 ",.01)
 ;;64725036303
 ;;9002226.02101,"775,64725036303 ",.02)
 ;;64725036303
 ;;9002226.02101,"775,64725036703 ",.01)
 ;;64725036703
 ;;9002226.02101,"775,64725036703 ",.02)
 ;;64725036703
 ;;9002226.02101,"775,65162001436 ",.01)
 ;;65162001436
 ;;9002226.02101,"775,65162001436 ",.02)
 ;;65162001436
 ;;9002226.02101,"775,65162024111 ",.01)
 ;;65162024111
 ;;9002226.02101,"775,65162024111 ",.02)
 ;;65162024111