- 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
