Routine: BGP45S

BGP45S ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 26, 2013;

 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114

 ;;BGP RA OA NSAID VAPI

 ; This routine loads Taxonomy BGP RA OA NSAID VAPI

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

TMP ;;TAXONOMY (WITH BULLETIN)

 ;;21,"C0448 ")

;;5

 ;;21,"C0827 ")

;;2

 ;;21,"C0829 ")

;;3

 ;;21,"C1076 ")

;;4

 ;;21,"C1266 ")

;;1

 ;;21,"D0061 ")

 ;;13

 ;;21,"D0062 ")

 ;;14

 ;;21,"D0063 ")

 ;;15

 ;;21,"D0076 ")

 ;;19

 ;;21,"D0262 ")

;;8

 ;;21,"D0351 ")

 ;;16

 ;;21,"D0437 ")

 ;;17

 ;;21,"D0438 ")

 ;;18

 ;;21,"D0585 ")

 ;;12

 ;;21,"D0770 ")

;;6

 ;;21,"D0788 ")

 ;;10

 ;;21,"D0835 ")

;;7

 ;;21,"D0853 ")

;;9

 ;;21,"D0855 ")

 ;;11

 ;;21,"E0059 ")

 ;;20

 ;;21,"E0075 ")

 ;;21

 ;;21,"E0209 ")

 ;;22

 ;;21,"E0219 ")

 ;;24

 ;;21,"E0233 ")

 ;;26

 ;;21,"E0234 ")

 ;;23

 ;;21,"E0250 ")

 ;;25

 ;;21,"E0543 ")

 ;;61

 ;;21,"E0544 ")

 ;;62

 ;;21,"F0006 ")

 ;;27

 ;;21,"F0067 ")

 ;;29

 ;;21,"F0068 ")

 ;;28

 ;;21,"F0499 ")

 ;;35

 ;;21,"I0001 ")

 ;;30

 ;;21,"I0002 ")

 ;;31

 ;;21,"I0004 ")

 ;;32

 ;;21,"I0005 ")

 ;;33

 ;;21,"I0006 ")

 ;;34

 ;;21,"I0019 ")

 ;;36

 ;;21,"I0021 ")

 ;;37

 ;;21,"I0022 ")

 ;;38

 ;;21,"I0023 ")

 ;;39

 ;;21,"K0007 ")

 ;;40

 ;;21,"K0008 ")

 ;;41

 ;;21,"K0018 ")

 ;;42

 ;;21,"M0019 ")

 ;;43

 ;;21,"M0169 ")

 ;;47

 ;;21,"M0515 ")

 ;;44

 ;;21,"M0544 ")

 ;;46

 ;;21,"M0917 ")

 ;;45

 ;;21,"N001 ")

 ;;48

 ;;21,"N0010 ")

 ;;50

 ;;21,"N0011 ")

 ;;51

 ;;21,"N0012 ")

 ;;53

 ;;21,"N0013 ")

 ;;56

 ;;21,"N0014 ")

 ;;52

 ;;21,"N0015 ")

 ;;59

 ;;21,"N002 ")

 ;;49

 ;;21,"N0249 ")

 ;;54

 ;;21,"N0250 ")

 ;;57

 ;;21,"N0268 ")

 ;;55

 ;;21,"N0269 ")

 ;;58

 ;;21,"N0604 ")

 ;;60

 ;;21,"O0045 ")

 ;;63

 ;;21,"P0073 ")

 ;;64

 ;;21,"P0074 ")

 ;;65

 ;;21,"S0059 ")

 ;;66

 ;;21,"S0060 ")

 ;;67

 ;;21,"T0073 ")

 ;;68

 ;;21,"T0189 ")

 ;;69

 ;;9002226,1834,.01)

 ;;BGP RA OA NSAID VAPI

 ;;9002226,1834,.02)

 ;;INHALED STEROID VA DRUG CLASS

 ;;9002226,1834,.04)

;;@

 ;;9002226,1834,.06)

;;@

 ;;9002226,1834,.08)

;;@

 ;;9002226,1834,.09)

 ;;3130926

 ;;9002226,1834,.11)

;;@

 ;;9002226,1834,.12)

;;@

 ;;9002226,1834,.13)

;;1

 ;;9002226,1834,.14)

;;@

 ;;9002226,1834,.15)

 ;;50.68

 ;;9002226,1834,.16)

;;@

 ;;9002226,1834,.17)

;;@

 ;;9002226,1834,3101)

;;@

 ;;9002226.02101,"1834,C0448 ",.01)

 ;;C0448

 ;;9002226.02101,"1834,C0448 ",.02)

 ;;C0448

 ;;9002226.02101,"1834,C0827 ",.01)

 ;;C0827

 ;;9002226.02101,"1834,C0827 ",.02)

 ;;C0827

 ;;9002226.02101,"1834,C0829 ",.01)

 ;;C0829

 ;;9002226.02101,"1834,C0829 ",.02)

 ;;C0829

 ;;9002226.02101,"1834,C1076 ",.01)

 ;;C1076

 ;;9002226.02101,"1834,C1076 ",.02)

 ;;C1076

 ;;9002226.02101,"1834,C1266 ",.01)

 ;;C1266

 ;;9002226.02101,"1834,C1266 ",.02)

 ;;C1266

 ;;9002226.02101,"1834,D0061 ",.01)

 ;;D0061

 ;;9002226.02101,"1834,D0061 ",.02)

 ;;D0061

 ;;9002226.02101,"1834,D0062 ",.01)

 ;;D0062

 ;;9002226.02101,"1834,D0062 ",.02)

 ;;D0062

 ;;9002226.02101,"1834,D0063 ",.01)

 ;;D0063

 ;;9002226.02101,"1834,D0063 ",.02)

 ;;D0063

 ;;9002226.02101,"1834,D0076 ",.01)

 ;;D0076

 ;;9002226.02101,"1834,D0076 ",.02)

 ;;D0076

 ;;9002226.02101,"1834,D0262 ",.01)

 ;;D0262

 ;;9002226.02101,"1834,D0262 ",.02)

 ;;D0262

 ;;9002226.02101,"1834,D0351 ",.01)

 ;;D0351

 ;;9002226.02101,"1834,D0351 ",.02)

 ;;D0351

 ;;9002226.02101,"1834,D0437 ",.01)

 ;;D0437

 ;;9002226.02101,"1834,D0437 ",.02)

 ;;D0437

 ;;9002226.02101,"1834,D0438 ",.01)

 ;;D0438

 ;;9002226.02101,"1834,D0438 ",.02)

 ;;D0438

 ;;9002226.02101,"1834,D0585 ",.01)

 ;;D0585

 ;;9002226.02101,"1834,D0585 ",.02)

 ;;D0585

 ;;9002226.02101,"1834,D0770 ",.01)

 ;;D0770

 ;;9002226.02101,"1834,D0770 ",.02)

 ;;D0770

 ;;9002226.02101,"1834,D0788 ",.01)

 ;;D0788

 ;;9002226.02101,"1834,D0788 ",.02)

 ;;D0788

 ;;9002226.02101,"1834,D0835 ",.01)

 ;;D0835

 ;;9002226.02101,"1834,D0835 ",.02)

 ;;D0835

 ;;9002226.02101,"1834,D0853 ",.01)

 ;;D0853

 ;;9002226.02101,"1834,D0853 ",.02)

 ;;D0853

 ;;9002226.02101,"1834,D0855 ",.01)

 ;;D0855

 ;;9002226.02101,"1834,D0855 ",.02)

 ;;D0855

 ;;9002226.02101,"1834,E0059 ",.01)

 ;;E0059

 ;;9002226.02101,"1834,E0059 ",.02)

 ;;E0059

 ;;9002226.02101,"1834,E0075 ",.01)

 ;;E0075

 ;;9002226.02101,"1834,E0075 ",.02)

 ;;E0075

 ;;9002226.02101,"1834,E0209 ",.01)

 ;;E0209

 ;;9002226.02101,"1834,E0209 ",.02)

 ;;E0209

 ;;9002226.02101,"1834,E0219 ",.01)

 ;;E0219

 ;;9002226.02101,"1834,E0219 ",.02)

 ;;E0219

 ;;9002226.02101,"1834,E0233 ",.01)

 ;;E0233

 ;;9002226.02101,"1834,E0233 ",.02)

 ;;E0233

 ;;9002226.02101,"1834,E0234 ",.01)

 ;;E0234

 ;;9002226.02101,"1834,E0234 ",.02)

 ;;E0234

 ;;9002226.02101,"1834,E0250 ",.01)

 ;;E0250

 ;;9002226.02101,"1834,E0250 ",.02)

 ;;E0250

 ;;9002226.02101,"1834,E0543 ",.01)

 ;;E0543

 ;;9002226.02101,"1834,E0543 ",.02)

 ;;E0543

 ;;9002226.02101,"1834,E0544 ",.01)

 ;;E0544

 ;;9002226.02101,"1834,E0544 ",.02)

 ;;E0544

 ;;9002226.02101,"1834,F0006 ",.01)

 ;;F0006

 ;;9002226.02101,"1834,F0006 ",.02)

 ;;F0006

 ;;9002226.02101,"1834,F0067 ",.01)

 ;;F0067

 ;;9002226.02101,"1834,F0067 ",.02)

 ;;F0067

 ;;9002226.02101,"1834,F0068 ",.01)

 ;;F0068

 ;;9002226.02101,"1834,F0068 ",.02)

 ;;F0068

 ;;9002226.02101,"1834,F0499 ",.01)

 ;;F0499

 ;;9002226.02101,"1834,F0499 ",.02)

 ;;F0499

 ;;9002226.02101,"1834,I0001 ",.01)

 ;;I0001

 ;;9002226.02101,"1834,I0001 ",.02)

 ;;I0001

 ;;9002226.02101,"1834,I0002 ",.01)

 ;;I0002

 ;;9002226.02101,"1834,I0002 ",.02)

 ;;I0002

 ;;9002226.02101,"1834,I0004 ",.01)

 ;;I0004

 ;;9002226.02101,"1834,I0004 ",.02)

 ;;I0004

 ;;9002226.02101,"1834,I0005 ",.01)

 ;;I0005

 ;;9002226.02101,"1834,I0005 ",.02)

 ;;I0005

 ;;9002226.02101,"1834,I0006 ",.01)

 ;;I0006

 ;;9002226.02101,"1834,I0006 ",.02)

 ;;I0006

 ;;9002226.02101,"1834,I0019 ",.01)

 ;;I0019

 ;;9002226.02101,"1834,I0019 ",.02)

 ;;I0019

 ;;9002226.02101,"1834,I0021 ",.01)

 ;;I0021

 ;;9002226.02101,"1834,I0021 ",.02)

 ;;I0021

 ;;9002226.02101,"1834,I0022 ",.01)

 ;;I0022

 ;;9002226.02101,"1834,I0022 ",.02)

 ;;I0022

 ;;9002226.02101,"1834,I0023 ",.01)

 ;;I0023

 ;;9002226.02101,"1834,I0023 ",.02)

 ;;I0023

 ;;9002226.02101,"1834,K0007 ",.01)

 ;;K0007

 ;;9002226.02101,"1834,K0007 ",.02)

 ;;K0007

 ;;9002226.02101,"1834,K0008 ",.01)

 ;;K0008

 ;;9002226.02101,"1834,K0008 ",.02)

 ;;K0008

 ;;9002226.02101,"1834,K0018 ",.01)

 ;;K0018

 ;;9002226.02101,"1834,K0018 ",.02)

 ;;K0018

 ;;9002226.02101,"1834,M0019 ",.01)

 ;;M0019

 ;;9002226.02101,"1834,M0019 ",.02)

 ;;M0019

 ;;9002226.02101,"1834,M0169 ",.01)

 ;;M0169

 ;;9002226.02101,"1834,M0169 ",.02)

 ;;M0169

 ;;9002226.02101,"1834,M0515 ",.01)

 ;;M0515

 ;;9002226.02101,"1834,M0515 ",.02)

 ;;M0515

 ;;9002226.02101,"1834,M0544 ",.01)

 ;;M0544

 ;;9002226.02101,"1834,M0544 ",.02)

 ;;M0544

 ;;9002226.02101,"1834,M0917 ",.01)

 ;;M0917

 ;;9002226.02101,"1834,M0917 ",.02)

 ;;M0917

 ;;9002226.02101,"1834,N001 ",.01)

 ;;N001

 ;;9002226.02101,"1834,N001 ",.02)

 ;;N001

 ;;9002226.02101,"1834,N0010 ",.01)

 ;;N0010

 ;;9002226.02101,"1834,N0010 ",.02)

 ;;N0010

 ;;9002226.02101,"1834,N0011 ",.01)

 ;;N0011

 ;;9002226.02101,"1834,N0011 ",.02)

 ;;N0011

 ;;9002226.02101,"1834,N0012 ",.01)

 ;;N0012

 ;;9002226.02101,"1834,N0012 ",.02)

 ;;N0012

 ;;9002226.02101,"1834,N0013 ",.01)

 ;;N0013

 ;;9002226.02101,"1834,N0013 ",.02)

 ;;N0013

 ;;9002226.02101,"1834,N0014 ",.01)

 ;;N0014

 ;;9002226.02101,"1834,N0014 ",.02)

 ;;N0014

 ;;9002226.02101,"1834,N0015 ",.01)

 ;;N0015

 ;;9002226.02101,"1834,N0015 ",.02)

 ;;N0015

 ;;9002226.02101,"1834,N002 ",.01)

 ;;N002

 ;;9002226.02101,"1834,N002 ",.02)

 ;;N002

 ;;9002226.02101,"1834,N0249 ",.01)

 ;;N0249

 ;;9002226.02101,"1834,N0249 ",.02)

 ;;N0249

 ;;9002226.02101,"1834,N0250 ",.01)

 ;;N0250

 ;;9002226.02101,"1834,N0250 ",.02)

 ;;N0250

 ;;9002226.02101,"1834,N0268 ",.01)

 ;;N0268

 ;;9002226.02101,"1834,N0268 ",.02)

 ;;N0268

 ;;9002226.02101,"1834,N0269 ",.01)

 ;;N0269

 ;;9002226.02101,"1834,N0269 ",.02)

 ;;N0269

 ;;9002226.02101,"1834,N0604 ",.01)

 ;;N0604

 ;;9002226.02101,"1834,N0604 ",.02)

 ;;N0604

 ;;9002226.02101,"1834,O0045 ",.01)

 ;;O0045

 ;;9002226.02101,"1834,O0045 ",.02)

 ;;O0045

 ;;9002226.02101,"1834,P0073 ",.01)

 ;;P0073

 ;;9002226.02101,"1834,P0073 ",.02)

 ;;P0073

 ;;9002226.02101,"1834,P0074 ",.01)

 ;;P0074

 ;;9002226.02101,"1834,P0074 ",.02)

 ;;P0074

 ;;9002226.02101,"1834,S0059 ",.01)

 ;;S0059

 ;;9002226.02101,"1834,S0059 ",.02)

 ;;S0059

 ;;9002226.02101,"1834,S0060 ",.01)

 ;;S0060

 ;;9002226.02101,"1834,S0060 ",.02)

 ;;S0060

 ;;9002226.02101,"1834,T0073 ",.01)

 ;;T0073

 ;;9002226.02101,"1834,T0073 ",.02)

 ;;T0073

 ;;9002226.02101,"1834,T0189 ",.01)

 ;;T0189

 ;;9002226.02101,"1834,T0189 ",.02)

 ;;T0189

OTHER ; OTHER ROUTINES

BGP45S    ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 26, 2013;

 +1       ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114

 +2       ;;BGP RA OA NSAID VAPI

 +3       ;

 +4       ; This routine loads Taxonomy BGP RA OA NSAID VAPI

 +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,"C0448 ")

 +2       ;;5

 +3       ;;21,"C0827 ")

 +4       ;;2

 +5       ;;21,"C0829 ")

 +6       ;;3

 +7       ;;21,"C1076 ")

 +8       ;;4

 +9       ;;21,"C1266 ")

 +10      ;;1

 +11      ;;21,"D0061 ")

 +12      ;;13

 +13      ;;21,"D0062 ")

 +14      ;;14

 +15      ;;21,"D0063 ")

 +16      ;;15

 +17      ;;21,"D0076 ")

 +18      ;;19

 +19      ;;21,"D0262 ")

 +20      ;;8

 +21      ;;21,"D0351 ")

 +22      ;;16

 +23      ;;21,"D0437 ")

 +24      ;;17

 +25      ;;21,"D0438 ")

 +26      ;;18

 +27      ;;21,"D0585 ")

 +28      ;;12

 +29      ;;21,"D0770 ")

 +30      ;;6

 +31      ;;21,"D0788 ")

 +32      ;;10

 +33      ;;21,"D0835 ")

 +34      ;;7

 +35      ;;21,"D0853 ")

 +36      ;;9

 +37      ;;21,"D0855 ")

 +38      ;;11

 +39      ;;21,"E0059 ")

 +40      ;;20

 +41      ;;21,"E0075 ")

 +42      ;;21

 +43      ;;21,"E0209 ")

 +44      ;;22

 +45      ;;21,"E0219 ")

 +46      ;;24

 +47      ;;21,"E0233 ")

 +48      ;;26

 +49      ;;21,"E0234 ")

 +50      ;;23

 +51      ;;21,"E0250 ")

 +52      ;;25

 +53      ;;21,"E0543 ")

 +54      ;;61

 +55      ;;21,"E0544 ")

 +56      ;;62

 +57      ;;21,"F0006 ")

 +58      ;;27

 +59      ;;21,"F0067 ")

 +60      ;;29

 +61      ;;21,"F0068 ")

 +62      ;;28

 +63      ;;21,"F0499 ")

 +64      ;;35

 +65      ;;21,"I0001 ")

 +66      ;;30

 +67      ;;21,"I0002 ")

 +68      ;;31

 +69      ;;21,"I0004 ")

 +70      ;;32

 +71      ;;21,"I0005 ")

 +72      ;;33

 +73      ;;21,"I0006 ")

 +74      ;;34

 +75      ;;21,"I0019 ")

 +76      ;;36

 +77      ;;21,"I0021 ")

 +78      ;;37

 +79      ;;21,"I0022 ")

 +80      ;;38

 +81      ;;21,"I0023 ")

 +82      ;;39

 +83      ;;21,"K0007 ")

 +84      ;;40

 +85      ;;21,"K0008 ")

 +86      ;;41

 +87      ;;21,"K0018 ")

 +88      ;;42

 +89      ;;21,"M0019 ")

 +90      ;;43

 +91      ;;21,"M0169 ")

 +92      ;;47

 +93      ;;21,"M0515 ")

 +94      ;;44

 +95      ;;21,"M0544 ")

 +96      ;;46

 +97      ;;21,"M0917 ")

 +98      ;;45

 +99      ;;21,"N001 ")

 +100     ;;48

 +101     ;;21,"N0010 ")

 +102     ;;50

 +103     ;;21,"N0011 ")

 +104     ;;51

 +105     ;;21,"N0012 ")

 +106     ;;53

 +107     ;;21,"N0013 ")

 +108     ;;56

 +109     ;;21,"N0014 ")

 +110     ;;52

 +111     ;;21,"N0015 ")

 +112     ;;59

 +113     ;;21,"N002 ")

 +114     ;;49

 +115     ;;21,"N0249 ")

 +116     ;;54

 +117     ;;21,"N0250 ")

 +118     ;;57

 +119     ;;21,"N0268 ")

 +120     ;;55

 +121     ;;21,"N0269 ")

 +122     ;;58

 +123     ;;21,"N0604 ")

 +124     ;;60

 +125     ;;21,"O0045 ")

 +126     ;;63

 +127     ;;21,"P0073 ")

 +128     ;;64

 +129     ;;21,"P0074 ")

 +130     ;;65

 +131     ;;21,"S0059 ")

 +132     ;;66

 +133     ;;21,"S0060 ")

 +134     ;;67

 +135     ;;21,"T0073 ")

 +136     ;;68

 +137     ;;21,"T0189 ")

 +138     ;;69

 +139     ;;9002226,1834,.01)

 +140     ;;BGP RA OA NSAID VAPI

 +141     ;;9002226,1834,.02)

 +142     ;;INHALED STEROID VA DRUG CLASS

 +143     ;;9002226,1834,.04)

 +144     ;;@

 +145     ;;9002226,1834,.06)

 +146     ;;@

 +147     ;;9002226,1834,.08)

 +148     ;;@

 +149     ;;9002226,1834,.09)

 +150     ;;3130926

 +151     ;;9002226,1834,.11)

 +152     ;;@

 +153     ;;9002226,1834,.12)

 +154     ;;@

 +155     ;;9002226,1834,.13)

 +156     ;;1

 +157     ;;9002226,1834,.14)

 +158     ;;@

 +159     ;;9002226,1834,.15)

 +160     ;;50.68

 +161     ;;9002226,1834,.16)

 +162     ;;@

 +163     ;;9002226,1834,.17)

 +164     ;;@

 +165     ;;9002226,1834,3101)

 +166     ;;@

 +167     ;;9002226.02101,"1834,C0448 ",.01)

 +168     ;;C0448

 +169     ;;9002226.02101,"1834,C0448 ",.02)

 +170     ;;C0448

 +171     ;;9002226.02101,"1834,C0827 ",.01)

 +172     ;;C0827

 +173     ;;9002226.02101,"1834,C0827 ",.02)

 +174     ;;C0827

 +175     ;;9002226.02101,"1834,C0829 ",.01)

 +176     ;;C0829

 +177     ;;9002226.02101,"1834,C0829 ",.02)

 +178     ;;C0829

 +179     ;;9002226.02101,"1834,C1076 ",.01)

 +180     ;;C1076

 +181     ;;9002226.02101,"1834,C1076 ",.02)

 +182     ;;C1076

 +183     ;;9002226.02101,"1834,C1266 ",.01)

 +184     ;;C1266

 +185     ;;9002226.02101,"1834,C1266 ",.02)

 +186     ;;C1266

 +187     ;;9002226.02101,"1834,D0061 ",.01)

 +188     ;;D0061

 +189     ;;9002226.02101,"1834,D0061 ",.02)

 +190     ;;D0061

 +191     ;;9002226.02101,"1834,D0062 ",.01)

 +192     ;;D0062

 +193     ;;9002226.02101,"1834,D0062 ",.02)

 +194     ;;D0062

 +195     ;;9002226.02101,"1834,D0063 ",.01)

 +196     ;;D0063

 +197     ;;9002226.02101,"1834,D0063 ",.02)

 +198     ;;D0063

 +199     ;;9002226.02101,"1834,D0076 ",.01)

 +200     ;;D0076

 +201     ;;9002226.02101,"1834,D0076 ",.02)

 +202     ;;D0076

 +203     ;;9002226.02101,"1834,D0262 ",.01)

 +204     ;;D0262

 +205     ;;9002226.02101,"1834,D0262 ",.02)

 +206     ;;D0262

 +207     ;;9002226.02101,"1834,D0351 ",.01)

 +208     ;;D0351

 +209     ;;9002226.02101,"1834,D0351 ",.02)

 +210     ;;D0351

 +211     ;;9002226.02101,"1834,D0437 ",.01)

 +212     ;;D0437

 +213     ;;9002226.02101,"1834,D0437 ",.02)

 +214     ;;D0437

 +215     ;;9002226.02101,"1834,D0438 ",.01)

 +216     ;;D0438

 +217     ;;9002226.02101,"1834,D0438 ",.02)

 +218     ;;D0438

 +219     ;;9002226.02101,"1834,D0585 ",.01)

 +220     ;;D0585

 +221     ;;9002226.02101,"1834,D0585 ",.02)

 +222     ;;D0585

 +223     ;;9002226.02101,"1834,D0770 ",.01)

 +224     ;;D0770

 +225     ;;9002226.02101,"1834,D0770 ",.02)

 +226     ;;D0770

 +227     ;;9002226.02101,"1834,D0788 ",.01)

 +228     ;;D0788

 +229     ;;9002226.02101,"1834,D0788 ",.02)

 +230     ;;D0788

 +231     ;;9002226.02101,"1834,D0835 ",.01)

 +232     ;;D0835

 +233     ;;9002226.02101,"1834,D0835 ",.02)

 +234     ;;D0835

 +235     ;;9002226.02101,"1834,D0853 ",.01)

 +236     ;;D0853

 +237     ;;9002226.02101,"1834,D0853 ",.02)

 +238     ;;D0853

 +239     ;;9002226.02101,"1834,D0855 ",.01)

 +240     ;;D0855

 +241     ;;9002226.02101,"1834,D0855 ",.02)

 +242     ;;D0855

 +243     ;;9002226.02101,"1834,E0059 ",.01)

 +244     ;;E0059

 +245     ;;9002226.02101,"1834,E0059 ",.02)

 +246     ;;E0059

 +247     ;;9002226.02101,"1834,E0075 ",.01)

 +248     ;;E0075

 +249     ;;9002226.02101,"1834,E0075 ",.02)

 +250     ;;E0075

 +251     ;;9002226.02101,"1834,E0209 ",.01)

 +252     ;;E0209

 +253     ;;9002226.02101,"1834,E0209 ",.02)

 +254     ;;E0209

 +255     ;;9002226.02101,"1834,E0219 ",.01)

 +256     ;;E0219

 +257     ;;9002226.02101,"1834,E0219 ",.02)

 +258     ;;E0219

 +259     ;;9002226.02101,"1834,E0233 ",.01)

 +260     ;;E0233

 +261     ;;9002226.02101,"1834,E0233 ",.02)

 +262     ;;E0233

 +263     ;;9002226.02101,"1834,E0234 ",.01)

 +264     ;;E0234

 +265     ;;9002226.02101,"1834,E0234 ",.02)

 +266     ;;E0234

 +267     ;;9002226.02101,"1834,E0250 ",.01)

 +268     ;;E0250

 +269     ;;9002226.02101,"1834,E0250 ",.02)

 +270     ;;E0250

 +271     ;;9002226.02101,"1834,E0543 ",.01)

 +272     ;;E0543

 +273     ;;9002226.02101,"1834,E0543 ",.02)

 +274     ;;E0543

 +275     ;;9002226.02101,"1834,E0544 ",.01)

 +276     ;;E0544

 +277     ;;9002226.02101,"1834,E0544 ",.02)

 +278     ;;E0544

 +279     ;;9002226.02101,"1834,F0006 ",.01)

 +280     ;;F0006

 +281     ;;9002226.02101,"1834,F0006 ",.02)

 +282     ;;F0006

 +283     ;;9002226.02101,"1834,F0067 ",.01)

 +284     ;;F0067

 +285     ;;9002226.02101,"1834,F0067 ",.02)

 +286     ;;F0067

 +287     ;;9002226.02101,"1834,F0068 ",.01)

 +288     ;;F0068

 +289     ;;9002226.02101,"1834,F0068 ",.02)

 +290     ;;F0068

 +291     ;;9002226.02101,"1834,F0499 ",.01)

 +292     ;;F0499

 +293     ;;9002226.02101,"1834,F0499 ",.02)

 +294     ;;F0499

 +295     ;;9002226.02101,"1834,I0001 ",.01)

 +296     ;;I0001

 +297     ;;9002226.02101,"1834,I0001 ",.02)

 +298     ;;I0001

 +299     ;;9002226.02101,"1834,I0002 ",.01)

 +300     ;;I0002

 +301     ;;9002226.02101,"1834,I0002 ",.02)

 +302     ;;I0002

 +303     ;;9002226.02101,"1834,I0004 ",.01)

 +304     ;;I0004

 +305     ;;9002226.02101,"1834,I0004 ",.02)

 +306     ;;I0004

 +307     ;;9002226.02101,"1834,I0005 ",.01)

 +308     ;;I0005

 +309     ;;9002226.02101,"1834,I0005 ",.02)

 +310     ;;I0005

 +311     ;;9002226.02101,"1834,I0006 ",.01)

 +312     ;;I0006

 +313     ;;9002226.02101,"1834,I0006 ",.02)

 +314     ;;I0006

 +315     ;;9002226.02101,"1834,I0019 ",.01)

 +316     ;;I0019

 +317     ;;9002226.02101,"1834,I0019 ",.02)

 +318     ;;I0019

 +319     ;;9002226.02101,"1834,I0021 ",.01)

 +320     ;;I0021

 +321     ;;9002226.02101,"1834,I0021 ",.02)

 +322     ;;I0021

 +323     ;;9002226.02101,"1834,I0022 ",.01)

 +324     ;;I0022

 +325     ;;9002226.02101,"1834,I0022 ",.02)

 +326     ;;I0022

 +327     ;;9002226.02101,"1834,I0023 ",.01)

 +328     ;;I0023

 +329     ;;9002226.02101,"1834,I0023 ",.02)

 +330     ;;I0023

 +331     ;;9002226.02101,"1834,K0007 ",.01)

 +332     ;;K0007

 +333     ;;9002226.02101,"1834,K0007 ",.02)

 +334     ;;K0007

 +335     ;;9002226.02101,"1834,K0008 ",.01)

 +336     ;;K0008

 +337     ;;9002226.02101,"1834,K0008 ",.02)

 +338     ;;K0008

 +339     ;;9002226.02101,"1834,K0018 ",.01)

 +340     ;;K0018

 +341     ;;9002226.02101,"1834,K0018 ",.02)

 +342     ;;K0018

 +343     ;;9002226.02101,"1834,M0019 ",.01)

 +344     ;;M0019

 +345     ;;9002226.02101,"1834,M0019 ",.02)

 +346     ;;M0019

 +347     ;;9002226.02101,"1834,M0169 ",.01)

 +348     ;;M0169

 +349     ;;9002226.02101,"1834,M0169 ",.02)

 +350     ;;M0169

 +351     ;;9002226.02101,"1834,M0515 ",.01)

 +352     ;;M0515

 +353     ;;9002226.02101,"1834,M0515 ",.02)

 +354     ;;M0515

 +355     ;;9002226.02101,"1834,M0544 ",.01)

 +356     ;;M0544

 +357     ;;9002226.02101,"1834,M0544 ",.02)

 +358     ;;M0544

 +359     ;;9002226.02101,"1834,M0917 ",.01)

 +360     ;;M0917

 +361     ;;9002226.02101,"1834,M0917 ",.02)

 +362     ;;M0917

 +363     ;;9002226.02101,"1834,N001 ",.01)

 +364     ;;N001

 +365     ;;9002226.02101,"1834,N001 ",.02)

 +366     ;;N001

 +367     ;;9002226.02101,"1834,N0010 ",.01)

 +368     ;;N0010

 +369     ;;9002226.02101,"1834,N0010 ",.02)

 +370     ;;N0010

 +371     ;;9002226.02101,"1834,N0011 ",.01)

 +372     ;;N0011

 +373     ;;9002226.02101,"1834,N0011 ",.02)

 +374     ;;N0011

 +375     ;;9002226.02101,"1834,N0012 ",.01)

 +376     ;;N0012

 +377     ;;9002226.02101,"1834,N0012 ",.02)

 +378     ;;N0012

 +379     ;;9002226.02101,"1834,N0013 ",.01)

 +380     ;;N0013

 +381     ;;9002226.02101,"1834,N0013 ",.02)

 +382     ;;N0013

 +383     ;;9002226.02101,"1834,N0014 ",.01)

 +384     ;;N0014

 +385     ;;9002226.02101,"1834,N0014 ",.02)

 +386     ;;N0014

 +387     ;;9002226.02101,"1834,N0015 ",.01)

 +388     ;;N0015

 +389     ;;9002226.02101,"1834,N0015 ",.02)

 +390     ;;N0015

 +391     ;;9002226.02101,"1834,N002 ",.01)

 +392     ;;N002

 +393     ;;9002226.02101,"1834,N002 ",.02)

 +394     ;;N002

 +395     ;;9002226.02101,"1834,N0249 ",.01)

 +396     ;;N0249

 +397     ;;9002226.02101,"1834,N0249 ",.02)

 +398     ;;N0249

 +399     ;;9002226.02101,"1834,N0250 ",.01)

 +400     ;;N0250

 +401     ;;9002226.02101,"1834,N0250 ",.02)

 +402     ;;N0250

 +403     ;;9002226.02101,"1834,N0268 ",.01)

 +404     ;;N0268

 +405     ;;9002226.02101,"1834,N0268 ",.02)

 +406     ;;N0268

 +407     ;;9002226.02101,"1834,N0269 ",.01)

 +408     ;;N0269

 +409     ;;9002226.02101,"1834,N0269 ",.02)

 +410     ;;N0269

 +411     ;;9002226.02101,"1834,N0604 ",.01)

 +412     ;;N0604

 +413     ;;9002226.02101,"1834,N0604 ",.02)

 +414     ;;N0604

 +415     ;;9002226.02101,"1834,O0045 ",.01)

 +416     ;;O0045

 +417     ;;9002226.02101,"1834,O0045 ",.02)

 +418     ;;O0045

 +419     ;;9002226.02101,"1834,P0073 ",.01)

 +420     ;;P0073

 +421     ;;9002226.02101,"1834,P0073 ",.02)

 +422     ;;P0073

 +423     ;;9002226.02101,"1834,P0074 ",.01)

 +424     ;;P0074

 +425     ;;9002226.02101,"1834,P0074 ",.02)

 +426     ;;P0074

 +427     ;;9002226.02101,"1834,S0059 ",.01)

 +428     ;;S0059

 +429     ;;9002226.02101,"1834,S0059 ",.02)

 +430     ;;S0059

 +431     ;;9002226.02101,"1834,S0060 ",.01)

 +432     ;;S0060

 +433     ;;9002226.02101,"1834,S0060 ",.02)

 +434     ;;S0060

 +435     ;;9002226.02101,"1834,T0073 ",.01)

 +436     ;;T0073

 +437     ;;9002226.02101,"1834,T0073 ",.02)

 +438     ;;T0073

 +439     ;;9002226.02101,"1834,T0189 ",.01)

 +440     ;;T0189

 +441     ;;9002226.02101,"1834,T0189 ",.02)

 +442     ;;T0189

 +443     ;

OTHER     ; OTHER ROUTINES

 +1        QUIT

BGP45S.m