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

BGP8FXA.m

Go to the documentation of this file.
  1. BGP8FXA ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON SEP 28, 2007 ;
  1. ;;8.0;IHS CLINICAL REPORTING;;MAR 12, 2008
  1. ;;;BGP6;;SEP 28, 2007
  1. ;;BGP HEDIS ARB NDC
  1. ;
  1. ; This routine loads Taxonomy BGP HEDIS ARB 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-0717-28 ")
  1. ;;37
  1. ;;21,"00006-0717-31 ")
  1. ;;38
  1. ;;21,"00006-0717-54 ")
  1. ;;39
  1. ;;21,"00006-0717-58 ")
  1. ;;40
  1. ;;21,"00006-0717-82 ")
  1. ;;41
  1. ;;21,"00006-0717-86 ")
  1. ;;42
  1. ;;21,"00006-0745-28 ")
  1. ;;32
  1. ;;21,"00006-0745-31 ")
  1. ;;33
  1. ;;21,"00006-0745-54 ")
  1. ;;34
  1. ;;21,"00006-0745-82 ")
  1. ;;35
  1. ;;21,"00006-0745-86 ")
  1. ;;36
  1. ;;21,"00006-0747-28 ")
  1. ;;47
  1. ;;21,"00006-0747-31 ")
  1. ;;48
  1. ;;21,"00006-0747-54 ")
  1. ;;49
  1. ;;21,"00006-0747-58 ")
  1. ;;50
  1. ;;21,"00006-0747-81 ")
  1. ;;51
  1. ;;21,"00006-0747-82 ")
  1. ;;52
  1. ;;21,"00006-0951-28 ")
  1. ;;102
  1. ;;21,"00006-0951-54 ")
  1. ;;103
  1. ;;21,"00006-0951-58 ")
  1. ;;104
  1. ;;21,"00006-0951-82 ")
  1. ;;105
  1. ;;21,"00006-0951-87 ")
  1. ;;106
  1. ;;21,"00006-0952-28 ")
  1. ;;114
  1. ;;21,"00006-0952-31 ")
  1. ;;115
  1. ;;21,"00006-0952-54 ")
  1. ;;116
  1. ;;21,"00006-0952-58 ")
  1. ;;117
  1. ;;21,"00006-0952-82 ")
  1. ;;118
  1. ;;21,"00006-0952-87 ")
  1. ;;119
  1. ;;21,"00006-0960-28 ")
  1. ;;94
  1. ;;21,"00006-0960-31 ")
  1. ;;95
  1. ;;21,"00006-0960-54 ")
  1. ;;96
  1. ;;21,"00006-0960-58 ")
  1. ;;97
  1. ;;21,"00006-0960-82 ")
  1. ;;98
  1. ;;21,"00006-0960-86 ")
  1. ;;99
  1. ;;21,"00051-5044-01 ")
  1. ;;18
  1. ;;21,"00051-5044-42 ")
  1. ;;19
  1. ;;21,"00051-5046-01 ")
  1. ;;22
  1. ;;21,"00051-5046-42 ")
  1. ;;23
  1. ;;21,"00078-0314-05 ")
  1. ;;70
  1. ;;21,"00078-0314-06 ")
  1. ;;71
  1. ;;21,"00078-0314-34 ")
  1. ;;72
  1. ;;21,"00078-0315-05 ")
  1. ;;64
  1. ;;21,"00078-0315-06 ")
  1. ;;65
  1. ;;21,"00078-0315-34 ")
  1. ;;66
  1. ;;21,"00078-0358-05 ")
  1. ;;170
  1. ;;21,"00078-0358-06 ")
  1. ;;171
  1. ;;21,"00078-0358-34 ")
  1. ;;172
  1. ;;21,"00078-0359-05 ")
  1. ;;152
  1. ;;21,"00078-0359-06 ")
  1. ;;153
  1. ;;21,"00078-0359-34 ")
  1. ;;154
  1. ;;21,"00078-0360-05 ")
  1. ;;159
  1. ;;21,"00078-0360-06 ")
  1. ;;160
  1. ;;21,"00078-0360-34 ")
  1. ;;161
  1. ;;21,"00078-0376-06 ")
  1. ;;163
  1. ;;21,"00078-0376-15 ")
  1. ;;164
  1. ;;21,"00078-0383-05 ")
  1. ;;76
  1. ;;21,"00078-0383-06 ")
  1. ;;77
  1. ;;21,"00078-0383-34 ")
  1. ;;78
  1. ;;21,"00078-0423-06 ")
  1. ;;165
  1. ;;21,"00078-0423-15 ")
  1. ;;166
  1. ;;21,"00078-0471-34 ")
  1. ;;69
  1. ;;21,"00078-0472-34 ")
  1. ;;80
  1. ;;21,"00083-4000-01 ")
  1. ;;167
  1. ;;21,"00083-4000-41 ")
  1. ;;168
  1. ;;21,"00083-4000-61 ")
  1. ;;169
  1. ;;21,"00083-4001-01 ")
  1. ;;149
  1. ;;21,"00083-4001-41 ")
  1. ;;150
  1. ;;21,"00083-4001-61 ")
  1. ;;151
  1. ;;21,"00087-2771-31 ")
  1. ;;92
  1. ;;21,"00087-2771-32 ")
  1. ;;93
  1. ;;21,"00087-2772-15 ")
  1. ;;81
  1. ;;21,"00087-2772-31 ")
  1. ;;82
  1. ;;21,"00087-2772-32 ")
  1. ;;83
  1. ;;21,"00087-2772-35 ")
  1. ;;84
  1. ;;21,"00087-2773-15 ")
  1. ;;87
  1. ;;21,"00087-2773-31 ")
  1. ;;88
  1. ;;21,"00087-2773-32 ")
  1. ;;89
  1. ;;21,"00087-2773-35 ")
  1. ;;90
  1. ;;21,"00087-2775-31 ")
  1. ;;26
  1. ;;21,"00087-2775-32 ")
  1. ;;27
  1. ;;21,"00087-2776-31 ")
  1. ;;28
  1. ;;21,"00087-2776-32 ")
  1. ;;29
  1. ;;21,"00087-2788-31 ")
  1. ;;30
  1. ;;21,"00087-2788-32 ")
  1. ;;31
  1. ;;21,"00182-0322-54 ")
  1. ;;14
  1. ;;21,"00186-0004-31 ")
  1. ;;8
  1. ;;21,"00186-0008-31 ")
  1. ;;9
  1. ;;21,"00186-0016-28 ")
  1. ;;1
  1. ;;21,"00186-0016-31 ")
  1. ;;2
  1. ;;21,"00186-0016-54 ")
  1. ;;3
  1. ;;21,"00186-0032-28 ")
  1. ;;5
  1. ;;21,"00186-0032-31 ")
  1. ;;6
  1. ;;21,"00186-0032-54 ")
  1. ;;7
  1. ;;21,"00186-0162-28 ")
  1. ;;12
  1. ;;21,"00186-0162-54 ")
  1. ;;13
  1. ;;21,"00186-0322-28 ")
  1. ;;15
  1. ;;21,"00186-0322-54 ")
  1. ;;16
  1. ;;21,"00597-0039-28 ")
  1. ;;143
  1. ;;21,"00597-0039-37 ")
  1. ;;144
  1. ;;21,"00597-0040-28 ")
  1. ;;145
  1. ;;21,"00597-0040-37 ")
  1. ;;146
  1. ;;21,"00597-0041-28 ")
  1. ;;147
  1. ;;21,"00597-0041-37 ")
  1. ;;148
  1. ;;21,"00597-0042-28 ")
  1. ;;62
  1. ;;21,"00597-0042-37 ")
  1. ;;63
  1. ;;21,"00597-0043-28 ")
  1. ;;57
  1. ;;21,"00597-0043-37 ")
  1. ;;58
  1. ;;21,"00597-0044-28 ")
  1. ;;59
  1. ;;21,"00597-0044-37 ")
  1. ;;60
  1. ;;21,"12280-0005-90 ")
  1. ;;107
  1. ;;21,"12280-0008-90 ")
  1. ;;155
  1. ;;21,"12280-0009-90 ")
  1. ;;79
  1. ;;21,"12280-0063-90 ")
  1. ;;85
  1. ;;21,"12280-0066-30 ")
  1. ;;100
  1. ;;21,"12280-0067-90 ")
  1. ;;67
  1. ;;21,"12280-0168-30 ")
  1. ;;134
  1. ;;21,"54569-4437-00 ")
  1. ;;108
  1. ;;21,"54569-4438-00 ")
  1. ;;120
  1. ;;21,"54569-4572-00 ")
  1. ;;86
  1. ;;21,"54569-4697-00 ")
  1. ;;173
  1. ;;21,"54569-4698-00 ")
  1. ;;156
  1. ;;21,"54569-4714-00 ")
  1. ;;4
  1. ;;21,"54569-4719-00 ")
  1. ;;10
  1. ;;21,"54569-4719-01 ")
  1. ;;11
  1. ;;21,"54569-4722-00 ")
  1. ;;43
  1. ;;21,"54569-4722-01 ")
  1. ;;44
  1. ;;21,"54569-4766-00 ")
  1. ;;73
  1. ;;21,"54569-4767-00 ")
  1. ;;68
  1. ;;21,"54569-4895-00 ")
  1. ;;91
  1. ;;21,"54868-2335-00 ")
  1. ;;101
  1. ;;21,"54868-3726-00 ")
  1. ;;121
  1. ;;21,"54868-3726-01 ")
  1. ;;122
  1. ;;21,"54868-3866-00 ")
  1. ;;45
  1. ;;21,"54868-3866-01 ")
  1. ;;46
  1. ;;21,"54868-4341-00 ")
  1. ;;53
  1. ;;21,"54868-4341-01 ")
  1. ;;54
  1. ;;21,"54868-4645-01 ")
  1. ;;157
  1. ;;21,"54868-4645-02 ")
  1. ;;158
  1. ;;21,"54868-4652-00 ")
  1. ;;174
  1. ;;21,"54868-4652-01 ")
  1. ;;175
  1. ;;21,"54868-4652-02 ")
  1. ;;176
  1. ;;21,"54868-5077-00 ")
  1. ;;109
  1. ;;21,"54868-5082-00 ")
  1. ;;162
  1. ;;21,"55045-3401-08 ")
  1. ;;123
  1. ;;21,"55887-0432-30 ")
  1. ;;110
  1. ;;21,"55887-0432-60 ")
  1. ;;111
  1. ;;21,"55887-0432-90 ")
  1. ;;112
  1. ;;21,"58016-0053-00 ")
  1. ;;135
  1. ;;21,"58016-0053-30 ")
  1. ;;136
  1. ;;21,"58016-0053-60 ")
  1. ;;137
  1. ;;21,"58016-0053-90 ")
  1. ;;138
  1. ;;21,"58016-0066-00 ")
  1. ;;127
  1. ;;21,"58016-0066-30 ")
  1. ;;128
  1. ;;21,"58016-0066-60 ")
  1. ;;129
  1. ;;21,"58016-0066-90 ")
  1. ;;130
  1. ;;21,"58016-4631-01 ")
  1. ;;61
  1. ;;21,"58864-0659-30 ")
  1. ;;55
  1. ;;21,"58864-0662-30 ")
  1. ;;124
  1. ;;21,"58864-0807-30 ")
  1. ;;113
  1. ;;21,"60598-0080-01 ")
  1. ;;178
  1. ;;21,"60598-0081-01 ")
  1. ;;180
  1. ;;21,"60598-0100-01 ")
  1. ;;20
  1. ;;21,"60598-0101-01 ")
  1. ;;24
  1. ;;21,"64455-0130-01 ")
  1. ;;21
  1. ;;21,"64455-0131-01 ")
  1. ;;25
  1. ;;21,"64455-0132-01 ")
  1. ;;179
  1. ;;21,"64455-0133-01 ")
  1. ;;181
  1. ;;21,"65597-0101-30 ")
  1. ;;142
  1. ;;21,"65597-0103-10 ")
  1. ;;131
  1. ;;21,"65597-0103-30 ")
  1. ;;132
  1. ;;21,"65597-0103-90 ")
  1. ;;133
  1. ;;21,"65597-0104-10 ")
  1. ;;139
  1. ;;21,"65597-0104-30 ")
  1. ;;140
  1. ;;21,"65597-0104-90 ")
  1. ;;141
  1. ;;21,"65597-0105-30 ")
  1. ;;182
  1. ;;21,"65597-0105-90 ")
  1. ;;183
  1. ;;21,"65597-0106-30 ")
  1. ;;184
  1. ;;21,"65597-0106-90 ")
  1. ;;185
  1. ;;21,"65597-0107-30 ")
  1. ;;186
  1. ;;21,"65597-0107-90 ")
  1. ;;187
  1. ;;21,"68115-0669-00 ")
  1. ;;74
  1. ;;21,"68115-0669-90 ")
  1. ;;75
  1. ;;21,"68115-0703-90 ")
  1. ;;17
  1. ;;21,"68115-0733-00 ")
  1. ;;125
  1. ;;21,"68115-0733-90 ")
  1. ;;126
  1. ;;21,"68115-0854-00 ")
  1. ;;177
  1. ;;21,"68115-0865-30 ")
  1. ;;56
  1. ;;9002226,636,.01)
  1. ;;BGP HEDIS ARB NDC
  1. ;;9002226,636,.02)
  1. ;;@
  1. ;;9002226,636,.04)
  1. ;;n
  1. ;;9002226,636,.06)
  1. ;;@
  1. ;;9002226,636,.08)
  1. ;;@
  1. ;;9002226,636,.09)
  1. ;;@
  1. ;;9002226,636,.11)
  1. ;;@
  1. ;;9002226,636,.12)
  1. ;;@
  1. ;;9002226,636,.13)
  1. ;;1
  1. ;;9002226,636,.14)
  1. ;;@
  1. ;;9002226,636,.15)
  1. ;;@
  1. ;;9002226,636,.16)
  1. ;;@
  1. ;;9002226,636,.17)
  1. ;;@
  1. ;;9002226,636,3101)
  1. ;;@
  1. ;;9002226.02101,"636,00006-0717-28 ",.01)
  1. ;;00006-0717-28
  1. ;;9002226.02101,"636,00006-0717-28 ",.02)
  1. ;;00006-0717-28
  1. ;;9002226.02101,"636,00006-0717-31 ",.01)
  1. ;;00006-0717-31
  1. ;;9002226.02101,"636,00006-0717-31 ",.02)
  1. ;;00006-0717-31
  1. ;;9002226.02101,"636,00006-0717-54 ",.01)
  1. ;;00006-0717-54
  1. ;;9002226.02101,"636,00006-0717-54 ",.02)
  1. ;;00006-0717-54
  1. ;;9002226.02101,"636,00006-0717-58 ",.01)
  1. ;;00006-0717-58
  1. ;;9002226.02101,"636,00006-0717-58 ",.02)
  1. ;;00006-0717-58
  1. ;;9002226.02101,"636,00006-0717-82 ",.01)
  1. ;;00006-0717-82
  1. ;;9002226.02101,"636,00006-0717-82 ",.02)
  1. ;;00006-0717-82
  1. ;;9002226.02101,"636,00006-0717-86 ",.01)
  1. ;;00006-0717-86
  1. ;;9002226.02101,"636,00006-0717-86 ",.02)
  1. ;;00006-0717-86
  1. ;;9002226.02101,"636,00006-0745-28 ",.01)
  1. ;;00006-0745-28
  1. ;;9002226.02101,"636,00006-0745-28 ",.02)
  1. ;;00006-0745-28
  1. ;;9002226.02101,"636,00006-0745-31 ",.01)
  1. ;;00006-0745-31
  1. ;;9002226.02101,"636,00006-0745-31 ",.02)
  1. ;;00006-0745-31
  1. ;;9002226.02101,"636,00006-0745-54 ",.01)
  1. ;;00006-0745-54
  1. ;;9002226.02101,"636,00006-0745-54 ",.02)
  1. ;;00006-0745-54
  1. ;;9002226.02101,"636,00006-0745-82 ",.01)
  1. ;;00006-0745-82
  1. ;;9002226.02101,"636,00006-0745-82 ",.02)
  1. ;;00006-0745-82
  1. ;;9002226.02101,"636,00006-0745-86 ",.01)
  1. ;;00006-0745-86
  1. ;;9002226.02101,"636,00006-0745-86 ",.02)
  1. ;;00006-0745-86
  1. ;;9002226.02101,"636,00006-0747-28 ",.01)
  1. ;;00006-0747-28
  1. ;;9002226.02101,"636,00006-0747-28 ",.02)
  1. ;;00006-0747-28
  1. ;;9002226.02101,"636,00006-0747-31 ",.01)
  1. ;;00006-0747-31
  1. ;;9002226.02101,"636,00006-0747-31 ",.02)
  1. ;;00006-0747-31
  1. ;;9002226.02101,"636,00006-0747-54 ",.01)
  1. ;;00006-0747-54
  1. ;;9002226.02101,"636,00006-0747-54 ",.02)
  1. ;;00006-0747-54
  1. ;;9002226.02101,"636,00006-0747-58 ",.01)
  1. ;;00006-0747-58
  1. ;;9002226.02101,"636,00006-0747-58 ",.02)
  1. ;;00006-0747-58
  1. ;;9002226.02101,"636,00006-0747-81 ",.01)
  1. ;;00006-0747-81
  1. ;;9002226.02101,"636,00006-0747-81 ",.02)
  1. ;;00006-0747-81
  1. ;;9002226.02101,"636,00006-0747-82 ",.01)
  1. ;;00006-0747-82
  1. ;;9002226.02101,"636,00006-0747-82 ",.02)
  1. ;;00006-0747-82
  1. ;;9002226.02101,"636,00006-0951-28 ",.01)
  1. ;;00006-0951-28
  1. ;;9002226.02101,"636,00006-0951-28 ",.02)
  1. ;;00006-0951-28
  1. ;;9002226.02101,"636,00006-0951-54 ",.01)
  1. ;;00006-0951-54
  1. ;;9002226.02101,"636,00006-0951-54 ",.02)
  1. ;;00006-0951-54
  1. ;;9002226.02101,"636,00006-0951-58 ",.01)
  1. ;;00006-0951-58
  1. ;;9002226.02101,"636,00006-0951-58 ",.02)
  1. ;;00006-0951-58
  1. ;;9002226.02101,"636,00006-0951-82 ",.01)
  1. ;;00006-0951-82
  1. ;;9002226.02101,"636,00006-0951-82 ",.02)
  1. ;;00006-0951-82
  1. ;;9002226.02101,"636,00006-0951-87 ",.01)
  1. ;;00006-0951-87
  1. ;;9002226.02101,"636,00006-0951-87 ",.02)
  1. ;;00006-0951-87
  1. ;;9002226.02101,"636,00006-0952-28 ",.01)
  1. ;;00006-0952-28
  1. ;;9002226.02101,"636,00006-0952-28 ",.02)
  1. ;;00006-0952-28
  1. ;;9002226.02101,"636,00006-0952-31 ",.01)
  1. ;;00006-0952-31
  1. ;;9002226.02101,"636,00006-0952-31 ",.02)
  1. ;;00006-0952-31
  1. ;;9002226.02101,"636,00006-0952-54 ",.01)
  1. ;;00006-0952-54
  1. ;;9002226.02101,"636,00006-0952-54 ",.02)
  1. ;;00006-0952-54
  1. ;;9002226.02101,"636,00006-0952-58 ",.01)
  1. ;;00006-0952-58
  1. ;;9002226.02101,"636,00006-0952-58 ",.02)
  1. ;;00006-0952-58
  1. ;;9002226.02101,"636,00006-0952-82 ",.01)
  1. ;;00006-0952-82
  1. ;;9002226.02101,"636,00006-0952-82 ",.02)
  1. ;;00006-0952-82
  1. ;;9002226.02101,"636,00006-0952-87 ",.01)
  1. ;;00006-0952-87
  1. ;;9002226.02101,"636,00006-0952-87 ",.02)
  1. ;;00006-0952-87
  1. ;;9002226.02101,"636,00006-0960-28 ",.01)
  1. ;;00006-0960-28
  1. ;;9002226.02101,"636,00006-0960-28 ",.02)
  1. ;;00006-0960-28
  1. ;;9002226.02101,"636,00006-0960-31 ",.01)
  1. ;;00006-0960-31
  1. ;;9002226.02101,"636,00006-0960-31 ",.02)
  1. ;;00006-0960-31
  1. ;;9002226.02101,"636,00006-0960-54 ",.01)
  1. ;;00006-0960-54
  1. ;;9002226.02101,"636,00006-0960-54 ",.02)
  1. ;;00006-0960-54
  1. ;;9002226.02101,"636,00006-0960-58 ",.01)
  1. ;;00006-0960-58
  1. ;;9002226.02101,"636,00006-0960-58 ",.02)
  1. ;;00006-0960-58
  1. ;;9002226.02101,"636,00006-0960-82 ",.01)
  1. ;;00006-0960-82
  1. ;;9002226.02101,"636,00006-0960-82 ",.02)
  1. ;;00006-0960-82
  1. ;;9002226.02101,"636,00006-0960-86 ",.01)
  1. ;;00006-0960-86
  1. ;;9002226.02101,"636,00006-0960-86 ",.02)
  1. ;;00006-0960-86
  1. ;;9002226.02101,"636,00051-5044-01 ",.01)
  1. ;;00051-5044-01
  1. ;;9002226.02101,"636,00051-5044-01 ",.02)
  1. ;;00051-5044-01
  1. ;;9002226.02101,"636,00051-5044-42 ",.01)
  1. ;;00051-5044-42
  1. ;;9002226.02101,"636,00051-5044-42 ",.02)
  1. ;;00051-5044-42
  1. ;;9002226.02101,"636,00051-5046-01 ",.01)
  1. ;;00051-5046-01
  1. ;;9002226.02101,"636,00051-5046-01 ",.02)
  1. ;;00051-5046-01
  1. ;;9002226.02101,"636,00051-5046-42 ",.01)
  1. ;;00051-5046-42
  1. ;;9002226.02101,"636,00051-5046-42 ",.02)
  1. ;;00051-5046-42
  1. ;;9002226.02101,"636,00078-0314-05 ",.01)
  1. ;;00078-0314-05
  1. ;;9002226.02101,"636,00078-0314-05 ",.02)
  1. ;;00078-0314-05
  1. ;;9002226.02101,"636,00078-0314-06 ",.01)
  1. ;;00078-0314-06
  1. ;;9002226.02101,"636,00078-0314-06 ",.02)
  1. ;;00078-0314-06
  1. ;;9002226.02101,"636,00078-0314-34 ",.01)
  1. ;;00078-0314-34
  1. ;;9002226.02101,"636,00078-0314-34 ",.02)
  1. ;;00078-0314-34
  1. ;;9002226.02101,"636,00078-0315-05 ",.01)
  1. ;;00078-0315-05
  1. ;;9002226.02101,"636,00078-0315-05 ",.02)
  1. ;;00078-0315-05
  1. ;;9002226.02101,"636,00078-0315-06 ",.01)
  1. ;;00078-0315-06
  1. ;;9002226.02101,"636,00078-0315-06 ",.02)
  1. ;;00078-0315-06
  1. ;;9002226.02101,"636,00078-0315-34 ",.01)
  1. ;;00078-0315-34
  1. ;;9002226.02101,"636,00078-0315-34 ",.02)
  1. ;;00078-0315-34
  1. ;;9002226.02101,"636,00078-0358-05 ",.01)
  1. ;;00078-0358-05
  1. ;;9002226.02101,"636,00078-0358-05 ",.02)
  1. ;;00078-0358-05
  1. ;;9002226.02101,"636,00078-0358-06 ",.01)
  1. ;;00078-0358-06
  1. ;;9002226.02101,"636,00078-0358-06 ",.02)
  1. ;;00078-0358-06
  1. ;;9002226.02101,"636,00078-0358-34 ",.01)
  1. ;;00078-0358-34
  1. ;;9002226.02101,"636,00078-0358-34 ",.02)
  1. ;;00078-0358-34
  1. ;;9002226.02101,"636,00078-0359-05 ",.01)
  1. ;;00078-0359-05
  1. ;;9002226.02101,"636,00078-0359-05 ",.02)
  1. ;;00078-0359-05
  1. ;;9002226.02101,"636,00078-0359-06 ",.01)
  1. ;;00078-0359-06
  1. ;;9002226.02101,"636,00078-0359-06 ",.02)
  1. ;;00078-0359-06
  1. ;;9002226.02101,"636,00078-0359-34 ",.01)
  1. ;;00078-0359-34
  1. ;;9002226.02101,"636,00078-0359-34 ",.02)
  1. ;;00078-0359-34
  1. ;;9002226.02101,"636,00078-0360-05 ",.01)
  1. ;;00078-0360-05
  1. ;;9002226.02101,"636,00078-0360-05 ",.02)
  1. ;;00078-0360-05
  1. ;;9002226.02101,"636,00078-0360-06 ",.01)
  1. ;;00078-0360-06
  1. ;;9002226.02101,"636,00078-0360-06 ",.02)
  1. ;;00078-0360-06
  1. ;;9002226.02101,"636,00078-0360-34 ",.01)
  1. ;;00078-0360-34
  1. ;;9002226.02101,"636,00078-0360-34 ",.02)
  1. ;;00078-0360-34
  1. ;;9002226.02101,"636,00078-0376-06 ",.01)
  1. ;;00078-0376-06
  1. ;;9002226.02101,"636,00078-0376-06 ",.02)
  1. ;;00078-0376-06
  1. ;;9002226.02101,"636,00078-0376-15 ",.01)
  1. ;;00078-0376-15
  1. ;
  1. OTHER ; OTHER ROUTINES
  1. D ^BGP8FXAB
  1. D ^BGP8FXAC
  1. Q