BGP2VO ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 2012;
;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
;;BGP HEDIS ANTIPSYCHOTIC NDC
;
; This routine loads Taxonomy BGP HEDIS ANTIPSYCHOTIC NDC
;
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,"00247-0800-07 ")
;;1
;;21,"00247-0800-14 ")
;;2
;;21,"00247-0800-30 ")
;;3
;;21,"00247-0801-07 ")
;;32
;;21,"00247-0801-14 ")
;;33
;;21,"00247-0801-30 ")
;;34
;;21,"00247-0802-07 ")
;;47
;;21,"00247-0802-14 ")
;;48
;;21,"00247-0802-30 ")
;;49
;;21,"00378-0612-01 ")
;;4
;;21,"00378-0612-10 ")
;;5
;;21,"00378-0614-01 ")
;;35
;;21,"00378-0614-10 ")
;;36
;;21,"00378-0616-01 ")
;;50
;;21,"00378-0616-10 ")
;;51
;;21,"00378-0618-01 ")
;;16
;;21,"00781-1674-01 ")
;;31
;;21,"00904-1614-60 ")
;;6
;;21,"51079-0565-01 ")
;;7
;;21,"51079-0565-20 ")
;;8
;;21,"51079-0566-01 ")
;;37
;;21,"51079-0566-20 ")
;;38
;;21,"51079-0567-01 ")
;;52
;;21,"51079-0567-20 ")
;;53
;;21,"51079-0580-01 ")
;;17
;;21,"51079-0580-20 ")
;;18
;;21,"53489-0148-01 ")
;;9
;;21,"53489-0148-10 ")
;;10
;;21,"53489-0149-01 ")
;;39
;;21,"53489-0149-10 ")
;;40
;;21,"53489-0150-01 ")
;;54
;;21,"53489-0150-10 ")
;;55
;;21,"53489-0500-01 ")
;;19
;;21,"54868-0067-00 ")
;;41
;;21,"54868-0067-04 ")
;;42
;;21,"54868-0067-05 ")
;;43
;;21,"54868-1828-00 ")
;;20
;;21,"54868-1828-02 ")
;;21
;;21,"54868-1832-00 ")
;;56
;;21,"54868-1832-02 ")
;;57
;;21,"54868-1832-03 ")
;;58
;;21,"57866-1042-01 ")
;;11
;;21,"61392-0462-15 ")
;;12
;;21,"61392-0462-45 ")
;;13
;;21,"61392-0462-56 ")
;;14
;;21,"61392-0462-91 ")
;;15
;;21,"61392-0463-45 ")
;;44
;;21,"61392-0463-54 ")
;;45
;;21,"61392-0463-91 ")
;;46
;;21,"61392-0464-30 ")
;;59
;;21,"61392-0464-31 ")
;;60
;;21,"61392-0464-32 ")
;;61
;;21,"61392-0464-39 ")
;;62
;;21,"61392-0464-45 ")
;;63
;;21,"61392-0464-51 ")
;;64
;;21,"61392-0464-54 ")
;;65
;;21,"61392-0464-60 ")
;;66
;;21,"61392-0464-90 ")
;;67
;;21,"61392-0464-91 ")
;;68
;;21,"61392-0465-30 ")
;;22
;;21,"61392-0465-31 ")
;;23
;;21,"61392-0465-32 ")
;;24
;;21,"61392-0465-39 ")
;;25
;;21,"61392-0465-45 ")
;;26
;;21,"61392-0465-51 ")
;;27
;;21,"61392-0465-54 ")
;;28
;;21,"61392-0465-60 ")
;;29
;;21,"61392-0465-90 ")
;;30
;;9002226,716,.01)
;;BGP HEDIS ANTIPSYCHOTIC NDC
;;9002226,716,.02)
;;@
;;9002226,716,.04)
;;n
;;9002226,716,.06)
;;@
;;9002226,716,.08)
;;@
;;9002226,716,.09)
;;3120312
;;9002226,716,.11)
;;@
;;9002226,716,.12)
;;@
;;9002226,716,.13)
;;1
;;9002226,716,.14)
;;@
;;9002226,716,.15)
;;@
;;9002226,716,.16)
;;@
;;9002226,716,.17)
;;@
;;9002226,716,3101)
;;@
;;9002226.02101,"716,00247-0800-07 ",.01)
;;00247-0800-07
;;9002226.02101,"716,00247-0800-07 ",.02)
;;00247-0800-07
;;9002226.02101,"716,00247-0800-14 ",.01)
;;00247-0800-14
;;9002226.02101,"716,00247-0800-14 ",.02)
;;00247-0800-14
;;9002226.02101,"716,00247-0800-30 ",.01)
;;00247-0800-30
;;9002226.02101,"716,00247-0800-30 ",.02)
;;00247-0800-30
;;9002226.02101,"716,00247-0801-07 ",.01)
;;00247-0801-07
;;9002226.02101,"716,00247-0801-07 ",.02)
;;00247-0801-07
;;9002226.02101,"716,00247-0801-14 ",.01)
;;00247-0801-14
;;9002226.02101,"716,00247-0801-14 ",.02)
;;00247-0801-14
;;9002226.02101,"716,00247-0801-30 ",.01)
;;00247-0801-30
;;9002226.02101,"716,00247-0801-30 ",.02)
;;00247-0801-30
;;9002226.02101,"716,00247-0802-07 ",.01)
;;00247-0802-07
;;9002226.02101,"716,00247-0802-07 ",.02)
;;00247-0802-07
;;9002226.02101,"716,00247-0802-14 ",.01)
;;00247-0802-14
;;9002226.02101,"716,00247-0802-14 ",.02)
;;00247-0802-14
;;9002226.02101,"716,00247-0802-30 ",.01)
;;00247-0802-30
;;9002226.02101,"716,00247-0802-30 ",.02)
;;00247-0802-30
;;9002226.02101,"716,00378-0612-01 ",.01)
;;00378-0612-01
;;9002226.02101,"716,00378-0612-01 ",.02)
;;00378-0612-01
;;9002226.02101,"716,00378-0612-10 ",.01)
;;00378-0612-10
;;9002226.02101,"716,00378-0612-10 ",.02)
;;00378-0612-10
;;9002226.02101,"716,00378-0614-01 ",.01)
;;00378-0614-01
;;9002226.02101,"716,00378-0614-01 ",.02)
;;00378-0614-01
;;9002226.02101,"716,00378-0614-10 ",.01)
;;00378-0614-10
;;9002226.02101,"716,00378-0614-10 ",.02)
;;00378-0614-10
;;9002226.02101,"716,00378-0616-01 ",.01)
;;00378-0616-01
;;9002226.02101,"716,00378-0616-01 ",.02)
;;00378-0616-01
;;9002226.02101,"716,00378-0616-10 ",.01)
;;00378-0616-10
;;9002226.02101,"716,00378-0616-10 ",.02)
;;00378-0616-10
;;9002226.02101,"716,00378-0618-01 ",.01)
;;00378-0618-01
;;9002226.02101,"716,00378-0618-01 ",.02)
;;00378-0618-01
;;9002226.02101,"716,00781-1674-01 ",.01)
;;00781-1674-01
;;9002226.02101,"716,00781-1674-01 ",.02)
;;00781-1674-01
;;9002226.02101,"716,00904-1614-60 ",.01)
;;00904-1614-60
;;9002226.02101,"716,00904-1614-60 ",.02)
;;00904-1614-60
;;9002226.02101,"716,51079-0565-01 ",.01)
;;51079-0565-01
;;9002226.02101,"716,51079-0565-01 ",.02)
;;51079-0565-01
;;9002226.02101,"716,51079-0565-20 ",.01)
;;51079-0565-20
;;9002226.02101,"716,51079-0565-20 ",.02)
;;51079-0565-20
;;9002226.02101,"716,51079-0566-01 ",.01)
;;51079-0566-01
;;9002226.02101,"716,51079-0566-01 ",.02)
;;51079-0566-01
;;9002226.02101,"716,51079-0566-20 ",.01)
;;51079-0566-20
;;9002226.02101,"716,51079-0566-20 ",.02)
;;51079-0566-20
;;9002226.02101,"716,51079-0567-01 ",.01)
;;51079-0567-01
;;9002226.02101,"716,51079-0567-01 ",.02)
;;51079-0567-01
;;9002226.02101,"716,51079-0567-20 ",.01)
;;51079-0567-20
;;9002226.02101,"716,51079-0567-20 ",.02)
;;51079-0567-20
;;9002226.02101,"716,51079-0580-01 ",.01)
;;51079-0580-01
;;9002226.02101,"716,51079-0580-01 ",.02)
;;51079-0580-01
;;9002226.02101,"716,51079-0580-20 ",.01)
;;51079-0580-20
;;9002226.02101,"716,51079-0580-20 ",.02)
;;51079-0580-20
;;9002226.02101,"716,53489-0148-01 ",.01)
;;53489-0148-01
;;9002226.02101,"716,53489-0148-01 ",.02)
;;53489-0148-01
;;9002226.02101,"716,53489-0148-10 ",.01)
;;53489-0148-10
;;9002226.02101,"716,53489-0148-10 ",.02)
;;53489-0148-10
;;9002226.02101,"716,53489-0149-01 ",.01)
;;53489-0149-01
;;9002226.02101,"716,53489-0149-01 ",.02)
;;53489-0149-01
;;9002226.02101,"716,53489-0149-10 ",.01)
;;53489-0149-10
;;9002226.02101,"716,53489-0149-10 ",.02)
;;53489-0149-10
;;9002226.02101,"716,53489-0150-01 ",.01)
;;53489-0150-01
;;9002226.02101,"716,53489-0150-01 ",.02)
;;53489-0150-01
;;9002226.02101,"716,53489-0150-10 ",.01)
;;53489-0150-10
;;9002226.02101,"716,53489-0150-10 ",.02)
;;53489-0150-10
;;9002226.02101,"716,53489-0500-01 ",.01)
;;53489-0500-01
;;9002226.02101,"716,53489-0500-01 ",.02)
;;53489-0500-01
;;9002226.02101,"716,54868-0067-00 ",.01)
;;54868-0067-00
;;9002226.02101,"716,54868-0067-00 ",.02)
;;54868-0067-00
;;9002226.02101,"716,54868-0067-04 ",.01)
;;54868-0067-04
;;9002226.02101,"716,54868-0067-04 ",.02)
;;54868-0067-04
;;9002226.02101,"716,54868-0067-05 ",.01)
;;54868-0067-05
;;9002226.02101,"716,54868-0067-05 ",.02)
;;54868-0067-05
;;9002226.02101,"716,54868-1828-00 ",.01)
;;54868-1828-00
;;9002226.02101,"716,54868-1828-00 ",.02)
;;54868-1828-00
;;9002226.02101,"716,54868-1828-02 ",.01)
;;54868-1828-02
;;9002226.02101,"716,54868-1828-02 ",.02)
;;54868-1828-02
;;9002226.02101,"716,54868-1832-00 ",.01)
;;54868-1832-00
;;9002226.02101,"716,54868-1832-00 ",.02)
;;54868-1832-00
;;9002226.02101,"716,54868-1832-02 ",.01)
;;54868-1832-02
;;9002226.02101,"716,54868-1832-02 ",.02)
;;54868-1832-02
;;9002226.02101,"716,54868-1832-03 ",.01)
;;54868-1832-03
;;9002226.02101,"716,54868-1832-03 ",.02)
;;54868-1832-03
;;9002226.02101,"716,57866-1042-01 ",.01)
;;57866-1042-01
;;9002226.02101,"716,57866-1042-01 ",.02)
;;57866-1042-01
;;9002226.02101,"716,61392-0462-15 ",.01)
;;61392-0462-15
;;9002226.02101,"716,61392-0462-15 ",.02)
;;61392-0462-15
;;9002226.02101,"716,61392-0462-45 ",.01)
;;61392-0462-45
;;9002226.02101,"716,61392-0462-45 ",.02)
;;61392-0462-45
;;9002226.02101,"716,61392-0462-56 ",.01)
;;61392-0462-56
;;9002226.02101,"716,61392-0462-56 ",.02)
;;61392-0462-56
;;9002226.02101,"716,61392-0462-91 ",.01)
;;61392-0462-91
;;9002226.02101,"716,61392-0462-91 ",.02)
;;61392-0462-91
;;9002226.02101,"716,61392-0463-45 ",.01)
;;61392-0463-45
;;9002226.02101,"716,61392-0463-45 ",.02)
;;61392-0463-45
;;9002226.02101,"716,61392-0463-54 ",.01)
;;61392-0463-54
;;9002226.02101,"716,61392-0463-54 ",.02)
;;61392-0463-54
;;9002226.02101,"716,61392-0463-91 ",.01)
;;61392-0463-91
;;9002226.02101,"716,61392-0463-91 ",.02)
;;61392-0463-91
;;9002226.02101,"716,61392-0464-30 ",.01)
;;61392-0464-30
;;9002226.02101,"716,61392-0464-30 ",.02)
;;61392-0464-30
;;9002226.02101,"716,61392-0464-31 ",.01)
;;61392-0464-31
;;9002226.02101,"716,61392-0464-31 ",.02)
;;61392-0464-31
;;9002226.02101,"716,61392-0464-32 ",.01)
;;61392-0464-32
;;9002226.02101,"716,61392-0464-32 ",.02)
;;61392-0464-32
;;9002226.02101,"716,61392-0464-39 ",.01)
;;61392-0464-39
;;9002226.02101,"716,61392-0464-39 ",.02)
;;61392-0464-39
;;9002226.02101,"716,61392-0464-45 ",.01)
;;61392-0464-45
;;9002226.02101,"716,61392-0464-45 ",.02)
;;61392-0464-45
;;9002226.02101,"716,61392-0464-51 ",.01)
;;61392-0464-51
;;9002226.02101,"716,61392-0464-51 ",.02)
;;61392-0464-51
;;9002226.02101,"716,61392-0464-54 ",.01)
;;61392-0464-54
;;9002226.02101,"716,61392-0464-54 ",.02)
;;61392-0464-54
;;9002226.02101,"716,61392-0464-60 ",.01)
;;61392-0464-60
;;9002226.02101,"716,61392-0464-60 ",.02)
;;61392-0464-60
;;9002226.02101,"716,61392-0464-90 ",.01)
;;61392-0464-90
;;9002226.02101,"716,61392-0464-90 ",.02)
;;61392-0464-90
;;9002226.02101,"716,61392-0464-91 ",.01)
;;61392-0464-91
;;9002226.02101,"716,61392-0464-91 ",.02)
;;61392-0464-91
;;9002226.02101,"716,61392-0465-30 ",.01)
;;61392-0465-30
;;9002226.02101,"716,61392-0465-30 ",.02)
;;61392-0465-30
;;9002226.02101,"716,61392-0465-31 ",.01)
;;61392-0465-31
;;9002226.02101,"716,61392-0465-31 ",.02)
;;61392-0465-31
;;9002226.02101,"716,61392-0465-32 ",.01)
;;61392-0465-32
;;9002226.02101,"716,61392-0465-32 ",.02)
;;61392-0465-32
;;9002226.02101,"716,61392-0465-39 ",.01)
;;61392-0465-39
;;9002226.02101,"716,61392-0465-39 ",.02)
;;61392-0465-39
;;9002226.02101,"716,61392-0465-45 ",.01)
;;61392-0465-45
;;9002226.02101,"716,61392-0465-45 ",.02)
;;61392-0465-45
;;9002226.02101,"716,61392-0465-51 ",.01)
;;61392-0465-51
;;9002226.02101,"716,61392-0465-51 ",.02)
;;61392-0465-51
;;9002226.02101,"716,61392-0465-54 ",.01)
;;61392-0465-54
;;9002226.02101,"716,61392-0465-54 ",.02)
;;61392-0465-54
;;9002226.02101,"716,61392-0465-60 ",.01)
;;61392-0465-60
;;9002226.02101,"716,61392-0465-60 ",.02)
;;61392-0465-60
;;9002226.02101,"716,61392-0465-90 ",.01)
;;61392-0465-90
;;9002226.02101,"716,61392-0465-90 ",.02)
;;61392-0465-90
;
OTHER ; OTHER ROUTINES
Q
BGP2VO ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 2012;
+1 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
+2 ;;BGP HEDIS ANTIPSYCHOTIC NDC
+3 ;
+4 ; This routine loads Taxonomy BGP HEDIS ANTIPSYCHOTIC NDC
+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,"00247-0800-07 ")
+2 ;;1
+3 ;;21,"00247-0800-14 ")
+4 ;;2
+5 ;;21,"00247-0800-30 ")
+6 ;;3
+7 ;;21,"00247-0801-07 ")
+8 ;;32
+9 ;;21,"00247-0801-14 ")
+10 ;;33
+11 ;;21,"00247-0801-30 ")
+12 ;;34
+13 ;;21,"00247-0802-07 ")
+14 ;;47
+15 ;;21,"00247-0802-14 ")
+16 ;;48
+17 ;;21,"00247-0802-30 ")
+18 ;;49
+19 ;;21,"00378-0612-01 ")
+20 ;;4
+21 ;;21,"00378-0612-10 ")
+22 ;;5
+23 ;;21,"00378-0614-01 ")
+24 ;;35
+25 ;;21,"00378-0614-10 ")
+26 ;;36
+27 ;;21,"00378-0616-01 ")
+28 ;;50
+29 ;;21,"00378-0616-10 ")
+30 ;;51
+31 ;;21,"00378-0618-01 ")
+32 ;;16
+33 ;;21,"00781-1674-01 ")
+34 ;;31
+35 ;;21,"00904-1614-60 ")
+36 ;;6
+37 ;;21,"51079-0565-01 ")
+38 ;;7
+39 ;;21,"51079-0565-20 ")
+40 ;;8
+41 ;;21,"51079-0566-01 ")
+42 ;;37
+43 ;;21,"51079-0566-20 ")
+44 ;;38
+45 ;;21,"51079-0567-01 ")
+46 ;;52
+47 ;;21,"51079-0567-20 ")
+48 ;;53
+49 ;;21,"51079-0580-01 ")
+50 ;;17
+51 ;;21,"51079-0580-20 ")
+52 ;;18
+53 ;;21,"53489-0148-01 ")
+54 ;;9
+55 ;;21,"53489-0148-10 ")
+56 ;;10
+57 ;;21,"53489-0149-01 ")
+58 ;;39
+59 ;;21,"53489-0149-10 ")
+60 ;;40
+61 ;;21,"53489-0150-01 ")
+62 ;;54
+63 ;;21,"53489-0150-10 ")
+64 ;;55
+65 ;;21,"53489-0500-01 ")
+66 ;;19
+67 ;;21,"54868-0067-00 ")
+68 ;;41
+69 ;;21,"54868-0067-04 ")
+70 ;;42
+71 ;;21,"54868-0067-05 ")
+72 ;;43
+73 ;;21,"54868-1828-00 ")
+74 ;;20
+75 ;;21,"54868-1828-02 ")
+76 ;;21
+77 ;;21,"54868-1832-00 ")
+78 ;;56
+79 ;;21,"54868-1832-02 ")
+80 ;;57
+81 ;;21,"54868-1832-03 ")
+82 ;;58
+83 ;;21,"57866-1042-01 ")
+84 ;;11
+85 ;;21,"61392-0462-15 ")
+86 ;;12
+87 ;;21,"61392-0462-45 ")
+88 ;;13
+89 ;;21,"61392-0462-56 ")
+90 ;;14
+91 ;;21,"61392-0462-91 ")
+92 ;;15
+93 ;;21,"61392-0463-45 ")
+94 ;;44
+95 ;;21,"61392-0463-54 ")
+96 ;;45
+97 ;;21,"61392-0463-91 ")
+98 ;;46
+99 ;;21,"61392-0464-30 ")
+100 ;;59
+101 ;;21,"61392-0464-31 ")
+102 ;;60
+103 ;;21,"61392-0464-32 ")
+104 ;;61
+105 ;;21,"61392-0464-39 ")
+106 ;;62
+107 ;;21,"61392-0464-45 ")
+108 ;;63
+109 ;;21,"61392-0464-51 ")
+110 ;;64
+111 ;;21,"61392-0464-54 ")
+112 ;;65
+113 ;;21,"61392-0464-60 ")
+114 ;;66
+115 ;;21,"61392-0464-90 ")
+116 ;;67
+117 ;;21,"61392-0464-91 ")
+118 ;;68
+119 ;;21,"61392-0465-30 ")
+120 ;;22
+121 ;;21,"61392-0465-31 ")
+122 ;;23
+123 ;;21,"61392-0465-32 ")
+124 ;;24
+125 ;;21,"61392-0465-39 ")
+126 ;;25
+127 ;;21,"61392-0465-45 ")
+128 ;;26
+129 ;;21,"61392-0465-51 ")
+130 ;;27
+131 ;;21,"61392-0465-54 ")
+132 ;;28
+133 ;;21,"61392-0465-60 ")
+134 ;;29
+135 ;;21,"61392-0465-90 ")
+136 ;;30
+137 ;;9002226,716,.01)
+138 ;;BGP HEDIS ANTIPSYCHOTIC NDC
+139 ;;9002226,716,.02)
+140 ;;@
+141 ;;9002226,716,.04)
+142 ;;n
+143 ;;9002226,716,.06)
+144 ;;@
+145 ;;9002226,716,.08)
+146 ;;@
+147 ;;9002226,716,.09)
+148 ;;3120312
+149 ;;9002226,716,.11)
+150 ;;@
+151 ;;9002226,716,.12)
+152 ;;@
+153 ;;9002226,716,.13)
+154 ;;1
+155 ;;9002226,716,.14)
+156 ;;@
+157 ;;9002226,716,.15)
+158 ;;@
+159 ;;9002226,716,.16)
+160 ;;@
+161 ;;9002226,716,.17)
+162 ;;@
+163 ;;9002226,716,3101)
+164 ;;@
+165 ;;9002226.02101,"716,00247-0800-07 ",.01)
+166 ;;00247-0800-07
+167 ;;9002226.02101,"716,00247-0800-07 ",.02)
+168 ;;00247-0800-07
+169 ;;9002226.02101,"716,00247-0800-14 ",.01)
+170 ;;00247-0800-14
+171 ;;9002226.02101,"716,00247-0800-14 ",.02)
+172 ;;00247-0800-14
+173 ;;9002226.02101,"716,00247-0800-30 ",.01)
+174 ;;00247-0800-30
+175 ;;9002226.02101,"716,00247-0800-30 ",.02)
+176 ;;00247-0800-30
+177 ;;9002226.02101,"716,00247-0801-07 ",.01)
+178 ;;00247-0801-07
+179 ;;9002226.02101,"716,00247-0801-07 ",.02)
+180 ;;00247-0801-07
+181 ;;9002226.02101,"716,00247-0801-14 ",.01)
+182 ;;00247-0801-14
+183 ;;9002226.02101,"716,00247-0801-14 ",.02)
+184 ;;00247-0801-14
+185 ;;9002226.02101,"716,00247-0801-30 ",.01)
+186 ;;00247-0801-30
+187 ;;9002226.02101,"716,00247-0801-30 ",.02)
+188 ;;00247-0801-30
+189 ;;9002226.02101,"716,00247-0802-07 ",.01)
+190 ;;00247-0802-07
+191 ;;9002226.02101,"716,00247-0802-07 ",.02)
+192 ;;00247-0802-07
+193 ;;9002226.02101,"716,00247-0802-14 ",.01)
+194 ;;00247-0802-14
+195 ;;9002226.02101,"716,00247-0802-14 ",.02)
+196 ;;00247-0802-14
+197 ;;9002226.02101,"716,00247-0802-30 ",.01)
+198 ;;00247-0802-30
+199 ;;9002226.02101,"716,00247-0802-30 ",.02)
+200 ;;00247-0802-30
+201 ;;9002226.02101,"716,00378-0612-01 ",.01)
+202 ;;00378-0612-01
+203 ;;9002226.02101,"716,00378-0612-01 ",.02)
+204 ;;00378-0612-01
+205 ;;9002226.02101,"716,00378-0612-10 ",.01)
+206 ;;00378-0612-10
+207 ;;9002226.02101,"716,00378-0612-10 ",.02)
+208 ;;00378-0612-10
+209 ;;9002226.02101,"716,00378-0614-01 ",.01)
+210 ;;00378-0614-01
+211 ;;9002226.02101,"716,00378-0614-01 ",.02)
+212 ;;00378-0614-01
+213 ;;9002226.02101,"716,00378-0614-10 ",.01)
+214 ;;00378-0614-10
+215 ;;9002226.02101,"716,00378-0614-10 ",.02)
+216 ;;00378-0614-10
+217 ;;9002226.02101,"716,00378-0616-01 ",.01)
+218 ;;00378-0616-01
+219 ;;9002226.02101,"716,00378-0616-01 ",.02)
+220 ;;00378-0616-01
+221 ;;9002226.02101,"716,00378-0616-10 ",.01)
+222 ;;00378-0616-10
+223 ;;9002226.02101,"716,00378-0616-10 ",.02)
+224 ;;00378-0616-10
+225 ;;9002226.02101,"716,00378-0618-01 ",.01)
+226 ;;00378-0618-01
+227 ;;9002226.02101,"716,00378-0618-01 ",.02)
+228 ;;00378-0618-01
+229 ;;9002226.02101,"716,00781-1674-01 ",.01)
+230 ;;00781-1674-01
+231 ;;9002226.02101,"716,00781-1674-01 ",.02)
+232 ;;00781-1674-01
+233 ;;9002226.02101,"716,00904-1614-60 ",.01)
+234 ;;00904-1614-60
+235 ;;9002226.02101,"716,00904-1614-60 ",.02)
+236 ;;00904-1614-60
+237 ;;9002226.02101,"716,51079-0565-01 ",.01)
+238 ;;51079-0565-01
+239 ;;9002226.02101,"716,51079-0565-01 ",.02)
+240 ;;51079-0565-01
+241 ;;9002226.02101,"716,51079-0565-20 ",.01)
+242 ;;51079-0565-20
+243 ;;9002226.02101,"716,51079-0565-20 ",.02)
+244 ;;51079-0565-20
+245 ;;9002226.02101,"716,51079-0566-01 ",.01)
+246 ;;51079-0566-01
+247 ;;9002226.02101,"716,51079-0566-01 ",.02)
+248 ;;51079-0566-01
+249 ;;9002226.02101,"716,51079-0566-20 ",.01)
+250 ;;51079-0566-20
+251 ;;9002226.02101,"716,51079-0566-20 ",.02)
+252 ;;51079-0566-20
+253 ;;9002226.02101,"716,51079-0567-01 ",.01)
+254 ;;51079-0567-01
+255 ;;9002226.02101,"716,51079-0567-01 ",.02)
+256 ;;51079-0567-01
+257 ;;9002226.02101,"716,51079-0567-20 ",.01)
+258 ;;51079-0567-20
+259 ;;9002226.02101,"716,51079-0567-20 ",.02)
+260 ;;51079-0567-20
+261 ;;9002226.02101,"716,51079-0580-01 ",.01)
+262 ;;51079-0580-01
+263 ;;9002226.02101,"716,51079-0580-01 ",.02)
+264 ;;51079-0580-01
+265 ;;9002226.02101,"716,51079-0580-20 ",.01)
+266 ;;51079-0580-20
+267 ;;9002226.02101,"716,51079-0580-20 ",.02)
+268 ;;51079-0580-20
+269 ;;9002226.02101,"716,53489-0148-01 ",.01)
+270 ;;53489-0148-01
+271 ;;9002226.02101,"716,53489-0148-01 ",.02)
+272 ;;53489-0148-01
+273 ;;9002226.02101,"716,53489-0148-10 ",.01)
+274 ;;53489-0148-10
+275 ;;9002226.02101,"716,53489-0148-10 ",.02)
+276 ;;53489-0148-10
+277 ;;9002226.02101,"716,53489-0149-01 ",.01)
+278 ;;53489-0149-01
+279 ;;9002226.02101,"716,53489-0149-01 ",.02)
+280 ;;53489-0149-01
+281 ;;9002226.02101,"716,53489-0149-10 ",.01)
+282 ;;53489-0149-10
+283 ;;9002226.02101,"716,53489-0149-10 ",.02)
+284 ;;53489-0149-10
+285 ;;9002226.02101,"716,53489-0150-01 ",.01)
+286 ;;53489-0150-01
+287 ;;9002226.02101,"716,53489-0150-01 ",.02)
+288 ;;53489-0150-01
+289 ;;9002226.02101,"716,53489-0150-10 ",.01)
+290 ;;53489-0150-10
+291 ;;9002226.02101,"716,53489-0150-10 ",.02)
+292 ;;53489-0150-10
+293 ;;9002226.02101,"716,53489-0500-01 ",.01)
+294 ;;53489-0500-01
+295 ;;9002226.02101,"716,53489-0500-01 ",.02)
+296 ;;53489-0500-01
+297 ;;9002226.02101,"716,54868-0067-00 ",.01)
+298 ;;54868-0067-00
+299 ;;9002226.02101,"716,54868-0067-00 ",.02)
+300 ;;54868-0067-00
+301 ;;9002226.02101,"716,54868-0067-04 ",.01)
+302 ;;54868-0067-04
+303 ;;9002226.02101,"716,54868-0067-04 ",.02)
+304 ;;54868-0067-04
+305 ;;9002226.02101,"716,54868-0067-05 ",.01)
+306 ;;54868-0067-05
+307 ;;9002226.02101,"716,54868-0067-05 ",.02)
+308 ;;54868-0067-05
+309 ;;9002226.02101,"716,54868-1828-00 ",.01)
+310 ;;54868-1828-00
+311 ;;9002226.02101,"716,54868-1828-00 ",.02)
+312 ;;54868-1828-00
+313 ;;9002226.02101,"716,54868-1828-02 ",.01)
+314 ;;54868-1828-02
+315 ;;9002226.02101,"716,54868-1828-02 ",.02)
+316 ;;54868-1828-02
+317 ;;9002226.02101,"716,54868-1832-00 ",.01)
+318 ;;54868-1832-00
+319 ;;9002226.02101,"716,54868-1832-00 ",.02)
+320 ;;54868-1832-00
+321 ;;9002226.02101,"716,54868-1832-02 ",.01)
+322 ;;54868-1832-02
+323 ;;9002226.02101,"716,54868-1832-02 ",.02)
+324 ;;54868-1832-02
+325 ;;9002226.02101,"716,54868-1832-03 ",.01)
+326 ;;54868-1832-03
+327 ;;9002226.02101,"716,54868-1832-03 ",.02)
+328 ;;54868-1832-03
+329 ;;9002226.02101,"716,57866-1042-01 ",.01)
+330 ;;57866-1042-01
+331 ;;9002226.02101,"716,57866-1042-01 ",.02)
+332 ;;57866-1042-01
+333 ;;9002226.02101,"716,61392-0462-15 ",.01)
+334 ;;61392-0462-15
+335 ;;9002226.02101,"716,61392-0462-15 ",.02)
+336 ;;61392-0462-15
+337 ;;9002226.02101,"716,61392-0462-45 ",.01)
+338 ;;61392-0462-45
+339 ;;9002226.02101,"716,61392-0462-45 ",.02)
+340 ;;61392-0462-45
+341 ;;9002226.02101,"716,61392-0462-56 ",.01)
+342 ;;61392-0462-56
+343 ;;9002226.02101,"716,61392-0462-56 ",.02)
+344 ;;61392-0462-56
+345 ;;9002226.02101,"716,61392-0462-91 ",.01)
+346 ;;61392-0462-91
+347 ;;9002226.02101,"716,61392-0462-91 ",.02)
+348 ;;61392-0462-91
+349 ;;9002226.02101,"716,61392-0463-45 ",.01)
+350 ;;61392-0463-45
+351 ;;9002226.02101,"716,61392-0463-45 ",.02)
+352 ;;61392-0463-45
+353 ;;9002226.02101,"716,61392-0463-54 ",.01)
+354 ;;61392-0463-54
+355 ;;9002226.02101,"716,61392-0463-54 ",.02)
+356 ;;61392-0463-54
+357 ;;9002226.02101,"716,61392-0463-91 ",.01)
+358 ;;61392-0463-91
+359 ;;9002226.02101,"716,61392-0463-91 ",.02)
+360 ;;61392-0463-91
+361 ;;9002226.02101,"716,61392-0464-30 ",.01)
+362 ;;61392-0464-30
+363 ;;9002226.02101,"716,61392-0464-30 ",.02)
+364 ;;61392-0464-30
+365 ;;9002226.02101,"716,61392-0464-31 ",.01)
+366 ;;61392-0464-31
+367 ;;9002226.02101,"716,61392-0464-31 ",.02)
+368 ;;61392-0464-31
+369 ;;9002226.02101,"716,61392-0464-32 ",.01)
+370 ;;61392-0464-32
+371 ;;9002226.02101,"716,61392-0464-32 ",.02)
+372 ;;61392-0464-32
+373 ;;9002226.02101,"716,61392-0464-39 ",.01)
+374 ;;61392-0464-39
+375 ;;9002226.02101,"716,61392-0464-39 ",.02)
+376 ;;61392-0464-39
+377 ;;9002226.02101,"716,61392-0464-45 ",.01)
+378 ;;61392-0464-45
+379 ;;9002226.02101,"716,61392-0464-45 ",.02)
+380 ;;61392-0464-45
+381 ;;9002226.02101,"716,61392-0464-51 ",.01)
+382 ;;61392-0464-51
+383 ;;9002226.02101,"716,61392-0464-51 ",.02)
+384 ;;61392-0464-51
+385 ;;9002226.02101,"716,61392-0464-54 ",.01)
+386 ;;61392-0464-54
+387 ;;9002226.02101,"716,61392-0464-54 ",.02)
+388 ;;61392-0464-54
+389 ;;9002226.02101,"716,61392-0464-60 ",.01)
+390 ;;61392-0464-60
+391 ;;9002226.02101,"716,61392-0464-60 ",.02)
+392 ;;61392-0464-60
+393 ;;9002226.02101,"716,61392-0464-90 ",.01)
+394 ;;61392-0464-90
+395 ;;9002226.02101,"716,61392-0464-90 ",.02)
+396 ;;61392-0464-90
+397 ;;9002226.02101,"716,61392-0464-91 ",.01)
+398 ;;61392-0464-91
+399 ;;9002226.02101,"716,61392-0464-91 ",.02)
+400 ;;61392-0464-91
+401 ;;9002226.02101,"716,61392-0465-30 ",.01)
+402 ;;61392-0465-30
+403 ;;9002226.02101,"716,61392-0465-30 ",.02)
+404 ;;61392-0465-30
+405 ;;9002226.02101,"716,61392-0465-31 ",.01)
+406 ;;61392-0465-31
+407 ;;9002226.02101,"716,61392-0465-31 ",.02)
+408 ;;61392-0465-31
+409 ;;9002226.02101,"716,61392-0465-32 ",.01)
+410 ;;61392-0465-32
+411 ;;9002226.02101,"716,61392-0465-32 ",.02)
+412 ;;61392-0465-32
+413 ;;9002226.02101,"716,61392-0465-39 ",.01)
+414 ;;61392-0465-39
+415 ;;9002226.02101,"716,61392-0465-39 ",.02)
+416 ;;61392-0465-39
+417 ;;9002226.02101,"716,61392-0465-45 ",.01)
+418 ;;61392-0465-45
+419 ;;9002226.02101,"716,61392-0465-45 ",.02)
+420 ;;61392-0465-45
+421 ;;9002226.02101,"716,61392-0465-51 ",.01)
+422 ;;61392-0465-51
+423 ;;9002226.02101,"716,61392-0465-51 ",.02)
+424 ;;61392-0465-51
+425 ;;9002226.02101,"716,61392-0465-54 ",.01)
+426 ;;61392-0465-54
+427 ;;9002226.02101,"716,61392-0465-54 ",.02)
+428 ;;61392-0465-54
+429 ;;9002226.02101,"716,61392-0465-60 ",.01)
+430 ;;61392-0465-60
+431 ;;9002226.02101,"716,61392-0465-60 ",.02)
+432 ;;61392-0465-60
+433 ;;9002226.02101,"716,61392-0465-90 ",.01)
+434 ;;61392-0465-90
+435 ;;9002226.02101,"716,61392-0465-90 ",.02)
+436 ;;61392-0465-90
+437 ;
OTHER ; OTHER ROUTINES
+1 QUIT
