BGPM5AAY ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 22, 2011;
;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
;;BGPMU DIAB NEPHROPATHY DX
;
; This routine loads Taxonomy BGPMU DIAB NEPHROPATHY DX
;
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,"250.4 ")
;;1
;;21,"250.40 ")
;;2
;;21,"250.41 ")
;;3
;;21,"250.42 ")
;;4
;;21,"250.43 ")
;;5
;;21,"403 ")
;;6
;;21,"403.0 ")
;;7
;;21,"403.00 ")
;;8
;;21,"403.01 ")
;;9
;;21,"403.1 ")
;;10
;;21,"403.10 ")
;;11
;;21,"403.11 ")
;;12
;;21,"403.9 ")
;;13
;;21,"403.90 ")
;;14
;;21,"403.91 ")
;;15
;;21,"404 ")
;;16
;;21,"404.0 ")
;;17
;;21,"404.00 ")
;;18
;;21,"404.01 ")
;;19
;;21,"404.02 ")
;;20
;;21,"404.03 ")
;;21
;;21,"404.1 ")
;;22
;;21,"404.10 ")
;;23
;;21,"404.11 ")
;;24
;;21,"404.12 ")
;;25
;;21,"404.13 ")
;;112
;;21,"404.9 ")
;;27
;;21,"404.90 ")
;;113
;;21,"404.91 ")
;;28
;;21,"404.92 ")
;;29
;;21,"404.93 ")
;;30
;;21,"405.01 ")
;;31
;;21,"405.11 ")
;;32
;;21,"405.91 ")
;;33
;;21,"580 ")
;;34
;;21,"580.0 ")
;;35
;;21,"580.4 ")
;;36
;;21,"580.8 ")
;;37
;;21,"580.81 ")
;;38
;;21,"580.89 ")
;;39
;;21,"580.9 ")
;;40
;;21,"581 ")
;;41
;;21,"581.0 ")
;;42
;;21,"581.1 ")
;;43
;;21,"581.2 ")
;;44
;;21,"581.3 ")
;;45
;;21,"581.8 ")
;;46
;;21,"581.81 ")
;;47
;;21,"581.89 ")
;;48
;;21,"581.9 ")
;;49
;;21,"582 ")
;;50
;;21,"582.0 ")
;;51
;;21,"582.1 ")
;;52
;;21,"582.2 ")
;;114
;;21,"582.4 ")
;;115
;;21,"582.8 ")
;;54
;;21,"582.81 ")
;;55
;;21,"582.89 ")
;;56
;;21,"582.9 ")
;;57
;;21,"583 ")
;;58
;;21,"583.0 ")
;;59
;;21,"583.1 ")
;;60
;;21,"583.2 ")
;;61
;;21,"583.4 ")
;;62
;;21,"583.6 ")
;;63
;;21,"583.7 ")
;;64
;;21,"583.8 ")
;;65
;;21,"583.81 ")
;;118
;;21,"583.89 ")
;;119
;;21,"583.9 ")
;;67
;;21,"584 ")
;;68
;;21,"584.5 ")
;;69
;;21,"584.6 ")
;;70
;;21,"584.7 ")
;;71
;;21,"584.8 ")
;;72
;;21,"584.9 ")
;;73
;;21,"585 ")
;;74
;;21,"585.1 ")
;;75
;;21,"585.2 ")
;;76
;;21,"585.3 ")
;;77
;;21,"585.4 ")
;;78
;;21,"585.5 ")
;;79
;;21,"585.6 ")
;;120
;;21,"585.9 ")
;;121
;;21,"586 ")
;;81
;;21,"587 ")
;;82
;;21,"588 ")
;;83
;;21,"588.0 ")
;;84
;;21,"588.1 ")
;;85
;;21,"588.8 ")
;;86
;;21,"588.81 ")
;;87
;;21,"588.89 ")
;;88
;;21,"588.9 ")
;;89
;;21,"753.0 ")
;;90
;;21,"753.1 ")
;;91
;;21,"753.10 ")
;;92
;;21,"753.11 ")
;;93
;;21,"753.12 ")
;;122
;;21,"753.13 ")
;;123
;;21,"753.14 ")
;;95
;;21,"753.15 ")
;;96
;;21,"753.16 ")
;;97
;;21,"753.17 ")
;;98
;;21,"753.19 ")
;;99
;;21,"791.0 ")
;;100
;;21,"V42.0 ")
;;101
;;21,"V45.1 ")
;;102
;;21,"V45.11 ")
;;103
;;21,"V45.12 ")
;;104
;;21,"V56 ")
;;105
;;21,"V56.0 ")
;;106
;;21,"V56.1 ")
;;116
;;21,"V56.2 ")
;;117
;;21,"V56.3 ")
;;108
;;21,"V56.31 ")
;;109
;;21,"V56.32 ")
;;110
;;21,"V56.8 ")
;;111
;;9002226,843,.01)
;;BGPMU DIAB NEPHROPATHY DX
;;9002226,843,.02)
;;Diabetic Nephropathy DX
;;9002226,843,.04)
;;n
;;9002226,843,.06)
;;@
;;9002226,843,.08)
;;@
;;9002226,843,.09)
;;3110310
;;9002226,843,.11)
;;@
;;9002226,843,.12)
;;@
;;9002226,843,.13)
;;@
;;9002226,843,.14)
;;@
;;9002226,843,.15)
;;80
;;9002226,843,.16)
;;1
;;9002226,843,.17)
;;@
;;9002226,843,3101)
;;@
;;9002226.02101,"843,250.4 ",.01)
;;250.4
;;9002226.02101,"843,250.4 ",.02)
;;250.4
;;9002226.02101,"843,250.40 ",.01)
;;250.40
;;9002226.02101,"843,250.40 ",.02)
;;250.40
;;9002226.02101,"843,250.41 ",.01)
;;250.41
;;9002226.02101,"843,250.41 ",.02)
;;250.41
;;9002226.02101,"843,250.42 ",.01)
;;250.42
;;9002226.02101,"843,250.42 ",.02)
;;250.42
;;9002226.02101,"843,250.43 ",.01)
;;250.43
;;9002226.02101,"843,250.43 ",.02)
;;250.43
;;9002226.02101,"843,403 ",.01)
;;403
;;9002226.02101,"843,403 ",.02)
;;403
;;9002226.02101,"843,403.0 ",.01)
;;403.0
;;9002226.02101,"843,403.0 ",.02)
;;403.0
;;9002226.02101,"843,403.00 ",.01)
;;403.00
;;9002226.02101,"843,403.00 ",.02)
;;403.00
;;9002226.02101,"843,403.01 ",.01)
;;403.01
;;9002226.02101,"843,403.01 ",.02)
;;403.01
;;9002226.02101,"843,403.1 ",.01)
;;403.1
;;9002226.02101,"843,403.1 ",.02)
;;403.1
;;9002226.02101,"843,403.10 ",.01)
;;403.10
;;9002226.02101,"843,403.10 ",.02)
;;403.10
;;9002226.02101,"843,403.11 ",.01)
;;403.11
;;9002226.02101,"843,403.11 ",.02)
;;403.11
;;9002226.02101,"843,403.9 ",.01)
;;403.9
;;9002226.02101,"843,403.9 ",.02)
;;403.9
;;9002226.02101,"843,403.90 ",.01)
;;403.90
;;9002226.02101,"843,403.90 ",.02)
;;403.90
;;9002226.02101,"843,403.91 ",.01)
;;403.91
;;9002226.02101,"843,403.91 ",.02)
;;403.91
;;9002226.02101,"843,404 ",.01)
;;404
;;9002226.02101,"843,404 ",.02)
;;404
;;9002226.02101,"843,404.0 ",.01)
;;404.0
;;9002226.02101,"843,404.0 ",.02)
;;404.0
;;9002226.02101,"843,404.00 ",.01)
;;404.00
;;9002226.02101,"843,404.00 ",.02)
;;404.00
;;9002226.02101,"843,404.01 ",.01)
;;404.01
;;9002226.02101,"843,404.01 ",.02)
;;404.01
;;9002226.02101,"843,404.02 ",.01)
;;404.02
;;9002226.02101,"843,404.02 ",.02)
;;404.02
;;9002226.02101,"843,404.03 ",.01)
;;404.03
;;9002226.02101,"843,404.03 ",.02)
;;404.03
;;9002226.02101,"843,404.1 ",.01)
;;404.1
;;9002226.02101,"843,404.1 ",.02)
;;404.1
;;9002226.02101,"843,404.10 ",.01)
;;404.10
;;9002226.02101,"843,404.10 ",.02)
;;404.10
;;9002226.02101,"843,404.11 ",.01)
;;404.11
;;9002226.02101,"843,404.11 ",.02)
;;404.11
;;9002226.02101,"843,404.12 ",.01)
;;404.12
;;9002226.02101,"843,404.12 ",.02)
;;404.12
;;9002226.02101,"843,404.13 ",.01)
;;404.13
;;9002226.02101,"843,404.13 ",.02)
;;404.13
;;9002226.02101,"843,404.9 ",.01)
;;404.9
;;9002226.02101,"843,404.9 ",.02)
;;404.9
;;9002226.02101,"843,404.90 ",.01)
;;404.90
;;9002226.02101,"843,404.90 ",.02)
;;404.90
;;9002226.02101,"843,404.91 ",.01)
;;404.91
;;9002226.02101,"843,404.91 ",.02)
;;404.91
;;9002226.02101,"843,404.92 ",.01)
;;404.92
;;9002226.02101,"843,404.92 ",.02)
;;404.92
;;9002226.02101,"843,404.93 ",.01)
;;404.93
;;9002226.02101,"843,404.93 ",.02)
;;404.93
;;9002226.02101,"843,405.01 ",.01)
;;405.01
;;9002226.02101,"843,405.01 ",.02)
;;405.01
;;9002226.02101,"843,405.11 ",.01)
;;405.11
;;9002226.02101,"843,405.11 ",.02)
;;405.11
;;9002226.02101,"843,405.91 ",.01)
;;405.91
;;9002226.02101,"843,405.91 ",.02)
;;405.91
;;9002226.02101,"843,580 ",.01)
;;580
;;9002226.02101,"843,580 ",.02)
;;580
;;9002226.02101,"843,580.0 ",.01)
;;580.0
;;9002226.02101,"843,580.0 ",.02)
;;580.0
;;9002226.02101,"843,580.4 ",.01)
;;580.4
;;9002226.02101,"843,580.4 ",.02)
;;580.4
;;9002226.02101,"843,580.8 ",.01)
;;580.8
;;9002226.02101,"843,580.8 ",.02)
;;580.8
;;9002226.02101,"843,580.81 ",.01)
;;580.81
;;9002226.02101,"843,580.81 ",.02)
;;580.81
;;9002226.02101,"843,580.89 ",.01)
;;580.89
;;9002226.02101,"843,580.89 ",.02)
;;580.89
;;9002226.02101,"843,580.9 ",.01)
;;580.9
;;9002226.02101,"843,580.9 ",.02)
;;580.9
;;9002226.02101,"843,581 ",.01)
;;581
;;9002226.02101,"843,581 ",.02)
;;581
;;9002226.02101,"843,581.0 ",.01)
;;581.0
;;9002226.02101,"843,581.0 ",.02)
;;581.0
;;9002226.02101,"843,581.1 ",.01)
;;581.1
;;9002226.02101,"843,581.1 ",.02)
;;581.1
;;9002226.02101,"843,581.2 ",.01)
;;581.2
;;9002226.02101,"843,581.2 ",.02)
;;581.2
;;9002226.02101,"843,581.3 ",.01)
;;581.3
;;9002226.02101,"843,581.3 ",.02)
;;581.3
;;9002226.02101,"843,581.8 ",.01)
;;581.8
;;9002226.02101,"843,581.8 ",.02)
;;581.8
;;9002226.02101,"843,581.81 ",.01)
;;581.81
;;9002226.02101,"843,581.81 ",.02)
;;581.81
;;9002226.02101,"843,581.89 ",.01)
;;581.89
;;9002226.02101,"843,581.89 ",.02)
;;581.89
;;9002226.02101,"843,581.9 ",.01)
;;581.9
;;9002226.02101,"843,581.9 ",.02)
;;581.9
;;9002226.02101,"843,582 ",.01)
;;582
;;9002226.02101,"843,582 ",.02)
;;582
;;9002226.02101,"843,582.0 ",.01)
;;582.0
;;9002226.02101,"843,582.0 ",.02)
;;582.0
;;9002226.02101,"843,582.1 ",.01)
;;582.1
;;9002226.02101,"843,582.1 ",.02)
;;582.1
;;9002226.02101,"843,582.2 ",.01)
;;582.2
;;9002226.02101,"843,582.2 ",.02)
;;582.2
;;9002226.02101,"843,582.4 ",.01)
;;582.4
;;9002226.02101,"843,582.4 ",.02)
;;582.4
;;9002226.02101,"843,582.8 ",.01)
;;582.8
;;9002226.02101,"843,582.8 ",.02)
;;582.8
;;9002226.02101,"843,582.81 ",.01)
;;582.81
;;9002226.02101,"843,582.81 ",.02)
;;582.81
;;9002226.02101,"843,582.89 ",.01)
;;582.89
;;9002226.02101,"843,582.89 ",.02)
;;582.89
;;9002226.02101,"843,582.9 ",.01)
;;582.9
;;9002226.02101,"843,582.9 ",.02)
;;582.9
;;9002226.02101,"843,583 ",.01)
;;583
;;9002226.02101,"843,583 ",.02)
;;583
;;9002226.02101,"843,583.0 ",.01)
;;583.0
;;9002226.02101,"843,583.0 ",.02)
;;583.0
;;9002226.02101,"843,583.1 ",.01)
;;583.1
;;9002226.02101,"843,583.1 ",.02)
;;583.1
;;9002226.02101,"843,583.2 ",.01)
;;583.2
;;9002226.02101,"843,583.2 ",.02)
;;583.2
;;9002226.02101,"843,583.4 ",.01)
;;583.4
;;9002226.02101,"843,583.4 ",.02)
;;583.4
;;9002226.02101,"843,583.6 ",.01)
;;583.6
;;9002226.02101,"843,583.6 ",.02)
;;583.6
;;9002226.02101,"843,583.7 ",.01)
;;583.7
;;9002226.02101,"843,583.7 ",.02)
;;583.7
;;9002226.02101,"843,583.8 ",.01)
;;583.8
;;9002226.02101,"843,583.8 ",.02)
;;583.8
;;9002226.02101,"843,583.81 ",.01)
;;583.81
;;9002226.02101,"843,583.81 ",.02)
;;583.81
;;9002226.02101,"843,583.89 ",.01)
;;583.89
;;9002226.02101,"843,583.89 ",.02)
;;583.89
;;9002226.02101,"843,583.9 ",.01)
;;583.9
;;9002226.02101,"843,583.9 ",.02)
;;583.9
;;9002226.02101,"843,584 ",.01)
;;584
;;9002226.02101,"843,584 ",.02)
;;584
;;9002226.02101,"843,584.5 ",.01)
;;584.5
;;9002226.02101,"843,584.5 ",.02)
;;584.5
;;9002226.02101,"843,584.6 ",.01)
;;584.6
;;9002226.02101,"843,584.6 ",.02)
;;584.6
;;9002226.02101,"843,584.7 ",.01)
;;584.7
;;9002226.02101,"843,584.7 ",.02)
;;584.7
;;9002226.02101,"843,584.8 ",.01)
;;584.8
;;9002226.02101,"843,584.8 ",.02)
;;584.8
;;9002226.02101,"843,584.9 ",.01)
;;584.9
;;9002226.02101,"843,584.9 ",.02)
;;584.9
;;9002226.02101,"843,585 ",.01)
;;585
;;9002226.02101,"843,585 ",.02)
;;585
;;9002226.02101,"843,585.1 ",.01)
;;585.1
;;9002226.02101,"843,585.1 ",.02)
;;585.1
;;9002226.02101,"843,585.2 ",.01)
;;585.2
;;9002226.02101,"843,585.2 ",.02)
;;585.2
;;9002226.02101,"843,585.3 ",.01)
;;585.3
;;9002226.02101,"843,585.3 ",.02)
;;585.3
;;9002226.02101,"843,585.4 ",.01)
;;585.4
;;9002226.02101,"843,585.4 ",.02)
;;585.4
;;9002226.02101,"843,585.5 ",.01)
;;585.5
;;9002226.02101,"843,585.5 ",.02)
;;585.5
;;9002226.02101,"843,585.6 ",.01)
;;585.6
;;9002226.02101,"843,585.6 ",.02)
;;585.6
;;9002226.02101,"843,585.9 ",.01)
;;585.9
;;9002226.02101,"843,585.9 ",.02)
;;585.9
;;9002226.02101,"843,586 ",.01)
;;586
;;9002226.02101,"843,586 ",.02)
;;586
;;9002226.02101,"843,587 ",.01)
;;587
;;9002226.02101,"843,587 ",.02)
;;587
;
OTHER ; OTHER ROUTINES
D ^BGPM5AMO
Q
BGPM5AAY ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 22, 2011;
+1 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
+2 ;;BGPMU DIAB NEPHROPATHY DX
+3 ;
+4 ; This routine loads Taxonomy BGPMU DIAB NEPHROPATHY DX
+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,"250.4 ")
+2 ;;1
+3 ;;21,"250.40 ")
+4 ;;2
+5 ;;21,"250.41 ")
+6 ;;3
+7 ;;21,"250.42 ")
+8 ;;4
+9 ;;21,"250.43 ")
+10 ;;5
+11 ;;21,"403 ")
+12 ;;6
+13 ;;21,"403.0 ")
+14 ;;7
+15 ;;21,"403.00 ")
+16 ;;8
+17 ;;21,"403.01 ")
+18 ;;9
+19 ;;21,"403.1 ")
+20 ;;10
+21 ;;21,"403.10 ")
+22 ;;11
+23 ;;21,"403.11 ")
+24 ;;12
+25 ;;21,"403.9 ")
+26 ;;13
+27 ;;21,"403.90 ")
+28 ;;14
+29 ;;21,"403.91 ")
+30 ;;15
+31 ;;21,"404 ")
+32 ;;16
+33 ;;21,"404.0 ")
+34 ;;17
+35 ;;21,"404.00 ")
+36 ;;18
+37 ;;21,"404.01 ")
+38 ;;19
+39 ;;21,"404.02 ")
+40 ;;20
+41 ;;21,"404.03 ")
+42 ;;21
+43 ;;21,"404.1 ")
+44 ;;22
+45 ;;21,"404.10 ")
+46 ;;23
+47 ;;21,"404.11 ")
+48 ;;24
+49 ;;21,"404.12 ")
+50 ;;25
+51 ;;21,"404.13 ")
+52 ;;112
+53 ;;21,"404.9 ")
+54 ;;27
+55 ;;21,"404.90 ")
+56 ;;113
+57 ;;21,"404.91 ")
+58 ;;28
+59 ;;21,"404.92 ")
+60 ;;29
+61 ;;21,"404.93 ")
+62 ;;30
+63 ;;21,"405.01 ")
+64 ;;31
+65 ;;21,"405.11 ")
+66 ;;32
+67 ;;21,"405.91 ")
+68 ;;33
+69 ;;21,"580 ")
+70 ;;34
+71 ;;21,"580.0 ")
+72 ;;35
+73 ;;21,"580.4 ")
+74 ;;36
+75 ;;21,"580.8 ")
+76 ;;37
+77 ;;21,"580.81 ")
+78 ;;38
+79 ;;21,"580.89 ")
+80 ;;39
+81 ;;21,"580.9 ")
+82 ;;40
+83 ;;21,"581 ")
+84 ;;41
+85 ;;21,"581.0 ")
+86 ;;42
+87 ;;21,"581.1 ")
+88 ;;43
+89 ;;21,"581.2 ")
+90 ;;44
+91 ;;21,"581.3 ")
+92 ;;45
+93 ;;21,"581.8 ")
+94 ;;46
+95 ;;21,"581.81 ")
+96 ;;47
+97 ;;21,"581.89 ")
+98 ;;48
+99 ;;21,"581.9 ")
+100 ;;49
+101 ;;21,"582 ")
+102 ;;50
+103 ;;21,"582.0 ")
+104 ;;51
+105 ;;21,"582.1 ")
+106 ;;52
+107 ;;21,"582.2 ")
+108 ;;114
+109 ;;21,"582.4 ")
+110 ;;115
+111 ;;21,"582.8 ")
+112 ;;54
+113 ;;21,"582.81 ")
+114 ;;55
+115 ;;21,"582.89 ")
+116 ;;56
+117 ;;21,"582.9 ")
+118 ;;57
+119 ;;21,"583 ")
+120 ;;58
+121 ;;21,"583.0 ")
+122 ;;59
+123 ;;21,"583.1 ")
+124 ;;60
+125 ;;21,"583.2 ")
+126 ;;61
+127 ;;21,"583.4 ")
+128 ;;62
+129 ;;21,"583.6 ")
+130 ;;63
+131 ;;21,"583.7 ")
+132 ;;64
+133 ;;21,"583.8 ")
+134 ;;65
+135 ;;21,"583.81 ")
+136 ;;118
+137 ;;21,"583.89 ")
+138 ;;119
+139 ;;21,"583.9 ")
+140 ;;67
+141 ;;21,"584 ")
+142 ;;68
+143 ;;21,"584.5 ")
+144 ;;69
+145 ;;21,"584.6 ")
+146 ;;70
+147 ;;21,"584.7 ")
+148 ;;71
+149 ;;21,"584.8 ")
+150 ;;72
+151 ;;21,"584.9 ")
+152 ;;73
+153 ;;21,"585 ")
+154 ;;74
+155 ;;21,"585.1 ")
+156 ;;75
+157 ;;21,"585.2 ")
+158 ;;76
+159 ;;21,"585.3 ")
+160 ;;77
+161 ;;21,"585.4 ")
+162 ;;78
+163 ;;21,"585.5 ")
+164 ;;79
+165 ;;21,"585.6 ")
+166 ;;120
+167 ;;21,"585.9 ")
+168 ;;121
+169 ;;21,"586 ")
+170 ;;81
+171 ;;21,"587 ")
+172 ;;82
+173 ;;21,"588 ")
+174 ;;83
+175 ;;21,"588.0 ")
+176 ;;84
+177 ;;21,"588.1 ")
+178 ;;85
+179 ;;21,"588.8 ")
+180 ;;86
+181 ;;21,"588.81 ")
+182 ;;87
+183 ;;21,"588.89 ")
+184 ;;88
+185 ;;21,"588.9 ")
+186 ;;89
+187 ;;21,"753.0 ")
+188 ;;90
+189 ;;21,"753.1 ")
+190 ;;91
+191 ;;21,"753.10 ")
+192 ;;92
+193 ;;21,"753.11 ")
+194 ;;93
+195 ;;21,"753.12 ")
+196 ;;122
+197 ;;21,"753.13 ")
+198 ;;123
+199 ;;21,"753.14 ")
+200 ;;95
+201 ;;21,"753.15 ")
+202 ;;96
+203 ;;21,"753.16 ")
+204 ;;97
+205 ;;21,"753.17 ")
+206 ;;98
+207 ;;21,"753.19 ")
+208 ;;99
+209 ;;21,"791.0 ")
+210 ;;100
+211 ;;21,"V42.0 ")
+212 ;;101
+213 ;;21,"V45.1 ")
+214 ;;102
+215 ;;21,"V45.11 ")
+216 ;;103
+217 ;;21,"V45.12 ")
+218 ;;104
+219 ;;21,"V56 ")
+220 ;;105
+221 ;;21,"V56.0 ")
+222 ;;106
+223 ;;21,"V56.1 ")
+224 ;;116
+225 ;;21,"V56.2 ")
+226 ;;117
+227 ;;21,"V56.3 ")
+228 ;;108
+229 ;;21,"V56.31 ")
+230 ;;109
+231 ;;21,"V56.32 ")
+232 ;;110
+233 ;;21,"V56.8 ")
+234 ;;111
+235 ;;9002226,843,.01)
+236 ;;BGPMU DIAB NEPHROPATHY DX
+237 ;;9002226,843,.02)
+238 ;;Diabetic Nephropathy DX
+239 ;;9002226,843,.04)
+240 ;;n
+241 ;;9002226,843,.06)
+242 ;;@
+243 ;;9002226,843,.08)
+244 ;;@
+245 ;;9002226,843,.09)
+246 ;;3110310
+247 ;;9002226,843,.11)
+248 ;;@
+249 ;;9002226,843,.12)
+250 ;;@
+251 ;;9002226,843,.13)
+252 ;;@
+253 ;;9002226,843,.14)
+254 ;;@
+255 ;;9002226,843,.15)
+256 ;;80
+257 ;;9002226,843,.16)
+258 ;;1
+259 ;;9002226,843,.17)
+260 ;;@
+261 ;;9002226,843,3101)
+262 ;;@
+263 ;;9002226.02101,"843,250.4 ",.01)
+264 ;;250.4
+265 ;;9002226.02101,"843,250.4 ",.02)
+266 ;;250.4
+267 ;;9002226.02101,"843,250.40 ",.01)
+268 ;;250.40
+269 ;;9002226.02101,"843,250.40 ",.02)
+270 ;;250.40
+271 ;;9002226.02101,"843,250.41 ",.01)
+272 ;;250.41
+273 ;;9002226.02101,"843,250.41 ",.02)
+274 ;;250.41
+275 ;;9002226.02101,"843,250.42 ",.01)
+276 ;;250.42
+277 ;;9002226.02101,"843,250.42 ",.02)
+278 ;;250.42
+279 ;;9002226.02101,"843,250.43 ",.01)
+280 ;;250.43
+281 ;;9002226.02101,"843,250.43 ",.02)
+282 ;;250.43
+283 ;;9002226.02101,"843,403 ",.01)
+284 ;;403
+285 ;;9002226.02101,"843,403 ",.02)
+286 ;;403
+287 ;;9002226.02101,"843,403.0 ",.01)
+288 ;;403.0
+289 ;;9002226.02101,"843,403.0 ",.02)
+290 ;;403.0
+291 ;;9002226.02101,"843,403.00 ",.01)
+292 ;;403.00
+293 ;;9002226.02101,"843,403.00 ",.02)
+294 ;;403.00
+295 ;;9002226.02101,"843,403.01 ",.01)
+296 ;;403.01
+297 ;;9002226.02101,"843,403.01 ",.02)
+298 ;;403.01
+299 ;;9002226.02101,"843,403.1 ",.01)
+300 ;;403.1
+301 ;;9002226.02101,"843,403.1 ",.02)
+302 ;;403.1
+303 ;;9002226.02101,"843,403.10 ",.01)
+304 ;;403.10
+305 ;;9002226.02101,"843,403.10 ",.02)
+306 ;;403.10
+307 ;;9002226.02101,"843,403.11 ",.01)
+308 ;;403.11
+309 ;;9002226.02101,"843,403.11 ",.02)
+310 ;;403.11
+311 ;;9002226.02101,"843,403.9 ",.01)
+312 ;;403.9
+313 ;;9002226.02101,"843,403.9 ",.02)
+314 ;;403.9
+315 ;;9002226.02101,"843,403.90 ",.01)
+316 ;;403.90
+317 ;;9002226.02101,"843,403.90 ",.02)
+318 ;;403.90
+319 ;;9002226.02101,"843,403.91 ",.01)
+320 ;;403.91
+321 ;;9002226.02101,"843,403.91 ",.02)
+322 ;;403.91
+323 ;;9002226.02101,"843,404 ",.01)
+324 ;;404
+325 ;;9002226.02101,"843,404 ",.02)
+326 ;;404
+327 ;;9002226.02101,"843,404.0 ",.01)
+328 ;;404.0
+329 ;;9002226.02101,"843,404.0 ",.02)
+330 ;;404.0
+331 ;;9002226.02101,"843,404.00 ",.01)
+332 ;;404.00
+333 ;;9002226.02101,"843,404.00 ",.02)
+334 ;;404.00
+335 ;;9002226.02101,"843,404.01 ",.01)
+336 ;;404.01
+337 ;;9002226.02101,"843,404.01 ",.02)
+338 ;;404.01
+339 ;;9002226.02101,"843,404.02 ",.01)
+340 ;;404.02
+341 ;;9002226.02101,"843,404.02 ",.02)
+342 ;;404.02
+343 ;;9002226.02101,"843,404.03 ",.01)
+344 ;;404.03
+345 ;;9002226.02101,"843,404.03 ",.02)
+346 ;;404.03
+347 ;;9002226.02101,"843,404.1 ",.01)
+348 ;;404.1
+349 ;;9002226.02101,"843,404.1 ",.02)
+350 ;;404.1
+351 ;;9002226.02101,"843,404.10 ",.01)
+352 ;;404.10
+353 ;;9002226.02101,"843,404.10 ",.02)
+354 ;;404.10
+355 ;;9002226.02101,"843,404.11 ",.01)
+356 ;;404.11
+357 ;;9002226.02101,"843,404.11 ",.02)
+358 ;;404.11
+359 ;;9002226.02101,"843,404.12 ",.01)
+360 ;;404.12
+361 ;;9002226.02101,"843,404.12 ",.02)
+362 ;;404.12
+363 ;;9002226.02101,"843,404.13 ",.01)
+364 ;;404.13
+365 ;;9002226.02101,"843,404.13 ",.02)
+366 ;;404.13
+367 ;;9002226.02101,"843,404.9 ",.01)
+368 ;;404.9
+369 ;;9002226.02101,"843,404.9 ",.02)
+370 ;;404.9
+371 ;;9002226.02101,"843,404.90 ",.01)
+372 ;;404.90
+373 ;;9002226.02101,"843,404.90 ",.02)
+374 ;;404.90
+375 ;;9002226.02101,"843,404.91 ",.01)
+376 ;;404.91
+377 ;;9002226.02101,"843,404.91 ",.02)
+378 ;;404.91
+379 ;;9002226.02101,"843,404.92 ",.01)
+380 ;;404.92
+381 ;;9002226.02101,"843,404.92 ",.02)
+382 ;;404.92
+383 ;;9002226.02101,"843,404.93 ",.01)
+384 ;;404.93
+385 ;;9002226.02101,"843,404.93 ",.02)
+386 ;;404.93
+387 ;;9002226.02101,"843,405.01 ",.01)
+388 ;;405.01
+389 ;;9002226.02101,"843,405.01 ",.02)
+390 ;;405.01
+391 ;;9002226.02101,"843,405.11 ",.01)
+392 ;;405.11
+393 ;;9002226.02101,"843,405.11 ",.02)
+394 ;;405.11
+395 ;;9002226.02101,"843,405.91 ",.01)
+396 ;;405.91
+397 ;;9002226.02101,"843,405.91 ",.02)
+398 ;;405.91
+399 ;;9002226.02101,"843,580 ",.01)
+400 ;;580
+401 ;;9002226.02101,"843,580 ",.02)
+402 ;;580
+403 ;;9002226.02101,"843,580.0 ",.01)
+404 ;;580.0
+405 ;;9002226.02101,"843,580.0 ",.02)
+406 ;;580.0
+407 ;;9002226.02101,"843,580.4 ",.01)
+408 ;;580.4
+409 ;;9002226.02101,"843,580.4 ",.02)
+410 ;;580.4
+411 ;;9002226.02101,"843,580.8 ",.01)
+412 ;;580.8
+413 ;;9002226.02101,"843,580.8 ",.02)
+414 ;;580.8
+415 ;;9002226.02101,"843,580.81 ",.01)
+416 ;;580.81
+417 ;;9002226.02101,"843,580.81 ",.02)
+418 ;;580.81
+419 ;;9002226.02101,"843,580.89 ",.01)
+420 ;;580.89
+421 ;;9002226.02101,"843,580.89 ",.02)
+422 ;;580.89
+423 ;;9002226.02101,"843,580.9 ",.01)
+424 ;;580.9
+425 ;;9002226.02101,"843,580.9 ",.02)
+426 ;;580.9
+427 ;;9002226.02101,"843,581 ",.01)
+428 ;;581
+429 ;;9002226.02101,"843,581 ",.02)
+430 ;;581
+431 ;;9002226.02101,"843,581.0 ",.01)
+432 ;;581.0
+433 ;;9002226.02101,"843,581.0 ",.02)
+434 ;;581.0
+435 ;;9002226.02101,"843,581.1 ",.01)
+436 ;;581.1
+437 ;;9002226.02101,"843,581.1 ",.02)
+438 ;;581.1
+439 ;;9002226.02101,"843,581.2 ",.01)
+440 ;;581.2
+441 ;;9002226.02101,"843,581.2 ",.02)
+442 ;;581.2
+443 ;;9002226.02101,"843,581.3 ",.01)
+444 ;;581.3
+445 ;;9002226.02101,"843,581.3 ",.02)
+446 ;;581.3
+447 ;;9002226.02101,"843,581.8 ",.01)
+448 ;;581.8
+449 ;;9002226.02101,"843,581.8 ",.02)
+450 ;;581.8
+451 ;;9002226.02101,"843,581.81 ",.01)
+452 ;;581.81
+453 ;;9002226.02101,"843,581.81 ",.02)
+454 ;;581.81
+455 ;;9002226.02101,"843,581.89 ",.01)
+456 ;;581.89
+457 ;;9002226.02101,"843,581.89 ",.02)
+458 ;;581.89
+459 ;;9002226.02101,"843,581.9 ",.01)
+460 ;;581.9
+461 ;;9002226.02101,"843,581.9 ",.02)
+462 ;;581.9
+463 ;;9002226.02101,"843,582 ",.01)
+464 ;;582
+465 ;;9002226.02101,"843,582 ",.02)
+466 ;;582
+467 ;;9002226.02101,"843,582.0 ",.01)
+468 ;;582.0
+469 ;;9002226.02101,"843,582.0 ",.02)
+470 ;;582.0
+471 ;;9002226.02101,"843,582.1 ",.01)
+472 ;;582.1
+473 ;;9002226.02101,"843,582.1 ",.02)
+474 ;;582.1
+475 ;;9002226.02101,"843,582.2 ",.01)
+476 ;;582.2
+477 ;;9002226.02101,"843,582.2 ",.02)
+478 ;;582.2
+479 ;;9002226.02101,"843,582.4 ",.01)
+480 ;;582.4
+481 ;;9002226.02101,"843,582.4 ",.02)
+482 ;;582.4
+483 ;;9002226.02101,"843,582.8 ",.01)
+484 ;;582.8
+485 ;;9002226.02101,"843,582.8 ",.02)
+486 ;;582.8
+487 ;;9002226.02101,"843,582.81 ",.01)
+488 ;;582.81
+489 ;;9002226.02101,"843,582.81 ",.02)
+490 ;;582.81
+491 ;;9002226.02101,"843,582.89 ",.01)
+492 ;;582.89
+493 ;;9002226.02101,"843,582.89 ",.02)
+494 ;;582.89
+495 ;;9002226.02101,"843,582.9 ",.01)
+496 ;;582.9
+497 ;;9002226.02101,"843,582.9 ",.02)
+498 ;;582.9
+499 ;;9002226.02101,"843,583 ",.01)
+500 ;;583
+501 ;;9002226.02101,"843,583 ",.02)
+502 ;;583
+503 ;;9002226.02101,"843,583.0 ",.01)
+504 ;;583.0
+505 ;;9002226.02101,"843,583.0 ",.02)
+506 ;;583.0
+507 ;;9002226.02101,"843,583.1 ",.01)
+508 ;;583.1
+509 ;;9002226.02101,"843,583.1 ",.02)
+510 ;;583.1
+511 ;;9002226.02101,"843,583.2 ",.01)
+512 ;;583.2
+513 ;;9002226.02101,"843,583.2 ",.02)
+514 ;;583.2
+515 ;;9002226.02101,"843,583.4 ",.01)
+516 ;;583.4
+517 ;;9002226.02101,"843,583.4 ",.02)
+518 ;;583.4
+519 ;;9002226.02101,"843,583.6 ",.01)
+520 ;;583.6
+521 ;;9002226.02101,"843,583.6 ",.02)
+522 ;;583.6
+523 ;;9002226.02101,"843,583.7 ",.01)
+524 ;;583.7
+525 ;;9002226.02101,"843,583.7 ",.02)
+526 ;;583.7
+527 ;;9002226.02101,"843,583.8 ",.01)
+528 ;;583.8
+529 ;;9002226.02101,"843,583.8 ",.02)
+530 ;;583.8
+531 ;;9002226.02101,"843,583.81 ",.01)
+532 ;;583.81
+533 ;;9002226.02101,"843,583.81 ",.02)
+534 ;;583.81
+535 ;;9002226.02101,"843,583.89 ",.01)
+536 ;;583.89
+537 ;;9002226.02101,"843,583.89 ",.02)
+538 ;;583.89
+539 ;;9002226.02101,"843,583.9 ",.01)
+540 ;;583.9
+541 ;;9002226.02101,"843,583.9 ",.02)
+542 ;;583.9
+543 ;;9002226.02101,"843,584 ",.01)
+544 ;;584
+545 ;;9002226.02101,"843,584 ",.02)
+546 ;;584
+547 ;;9002226.02101,"843,584.5 ",.01)
+548 ;;584.5
+549 ;;9002226.02101,"843,584.5 ",.02)
+550 ;;584.5
+551 ;;9002226.02101,"843,584.6 ",.01)
+552 ;;584.6
+553 ;;9002226.02101,"843,584.6 ",.02)
+554 ;;584.6
+555 ;;9002226.02101,"843,584.7 ",.01)
+556 ;;584.7
+557 ;;9002226.02101,"843,584.7 ",.02)
+558 ;;584.7
+559 ;;9002226.02101,"843,584.8 ",.01)
+560 ;;584.8
+561 ;;9002226.02101,"843,584.8 ",.02)
+562 ;;584.8
+563 ;;9002226.02101,"843,584.9 ",.01)
+564 ;;584.9
+565 ;;9002226.02101,"843,584.9 ",.02)
+566 ;;584.9
+567 ;;9002226.02101,"843,585 ",.01)
+568 ;;585
+569 ;;9002226.02101,"843,585 ",.02)
+570 ;;585
+571 ;;9002226.02101,"843,585.1 ",.01)
+572 ;;585.1
+573 ;;9002226.02101,"843,585.1 ",.02)
+574 ;;585.1
+575 ;;9002226.02101,"843,585.2 ",.01)
+576 ;;585.2
+577 ;;9002226.02101,"843,585.2 ",.02)
+578 ;;585.2
+579 ;;9002226.02101,"843,585.3 ",.01)
+580 ;;585.3
+581 ;;9002226.02101,"843,585.3 ",.02)
+582 ;;585.3
+583 ;;9002226.02101,"843,585.4 ",.01)
+584 ;;585.4
+585 ;;9002226.02101,"843,585.4 ",.02)
+586 ;;585.4
+587 ;;9002226.02101,"843,585.5 ",.01)
+588 ;;585.5
+589 ;;9002226.02101,"843,585.5 ",.02)
+590 ;;585.5
+591 ;;9002226.02101,"843,585.6 ",.01)
+592 ;;585.6
+593 ;;9002226.02101,"843,585.6 ",.02)
+594 ;;585.6
+595 ;;9002226.02101,"843,585.9 ",.01)
+596 ;;585.9
+597 ;;9002226.02101,"843,585.9 ",.02)
+598 ;;585.9
+599 ;;9002226.02101,"843,586 ",.01)
+600 ;;586
+601 ;;9002226.02101,"843,586 ",.02)
+602 ;;586
+603 ;;9002226.02101,"843,587 ",.01)
+604 ;;587
+605 ;;9002226.02101,"843,587 ",.02)
+606 ;;587
+607 ;
OTHER ; OTHER ROUTINES
+1 DO ^BGPM5AMO
+2 QUIT
