IBINI0BN ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQR(399.2) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,399.2,880,0)
;;=880^DIALY/MISC^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,881,0)
;;=881^DIALY/ULTRAFILT^^ULTRAFILTRATION
;;^UTILITY(U,$J,399.2,882,0)
;;=882^HOME DIALYSIS AID VISIT^^HOME DIALYSIS AID VISIT
;;^UTILITY(U,$J,399.2,883,0)
;;=883^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,884,0)
;;=884^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,885,0)
;;=885^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,886,0)
;;=886^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,887,0)
;;=887^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,888,0)
;;=888^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,889,0)
;;=889^DIALY/MISC/OTHER^^MISC. DIALYSIS OTHER
;;^UTILITY(U,$J,399.2,890,0)
;;=890^DONOR BANK^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,891,0)
;;=891^DONOR BANK/BONE^^BONE
;;^UTILITY(U,$J,399.2,892,0)
;;=892^DONOR BANK/ORGN^^ORGAN (OTHER THAN KIDNEY)
;;^UTILITY(U,$J,399.2,893,0)
;;=893^DONOR BANK/SKIN^^SKIN
;;^UTILITY(U,$J,399.2,894,0)
;;=894^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,895,0)
;;=895^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,896,0)
;;=896^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,897,0)
;;=897^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,898,0)
;;=898^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,899,0)
;;=899^OTHER DONOR BANK^^OTHER DONOR BANK
;;^UTILITY(U,$J,399.2,900,0)
;;=900^PSYCH TREATMENT^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,901,0)
;;=901^ELECTRO SHOCK^^ELECTROSHOCK TREATMENT
;;^UTILITY(U,$J,399.2,902,0)
;;=902^MILIEU THERAPY^^MILIEU THERAPY
;;^UTILITY(U,$J,399.2,903,0)
;;=903^PLAY THERAPY^^PLAY THERAPY
;;^UTILITY(U,$J,399.2,904,0)
;;=904^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,905,0)
;;=905^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,906,0)
;;=906^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,907,0)
;;=907^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,908,0)
;;=908^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,909,0)
;;=909^OTHER PSYCH RX^^OTHER
;;^UTILITY(U,$J,399.2,910,0)
;;=910^PSYCH SERVICES^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,911,0)
;;=911^PSYCH/REHAB^^REHABILITATION
;;^UTILITY(U,$J,399.2,912,0)
;;=912^PSYCH/DAYCARE^^DAY CARE
;;^UTILITY(U,$J,399.2,913,0)
;;=913^PSYCH/NIGHTCARE^^NIGHT CARE
;;^UTILITY(U,$J,399.2,914,0)
;;=914^PSYCH/INDIV RX^^INDIVIDUAL THERAPY
;;^UTILITY(U,$J,399.2,915,0)
;;=915^PSYCH/GROUP RX^^GROUP THERAPY
;;^UTILITY(U,$J,399.2,916,0)
;;=916^PSYCH/FAMILY RX^^FAMILY THERAPY
;;^UTILITY(U,$J,399.2,917,0)
;;=917^PSYCH/BIOFEED^^BIO FEEDBACK
;;^UTILITY(U,$J,399.2,918,0)
;;=918^PSYCH/TESTING^^TESTING
;;^UTILITY(U,$J,399.2,919,0)
;;=919^PSYCH/OTHER^^OTHER
;;^UTILITY(U,$J,399.2,920,0)
;;=920^OTHER DX SVS^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,921,0)
;;=921^PERI VASCUL LAB^^PERIPHERAL VASCULAR LAB
;;^UTILITY(U,$J,399.2,922,0)
;;=922^EMG^^ELECTROMYELGRAM
;;^UTILITY(U,$J,399.2,923,0)
;;=923^PAP SMEAR^^PAP SMEAR
;;^UTILITY(U,$J,399.2,924,0)
;;=924^ALLERGY TEST^^ALLERGY TEST
;;^UTILITY(U,$J,399.2,925,0)
;;=925^PREG TEST^^PREGNANCY TEST
;;^UTILITY(U,$J,399.2,926,0)
;;=926^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,927,0)
;;=927^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,928,0)
;;=928^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,929,0)
;;=929^ADDITIONAL DX SVS^^OTHER DIAGNOSTIC SERVICE
;;^UTILITY(U,$J,399.2,930,0)
;;=930^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,931,0)
;;=931^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,932,0)
;;=932^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,933,0)
;;=933^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,934,0)
;;=934^*RESERVED^^*RESERVED
IBINI0BN ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQR(399.2)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
IF X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
IF $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
IF $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,399.2,880,0)
+2 ;;=880^DIALY/MISC^^GENERAL CLASSIFICATION
+3 ;;^UTILITY(U,$J,399.2,881,0)
+4 ;;=881^DIALY/ULTRAFILT^^ULTRAFILTRATION
+5 ;;^UTILITY(U,$J,399.2,882,0)
+6 ;;=882^HOME DIALYSIS AID VISIT^^HOME DIALYSIS AID VISIT
+7 ;;^UTILITY(U,$J,399.2,883,0)
+8 ;;=883^*RESERVED^^*RESERVED
+9 ;;^UTILITY(U,$J,399.2,884,0)
+10 ;;=884^*RESERVED^^*RESERVED
+11 ;;^UTILITY(U,$J,399.2,885,0)
+12 ;;=885^*RESERVED^^*RESERVED
+13 ;;^UTILITY(U,$J,399.2,886,0)
+14 ;;=886^*RESERVED^^*RESERVED
+15 ;;^UTILITY(U,$J,399.2,887,0)
+16 ;;=887^*RESERVED^^*RESERVED
+17 ;;^UTILITY(U,$J,399.2,888,0)
+18 ;;=888^*RESERVED^^*RESERVED
+19 ;;^UTILITY(U,$J,399.2,889,0)
+20 ;;=889^DIALY/MISC/OTHER^^MISC. DIALYSIS OTHER
+21 ;;^UTILITY(U,$J,399.2,890,0)
+22 ;;=890^DONOR BANK^^GENERAL CLASSIFICATION
+23 ;;^UTILITY(U,$J,399.2,891,0)
+24 ;;=891^DONOR BANK/BONE^^BONE
+25 ;;^UTILITY(U,$J,399.2,892,0)
+26 ;;=892^DONOR BANK/ORGN^^ORGAN (OTHER THAN KIDNEY)
+27 ;;^UTILITY(U,$J,399.2,893,0)
+28 ;;=893^DONOR BANK/SKIN^^SKIN
+29 ;;^UTILITY(U,$J,399.2,894,0)
+30 ;;=894^*RESERVED^^*RESERVED
+31 ;;^UTILITY(U,$J,399.2,895,0)
+32 ;;=895^*RESERVED^^*RESERVED
+33 ;;^UTILITY(U,$J,399.2,896,0)
+34 ;;=896^*RESERVED^^*RESERVED
+35 ;;^UTILITY(U,$J,399.2,897,0)
+36 ;;=897^*RESERVED^^*RESERVED
+37 ;;^UTILITY(U,$J,399.2,898,0)
+38 ;;=898^*RESERVED^^*RESERVED
+39 ;;^UTILITY(U,$J,399.2,899,0)
+40 ;;=899^OTHER DONOR BANK^^OTHER DONOR BANK
+41 ;;^UTILITY(U,$J,399.2,900,0)
+42 ;;=900^PSYCH TREATMENT^^GENERAL CLASSIFICATION
+43 ;;^UTILITY(U,$J,399.2,901,0)
+44 ;;=901^ELECTRO SHOCK^^ELECTROSHOCK TREATMENT
+45 ;;^UTILITY(U,$J,399.2,902,0)
+46 ;;=902^MILIEU THERAPY^^MILIEU THERAPY
+47 ;;^UTILITY(U,$J,399.2,903,0)
+48 ;;=903^PLAY THERAPY^^PLAY THERAPY
+49 ;;^UTILITY(U,$J,399.2,904,0)
+50 ;;=904^*RESERVED^^*RESERVED
+51 ;;^UTILITY(U,$J,399.2,905,0)
+52 ;;=905^*RESERVED^^*RESERVED
+53 ;;^UTILITY(U,$J,399.2,906,0)
+54 ;;=906^*RESERVED^^*RESERVED
+55 ;;^UTILITY(U,$J,399.2,907,0)
+56 ;;=907^*RESERVED^^*RESERVED
+57 ;;^UTILITY(U,$J,399.2,908,0)
+58 ;;=908^*RESERVED^^*RESERVED
+59 ;;^UTILITY(U,$J,399.2,909,0)
+60 ;;=909^OTHER PSYCH RX^^OTHER
+61 ;;^UTILITY(U,$J,399.2,910,0)
+62 ;;=910^PSYCH SERVICES^^GENERAL CLASSIFICATION
+63 ;;^UTILITY(U,$J,399.2,911,0)
+64 ;;=911^PSYCH/REHAB^^REHABILITATION
+65 ;;^UTILITY(U,$J,399.2,912,0)
+66 ;;=912^PSYCH/DAYCARE^^DAY CARE
+67 ;;^UTILITY(U,$J,399.2,913,0)
+68 ;;=913^PSYCH/NIGHTCARE^^NIGHT CARE
+69 ;;^UTILITY(U,$J,399.2,914,0)
+70 ;;=914^PSYCH/INDIV RX^^INDIVIDUAL THERAPY
+71 ;;^UTILITY(U,$J,399.2,915,0)
+72 ;;=915^PSYCH/GROUP RX^^GROUP THERAPY
+73 ;;^UTILITY(U,$J,399.2,916,0)
+74 ;;=916^PSYCH/FAMILY RX^^FAMILY THERAPY
+75 ;;^UTILITY(U,$J,399.2,917,0)
+76 ;;=917^PSYCH/BIOFEED^^BIO FEEDBACK
+77 ;;^UTILITY(U,$J,399.2,918,0)
+78 ;;=918^PSYCH/TESTING^^TESTING
+79 ;;^UTILITY(U,$J,399.2,919,0)
+80 ;;=919^PSYCH/OTHER^^OTHER
+81 ;;^UTILITY(U,$J,399.2,920,0)
+82 ;;=920^OTHER DX SVS^^GENERAL CLASSIFICATION
+83 ;;^UTILITY(U,$J,399.2,921,0)
+84 ;;=921^PERI VASCUL LAB^^PERIPHERAL VASCULAR LAB
+85 ;;^UTILITY(U,$J,399.2,922,0)
+86 ;;=922^EMG^^ELECTROMYELGRAM
+87 ;;^UTILITY(U,$J,399.2,923,0)
+88 ;;=923^PAP SMEAR^^PAP SMEAR
+89 ;;^UTILITY(U,$J,399.2,924,0)
+90 ;;=924^ALLERGY TEST^^ALLERGY TEST
+91 ;;^UTILITY(U,$J,399.2,925,0)
+92 ;;=925^PREG TEST^^PREGNANCY TEST
+93 ;;^UTILITY(U,$J,399.2,926,0)
+94 ;;=926^*RESERVED^^*RESERVED
+95 ;;^UTILITY(U,$J,399.2,927,0)
+96 ;;=927^*RESERVED^^*RESERVED
+97 ;;^UTILITY(U,$J,399.2,928,0)
+98 ;;=928^*RESERVED^^*RESERVED
+99 ;;^UTILITY(U,$J,399.2,929,0)
+100 ;;=929^ADDITIONAL DX SVS^^OTHER DIAGNOSTIC SERVICE
+101 ;;^UTILITY(U,$J,399.2,930,0)
+102 ;;=930^*RESERVED^^*RESERVED
+103 ;;^UTILITY(U,$J,399.2,931,0)
+104 ;;=931^*RESERVED^^*RESERVED
+105 ;;^UTILITY(U,$J,399.2,932,0)
+106 ;;=932^*RESERVED^^*RESERVED
+107 ;;^UTILITY(U,$J,399.2,933,0)
+108 ;;=933^*RESERVED^^*RESERVED
+109 ;;^UTILITY(U,$J,399.2,934,0)
+110 ;;=934^*RESERVED^^*RESERVED
