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

BGP12WC.m

Go to the documentation of this file.
  1. BGP12WC ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
  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. ;;21,"49999-0614-01 ")
  1. ;;202
  1. ;;21,"49999-0614-12 ")
  1. ;;203
  1. ;;21,"49999-0819-60 ")
  1. ;;38
  1. ;;21,"49999-0884-30 ")
  1. ;;294
  1. ;;21,"49999-0884-90 ")
  1. ;;295
  1. ;;21,"49999-0921-30 ")
  1. ;;413
  1. ;;21,"49999-0952-30 ")
  1. ;;296
  1. ;;21,"49999-0984-60 ")
  1. ;;39
  1. ;;21,"49999-0985-60 ")
  1. ;;40
  1. ;;21,"50111-0459-01 ")
  1. ;;414
  1. ;;21,"50111-0459-02 ")
  1. ;;415
  1. ;;21,"50111-0459-03 ")
  1. ;;416
  1. ;;21,"50111-0482-01 ")
  1. ;;417
  1. ;;21,"50111-0482-02 ")
  1. ;;418
  1. ;;21,"50111-0482-03 ")
  1. ;;419
  1. ;;21,"50111-0483-01 ")
  1. ;;420
  1. ;;21,"50111-0483-02 ")
  1. ;;421
  1. ;;21,"50111-0518-01 ")
  1. ;;422
  1. ;;21,"50242-0040-62 ")
  1. ;;561
  1. ;;21,"50383-0806-16 ")
  1. ;;162
  1. ;;21,"50474-0100-01 ")
  1. ;;330
  1. ;;21,"50474-0200-01 ")
  1. ;;331
  1. ;;21,"50474-0200-50 ")
  1. ;;332
  1. ;;21,"50474-0300-01 ")
  1. ;;333
  1. ;;21,"50474-0300-50 ")
  1. ;;334
  1. ;;21,"50474-0400-01 ")
  1. ;;335
  1. ;;21,"50991-0200-16 ")
  1. ;;143
  1. ;;21,"50991-0214-16 ")
  1. ;;145
  1. ;;21,"50991-0400-01 ")
  1. ;;144
  1. ;;21,"50991-0413-01 ")
  1. ;;146
  1. ;;21,"51991-0536-01 ")
  1. ;;159
  1. ;;21,"52959-0131-00 ")
  1. ;;68
  1. ;;21,"52959-0279-30 ")
  1. ;;479
  1. ;;21,"52959-0286-03 ")
  1. ;;108
  1. ;;21,"53265-0380-10 ")
  1. ;;480
  1. ;;21,"53265-0380-50 ")
  1. ;;481
  1. ;;21,"53265-0382-10 ")
  1. ;;482
  1. ;;21,"54569-0049-00 ")
  1. ;;223
  1. ;;21,"54569-0053-00 ")
  1. ;;109
  1. ;;21,"54569-0062-02 ")
  1. ;;383
  1. ;;21,"54569-0065-01 ")
  1. ;;483
  1. ;;21,"54569-0065-02 ")
  1. ;;484
  1. ;;21,"54569-0065-05 ")
  1. ;;485
  1. ;;21,"54569-0318-01 ")
  1. ;;384
  1. ;;21,"54569-1012-00 ")
  1. ;;224
  1. ;;21,"54569-1013-00 ")
  1. ;;69
  1. ;;21,"54569-1666-00 ")
  1. ;;336
  1. ;;21,"54569-3976-00 ")
  1. ;;75
  1. ;;21,"54569-4549-00 ")
  1. ;;131
  1. ;;21,"54569-4602-00 ")
  1. ;;182
  1. ;;21,"54569-4603-00 ")
  1. ;;183
  1. ;;21,"54569-4604-01 ")
  1. ;;16
  1. ;;21,"54569-4605-00 ")
  1. ;;297
  1. ;;21,"54569-4736-00 ")
  1. ;;298
  1. ;;21,"54569-4741-00 ")
  1. ;;252
  1. ;;21,"54569-4772-00 ")
  1. ;;132
  1. ;;21,"54569-4863-00 ")
  1. ;;184
  1. ;;21,"54569-5162-00 ")
  1. ;;247
  1. ;;21,"54569-5163-00 ")
  1. ;;248
  1. ;;21,"54569-5241-00 ")
  1. ;;41
  1. ;;21,"54569-5242-00 ")
  1. ;;42
  1. ;;21,"54569-5243-00 ")
  1. ;;43
  1. ;;21,"54569-5663-00 ")
  1. ;;204
  1. ;;21,"54569-5671-00 ")
  1. ;;205
  1. ;;21,"54569-5702-00 ")
  1. ;;206
  1. ;;21,"54569-5928-00 ")
  1. ;;242
  1. ;;21,"54569-8580-00 ")
  1. ;;385
  1. ;;21,"54569-8586-00 ")
  1. ;;386
  1. ;;21,"54838-0513-80 ")
  1. ;;156
  1. ;;21,"54839-0513-80 ")
  1. ;;157
  1. ;;21,"54868-0028-00 ")
  1. ;;486
  1. ;;21,"54868-0028-01 ")
  1. ;;487
  1. ;;21,"54868-0028-02 ")
  1. ;;488
  1. ;;21,"54868-0028-03 ")
  1. ;;489
  1. ;;21,"54868-0028-05 ")
  1. ;;490
  1. ;;21,"54868-0028-06 ")
  1. ;;491
  1. ;;21,"54868-0029-00 ")
  1. ;;492
  1. ;;21,"54868-0029-02 ")
  1. ;;493
  1. ;;21,"54868-0029-03 ")
  1. ;;494
  1. ;;21,"54868-0029-05 ")
  1. ;;495
  1. ;;21,"54868-0029-06 ")
  1. ;;496
  1. ;;21,"54868-0029-07 ")
  1. ;;497
  1. ;;21,"54868-1268-01 ")
  1. ;;110
  1. ;;21,"54868-1438-00 ")
  1. ;;555
  1. ;;21,"54868-1438-01 ")
  1. ;;556
  1. ;;21,"54868-1461-01 ")
  1. ;;498
  1. ;;21,"54868-1461-02 ")
  1. ;;499
  1. ;;21,"54868-1883-01 ")
  1. ;;70
  1. ;;21,"54868-1894-02 ")
  1. ;;225
  1. ;;21,"54868-2710-00 ")
  1. ;;337
  1. ;;21,"54868-2710-01 ")
  1. ;;338
  1. ;;21,"54868-2822-00 ")
  1. ;;226
  1. ;;21,"54868-3283-00 ")
  1. ;;299
  1. ;;21,"54868-3283-01 ")
  1. ;;300
  1. ;;21,"54868-3283-02 ")
  1. ;;301
  1. ;;21,"54868-3550-00 ")
  1. ;;117
  1. ;;21,"54868-3555-00 ")
  1. ;;133
  1. ;;21,"54868-4172-00 ")
  1. ;;17
  1. ;;21,"54868-4172-01 ")
  1. ;;18
  1. ;;21,"54868-4172-02 ")
  1. ;;19
  1. ;;21,"54868-4182-00 ")
  1. ;;185
  1. ;;21,"54868-4264-00 ")
  1. ;;186
  1. ;;21,"54868-4295-00 ")
  1. ;;253
  1. ;;21,"54868-4392-00 ")
  1. ;;187
  1. ;;21,"54868-4516-00 ")
  1. ;;44
  1. ;;21,"54868-4517-00 ")
  1. ;;45
  1. ;;21,"54868-4518-00 ")
  1. ;;46
  1. ;;21,"54868-4630-00 ")
  1. ;;302
  1. ;;21,"54868-4847-00 ")
  1. ;;303
  1. ;;21,"54868-5294-00 ")
  1. ;;76
  1. ;;21,"54868-5362-00 ")
  1. ;;207
  1. ;;21,"54868-5531-00 ")
  1. ;;500
  1. ;;21,"54868-5531-01 ")
  1. ;;501
  1. ;;21,"54868-5547-00 ")
  1. ;;101
  1. ;;21,"54868-5547-01 ")
  1. ;;102
  1. ;;21,"54868-5621-00 ")
  1. ;;249
  1. ;;21,"54868-5637-00 ")
  1. ;;208
  1. ;;21,"54868-5774-00 ")
  1. ;;250
  1. ;;21,"54868-5844-00 ")
  1. ;;243
  1. ;;21,"54868-5857-00 ")
  1. ;;257
  1. ;;21,"54868-5858-00 ")
  1. ;;258
  1. ;;21,"54868-5936-00 ")
  1. ;;328
  1. ;;21,"54868-5937-00 ")
  1. ;;329
  1. ;;21,"54868-5989-00 ")
  1. ;;80
  1. ;;21,"54868-5990-00 ")
  1. ;;81
  1. ;;21,"54868-5995-00 ")
  1. ;;209
  1. ;;21,"55045-1868-03 ")
  1. ;;71
  1. ;;21,"55045-2520-07 ")
  1. ;;77
  1. ;;21,"55045-2819-00 ")
  1. ;;188
  1. ;;21,"55045-2919-01 ")
  1. ;;189
  1. ;;21,"55045-3054-01 ")
  1. ;;190
  1. ;;21,"55045-3063-00 ")
  1. ;;259
  1. ;;21,"55045-3351-00 ")
  1. ;;210
  1. ;;21,"55045-3354-00 ")
  1. ;;211
  1. ;;21,"55045-3388-01 ")
  1. ;;47
  1. ;;21,"55045-3416-00 ")
  1. ;;212
  1. ;;21,"55045-3686-01 ")
  1. ;;48
  1. ;;21,"55045-3695-08 ")
  1. ;;260
  1. ;;21,"55045-3768-08 ")
  1. ;;502
  1. ;;21,"55289-0003-60 ")
  1. ;;387
  1. ;;21,"55289-0155-97 ")
  1. ;;388
  1. ;;21,"55289-0259-01 ")
  1. ;;423
  1. ;;21,"55289-0259-30 ")
  1. ;;424
  1. ;;21,"55289-0259-60 ")
  1. ;;425
  1. ;;21,"55289-0260-01 ")
  1. ;;426
  1. ;;21,"55289-0260-06 ")
  1. ;;427
  1. ;;21,"55289-0260-20 ")
  1. ;;428
  1. ;;21,"55289-0260-30 ")
  1. ;;429
  1. ;;21,"55289-0260-60 ")
  1. ;;430
  1. ;;21,"55289-0789-30 ")
  1. ;;557
  1. ;;21,"55289-0961-15 ")
  1. ;;304
  1. ;;21,"55289-0961-30 ")
  1. ;;305
  1. ;;21,"55289-0989-21 ")
  1. ;;306
  1. ;;21,"55289-0989-30 ")
  1. ;;307