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

BGPWTXB.m

Go to the documentation of this file.
  1. BGPWTXB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 21, 2005 ;
  1. ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
  1. ;;;BGPW;;APR 21, 2005
  1. ;;BGP OSTEOPOROSIS NDC
  1. ;
  1. ; This routine loads Taxonomy BGP OSTEOPOROSIS NDC
  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,"00002-4165-02 ")
  1. ;;26
  1. ;;21,"00002-4165-07 ")
  1. ;;27
  1. ;;21,"00002-4165-30 ")
  1. ;;25
  1. ;;21,"00002-8971-01 ")
  1. ;;30
  1. ;;21,"00006-0031-21 ")
  1. ;;16
  1. ;;21,"00006-0031-44 ")
  1. ;;15
  1. ;;21,"00006-0077-21 ")
  1. ;;12
  1. ;;21,"00006-0077-44 ")
  1. ;;11
  1. ;;21,"00006-0212-31 ")
  1. ;;14
  1. ;;21,"00006-0925-31 ")
  1. ;;1
  1. ;;21,"00006-0925-58 ")
  1. ;;3
  1. ;;21,"00006-0936-28 ")
  1. ;;5
  1. ;;21,"00006-0936-31 ")
  1. ;;4
  1. ;;21,"00006-0936-58 ")
  1. ;;6
  1. ;;21,"00006-0936-72 ")
  1. ;;7
  1. ;;21,"00006-0936-82 ")
  1. ;;8
  1. ;;21,"00032-1023-01 ")
  1. ;;85
  1. ;;21,"00032-1026-01 ")
  1. ;;81
  1. ;;21,"00032-1026-10 ")
  1. ;;82
  1. ;;21,"00046-0864-81 ")
  1. ;;154
  1. ;;21,"00046-0865-81 ")
  1. ;;187
  1. ;;21,"00046-0865-91 ")
  1. ;;188
  1. ;;21,"00046-0866-81 ")
  1. ;;161
  1. ;;21,"00046-0866-91 ")
  1. ;;163
  1. ;;21,"00046-0866-95 ")
  1. ;;164
  1. ;;21,"00046-0866-99 ")
  1. ;;162
  1. ;;21,"00046-0868-81 ")
  1. ;;114
  1. ;;21,"00046-0868-91 ")
  1. ;;115
  1. ;;21,"00046-0875-05 ")
  1. ;;107
  1. ;;21,"00046-0875-06 ")
  1. ;;108
  1. ;;21,"00046-0975-05 ")
  1. ;;111
  1. ;;21,"00046-0975-06 ")
  1. ;;112
  1. ;;21,"00046-2573-05 ")
  1. ;;103
  1. ;;21,"00046-2573-06 ")
  1. ;;104
  1. ;;21,"00078-0149-23 ")
  1. ;;22
  1. ;;21,"00078-0311-90 ")
  1. ;;23
  1. ;;21,"00087-0021-41 ")
  1. ;;31
  1. ;;21,"00087-0755-01 ")
  1. ;;40
  1. ;;21,"00087-0756-01 ")
  1. ;;62
  1. ;;21,"00087-0756-48 ")
  1. ;;63
  1. ;;21,"00149-0470-01 ")
  1. ;;21
  1. ;;21,"00149-0471-01 ")
  1. ;;19
  1. ;;21,"00149-0471-03 ")
  1. ;;20
  1. ;;21,"00339-5981-12 ")
  1. ;;90
  1. ;;21,"00339-5983-12 ")
  1. ;;95
  1. ;;21,"00339-5985-12 ")
  1. ;;100
  1. ;;21,"00339-6073-12 ")
  1. ;;33
  1. ;;21,"00339-6074-12 ")
  1. ;;49
  1. ;;21,"00339-6075-12 ")
  1. ;;70
  1. ;;21,"00378-1452-01 ")
  1. ;;38
  1. ;;21,"00378-1454-01 ")
  1. ;;56
  1. ;;21,"00378-1454-05 ")
  1. ;;57
  1. ;;21,"00378-1458-01 ")
  1. ;;77
  1. ;;21,"00378-1458-05 ")
  1. ;;78
  1. ;;21,"00378-4551-01 ")
  1. ;;92
  1. ;;21,"00378-4553-01 ")
  1. ;;97
  1. ;;21,"00378-4555-01 ")
  1. ;;101
  1. ;;21,"00555-0727-02 ")
  1. ;;89
  1. ;;21,"00555-0728-02 ")
  1. ;;94
  1. ;;21,"00555-0729-02 ")
  1. ;;99
  1. ;;21,"00555-0886-02 ")
  1. ;;47
  1. ;;21,"00555-0886-04 ")
  1. ;;48
  1. ;;21,"00555-0887-02 ")
  1. ;;68
  1. ;;21,"00555-0887-04 ")
  1. ;;69
  1. ;;21,"00555-0899-02 ")
  1. ;;32
  1. ;;21,"00591-0414-01 ")
  1. ;;93
  1. ;;21,"00591-0416-01 ")
  1. ;;102
  1. ;;21,"00591-0487-05 ")
  1. ;;61
  1. ;;21,"00904-5177-60 ")
  1. ;;36
  1. ;;21,"00904-5178-60 ")
  1. ;;54
  1. ;;21,"00904-5179-60 ")
  1. ;;75
  1. ;;21,"51285-0010-02 ")
  1. ;;91
  1. ;;21,"51285-0442-02 ")
  1. ;;190
  1. ;;21,"51285-0442-05 ")
  1. ;;191
  1. ;;21,"51285-0443-02 ")
  1. ;;192
  1. ;;21,"51285-0443-05 ")
  1. ;;193
  1. ;;21,"51285-0444-02 ")
  1. ;;194
  1. ;;21,"51285-0444-05 ")
  1. ;;195
  1. ;;21,"51285-0501-02 ")
  1. ;;34
  1. ;;21,"51285-0502-02 ")
  1. ;;50
  1. ;;21,"51285-0502-04 ")
  1. ;;51
  1. ;;21,"51285-0504-02 ")
  1. ;;71
  1. ;;21,"51285-0504-04 ")
  1. ;;72
  1. ;;21,"51285-0876-02 ")
  1. ;;96
  1. ;;21,"51655-0452-25 ")
  1. ;;140
  1. ;;21,"52544-0415-01 ")
  1. ;;98
  1. ;;21,"52544-0487-01 ")
  1. ;;60
  1. ;;21,"52544-0488-01 ")
  1. ;;79
  1. ;;21,"52544-0488-05 ")
  1. ;;80
  1. ;;21,"52544-0528-01 ")
  1. ;;39
  1. ;;21,"52555-0716-01 ")
  1. ;;37
  1. ;;21,"52555-0717-01 ")
  1. ;;55
  1. ;;21,"52555-0718-01 ")
  1. ;;76
  1. ;;21,"52959-0222-00 ")
  1. ;;175
  1. ;;21,"52959-0223-00 ")
  1. ;;142
  1. ;;21,"52959-0223-30 ")
  1. ;;141
  1. ;;21,"54569-0802-01 ")
  1. ;;41
  1. ;;21,"54569-0811-01 ")
  1. ;;118
  1. ;;21,"54569-0812-00 ")
  1. ;;135
  1. ;;21,"54569-0812-01 ")
  1. ;;131
  1. ;;21,"54569-0812-02 ")
  1. ;;128
  1. ;;21,"54569-0812-05 ")
  1. ;;127
  1. ;;21,"54569-0813-00 ")
  1. ;;170
  1. ;;21,"54569-0813-01 ")
  1. ;;165
  1. ;;21,"54569-0849-00 ")
  1. ;;158
  1. ;;21,"54569-0849-01 ")
  1. ;;155
  1. ;;21,"54569-4354-01 ")
  1. ;;86
  1. ;;21,"54569-4618-00 ")
  1. ;;109
  1. ;;21,"54569-4628-00 ")
  1. ;;28
  1. ;;21,"54569-4673-00 ")
  1. ;;105
  1. ;;21,"54569-4866-00 ")
  1. ;;9
  1. ;;21,"54569-4907-00 ")
  1. ;;46
  1. ;;21,"54569-4908-00 ")
  1. ;;67
  1. ;;21,"54569-4925-00 ")
  1. ;;113
  1. ;;21,"54569-5141-00 ")
  1. ;;83
  1. ;;21,"54569-5218-00 ")
  1. ;;17
  1. ;;21,"54569-5234-00 ")
  1. ;;24
  1. ;;21,"54569-8006-00 ")
  1. ;;132
  1. ;;21,"54569-8006-01 ")
  1. ;;136
  1. ;;21,"54569-8006-02 ")
  1. ;;134
  1. ;;21,"54569-8014-00 ")
  1. ;;169
  1. ;;21,"54569-8500-00 ")
  1. ;;133
  1. ;;21,"54569-8500-01 ")
  1. ;;130
  1. ;;21,"54569-8500-02 ")
  1. ;;129
  1. ;;21,"54569-8505-00 ")
  1. ;;168
  1. ;;21,"54569-8505-01 ")
  1. ;;167
  1. ;;21,"54569-8505-02 ")
  1. ;;166
  1. ;;21,"54569-8517-00 ")
  1. ;;117
  1. ;;21,"54569-8517-01 ")
  1. ;;116
  1. ;;21,"54569-8518-00 ")
  1. ;;157
  1. ;;21,"54569-8518-01 ")
  1. ;;156
  1. ;;21,"54569-8577-00 ")
  1. ;;64
  1. ;;21,"54868-0364-00 ")
  1. ;;160
  1. ;;21,"54868-0365-02 ")
  1. ;;159
  1. ;;21,"54868-0451-00 ")
  1. ;;143
  1. ;;21,"54868-0451-01 ")
  1. ;;145
  1. ;;21,"54868-0451-02 ")
  1. ;;144
  1. ;;21,"54868-0451-03 ")
  1. ;;146
  1. ;;21,"54868-0452-03 ")
  1. ;;189
  1. ;;21,"54868-0453-00 ")
  1. ;;176
  1. ;;21,"54868-0453-02 ")
  1. ;;177
  1. ;;21,"54868-0453-04 ")
  1. ;;179
  1. ;;21,"54868-0453-05 ")
  1. ;;178
  1. ;;21,"54868-0494-00 ")
  1. ;;45
  1. ;;21,"54868-0494-01 ")
  1. ;;44
  1. ;;21,"54868-0494-02 ")
  1. ;;43
  1. ;;21,"54868-0495-00 ")
  1. ;;66
  1. ;;21,"54868-2702-00 ")
  1. ;;120
  1. ;;21,"54868-3564-00 ")
  1. ;;88
  1. ;;21,"54868-3564-01 ")
  1. ;;87
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGPWTXBB
  1. D ^BGPWTXBC
  1. D ^BGPWTXBD
  1. D ^BGPWTXBE
  1. D ^BGPWTXBF
  1. D ^BGPWTXBG
  1. Q