ATXO3D ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 12, 2013;
;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
;;BTPW BRST RECON UNS PROC
;
; This routine loads Taxonomy BTPW BRST RECON UNS PROC
;
START ;
K:'$G(ATXPGMC) ^TMP("ATX",$J)
S ATXPGMC=$G(ATXPGMC)+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
D OTHER
I $O(^TMP("ATX",$J,3.6,0)) D BULL^ATXSTX2
I $O(^TMP("ATX",$J,9002226,0)) D TAX^ATXSTX2
D KILL^ATXSTX2
Q
;
TMP ;;TAXONOMY (WITH BULLETIN)
;;21,"0H0T0ZZ ")
;;4
;;21,"0H0T3ZZ ")
;;5
;;21,"0H0TXZZ ")
;;6
;;21,"0H0U0ZZ ")
;;7
;;21,"0H0U3ZZ ")
;;8
;;21,"0H0UXZZ ")
;;9
;;21,"0H0V0ZZ ")
;;10
;;21,"0H0V3ZZ ")
;;11
;;21,"0H0VXZZ ")
;;12
;;21,"0HHT0NZ ")
;;13
;;21,"0HHT3NZ ")
;;14
;;21,"0HHT7NZ ")
;;15
;;21,"0HHT8NZ ")
;;16
;;21,"0HHU0NZ ")
;;17
;;21,"0HHU3NZ ")
;;18
;;21,"0HHU7NZ ")
;;19
;;21,"0HHU8NZ ")
;;20
;;21,"0HHV0NZ ")
;;21
;;21,"0HHV3NZ ")
;;22
;;21,"0HHV7NZ ")
;;23
;;21,"0HHV8NZ ")
;;24
;;21,"0HMTXZZ ")
;;25
;;21,"0HMUXZZ ")
;;26
;;21,"0HMVXZZ ")
;;27
;;21,"0HMWXZZ ")
;;28
;;21,"0HMXXZZ ")
;;29
;;21,"0HNT0ZZ ")
;;30
;;21,"0HNT3ZZ ")
;;31
;;21,"0HNT7ZZ ")
;;32
;;21,"0HNT8ZZ ")
;;33
;;21,"0HNTXZZ ")
;;34
;;21,"0HNU0ZZ ")
;;35
;;21,"0HNU3ZZ ")
;;36
;;21,"0HNU7ZZ ")
;;37
;;21,"0HNU8ZZ ")
;;38
;;21,"0HNUXZZ ")
;;39
;;21,"0HNV0ZZ ")
;;40
;;21,"0HNV3ZZ ")
;;41
;;21,"0HNV7ZZ ")
;;42
;;21,"0HNV8ZZ ")
;;43
;;21,"0HNVXZZ ")
;;44
;;21,"0HNW0ZZ ")
;;45
;;21,"0HNW3ZZ ")
;;46
;;21,"0HNW7ZZ ")
;;47
;;21,"0HNW8ZZ ")
;;48
;;21,"0HNWXZZ ")
;;49
;;21,"0HNX0ZZ ")
;;50
;;21,"0HNX3ZZ ")
;;51
;;21,"0HNX7ZZ ")
;;52
;;21,"0HNX8ZZ ")
;;53
;;21,"0HNXXZZ ")
;;54
;;21,"0HPT0JZ ")
;;55
;;21,"0HPT0NZ ")
;;56
;;21,"0HPT3JZ ")
;;57
;;21,"0HPT3NZ ")
;;58
;;21,"0HPU0JZ ")
;;59
;;21,"0HPU0NZ ")
;;60
;;21,"0HPU3JZ ")
;;61
;;21,"0HPU3NZ ")
;;62
;;21,"0HQT0ZZ ")
;;63
;;21,"0HQT3ZZ ")
;;64
;;21,"0HQT7ZZ ")
;;65
;;21,"0HQT8ZZ ")
;;66
;;21,"0HQTXZZ ")
;;67
;;21,"0HQU0ZZ ")
;;68
;;21,"0HQU3ZZ ")
;;69
;;21,"0HQU7ZZ ")
;;70
;;21,"0HQU8ZZ ")
;;71
;;21,"0HQUXZZ ")
;;72
;;21,"0HQV0ZZ ")
;;73
;;21,"0HQV3ZZ ")
;;74
;;21,"0HQV7ZZ ")
;;75
;;21,"0HQV8ZZ ")
;;76
;;21,"0HQVXZZ ")
;;77
;;21,"0HRT07Z ")
;;78
;;21,"0HRT0JZ ")
;;79
;;21,"0HRT0KZ ")
;;80
;;21,"0HRT37Z ")
;;81
;;21,"0HRT3KZ ")
;;82
;;21,"0HRTX7Z ")
;;83
;;21,"0HRTXJZ ")
;;84
;;21,"0HRTXKZ ")
;;85
;;21,"0HRU07Z ")
;;86
;;21,"0HRU0JZ ")
;;87
;;21,"0HRU0KZ ")
;;88
;;21,"0HRU37Z ")
;;89
;;21,"0HRU3KZ ")
;;90
;;21,"0HRUX7Z ")
;;91
;;21,"0HRUXJZ ")
;;92
;;21,"0HRUXKZ ")
;;93
;;21,"0HRV07Z ")
;;94
;;21,"0HRV0KZ ")
;;95
;;21,"0HRV37Z ")
;;96
;;21,"0HRV3KZ ")
;;97
;;21,"0HRVX7Z ")
;;98
;;21,"0HRVXJZ ")
;;99
;;21,"0HRVXKZ ")
;;100
;;21,"0HRW07Z ")
;;101
;;21,"0HRW0JZ ")
;;102
;;21,"0HRW0KZ ")
;;103
;;21,"0HRW37Z ")
;;104
;;21,"0HRW3JZ ")
;;105
;;21,"0HRW3KZ ")
;;106
;;21,"0HRWX7Z ")
;;107
;;21,"0HRWXJZ ")
;;108
;;21,"0HRWXKZ ")
;;109
;;21,"0HRX07Z ")
;;110
;;21,"0HRX0JZ ")
;;111
;;21,"0HRX0KZ ")
;;112
;;21,"0HRX37Z ")
;;113
;;21,"0HRX3JZ ")
;;114
;;21,"0HRX3KZ ")
;;115
;;21,"0HRXX7Z ")
;;116
;;21,"0HRXXJZ ")
;;117
;;21,"0HRXXKZ ")
;;118
;;21,"0HSWXZZ ")
;;119
;;21,"0HSXXZZ ")
;;120
;;21,"0HUT07Z ")
;;121
;;21,"0HUT0JZ ")
;;122
;;21,"0HUT0KZ ")
;;123
;;21,"0HUT37Z ")
;;124
;;21,"0HUT3JZ ")
;;125
;;21,"0HUT3KZ ")
;;126
;;21,"0HUT77Z ")
;;127
;;21,"0HUT7JZ ")
;;128
;;21,"0HUT7KZ ")
;;129
;;21,"0HUT87Z ")
;;130
;;21,"0HUT8JZ ")
;;131
;;21,"0HUT8KZ ")
;;132
;;21,"0HUTX7Z ")
;;133
;;21,"0HUTXJZ ")
;;134
;;21,"0HUTXKZ ")
;;135
;;21,"0HUU07Z ")
;;136
;;21,"0HUU0JZ ")
;;137
;;21,"0HUU0KZ ")
;;138
;;21,"0HUU37Z ")
;;139
;;21,"0HUU3JZ ")
;;140
;;21,"0HUU3KZ ")
;;141
;;21,"0HUU77Z ")
;;142
;;21,"0HUU7JZ ")
;;143
;;21,"0HUU7KZ ")
;;144
;;21,"0HUU87Z ")
;;145
;;21,"0HUU8JZ ")
;;146
;;21,"0HUU8KZ ")
;;147
;;21,"0HUUX7Z ")
;;148
;;21,"0HUUXJZ ")
;;149
;;21,"0HUUXKZ ")
;;150
;;21,"0HUV07Z ")
;;151
;;21,"0HUV0JZ ")
;;152
;;21,"0HUV0KZ ")
;;153
;;21,"0HUV37Z ")
;;154
;;21,"0HUV3JZ ")
;;155
;;21,"0HUV3KZ ")
;;156
;;21,"0HUV77Z ")
;;157
;;21,"0HUV7JZ ")
;;158
;;21,"0HUV7KZ ")
;;159
;;21,"0HUV87Z ")
;;160
;;21,"0HUV8JZ ")
;;161
;;21,"0HUV8KZ ")
;;162
;;21,"0HUVX7Z ")
;;163
;;21,"0HUVXJZ ")
;;164
;;21,"0HUVXKZ ")
;;165
;;21,"0HUW07Z ")
;;166
;;21,"0HUW0JZ ")
;;167
;;21,"0HUW0KZ ")
;;168
;;21,"0HUW37Z ")
;;169
;;21,"0HUW3JZ ")
;;170
;;21,"0HUW3KZ ")
;;171
;;21,"0HUW77Z ")
;;172
;;21,"0HUW7JZ ")
;;173
;;21,"0HUW7KZ ")
;;174
;;21,"0HUW87Z ")
;;175
;;21,"0HUW8JZ ")
;;176
;;21,"0HUW8KZ ")
;;177
;;21,"0HUWX7Z ")
;;178
;;21,"0HUWXJZ ")
;;179
;;21,"0HUWXKZ ")
;;180
;;21,"0HUX07Z ")
;;181
;;21,"0HUX0JZ ")
;;182
;;21,"0HUX0KZ ")
;;183
;;21,"0HUX37Z ")
;;184
;;21,"0HUX3JZ ")
;;185
;;21,"0HUX3KZ ")
;;186
;;21,"0HUX77Z ")
;;187
;;21,"0HUX7JZ ")
;;188
;;21,"0HUX7KZ ")
;;189
;;21,"0HUX87Z ")
;;190
;;21,"0HUX8JZ ")
;;191
;;21,"0HUX8KZ ")
;;192
;;21,"0HUXX7Z ")
;;193
;;21,"0HUXXJZ ")
;;194
;;21,"0HUXXKZ ")
;;195
;;21,"0HWT0JZ ")
;;196
;;21,"0HWT3JZ ")
;;197
;;21,"0HWU0JZ ")
;;198
;;21,"0HWU3JZ ")
;;199
;;21,"85.70 ")
;;1
;;21,"85.82 ")
;;2
;;21,"85.92 ")
;;3
;;9002226,1381,.01)
;;BTPW BRST RECON UNS PROC
;;9002226,1381,.02)
;;@
;;9002226,1381,.04)
;;n
;;9002226,1381,.06)
;;@
;;9002226,1381,.08)
;;0
;;9002226,1381,.09)
;;3131112
;;9002226,1381,.11)
;;@
;;9002226,1381,.12)
;;255
;;9002226,1381,.13)
;;1
;;9002226,1381,.14)
;;@
;;9002226,1381,.15)
;;80.1
;;9002226,1381,.16)
;;@
;;9002226,1381,.17)
;;@
;;9002226,1381,3101)
;;@
;;9002226.02101,"1381,0H0T0ZZ ",.01)
;;0H0T0ZZ
;;9002226.02101,"1381,0H0T0ZZ ",.02)
;;0H0T0ZZ
;;9002226.02101,"1381,0H0T0ZZ ",.03)
;;31
;;9002226.02101,"1381,0H0T3ZZ ",.01)
;;0H0T3ZZ
;;9002226.02101,"1381,0H0T3ZZ ",.02)
;;0H0T3ZZ
;;9002226.02101,"1381,0H0T3ZZ ",.03)
;;31
;;9002226.02101,"1381,0H0TXZZ ",.01)
;;0H0TXZZ
;;9002226.02101,"1381,0H0TXZZ ",.02)
;;0H0TXZZ
;;9002226.02101,"1381,0H0TXZZ ",.03)
;;31
;;9002226.02101,"1381,0H0U0ZZ ",.01)
;;0H0U0ZZ
;;9002226.02101,"1381,0H0U0ZZ ",.02)
;;0H0U0ZZ
;;9002226.02101,"1381,0H0U0ZZ ",.03)
;;31
;;9002226.02101,"1381,0H0U3ZZ ",.01)
;;0H0U3ZZ
;;9002226.02101,"1381,0H0U3ZZ ",.02)
;;0H0U3ZZ
;;9002226.02101,"1381,0H0U3ZZ ",.03)
;;31
;;9002226.02101,"1381,0H0UXZZ ",.01)
;;0H0UXZZ
;;9002226.02101,"1381,0H0UXZZ ",.02)
;;0H0UXZZ
;;9002226.02101,"1381,0H0UXZZ ",.03)
;;31
;;9002226.02101,"1381,0H0V0ZZ ",.01)
;;0H0V0ZZ
;;9002226.02101,"1381,0H0V0ZZ ",.02)
;;0H0V0ZZ
;;9002226.02101,"1381,0H0V0ZZ ",.03)
;;31
;;9002226.02101,"1381,0H0V3ZZ ",.01)
;;0H0V3ZZ
;;9002226.02101,"1381,0H0V3ZZ ",.02)
;;0H0V3ZZ
;;9002226.02101,"1381,0H0V3ZZ ",.03)
;;31
;;9002226.02101,"1381,0H0VXZZ ",.01)
;;0H0VXZZ
;;9002226.02101,"1381,0H0VXZZ ",.02)
;;0H0VXZZ
;;9002226.02101,"1381,0H0VXZZ ",.03)
;;31
;;9002226.02101,"1381,0HHT0NZ ",.01)
;;0HHT0NZ
;;9002226.02101,"1381,0HHT0NZ ",.02)
;;0HHT0NZ
;;9002226.02101,"1381,0HHT0NZ ",.03)
;;31
;;9002226.02101,"1381,0HHT3NZ ",.01)
;;0HHT3NZ
;;9002226.02101,"1381,0HHT3NZ ",.02)
;;0HHT3NZ
;;9002226.02101,"1381,0HHT3NZ ",.03)
;;31
;;9002226.02101,"1381,0HHT7NZ ",.01)
;;0HHT7NZ
;;9002226.02101,"1381,0HHT7NZ ",.02)
;;0HHT7NZ
;;9002226.02101,"1381,0HHT7NZ ",.03)
;;31
;;9002226.02101,"1381,0HHT8NZ ",.01)
;;0HHT8NZ
;;9002226.02101,"1381,0HHT8NZ ",.02)
;;0HHT8NZ
;;9002226.02101,"1381,0HHT8NZ ",.03)
;;31
;;9002226.02101,"1381,0HHU0NZ ",.01)
;;0HHU0NZ
;;9002226.02101,"1381,0HHU0NZ ",.02)
;;0HHU0NZ
;;9002226.02101,"1381,0HHU0NZ ",.03)
;;31
;;9002226.02101,"1381,0HHU3NZ ",.01)
;;0HHU3NZ
;;9002226.02101,"1381,0HHU3NZ ",.02)
;;0HHU3NZ
;;9002226.02101,"1381,0HHU3NZ ",.03)
;;31
;;9002226.02101,"1381,0HHU7NZ ",.01)
;;0HHU7NZ
;;9002226.02101,"1381,0HHU7NZ ",.02)
;;0HHU7NZ
;;9002226.02101,"1381,0HHU7NZ ",.03)
;;31
;;9002226.02101,"1381,0HHU8NZ ",.01)
;;0HHU8NZ
;;9002226.02101,"1381,0HHU8NZ ",.02)
;;0HHU8NZ
;;9002226.02101,"1381,0HHU8NZ ",.03)
;;31
;;9002226.02101,"1381,0HHV0NZ ",.01)
;;0HHV0NZ
;;9002226.02101,"1381,0HHV0NZ ",.02)
;;0HHV0NZ
;;9002226.02101,"1381,0HHV0NZ ",.03)
;;31
;;9002226.02101,"1381,0HHV3NZ ",.01)
;;0HHV3NZ
;;9002226.02101,"1381,0HHV3NZ ",.02)
;;0HHV3NZ
;;9002226.02101,"1381,0HHV3NZ ",.03)
;;31
;;9002226.02101,"1381,0HHV7NZ ",.01)
;;0HHV7NZ
;;9002226.02101,"1381,0HHV7NZ ",.02)
;;0HHV7NZ
;;9002226.02101,"1381,0HHV7NZ ",.03)
;;31
;;9002226.02101,"1381,0HHV8NZ ",.01)
;;0HHV8NZ
;;9002226.02101,"1381,0HHV8NZ ",.02)
;;0HHV8NZ
;;9002226.02101,"1381,0HHV8NZ ",.03)
;;31
;;9002226.02101,"1381,0HMTXZZ ",.01)
;;0HMTXZZ
;;9002226.02101,"1381,0HMTXZZ ",.02)
;;0HMTXZZ
;;9002226.02101,"1381,0HMTXZZ ",.03)
;;31
;;9002226.02101,"1381,0HMUXZZ ",.01)
;;0HMUXZZ
;;9002226.02101,"1381,0HMUXZZ ",.02)
;;0HMUXZZ
;;9002226.02101,"1381,0HMUXZZ ",.03)
;;31
;;9002226.02101,"1381,0HMVXZZ ",.01)
;;0HMVXZZ
;;9002226.02101,"1381,0HMVXZZ ",.02)
;;0HMVXZZ
;;9002226.02101,"1381,0HMVXZZ ",.03)
;;31
;;9002226.02101,"1381,0HMWXZZ ",.01)
;;0HMWXZZ
;;9002226.02101,"1381,0HMWXZZ ",.02)
;;0HMWXZZ
;;9002226.02101,"1381,0HMWXZZ ",.03)
;;31
;;9002226.02101,"1381,0HMXXZZ ",.01)
;;0HMXXZZ
;;9002226.02101,"1381,0HMXXZZ ",.02)
;;0HMXXZZ
;;9002226.02101,"1381,0HMXXZZ ",.03)
;;31
;;9002226.02101,"1381,0HNT0ZZ ",.01)
;;0HNT0ZZ
;;9002226.02101,"1381,0HNT0ZZ ",.02)
;;0HNT0ZZ
;;9002226.02101,"1381,0HNT0ZZ ",.03)
;;31
;;9002226.02101,"1381,0HNT3ZZ ",.01)
;;0HNT3ZZ
;;9002226.02101,"1381,0HNT3ZZ ",.02)
;;0HNT3ZZ
;;9002226.02101,"1381,0HNT3ZZ ",.03)
;;31
;;9002226.02101,"1381,0HNT7ZZ ",.01)
;;0HNT7ZZ
;;9002226.02101,"1381,0HNT7ZZ ",.02)
;;0HNT7ZZ
;;9002226.02101,"1381,0HNT7ZZ ",.03)
;;31
;;9002226.02101,"1381,0HNT8ZZ ",.01)
;;0HNT8ZZ
;;9002226.02101,"1381,0HNT8ZZ ",.02)
;;0HNT8ZZ
;;9002226.02101,"1381,0HNT8ZZ ",.03)
;;31
;;9002226.02101,"1381,0HNTXZZ ",.01)
;;0HNTXZZ
;;9002226.02101,"1381,0HNTXZZ ",.02)
;;0HNTXZZ
;;9002226.02101,"1381,0HNTXZZ ",.03)
;;31
;;9002226.02101,"1381,0HNU0ZZ ",.01)
;;0HNU0ZZ
;;9002226.02101,"1381,0HNU0ZZ ",.02)
;;0HNU0ZZ
;;9002226.02101,"1381,0HNU0ZZ ",.03)
;;31
;;9002226.02101,"1381,0HNU3ZZ ",.01)
;;0HNU3ZZ
;;9002226.02101,"1381,0HNU3ZZ ",.02)
;;0HNU3ZZ
;;9002226.02101,"1381,0HNU3ZZ ",.03)
;;31
;;9002226.02101,"1381,0HNU7ZZ ",.01)
;;0HNU7ZZ
;;9002226.02101,"1381,0HNU7ZZ ",.02)
;;0HNU7ZZ
;;9002226.02101,"1381,0HNU7ZZ ",.03)
;;31
;;9002226.02101,"1381,0HNU8ZZ ",.01)
;;0HNU8ZZ
;;9002226.02101,"1381,0HNU8ZZ ",.02)
;;0HNU8ZZ
;;9002226.02101,"1381,0HNU8ZZ ",.03)
;;31
;;9002226.02101,"1381,0HNUXZZ ",.01)
;;0HNUXZZ
;;9002226.02101,"1381,0HNUXZZ ",.02)
;;0HNUXZZ
;;9002226.02101,"1381,0HNUXZZ ",.03)
;;31
;;9002226.02101,"1381,0HNV0ZZ ",.01)
;;0HNV0ZZ
;;9002226.02101,"1381,0HNV0ZZ ",.02)
;;0HNV0ZZ
;;9002226.02101,"1381,0HNV0ZZ ",.03)
;;31
;;9002226.02101,"1381,0HNV3ZZ ",.01)
;;0HNV3ZZ
;;9002226.02101,"1381,0HNV3ZZ ",.02)
;;0HNV3ZZ
;;9002226.02101,"1381,0HNV3ZZ ",.03)
;;31
;;9002226.02101,"1381,0HNV7ZZ ",.01)
;;0HNV7ZZ
;;9002226.02101,"1381,0HNV7ZZ ",.02)
;;0HNV7ZZ
;;9002226.02101,"1381,0HNV7ZZ ",.03)
;;31
;;9002226.02101,"1381,0HNV8ZZ ",.01)
;;0HNV8ZZ
;;9002226.02101,"1381,0HNV8ZZ ",.02)
;;0HNV8ZZ
;;9002226.02101,"1381,0HNV8ZZ ",.03)
;;31
;;9002226.02101,"1381,0HNVXZZ ",.01)
;;0HNVXZZ
;;9002226.02101,"1381,0HNVXZZ ",.02)
;;0HNVXZZ
;;9002226.02101,"1381,0HNVXZZ ",.03)
;;31
;;9002226.02101,"1381,0HNW0ZZ ",.01)
;;0HNW0ZZ
;;9002226.02101,"1381,0HNW0ZZ ",.02)
;;0HNW0ZZ
;;9002226.02101,"1381,0HNW0ZZ ",.03)
;;31
;;9002226.02101,"1381,0HNW3ZZ ",.01)
;;0HNW3ZZ
;;9002226.02101,"1381,0HNW3ZZ ",.02)
;;0HNW3ZZ
;;9002226.02101,"1381,0HNW3ZZ ",.03)
;;31
;;9002226.02101,"1381,0HNW7ZZ ",.01)
;;0HNW7ZZ
;;9002226.02101,"1381,0HNW7ZZ ",.02)
;;0HNW7ZZ
;;9002226.02101,"1381,0HNW7ZZ ",.03)
;;31
;;9002226.02101,"1381,0HNW8ZZ ",.01)
;;0HNW8ZZ
;;9002226.02101,"1381,0HNW8ZZ ",.02)
;;0HNW8ZZ
;;9002226.02101,"1381,0HNW8ZZ ",.03)
;;31
;;9002226.02101,"1381,0HNWXZZ ",.01)
;;0HNWXZZ
;;9002226.02101,"1381,0HNWXZZ ",.02)
;;0HNWXZZ
;;9002226.02101,"1381,0HNWXZZ ",.03)
;;31
;;9002226.02101,"1381,0HNX0ZZ ",.01)
;;0HNX0ZZ
;;9002226.02101,"1381,0HNX0ZZ ",.02)
;;0HNX0ZZ
;;9002226.02101,"1381,0HNX0ZZ ",.03)
;;31
;;9002226.02101,"1381,0HNX3ZZ ",.01)
;;0HNX3ZZ
;;9002226.02101,"1381,0HNX3ZZ ",.02)
;;0HNX3ZZ
;;9002226.02101,"1381,0HNX3ZZ ",.03)
;;31
;;9002226.02101,"1381,0HNX7ZZ ",.01)
;;0HNX7ZZ
;;9002226.02101,"1381,0HNX7ZZ ",.02)
;;0HNX7ZZ
;;9002226.02101,"1381,0HNX7ZZ ",.03)
;;31
;
OTHER ; OTHER ROUTINES
D ^ATXO3D2
D ^ATXO3D3
Q
ATXO3D ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 12, 2013;
+1 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
+2 ;;BTPW BRST RECON UNS PROC
+3 ;
+4 ; This routine loads Taxonomy BTPW BRST RECON UNS PROC
+5 ;
START ;
+1 IF '$GET(ATXPGMC)
KILL ^TMP("ATX",$JOB)
+2 SET ATXPGMC=$GET(ATXPGMC)+1
+3 FOR ATXI=1:1
SET X=$PIECE($TEXT(TMP+ATXI),";;",2,99)
IF X=""
QUIT
SET X="^TMP(""ATX"",$J,"_X
SET ATXI=ATXI+1
SET Y=$PIECE($TEXT(TMP+ATXI),";;",2,99)
SET @X=Y
+4 DO OTHER
+5 IF $ORDER(^TMP("ATX",$JOB,3.6,0))
DO BULL^ATXSTX2
+6 IF $ORDER(^TMP("ATX",$JOB,9002226,0))
DO TAX^ATXSTX2
+7 DO KILL^ATXSTX2
+8 QUIT
+9 ;
TMP ;;TAXONOMY (WITH BULLETIN)
+1 ;;21,"0H0T0ZZ ")
+2 ;;4
+3 ;;21,"0H0T3ZZ ")
+4 ;;5
+5 ;;21,"0H0TXZZ ")
+6 ;;6
+7 ;;21,"0H0U0ZZ ")
+8 ;;7
+9 ;;21,"0H0U3ZZ ")
+10 ;;8
+11 ;;21,"0H0UXZZ ")
+12 ;;9
+13 ;;21,"0H0V0ZZ ")
+14 ;;10
+15 ;;21,"0H0V3ZZ ")
+16 ;;11
+17 ;;21,"0H0VXZZ ")
+18 ;;12
+19 ;;21,"0HHT0NZ ")
+20 ;;13
+21 ;;21,"0HHT3NZ ")
+22 ;;14
+23 ;;21,"0HHT7NZ ")
+24 ;;15
+25 ;;21,"0HHT8NZ ")
+26 ;;16
+27 ;;21,"0HHU0NZ ")
+28 ;;17
+29 ;;21,"0HHU3NZ ")
+30 ;;18
+31 ;;21,"0HHU7NZ ")
+32 ;;19
+33 ;;21,"0HHU8NZ ")
+34 ;;20
+35 ;;21,"0HHV0NZ ")
+36 ;;21
+37 ;;21,"0HHV3NZ ")
+38 ;;22
+39 ;;21,"0HHV7NZ ")
+40 ;;23
+41 ;;21,"0HHV8NZ ")
+42 ;;24
+43 ;;21,"0HMTXZZ ")
+44 ;;25
+45 ;;21,"0HMUXZZ ")
+46 ;;26
+47 ;;21,"0HMVXZZ ")
+48 ;;27
+49 ;;21,"0HMWXZZ ")
+50 ;;28
+51 ;;21,"0HMXXZZ ")
+52 ;;29
+53 ;;21,"0HNT0ZZ ")
+54 ;;30
+55 ;;21,"0HNT3ZZ ")
+56 ;;31
+57 ;;21,"0HNT7ZZ ")
+58 ;;32
+59 ;;21,"0HNT8ZZ ")
+60 ;;33
+61 ;;21,"0HNTXZZ ")
+62 ;;34
+63 ;;21,"0HNU0ZZ ")
+64 ;;35
+65 ;;21,"0HNU3ZZ ")
+66 ;;36
+67 ;;21,"0HNU7ZZ ")
+68 ;;37
+69 ;;21,"0HNU8ZZ ")
+70 ;;38
+71 ;;21,"0HNUXZZ ")
+72 ;;39
+73 ;;21,"0HNV0ZZ ")
+74 ;;40
+75 ;;21,"0HNV3ZZ ")
+76 ;;41
+77 ;;21,"0HNV7ZZ ")
+78 ;;42
+79 ;;21,"0HNV8ZZ ")
+80 ;;43
+81 ;;21,"0HNVXZZ ")
+82 ;;44
+83 ;;21,"0HNW0ZZ ")
+84 ;;45
+85 ;;21,"0HNW3ZZ ")
+86 ;;46
+87 ;;21,"0HNW7ZZ ")
+88 ;;47
+89 ;;21,"0HNW8ZZ ")
+90 ;;48
+91 ;;21,"0HNWXZZ ")
+92 ;;49
+93 ;;21,"0HNX0ZZ ")
+94 ;;50
+95 ;;21,"0HNX3ZZ ")
+96 ;;51
+97 ;;21,"0HNX7ZZ ")
+98 ;;52
+99 ;;21,"0HNX8ZZ ")
+100 ;;53
+101 ;;21,"0HNXXZZ ")
+102 ;;54
+103 ;;21,"0HPT0JZ ")
+104 ;;55
+105 ;;21,"0HPT0NZ ")
+106 ;;56
+107 ;;21,"0HPT3JZ ")
+108 ;;57
+109 ;;21,"0HPT3NZ ")
+110 ;;58
+111 ;;21,"0HPU0JZ ")
+112 ;;59
+113 ;;21,"0HPU0NZ ")
+114 ;;60
+115 ;;21,"0HPU3JZ ")
+116 ;;61
+117 ;;21,"0HPU3NZ ")
+118 ;;62
+119 ;;21,"0HQT0ZZ ")
+120 ;;63
+121 ;;21,"0HQT3ZZ ")
+122 ;;64
+123 ;;21,"0HQT7ZZ ")
+124 ;;65
+125 ;;21,"0HQT8ZZ ")
+126 ;;66
+127 ;;21,"0HQTXZZ ")
+128 ;;67
+129 ;;21,"0HQU0ZZ ")
+130 ;;68
+131 ;;21,"0HQU3ZZ ")
+132 ;;69
+133 ;;21,"0HQU7ZZ ")
+134 ;;70
+135 ;;21,"0HQU8ZZ ")
+136 ;;71
+137 ;;21,"0HQUXZZ ")
+138 ;;72
+139 ;;21,"0HQV0ZZ ")
+140 ;;73
+141 ;;21,"0HQV3ZZ ")
+142 ;;74
+143 ;;21,"0HQV7ZZ ")
+144 ;;75
+145 ;;21,"0HQV8ZZ ")
+146 ;;76
+147 ;;21,"0HQVXZZ ")
+148 ;;77
+149 ;;21,"0HRT07Z ")
+150 ;;78
+151 ;;21,"0HRT0JZ ")
+152 ;;79
+153 ;;21,"0HRT0KZ ")
+154 ;;80
+155 ;;21,"0HRT37Z ")
+156 ;;81
+157 ;;21,"0HRT3KZ ")
+158 ;;82
+159 ;;21,"0HRTX7Z ")
+160 ;;83
+161 ;;21,"0HRTXJZ ")
+162 ;;84
+163 ;;21,"0HRTXKZ ")
+164 ;;85
+165 ;;21,"0HRU07Z ")
+166 ;;86
+167 ;;21,"0HRU0JZ ")
+168 ;;87
+169 ;;21,"0HRU0KZ ")
+170 ;;88
+171 ;;21,"0HRU37Z ")
+172 ;;89
+173 ;;21,"0HRU3KZ ")
+174 ;;90
+175 ;;21,"0HRUX7Z ")
+176 ;;91
+177 ;;21,"0HRUXJZ ")
+178 ;;92
+179 ;;21,"0HRUXKZ ")
+180 ;;93
+181 ;;21,"0HRV07Z ")
+182 ;;94
+183 ;;21,"0HRV0KZ ")
+184 ;;95
+185 ;;21,"0HRV37Z ")
+186 ;;96
+187 ;;21,"0HRV3KZ ")
+188 ;;97
+189 ;;21,"0HRVX7Z ")
+190 ;;98
+191 ;;21,"0HRVXJZ ")
+192 ;;99
+193 ;;21,"0HRVXKZ ")
+194 ;;100
+195 ;;21,"0HRW07Z ")
+196 ;;101
+197 ;;21,"0HRW0JZ ")
+198 ;;102
+199 ;;21,"0HRW0KZ ")
+200 ;;103
+201 ;;21,"0HRW37Z ")
+202 ;;104
+203 ;;21,"0HRW3JZ ")
+204 ;;105
+205 ;;21,"0HRW3KZ ")
+206 ;;106
+207 ;;21,"0HRWX7Z ")
+208 ;;107
+209 ;;21,"0HRWXJZ ")
+210 ;;108
+211 ;;21,"0HRWXKZ ")
+212 ;;109
+213 ;;21,"0HRX07Z ")
+214 ;;110
+215 ;;21,"0HRX0JZ ")
+216 ;;111
+217 ;;21,"0HRX0KZ ")
+218 ;;112
+219 ;;21,"0HRX37Z ")
+220 ;;113
+221 ;;21,"0HRX3JZ ")
+222 ;;114
+223 ;;21,"0HRX3KZ ")
+224 ;;115
+225 ;;21,"0HRXX7Z ")
+226 ;;116
+227 ;;21,"0HRXXJZ ")
+228 ;;117
+229 ;;21,"0HRXXKZ ")
+230 ;;118
+231 ;;21,"0HSWXZZ ")
+232 ;;119
+233 ;;21,"0HSXXZZ ")
+234 ;;120
+235 ;;21,"0HUT07Z ")
+236 ;;121
+237 ;;21,"0HUT0JZ ")
+238 ;;122
+239 ;;21,"0HUT0KZ ")
+240 ;;123
+241 ;;21,"0HUT37Z ")
+242 ;;124
+243 ;;21,"0HUT3JZ ")
+244 ;;125
+245 ;;21,"0HUT3KZ ")
+246 ;;126
+247 ;;21,"0HUT77Z ")
+248 ;;127
+249 ;;21,"0HUT7JZ ")
+250 ;;128
+251 ;;21,"0HUT7KZ ")
+252 ;;129
+253 ;;21,"0HUT87Z ")
+254 ;;130
+255 ;;21,"0HUT8JZ ")
+256 ;;131
+257 ;;21,"0HUT8KZ ")
+258 ;;132
+259 ;;21,"0HUTX7Z ")
+260 ;;133
+261 ;;21,"0HUTXJZ ")
+262 ;;134
+263 ;;21,"0HUTXKZ ")
+264 ;;135
+265 ;;21,"0HUU07Z ")
+266 ;;136
+267 ;;21,"0HUU0JZ ")
+268 ;;137
+269 ;;21,"0HUU0KZ ")
+270 ;;138
+271 ;;21,"0HUU37Z ")
+272 ;;139
+273 ;;21,"0HUU3JZ ")
+274 ;;140
+275 ;;21,"0HUU3KZ ")
+276 ;;141
+277 ;;21,"0HUU77Z ")
+278 ;;142
+279 ;;21,"0HUU7JZ ")
+280 ;;143
+281 ;;21,"0HUU7KZ ")
+282 ;;144
+283 ;;21,"0HUU87Z ")
+284 ;;145
+285 ;;21,"0HUU8JZ ")
+286 ;;146
+287 ;;21,"0HUU8KZ ")
+288 ;;147
+289 ;;21,"0HUUX7Z ")
+290 ;;148
+291 ;;21,"0HUUXJZ ")
+292 ;;149
+293 ;;21,"0HUUXKZ ")
+294 ;;150
+295 ;;21,"0HUV07Z ")
+296 ;;151
+297 ;;21,"0HUV0JZ ")
+298 ;;152
+299 ;;21,"0HUV0KZ ")
+300 ;;153
+301 ;;21,"0HUV37Z ")
+302 ;;154
+303 ;;21,"0HUV3JZ ")
+304 ;;155
+305 ;;21,"0HUV3KZ ")
+306 ;;156
+307 ;;21,"0HUV77Z ")
+308 ;;157
+309 ;;21,"0HUV7JZ ")
+310 ;;158
+311 ;;21,"0HUV7KZ ")
+312 ;;159
+313 ;;21,"0HUV87Z ")
+314 ;;160
+315 ;;21,"0HUV8JZ ")
+316 ;;161
+317 ;;21,"0HUV8KZ ")
+318 ;;162
+319 ;;21,"0HUVX7Z ")
+320 ;;163
+321 ;;21,"0HUVXJZ ")
+322 ;;164
+323 ;;21,"0HUVXKZ ")
+324 ;;165
+325 ;;21,"0HUW07Z ")
+326 ;;166
+327 ;;21,"0HUW0JZ ")
+328 ;;167
+329 ;;21,"0HUW0KZ ")
+330 ;;168
+331 ;;21,"0HUW37Z ")
+332 ;;169
+333 ;;21,"0HUW3JZ ")
+334 ;;170
+335 ;;21,"0HUW3KZ ")
+336 ;;171
+337 ;;21,"0HUW77Z ")
+338 ;;172
+339 ;;21,"0HUW7JZ ")
+340 ;;173
+341 ;;21,"0HUW7KZ ")
+342 ;;174
+343 ;;21,"0HUW87Z ")
+344 ;;175
+345 ;;21,"0HUW8JZ ")
+346 ;;176
+347 ;;21,"0HUW8KZ ")
+348 ;;177
+349 ;;21,"0HUWX7Z ")
+350 ;;178
+351 ;;21,"0HUWXJZ ")
+352 ;;179
+353 ;;21,"0HUWXKZ ")
+354 ;;180
+355 ;;21,"0HUX07Z ")
+356 ;;181
+357 ;;21,"0HUX0JZ ")
+358 ;;182
+359 ;;21,"0HUX0KZ ")
+360 ;;183
+361 ;;21,"0HUX37Z ")
+362 ;;184
+363 ;;21,"0HUX3JZ ")
+364 ;;185
+365 ;;21,"0HUX3KZ ")
+366 ;;186
+367 ;;21,"0HUX77Z ")
+368 ;;187
+369 ;;21,"0HUX7JZ ")
+370 ;;188
+371 ;;21,"0HUX7KZ ")
+372 ;;189
+373 ;;21,"0HUX87Z ")
+374 ;;190
+375 ;;21,"0HUX8JZ ")
+376 ;;191
+377 ;;21,"0HUX8KZ ")
+378 ;;192
+379 ;;21,"0HUXX7Z ")
+380 ;;193
+381 ;;21,"0HUXXJZ ")
+382 ;;194
+383 ;;21,"0HUXXKZ ")
+384 ;;195
+385 ;;21,"0HWT0JZ ")
+386 ;;196
+387 ;;21,"0HWT3JZ ")
+388 ;;197
+389 ;;21,"0HWU0JZ ")
+390 ;;198
+391 ;;21,"0HWU3JZ ")
+392 ;;199
+393 ;;21,"85.70 ")
+394 ;;1
+395 ;;21,"85.82 ")
+396 ;;2
+397 ;;21,"85.92 ")
+398 ;;3
+399 ;;9002226,1381,.01)
+400 ;;BTPW BRST RECON UNS PROC
+401 ;;9002226,1381,.02)
+402 ;;@
+403 ;;9002226,1381,.04)
+404 ;;n
+405 ;;9002226,1381,.06)
+406 ;;@
+407 ;;9002226,1381,.08)
+408 ;;0
+409 ;;9002226,1381,.09)
+410 ;;3131112
+411 ;;9002226,1381,.11)
+412 ;;@
+413 ;;9002226,1381,.12)
+414 ;;255
+415 ;;9002226,1381,.13)
+416 ;;1
+417 ;;9002226,1381,.14)
+418 ;;@
+419 ;;9002226,1381,.15)
+420 ;;80.1
+421 ;;9002226,1381,.16)
+422 ;;@
+423 ;;9002226,1381,.17)
+424 ;;@
+425 ;;9002226,1381,3101)
+426 ;;@
+427 ;;9002226.02101,"1381,0H0T0ZZ ",.01)
+428 ;;0H0T0ZZ
+429 ;;9002226.02101,"1381,0H0T0ZZ ",.02)
+430 ;;0H0T0ZZ
+431 ;;9002226.02101,"1381,0H0T0ZZ ",.03)
+432 ;;31
+433 ;;9002226.02101,"1381,0H0T3ZZ ",.01)
+434 ;;0H0T3ZZ
+435 ;;9002226.02101,"1381,0H0T3ZZ ",.02)
+436 ;;0H0T3ZZ
+437 ;;9002226.02101,"1381,0H0T3ZZ ",.03)
+438 ;;31
+439 ;;9002226.02101,"1381,0H0TXZZ ",.01)
+440 ;;0H0TXZZ
+441 ;;9002226.02101,"1381,0H0TXZZ ",.02)
+442 ;;0H0TXZZ
+443 ;;9002226.02101,"1381,0H0TXZZ ",.03)
+444 ;;31
+445 ;;9002226.02101,"1381,0H0U0ZZ ",.01)
+446 ;;0H0U0ZZ
+447 ;;9002226.02101,"1381,0H0U0ZZ ",.02)
+448 ;;0H0U0ZZ
+449 ;;9002226.02101,"1381,0H0U0ZZ ",.03)
+450 ;;31
+451 ;;9002226.02101,"1381,0H0U3ZZ ",.01)
+452 ;;0H0U3ZZ
+453 ;;9002226.02101,"1381,0H0U3ZZ ",.02)
+454 ;;0H0U3ZZ
+455 ;;9002226.02101,"1381,0H0U3ZZ ",.03)
+456 ;;31
+457 ;;9002226.02101,"1381,0H0UXZZ ",.01)
+458 ;;0H0UXZZ
+459 ;;9002226.02101,"1381,0H0UXZZ ",.02)
+460 ;;0H0UXZZ
+461 ;;9002226.02101,"1381,0H0UXZZ ",.03)
+462 ;;31
+463 ;;9002226.02101,"1381,0H0V0ZZ ",.01)
+464 ;;0H0V0ZZ
+465 ;;9002226.02101,"1381,0H0V0ZZ ",.02)
+466 ;;0H0V0ZZ
+467 ;;9002226.02101,"1381,0H0V0ZZ ",.03)
+468 ;;31
+469 ;;9002226.02101,"1381,0H0V3ZZ ",.01)
+470 ;;0H0V3ZZ
+471 ;;9002226.02101,"1381,0H0V3ZZ ",.02)
+472 ;;0H0V3ZZ
+473 ;;9002226.02101,"1381,0H0V3ZZ ",.03)
+474 ;;31
+475 ;;9002226.02101,"1381,0H0VXZZ ",.01)
+476 ;;0H0VXZZ
+477 ;;9002226.02101,"1381,0H0VXZZ ",.02)
+478 ;;0H0VXZZ
+479 ;;9002226.02101,"1381,0H0VXZZ ",.03)
+480 ;;31
+481 ;;9002226.02101,"1381,0HHT0NZ ",.01)
+482 ;;0HHT0NZ
+483 ;;9002226.02101,"1381,0HHT0NZ ",.02)
+484 ;;0HHT0NZ
+485 ;;9002226.02101,"1381,0HHT0NZ ",.03)
+486 ;;31
+487 ;;9002226.02101,"1381,0HHT3NZ ",.01)
+488 ;;0HHT3NZ
+489 ;;9002226.02101,"1381,0HHT3NZ ",.02)
+490 ;;0HHT3NZ
+491 ;;9002226.02101,"1381,0HHT3NZ ",.03)
+492 ;;31
+493 ;;9002226.02101,"1381,0HHT7NZ ",.01)
+494 ;;0HHT7NZ
+495 ;;9002226.02101,"1381,0HHT7NZ ",.02)
+496 ;;0HHT7NZ
+497 ;;9002226.02101,"1381,0HHT7NZ ",.03)
+498 ;;31
+499 ;;9002226.02101,"1381,0HHT8NZ ",.01)
+500 ;;0HHT8NZ
+501 ;;9002226.02101,"1381,0HHT8NZ ",.02)
+502 ;;0HHT8NZ
+503 ;;9002226.02101,"1381,0HHT8NZ ",.03)
+504 ;;31
+505 ;;9002226.02101,"1381,0HHU0NZ ",.01)
+506 ;;0HHU0NZ
+507 ;;9002226.02101,"1381,0HHU0NZ ",.02)
+508 ;;0HHU0NZ
+509 ;;9002226.02101,"1381,0HHU0NZ ",.03)
+510 ;;31
+511 ;;9002226.02101,"1381,0HHU3NZ ",.01)
+512 ;;0HHU3NZ
+513 ;;9002226.02101,"1381,0HHU3NZ ",.02)
+514 ;;0HHU3NZ
+515 ;;9002226.02101,"1381,0HHU3NZ ",.03)
+516 ;;31
+517 ;;9002226.02101,"1381,0HHU7NZ ",.01)
+518 ;;0HHU7NZ
+519 ;;9002226.02101,"1381,0HHU7NZ ",.02)
+520 ;;0HHU7NZ
+521 ;;9002226.02101,"1381,0HHU7NZ ",.03)
+522 ;;31
+523 ;;9002226.02101,"1381,0HHU8NZ ",.01)
+524 ;;0HHU8NZ
+525 ;;9002226.02101,"1381,0HHU8NZ ",.02)
+526 ;;0HHU8NZ
+527 ;;9002226.02101,"1381,0HHU8NZ ",.03)
+528 ;;31
+529 ;;9002226.02101,"1381,0HHV0NZ ",.01)
+530 ;;0HHV0NZ
+531 ;;9002226.02101,"1381,0HHV0NZ ",.02)
+532 ;;0HHV0NZ
+533 ;;9002226.02101,"1381,0HHV0NZ ",.03)
+534 ;;31
+535 ;;9002226.02101,"1381,0HHV3NZ ",.01)
+536 ;;0HHV3NZ
+537 ;;9002226.02101,"1381,0HHV3NZ ",.02)
+538 ;;0HHV3NZ
+539 ;;9002226.02101,"1381,0HHV3NZ ",.03)
+540 ;;31
+541 ;;9002226.02101,"1381,0HHV7NZ ",.01)
+542 ;;0HHV7NZ
+543 ;;9002226.02101,"1381,0HHV7NZ ",.02)
+544 ;;0HHV7NZ
+545 ;;9002226.02101,"1381,0HHV7NZ ",.03)
+546 ;;31
+547 ;;9002226.02101,"1381,0HHV8NZ ",.01)
+548 ;;0HHV8NZ
+549 ;;9002226.02101,"1381,0HHV8NZ ",.02)
+550 ;;0HHV8NZ
+551 ;;9002226.02101,"1381,0HHV8NZ ",.03)
+552 ;;31
+553 ;;9002226.02101,"1381,0HMTXZZ ",.01)
+554 ;;0HMTXZZ
+555 ;;9002226.02101,"1381,0HMTXZZ ",.02)
+556 ;;0HMTXZZ
+557 ;;9002226.02101,"1381,0HMTXZZ ",.03)
+558 ;;31
+559 ;;9002226.02101,"1381,0HMUXZZ ",.01)
+560 ;;0HMUXZZ
+561 ;;9002226.02101,"1381,0HMUXZZ ",.02)
+562 ;;0HMUXZZ
+563 ;;9002226.02101,"1381,0HMUXZZ ",.03)
+564 ;;31
+565 ;;9002226.02101,"1381,0HMVXZZ ",.01)
+566 ;;0HMVXZZ
+567 ;;9002226.02101,"1381,0HMVXZZ ",.02)
+568 ;;0HMVXZZ
+569 ;;9002226.02101,"1381,0HMVXZZ ",.03)
+570 ;;31
+571 ;;9002226.02101,"1381,0HMWXZZ ",.01)
+572 ;;0HMWXZZ
+573 ;;9002226.02101,"1381,0HMWXZZ ",.02)
+574 ;;0HMWXZZ
+575 ;;9002226.02101,"1381,0HMWXZZ ",.03)
+576 ;;31
+577 ;;9002226.02101,"1381,0HMXXZZ ",.01)
+578 ;;0HMXXZZ
+579 ;;9002226.02101,"1381,0HMXXZZ ",.02)
+580 ;;0HMXXZZ
+581 ;;9002226.02101,"1381,0HMXXZZ ",.03)
+582 ;;31
+583 ;;9002226.02101,"1381,0HNT0ZZ ",.01)
+584 ;;0HNT0ZZ
+585 ;;9002226.02101,"1381,0HNT0ZZ ",.02)
+586 ;;0HNT0ZZ
+587 ;;9002226.02101,"1381,0HNT0ZZ ",.03)
+588 ;;31
+589 ;;9002226.02101,"1381,0HNT3ZZ ",.01)
+590 ;;0HNT3ZZ
+591 ;;9002226.02101,"1381,0HNT3ZZ ",.02)
+592 ;;0HNT3ZZ
+593 ;;9002226.02101,"1381,0HNT3ZZ ",.03)
+594 ;;31
+595 ;;9002226.02101,"1381,0HNT7ZZ ",.01)
+596 ;;0HNT7ZZ
+597 ;;9002226.02101,"1381,0HNT7ZZ ",.02)
+598 ;;0HNT7ZZ
+599 ;;9002226.02101,"1381,0HNT7ZZ ",.03)
+600 ;;31
+601 ;;9002226.02101,"1381,0HNT8ZZ ",.01)
+602 ;;0HNT8ZZ
+603 ;;9002226.02101,"1381,0HNT8ZZ ",.02)
+604 ;;0HNT8ZZ
+605 ;;9002226.02101,"1381,0HNT8ZZ ",.03)
+606 ;;31
+607 ;;9002226.02101,"1381,0HNTXZZ ",.01)
+608 ;;0HNTXZZ
+609 ;;9002226.02101,"1381,0HNTXZZ ",.02)
+610 ;;0HNTXZZ
+611 ;;9002226.02101,"1381,0HNTXZZ ",.03)
+612 ;;31
+613 ;;9002226.02101,"1381,0HNU0ZZ ",.01)
+614 ;;0HNU0ZZ
+615 ;;9002226.02101,"1381,0HNU0ZZ ",.02)
+616 ;;0HNU0ZZ
+617 ;;9002226.02101,"1381,0HNU0ZZ ",.03)
+618 ;;31
+619 ;;9002226.02101,"1381,0HNU3ZZ ",.01)
+620 ;;0HNU3ZZ
+621 ;;9002226.02101,"1381,0HNU3ZZ ",.02)
+622 ;;0HNU3ZZ
+623 ;;9002226.02101,"1381,0HNU3ZZ ",.03)
+624 ;;31
+625 ;;9002226.02101,"1381,0HNU7ZZ ",.01)
+626 ;;0HNU7ZZ
+627 ;;9002226.02101,"1381,0HNU7ZZ ",.02)
+628 ;;0HNU7ZZ
+629 ;;9002226.02101,"1381,0HNU7ZZ ",.03)
+630 ;;31
+631 ;;9002226.02101,"1381,0HNU8ZZ ",.01)
+632 ;;0HNU8ZZ
+633 ;;9002226.02101,"1381,0HNU8ZZ ",.02)
+634 ;;0HNU8ZZ
+635 ;;9002226.02101,"1381,0HNU8ZZ ",.03)
+636 ;;31
+637 ;;9002226.02101,"1381,0HNUXZZ ",.01)
+638 ;;0HNUXZZ
+639 ;;9002226.02101,"1381,0HNUXZZ ",.02)
+640 ;;0HNUXZZ
+641 ;;9002226.02101,"1381,0HNUXZZ ",.03)
+642 ;;31
+643 ;;9002226.02101,"1381,0HNV0ZZ ",.01)
+644 ;;0HNV0ZZ
+645 ;;9002226.02101,"1381,0HNV0ZZ ",.02)
+646 ;;0HNV0ZZ
+647 ;;9002226.02101,"1381,0HNV0ZZ ",.03)
+648 ;;31
+649 ;;9002226.02101,"1381,0HNV3ZZ ",.01)
+650 ;;0HNV3ZZ
+651 ;;9002226.02101,"1381,0HNV3ZZ ",.02)
+652 ;;0HNV3ZZ
+653 ;;9002226.02101,"1381,0HNV3ZZ ",.03)
+654 ;;31
+655 ;;9002226.02101,"1381,0HNV7ZZ ",.01)
+656 ;;0HNV7ZZ
+657 ;;9002226.02101,"1381,0HNV7ZZ ",.02)
+658 ;;0HNV7ZZ
+659 ;;9002226.02101,"1381,0HNV7ZZ ",.03)
+660 ;;31
+661 ;;9002226.02101,"1381,0HNV8ZZ ",.01)
+662 ;;0HNV8ZZ
+663 ;;9002226.02101,"1381,0HNV8ZZ ",.02)
+664 ;;0HNV8ZZ
+665 ;;9002226.02101,"1381,0HNV8ZZ ",.03)
+666 ;;31
+667 ;;9002226.02101,"1381,0HNVXZZ ",.01)
+668 ;;0HNVXZZ
+669 ;;9002226.02101,"1381,0HNVXZZ ",.02)
+670 ;;0HNVXZZ
+671 ;;9002226.02101,"1381,0HNVXZZ ",.03)
+672 ;;31
+673 ;;9002226.02101,"1381,0HNW0ZZ ",.01)
+674 ;;0HNW0ZZ
+675 ;;9002226.02101,"1381,0HNW0ZZ ",.02)
+676 ;;0HNW0ZZ
+677 ;;9002226.02101,"1381,0HNW0ZZ ",.03)
+678 ;;31
+679 ;;9002226.02101,"1381,0HNW3ZZ ",.01)
+680 ;;0HNW3ZZ
+681 ;;9002226.02101,"1381,0HNW3ZZ ",.02)
+682 ;;0HNW3ZZ
+683 ;;9002226.02101,"1381,0HNW3ZZ ",.03)
+684 ;;31
+685 ;;9002226.02101,"1381,0HNW7ZZ ",.01)
+686 ;;0HNW7ZZ
+687 ;;9002226.02101,"1381,0HNW7ZZ ",.02)
+688 ;;0HNW7ZZ
+689 ;;9002226.02101,"1381,0HNW7ZZ ",.03)
+690 ;;31
+691 ;;9002226.02101,"1381,0HNW8ZZ ",.01)
+692 ;;0HNW8ZZ
+693 ;;9002226.02101,"1381,0HNW8ZZ ",.02)
+694 ;;0HNW8ZZ
+695 ;;9002226.02101,"1381,0HNW8ZZ ",.03)
+696 ;;31
+697 ;;9002226.02101,"1381,0HNWXZZ ",.01)
+698 ;;0HNWXZZ
+699 ;;9002226.02101,"1381,0HNWXZZ ",.02)
+700 ;;0HNWXZZ
+701 ;;9002226.02101,"1381,0HNWXZZ ",.03)
+702 ;;31
+703 ;;9002226.02101,"1381,0HNX0ZZ ",.01)
+704 ;;0HNX0ZZ
+705 ;;9002226.02101,"1381,0HNX0ZZ ",.02)
+706 ;;0HNX0ZZ
+707 ;;9002226.02101,"1381,0HNX0ZZ ",.03)
+708 ;;31
+709 ;;9002226.02101,"1381,0HNX3ZZ ",.01)
+710 ;;0HNX3ZZ
+711 ;;9002226.02101,"1381,0HNX3ZZ ",.02)
+712 ;;0HNX3ZZ
+713 ;;9002226.02101,"1381,0HNX3ZZ ",.03)
+714 ;;31
+715 ;;9002226.02101,"1381,0HNX7ZZ ",.01)
+716 ;;0HNX7ZZ
+717 ;;9002226.02101,"1381,0HNX7ZZ ",.02)
+718 ;;0HNX7ZZ
+719 ;;9002226.02101,"1381,0HNX7ZZ ",.03)
+720 ;;31
+721 ;
OTHER ; OTHER ROUTINES
+1 DO ^ATXO3D2
+2 DO ^ATXO3D3
+3 QUIT
