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

BGPM3AAQ.m

Go to the documentation of this file.
BGPM3AAQ ;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,"774,61392090731 ",.02)
 ;;61392090731
 ;;9002226.02101,"774,61392090739 ",.01)
 ;;61392090739
 ;;9002226.02101,"774,61392090739 ",.02)
 ;;61392090739
 ;;9002226.02101,"774,61392090760 ",.01)
 ;;61392090760
 ;;9002226.02101,"774,61392090760 ",.02)
 ;;61392090760
 ;;9002226.02101,"774,61392090765 ",.01)
 ;;61392090765
 ;;9002226.02101,"774,61392090765 ",.02)
 ;;61392090765
 ;;9002226.02101,"774,61392090790 ",.01)
 ;;61392090790
 ;;9002226.02101,"774,61392090790 ",.02)
 ;;61392090790
 ;;9002226.02101,"774,61392090795 ",.01)
 ;;61392090795
 ;;9002226.02101,"774,61392090795 ",.02)
 ;;61392090795
 ;;9002226.02101,"774,61392090825 ",.01)
 ;;61392090825
 ;;9002226.02101,"774,61392090825 ",.02)
 ;;61392090825
 ;;9002226.02101,"774,61392090830 ",.01)
 ;;61392090830
 ;;9002226.02101,"774,61392090830 ",.02)
 ;;61392090830
 ;;9002226.02101,"774,61392090831 ",.01)
 ;;61392090831
 ;;9002226.02101,"774,61392090831 ",.02)
 ;;61392090831
 ;;9002226.02101,"774,61392090839 ",.01)
 ;;61392090839
 ;;9002226.02101,"774,61392090839 ",.02)
 ;;61392090839
 ;;9002226.02101,"774,61392090860 ",.01)
 ;;61392090860
 ;;9002226.02101,"774,61392090860 ",.02)
 ;;61392090860
 ;;9002226.02101,"774,61392090865 ",.01)
 ;;61392090865
 ;;9002226.02101,"774,61392090865 ",.02)
 ;;61392090865
 ;;9002226.02101,"774,61392090890 ",.01)
 ;;61392090890
 ;;9002226.02101,"774,61392090890 ",.02)
 ;;61392090890
 ;;9002226.02101,"774,61392090895 ",.01)
 ;;61392090895
 ;;9002226.02101,"774,61392090895 ",.02)
 ;;61392090895
 ;;9002226.02101,"774,61392090925 ",.01)
 ;;61392090925
 ;;9002226.02101,"774,61392090925 ",.02)
 ;;61392090925
 ;;9002226.02101,"774,61392090930 ",.01)
 ;;61392090930
 ;;9002226.02101,"774,61392090930 ",.02)
 ;;61392090930
 ;;9002226.02101,"774,61392090931 ",.01)
 ;;61392090931
 ;;9002226.02101,"774,61392090931 ",.02)
 ;;61392090931
 ;;9002226.02101,"774,61392090939 ",.01)
 ;;61392090939
 ;;9002226.02101,"774,61392090939 ",.02)
 ;;61392090939
 ;;9002226.02101,"774,61392090960 ",.01)
 ;;61392090960
 ;;9002226.02101,"774,61392090960 ",.02)
 ;;61392090960
 ;;9002226.02101,"774,61392090965 ",.01)
 ;;61392090965
 ;;9002226.02101,"774,61392090965 ",.02)
 ;;61392090965
 ;;9002226.02101,"774,61392090990 ",.01)
 ;;61392090990
 ;;9002226.02101,"774,61392090990 ",.02)
 ;;61392090990
 ;;9002226.02101,"774,61392090995 ",.01)
 ;;61392090995
 ;;9002226.02101,"774,61392090995 ",.02)
 ;;61392090995
 ;;9002226.02101,"774,61392091125 ",.01)
 ;;61392091125
 ;;9002226.02101,"774,61392091125 ",.02)
 ;;61392091125
 ;;9002226.02101,"774,61392091130 ",.01)
 ;;61392091130
 ;;9002226.02101,"774,61392091130 ",.02)
 ;;61392091130
 ;;9002226.02101,"774,61392091131 ",.01)
 ;;61392091131
 ;;9002226.02101,"774,61392091131 ",.02)
 ;;61392091131
 ;;9002226.02101,"774,61392091139 ",.01)
 ;;61392091139
 ;;9002226.02101,"774,61392091139 ",.02)
 ;;61392091139
 ;;9002226.02101,"774,61392091160 ",.01)
 ;;61392091160
 ;;9002226.02101,"774,61392091160 ",.02)
 ;;61392091160
 ;;9002226.02101,"774,61392091165 ",.01)
 ;;61392091165
 ;;9002226.02101,"774,61392091165 ",.02)
 ;;61392091165
 ;;9002226.02101,"774,61392091190 ",.01)
 ;;61392091190
 ;;9002226.02101,"774,61392091190 ",.02)
 ;;61392091190
 ;;9002226.02101,"774,61392091195 ",.01)
 ;;61392091195
 ;;9002226.02101,"774,61392091195 ",.02)
 ;;61392091195
 ;;9002226.02101,"774,61392092023 ",.01)
 ;;61392092023
 ;;9002226.02101,"774,61392092023 ",.02)
 ;;61392092023
 ;;9002226.02101,"774,61392092025 ",.01)
 ;;61392092025
 ;;9002226.02101,"774,61392092025 ",.02)
 ;;61392092025
 ;;9002226.02101,"774,61392092030 ",.01)
 ;;61392092030
 ;;9002226.02101,"774,61392092030 ",.02)
 ;;61392092030
 ;;9002226.02101,"774,61392092031 ",.01)
 ;;61392092031
 ;;9002226.02101,"774,61392092031 ",.02)
 ;;61392092031
 ;;9002226.02101,"774,61392092039 ",.01)
 ;;61392092039
 ;;9002226.02101,"774,61392092039 ",.02)
 ;;61392092039
 ;;9002226.02101,"774,61392092060 ",.01)
 ;;61392092060
 ;;9002226.02101,"774,61392092060 ",.02)
 ;;61392092060
 ;;9002226.02101,"774,61392092065 ",.01)
 ;;61392092065
 ;;9002226.02101,"774,61392092065 ",.02)
 ;;61392092065
 ;;9002226.02101,"774,61392092090 ",.01)
 ;;61392092090
 ;;9002226.02101,"774,61392092090 ",.02)
 ;;61392092090
 ;;9002226.02101,"774,61392092095 ",.01)
 ;;61392092095
 ;;9002226.02101,"774,61392092095 ",.02)
 ;;61392092095
 ;;9002226.02101,"774,62338313701 ",.01)
 ;;62338313701
 ;;9002226.02101,"774,62338313701 ",.02)
 ;;62338313701
 ;;9002226.02101,"774,62338332701 ",.01)
 ;;62338332701
 ;;9002226.02101,"774,62338332701 ",.02)
 ;;62338332701
 ;;9002226.02101,"774,62338352701 ",.01)
 ;;62338352701
 ;;9002226.02101,"774,62338352701 ",.02)
 ;;62338352701
 ;;9002226.02101,"774,62338510503 ",.01)
 ;;62338510503
 ;;9002226.02101,"774,62338510503 ",.02)
 ;;62338510503
 ;;9002226.02101,"774,62338521303 ",.01)
 ;;62338521303
 ;;9002226.02101,"774,62338521303 ",.02)
 ;;62338521303
 ;;9002226.02101,"774,62580499477 ",.01)
 ;;62580499477
 ;;9002226.02101,"774,62580499477 ",.02)
 ;;62580499477
 ;;9002226.02101,"774,62584038342 ",.01)
 ;;62584038342
 ;;9002226.02101,"774,62584038342 ",.02)
 ;;62584038342
 ;;9002226.02101,"774,62584038845 ",.01)
 ;;62584038845
 ;;9002226.02101,"774,62584038845 ",.02)
 ;;62584038845
 ;;9002226.02101,"774,62584098401 ",.01)
 ;;62584098401
 ;;9002226.02101,"774,62584098401 ",.02)
 ;;62584098401
 ;;9002226.02101,"774,62584098411 ",.01)
 ;;62584098411
 ;;9002226.02101,"774,62584098411 ",.02)
 ;;62584098411
 ;;9002226.02101,"774,62584098477 ",.01)
 ;;62584098477
 ;;9002226.02101,"774,62584098477 ",.02)
 ;;62584098477
 ;;9002226.02101,"774,62584098601 ",.01)
 ;;62584098601
 ;;9002226.02101,"774,62584098601 ",.02)
 ;;62584098601
 ;;9002226.02101,"774,62584099401 ",.01)
 ;;62584099401
 ;;9002226.02101,"774,62584099401 ",.02)
 ;;62584099401
 ;;9002226.02101,"774,62584099411 ",.01)
 ;;62584099411
 ;;9002226.02101,"774,62584099411 ",.02)
 ;;62584099411
 ;;9002226.02101,"774,62584099477 ",.01)
 ;;62584099477
 ;;9002226.02101,"774,62584099477 ",.02)
 ;;62584099477
 ;;9002226.02101,"774,63323003810 ",.01)
 ;;63323003810
 ;;9002226.02101,"774,63323003810 ",.02)
 ;;63323003810
 ;;9002226.02101,"774,63323003830 ",.01)
 ;;63323003830
 ;;9002226.02101,"774,63323003830 ",.02)
 ;;63323003830
 ;;9002226.02101,"774,63323004710 ",.01)
 ;;63323004710
 ;;9002226.02101,"774,63323004710 ",.02)
 ;;63323004710
 ;;9002226.02101,"774,63323026201 ",.01)
 ;;63323026201
 ;;9002226.02101,"774,63323026201 ",.02)
 ;;63323026201
 ;;9002226.02101,"774,63323026255 ",.01)
 ;;63323026255
 ;;9002226.02101,"774,63323026255 ",.02)
 ;;63323026255
 ;;9002226.02101,"774,63323027602 ",.01)
 ;;63323027602
 ;;9002226.02101,"774,63323027602 ",.02)
 ;;63323027602
 ;;9002226.02101,"774,63323054001 ",.01)
 ;;63323054001
 ;;9002226.02101,"774,63323054001 ",.02)
 ;;63323054001
 ;;9002226.02101,"774,63323054011 ",.01)
 ;;63323054011
 ;;9002226.02101,"774,63323054011 ",.02)
 ;;63323054011
 ;;9002226.02101,"774,63323054031 ",.01)
 ;;63323054031
 ;;9002226.02101,"774,63323054031 ",.02)
 ;;63323054031
 ;;9002226.02101,"774,63323054057 ",.01)
 ;;63323054057
 ;;9002226.02101,"774,63323054057 ",.02)
 ;;63323054057
 ;;9002226.02101,"774,63323054201 ",.01)
 ;;63323054201
 ;;9002226.02101,"774,63323054201 ",.02)
 ;;63323054201
 ;;9002226.02101,"774,63323054207 ",.01)
 ;;63323054207
 ;;9002226.02101,"774,63323054207 ",.02)
 ;;63323054207
 ;;9002226.02101,"774,63323054501 ",.01)
 ;;63323054501
 ;;9002226.02101,"774,63323054501 ",.02)
 ;;63323054501
 ;;9002226.02101,"774,63323054505 ",.01)
 ;;63323054505
 ;;9002226.02101,"774,63323054505 ",.02)
 ;;63323054505
 ;;9002226.02101,"774,63323091501 ",.01)
 ;;63323091501
 ;;9002226.02101,"774,63323091501 ",.02)
 ;;63323091501
 ;;9002226.02101,"774,63739036101 ",.01)
 ;;63739036101
 ;;9002226.02101,"774,63739036101 ",.02)
 ;;63739036101
 ;;9002226.02101,"774,63739036103 ",.01)
 ;;63739036103
 ;;9002226.02101,"774,63739036103 ",.02)
 ;;63739036103
 ;;9002226.02101,"774,63739036110 ",.01)
 ;;63739036110
 ;;9002226.02101,"774,63739036110 ",.02)
 ;;63739036110
 ;;9002226.02101,"774,63739036115 ",.01)
 ;;63739036115
 ;;9002226.02101,"774,63739036115 ",.02)
 ;;63739036115
 ;;9002226.02101,"774,63739036201 ",.01)
 ;;63739036201
 ;;9002226.02101,"774,63739036201 ",.02)
 ;;63739036201
 ;;9002226.02101,"774,63739036203 ",.01)
 ;;63739036203
 ;;9002226.02101,"774,63739036203 ",.02)
 ;;63739036203
 ;;9002226.02101,"774,63739036210 ",.01)
 ;;63739036210
 ;;9002226.02101,"774,63739036210 ",.02)
 ;;63739036210
 ;;9002226.02101,"774,63739036215 ",.01)
 ;;63739036215
 ;;9002226.02101,"774,63739036215 ",.02)
 ;;63739036215
 ;;9002226.02101,"774,63739036301 ",.01)
 ;;63739036301
 ;;9002226.02101,"774,63739036301 ",.02)
 ;;63739036301
 ;;9002226.02101,"774,63739036303 ",.01)
 ;;63739036303
 ;;9002226.02101,"774,63739036303 ",.02)
 ;;63739036303
 ;;9002226.02101,"774,63739036310 ",.01)
 ;;63739036310
 ;;9002226.02101,"774,63739036310 ",.02)
 ;;63739036310
 ;;9002226.02101,"774,63739036315 ",.01)
 ;;63739036315
 ;;9002226.02101,"774,63739036315 ",.02)
 ;;63739036315
 ;;9002226.02101,"774,63739036401 ",.01)
 ;;63739036401
 ;;9002226.02101,"774,63739036401 ",.02)
 ;;63739036401
 ;;9002226.02101,"774,63739036403 ",.01)
 ;;63739036403
 ;;9002226.02101,"774,63739036403 ",.02)
 ;;63739036403
 ;;9002226.02101,"774,63739036410 ",.01)
 ;;63739036410
 ;;9002226.02101,"774,63739036410 ",.02)
 ;;63739036410
 ;;9002226.02101,"774,63739036415 ",.01)
 ;;63739036415
 ;;9002226.02101,"774,63739036415 ",.02)
 ;;63739036415
 ;;9002226.02101,"774,63807060050 ",.01)
 ;;63807060050
 ;;9002226.02101,"774,63807060050 ",.02)
 ;;63807060050
 ;;9002226.02101,"774,64054100302 ",.01)
 ;;64054100302
 ;;9002226.02101,"774,64054100302 ",.02)
 ;;64054100302
 ;;9002226.02101,"774,64253033301 ",.01)
 ;;64253033301
 ;;9002226.02101,"774,64253033301 ",.02)
 ;;64253033301
 ;;9002226.02101,"774,64253033352 ",.01)
 ;;64253033352
 ;;9002226.02101,"774,64253033352 ",.02)
 ;;64253033352
 ;;9002226.02101,"774,64579004301 ",.01)
 ;;64579004301
 ;;9002226.02101,"774,64579004301 ",.02)
 ;;64579004301
 ;;9002226.02101,"774,64579004325 ",.01)
 ;;64579004325
 ;;9002226.02101,"774,64579004325 ",.02)
 ;;64579004325
 ;;9002226.02101,"774,64725036303 ",.01)
 ;;64725036303
 ;;9002226.02101,"774,64725036303 ",.02)
 ;;64725036303
 ;;9002226.02101,"774,64725036703 ",.01)
 ;;64725036703
 ;;9002226.02101,"774,64725036703 ",.02)
 ;;64725036703
 ;;9002226.02101,"774,65243027303 ",.01)
 ;;65243027303
 ;;9002226.02101,"774,65243027303 ",.02)
 ;;65243027303
 ;;9002226.02101,"774,65243027306 ",.01)
 ;;65243027306
 ;;9002226.02101,"774,65243027306 ",.02)
 ;;65243027306
 ;;9002226.02101,"774,65243027309 ",.01)
 ;;65243027309
 ;;9002226.02101,"774,65243027309 ",.02)
 ;;65243027309
 ;;9002226.02101,"774,65243027345 ",.01)
 ;;65243027345
 ;;9002226.02101,"774,65243027345 ",.02)
 ;;65243027345
 ;;9002226.02101,"774,65243027403 ",.01)
 ;;65243027403
 ;;9002226.02101,"774,65243027403 ",.02)
 ;;65243027403
 ;;9002226.02101,"774,65243027406 ",.01)
 ;;65243027406
 ;;9002226.02101,"774,65243027406 ",.02)
 ;;65243027406
 ;;9002226.02101,"774,65243027409 ",.01)
 ;;65243027409
 ;;9002226.02101,"774,65243027409 ",.02)
 ;;65243027409
 ;;9002226.02101,"774,65243027445 ",.01)
 ;;65243027445
 ;;9002226.02101,"774,65243027445 ",.02)
 ;;65243027445
 ;;9002226.02101,"774,65243027503 ",.01)
 ;;65243027503
 ;;9002226.02101,"774,65243027503 ",.02)
 ;;65243027503
 ;;9002226.02101,"774,65243027506 ",.01)
 ;;65243027506