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

BGP9SXL.m

Go to the documentation of this file.
BGP9SXL ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON MAR 25, 2009 ;
 ;;9.0;IHS CLINICAL REPORTING;;JUL 1, 2009
 ;;BGP HEDIS CALCIUM CHANNEL NDC
 ;
 ; This routine loads Taxonomy BGP HEDIS CALCIUM CHANNEL NDC
 ;
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
 D OTHER
 I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2
 I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2
 D KILL^ATXSTX2
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;21,"00026-8821-18 ")
 ;;1
 ;;21,"00026-8821-48 ")
 ;;2
 ;;21,"00026-8821-51 ")
 ;;3
 ;;21,"00069-2600-66 ")
 ;;4
 ;;21,"00069-2600-72 ")
 ;;5
 ;;21,"00069-2610-66 ")
 ;;6
 ;;21,"00093-8171-01 ")
 ;;7
 ;;21,"00093-8171-55 ")
 ;;8
 ;;21,"00131-1166-05 ")
 ;;9
 ;;21,"00182-1547-01 ")
 ;;10
 ;;21,"00182-1547-89 ")
 ;;11
 ;;21,"00182-1547-96 ")
 ;;12
 ;;21,"00182-1548-01 ")
 ;;13
 ;;21,"00182-1548-89 ")
 ;;14
 ;;21,"00182-1548-96 ")
 ;;15
 ;;21,"00228-2497-10 ")
 ;;16
 ;;21,"00228-2497-30 ")
 ;;17
 ;;21,"00228-2530-10 ")
 ;;18
 ;;21,"00228-2530-30 ")
 ;;19
 ;;21,"00247-0206-00 ")
 ;;20
 ;;21,"00247-0206-01 ")
 ;;21
 ;;21,"00247-0206-02 ")
 ;;22
 ;;21,"00247-0206-03 ")
 ;;23
 ;;21,"00247-0206-05 ")
 ;;24
 ;;21,"00247-0206-09 ")
 ;;25
 ;;21,"00247-0206-10 ")
 ;;26
 ;;21,"00247-0206-12 ")
 ;;27
 ;;21,"00247-0206-14 ")
 ;;28
 ;;21,"00247-0206-15 ")
 ;;29
 ;;21,"00247-0206-20 ")
 ;;30
 ;;21,"00247-0206-30 ")
 ;;31
 ;;21,"00247-0206-40 ")
 ;;32
 ;;21,"00247-0206-60 ")
 ;;33
 ;;21,"00247-0206-90 ")
 ;;34
 ;;21,"00259-0321-30 ")
 ;;35
 ;;21,"00298-6478-63 ")
 ;;36
 ;;21,"00298-6809-61 ")
 ;;37
 ;;21,"00298-6810-61 ")
 ;;38
 ;;21,"00298-6934-69 ")
 ;;39
 ;;21,"00302-4400-01 ")
 ;;40
 ;;21,"00302-4400-36 ")
 ;;41
 ;;21,"00339-5717-12 ")
 ;;42
 ;;21,"00339-5718-12 ")
 ;;43
 ;;21,"00349-8319-70 ")
 ;;44
 ;;21,"00364-2376-90 ")
 ;;45
 ;;21,"00405-4696-01 ")
 ;;46
 ;;21,"00405-4696-09 ")
 ;;47
 ;;21,"00405-4697-01 ")
 ;;48
 ;;21,"00405-4697-09 ")
 ;;49
 ;;21,"00418-3331-61 ")
 ;;50
 ;;21,"00456-1008-10 ")
 ;;51
 ;;21,"00517-4210-25 ")
 ;;52
 ;;21,"00603-4759-21 ")
 ;;53
 ;;21,"00615-0359-13 ")
 ;;54
 ;;21,"00615-0359-53 ")
 ;;55
 ;;21,"00615-0359-63 ")
 ;;56
 ;;21,"00615-0360-43 ")
 ;;57
 ;;21,"00615-0360-53 ")
 ;;58
 ;;21,"00615-0360-63 ")
 ;;59
 ;;21,"00641-0421-25 ")
 ;;60
 ;;21,"00686-0258-10 ")
 ;;61
 ;;21,"00686-0259-10 ")
 ;;62
 ;;21,"00686-0664-20 ")
 ;;63
 ;;21,"00686-0665-20 ")
 ;;64
 ;;21,"00781-2504-01 ")
 ;;65
 ;;21,"00781-2504-03 ")
 ;;66
 ;;21,"00781-2506-01 ")
 ;;67
 ;;21,"00839-7564-06 ")
 ;;68
 ;;21,"00839-7564-13 ")
 ;;69
 ;;21,"00839-7564-16 ")
 ;;70
 ;;21,"00839-7564-80 ")
 ;;71
 ;;21,"00839-7565-06 ")
 ;;72
 ;;21,"00839-7565-13 ")
 ;;73
 ;;21,"00839-7704-13 ")
 ;;74
 ;;21,"00839-7717-06 ")
 ;;75
 ;;21,"00853-1602-70 ")
 ;;76
 ;;21,"00853-1604-70 ")
 ;;77
 ;;21,"00853-1610-90 ")
 ;;78
 ;;21,"00904-0407-60 ")
 ;;79
 ;;21,"00904-0407-61 ")
 ;;80
 ;;21,"00904-0407-72 ")
 ;;81
 ;;21,"00904-0408-60 ")
 ;;82
 ;;21,"00904-0408-61 ")
 ;;83
 ;;21,"00904-0408-72 ")
 ;;84
 ;;21,"00904-0409-60 ")
 ;;85
 ;;21,"00904-0409-61 ")
 ;;86
 ;;21,"00904-0409-72 ")
 ;;87
 ;;21,"00904-7685-60 ")
 ;;88
 ;;21,"00904-7685-72 ")
 ;;89
 ;;21,"00904-7699-60 ")
 ;;90
 ;;21,"00904-7950-60 ")
 ;;91
 ;;21,"00904-7950-72 ")
 ;;92
 ;;21,"00904-7951-60 ")
 ;;93
 ;;21,"00904-7951-72 ")
 ;;94
 ;;21,"10019-0097-44 ")
 ;;95
 ;;21,"10939-0067-22 ")
 ;;96
 ;;21,"12333-9607-01 ")
 ;;97
 ;;21,"17022-1379-07 ")
 ;;98
 ;;21,"17022-2995-03 ")
 ;;99
 ;;21,"17022-3016-03 ")
 ;;100
 ;;21,"17236-0738-91 ")
 ;;101
 ;;21,"17236-0923-11 ")
 ;;102
 ;;21,"34575-0881-63 ")
 ;;103
 ;;21,"37205-0190-62 ")
 ;;104
 ;;21,"49348-0067-04 ")
 ;;105
 ;;21,"49999-0091-04 ")
 ;;106
 ;;21,"49999-0091-15 ")
 ;;107
 ;;21,"49999-0091-20 ")
 ;;108
 ;;21,"49999-0091-30 ")
 ;;109
 ;;21,"49999-0091-60 ")
 ;;110
 ;;21,"50844-0108-16 ")
 ;;111
 ;;21,"50844-0290-12 ")
 ;;112
 ;;21,"50844-0290-16 ")
 ;;113
 ;;21,"51079-0066-17 ")
 ;;114
 ;;21,"51432-0156-03 ")
 ;;115
 ;;21,"51432-0156-06 ")
 ;;116
 ;;21,"52406-0013-30 ")
 ;;117
 ;;21,"52406-0170-10 ")
 ;;118
 ;;21,"52569-1308-10 ")
 ;;119
 ;;21,"52735-0470-05 ")
 ;;120
 ;;21,"52765-2252-00 ")
 ;;121
 ;;21,"52959-0273-00 ")
 ;;122
 ;;21,"52959-0273-01 ")
 ;;123
 ;;21,"52959-0273-08 ")
 ;;124
 ;;21,"52959-0273-10 ")
 ;;125
 ;;21,"52959-0273-20 ")
 ;;126
 ;;21,"52959-0273-30 ")
 ;;127
 ;;21,"52959-0273-40 ")
 ;;128
 ;;21,"52959-0273-50 ")
 ;;129
 ;;21,"52959-0273-60 ")
 ;;130
 ;;21,"52959-0273-80 ")
 ;;131
 ;;21,"52959-0488-30 ")
 ;;132
 ;;21,"53723-2630-01 ")
 ;;133
 ;;21,"53723-2630-03 ")
 ;;134
 ;;21,"54104-0056-07 ")
 ;;135
 ;;21,"54104-0056-10 ")
 ;;136
 ;;21,"54274-0536-62 ")
 ;;137
 ;;21,"54274-0537-62 ")
 ;;138
 ;;21,"54274-0541-62 ")
 ;;139
 ;;21,"54274-0685-50 ")
 ;;140
 ;;21,"54348-0107-12 ")
 ;;141
 ;;21,"54429-3227-00 ")
 ;;142
 ;;21,"54429-3227-01 ")
 ;;143
 ;;21,"54429-3227-03 ")
 ;;144
 ;;21,"54429-3453-01 ")
 ;;145
 ;;21,"54569-0241-00 ")
 ;;146
 ;;21,"54569-0241-01 ")
 ;;147
 ;;21,"54569-2464-00 ")
 ;;148
 ;;21,"54569-3005-00 ")
 ;;149
 ;;21,"54569-3010-00 ")
 ;;150
 ;
OTHER ; OTHER ROUTINES
 D ^BGP9SXLB
 D ^BGP9SXLC
 D ^BGP9SXLD
 D ^BGP9SXLE
 D ^BGP9SXLF
 D ^BGP9SXLG
 D ^BGP9SXLH
 D ^BGP9SXLI
 Q