ATXO5H ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 13, 2013;
;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
;;APCH EXAM 12 ORTHO PROCS
;
; This routine loads Taxonomy APCH EXAM 12 ORTHO PROCS
;
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,"03JYXZZ ")
;;2
;;21,"04JYXZZ ")
;;3
;;21,"05JYXZZ ")
;;4
;;21,"06JYXZZ ")
;;5
;;21,"07JNXZZ ")
;;6
;;21,"07JPXZZ ")
;;7
;;21,"0DJ0XZZ ")
;;8
;;21,"0DJ6XZZ ")
;;9
;;21,"0DJUXZZ ")
;;10
;;21,"0DJVXZZ ")
;;11
;;21,"0DJWXZZ ")
;;12
;;21,"0FJ0XZZ ")
;;13
;;21,"0FJ4XZZ ")
;;14
;;21,"0FJGXZZ ")
;;15
;;21,"0JJSXZZ ")
;;16
;;21,"0JJTXZZ ")
;;17
;;21,"0JJVXZZ ")
;;18
;;21,"0JJWXZZ ")
;;19
;;21,"0KJXXZZ ")
;;20
;;21,"0KJYXZZ ")
;;21
;;21,"0LJXXZZ ")
;;22
;;21,"0LJYXZZ ")
;;23
;;21,"0MJXXZZ ")
;;24
;;21,"0MJYXZZ ")
;;25
;;21,"0NJ0XZZ ")
;;26
;;21,"0NJBXZZ ")
;;27
;;21,"0NJWXZZ ")
;;28
;;21,"0PJYXZZ ")
;;29
;;21,"0QJYXZZ ")
;;30
;;21,"0RJ0XZZ ")
;;31
;;21,"0RJ1XZZ ")
;;32
;;21,"0RJ3XZZ ")
;;33
;;21,"0RJ4XZZ ")
;;34
;;21,"0RJ5XZZ ")
;;35
;;21,"0RJ6XZZ ")
;;36
;;21,"0RJ9XZZ ")
;;37
;;21,"0RJAXZZ ")
;;38
;;21,"0RJBXZZ ")
;;39
;;21,"0RJCXZZ ")
;;40
;;21,"0RJDXZZ ")
;;41
;;21,"0RJEXZZ ")
;;42
;;21,"0RJFXZZ ")
;;43
;;21,"0RJGXZZ ")
;;44
;;21,"0RJHXZZ ")
;;45
;;21,"0RJJXZZ ")
;;46
;;21,"0RJKXZZ ")
;;47
;;21,"0RJLXZZ ")
;;48
;;21,"0RJMXZZ ")
;;49
;;21,"0RJNXZZ ")
;;50
;;21,"0RJPXZZ ")
;;51
;;21,"0RJQXZZ ")
;;52
;;21,"0RJRXZZ ")
;;53
;;21,"0RJSXZZ ")
;;54
;;21,"0RJTXZZ ")
;;55
;;21,"0RJUXZZ ")
;;56
;;21,"0RJVXZZ ")
;;57
;;21,"0RJWXZZ ")
;;58
;;21,"0RJXXZZ ")
;;59
;;21,"0SJ0XZZ ")
;;60
;;21,"0SJ2XZZ ")
;;61
;;21,"0SJ3XZZ ")
;;62
;;21,"0SJ4XZZ ")
;;63
;;21,"0SJ5XZZ ")
;;64
;;21,"0SJ6XZZ ")
;;65
;;21,"0SJ7XZZ ")
;;66
;;21,"0SJ8XZZ ")
;;67
;;21,"0SJ9XZZ ")
;;68
;;21,"0SJBXZZ ")
;;69
;;21,"0SJCXZZ ")
;;70
;;21,"0SJDXZZ ")
;;71
;;21,"0SJFXZZ ")
;;72
;;21,"0SJGXZZ ")
;;73
;;21,"0SJHXZZ ")
;;74
;;21,"0SJJXZZ ")
;;75
;;21,"0SJKXZZ ")
;;76
;;21,"0SJLXZZ ")
;;77
;;21,"0SJMXZZ ")
;;78
;;21,"0SJNXZZ ")
;;79
;;21,"0SJPXZZ ")
;;80
;;21,"0SJQXZZ ")
;;81
;;21,"0TJ5XZZ ")
;;82
;;21,"0TJ9XZZ ")
;;83
;;21,"0TJBXZZ ")
;;84
;;21,"0TJDXZZ ")
;;85
;;21,"0UJ3XZZ ")
;;86
;;21,"0UJ8XZZ ")
;;87
;;21,"0UJDXZZ ")
;;88
;;21,"0UJHXZZ ")
;;89
;;21,"0UJMXZZ ")
;;90
;;21,"0VJ4XZZ ")
;;91
;;21,"0VJ8XZZ ")
;;92
;;21,"0VJDXZZ ")
;;93
;;21,"0VJMXZZ ")
;;94
;;21,"0VJRXZZ ")
;;95
;;21,"0VJSXZZ ")
;;96
;;21,"0WJ0XZZ ")
;;97
;;21,"0WJ2XZZ ")
;;98
;;21,"0WJ3XZZ ")
;;99
;;21,"0WJ4XZZ ")
;;100
;;21,"0WJ5XZZ ")
;;101
;;21,"0WJ6XZZ ")
;;102
;;21,"0WJ8XZZ ")
;;103
;;21,"0WJFXZZ ")
;;104
;;21,"0WJKXZZ ")
;;105
;;21,"0WJLXZZ ")
;;106
;;21,"0WJMXZZ ")
;;107
;;21,"0WJNXZZ ")
;;108
;;21,"0XJ2XZZ ")
;;109
;;21,"0XJ3XZZ ")
;;110
;;21,"0XJ4XZZ ")
;;111
;;21,"0XJ5XZZ ")
;;112
;;21,"0XJ6XZZ ")
;;113
;;21,"0XJ7XZZ ")
;;114
;;21,"0XJ8XZZ ")
;;115
;;21,"0XJ9XZZ ")
;;116
;;21,"0XJBXZZ ")
;;117
;;21,"0XJCXZZ ")
;;118
;;21,"0XJDXZZ ")
;;119
;;21,"0XJFXZZ ")
;;120
;;21,"0XJGXZZ ")
;;121
;;21,"0XJHXZZ ")
;;122
;;21,"0XJJXZZ ")
;;123
;;21,"0XJKXZZ ")
;;124
;;21,"0YJ0XZZ ")
;;125
;;21,"0YJ1XZZ ")
;;126
;;21,"0YJ5XZZ ")
;;127
;;21,"0YJ6XZZ ")
;;128
;;21,"0YJ7XZZ ")
;;129
;;21,"0YJ8XZZ ")
;;130
;;21,"0YJ9XZZ ")
;;131
;;21,"0YJAXZZ ")
;;132
;;21,"0YJBXZZ ")
;;133
;;21,"0YJCXZZ ")
;;134
;;21,"0YJDXZZ ")
;;135
;;21,"0YJEXZZ ")
;;136
;;21,"0YJFXZZ ")
;;137
;;21,"0YJGXZZ ")
;;138
;;21,"0YJHXZZ ")
;;139
;;21,"0YJJXZZ ")
;;140
;;21,"0YJKXZZ ")
;;141
;;21,"0YJLXZZ ")
;;142
;;21,"0YJMXZZ ")
;;143
;;21,"0YJNXZZ ")
;;144
;;21,"89.39 ")
;;1
;;21,"F0105YZ ")
;;145
;;21,"F0105ZZ ")
;;146
;;21,"F0115YZ ")
;;147
;;21,"F0115ZZ ")
;;148
;;21,"F0125YZ ")
;;149
;;21,"F0125ZZ ")
;;150
;;21,"F0135YZ ")
;;151
;;21,"F0135ZZ ")
;;152
;;21,"F01D5YZ ")
;;153
;;21,"F01D5ZZ ")
;;154
;;21,"F01F5YZ ")
;;155
;;21,"F01F5ZZ ")
;;156
;;21,"F01G5YZ ")
;;157
;;21,"F01G5ZZ ")
;;158
;;21,"F01H5YZ ")
;;159
;;21,"F01H5ZZ ")
;;160
;;21,"F01J5YZ ")
;;161
;;21,"F01J5ZZ ")
;;162
;;21,"F01K5YZ ")
;;163
;;21,"F01K5ZZ ")
;;164
;;21,"F01L5YZ ")
;;165
;;21,"F01L5ZZ ")
;;166
;;21,"F01M5YZ ")
;;167
;;21,"F01M5ZZ ")
;;168
;;9002226,1797,.01)
;;APCH EXAM 12 ORTHO PROCS
;;9002226,1797,.02)
;;@
;;9002226,1797,.04)
;;n
;;9002226,1797,.06)
;;@
;;9002226,1797,.08)
;;@
;;9002226,1797,.09)
;;3131113
;;9002226,1797,.11)
;;@
;;9002226,1797,.12)
;;255
;;9002226,1797,.13)
;;1
;;9002226,1797,.14)
;;@
;;9002226,1797,.15)
;;80.1
;;9002226,1797,.16)
;;@
;;9002226,1797,.17)
;;@
;;9002226,1797,3101)
;;@
;;9002226.02101,"1797,03JYXZZ ",.01)
;;03JYXZZ
;;9002226.02101,"1797,03JYXZZ ",.02)
;;03JYXZZ
;;9002226.02101,"1797,03JYXZZ ",.03)
;;31
;;9002226.02101,"1797,04JYXZZ ",.01)
;;04JYXZZ
;;9002226.02101,"1797,04JYXZZ ",.02)
;;04JYXZZ
;;9002226.02101,"1797,04JYXZZ ",.03)
;;31
;;9002226.02101,"1797,05JYXZZ ",.01)
;;05JYXZZ
;;9002226.02101,"1797,05JYXZZ ",.02)
;;05JYXZZ
;;9002226.02101,"1797,05JYXZZ ",.03)
;;31
;;9002226.02101,"1797,06JYXZZ ",.01)
;;06JYXZZ
;;9002226.02101,"1797,06JYXZZ ",.02)
;;06JYXZZ
;;9002226.02101,"1797,06JYXZZ ",.03)
;;31
;;9002226.02101,"1797,07JNXZZ ",.01)
;;07JNXZZ
;;9002226.02101,"1797,07JNXZZ ",.02)
;;07JNXZZ
;;9002226.02101,"1797,07JNXZZ ",.03)
;;31
;;9002226.02101,"1797,07JPXZZ ",.01)
;;07JPXZZ
;;9002226.02101,"1797,07JPXZZ ",.02)
;;07JPXZZ
;;9002226.02101,"1797,07JPXZZ ",.03)
;;31
;;9002226.02101,"1797,0DJ0XZZ ",.01)
;;0DJ0XZZ
;;9002226.02101,"1797,0DJ0XZZ ",.02)
;;0DJ0XZZ
;;9002226.02101,"1797,0DJ0XZZ ",.03)
;;31
;;9002226.02101,"1797,0DJ6XZZ ",.01)
;;0DJ6XZZ
;;9002226.02101,"1797,0DJ6XZZ ",.02)
;;0DJ6XZZ
;;9002226.02101,"1797,0DJ6XZZ ",.03)
;;31
;;9002226.02101,"1797,0DJUXZZ ",.01)
;;0DJUXZZ
;;9002226.02101,"1797,0DJUXZZ ",.02)
;;0DJUXZZ
;;9002226.02101,"1797,0DJUXZZ ",.03)
;;31
;;9002226.02101,"1797,0DJVXZZ ",.01)
;;0DJVXZZ
;;9002226.02101,"1797,0DJVXZZ ",.02)
;;0DJVXZZ
;;9002226.02101,"1797,0DJVXZZ ",.03)
;;31
;;9002226.02101,"1797,0DJWXZZ ",.01)
;;0DJWXZZ
;;9002226.02101,"1797,0DJWXZZ ",.02)
;;0DJWXZZ
;;9002226.02101,"1797,0DJWXZZ ",.03)
;;31
;;9002226.02101,"1797,0FJ0XZZ ",.01)
;;0FJ0XZZ
;;9002226.02101,"1797,0FJ0XZZ ",.02)
;;0FJ0XZZ
;;9002226.02101,"1797,0FJ0XZZ ",.03)
;;31
;;9002226.02101,"1797,0FJ4XZZ ",.01)
;;0FJ4XZZ
;;9002226.02101,"1797,0FJ4XZZ ",.02)
;;0FJ4XZZ
;;9002226.02101,"1797,0FJ4XZZ ",.03)
;;31
;;9002226.02101,"1797,0FJGXZZ ",.01)
;;0FJGXZZ
;;9002226.02101,"1797,0FJGXZZ ",.02)
;;0FJGXZZ
;;9002226.02101,"1797,0FJGXZZ ",.03)
;;31
;;9002226.02101,"1797,0JJSXZZ ",.01)
;;0JJSXZZ
;;9002226.02101,"1797,0JJSXZZ ",.02)
;;0JJSXZZ
;;9002226.02101,"1797,0JJSXZZ ",.03)
;;31
;;9002226.02101,"1797,0JJTXZZ ",.01)
;;0JJTXZZ
;;9002226.02101,"1797,0JJTXZZ ",.02)
;;0JJTXZZ
;;9002226.02101,"1797,0JJTXZZ ",.03)
;;31
;;9002226.02101,"1797,0JJVXZZ ",.01)
;;0JJVXZZ
;;9002226.02101,"1797,0JJVXZZ ",.02)
;;0JJVXZZ
;;9002226.02101,"1797,0JJVXZZ ",.03)
;;31
;;9002226.02101,"1797,0JJWXZZ ",.01)
;;0JJWXZZ
;;9002226.02101,"1797,0JJWXZZ ",.02)
;;0JJWXZZ
;;9002226.02101,"1797,0JJWXZZ ",.03)
;;31
;;9002226.02101,"1797,0KJXXZZ ",.01)
;;0KJXXZZ
;;9002226.02101,"1797,0KJXXZZ ",.02)
;;0KJXXZZ
;;9002226.02101,"1797,0KJXXZZ ",.03)
;;31
;;9002226.02101,"1797,0KJYXZZ ",.01)
;;0KJYXZZ
;;9002226.02101,"1797,0KJYXZZ ",.02)
;;0KJYXZZ
;;9002226.02101,"1797,0KJYXZZ ",.03)
;;31
;;9002226.02101,"1797,0LJXXZZ ",.01)
;;0LJXXZZ
;;9002226.02101,"1797,0LJXXZZ ",.02)
;;0LJXXZZ
;;9002226.02101,"1797,0LJXXZZ ",.03)
;;31
;;9002226.02101,"1797,0LJYXZZ ",.01)
;;0LJYXZZ
;;9002226.02101,"1797,0LJYXZZ ",.02)
;;0LJYXZZ
;;9002226.02101,"1797,0LJYXZZ ",.03)
;;31
;;9002226.02101,"1797,0MJXXZZ ",.01)
;;0MJXXZZ
;;9002226.02101,"1797,0MJXXZZ ",.02)
;;0MJXXZZ
;;9002226.02101,"1797,0MJXXZZ ",.03)
;;31
;;9002226.02101,"1797,0MJYXZZ ",.01)
;;0MJYXZZ
;;9002226.02101,"1797,0MJYXZZ ",.02)
;;0MJYXZZ
;;9002226.02101,"1797,0MJYXZZ ",.03)
;;31
;;9002226.02101,"1797,0NJ0XZZ ",.01)
;;0NJ0XZZ
;;9002226.02101,"1797,0NJ0XZZ ",.02)
;;0NJ0XZZ
;;9002226.02101,"1797,0NJ0XZZ ",.03)
;;31
;;9002226.02101,"1797,0NJBXZZ ",.01)
;;0NJBXZZ
;;9002226.02101,"1797,0NJBXZZ ",.02)
;;0NJBXZZ
;;9002226.02101,"1797,0NJBXZZ ",.03)
;;31
;;9002226.02101,"1797,0NJWXZZ ",.01)
;;0NJWXZZ
;;9002226.02101,"1797,0NJWXZZ ",.02)
;;0NJWXZZ
;;9002226.02101,"1797,0NJWXZZ ",.03)
;;31
;;9002226.02101,"1797,0PJYXZZ ",.01)
;;0PJYXZZ
;;9002226.02101,"1797,0PJYXZZ ",.02)
;;0PJYXZZ
;;9002226.02101,"1797,0PJYXZZ ",.03)
;;31
;;9002226.02101,"1797,0QJYXZZ ",.01)
;;0QJYXZZ
;;9002226.02101,"1797,0QJYXZZ ",.02)
;;0QJYXZZ
;;9002226.02101,"1797,0QJYXZZ ",.03)
;;31
;;9002226.02101,"1797,0RJ0XZZ ",.01)
;;0RJ0XZZ
;;9002226.02101,"1797,0RJ0XZZ ",.02)
;;0RJ0XZZ
;;9002226.02101,"1797,0RJ0XZZ ",.03)
;;31
;;9002226.02101,"1797,0RJ1XZZ ",.01)
;;0RJ1XZZ
;;9002226.02101,"1797,0RJ1XZZ ",.02)
;;0RJ1XZZ
;;9002226.02101,"1797,0RJ1XZZ ",.03)
;;31
;;9002226.02101,"1797,0RJ3XZZ ",.01)
;;0RJ3XZZ
;;9002226.02101,"1797,0RJ3XZZ ",.02)
;;0RJ3XZZ
;;9002226.02101,"1797,0RJ3XZZ ",.03)
;;31
;;9002226.02101,"1797,0RJ4XZZ ",.01)
;;0RJ4XZZ
;;9002226.02101,"1797,0RJ4XZZ ",.02)
;;0RJ4XZZ
;;9002226.02101,"1797,0RJ4XZZ ",.03)
;;31
;;9002226.02101,"1797,0RJ5XZZ ",.01)
;;0RJ5XZZ
;;9002226.02101,"1797,0RJ5XZZ ",.02)
;;0RJ5XZZ
;;9002226.02101,"1797,0RJ5XZZ ",.03)
;;31
;;9002226.02101,"1797,0RJ6XZZ ",.01)
;;0RJ6XZZ
;;9002226.02101,"1797,0RJ6XZZ ",.02)
;;0RJ6XZZ
;;9002226.02101,"1797,0RJ6XZZ ",.03)
;;31
;;9002226.02101,"1797,0RJ9XZZ ",.01)
;;0RJ9XZZ
;;9002226.02101,"1797,0RJ9XZZ ",.02)
;;0RJ9XZZ
;;9002226.02101,"1797,0RJ9XZZ ",.03)
;;31
;;9002226.02101,"1797,0RJAXZZ ",.01)
;;0RJAXZZ
;;9002226.02101,"1797,0RJAXZZ ",.02)
;;0RJAXZZ
;;9002226.02101,"1797,0RJAXZZ ",.03)
;;31
;;9002226.02101,"1797,0RJBXZZ ",.01)
;;0RJBXZZ
;;9002226.02101,"1797,0RJBXZZ ",.02)
;;0RJBXZZ
;;9002226.02101,"1797,0RJBXZZ ",.03)
;;31
;;9002226.02101,"1797,0RJCXZZ ",.01)
;;0RJCXZZ
;;9002226.02101,"1797,0RJCXZZ ",.02)
;;0RJCXZZ
;;9002226.02101,"1797,0RJCXZZ ",.03)
;;31
;;9002226.02101,"1797,0RJDXZZ ",.01)
;;0RJDXZZ
;;9002226.02101,"1797,0RJDXZZ ",.02)
;;0RJDXZZ
;;9002226.02101,"1797,0RJDXZZ ",.03)
;;31
;;9002226.02101,"1797,0RJEXZZ ",.01)
;;0RJEXZZ
;;9002226.02101,"1797,0RJEXZZ ",.02)
;;0RJEXZZ
;;9002226.02101,"1797,0RJEXZZ ",.03)
;;31
;;9002226.02101,"1797,0RJFXZZ ",.01)
;;0RJFXZZ
;;9002226.02101,"1797,0RJFXZZ ",.02)
;;0RJFXZZ
;;9002226.02101,"1797,0RJFXZZ ",.03)
;;31
;;9002226.02101,"1797,0RJGXZZ ",.01)
;;0RJGXZZ
;;9002226.02101,"1797,0RJGXZZ ",.02)
;;0RJGXZZ
;;9002226.02101,"1797,0RJGXZZ ",.03)
;;31
;;9002226.02101,"1797,0RJHXZZ ",.01)
;;0RJHXZZ
;;9002226.02101,"1797,0RJHXZZ ",.02)
;;0RJHXZZ
;;9002226.02101,"1797,0RJHXZZ ",.03)
;;31
;;9002226.02101,"1797,0RJJXZZ ",.01)
;;0RJJXZZ
;;9002226.02101,"1797,0RJJXZZ ",.02)
;;0RJJXZZ
;;9002226.02101,"1797,0RJJXZZ ",.03)
;;31
;;9002226.02101,"1797,0RJKXZZ ",.01)
;;0RJKXZZ
;;9002226.02101,"1797,0RJKXZZ ",.02)
;;0RJKXZZ
;;9002226.02101,"1797,0RJKXZZ ",.03)
;;31
;;9002226.02101,"1797,0RJLXZZ ",.01)
;;0RJLXZZ
;;9002226.02101,"1797,0RJLXZZ ",.02)
;;0RJLXZZ
;;9002226.02101,"1797,0RJLXZZ ",.03)
;;31
;;9002226.02101,"1797,0RJMXZZ ",.01)
;;0RJMXZZ
;;9002226.02101,"1797,0RJMXZZ ",.02)
;;0RJMXZZ
;;9002226.02101,"1797,0RJMXZZ ",.03)
;;31
;;9002226.02101,"1797,0RJNXZZ ",.01)
;;0RJNXZZ
;;9002226.02101,"1797,0RJNXZZ ",.02)
;;0RJNXZZ
;;9002226.02101,"1797,0RJNXZZ ",.03)
;;31
;;9002226.02101,"1797,0RJPXZZ ",.01)
;;0RJPXZZ
;;9002226.02101,"1797,0RJPXZZ ",.02)
;;0RJPXZZ
;;9002226.02101,"1797,0RJPXZZ ",.03)
;;31
;;9002226.02101,"1797,0RJQXZZ ",.01)
;;0RJQXZZ
;;9002226.02101,"1797,0RJQXZZ ",.02)
;;0RJQXZZ
;;9002226.02101,"1797,0RJQXZZ ",.03)
;;31
;;9002226.02101,"1797,0RJRXZZ ",.01)
;;0RJRXZZ
;;9002226.02101,"1797,0RJRXZZ ",.02)
;;0RJRXZZ
;;9002226.02101,"1797,0RJRXZZ ",.03)
;;31
;;9002226.02101,"1797,0RJSXZZ ",.01)
;;0RJSXZZ
;;9002226.02101,"1797,0RJSXZZ ",.02)
;;0RJSXZZ
;;9002226.02101,"1797,0RJSXZZ ",.03)
;;31
;;9002226.02101,"1797,0RJTXZZ ",.01)
;;0RJTXZZ
;;9002226.02101,"1797,0RJTXZZ ",.02)
;;0RJTXZZ
;;9002226.02101,"1797,0RJTXZZ ",.03)
;;31
;;9002226.02101,"1797,0RJUXZZ ",.01)
;;0RJUXZZ
;;9002226.02101,"1797,0RJUXZZ ",.02)
;;0RJUXZZ
;
OTHER ; OTHER ROUTINES
D ^ATXO5H2
D ^ATXO5H3
Q
ATXO5H ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 13, 2013;
+1 ;;5.1;TAXONOMY;**11**;FEB 04, 1997;Build 48
+2 ;;APCH EXAM 12 ORTHO PROCS
+3 ;
+4 ; This routine loads Taxonomy APCH EXAM 12 ORTHO PROCS
+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,"03JYXZZ ")
+2 ;;2
+3 ;;21,"04JYXZZ ")
+4 ;;3
+5 ;;21,"05JYXZZ ")
+6 ;;4
+7 ;;21,"06JYXZZ ")
+8 ;;5
+9 ;;21,"07JNXZZ ")
+10 ;;6
+11 ;;21,"07JPXZZ ")
+12 ;;7
+13 ;;21,"0DJ0XZZ ")
+14 ;;8
+15 ;;21,"0DJ6XZZ ")
+16 ;;9
+17 ;;21,"0DJUXZZ ")
+18 ;;10
+19 ;;21,"0DJVXZZ ")
+20 ;;11
+21 ;;21,"0DJWXZZ ")
+22 ;;12
+23 ;;21,"0FJ0XZZ ")
+24 ;;13
+25 ;;21,"0FJ4XZZ ")
+26 ;;14
+27 ;;21,"0FJGXZZ ")
+28 ;;15
+29 ;;21,"0JJSXZZ ")
+30 ;;16
+31 ;;21,"0JJTXZZ ")
+32 ;;17
+33 ;;21,"0JJVXZZ ")
+34 ;;18
+35 ;;21,"0JJWXZZ ")
+36 ;;19
+37 ;;21,"0KJXXZZ ")
+38 ;;20
+39 ;;21,"0KJYXZZ ")
+40 ;;21
+41 ;;21,"0LJXXZZ ")
+42 ;;22
+43 ;;21,"0LJYXZZ ")
+44 ;;23
+45 ;;21,"0MJXXZZ ")
+46 ;;24
+47 ;;21,"0MJYXZZ ")
+48 ;;25
+49 ;;21,"0NJ0XZZ ")
+50 ;;26
+51 ;;21,"0NJBXZZ ")
+52 ;;27
+53 ;;21,"0NJWXZZ ")
+54 ;;28
+55 ;;21,"0PJYXZZ ")
+56 ;;29
+57 ;;21,"0QJYXZZ ")
+58 ;;30
+59 ;;21,"0RJ0XZZ ")
+60 ;;31
+61 ;;21,"0RJ1XZZ ")
+62 ;;32
+63 ;;21,"0RJ3XZZ ")
+64 ;;33
+65 ;;21,"0RJ4XZZ ")
+66 ;;34
+67 ;;21,"0RJ5XZZ ")
+68 ;;35
+69 ;;21,"0RJ6XZZ ")
+70 ;;36
+71 ;;21,"0RJ9XZZ ")
+72 ;;37
+73 ;;21,"0RJAXZZ ")
+74 ;;38
+75 ;;21,"0RJBXZZ ")
+76 ;;39
+77 ;;21,"0RJCXZZ ")
+78 ;;40
+79 ;;21,"0RJDXZZ ")
+80 ;;41
+81 ;;21,"0RJEXZZ ")
+82 ;;42
+83 ;;21,"0RJFXZZ ")
+84 ;;43
+85 ;;21,"0RJGXZZ ")
+86 ;;44
+87 ;;21,"0RJHXZZ ")
+88 ;;45
+89 ;;21,"0RJJXZZ ")
+90 ;;46
+91 ;;21,"0RJKXZZ ")
+92 ;;47
+93 ;;21,"0RJLXZZ ")
+94 ;;48
+95 ;;21,"0RJMXZZ ")
+96 ;;49
+97 ;;21,"0RJNXZZ ")
+98 ;;50
+99 ;;21,"0RJPXZZ ")
+100 ;;51
+101 ;;21,"0RJQXZZ ")
+102 ;;52
+103 ;;21,"0RJRXZZ ")
+104 ;;53
+105 ;;21,"0RJSXZZ ")
+106 ;;54
+107 ;;21,"0RJTXZZ ")
+108 ;;55
+109 ;;21,"0RJUXZZ ")
+110 ;;56
+111 ;;21,"0RJVXZZ ")
+112 ;;57
+113 ;;21,"0RJWXZZ ")
+114 ;;58
+115 ;;21,"0RJXXZZ ")
+116 ;;59
+117 ;;21,"0SJ0XZZ ")
+118 ;;60
+119 ;;21,"0SJ2XZZ ")
+120 ;;61
+121 ;;21,"0SJ3XZZ ")
+122 ;;62
+123 ;;21,"0SJ4XZZ ")
+124 ;;63
+125 ;;21,"0SJ5XZZ ")
+126 ;;64
+127 ;;21,"0SJ6XZZ ")
+128 ;;65
+129 ;;21,"0SJ7XZZ ")
+130 ;;66
+131 ;;21,"0SJ8XZZ ")
+132 ;;67
+133 ;;21,"0SJ9XZZ ")
+134 ;;68
+135 ;;21,"0SJBXZZ ")
+136 ;;69
+137 ;;21,"0SJCXZZ ")
+138 ;;70
+139 ;;21,"0SJDXZZ ")
+140 ;;71
+141 ;;21,"0SJFXZZ ")
+142 ;;72
+143 ;;21,"0SJGXZZ ")
+144 ;;73
+145 ;;21,"0SJHXZZ ")
+146 ;;74
+147 ;;21,"0SJJXZZ ")
+148 ;;75
+149 ;;21,"0SJKXZZ ")
+150 ;;76
+151 ;;21,"0SJLXZZ ")
+152 ;;77
+153 ;;21,"0SJMXZZ ")
+154 ;;78
+155 ;;21,"0SJNXZZ ")
+156 ;;79
+157 ;;21,"0SJPXZZ ")
+158 ;;80
+159 ;;21,"0SJQXZZ ")
+160 ;;81
+161 ;;21,"0TJ5XZZ ")
+162 ;;82
+163 ;;21,"0TJ9XZZ ")
+164 ;;83
+165 ;;21,"0TJBXZZ ")
+166 ;;84
+167 ;;21,"0TJDXZZ ")
+168 ;;85
+169 ;;21,"0UJ3XZZ ")
+170 ;;86
+171 ;;21,"0UJ8XZZ ")
+172 ;;87
+173 ;;21,"0UJDXZZ ")
+174 ;;88
+175 ;;21,"0UJHXZZ ")
+176 ;;89
+177 ;;21,"0UJMXZZ ")
+178 ;;90
+179 ;;21,"0VJ4XZZ ")
+180 ;;91
+181 ;;21,"0VJ8XZZ ")
+182 ;;92
+183 ;;21,"0VJDXZZ ")
+184 ;;93
+185 ;;21,"0VJMXZZ ")
+186 ;;94
+187 ;;21,"0VJRXZZ ")
+188 ;;95
+189 ;;21,"0VJSXZZ ")
+190 ;;96
+191 ;;21,"0WJ0XZZ ")
+192 ;;97
+193 ;;21,"0WJ2XZZ ")
+194 ;;98
+195 ;;21,"0WJ3XZZ ")
+196 ;;99
+197 ;;21,"0WJ4XZZ ")
+198 ;;100
+199 ;;21,"0WJ5XZZ ")
+200 ;;101
+201 ;;21,"0WJ6XZZ ")
+202 ;;102
+203 ;;21,"0WJ8XZZ ")
+204 ;;103
+205 ;;21,"0WJFXZZ ")
+206 ;;104
+207 ;;21,"0WJKXZZ ")
+208 ;;105
+209 ;;21,"0WJLXZZ ")
+210 ;;106
+211 ;;21,"0WJMXZZ ")
+212 ;;107
+213 ;;21,"0WJNXZZ ")
+214 ;;108
+215 ;;21,"0XJ2XZZ ")
+216 ;;109
+217 ;;21,"0XJ3XZZ ")
+218 ;;110
+219 ;;21,"0XJ4XZZ ")
+220 ;;111
+221 ;;21,"0XJ5XZZ ")
+222 ;;112
+223 ;;21,"0XJ6XZZ ")
+224 ;;113
+225 ;;21,"0XJ7XZZ ")
+226 ;;114
+227 ;;21,"0XJ8XZZ ")
+228 ;;115
+229 ;;21,"0XJ9XZZ ")
+230 ;;116
+231 ;;21,"0XJBXZZ ")
+232 ;;117
+233 ;;21,"0XJCXZZ ")
+234 ;;118
+235 ;;21,"0XJDXZZ ")
+236 ;;119
+237 ;;21,"0XJFXZZ ")
+238 ;;120
+239 ;;21,"0XJGXZZ ")
+240 ;;121
+241 ;;21,"0XJHXZZ ")
+242 ;;122
+243 ;;21,"0XJJXZZ ")
+244 ;;123
+245 ;;21,"0XJKXZZ ")
+246 ;;124
+247 ;;21,"0YJ0XZZ ")
+248 ;;125
+249 ;;21,"0YJ1XZZ ")
+250 ;;126
+251 ;;21,"0YJ5XZZ ")
+252 ;;127
+253 ;;21,"0YJ6XZZ ")
+254 ;;128
+255 ;;21,"0YJ7XZZ ")
+256 ;;129
+257 ;;21,"0YJ8XZZ ")
+258 ;;130
+259 ;;21,"0YJ9XZZ ")
+260 ;;131
+261 ;;21,"0YJAXZZ ")
+262 ;;132
+263 ;;21,"0YJBXZZ ")
+264 ;;133
+265 ;;21,"0YJCXZZ ")
+266 ;;134
+267 ;;21,"0YJDXZZ ")
+268 ;;135
+269 ;;21,"0YJEXZZ ")
+270 ;;136
+271 ;;21,"0YJFXZZ ")
+272 ;;137
+273 ;;21,"0YJGXZZ ")
+274 ;;138
+275 ;;21,"0YJHXZZ ")
+276 ;;139
+277 ;;21,"0YJJXZZ ")
+278 ;;140
+279 ;;21,"0YJKXZZ ")
+280 ;;141
+281 ;;21,"0YJLXZZ ")
+282 ;;142
+283 ;;21,"0YJMXZZ ")
+284 ;;143
+285 ;;21,"0YJNXZZ ")
+286 ;;144
+287 ;;21,"89.39 ")
+288 ;;1
+289 ;;21,"F0105YZ ")
+290 ;;145
+291 ;;21,"F0105ZZ ")
+292 ;;146
+293 ;;21,"F0115YZ ")
+294 ;;147
+295 ;;21,"F0115ZZ ")
+296 ;;148
+297 ;;21,"F0125YZ ")
+298 ;;149
+299 ;;21,"F0125ZZ ")
+300 ;;150
+301 ;;21,"F0135YZ ")
+302 ;;151
+303 ;;21,"F0135ZZ ")
+304 ;;152
+305 ;;21,"F01D5YZ ")
+306 ;;153
+307 ;;21,"F01D5ZZ ")
+308 ;;154
+309 ;;21,"F01F5YZ ")
+310 ;;155
+311 ;;21,"F01F5ZZ ")
+312 ;;156
+313 ;;21,"F01G5YZ ")
+314 ;;157
+315 ;;21,"F01G5ZZ ")
+316 ;;158
+317 ;;21,"F01H5YZ ")
+318 ;;159
+319 ;;21,"F01H5ZZ ")
+320 ;;160
+321 ;;21,"F01J5YZ ")
+322 ;;161
+323 ;;21,"F01J5ZZ ")
+324 ;;162
+325 ;;21,"F01K5YZ ")
+326 ;;163
+327 ;;21,"F01K5ZZ ")
+328 ;;164
+329 ;;21,"F01L5YZ ")
+330 ;;165
+331 ;;21,"F01L5ZZ ")
+332 ;;166
+333 ;;21,"F01M5YZ ")
+334 ;;167
+335 ;;21,"F01M5ZZ ")
+336 ;;168
+337 ;;9002226,1797,.01)
+338 ;;APCH EXAM 12 ORTHO PROCS
+339 ;;9002226,1797,.02)
+340 ;;@
+341 ;;9002226,1797,.04)
+342 ;;n
+343 ;;9002226,1797,.06)
+344 ;;@
+345 ;;9002226,1797,.08)
+346 ;;@
+347 ;;9002226,1797,.09)
+348 ;;3131113
+349 ;;9002226,1797,.11)
+350 ;;@
+351 ;;9002226,1797,.12)
+352 ;;255
+353 ;;9002226,1797,.13)
+354 ;;1
+355 ;;9002226,1797,.14)
+356 ;;@
+357 ;;9002226,1797,.15)
+358 ;;80.1
+359 ;;9002226,1797,.16)
+360 ;;@
+361 ;;9002226,1797,.17)
+362 ;;@
+363 ;;9002226,1797,3101)
+364 ;;@
+365 ;;9002226.02101,"1797,03JYXZZ ",.01)
+366 ;;03JYXZZ
+367 ;;9002226.02101,"1797,03JYXZZ ",.02)
+368 ;;03JYXZZ
+369 ;;9002226.02101,"1797,03JYXZZ ",.03)
+370 ;;31
+371 ;;9002226.02101,"1797,04JYXZZ ",.01)
+372 ;;04JYXZZ
+373 ;;9002226.02101,"1797,04JYXZZ ",.02)
+374 ;;04JYXZZ
+375 ;;9002226.02101,"1797,04JYXZZ ",.03)
+376 ;;31
+377 ;;9002226.02101,"1797,05JYXZZ ",.01)
+378 ;;05JYXZZ
+379 ;;9002226.02101,"1797,05JYXZZ ",.02)
+380 ;;05JYXZZ
+381 ;;9002226.02101,"1797,05JYXZZ ",.03)
+382 ;;31
+383 ;;9002226.02101,"1797,06JYXZZ ",.01)
+384 ;;06JYXZZ
+385 ;;9002226.02101,"1797,06JYXZZ ",.02)
+386 ;;06JYXZZ
+387 ;;9002226.02101,"1797,06JYXZZ ",.03)
+388 ;;31
+389 ;;9002226.02101,"1797,07JNXZZ ",.01)
+390 ;;07JNXZZ
+391 ;;9002226.02101,"1797,07JNXZZ ",.02)
+392 ;;07JNXZZ
+393 ;;9002226.02101,"1797,07JNXZZ ",.03)
+394 ;;31
+395 ;;9002226.02101,"1797,07JPXZZ ",.01)
+396 ;;07JPXZZ
+397 ;;9002226.02101,"1797,07JPXZZ ",.02)
+398 ;;07JPXZZ
+399 ;;9002226.02101,"1797,07JPXZZ ",.03)
+400 ;;31
+401 ;;9002226.02101,"1797,0DJ0XZZ ",.01)
+402 ;;0DJ0XZZ
+403 ;;9002226.02101,"1797,0DJ0XZZ ",.02)
+404 ;;0DJ0XZZ
+405 ;;9002226.02101,"1797,0DJ0XZZ ",.03)
+406 ;;31
+407 ;;9002226.02101,"1797,0DJ6XZZ ",.01)
+408 ;;0DJ6XZZ
+409 ;;9002226.02101,"1797,0DJ6XZZ ",.02)
+410 ;;0DJ6XZZ
+411 ;;9002226.02101,"1797,0DJ6XZZ ",.03)
+412 ;;31
+413 ;;9002226.02101,"1797,0DJUXZZ ",.01)
+414 ;;0DJUXZZ
+415 ;;9002226.02101,"1797,0DJUXZZ ",.02)
+416 ;;0DJUXZZ
+417 ;;9002226.02101,"1797,0DJUXZZ ",.03)
+418 ;;31
+419 ;;9002226.02101,"1797,0DJVXZZ ",.01)
+420 ;;0DJVXZZ
+421 ;;9002226.02101,"1797,0DJVXZZ ",.02)
+422 ;;0DJVXZZ
+423 ;;9002226.02101,"1797,0DJVXZZ ",.03)
+424 ;;31
+425 ;;9002226.02101,"1797,0DJWXZZ ",.01)
+426 ;;0DJWXZZ
+427 ;;9002226.02101,"1797,0DJWXZZ ",.02)
+428 ;;0DJWXZZ
+429 ;;9002226.02101,"1797,0DJWXZZ ",.03)
+430 ;;31
+431 ;;9002226.02101,"1797,0FJ0XZZ ",.01)
+432 ;;0FJ0XZZ
+433 ;;9002226.02101,"1797,0FJ0XZZ ",.02)
+434 ;;0FJ0XZZ
+435 ;;9002226.02101,"1797,0FJ0XZZ ",.03)
+436 ;;31
+437 ;;9002226.02101,"1797,0FJ4XZZ ",.01)
+438 ;;0FJ4XZZ
+439 ;;9002226.02101,"1797,0FJ4XZZ ",.02)
+440 ;;0FJ4XZZ
+441 ;;9002226.02101,"1797,0FJ4XZZ ",.03)
+442 ;;31
+443 ;;9002226.02101,"1797,0FJGXZZ ",.01)
+444 ;;0FJGXZZ
+445 ;;9002226.02101,"1797,0FJGXZZ ",.02)
+446 ;;0FJGXZZ
+447 ;;9002226.02101,"1797,0FJGXZZ ",.03)
+448 ;;31
+449 ;;9002226.02101,"1797,0JJSXZZ ",.01)
+450 ;;0JJSXZZ
+451 ;;9002226.02101,"1797,0JJSXZZ ",.02)
+452 ;;0JJSXZZ
+453 ;;9002226.02101,"1797,0JJSXZZ ",.03)
+454 ;;31
+455 ;;9002226.02101,"1797,0JJTXZZ ",.01)
+456 ;;0JJTXZZ
+457 ;;9002226.02101,"1797,0JJTXZZ ",.02)
+458 ;;0JJTXZZ
+459 ;;9002226.02101,"1797,0JJTXZZ ",.03)
+460 ;;31
+461 ;;9002226.02101,"1797,0JJVXZZ ",.01)
+462 ;;0JJVXZZ
+463 ;;9002226.02101,"1797,0JJVXZZ ",.02)
+464 ;;0JJVXZZ
+465 ;;9002226.02101,"1797,0JJVXZZ ",.03)
+466 ;;31
+467 ;;9002226.02101,"1797,0JJWXZZ ",.01)
+468 ;;0JJWXZZ
+469 ;;9002226.02101,"1797,0JJWXZZ ",.02)
+470 ;;0JJWXZZ
+471 ;;9002226.02101,"1797,0JJWXZZ ",.03)
+472 ;;31
+473 ;;9002226.02101,"1797,0KJXXZZ ",.01)
+474 ;;0KJXXZZ
+475 ;;9002226.02101,"1797,0KJXXZZ ",.02)
+476 ;;0KJXXZZ
+477 ;;9002226.02101,"1797,0KJXXZZ ",.03)
+478 ;;31
+479 ;;9002226.02101,"1797,0KJYXZZ ",.01)
+480 ;;0KJYXZZ
+481 ;;9002226.02101,"1797,0KJYXZZ ",.02)
+482 ;;0KJYXZZ
+483 ;;9002226.02101,"1797,0KJYXZZ ",.03)
+484 ;;31
+485 ;;9002226.02101,"1797,0LJXXZZ ",.01)
+486 ;;0LJXXZZ
+487 ;;9002226.02101,"1797,0LJXXZZ ",.02)
+488 ;;0LJXXZZ
+489 ;;9002226.02101,"1797,0LJXXZZ ",.03)
+490 ;;31
+491 ;;9002226.02101,"1797,0LJYXZZ ",.01)
+492 ;;0LJYXZZ
+493 ;;9002226.02101,"1797,0LJYXZZ ",.02)
+494 ;;0LJYXZZ
+495 ;;9002226.02101,"1797,0LJYXZZ ",.03)
+496 ;;31
+497 ;;9002226.02101,"1797,0MJXXZZ ",.01)
+498 ;;0MJXXZZ
+499 ;;9002226.02101,"1797,0MJXXZZ ",.02)
+500 ;;0MJXXZZ
+501 ;;9002226.02101,"1797,0MJXXZZ ",.03)
+502 ;;31
+503 ;;9002226.02101,"1797,0MJYXZZ ",.01)
+504 ;;0MJYXZZ
+505 ;;9002226.02101,"1797,0MJYXZZ ",.02)
+506 ;;0MJYXZZ
+507 ;;9002226.02101,"1797,0MJYXZZ ",.03)
+508 ;;31
+509 ;;9002226.02101,"1797,0NJ0XZZ ",.01)
+510 ;;0NJ0XZZ
+511 ;;9002226.02101,"1797,0NJ0XZZ ",.02)
+512 ;;0NJ0XZZ
+513 ;;9002226.02101,"1797,0NJ0XZZ ",.03)
+514 ;;31
+515 ;;9002226.02101,"1797,0NJBXZZ ",.01)
+516 ;;0NJBXZZ
+517 ;;9002226.02101,"1797,0NJBXZZ ",.02)
+518 ;;0NJBXZZ
+519 ;;9002226.02101,"1797,0NJBXZZ ",.03)
+520 ;;31
+521 ;;9002226.02101,"1797,0NJWXZZ ",.01)
+522 ;;0NJWXZZ
+523 ;;9002226.02101,"1797,0NJWXZZ ",.02)
+524 ;;0NJWXZZ
+525 ;;9002226.02101,"1797,0NJWXZZ ",.03)
+526 ;;31
+527 ;;9002226.02101,"1797,0PJYXZZ ",.01)
+528 ;;0PJYXZZ
+529 ;;9002226.02101,"1797,0PJYXZZ ",.02)
+530 ;;0PJYXZZ
+531 ;;9002226.02101,"1797,0PJYXZZ ",.03)
+532 ;;31
+533 ;;9002226.02101,"1797,0QJYXZZ ",.01)
+534 ;;0QJYXZZ
+535 ;;9002226.02101,"1797,0QJYXZZ ",.02)
+536 ;;0QJYXZZ
+537 ;;9002226.02101,"1797,0QJYXZZ ",.03)
+538 ;;31
+539 ;;9002226.02101,"1797,0RJ0XZZ ",.01)
+540 ;;0RJ0XZZ
+541 ;;9002226.02101,"1797,0RJ0XZZ ",.02)
+542 ;;0RJ0XZZ
+543 ;;9002226.02101,"1797,0RJ0XZZ ",.03)
+544 ;;31
+545 ;;9002226.02101,"1797,0RJ1XZZ ",.01)
+546 ;;0RJ1XZZ
+547 ;;9002226.02101,"1797,0RJ1XZZ ",.02)
+548 ;;0RJ1XZZ
+549 ;;9002226.02101,"1797,0RJ1XZZ ",.03)
+550 ;;31
+551 ;;9002226.02101,"1797,0RJ3XZZ ",.01)
+552 ;;0RJ3XZZ
+553 ;;9002226.02101,"1797,0RJ3XZZ ",.02)
+554 ;;0RJ3XZZ
+555 ;;9002226.02101,"1797,0RJ3XZZ ",.03)
+556 ;;31
+557 ;;9002226.02101,"1797,0RJ4XZZ ",.01)
+558 ;;0RJ4XZZ
+559 ;;9002226.02101,"1797,0RJ4XZZ ",.02)
+560 ;;0RJ4XZZ
+561 ;;9002226.02101,"1797,0RJ4XZZ ",.03)
+562 ;;31
+563 ;;9002226.02101,"1797,0RJ5XZZ ",.01)
+564 ;;0RJ5XZZ
+565 ;;9002226.02101,"1797,0RJ5XZZ ",.02)
+566 ;;0RJ5XZZ
+567 ;;9002226.02101,"1797,0RJ5XZZ ",.03)
+568 ;;31
+569 ;;9002226.02101,"1797,0RJ6XZZ ",.01)
+570 ;;0RJ6XZZ
+571 ;;9002226.02101,"1797,0RJ6XZZ ",.02)
+572 ;;0RJ6XZZ
+573 ;;9002226.02101,"1797,0RJ6XZZ ",.03)
+574 ;;31
+575 ;;9002226.02101,"1797,0RJ9XZZ ",.01)
+576 ;;0RJ9XZZ
+577 ;;9002226.02101,"1797,0RJ9XZZ ",.02)
+578 ;;0RJ9XZZ
+579 ;;9002226.02101,"1797,0RJ9XZZ ",.03)
+580 ;;31
+581 ;;9002226.02101,"1797,0RJAXZZ ",.01)
+582 ;;0RJAXZZ
+583 ;;9002226.02101,"1797,0RJAXZZ ",.02)
+584 ;;0RJAXZZ
+585 ;;9002226.02101,"1797,0RJAXZZ ",.03)
+586 ;;31
+587 ;;9002226.02101,"1797,0RJBXZZ ",.01)
+588 ;;0RJBXZZ
+589 ;;9002226.02101,"1797,0RJBXZZ ",.02)
+590 ;;0RJBXZZ
+591 ;;9002226.02101,"1797,0RJBXZZ ",.03)
+592 ;;31
+593 ;;9002226.02101,"1797,0RJCXZZ ",.01)
+594 ;;0RJCXZZ
+595 ;;9002226.02101,"1797,0RJCXZZ ",.02)
+596 ;;0RJCXZZ
+597 ;;9002226.02101,"1797,0RJCXZZ ",.03)
+598 ;;31
+599 ;;9002226.02101,"1797,0RJDXZZ ",.01)
+600 ;;0RJDXZZ
+601 ;;9002226.02101,"1797,0RJDXZZ ",.02)
+602 ;;0RJDXZZ
+603 ;;9002226.02101,"1797,0RJDXZZ ",.03)
+604 ;;31
+605 ;;9002226.02101,"1797,0RJEXZZ ",.01)
+606 ;;0RJEXZZ
+607 ;;9002226.02101,"1797,0RJEXZZ ",.02)
+608 ;;0RJEXZZ
+609 ;;9002226.02101,"1797,0RJEXZZ ",.03)
+610 ;;31
+611 ;;9002226.02101,"1797,0RJFXZZ ",.01)
+612 ;;0RJFXZZ
+613 ;;9002226.02101,"1797,0RJFXZZ ",.02)
+614 ;;0RJFXZZ
+615 ;;9002226.02101,"1797,0RJFXZZ ",.03)
+616 ;;31
+617 ;;9002226.02101,"1797,0RJGXZZ ",.01)
+618 ;;0RJGXZZ
+619 ;;9002226.02101,"1797,0RJGXZZ ",.02)
+620 ;;0RJGXZZ
+621 ;;9002226.02101,"1797,0RJGXZZ ",.03)
+622 ;;31
+623 ;;9002226.02101,"1797,0RJHXZZ ",.01)
+624 ;;0RJHXZZ
+625 ;;9002226.02101,"1797,0RJHXZZ ",.02)
+626 ;;0RJHXZZ
+627 ;;9002226.02101,"1797,0RJHXZZ ",.03)
+628 ;;31
+629 ;;9002226.02101,"1797,0RJJXZZ ",.01)
+630 ;;0RJJXZZ
+631 ;;9002226.02101,"1797,0RJJXZZ ",.02)
+632 ;;0RJJXZZ
+633 ;;9002226.02101,"1797,0RJJXZZ ",.03)
+634 ;;31
+635 ;;9002226.02101,"1797,0RJKXZZ ",.01)
+636 ;;0RJKXZZ
+637 ;;9002226.02101,"1797,0RJKXZZ ",.02)
+638 ;;0RJKXZZ
+639 ;;9002226.02101,"1797,0RJKXZZ ",.03)
+640 ;;31
+641 ;;9002226.02101,"1797,0RJLXZZ ",.01)
+642 ;;0RJLXZZ
+643 ;;9002226.02101,"1797,0RJLXZZ ",.02)
+644 ;;0RJLXZZ
+645 ;;9002226.02101,"1797,0RJLXZZ ",.03)
+646 ;;31
+647 ;;9002226.02101,"1797,0RJMXZZ ",.01)
+648 ;;0RJMXZZ
+649 ;;9002226.02101,"1797,0RJMXZZ ",.02)
+650 ;;0RJMXZZ
+651 ;;9002226.02101,"1797,0RJMXZZ ",.03)
+652 ;;31
+653 ;;9002226.02101,"1797,0RJNXZZ ",.01)
+654 ;;0RJNXZZ
+655 ;;9002226.02101,"1797,0RJNXZZ ",.02)
+656 ;;0RJNXZZ
+657 ;;9002226.02101,"1797,0RJNXZZ ",.03)
+658 ;;31
+659 ;;9002226.02101,"1797,0RJPXZZ ",.01)
+660 ;;0RJPXZZ
+661 ;;9002226.02101,"1797,0RJPXZZ ",.02)
+662 ;;0RJPXZZ
+663 ;;9002226.02101,"1797,0RJPXZZ ",.03)
+664 ;;31
+665 ;;9002226.02101,"1797,0RJQXZZ ",.01)
+666 ;;0RJQXZZ
+667 ;;9002226.02101,"1797,0RJQXZZ ",.02)
+668 ;;0RJQXZZ
+669 ;;9002226.02101,"1797,0RJQXZZ ",.03)
+670 ;;31
+671 ;;9002226.02101,"1797,0RJRXZZ ",.01)
+672 ;;0RJRXZZ
+673 ;;9002226.02101,"1797,0RJRXZZ ",.02)
+674 ;;0RJRXZZ
+675 ;;9002226.02101,"1797,0RJRXZZ ",.03)
+676 ;;31
+677 ;;9002226.02101,"1797,0RJSXZZ ",.01)
+678 ;;0RJSXZZ
+679 ;;9002226.02101,"1797,0RJSXZZ ",.02)
+680 ;;0RJSXZZ
+681 ;;9002226.02101,"1797,0RJSXZZ ",.03)
+682 ;;31
+683 ;;9002226.02101,"1797,0RJTXZZ ",.01)
+684 ;;0RJTXZZ
+685 ;;9002226.02101,"1797,0RJTXZZ ",.02)
+686 ;;0RJTXZZ
+687 ;;9002226.02101,"1797,0RJTXZZ ",.03)
+688 ;;31
+689 ;;9002226.02101,"1797,0RJUXZZ ",.01)
+690 ;;0RJUXZZ
+691 ;;9002226.02101,"1797,0RJUXZZ ",.02)
+692 ;;0RJUXZZ
+693 ;
OTHER ; OTHER ROUTINES
+1 DO ^ATXO5H2
+2 DO ^ATXO5H3
+3 QUIT
