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

BGP61D.m

Go to the documentation of this file.
  1. BGP61D ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;
  1. ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
  1. ;;BGP HEDIS SKL MUSCLE RELAX NDC
  1. ;
  1. ; This routine loads Taxonomy BGP HEDIS SKL MUSCLE RELAX 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,"00037-2001-01 ")
  1. ;;1
  1. ;;21,"00037-2250-10 ")
  1. ;;2
  1. ;;21,"00037-2250-30 ")
  1. ;;3
  1. ;;21,"00091-7429-63 ")
  1. ;;4
  1. ;;21,"00091-7449-63 ")
  1. ;;5
  1. ;;21,"00115-2011-01 ")
  1. ;;6
  1. ;;21,"00115-2011-02 ")
  1. ;;7
  1. ;;21,"00143-1176-01 ")
  1. ;;8
  1. ;;21,"00143-1176-05 ")
  1. ;;9
  1. ;;21,"00143-1176-10 ")
  1. ;;10
  1. ;;21,"00143-1290-01 ")
  1. ;;11
  1. ;;21,"00143-1290-05 ")
  1. ;;12
  1. ;;21,"00143-1292-01 ")
  1. ;;13
  1. ;;21,"00143-1292-05 ")
  1. ;;14
  1. ;;21,"00143-9749-01 ")
  1. ;;15
  1. ;;21,"00143-9749-05 ")
  1. ;;16
  1. ;;21,"00143-9749-10 ")
  1. ;;17
  1. ;;21,"00179-0057-30 ")
  1. ;;18
  1. ;;21,"00185-0022-01 ")
  1. ;;19
  1. ;;21,"00185-0022-10 ")
  1. ;;20
  1. ;;21,"00185-0448-01 ")
  1. ;;21
  1. ;;21,"00185-0448-10 ")
  1. ;;22
  1. ;;21,"00185-0713-01 ")
  1. ;;23
  1. ;;21,"00185-0713-05 ")
  1. ;;24
  1. ;;21,"00185-0714-01 ")
  1. ;;25
  1. ;;21,"00185-0724-01 ")
  1. ;;26
  1. ;;21,"00185-0724-05 ")
  1. ;;27
  1. ;;21,"00185-0749-01 ")
  1. ;;28
  1. ;;21,"00378-0751-01 ")
  1. ;;29
  1. ;;21,"00378-0751-05 ")
  1. ;;30
  1. ;;21,"00378-0751-10 ")
  1. ;;31
  1. ;;21,"00378-0751-93 ")
  1. ;;32
  1. ;;21,"00378-0761-01 ")
  1. ;;33
  1. ;;21,"00378-0771-01 ")
  1. ;;34
  1. ;;21,"00378-0771-05 ")
  1. ;;35
  1. ;;21,"00378-0771-93 ")
  1. ;;36
  1. ;;21,"00440-1350-09 ")
  1. ;;37
  1. ;;21,"00440-1740-40 ")
  1. ;;38
  1. ;;21,"00440-7238-04 ")
  1. ;;39
  1. ;;21,"00440-7238-20 ")
  1. ;;40
  1. ;;21,"00440-7238-30 ")
  1. ;;41
  1. ;;21,"00440-7238-40 ")
  1. ;;42
  1. ;;21,"00440-7238-90 ")
  1. ;;43
  1. ;;21,"00440-7238-91 ")
  1. ;;44
  1. ;;21,"00440-7239-20 ")
  1. ;;45
  1. ;;21,"00440-7239-40 ")
  1. ;;46
  1. ;;21,"00440-7270-10 ")
  1. ;;47
  1. ;;21,"00440-7270-20 ")
  1. ;;48
  1. ;;21,"00440-7270-28 ")
  1. ;;49
  1. ;;21,"00440-7270-30 ")
  1. ;;50
  1. ;;21,"00440-7270-40 ")
  1. ;;51
  1. ;;21,"00440-7350-02 ")
  1. ;;52
  1. ;;21,"00440-7350-03 ")
  1. ;;53
  1. ;;21,"00440-7350-04 ")
  1. ;;54
  1. ;;21,"00440-7350-06 ")
  1. ;;55
  1. ;;21,"00440-7350-09 ")
  1. ;;56
  1. ;;21,"00440-7350-10 ")
  1. ;;57
  1. ;;21,"00440-7350-12 ")
  1. ;;58
  1. ;;21,"00440-7350-15 ")
  1. ;;59
  1. ;;21,"00440-7350-21 ")
  1. ;;60
  1. ;;21,"00440-7350-30 ")
  1. ;;61
  1. ;;21,"00440-7350-60 ")
  1. ;;62
  1. ;;21,"00440-7350-81 ")
  1. ;;63
  1. ;;21,"00440-7350-85 ")
  1. ;;64
  1. ;;21,"00440-7350-89 ")
  1. ;;65
  1. ;;21,"00440-7350-90 ")
  1. ;;66
  1. ;;21,"00440-7740-10 ")
  1. ;;67
  1. ;;21,"00440-7740-12 ")
  1. ;;68
  1. ;;21,"00440-7740-20 ")
  1. ;;69
  1. ;;21,"00440-7740-24 ")
  1. ;;70
  1. ;;21,"00440-7740-28 ")
  1. ;;71
  1. ;;21,"00440-7740-40 ")
  1. ;;72
  1. ;;21,"00440-7740-60 ")
  1. ;;73
  1. ;;21,"00440-7740-81 ")
  1. ;;74
  1. ;;21,"00440-7740-85 ")
  1. ;;75
  1. ;;21,"00440-7740-89 ")
  1. ;;76
  1. ;;21,"00440-7740-90 ")
  1. ;;77
  1. ;;21,"00440-7740-91 ")
  1. ;;78
  1. ;;21,"00440-7740-92 ")
  1. ;;79
  1. ;;21,"00440-7741-04 ")
  1. ;;80
  1. ;;21,"00440-7741-06 ")
  1. ;;81
  1. ;;21,"00440-7741-20 ")
  1. ;;82
  1. ;;21,"00440-7741-30 ")
  1. ;;83
  1. ;;21,"00440-7741-40 ")
  1. ;;84
  1. ;;21,"00440-7741-90 ")
  1. ;;85
  1. ;;21,"00440-7741-92 ")
  1. ;;86
  1. ;;21,"00440-7880-14 ")
  1. ;;87
  1. ;;21,"00440-7880-20 ")
  1. ;;88
  1. ;;21,"00440-7880-28 ")
  1. ;;89
  1. ;;21,"00440-7880-40 ")
  1. ;;90
  1. ;;21,"00440-7880-60 ")
  1. ;;91
  1. ;;21,"00527-1152-01 ")
  1. ;;92
  1. ;;21,"00527-1152-05 ")
  1. ;;93
  1. ;;21,"00527-1302-01 ")
  1. ;;94
  1. ;;21,"00527-1302-05 ")
  1. ;;95
  1. ;;21,"00555-0585-02 ")
  1. ;;96
  1. ;;21,"00555-0585-04 ")
  1. ;;97
  1. ;;21,"00591-2520-01 ")
  1. ;;98
  1. ;;21,"00591-2520-05 ")
  1. ;;99
  1. ;;21,"00591-3222-02 ")
  1. ;;100
  1. ;;21,"00591-3222-47 ")
  1. ;;101
  1. ;;21,"00591-3256-01 ")
  1. ;;102
  1. ;;21,"00591-5381-01 ")
  1. ;;103
  1. ;;21,"00591-5381-05 ")
  1. ;;104
  1. ;;21,"00591-5382-01 ")
  1. ;;105
  1. ;;21,"00591-5382-05 ")
  1. ;;106
  1. ;;21,"00591-5513-01 ")
  1. ;;107
  1. ;;21,"00591-5513-05 ")
  1. ;;108
  1. ;;21,"00591-5513-10 ")
  1. ;;109
  1. ;;21,"00591-5658-01 ")
  1. ;;110
  1. ;;21,"00591-5658-05 ")
  1. ;;111
  1. ;;21,"00591-5658-10 ")
  1. ;;112
  1. ;;21,"00603-2582-21 ")
  1. ;;113
  1. ;;21,"00603-2582-28 ")
  1. ;;114
  1. ;;21,"00603-2582-32 ")
  1. ;;115
  1. ;;21,"00603-3078-21 ")
  1. ;;116
  1. ;;21,"00603-3078-28 ")
  1. ;;117
  1. ;;21,"00603-3079-02 ")
  1. ;;118
  1. ;;21,"00603-3079-03 ")
  1. ;;119
  1. ;;21,"00603-3079-04 ")
  1. ;;120
  1. ;;21,"00603-3079-21 ")
  1. ;;121
  1. ;;21,"00603-3079-28 ")
  1. ;;122
  1. ;;21,"00603-3079-32 ")
  1. ;;123
  1. ;;21,"00603-3079-34 ")
  1. ;;124
  1. ;;21,"00603-4485-21 ")
  1. ;;125
  1. ;;21,"00603-4485-28 ")
  1. ;;126
  1. ;;21,"00603-4486-21 ")
  1. ;;127
  1. ;;21,"00603-4486-28 ")
  1. ;;128
  1. ;;21,"00603-4486-32 ")
  1. ;;129
  1. ;;21,"00641-6103-01 ")
  1. ;;130
  1. ;;21,"00641-6103-25 ")
  1. ;;131
  1. ;;21,"00781-1324-01 ")
  1. ;;132
  1. ;;21,"00781-1324-10 ")
  1. ;;133
  1. ;;21,"00781-1750-01 ")
  1. ;;134
  1. ;;21,"00781-1760-01 ")
  1. ;;135
  1. ;;21,"00781-5005-01 ")
  1. ;;136
  1. ;;21,"00781-5005-05 ")
  1. ;;137
  1. ;;21,"00781-5032-10 ")
  1. ;;138
  1. ;;21,"00904-2364-40 ")
  1. ;;139
  1. ;;21,"00904-2364-60 ")
  1. ;;140
  1. ;;21,"00904-2365-40 ")
  1. ;;141
  1. ;;21,"00904-2365-60 ")
  1. ;;142
  1. ;;21,"00904-5238-60 ")
  1. ;;143
  1. ;;21,"00904-7809-60 ")
  1. ;;144
  1. ;;21,"00904-7809-61 ")
  1. ;;145
  1. ;;21,"10135-0506-01 ")
  1. ;;146
  1. ;;21,"10135-0507-01 ")
  1. ;;147
  1. ;;21,"10135-0507-05 ")
  1. ;;148
  1. ;;21,"10135-0507-10 ")
  1. ;;149
  1. ;;21,"10135-0594-01 ")
  1. ;;150
  1. ;;21,"10135-0595-01 ")
  1. ;;151
  1. ;;21,"10135-0595-05 ")
  1. ;;152
  1. ;;21,"10135-0595-10 ")
  1. ;;153
  1. ;;21,"10139-0230-02 ")
  1. ;;154
  1. ;;21,"10139-0230-10 ")
  1. ;;155
  1. ;;21,"10544-0002-20 ")
  1. ;;156
  1. ;;21,"10544-0033-30 ")
  1. ;;157
  1. ;;21,"10544-0072-02 ")
  1. ;;158
  1. ;;21,"10544-0072-10 ")
  1. ;;159
  1. ;;21,"10544-0072-14 ")
  1. ;;160
  1. ;;21,"10544-0072-15 ")
  1. ;;161
  1. ;;21,"10544-0072-20 ")
  1. ;;162
  1. ;;21,"10544-0072-21 ")
  1. ;;163
  1. ;;21,"10544-0072-30 ")
  1. ;;164
  1. ;;21,"10544-0072-45 ")
  1. ;;165
  1. ;;21,"10544-0072-60 ")
  1. ;;166
  1. ;;21,"10544-0072-84 ")
  1. ;;167
  1. ;;21,"10544-0072-90 ")
  1. ;;168
  1. ;;21,"10544-0132-30 ")
  1. ;;169
  1. ;;21,"10544-0159-09 ")
  1. ;;170
  1. ;;21,"10544-0159-15 ")
  1. ;;171
  1. ;;21,"10544-0159-20 ")
  1. ;;172
  1. ;;21,"10544-0159-30 ")
  1. ;;173
  1. ;;21,"10544-0259-20 ")
  1. ;;174
  1. ;;21,"10544-0283-20 ")
  1. ;;175
  1. ;;21,"10544-0464-00 ")
  1. ;;176
  1. ;;21,"10544-0464-02 ")
  1. ;;177
  1. ;;21,"10544-0464-30 ")
  1. ;;178
  1. ;;21,"10544-0464-60 ")
  1. ;;179
  1. ;;21,"10544-0464-90 ")
  1. ;;180
  1. ;;21,"10544-0524-20 ")
  1. ;;181
  1. ;;21,"10544-0622-20 ")
  1. ;;182
  1. ;;21,"10544-0773-18 ")
  1. ;;183
  1. ;;21,"10544-0773-20 ")
  1. ;;184
  1. ;;21,"10544-0773-30 ")
  1. ;;185
  1. ;;21,"10544-0773-60 ")
  1. ;;186
  1. ;;21,"10544-0773-90 ")
  1. ;;187
  1. ;;21,"10702-0006-01 ")
  1. ;;188
  1. ;;21,"10702-0006-03 ")
  1. ;;189
  1. ;;21,"10702-0006-10 ")
  1. ;;190
  1. ;;21,"10702-0006-50 ")
  1. ;;191
  1. ;;21,"10702-0007-01 ")
  1. ;;192
  1. ;;21,"10702-0007-03 ")
  1. ;;193
  1. ;;21,"10702-0007-05 ")
  1. ;;194
  1. ;;21,"10702-0007-10 ")
  1. ;;195
  1. ;;21,"10702-0007-50 ")
  1. ;;196
  1. ;;21,"12634-0437-12 ")
  1. ;;197
  1. ;;21,"12634-0437-60 ")
  1. ;;198
  1. ;;21,"12634-0437-71 ")
  1. ;;199
  1. ;;21,"12634-0437-90 ")
  1. ;;200
  1. ;;21,"12634-0528-00 ")
  1. ;;201
  1. ;;21,"12634-0528-45 ")
  1. ;;202
  1. ;;21,"12634-0528-60 ")
  1. ;;203
  1. ;;21,"12634-0528-71 ")
  1. ;;204
  1. ;;21,"12634-0528-81 ")
  1. ;;205
  1. ;;21,"12634-0528-85 ")
  1. ;;206
  1. ;;21,"12634-0528-90 ")
  1. ;;207
  1. ;;21,"12634-0836-71 ")
  1. ;;208
  1. ;;21,"12634-0836-90 ")
  1. ;;209
  1. ;;21,"16590-0039-07 ")
  1. ;;210
  1. ;;21,"16590-0039-20 ")
  1. ;;211
  1. ;;21,"16590-0039-28 ")
  1. ;;212
  1. ;;21,"16590-0039-30 ")
  1. ;;213
  1. ;;21,"16590-0039-40 ")
  1. ;;214
  1. ;;21,"16590-0039-45 ")
  1. ;;215
  1. ;;21,"16590-0039-56 ")
  1. ;;216
  1. ;;21,"16590-0039-60 ")
  1. ;;217
  1. ;;21,"16590-0039-62 ")
  1. ;;218
  1. ;;21,"16590-0039-72 ")
  1. ;;219
  1. ;;21,"16590-0039-73 ")
  1. ;;220
  1. ;;21,"16590-0039-82 ")
  1. ;;221
  1. ;;21,"16590-0039-90 ")
  1. ;;222
  1. ;;21,"16590-0065-10 ")
  1. ;;223
  1. ;;21,"16590-0065-15 ")
  1. ;;224
  1. ;;21,"16590-0065-20 ")
  1. ;;225
  1. ;;21,"16590-0065-21 ")
  1. ;;226
  1. ;;21,"16590-0065-28 ")
  1. ;;227
  1. ;;21,"16590-0065-30 ")
  1. ;;228
  1. ;;21,"16590-0065-40 ")
  1. ;;229
  1. ;;21,"16590-0065-45 ")
  1. ;;230
  1. ;;21,"16590-0065-50 ")
  1. ;;231
  1. ;;21,"16590-0065-56 ")
  1. ;;232
  1. ;;21,"16590-0065-60 ")
  1. ;;233
  1. ;;21,"16590-0065-62 ")
  1. ;;234
  1. ;;21,"16590-0065-72 ")
  1. ;;235
  1. ;;21,"16590-0065-73 ")
  1. ;;236
  1. ;;21,"16590-0065-82 ")
  1. ;;237
  1. ;;21,"16590-0065-86 ")
  1. ;;238
  1. ;;21,"16590-0065-90 ")
  1. ;;239
  1. ;;21,"16590-0147-28 ")
  1. ;;240
  1. ;;21,"16590-0147-30 ")
  1. ;;241
  1. ;;21,"16590-0147-40 ")
  1. ;;242
  1. ;;21,"16590-0147-45 ")
  1. ;;243
  1. ;;21,"16590-0147-56 ")
  1. ;;244
  1. ;;21,"16590-0147-60 ")
  1. ;;245
  1. ;;21,"16590-0147-62 ")
  1. ;;246
  1. ;;21,"16590-0147-72 ")
  1. ;;247
  1. ;;21,"16590-0147-73 ")
  1. ;;248
  1. ;;21,"16590-0147-82 ")
  1. ;;249
  1. ;;21,"16590-0147-90 ")
  1. ;;250
  1. ;;21,"16590-0148-20 ")
  1. ;;251
  1. ;;21,"16590-0148-28 ")
  1. ;;252
  1. ;;21,"16590-0148-30 ")
  1. ;;253
  1. ;;21,"16590-0148-40 ")
  1. ;;254
  1. ;;21,"16590-0148-45 ")
  1. ;;255
  1. ;;21,"16590-0148-56 ")
  1. ;;256
  1. ;;21,"16590-0148-60 ")
  1. ;;257
  1. ;;21,"16590-0148-62 ")
  1. ;;258
  1. ;;21,"16590-0148-72 ")
  1. ;;259
  1. ;;21,"16590-0148-73 ")
  1. ;;260
  1. ;;21,"16590-0148-82 ")
  1. ;;261
  1. ;;21,"16590-0148-83 ")
  1. ;;262
  1. ;;21,"16590-0148-84 ")
  1. ;;263
  1. ;;21,"16590-0148-90 ")
  1. ;;264
  1. ;;21,"16590-0177-14 ")
  1. ;;265
  1. ;;21,"16590-0177-20 ")
  1. ;;266
  1. ;;21,"16590-0177-30 ")
  1. ;;267
  1. ;;21,"16590-0177-60 ")
  1. ;;268
  1. ;;21,"16590-0177-71 ")
  1. ;;269
  1. ;;21,"16590-0177-72 ")
  1. ;;270
  1. ;;21,"16590-0177-90 ")
  1. ;;271
  1. ;;21,"16590-0207-20 ")
  1. ;;272
  1. ;;21,"16590-0207-28 ")
  1. ;;273
  1. ;;21,"16590-0207-30 ")
  1. ;;274
  1. ;;21,"16590-0207-40 ")
  1. ;;275
  1. ;;21,"16590-0207-56 ")
  1. ;;276
  1. ;;21,"16590-0207-60 ")
  1. ;;277
  1. ;;21,"16590-0207-62 ")
  1. ;;278
  1. ;;21,"16590-0207-71 ")
  1. ;;279
  1. ;;21,"16590-0207-72 ")
  1. ;;280
  1. ;;21,"16590-0207-90 ")
  1. ;;281
  1. ;;21,"16590-0346-20 ")
  1. ;;282
  1. ;;21,"16590-0346-28 ")
  1. ;;283
  1. ;;21,"16590-0346-30 ")
  1. ;;284
  1. ;;21,"16590-0346-40 ")
  1. ;;285
  1. ;;21,"16590-0346-56 ")
  1. ;;286
  1. ;;21,"16590-0346-60 ")
  1. ;;287
  1. ;;21,"16590-0346-62 ")
  1. ;;288
  1. ;;21,"16590-0346-71 ")
  1. ;;289
  1. ;;21,"16590-0346-72 ")
  1. ;;290
  1. ;;21,"16590-0346-73 ")
  1. ;;291
  1. ;;21,"16590-0346-84 ")
  1. ;;292
  1. ;;21,"16590-0346-86 ")
  1. ;;293
  1. ;;21,"16590-0346-90 ")
  1. ;;294
  1. ;;21,"16590-0478-20 ")
  1. ;;295
  1. ;;21,"16590-0478-28 ")
  1. ;;296
  1. ;;21,"16590-0478-30 ")
  1. ;;297
  1. ;;21,"16590-0478-40 ")
  1. ;;298
  1. ;;21,"16590-0478-56 ")
  1. ;;299
  1. ;;21,"16590-0478-60 ")
  1. ;;300
  1. ;;21,"16590-0478-62 ")
  1. ;;301
  1. ;;21,"16590-0478-71 ")
  1. ;;302
  1. ;;21,"16590-0478-72 ")
  1. ;;303
  1. ;;21,"16590-0478-73 ")
  1. ;;304
  1. ;;21,"16590-0478-90 ")
  1. ;;305
  1. ;;21,"16590-0544-15 ")
  1. ;;306
  1. ;;21,"16590-0544-20 ")
  1. ;;307
  1. ;;21,"16590-0544-21 ")
  1. ;;308
  1. ;;21,"16590-0544-28 ")
  1. ;;309
  1. ;;21,"16590-0544-30 ")
  1. ;;310
  1. ;;21,"16590-0544-40 ")
  1. ;;311
  1. ;;21,"16590-0544-45 ")
  1. ;;312
  1. ;;21,"16590-0544-56 ")
  1. ;;313
  1. ;;21,"16590-0544-60 ")
  1. ;;314
  1. ;;21,"16590-0544-62 ")
  1. ;;315
  1. ;;21,"16590-0544-72 ")
  1. ;;316
  1. ;;21,"16590-0544-73 ")
  1. ;;317
  1. ;;21,"16590-0544-82 ")
  1. ;;318
  1. ;;21,"16590-0544-90 ")
  1. ;;319
  1. ;;21,"16590-0568-30 ")
  1. ;;320
  1. ;;21,"16590-0568-60 ")
  1. ;;321
  1. ;;21,"16590-0596-10 ")
  1. ;;322
  1. ;;21,"16590-0596-15 ")
  1. ;;323
  1. ;;21,"16590-0596-28 ")
  1. ;;324
  1. ;;21,"16590-0596-30 ")
  1. ;;325
  1. ;;21,"16590-0596-60 ")
  1. ;;326
  1. ;;21,"16590-0596-90 ")
  1. ;;327
  1. ;;21,"16590-0699-28 ")
  1. ;;328
  1. ;;21,"16590-0699-30 ")
  1. ;;329
  1. ;;21,"16590-0699-60 ")
  1. ;;330
  1. ;;21,"16590-0699-90 ")
  1. ;;331
  1. ;;21,"16590-0755-30 ")
  1. ;;332
  1. ;;21,"16590-0755-40 ")
  1. ;;333
  1. ;;21,"16590-0755-60 ")
  1. ;;334
  1. ;;21,"16590-0755-72 ")
  1. ;;335
  1. ;;21,"16590-0755-90 ")
  1. ;;336
  1. ;;21,"16590-0810-30 ")
  1. ;;337
  1. ;;21,"17478-0538-02 ")
  1. ;;338
  1. ;;21,"21695-0021-07 ")
  1. ;;339
  1. ;;21,"21695-0021-12 ")
  1. ;;340
  1. ;;21,"21695-0021-15 ")
  1. ;;341
  1. ;;21,"21695-0021-20 ")
  1. ;;342
  1. ;;21,"21695-0021-21 ")
  1. ;;343
  1. ;;21,"21695-0021-30 ")
  1. ;;344
  1. ;;21,"21695-0021-42 ")
  1. ;;345
  1. ;;21,"21695-0021-45 ")
  1. ;;346
  1. ;;21,"21695-0021-60 ")
  1. ;;347
  1. ;;21,"21695-0021-72 ")
  1. ;;348
  1. ;;21,"21695-0021-90 ")
  1. ;;349
  1. ;;21,"21695-0036-15 ")
  1. ;;350
  1. ;;21,"21695-0036-20 ")
  1. ;;351
  1. ;;21,"21695-0036-30 ")
  1. ;;352
  1. ;;21,"21695-0036-60 ")
  1. ;;353
  1. ;;21,"21695-0036-72 ")
  1. ;;354
  1. ;;21,"21695-0036-78 ")
  1. ;;355
  1. ;;21,"21695-0036-90 ")
  1. ;;356
  1. ;;21,"21695-0037-00 ")
  1. ;;357
  1. ;;21,"21695-0037-10 ")
  1. ;;358
  1. ;;21,"21695-0037-12 ")
  1. ;;359
  1. ;;21,"21695-0037-14 ")
  1. ;;360
  1. ;;21,"21695-0037-15 ")
  1. ;;361
  1. ;;21,"21695-0037-20 ")
  1. ;;362
  1. ;;21,"21695-0037-21 ")
  1. ;;363
  1. ;;21,"21695-0037-28 ")
  1. ;;364
  1. ;;21,"21695-0037-30 ")
  1. ;;365
  1. ;;21,"21695-0037-40 ")
  1. ;;366
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGP61D10
  1. D ^BGP61D11
  1. D ^BGP61D12
  1. D ^BGP61D13
  1. D ^BGP61D14
  1. D ^BGP61D15
  1. D ^BGP61D16
  1. D ^BGP61D17
  1. D ^BGP61D18
  1. D ^BGP61D19
  1. D ^BGP61D2
  1. D ^BGP61D20
  1. D ^BGP61D21
  1. D ^BGP61D22
  1. D ^BGP61D23
  1. D ^BGP61D24
  1. D ^BGP61D25
  1. D ^BGP61D26
  1. D ^BGP61D27
  1. D ^BGP61D28
  1. D ^BGP61D3
  1. D ^BGP61D4
  1. D ^BGP61D5
  1. D ^BGP61D6
  1. D ^BGP61D7
  1. D ^BGP61D8
  1. D ^BGP61D9
  1. Q