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

BGP53O.m

Go to the documentation of this file.
  1. BGP53O ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 24, 2015;
  1. ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
  1. ;;BGP HEDIS ACEI NDC
  1. ;
  1. ; This routine loads Taxonomy BGP HEDIS ACEI 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,"00006-0019-54 ")
  1. ;;1
  1. ;;21,"00006-0019-82 ")
  1. ;;2
  1. ;;21,"00006-0106-54 ")
  1. ;;3
  1. ;;21,"00006-0106-82 ")
  1. ;;4
  1. ;;21,"00006-0140-58 ")
  1. ;;5
  1. ;;21,"00006-0142-31 ")
  1. ;;6
  1. ;;21,"00006-0145-58 ")
  1. ;;7
  1. ;;21,"00006-0207-54 ")
  1. ;;8
  1. ;;21,"00006-0207-82 ")
  1. ;;9
  1. ;;21,"00006-0237-58 ")
  1. ;;10
  1. ;;21,"00032-1101-01 ")
  1. ;;11
  1. ;;21,"00032-1102-01 ")
  1. ;;12
  1. ;;21,"00032-1103-01 ")
  1. ;;13
  1. ;;21,"00054-0106-25 ")
  1. ;;14
  1. ;;21,"00054-0107-20 ")
  1. ;;15
  1. ;;21,"00054-0107-25 ")
  1. ;;16
  1. ;;21,"00054-0107-29 ")
  1. ;;17
  1. ;;21,"00054-0108-20 ")
  1. ;;18
  1. ;;21,"00054-0108-25 ")
  1. ;;19
  1. ;;21,"00054-0108-29 ")
  1. ;;20
  1. ;;21,"00054-0109-25 ")
  1. ;;21
  1. ;;21,"00054-0109-29 ")
  1. ;;22
  1. ;;21,"00054-0110-25 ")
  1. ;;23
  1. ;;21,"00054-0111-25 ")
  1. ;;24
  1. ;;21,"00054-0112-25 ")
  1. ;;25
  1. ;;21,"00071-0220-23 ")
  1. ;;26
  1. ;;21,"00071-0222-23 ")
  1. ;;27
  1. ;;21,"00071-0223-23 ")
  1. ;;28
  1. ;;21,"00071-0527-23 ")
  1. ;;29
  1. ;;21,"00071-0527-40 ")
  1. ;;30
  1. ;;21,"00071-0530-23 ")
  1. ;;31
  1. ;;21,"00071-0530-40 ")
  1. ;;32
  1. ;;21,"00071-0532-23 ")
  1. ;;33
  1. ;;21,"00071-0532-40 ")
  1. ;;34
  1. ;;21,"00071-0535-23 ")
  1. ;;35
  1. ;;21,"00074-2278-11 ")
  1. ;;36
  1. ;;21,"00074-2278-13 ")
  1. ;;37
  1. ;;21,"00074-2279-11 ")
  1. ;;38
  1. ;;21,"00074-2279-13 ")
  1. ;;39
  1. ;;21,"00074-2280-11 ")
  1. ;;40
  1. ;;21,"00074-2280-13 ")
  1. ;;41
  1. ;;21,"00074-3287-13 ")
  1. ;;42
  1. ;;21,"00074-3288-13 ")
  1. ;;43
  1. ;;21,"00074-3289-13 ")
  1. ;;44
  1. ;;21,"00074-3290-13 ")
  1. ;;45
  1. ;;21,"00078-0364-05 ")
  1. ;;46
  1. ;;21,"00078-0379-05 ")
  1. ;;47
  1. ;;21,"00078-0384-05 ")
  1. ;;48
  1. ;;21,"00078-0404-05 ")
  1. ;;49
  1. ;;21,"00078-0405-05 ")
  1. ;;50
  1. ;;21,"00078-0406-05 ")
  1. ;;51
  1. ;;21,"00078-0447-05 ")
  1. ;;52
  1. ;;21,"00078-0448-05 ")
  1. ;;53
  1. ;;21,"00078-0449-05 ")
  1. ;;54
  1. ;;21,"00078-0450-05 ")
  1. ;;55
  1. ;;21,"00078-0451-05 ")
  1. ;;56
  1. ;;21,"00078-0452-05 ")
  1. ;;57
  1. ;;21,"00078-0453-05 ")
  1. ;;58
  1. ;;21,"00078-0454-05 ")
  1. ;;59
  1. ;;21,"00083-0059-32 ")
  1. ;;60
  1. ;;21,"00083-0059-90 ")
  1. ;;61
  1. ;;21,"00083-0063-32 ")
  1. ;;62
  1. ;;21,"00083-0063-90 ")
  1. ;;63
  1. ;;21,"00083-0079-32 ")
  1. ;;64
  1. ;;21,"00083-0079-90 ")
  1. ;;65
  1. ;;21,"00083-0094-32 ")
  1. ;;66
  1. ;;21,"00083-0094-90 ")
  1. ;;67
  1. ;;21,"00091-3707-01 ")
  1. ;;68
  1. ;;21,"00091-3712-01 ")
  1. ;;69
  1. ;;21,"00091-3715-01 ")
  1. ;;70
  1. ;;21,"00091-3720-01 ")
  1. ;;71
  1. ;;21,"00091-3725-01 ")
  1. ;;72
  1. ;;21,"00093-0017-01 ")
  1. ;;73
  1. ;;21,"00093-0026-01 ")
  1. ;;74
  1. ;;21,"00093-0026-10 ")
  1. ;;75
  1. ;;21,"00093-0027-01 ")
  1. ;;76
  1. ;;21,"00093-0027-50 ")
  1. ;;77
  1. ;;21,"00093-0028-01 ")
  1. ;;78
  1. ;;21,"00093-0028-10 ")
  1. ;;79
  1. ;;21,"00093-0028-50 ")
  1. ;;80
  1. ;;21,"00093-0029-01 ")
  1. ;;81
  1. ;;21,"00093-0029-10 ")
  1. ;;82
  1. ;;21,"00093-0029-50 ")
  1. ;;83
  1. ;;21,"00093-0176-01 ")
  1. ;;84
  1. ;;21,"00093-0177-01 ")
  1. ;;85
  1. ;;21,"00093-0181-01 ")
  1. ;;86
  1. ;;21,"00093-0182-01 ")
  1. ;;87
  1. ;;21,"00093-1044-01 ")
  1. ;;88
  1. ;;21,"00093-1045-05 ")
  1. ;;89
  1. ;;21,"00093-1045-98 ")
  1. ;;90
  1. ;;21,"00093-1050-05 ")
  1. ;;91
  1. ;;21,"00093-1050-98 ")
  1. ;;92
  1. ;;21,"00093-1051-05 ")
  1. ;;93
  1. ;;21,"00093-1051-98 ")
  1. ;;94
  1. ;;21,"00093-1052-01 ")
  1. ;;95
  1. ;;21,"00093-1052-10 ")
  1. ;;96
  1. ;;21,"00093-1053-05 ")
  1. ;;97
  1. ;;21,"00093-1053-98 ")
  1. ;;98
  1. ;;21,"00093-5124-01 ")
  1. ;;99
  1. ;;21,"00093-5125-01 ")
  1. ;;100
  1. ;;21,"00093-5125-05 ")
  1. ;;101
  1. ;;21,"00093-5126-01 ")
  1. ;;102
  1. ;;21,"00093-5126-05 ")
  1. ;;103
  1. ;;21,"00093-5127-01 ")
  1. ;;104
  1. ;;21,"00093-5150-01 ")
  1. ;;105
  1. ;;21,"00093-5213-01 ")
  1. ;;106
  1. ;;21,"00093-5214-01 ")
  1. ;;107
  1. ;;21,"00093-5215-01 ")
  1. ;;108
  1. ;;21,"00093-7222-10 ")
  1. ;;109
  1. ;;21,"00093-7222-98 ")
  1. ;;110
  1. ;;21,"00093-7223-10 ")
  1. ;;111
  1. ;;21,"00093-7223-98 ")
  1. ;;112
  1. ;;21,"00093-7224-10 ")
  1. ;;113
  1. ;;21,"00093-7224-98 ")
  1. ;;114
  1. ;;21,"00093-7325-01 ")
  1. ;;115
  1. ;;21,"00093-7326-01 ")
  1. ;;116
  1. ;;21,"00093-7327-01 ")
  1. ;;117
  1. ;;21,"00093-7370-01 ")
  1. ;;118
  1. ;;21,"00093-7371-01 ")
  1. ;;119
  1. ;;21,"00093-7371-10 ")
  1. ;;120
  1. ;;21,"00093-7372-01 ")
  1. ;;121
  1. ;;21,"00093-7372-10 ")
  1. ;;122
  1. ;;21,"00093-7373-01 ")
  1. ;;123
  1. ;;21,"00093-7373-10 ")
  1. ;;124
  1. ;;21,"00093-7436-01 ")
  1. ;;125
  1. ;;21,"00093-7437-01 ")
  1. ;;126
  1. ;;21,"00093-7438-01 ")
  1. ;;127
  1. ;;21,"00093-7670-01 ")
  1. ;;128
  1. ;;21,"00093-7671-01 ")
  1. ;;129
  1. ;;21,"00093-8132-01 ")
  1. ;;130
  1. ;;21,"00093-8133-01 ")
  1. ;;131
  1. ;;21,"00093-8133-10 ")
  1. ;;132
  1. ;;21,"00093-8134-01 ")
  1. ;;133
  1. ;;21,"00093-8135-01 ")
  1. ;;134
  1. ;;21,"00143-1171-01 ")
  1. ;;135
  1. ;;21,"00143-1171-10 ")
  1. ;;136
  1. ;;21,"00143-1172-01 ")
  1. ;;137
  1. ;;21,"00143-1172-10 ")
  1. ;;138
  1. ;;21,"00143-1173-01 ")
  1. ;;139
  1. ;;21,"00143-1173-10 ")
  1. ;;140
  1. ;;21,"00143-1174-01 ")
  1. ;;141
  1. ;;21,"00143-1262-01 ")
  1. ;;142
  1. ;;21,"00143-1262-10 ")
  1. ;;143
  1. ;;21,"00143-1263-01 ")
  1. ;;144
  1. ;;21,"00143-1263-10 ")
  1. ;;145
  1. ;;21,"00143-1264-01 ")
  1. ;;146
  1. ;;21,"00143-1264-10 ")
  1. ;;147
  1. ;;21,"00143-1265-01 ")
  1. ;;148
  1. ;;21,"00143-1265-09 ")
  1. ;;149
  1. ;;21,"00143-1265-10 ")
  1. ;;150
  1. ;;21,"00143-1266-01 ")
  1. ;;151
  1. ;;21,"00143-1266-09 ")
  1. ;;152
  1. ;;21,"00143-1266-10 ")
  1. ;;153
  1. ;;21,"00143-1266-30 ")
  1. ;;154
  1. ;;21,"00143-1266-45 ")
  1. ;;155
  1. ;;21,"00143-1267-01 ")
  1. ;;156
  1. ;;21,"00143-1267-09 ")
  1. ;;157
  1. ;;21,"00143-1267-10 ")
  1. ;;158
  1. ;;21,"00143-1267-18 ")
  1. ;;159
  1. ;;21,"00143-1267-30 ")
  1. ;;160
  1. ;;21,"00143-1267-45 ")
  1. ;;161
  1. ;;21,"00143-1268-01 ")
  1. ;;162
  1. ;;21,"00143-1268-09 ")
  1. ;;163
  1. ;;21,"00143-1268-10 ")
  1. ;;164
  1. ;;21,"00143-1268-18 ")
  1. ;;165
  1. ;;21,"00143-1268-30 ")
  1. ;;166
  1. ;;21,"00143-1268-45 ")
  1. ;;167
  1. ;;21,"00143-1270-01 ")
  1. ;;168
  1. ;;21,"00143-1270-09 ")
  1. ;;169
  1. ;;21,"00143-1270-10 ")
  1. ;;170
  1. ;;21,"00143-1270-18 ")
  1. ;;171
  1. ;;21,"00143-1270-30 ")
  1. ;;172
  1. ;;21,"00143-1270-45 ")
  1. ;;173
  1. ;;21,"00143-1280-01 ")
  1. ;;174
  1. ;;21,"00143-1280-10 ")
  1. ;;175
  1. ;;21,"00143-9125-01 ")
  1. ;;176
  1. ;;21,"00143-9126-01 ")
  1. ;;177
  1. ;;21,"00143-9127-01 ")
  1. ;;178
  1. ;;21,"00143-9713-01 ")
  1. ;;179
  1. ;;21,"00143-9713-10 ")
  1. ;;180
  1. ;;21,"00143-9714-01 ")
  1. ;;181
  1. ;;21,"00143-9714-10 ")
  1. ;;182
  1. ;;21,"00143-9715-01 ")
  1. ;;183
  1. ;;21,"00143-9715-10 ")
  1. ;;184
  1. ;;21,"00172-3757-00 ")
  1. ;;185
  1. ;;21,"00172-3757-10 ")
  1. ;;186
  1. ;;21,"00172-3757-60 ")
  1. ;;187
  1. ;;21,"00172-3757-70 ")
  1. ;;188
  1. ;;21,"00172-3758-00 ")
  1. ;;189
  1. ;;21,"00172-3758-10 ")
  1. ;;190
  1. ;;21,"00172-3758-60 ")
  1. ;;191
  1. ;;21,"00172-3758-70 ")
  1. ;;192
  1. ;;21,"00172-3758-80 ")
  1. ;;193
  1. ;;21,"00172-3759-00 ")
  1. ;;194
  1. ;;21,"00172-3759-10 ")
  1. ;;195
  1. ;;21,"00172-3759-60 ")
  1. ;;196
  1. ;;21,"00172-3759-70 ")
  1. ;;197
  1. ;;21,"00172-3759-80 ")
  1. ;;198
  1. ;;21,"00172-3760-00 ")
  1. ;;199
  1. ;;21,"00172-3760-10 ")
  1. ;;200
  1. ;;21,"00172-3760-60 ")
  1. ;;201
  1. ;;21,"00172-3760-70 ")
  1. ;;202
  1. ;;21,"00172-3760-80 ")
  1. ;;203
  1. ;;21,"00172-3761-00 ")
  1. ;;204
  1. ;;21,"00172-3761-10 ")
  1. ;;205
  1. ;;21,"00172-3761-60 ")
  1. ;;206
  1. ;;21,"00172-3761-70 ")
  1. ;;207
  1. ;;21,"00172-3761-80 ")
  1. ;;208
  1. ;;21,"00172-3762-00 ")
  1. ;;209
  1. ;;21,"00172-3762-10 ")
  1. ;;210
  1. ;;21,"00172-3762-60 ")
  1. ;;211
  1. ;;21,"00172-3762-70 ")
  1. ;;212
  1. ;;21,"00172-5032-00 ")
  1. ;;213
  1. ;;21,"00172-5032-10 ")
  1. ;;214
  1. ;;21,"00172-5032-60 ")
  1. ;;215
  1. ;;21,"00172-5032-70 ")
  1. ;;216
  1. ;;21,"00172-5033-00 ")
  1. ;;217
  1. ;;21,"00172-5033-10 ")
  1. ;;218
  1. ;;21,"00172-5033-60 ")
  1. ;;219
  1. ;;21,"00172-5033-70 ")
  1. ;;220
  1. ;;21,"00172-5034-00 ")
  1. ;;221
  1. ;;21,"00172-5034-10 ")
  1. ;;222
  1. ;;21,"00172-5034-60 ")
  1. ;;223
  1. ;;21,"00172-5034-70 ")
  1. ;;224
  1. ;;21,"00172-5361-60 ")
  1. ;;225
  1. ;;21,"00185-0025-01 ")
  1. ;;226
  1. ;;21,"00185-0025-10 ")
  1. ;;227
  1. ;;21,"00185-0041-09 ")
  1. ;;228
  1. ;;21,"00185-0041-10 ")
  1. ;;229
  1. ;;21,"00185-0042-09 ")
  1. ;;230
  1. ;;21,"00185-0042-10 ")
  1. ;;231
  1. ;;21,"00185-0047-09 ")
  1. ;;232
  1. ;;21,"00185-0047-10 ")
  1. ;;233
  1. ;;21,"00185-0048-01 ")
  1. ;;234
  1. ;;21,"00185-0048-05 ")
  1. ;;235
  1. ;;21,"00185-0053-01 ")
  1. ;;236
  1. ;;21,"00185-0053-05 ")
  1. ;;237
  1. ;;21,"00185-0101-01 ")
  1. ;;238
  1. ;;21,"00185-0101-10 ")
  1. ;;239
  1. ;;21,"00185-0101-33 ")
  1. ;;240
  1. ;;21,"00185-0102-01 ")
  1. ;;241
  1. ;;21,"00185-0102-10 ")
  1. ;;242
  1. ;;21,"00185-0103-01 ")
  1. ;;243
  1. ;;21,"00185-0103-10 ")
  1. ;;244
  1. ;;21,"00185-0104-01 ")
  1. ;;245
  1. ;;21,"00185-0104-10 ")
  1. ;;246
  1. ;;21,"00185-0114-01 ")
  1. ;;247
  1. ;;21,"00185-0114-10 ")
  1. ;;248
  1. ;;21,"00185-0124-01 ")
  1. ;;249
  1. ;;21,"00185-0127-01 ")
  1. ;;250
  1. ;;21,"00185-0127-10 ")
  1. ;;251
  1. ;;21,"00185-0147-01 ")
  1. ;;252
  1. ;;21,"00185-0147-10 ")
  1. ;;253
  1. ;;21,"00185-0151-01 ")
  1. ;;254
  1. ;;21,"00185-0152-01 ")
  1. ;;255
  1. ;;21,"00185-0152-10 ")
  1. ;;256
  1. ;;21,"00185-0172-01 ")
  1. ;;257
  1. ;;21,"00185-0173-01 ")
  1. ;;258
  1. ;;21,"00185-0173-10 ")
  1. ;;259
  1. ;;21,"00185-0204-01 ")
  1. ;;260
  1. ;;21,"00185-0211-01 ")
  1. ;;261
  1. ;;21,"00185-0214-01 ")
  1. ;;262
  1. ;;21,"00185-0214-10 ")
  1. ;;263
  1. ;;21,"00185-0277-01 ")
  1. ;;264
  1. ;;21,"00185-0325-01 ")
  1. ;;265
  1. ;;21,"00185-0341-01 ")
  1. ;;266
  1. ;;21,"00185-0342-01 ")
  1. ;;267
  1. ;;21,"00185-0505-01 ")
  1. ;;268
  1. ;;21,"00185-0505-05 ")
  1. ;;269
  1. ;;21,"00185-0820-01 ")
  1. ;;270
  1. ;;21,"00185-0820-05 ")
  1. ;;271
  1. ;;21,"00185-5400-01 ")
  1. ;;272
  1. ;;21,"00185-5400-10 ")
  1. ;;273
  1. ;;21,"00185-7100-01 ")
  1. ;;274
  1. ;;21,"00185-7100-10 ")
  1. ;;275
  1. ;;21,"00187-0140-30 ")
  1. ;;276
  1. ;;21,"00187-0140-90 ")
  1. ;;277
  1. ;;21,"00187-0141-30 ")
  1. ;;278
  1. ;;21,"00187-0141-90 ")
  1. ;;279
  1. ;;21,"00187-0142-10 ")
  1. ;;280
  1. ;;21,"00187-0142-30 ")
  1. ;;281
  1. ;;21,"00187-0142-90 ")
  1. ;;282
  1. ;;21,"00187-0143-10 ")
  1. ;;283
  1. ;;21,"00187-0143-30 ")
  1. ;;284
  1. ;;21,"00187-0143-90 ")
  1. ;;285
  1. ;;21,"00187-0146-01 ")
  1. ;;286
  1. ;;21,"00228-2695-11 ")
  1. ;;287
  1. ;;21,"00228-2695-50 ")
  1. ;;288
  1. ;;21,"00228-2696-11 ")
  1. ;;289
  1. ;;21,"00228-2696-50 ")
  1. ;;290
  1. ;;21,"00228-2697-11 ")
  1. ;;291
  1. ;;21,"00228-2697-50 ")
  1. ;;292
  1. ;;21,"00247-0578-02 ")
  1. ;;293
  1. ;;21,"00247-0578-03 ")
  1. ;;294
  1. ;;21,"00247-0578-30 ")
  1. ;;295
  1. ;;21,"00247-0578-45 ")
  1. ;;296
  1. ;;21,"00247-0579-03 ")
  1. ;;297
  1. ;;21,"00247-0579-30 ")
  1. ;;298
  1. ;;21,"00247-1023-59 ")
  1. ;;299
  1. ;;21,"00247-1023-77 ")
  1. ;;300
  1. ;;21,"00247-1023-79 ")
  1. ;;301
  1. ;;21,"00247-1023-95 ")
  1. ;;302
  1. ;;21,"00247-1091-03 ")
  1. ;;303
  1. ;;21,"00247-1124-30 ")
  1. ;;304
  1. ;;21,"00247-1125-10 ")
  1. ;;305
  1. ;;21,"00247-1125-30 ")
  1. ;;306
  1. ;;21,"00247-1125-60 ")
  1. ;;307
  1. ;;21,"00247-1126-10 ")
  1. ;;308
  1. ;;21,"00247-1126-30 ")
  1. ;;309
  1. ;;21,"00247-1126-60 ")
  1. ;;310
  1. ;;21,"00247-1127-10 ")
  1. ;;311
  1. ;;21,"00247-1127-30 ")
  1. ;;312
  1. ;;21,"00247-1148-10 ")
  1. ;;313
  1. ;;21,"00247-1277-00 ")
  1. ;;314
  1. ;;21,"00247-1380-14 ")
  1. ;;315
  1. ;;21,"00247-1439-04 ")
  1. ;;316
  1. ;;21,"00247-1440-04 ")
  1. ;;317
  1. ;;21,"00247-1525-30 ")
  1. ;;318
  1. ;;21,"00247-1525-59 ")
  1. ;;319
  1. ;;21,"00247-1525-90 ")
  1. ;;320
  1. ;;21,"00247-1635-30 ")
  1. ;;321
  1. ;;21,"00247-1636-00 ")
  1. ;;322
  1. ;;21,"00247-1636-01 ")
  1. ;;323
  1. ;;21,"00247-1636-14 ")
  1. ;;324
  1. ;;21,"00247-1636-30 ")
  1. ;;325
  1. ;;21,"00247-1636-60 ")
  1. ;;326
  1. ;;21,"00247-1636-90 ")
  1. ;;327
  1. ;;21,"00247-1636-99 ")
  1. ;;328
  1. ;;21,"00247-1637-00 ")
  1. ;;329
  1. ;;21,"00247-1637-30 ")
  1. ;;330
  1. ;;21,"00247-1637-60 ")
  1. ;;331
  1. ;;21,"00247-1881-02 ")
  1. ;;332
  1. ;;21,"00247-1881-05 ")
  1. ;;333
  1. ;;21,"00247-1881-30 ")
  1. ;;334
  1. ;;21,"00247-1881-60 ")
  1. ;;335
  1. ;;21,"00247-1882-30 ")
  1. ;;336
  1. ;;21,"00247-1882-60 ")
  1. ;;337
  1. ;;21,"00247-1882-99 ")
  1. ;;338
  1. ;;21,"00247-1919-30 ")
  1. ;;339
  1. ;;21,"00247-1920-30 ")
  1. ;;340
  1. ;;21,"00247-1921-30 ")
  1. ;;341
  1. ;;21,"00247-1955-30 ")
  1. ;;342
  1. ;;21,"00247-1955-60 ")
  1. ;;343
  1. ;;21,"00247-1955-90 ")
  1. ;;344
  1. ;;21,"00247-1956-30 ")
  1. ;;345
  1. ;;21,"00247-1956-60 ")
  1. ;;346
  1. ;;21,"00247-1956-90 ")
  1. ;;347
  1. ;;21,"00247-1957-30 ")
  1. ;;348
  1. ;;21,"00247-1957-60 ")
  1. ;;349
  1. ;;21,"00247-1957-90 ")
  1. ;;350
  1. ;;21,"00247-2001-06 ")
  1. ;;351
  1. ;;21,"00247-2001-30 ")
  1. ;;352
  1. ;;21,"00247-2021-00 ")
  1. ;;353
  1. ;;21,"00247-2021-30 ")
  1. ;;354
  1. ;;21,"00247-2021-60 ")
  1. ;;355
  1. ;;21,"00247-2058-30 ")
  1. ;;356
  1. ;;21,"00247-2107-00 ")
  1. ;;357
  1. ;;21,"00247-2107-30 ")
  1. ;;358
  1. ;;21,"00247-2107-60 ")
  1. ;;359
  1. ;;21,"00247-2107-79 ")
  1. ;;360
  1. ;;21,"00247-2107-90 ")
  1. ;;361
  1. ;;21,"00247-2136-30 ")
  1. ;;362
  1. ;;21,"00247-2136-60 ")
  1. ;;363
  1. ;;21,"00247-2137-30 ")
  1. ;;364
  1. ;;21,"00247-2151-30 ")
  1. ;;365
  1. ;;21,"00247-2151-60 ")
  1. ;;366
  1. ;;21,"00247-2155-30 ")
  1. ;;367
  1. ;;21,"00247-2155-60 ")
  1. ;;368
  1. ;;21,"00247-2155-90 ")
  1. ;;369
  1. ;;21,"00247-2171-30 ")
  1. ;;370
  1. ;;21,"00247-2237-00 ")
  1. ;;371
  1. ;;21,"00247-2237-30 ")
  1. ;;372
  1. ;;21,"00247-2305-30 ")
  1. ;;373
  1. ;;21,"00247-2305-60 ")
  1. ;;374
  1. ;;21,"00247-2305-90 ")
  1. ;;375
  1. ;;21,"00247-2306-30 ")
  1. ;;376
  1. ;;21,"00247-2306-60 ")
  1. ;;377
  1. ;;21,"00247-2306-90 ")
  1. ;;378
  1. ;;21,"00247-2318-30 ")
  1. ;;379
  1. ;;21,"00247-2318-60 ")
  1. ;;380
  1. ;;21,"00247-2318-90 ")
  1. ;;381
  1. ;;21,"00247-2320-30 ")
  1. ;;382
  1. ;;21,"00247-2320-60 ")
  1. ;;383
  1. ;;21,"00247-2320-90 ")
  1. ;;384
  1. ;;21,"00310-0130-10 ")
  1. ;;385
  1. ;;21,"00310-0130-11 ")
  1. ;;386
  1. ;;21,"00310-0131-11 ")
  1. ;;387
  1. ;;21,"00310-0132-10 ")
  1. ;;388
  1. ;;21,"00310-0132-11 ")
  1. ;;389
  1. ;;21,"00310-0133-10 ")
  1. ;;390
  1. ;;21,"00310-0133-11 ")
  1. ;;391
  1. ;;21,"00310-0134-10 ")
  1. ;;392
  1. ;;21,"00310-0134-11 ")
  1. ;;393
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGP53O10
  1. D ^BGP53O11
  1. D ^BGP53O12
  1. D ^BGP53O13
  1. D ^BGP53O14
  1. D ^BGP53O15
  1. D ^BGP53O16
  1. D ^BGP53O17
  1. D ^BGP53O18
  1. D ^BGP53O19
  1. D ^BGP53O2
  1. D ^BGP53O20
  1. D ^BGP53O21
  1. D ^BGP53O22
  1. D ^BGP53O23
  1. D ^BGP53O24
  1. D ^BGP53O25
  1. D ^BGP53O26
  1. D ^BGP53O27
  1. D ^BGP53O28
  1. D ^BGP53O29
  1. D ^BGP53O3
  1. D ^BGP53O4
  1. D ^BGP53O5
  1. D ^BGP53O6
  1. D ^BGP53O7
  1. D ^BGP53O8
  1. D ^BGP53O9
  1. Q