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

BGP31R.m

Go to the documentation of this file.
  1. BGP31R ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 29, 2012;
  1. ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81
  1. ;;BGP HEDIS ENDOCRINE NDC
  1. ;
  1. ; This routine loads Taxonomy BGP HEDIS ENDOCRINE 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,"00009-0131-01 ")
  1. ;;1
  1. ;;21,"00009-0141-01 ")
  1. ;;2
  1. ;;21,"00009-0141-02 ")
  1. ;;3
  1. ;;21,"00009-0171-03 ")
  1. ;;4
  1. ;;21,"00009-0171-05 ")
  1. ;;5
  1. ;;21,"00009-0171-06 ")
  1. ;;6
  1. ;;21,"00009-0171-07 ")
  1. ;;7
  1. ;;21,"00009-0341-01 ")
  1. ;;8
  1. ;;21,"00009-0341-02 ")
  1. ;;9
  1. ;;21,"00009-0352-01 ")
  1. ;;10
  1. ;;21,"00009-0352-02 ")
  1. ;;11
  1. ;;21,"00009-0352-03 ")
  1. ;;12
  1. ;;21,"00009-0352-04 ")
  1. ;;13
  1. ;;21,"00009-3449-01 ")
  1. ;;14
  1. ;;21,"00009-3449-03 ")
  1. ;;15
  1. ;;21,"00009-3772-01 ")
  1. ;;16
  1. ;;21,"00009-3772-17 ")
  1. ;;17
  1. ;;21,"00009-3773-01 ")
  1. ;;18
  1. ;;21,"00009-3773-17 ")
  1. ;;19
  1. ;;21,"00009-3774-01 ")
  1. ;;20
  1. ;;21,"00009-3774-17 ")
  1. ;;21
  1. ;;21,"00009-5174-01 ")
  1. ;;22
  1. ;;21,"00009-5174-02 ")
  1. ;;23
  1. ;;21,"00015-0508-42 ")
  1. ;;24
  1. ;;21,"00015-0595-01 ")
  1. ;;25
  1. ;;21,"00015-0596-41 ")
  1. ;;26
  1. ;;21,"00032-1014-01 ")
  1. ;;27
  1. ;;21,"00032-1022-01 ")
  1. ;;28
  1. ;;21,"00032-1022-10 ")
  1. ;;29
  1. ;;21,"00032-1023-01 ")
  1. ;;30
  1. ;;21,"00032-1026-01 ")
  1. ;;31
  1. ;;21,"00032-1026-10 ")
  1. ;;32
  1. ;;21,"00039-0051-10 ")
  1. ;;33
  1. ;;21,"00039-0051-11 ")
  1. ;;34
  1. ;;21,"00039-0051-50 ")
  1. ;;35
  1. ;;21,"00039-0052-10 ")
  1. ;;36
  1. ;;21,"00039-0052-11 ")
  1. ;;37
  1. ;;21,"00039-0052-50 ")
  1. ;;38
  1. ;;21,"00039-0052-70 ")
  1. ;;39
  1. ;;21,"00039-0053-05 ")
  1. ;;40
  1. ;;21,"00046-0864-81 ")
  1. ;;41
  1. ;;21,"00046-0865-81 ")
  1. ;;42
  1. ;;21,"00046-0865-91 ")
  1. ;;43
  1. ;;21,"00046-0866-81 ")
  1. ;;44
  1. ;;21,"00046-0866-91 ")
  1. ;;45
  1. ;;21,"00046-0866-95 ")
  1. ;;46
  1. ;;21,"00046-0866-99 ")
  1. ;;47
  1. ;;21,"00046-0867-81 ")
  1. ;;48
  1. ;;21,"00046-0867-91 ")
  1. ;;49
  1. ;;21,"00046-0867-95 ")
  1. ;;50
  1. ;;21,"00046-0867-99 ")
  1. ;;51
  1. ;;21,"00046-0868-81 ")
  1. ;;52
  1. ;;21,"00046-0868-91 ")
  1. ;;53
  1. ;;21,"00046-0875-05 ")
  1. ;;54
  1. ;;21,"00046-0875-06 ")
  1. ;;55
  1. ;;21,"00046-0875-11 ")
  1. ;;56
  1. ;;21,"00046-0936-81 ")
  1. ;;57
  1. ;;21,"00046-0937-08 ")
  1. ;;58
  1. ;;21,"00046-0937-09 ")
  1. ;;59
  1. ;;21,"00046-0937-18 ")
  1. ;;60
  1. ;;21,"00046-0938-08 ")
  1. ;;61
  1. ;;21,"00046-0938-09 ")
  1. ;;62
  1. ;;21,"00046-0938-18 ")
  1. ;;63
  1. ;;21,"00046-0975-05 ")
  1. ;;64
  1. ;;21,"00046-0975-06 ")
  1. ;;65
  1. ;;21,"00046-0975-11 ")
  1. ;;66
  1. ;;21,"00046-1100-81 ")
  1. ;;67
  1. ;;21,"00046-1100-91 ")
  1. ;;68
  1. ;;21,"00046-1101-81 ")
  1. ;;69
  1. ;;21,"00046-1102-81 ")
  1. ;;70
  1. ;;21,"00046-1102-91 ")
  1. ;;71
  1. ;;21,"00046-1103-81 ")
  1. ;;72
  1. ;;21,"00046-1104-81 ")
  1. ;;73
  1. ;;21,"00046-1104-91 ")
  1. ;;74
  1. ;;21,"00046-1105-11 ")
  1. ;;75
  1. ;;21,"00046-1106-11 ")
  1. ;;76
  1. ;;21,"00046-1107-11 ")
  1. ;;77
  1. ;;21,"00046-2573-05 ")
  1. ;;78
  1. ;;21,"00046-2573-06 ")
  1. ;;79
  1. ;;21,"00046-2579-11 ")
  1. ;;80
  1. ;;21,"00046-3867-81 ")
  1. ;;81
  1. ;;21,"00051-1028-58 ")
  1. ;;82
  1. ;;21,"00054-3542-58 ")
  1. ;;83
  1. ;;21,"00054-4603-25 ")
  1. ;;84
  1. ;;21,"00054-4604-25 ")
  1. ;;85
  1. ;;21,"00054-8603-25 ")
  1. ;;86
  1. ;;21,"00054-8604-25 ")
  1. ;;87
  1. ;;21,"00062-1840-15 ")
  1. ;;88
  1. ;;21,"00069-3930-66 ")
  1. ;;89
  1. ;;21,"00069-3940-66 ")
  1. ;;90
  1. ;;21,"00069-3940-82 ")
  1. ;;91
  1. ;;21,"00071-0144-23 ")
  1. ;;92
  1. ;;21,"00071-0144-45 ")
  1. ;;93
  1. ;;21,"00078-0343-42 ")
  1. ;;94
  1. ;;21,"00078-0343-45 ")
  1. ;;95
  1. ;;21,"00078-0343-62 ")
  1. ;;96
  1. ;;21,"00078-0344-42 ")
  1. ;;97
  1. ;;21,"00078-0344-45 ")
  1. ;;98
  1. ;;21,"00078-0344-62 ")
  1. ;;99
  1. ;;21,"00078-0345-42 ")
  1. ;;100
  1. ;;21,"00078-0345-45 ")
  1. ;;101
  1. ;;21,"00078-0345-62 ")
  1. ;;102
  1. ;;21,"00078-0346-42 ")
  1. ;;103
  1. ;;21,"00078-0346-45 ")
  1. ;;104
  1. ;;21,"00078-0346-62 ")
  1. ;;105
  1. ;;21,"00078-0348-42 ")
  1. ;;106
  1. ;;21,"00078-0348-44 ")
  1. ;;107
  1. ;;21,"00078-0365-42 ")
  1. ;;108
  1. ;;21,"00078-0365-45 ")
  1. ;;109
  1. ;;21,"00078-0377-42 ")
  1. ;;110
  1. ;;21,"00078-0377-45 ")
  1. ;;111
  1. ;;21,"00078-0377-62 ")
  1. ;;112
  1. ;;21,"00078-0378-42 ")
  1. ;;113
  1. ;;21,"00078-0378-45 ")
  1. ;;114
  1. ;;21,"00078-0378-62 ")
  1. ;;115
  1. ;;21,"00078-0480-42 ")
  1. ;;116
  1. ;;21,"00078-0480-62 ")
  1. ;;117
  1. ;;21,"00078-0481-42 ")
  1. ;;118
  1. ;;21,"00078-0481-62 ")
  1. ;;119
  1. ;;21,"00083-2310-01 ")
  1. ;;120
  1. ;;21,"00083-2310-08 ")
  1. ;;121
  1. ;;21,"00083-2310-62 ")
  1. ;;122
  1. ;;21,"00083-2320-01 ")
  1. ;;123
  1. ;;21,"00083-2320-08 ")
  1. ;;124
  1. ;;21,"00083-2320-62 ")
  1. ;;125
  1. ;;21,"00083-2325-01 ")
  1. ;;126
  1. ;;21,"00083-2325-08 ")
  1. ;;127
  1. ;;21,"00083-2325-62 ")
  1. ;;128
  1. ;;21,"00083-2326-01 ")
  1. ;;129
  1. ;;21,"00083-2326-08 ")
  1. ;;130
  1. ;;21,"00083-2326-62 ")
  1. ;;131
  1. ;;21,"00083-2327-01 ")
  1. ;;132
  1. ;;21,"00083-2327-08 ")
  1. ;;133
  1. ;;21,"00083-2327-62 ")
  1. ;;134
  1. ;;21,"00083-2328-01 ")
  1. ;;135
  1. ;;21,"00083-2328-08 ")
  1. ;;136
  1. ;;21,"00083-2328-62 ")
  1. ;;137
  1. ;;21,"00085-0070-03 ")
  1. ;;138
  1. ;;21,"00085-0070-06 ")
  1. ;;139
  1. ;;21,"00085-0298-03 ")
  1. ;;140
  1. ;;21,"00085-0298-06 ")
  1. ;;141
  1. ;;21,"00087-0021-41 ")
  1. ;;142
  1. ;;21,"00087-0755-01 ")
  1. ;;143
  1. ;;21,"00087-0755-48 ")
  1. ;;144
  1. ;;21,"00087-0756-01 ")
  1. ;;145
  1. ;;21,"00087-0756-48 ")
  1. ;;146
  1. ;;21,"00087-6072-11 ")
  1. ;;147
  1. ;;21,"00087-6073-11 ")
  1. ;;148
  1. ;;21,"00087-6074-11 ")
  1. ;;149
  1. ;;21,"00093-3122-42 ")
  1. ;;150
  1. ;;21,"00093-3122-98 ")
  1. ;;151
  1. ;;21,"00093-5455-28 ")
  1. ;;152
  1. ;;21,"00093-5455-42 ")
  1. ;;153
  1. ;;21,"00093-5710-01 ")
  1. ;;154
  1. ;;21,"00093-5710-05 ")
  1. ;;155
  1. ;;21,"00093-5710-19 ")
  1. ;;156
  1. ;;21,"00093-5710-83 ")
  1. ;;157
  1. ;;21,"00093-5710-93 ")
  1. ;;158
  1. ;;21,"00093-5711-01 ")
  1. ;;159
  1. ;;21,"00093-5711-05 ")
  1. ;;160
  1. ;;21,"00093-5711-19 ")
  1. ;;161
  1. ;;21,"00093-5711-93 ")
  1. ;;162
  1. ;;21,"00093-5712-01 ")
  1. ;;163
  1. ;;21,"00093-5712-05 ")
  1. ;;164
  1. ;;21,"00093-5712-19 ")
  1. ;;165
  1. ;;21,"00093-5712-93 ")
  1. ;;166
  1. ;;21,"00093-7260-01 ")
  1. ;;167
  1. ;;21,"00093-7261-01 ")
  1. ;;168
  1. ;;21,"00093-7261-05 ")
  1. ;;169
  1. ;;21,"00093-7262-01 ")
  1. ;;170
  1. ;;21,"00093-7262-05 ")
  1. ;;171
  1. ;;21,"00093-8034-01 ")
  1. ;;172
  1. ;;21,"00093-8035-01 ")
  1. ;;173
  1. ;;21,"00093-8035-05 ")
  1. ;;174
  1. ;;21,"00093-8035-10 ")
  1. ;;175
  1. ;;21,"00093-8036-01 ")
  1. ;;176
  1. ;;21,"00093-8342-01 ")
  1. ;;177
  1. ;;21,"00093-8343-01 ")
  1. ;;178
  1. ;;21,"00093-8343-05 ")
  1. ;;179
  1. ;;21,"00093-8343-10 ")
  1. ;;180
  1. ;;21,"00093-8343-98 ")
  1. ;;181
  1. ;;21,"00093-8344-01 ")
  1. ;;182
  1. ;;21,"00093-8344-05 ")
  1. ;;183
  1. ;;21,"00093-8344-10 ")
  1. ;;184
  1. ;;21,"00093-8344-19 ")
  1. ;;185
  1. ;;21,"00093-8344-93 ")
  1. ;;186
  1. ;;21,"00093-8344-98 ")
  1. ;;187
  1. ;;21,"00093-9364-01 ")
  1. ;;188
  1. ;;21,"00093-9364-05 ")
  1. ;;189
  1. ;;21,"00093-9364-10 ")
  1. ;;190
  1. ;;21,"00093-9433-01 ")
  1. ;;191
  1. ;;21,"00093-9433-05 ")
  1. ;;192
  1. ;;21,"00093-9477-53 ")
  1. ;;193
  1. ;;21,"00093-9634-87 ")
  1. ;;194
  1. ;;21,"00121-4776-10 ")
  1. ;;195
  1. ;;21,"00121-4776-20 ")
  1. ;;196
  1. ;;21,"00143-9918-01 ")
  1. ;;197
  1. ;;21,"00143-9919-01 ")
  1. ;;198
  1. ;;21,"00143-9919-05 ")
  1. ;;199
  1. ;;21,"00143-9920-01 ")
  1. ;;200
  1. ;;21,"00143-9920-05 ")
  1. ;;201
  1. ;;21,"00143-9920-10 ")
  1. ;;202
  1. ;;21,"00169-5174-01 ")
  1. ;;203
  1. ;;21,"00169-5174-02 ")
  1. ;;204
  1. ;;21,"00169-5175-10 ")
  1. ;;205
  1. ;;21,"00169-5175-11 ")
  1. ;;206
  1. ;;21,"00172-5710-00 ")
  1. ;;207
  1. ;;21,"00172-5710-10 ")
  1. ;;208
  1. ;;21,"00172-5710-60 ")
  1. ;;209
  1. ;;21,"00172-5710-70 ")
  1. ;;210
  1. ;;21,"00172-5710-84 ")
  1. ;;211
  1. ;;21,"00172-5711-00 ")
  1. ;;212
  1. ;;21,"00172-5711-10 ")
  1. ;;213
  1. ;;21,"00172-5711-60 ")
  1. ;;214
  1. ;;21,"00172-5711-70 ")
  1. ;;215
  1. ;;21,"00172-5711-88 ")
  1. ;;216
  1. ;;21,"00172-5712-00 ")
  1. ;;217
  1. ;;21,"00172-5712-10 ")
  1. ;;218
  1. ;;21,"00172-5712-60 ")
  1. ;;219
  1. ;;21,"00172-5712-70 ")
  1. ;;220
  1. ;;21,"00172-5712-88 ")
  1. ;;221
  1. ;;21,"00182-1851-89 ")
  1. ;;222
  1. ;;21,"00182-1864-00 ")
  1. ;;223
  1. ;;21,"00182-1864-89 ")
  1. ;;224
  1. ;;21,"00182-2646-00 ")
  1. ;;225
  1. ;;21,"00182-2646-89 ")
  1. ;;226
  1. ;;21,"00182-2647-00 ")
  1. ;;227
  1. ;;21,"00182-2647-89 ")
  1. ;;228
  1. ;;21,"00228-2751-11 ")
  1. ;;229
  1. ;;21,"00228-2751-50 ")
  1. ;;230
  1. ;;21,"00228-2752-11 ")
  1. ;;231
  1. ;;21,"00228-2752-50 ")
  1. ;;232
  1. ;;21,"00228-2753-11 ")
  1. ;;233
  1. ;;21,"00228-2753-50 ")
  1. ;;234
  1. ;;21,"00245-0880-30 ")
  1. ;;235
  1. ;;21,"00245-0881-30 ")
  1. ;;236
  1. ;;21,"00245-0882-30 ")
  1. ;;237
  1. ;;21,"00247-0249-00 ")
  1. ;;238
  1. ;;21,"00247-0249-30 ")
  1. ;;239
  1. ;;21,"00247-0250-00 ")
  1. ;;240
  1. ;;21,"00247-0250-30 ")
  1. ;;241
  1. ;;21,"00247-0251-00 ")
  1. ;;242
  1. ;;21,"00247-0251-30 ")
  1. ;;243
  1. ;;21,"00247-0251-90 ")
  1. ;;244
  1. ;;21,"00247-1045-30 ")
  1. ;;245
  1. ;;21,"00247-1045-45 ")
  1. ;;246
  1. ;;21,"00247-1226-30 ")
  1. ;;247
  1. ;;21,"00247-1270-00 ")
  1. ;;248
  1. ;;21,"00247-1270-06 ")
  1. ;;249
  1. ;;21,"00378-0197-01 ")
  1. ;;250
  1. ;;21,"00378-0197-05 ")
  1. ;;251
  1. ;;21,"00378-0210-01 ")
  1. ;;252
  1. ;;21,"00378-0210-10 ")
  1. ;;253
  1. ;;21,"00378-1113-01 ")
  1. ;;254
  1. ;;21,"00378-1125-01 ")
  1. ;;255
  1. ;;21,"00378-1125-10 ")
  1. ;;256
  1. ;;21,"00378-1142-01 ")
  1. ;;257
  1. ;;21,"00378-1452-01 ")
  1. ;;258
  1. ;;21,"00378-1452-05 ")
  1. ;;259
  1. ;;21,"00378-1454-01 ")
  1. ;;260
  1. ;;21,"00378-1454-05 ")
  1. ;;261
  1. ;;21,"00378-1458-01 ")
  1. ;;262
  1. ;;21,"00378-1458-05 ")
  1. ;;263
  1. ;;21,"00378-1458-77 ")
  1. ;;264
  1. ;;21,"00378-3349-99 ")
  1. ;;265
  1. ;;21,"00378-3350-99 ")
  1. ;;266
  1. ;;21,"00378-3351-99 ")
  1. ;;267
  1. ;;21,"00378-3352-99 ")
  1. ;;268
  1. ;;21,"00378-3360-99 ")
  1. ;;269
  1. ;;21,"00378-3361-99 ")
  1. ;;270
  1. ;;21,"00378-4551-01 ")
  1. ;;271
  1. ;;21,"00378-4553-01 ")
  1. ;;272
  1. ;;21,"00378-4555-01 ")
  1. ;;273
  1. ;;21,"00421-0158-01 ")
  1. ;;274
  1. ;;21,"00421-0748-01 ")
  1. ;;275
  1. ;;21,"00421-0768-01 ")
  1. ;;276
  1. ;;21,"00421-1259-01 ")
  1. ;;277
  1. ;;21,"00430-0021-24 ")
  1. ;;278
  1. ;;21,"00430-0023-24 ")
  1. ;;279
  1. ;;21,"00430-0023-30 ")
  1. ;;280
  1. ;;21,"00430-0024-24 ")
  1. ;;281
  1. ;;21,"00430-0024-30 ")
  1. ;;282
  1. ;;21,"00430-0145-14 ")
  1. ;;283
  1. ;;21,"00430-0145-23 ")
  1. ;;284
  1. ;;21,"00430-0389-24 ")
  1. ;;285
  1. ;;21,"00430-0390-24 ")
  1. ;;286
  1. ;;21,"00430-0391-24 ")
  1. ;;287
  1. ;;21,"00430-0544-14 ")
  1. ;;288
  1. ;;21,"00430-0544-23 ")
  1. ;;289
  1. ;;21,"00430-0720-24 ")
  1. ;;290
  1. ;;21,"00430-0721-24 ")
  1. ;;291
  1. ;;21,"00430-0722-24 ")
  1. ;;292
  1. ;;21,"00440-7570-20 ")
  1. ;;293
  1. ;;21,"00440-7571-14 ")
  1. ;;294
  1. ;;21,"00440-7571-30 ")
  1. ;;295
  1. ;;21,"00440-7571-60 ")
  1. ;;296
  1. ;;21,"00440-7571-90 ")
  1. ;;297
  1. ;;21,"00440-7571-91 ")
  1. ;;298
  1. ;;21,"00440-7571-92 ")
  1. ;;299
  1. ;;21,"00440-7571-94 ")
  1. ;;300
  1. ;;21,"00440-7571-95 ")
  1. ;;301
  1. ;;21,"00440-7585-90 ")
  1. ;;302
  1. ;;21,"00440-7587-90 ")
  1. ;;303
  1. ;;21,"00440-7589-90 ")
  1. ;;304
  1. ;;21,"00440-7589-95 ")
  1. ;;305
  1. ;;21,"00440-7749-10 ")
  1. ;;306
  1. ;;21,"00440-7749-20 ")
  1. ;;307
  1. ;;21,"00440-7749-30 ")
  1. ;;308
  1. ;;21,"00440-7749-60 ")
  1. ;;309
  1. ;;21,"00440-8170-30 ")
  1. ;;310
  1. ;;21,"00440-8170-60 ")
  1. ;;311
  1. ;;21,"00440-8170-90 ")
  1. ;;312
  1. ;;21,"00440-8171-30 ")
  1. ;;313
  1. ;;21,"00440-8171-60 ")
  1. ;;314
  1. ;;21,"00440-8171-90 ")
  1. ;;315
  1. ;;21,"00440-8172-30 ")
  1. ;;316
  1. ;;21,"00440-8172-60 ")
  1. ;;317
  1. ;;21,"00440-8172-90 ")
  1. ;;318
  1. ;;21,"00456-0457-01 ")
  1. ;;319
  1. ;;21,"00456-0458-00 ")
  1. ;;320
  1. ;;21,"00456-0458-01 ")
  1. ;;321
  1. ;;21,"00456-0458-11 ")
  1. ;;322
  1. ;;21,"00456-0458-63 ")
  1. ;;323
  1. ;;21,"00456-0458-69 ")
  1. ;;324
  1. ;;21,"00456-0459-00 ")
  1. ;;325
  1. ;;21,"00456-0459-01 ")
  1. ;;326
  1. ;;21,"00456-0459-11 ")
  1. ;;327
  1. ;;21,"00456-0459-51 ")
  1. ;;328
  1. ;;21,"00456-0459-63 ")
  1. ;;329
  1. ;;21,"00456-0459-69 ")
  1. ;;330
  1. ;;21,"00456-0460-01 ")
  1. ;;331
  1. ;;21,"00456-0461-00 ")
  1. ;;332
  1. ;;21,"00456-0461-01 ")
  1. ;;333
  1. ;;21,"00456-0461-63 ")
  1. ;;334
  1. ;;21,"00456-0461-69 ")
  1. ;;335
  1. ;;21,"00456-0462-00 ")
  1. ;;336
  1. ;;21,"00456-0462-01 ")
  1. ;;337
  1. ;;21,"00456-0463-01 ")
  1. ;;338
  1. ;;21,"00456-0464-01 ")
  1. ;;339
  1. ;;21,"00482-4900-02 ")
  1. ;;340
  1. ;;21,"00527-1409-01 ")
  1. ;;341
  1. ;;21,"00527-1409-10 ")
  1. ;;342
  1. ;;21,"00527-1410-01 ")
  1. ;;343
  1. ;;21,"00527-1410-10 ")
  1. ;;344
  1. ;;21,"00555-0606-02 ")
  1. ;;345
  1. ;;21,"00555-0607-02 ")
  1. ;;346
  1. ;;21,"00555-0607-03 ")
  1. ;;347
  1. ;;21,"00555-0607-04 ")
  1. ;;348
  1. ;;21,"00555-0727-02 ")
  1. ;;349
  1. ;;21,"00555-0728-02 ")
  1. ;;350
  1. ;;21,"00555-0729-02 ")
  1. ;;351
  1. ;;21,"00555-0886-02 ")
  1. ;;352
  1. ;;21,"00555-0886-04 ")
  1. ;;353
  1. ;;21,"00555-0887-02 ")
  1. ;;354
  1. ;;21,"00555-0887-04 ")
  1. ;;355
  1. ;;21,"00555-0899-02 ")
  1. ;;356
  1. ;;21,"00591-0414-01 ")
  1. ;;357
  1. ;;21,"00591-0415-01 ")
  1. ;;358
  1. ;;21,"00591-0416-01 ")
  1. ;;359
  1. ;;21,"00591-0487-01 ")
  1. ;;360
  1. ;;21,"00591-0487-05 ")
  1. ;;361
  1. ;;21,"00591-0488-01 ")
  1. ;;362
  1. ;;21,"00591-0488-05 ")
  1. ;;363
  1. ;;21,"00591-0528-01 ")
  1. ;;364
  1. ;;21,"00603-2835-21 ")
  1. ;;365
  1. ;;21,"00603-2836-32 ")
  1. ;;366
  1. ;;21,"00603-6045-32 ")
  1. ;;367
  1. ;;21,"00603-6046-32 ")
  1. ;;368
  1. ;;21,"00603-6047-32 ")
  1. ;;369
  1. ;;21,"00603-6048-32 ")
  1. ;;370
  1. ;;21,"00603-6050-21 ")
  1. ;;371
  1. ;;21,"00603-6051-21 ")
  1. ;;372
  1. ;;21,"00603-6051-32 ")
  1. ;;373
  1. ;;21,"00603-6052-21 ")
  1. ;;374
  1. ;;21,"00603-6052-32 ")
  1. ;;375
  1. ;;21,"00603-6053-21 ")
  1. ;;376
  1. ;;21,"00603-6053-32 ")
  1. ;;377
  1. ;;21,"00603-6054-21 ")
  1. ;;378
  1. ;;21,"00603-6054-32 ")
  1. ;;379
  1. ;;21,"00603-6055-21 ")
  1. ;;380
  1. ;;21,"00603-6055-32 ")
  1. ;;381
  1. ;;21,"00603-6056-21 ")
  1. ;;382
  1. ;;21,"00603-6057-21 ")
  1. ;;383
  1. ;;21,"00615-3570-53 ")
  1. ;;384
  1. ;;21,"00615-3570-63 ")
  1. ;;385
  1. ;;21,"00677-1657-10 ")
  1. ;;386
  1. ;;21,"00677-1658-10 ")
  1. ;;387
  1. ;;21,"00677-1659-10 ")
  1. ;;388
  1. ;;21,"00781-1138-01 ")
  1. ;;389
  1. ;;21,"00781-1146-01 ")
  1. ;;390
  1. ;;21,"00781-1191-01 ")
  1. ;;391
  1. ;;21,"00781-1191-10 ")
  1. ;;392
  1. ;;21,"00781-5170-01 ")
  1. ;;393
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGP31R10
  1. D ^BGP31R11
  1. D ^BGP31R12
  1. D ^BGP31R13
  1. D ^BGP31R14
  1. D ^BGP31R15
  1. D ^BGP31R16
  1. D ^BGP31R17
  1. D ^BGP31R18
  1. D ^BGP31R19
  1. D ^BGP31R2
  1. D ^BGP31R20
  1. D ^BGP31R21
  1. D ^BGP31R3
  1. D ^BGP31R4
  1. D ^BGP31R5
  1. D ^BGP31R6
  1. D ^BGP31R7
  1. D ^BGP31R8
  1. D ^BGP31R9
  1. Q