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