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

BGP71W.m

Go to the documentation of this file.
BGP71W ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 11, 2016 ;
 ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
 ;;BGP PQA BIGUANIDE NDC
 ;
 ; This routine loads Taxonomy BGP PQA BIGUANIDE 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,"00003-4221-11 ")
 ;;1
 ;;21,"00003-4222-16 ")
 ;;2
 ;;21,"00003-4223-11 ")
 ;;3
 ;;21,"00006-0078-61 ")
 ;;4
 ;;21,"00006-0078-62 ")
 ;;5
 ;;21,"00006-0078-82 ")
 ;;6
 ;;21,"00006-0080-61 ")
 ;;7
 ;;21,"00006-0080-62 ")
 ;;8
 ;;21,"00006-0080-82 ")
 ;;9
 ;;21,"00006-0081-31 ")
 ;;10
 ;;21,"00006-0081-54 ")
 ;;11
 ;;21,"00006-0081-82 ")
 ;;12
 ;;21,"00006-0575-52 ")
 ;;13
 ;;21,"00006-0575-61 ")
 ;;14
 ;;21,"00006-0575-62 ")
 ;;15
 ;;21,"00006-0575-82 ")
 ;;16
 ;;21,"00006-0577-52 ")
 ;;17
 ;;21,"00006-0577-61 ")
 ;;18
 ;;21,"00006-0577-62 ")
 ;;19
 ;;21,"00006-0577-82 ")
 ;;20
 ;;21,"00087-6060-05 ")
 ;;21
 ;;21,"00087-6060-10 ")
 ;;22
 ;;21,"00087-6063-13 ")
 ;;23
 ;;21,"00087-6064-13 ")
 ;;24
 ;;21,"00087-6070-05 ")
 ;;25
 ;;21,"00087-6071-11 ")
 ;;26
 ;;21,"00087-6072-11 ")
 ;;27
 ;;21,"00087-6073-11 ")
 ;;28
 ;;21,"00087-6074-11 ")
 ;;29
 ;;21,"00093-1048-01 ")
 ;;30
 ;;21,"00093-1048-10 ")
 ;;31
 ;;21,"00093-1048-98 ")
 ;;32
 ;;21,"00093-1049-01 ")
 ;;33
 ;;21,"00093-1049-10 ")
 ;;34
 ;;21,"00093-1049-98 ")
 ;;35
 ;;21,"00093-5049-06 ")
 ;;36
 ;;21,"00093-5049-86 ")
 ;;37
 ;;21,"00093-5050-06 ")
 ;;38
 ;;21,"00093-5050-86 ")
 ;;39
 ;;21,"00093-5710-01 ")
 ;;40
 ;;21,"00093-5710-05 ")
 ;;41
 ;;21,"00093-5711-01 ")
 ;;42
 ;;21,"00093-5711-05 ")
 ;;43
 ;;21,"00093-5712-01 ")
 ;;44
 ;;21,"00093-5712-05 ")
 ;;45
 ;;21,"00093-7212-01 ")
 ;;46
 ;;21,"00093-7214-01 ")
 ;;47
 ;;21,"00093-7214-10 ")
 ;;48
 ;;21,"00093-7214-98 ")
 ;;49
 ;;21,"00093-7261-05 ")
 ;;50
 ;;21,"00093-7262-05 ")
 ;;51
 ;;21,"00093-7267-01 ")
 ;;52
 ;;21,"00093-7267-10 ")
 ;;53
 ;;21,"00093-7455-01 ")
 ;;54
 ;;21,"00093-7456-01 ")
 ;;55
 ;;21,"00093-7457-01 ")
 ;;56
 ;;21,"00093-7677-06 ")
 ;;57
 ;;21,"00093-7677-86 ")
 ;;58
 ;;21,"00093-7678-06 ")
 ;;59
 ;;21,"00093-7678-86 ")
 ;;60
 ;;21,"00169-0092-01 ")
 ;;61
 ;;21,"00169-0093-01 ")
 ;;62
 ;;21,"00173-0837-18 ")
 ;;63
 ;;21,"00173-0838-18 ")
 ;;64
 ;;21,"00173-0839-18 ")
 ;;65
 ;;21,"00173-0840-18 ")
 ;;66
 ;;21,"00185-4416-01 ")
 ;;67
 ;;21,"00228-2751-11 ")
 ;;68
 ;;21,"00228-2751-50 ")
 ;;69
 ;;21,"00228-2752-11 ")
 ;;70
 ;;21,"00228-2752-50 ")
 ;;71
 ;;21,"00228-2753-11 ")
 ;;72
 ;;21,"00228-2753-50 ")
 ;;73
 ;;21,"00310-6125-60 ")
 ;;74
 ;;21,"00310-6135-30 ")
 ;;75
 ;;21,"00310-6145-30 ")
 ;;76
 ;;21,"00310-6250-30 ")
 ;;77
 ;;21,"00310-6260-30 ")
 ;;78
 ;;21,"00310-6260-60 ")
 ;;79
 ;;21,"00310-6270-30 ")
 ;;80
 ;;21,"00310-6280-30 ")
 ;;81
 ;;21,"00378-1550-91 ")
 ;;82
 ;;21,"00378-1575-91 ")
 ;;83
 ;;21,"00378-3131-01 ")
 ;;84
 ;;21,"00378-3132-01 ")
 ;;85
 ;;21,"00378-3133-01 ")
 ;;86
 ;;21,"00378-7185-05 ")
 ;;87
 ;;21,"00378-7186-05 ")
 ;;88
 ;;21,"00378-7187-05 ")
 ;;89
 ;;21,"00406-2028-01 ")
 ;;90
 ;;21,"00406-2028-05 ")
 ;;91
 ;;21,"00406-2028-10 ")
 ;;92
 ;;21,"00406-2029-01 ")
 ;;93
 ;;21,"00406-2029-05 ")
 ;;94
 ;;21,"00406-2029-10 ")
 ;;95
 ;;21,"00440-5739-00 ")
 ;;96
 ;;21,"00440-5739-01 ")
 ;;97
 ;;21,"00440-5739-05 ")
 ;;98
 ;;21,"00440-5739-81 ")
 ;;99
 ;;21,"00440-5739-85 ")
 ;;100
 ;;21,"00440-5739-90 ")
 ;;101
 ;;21,"00440-5739-92 ")
 ;;102
 ;;21,"00440-5745-00 ")
 ;;103
 ;;21,"00440-5745-01 ")
 ;;104
 ;;21,"00440-5745-05 ")
 ;;105
 ;;21,"00440-5745-81 ")
 ;;106
 ;;21,"00440-5745-85 ")
 ;;107
 ;;21,"00440-5745-90 ")
 ;;108
 ;;21,"00440-5745-92 ")
 ;;109
 ;;21,"00440-5746-00 ")
 ;;110
 ;;21,"00440-5746-01 ")
 ;;111
 ;;21,"00440-5746-05 ")
 ;;112
 ;;21,"00440-5746-81 ")
 ;;113
 ;;21,"00440-5746-85 ")
 ;;114
 ;;21,"00440-5746-90 ")
 ;;115
 ;;21,"00440-5746-92 ")
 ;;116
 ;;21,"00440-7585-90 ")
 ;;117
 ;;21,"00440-7587-90 ")
 ;;118
 ;;21,"00440-7589-90 ")
 ;;119
 ;;21,"00440-7589-95 ")
 ;;120
 ;;21,"00440-7739-14 ")
 ;;121
 ;;21,"00440-7739-60 ")
 ;;122
 ;;21,"00440-7739-90 ")
 ;;123
 ;;21,"00440-7739-92 ")
 ;;124
 ;;21,"00440-7739-94 ")
 ;;125
 ;;21,"00440-7739-95 ")
 ;;126
 ;;21,"00440-7745-90 ")
 ;;127
 ;;21,"00440-7745-92 ")
 ;;128
 ;;21,"00440-7746-90 ")
 ;;129
 ;;21,"00440-7746-92 ")
 ;;130
 ;;21,"00440-7748-90 ")
 ;;131
 ;;21,"00440-7748-92 ")
 ;;132
 ;;21,"00591-2719-60 ")
 ;;133
 ;;21,"00591-2720-60 ")
 ;;134
 ;;21,"00597-0146-18 ")
 ;;135
 ;;21,"00597-0146-60 ")
 ;;136
 ;;21,"00597-0147-18 ")
 ;;137
 ;;21,"00597-0147-60 ")
 ;;138
 ;;21,"00597-0148-18 ")
 ;;139
 ;;21,"00597-0148-60 ")
 ;;140
 ;;21,"00597-0159-18 ")
 ;;141
 ;;21,"00597-0159-60 ")
 ;;142
 ;;21,"00597-0168-18 ")
 ;;143
 ;;21,"00597-0168-60 ")
 ;;144
 ;;21,"00597-0175-18 ")
 ;;145
 ;;21,"00597-0175-60 ")
 ;;146
 ;;21,"00597-0180-18 ")
 ;;147
 ;;21,"00597-0180-60 ")
 ;;148
 ;;21,"00603-4467-21 ")
 ;;149
 ;;21,"00603-4467-28 ")
 ;;150
 ;;21,"00603-4467-32 ")
 ;;151
 ;;21,"00603-4468-21 ")
 ;;152
 ;;21,"00603-4468-28 ")
 ;;153
 ;;21,"00603-4468-32 ")
 ;;154
 ;;21,"00603-4469-21 ")
 ;;155
 ;;21,"00603-4469-28 ")
 ;;156
 ;;21,"00603-4469-32 ")
 ;;157
 ;;21,"00781-5050-01 ")
 ;;158
 ;;21,"00781-5050-05 ")
 ;;159
 ;;21,"00781-5050-10 ")
 ;;160
 ;;21,"00781-5050-61 ")
 ;;161
 ;;21,"00781-5051-01 ")
 ;;162
 ;;21,"00781-5051-05 ")
 ;;163
 ;;21,"00781-5051-61 ")
 ;;164
 ;;21,"00781-5052-01 ")
 ;;165
 ;;21,"00781-5052-05 ")
 ;;166
 ;;21,"00781-5052-61 ")
 ;;167
 ;;21,"00781-5626-60 ")
 ;;168
 ;;21,"00781-5627-60 ")
 ;;169
 ;;21,"00904-5794-61 ")
 ;;170
 ;;21,"00904-5849-14 ")
 ;;171
 ;;21,"00904-5849-18 ")
 ;;172
 ;;21,"00904-5849-40 ")
 ;;173
 ;;21,"00904-5849-52 ")
 ;;174
 ;;21,"00904-5849-53 ")
 ;;175
 ;;21,"00904-5849-54 ")
 ;;176
 ;;21,"00904-5849-80 ")
 ;;177
 ;;21,"00904-5849-89 ")
 ;;178
 ;;21,"00904-5849-93 ")
 ;;179
 ;;21,"00904-5850-40 ")
 ;;180
 ;;21,"00904-5850-52 ")
 ;;181
 ;;21,"00904-5850-53 ")
 ;;182
 ;;21,"00904-5850-89 ")
 ;;183
 ;;21,"00904-5850-93 ")
 ;;184
 ;;21,"00904-5851-40 ")
 ;;185
 ;;21,"00904-5851-52 ")
 ;;186
 ;;21,"00904-5851-89 ")
 ;;187
 ;;21,"00904-5851-93 ")
 ;;188
 ;;21,"00904-6090-61 ")
 ;;189
 ;;21,"00904-6091-61 ")
 ;;190
 ;;21,"00904-6092-61 ")
 ;;191
 ;;21,"00904-6326-61 ")
 ;;192
 ;;21,"00904-6327-61 ")
 ;;193
 ;;21,"00904-6328-61 ")
 ;;194
 ;;21,"00904-6343-14 ")
 ;;195
 ;;21,"00904-6343-18 ")
 ;;196
 ;;21,"00904-6343-40 ")
 ;;197
 ;;21,"00904-6343-52 ")
 ;;198
 ;;21,"00904-6343-53 ")
 ;;199
 ;;21,"00904-6343-54 ")
 ;;200
 ;;21,"00904-6343-80 ")
 ;;201
 ;;21,"00904-6343-89 ")
 ;;202
 ;;21,"00904-6343-93 ")
 ;;203
 ;;21,"00904-6344-40 ")
 ;;204
 ;;21,"00904-6344-52 ")
 ;;205
 ;;21,"00904-6344-53 ")
 ;;206
 ;;21,"00904-6344-89 ")
 ;;207
 ;;21,"00904-6344-93 ")
 ;;208
 ;;21,"00904-6345-40 ")
 ;;209
 ;;21,"00904-6345-52 ")
 ;;210
 ;;21,"00904-6345-89 ")
 ;;211
 ;;21,"00904-6345-93 ")
 ;;212
 ;;21,"10544-0058-30 ")
 ;;213
 ;;21,"10544-0248-02 ")
 ;;214
 ;;21,"10544-0248-30 ")
 ;;215
 ;;21,"10544-0248-60 ")
 ;;216
 ;;21,"10544-0248-90 ")
 ;;217
 ;;21,"10544-0253-30 ")
 ;;218
 ;;21,"10544-0254-30 ")
 ;;219
 ;;21,"10544-0255-30 ")
 ;;220
 ;;21,"10544-0521-30 ")
 ;;221
 ;;21,"10544-0579-30 ")
 ;;222
 ;;21,"10544-0579-90 ")
 ;;223
 ;;21,"10544-0589-60 ")
 ;;224
 ;;21,"10544-0630-30 ")
 ;;225
 ;;21,"10544-0630-90 ")
 ;;226
 ;;21,"10544-0944-30 ")
 ;;227
 ;;21,"10544-0944-90 ")
 ;;228
 ;;21,"10544-0947-90 ")
 ;;229
 ;;21,"10631-0206-01 ")
 ;;230
 ;;21,"10631-0206-02 ")
 ;;231
 ;;21,"10631-0238-01 ")
 ;;232
 ;;21,"10631-0238-02 ")
 ;;233
 ;;21,"13668-0280-33 ")
 ;;234
 ;;21,"13668-0280-60 ")
 ;;235
 ;;21,"13668-0281-33 ")
 ;;236
 ;;21,"13668-0281-60 ")
 ;;237
 ;;21,"13913-0002-13 ")
 ;;238
 ;;21,"13913-0003-16 ")
 ;;239
 ;;21,"14565-0202-10 ")
 ;;240
 ;;21,"14565-0202-50 ")
 ;;241
 ;;21,"16590-0313-30 ")
 ;;242
 ;;21,"16590-0313-60 ")
 ;;243
 ;;21,"16590-0313-72 ")
 ;;244
 ;;21,"16590-0313-82 ")
 ;;245
 ;;21,"16590-0313-90 ")
 ;;246
 ;;21,"16590-0397-30 ")
 ;;247
 ;;21,"16590-0397-60 ")
 ;;248
 ;;21,"16590-0397-90 ")
 ;;249
 ;;21,"20091-0531-01 ")
 ;;250
 ;;21,"20091-0531-05 ")
 ;;251
 ;;21,"20091-0531-10 ")
 ;;252
 ;;21,"20091-0533-01 ")
 ;;253
 ;;21,"20091-0533-05 ")
 ;;254
 ;;21,"20091-0533-10 ")
 ;;255
 ;;21,"20091-0535-01 ")
 ;;256
 ;;21,"20091-0535-05 ")
 ;;257
 ;;21,"20091-0535-10 ")
 ;;258
 ;;21,"21695-0471-00 ")
 ;;259
 ;;21,"21695-0471-30 ")
 ;;260
 ;;21,"21695-0471-60 ")
 ;;261
 ;;21,"21695-0471-78 ")
 ;;262
 ;;21,"21695-0471-90 ")
 ;;263
 ;;21,"21695-0472-30 ")
 ;;264
 ;;21,"21695-0472-60 ")
 ;;265
 ;;21,"21695-0473-30 ")
 ;;266
 ;;21,"21695-0473-60 ")
 ;;267
 ;;21,"21695-0473-78 ")
 ;;268
 ;;21,"21695-0473-90 ")
 ;;269
 ;;21,"21695-0568-30 ")
 ;;270
 ;;21,"21695-0828-30 ")
 ;;271
 ;;21,"21695-0828-60 ")
 ;;272
 ;;21,"21695-0828-90 ")
 ;;273
 ;;21,"21695-0894-00 ")
 ;;274
 ;;21,"23155-0102-01 ")
 ;;275
 ;;21,"23155-0102-05 ")
 ;;276
 ;;21,"23155-0102-06 ")
 ;;277
 ;;21,"23155-0102-10 ")
 ;;278
 ;;21,"23155-0103-01 ")
 ;;279
 ;;21,"23155-0103-05 ")
 ;;280
 ;;21,"23155-0103-06 ")
 ;;281
 ;;21,"23155-0103-10 ")
 ;;282
 ;;21,"23155-0104-01 ")
 ;;283
 ;;21,"23155-0104-05 ")
 ;;284
 ;;21,"23155-0104-06 ")
 ;;285
 ;;21,"23155-0104-10 ")
 ;;286
 ;;21,"23155-0115-01 ")
 ;;287
 ;;21,"23155-0116-01 ")
 ;;288
 ;;21,"23155-0117-01 ")
 ;;289
 ;;21,"23155-0233-01 ")
 ;;290
 ;;21,"23155-0233-05 ")
 ;;291
 ;;21,"23155-0234-01 ")
 ;;292
 ;;21,"23155-0234-05 ")
 ;;293
 ;;21,"23155-0235-01 ")
 ;;294
 ;;21,"23155-0235-05 ")
 ;;295
 ;;21,"24658-0290-05 ")
 ;;296
 ;;21,"24658-0290-12 ")
 ;;297
 ;;21,"24658-0290-18 ")
 ;;298
 ;;21,"24658-0290-27 ")
 ;;299
 ;;21,"24658-0290-36 ")
 ;;300
 ;;21,"24658-0290-46 ")
 ;;301
 ;;21,"24658-0290-60 ")
 ;;302
 ;;21,"24658-0290-90 ")
 ;;303
 ;;21,"24658-0292-05 ")
 ;;304
 ;;21,"24658-0292-18 ")
 ;;305
 ;;21,"24658-0292-60 ")
 ;;306
 ;;21,"24658-0292-90 ")
 ;;307
 ;;21,"29033-0018-01 ")
 ;;308
 ;;21,"29033-0018-05 ")
 ;;309
 ;;21,"29033-0018-10 ")
 ;;310
 ;;21,"29033-0021-01 ")
 ;;311
 ;;21,"33261-0145-02 ")
 ;;312
 ;;21,"33261-0145-30 ")
 ;;313
 ;;21,"33261-0145-60 ")
 ;;314
 ;;21,"33261-0145-90 ")
 ;;315
 ;;21,"33261-0157-02 ")
 ;;316
 ;;21,"33261-0157-30 ")
 ;;317
 ;;21,"33261-0157-60 ")
 ;;318
 ;;21,"33261-0157-90 ")
 ;;319
 ;;21,"33261-0372-30 ")
 ;;320
 ;;21,"33261-0372-60 ")
 ;;321
 ;;21,"33261-0372-90 ")
 ;;322
 ;;21,"33261-0411-00 ")
 ;;323
 ;;21,"33261-0411-30 ")
 ;;324
 ;;21,"33261-0411-60 ")
 ;;325
 ;;21,"33261-0411-90 ")
 ;;326
 ;;21,"33261-0540-00 ")
 ;;327
 ;;21,"33261-0540-30 ")
 ;;328
 ;;21,"33261-0540-60 ")
 ;;329
 ;;21,"33261-0540-90 ")
 ;;330
 ;;21,"33261-0821-30 ")
 ;;331
 ;;21,"33261-0821-60 ")
 ;;332
 ;;21,"33261-0821-90 ")
 ;;333
 ;;21,"33358-0234-00 ")
 ;;334
 ;;21,"33358-0234-30 ")
 ;;335
 ;;21,"33358-0234-60 ")
 ;;336
 ;;21,"33358-0235-60 ")
 ;;337
 ;;21,"33358-0236-30 ")
 ;;338
 ;;21,"33358-0236-60 ")
 ;;339
 ;
OTHER ; OTHER ROUTINES
 D ^BGP71W10
 D ^BGP71W11
 D ^BGP71W12
 D ^BGP71W13
 D ^BGP71W14
 D ^BGP71W15
 D ^BGP71W16
 D ^BGP71W17
 D ^BGP71W18
 D ^BGP71W2
 D ^BGP71W3
 D ^BGP71W4
 D ^BGP71W5
 D ^BGP71W6
 D ^BGP71W7
 D ^BGP71W8
 D ^BGP71W9
 Q