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

BGP8FXN.m

Go to the documentation of this file.
  1. BGP8FXN ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 28, 2007 ;
  1. ;;8.0;IHS CLINICAL REPORTING;;MAR 12, 2008
  1. ;;;BGP6;;SEP 28, 2007
  1. ;;BGP HEDIS OTHER NDC AVOID ELD
  1. ;
  1. ; This routine loads Taxonomy BGP HEDIS OTHER NDC AVOID ELD
  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,"00076-0301-03 ")
  1. ;;7
  1. ;;21,"00076-0301-04 ")
  1. ;;8
  1. ;;21,"00115-3982-01 ")
  1. ;;15
  1. ;;21,"00115-3982-02 ")
  1. ;;16
  1. ;;21,"00115-3982-03 ")
  1. ;;17
  1. ;;21,"00115-3984-01 ")
  1. ;;18
  1. ;;21,"00115-3984-02 ")
  1. ;;19
  1. ;;21,"00115-3984-03 ")
  1. ;;20
  1. ;;21,"00115-3986-01 ")
  1. ;;26
  1. ;;21,"00115-3986-02 ")
  1. ;;27
  1. ;;21,"00115-3986-03 ")
  1. ;;28
  1. ;;21,"00115-4824-01 ")
  1. ;;318
  1. ;;21,"00115-4824-03 ")
  1. ;;319
  1. ;;21,"00115-4826-01 ")
  1. ;;233
  1. ;;21,"00115-4826-03 ")
  1. ;;234
  1. ;;21,"00115-7037-01 ")
  1. ;;21
  1. ;;21,"00115-7038-01 ")
  1. ;;29
  1. ;;21,"00149-0007-05 ")
  1. ;;121
  1. ;;21,"00149-0008-05 ")
  1. ;;122
  1. ;;21,"00149-0008-66 ")
  1. ;;123
  1. ;;21,"00149-0008-67 ")
  1. ;;124
  1. ;;21,"00149-0008-77 ")
  1. ;;125
  1. ;;21,"00149-0009-05 ")
  1. ;;38
  1. ;;21,"00149-0009-66 ")
  1. ;;39
  1. ;;21,"00149-0009-67 ")
  1. ;;40
  1. ;;21,"00149-0009-77 ")
  1. ;;41
  1. ;;21,"00149-0710-01 ")
  1. ;;199
  1. ;;21,"00149-0735-15 ")
  1. ;;33
  1. ;;21,"00149-0735-61 ")
  1. ;;34
  1. ;;21,"00172-2130-60 ")
  1. ;;126
  1. ;;21,"00172-2130-70 ")
  1. ;;127
  1. ;;21,"00172-2130-80 ")
  1. ;;128
  1. ;;21,"00172-2131-60 ")
  1. ;;42
  1. ;;21,"00172-2131-70 ")
  1. ;;43
  1. ;;21,"00172-2131-80 ")
  1. ;;44
  1. ;;21,"00182-0493-10 ")
  1. ;;320
  1. ;;21,"00182-0494-10 ")
  1. ;;235
  1. ;;21,"00182-1944-89 ")
  1. ;;129
  1. ;;21,"00182-1945-89 ")
  1. ;;45
  1. ;;21,"00185-0122-01 ")
  1. ;;200
  1. ;;21,"00185-0122-10 ")
  1. ;;201
  1. ;;21,"00187-0311-01 ")
  1. ;;22
  1. ;;21,"00187-0311-06 ")
  1. ;;23
  1. ;;21,"00187-0499-06 ")
  1. ;;30
  1. ;;21,"00187-0901-01 ")
  1. ;;9
  1. ;;21,"00187-0902-01 ")
  1. ;;10
  1. ;;21,"00223-2072-01 ")
  1. ;;290
  1. ;;21,"00223-2072-02 ")
  1. ;;291
  1. ;;21,"00223-2074-01 ")
  1. ;;321
  1. ;;21,"00223-2074-02 ")
  1. ;;322
  1. ;;21,"00223-2076-01 ")
  1. ;;236
  1. ;;21,"00223-2076-02 ")
  1. ;;237
  1. ;;21,"00247-0137-02 ")
  1. ;;130
  1. ;;21,"00247-0137-04 ")
  1. ;;131
  1. ;;21,"00247-0137-10 ")
  1. ;;132
  1. ;;21,"00247-0137-12 ")
  1. ;;133
  1. ;;21,"00247-0137-14 ")
  1. ;;134
  1. ;;21,"00247-0137-20 ")
  1. ;;135
  1. ;;21,"00247-0137-21 ")
  1. ;;136
  1. ;;21,"00247-0137-28 ")
  1. ;;137
  1. ;;21,"00247-0137-30 ")
  1. ;;138
  1. ;;21,"00247-0137-40 ")
  1. ;;139
  1. ;;21,"00247-0159-10 ")
  1. ;;140
  1. ;;21,"00247-0159-14 ")
  1. ;;141
  1. ;;21,"00247-0159-20 ")
  1. ;;142
  1. ;;21,"00247-0159-21 ")
  1. ;;143
  1. ;;21,"00247-0159-28 ")
  1. ;;144
  1. ;;21,"00247-0159-30 ")
  1. ;;145
  1. ;;21,"00247-0159-40 ")
  1. ;;146
  1. ;;21,"00247-0164-02 ")
  1. ;;202
  1. ;;21,"00247-0164-06 ")
  1. ;;203
  1. ;;21,"00247-0164-10 ")
  1. ;;204
  1. ;;21,"00247-0164-14 ")
  1. ;;205
  1. ;;21,"00247-0164-20 ")
  1. ;;206
  1. ;;21,"00247-0164-21 ")
  1. ;;207
  1. ;;21,"00247-0164-90 ")
  1. ;;208
  1. ;;21,"00247-0258-04 ")
  1. ;;46
  1. ;;21,"00247-0258-06 ")
  1. ;;47
  1. ;;21,"00247-0258-10 ")
  1. ;;48
  1. ;;21,"00247-0258-14 ")
  1. ;;49
  1. ;;21,"00247-0258-20 ")
  1. ;;50
  1. ;;21,"00247-0258-28 ")
  1. ;;51
  1. ;;21,"00247-0258-30 ")
  1. ;;52
  1. ;;21,"00247-0258-40 ")
  1. ;;53
  1. ;;21,"00247-0258-47 ")
  1. ;;54
  1. ;;21,"00247-0258-90 ")
  1. ;;55
  1. ;;21,"00378-1650-01 ")
  1. ;;147
  1. ;;21,"00378-1650-05 ")
  1. ;;148
  1. ;;21,"00378-1700-01 ")
  1. ;;56
  1. ;;21,"00378-1700-05 ")
  1. ;;57
  1. ;;21,"00378-3422-01 ")
  1. ;;209
  1. ;;21,"00405-4284-01 ")
  1. ;;1
  1. ;;21,"00405-4285-01 ")
  1. ;;4
  1. ;;21,"00405-4699-01 ")
  1. ;;149
  1. ;;21,"00405-4699-02 ")
  1. ;;150
  1. ;;21,"00405-4700-01 ")
  1. ;;58
  1. ;;21,"00456-0457-01 ")
  1. ;;263
  1. ;;21,"00456-0458-00 ")
  1. ;;292
  1. ;;21,"00456-0458-01 ")
  1. ;;293
  1. ;;21,"00456-0458-63 ")
  1. ;;294
  1. ;;21,"00456-0459-00 ")
  1. ;;323
  1. ;;21,"00456-0459-01 ")
  1. ;;324
  1. ;;21,"00456-0459-51 ")
  1. ;;325
  1. ;;21,"00456-0459-63 ")
  1. ;;326
  1. ;;21,"00456-0460-01 ")
  1. ;;354
  1. ;;21,"00456-0461-00 ")
  1. ;;238
  1. ;;21,"00456-0461-01 ")
  1. ;;239
  1. ;;21,"00456-0461-63 ")
  1. ;;240
  1. ;;21,"00456-0462-00 ")
  1. ;;270
  1. ;;21,"00456-0462-01 ")
  1. ;;271
  1. ;;21,"00456-0463-01 ")
  1. ;;286
  1. ;;21,"00456-0464-01 ")
  1. ;;314
  1. ;;21,"00463-6199-10 ")
  1. ;;295
  1. ;;21,"00463-6201-10 ")
  1. ;;327
  1. ;;21,"00463-6203-10 ")
  1. ;;241
  1. ;;21,"00536-4702-10 ")
  1. ;;328
  1. ;;21,"00536-5618-01 ")
  1. ;;151
  1. ;;21,"00536-5619-01 ")
  1. ;;59
  1. ;;21,"00591-3250-01 ")
  1. ;;210
  1. ;;21,"00591-3253-01 ")
  1. ;;152
  1. ;;21,"00591-3254-01 ")
  1. ;;60
  1. ;;21,"00603-4776-21 ")
  1. ;;153
  1. ;;21,"00603-4777-21 ")
  1. ;;61
  1. ;;21,"00603-6045-32 ")
  1. ;;296
  1. ;;21,"00603-6046-32 ")
  1. ;;329
  1. ;;21,"00603-6047-32 ")
  1. ;;242
  1. ;;21,"00603-6048-32 ")
  1. ;;272
  1. ;;21,"00603-6050-21 ")
  1. ;;264
  1. ;;21,"00603-6051-21 ")
  1. ;;297
  1. ;;21,"00603-6051-32 ")
  1. ;;298
  1. ;;21,"00603-6052-21 ")
  1. ;;330
  1. ;;21,"00603-6052-32 ")
  1. ;;331
  1. ;;21,"00603-6053-21 ")
  1. ;;355
  1. ;;21,"00603-6053-32 ")
  1. ;;356
  1. ;;21,"00603-6054-21 ")
  1. ;;243
  1. ;;21,"00603-6054-32 ")
  1. ;;244
  1. ;;21,"00603-6055-21 ")
  1. ;;273
  1. ;;21,"00603-6055-32 ")
  1. ;;274
  1. ;;21,"00603-6056-21 ")
  1. ;;287
  1. ;;21,"00603-6057-21 ")
  1. ;;315
  1. ;;21,"00615-1308-13 ")
  1. ;;154
  1. ;;21,"00677-1657-10 ")
  1. ;;299
  1. ;;21,"00677-1658-10 ")
  1. ;;332
  1. ;;21,"00677-1659-10 ")
  1. ;;245
  1. ;;21,"00781-2502-01 ")
  1. ;;155
  1. ;;21,"00781-2502-05 ")
  1. ;;156
  1. ;;21,"00781-2502-10 ")
  1. ;;157
  1. ;;21,"00781-2503-01 ")
  1. ;;62
  1. ;;21,"00839-1217-06 ")
  1. ;;2
  1. ;;21,"00839-1217-16 ")
  1. ;;3
  1. ;;21,"00839-1672-16 ")
  1. ;;246
  1. ;;21,"00839-5041-16 ")
  1. ;;333
  1. ;;21,"00839-6027-06 ")
  1. ;;5
  1. ;;21,"00839-6027-16 ")
  1. ;;6
  1. ;;21,"00839-7518-06 ")
  1. ;;158
  1. ;;21,"00839-7518-12 ")
  1. ;;159
  1. ;;21,"00839-7519-06 ")
  1. ;;63
  1. ;;21,"00839-7519-12 ")
  1. ;;64
  1. ;;21,"00839-7931-06 ")
  1. ;;300
  1. ;;21,"00839-7931-16 ")
  1. ;;301
  1. ;;21,"00904-0761-60 ")
  1. ;;334
  1. ;;21,"00904-0761-80 ")
  1. ;;335
  1. ;;21,"00904-0762-60 ")
  1. ;;247
  1. ;;21,"00904-0762-80 ")
  1. ;;248
  1. ;;21,"00904-0763-60 ")
  1. ;;275
  1. ;;21,"00904-0763-80 ")
  1. ;;276
  1. ;;21,"00904-0808-60 ")
  1. ;;24
  1. ;;21,"00904-0809-60 ")
  1. ;;31
  1. ;;21,"00904-0809-80 ")
  1. ;;32
  1. ;;21,"00904-7721-40 ")
  1. ;;160
  1. ;;21,"00904-7721-60 ")
  1. ;;161
  1. ;;21,"00904-7722-40 ")
  1. ;;65
  1. ;;21,"00904-7722-60 ")
  1. ;;66
  1. ;;21,"00904-7865-60 ")
  1. ;;302
  1. ;;21,"00904-7865-80 ")
  1. ;;303
  1. ;;21,"12280-0130-00 ")
  1. ;;304
  1. ;;21,"12280-0131-00 ")
  1. ;;336
  1. ;;21,"12280-0204-00 ")
  1. ;;305
  1. ;;21,"49483-0021-01 ")
  1. ;;306
  1. ;;21,"49483-0021-10 ")
  1. ;;307
  1. ;;21,"49483-0022-01 ")
  1. ;;337
  1. ;;21,"49483-0022-10 ")
  1. ;;338
  1. ;;21,"49483-0023-01 ")
  1. ;;249
  1. ;;21,"49483-0023-10 ")
  1. ;;250
  1. ;;21,"49483-0038-01 ")
  1. ;;277
  1. ;;21,"49483-0038-10 ")
  1. ;;278
  1. ;;21,"51079-0584-20 ")
  1. ;;162
  1. ;;21,"51079-0585-20 ")
  1. ;;67
  1. ;;21,"51479-0029-06 ")
  1. ;;35
  1. ;;21,"51479-0029-47 ")
  1. ;;36
  1. ;;21,"52959-0143-00 ")
  1. ;;265
  1. ;;21,"52959-0146-00 ")
  1. ;;308
  1. ;;21,"52959-0404-14 ")
  1. ;;211
  1. ;;21,"52959-0405-14 ")
  1. ;;68
  1. ;;21,"52959-0405-20 ")
  1. ;;69
  1. ;;21,"52959-0405-21 ")
  1. ;;70
  1. ;;21,"52959-0406-30 ")
  1. ;;163
  1. ;;21,"53191-0289-01 ")
  1. ;;261
  1. ;;21,"53191-0289-10 ")
  1. ;;262
  1. ;;21,"53191-0290-01 ")
  1. ;;288
  1. ;;21,"53191-0290-10 ")
  1. ;;289
  1. ;;21,"53191-0291-01 ")
  1. ;;316
  1. ;;21,"53191-0291-10 ")
  1. ;;317
  1. ;;21,"53191-0292-01 ")
  1. ;;352
  1. ;;21,"53191-0292-10 ")
  1. ;;353
  1. ;;21,"53191-0293-01 ")
  1. ;;231
  1. ;;21,"53191-0293-10 ")
  1. ;;232
  1. ;;21,"53191-0294-01 ")
  1. ;;284
  1. ;;21,"53191-0294-10 ")
  1. ;;285
  1. ;;21,"53191-0296-01 ")
  1. ;;266
  1. ;;21,"53191-0296-10 ")
  1. ;;267
  1. ;;21,"53191-0297-01 ")
  1. ;;268
  1. ;;21,"53191-0297-10 ")
  1. ;;269
  1. ;;21,"53191-0298-01 ")
  1. ;;350
  1. ;;21,"53191-0298-10 ")
  1. ;;351
  1. ;;21,"54569-0181-00 ")
  1. ;;164
  1. ;;21,"54569-0181-01 ")
  1. ;;165
  1. ;;21,"54569-0181-02 ")
  1. ;;166
  1. ;;21,"54569-0181-04 ")
  1. ;;167
  1. ;;21,"54569-0841-00 ")
  1. ;;25
  1. ;;21,"54569-0917-00 ")
  1. ;;309
  1. ;;21,"54569-0918-00 ")
  1. ;;339
  1. ;;21,"54569-0919-00 ")
  1. ;;251
  1. ;;21,"54569-0920-00 ")
  1. ;;279
  1. ;;21,"54569-1969-00 ")
  1. ;;71
  1. ;;21,"54569-1969-01 ")
  1. ;;72
  1. ;;21,"54569-1969-02 ")
  1. ;;73
  1. ;;21,"54569-3179-03 ")
  1. ;;344
  1. ;;21,"54569-3179-04 ")
  1. ;;345
  1. ;;21,"54569-3180-00 ")
  1. ;;254
  1. ;;21,"54569-3180-01 ")
  1. ;;255
  1. ;;21,"54569-3180-02 ")
  1. ;;252
  1. ;;21,"54569-3180-05 ")
  1. ;;256
  1. ;;21,"54569-3181-01 ")
  1. ;;280
  1. ;;21,"54569-3544-00 ")
  1. ;;212
  1. ;;21,"54569-3544-01 ")
  1. ;;213
  1. ;;21,"54569-3544-02 ")
  1. ;;214
  1. ;;21,"54569-3544-03 ")
  1. ;;215
  1. ;;21,"54569-3544-04 ")
  1. ;;216
  1. ;;21,"54569-4471-00 ")
  1. ;;357
  1. ;;21,"54569-4929-00 ")
  1. ;;310
  1. ;;21,"54569-8585-00 ")
  1. ;;253
  1. ;;21,"54868-0107-06 ")
  1. ;;168
  1. ;;21,"54868-0429-03 ")
  1. ;;169
  1. ;;21,"54868-0473-00 ")
  1. ;;74
  1. ;;21,"54868-0473-01 ")
  1. ;;75
  1. ;;21,"54868-0473-02 ")
  1. ;;76
  1. ;;21,"54868-0473-03 ")
  1. ;;77
  1. ;;21,"54868-0473-04 ")
  1. ;;78
  1. ;;21,"54868-0473-05 ")
  1. ;;79
  1. ;;21,"54868-0473-06 ")
  1. ;;80
  1. ;;21,"54868-1253-00 ")
  1. ;;340
  1. ;;21,"54868-2366-00 ")
  1. ;;217
  1. ;;21,"54868-2366-01 ")
  1. ;;218
  1. ;;21,"55289-0031-06 ")
  1. ;;219
  1. ;;21,"55289-0031-10 ")
  1. ;;220
  1. ;;21,"55289-0031-14 ")
  1. ;;221
  1. ;;21,"55289-0031-20 ")
  1. ;;222
  1. ;;21,"55289-0179-12 ")
  1. ;;170
  1. ;;21,"55289-0179-28 ")
  1. ;;171
  1. ;;21,"55289-0179-40 ")
  1. ;;172
  1. ;;21,"55289-0186-12 ")
  1. ;;173
  1. ;;21,"55289-0186-14 ")
  1. ;;174
  1. ;;21,"55289-0186-20 ")
  1. ;;175
  1. ;;21,"55289-0186-21 ")
  1. ;;176
  1. ;;21,"55289-0186-28 ")
  1. ;;177
  1. ;;21,"55289-0186-40 ")
  1. ;;178
  1. ;;21,"55289-0203-12 ")
  1. ;;81
  1. ;;21,"55289-0203-14 ")
  1. ;;82
  1. ;;21,"55289-0203-20 ")
  1. ;;83
  1. ;;21,"55289-0203-28 ")
  1. ;;84
  1. ;;21,"55289-0203-30 ")
  1. ;;85
  1. ;;21,"55289-0203-40 ")
  1. ;;86
  1. ;;21,"55289-0261-30 ")
  1. ;;346
  1. ;;21,"55289-0261-90 ")
  1. ;;347
  1. ;;21,"55289-0262-90 ")
  1. ;;257
  1. ;;21,"55289-0914-12 ")
  1. ;;87
  1. ;;21,"55289-0914-14 ")
  1. ;;88
  1. ;;21,"55289-0914-15 ")
  1. ;;89
  1. ;;21,"55289-0914-28 ")
  1. ;;90
  1. ;;21,"55289-0914-30 ")
  1. ;;91
  1. ;;21,"55289-0914-40 ")
  1. ;;92
  1. ;;21,"57866-6590-03 ")
  1. ;;93
  1. ;;21,"57866-6590-04 ")
  1. ;;94
  1. ;;21,"58016-0034-00 ")
  1. ;;95
  1. ;;21,"58016-0034-30 ")
  1. ;;96
  1. ;;21,"58016-0034-60 ")
  1. ;;97
  1. ;;21,"58016-0034-90 ")
  1. ;;98
  1. ;;21,"58016-0141-00 ")
  1. ;;99
  1. ;;21,"58016-0141-10 ")
  1. ;;100
  1. ;;21,"58016-0141-12 ")
  1. ;;101
  1. ;;21,"58016-0141-14 ")
  1. ;;102
  1. ;;21,"58016-0141-15 ")
  1. ;;103
  1. ;;21,"58016-0141-20 ")
  1. ;;104
  1. ;;21,"58016-0141-21 ")
  1. ;;105
  1. ;;21,"58016-0141-24 ")
  1. ;;106
  1. ;;21,"58016-0141-28 ")
  1. ;;107
  1. ;;21,"58016-0141-30 ")
  1. ;;108
  1. ;;21,"58016-0142-00 ")
  1. ;;179
  1. ;;21,"58016-0142-10 ")
  1. ;;180
  1. ;;21,"58016-0142-12 ")
  1. ;;181
  1. ;;21,"58016-0142-14 ")
  1. ;;182
  1. ;;21,"58016-0142-15 ")
  1. ;;183
  1. ;;21,"58016-0142-20 ")
  1. ;;184
  1. ;;21,"58016-0142-24 ")
  1. ;;185
  1. ;;21,"58016-0142-28 ")
  1. ;;186
  1. ;;21,"58016-0142-30 ")
  1. ;;187
  1. ;;21,"58016-0142-40 ")
  1. ;;188
  1. ;;21,"58016-0886-00 ")
  1. ;;223
  1. ;;21,"58016-0886-20 ")
  1. ;;224
  1. ;;21,"58016-0886-30 ")
  1. ;;225
  1. ;;21,"58016-0886-60 ")
  1. ;;226
  1. ;;21,"58016-0886-90 ")
  1. ;;227
  1. ;;21,"58016-0937-00 ")
  1. ;;348
  1. ;;21,"58016-0967-00 ")
  1. ;;11
  1. ;;21,"58016-0967-30 ")
  1. ;;12
  1. ;;21,"58016-0967-60 ")
  1. ;;13
  1. ;;21,"58016-0967-90 ")
  1. ;;14
  1. ;;21,"58864-0323-14 ")
  1. ;;228
  1. ;;21,"59630-0450-16 ")
  1. ;;37
  1. ;;21,"61392-0168-30 ")
  1. ;;109
  1. ;;21,"61392-0168-31 ")
  1. ;;110
  1. ;;21,"61392-0168-32 ")
  1. ;;111
  1. ;;21,"61392-0168-39 ")
  1. ;;112
  1. ;;21,"61392-0168-45 ")
  1. ;;113
  1. ;;21,"61392-0168-51 ")
  1. ;;114
  1. ;;21,"61392-0168-54 ")
  1. ;;115
  1. ;;21,"61392-0168-60 ")
  1. ;;116
  1. ;;21,"61392-0168-90 ")
  1. ;;117
  1. ;;21,"61392-0168-91 ")
  1. ;;118
  1. ;;21,"61392-0169-30 ")
  1. ;;189
  1. ;;21,"61392-0169-31 ")
  1. ;;190
  1. ;;21,"61392-0169-32 ")
  1. ;;191
  1. ;;21,"61392-0169-39 ")
  1. ;;192
  1. ;;21,"61392-0169-45 ")
  1. ;;193
  1. ;;21,"61392-0169-51 ")
  1. ;;194
  1. ;;21,"61392-0169-54 ")
  1. ;;195
  1. ;;21,"61392-0169-60 ")
  1. ;;196
  1. ;;21,"61392-0169-90 ")
  1. ;;197
  1. ;;21,"61392-0169-91 ")
  1. ;;198
  1. ;;21,"62584-0808-01 ")
  1. ;;119
  1. ;;21,"63304-0518-01 ")
  1. ;;229
  1. ;;21,"64727-3299-01 ")
  1. ;;311
  1. ;;21,"64727-3300-01 ")
  1. ;;341
  1. ;;21,"64727-3308-01 ")
  1. ;;258
  1. ;;21,"64727-3312-01 ")
  1. ;;281
  1. ;;21,"64727-7070-01 ")
  1. ;;312
  1. ;;21,"64727-7070-02 ")
  1. ;;313
  1. ;;21,"64727-7073-02 ")
  1. ;;342
  1. ;;21,"64727-7075-08 ")
  1. ;;343
  1. ;;21,"64727-7080-01 ")
  1. ;;259
  1. ;;21,"64727-7080-02 ")
  1. ;;260
  1. ;;21,"64727-7087-01 ")
  1. ;;282
  1. ;;21,"64727-7087-02 ")
  1. ;;283
  1. ;;21,"68115-0220-14 ")
  1. ;;230
  1. ;;21,"68115-0258-28 ")
  1. ;;120
  1. ;;21,"68115-0666-00 ")
  1. ;;349
  1. ;;9002226,634,.01)
  1. ;;BGP HEDIS OTHER NDC AVOID ELD
  1. ;;9002226,634,.02)
  1. ;;@
  1. ;;9002226,634,.04)
  1. ;;n
  1. ;;9002226,634,.06)
  1. ;;@
  1. ;;9002226,634,.08)
  1. ;;@
  1. ;;9002226,634,.09)
  1. ;;@
  1. ;;9002226,634,.11)
  1. ;;@
  1. ;;9002226,634,.12)
  1. ;;@
  1. ;;9002226,634,.13)
  1. ;;1
  1. ;;9002226,634,.14)
  1. ;;@
  1. ;;9002226,634,.15)
  1. ;;@
  1. ;;9002226,634,.16)
  1. ;;@
  1. ;;9002226,634,.17)
  1. ;;@
  1. ;;9002226,634,3101)
  1. ;;@
  1. ;;9002226.02101,"634,00076-0301-03 ",.01)
  1. ;;00076-0301-03
  1. ;;9002226.02101,"634,00076-0301-03 ",.02)
  1. ;;00076-0301-03
  1. ;;9002226.02101,"634,00076-0301-04 ",.01)
  1. ;;00076-0301-04
  1. ;;9002226.02101,"634,00076-0301-04 ",.02)
  1. ;;00076-0301-04
  1. ;;9002226.02101,"634,00115-3982-01 ",.01)
  1. ;;00115-3982-01
  1. ;;9002226.02101,"634,00115-3982-01 ",.02)
  1. ;;00115-3982-01
  1. ;;9002226.02101,"634,00115-3982-02 ",.01)
  1. ;;00115-3982-02
  1. ;;9002226.02101,"634,00115-3982-02 ",.02)
  1. ;;00115-3982-02
  1. ;;9002226.02101,"634,00115-3982-03 ",.01)
  1. ;;00115-3982-03
  1. ;;9002226.02101,"634,00115-3982-03 ",.02)
  1. ;;00115-3982-03
  1. ;;9002226.02101,"634,00115-3984-01 ",.01)
  1. ;;00115-3984-01
  1. ;;9002226.02101,"634,00115-3984-01 ",.02)
  1. ;;00115-3984-01
  1. ;;9002226.02101,"634,00115-3984-02 ",.01)
  1. ;;00115-3984-02
  1. ;;9002226.02101,"634,00115-3984-02 ",.02)
  1. ;;00115-3984-02
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGP8FXNB
  1. D ^BGP8FXNC
  1. D ^BGP8FXND
  1. D ^BGP8FXNE
  1. Q