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

BGPM3A.m

Go to the documentation of this file.
  1. BGPM3A ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
  1. ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
  1. ;;BGPMU ANTICOAG NDCS
  1. ;
  1. ; This routine loads Taxonomy BGPMU ANTICOAG NDCS
  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. D OTHER
  1. I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2
  1. I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2
  1. D KILL^ATXSTX2
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;21,"00002721601 ")
  1. ;;142
  1. ;;21,"00002721701 ")
  1. ;;227
  1. ;;21,"00003296320 ")
  1. ;;143
  1. ;;21,"00007440701 ")
  1. ;;1
  1. ;;21,"00007440754 ")
  1. ;;2
  1. ;;21,"00008027501 ")
  1. ;;144
  1. ;;21,"00008027502 ")
  1. ;;145
  1. ;;21,"00008027550 ")
  1. ;;18
  1. ;;21,"00008027601 ")
  1. ;;290
  1. ;;21,"00008027701 ")
  1. ;;228
  1. ;;21,"00008027702 ")
  1. ;;11
  1. ;;21,"00008027703 ")
  1. ;;12
  1. ;;21,"00008027801 ")
  1. ;;380
  1. ;;21,"00008027802 ")
  1. ;;381
  1. ;;21,"00008029301 ")
  1. ;;420
  1. ;;21,"00008048201 ")
  1. ;;309
  1. ;;21,"00008048701 ")
  1. ;;49
  1. ;;21,"00008048703 ")
  1. ;;50
  1. ;;21,"00008252901 ")
  1. ;;51
  1. ;;21,"00008252902 ")
  1. ;;52
  1. ;;21,"00008252903 ")
  1. ;;53
  1. ;;21,"00008252950 ")
  1. ;;54
  1. ;;21,"00008252951 ")
  1. ;;55
  1. ;;21,"00008252952 ")
  1. ;;56
  1. ;;21,"00009026801 ")
  1. ;;146
  1. ;;21,"00009026802 ")
  1. ;;147
  1. ;;21,"00009026807 ")
  1. ;;148
  1. ;;21,"00009026812 ")
  1. ;;149
  1. ;;21,"00009029101 ")
  1. ;;382
  1. ;;21,"00009029102 ")
  1. ;;383
  1. ;;21,"00009031701 ")
  1. ;;229
  1. ;;21,"00009031702 ")
  1. ;;230
  1. ;;21,"00009031708 ")
  1. ;;231
  1. ;;21,"00009031709 ")
  1. ;;232
  1. ;;21,"00009031710 ")
  1. ;;233
  1. ;;21,"00009031711 ")
  1. ;;234
  1. ;;21,"00024072212 ")
  1. ;;57
  1. ;;21,"00024072213 ")
  1. ;;58
  1. ;;21,"00024072216 ")
  1. ;;59
  1. ;;21,"00024072217 ")
  1. ;;60
  1. ;;21,"00024072233 ")
  1. ;;61
  1. ;;21,"00024073302 ")
  1. ;;310
  1. ;;21,"00024073303 ")
  1. ;;311
  1. ;;21,"00024073304 ")
  1. ;;421
  1. ;;21,"00024073305 ")
  1. ;;312
  1. ;;21,"00024073312 ")
  1. ;;235
  1. ;;21,"00024073357 ")
  1. ;;384
  1. ;;21,"00024074212 ")
  1. ;;62
  1. ;;21,"00052081110 ")
  1. ;;150
  1. ;;21,"00052081175 ")
  1. ;;151
  1. ;;21,"00052081210 ")
  1. ;;385
  1. ;;21,"00052081225 ")
  1. ;;386
  1. ;;21,"00052081250 ")
  1. ;;387
  1. ;;21,"00052081302 ")
  1. ;;291
  1. ;;21,"00052081305 ")
  1. ;;292
  1. ;;21,"00052081325 ")
  1. ;;293
  1. ;;21,"00052081504 ")
  1. ;;236
  1. ;;21,"00052081525 ")
  1. ;;237
  1. ;;21,"00052081550 ")
  1. ;;238
  1. ;;21,"00052081625 ")
  1. ;;326
  1. ;;21,"00056003002 ")
  1. ;;10
  1. ;;21,"00056017170 ")
  1. ;;914
  1. ;;21,"00056017175 ")
  1. ;;915
  1. ;;21,"00056017190 ")
  1. ;;916
  1. ;;21,"00074115212 ")
  1. ;;63
  1. ;;21,"00074115214 ")
  1. ;;64
  1. ;;21,"00074115270 ")
  1. ;;65
  1. ;;21,"00074115271 ")
  1. ;;66
  1. ;;21,"00074115273 ")
  1. ;;67
  1. ;;21,"00074115278 ")
  1. ;;68
  1. ;;21,"00074128125 ")
  1. ;;69
  1. ;;21,"00074131602 ")
  1. ;;313
  1. ;;21,"00074131613 ")
  1. ;;239
  1. ;;21,"00074131614 ")
  1. ;;240
  1. ;;21,"00074131632 ")
  1. ;;13
  1. ;;21,"00074131666 ")
  1. ;;14
  1. ;;21,"00074140201 ")
  1. ;;388
  1. ;;21,"00074140211 ")
  1. ;;389
  1. ;;21,"00074140231 ")
  1. ;;390
  1. ;;21,"00074258202 ")
  1. ;;314
  1. ;;21,"00074258302 ")
  1. ;;283
  1. ;;21,"00074258402 ")
  1. ;;315
  1. ;;21,"00074628602 ")
  1. ;;70
  1. ;;21,"00074628611 ")
  1. ;;71
  1. ;;21,"00074628702 ")
  1. ;;336
  1. ;;21,"00074628703 ")
  1. ;;337
  1. ;;21,"00074629202 ")
  1. ;;72
  1. ;;21,"00074629302 ")
  1. ;;338
  1. ;;21,"00074629303 ")
  1. ;;339
  1. ;;21,"00074662603 ")
  1. ;;791
  1. ;;21,"00074662607 ")
  1. ;;792
  1. ;;21,"00074663803 ")
  1. ;;1537
  1. ;;21,"00074663807 ")
  1. ;;1538
  1. ;;21,"00074720201 ")
  1. ;;917
  1. ;;21,"00074720205 ")
  1. ;;918
  1. ;;21,"00074721001 ")
  1. ;;1377
  1. ;;21,"00074721005 ")
  1. ;;1378
  1. ;;21,"00074721009 ")
  1. ;;1379
  1. ;;21,"00074721801 ")
  1. ;;612
  1. ;;21,"00074721805 ")
  1. ;;613
  1. ;;21,"00074765002 ")
  1. ;;73
  1. ;;21,"00074765062 ")
  1. ;;74
  1. ;;21,"00074765102 ")
  1. ;;340
  1. ;;21,"00074765103 ")
  1. ;;341
  1. ;;21,"00074765162 ")
  1. ;;342
  1. ;;21,"00074776003 ")
  1. ;;317
  1. ;;21,"00074776103 ")
  1. ;;343
  1. ;;21,"00074776130 ")
  1. ;;344
  1. ;;21,"00074779224 ")
  1. ;;318
  1. ;;21,"00074779312 ")
  1. ;;75
  1. ;;21,"00074779323 ")
  1. ;;76
  1. ;;21,"00074779361 ")
  1. ;;77
  1. ;;21,"00074779362 ")
  1. ;;78
  1. ;;21,"00074779412 ")
  1. ;;345
  1. ;;21,"00074779423 ")
  1. ;;346
  1. ;;21,"00074779462 ")
  1. ;;347
  1. ;;21,"00085016875 ")
  1. ;;1161
  1. ;;21,"00089041001 ")
  1. ;;152
  1. ;;21,"00089042501 ")
  1. ;;241
  1. ;;21,"00093014301 ")
  1. ;;793
  1. ;;21,"00093014401 ")
  1. ;;919
  1. ;;21,"00093014501 ")
  1. ;;1380
  1. ;;21,"00093014510 ")
  1. ;;1381
  1. ;;21,"00094014501 ")
  1. ;;1382
  1. ;;21,"00094014510 ")
  1. ;;1383
  1. ;;21,"00094014561 ")
  1. ;;1384
  1. ;;21,"00106143030 ")
  1. ;;1385
  1. ;;21,"00157028301 ")
  1. ;;794
  1. ;;21,"00157028401 ")
  1. ;;920
  1. ;;21,"00157028510 ")
  1. ;;1386
  1. ;;21,"00157028601 ")
  1. ;;1539
  1. ;;21,"00157028701 ")
  1. ;;614
  1. ;;21,"00179136401 ")
  1. ;;795
  1. ;;21,"00179136470 ")
  1. ;;796
  1. ;;21,"00179136570 ")
  1. ;;921
  1. ;;21,"00179136650 ")
  1. ;;1387
  1. ;;21,"00179136660 ")
  1. ;;1388
  1. ;;21,"00179136670 ")
  1. ;;1389
  1. ;;21,"00179136690 ")
  1. ;;1390
  1. ;;21,"00179139070 ")
  1. ;;549
  1. ;;21,"00179139170 ")
  1. ;;1018
  1. ;;21,"00179139270 ")
  1. ;;1162
  1. ;;21,"00179139370 ")
  1. ;;1472
  1. ;;21,"00179139470 ")
  1. ;;1540
  1. ;;21,"00179139570 ")
  1. ;;615
  1. ;;21,"00179196170 ")
  1. ;;550
  1. ;;21,"00179196171 ")
  1. ;;551
  1. ;;21,"00179196172 ")
  1. ;;552
  1. ;;21,"00179196270 ")
  1. ;;1541
  1. ;;21,"00179196271 ")
  1. ;;1542
  1. ;;21,"00179196272 ")
  1. ;;1543
  1. ;;21,"00179196370 ")
  1. ;;616
  1. ;;21,"00179196371 ")
  1. ;;617
  1. ;;21,"00179196372 ")
  1. ;;618
  1. ;;21,"00179196870 ")
  1. ;;1163
  1. ;;21,"00179196871 ")
  1. ;;1164
  1. ;;21,"00179196872 ")
  1. ;;1165
  1. ;;21,"00179200270 ")
  1. ;;1019
  1. ;;21,"00179200271 ")
  1. ;;1020
  1. ;;21,"00179200272 ")
  1. ;;1021
  1. ;;21,"00182152201 ")
  1. ;;1391
  1. ;;21,"00182152210 ")
  1. ;;1392
  1. ;;21,"00182267101 ")
  1. ;;553
  1. ;;21,"00182267110 ")
  1. ;;554
  1. ;;21,"00182267189 ")
  1. ;;555
  1. ;;21,"00182267201 ")
  1. ;;797
  1. ;;21,"00182267210 ")
  1. ;;798
  1. ;;21,"00182267289 ")
  1. ;;799
  1. ;;21,"00182267301 ")
  1. ;;922
  1. ;;21,"00182267310 ")
  1. ;;923
  1. ;;21,"00182267389 ")
  1. ;;924
  1. ;;21,"00182267401 ")
  1. ;;1022
  1. ;;21,"00182267410 ")
  1. ;;1023
  1. ;;21,"00182267489 ")
  1. ;;1024
  1. ;;21,"00182267501 ")
  1. ;;1166
  1. ;;21,"00182267510 ")
  1. ;;1167
  1. ;;21,"00182267589 ")
  1. ;;1168
  1. ;;21,"00182267601 ")
  1. ;;1393
  1. ;;21,"00182267610 ")
  1. ;;1394
  1. ;;21,"00182267689 ")
  1. ;;1395
  1. ;;21,"00182267701 ")
  1. ;;1473
  1. ;;21,"00182267789 ")
  1. ;;1474
  1. ;;21,"00182267801 ")
  1. ;;1544
  1. ;;21,"00182267889 ")
  1. ;;1545
  1. ;;21,"00182267901 ")
  1. ;;619
  1. ;;21,"00182267989 ")
  1. ;;620
  1. ;;21,"00182276301 ")
  1. ;;925
  1. ;;21,"00209422014 ")
  1. ;;153
  1. ;;21,"00223237501 ")
  1. ;;926
  1. ;;21,"00223237502 ")
  1. ;;927
  1. ;;21,"00223237601 ")
  1. ;;928
  1. ;;21,"00223237602 ")
  1. ;;929
  1. ;;21,"00223237701 ")
  1. ;;1396
  1. ;;21,"00223237702 ")
  1. ;;1397
  1. ;;21,"00223237801 ")
  1. ;;1546
  1. ;;21,"00223237802 ")
  1. ;;1547
  1. ;;21,"00223237901 ")
  1. ;;621
  1. ;;21,"00223237902 ")
  1. ;;622
  1. ;;21,"00223780101 ")
  1. ;;154
  1. ;;21,"00223780801 ")
  1. ;;155
  1. ;;21,"00223781010 ")
  1. ;;156
  1. ;;21,"00223781801 ")
  1. ;;391
  1. ;;21,"00223782010 ")
  1. ;;392
  1. ;;21,"00223782801 ")
  1. ;;242
  1. ;;21,"00223783004 ")
  1. ;;243
  1. ;;21,"00223783105 ")
  1. ;;244
  1. ;;21,"00223783210 ")
  1. ;;245
  1. ;;21,"00223784001 ")
  1. ;;294
  1. ;;21,"00223784005 ")
  1. ;;295
  1. ;;21,"00223784310 ")
  1. ;;157
  1. ;;21,"00223784430 ")
  1. ;;158
  1. ;;21,"00223784525 ")
  1. ;;393
  1. ;;21,"00223784601 ")
  1. ;;246
  1. ;;21,"00223786501 ")
  1. ;;79
  1. ;;21,"00223786702 ")
  1. ;;80
  1. ;;21,"00247119530 ")
  1. ;;159
  1. ;;21,"00247119550 ")
  1. ;;160
  1. ;;21,"00247225203 ")
  1. ;;800
  1. ;;21,"00247225206 ")
  1. ;;801
  1. ;;21,"00257012501 ")
  1. ;;394
  1. ;;21,"00257012601 ")
  1. ;;247
  1. ;;21,"00257016701 ")
  1. ;;248
  1. ;;21,"00264557710 ")
  1. ;;348
  1. ;;21,"00264887710 ")
  1. ;;349
  1. ;;21,"00264956710 ")
  1. ;;319
  1. ;;21,"00264957710 ")
  1. ;;350
  1. ;;21,"00264958720 ")
  1. ;;81
  1. ;;21,"00298690861 ")
  1. ;;161
  1. ;;21,"00302820001 ")
  1. ;;802
  1. ;;21,"00302820201 ")
  1. ;;930
  1. ;;21,"00302820401 ")
  1. ;;1398
  1. ;;21,"00308618030 ")
  1. ;;931
  1. ;;21,"00308618099 ")
  1. ;;932
  1. ;;21,"00308620030 ")
  1. ;;1399
  1. ;;21,"00308620099 ")
  1. ;;1400
  1. ;;21,"00338044903 ")
  1. ;;320
  1. ;;21,"00338045003 ")
  1. ;;351
  1. ;;21,"00338045102 ")
  1. ;;82
  1. ;;21,"00338054903 ")
  1. ;;321
  1. ;;21,"00338055002 ")
  1. ;;83
  1. ;;21,"00338055003 ")
  1. ;;352
  1. ;;21,"00339653712 ")
  1. ;;556
  1. ;;21,"00339653812 ")
  1. ;;803
  1. ;;21,"00339653912 ")
  1. ;;933
  1. ;;21,"00339654012 ")
  1. ;;1025
  1. ;;21,"00339654112 ")
  1. ;;1169
  1. ;;21,"00339654212 ")
  1. ;;1401
  1. ;;21,"00339654312 ")
  1. ;;1475
  1. ;;21,"00339654412 ")
  1. ;;1548
  1. ;;21,"00339654512 ")
  1. ;;623
  1. ;;21,"00349839001 ")
  1. ;;934
  1. ;;21,"00349839101 ")
  1. ;;1402
  1. ;;21,"00349839201 ")
  1. ;;624
  1. ;;21,"00364064001 ")
  1. ;;1403
  1. ;;21,"00364064002 ")
  1. ;;1404
  1. ;;21,"00364236446 ")
  1. ;;327
  1. ;;21,"00364236448 ")
  1. ;;328
  1. ;;21,"00364236453 ")
  1. ;;329
  1. ;;21,"00364653854 ")
  1. ;;395
  1. ;;21,"00364653934 ")
  1. ;;249
  1. ;;21,"00364653949 ")
  1. ;;250
  1. ;;21,"00364653953 ")
  1. ;;251
  1. ;;21,"00364653954 ")
  1. ;;252
  1. ;;21,"00364654046 ")
  1. ;;296
  1. ;;21,"00364654048 ")
  1. ;;297
  1. ;;21,"00364654053 ")
  1. ;;298
  1. ;;21,"00364666934 ")
  1. ;;162
  1. ;;21,"00364666954 ")
  1. ;;163
  1. ;;21,"00364666956 ")
  1. ;;164
  1. ;;21,"00378880101 ")
  1. ;;557
  1. ;;21,"00378880110 ")
  1. ;;558
  1. ;;21,"00378880201 ")
  1. ;;804
  1. ;;21,"00378880210 ")
  1. ;;805
  1. ;;21,"00378880301 ")
  1. ;;1026
  1. ;;21,"00378880310 ")
  1. ;;1027
  1. ;;21,"00378880401 ")
  1. ;;1170
  1. ;;21,"00378880410 ")
  1. ;;1171
  1. ;;21,"00378880501 ")
  1. ;;1405
  1. ;;21,"00378880510 ")
  1. ;;1406
  1. ;;21,"00378880601 ")
  1. ;;1476
  1. ;;21,"00378880610 ")
  1. ;;1477
  1. ;;21,"00378881001 ")
  1. ;;625
  1. ;;21,"00378881010 ")
  1. ;;626
  1. ;;21,"00378882501 ")
  1. ;;935
  1. ;;21,"00378882510 ")
  1. ;;936
  1. ;;21,"00378887501 ")
  1. ;;1549
  1. ;;21,"00378887510 ")
  1. ;;1550
  1. ;;21,"00381004901 ")
  1. ;;253
  1. ;;21,"00381004904 ")
  1. ;;254
  1. ;;21,"00381004905 ")
  1. ;;255
  1. ;;21,"00381004910 ")
  1. ;;256
  1. ;;21,"00381005001 ")
  1. ;;299
  1. ;;21,"00381005002 ")
  1. ;;300
  1. ;;21,"00381005004 ")
  1. ;;301
  1. ;;21,"00381005005 ")
  1. ;;302
  1. ;;21,"00381005010 ")
  1. ;;303
  1. ;;21,"00381018401 ")
  1. ;;422
  1. ;;21,"00381040301 ")
  1. ;;84
  1. ;;21,"00381041802 ")
  1. ;;396
  1. ;;21,"00381041810 ")
  1. ;;397
  1. ;;21,"00381046301 ")
  1. ;;165
  1. ;;21,"00381046305 ")
  1. ;;166
  1. ;;21,"00381046310 ")
  1. ;;167
  1. ;;21,"00381051901 ")
  1. ;;330
  1. ;;21,"00381051902 ")
  1. ;;331
  1. ;;21,"00381051904 ")
  1. ;;332
  1. ;;21,"00381051910 ")
  1. ;;333
  1. ;;21,"00402004910 ")
  1. ;;257
  1. ;;21,"00402005005 ")
  1. ;;304
  1. ;;21,"00402041810 ")
  1. ;;398
  1. ;;21,"00402046310 ")
  1. ;;168
  1. ;;21,"00402051905 ")
  1. ;;334
  1. ;;21,"00406205201 ")
  1. ;;559
  1. ;;21,"00406205210 ")
  1. ;;560
  1. ;;21,"00406205301 ")
  1. ;;806
  1. ;;21,"00406205310 ")
  1. ;;807
  1. ;;21,"00406205401 ")
  1. ;;1028
  1. ;;21,"00406205410 ")
  1. ;;1029
  1. ;;21,"00406205501 ")
  1. ;;1172
  1. ;;21,"00406205510 ")
  1. ;;1173
  1. ;;21,"00406205601 ")
  1. ;;1407
  1. ;;21,"00406205610 ")
  1. ;;1408
  1. ;;21,"00406205701 ")
  1. ;;1478
  1. ;;21,"00406205801 ")
  1. ;;1551
  1. ;;21,"00406205901 ")
  1. ;;627
  1. ;;21,"00406206401 ")
  1. ;;937
  1. ;;21,"00406206410 ")
  1. ;;938
  1. ;;21,"00406506410 ")
  1. ;;939
  1. ;;21,"00409115212 ")
  1. ;;85
  1. ;;21,"00409115214 ")
  1. ;;86
  1. ;;21,"00409115270 ")
  1. ;;87
  1. ;;21,"00409115278 ")
  1. ;;88
  1. ;;21,"00409131625 ")
  1. ;;15
  1. ;;21,"00409131632 ")
  1. ;;16
  1. ;;21,"00409131666 ")
  1. ;;17
  1. ;;21,"00409140231 ")
  1. ;;399
  1. ;;21,"00409258102 ")
  1. ;;284
  1. ;;21,"00409258402 ")
  1. ;;316
  1. ;;21,"00409272001 ")
  1. ;;169
  1. ;;21,"00409272002 ")
  1. ;;170
  1. ;;21,"00409272003 ")
  1. ;;171
  1. ;;21,"00409272101 ")
  1. ;;258
  1. ;;21,"00409272301 ")
  1. ;;400
  1. ;;21,"00409272302 ")
  1. ;;401
  1. ;;21,"00409765062 ")
  1. ;;89
  1. ;;21,"00409765103 ")
  1. ;;353
  1. ;;21,"00409765162 ")
  1. ;;354
  1. ;;21,"00409776003 ")
  1. ;;322
  1. ;;21,"00409776103 ")
  1. ;;355
  1. ;;21,"00409776130 ")
  1. ;;356
  1. ;;21,"00409779323 ")
  1. ;;90
  1. ;;21,"00409779362 ")
  1. ;;91
  1. ;;21,"00409779462 ")
  1. ;;357
  1. ;;21,"00418434105 ")
  1. ;;305
  1. ;;21,"00418435105 ")
  1. ;;259
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGPM3AA
  1. D ^BGPM3AAA
  1. D ^BGPM3AAB
  1. D ^BGPM3AAC
  1. D ^BGPM3AAD
  1. D ^BGPM3AAE
  1. D ^BGPM3AAF
  1. D ^BGPM3AAG
  1. D ^BGPM3AAH
  1. D ^BGPM3AAI
  1. D ^BGPM3AAJ
  1. D ^BGPM3AAK
  1. D ^BGPM3AAL
  1. D ^BGPM3AAM
  1. D ^BGPM3AAN
  1. D ^BGPM3AAO
  1. D ^BGPM3AAP
  1. D ^BGPM3AAQ
  1. D ^BGPM3AAR
  1. Q