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

BGPM3AEK.m

Go to the documentation of this file.
BGPM3AEK ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON APR 21, 2011;
 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
 ;
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)
 ;;21,"52584054201 ")
 ;;210
 ;;21,"52584058102 ")
 ;;275
 ;;21,"52958032004 ")
 ;;28
 ;;21,"52958033008 ")
 ;;118
 ;;21,"52958033012 ")
 ;;119
 ;;21,"52958034012 ")
 ;;361
 ;;21,"53792014004 ")
 ;;318
 ;;21,"53978205207 ")
 ;;362
 ;;21,"55154014105 ")
 ;;211
 ;;21,"55154236205 ")
 ;;29
 ;;21,"55154239705 ")
 ;;212
 ;;21,"55154420507 ")
 ;;213
 ;;21,"55154510105 ")
 ;;214
 ;;21,"55154510107 ")
 ;;215
 ;;21,"55154510305 ")
 ;;363
 ;;21,"55154510307 ")
 ;;364
 ;;21,"55154510905 ")
 ;;30
 ;;21,"55154512205 ")
 ;;120
 ;;21,"55154512207 ")
 ;;121
 ;;21,"55154512605 ")
 ;;122
 ;;21,"55154870107 ")
 ;;365
 ;;21,"55154935105 ")
 ;;281
 ;;21,"55154935305 ")
 ;;31
 ;;21,"55154935405 ")
 ;;366
 ;;21,"55154935505 ")
 ;;32
 ;;21,"55154935905 ")
 ;;216
 ;;21,"55154936005 ")
 ;;123
 ;;21,"55154937305 ")
 ;;124
 ;;21,"55154937705 ")
 ;;125
 ;;21,"62338313701 ")
 ;;33
 ;;21,"62338332701 ")
 ;;34
 ;;21,"62338352701 ")
 ;;35
 ;;21,"62338510503 ")
 ;;126
 ;;21,"62338521303 ")
 ;;127
 ;;21,"62584038342 ")
 ;;217
 ;;21,"62584038845 ")
 ;;367
 ;;21,"63323003810 ")
 ;;128
 ;;21,"63323003830 ")
 ;;129
 ;;21,"63323004710 ")
 ;;368
 ;;21,"63323026201 ")
 ;;369
 ;;21,"63323026255 ")
 ;;370
 ;;21,"63323027602 ")
 ;;130
 ;;21,"63323054001 ")
 ;;131
 ;;21,"63323054011 ")
 ;;132
 ;;21,"63323054031 ")
 ;;133
 ;;21,"63323054057 ")
 ;;134
 ;;21,"63323054201 ")
 ;;218
 ;;21,"63323054207 ")
 ;;219
 ;;21,"63323054501 ")
 ;;36
 ;;21,"63323054505 ")
 ;;37
 ;;21,"63323091501 ")
 ;;282
 ;;21,"63807060050 ")
 ;;38
 ;;21,"64054100302 ")
 ;;39
 ;;21,"64253033301 ")
 ;;40
 ;;21,"64253033352 ")
 ;;41
 ;;21,"64579004301 ")
 ;;371
 ;;21,"64579004325 ")
 ;;372
 ;;9002226,799,.01)
 ;;BGPMU VTE ANTICOAG NDCS
 ;;9002226,799,.02)
 ;;Drug Anticoag NDC codes
 ;;9002226,799,.04)
 ;;@
 ;;9002226,799,.06)
 ;;@
 ;;9002226,799,.08)
 ;;@
 ;;9002226,799,.09)
 ;;@
 ;;9002226,799,.11)
 ;;@
 ;;9002226,799,.12)
 ;;@
 ;;9002226,799,.13)
 ;;@
 ;;9002226,799,.14)
 ;;@
 ;;9002226,799,.15)
 ;;@
 ;;9002226,799,.16)
 ;;@
 ;;9002226,799,.17)
 ;;@
 ;;9002226,799,3101)
 ;;@
 ;;9002226.02101,"799,00002721601 ",.01)
 ;;00002721601
 ;;9002226.02101,"799,00002721601 ",.02)
 ;;00002721601
 ;;9002226.02101,"799,00002721701 ",.01)
 ;;00002721701
 ;;9002226.02101,"799,00002721701 ",.02)
 ;;00002721701
 ;;9002226.02101,"799,00003296320 ",.01)
 ;;00003296320
 ;;9002226.02101,"799,00003296320 ",.02)
 ;;00003296320
 ;;9002226.02101,"799,00007440701 ",.01)
 ;;00007440701
 ;;9002226.02101,"799,00007440701 ",.02)
 ;;00007440701
 ;;9002226.02101,"799,00007440754 ",.01)
 ;;00007440754
 ;;9002226.02101,"799,00007440754 ",.02)
 ;;00007440754
 ;;9002226.02101,"799,00008027501 ",.01)
 ;;00008027501
 ;;9002226.02101,"799,00008027501 ",.02)
 ;;00008027501
 ;;9002226.02101,"799,00008027502 ",.01)
 ;;00008027502
 ;;9002226.02101,"799,00008027502 ",.02)
 ;;00008027502
 ;;9002226.02101,"799,00008027550 ",.01)
 ;;00008027550
 ;;9002226.02101,"799,00008027550 ",.02)
 ;;00008027550
 ;;9002226.02101,"799,00008027601 ",.01)
 ;;00008027601
 ;;9002226.02101,"799,00008027601 ",.02)
 ;;00008027601
 ;;9002226.02101,"799,00008027701 ",.01)
 ;;00008027701
 ;;9002226.02101,"799,00008027701 ",.02)
 ;;00008027701
 ;;9002226.02101,"799,00008027702 ",.01)
 ;;00008027702
 ;;9002226.02101,"799,00008027702 ",.02)
 ;;00008027702
 ;;9002226.02101,"799,00008027703 ",.01)
 ;;00008027703
 ;;9002226.02101,"799,00008027703 ",.02)
 ;;00008027703
 ;;9002226.02101,"799,00008027801 ",.01)
 ;;00008027801
 ;;9002226.02101,"799,00008027801 ",.02)
 ;;00008027801
 ;;9002226.02101,"799,00008027802 ",.01)
 ;;00008027802
 ;;9002226.02101,"799,00008027802 ",.02)
 ;;00008027802
 ;;9002226.02101,"799,00008029301 ",.01)
 ;;00008029301
 ;;9002226.02101,"799,00008029301 ",.02)
 ;;00008029301
 ;;9002226.02101,"799,00008048201 ",.01)
 ;;00008048201
 ;;9002226.02101,"799,00008048201 ",.02)
 ;;00008048201
 ;;9002226.02101,"799,00008048701 ",.01)
 ;;00008048701
 ;;9002226.02101,"799,00008048701 ",.02)
 ;;00008048701
 ;;9002226.02101,"799,00008048703 ",.01)
 ;;00008048703
 ;;9002226.02101,"799,00008048703 ",.02)
 ;;00008048703
 ;;9002226.02101,"799,00008252901 ",.01)
 ;;00008252901
 ;;9002226.02101,"799,00008252901 ",.02)
 ;;00008252901
 ;;9002226.02101,"799,00008252902 ",.01)
 ;;00008252902
 ;;9002226.02101,"799,00008252902 ",.02)
 ;;00008252902
 ;;9002226.02101,"799,00008252903 ",.01)
 ;;00008252903
 ;;9002226.02101,"799,00008252903 ",.02)
 ;;00008252903
 ;;9002226.02101,"799,00008252950 ",.01)
 ;;00008252950
 ;;9002226.02101,"799,00008252950 ",.02)
 ;;00008252950
 ;;9002226.02101,"799,00008252951 ",.01)
 ;;00008252951
 ;;9002226.02101,"799,00008252951 ",.02)
 ;;00008252951
 ;;9002226.02101,"799,00008252952 ",.01)
 ;;00008252952
 ;;9002226.02101,"799,00008252952 ",.02)
 ;;00008252952
 ;;9002226.02101,"799,00009026801 ",.01)
 ;;00009026801
 ;;9002226.02101,"799,00009026801 ",.02)
 ;;00009026801
 ;;9002226.02101,"799,00009026802 ",.01)
 ;;00009026802
 ;;9002226.02101,"799,00009026802 ",.02)
 ;;00009026802
 ;;9002226.02101,"799,00009026807 ",.01)
 ;;00009026807
 ;;9002226.02101,"799,00009026807 ",.02)
 ;;00009026807
 ;;9002226.02101,"799,00009026812 ",.01)
 ;;00009026812
 ;;9002226.02101,"799,00009026812 ",.02)
 ;;00009026812
 ;;9002226.02101,"799,00009029101 ",.01)
 ;;00009029101
 ;;9002226.02101,"799,00009029101 ",.02)
 ;;00009029101
 ;;9002226.02101,"799,00009029102 ",.01)
 ;;00009029102
 ;;9002226.02101,"799,00009029102 ",.02)
 ;;00009029102
 ;;9002226.02101,"799,00009031701 ",.01)
 ;;00009031701
 ;;9002226.02101,"799,00009031701 ",.02)
 ;;00009031701
 ;;9002226.02101,"799,00009031702 ",.01)
 ;;00009031702
 ;;9002226.02101,"799,00009031702 ",.02)
 ;;00009031702
 ;;9002226.02101,"799,00009031708 ",.01)
 ;;00009031708
 ;;9002226.02101,"799,00009031708 ",.02)
 ;;00009031708
 ;;9002226.02101,"799,00009031709 ",.01)
 ;;00009031709
 ;;9002226.02101,"799,00009031709 ",.02)
 ;;00009031709
 ;;9002226.02101,"799,00009031710 ",.01)
 ;;00009031710
 ;;9002226.02101,"799,00009031710 ",.02)
 ;;00009031710
 ;;9002226.02101,"799,00009031711 ",.01)
 ;;00009031711
 ;;9002226.02101,"799,00009031711 ",.02)
 ;;00009031711
 ;;9002226.02101,"799,00024072212 ",.01)
 ;;00024072212
 ;;9002226.02101,"799,00024072212 ",.02)
 ;;00024072212
 ;;9002226.02101,"799,00024072213 ",.01)
 ;;00024072213
 ;;9002226.02101,"799,00024072213 ",.02)
 ;;00024072213
 ;;9002226.02101,"799,00024072216 ",.01)
 ;;00024072216
 ;;9002226.02101,"799,00024072216 ",.02)
 ;;00024072216
 ;;9002226.02101,"799,00024072217 ",.01)
 ;;00024072217
 ;;9002226.02101,"799,00024072217 ",.02)
 ;;00024072217
 ;;9002226.02101,"799,00024072233 ",.01)
 ;;00024072233
 ;;9002226.02101,"799,00024072233 ",.02)
 ;;00024072233
 ;;9002226.02101,"799,00024073302 ",.01)
 ;;00024073302
 ;;9002226.02101,"799,00024073302 ",.02)
 ;;00024073302
 ;;9002226.02101,"799,00024073303 ",.01)
 ;;00024073303
 ;;9002226.02101,"799,00024073303 ",.02)
 ;;00024073303
 ;;9002226.02101,"799,00024073304 ",.01)
 ;;00024073304
 ;;9002226.02101,"799,00024073304 ",.02)
 ;;00024073304
 ;;9002226.02101,"799,00024073305 ",.01)
 ;;00024073305
 ;;9002226.02101,"799,00024073305 ",.02)
 ;;00024073305
 ;;9002226.02101,"799,00024073312 ",.01)
 ;;00024073312
 ;;9002226.02101,"799,00024073312 ",.02)
 ;;00024073312
 ;;9002226.02101,"799,00024073357 ",.01)
 ;;00024073357
 ;;9002226.02101,"799,00024073357 ",.02)
 ;;00024073357
 ;;9002226.02101,"799,00024074212 ",.01)
 ;;00024074212
 ;;9002226.02101,"799,00024074212 ",.02)
 ;;00024074212
 ;;9002226.02101,"799,00052081110 ",.01)
 ;;00052081110
 ;;9002226.02101,"799,00052081110 ",.02)
 ;;00052081110
 ;;9002226.02101,"799,00052081175 ",.01)
 ;;00052081175
 ;;9002226.02101,"799,00052081175 ",.02)
 ;;00052081175
 ;;9002226.02101,"799,00052081210 ",.01)
 ;;00052081210
 ;;9002226.02101,"799,00052081210 ",.02)
 ;;00052081210
 ;;9002226.02101,"799,00052081225 ",.01)
 ;;00052081225
 ;;9002226.02101,"799,00052081225 ",.02)
 ;;00052081225
 ;;9002226.02101,"799,00052081250 ",.01)
 ;;00052081250
 ;;9002226.02101,"799,00052081250 ",.02)
 ;;00052081250
 ;;9002226.02101,"799,00052081302 ",.01)
 ;;00052081302
 ;;9002226.02101,"799,00052081302 ",.02)
 ;;00052081302
 ;;9002226.02101,"799,00052081305 ",.01)
 ;;00052081305
 ;;9002226.02101,"799,00052081305 ",.02)
 ;;00052081305
 ;;9002226.02101,"799,00052081325 ",.01)
 ;;00052081325
 ;;9002226.02101,"799,00052081325 ",.02)
 ;;00052081325
 ;;9002226.02101,"799,00052081504 ",.01)
 ;;00052081504
 ;;9002226.02101,"799,00052081504 ",.02)
 ;;00052081504
 ;;9002226.02101,"799,00052081525 ",.01)
 ;;00052081525
 ;;9002226.02101,"799,00052081525 ",.02)
 ;;00052081525
 ;;9002226.02101,"799,00052081550 ",.01)
 ;;00052081550
 ;;9002226.02101,"799,00052081550 ",.02)
 ;;00052081550
 ;;9002226.02101,"799,00052081625 ",.01)
 ;;00052081625
 ;;9002226.02101,"799,00052081625 ",.02)
 ;;00052081625
 ;;9002226.02101,"799,00056003002 ",.01)
 ;;00056003002
 ;;9002226.02101,"799,00056003002 ",.02)
 ;;00056003002
 ;;9002226.02101,"799,00074115212 ",.01)
 ;;00074115212
 ;;9002226.02101,"799,00074115212 ",.02)
 ;;00074115212
 ;;9002226.02101,"799,00074115214 ",.01)
 ;;00074115214
 ;;9002226.02101,"799,00074115214 ",.02)
 ;;00074115214
 ;;9002226.02101,"799,00074115270 ",.01)
 ;;00074115270
 ;;9002226.02101,"799,00074115270 ",.02)
 ;;00074115270
 ;;9002226.02101,"799,00074115271 ",.01)
 ;;00074115271
 ;;9002226.02101,"799,00074115271 ",.02)
 ;;00074115271
 ;;9002226.02101,"799,00074115273 ",.01)
 ;;00074115273
 ;;9002226.02101,"799,00074115273 ",.02)
 ;;00074115273
 ;;9002226.02101,"799,00074115278 ",.01)
 ;;00074115278
 ;;9002226.02101,"799,00074115278 ",.02)
 ;;00074115278
 ;;9002226.02101,"799,00074128125 ",.01)
 ;;00074128125
 ;;9002226.02101,"799,00074128125 ",.02)
 ;;00074128125
 ;;9002226.02101,"799,00074131602 ",.01)
 ;;00074131602
 ;;9002226.02101,"799,00074131602 ",.02)
 ;;00074131602
 ;;9002226.02101,"799,00074131613 ",.01)
 ;;00074131613
 ;;9002226.02101,"799,00074131613 ",.02)
 ;;00074131613
 ;;9002226.02101,"799,00074131614 ",.01)
 ;;00074131614
 ;;9002226.02101,"799,00074131614 ",.02)
 ;;00074131614
 ;;9002226.02101,"799,00074131632 ",.01)
 ;;00074131632
 ;;9002226.02101,"799,00074131632 ",.02)
 ;;00074131632
 ;;9002226.02101,"799,00074131666 ",.01)
 ;;00074131666
 ;;9002226.02101,"799,00074131666 ",.02)
 ;;00074131666
 ;;9002226.02101,"799,00074140201 ",.01)
 ;;00074140201
 ;;9002226.02101,"799,00074140201 ",.02)
 ;;00074140201
 ;;9002226.02101,"799,00074140211 ",.01)
 ;;00074140211
 ;;9002226.02101,"799,00074140211 ",.02)
 ;;00074140211
 ;;9002226.02101,"799,00074140231 ",.01)
 ;;00074140231
 ;;9002226.02101,"799,00074140231 ",.02)
 ;;00074140231
 ;;9002226.02101,"799,00074258202 ",.01)
 ;;00074258202
 ;;9002226.02101,"799,00074258202 ",.02)
 ;;00074258202
 ;;9002226.02101,"799,00074258302 ",.01)
 ;;00074258302
 ;;9002226.02101,"799,00074258302 ",.02)
 ;;00074258302
 ;;9002226.02101,"799,00074258402 ",.01)
 ;;00074258402
 ;;9002226.02101,"799,00074258402 ",.02)
 ;;00074258402
 ;;9002226.02101,"799,00074628602 ",.01)
 ;;00074628602
 ;;9002226.02101,"799,00074628602 ",.02)
 ;;00074628602
 ;;9002226.02101,"799,00074628611 ",.01)
 ;;00074628611
 ;;9002226.02101,"799,00074628611 ",.02)
 ;;00074628611
 ;;9002226.02101,"799,00074628702 ",.01)
 ;;00074628702
 ;;9002226.02101,"799,00074628702 ",.02)
 ;;00074628702
 ;;9002226.02101,"799,00074628703 ",.01)
 ;;00074628703