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

BGP8JXB.m

Go to the documentation of this file.
  1. BGP8JXB ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON NOV 27, 2007 ;
  1. ;;8.0;IHS CLINICAL REPORTING;;MAR 12, 2008
  1. ;;BGP HEDIS VASODILATOR NDC
  1. ;
  1. ; This routine loads Taxonomy BGP HEDIS VASODILATOR 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,"00005-3743-23 ")
  1. ;;1
  1. ;;21,"00005-3743-31 ")
  1. ;;2
  1. ;;21,"00005-3790-23 ")
  1. ;;73
  1. ;;21,"00005-3791-23 ")
  1. ;;118
  1. ;;21,"00005-3791-31 ")
  1. ;;119
  1. ;;21,"00074-2043-02 ")
  1. ;;52
  1. ;;21,"00074-2043-10 ")
  1. ;;53
  1. ;;21,"00087-0543-01 ")
  1. ;;153
  1. ;;21,"00087-0544-01 ")
  1. ;;171
  1. ;;21,"00182-1055-01 ")
  1. ;;154
  1. ;;21,"00182-1055-10 ")
  1. ;;155
  1. ;;21,"00182-1056-01 ")
  1. ;;172
  1. ;;21,"00182-1056-10 ")
  1. ;;173
  1. ;;21,"00182-1568-89 ")
  1. ;;3
  1. ;;21,"00182-1569-89 ")
  1. ;;74
  1. ;;21,"00182-1570-89 ")
  1. ;;120
  1. ;;21,"00185-0530-01 ")
  1. ;;156
  1. ;;21,"00185-0530-10 ")
  1. ;;157
  1. ;;21,"00185-0531-01 ")
  1. ;;174
  1. ;;21,"00185-0531-10 ")
  1. ;;175
  1. ;;21,"00223-0837-01 ")
  1. ;;4
  1. ;;21,"00223-0837-02 ")
  1. ;;5
  1. ;;21,"00228-2183-10 ")
  1. ;;75
  1. ;;21,"00228-2183-96 ")
  1. ;;76
  1. ;;21,"00228-2185-10 ")
  1. ;;121
  1. ;;21,"00228-2185-96 ")
  1. ;;122
  1. ;;21,"00228-2193-10 ")
  1. ;;6
  1. ;;21,"00228-2193-96 ")
  1. ;;7
  1. ;;21,"00302-2290-01 ")
  1. ;;8
  1. ;;21,"00405-4350-01 ")
  1. ;;9
  1. ;;21,"00405-4350-03 ")
  1. ;;10
  1. ;;21,"00405-4351-01 ")
  1. ;;77
  1. ;;21,"00405-4351-03 ")
  1. ;;78
  1. ;;21,"00405-4352-01 ")
  1. ;;123
  1. ;;21,"00405-4352-03 ")
  1. ;;124
  1. ;;21,"00405-4575-01 ")
  1. ;;158
  1. ;;21,"00405-4575-03 ")
  1. ;;159
  1. ;;21,"00405-4576-01 ")
  1. ;;176
  1. ;;21,"00405-4576-03 ")
  1. ;;177
  1. ;;21,"00405-5350-01 ")
  1. ;;11
  1. ;;21,"00405-5350-03 ")
  1. ;;12
  1. ;;21,"00405-5351-01 ")
  1. ;;79
  1. ;;21,"00405-5352-01 ")
  1. ;;125
  1. ;;21,"00405-5352-03 ")
  1. ;;126
  1. ;;21,"00409-2043-02 ")
  1. ;;54
  1. ;;21,"00463-6336-10 ")
  1. ;;178
  1. ;;21,"00555-0252-02 ")
  1. ;;13
  1. ;;21,"00555-0252-04 ")
  1. ;;14
  1. ;;21,"00555-0252-05 ")
  1. ;;15
  1. ;;21,"00555-0285-02 ")
  1. ;;80
  1. ;;21,"00555-0285-04 ")
  1. ;;81
  1. ;;21,"00555-0285-05 ")
  1. ;;82
  1. ;;21,"00555-0286-02 ")
  1. ;;127
  1. ;;21,"00555-0286-04 ")
  1. ;;128
  1. ;;21,"00555-0286-05 ")
  1. ;;129
  1. ;;21,"00590-0302-21 ")
  1. ;;55
  1. ;;21,"00590-0302-54 ")
  1. ;;56
  1. ;;21,"00597-0017-01 ")
  1. ;;16
  1. ;;21,"00597-0018-01 ")
  1. ;;83
  1. ;;21,"00597-0019-01 ")
  1. ;;130
  1. ;;21,"00615-1543-01 ")
  1. ;;17
  1. ;;21,"00615-1543-10 ")
  1. ;;18
  1. ;;21,"00615-1543-13 ")
  1. ;;19
  1. ;;21,"00615-1573-01 ")
  1. ;;84
  1. ;;21,"00615-1573-10 ")
  1. ;;85
  1. ;;21,"00615-1573-32 ")
  1. ;;86
  1. ;;21,"00615-1573-43 ")
  1. ;;87
  1. ;;21,"00615-1574-01 ")
  1. ;;131
  1. ;;21,"00615-1574-05 ")
  1. ;;132
  1. ;;21,"00615-1574-10 ")
  1. ;;133
  1. ;;21,"00615-1574-32 ")
  1. ;;134
  1. ;;21,"00641-1138-34 ")
  1. ;;57
  1. ;;21,"00641-1139-31 ")
  1. ;;58
  1. ;;21,"00641-2569-44 ")
  1. ;;59
  1. ;;21,"00686-0068-20 ")
  1. ;;20
  1. ;;21,"00686-0069-20 ")
  1. ;;88
  1. ;;21,"00686-0070-20 ")
  1. ;;135
  1. ;;21,"00703-1652-02 ")
  1. ;;60
  1. ;;21,"00703-1654-02 ")
  1. ;;61
  1. ;;21,"00781-1678-13 ")
  1. ;;89
  1. ;;21,"00781-1840-01 ")
  1. ;;160
  1. ;;21,"00781-1840-10 ")
  1. ;;161
  1. ;;21,"00781-1842-01 ")
  1. ;;179
  1. ;;21,"00781-1842-10 ")
  1. ;;180
  1. ;;21,"00839-1382-06 ")
  1. ;;162
  1. ;;21,"00839-1382-16 ")
  1. ;;163
  1. ;;21,"00839-6182-06 ")
  1. ;;181
  1. ;;21,"00839-6182-16 ")
  1. ;;182
  1. ;;21,"00839-6327-06 ")
  1. ;;21
  1. ;;21,"00839-6327-16 ")
  1. ;;22
  1. ;;21,"00839-6429-06 ")
  1. ;;136
  1. ;;21,"00839-6429-16 ")
  1. ;;137
  1. ;;21,"00839-6494-06 ")
  1. ;;90
  1. ;;21,"00839-6494-16 ")
  1. ;;91
  1. ;;21,"00839-7918-06 ")
  1. ;;23
  1. ;;21,"00839-7918-16 ")
  1. ;;24
  1. ;;21,"00839-7919-06 ")
  1. ;;92
  1. ;;21,"00839-7919-16 ")
  1. ;;93
  1. ;;21,"00839-7920-06 ")
  1. ;;138
  1. ;;21,"00839-7920-16 ")
  1. ;;139
  1. ;;21,"00904-0635-60 ")
  1. ;;164
  1. ;;21,"00904-0635-61 ")
  1. ;;165
  1. ;;21,"00904-0635-80 ")
  1. ;;166
  1. ;;21,"00904-0636-60 ")
  1. ;;183
  1. ;;21,"00904-0636-61 ")
  1. ;;184
  1. ;;21,"00904-0636-80 ")
  1. ;;185
  1. ;;21,"00904-1083-60 ")
  1. ;;25
  1. ;;21,"00904-1083-80 ")
  1. ;;26
  1. ;;21,"00904-1084-60 ")
  1. ;;140
  1. ;;21,"00904-1084-80 ")
  1. ;;141
  1. ;;21,"00904-1085-60 ")
  1. ;;94
  1. ;;21,"00904-1085-80 ")
  1. ;;95
  1. ;;21,"00904-1086-60 ")
  1. ;;27
  1. ;;21,"00904-1086-61 ")
  1. ;;28
  1. ;;21,"00904-1086-80 ")
  1. ;;29
  1. ;;21,"00904-1087-60 ")
  1. ;;96
  1. ;;21,"00904-1087-61 ")
  1. ;;97
  1. ;;21,"00904-1087-80 ")
  1. ;;98
  1. ;;21,"00904-1088-60 ")
  1. ;;142
  1. ;;21,"00904-1088-61 ")
  1. ;;143
  1. ;;21,"00904-1088-80 ")
  1. ;;144
  1. ;;21,"11994-0005-05 ")
  1. ;;62
  1. ;;21,"11994-0005-25 ")
  1. ;;63
  1. ;;21,"11994-0005-60 ")
  1. ;;64
  1. ;;21,"11994-0005-65 ")
  1. ;;65
  1. ;;21,"51079-0068-20 ")
  1. ;;30
  1. ;;21,"51079-0069-20 ")
  1. ;;99
  1. ;;21,"51079-0070-20 ")
  1. ;;145
  1. ;;21,"52152-0009-02 ")
  1. ;;167
  1. ;;21,"52152-0009-05 ")
  1. ;;168
  1. ;;21,"52152-0010-02 ")
  1. ;;186
  1. ;;21,"52152-0010-05 ")
  1. ;;187
  1. ;;21,"52152-0265-02 ")
  1. ;;31
  1. ;;21,"52152-0265-05 ")
  1. ;;32
  1. ;;21,"52152-0266-02 ")
  1. ;;100
  1. ;;21,"52152-0266-05 ")
  1. ;;101
  1. ;;21,"52152-0267-02 ")
  1. ;;146
  1. ;;21,"52152-0267-05 ")
  1. ;;147
  1. ;;21,"54569-0466-00 ")
  1. ;;33
  1. ;;21,"54569-0468-01 ")
  1. ;;102
  1. ;;21,"54569-0470-00 ")
  1. ;;148
  1. ;;21,"54868-1288-00 ")
  1. ;;34
  1. ;;21,"54868-1464-00 ")
  1. ;;188
  1. ;;21,"55289-0679-01 ")
  1. ;;103
  1. ;;21,"55289-0748-01 ")
  1. ;;35
  1. ;;21,"55289-0748-97 ")
  1. ;;36
  1. ;;21,"55370-0151-07 ")
  1. ;;37
  1. ;;21,"55370-0151-09 ")
  1. ;;38
  1. ;;21,"55370-0152-07 ")
  1. ;;104
  1. ;;21,"55370-0152-09 ")
  1. ;;105
  1. ;;21,"55370-0154-07 ")
  1. ;;149
  1. ;;21,"55370-0154-09 ")
  1. ;;150
  1. ;;21,"55390-0555-01 ")
  1. ;;66
  1. ;;21,"55390-0555-10 ")
  1. ;;67
  1. ;;21,"55390-0555-90 ")
  1. ;;68
  1. ;;21,"55829-0235-10 ")
  1. ;;39
  1. ;;21,"55829-0236-10 ")
  1. ;;106
  1. ;;21,"55829-0237-10 ")
  1. ;;151
  1. ;;21,"60505-0715-00 ")
  1. ;;69
  1. ;;21,"60505-0715-01 ")
  1. ;;70
  1. ;;21,"61392-0549-30 ")
  1. ;;40
  1. ;;21,"61392-0549-31 ")
  1. ;;41
  1. ;;21,"61392-0549-32 ")
  1. ;;42
  1. ;;21,"61392-0549-34 ")
  1. ;;43
  1. ;;21,"61392-0549-39 ")
  1. ;;44
  1. ;;21,"61392-0549-45 ")
  1. ;;45
  1. ;;21,"61392-0549-51 ")
  1. ;;46
  1. ;;21,"61392-0549-54 ")
  1. ;;47
  1. ;;21,"61392-0549-56 ")
  1. ;;48
  1. ;;21,"61392-0549-60 ")
  1. ;;49
  1. ;;21,"61392-0549-90 ")
  1. ;;50
  1. ;;21,"61392-0549-91 ")
  1. ;;51
  1. ;;21,"61392-0552-30 ")
  1. ;;107
  1. ;;21,"61392-0552-31 ")
  1. ;;108
  1. ;;21,"61392-0552-32 ")
  1. ;;109
  1. ;;21,"61392-0552-39 ")
  1. ;;110
  1. ;;21,"61392-0552-45 ")
  1. ;;111
  1. ;;21,"61392-0552-51 ")
  1. ;;112
  1. ;;21,"61392-0552-54 ")
  1. ;;113
  1. ;;21,"61392-0552-56 ")
  1. ;;114
  1. ;;21,"61392-0552-60 ")
  1. ;;115
  1. ;;21,"61392-0552-90 ")
  1. ;;116
  1. ;;21,"61392-0552-91 ")
  1. ;;117
  1. ;;21,"63323-0613-02 ")
  1. ;;71
  1. ;;21,"63323-0613-10 ")
  1. ;;72
  1. ;;21,"64731-0575-01 ")
  1. ;;169
  1. ;;21,"64731-0575-10 ")
  1. ;;170
  1. ;;21,"64731-0576-01 ")
  1. ;;189
  1. ;;21,"64731-0576-10 ")
  1. ;;190
  1. ;;21,"68115-0663-00 ")
  1. ;;152
  1. ;;9002226,633,.01)
  1. ;;BGP HEDIS VASODILATOR NDC
  1. ;;9002226,633,.02)
  1. ;;@
  1. ;;9002226,633,.04)
  1. ;;n
  1. ;;9002226,633,.06)
  1. ;;@
  1. ;;9002226,633,.08)
  1. ;;@
  1. ;;9002226,633,.09)
  1. ;;@
  1. ;;9002226,633,.11)
  1. ;;@
  1. ;;9002226,633,.12)
  1. ;;@
  1. ;;9002226,633,.13)
  1. ;;1
  1. ;;9002226,633,.14)
  1. ;;@
  1. ;;9002226,633,.15)
  1. ;;@
  1. ;;9002226,633,.16)
  1. ;;@
  1. ;;9002226,633,.17)
  1. ;;@
  1. ;;9002226,633,3101)
  1. ;;@
  1. ;;9002226.02101,"633,00005-3743-23 ",.01)
  1. ;;00005-3743-23
  1. ;;9002226.02101,"633,00005-3743-23 ",.02)
  1. ;;00005-3743-23
  1. ;;9002226.02101,"633,00005-3743-31 ",.01)
  1. ;;00005-3743-31
  1. ;;9002226.02101,"633,00005-3743-31 ",.02)
  1. ;;00005-3743-31
  1. ;;9002226.02101,"633,00005-3790-23 ",.01)
  1. ;;00005-3790-23
  1. ;;9002226.02101,"633,00005-3790-23 ",.02)
  1. ;;00005-3790-23
  1. ;;9002226.02101,"633,00005-3791-23 ",.01)
  1. ;;00005-3791-23
  1. ;;9002226.02101,"633,00005-3791-23 ",.02)
  1. ;;00005-3791-23
  1. ;;9002226.02101,"633,00005-3791-31 ",.01)
  1. ;;00005-3791-31
  1. ;;9002226.02101,"633,00005-3791-31 ",.02)
  1. ;;00005-3791-31
  1. ;;9002226.02101,"633,00074-2043-02 ",.01)
  1. ;;00074-2043-02
  1. ;;9002226.02101,"633,00074-2043-02 ",.02)
  1. ;;00074-2043-02
  1. ;;9002226.02101,"633,00074-2043-10 ",.01)
  1. ;;00074-2043-10
  1. ;;9002226.02101,"633,00074-2043-10 ",.02)
  1. ;;00074-2043-10
  1. ;;9002226.02101,"633,00087-0543-01 ",.01)
  1. ;;00087-0543-01
  1. ;;9002226.02101,"633,00087-0543-01 ",.02)
  1. ;;00087-0543-01
  1. ;;9002226.02101,"633,00087-0544-01 ",.01)
  1. ;;00087-0544-01
  1. ;;9002226.02101,"633,00087-0544-01 ",.02)
  1. ;;00087-0544-01
  1. ;;9002226.02101,"633,00182-1055-01 ",.01)
  1. ;;00182-1055-01
  1. ;;9002226.02101,"633,00182-1055-01 ",.02)
  1. ;;00182-1055-01
  1. ;;9002226.02101,"633,00182-1055-10 ",.01)
  1. ;;00182-1055-10
  1. ;;9002226.02101,"633,00182-1055-10 ",.02)
  1. ;;00182-1055-10
  1. ;;9002226.02101,"633,00182-1056-01 ",.01)
  1. ;;00182-1056-01
  1. ;;9002226.02101,"633,00182-1056-01 ",.02)
  1. ;;00182-1056-01
  1. ;;9002226.02101,"633,00182-1056-10 ",.01)
  1. ;;00182-1056-10
  1. ;;9002226.02101,"633,00182-1056-10 ",.02)
  1. ;;00182-1056-10
  1. ;;9002226.02101,"633,00182-1568-89 ",.01)
  1. ;;00182-1568-89
  1. ;;9002226.02101,"633,00182-1568-89 ",.02)
  1. ;;00182-1568-89
  1. ;;9002226.02101,"633,00182-1569-89 ",.01)
  1. ;;00182-1569-89
  1. ;;9002226.02101,"633,00182-1569-89 ",.02)
  1. ;;00182-1569-89
  1. ;;9002226.02101,"633,00182-1570-89 ",.01)
  1. ;;00182-1570-89
  1. ;;9002226.02101,"633,00182-1570-89 ",.02)
  1. ;;00182-1570-89
  1. ;;9002226.02101,"633,00185-0530-01 ",.01)
  1. ;;00185-0530-01
  1. ;;9002226.02101,"633,00185-0530-01 ",.02)
  1. ;;00185-0530-01
  1. ;;9002226.02101,"633,00185-0530-10 ",.01)
  1. ;;00185-0530-10
  1. ;;9002226.02101,"633,00185-0530-10 ",.02)
  1. ;;00185-0530-10
  1. ;;9002226.02101,"633,00185-0531-01 ",.01)
  1. ;;00185-0531-01
  1. ;;9002226.02101,"633,00185-0531-01 ",.02)
  1. ;;00185-0531-01
  1. ;;9002226.02101,"633,00185-0531-10 ",.01)
  1. ;;00185-0531-10
  1. ;;9002226.02101,"633,00185-0531-10 ",.02)
  1. ;;00185-0531-10
  1. ;;9002226.02101,"633,00223-0837-01 ",.01)
  1. ;;00223-0837-01
  1. ;;9002226.02101,"633,00223-0837-01 ",.02)
  1. ;;00223-0837-01
  1. ;;9002226.02101,"633,00223-0837-02 ",.01)
  1. ;;00223-0837-02
  1. ;;9002226.02101,"633,00223-0837-02 ",.02)
  1. ;;00223-0837-02
  1. ;;9002226.02101,"633,00228-2183-10 ",.01)
  1. ;;00228-2183-10
  1. ;;9002226.02101,"633,00228-2183-10 ",.02)
  1. ;;00228-2183-10
  1. ;;9002226.02101,"633,00228-2183-96 ",.01)
  1. ;;00228-2183-96
  1. ;;9002226.02101,"633,00228-2183-96 ",.02)
  1. ;;00228-2183-96
  1. ;;9002226.02101,"633,00228-2185-10 ",.01)
  1. ;;00228-2185-10
  1. ;;9002226.02101,"633,00228-2185-10 ",.02)
  1. ;;00228-2185-10
  1. ;;9002226.02101,"633,00228-2185-96 ",.01)
  1. ;;00228-2185-96
  1. ;;9002226.02101,"633,00228-2185-96 ",.02)
  1. ;;00228-2185-96
  1. ;;9002226.02101,"633,00228-2193-10 ",.01)
  1. ;;00228-2193-10
  1. ;;9002226.02101,"633,00228-2193-10 ",.02)
  1. ;;00228-2193-10
  1. ;;9002226.02101,"633,00228-2193-96 ",.01)
  1. ;;00228-2193-96
  1. ;;9002226.02101,"633,00228-2193-96 ",.02)
  1. ;;00228-2193-96
  1. ;;9002226.02101,"633,00302-2290-01 ",.01)
  1. ;;00302-2290-01
  1. ;;9002226.02101,"633,00302-2290-01 ",.02)
  1. ;;00302-2290-01
  1. ;;9002226.02101,"633,00405-4350-01 ",.01)
  1. ;;00405-4350-01
  1. ;;9002226.02101,"633,00405-4350-01 ",.02)
  1. ;;00405-4350-01
  1. ;;9002226.02101,"633,00405-4350-03 ",.01)
  1. ;;00405-4350-03
  1. ;;9002226.02101,"633,00405-4350-03 ",.02)
  1. ;;00405-4350-03
  1. ;;9002226.02101,"633,00405-4351-01 ",.01)
  1. ;;00405-4351-01
  1. ;;9002226.02101,"633,00405-4351-01 ",.02)
  1. ;;00405-4351-01
  1. ;;9002226.02101,"633,00405-4351-03 ",.01)
  1. ;;00405-4351-03
  1. ;;9002226.02101,"633,00405-4351-03 ",.02)
  1. ;;00405-4351-03
  1. ;;9002226.02101,"633,00405-4352-01 ",.01)
  1. ;;00405-4352-01
  1. ;;9002226.02101,"633,00405-4352-01 ",.02)
  1. ;;00405-4352-01
  1. ;;9002226.02101,"633,00405-4352-03 ",.01)
  1. ;;00405-4352-03
  1. ;;9002226.02101,"633,00405-4352-03 ",.02)
  1. ;;00405-4352-03
  1. ;;9002226.02101,"633,00405-4575-01 ",.01)
  1. ;;00405-4575-01
  1. ;;9002226.02101,"633,00405-4575-01 ",.02)
  1. ;;00405-4575-01
  1. ;;9002226.02101,"633,00405-4575-03 ",.01)
  1. ;;00405-4575-03
  1. ;;9002226.02101,"633,00405-4575-03 ",.02)
  1. ;;00405-4575-03
  1. ;;9002226.02101,"633,00405-4576-01 ",.01)
  1. ;;00405-4576-01
  1. ;;9002226.02101,"633,00405-4576-01 ",.02)
  1. ;;00405-4576-01
  1. ;;9002226.02101,"633,00405-4576-03 ",.01)
  1. ;;00405-4576-03
  1. ;;9002226.02101,"633,00405-4576-03 ",.02)
  1. ;;00405-4576-03
  1. ;;9002226.02101,"633,00405-5350-01 ",.01)
  1. ;;00405-5350-01
  1. ;;9002226.02101,"633,00405-5350-01 ",.02)
  1. ;;00405-5350-01
  1. ;;9002226.02101,"633,00405-5350-03 ",.01)
  1. ;;00405-5350-03
  1. ;;9002226.02101,"633,00405-5350-03 ",.02)
  1. ;;00405-5350-03
  1. ;;9002226.02101,"633,00405-5351-01 ",.01)
  1. ;;00405-5351-01
  1. ;;9002226.02101,"633,00405-5351-01 ",.02)
  1. ;;00405-5351-01
  1. ;;9002226.02101,"633,00405-5352-01 ",.01)
  1. ;;00405-5352-01
  1. ;;9002226.02101,"633,00405-5352-01 ",.02)
  1. ;;00405-5352-01
  1. ;;9002226.02101,"633,00405-5352-03 ",.01)
  1. ;;00405-5352-03
  1. ;;9002226.02101,"633,00405-5352-03 ",.02)
  1. ;;00405-5352-03
  1. ;;9002226.02101,"633,00409-2043-02 ",.01)
  1. ;;00409-2043-02
  1. ;;9002226.02101,"633,00409-2043-02 ",.02)
  1. ;;00409-2043-02
  1. ;;9002226.02101,"633,00463-6336-10 ",.01)
  1. ;;00463-6336-10
  1. ;;9002226.02101,"633,00463-6336-10 ",.02)
  1. ;;00463-6336-10
  1. ;;9002226.02101,"633,00555-0252-02 ",.01)
  1. ;;00555-0252-02
  1. ;;9002226.02101,"633,00555-0252-02 ",.02)
  1. ;;00555-0252-02
  1. ;;9002226.02101,"633,00555-0252-04 ",.01)
  1. ;;00555-0252-04
  1. ;;9002226.02101,"633,00555-0252-04 ",.02)
  1. ;;00555-0252-04
  1. ;;9002226.02101,"633,00555-0252-05 ",.01)
  1. ;;00555-0252-05
  1. ;;9002226.02101,"633,00555-0252-05 ",.02)
  1. ;;00555-0252-05
  1. ;;9002226.02101,"633,00555-0285-02 ",.01)
  1. ;;00555-0285-02
  1. ;;9002226.02101,"633,00555-0285-02 ",.02)
  1. ;;00555-0285-02
  1. ;;9002226.02101,"633,00555-0285-04 ",.01)
  1. ;;00555-0285-04
  1. ;;9002226.02101,"633,00555-0285-04 ",.02)
  1. ;;00555-0285-04
  1. ;;9002226.02101,"633,00555-0285-05 ",.01)
  1. ;;00555-0285-05
  1. ;;9002226.02101,"633,00555-0285-05 ",.02)
  1. ;;00555-0285-05
  1. ;;9002226.02101,"633,00555-0286-02 ",.01)
  1. ;;00555-0286-02
  1. ;;9002226.02101,"633,00555-0286-02 ",.02)
  1. ;;00555-0286-02
  1. ;;9002226.02101,"633,00555-0286-04 ",.01)
  1. ;;00555-0286-04
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGP8JXBB
  1. D ^BGP8JXBC
  1. Q