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

BGP07A.m

Go to the documentation of this file.
  1. BGP07A ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
  1. ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
  1. ;;BGP HEDIS STATIN NDC
  1. ;
  1. ; This routine loads Taxonomy BGP HEDIS STATIN 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,"00003-5154-05 ")
  1. ;;1
  1. ;;21,"00003-5154-06 ")
  1. ;;2
  1. ;;21,"00003-5168-11 ")
  1. ;;3
  1. ;;21,"00003-5169-11 ")
  1. ;;4
  1. ;;21,"00003-5173-11 ")
  1. ;;5
  1. ;;21,"00003-5174-11 ")
  1. ;;6
  1. ;;21,"00003-5178-05 ")
  1. ;;7
  1. ;;21,"00003-5178-06 ")
  1. ;;8
  1. ;;21,"00003-5178-75 ")
  1. ;;9
  1. ;;21,"00003-5183-11 ")
  1. ;;10
  1. ;;21,"00003-5184-11 ")
  1. ;;11
  1. ;;21,"00003-5194-10 ")
  1. ;;12
  1. ;;21,"00003-5194-33 ")
  1. ;;13
  1. ;;21,"00003-5195-10 ")
  1. ;;14
  1. ;;21,"00003-5195-33 ")
  1. ;;15
  1. ;;21,"00006-0543-28 ")
  1. ;;16
  1. ;;21,"00006-0543-31 ")
  1. ;;17
  1. ;;21,"00006-0543-54 ")
  1. ;;18
  1. ;;21,"00006-0543-61 ")
  1. ;;19
  1. ;;21,"00006-0543-82 ")
  1. ;;20
  1. ;;21,"00006-0726-28 ")
  1. ;;21
  1. ;;21,"00006-0726-31 ")
  1. ;;22
  1. ;;21,"00006-0726-54 ")
  1. ;;23
  1. ;;21,"00006-0726-61 ")
  1. ;;24
  1. ;;21,"00006-0726-82 ")
  1. ;;25
  1. ;;21,"00006-0730-61 ")
  1. ;;26
  1. ;;21,"00006-0731-28 ")
  1. ;;27
  1. ;;21,"00006-0731-61 ")
  1. ;;28
  1. ;;21,"00006-0731-82 ")
  1. ;;29
  1. ;;21,"00006-0731-87 ")
  1. ;;30
  1. ;;21,"00006-0731-94 ")
  1. ;;31
  1. ;;21,"00006-0732-61 ")
  1. ;;32
  1. ;;21,"00006-0732-82 ")
  1. ;;33
  1. ;;21,"00006-0732-87 ")
  1. ;;34
  1. ;;21,"00006-0732-94 ")
  1. ;;35
  1. ;;21,"00006-0735-28 ")
  1. ;;36
  1. ;;21,"00006-0735-31 ")
  1. ;;37
  1. ;;21,"00006-0735-54 ")
  1. ;;38
  1. ;;21,"00006-0735-61 ")
  1. ;;39
  1. ;;21,"00006-0735-82 ")
  1. ;;40
  1. ;;21,"00006-0735-87 ")
  1. ;;41
  1. ;;21,"00006-0740-28 ")
  1. ;;42
  1. ;;21,"00006-0740-31 ")
  1. ;;43
  1. ;;21,"00006-0740-54 ")
  1. ;;44
  1. ;;21,"00006-0740-61 ")
  1. ;;45
  1. ;;21,"00006-0740-82 ")
  1. ;;46
  1. ;;21,"00006-0740-87 ")
  1. ;;47
  1. ;;21,"00006-0749-28 ")
  1. ;;48
  1. ;;21,"00006-0749-31 ")
  1. ;;49
  1. ;;21,"00006-0749-54 ")
  1. ;;50
  1. ;;21,"00006-0749-61 ")
  1. ;;51
  1. ;;21,"00006-0749-82 ")
  1. ;;52
  1. ;;21,"00069-2150-30 ")
  1. ;;53
  1. ;;21,"00069-2160-30 ")
  1. ;;54
  1. ;;21,"00069-2170-30 ")
  1. ;;55
  1. ;;21,"00069-2180-30 ")
  1. ;;56
  1. ;;21,"00069-2190-30 ")
  1. ;;57
  1. ;;21,"00069-2250-30 ")
  1. ;;58
  1. ;;21,"00069-2260-30 ")
  1. ;;59
  1. ;;21,"00069-2270-30 ")
  1. ;;60
  1. ;;21,"00069-2960-30 ")
  1. ;;61
  1. ;;21,"00069-2970-30 ")
  1. ;;62
  1. ;;21,"00069-2980-30 ")
  1. ;;63
  1. ;;21,"00071-0155-23 ")
  1. ;;64
  1. ;;21,"00071-0155-34 ")
  1. ;;65
  1. ;;21,"00071-0155-40 ")
  1. ;;66
  1. ;;21,"00071-0156-23 ")
  1. ;;67
  1. ;;21,"00071-0156-40 ")
  1. ;;68
  1. ;;21,"00071-0156-94 ")
  1. ;;69
  1. ;;21,"00071-0157-23 ")
  1. ;;70
  1. ;;21,"00071-0157-73 ")
  1. ;;71
  1. ;;21,"00071-0158-23 ")
  1. ;;72
  1. ;;21,"00071-0158-73 ")
  1. ;;73
  1. ;;21,"00078-0176-05 ")
  1. ;;74
  1. ;;21,"00078-0176-15 ")
  1. ;;75
  1. ;;21,"00078-0234-05 ")
  1. ;;76
  1. ;;21,"00078-0234-15 ")
  1. ;;77
  1. ;;21,"00078-0354-05 ")
  1. ;;78
  1. ;;21,"00078-0354-15 ")
  1. ;;79
  1. ;;21,"00093-0576-06 ")
  1. ;;80
  1. ;;21,"00093-0576-10 ")
  1. ;;81
  1. ;;21,"00093-0926-06 ")
  1. ;;82
  1. ;;21,"00093-0926-10 ")
  1. ;;83
  1. ;;21,"00093-0928-06 ")
  1. ;;84
  1. ;;21,"00093-0928-10 ")
  1. ;;85
  1. ;;21,"00185-0070-01 ")
  1. ;;86
  1. ;;21,"00185-0070-10 ")
  1. ;;87
  1. ;;21,"00185-0070-60 ")
  1. ;;88
  1. ;;21,"00185-0072-01 ")
  1. ;;89
  1. ;;21,"00185-0072-10 ")
  1. ;;90
  1. ;;21,"00185-0072-60 ")
  1. ;;91
  1. ;;21,"00185-0074-01 ")
  1. ;;92
  1. ;;21,"00185-0074-10 ")
  1. ;;93
  1. ;;21,"00185-0074-60 ")
  1. ;;94
  1. ;;21,"00228-2633-06 ")
  1. ;;95
  1. ;;21,"00228-2633-50 ")
  1. ;;96
  1. ;;21,"00228-2634-06 ")
  1. ;;97
  1. ;;21,"00228-2634-50 ")
  1. ;;98
  1. ;;21,"00228-2635-06 ")
  1. ;;99
  1. ;;21,"00228-2635-50 ")
  1. ;;100
  1. ;;21,"00247-1139-30 ")
  1. ;;101
  1. ;;21,"00247-1139-60 ")
  1. ;;102
  1. ;;21,"00247-1140-30 ")
  1. ;;103
  1. ;;21,"00247-1152-30 ")
  1. ;;104
  1. ;;21,"00247-1152-60 ")
  1. ;;105
  1. ;;21,"00247-1153-30 ")
  1. ;;106
  1. ;;21,"00247-1153-60 ")
  1. ;;107
  1. ;;21,"00247-1276-30 ")
  1. ;;108
  1. ;;21,"00310-0751-39 ")
  1. ;;109
  1. ;;21,"00310-0751-90 ")
  1. ;;110
  1. ;;21,"00310-0752-39 ")
  1. ;;111
  1. ;;21,"00310-0752-90 ")
  1. ;;112
  1. ;;21,"00310-0754-30 ")
  1. ;;113
  1. ;;21,"00310-0755-90 ")
  1. ;;114
  1. ;;21,"00378-6510-91 ")
  1. ;;115
  1. ;;21,"00378-6520-05 ")
  1. ;;116
  1. ;;21,"00378-6520-91 ")
  1. ;;117
  1. ;;21,"00378-6540-05 ")
  1. ;;118
  1. ;;21,"00378-6540-91 ")
  1. ;;119
  1. ;;21,"00781-1210-10 ")
  1. ;;120
  1. ;;21,"00781-1210-60 ")
  1. ;;121
  1. ;;21,"00781-1213-10 ")
  1. ;;122
  1. ;;21,"00781-1213-60 ")
  1. ;;123
  1. ;;21,"00781-1323-05 ")
  1. ;;124
  1. ;;21,"00781-1323-60 ")
  1. ;;125
  1. ;;21,"12280-0038-90 ")
  1. ;;126
  1. ;;21,"12280-0108-60 ")
  1. ;;127
  1. ;;21,"12280-0181-30 ")
  1. ;;128
  1. ;;21,"49884-0754-01 ")
  1. ;;129
  1. ;;21,"49884-0754-10 ")
  1. ;;130
  1. ;;21,"49884-0755-01 ")
  1. ;;131
  1. ;;21,"49884-0755-10 ")
  1. ;;132
  1. ;;21,"49884-0756-01 ")
  1. ;;133
  1. ;;21,"49884-0756-10 ")
  1. ;;134
  1. ;;21,"49999-0293-30 ")
  1. ;;135
  1. ;;21,"49999-0306-30 ")
  1. ;;136
  1. ;;21,"49999-0392-30 ")
  1. ;;137
  1. ;;21,"49999-0470-60 ")
  1. ;;138
  1. ;;21,"49999-0471-30 ")
  1. ;;139
  1. ;;21,"49999-0471-60 ")
  1. ;;140
  1. ;;21,"51079-0974-01 ")
  1. ;;141
  1. ;;21,"51079-0974-20 ")
  1. ;;142
  1. ;;21,"51079-0975-01 ")
  1. ;;143
  1. ;;21,"51079-0975-20 ")
  1. ;;144
  1. ;;21,"51079-0976-01 ")
  1. ;;145
  1. ;;21,"51079-0976-20 ")
  1. ;;146
  1. ;;21,"52959-0046-30 ")
  1. ;;147
  1. ;;21,"52959-0112-30 ")
  1. ;;148
  1. ;;21,"52959-0720-30 ")
  1. ;;149
  1. ;;21,"54569-0613-00 ")
  1. ;;150
  1. ;;21,"54569-0613-01 ")
  1. ;;151
  1. ;;21,"54569-0613-02 ")
  1. ;;152
  1. ;;21,"54569-0613-03 ")
  1. ;;153
  1. ;;21,"54569-0613-04 ")
  1. ;;154
  1. ;;21,"54569-3256-00 ")
  1. ;;155
  1. ;;21,"54569-3256-01 ")
  1. ;;156
  1. ;;21,"54569-3821-00 ")
  1. ;;157
  1. ;;21,"54569-3821-01 ")
  1. ;;158
  1. ;;21,"54569-3840-00 ")
  1. ;;159
  1. ;;21,"54569-4180-00 ")
  1. ;;160
  1. ;;21,"54569-4180-01 ")
  1. ;;161
  1. ;;21,"54569-4346-00 ")
  1. ;;162
  1. ;;21,"54569-4346-01 ")
  1. ;;163
  1. ;;21,"54569-4403-00 ")
  1. ;;164
  1. ;;21,"54569-4404-00 ")
  1. ;;165
  1. ;;21,"54569-4466-00 ")
  1. ;;166
  1. ;;21,"54569-4466-01 ")
  1. ;;167
  1. ;;21,"54569-4467-00 ")
  1. ;;168
  1. ;;21,"54569-4584-00 ")
  1. ;;169
  1. ;;21,"54569-4587-00 ")
  1. ;;170
  1. ;;21,"54569-4610-00 ")
  1. ;;171
  1. ;;21,"54569-4761-00 ")
  1. ;;172
  1. ;;21,"54569-4761-01 ")
  1. ;;173
  1. ;;21,"54569-5345-00 ")
  1. ;;174
  1. ;;21,"54569-5346-00 ")
  1. ;;175
  1. ;;21,"54569-5347-00 ")
  1. ;;176
  1. ;;21,"54569-5382-00 ")
  1. ;;177
  1. ;;21,"54569-5498-00 ")
  1. ;;178
  1. ;;21,"54569-5600-00 ")
  1. ;;179
  1. ;;21,"54569-5640-00 ")
  1. ;;180
  1. ;;21,"54569-5648-00 ")
  1. ;;181
  1. ;;21,"54569-5672-00 ")
  1. ;;182
  1. ;;21,"54569-8011-00 ")
  1. ;;183
  1. ;;21,"54569-8598-00 ")
  1. ;;184
  1. ;;21,"54868-0686-01 ")
  1. ;;185
  1. ;;21,"54868-0686-02 ")
  1. ;;186
  1. ;;21,"54868-0686-03 ")
  1. ;;187
  1. ;;21,"54868-0686-04 ")
  1. ;;188
  1. ;;21,"54868-1087-00 ")
  1. ;;189
  1. ;;21,"54868-1087-01 ")
  1. ;;190
  1. ;;21,"54868-1207-00 ")
  1. ;;191
  1. ;;21,"54868-1890-00 ")
  1. ;;192
  1. ;;21,"54868-1968-00 ")
  1. ;;193
  1. ;;21,"54868-2287-01 ")
  1. ;;194
  1. ;;21,"54868-2287-02 ")
  1. ;;195
  1. ;;21,"54868-2288-00 ")
  1. ;;196
  1. ;;21,"54868-2639-00 ")
  1. ;;197
  1. ;;21,"54868-2639-01 ")
  1. ;;198
  1. ;;21,"54868-3104-00 ")
  1. ;;199
  1. ;;21,"54868-3104-01 ")
  1. ;;200
  1. ;;21,"54868-3270-00 ")
  1. ;;201
  1. ;;21,"54868-3270-01 ")
  1. ;;202
  1. ;;21,"54868-3270-02 ")
  1. ;;203
  1. ;;21,"54868-3287-00 ")
  1. ;;204
  1. ;;21,"54868-3329-00 ")
  1. ;;205
  1. ;;21,"54868-3934-00 ")
  1. ;;206
  1. ;;21,"54868-3934-01 ")
  1. ;;207
  1. ;;21,"54868-3934-02 ")
  1. ;;208
  1. ;;21,"54868-3946-00 ")
  1. ;;209
  1. ;;21,"54868-3946-01 ")
  1. ;;210
  1. ;;21,"54868-3946-02 ")
  1. ;;211
  1. ;;21,"54868-3946-03 ")
  1. ;;212
  1. ;;21,"54868-4157-00 ")
  1. ;;213
  1. ;;21,"54868-4181-00 ")
  1. ;;214
  1. ;;21,"54868-4181-01 ")
  1. ;;215
  1. ;;21,"54868-4224-00 ")
  1. ;;216
  1. ;;21,"54868-4224-01 ")
  1. ;;217
  1. ;;21,"54868-4229-00 ")
  1. ;;218
  1. ;;21,"54868-4229-01 ")
  1. ;;219
  1. ;;21,"54868-4229-02 ")
  1. ;;220
  1. ;;21,"54868-4585-00 ")
  1. ;;221
  1. ;;21,"54868-4585-01 ")
  1. ;;222
  1. ;;21,"54868-4585-02 ")
  1. ;;223
  1. ;;21,"54868-4585-03 ")
  1. ;;224
  1. ;;21,"54868-4593-00 ")
  1. ;;225
  1. ;;21,"54868-4601-00 ")
  1. ;;226
  1. ;;21,"54868-4634-00 ")
  1. ;;227
  1. ;;21,"54868-4774-00 ")
  1. ;;228
  1. ;;21,"54868-4774-01 ")
  1. ;;229
  1. ;;21,"54868-4774-02 ")
  1. ;;230
  1. ;;21,"54868-4807-00 ")
  1. ;;231
  1. ;;21,"54868-4807-01 ")
  1. ;;232
  1. ;;21,"54868-4807-02 ")
  1. ;;233
  1. ;;21,"54868-4934-00 ")
  1. ;;234
  1. ;;21,"54868-4963-00 ")
  1. ;;235
  1. ;;21,"54868-4963-01 ")
  1. ;;236
  1. ;;21,"54868-4963-02 ")
  1. ;;237
  1. ;;21,"54868-4963-03 ")
  1. ;;238
  1. ;;21,"54868-4999-00 ")
  1. ;;239
  1. ;;21,"54868-4999-01 ")
  1. ;;240
  1. ;;21,"54868-5085-00 ")
  1. ;;241
  1. ;;21,"54868-5085-01 ")
  1. ;;242
  1. ;;21,"54868-5085-02 ")
  1. ;;243
  1. ;;21,"54868-5087-00 ")
  1. ;;244
  1. ;;21,"54868-5179-00 ")
  1. ;;245
  1. ;;21,"54868-5187-00 ")
  1. ;;246
  1. ;;21,"54868-5189-00 ")
  1. ;;247
  1. ;;21,"54868-5200-00 ")
  1. ;;248
  1. ;;21,"54868-5209-00 ")
  1. ;;249
  1. ;;21,"54868-5250-00 ")
  1. ;;250
  1. ;;21,"54868-5259-00 ")
  1. ;;251
  1. ;;21,"55175-3002-03 ")
  1. ;;252
  1. ;;21,"55175-5325-03 ")
  1. ;;253
  1. ;;21,"55175-5325-09 ")
  1. ;;254
  1. ;;21,"55175-5390-03 ")
  1. ;;255
  1. ;;21,"55289-0104-30 ")
  1. ;;256
  1. ;;21,"55289-0400-30 ")
  1. ;;257
  1. ;;21,"55289-0476-30 ")
  1. ;;258
  1. ;;21,"55289-0548-30 ")
  1. ;;259
  1. ;;21,"55289-0692-14 ")
  1. ;;260
  1. ;;21,"55289-0740-60 ")
  1. ;;261
  1. ;;21,"55289-0800-30 ")
  1. ;;262
  1. ;;21,"55289-0861-30 ")
  1. ;;263
  1. ;;21,"55289-0870-30 ")
  1. ;;264
  1. ;;21,"55289-0871-30 ")
  1. ;;265
  1. ;;21,"55289-0873-30 ")
  1. ;;266
  1. ;;21,"55289-0874-30 ")
  1. ;;267
  1. ;;21,"57866-7982-01 ")
  1. ;;268
  1. ;;21,"57866-7983-01 ")
  1. ;;269
  1. ;;21,"57866-7986-01 ")
  1. ;;270
  1. ;;21,"57866-8615-01 ")
  1. ;;271
  1. ;;21,"58016-0364-00 ")
  1. ;;272
  1. ;;21,"58016-0364-30 ")
  1. ;;273
  1. ;;21,"58016-0364-60 ")
  1. ;;274
  1. ;;21,"58016-0364-90 ")
  1. ;;275
  1. ;;21,"58016-0365-00 ")
  1. ;;276
  1. ;;21,"58016-0365-30 ")
  1. ;;277
  1. ;;21,"58016-0365-60 ")
  1. ;;278
  1. ;;21,"58016-0365-90 ")
  1. ;;279
  1. ;;21,"58016-0385-00 ")
  1. ;;280
  1. ;;21,"58016-0385-30 ")
  1. ;;281
  1. ;;21,"58016-0385-60 ")
  1. ;;282
  1. ;;21,"58016-0385-90 ")
  1. ;;283
  1. ;;21,"58016-0425-00 ")
  1. ;;284
  1. ;;21,"58016-0425-30 ")
  1. ;;285
  1. ;;21,"58016-0425-60 ")
  1. ;;286
  1. ;;21,"58016-0425-90 ")
  1. ;;287
  1. ;;21,"58016-0546-00 ")
  1. ;;288
  1. ;;21,"58016-0979-00 ")
  1. ;;289
  1. ;;21,"58016-0979-20 ")
  1. ;;290
  1. ;;21,"58016-0979-30 ")
  1. ;;291
  1. ;;21,"58016-0979-60 ")
  1. ;;292
  1. ;;21,"58016-0979-90 ")
  1. ;;293
  1. ;;21,"58864-0608-30 ")
  1. ;;294
  1. ;;21,"58864-0623-15 ")
  1. ;;295
  1. ;;21,"58864-0623-30 ")
  1. ;;296
  1. ;;21,"58864-0653-30 ")
  1. ;;297
  1. ;;21,"58864-0682-30 ")
  1. ;;298
  1. ;;21,"58864-0685-30 ")
  1. ;;299
  1. ;;21,"58864-0739-30 ")
  1. ;;300
  1. ;;21,"58864-0743-15 ")
  1. ;;301
  1. ;;21,"58864-0743-30 ")
  1. ;;302
  1. ;;21,"58864-0760-30 ")
  1. ;;303
  1. ;;21,"58864-0780-30 ")
  1. ;;304
  1. ;;21,"58864-0781-30 ")
  1. ;;305
  1. ;;21,"60598-0006-90 ")
  1. ;;306
  1. ;;21,"60598-0007-90 ")
  1. ;;307
  1. ;;21,"60598-0008-90 ")
  1. ;;308
  1. ;;21,"62022-0627-30 ")
  1. ;;309
  1. ;;21,"62022-0628-30 ")
  1. ;;310
  1. ;;21,"62022-0629-30 ")
  1. ;;311
  1. ;;21,"62022-0630-30 ")
  1. ;;312
  1. ;;21,"62022-0770-30 ")
  1. ;;313
  1. ;;21,"62022-0780-30 ")
  1. ;;314
  1. ;;21,"62022-0781-30 ")
  1. ;;315
  1. ;;21,"63739-0280-15 ")
  1. ;;316
  1. ;;21,"63739-0281-15 ")
  1. ;;317
  1. ;;21,"66116-0238-30 ")
  1. ;;318
  1. ;;21,"66116-0276-30 ")
  1. ;;319
  1. ;;21,"66116-0277-30 ")
  1. ;;320
  1. ;;21,"66116-0451-30 ")
  1. ;;321
  1. ;;21,"66582-0311-31 ")
  1. ;;322
  1. ;;21,"66582-0311-54 ")
  1. ;;323
  1. ;;21,"66582-0311-82 ")
  1. ;;324
  1. ;;21,"66582-0312-31 ")
  1. ;;325
  1. ;;21,"66582-0312-54 ")
  1. ;;326
  1. ;;21,"66582-0312-82 ")
  1. ;;327
  1. ;;21,"66582-0313-31 ")
  1. ;;328
  1. ;;21,"66582-0313-52 ")
  1. ;;329
  1. ;;21,"66582-0313-54 ")
  1. ;;330
  1. ;;21,"66582-0313-74 ")
  1. ;;331
  1. ;;21,"66582-0315-31 ")
  1. ;;332
  1. ;;21,"66582-0315-54 ")
  1. ;;333
  1. ;;21,"66582-0315-74 ")
  1. ;;334
  1. ;;21,"68030-8615-01 ")
  1. ;;335
  1. ;;21,"68115-0218-30 ")
  1. ;;336
  1. ;;21,"68115-0219-30 ")
  1. ;;337
  1. ;;21,"68115-0219-60 ")
  1. ;;338
  1. ;;21,"68115-0658-00 ")
  1. ;;339
  1. ;;21,"68115-0664-90 ")
  1. ;;340
  1. ;;21,"68115-0668-90 ")
  1. ;;341
  1. ;;21,"68115-0672-30 ")
  1. ;;342
  1. ;;21,"68115-0720-30 ")
  1. ;;343
  1. ;;21,"68115-0759-30 ")
  1. ;;344
  1. ;;21,"68115-0777-90 ")
  1. ;;345
  1. ;;21,"68115-0800-90 ")
  1. ;;346
  1. ;;21,"68115-0836-90 ")
  1. ;;347
  1. ;;9002226,981,.01)
  1. ;;BGP HEDIS STATIN NDC
  1. ;;9002226,981,.02)
  1. ;;@
  1. ;;9002226,981,.04)
  1. ;;n
  1. ;;9002226,981,.06)
  1. ;;@
  1. ;;9002226,981,.08)
  1. ;;@
  1. ;;9002226,981,.09)
  1. ;;@
  1. ;;9002226,981,.11)
  1. ;;@
  1. ;;9002226,981,.12)
  1. ;;@
  1. ;;9002226,981,.13)
  1. ;;1
  1. ;;9002226,981,.14)
  1. ;;@
  1. ;;9002226,981,.15)
  1. ;;@
  1. ;;9002226,981,.16)
  1. ;;@
  1. ;;9002226,981,.17)
  1. ;;@
  1. ;;9002226,981,3101)
  1. ;;@
  1. ;;9002226.02101,"981,00003-5154-05 ",.01)
  1. ;;00003-5154-05
  1. ;;9002226.02101,"981,00003-5154-05 ",.02)
  1. ;;00003-5154-05
  1. ;;9002226.02101,"981,00003-5154-06 ",.01)
  1. ;;00003-5154-06
  1. ;;9002226.02101,"981,00003-5154-06 ",.02)
  1. ;;00003-5154-06
  1. ;;9002226.02101,"981,00003-5168-11 ",.01)
  1. ;;00003-5168-11
  1. ;;9002226.02101,"981,00003-5168-11 ",.02)
  1. ;;00003-5168-11
  1. ;;9002226.02101,"981,00003-5169-11 ",.01)
  1. ;;00003-5169-11
  1. ;;9002226.02101,"981,00003-5169-11 ",.02)
  1. ;;00003-5169-11
  1. ;;9002226.02101,"981,00003-5173-11 ",.01)
  1. ;;00003-5173-11
  1. ;;9002226.02101,"981,00003-5173-11 ",.02)
  1. ;;00003-5173-11
  1. ;;9002226.02101,"981,00003-5174-11 ",.01)
  1. ;;00003-5174-11
  1. ;;9002226.02101,"981,00003-5174-11 ",.02)
  1. ;;00003-5174-11
  1. ;;9002226.02101,"981,00003-5178-05 ",.01)
  1. ;;00003-5178-05
  1. ;;9002226.02101,"981,00003-5178-05 ",.02)
  1. ;;00003-5178-05
  1. ;;9002226.02101,"981,00003-5178-06 ",.01)
  1. ;;00003-5178-06
  1. ;;9002226.02101,"981,00003-5178-06 ",.02)
  1. ;;00003-5178-06
  1. ;;9002226.02101,"981,00003-5178-75 ",.01)
  1. ;;00003-5178-75
  1. ;;9002226.02101,"981,00003-5178-75 ",.02)
  1. ;;00003-5178-75
  1. ;;9002226.02101,"981,00003-5183-11 ",.01)
  1. ;;00003-5183-11
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGP07A2
  1. D ^BGP07A3
  1. D ^BGP07A4
  1. D ^BGP07A5
  1. D ^BGP07A6
  1. D ^BGP07A7
  1. D ^BGP07A8
  1. D ^BGP07A9
  1. Q