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

BGPM5AYP.m

Go to the documentation of this file.
BGPM5AYP ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 31, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"1027,70150 ",.01)
 ;;70150
 ;;9002226.02101,"1027,70150 ",.02)
 ;;70150
 ;;9002226.02101,"1027,70160 ",.01)
 ;;70160
 ;;9002226.02101,"1027,70160 ",.02)
 ;;70160
 ;;9002226.02101,"1027,70170 ",.01)
 ;;70170
 ;;9002226.02101,"1027,70170 ",.02)
 ;;70170
 ;;9002226.02101,"1027,70190 ",.01)
 ;;70190
 ;;9002226.02101,"1027,70190 ",.02)
 ;;70190
 ;;9002226.02101,"1027,70200 ",.01)
 ;;70200
 ;;9002226.02101,"1027,70200 ",.02)
 ;;70200
 ;;9002226.02101,"1027,70210 ",.01)
 ;;70210
 ;;9002226.02101,"1027,70210 ",.02)
 ;;70210
 ;;9002226.02101,"1027,70220 ",.01)
 ;;70220
 ;;9002226.02101,"1027,70220 ",.02)
 ;;70220
 ;;9002226.02101,"1027,70240 ",.01)
 ;;70240
 ;;9002226.02101,"1027,70240 ",.02)
 ;;70240
 ;;9002226.02101,"1027,70250 ",.01)
 ;;70250
 ;;9002226.02101,"1027,70250 ",.02)
 ;;70250
 ;;9002226.02101,"1027,70260 ",.01)
 ;;70260
 ;;9002226.02101,"1027,70260 ",.02)
 ;;70260
 ;;9002226.02101,"1027,70300 ",.01)
 ;;70300
 ;;9002226.02101,"1027,70300 ",.02)
 ;;70300
 ;;9002226.02101,"1027,70310 ",.01)
 ;;70310
 ;;9002226.02101,"1027,70310 ",.02)
 ;;70310
 ;;9002226.02101,"1027,70320 ",.01)
 ;;70320
 ;;9002226.02101,"1027,70320 ",.02)
 ;;70320
 ;;9002226.02101,"1027,70328 ",.01)
 ;;70328
 ;;9002226.02101,"1027,70328 ",.02)
 ;;70328
 ;;9002226.02101,"1027,70330 ",.01)
 ;;70330
 ;;9002226.02101,"1027,70330 ",.02)
 ;;70330
 ;;9002226.02101,"1027,70332 ",.01)
 ;;70332
 ;;9002226.02101,"1027,70332 ",.02)
 ;;70332
 ;;9002226.02101,"1027,70336 ",.01)
 ;;70336
 ;;9002226.02101,"1027,70336 ",.02)
 ;;70336
 ;;9002226.02101,"1027,70350 ",.01)
 ;;70350
 ;;9002226.02101,"1027,70350 ",.02)
 ;;70350
 ;;9002226.02101,"1027,70355 ",.01)
 ;;70355
 ;;9002226.02101,"1027,70355 ",.02)
 ;;70355
 ;;9002226.02101,"1027,70360 ",.01)
 ;;70360
 ;;9002226.02101,"1027,70360 ",.02)
 ;;70360
 ;;9002226.02101,"1027,70370 ",.01)
 ;;70370
 ;;9002226.02101,"1027,70370 ",.02)
 ;;70370
 ;;9002226.02101,"1027,70371 ",.01)
 ;;70371
 ;;9002226.02101,"1027,70371 ",.02)
 ;;70371
 ;;9002226.02101,"1027,70373 ",.01)
 ;;70373
 ;;9002226.02101,"1027,70373 ",.02)
 ;;70373
 ;;9002226.02101,"1027,70380 ",.01)
 ;;70380
 ;;9002226.02101,"1027,70380 ",.02)
 ;;70380
 ;;9002226.02101,"1027,70390 ",.01)
 ;;70390
 ;;9002226.02101,"1027,70390 ",.02)
 ;;70390
 ;;9002226.02101,"1027,70450 ",.01)
 ;;70450
 ;;9002226.02101,"1027,70450 ",.02)
 ;;70450
 ;;9002226.02101,"1027,70460 ",.01)
 ;;70460
 ;;9002226.02101,"1027,70460 ",.02)
 ;;70460
 ;;9002226.02101,"1027,70470 ",.01)
 ;;70470
 ;;9002226.02101,"1027,70470 ",.02)
 ;;70470
 ;;9002226.02101,"1027,70480 ",.01)
 ;;70480
 ;;9002226.02101,"1027,70480 ",.02)
 ;;70480
 ;;9002226.02101,"1027,70481 ",.01)
 ;;70481
 ;;9002226.02101,"1027,70481 ",.02)
 ;;70481
 ;;9002226.02101,"1027,70482 ",.01)
 ;;70482
 ;;9002226.02101,"1027,70482 ",.02)
 ;;70482
 ;;9002226.02101,"1027,70486 ",.01)
 ;;70486
 ;;9002226.02101,"1027,70486 ",.02)
 ;;70486
 ;;9002226.02101,"1027,70487 ",.01)
 ;;70487
 ;;9002226.02101,"1027,70487 ",.02)
 ;;70487
 ;;9002226.02101,"1027,70488 ",.01)
 ;;70488
 ;;9002226.02101,"1027,70488 ",.02)
 ;;70488
 ;;9002226.02101,"1027,70490 ",.01)
 ;;70490
 ;;9002226.02101,"1027,70490 ",.02)
 ;;70490
 ;;9002226.02101,"1027,70491 ",.01)
 ;;70491
 ;;9002226.02101,"1027,70491 ",.02)
 ;;70491
 ;;9002226.02101,"1027,70492 ",.01)
 ;;70492
 ;;9002226.02101,"1027,70492 ",.02)
 ;;70492
 ;;9002226.02101,"1027,70496 ",.01)
 ;;70496
 ;;9002226.02101,"1027,70496 ",.02)
 ;;70496
 ;;9002226.02101,"1027,70498 ",.01)
 ;;70498
 ;;9002226.02101,"1027,70498 ",.02)
 ;;70498
 ;;9002226.02101,"1027,70540 ",.01)
 ;;70540
 ;;9002226.02101,"1027,70540 ",.02)
 ;;70540
 ;;9002226.02101,"1027,70542 ",.01)
 ;;70542
 ;;9002226.02101,"1027,70542 ",.02)
 ;;70542
 ;;9002226.02101,"1027,70543 ",.01)
 ;;70543
 ;;9002226.02101,"1027,70543 ",.02)
 ;;70543
 ;;9002226.02101,"1027,70544 ",.01)
 ;;70544
 ;;9002226.02101,"1027,70544 ",.02)
 ;;70544
 ;;9002226.02101,"1027,70545 ",.01)
 ;;70545
 ;;9002226.02101,"1027,70545 ",.02)
 ;;70545
 ;;9002226.02101,"1027,70546 ",.01)
 ;;70546
 ;;9002226.02101,"1027,70546 ",.02)
 ;;70546
 ;;9002226.02101,"1027,70547 ",.01)
 ;;70547
 ;;9002226.02101,"1027,70547 ",.02)
 ;;70547
 ;;9002226.02101,"1027,70548 ",.01)
 ;;70548
 ;;9002226.02101,"1027,70548 ",.02)
 ;;70548
 ;;9002226.02101,"1027,70549 ",.01)
 ;;70549
 ;;9002226.02101,"1027,70549 ",.02)
 ;;70549
 ;;9002226.02101,"1027,70551 ",.01)
 ;;70551
 ;;9002226.02101,"1027,70551 ",.02)
 ;;70551
 ;;9002226.02101,"1027,70552 ",.01)
 ;;70552
 ;;9002226.02101,"1027,70552 ",.02)
 ;;70552
 ;;9002226.02101,"1027,70553 ",.01)
 ;;70553
 ;;9002226.02101,"1027,70553 ",.02)
 ;;70553
 ;;9002226.02101,"1027,70554 ",.01)
 ;;70554
 ;;9002226.02101,"1027,70554 ",.02)
 ;;70554
 ;;9002226.02101,"1027,70555 ",.01)
 ;;70555
 ;;9002226.02101,"1027,70555 ",.02)
 ;;70555
 ;;9002226.02101,"1027,70557 ",.01)
 ;;70557
 ;;9002226.02101,"1027,70557 ",.02)
 ;;70557
 ;;9002226.02101,"1027,70558 ",.01)
 ;;70558
 ;;9002226.02101,"1027,70558 ",.02)
 ;;70558
 ;;9002226.02101,"1027,70559 ",.01)
 ;;70559
 ;;9002226.02101,"1027,70559 ",.02)
 ;;70559
 ;;9002226.02101,"1027,71010 ",.01)
 ;;71010
 ;;9002226.02101,"1027,71010 ",.02)
 ;;71010
 ;;9002226.02101,"1027,71015 ",.01)
 ;;71015
 ;;9002226.02101,"1027,71015 ",.02)
 ;;71015
 ;;9002226.02101,"1027,71020 ",.01)
 ;;71020
 ;;9002226.02101,"1027,71020 ",.02)
 ;;71020
 ;;9002226.02101,"1027,71021 ",.01)
 ;;71021
 ;;9002226.02101,"1027,71021 ",.02)
 ;;71021
 ;;9002226.02101,"1027,71022 ",.01)
 ;;71022
 ;;9002226.02101,"1027,71022 ",.02)
 ;;71022
 ;;9002226.02101,"1027,71023 ",.01)
 ;;71023
 ;;9002226.02101,"1027,71023 ",.02)
 ;;71023
 ;;9002226.02101,"1027,71030 ",.01)
 ;;71030
 ;;9002226.02101,"1027,71030 ",.02)
 ;;71030
 ;;9002226.02101,"1027,71034 ",.01)
 ;;71034
 ;;9002226.02101,"1027,71034 ",.02)
 ;;71034
 ;;9002226.02101,"1027,71035 ",.01)
 ;;71035
 ;;9002226.02101,"1027,71035 ",.02)
 ;;71035
 ;;9002226.02101,"1027,71040 ",.01)
 ;;71040
 ;;9002226.02101,"1027,71040 ",.02)
 ;;71040
 ;;9002226.02101,"1027,71060 ",.01)
 ;;71060
 ;;9002226.02101,"1027,71060 ",.02)
 ;;71060
 ;;9002226.02101,"1027,71090 ",.01)
 ;;71090
 ;;9002226.02101,"1027,71090 ",.02)
 ;;71090
 ;;9002226.02101,"1027,71100 ",.01)
 ;;71100
 ;;9002226.02101,"1027,71100 ",.02)
 ;;71100
 ;;9002226.02101,"1027,71101 ",.01)
 ;;71101
 ;;9002226.02101,"1027,71101 ",.02)
 ;;71101
 ;;9002226.02101,"1027,71110 ",.01)
 ;;71110
 ;;9002226.02101,"1027,71110 ",.02)
 ;;71110
 ;;9002226.02101,"1027,71111 ",.01)
 ;;71111
 ;;9002226.02101,"1027,71111 ",.02)
 ;;71111
 ;;9002226.02101,"1027,71120 ",.01)
 ;;71120
 ;;9002226.02101,"1027,71120 ",.02)
 ;;71120
 ;;9002226.02101,"1027,71130 ",.01)
 ;;71130
 ;;9002226.02101,"1027,71130 ",.02)
 ;;71130
 ;;9002226.02101,"1027,71250 ",.01)
 ;;71250
 ;;9002226.02101,"1027,71250 ",.02)
 ;;71250
 ;;9002226.02101,"1027,71260 ",.01)
 ;;71260
 ;;9002226.02101,"1027,71260 ",.02)
 ;;71260
 ;;9002226.02101,"1027,71270 ",.01)
 ;;71270
 ;;9002226.02101,"1027,71270 ",.02)
 ;;71270
 ;;9002226.02101,"1027,71275 ",.01)
 ;;71275
 ;;9002226.02101,"1027,71275 ",.02)
 ;;71275
 ;;9002226.02101,"1027,71550 ",.01)
 ;;71550
 ;;9002226.02101,"1027,71550 ",.02)
 ;;71550
 ;;9002226.02101,"1027,71551 ",.01)
 ;;71551
 ;;9002226.02101,"1027,71551 ",.02)
 ;;71551
 ;;9002226.02101,"1027,71552 ",.01)
 ;;71552
 ;;9002226.02101,"1027,71552 ",.02)
 ;;71552
 ;;9002226.02101,"1027,71555 ",.01)
 ;;71555
 ;;9002226.02101,"1027,71555 ",.02)
 ;;71555
 ;;9002226.02101,"1027,72010 ",.01)
 ;;72010
 ;;9002226.02101,"1027,72010 ",.02)
 ;;72010
 ;;9002226.02101,"1027,72020 ",.01)
 ;;72020
 ;;9002226.02101,"1027,72020 ",.02)
 ;;72020
 ;;9002226.02101,"1027,72040 ",.01)
 ;;72040
 ;;9002226.02101,"1027,72040 ",.02)
 ;;72040
 ;;9002226.02101,"1027,72050 ",.01)
 ;;72050
 ;;9002226.02101,"1027,72050 ",.02)
 ;;72050
 ;;9002226.02101,"1027,72052 ",.01)
 ;;72052
 ;;9002226.02101,"1027,72052 ",.02)
 ;;72052
 ;;9002226.02101,"1027,72069 ",.01)
 ;;72069
 ;;9002226.02101,"1027,72069 ",.02)
 ;;72069
 ;;9002226.02101,"1027,72070 ",.01)
 ;;72070
 ;;9002226.02101,"1027,72070 ",.02)
 ;;72070
 ;;9002226.02101,"1027,72072 ",.01)
 ;;72072
 ;;9002226.02101,"1027,72072 ",.02)
 ;;72072
 ;;9002226.02101,"1027,72074 ",.01)
 ;;72074
 ;;9002226.02101,"1027,72074 ",.02)
 ;;72074
 ;;9002226.02101,"1027,72080 ",.01)
 ;;72080
 ;;9002226.02101,"1027,72080 ",.02)
 ;;72080
 ;;9002226.02101,"1027,72090 ",.01)
 ;;72090
 ;;9002226.02101,"1027,72090 ",.02)
 ;;72090
 ;;9002226.02101,"1027,72100 ",.01)
 ;;72100
 ;;9002226.02101,"1027,72100 ",.02)
 ;;72100
 ;;9002226.02101,"1027,72110 ",.01)
 ;;72110
 ;;9002226.02101,"1027,72110 ",.02)
 ;;72110
 ;;9002226.02101,"1027,72114 ",.01)
 ;;72114
 ;;9002226.02101,"1027,72114 ",.02)
 ;;72114
 ;;9002226.02101,"1027,72120 ",.01)
 ;;72120
 ;;9002226.02101,"1027,72120 ",.02)
 ;;72120
 ;;9002226.02101,"1027,72125 ",.01)
 ;;72125
 ;;9002226.02101,"1027,72125 ",.02)
 ;;72125
 ;;9002226.02101,"1027,72126 ",.01)
 ;;72126
 ;;9002226.02101,"1027,72126 ",.02)
 ;;72126
 ;;9002226.02101,"1027,72127 ",.01)
 ;;72127
 ;;9002226.02101,"1027,72127 ",.02)
 ;;72127
 ;;9002226.02101,"1027,72128 ",.01)
 ;;72128
 ;;9002226.02101,"1027,72128 ",.02)
 ;;72128
 ;;9002226.02101,"1027,72129 ",.01)
 ;;72129
 ;;9002226.02101,"1027,72129 ",.02)
 ;;72129
 ;;9002226.02101,"1027,72130 ",.01)
 ;;72130
 ;;9002226.02101,"1027,72130 ",.02)
 ;;72130
 ;;9002226.02101,"1027,72131 ",.01)
 ;;72131
 ;;9002226.02101,"1027,72131 ",.02)
 ;;72131
 ;;9002226.02101,"1027,72132 ",.01)
 ;;72132
 ;;9002226.02101,"1027,72132 ",.02)
 ;;72132
 ;;9002226.02101,"1027,72133 ",.01)
 ;;72133
 ;;9002226.02101,"1027,72133 ",.02)
 ;;72133
 ;;9002226.02101,"1027,72141 ",.01)
 ;;72141
 ;;9002226.02101,"1027,72141 ",.02)
 ;;72141
 ;;9002226.02101,"1027,72142 ",.01)
 ;;72142
 ;;9002226.02101,"1027,72142 ",.02)
 ;;72142
 ;;9002226.02101,"1027,72146 ",.01)
 ;;72146
 ;;9002226.02101,"1027,72146 ",.02)
 ;;72146
 ;;9002226.02101,"1027,72147 ",.01)
 ;;72147
 ;;9002226.02101,"1027,72147 ",.02)
 ;;72147
 ;;9002226.02101,"1027,72148 ",.01)
 ;;72148
 ;;9002226.02101,"1027,72148 ",.02)
 ;;72148
 ;;9002226.02101,"1027,72149 ",.01)
 ;;72149
 ;;9002226.02101,"1027,72149 ",.02)
 ;;72149
 ;;9002226.02101,"1027,72156 ",.01)
 ;;72156
 ;;9002226.02101,"1027,72156 ",.02)
 ;;72156
 ;;9002226.02101,"1027,72157 ",.01)
 ;;72157
 ;;9002226.02101,"1027,72157 ",.02)
 ;;72157
 ;;9002226.02101,"1027,72158 ",.01)
 ;;72158
 ;;9002226.02101,"1027,72158 ",.02)
 ;;72158
 ;;9002226.02101,"1027,72159 ",.01)
 ;;72159
 ;;9002226.02101,"1027,72159 ",.02)
 ;;72159
 ;;9002226.02101,"1027,72170 ",.01)
 ;;72170
 ;;9002226.02101,"1027,72170 ",.02)
 ;;72170
 ;;9002226.02101,"1027,72190 ",.01)
 ;;72190
 ;;9002226.02101,"1027,72190 ",.02)
 ;;72190
 ;;9002226.02101,"1027,72191 ",.01)
 ;;72191
 ;;9002226.02101,"1027,72191 ",.02)
 ;;72191
 ;;9002226.02101,"1027,72192 ",.01)
 ;;72192
 ;;9002226.02101,"1027,72192 ",.02)
 ;;72192
 ;;9002226.02101,"1027,72193 ",.01)
 ;;72193
 ;;9002226.02101,"1027,72193 ",.02)
 ;;72193
 ;;9002226.02101,"1027,72194 ",.01)
 ;;72194
 ;;9002226.02101,"1027,72194 ",.02)
 ;;72194
 ;;9002226.02101,"1027,72195 ",.01)
 ;;72195
 ;;9002226.02101,"1027,72195 ",.02)
 ;;72195
 ;;9002226.02101,"1027,72196 ",.01)
 ;;72196
 ;;9002226.02101,"1027,72196 ",.02)
 ;;72196