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

BGPM5AUF.m

Go to the documentation of this file.
BGPM5AUF ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"68950000602 ")
 ;;6437
 ;;9002226,1033,.01)
 ;;BGPMU PHARYNGITIS MEDS NDCS
 ;;9002226,1033,.02)
 ;;NDCs for strep antibiotics
 ;;9002226,1033,.04)
 ;;n
 ;;9002226,1033,.06)
 ;;@
 ;;9002226,1033,.08)
 ;;@
 ;;9002226,1033,.09)
 ;;3110829
 ;;9002226,1033,.11)
 ;;@
 ;;9002226,1033,.12)
 ;;@
 ;;9002226,1033,.13)
 ;;@
 ;;9002226,1033,.14)
 ;;@
 ;;9002226,1033,.15)
 ;;@
 ;;9002226,1033,.16)
 ;;@
 ;;9002226,1033,.17)
 ;;@
 ;;9002226,1033,3101)
 ;;@
 ;;9002226.02101,"1033,00003066805 ",.01)
 ;;00003066805
 ;;9002226.02101,"1033,00003066805 ",.02)
 ;;00003066805
 ;;9002226.02101,"1033,00009374301 ",.01)
 ;;00009374301
 ;;9002226.02101,"1033,00009374301 ",.02)
 ;;00009374301
 ;;9002226.02101,"1033,00009374302 ",.01)
 ;;00009374302
 ;;9002226.02101,"1033,00009374302 ",.02)
 ;;00009374302
 ;;9002226.02101,"1033,00009500901 ",.01)
 ;;00009500901
 ;;9002226.02101,"1033,00009500901 ",.02)
 ;;00009500901
 ;;9002226.02101,"1033,00015340095 ",.01)
 ;;00015340095
 ;;9002226.02101,"1033,00015340095 ",.02)
 ;;00015340095
 ;;9002226.02101,"1033,00015370995 ",.01)
 ;;00015370995
 ;;9002226.02101,"1033,00015370995 ",.02)
 ;;00015370995
 ;;9002226.02101,"1033,00015710028 ",.01)
 ;;00015710028
 ;;9002226.02101,"1033,00015710028 ",.02)
 ;;00015710028
 ;;9002226.02101,"1033,00015710098 ",.01)
 ;;00015710098
 ;;9002226.02101,"1033,00015710098 ",.02)
 ;;00015710098
 ;;9002226.02101,"1033,00015727675 ",.01)
 ;;00015727675
 ;;9002226.02101,"1033,00015727675 ",.02)
 ;;00015727675
 ;;9002226.02101,"1033,00015727760 ",.01)
 ;;00015727760
 ;;9002226.02101,"1033,00015727760 ",.02)
 ;;00015727760
 ;;9002226.02101,"1033,00015727775 ",.01)
 ;;00015727775
 ;;9002226.02101,"1033,00015727775 ",.02)
 ;;00015727775
 ;;9002226.02101,"1033,00015727862 ",.01)
 ;;00015727862
 ;;9002226.02101,"1033,00015727862 ",.02)
 ;;00015727862
 ;;9002226.02101,"1033,00015727873 ",.01)
 ;;00015727873
 ;;9002226.02101,"1033,00015727873 ",.02)
 ;;00015727873
 ;;9002226.02101,"1033,00015733812 ",.01)
 ;;00015733812
 ;;9002226.02101,"1033,00015733812 ",.02)
 ;;00015733812
 ;;9002226.02101,"1033,00015733833 ",.01)
 ;;00015733833
 ;;9002226.02101,"1033,00015733833 ",.02)
 ;;00015733833
 ;;9002226.02101,"1033,00015740120 ",.01)
 ;;00015740120
 ;;9002226.02101,"1033,00015740120 ",.02)
 ;;00015740120
 ;;9002226.02101,"1033,00015740199 ",.01)
 ;;00015740199
 ;;9002226.02101,"1033,00015740199 ",.02)
 ;;00015740199
 ;;9002226.02101,"1033,00015740220 ",.01)
 ;;00015740220
 ;;9002226.02101,"1033,00015740220 ",.02)
 ;;00015740220
 ;;9002226.02101,"1033,00015740299 ",.01)
 ;;00015740299
 ;;9002226.02101,"1033,00015740299 ",.02)
 ;;00015740299
 ;;9002226.02101,"1033,00015740320 ",.01)
 ;;00015740320
 ;;9002226.02101,"1033,00015740320 ",.02)
 ;;00015740320
 ;;9002226.02101,"1033,00015740399 ",.01)
 ;;00015740399
 ;;9002226.02101,"1033,00015740399 ",.02)
 ;;00015740399
 ;;9002226.02101,"1033,00015740418 ",.01)
 ;;00015740418
 ;;9002226.02101,"1033,00015740418 ",.02)
 ;;00015740418
 ;;9002226.02101,"1033,00015740420 ",.01)
 ;;00015740420
 ;;9002226.02101,"1033,00015740420 ",.02)
 ;;00015740420
 ;;9002226.02101,"1033,00015740436 ",.01)
 ;;00015740436
 ;;9002226.02101,"1033,00015740436 ",.02)
 ;;00015740436
 ;;9002226.02101,"1033,00015740489 ",.01)
 ;;00015740489
 ;;9002226.02101,"1033,00015740489 ",.02)
 ;;00015740489
 ;;9002226.02101,"1033,00015740494 ",.01)
 ;;00015740494
 ;;9002226.02101,"1033,00015740494 ",.02)
 ;;00015740494
 ;;9002226.02101,"1033,00015740499 ",.01)
 ;;00015740499
 ;;9002226.02101,"1033,00015740499 ",.02)
 ;;00015740499
 ;;9002226.02101,"1033,00015740518 ",.01)
 ;;00015740518
 ;;9002226.02101,"1033,00015740518 ",.02)
 ;;00015740518
 ;;9002226.02101,"1033,00015740520 ",.01)
 ;;00015740520
 ;;9002226.02101,"1033,00015740520 ",.02)
 ;;00015740520
 ;;9002226.02101,"1033,00015740528 ",.01)
 ;;00015740528
 ;;9002226.02101,"1033,00015740528 ",.02)
 ;;00015740528
 ;;9002226.02101,"1033,00015740589 ",.01)
 ;;00015740589
 ;;9002226.02101,"1033,00015740589 ",.02)
 ;;00015740589
 ;;9002226.02101,"1033,00015740595 ",.01)
 ;;00015740595
 ;;9002226.02101,"1033,00015740595 ",.02)
 ;;00015740595
 ;;9002226.02101,"1033,00015740599 ",.01)
 ;;00015740599
 ;;9002226.02101,"1033,00015740599 ",.02)
 ;;00015740599
 ;;9002226.02101,"1033,00015799368 ",.01)
 ;;00015799368
 ;;9002226.02101,"1033,00015799368 ",.02)
 ;;00015799368
 ;;9002226.02101,"1033,00051570801 ",.01)
 ;;00051570801
 ;;9002226.02101,"1033,00051570801 ",.02)
 ;;00051570801
 ;;9002226.02101,"1033,00054003621 ",.01)
 ;;00054003621
 ;;9002226.02101,"1033,00054003621 ",.02)
 ;;00054003621
 ;;9002226.02101,"1033,00054003721 ",.01)
 ;;00054003721
 ;;9002226.02101,"1033,00054003721 ",.02)
 ;;00054003721
 ;;9002226.02101,"1033,00069002601 ",.01)
 ;;00069002601
 ;;9002226.02101,"1033,00069002601 ",.02)
 ;;00069002601
 ;;9002226.02101,"1033,00069002605 ",.01)
 ;;00069002605
 ;;9002226.02101,"1033,00069002605 ",.02)
 ;;00069002605
 ;;9002226.02101,"1033,00069002710 ",.01)
 ;;00069002710
 ;;9002226.02101,"1033,00069002710 ",.02)
 ;;00069002710
 ;;9002226.02101,"1033,00069002712 ",.01)
 ;;00069002712
 ;;9002226.02101,"1033,00069002712 ",.02)
 ;;00069002712
 ;;9002226.02101,"1033,00069002918 ",.01)
 ;;00069002918
 ;;9002226.02101,"1033,00069002918 ",.02)
 ;;00069002918
 ;;9002226.02101,"1033,00069002920 ",.01)
 ;;00069002920
 ;;9002226.02101,"1033,00069002920 ",.02)
 ;;00069002920
 ;;9002226.02101,"1033,00069004631 ",.01)
 ;;00069004631
 ;;9002226.02101,"1033,00069004631 ",.02)
 ;;00069004631
 ;;9002226.02101,"1033,00069004637 ",.01)
 ;;00069004637
 ;;9002226.02101,"1033,00069004637 ",.02)
 ;;00069004637
 ;;9002226.02101,"1033,00069006525 ",.01)
 ;;00069006525
 ;;9002226.02101,"1033,00069006525 ",.02)
 ;;00069006525
 ;;9002226.02101,"1033,00069006530 ",.01)
 ;;00069006530
 ;;9002226.02101,"1033,00069006530 ",.02)
 ;;00069006530
 ;;9002226.02101,"1033,00069007128 ",.01)
 ;;00069007128
 ;;9002226.02101,"1033,00069007128 ",.02)
 ;;00069007128
 ;;9002226.02101,"1033,00069007135 ",.01)
 ;;00069007135
 ;;9002226.02101,"1033,00069007135 ",.02)
 ;;00069007135
 ;;9002226.02101,"1033,00069031003 ",.01)
 ;;00069031003
 ;;9002226.02101,"1033,00069031003 ",.02)
 ;;00069031003
 ;;9002226.02101,"1033,00069031020 ",.01)
 ;;00069031020
 ;;9002226.02101,"1033,00069031020 ",.02)
 ;;00069031020
 ;;9002226.02101,"1033,00069031203 ",.01)
 ;;00069031203
 ;;9002226.02101,"1033,00069031203 ",.02)
 ;;00069031203
 ;;9002226.02101,"1033,00069031220 ",.01)
 ;;00069031220
 ;;9002226.02101,"1033,00069031220 ",.02)
 ;;00069031220
 ;;9002226.02101,"1033,00069031503 ",.01)
 ;;00069031503
 ;;9002226.02101,"1033,00069031503 ",.02)
 ;;00069031503
 ;;9002226.02101,"1033,00069031520 ",.01)
 ;;00069031520
 ;;9002226.02101,"1033,00069031520 ",.02)
 ;;00069031520
 ;;9002226.02101,"1033,00069439519 ",.01)
 ;;00069439519
 ;;9002226.02101,"1033,00069439519 ",.02)
 ;;00069439519
 ;;9002226.02101,"1033,00069439627 ",.01)
 ;;00069439627
 ;;9002226.02101,"1033,00069439627 ",.02)
 ;;00069439627
 ;;9002226.02101,"1033,00069448003 ",.01)
 ;;00069448003
 ;;9002226.02101,"1033,00069448003 ",.02)
 ;;00069448003
 ;;9002226.02101,"1033,00069448010 ",.01)
 ;;00069448010
 ;;9002226.02101,"1033,00069448010 ",.02)
 ;;00069448010
 ;;9002226.02101,"1033,00069448103 ",.01)
 ;;00069448103
 ;;9002226.02101,"1033,00069448103 ",.02)
 ;;00069448103
 ;;9002226.02101,"1033,00069448110 ",.01)
 ;;00069448110
 ;;9002226.02101,"1033,00069448110 ",.02)
 ;;00069448110
 ;;9002226.02101,"1033,00069448203 ",.01)
 ;;00069448203
 ;;9002226.02101,"1033,00069448203 ",.02)
 ;;00069448203
 ;;9002226.02101,"1033,00069448210 ",.01)
 ;;00069448210
 ;;9002226.02101,"1033,00069448210 ",.02)
 ;;00069448210
 ;;9002226.02101,"1033,00069448303 ",.01)
 ;;00069448303
 ;;9002226.02101,"1033,00069448303 ",.02)
 ;;00069448303
 ;;9002226.02101,"1033,00069448310 ",.01)
 ;;00069448310
 ;;9002226.02101,"1033,00069448310 ",.02)
 ;;00069448310
 ;;9002226.02101,"1033,00069448401 ",.01)
 ;;00069448401
 ;;9002226.02101,"1033,00069448401 ",.02)
 ;;00069448401
 ;;9002226.02101,"1033,00074258913 ",.01)
 ;;00074258913
 ;;9002226.02101,"1033,00074258913 ",.02)
 ;;00074258913
 ;;9002226.02101,"1033,00074258953 ",.01)
 ;;00074258953
 ;;9002226.02101,"1033,00074258953 ",.02)
 ;;00074258953
 ;;9002226.02101,"1033,00074374716 ",.01)
 ;;00074374716
 ;;9002226.02101,"1033,00074374716 ",.02)
 ;;00074374716
 ;;9002226.02101,"1033,00074374816 ",.01)
 ;;00074374816
 ;;9002226.02101,"1033,00074374816 ",.02)
 ;;00074374816
 ;;9002226.02101,"1033,00074432560 ",.01)
 ;;00074432560
 ;;9002226.02101,"1033,00074432560 ",.02)
 ;;00074432560
 ;;9002226.02101,"1033,00074433860 ",.01)
 ;;00074433860
 ;;9002226.02101,"1033,00074433860 ",.02)
 ;;00074433860
 ;;9002226.02101,"1033,00074473203 ",.01)
 ;;00074473203
 ;;9002226.02101,"1033,00074473203 ",.02)
 ;;00074473203
 ;;9002226.02101,"1033,00074622713 ",.01)
 ;;00074622713
 ;;9002226.02101,"1033,00074622713 ",.02)
 ;;00074622713
 ;;9002226.02101,"1033,00074715613 ",.01)
 ;;00074715613
 ;;9002226.02101,"1033,00074715613 ",.02)
 ;;00074715613
 ;;9002226.02101,"1033,00074715643 ",.01)
 ;;00074715643
 ;;9002226.02101,"1033,00074715643 ",.02)
 ;;00074715643
 ;;9002226.02101,"1033,00074715653 ",.01)
 ;;00074715653
 ;;9002226.02101,"1033,00074715653 ",.02)
 ;;00074715653
 ;;9002226.02101,"1033,00078324009 ",.01)
 ;;00078324009
 ;;9002226.02101,"1033,00078324009 ",.02)
 ;;00078324009
 ;;9002226.02101,"1033,00078324048 ",.01)
 ;;00078324048
 ;;9002226.02101,"1033,00078324048 ",.02)
 ;;00078324048
 ;;9002226.02101,"1033,00093107573 ",.01)
 ;;00093107573
 ;;9002226.02101,"1033,00093107573 ",.02)
 ;;00093107573
 ;;9002226.02101,"1033,00093107576 ",.01)
 ;;00093107576
 ;;9002226.02101,"1033,00093107576 ",.02)
 ;;00093107576
 ;;9002226.02101,"1033,00093107578 ",.01)
 ;;00093107578
 ;;9002226.02101,"1033,00093107578 ",.02)
 ;;00093107578
 ;;9002226.02101,"1033,00093107673 ",.01)
 ;;00093107673
 ;;9002226.02101,"1033,00093107673 ",.02)
 ;;00093107673
 ;;9002226.02101,"1033,00093107676 ",.01)
 ;;00093107676
 ;;9002226.02101,"1033,00093107676 ",.02)
 ;;00093107676
 ;;9002226.02101,"1033,00093107678 ",.01)
 ;;00093107678
 ;;9002226.02101,"1033,00093107678 ",.02)
 ;;00093107678
 ;;9002226.02101,"1033,00093107701 ",.01)
 ;;00093107701
 ;;9002226.02101,"1033,00093107701 ",.02)
 ;;00093107701
 ;;9002226.02101,"1033,00093107801 ",.01)
 ;;00093107801
 ;;9002226.02101,"1033,00093107801 ",.02)
 ;;00093107801
 ;;9002226.02101,"1033,00093107853 ",.01)
 ;;00093107853
 ;;9002226.02101,"1033,00093107853 ",.02)
 ;;00093107853
 ;;9002226.02101,"1033,00093108701 ",.01)
 ;;00093108701
 ;;9002226.02101,"1033,00093108701 ",.02)
 ;;00093108701
 ;;9002226.02101,"1033,00093117201 ",.01)
 ;;00093117201
 ;;9002226.02101,"1033,00093117201 ",.02)
 ;;00093117201
 ;;9002226.02101,"1033,00093117210 ",.01)
 ;;00093117210
 ;;9002226.02101,"1033,00093117210 ",.02)
 ;;00093117210
 ;;9002226.02101,"1033,00093117401 ",.01)
 ;;00093117401
 ;;9002226.02101,"1033,00093117401 ",.02)
 ;;00093117401
 ;;9002226.02101,"1033,00093117410 ",.01)
 ;;00093117410
 ;;9002226.02101,"1033,00093117410 ",.02)
 ;;00093117410
 ;;9002226.02101,"1033,00093202623 ",.01)
 ;;00093202623
 ;;9002226.02101,"1033,00093202623 ",.02)
 ;;00093202623
 ;;9002226.02101,"1033,00093202631 ",.01)
 ;;00093202631
 ;;9002226.02101,"1033,00093202631 ",.02)
 ;;00093202631
 ;;9002226.02101,"1033,00093202694 ",.01)
 ;;00093202694
 ;;9002226.02101,"1033,00093202694 ",.02)
 ;;00093202694
 ;;9002226.02101,"1033,00093202723 ",.01)
 ;;00093202723