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

BGP2VT.m

Go to the documentation of this file.
  1. BGP2VT ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 2012;
  1. ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
  1. ;;BGP HEDIS GASTRO ANTISPASM NDC
  1. ;
  1. ; This routine loads Taxonomy BGP HEDIS GASTRO ANTISPASM 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,"00054-4721-25 ")
  1. ;;179
  1. ;;21,"00115-3200-01 ")
  1. ;;1
  1. ;;21,"00115-3200-03 ")
  1. ;;2
  1. ;;21,"00115-3220-01 ")
  1. ;;97
  1. ;;21,"00115-3220-03 ")
  1. ;;98
  1. ;;21,"00115-4308-01 ")
  1. ;;180
  1. ;;21,"00115-4308-03 ")
  1. ;;181
  1. ;;21,"00143-1227-01 ")
  1. ;;99
  1. ;;21,"00143-1227-10 ")
  1. ;;100
  1. ;;21,"00143-3126-01 ")
  1. ;;3
  1. ;;21,"00143-3126-10 ")
  1. ;;4
  1. ;;21,"00182-1858-01 ")
  1. ;;182
  1. ;;21,"00247-0188-00 ")
  1. ;;5
  1. ;;21,"00247-0188-02 ")
  1. ;;6
  1. ;;21,"00247-0188-03 ")
  1. ;;7
  1. ;;21,"00247-0188-04 ")
  1. ;;8
  1. ;;21,"00247-0188-06 ")
  1. ;;9
  1. ;;21,"00247-0188-10 ")
  1. ;;10
  1. ;;21,"00247-0188-12 ")
  1. ;;11
  1. ;;21,"00247-0188-14 ")
  1. ;;12
  1. ;;21,"00247-0188-15 ")
  1. ;;13
  1. ;;21,"00247-0188-20 ")
  1. ;;14
  1. ;;21,"00247-0188-24 ")
  1. ;;15
  1. ;;21,"00247-0188-30 ")
  1. ;;16
  1. ;;21,"00247-0188-40 ")
  1. ;;17
  1. ;;21,"00247-0582-03 ")
  1. ;;101
  1. ;;21,"00247-0582-04 ")
  1. ;;102
  1. ;;21,"00247-0582-05 ")
  1. ;;103
  1. ;;21,"00247-0582-10 ")
  1. ;;104
  1. ;;21,"00247-0582-12 ")
  1. ;;105
  1. ;;21,"00247-0582-15 ")
  1. ;;106
  1. ;;21,"00247-0582-20 ")
  1. ;;107
  1. ;;21,"00247-0582-24 ")
  1. ;;108
  1. ;;21,"00247-0582-30 ")
  1. ;;109
  1. ;;21,"00247-1360-20 ")
  1. ;;183
  1. ;;21,"00247-1360-24 ")
  1. ;;184
  1. ;;21,"00247-2079-30 ")
  1. ;;94
  1. ;;21,"00378-1610-01 ")
  1. ;;18
  1. ;;21,"00378-1610-05 ")
  1. ;;19
  1. ;;21,"00378-1620-01 ")
  1. ;;110
  1. ;;21,"00378-1620-05 ")
  1. ;;111
  1. ;;21,"00440-7385-10 ")
  1. ;;112
  1. ;;21,"00527-0586-01 ")
  1. ;;20
  1. ;;21,"00527-0586-10 ")
  1. ;;21
  1. ;;21,"00527-1282-01 ")
  1. ;;113
  1. ;;21,"00527-1282-10 ")
  1. ;;114
  1. ;;21,"00591-0794-01 ")
  1. ;;22
  1. ;;21,"00591-0794-10 ")
  1. ;;23
  1. ;;21,"00591-0795-01 ")
  1. ;;115
  1. ;;21,"00591-0795-10 ")
  1. ;;116
  1. ;;21,"00603-1161-58 ")
  1. ;;95
  1. ;;21,"00603-3265-21 ")
  1. ;;24
  1. ;;21,"00603-3265-32 ")
  1. ;;25
  1. ;;21,"00603-3266-21 ")
  1. ;;117
  1. ;;21,"00615-0327-01 ")
  1. ;;26
  1. ;;21,"00615-0327-10 ")
  1. ;;27
  1. ;;21,"00615-1516-10 ")
  1. ;;118
  1. ;;21,"00904-0195-60 ")
  1. ;;119
  1. ;;21,"00904-2344-40 ")
  1. ;;185
  1. ;;21,"00904-2344-60 ")
  1. ;;186
  1. ;;21,"00904-7896-80 ")
  1. ;;28
  1. ;;21,"10135-0520-01 ")
  1. ;;29
  1. ;;21,"10135-0520-10 ")
  1. ;;30
  1. ;;21,"10135-0521-01 ")
  1. ;;120
  1. ;;21,"16590-0077-30 ")
  1. ;;31
  1. ;;21,"16590-0077-60 ")
  1. ;;32
  1. ;;21,"16590-0077-72 ")
  1. ;;33
  1. ;;21,"16590-0077-90 ")
  1. ;;34
  1. ;;21,"21695-0218-30 ")
  1. ;;35
  1. ;;21,"23490-5428-01 ")
  1. ;;36
  1. ;;21,"23490-5428-02 ")
  1. ;;37
  1. ;;21,"23490-5428-03 ")
  1. ;;38
  1. ;;21,"23490-5431-02 ")
  1. ;;121
  1. ;;21,"23490-5431-03 ")
  1. ;;122
  1. ;;21,"23490-5431-04 ")
  1. ;;123
  1. ;;21,"43063-0045-04 ")
  1. ;;124
  1. ;;21,"43063-0045-06 ")
  1. ;;125
  1. ;;21,"43063-0112-04 ")
  1. ;;39
  1. ;;21,"43063-0112-06 ")
  1. ;;40
  1. ;;21,"49727-0054-05 ")
  1. ;;41
  1. ;;21,"49999-0081-00 ")
  1. ;;126
  1. ;;21,"49999-0081-20 ")
  1. ;;127
  1. ;;21,"49999-0081-30 ")
  1. ;;128
  1. ;;21,"49999-0291-20 ")
  1. ;;42
  1. ;;21,"51079-0118-01 ")
  1. ;;43
  1. ;;21,"51079-0118-20 ")
  1. ;;44
  1. ;;21,"51079-0119-01 ")
  1. ;;129
  1. ;;21,"51079-0119-20 ")
  1. ;;130
  1. ;;21,"51655-0293-24 ")
  1. ;;131
  1. ;;21,"52959-0168-00 ")
  1. ;;45
  1. ;;21,"52959-0168-30 ")
  1. ;;46
  1. ;;21,"52959-0221-00 ")
  1. ;;132
  1. ;;21,"52959-0221-20 ")
  1. ;;133
  1. ;;21,"52959-0221-30 ")
  1. ;;134
  1. ;;21,"52959-0390-30 ")
  1. ;;135
  1. ;;21,"54569-0417-00 ")
  1. ;;47
  1. ;;21,"54569-0417-02 ")
  1. ;;48
  1. ;;21,"54569-0417-03 ")
  1. ;;49
  1. ;;21,"54569-0417-04 ")
  1. ;;50
  1. ;;21,"54569-0417-06 ")
  1. ;;51
  1. ;;21,"54569-0417-07 ")
  1. ;;52
  1. ;;21,"54569-0418-00 ")
  1. ;;136
  1. ;;21,"54569-0419-00 ")
  1. ;;137
  1. ;;21,"54569-0419-02 ")
  1. ;;138
  1. ;;21,"54569-0419-04 ")
  1. ;;139
  1. ;;21,"54569-0419-07 ")
  1. ;;140
  1. ;;21,"54868-0033-00 ")
  1. ;;53
  1. ;;21,"54868-0033-02 ")
  1. ;;54
  1. ;;21,"54868-0033-03 ")
  1. ;;55
  1. ;;21,"54868-0033-05 ")
  1. ;;56
  1. ;;21,"54868-0033-06 ")
  1. ;;57
  1. ;;21,"54868-0033-07 ")
  1. ;;58
  1. ;;21,"54868-0033-08 ")
  1. ;;59
  1. ;;21,"54868-0392-01 ")
  1. ;;141
  1. ;;21,"54868-0818-00 ")
  1. ;;142
  1. ;;21,"54868-0818-01 ")
  1. ;;143
  1. ;;21,"54868-0818-03 ")
  1. ;;144
  1. ;;21,"54868-0818-05 ")
  1. ;;145
  1. ;;21,"54868-0818-07 ")
  1. ;;146
  1. ;;21,"54868-0818-08 ")
  1. ;;147
  1. ;;21,"54902-0073-01 ")
  1. ;;194
  1. ;;21,"54902-0074-01 ")
  1. ;;187
  1. ;;21,"54902-0074-05 ")
  1. ;;188
  1. ;;21,"54902-0074-52 ")
  1. ;;189
  1. ;;21,"55045-1467-01 ")
  1. ;;148
  1. ;;21,"55045-1467-02 ")
  1. ;;149
  1. ;;21,"55045-1467-03 ")
  1. ;;150
  1. ;;21,"55045-1467-06 ")
  1. ;;151
  1. ;;21,"55045-1467-08 ")
  1. ;;152
  1. ;;21,"55045-1467-09 ")
  1. ;;153
  1. ;;21,"55045-2197-01 ")
  1. ;;60
  1. ;;21,"55045-2197-02 ")
  1. ;;61
  1. ;;21,"55045-2197-05 ")
  1. ;;62
  1. ;;21,"55045-2197-06 ")
  1. ;;63
  1. ;;21,"55045-2197-08 ")
  1. ;;64
  1. ;;21,"55045-2197-09 ")
  1. ;;65
  1. ;;21,"55289-0095-15 ")
  1. ;;154
  1. ;;21,"55289-0095-17 ")
  1. ;;155
  1. ;;21,"55289-0095-20 ")
  1. ;;156
  1. ;;21,"55289-0095-30 ")
  1. ;;157
  1. ;;21,"55289-0095-60 ")
  1. ;;158
  1. ;;21,"55289-0923-20 ")
  1. ;;66
  1. ;;21,"55289-0923-30 ")
  1. ;;67
  1. ;;21,"55887-0470-16 ")
  1. ;;159
  1. ;;21,"55887-0470-30 ")
  1. ;;160
  1. ;;21,"55887-0909-15 ")
  1. ;;68
  1. ;;21,"55887-0909-30 ")
  1. ;;69
  1. ;;21,"55887-0909-60 ")
  1. ;;70
  1. ;;21,"55887-0909-90 ")
  1. ;;71
  1. ;;21,"57866-3367-03 ")
  1. ;;72
  1. ;;21,"57866-3377-01 ")
  1. ;;161
  1. ;;21,"57866-3377-04 ")
  1. ;;162
  1. ;;21,"58016-0019-00 ")
  1. ;;190
  1. ;;21,"58016-0019-30 ")
  1. ;;191
  1. ;;21,"58016-0019-60 ")
  1. ;;192
  1. ;;21,"58016-0019-90 ")
  1. ;;193
  1. ;;21,"58016-0702-12 ")
  1. ;;73
  1. ;;21,"58016-0702-30 ")
  1. ;;74
  1. ;;21,"58016-0703-00 ")
  1. ;;163
  1. ;;21,"58016-0703-12 ")
  1. ;;164
  1. ;;21,"58016-0703-30 ")
  1. ;;165
  1. ;;21,"58864-0153-30 ")
  1. ;;75
  1. ;;21,"58914-0012-10 ")
  1. ;;76
  1. ;;21,"58914-0013-10 ")
  1. ;;166
  1. ;;21,"58914-0015-16 ")
  1. ;;96
  1. ;;21,"60429-0155-01 ")
  1. ;;77
  1. ;;21,"60429-0155-10 ")
  1. ;;78
  1. ;;21,"60429-0156-01 ")
  1. ;;167
  1. ;;21,"60429-0156-10 ")
  1. ;;168
  1. ;;21,"61392-0041-45 ")
  1. ;;169
  1. ;;21,"61392-0041-54 ")
  1. ;;170
  1. ;;21,"61392-0041-56 ")
  1. ;;171
  1. ;;21,"61392-0041-91 ")
  1. ;;172
  1. ;;21,"63629-1299-01 ")
  1. ;;173
  1. ;;21,"63874-0463-01 ")
  1. ;;79
  1. ;;21,"63874-0463-02 ")
  1. ;;80
  1. ;;21,"63874-0463-04 ")
  1. ;;81
  1. ;;21,"63874-0463-10 ")
  1. ;;82
  1. ;;21,"63874-0463-12 ")
  1. ;;83
  1. ;;21,"63874-0463-20 ")
  1. ;;84
  1. ;;21,"63874-0463-21 ")
  1. ;;85
  1. ;;21,"63874-0463-28 ")
  1. ;;86
  1. ;;21,"63874-0463-30 ")
  1. ;;87
  1. ;;21,"63874-0463-60 ")
  1. ;;88
  1. ;;21,"63874-0463-90 ")
  1. ;;89
  1. ;;21,"66267-0074-30 ")
  1. ;;174
  1. ;;21,"66336-0911-30 ")
  1. ;;90
  1. ;;21,"68115-0106-20 ")
  1. ;;91
  1. ;;21,"68115-0106-30 ")
  1. ;;92
  1. ;;21,"68115-0106-60 ")
  1. ;;93
  1. ;;21,"68115-0107-10 ")
  1. ;;175
  1. ;;21,"68115-0107-15 ")
  1. ;;176
  1. ;;21,"68115-0107-20 ")
  1. ;;177
  1. ;;21,"68115-0107-30 ")
  1. ;;178
  1. ;;9002226,732,.01)
  1. ;;BGP HEDIS GASTRO ANTISPASM NDC
  1. ;;9002226,732,.02)
  1. ;;@
  1. ;;9002226,732,.04)
  1. ;;n
  1. ;;9002226,732,.06)
  1. ;;@
  1. ;;9002226,732,.08)
  1. ;;@
  1. ;;9002226,732,.09)
  1. ;;3120312
  1. ;;9002226,732,.11)
  1. ;;@
  1. ;;9002226,732,.12)
  1. ;;@
  1. ;;9002226,732,.13)
  1. ;;1
  1. ;;9002226,732,.14)
  1. ;;@
  1. ;;9002226,732,.15)
  1. ;;@
  1. ;;9002226,732,.16)
  1. ;;@
  1. ;;9002226,732,.17)
  1. ;;@
  1. ;;9002226,732,3101)
  1. ;;@
  1. ;;9002226.02101,"732,00054-4721-25 ",.01)
  1. ;;00054-4721-25
  1. ;;9002226.02101,"732,00054-4721-25 ",.02)
  1. ;;00054-4721-25
  1. ;;9002226.02101,"732,00115-3200-01 ",.01)
  1. ;;00115-3200-01
  1. ;;9002226.02101,"732,00115-3200-01 ",.02)
  1. ;;00115-3200-01
  1. ;;9002226.02101,"732,00115-3200-03 ",.01)
  1. ;;00115-3200-03
  1. ;;9002226.02101,"732,00115-3200-03 ",.02)
  1. ;;00115-3200-03
  1. ;;9002226.02101,"732,00115-3220-01 ",.01)
  1. ;;00115-3220-01
  1. ;;9002226.02101,"732,00115-3220-01 ",.02)
  1. ;;00115-3220-01
  1. ;;9002226.02101,"732,00115-3220-03 ",.01)
  1. ;;00115-3220-03
  1. ;;9002226.02101,"732,00115-3220-03 ",.02)
  1. ;;00115-3220-03
  1. ;;9002226.02101,"732,00115-4308-01 ",.01)
  1. ;;00115-4308-01
  1. ;;9002226.02101,"732,00115-4308-01 ",.02)
  1. ;;00115-4308-01
  1. ;;9002226.02101,"732,00115-4308-03 ",.01)
  1. ;;00115-4308-03
  1. ;;9002226.02101,"732,00115-4308-03 ",.02)
  1. ;;00115-4308-03
  1. ;;9002226.02101,"732,00143-1227-01 ",.01)
  1. ;;00143-1227-01
  1. ;;9002226.02101,"732,00143-1227-01 ",.02)
  1. ;;00143-1227-01
  1. ;;9002226.02101,"732,00143-1227-10 ",.01)
  1. ;;00143-1227-10
  1. ;;9002226.02101,"732,00143-1227-10 ",.02)
  1. ;;00143-1227-10
  1. ;;9002226.02101,"732,00143-3126-01 ",.01)
  1. ;;00143-3126-01
  1. ;;9002226.02101,"732,00143-3126-01 ",.02)
  1. ;;00143-3126-01
  1. ;;9002226.02101,"732,00143-3126-10 ",.01)
  1. ;;00143-3126-10
  1. ;;9002226.02101,"732,00143-3126-10 ",.02)
  1. ;;00143-3126-10
  1. ;;9002226.02101,"732,00182-1858-01 ",.01)
  1. ;;00182-1858-01
  1. ;;9002226.02101,"732,00182-1858-01 ",.02)
  1. ;;00182-1858-01
  1. ;;9002226.02101,"732,00247-0188-00 ",.01)
  1. ;;00247-0188-00
  1. ;;9002226.02101,"732,00247-0188-00 ",.02)
  1. ;;00247-0188-00
  1. ;;9002226.02101,"732,00247-0188-02 ",.01)
  1. ;;00247-0188-02
  1. ;;9002226.02101,"732,00247-0188-02 ",.02)
  1. ;;00247-0188-02
  1. ;;9002226.02101,"732,00247-0188-03 ",.01)
  1. ;;00247-0188-03
  1. ;;9002226.02101,"732,00247-0188-03 ",.02)
  1. ;;00247-0188-03
  1. ;;9002226.02101,"732,00247-0188-04 ",.01)
  1. ;;00247-0188-04
  1. ;;9002226.02101,"732,00247-0188-04 ",.02)
  1. ;;00247-0188-04
  1. ;;9002226.02101,"732,00247-0188-06 ",.01)
  1. ;;00247-0188-06
  1. ;;9002226.02101,"732,00247-0188-06 ",.02)
  1. ;;00247-0188-06
  1. ;;9002226.02101,"732,00247-0188-10 ",.01)
  1. ;;00247-0188-10
  1. ;;9002226.02101,"732,00247-0188-10 ",.02)
  1. ;;00247-0188-10
  1. ;;9002226.02101,"732,00247-0188-12 ",.01)
  1. ;;00247-0188-12
  1. ;;9002226.02101,"732,00247-0188-12 ",.02)
  1. ;;00247-0188-12
  1. ;;9002226.02101,"732,00247-0188-14 ",.01)
  1. ;;00247-0188-14
  1. ;;9002226.02101,"732,00247-0188-14 ",.02)
  1. ;;00247-0188-14
  1. ;;9002226.02101,"732,00247-0188-15 ",.01)
  1. ;;00247-0188-15
  1. ;;9002226.02101,"732,00247-0188-15 ",.02)
  1. ;;00247-0188-15
  1. ;;9002226.02101,"732,00247-0188-20 ",.01)
  1. ;;00247-0188-20
  1. ;;9002226.02101,"732,00247-0188-20 ",.02)
  1. ;;00247-0188-20
  1. ;;9002226.02101,"732,00247-0188-24 ",.01)
  1. ;;00247-0188-24
  1. ;;9002226.02101,"732,00247-0188-24 ",.02)
  1. ;;00247-0188-24
  1. ;;9002226.02101,"732,00247-0188-30 ",.01)
  1. ;;00247-0188-30
  1. ;;9002226.02101,"732,00247-0188-30 ",.02)
  1. ;;00247-0188-30
  1. ;;9002226.02101,"732,00247-0188-40 ",.01)
  1. ;;00247-0188-40
  1. ;;9002226.02101,"732,00247-0188-40 ",.02)
  1. ;;00247-0188-40
  1. ;;9002226.02101,"732,00247-0582-03 ",.01)
  1. ;;00247-0582-03
  1. ;;9002226.02101,"732,00247-0582-03 ",.02)
  1. ;;00247-0582-03
  1. ;;9002226.02101,"732,00247-0582-04 ",.01)
  1. ;;00247-0582-04
  1. ;;9002226.02101,"732,00247-0582-04 ",.02)
  1. ;;00247-0582-04
  1. ;;9002226.02101,"732,00247-0582-05 ",.01)
  1. ;;00247-0582-05
  1. ;;9002226.02101,"732,00247-0582-05 ",.02)
  1. ;;00247-0582-05
  1. ;;9002226.02101,"732,00247-0582-10 ",.01)
  1. ;;00247-0582-10
  1. ;;9002226.02101,"732,00247-0582-10 ",.02)
  1. ;;00247-0582-10
  1. ;;9002226.02101,"732,00247-0582-12 ",.01)
  1. ;;00247-0582-12
  1. ;;9002226.02101,"732,00247-0582-12 ",.02)
  1. ;;00247-0582-12
  1. ;;9002226.02101,"732,00247-0582-15 ",.01)
  1. ;;00247-0582-15
  1. ;;9002226.02101,"732,00247-0582-15 ",.02)
  1. ;;00247-0582-15
  1. ;;9002226.02101,"732,00247-0582-20 ",.01)
  1. ;;00247-0582-20
  1. ;;9002226.02101,"732,00247-0582-20 ",.02)
  1. ;;00247-0582-20
  1. ;;9002226.02101,"732,00247-0582-24 ",.01)
  1. ;;00247-0582-24
  1. ;;9002226.02101,"732,00247-0582-24 ",.02)
  1. ;;00247-0582-24
  1. ;;9002226.02101,"732,00247-0582-30 ",.01)
  1. ;;00247-0582-30
  1. ;;9002226.02101,"732,00247-0582-30 ",.02)
  1. ;;00247-0582-30
  1. ;;9002226.02101,"732,00247-1360-20 ",.01)
  1. ;;00247-1360-20
  1. ;;9002226.02101,"732,00247-1360-20 ",.02)
  1. ;;00247-1360-20
  1. ;;9002226.02101,"732,00247-1360-24 ",.01)
  1. ;;00247-1360-24
  1. ;;9002226.02101,"732,00247-1360-24 ",.02)
  1. ;;00247-1360-24
  1. ;;9002226.02101,"732,00247-2079-30 ",.01)
  1. ;;00247-2079-30
  1. ;;9002226.02101,"732,00247-2079-30 ",.02)
  1. ;;00247-2079-30
  1. ;;9002226.02101,"732,00378-1610-01 ",.01)
  1. ;;00378-1610-01
  1. ;;9002226.02101,"732,00378-1610-01 ",.02)
  1. ;;00378-1610-01
  1. ;;9002226.02101,"732,00378-1610-05 ",.01)
  1. ;;00378-1610-05
  1. ;;9002226.02101,"732,00378-1610-05 ",.02)
  1. ;;00378-1610-05
  1. ;;9002226.02101,"732,00378-1620-01 ",.01)
  1. ;;00378-1620-01
  1. ;;9002226.02101,"732,00378-1620-01 ",.02)
  1. ;;00378-1620-01
  1. ;;9002226.02101,"732,00378-1620-05 ",.01)
  1. ;;00378-1620-05
  1. ;;9002226.02101,"732,00378-1620-05 ",.02)
  1. ;;00378-1620-05
  1. ;;9002226.02101,"732,00440-7385-10 ",.01)
  1. ;;00440-7385-10
  1. ;;9002226.02101,"732,00440-7385-10 ",.02)
  1. ;;00440-7385-10
  1. ;;9002226.02101,"732,00527-0586-01 ",.01)
  1. ;;00527-0586-01
  1. ;;9002226.02101,"732,00527-0586-01 ",.02)
  1. ;;00527-0586-01
  1. ;;9002226.02101,"732,00527-0586-10 ",.01)
  1. ;;00527-0586-10
  1. ;;9002226.02101,"732,00527-0586-10 ",.02)
  1. ;;00527-0586-10
  1. ;;9002226.02101,"732,00527-1282-01 ",.01)
  1. ;;00527-1282-01
  1. ;;9002226.02101,"732,00527-1282-01 ",.02)
  1. ;;00527-1282-01
  1. ;;9002226.02101,"732,00527-1282-10 ",.01)
  1. ;;00527-1282-10
  1. ;;9002226.02101,"732,00527-1282-10 ",.02)
  1. ;;00527-1282-10
  1. ;;9002226.02101,"732,00591-0794-01 ",.01)
  1. ;;00591-0794-01
  1. ;;9002226.02101,"732,00591-0794-01 ",.02)
  1. ;;00591-0794-01
  1. ;;9002226.02101,"732,00591-0794-10 ",.01)
  1. ;;00591-0794-10
  1. ;;9002226.02101,"732,00591-0794-10 ",.02)
  1. ;;00591-0794-10
  1. ;;9002226.02101,"732,00591-0795-01 ",.01)
  1. ;;00591-0795-01
  1. ;;9002226.02101,"732,00591-0795-01 ",.02)
  1. ;;00591-0795-01
  1. ;;9002226.02101,"732,00591-0795-10 ",.01)
  1. ;;00591-0795-10
  1. ;;9002226.02101,"732,00591-0795-10 ",.02)
  1. ;;00591-0795-10
  1. ;;9002226.02101,"732,00603-1161-58 ",.01)
  1. ;;00603-1161-58
  1. ;;9002226.02101,"732,00603-1161-58 ",.02)
  1. ;;00603-1161-58
  1. ;;9002226.02101,"732,00603-3265-21 ",.01)
  1. ;;00603-3265-21
  1. ;;9002226.02101,"732,00603-3265-21 ",.02)
  1. ;;00603-3265-21
  1. ;;9002226.02101,"732,00603-3265-32 ",.01)
  1. ;;00603-3265-32
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGP2VT2
  1. D ^BGP2VT3
  1. Q