- BGPM5AB ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 18, 2011;
- ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
- ;;BGPMU DIAB NEPH PROC CPT
- ;
- ; This routine loads Taxonomy BGPMU DIAB NEPH PROC CPT
- ;
- 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,"36145 ")
- ;;1
- ;;21,"36800 ")
- ;;2
- ;;21,"36810 ")
- ;;3
- ;;21,"36815 ")
- ;;4
- ;;21,"36818 ")
- ;;5
- ;;21,"36819 ")
- ;;6
- ;;21,"36831 ")
- ;;7
- ;;21,"36832 ")
- ;;8
- ;;21,"36833 ")
- ;;9
- ;;21,"50300 ")
- ;;10
- ;;21,"50320 ")
- ;;11
- ;;21,"50340 ")
- ;;12
- ;;21,"50360 ")
- ;;13
- ;;21,"50365 ")
- ;;14
- ;;21,"50370 ")
- ;;15
- ;;21,"50380 ")
- ;;16
- ;;21,"90920 ")
- ;;17
- ;;21,"90921 ")
- ;;18
- ;;21,"90924 ")
- ;;19
- ;;21,"90925 ")
- ;;20
- ;;21,"90935 ")
- ;;21
- ;;21,"90937 ")
- ;;22
- ;;21,"90940 ")
- ;;23
- ;;21,"90945 ")
- ;;24
- ;;21,"90947 ")
- ;;25
- ;;21,"90957 ")
- ;;26
- ;;21,"90958 ")
- ;;27
- ;;21,"90959 ")
- ;;28
- ;;21,"90960 ")
- ;;29
- ;;21,"90961 ")
- ;;30
- ;;21,"90962 ")
- ;;31
- ;;21,"90965 ")
- ;;32
- ;;21,"90966 ")
- ;;33
- ;;21,"90969 ")
- ;;34
- ;;21,"90970 ")
- ;;35
- ;;21,"90989 ")
- ;;36
- ;;21,"90993 ")
- ;;37
- ;;21,"90997 ")
- ;;38
- ;;21,"90999 ")
- ;;39
- ;;21,"99512 ")
- ;;40
- ;;21,"G0257 ")
- ;;41
- ;;21,"G0314 ")
- ;;42
- ;;21,"G0315 ")
- ;;43
- ;;21,"G0316 ")
- ;;44
- ;;21,"G0317 ")
- ;;45
- ;;21,"G0318 ")
- ;;46
- ;;21,"G0319 ")
- ;;47
- ;;21,"G0322 ")
- ;;48
- ;;21,"G0323 ")
- ;;49
- ;;21,"G0326 ")
- ;;50
- ;;21,"G0327 ")
- ;;51
- ;;21,"G0392 ")
- ;;52
- ;;21,"G0393 ")
- ;;53
- ;;21,"S9339 ")
- ;;54
- ;;9002226,840,.01)
- ;;BGPMU DIAB NEPH PROC CPT
- ;;9002226,840,.02)
- ;;Nephropathy procedures CPT
- ;;9002226,840,.04)
- ;;n
- ;;9002226,840,.06)
- ;;@
- ;;9002226,840,.08)
- ;;@
- ;;9002226,840,.09)
- ;;3110310
- ;;9002226,840,.11)
- ;;@
- ;;9002226,840,.12)
- ;;@
- ;;9002226,840,.13)
- ;;@
- ;;9002226,840,.14)
- ;;@
- ;;9002226,840,.15)
- ;;81
- ;;9002226,840,.16)
- ;;1
- ;;9002226,840,.17)
- ;;@
- ;;9002226,840,3101)
- ;;@
- ;;9002226.02101,"840,36145 ",.01)
- ;;36145
- ;;9002226.02101,"840,36145 ",.02)
- ;;36145
- ;;9002226.02101,"840,36800 ",.01)
- ;;36800
- ;;9002226.02101,"840,36800 ",.02)
- ;;36800
- ;;9002226.02101,"840,36810 ",.01)
- ;;36810
- ;;9002226.02101,"840,36810 ",.02)
- ;;36810
- ;;9002226.02101,"840,36815 ",.01)
- ;;36815
- ;;9002226.02101,"840,36815 ",.02)
- ;;36815
- ;;9002226.02101,"840,36818 ",.01)
- ;;36818
- ;;9002226.02101,"840,36818 ",.02)
- ;;36818
- ;;9002226.02101,"840,36819 ",.01)
- ;;36819
- ;;9002226.02101,"840,36819 ",.02)
- ;;36821
- ;;9002226.02101,"840,36831 ",.01)
- ;;36831
- ;;9002226.02101,"840,36831 ",.02)
- ;;36831
- ;;9002226.02101,"840,36832 ",.01)
- ;;36832
- ;;9002226.02101,"840,36832 ",.02)
- ;;36832
- ;;9002226.02101,"840,36833 ",.01)
- ;;36833
- ;;9002226.02101,"840,36833 ",.02)
- ;;36833
- ;;9002226.02101,"840,50300 ",.01)
- ;;50300
- ;;9002226.02101,"840,50300 ",.02)
- ;;50300
- ;;9002226.02101,"840,50320 ",.01)
- ;;50320
- ;;9002226.02101,"840,50320 ",.02)
- ;;50320
- ;;9002226.02101,"840,50340 ",.01)
- ;;50340
- ;;9002226.02101,"840,50340 ",.02)
- ;;50340
- ;;9002226.02101,"840,50360 ",.01)
- ;;50360
- ;;9002226.02101,"840,50360 ",.02)
- ;;50360
- ;;9002226.02101,"840,50365 ",.01)
- ;;50365
- ;;9002226.02101,"840,50365 ",.02)
- ;;50365
- ;;9002226.02101,"840,50370 ",.01)
- ;;50370
- ;;9002226.02101,"840,50370 ",.02)
- ;;50370
- ;;9002226.02101,"840,50380 ",.01)
- ;;50380
- ;;9002226.02101,"840,50380 ",.02)
- ;;50380
- ;;9002226.02101,"840,90920 ",.01)
- ;;90920
- ;;9002226.02101,"840,90920 ",.02)
- ;;90920
- ;;9002226.02101,"840,90921 ",.01)
- ;;90921
- ;;9002226.02101,"840,90921 ",.02)
- ;;90921
- ;;9002226.02101,"840,90924 ",.01)
- ;;90924
- ;;9002226.02101,"840,90924 ",.02)
- ;;90924
- ;;9002226.02101,"840,90925 ",.01)
- ;;90925
- ;;9002226.02101,"840,90925 ",.02)
- ;;90925
- ;;9002226.02101,"840,90935 ",.01)
- ;;90935
- ;;9002226.02101,"840,90935 ",.02)
- ;;90935
- ;;9002226.02101,"840,90937 ",.01)
- ;;90937
- ;;9002226.02101,"840,90937 ",.02)
- ;;90937
- ;;9002226.02101,"840,90940 ",.01)
- ;;90940
- ;;9002226.02101,"840,90940 ",.02)
- ;;90940
- ;;9002226.02101,"840,90945 ",.01)
- ;;90945
- ;;9002226.02101,"840,90945 ",.02)
- ;;90945
- ;;9002226.02101,"840,90947 ",.01)
- ;;90947
- ;;9002226.02101,"840,90947 ",.02)
- ;;90947
- ;;9002226.02101,"840,90957 ",.01)
- ;;90957
- ;;9002226.02101,"840,90957 ",.02)
- ;;90957
- ;;9002226.02101,"840,90958 ",.01)
- ;;90958
- ;;9002226.02101,"840,90958 ",.02)
- ;;90958
- ;;9002226.02101,"840,90959 ",.01)
- ;;90959
- ;;9002226.02101,"840,90959 ",.02)
- ;;90959
- ;;9002226.02101,"840,90960 ",.01)
- ;;90960
- ;;9002226.02101,"840,90960 ",.02)
- ;;90960
- ;;9002226.02101,"840,90961 ",.01)
- ;;90961
- ;;9002226.02101,"840,90961 ",.02)
- ;;90961
- ;;9002226.02101,"840,90962 ",.01)
- ;;90962
- ;;9002226.02101,"840,90962 ",.02)
- ;;90962
- ;;9002226.02101,"840,90965 ",.01)
- ;;90965
- ;;9002226.02101,"840,90965 ",.02)
- ;;90965
- ;;9002226.02101,"840,90966 ",.01)
- ;;90966
- ;;9002226.02101,"840,90966 ",.02)
- ;;90966
- ;;9002226.02101,"840,90969 ",.01)
- ;;90969
- ;;9002226.02101,"840,90969 ",.02)
- ;;90969
- ;;9002226.02101,"840,90970 ",.01)
- ;;90970
- ;;9002226.02101,"840,90970 ",.02)
- ;;90970
- ;;9002226.02101,"840,90989 ",.01)
- ;;90989
- ;;9002226.02101,"840,90989 ",.02)
- ;;90989
- ;;9002226.02101,"840,90993 ",.01)
- ;;90993
- ;;9002226.02101,"840,90993 ",.02)
- ;;90993
- ;;9002226.02101,"840,90997 ",.01)
- ;;90997
- ;;9002226.02101,"840,90997 ",.02)
- ;;90997
- ;;9002226.02101,"840,90999 ",.01)
- ;;90999
- ;;9002226.02101,"840,90999 ",.02)
- ;;90999
- ;;9002226.02101,"840,99512 ",.01)
- ;;99512
- ;;9002226.02101,"840,99512 ",.02)
- ;;99512
- ;;9002226.02101,"840,G0257 ",.01)
- ;;G0257
- ;;9002226.02101,"840,G0257 ",.02)
- ;;G0257
- ;;9002226.02101,"840,G0314 ",.01)
- ;;G0314
- ;;9002226.02101,"840,G0314 ",.02)
- ;;G0314
- ;;9002226.02101,"840,G0315 ",.01)
- ;;G0315
- ;;9002226.02101,"840,G0315 ",.02)
- ;;G0315
- ;;9002226.02101,"840,G0316 ",.01)
- ;;G0316
- ;;9002226.02101,"840,G0316 ",.02)
- ;;G0316
- ;;9002226.02101,"840,G0317 ",.01)
- ;;G0317
- ;;9002226.02101,"840,G0317 ",.02)
- ;;G0317
- ;;9002226.02101,"840,G0318 ",.01)
- ;;G0318
- ;;9002226.02101,"840,G0318 ",.02)
- ;;G0318
- ;;9002226.02101,"840,G0319 ",.01)
- ;;G0319
- ;;9002226.02101,"840,G0319 ",.02)
- ;;G0319
- ;;9002226.02101,"840,G0322 ",.01)
- ;;G0322
- ;;9002226.02101,"840,G0322 ",.02)
- ;;G0322
- ;;9002226.02101,"840,G0323 ",.01)
- ;;G0323
- ;;9002226.02101,"840,G0323 ",.02)
- ;;G0323
- ;;9002226.02101,"840,G0326 ",.01)
- ;;G0326
- ;;9002226.02101,"840,G0326 ",.02)
- ;;G0326
- ;;9002226.02101,"840,G0327 ",.01)
- ;;G0327
- ;;9002226.02101,"840,G0327 ",.02)
- ;;G0327
- ;;9002226.02101,"840,G0392 ",.01)
- ;;G0392
- ;;9002226.02101,"840,G0392 ",.02)
- ;;G0392
- ;;9002226.02101,"840,G0393 ",.01)
- ;;G0393
- ;;9002226.02101,"840,G0393 ",.02)
- ;;G0393
- ;;9002226.02101,"840,S9339 ",.01)
- ;;S9339
- ;;9002226.02101,"840,S9339 ",.02)
- ;;S9339
- ;
- OTHER ; OTHER ROUTINES
- Q
- BGPM5AB ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 18, 2011;
- +1 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
- +2 ;;BGPMU DIAB NEPH PROC CPT
- +3 ;
- +4 ; This routine loads Taxonomy BGPMU DIAB NEPH PROC CPT
- +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,"36145 ")
- +2 ;;1
- +3 ;;21,"36800 ")
- +4 ;;2
- +5 ;;21,"36810 ")
- +6 ;;3
- +7 ;;21,"36815 ")
- +8 ;;4
- +9 ;;21,"36818 ")
- +10 ;;5
- +11 ;;21,"36819 ")
- +12 ;;6
- +13 ;;21,"36831 ")
- +14 ;;7
- +15 ;;21,"36832 ")
- +16 ;;8
- +17 ;;21,"36833 ")
- +18 ;;9
- +19 ;;21,"50300 ")
- +20 ;;10
- +21 ;;21,"50320 ")
- +22 ;;11
- +23 ;;21,"50340 ")
- +24 ;;12
- +25 ;;21,"50360 ")
- +26 ;;13
- +27 ;;21,"50365 ")
- +28 ;;14
- +29 ;;21,"50370 ")
- +30 ;;15
- +31 ;;21,"50380 ")
- +32 ;;16
- +33 ;;21,"90920 ")
- +34 ;;17
- +35 ;;21,"90921 ")
- +36 ;;18
- +37 ;;21,"90924 ")
- +38 ;;19
- +39 ;;21,"90925 ")
- +40 ;;20
- +41 ;;21,"90935 ")
- +42 ;;21
- +43 ;;21,"90937 ")
- +44 ;;22
- +45 ;;21,"90940 ")
- +46 ;;23
- +47 ;;21,"90945 ")
- +48 ;;24
- +49 ;;21,"90947 ")
- +50 ;;25
- +51 ;;21,"90957 ")
- +52 ;;26
- +53 ;;21,"90958 ")
- +54 ;;27
- +55 ;;21,"90959 ")
- +56 ;;28
- +57 ;;21,"90960 ")
- +58 ;;29
- +59 ;;21,"90961 ")
- +60 ;;30
- +61 ;;21,"90962 ")
- +62 ;;31
- +63 ;;21,"90965 ")
- +64 ;;32
- +65 ;;21,"90966 ")
- +66 ;;33
- +67 ;;21,"90969 ")
- +68 ;;34
- +69 ;;21,"90970 ")
- +70 ;;35
- +71 ;;21,"90989 ")
- +72 ;;36
- +73 ;;21,"90993 ")
- +74 ;;37
- +75 ;;21,"90997 ")
- +76 ;;38
- +77 ;;21,"90999 ")
- +78 ;;39
- +79 ;;21,"99512 ")
- +80 ;;40
- +81 ;;21,"G0257 ")
- +82 ;;41
- +83 ;;21,"G0314 ")
- +84 ;;42
- +85 ;;21,"G0315 ")
- +86 ;;43
- +87 ;;21,"G0316 ")
- +88 ;;44
- +89 ;;21,"G0317 ")
- +90 ;;45
- +91 ;;21,"G0318 ")
- +92 ;;46
- +93 ;;21,"G0319 ")
- +94 ;;47
- +95 ;;21,"G0322 ")
- +96 ;;48
- +97 ;;21,"G0323 ")
- +98 ;;49
- +99 ;;21,"G0326 ")
- +100 ;;50
- +101 ;;21,"G0327 ")
- +102 ;;51
- +103 ;;21,"G0392 ")
- +104 ;;52
- +105 ;;21,"G0393 ")
- +106 ;;53
- +107 ;;21,"S9339 ")
- +108 ;;54
- +109 ;;9002226,840,.01)
- +110 ;;BGPMU DIAB NEPH PROC CPT
- +111 ;;9002226,840,.02)
- +112 ;;Nephropathy procedures CPT
- +113 ;;9002226,840,.04)
- +114 ;;n
- +115 ;;9002226,840,.06)
- +116 ;;@
- +117 ;;9002226,840,.08)
- +118 ;;@
- +119 ;;9002226,840,.09)
- +120 ;;3110310
- +121 ;;9002226,840,.11)
- +122 ;;@
- +123 ;;9002226,840,.12)
- +124 ;;@
- +125 ;;9002226,840,.13)
- +126 ;;@
- +127 ;;9002226,840,.14)
- +128 ;;@
- +129 ;;9002226,840,.15)
- +130 ;;81
- +131 ;;9002226,840,.16)
- +132 ;;1
- +133 ;;9002226,840,.17)
- +134 ;;@
- +135 ;;9002226,840,3101)
- +136 ;;@
- +137 ;;9002226.02101,"840,36145 ",.01)
- +138 ;;36145
- +139 ;;9002226.02101,"840,36145 ",.02)
- +140 ;;36145
- +141 ;;9002226.02101,"840,36800 ",.01)
- +142 ;;36800
- +143 ;;9002226.02101,"840,36800 ",.02)
- +144 ;;36800
- +145 ;;9002226.02101,"840,36810 ",.01)
- +146 ;;36810
- +147 ;;9002226.02101,"840,36810 ",.02)
- +148 ;;36810
- +149 ;;9002226.02101,"840,36815 ",.01)
- +150 ;;36815
- +151 ;;9002226.02101,"840,36815 ",.02)
- +152 ;;36815
- +153 ;;9002226.02101,"840,36818 ",.01)
- +154 ;;36818
- +155 ;;9002226.02101,"840,36818 ",.02)
- +156 ;;36818
- +157 ;;9002226.02101,"840,36819 ",.01)
- +158 ;;36819
- +159 ;;9002226.02101,"840,36819 ",.02)
- +160 ;;36821
- +161 ;;9002226.02101,"840,36831 ",.01)
- +162 ;;36831
- +163 ;;9002226.02101,"840,36831 ",.02)
- +164 ;;36831
- +165 ;;9002226.02101,"840,36832 ",.01)
- +166 ;;36832
- +167 ;;9002226.02101,"840,36832 ",.02)
- +168 ;;36832
- +169 ;;9002226.02101,"840,36833 ",.01)
- +170 ;;36833
- +171 ;;9002226.02101,"840,36833 ",.02)
- +172 ;;36833
- +173 ;;9002226.02101,"840,50300 ",.01)
- +174 ;;50300
- +175 ;;9002226.02101,"840,50300 ",.02)
- +176 ;;50300
- +177 ;;9002226.02101,"840,50320 ",.01)
- +178 ;;50320
- +179 ;;9002226.02101,"840,50320 ",.02)
- +180 ;;50320
- +181 ;;9002226.02101,"840,50340 ",.01)
- +182 ;;50340
- +183 ;;9002226.02101,"840,50340 ",.02)
- +184 ;;50340
- +185 ;;9002226.02101,"840,50360 ",.01)
- +186 ;;50360
- +187 ;;9002226.02101,"840,50360 ",.02)
- +188 ;;50360
- +189 ;;9002226.02101,"840,50365 ",.01)
- +190 ;;50365
- +191 ;;9002226.02101,"840,50365 ",.02)
- +192 ;;50365
- +193 ;;9002226.02101,"840,50370 ",.01)
- +194 ;;50370
- +195 ;;9002226.02101,"840,50370 ",.02)
- +196 ;;50370
- +197 ;;9002226.02101,"840,50380 ",.01)
- +198 ;;50380
- +199 ;;9002226.02101,"840,50380 ",.02)
- +200 ;;50380
- +201 ;;9002226.02101,"840,90920 ",.01)
- +202 ;;90920
- +203 ;;9002226.02101,"840,90920 ",.02)
- +204 ;;90920
- +205 ;;9002226.02101,"840,90921 ",.01)
- +206 ;;90921
- +207 ;;9002226.02101,"840,90921 ",.02)
- +208 ;;90921
- +209 ;;9002226.02101,"840,90924 ",.01)
- +210 ;;90924
- +211 ;;9002226.02101,"840,90924 ",.02)
- +212 ;;90924
- +213 ;;9002226.02101,"840,90925 ",.01)
- +214 ;;90925
- +215 ;;9002226.02101,"840,90925 ",.02)
- +216 ;;90925
- +217 ;;9002226.02101,"840,90935 ",.01)
- +218 ;;90935
- +219 ;;9002226.02101,"840,90935 ",.02)
- +220 ;;90935
- +221 ;;9002226.02101,"840,90937 ",.01)
- +222 ;;90937
- +223 ;;9002226.02101,"840,90937 ",.02)
- +224 ;;90937
- +225 ;;9002226.02101,"840,90940 ",.01)
- +226 ;;90940
- +227 ;;9002226.02101,"840,90940 ",.02)
- +228 ;;90940
- +229 ;;9002226.02101,"840,90945 ",.01)
- +230 ;;90945
- +231 ;;9002226.02101,"840,90945 ",.02)
- +232 ;;90945
- +233 ;;9002226.02101,"840,90947 ",.01)
- +234 ;;90947
- +235 ;;9002226.02101,"840,90947 ",.02)
- +236 ;;90947
- +237 ;;9002226.02101,"840,90957 ",.01)
- +238 ;;90957
- +239 ;;9002226.02101,"840,90957 ",.02)
- +240 ;;90957
- +241 ;;9002226.02101,"840,90958 ",.01)
- +242 ;;90958
- +243 ;;9002226.02101,"840,90958 ",.02)
- +244 ;;90958
- +245 ;;9002226.02101,"840,90959 ",.01)
- +246 ;;90959
- +247 ;;9002226.02101,"840,90959 ",.02)
- +248 ;;90959
- +249 ;;9002226.02101,"840,90960 ",.01)
- +250 ;;90960
- +251 ;;9002226.02101,"840,90960 ",.02)
- +252 ;;90960
- +253 ;;9002226.02101,"840,90961 ",.01)
- +254 ;;90961
- +255 ;;9002226.02101,"840,90961 ",.02)
- +256 ;;90961
- +257 ;;9002226.02101,"840,90962 ",.01)
- +258 ;;90962
- +259 ;;9002226.02101,"840,90962 ",.02)
- +260 ;;90962
- +261 ;;9002226.02101,"840,90965 ",.01)
- +262 ;;90965
- +263 ;;9002226.02101,"840,90965 ",.02)
- +264 ;;90965
- +265 ;;9002226.02101,"840,90966 ",.01)
- +266 ;;90966
- +267 ;;9002226.02101,"840,90966 ",.02)
- +268 ;;90966
- +269 ;;9002226.02101,"840,90969 ",.01)
- +270 ;;90969
- +271 ;;9002226.02101,"840,90969 ",.02)
- +272 ;;90969
- +273 ;;9002226.02101,"840,90970 ",.01)
- +274 ;;90970
- +275 ;;9002226.02101,"840,90970 ",.02)
- +276 ;;90970
- +277 ;;9002226.02101,"840,90989 ",.01)
- +278 ;;90989
- +279 ;;9002226.02101,"840,90989 ",.02)
- +280 ;;90989
- +281 ;;9002226.02101,"840,90993 ",.01)
- +282 ;;90993
- +283 ;;9002226.02101,"840,90993 ",.02)
- +284 ;;90993
- +285 ;;9002226.02101,"840,90997 ",.01)
- +286 ;;90997
- +287 ;;9002226.02101,"840,90997 ",.02)
- +288 ;;90997
- +289 ;;9002226.02101,"840,90999 ",.01)
- +290 ;;90999
- +291 ;;9002226.02101,"840,90999 ",.02)
- +292 ;;90999
- +293 ;;9002226.02101,"840,99512 ",.01)
- +294 ;;99512
- +295 ;;9002226.02101,"840,99512 ",.02)
- +296 ;;99512
- +297 ;;9002226.02101,"840,G0257 ",.01)
- +298 ;;G0257
- +299 ;;9002226.02101,"840,G0257 ",.02)
- +300 ;;G0257
- +301 ;;9002226.02101,"840,G0314 ",.01)
- +302 ;;G0314
- +303 ;;9002226.02101,"840,G0314 ",.02)
- +304 ;;G0314
- +305 ;;9002226.02101,"840,G0315 ",.01)
- +306 ;;G0315
- +307 ;;9002226.02101,"840,G0315 ",.02)
- +308 ;;G0315
- +309 ;;9002226.02101,"840,G0316 ",.01)
- +310 ;;G0316
- +311 ;;9002226.02101,"840,G0316 ",.02)
- +312 ;;G0316
- +313 ;;9002226.02101,"840,G0317 ",.01)
- +314 ;;G0317
- +315 ;;9002226.02101,"840,G0317 ",.02)
- +316 ;;G0317
- +317 ;;9002226.02101,"840,G0318 ",.01)
- +318 ;;G0318
- +319 ;;9002226.02101,"840,G0318 ",.02)
- +320 ;;G0318
- +321 ;;9002226.02101,"840,G0319 ",.01)
- +322 ;;G0319
- +323 ;;9002226.02101,"840,G0319 ",.02)
- +324 ;;G0319
- +325 ;;9002226.02101,"840,G0322 ",.01)
- +326 ;;G0322
- +327 ;;9002226.02101,"840,G0322 ",.02)
- +328 ;;G0322
- +329 ;;9002226.02101,"840,G0323 ",.01)
- +330 ;;G0323
- +331 ;;9002226.02101,"840,G0323 ",.02)
- +332 ;;G0323
- +333 ;;9002226.02101,"840,G0326 ",.01)
- +334 ;;G0326
- +335 ;;9002226.02101,"840,G0326 ",.02)
- +336 ;;G0326
- +337 ;;9002226.02101,"840,G0327 ",.01)
- +338 ;;G0327
- +339 ;;9002226.02101,"840,G0327 ",.02)
- +340 ;;G0327
- +341 ;;9002226.02101,"840,G0392 ",.01)
- +342 ;;G0392
- +343 ;;9002226.02101,"840,G0392 ",.02)
- +344 ;;G0392
- +345 ;;9002226.02101,"840,G0393 ",.01)
- +346 ;;G0393
- +347 ;;9002226.02101,"840,G0393 ",.02)
- +348 ;;G0393
- +349 ;;9002226.02101,"840,S9339 ",.01)
- +350 ;;S9339
- +351 ;;9002226.02101,"840,S9339 ",.02)
- +352 ;;S9339
- +353 ;
- OTHER ; OTHER ROUTINES
- +1 QUIT