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

BGP53R.m

Go to the documentation of this file.
  1. BGP53R ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 24, 2015;
  1. ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
  1. ;;BGP HEDIS OSTEOPOROSIS NDC
  1. ;
  1. ; This routine loads Taxonomy BGP HEDIS OSTEOPOROSIS 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,"00002-4165-02 ")
  1. ;;1
  1. ;;21,"00002-4165-07 ")
  1. ;;2
  1. ;;21,"00002-4165-30 ")
  1. ;;3
  1. ;;21,"00002-4165-34 ")
  1. ;;4
  1. ;;21,"00002-4165-79 ")
  1. ;;5
  1. ;;21,"00002-8400-01 ")
  1. ;;6
  1. ;;21,"00004-0186-82 ")
  1. ;;7
  1. ;;21,"00004-0188-09 ")
  1. ;;8
  1. ;;21,"00004-0191-09 ")
  1. ;;9
  1. ;;21,"00006-0031-01 ")
  1. ;;10
  1. ;;21,"00006-0031-21 ")
  1. ;;11
  1. ;;21,"00006-0031-44 ")
  1. ;;12
  1. ;;21,"00006-0077-01 ")
  1. ;;13
  1. ;;21,"00006-0077-21 ")
  1. ;;14
  1. ;;21,"00006-0077-44 ")
  1. ;;15
  1. ;;21,"00006-0212-31 ")
  1. ;;16
  1. ;;21,"00006-0270-44 ")
  1. ;;17
  1. ;;21,"00006-0710-01 ")
  1. ;;18
  1. ;;21,"00006-0710-11 ")
  1. ;;19
  1. ;;21,"00006-0710-21 ")
  1. ;;20
  1. ;;21,"00006-0710-44 ")
  1. ;;21
  1. ;;21,"00006-0925-31 ")
  1. ;;22
  1. ;;21,"00006-0925-58 ")
  1. ;;23
  1. ;;21,"00006-0936-01 ")
  1. ;;24
  1. ;;21,"00006-0936-28 ")
  1. ;;25
  1. ;;21,"00006-0936-31 ")
  1. ;;26
  1. ;;21,"00006-0936-58 ")
  1. ;;27
  1. ;;21,"00006-0936-82 ")
  1. ;;28
  1. ;;21,"00006-3833-01 ")
  1. ;;29
  1. ;;21,"00006-3833-34 ")
  1. ;;30
  1. ;;21,"00078-0149-23 ")
  1. ;;31
  1. ;;21,"00078-0311-54 ")
  1. ;;32
  1. ;;21,"00078-0387-25 ")
  1. ;;33
  1. ;;21,"00078-0435-61 ")
  1. ;;34
  1. ;;21,"00078-0590-61 ")
  1. ;;35
  1. ;;21,"00093-5140-01 ")
  1. ;;36
  1. ;;21,"00093-5140-56 ")
  1. ;;37
  1. ;;21,"00093-5141-01 ")
  1. ;;38
  1. ;;21,"00093-5141-56 ")
  1. ;;39
  1. ;;21,"00093-5142-56 ")
  1. ;;40
  1. ;;21,"00093-5171-19 ")
  1. ;;41
  1. ;;21,"00093-5171-20 ")
  1. ;;42
  1. ;;21,"00093-5171-29 ")
  1. ;;43
  1. ;;21,"00093-5171-44 ")
  1. ;;44
  1. ;;21,"00093-5172-19 ")
  1. ;;45
  1. ;;21,"00093-5172-20 ")
  1. ;;46
  1. ;;21,"00093-5172-29 ")
  1. ;;47
  1. ;;21,"00093-5172-44 ")
  1. ;;48
  1. ;;21,"00093-7290-01 ")
  1. ;;49
  1. ;;21,"00093-7290-10 ")
  1. ;;50
  1. ;;21,"00093-7290-56 ")
  1. ;;51
  1. ;;21,"00143-9642-01 ")
  1. ;;52
  1. ;;21,"00149-0470-01 ")
  1. ;;53
  1. ;;21,"00149-0470-03 ")
  1. ;;54
  1. ;;21,"00149-0471-01 ")
  1. ;;55
  1. ;;21,"00149-0471-03 ")
  1. ;;56
  1. ;;21,"00149-0472-01 ")
  1. ;;57
  1. ;;21,"00149-0472-04 ")
  1. ;;58
  1. ;;21,"00149-0478-01 ")
  1. ;;59
  1. ;;21,"00149-0478-03 ")
  1. ;;60
  1. ;;21,"00178-0101-02 ")
  1. ;;61
  1. ;;21,"00245-0008-35 ")
  1. ;;62
  1. ;;21,"00247-1960-15 ")
  1. ;;63
  1. ;;21,"00247-1960-30 ")
  1. ;;64
  1. ;;21,"00378-3566-01 ")
  1. ;;65
  1. ;;21,"00378-3567-01 ")
  1. ;;66
  1. ;;21,"00378-3568-22 ")
  1. ;;67
  1. ;;21,"00378-3568-93 ")
  1. ;;68
  1. ;;21,"00378-3568-99 ")
  1. ;;69
  1. ;;21,"00378-3569-22 ")
  1. ;;70
  1. ;;21,"00378-3569-93 ")
  1. ;;71
  1. ;;21,"00378-3569-99 ")
  1. ;;72
  1. ;;21,"00378-4150-32 ")
  1. ;;73
  1. ;;21,"00378-4150-53 ")
  1. ;;74
  1. ;;21,"00378-5215-53 ")
  1. ;;75
  1. ;;21,"00430-0470-15 ")
  1. ;;76
  1. ;;21,"00430-0471-15 ")
  1. ;;77
  1. ;;21,"00430-0472-03 ")
  1. ;;78
  1. ;;21,"00430-0472-07 ")
  1. ;;79
  1. ;;21,"00430-0478-01 ")
  1. ;;80
  1. ;;21,"00430-0478-02 ")
  1. ;;81
  1. ;;21,"00430-0979-03 ")
  1. ;;82
  1. ;;21,"00555-0720-54 ")
  1. ;;83
  1. ;;21,"00591-0031-04 ")
  1. ;;84
  1. ;;21,"00591-0077-04 ")
  1. ;;85
  1. ;;21,"00591-2044-03 ")
  1. ;;86
  1. ;;21,"00591-2044-54 ")
  1. ;;87
  1. ;;21,"00591-3171-04 ")
  1. ;;88
  1. ;;21,"00591-3173-04 ")
  1. ;;89
  1. ;;21,"00591-3770-31 ")
  1. ;;90
  1. ;;21,"00781-6320-79 ")
  1. ;;91
  1. ;;21,"12280-0418-30 ")
  1. ;;92
  1. ;;21,"16252-0599-02 ")
  1. ;;93
  1. ;;21,"16252-0599-44 ")
  1. ;;94
  1. ;;21,"16252-0601-02 ")
  1. ;;95
  1. ;;21,"16252-0601-44 ")
  1. ;;96
  1. ;;21,"16590-0491-04 ")
  1. ;;97
  1. ;;21,"16590-0718-04 ")
  1. ;;98
  1. ;;21,"16590-0718-20 ")
  1. ;;99
  1. ;;21,"16590-0718-30 ")
  1. ;;100
  1. ;;21,"16590-0721-04 ")
  1. ;;101
  1. ;;21,"16714-0631-01 ")
  1. ;;102
  1. ;;21,"16714-0631-02 ")
  1. ;;103
  1. ;;21,"16714-0632-01 ")
  1. ;;104
  1. ;;21,"16714-0632-02 ")
  1. ;;105
  1. ;;21,"16714-0633-01 ")
  1. ;;106
  1. ;;21,"16714-0633-02 ")
  1. ;;107
  1. ;;21,"21695-0901-04 ")
  1. ;;108
  1. ;;21,"21695-0902-04 ")
  1. ;;109
  1. ;;21,"23155-0170-31 ")
  1. ;;110
  1. ;;21,"23155-0186-31 ")
  1. ;;111
  1. ;;21,"23490-9245-00 ")
  1. ;;112
  1. ;;21,"24658-0162-71 ")
  1. ;;113
  1. ;;21,"24658-0162-73 ")
  1. ;;114
  1. ;;21,"24658-0163-71 ")
  1. ;;115
  1. ;;21,"24658-0163-73 ")
  1. ;;116
  1. ;;21,"25021-0801-66 ")
  1. ;;117
  1. ;;21,"25021-0826-82 ")
  1. ;;118
  1. ;;21,"25021-0827-61 ")
  1. ;;119
  1. ;;21,"25021-0830-82 ")
  1. ;;120
  1. ;;21,"35356-0351-01 ")
  1. ;;121
  1. ;;21,"35356-0423-03 ")
  1. ;;122
  1. ;;21,"41616-0635-83 ")
  1. ;;123
  1. ;;21,"41616-0635-88 ")
  1. ;;124
  1. ;;21,"41616-0636-83 ")
  1. ;;125
  1. ;;21,"41616-0636-88 ")
  1. ;;126
  1. ;;21,"41616-0637-68 ")
  1. ;;127
  1. ;;21,"41616-0638-68 ")
  1. ;;128
  1. ;;21,"42023-0151-01 ")
  1. ;;129
  1. ;;21,"42023-0163-01 ")
  1. ;;130
  1. ;;21,"42291-0336-03 ")
  1. ;;131
  1. ;;21,"43598-0330-11 ")
  1. ;;132
  1. ;;21,"43598-0331-11 ")
  1. ;;133
  1. ;;21,"47335-0035-40 ")
  1. ;;134
  1. ;;21,"47335-0962-41 ")
  1. ;;135
  1. ;;21,"49884-0161-11 ")
  1. ;;136
  1. ;;21,"49999-0448-04 ")
  1. ;;137
  1. ;;21,"49999-0458-30 ")
  1. ;;138
  1. ;;21,"49999-0501-04 ")
  1. ;;139
  1. ;;21,"51079-0941-01 ")
  1. ;;140
  1. ;;21,"51079-0941-05 ")
  1. ;;141
  1. ;;21,"51079-0942-01 ")
  1. ;;142
  1. ;;21,"51079-0942-05 ")
  1. ;;143
  1. ;;21,"51224-0301-10 ")
  1. ;;144
  1. ;;21,"53150-0871-01 ")
  1. ;;145
  1. ;;21,"54569-4628-00 ")
  1. ;;146
  1. ;;21,"54569-4866-00 ")
  1. ;;147
  1. ;;21,"54569-5218-00 ")
  1. ;;148
  1. ;;21,"54569-5399-00 ")
  1. ;;149
  1. ;;21,"54569-5462-00 ")
  1. ;;150
  1. ;;21,"54569-6047-00 ")
  1. ;;151
  1. ;;21,"54569-6050-00 ")
  1. ;;152
  1. ;;21,"54868-3857-00 ")
  1. ;;153
  1. ;;21,"54868-4170-00 ")
  1. ;;154
  1. ;;21,"54868-4170-01 ")
  1. ;;155
  1. ;;21,"54868-4384-00 ")
  1. ;;156
  1. ;;21,"54868-4386-00 ")
  1. ;;157
  1. ;;21,"54868-4462-00 ")
  1. ;;158
  1. ;;21,"54868-4463-00 ")
  1. ;;159
  1. ;;21,"54868-4671-00 ")
  1. ;;160
  1. ;;21,"54868-5322-00 ")
  1. ;;161
  1. ;;21,"54868-5322-01 ")
  1. ;;162
  1. ;;21,"54868-5480-00 ")
  1. ;;163
  1. ;;21,"54868-5499-00 ")
  1. ;;164
  1. ;;21,"54868-5860-00 ")
  1. ;;165
  1. ;;21,"54868-5861-00 ")
  1. ;;166
  1. ;;21,"54868-5862-00 ")
  1. ;;167
  1. ;;21,"55045-3908-01 ")
  1. ;;168
  1. ;;21,"55111-0575-03 ")
  1. ;;169
  1. ;;21,"55111-0588-01 ")
  1. ;;170
  1. ;;21,"55111-0588-30 ")
  1. ;;171
  1. ;;21,"55111-0589-01 ")
  1. ;;172
  1. ;;21,"55111-0589-30 ")
  1. ;;173
  1. ;;21,"55111-0590-48 ")
  1. ;;174
  1. ;;21,"55111-0592-48 ")
  1. ;;175
  1. ;;21,"55111-0685-07 ")
  1. ;;176
  1. ;;21,"55111-0688-52 ")
  1. ;;177
  1. ;;21,"55289-0266-30 ")
  1. ;;178
  1. ;;21,"55513-0710-01 ")
  1. ;;179
  1. ;;21,"55513-0730-01 ")
  1. ;;180
  1. ;;21,"55887-0106-04 ")
  1. ;;181
  1. ;;21,"55887-0516-20 ")
  1. ;;182
  1. ;;21,"55887-0516-30 ")
  1. ;;183
  1. ;;21,"55887-0516-60 ")
  1. ;;184
  1. ;;21,"55887-0516-82 ")
  1. ;;185
  1. ;;21,"55887-0516-90 ")
  1. ;;186
  1. ;;21,"55887-0641-03 ")
  1. ;;187
  1. ;;21,"55887-0685-04 ")
  1. ;;188
  1. ;;21,"58016-0613-04 ")
  1. ;;189
  1. ;;21,"58016-0788-00 ")
  1. ;;190
  1. ;;21,"58016-0788-30 ")
  1. ;;191
  1. ;;21,"58016-0788-60 ")
  1. ;;192
  1. ;;21,"58016-0788-90 ")
  1. ;;193
  1. ;;21,"59746-0242-02 ")
  1. ;;194
  1. ;;21,"59746-0244-02 ")
  1. ;;195
  1. ;;21,"60429-0773-04 ")
  1. ;;196
  1. ;;21,"60429-0773-12 ")
  1. ;;197
  1. ;;21,"60505-0823-06 ")
  1. ;;198
  1. ;;21,"60505-2592-01 ")
  1. ;;199
  1. ;;21,"60505-2592-03 ")
  1. ;;200
  1. ;;21,"60505-2593-01 ")
  1. ;;201
  1. ;;21,"60505-2593-03 ")
  1. ;;202
  1. ;;21,"60505-2594-04 ")
  1. ;;203
  1. ;;21,"60505-2596-02 ")
  1. ;;204
  1. ;;21,"60505-2596-04 ")
  1. ;;205
  1. ;;21,"60505-2596-08 ")
  1. ;;206
  1. ;;21,"60505-2795-00 ")
  1. ;;207
  1. ;;21,"60505-3097-02 ")
  1. ;;208
  1. ;;21,"60505-3097-04 ")
  1. ;;209
  1. ;;21,"60505-6110-00 ")
  1. ;;210
  1. ;;21,"62756-0218-40 ")
  1. ;;211
  1. ;;21,"63874-0089-01 ")
  1. ;;212
  1. ;;21,"64679-0185-01 ")
  1. ;;213
  1. ;;21,"64679-0186-01 ")
  1. ;;214
  1. ;;21,"65862-0327-30 ")
  1. ;;215
  1. ;;21,"65862-0328-04 ")
  1. ;;216
  1. ;;21,"65862-0329-04 ")
  1. ;;217
  1. ;;21,"66105-0538-03 ")
  1. ;;218
  1. ;;21,"66993-0417-02 ")
  1. ;;219
  1. ;;21,"66993-0417-30 ")
  1. ;;220
  1. ;;21,"66993-0417-88 ")
  1. ;;221
  1. ;;21,"67457-0524-33 ")
  1. ;;222
  1. ;;21,"67801-0320-03 ")
  1. ;;223
  1. ;;21,"67877-0240-31 ")
  1. ;;224
  1. ;;21,"67877-0240-33 ")
  1. ;;225
  1. ;;21,"67877-0241-31 ")
  1. ;;226
  1. ;;21,"67877-0241-33 ")
  1. ;;227
  1. ;;21,"68084-0322-11 ")
  1. ;;228
  1. ;;21,"68084-0322-94 ")
  1. ;;229
  1. ;;21,"68258-3014-01 ")
  1. ;;230
  1. ;;21,"76439-0130-04 ")
  1. ;;231
  1. ;;21,"76439-0130-12 ")
  1. ;;232
  1. ;;21,"76439-0131-04 ")
  1. ;;233
  1. ;;21,"76439-0131-12 ")
  1. ;;234
  1. ;;21,"76439-0131-20 ")
  1. ;;235
  1. ;;9002226,493,.01)
  1. ;;BGP HEDIS OSTEOPOROSIS NDC
  1. ;;9002226,493,.02)
  1. ;;@
  1. ;;9002226,493,.04)
  1. ;;n
  1. ;;9002226,493,.06)
  1. ;;@
  1. ;;9002226,493,.08)
  1. ;;@
  1. ;;9002226,493,.09)
  1. ;;3150224
  1. ;;9002226,493,.11)
  1. ;;@
  1. ;;9002226,493,.12)
  1. ;;@
  1. ;;9002226,493,.13)
  1. ;;1
  1. ;;9002226,493,.14)
  1. ;;@
  1. ;;9002226,493,.15)
  1. ;;50.67
  1. ;;9002226,493,.16)
  1. ;;@
  1. ;;9002226,493,.17)
  1. ;;@
  1. ;;9002226,493,3101)
  1. ;;@
  1. ;;9002226.02101,"493,00002-4165-02 ",.01)
  1. ;;00002-4165-02
  1. ;;9002226.02101,"493,00002-4165-02 ",.02)
  1. ;;00002-4165-02
  1. ;;9002226.02101,"493,00002-4165-07 ",.01)
  1. ;;00002-4165-07
  1. ;;9002226.02101,"493,00002-4165-07 ",.02)
  1. ;;00002-4165-07
  1. ;;9002226.02101,"493,00002-4165-30 ",.01)
  1. ;;00002-4165-30
  1. ;;9002226.02101,"493,00002-4165-30 ",.02)
  1. ;;00002-4165-30
  1. ;;9002226.02101,"493,00002-4165-34 ",.01)
  1. ;;00002-4165-34
  1. ;;9002226.02101,"493,00002-4165-34 ",.02)
  1. ;;00002-4165-34
  1. ;;9002226.02101,"493,00002-4165-79 ",.01)
  1. ;;00002-4165-79
  1. ;;9002226.02101,"493,00002-4165-79 ",.02)
  1. ;;00002-4165-79
  1. ;;9002226.02101,"493,00002-8400-01 ",.01)
  1. ;;00002-8400-01
  1. ;;9002226.02101,"493,00002-8400-01 ",.02)
  1. ;;00002-8400-01
  1. ;;9002226.02101,"493,00004-0186-82 ",.01)
  1. ;;00004-0186-82
  1. ;;9002226.02101,"493,00004-0186-82 ",.02)
  1. ;;00004-0186-82
  1. ;;9002226.02101,"493,00004-0188-09 ",.01)
  1. ;;00004-0188-09
  1. ;;9002226.02101,"493,00004-0188-09 ",.02)
  1. ;;00004-0188-09
  1. ;;9002226.02101,"493,00004-0191-09 ",.01)
  1. ;;00004-0191-09
  1. ;;9002226.02101,"493,00004-0191-09 ",.02)
  1. ;;00004-0191-09
  1. ;;9002226.02101,"493,00006-0031-01 ",.01)
  1. ;;00006-0031-01
  1. ;;9002226.02101,"493,00006-0031-01 ",.02)
  1. ;;00006-0031-01
  1. ;;9002226.02101,"493,00006-0031-21 ",.01)
  1. ;;00006-0031-21
  1. ;;9002226.02101,"493,00006-0031-21 ",.02)
  1. ;;00006-0031-21
  1. ;;9002226.02101,"493,00006-0031-44 ",.01)
  1. ;;00006-0031-44
  1. ;;9002226.02101,"493,00006-0031-44 ",.02)
  1. ;;00006-0031-44
  1. ;;9002226.02101,"493,00006-0077-01 ",.01)
  1. ;;00006-0077-01
  1. ;;9002226.02101,"493,00006-0077-01 ",.02)
  1. ;;00006-0077-01
  1. ;;9002226.02101,"493,00006-0077-21 ",.01)
  1. ;;00006-0077-21
  1. ;;9002226.02101,"493,00006-0077-21 ",.02)
  1. ;;00006-0077-21
  1. ;;9002226.02101,"493,00006-0077-44 ",.01)
  1. ;;00006-0077-44
  1. ;;9002226.02101,"493,00006-0077-44 ",.02)
  1. ;;00006-0077-44
  1. ;;9002226.02101,"493,00006-0212-31 ",.01)
  1. ;;00006-0212-31
  1. ;;9002226.02101,"493,00006-0212-31 ",.02)
  1. ;;00006-0212-31
  1. ;;9002226.02101,"493,00006-0270-44 ",.01)
  1. ;;00006-0270-44
  1. ;;9002226.02101,"493,00006-0270-44 ",.02)
  1. ;;00006-0270-44
  1. ;;9002226.02101,"493,00006-0710-01 ",.01)
  1. ;;00006-0710-01
  1. ;;9002226.02101,"493,00006-0710-01 ",.02)
  1. ;;00006-0710-01
  1. ;;9002226.02101,"493,00006-0710-11 ",.01)
  1. ;;00006-0710-11
  1. ;;9002226.02101,"493,00006-0710-11 ",.02)
  1. ;;00006-0710-11
  1. ;;9002226.02101,"493,00006-0710-21 ",.01)
  1. ;;00006-0710-21
  1. ;;9002226.02101,"493,00006-0710-21 ",.02)
  1. ;;00006-0710-21
  1. ;;9002226.02101,"493,00006-0710-44 ",.01)
  1. ;;00006-0710-44
  1. ;;9002226.02101,"493,00006-0710-44 ",.02)
  1. ;;00006-0710-44
  1. ;;9002226.02101,"493,00006-0925-31 ",.01)
  1. ;;00006-0925-31
  1. ;;9002226.02101,"493,00006-0925-31 ",.02)
  1. ;;00006-0925-31
  1. ;;9002226.02101,"493,00006-0925-58 ",.01)
  1. ;;00006-0925-58
  1. ;;9002226.02101,"493,00006-0925-58 ",.02)
  1. ;;00006-0925-58
  1. ;;9002226.02101,"493,00006-0936-01 ",.01)
  1. ;;00006-0936-01
  1. ;;9002226.02101,"493,00006-0936-01 ",.02)
  1. ;;00006-0936-01
  1. ;;9002226.02101,"493,00006-0936-28 ",.01)
  1. ;;00006-0936-28
  1. ;;9002226.02101,"493,00006-0936-28 ",.02)
  1. ;;00006-0936-28
  1. ;;9002226.02101,"493,00006-0936-31 ",.01)
  1. ;;00006-0936-31
  1. ;;9002226.02101,"493,00006-0936-31 ",.02)
  1. ;;00006-0936-31
  1. ;;9002226.02101,"493,00006-0936-58 ",.01)
  1. ;;00006-0936-58
  1. ;;9002226.02101,"493,00006-0936-58 ",.02)
  1. ;;00006-0936-58
  1. ;;9002226.02101,"493,00006-0936-82 ",.01)
  1. ;;00006-0936-82
  1. ;;9002226.02101,"493,00006-0936-82 ",.02)
  1. ;;00006-0936-82
  1. ;;9002226.02101,"493,00006-3833-01 ",.01)
  1. ;;00006-3833-01
  1. ;;9002226.02101,"493,00006-3833-01 ",.02)
  1. ;;00006-3833-01
  1. ;;9002226.02101,"493,00006-3833-34 ",.01)
  1. ;;00006-3833-34
  1. ;;9002226.02101,"493,00006-3833-34 ",.02)
  1. ;;00006-3833-34
  1. ;;9002226.02101,"493,00078-0149-23 ",.01)
  1. ;;00078-0149-23
  1. ;;9002226.02101,"493,00078-0149-23 ",.02)
  1. ;;00078-0149-23
  1. ;;9002226.02101,"493,00078-0311-54 ",.01)
  1. ;;00078-0311-54
  1. ;;9002226.02101,"493,00078-0311-54 ",.02)
  1. ;;00078-0311-54
  1. ;;9002226.02101,"493,00078-0387-25 ",.01)
  1. ;;00078-0387-25
  1. ;;9002226.02101,"493,00078-0387-25 ",.02)
  1. ;;00078-0387-25
  1. ;;9002226.02101,"493,00078-0435-61 ",.01)
  1. ;;00078-0435-61
  1. ;;9002226.02101,"493,00078-0435-61 ",.02)
  1. ;;00078-0435-61
  1. ;;9002226.02101,"493,00078-0590-61 ",.01)
  1. ;;00078-0590-61
  1. ;;9002226.02101,"493,00078-0590-61 ",.02)
  1. ;;00078-0590-61
  1. ;;9002226.02101,"493,00093-5140-01 ",.01)
  1. ;;00093-5140-01
  1. ;;9002226.02101,"493,00093-5140-01 ",.02)
  1. ;;00093-5140-01
  1. ;;9002226.02101,"493,00093-5140-56 ",.01)
  1. ;;00093-5140-56
  1. ;;9002226.02101,"493,00093-5140-56 ",.02)
  1. ;;00093-5140-56
  1. ;;9002226.02101,"493,00093-5141-01 ",.01)
  1. ;;00093-5141-01
  1. ;;9002226.02101,"493,00093-5141-01 ",.02)
  1. ;;00093-5141-01
  1. ;;9002226.02101,"493,00093-5141-56 ",.01)
  1. ;;00093-5141-56
  1. ;;9002226.02101,"493,00093-5141-56 ",.02)
  1. ;;00093-5141-56
  1. ;;9002226.02101,"493,00093-5142-56 ",.01)
  1. ;;00093-5142-56
  1. ;;9002226.02101,"493,00093-5142-56 ",.02)
  1. ;;00093-5142-56
  1. ;;9002226.02101,"493,00093-5171-19 ",.01)
  1. ;;00093-5171-19
  1. ;;9002226.02101,"493,00093-5171-19 ",.02)
  1. ;;00093-5171-19
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGP53R2
  1. D ^BGP53R3
  1. Q