IBINI0BB ; ; 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,233,0)
;;=233^NUR INCR/ICU^^ICU
;;^UTILITY(U,$J,399.2,234,0)
;;=234^NUR INCR/CCU^^CCU
;;^UTILITY(U,$J,399.2,235,0)
;;=235^NUR INCR/HOSPICE^^HOSPICE
;;^UTILITY(U,$J,399.2,236,0)
;;=236^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,237,0)
;;=237^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,238,0)
;;=238^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,239,0)
;;=239^NUR INCR/OTHER^^OTHER
;;^UTILITY(U,$J,399.2,240,0)
;;=240^ALL INCL ANCIL^1^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,241,0)
;;=241^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,242,0)
;;=242^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,243,0)
;;=243^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,244,0)
;;=244^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,245,0)
;;=245^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,246,0)
;;=246^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,247,0)
;;=247^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,248,0)
;;=248^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,249,0)
;;=249^ALL INCL ANCIL/OTHER^^OTHER INCLUSIVE ANCILLARY
;;^UTILITY(U,$J,399.2,250,0)
;;=250^PHARMACY^1^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,251,0)
;;=251^DRUGS/GENERIC^^GENERIC DRUGS
;;^UTILITY(U,$J,399.2,252,0)
;;=252^DRUGS/NONGENERIC^^NON-GENERIC DRUGS
;;^UTILITY(U,$J,399.2,253,0)
;;=253^DRUGS/TAKEHOME^^TAKE HOME DRUGS
;;^UTILITY(U,$J,399.2,254,0)
;;=254^DRUGS/INCIDNT OTHER DX^^DRUGS INCIDENT TO OTHER DIAGNOSTIC SERVICES
;;^UTILITY(U,$J,399.2,255,0)
;;=255^DRUGS/INCIDENT RAD^^DRUGS INCIDENT TO RADIOLOGY
;;^UTILITY(U,$J,399.2,256,0)
;;=256^DRUGS/EXPERIMT^^EXPERIMENTAL DRUGS
;;^UTILITY(U,$J,399.2,257,0)
;;=257^DRGS/NONSCRPT^1^NON-PRESCRIPTION
;;^UTILITY(U,$J,399.2,258,0)
;;=258^IV SOLUTIONS^^IV SOLUTIONS
;;^UTILITY(U,$J,399.2,259,0)
;;=259^DRGS/OTHER^^OTHER PHARMACY
;;^UTILITY(U,$J,399.2,260,0)
;;=260^IV THERAPY^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,261,0)
;;=261^IV THER/INFSN PUMP^^INFUSION PUMP
;;^UTILITY(U,$J,399.2,262,0)
;;=262^IV THER/PHARM/SVC^^IV THERAPY/PHARMACY SVCS
;;^UTILITY(U,$J,399.2,263,0)
;;=263^IV THER/DRUG/SUPPLY DELV^^IV THERAPY/DRUG/SUPPLY DELIVERY
;;^UTILITY(U,$J,399.2,264,0)
;;=264^IV THER/SUPPLIES^^IV THERAPY/SUPPLIES
;;^UTILITY(U,$J,399.2,265,0)
;;=265^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,266,0)
;;=266^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,267,0)
;;=267^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,268,0)
;;=268^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,269,0)
;;=269^IV THERAPY/OTHER^^OTHER IV THERAPY
;;^UTILITY(U,$J,399.2,270,0)
;;=270^MED-SUR SUPPLIES^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,271,0)
;;=271^NON-STER SUPPLY^^NON STERILE SUPPLY
;;^UTILITY(U,$J,399.2,272,0)
;;=272^STERILE SUPPLY^^STERILE SUPPLY
;;^UTILITY(U,$J,399.2,273,0)
;;=273^TAKEHOME SUPPLY^^TAKE HOME SUPPLIES
;;^UTILITY(U,$J,399.2,274,0)
;;=274^PROSTH/ORTH DEV^1^PROSTHETIC/ORTHOTIC DEVICES
;;^UTILITY(U,$J,399.2,275,0)
;;=275^PACE MAKER^^PACE MAKER
;;^UTILITY(U,$J,399.2,276,0)
;;=276^INTRA OC LENS^^INTRAOCULAR LENS
;;^UTILITY(U,$J,399.2,277,0)
;;=277^O2/TAKEHOME^^OXYGEN-TAKE HOME
;;^UTILITY(U,$J,399.2,278,0)
;;=278^SUPPLY/IMPLANTS^^OTHER IMPLANTS
;;^UTILITY(U,$J,399.2,279,0)
;;=279^SUPPLY/OTHER^^OTHER SUPPLIES/DEVICES
;;^UTILITY(U,$J,399.2,280,0)
;;=280^ONCOLOGY^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,281,0)
;;=281^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,282,0)
;;=282^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,283,0)
;;=283^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,284,0)
;;=284^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,285,0)
;;=285^*RESERVED^^*RESERVED
IBINI0BB ; ; 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,233,0)
+2 ;;=233^NUR INCR/ICU^^ICU
+3 ;;^UTILITY(U,$J,399.2,234,0)
+4 ;;=234^NUR INCR/CCU^^CCU
+5 ;;^UTILITY(U,$J,399.2,235,0)
+6 ;;=235^NUR INCR/HOSPICE^^HOSPICE
+7 ;;^UTILITY(U,$J,399.2,236,0)
+8 ;;=236^*RESERVED^^*RESERVED
+9 ;;^UTILITY(U,$J,399.2,237,0)
+10 ;;=237^*RESERVED^^*RESERVED
+11 ;;^UTILITY(U,$J,399.2,238,0)
+12 ;;=238^*RESERVED^^*RESERVED
+13 ;;^UTILITY(U,$J,399.2,239,0)
+14 ;;=239^NUR INCR/OTHER^^OTHER
+15 ;;^UTILITY(U,$J,399.2,240,0)
+16 ;;=240^ALL INCL ANCIL^1^GENERAL CLASSIFICATION
+17 ;;^UTILITY(U,$J,399.2,241,0)
+18 ;;=241^*RESERVED^^*RESERVED
+19 ;;^UTILITY(U,$J,399.2,242,0)
+20 ;;=242^*RESERVED^^*RESERVED
+21 ;;^UTILITY(U,$J,399.2,243,0)
+22 ;;=243^*RESERVED^^*RESERVED
+23 ;;^UTILITY(U,$J,399.2,244,0)
+24 ;;=244^*RESERVED^^*RESERVED
+25 ;;^UTILITY(U,$J,399.2,245,0)
+26 ;;=245^*RESERVED^^*RESERVED
+27 ;;^UTILITY(U,$J,399.2,246,0)
+28 ;;=246^*RESERVED^^*RESERVED
+29 ;;^UTILITY(U,$J,399.2,247,0)
+30 ;;=247^*RESERVED^^*RESERVED
+31 ;;^UTILITY(U,$J,399.2,248,0)
+32 ;;=248^*RESERVED^^*RESERVED
+33 ;;^UTILITY(U,$J,399.2,249,0)
+34 ;;=249^ALL INCL ANCIL/OTHER^^OTHER INCLUSIVE ANCILLARY
+35 ;;^UTILITY(U,$J,399.2,250,0)
+36 ;;=250^PHARMACY^1^GENERAL CLASSIFICATION
+37 ;;^UTILITY(U,$J,399.2,251,0)
+38 ;;=251^DRUGS/GENERIC^^GENERIC DRUGS
+39 ;;^UTILITY(U,$J,399.2,252,0)
+40 ;;=252^DRUGS/NONGENERIC^^NON-GENERIC DRUGS
+41 ;;^UTILITY(U,$J,399.2,253,0)
+42 ;;=253^DRUGS/TAKEHOME^^TAKE HOME DRUGS
+43 ;;^UTILITY(U,$J,399.2,254,0)
+44 ;;=254^DRUGS/INCIDNT OTHER DX^^DRUGS INCIDENT TO OTHER DIAGNOSTIC SERVICES
+45 ;;^UTILITY(U,$J,399.2,255,0)
+46 ;;=255^DRUGS/INCIDENT RAD^^DRUGS INCIDENT TO RADIOLOGY
+47 ;;^UTILITY(U,$J,399.2,256,0)
+48 ;;=256^DRUGS/EXPERIMT^^EXPERIMENTAL DRUGS
+49 ;;^UTILITY(U,$J,399.2,257,0)
+50 ;;=257^DRGS/NONSCRPT^1^NON-PRESCRIPTION
+51 ;;^UTILITY(U,$J,399.2,258,0)
+52 ;;=258^IV SOLUTIONS^^IV SOLUTIONS
+53 ;;^UTILITY(U,$J,399.2,259,0)
+54 ;;=259^DRGS/OTHER^^OTHER PHARMACY
+55 ;;^UTILITY(U,$J,399.2,260,0)
+56 ;;=260^IV THERAPY^^GENERAL CLASSIFICATION
+57 ;;^UTILITY(U,$J,399.2,261,0)
+58 ;;=261^IV THER/INFSN PUMP^^INFUSION PUMP
+59 ;;^UTILITY(U,$J,399.2,262,0)
+60 ;;=262^IV THER/PHARM/SVC^^IV THERAPY/PHARMACY SVCS
+61 ;;^UTILITY(U,$J,399.2,263,0)
+62 ;;=263^IV THER/DRUG/SUPPLY DELV^^IV THERAPY/DRUG/SUPPLY DELIVERY
+63 ;;^UTILITY(U,$J,399.2,264,0)
+64 ;;=264^IV THER/SUPPLIES^^IV THERAPY/SUPPLIES
+65 ;;^UTILITY(U,$J,399.2,265,0)
+66 ;;=265^*RESERVED^^*RESERVED
+67 ;;^UTILITY(U,$J,399.2,266,0)
+68 ;;=266^*RESERVED^^*RESERVED
+69 ;;^UTILITY(U,$J,399.2,267,0)
+70 ;;=267^*RESERVED^^*RESERVED
+71 ;;^UTILITY(U,$J,399.2,268,0)
+72 ;;=268^*RESERVED^^*RESERVED
+73 ;;^UTILITY(U,$J,399.2,269,0)
+74 ;;=269^IV THERAPY/OTHER^^OTHER IV THERAPY
+75 ;;^UTILITY(U,$J,399.2,270,0)
+76 ;;=270^MED-SUR SUPPLIES^^GENERAL CLASSIFICATION
+77 ;;^UTILITY(U,$J,399.2,271,0)
+78 ;;=271^NON-STER SUPPLY^^NON STERILE SUPPLY
+79 ;;^UTILITY(U,$J,399.2,272,0)
+80 ;;=272^STERILE SUPPLY^^STERILE SUPPLY
+81 ;;^UTILITY(U,$J,399.2,273,0)
+82 ;;=273^TAKEHOME SUPPLY^^TAKE HOME SUPPLIES
+83 ;;^UTILITY(U,$J,399.2,274,0)
+84 ;;=274^PROSTH/ORTH DEV^1^PROSTHETIC/ORTHOTIC DEVICES
+85 ;;^UTILITY(U,$J,399.2,275,0)
+86 ;;=275^PACE MAKER^^PACE MAKER
+87 ;;^UTILITY(U,$J,399.2,276,0)
+88 ;;=276^INTRA OC LENS^^INTRAOCULAR LENS
+89 ;;^UTILITY(U,$J,399.2,277,0)
+90 ;;=277^O2/TAKEHOME^^OXYGEN-TAKE HOME
+91 ;;^UTILITY(U,$J,399.2,278,0)
+92 ;;=278^SUPPLY/IMPLANTS^^OTHER IMPLANTS
+93 ;;^UTILITY(U,$J,399.2,279,0)
+94 ;;=279^SUPPLY/OTHER^^OTHER SUPPLIES/DEVICES
+95 ;;^UTILITY(U,$J,399.2,280,0)
+96 ;;=280^ONCOLOGY^^GENERAL CLASSIFICATION
+97 ;;^UTILITY(U,$J,399.2,281,0)
+98 ;;=281^*RESERVED^^*RESERVED
+99 ;;^UTILITY(U,$J,399.2,282,0)
+100 ;;=282^*RESERVED^^*RESERVED
+101 ;;^UTILITY(U,$J,399.2,283,0)
+102 ;;=283^*RESERVED^^*RESERVED
+103 ;;^UTILITY(U,$J,399.2,284,0)
+104 ;;=284^*RESERVED^^*RESERVED
+105 ;;^UTILITY(U,$J,399.2,285,0)
+106 ;;=285^*RESERVED^^*RESERVED
