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

BGPM5AC.m

Go to the documentation of this file.
BGPM5AC ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"830,58016077218 ",.02)
 ;;58016077218
 ;;9002226.02101,"830,58016077220 ",.01)
 ;;58016077220
 ;;9002226.02101,"830,58016077220 ",.02)
 ;;58016077220
 ;;9002226.02101,"830,58016077221 ",.01)
 ;;58016077221
 ;;9002226.02101,"830,58016077221 ",.02)
 ;;58016077221
 ;;9002226.02101,"830,58016077224 ",.01)
 ;;58016077224
 ;;9002226.02101,"830,58016077224 ",.02)
 ;;58016077224
 ;;9002226.02101,"830,58016077225 ",.01)
 ;;58016077225
 ;;9002226.02101,"830,58016077225 ",.02)
 ;;58016077225
 ;;9002226.02101,"830,58016077226 ",.01)
 ;;58016077226
 ;;9002226.02101,"830,58016077226 ",.02)
 ;;58016077226
 ;;9002226.02101,"830,58016077227 ",.01)
 ;;58016077227
 ;;9002226.02101,"830,58016077227 ",.02)
 ;;58016077227
 ;;9002226.02101,"830,58016077228 ",.01)
 ;;58016077228
 ;;9002226.02101,"830,58016077228 ",.02)
 ;;58016077228
 ;;9002226.02101,"830,58016077230 ",.01)
 ;;58016077230
 ;;9002226.02101,"830,58016077230 ",.02)
 ;;58016077230
 ;;9002226.02101,"830,58016077232 ",.01)
 ;;58016077232
 ;;9002226.02101,"830,58016077232 ",.02)
 ;;58016077232
 ;;9002226.02101,"830,58016077235 ",.01)
 ;;58016077235
 ;;9002226.02101,"830,58016077235 ",.02)
 ;;58016077235
 ;;9002226.02101,"830,58016077236 ",.01)
 ;;58016077236
 ;;9002226.02101,"830,58016077236 ",.02)
 ;;58016077236
 ;;9002226.02101,"830,58016077240 ",.01)
 ;;58016077240
 ;;9002226.02101,"830,58016077240 ",.02)
 ;;58016077240
 ;;9002226.02101,"830,58016077242 ",.01)
 ;;58016077242
 ;;9002226.02101,"830,58016077242 ",.02)
 ;;58016077242
 ;;9002226.02101,"830,58016077244 ",.01)
 ;;58016077244
 ;;9002226.02101,"830,58016077244 ",.02)
 ;;58016077244
 ;;9002226.02101,"830,58016077245 ",.01)
 ;;58016077245
 ;;9002226.02101,"830,58016077245 ",.02)
 ;;58016077245
 ;;9002226.02101,"830,58016077248 ",.01)
 ;;58016077248
 ;;9002226.02101,"830,58016077248 ",.02)
 ;;58016077248
 ;;9002226.02101,"830,58016077250 ",.01)
 ;;58016077250
 ;;9002226.02101,"830,58016077250 ",.02)
 ;;58016077250
 ;;9002226.02101,"830,58016077256 ",.01)
 ;;58016077256
 ;;9002226.02101,"830,58016077256 ",.02)
 ;;58016077256
 ;;9002226.02101,"830,58016077260 ",.01)
 ;;58016077260
 ;;9002226.02101,"830,58016077260 ",.02)
 ;;58016077260
 ;;9002226.02101,"830,58016077267 ",.01)
 ;;58016077267
 ;;9002226.02101,"830,58016077267 ",.02)
 ;;58016077267
 ;;9002226.02101,"830,58016077269 ",.01)
 ;;58016077269
 ;;9002226.02101,"830,58016077269 ",.02)
 ;;58016077269
 ;;9002226.02101,"830,58016077270 ",.01)
 ;;58016077270
 ;;9002226.02101,"830,58016077270 ",.02)
 ;;58016077270
 ;;9002226.02101,"830,58016077271 ",.01)
 ;;58016077271
 ;;9002226.02101,"830,58016077271 ",.02)
 ;;58016077271
 ;;9002226.02101,"830,58016077272 ",.01)
 ;;58016077272
 ;;9002226.02101,"830,58016077272 ",.02)
 ;;58016077272
 ;;9002226.02101,"830,58016077273 ",.01)
 ;;58016077273
 ;;9002226.02101,"830,58016077273 ",.02)
 ;;58016077273
 ;;9002226.02101,"830,58016077275 ",.01)
 ;;58016077275
 ;;9002226.02101,"830,58016077275 ",.02)
 ;;58016077275
 ;;9002226.02101,"830,58016077276 ",.01)
 ;;58016077276
 ;;9002226.02101,"830,58016077276 ",.02)
 ;;58016077276
 ;;9002226.02101,"830,58016077277 ",.01)
 ;;58016077277
 ;;9002226.02101,"830,58016077277 ",.02)
 ;;58016077277
 ;;9002226.02101,"830,58016077279 ",.01)
 ;;58016077279
 ;;9002226.02101,"830,58016077279 ",.02)
 ;;58016077279
 ;;9002226.02101,"830,58016077280 ",.01)
 ;;58016077280
 ;;9002226.02101,"830,58016077280 ",.02)
 ;;58016077280
 ;;9002226.02101,"830,58016077281 ",.01)
 ;;58016077281
 ;;9002226.02101,"830,58016077281 ",.02)
 ;;58016077281
 ;;9002226.02101,"830,58016077282 ",.01)
 ;;58016077282
 ;;9002226.02101,"830,58016077282 ",.02)
 ;;58016077282
 ;;9002226.02101,"830,58016077283 ",.01)
 ;;58016077283
 ;;9002226.02101,"830,58016077283 ",.02)
 ;;58016077283
 ;;9002226.02101,"830,58016077284 ",.01)
 ;;58016077284
 ;;9002226.02101,"830,58016077284 ",.02)
 ;;58016077284
 ;;9002226.02101,"830,58016077287 ",.01)
 ;;58016077287
 ;;9002226.02101,"830,58016077287 ",.02)
 ;;58016077287
 ;;9002226.02101,"830,58016077289 ",.01)
 ;;58016077289
 ;;9002226.02101,"830,58016077289 ",.02)
 ;;58016077289
 ;;9002226.02101,"830,58016077290 ",.01)
 ;;58016077290
 ;;9002226.02101,"830,58016077290 ",.02)
 ;;58016077290
 ;;9002226.02101,"830,58016077291 ",.01)
 ;;58016077291
 ;;9002226.02101,"830,58016077291 ",.02)
 ;;58016077291
 ;;9002226.02101,"830,58016077292 ",.01)
 ;;58016077292
 ;;9002226.02101,"830,58016077292 ",.02)
 ;;58016077292
 ;;9002226.02101,"830,58016077293 ",.01)
 ;;58016077293
 ;;9002226.02101,"830,58016077293 ",.02)
 ;;58016077293
 ;;9002226.02101,"830,58016077296 ",.01)
 ;;58016077296
 ;;9002226.02101,"830,58016077296 ",.02)
 ;;58016077296
 ;;9002226.02101,"830,58016077297 ",.01)
 ;;58016077297
 ;;9002226.02101,"830,58016077297 ",.02)
 ;;58016077297
 ;;9002226.02101,"830,58016077298 ",.01)
 ;;58016077298
 ;;9002226.02101,"830,58016077298 ",.02)
 ;;58016077298
 ;;9002226.02101,"830,58016077299 ",.01)
 ;;58016077299
 ;;9002226.02101,"830,58016077299 ",.02)
 ;;58016077299
 ;;9002226.02101,"830,58016088300 ",.01)
 ;;58016088300
 ;;9002226.02101,"830,58016088300 ",.02)
 ;;58016088300
 ;;9002226.02101,"830,58016088330 ",.01)
 ;;58016088330
 ;;9002226.02101,"830,58016088330 ",.02)
 ;;58016088330
 ;;9002226.02101,"830,58016088360 ",.01)
 ;;58016088360
 ;;9002226.02101,"830,58016088360 ",.02)
 ;;58016088360
 ;;9002226.02101,"830,58016088390 ",.01)
 ;;58016088390
 ;;9002226.02101,"830,58016088390 ",.02)
 ;;58016088390
 ;;9002226.02101,"830,58864001528 ",.01)
 ;;58864001528
 ;;9002226.02101,"830,58864001528 ",.02)
 ;;58864001528
 ;;9002226.02101,"830,58864001530 ",.01)
 ;;58864001530
 ;;9002226.02101,"830,58864001530 ",.02)
 ;;58864001530
 ;;9002226.02101,"830,58864001560 ",.01)
 ;;58864001560
 ;;9002226.02101,"830,58864001560 ",.02)
 ;;58864001560
 ;;9002226.02101,"830,58864001590 ",.01)
 ;;58864001590
 ;;9002226.02101,"830,58864001590 ",.02)
 ;;58864001590
 ;;9002226.02101,"830,58864069330 ",.01)
 ;;58864069330
 ;;9002226.02101,"830,58864069330 ",.02)
 ;;58864069330
 ;;9002226.02101,"830,58864069360 ",.01)
 ;;58864069360
 ;;9002226.02101,"830,58864069360 ",.02)
 ;;58864069360
 ;;9002226.02101,"830,58864078930 ",.01)
 ;;58864078930
 ;;9002226.02101,"830,58864078930 ",.02)
 ;;58864078930
 ;;9002226.02101,"830,58864078960 ",.01)
 ;;58864078960
 ;;9002226.02101,"830,58864078960 ",.02)
 ;;58864078960
 ;;9002226.02101,"830,58864085130 ",.01)
 ;;58864085130
 ;;9002226.02101,"830,58864085130 ",.02)
 ;;58864085130
 ;;9002226.02101,"830,58864095230 ",.01)
 ;;58864095230
 ;;9002226.02101,"830,58864095230 ",.02)
 ;;58864095230
 ;;9002226.02101,"830,58864095330 ",.01)
 ;;58864095330
 ;;9002226.02101,"830,58864095330 ",.02)
 ;;58864095330
 ;;9002226.02101,"830,59762233003 ",.01)
 ;;59762233003
 ;;9002226.02101,"830,59762233003 ",.02)
 ;;59762233003
 ;;9002226.02101,"830,59762233005 ",.01)
 ;;59762233005
 ;;9002226.02101,"830,59762233005 ",.02)
 ;;59762233005
 ;;9002226.02101,"830,59762233007 ",.01)
 ;;59762233007
 ;;9002226.02101,"830,59762233007 ",.02)
 ;;59762233007
 ;;9002226.02101,"830,59762233103 ",.01)
 ;;59762233103
 ;;9002226.02101,"830,59762233103 ",.02)
 ;;59762233103
 ;;9002226.02101,"830,59762233106 ",.01)
 ;;59762233106
 ;;9002226.02101,"830,59762233106 ",.02)
 ;;59762233106
 ;;9002226.02101,"830,59762233108 ",.01)
 ;;59762233108
 ;;9002226.02101,"830,59762233108 ",.02)
 ;;59762233108
 ;;9002226.02101,"830,59762233203 ",.01)
 ;;59762233203
 ;;9002226.02101,"830,59762233203 ",.02)
 ;;59762233203
 ;;9002226.02101,"830,59762233206 ",.01)
 ;;59762233206
 ;;9002226.02101,"830,59762233206 ",.02)
 ;;59762233206
 ;;9002226.02101,"830,59762233208 ",.01)
 ;;59762233208
 ;;9002226.02101,"830,59762233208 ",.02)
 ;;59762233208
 ;;9002226.02101,"830,59762432000 ",.01)
 ;;59762432000
 ;;9002226.02101,"830,59762432000 ",.02)
 ;;59762432000
 ;;9002226.02101,"830,59762432002 ",.01)
 ;;59762432002
 ;;9002226.02101,"830,59762432002 ",.02)
 ;;59762432002
 ;;9002226.02101,"830,59762432006 ",.01)
 ;;59762432006
 ;;9002226.02101,"830,59762432006 ",.02)
 ;;59762432006
 ;;9002226.02101,"830,59762432100 ",.01)
 ;;59762432100
 ;;9002226.02101,"830,59762432100 ",.02)
 ;;59762432100
 ;;9002226.02101,"830,59762432102 ",.01)
 ;;59762432102
 ;;9002226.02101,"830,59762432102 ",.02)
 ;;59762432102
 ;;9002226.02101,"830,59762432106 ",.01)
 ;;59762432106
 ;;9002226.02101,"830,59762432106 ",.02)
 ;;59762432106
 ;;9002226.02101,"830,59762432200 ",.01)
 ;;59762432200
 ;;9002226.02101,"830,59762432200 ",.02)
 ;;59762432200
 ;;9002226.02101,"830,59762432202 ",.01)
 ;;59762432202
 ;;9002226.02101,"830,59762432202 ",.02)
 ;;59762432202
 ;;9002226.02101,"830,59762432206 ",.01)
 ;;59762432206
 ;;9002226.02101,"830,59762432206 ",.02)
 ;;59762432206
 ;;9002226.02101,"830,60429072218 ",.01)
 ;;60429072218
 ;;9002226.02101,"830,60429072218 ",.02)
 ;;60429072218
 ;;9002226.02101,"830,60429072260 ",.01)
 ;;60429072260
 ;;9002226.02101,"830,60429072260 ",.02)
 ;;60429072260
 ;;9002226.02101,"830,60429072301 ",.01)
 ;;60429072301
 ;;9002226.02101,"830,60429072301 ",.02)
 ;;60429072301
 ;;9002226.02101,"830,60429072305 ",.01)
 ;;60429072305
 ;;9002226.02101,"830,60429072305 ",.02)
 ;;60429072305
 ;;9002226.02101,"830,60429072312 ",.01)
 ;;60429072312
 ;;9002226.02101,"830,60429072312 ",.02)
 ;;60429072312
 ;;9002226.02101,"830,60429072318 ",.01)
 ;;60429072318
 ;;9002226.02101,"830,60429072318 ",.02)
 ;;60429072318
 ;;9002226.02101,"830,60429072360 ",.01)
 ;;60429072360
 ;;9002226.02101,"830,60429072360 ",.02)
 ;;60429072360
 ;;9002226.02101,"830,60429072390 ",.01)
 ;;60429072390
 ;;9002226.02101,"830,60429072390 ",.02)
 ;;60429072390
 ;;9002226.02101,"830,60429072418 ",.01)
 ;;60429072418
 ;;9002226.02101,"830,60429072418 ",.02)
 ;;60429072418
 ;;9002226.02101,"830,60429072460 ",.01)
 ;;60429072460
 ;;9002226.02101,"830,60429072460 ",.02)
 ;;60429072460
 ;;9002226.02101,"830,60429072505 ",.01)
 ;;60429072505
 ;;9002226.02101,"830,60429072505 ",.02)
 ;;60429072505
 ;;9002226.02101,"830,60429072518 ",.01)
 ;;60429072518
 ;;9002226.02101,"830,60429072518 ",.02)
 ;;60429072518
 ;;9002226.02101,"830,60429072560 ",.01)
 ;;60429072560
 ;;9002226.02101,"830,60429072560 ",.02)
 ;;60429072560
 ;;9002226.02101,"830,60429072590 ",.01)
 ;;60429072590
 ;;9002226.02101,"830,60429072590 ",.02)
 ;;60429072590
 ;;9002226.02101,"830,60505019000 ",.01)
 ;;60505019000
 ;;9002226.02101,"830,60505019000 ",.02)
 ;;60505019000
 ;;9002226.02101,"830,60505019001 ",.01)
 ;;60505019001
 ;;9002226.02101,"830,60505019001 ",.02)
 ;;60505019001
 ;;9002226.02101,"830,60505019004 ",.01)
 ;;60505019004
 ;;9002226.02101,"830,60505019004 ",.02)
 ;;60505019004
 ;;9002226.02101,"830,60505019008 ",.01)
 ;;60505019008
 ;;9002226.02101,"830,60505019008 ",.02)
 ;;60505019008
 ;;9002226.02101,"830,60505019100 ",.01)
 ;;60505019100
 ;;9002226.02101,"830,60505019100 ",.02)
 ;;60505019100
 ;;9002226.02101,"830,60505019101 ",.01)
 ;;60505019101
 ;;9002226.02101,"830,60505019101 ",.02)
 ;;60505019101
 ;;9002226.02101,"830,60505019104 ",.01)
 ;;60505019104
 ;;9002226.02101,"830,60505019104 ",.02)
 ;;60505019104
 ;;9002226.02101,"830,60505019108 ",.01)
 ;;60505019108
 ;;9002226.02101,"830,60505019108 ",.02)
 ;;60505019108
 ;;9002226.02101,"830,60505019200 ",.01)
 ;;60505019200
 ;;9002226.02101,"830,60505019200 ",.02)
 ;;60505019200
 ;;9002226.02101,"830,60505019201 ",.01)
 ;;60505019201
 ;;9002226.02101,"830,60505019201 ",.02)
 ;;60505019201
 ;;9002226.02101,"830,60505019204 ",.01)
 ;;60505019204