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

BGPM5BBH.m

Go to the documentation of this file.
BGPM5BBH ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 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)
 ;;21,"68533053450 ")
 ;;6523
 ;;21,"68533053490 ")
 ;;6524
 ;;21,"68533053550 ")
 ;;6525
 ;;21,"68533053590 ")
 ;;6526
 ;;21,"68645013054 ")
 ;;6527
 ;;21,"68645013154 ")
 ;;6528
 ;;21,"68645018054 ")
 ;;6529
 ;;21,"68645025254 ")
 ;;6530
 ;;21,"68645028254 ")
 ;;6531
 ;;21,"68788000501 ")
 ;;6532
 ;;21,"68788000503 ")
 ;;6533
 ;;21,"68788000506 ")
 ;;6534
 ;;21,"68788000509 ")
 ;;6535
 ;;21,"68788000703 ")
 ;;6536
 ;;21,"68788000706 ")
 ;;6537
 ;;21,"68788033002 ")
 ;;6538
 ;;21,"68788033003 ")
 ;;6539
 ;;21,"68788033006 ")
 ;;6540
 ;;21,"68788033009 ")
 ;;6541
 ;;21,"68788054900 ")
 ;;6542
 ;;21,"68788054903 ")
 ;;6543
 ;;21,"68788054906 ")
 ;;6544
 ;;21,"68788054909 ")
 ;;6545
 ;;21,"68788060203 ")
 ;;6546
 ;;21,"68788060603 ")
 ;;6547
 ;;21,"68788060606 ")
 ;;6548
 ;;21,"68788060609 ")
 ;;6549
 ;;21,"68788064702 ")
 ;;6550
 ;;21,"68788064703 ")
 ;;6551
 ;;21,"68788064704 ")
 ;;6552
 ;;21,"68788064706 ")
 ;;6553
 ;;21,"68788064709 ")
 ;;6554
 ;;21,"68788064802 ")
 ;;6555
 ;;21,"68788064803 ")
 ;;6556
 ;;21,"68788064806 ")
 ;;6557
 ;;21,"68788064809 ")
 ;;6558
 ;;21,"68788070503 ")
 ;;6559
 ;;21,"68788070506 ")
 ;;6560
 ;;21,"68788070509 ")
 ;;6561
 ;;21,"68788073500 ")
 ;;6562
 ;;21,"68788073503 ")
 ;;6563
 ;;21,"68788073506 ")
 ;;6564
 ;;21,"68788073509 ")
 ;;6565
 ;;21,"68788074603 ")
 ;;6566
 ;;21,"68788074606 ")
 ;;6567
 ;;21,"68788074609 ")
 ;;6568
 ;;21,"68788074803 ")
 ;;6569
 ;;21,"68788074806 ")
 ;;6570
 ;;21,"68788074809 ")
 ;;6571
 ;;21,"68788095603 ")
 ;;6572
 ;;21,"68788175900 ")
 ;;6573
 ;;21,"68788175903 ")
 ;;6574
 ;;21,"68788175906 ")
 ;;6575
 ;;21,"68788175909 ")
 ;;6576
 ;;21,"68788221202 ")
 ;;6577
 ;;21,"68788221203 ")
 ;;6578
 ;;21,"68788221206 ")
 ;;6579
 ;;21,"68788221209 ")
 ;;6580
 ;;21,"68788221303 ")
 ;;6581
 ;;21,"68788221306 ")
 ;;6582
 ;;21,"68788221309 ")
 ;;6583
 ;;21,"68788435603 ")
 ;;6584
 ;;21,"68788435606 ")
 ;;6585
 ;;21,"68788578601 ")
 ;;6586
 ;;21,"68788578603 ")
 ;;6587
 ;;21,"68788578606 ")
 ;;6588
 ;;21,"68788578701 ")
 ;;6589
 ;;21,"68788578703 ")
 ;;6590
 ;;21,"68788578706 ")
 ;;6591
 ;;21,"68788900903 ")
 ;;6592
 ;;21,"68788900906 ")
 ;;6593
 ;;21,"68788900909 ")
 ;;6594
 ;;21,"68788901303 ")
 ;;6595
 ;;21,"68788901306 ")
 ;;6596
 ;;21,"68788901309 ")
 ;;6597
 ;;21,"68788901403 ")
 ;;6598
 ;;21,"68788901406 ")
 ;;6599
 ;;21,"68788901409 ")
 ;;6600
 ;;21,"68788901503 ")
 ;;6601
 ;;21,"68788901506 ")
 ;;6602
 ;;21,"68788901509 ")
 ;;6603
 ;;21,"68788901603 ")
 ;;6604
 ;;21,"68788901606 ")
 ;;6605
 ;;21,"68788901609 ")
 ;;6606
 ;;21,"68788907401 ")
 ;;6607
 ;;21,"68788907403 ")
 ;;6608
 ;;21,"68788907406 ")
 ;;6609
 ;;21,"68788907408 ")
 ;;6610
 ;;21,"68788907409 ")
 ;;6611
 ;;21,"68788911803 ")
 ;;6612
 ;;21,"68788911806 ")
 ;;6613
 ;;21,"68788911809 ")
 ;;6614
 ;;21,"68884064797 ")
 ;;6615
 ;;21,"68884064897 ")
 ;;6616
 ;;21,"68966560001 ")
 ;;6617
 ;;9002226,1044,.01)
 ;;BGPMU ANTIDEPRESSANT MEDS NDCS
 ;;9002226,1044,.02)
 ;;NDCS FOR ANTIDEPRESSANT MEDS
 ;;9002226,1044,.04)
 ;;@
 ;;9002226,1044,.06)
 ;;@
 ;;9002226,1044,.08)
 ;;@
 ;;9002226,1044,.09)
 ;;@
 ;;9002226,1044,.11)
 ;;@
 ;;9002226,1044,.12)
 ;;@
 ;;9002226,1044,.13)
 ;;@
 ;;9002226,1044,.14)
 ;;@
 ;;9002226,1044,.15)
 ;;50.67
 ;;9002226,1044,.16)
 ;;1
 ;;9002226,1044,.17)
 ;;@
 ;;9002226,1044,3101)
 ;;@
 ;;9002226.02101,"1044,00054002213 ",.01)
 ;;00054002213
 ;;9002226.02101,"1044,00054002213 ",.02)
 ;;00054002213
 ;;9002226.02101,"1044,00054002222 ",.01)
 ;;00054002222
 ;;9002226.02101,"1044,00054002222 ",.02)
 ;;00054002222
 ;;9002226.02101,"1044,00054002313 ",.01)
 ;;00054002313
 ;;9002226.02101,"1044,00054002313 ",.02)
 ;;00054002313
 ;;9002226.02101,"1044,00054002322 ",.01)
 ;;00054002322
 ;;9002226.02101,"1044,00054002322 ",.02)
 ;;00054002322
 ;;9002226.02101,"1044,00054002328 ",.01)
 ;;00054002328
 ;;9002226.02101,"1044,00054002328 ",.02)
 ;;00054002328
 ;;9002226.02101,"1044,00054002413 ",.01)
 ;;00054002413
 ;;9002226.02101,"1044,00054002413 ",.02)
 ;;00054002413
 ;;9002226.02101,"1044,00054002422 ",.01)
 ;;00054002422
 ;;9002226.02101,"1044,00054002422 ",.02)
 ;;00054002422
 ;;9002226.02101,"1044,00054002428 ",.01)
 ;;00054002428
 ;;9002226.02101,"1044,00054002428 ",.02)
 ;;00054002428
 ;;9002226.02101,"1044,00054006258 ",.01)
 ;;00054006258
 ;;9002226.02101,"1044,00054006258 ",.02)
 ;;00054006258
 ;;9002226.02101,"1044,00054008246 ",.01)
 ;;00054008246
 ;;9002226.02101,"1044,00054008246 ",.02)
 ;;00054008246
 ;;9002226.02101,"1044,00054021025 ",.01)
 ;;00054021025
 ;;9002226.02101,"1044,00054021025 ",.02)
 ;;00054021025
 ;;9002226.02101,"1044,00054021125 ",.01)
 ;;00054021125
 ;;9002226.02101,"1044,00054021125 ",.02)
 ;;00054021125
 ;;9002226.02101,"1044,00054027313 ",.01)
 ;;00054027313
 ;;9002226.02101,"1044,00054027313 ",.02)
 ;;00054027313
 ;;9002226.02101,"1044,00054027413 ",.01)
 ;;00054027413
 ;;9002226.02101,"1044,00054027413 ",.02)
 ;;00054027413
 ;;9002226.02101,"1044,00054027513 ",.01)
 ;;00054027513
 ;;9002226.02101,"1044,00054027513 ",.02)
 ;;00054027513
 ;;9002226.02101,"1044,00054027613 ",.01)
 ;;00054027613
 ;;9002226.02101,"1044,00054027613 ",.02)
 ;;00054027613
 ;;9002226.02101,"1044,00054467625 ",.01)
 ;;00054467625
 ;;9002226.02101,"1044,00054467625 ",.02)
 ;;00054467625
 ;;9002226.02101,"1044,00054467725 ",.01)
 ;;00054467725
 ;;9002226.02101,"1044,00054467725 ",.02)
 ;;00054467725
 ;;9002226.02101,"1044,00056062085 ",.01)
 ;;00056062085
 ;;9002226.02101,"1044,00056062085 ",.02)
 ;;00056062085
 ;;9002226.02101,"1044,00069492001 ",.01)
 ;;00069492001
 ;;9002226.02101,"1044,00069492001 ",.02)
 ;;00069492001
 ;;9002226.02101,"1044,00069492002 ",.01)
 ;;00069492002
 ;;9002226.02101,"1044,00069492002 ",.02)
 ;;00069492002
 ;;9002226.02101,"1044,00069492003 ",.01)
 ;;00069492003
 ;;9002226.02101,"1044,00069492003 ",.02)
 ;;00069492003
 ;;9002226.02101,"1044,00069492004 ",.01)
 ;;00069492004
 ;;9002226.02101,"1044,00069492004 ",.02)
 ;;00069492004
 ;;9002226.02101,"1044,00069492005 ",.01)
 ;;00069492005
 ;;9002226.02101,"1044,00069492005 ",.02)
 ;;00069492005
 ;;9002226.02101,"1044,00069493001 ",.01)
 ;;00069493001
 ;;9002226.02101,"1044,00069493001 ",.02)
 ;;00069493001
 ;;9002226.02101,"1044,00069493002 ",.01)
 ;;00069493002
 ;;9002226.02101,"1044,00069493002 ",.02)
 ;;00069493002
 ;;9002226.02101,"1044,00069493003 ",.01)
 ;;00069493003
 ;;9002226.02101,"1044,00069493003 ",.02)
 ;;00069493003
 ;;9002226.02101,"1044,00069493004 ",.01)
 ;;00069493004
 ;;9002226.02101,"1044,00069493004 ",.02)
 ;;00069493004
 ;;9002226.02101,"1044,00069493005 ",.01)
 ;;00069493005
 ;;9002226.02101,"1044,00069493005 ",.02)
 ;;00069493005
 ;;9002226.02101,"1044,00069497001 ",.01)
 ;;00069497001
 ;;9002226.02101,"1044,00069497001 ",.02)
 ;;00069497001
 ;;9002226.02101,"1044,00093005601 ",.01)
 ;;00093005601
 ;;9002226.02101,"1044,00093005601 ",.02)
 ;;00093005601
 ;;9002226.02101,"1044,00093005701 ",.01)
 ;;00093005701
 ;;9002226.02101,"1044,00093005701 ",.02)
 ;;00093005701
 ;;9002226.02101,"1044,00093007201 ",.01)
 ;;00093007201
 ;;9002226.02101,"1044,00093007201 ",.02)
 ;;00093007201
 ;;9002226.02101,"1044,00093019901 ",.01)
 ;;00093019901
 ;;9002226.02101,"1044,00093019901 ",.02)
 ;;00093019901
 ;;9002226.02101,"1044,00093019913 ",.01)
 ;;00093019913
 ;;9002226.02101,"1044,00093019913 ",.02)
 ;;00093019913
 ;;9002226.02101,"1044,00093063801 ",.01)
 ;;00093063801
 ;;9002226.02101,"1044,00093063801 ",.02)
 ;;00093063801
 ;;9002226.02101,"1044,00093063810 ",.01)
 ;;00093063810
 ;;9002226.02101,"1044,00093063810 ",.02)
 ;;00093063810
 ;;9002226.02101,"1044,00093069501 ",.01)
 ;;00093069501
 ;;9002226.02101,"1044,00093069501 ",.02)
 ;;00093069501
 ;;9002226.02101,"1044,00093069505 ",.01)
 ;;00093069505
 ;;9002226.02101,"1044,00093069505 ",.02)
 ;;00093069505
 ;;9002226.02101,"1044,00093069510 ",.01)
 ;;00093069510
 ;;9002226.02101,"1044,00093069510 ",.02)
 ;;00093069510
 ;;9002226.02101,"1044,00093081001 ",.01)
 ;;00093081001
 ;;9002226.02101,"1044,00093081001 ",.02)
 ;;00093081001
 ;;9002226.02101,"1044,00093081005 ",.01)
 ;;00093081005
 ;;9002226.02101,"1044,00093081005 ",.02)
 ;;00093081005
 ;;9002226.02101,"1044,00093081010 ",.01)
 ;;00093081010
 ;;9002226.02101,"1044,00093081010 ",.02)
 ;;00093081010
 ;;9002226.02101,"1044,00093081101 ",.01)
 ;;00093081101
 ;;9002226.02101,"1044,00093081101 ",.02)
 ;;00093081101
 ;;9002226.02101,"1044,00093081105 ",.01)
 ;;00093081105
 ;;9002226.02101,"1044,00093081105 ",.02)
 ;;00093081105
 ;;9002226.02101,"1044,00093081110 ",.01)
 ;;00093081110
 ;;9002226.02101,"1044,00093081110 ",.02)
 ;;00093081110
 ;;9002226.02101,"1044,00093081201 ",.01)
 ;;00093081201
 ;;9002226.02101,"1044,00093081201 ",.02)
 ;;00093081201
 ;;9002226.02101,"1044,00093081205 ",.01)
 ;;00093081205
 ;;9002226.02101,"1044,00093081205 ",.02)
 ;;00093081205
 ;;9002226.02101,"1044,00093081210 ",.01)
 ;;00093081210
 ;;9002226.02101,"1044,00093081210 ",.02)
 ;;00093081210
 ;;9002226.02101,"1044,00093081301 ",.01)
 ;;00093081301
 ;;9002226.02101,"1044,00093081301 ",.02)
 ;;00093081301
 ;;9002226.02101,"1044,00093081305 ",.01)
 ;;00093081305
 ;;9002226.02101,"1044,00093081305 ",.02)
 ;;00093081305
 ;;9002226.02101,"1044,00093081310 ",.01)
 ;;00093081310
 ;;9002226.02101,"1044,00093081310 ",.02)
 ;;00093081310
 ;;9002226.02101,"1044,00093095601 ",.01)
 ;;00093095601
 ;;9002226.02101,"1044,00093095601 ",.02)
 ;;00093095601
 ;;9002226.02101,"1044,00093095610 ",.01)
 ;;00093095610
 ;;9002226.02101,"1044,00093095610 ",.02)
 ;;00093095610
 ;;9002226.02101,"1044,00093095801 ",.01)
 ;;00093095801
 ;;9002226.02101,"1044,00093095801 ",.02)
 ;;00093095801
 ;;9002226.02101,"1044,00093095810 ",.01)
 ;;00093095810
 ;;9002226.02101,"1044,00093095810 ",.02)
 ;;00093095810
 ;;9002226.02101,"1044,00093096001 ",.01)
 ;;00093096001
 ;;9002226.02101,"1044,00093096001 ",.02)
 ;;00093096001
 ;;9002226.02101,"1044,00093096010 ",.01)
 ;;00093096010
 ;;9002226.02101,"1044,00093096010 ",.02)
 ;;00093096010
 ;;9002226.02101,"1044,00093104201 ",.01)
 ;;00093104201
 ;;9002226.02101,"1044,00093104201 ",.02)
 ;;00093104201
 ;;9002226.02101,"1044,00093104210 ",.01)
 ;;00093104210
 ;;9002226.02101,"1044,00093104210 ",.02)
 ;;00093104210
 ;;9002226.02101,"1044,00093104219 ",.01)
 ;;00093104219
 ;;9002226.02101,"1044,00093104219 ",.02)
 ;;00093104219
 ;;9002226.02101,"1044,00093104293 ",.01)
 ;;00093104293
 ;;9002226.02101,"1044,00093104293 ",.02)
 ;;00093104293
 ;;9002226.02101,"1044,00093435601 ",.01)
 ;;00093435601
 ;;9002226.02101,"1044,00093435601 ",.02)
 ;;00093435601
 ;;9002226.02101,"1044,00093435605 ",.01)
 ;;00093435605
 ;;9002226.02101,"1044,00093435605 ",.02)
 ;;00093435605
 ;;9002226.02101,"1044,00093435610 ",.01)
 ;;00093435610
 ;;9002226.02101,"1044,00093435610 ",.02)
 ;;00093435610
 ;;9002226.02101,"1044,00093435619 ",.01)
 ;;00093435619
 ;;9002226.02101,"1044,00093435619 ",.02)
 ;;00093435619
 ;;9002226.02101,"1044,00093435693 ",.01)
 ;;00093435693
 ;;9002226.02101,"1044,00093435693 ",.02)
 ;;00093435693
 ;;9002226.02101,"1044,00093452101 ",.01)
 ;;00093452101
 ;;9002226.02101,"1044,00093452101 ",.02)
 ;;00093452101
 ;;9002226.02101,"1044,00093452110 ",.01)
 ;;00093452110
 ;;9002226.02101,"1044,00093452110 ",.02)
 ;;00093452110
 ;;9002226.02101,"1044,00093452201 ",.01)
 ;;00093452201