BMCTXF ; IHS/PHXAO/TMJ -CREATED BY ^ATXSTX ON APR 12, 1996 ;
;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006
;;BMC POTENTIAL HIGH COST DX
;
; This routine loads Taxonomy BMC POTENTIAL HIGH COST 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)
;;3.6,149,.01)
;;BMC POTENTIAL HIGH COST DX
;;3.6,149,2)
;;POTENTIAL HIGH COST DIAGNOSES
;;3.63,149,1,0)
;;^^7^7^2951205^^
;;3.63,149,1,1,0)
;;Patient Name: |1| Date Referral Initiated: |2|
;;3.63,149,1,2,0)
;;Referral #: |3|
;;3.63,149,1,3,0)
;;Requesting Provider: |4|
;;3.63,149,1,4,0)
;;
;;3.63,149,1,5,0)
;;Diagnosis: |5|
;;3.63,149,1,6,0)
;;
;;3.63,149,1,7,0)
;;This referral is for a potentially high cost diagnosis.
;;3.63,149,3,0)
;;^^2^2^2951205^^
;;3.63,149,3,1,0)
;;This bulletin is sent if a referral is made for a potentially high cost
;;3.63,149,3,2,0)
;;diagnosis.
;;3.64,"149,1",.01)
;;1
;;3.64,"149,1",1,0)
;;^^1^1^2951113^
;;3.64,"149,1",1,1,0)
;;Name of patient being referred.
;;3.64,"149,2",.01)
;;2
;;3.64,"149,2",1,0)
;;^^1^1^2951113^
;;3.64,"149,2",1,1,0)
;;Date referral initiated.
;;3.64,"149,3",.01)
;;3
;;3.64,"149,3",1,0)
;;^^1^1^2951113^
;;3.64,"149,3",1,1,0)
;;Ten character referral number.
;;3.64,"149,4",.01)
;;4
;;3.64,"149,4",1,0)
;;^^1^1^2951113^
;;3.64,"149,4",1,1,0)
;;Name of provider requesting referral.
;;3.64,"149,5",.01)
;;5
;;3.64,"149,5",1,0)
;;^^1^1^2951205^^
;;3.64,"149,5",1,1,0)
;;Diagnosis being referred for.
;;21,"005.1 ")
;;1
;;21,"038.1 ")
;;2
;;21,"042 ")
;;3
;;21,"052.0 ")
;;4
;;21,"140.0 ")
;;5
;;21,"225.0 ")
;;6
;;21,"255.2 ")
;;7
;;21,"257.8 ")
;;8
;;21,"270.0 ")
;;9
;;21,"271.1 ")
;;10
;;21,"277.0 ")
;;11
;;21,"277.5 ")
;;12
;;21,"277.8 ")
;;13
;;21,"279 ")
;;14
;;21,"282.6 ")
;;15
;;21,"284.0 ")
;;16
;;21,"286.0 ")
;;17
;;21,"287.3 ")
;;18
;;21,"295.00 ")
;;19
;;21,"296.90 ")
;;20
;;21,"297.0 ")
;;21
;;21,"335.2 ")
;;22
;;21,"340 ")
;;23
;;21,"345.3 ")
;;24
;;21,"348.1 ")
;;25
;;21,"348.3 ")
;;26
;;21,"357.0 ")
;;27
;;21,"362.50 ")
;;28
;;21,"402.0 ")
;;29
;;21,"403.0 ")
;;30
;;21,"404.0 ")
;;31
;;21,"405.0 ")
;;32
;;21,"411.1 ")
;;33
;;21,"414.1 ")
;;34
;;21,"421.0 ")
;;35
;;21,"424.90 ")
;;36
;;21,"427.41 ")
;;37
;;21,"427.5 ")
;;38
;;21,"429.5 ")
;;39
;;21,"429.7 ")
;;40
;;21,"430 ")
;;41
;;21,"434.0 ")
;;42
;;21,"441.00 ")
;;43
;;21,"446.0 ")
;;44
;;21,"482.4 ")
;;45
;;21,"492.0 ")
;;46
;;21,"494 ")
;;47
;;21,"500 ")
;;48
;;21,"506.4 ")
;;49
;;21,"515 ")
;;50
;;21,"518.5 ")
;;51
;;21,"526.89 ")
;;52
;;21,"570 ")
;;53
;;21,"571.2 ")
;;54
;;21,"571.5 ")
;;55
;;21,"579.3 ")
;;56
;;21,"585 ")
;;57
;;21,"644.20 ")
;;58
;;21,"710.0 ")
;;59
;;21,"730.0 ")
;;60
;;21,"740.0 ")
;;61
;;21,"765.0 ")
;;62
;;21,"767.0 ")
;;63
;;21,"767.4 ")
;;64
;;21,"768.5 ")
;;65
;;21,"769 ")
;;66
;;21,"770.0 ")
;;67
;;21,"771.0 ")
;;68
;;21,"771.8 ")
;;69
;;21,"772.1 ")
;;70
;;21,"773.3 ")
;;71
;;21,"777.5 ")
;;72
;;21,"779.0 ")
;;73
;;21,"780.01 ")
;;74
;;21,"785.50 ")
;;75
;;21,"799.1 ")
;;76
;;21,"799.4 ")
;;77
;;21,"800.10 ")
;;78
;;21,"800.60 ")
;;79
;;21,"802.20 ")
;;80
;;21,"803.10 ")
;;81
;;21,"803.60 ")
;;82
;;21,"804.10 ")
;;83
;;21,"804.60 ")
;;84
;;21,"806.00 ")
;;85
;;21,"808.0 ")
;;86
;;21,"819.0 ")
;;87
;;21,"827.0 ")
;;88
;;21,"851.0 ")
;;89
;;21,"860.0 ")
;;90
;;21,"871.0 ")
;;91
;;21,"887.0 ")
;;92
;;21,"897.0 ")
;;93
;;21,"900.00 ")
;;94
;;21,"941.3 ")
;;95
;;21,"942.3 ")
;;96
;;21,"943.3 ")
;;97
;;21,"944.3 ")
;;98
;;21,"945.3 ")
;;99
;;21,"946.3 ")
;;100
;;21,"948.10 ")
;;101
;;21,"949.3 ")
;;102
;;21,"952.00 ")
;;103
;;21,"958.4 ")
;;104
;;21,"984.0 ")
;;105
;;21,"996.00 ")
;;106
;;9002226,118,.01)
;;BMC POTENTIAL HIGH COST DX
;;9002226,118,.02)
;;POTENTIAL HIGH COST DX
;;9002226,118,.04)
;;n
;;9002226,118,.08)
;;0
;;9002226,118,.09)
;;2951113
;;9002226,118,.12)
;;31
;;9002226,118,.13)
;;1
;;9002226,118,.14)
;;BA
;;9002226,118,.15)
;;80
;;9002226,118,.16)
;;1
;;9002226.02101,"118,005.1 ",.01)
;;005.1
;;9002226.02101,"118,005.1 ",.02)
;;005.1
;;9002226.02101,"118,038.1 ",.01)
;;038.1
;;9002226.02101,"118,038.1 ",.02)
;;038.1
;;9002226.02101,"118,042 ",.01)
;;042
;;9002226.02101,"118,042 ",.02)
;;042
;;9002226.02101,"118,052.0 ",.01)
;;052.0
;;9002226.02101,"118,052.0 ",.02)
;;052.1
;;9002226.02101,"118,140.0 ",.01)
;;140.0
;;9002226.02101,"118,140.0 ",.02)
;;208.9
;;9002226.02101,"118,225.0 ",.01)
;;225.0
;;9002226.02101,"118,225.0 ",.02)
;;225.4
;;9002226.02101,"118,255.2 ",.01)
;;255.2
;;9002226.02101,"118,255.2 ",.02)
;;255.2
;
OTHER ; OTHER ROUTINES
D ^BMCTXFB
D ^BMCTXFC
Q
BMCTXF ; IHS/PHXAO/TMJ -CREATED BY ^ATXSTX ON APR 12, 1996 ;
+1 ;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006
+2 ;;BMC POTENTIAL HIGH COST DX
+3 ;
+4 ; This routine loads Taxonomy BMC POTENTIAL HIGH COST 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 ;;3.6,149,.01)
+2 ;;BMC POTENTIAL HIGH COST DX
+3 ;;3.6,149,2)
+4 ;;POTENTIAL HIGH COST DIAGNOSES
+5 ;;3.63,149,1,0)
+6 ;;^^7^7^2951205^^
+7 ;;3.63,149,1,1,0)
+8 ;;Patient Name: |1| Date Referral Initiated: |2|
+9 ;;3.63,149,1,2,0)
+10 ;;Referral #: |3|
+11 ;;3.63,149,1,3,0)
+12 ;;Requesting Provider: |4|
+13 ;;3.63,149,1,4,0)
+14 ;;
+15 ;;3.63,149,1,5,0)
+16 ;;Diagnosis: |5|
+17 ;;3.63,149,1,6,0)
+18 ;;
+19 ;;3.63,149,1,7,0)
+20 ;;This referral is for a potentially high cost diagnosis.
+21 ;;3.63,149,3,0)
+22 ;;^^2^2^2951205^^
+23 ;;3.63,149,3,1,0)
+24 ;;This bulletin is sent if a referral is made for a potentially high cost
+25 ;;3.63,149,3,2,0)
+26 ;;diagnosis.
+27 ;;3.64,"149,1",.01)
+28 ;;1
+29 ;;3.64,"149,1",1,0)
+30 ;;^^1^1^2951113^
+31 ;;3.64,"149,1",1,1,0)
+32 ;;Name of patient being referred.
+33 ;;3.64,"149,2",.01)
+34 ;;2
+35 ;;3.64,"149,2",1,0)
+36 ;;^^1^1^2951113^
+37 ;;3.64,"149,2",1,1,0)
+38 ;;Date referral initiated.
+39 ;;3.64,"149,3",.01)
+40 ;;3
+41 ;;3.64,"149,3",1,0)
+42 ;;^^1^1^2951113^
+43 ;;3.64,"149,3",1,1,0)
+44 ;;Ten character referral number.
+45 ;;3.64,"149,4",.01)
+46 ;;4
+47 ;;3.64,"149,4",1,0)
+48 ;;^^1^1^2951113^
+49 ;;3.64,"149,4",1,1,0)
+50 ;;Name of provider requesting referral.
+51 ;;3.64,"149,5",.01)
+52 ;;5
+53 ;;3.64,"149,5",1,0)
+54 ;;^^1^1^2951205^^
+55 ;;3.64,"149,5",1,1,0)
+56 ;;Diagnosis being referred for.
+57 ;;21,"005.1 ")
+58 ;;1
+59 ;;21,"038.1 ")
+60 ;;2
+61 ;;21,"042 ")
+62 ;;3
+63 ;;21,"052.0 ")
+64 ;;4
+65 ;;21,"140.0 ")
+66 ;;5
+67 ;;21,"225.0 ")
+68 ;;6
+69 ;;21,"255.2 ")
+70 ;;7
+71 ;;21,"257.8 ")
+72 ;;8
+73 ;;21,"270.0 ")
+74 ;;9
+75 ;;21,"271.1 ")
+76 ;;10
+77 ;;21,"277.0 ")
+78 ;;11
+79 ;;21,"277.5 ")
+80 ;;12
+81 ;;21,"277.8 ")
+82 ;;13
+83 ;;21,"279 ")
+84 ;;14
+85 ;;21,"282.6 ")
+86 ;;15
+87 ;;21,"284.0 ")
+88 ;;16
+89 ;;21,"286.0 ")
+90 ;;17
+91 ;;21,"287.3 ")
+92 ;;18
+93 ;;21,"295.00 ")
+94 ;;19
+95 ;;21,"296.90 ")
+96 ;;20
+97 ;;21,"297.0 ")
+98 ;;21
+99 ;;21,"335.2 ")
+100 ;;22
+101 ;;21,"340 ")
+102 ;;23
+103 ;;21,"345.3 ")
+104 ;;24
+105 ;;21,"348.1 ")
+106 ;;25
+107 ;;21,"348.3 ")
+108 ;;26
+109 ;;21,"357.0 ")
+110 ;;27
+111 ;;21,"362.50 ")
+112 ;;28
+113 ;;21,"402.0 ")
+114 ;;29
+115 ;;21,"403.0 ")
+116 ;;30
+117 ;;21,"404.0 ")
+118 ;;31
+119 ;;21,"405.0 ")
+120 ;;32
+121 ;;21,"411.1 ")
+122 ;;33
+123 ;;21,"414.1 ")
+124 ;;34
+125 ;;21,"421.0 ")
+126 ;;35
+127 ;;21,"424.90 ")
+128 ;;36
+129 ;;21,"427.41 ")
+130 ;;37
+131 ;;21,"427.5 ")
+132 ;;38
+133 ;;21,"429.5 ")
+134 ;;39
+135 ;;21,"429.7 ")
+136 ;;40
+137 ;;21,"430 ")
+138 ;;41
+139 ;;21,"434.0 ")
+140 ;;42
+141 ;;21,"441.00 ")
+142 ;;43
+143 ;;21,"446.0 ")
+144 ;;44
+145 ;;21,"482.4 ")
+146 ;;45
+147 ;;21,"492.0 ")
+148 ;;46
+149 ;;21,"494 ")
+150 ;;47
+151 ;;21,"500 ")
+152 ;;48
+153 ;;21,"506.4 ")
+154 ;;49
+155 ;;21,"515 ")
+156 ;;50
+157 ;;21,"518.5 ")
+158 ;;51
+159 ;;21,"526.89 ")
+160 ;;52
+161 ;;21,"570 ")
+162 ;;53
+163 ;;21,"571.2 ")
+164 ;;54
+165 ;;21,"571.5 ")
+166 ;;55
+167 ;;21,"579.3 ")
+168 ;;56
+169 ;;21,"585 ")
+170 ;;57
+171 ;;21,"644.20 ")
+172 ;;58
+173 ;;21,"710.0 ")
+174 ;;59
+175 ;;21,"730.0 ")
+176 ;;60
+177 ;;21,"740.0 ")
+178 ;;61
+179 ;;21,"765.0 ")
+180 ;;62
+181 ;;21,"767.0 ")
+182 ;;63
+183 ;;21,"767.4 ")
+184 ;;64
+185 ;;21,"768.5 ")
+186 ;;65
+187 ;;21,"769 ")
+188 ;;66
+189 ;;21,"770.0 ")
+190 ;;67
+191 ;;21,"771.0 ")
+192 ;;68
+193 ;;21,"771.8 ")
+194 ;;69
+195 ;;21,"772.1 ")
+196 ;;70
+197 ;;21,"773.3 ")
+198 ;;71
+199 ;;21,"777.5 ")
+200 ;;72
+201 ;;21,"779.0 ")
+202 ;;73
+203 ;;21,"780.01 ")
+204 ;;74
+205 ;;21,"785.50 ")
+206 ;;75
+207 ;;21,"799.1 ")
+208 ;;76
+209 ;;21,"799.4 ")
+210 ;;77
+211 ;;21,"800.10 ")
+212 ;;78
+213 ;;21,"800.60 ")
+214 ;;79
+215 ;;21,"802.20 ")
+216 ;;80
+217 ;;21,"803.10 ")
+218 ;;81
+219 ;;21,"803.60 ")
+220 ;;82
+221 ;;21,"804.10 ")
+222 ;;83
+223 ;;21,"804.60 ")
+224 ;;84
+225 ;;21,"806.00 ")
+226 ;;85
+227 ;;21,"808.0 ")
+228 ;;86
+229 ;;21,"819.0 ")
+230 ;;87
+231 ;;21,"827.0 ")
+232 ;;88
+233 ;;21,"851.0 ")
+234 ;;89
+235 ;;21,"860.0 ")
+236 ;;90
+237 ;;21,"871.0 ")
+238 ;;91
+239 ;;21,"887.0 ")
+240 ;;92
+241 ;;21,"897.0 ")
+242 ;;93
+243 ;;21,"900.00 ")
+244 ;;94
+245 ;;21,"941.3 ")
+246 ;;95
+247 ;;21,"942.3 ")
+248 ;;96
+249 ;;21,"943.3 ")
+250 ;;97
+251 ;;21,"944.3 ")
+252 ;;98
+253 ;;21,"945.3 ")
+254 ;;99
+255 ;;21,"946.3 ")
+256 ;;100
+257 ;;21,"948.10 ")
+258 ;;101
+259 ;;21,"949.3 ")
+260 ;;102
+261 ;;21,"952.00 ")
+262 ;;103
+263 ;;21,"958.4 ")
+264 ;;104
+265 ;;21,"984.0 ")
+266 ;;105
+267 ;;21,"996.00 ")
+268 ;;106
+269 ;;9002226,118,.01)
+270 ;;BMC POTENTIAL HIGH COST DX
+271 ;;9002226,118,.02)
+272 ;;POTENTIAL HIGH COST DX
+273 ;;9002226,118,.04)
+274 ;;n
+275 ;;9002226,118,.08)
+276 ;;0
+277 ;;9002226,118,.09)
+278 ;;2951113
+279 ;;9002226,118,.12)
+280 ;;31
+281 ;;9002226,118,.13)
+282 ;;1
+283 ;;9002226,118,.14)
+284 ;;BA
+285 ;;9002226,118,.15)
+286 ;;80
+287 ;;9002226,118,.16)
+288 ;;1
+289 ;;9002226.02101,"118,005.1 ",.01)
+290 ;;005.1
+291 ;;9002226.02101,"118,005.1 ",.02)
+292 ;;005.1
+293 ;;9002226.02101,"118,038.1 ",.01)
+294 ;;038.1
+295 ;;9002226.02101,"118,038.1 ",.02)
+296 ;;038.1
+297 ;;9002226.02101,"118,042 ",.01)
+298 ;;042
+299 ;;9002226.02101,"118,042 ",.02)
+300 ;;042
+301 ;;9002226.02101,"118,052.0 ",.01)
+302 ;;052.0
+303 ;;9002226.02101,"118,052.0 ",.02)
+304 ;;052.1
+305 ;;9002226.02101,"118,140.0 ",.01)
+306 ;;140.0
+307 ;;9002226.02101,"118,140.0 ",.02)
+308 ;;208.9
+309 ;;9002226.02101,"118,225.0 ",.01)
+310 ;;225.0
+311 ;;9002226.02101,"118,225.0 ",.02)
+312 ;;225.4
+313 ;;9002226.02101,"118,255.2 ",.01)
+314 ;;255.2
+315 ;;9002226.02101,"118,255.2 ",.02)
+316 ;;255.2
+317 ;
OTHER ; OTHER ROUTINES
+1 DO ^BMCTXFB
+2 DO ^BMCTXFC
+3 QUIT
