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

BGP8FXD.m

Go to the documentation of this file.
  1. BGP8FXD ; 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 ASTHMA NDC
  1. ;
  1. ; This routine loads Taxonomy BGP HEDIS ASTHMA 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,"00034-7004-70 ")
  1. ;;1
  1. ;;21,"00034-7004-80 ")
  1. ;;2
  1. ;;21,"00034-7006-80 ")
  1. ;;3
  1. ;;21,"00034-7102-80 ")
  1. ;;4
  1. ;;21,"00037-0515-68 ")
  1. ;;5
  1. ;;21,"00037-0521-92 ")
  1. ;;6
  1. ;;21,"00037-0521-97 ")
  1. ;;7
  1. ;;21,"00037-0521-98 ")
  1. ;;8
  1. ;;21,"00037-0541-92 ")
  1. ;;9
  1. ;;21,"00037-0541-96 ")
  1. ;;10
  1. ;;21,"00037-0541-97 ")
  1. ;;11
  1. ;;21,"00037-0545-68 ")
  1. ;;12
  1. ;;21,"00037-0545-69 ")
  1. ;;13
  1. ;;21,"00037-0731-92 ")
  1. ;;14
  1. ;;21,"00037-0731-97 ")
  1. ;;15
  1. ;;21,"00037-0731-99 ")
  1. ;;16
  1. ;;21,"00054-3045-63 ")
  1. ;;17
  1. ;;21,"00054-4025-25 ")
  1. ;;18
  1. ;;21,"00054-8025-25 ")
  1. ;;19
  1. ;;21,"00054-8049-16 ")
  1. ;;20
  1. ;;21,"00070-2340-00 ")
  1. ;;21
  1. ;;21,"00070-2341-00 ")
  1. ;;22
  1. ;;21,"00070-2342-00 ")
  1. ;;23
  1. ;;21,"00070-2343-00 ")
  1. ;;24
  1. ;;21,"00075-0100-00 ")
  1. ;;25
  1. ;;21,"00075-0200-00 ")
  1. ;;26
  1. ;;21,"00075-0300-00 ")
  1. ;;27
  1. ;;21,"00075-0352-68 ")
  1. ;;28
  1. ;;21,"00075-1125-00 ")
  1. ;;29
  1. ;;21,"00075-3650-16 ")
  1. ;;30
  1. ;;21,"00085-0487-01 ")
  1. ;;31
  1. ;;21,"00085-0487-05 ")
  1. ;;32
  1. ;;21,"00085-0487-10 ")
  1. ;;33
  1. ;;21,"00085-0487-50 ")
  1. ;;34
  1. ;;21,"00085-0487-81 ")
  1. ;;35
  1. ;;21,"00085-0584-01 ")
  1. ;;36
  1. ;;21,"00085-0584-05 ")
  1. ;;37
  1. ;;21,"00085-0584-10 ")
  1. ;;38
  1. ;;21,"00085-0584-50 ")
  1. ;;39
  1. ;;21,"00085-0584-81 ")
  1. ;;40
  1. ;;21,"00085-0694-01 ")
  1. ;;41
  1. ;;21,"00085-0806-01 ")
  1. ;;42
  1. ;;21,"00085-0806-81 ")
  1. ;;43
  1. ;;21,"00085-0814-01 ")
  1. ;;44
  1. ;;21,"00085-0933-01 ")
  1. ;;45
  1. ;;21,"00085-0933-05 ")
  1. ;;46
  1. ;;21,"00085-0933-10 ")
  1. ;;47
  1. ;;21,"00085-0933-50 ")
  1. ;;48
  1. ;;21,"00085-0933-81 ")
  1. ;;49
  1. ;;21,"00086-0031-10 ")
  1. ;;50
  1. ;;21,"00086-0031-50 ")
  1. ;;51
  1. ;;21,"00086-0032-10 ")
  1. ;;52
  1. ;;21,"00086-0032-50 ")
  1. ;;53
  1. ;;21,"00086-0032-90 ")
  1. ;;54
  1. ;;21,"00086-0033-10 ")
  1. ;;55
  1. ;;21,"00086-0033-50 ")
  1. ;;56
  1. ;;21,"00086-0033-90 ")
  1. ;;57
  1. ;;21,"00089-0341-80 ")
  1. ;;58
  1. ;;21,"00089-0342-10 ")
  1. ;;59
  1. ;;21,"00089-0343-10 ")
  1. ;;60
  1. ;;21,"00089-0344-10 ")
  1. ;;61
  1. ;;21,"00089-0347-10 ")
  1. ;;62
  1. ;;21,"00093-0934-01 ")
  1. ;;63
  1. ;;21,"00093-0936-01 ")
  1. ;;64
  1. ;;21,"00115-2150-01 ")
  1. ;;65
  1. ;;21,"00115-2150-03 ")
  1. ;;66
  1. ;;21,"00143-1020-01 ")
  1. ;;67
  1. ;;21,"00143-1020-10 ")
  1. ;;68
  1. ;;21,"00143-1025-01 ")
  1. ;;69
  1. ;;21,"00143-1025-10 ")
  1. ;;70
  1. ;;21,"00182-0226-41 ")
  1. ;;71
  1. ;;21,"00182-1400-05 ")
  1. ;;72
  1. ;;21,"00182-1400-10 ")
  1. ;;73
  1. ;;21,"00182-1400-89 ")
  1. ;;74
  1. ;;21,"00182-1589-01 ")
  1. ;;75
  1. ;;21,"00182-1589-89 ")
  1. ;;76
  1. ;;21,"00182-1590-01 ")
  1. ;;77
  1. ;;21,"00182-1590-10 ")
  1. ;;78
  1. ;;21,"00182-1590-89 ")
  1. ;;79
  1. ;;21,"00223-0100-01 ")
  1. ;;80
  1. ;;21,"00223-0100-02 ")
  1. ;;81
  1. ;;21,"00223-0102-01 ")
  1. ;;82
  1. ;;21,"00223-0102-02 ")
  1. ;;83
  1. ;;21,"00223-6205-08 ")
  1. ;;84
  1. ;;21,"00223-6623-01 ")
  1. ;;85
  1. ;;21,"00247-0061-02 ")
  1. ;;86
  1. ;;21,"00247-0061-08 ")
  1. ;;87
  1. ;;21,"00247-0061-20 ")
  1. ;;88
  1. ;;21,"00247-0061-30 ")
  1. ;;89
  1. ;;21,"00247-0061-50 ")
  1. ;;90
  1. ;;21,"00247-0061-60 ")
  1. ;;91
  1. ;;21,"00247-0061-90 ")
  1. ;;92
  1. ;;21,"00247-0070-00 ")
  1. ;;93
  1. ;;21,"00247-0070-02 ")
  1. ;;94
  1. ;;21,"00247-0070-09 ")
  1. ;;95
  1. ;;21,"00247-0070-10 ")
  1. ;;96
  1. ;;21,"00247-0070-12 ")
  1. ;;97
  1. ;;21,"00247-0070-20 ")
  1. ;;98
  1. ;;21,"00247-0070-30 ")
  1. ;;99
  1. ;;21,"00247-0070-50 ")
  1. ;;100
  1. ;;21,"00247-0070-52 ")
  1. ;;101
  1. ;;21,"00247-0070-60 ")
  1. ;;102
  1. ;;21,"00247-0070-90 ")
  1. ;;103
  1. ;;21,"00247-0177-00 ")
  1. ;;104
  1. ;;21,"00247-0177-02 ")
  1. ;;105
  1. ;;21,"00247-0177-03 ")
  1. ;;106
  1. ;;21,"00247-0177-04 ")
  1. ;;107
  1. ;;21,"00247-0177-06 ")
  1. ;;108
  1. ;;21,"00247-0177-10 ")
  1. ;;109
  1. ;;21,"00247-0177-14 ")
  1. ;;110
  1. ;;21,"00247-0177-20 ")
  1. ;;111
  1. ;;21,"00247-0177-30 ")
  1. ;;112
  1. ;;21,"00247-0177-60 ")
  1. ;;113
  1. ;;21,"00247-0308-52 ")
  1. ;;114
  1. ;;21,"00256-0150-01 ")
  1. ;;115
  1. ;;21,"00258-3581-01 ")
  1. ;;116
  1. ;;21,"00258-3581-05 ")
  1. ;;117
  1. ;;21,"00258-3581-10 ")
  1. ;;118
  1. ;;21,"00258-3583-01 ")
  1. ;;119
  1. ;;21,"00258-3583-05 ")
  1. ;;120
  1. ;;21,"00258-3583-10 ")
  1. ;;121
  1. ;;21,"00258-3584-01 ")
  1. ;;122
  1. ;;21,"00258-3584-05 ")
  1. ;;123
  1. ;;21,"00258-3625-01 ")
  1. ;;124
  1. ;;21,"00258-3634-01 ")
  1. ;;125
  1. ;;21,"00258-3638-01 ")
  1. ;;126
  1. ;;21,"00281-1115-53 ")
  1. ;;127
  1. ;;21,"00281-1115-57 ")
  1. ;;128
  1. ;;21,"00281-1115-63 ")
  1. ;;129
  1. ;;21,"00281-1116-53 ")
  1. ;;130
  1. ;;21,"00281-1116-57 ")
  1. ;;131
  1. ;;21,"00281-1116-63 ")
  1. ;;132
  1. ;;21,"00281-1124-53 ")
  1. ;;133
  1. ;;21,"00281-1124-57 ")
  1. ;;134
  1. ;;21,"00281-1124-63 ")
  1. ;;135
  1. ;;21,"00281-1127-74 ")
  1. ;;136
  1. ;;21,"00364-0004-01 ")
  1. ;;137
  1. ;;21,"00405-3825-16 ")
  1. ;;138
  1. ;;21,"00405-4060-01 ")
  1. ;;139
  1. ;;21,"00405-4060-03 ")
  1. ;;140
  1. ;;21,"00405-4061-01 ")
  1. ;;141
  1. ;;21,"00405-4061-03 ")
  1. ;;142
  1. ;;21,"00405-4983-01 ")
  1. ;;143
  1. ;;21,"00405-4984-01 ")
  1. ;;144
  1. ;;21,"00405-4985-01 ")
  1. ;;145
  1. ;;21,"00405-4986-01 ")
  1. ;;146
  1. ;;21,"00405-4987-01 ")
  1. ;;147
  1. ;;21,"00405-4987-02 ")
  1. ;;148
  1. ;;21,"00405-4988-01 ")
  1. ;;149
  1. ;;21,"00405-4988-02 ")
  1. ;;150
  1. ;;21,"00430-0214-24 ")
  1. ;;151
  1. ;;21,"00430-0221-24 ")
  1. ;;152
  1. ;;21,"00456-0644-16 ")
  1. ;;153
  1. ;;21,"00456-0645-08 ")
  1. ;;154
  1. ;;21,"00456-0648-08 ")
  1. ;;155
  1. ;;21,"00456-0648-16 ")
  1. ;;156
  1. ;;21,"00456-3581-01 ")
  1. ;;157
  1. ;;21,"00456-3581-05 ")
  1. ;;158
  1. ;;21,"00456-3581-10 ")
  1. ;;159
  1. ;;21,"00456-4301-01 ")
  1. ;;160
  1. ;;21,"00456-4310-01 ")
  1. ;;161
  1. ;;21,"00456-4310-02 ")
  1. ;;162
  1. ;;21,"00456-4320-00 ")
  1. ;;163
  1. ;;21,"00456-4320-01 ")
  1. ;;164
  1. ;;21,"00456-4320-02 ")
  1. ;;165
  1. ;;21,"00456-4330-00 ")
  1. ;;166
  1. ;;21,"00456-4330-01 ")
  1. ;;167
  1. ;;21,"00456-4330-02 ")
  1. ;;168
  1. ;;21,"00456-4345-01 ")
  1. ;;169
  1. ;;21,"00463-9031-16 ")
  1. ;;170
  1. ;;21,"00472-0873-08 ")
  1. ;;171
  1. ;;21,"00472-1238-16 ")
  1. ;;172
  1. ;;21,"00472-1444-28 ")
  1. ;;173
  1. ;;21,"00472-1540-16 ")
  1. ;;174
  1. ;;21,"00485-0059-16 ")
  1. ;;175
  1. ;;21,"00525-0305-01 ")
  1. ;;176
  1. ;;21,"00525-0376-16 ")
  1. ;;177
  1. ;;21,"00536-4652-05 ")
  1. ;;178
  1. ;;21,"00551-0123-01 ")
  1. ;;179
  1. ;;21,"00551-0123-02 ")
  1. ;;180
  1. ;;21,"00551-0124-01 ")
  1. ;;181
  1. ;;21,"00551-0124-02 ")
  1. ;;182
  1. ;;21,"00551-0205-01 ")
  1. ;;183
  1. ;;21,"00556-0149-16 ")
  1. ;;184
  1. ;;21,"00556-0149-28 ")
  1. ;;185
  1. ;;21,"00603-1190-58 ")
  1. ;;186
  1. ;;21,"00603-1729-58 ")
  1. ;;187
  1. ;;21,"00603-5747-21 ")
  1. ;;188
  1. ;;21,"00603-5944-21 ")
  1. ;;189
  1. ;;21,"00603-5944-28 ")
  1. ;;190
  1. ;;21,"00603-5945-21 ")
  1. ;;191
  1. ;;21,"00603-5945-28 ")
  1. ;;192
  1. ;;21,"00603-5945-32 ")
  1. ;;193
  1. ;;21,"00603-5946-21 ")
  1. ;;194
  1. ;;21,"00603-5946-28 ")
  1. ;;195
  1. ;;21,"00603-5946-29 ")
  1. ;;196
  1. ;;21,"00603-5946-32 ")
  1. ;;197
  1. ;;21,"00603-5950-21 ")
  1. ;;198
  1. ;;21,"00603-5951-21 ")
  1. ;;199
  1. ;;21,"00603-5952-21 ")
  1. ;;200
  1. ;;21,"00677-0003-01 ")
  1. ;;201
  1. ;;21,"00677-0007-01 ")
  1. ;;202
  1. ;;21,"00677-0007-10 ")
  1. ;;203
  1. ;;21,"00677-0817-01 ")
  1. ;;204
  1. ;;21,"00677-0817-05 ")
  1. ;;205
  1. ;;21,"00677-0846-01 ")
  1. ;;206
  1. ;;21,"00677-0846-05 ")
  1. ;;207
  1. ;;21,"00677-1037-01 ")
  1. ;;208
  1. ;;21,"00677-1780-01 ")
  1. ;;209
  1. ;;21,"00781-6600-16 ")
  1. ;;210
  1. ;;21,"00781-6600-28 ")
  1. ;;211
  1. ;;21,"00785-4345-01 ")
  1. ;;212
  1. ;;21,"00839-1011-06 ")
  1. ;;213
  1. ;;21,"00839-1011-16 ")
  1. ;;214
  1. ;;21,"00839-5029-69 ")
  1. ;;215
  1. ;;21,"00839-5029-70 ")
  1. ;;216
  1. ;;21,"00839-5053-16 ")
  1. ;;217
  1. ;;21,"00839-6348-69 ")
  1. ;;218
  1. ;;21,"00839-6693-06 ")
  1. ;;219
  1. ;;21,"00839-6693-16 ")
  1. ;;220
  1. ;;21,"00839-6697-06 ")
  1. ;;221
  1. ;;21,"00839-6729-06 ")
  1. ;;222
  1. ;;21,"00839-6729-12 ")
  1. ;;223
  1. ;;21,"00839-6729-16 ")
  1. ;;224
  1. ;;21,"00839-6730-06 ")
  1. ;;225
  1. ;;21,"00839-6730-12 ")
  1. ;;226
  1. ;;21,"00839-7651-06 ")
  1. ;;227
  1. ;;21,"00839-7705-06 ")
  1. ;;228
  1. ;;21,"00839-7706-06 ")
  1. ;;229
  1. ;;21,"00839-7706-12 ")
  1. ;;230
  1. ;;21,"00839-7707-16 ")
  1. ;;231
  1. ;;21,"00839-7885-06 ")
  1. ;;232
  1. ;;21,"00839-7886-06 ")
  1. ;;233
  1. ;;21,"00839-7887-06 ")
  1. ;;234
  1. ;;21,"00839-7888-06 ")
  1. ;;235
  1. ;;21,"00904-1555-16 ")
  1. ;;236
  1. ;;21,"00904-1556-60 ")
  1. ;;237
  1. ;;21,"00904-1557-60 ")
  1. ;;238
  1. ;;21,"00904-1558-60 ")
  1. ;;239
  1. ;;21,"00904-1610-60 ")
  1. ;;240
  1. ;;21,"00904-1610-61 ")
  1. ;;241
  1. ;;21,"00904-1611-60 ")
  1. ;;242
  1. ;;21,"00904-1611-61 ")
  1. ;;243
  1. ;;21,"00904-1611-80 ")
  1. ;;244
  1. ;;21,"00904-1612-40 ")
  1. ;;245
  1. ;;21,"00904-1612-60 ")
  1. ;;246
  1. ;;21,"00904-1612-61 ")
  1. ;;247
  1. ;;21,"00904-1612-80 ")
  1. ;;248
  1. ;;21,"00904-2273-60 ")
  1. ;;249
  1. ;;21,"00904-2273-80 ")
  1. ;;250
  1. ;;21,"00904-2283-60 ")
  1. ;;251
  1. ;;21,"00904-2283-80 ")
  1. ;;252
  1. ;;21,"00904-7849-60 ")
  1. ;;253
  1. ;;21,"10892-0150-65 ")
  1. ;;254
  1. ;;21,"17236-0324-01 ")
  1. ;;255
  1. ;;21,"17236-0324-05 ")
  1. ;;256
  1. ;;21,"17236-0324-10 ")
  1. ;;257
  1. ;;21,"17236-0325-01 ")
  1. ;;258
  1. ;;21,"17236-0325-10 ")
  1. ;;259
  1. ;;21,"17236-0335-01 ")
  1. ;;260
  1. ;;21,"38130-0012-01 ")
  1. ;;261
  1. ;;21,"38130-0012-10 ")
  1. ;;262
  1. ;;21,"45565-0305-01 ")
  1. ;;263
  1. ;;21,"45985-0633-08 ")
  1. ;;264
  1. ;;21,"45985-0647-01 ")
  1. ;;265
  1. ;;21,"46672-0614-16 ")
  1. ;;266
  1. ;;21,"50111-0459-01 ")
  1. ;;267
  1. ;;21,"50111-0459-02 ")
  1. ;;268
  1. ;;21,"50111-0459-03 ")
  1. ;;269
  1. ;;21,"50111-0482-01 ")
  1. ;;270
  1. ;;21,"50111-0482-02 ")
  1. ;;271
  1. ;;21,"50111-0482-03 ")
  1. ;;272
  1. ;;21,"50111-0483-01 ")
  1. ;;273
  1. ;;21,"50111-0483-02 ")
  1. ;;274
  1. ;;21,"50111-0483-03 ")
  1. ;;275
  1. ;;21,"50111-0518-01 ")
  1. ;;276
  1. ;;21,"50383-0806-16 ")
  1. ;;277
  1. ;;21,"50474-0100-01 ")
  1. ;;278
  1. ;;21,"50474-0200-01 ")
  1. ;;279
  1. ;;21,"50474-0200-50 ")
  1. ;;280
  1. ;;21,"50474-0200-60 ")
  1. ;;281
  1. ;;21,"50474-0300-01 ")
  1. ;;282
  1. ;;21,"50474-0300-50 ")
  1. ;;283
  1. ;;21,"50474-0300-60 ")
  1. ;;284
  1. ;;21,"50474-0400-01 ")
  1. ;;285
  1. ;;21,"50732-0897-16 ")
  1. ;;286
  1. ;;21,"50732-0897-28 ")
  1. ;;287
  1. ;;21,"50991-0200-16 ")
  1. ;;288
  1. ;;21,"50991-0214-16 ")
  1. ;;289
  1. ;;21,"50991-0400-01 ")
  1. ;;290
  1. ;;21,"50991-0400-05 ")
  1. ;;291
  1. ;;21,"50991-0413-01 ")
  1. ;;292
  1. ;;21,"51991-0375-01 ")
  1. ;;293
  1. ;;21,"52959-0279-30 ")
  1. ;;294
  1. ;;21,"53265-0380-10 ")
  1. ;;295
  1. ;;21,"53265-0380-50 ")
  1. ;;296
  1. ;;21,"53265-0382-10 ")
  1. ;;297
  1. ;;21,"54092-0069-01 ")
  1. ;;298
  1. ;;21,"54569-0062-02 ")
  1. ;;299
  1. ;;21,"54569-0065-01 ")
  1. ;;300
  1. ;;21,"54569-0065-02 ")
  1. ;;301
  1. ;;21,"54569-0065-05 ")
  1. ;;302
  1. ;;21,"54569-0318-01 ")
  1. ;;303
  1. ;;21,"54569-1666-00 ")
  1. ;;304
  1. ;;21,"54569-1666-01 ")
  1. ;;305
  1. ;;21,"54569-2483-00 ")
  1. ;;306
  1. ;;21,"54569-2483-01 ")
  1. ;;307
  1. ;;21,"54569-2483-02 ")
  1. ;;308
  1. ;;21,"54569-2483-03 ")
  1. ;;309
  1. ;;21,"54569-4279-00 ")
  1. ;;310
  1. ;;21,"54569-8580-00 ")
  1. ;;311
  1. ;;21,"54569-8586-00 ")
  1. ;;312
  1. ;;21,"54838-0513-80 ")
  1. ;;313
  1. ;;21,"54868-0028-00 ")
  1. ;;314
  1. ;;21,"54868-0028-01 ")
  1. ;;315
  1. ;;21,"54868-0028-02 ")
  1. ;;316
  1. ;;21,"54868-0028-03 ")
  1. ;;317
  1. ;;21,"54868-0028-05 ")
  1. ;;318
  1. ;;21,"54868-0029-00 ")
  1. ;;319
  1. ;;21,"54868-0029-02 ")
  1. ;;320
  1. ;;21,"54868-0029-03 ")
  1. ;;321
  1. ;;21,"54868-0029-05 ")
  1. ;;322
  1. ;;21,"54868-0029-06 ")
  1. ;;323
  1. ;;21,"54868-1438-00 ")
  1. ;;324
  1. ;;21,"54868-1438-01 ")
  1. ;;325
  1. ;;21,"55053-0522-01 ")
  1. ;;326
  1. ;;21,"55175-4187-00 ")
  1. ;;327
  1. ;;21,"55175-4187-03 ")
  1. ;;328
  1. ;;21,"55175-4187-04 ")
  1. ;;329
  1. ;;21,"55289-0003-60 ")
  1. ;;330
  1. ;;21,"55289-0155-97 ")
  1. ;;331
  1. ;;21,"55289-0259-01 ")
  1. ;;332
  1. ;;21,"55289-0259-30 ")
  1. ;;333
  1. ;;21,"55289-0259-60 ")
  1. ;;334
  1. ;;21,"55289-0260-01 ")
  1. ;;335
  1. ;;21,"55289-0260-06 ")
  1. ;;336
  1. ;;21,"55289-0260-20 ")
  1. ;;337
  1. ;;21,"55289-0260-30 ")
  1. ;;338
  1. ;;21,"55289-0260-60 ")
  1. ;;339
  1. ;;21,"55289-0260-97 ")
  1. ;;340
  1. ;;21,"55289-0788-60 ")
  1. ;;341
  1. ;;21,"55289-0789-30 ")
  1. ;;342
  1. ;;21,"56126-0438-11 ")
  1. ;;343
  1. ;;21,"57480-0365-06 ")
  1. ;;344
  1. ;;21,"57480-0366-01 ")
  1. ;;345
  1. ;;21,"57480-0366-06 ")
  1. ;;346
  1. ;;21,"57480-0367-01 ")
  1. ;;347
  1. ;;21,"57480-0367-06 ")
  1. ;;348
  1. ;;21,"57779-0115-09 ")
  1. ;;349
  1. ;;21,"57866-4651-02 ")
  1. ;;350
  1. ;;21,"57866-4652-02 ")
  1. ;;351
  1. ;;21,"57866-4653-01 ")
  1. ;;352
  1. ;;21,"58016-0477-06 ")
  1. ;;353
  1. ;;21,"59243-0021-10 ")
  1. ;;354
  1. ;;21,"59743-0006-01 ")
  1. ;;355
  1. ;;21,"59930-1650-03 ")
  1. ;;356
  1. ;;21,"59930-1660-01 ")
  1. ;;357
  1. ;;21,"59930-1660-02 ")
  1. ;;358
  1. ;;21,"59930-1660-03 ")
  1. ;;359
  1. ;;21,"59930-1670-01 ")
  1. ;;360
  1. ;;21,"59930-1670-02 ")
  1. ;;361
  1. ;;21,"59930-1670-03 ")
  1. ;;362
  1. ;;21,"59930-1680-01 ")
  1. ;;363
  1. ;;21,"60258-0335-16 ")
  1. ;;364
  1. ;;21,"60258-0371-16 ")
  1. ;;365
  1. ;;21,"60432-0019-16 ")
  1. ;;366
  1. ;;21,"61392-0016-30 ")
  1. ;;367
  1. ;;21,"61392-0016-45 ")
  1. ;;368
  1. ;;21,"61392-0016-51 ")
  1. ;;369
  1. ;;21,"61392-0016-54 ")
  1. ;;370
  1. ;;21,"61392-0016-56 ")
  1. ;;371
  1. ;;21,"61392-0016-60 ")
  1. ;;372
  1. ;;21,"61392-0016-90 ")
  1. ;;373
  1. ;;21,"61392-0016-91 ")
  1. ;;374
  1. ;;21,"61392-0017-30 ")
  1. ;;375
  1. ;;21,"61392-0017-51 ")
  1. ;;376
  1. ;;21,"61392-0017-54 ")
  1. ;;377
  1. ;;21,"61392-0017-56 ")
  1. ;;378
  1. ;;21,"61392-0017-60 ")
  1. ;;379
  1. ;;21,"61392-0017-90 ")
  1. ;;380
  1. ;;21,"61392-0017-91 ")
  1. ;;381
  1. ;;21,"61570-0019-01 ")
  1. ;;382
  1. ;;21,"61570-0019-05 ")
  1. ;;383
  1. ;;21,"61570-0020-01 ")
  1. ;;384
  1. ;;21,"61570-0022-01 ")
  1. ;;385
  1. ;;21,"63874-0443-01 ")
  1. ;;386
  1. ;;21,"63874-0443-15 ")
  1. ;;387
  1. ;;21,"63874-0443-20 ")
  1. ;;388
  1. ;;21,"63874-0443-30 ")
  1. ;;389
  1. ;;21,"63874-0447-01 ")
  1. ;;390
  1. ;;21,"63874-0447-15 ")
  1. ;;391
  1. ;;21,"63874-0447-20 ")
  1. ;;392
  1. ;;21,"63874-0447-30 ")
  1. ;;393
  1. ;;21,"63874-0447-60 ")
  1. ;;394
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGP8FXDB
  1. D ^BGP8FXDC
  1. D ^BGP8FXDD
  1. D ^BGP8FXDE
  1. Q