- IBINI0BO ; ; 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,935,0)
- ;;=935^*RESERVED^^*RESERVED
- ;;^UTILITY(U,$J,399.2,936,0)
- ;;=936^*RESERVED^^*RESERVED
- ;;^UTILITY(U,$J,399.2,937,0)
- ;;=937^*RESERVED^^*RESERVED
- ;;^UTILITY(U,$J,399.2,938,0)
- ;;=938^*RESERVED^^*RESERVED
- ;;^UTILITY(U,$J,399.2,939,0)
- ;;=939^*RESERVED^^*RESERVED
- ;;^UTILITY(U,$J,399.2,940,0)
- ;;=940^OTHER RX SVS^^GENERAL CLASSIFICATION
- ;;^UTILITY(U,$J,399.2,941,0)
- ;;=941^RECREATION RX^^RECREATIONAL THERAPY
- ;;^UTILITY(U,$J,399.2,942,0)
- ;;=942^EDUC/TRAINING^^EDUCATION/TRAINING
- ;;^UTILITY(U,$J,399.2,943,0)
- ;;=943^CARDIAC REHAB^^CARDIAC REHABILITATION
- ;;^UTILITY(U,$J,399.2,944,0)
- ;;=944^DRUG REHAB^^DRUG REHABILITATION
- ;;^UTILITY(U,$J,399.2,945,0)
- ;;=945^ALCOHOL REHABILITATION^^ALCOHOL REHAB
- ;;^UTILITY(U,$J,399.2,946,0)
- ;;=946^AIR FLUID BEDS^^AIR FLUID SUPPORT BEDS
- ;;^UTILITY(U,$J,399.2,947,0)
- ;;=947^CMPLX MED EQUIP-ANC^^COMPLEX MEDICAL EQUIPMENT - ANCILLARY
- ;;^UTILITY(U,$J,399.2,948,0)
- ;;=948^*RESERVED^^*RESERVED
- ;;^UTILITY(U,$J,399.2,949,0)
- ;;=949^ADDITIONAL RX SVS^^OTHER THERAPEUTIC SERVICES
- ;;^UTILITY(U,$J,399.2,950,0)
- ;;=950^*RESERVED^0^*RESERVED
- ;;^UTILITY(U,$J,399.2,951,0)
- ;;=951^*RESERVED^^*RESERVED
- ;;^UTILITY(U,$J,399.2,952,0)
- ;;=952^*RESERVED^^*RESERVED
- ;;^UTILITY(U,$J,399.2,953,0)
- ;;=953^*RESERVED^^*RESERVED
- ;;^UTILITY(U,$J,399.2,954,0)
- ;;=954^*RESERVED^^*RESERVED
- ;;^UTILITY(U,$J,399.2,955,0)
- ;;=955^*RESERVED^^*RESERVED
- ;;^UTILITY(U,$J,399.2,956,0)
- ;;=956^*RESERVED^^*RESERVED
- ;;^UTILITY(U,$J,399.2,957,0)
- ;;=957^*RESERVED^^*RESERVED
- ;;^UTILITY(U,$J,399.2,958,0)
- ;;=958^*RESERVED^^*RESERVED
- ;;^UTILITY(U,$J,399.2,959,0)
- ;;=959^*RESERVED^^*RESERVED
- ;;^UTILITY(U,$J,399.2,960,0)
- ;;=960^PRO FEE^1^GENERAL CLASSIFICATION
- ;;^UTILITY(U,$J,399.2,961,0)
- ;;=961^PRO FEE/PSYCH^^PSYCHIATRIC
- ;;^UTILITY(U,$J,399.2,962,0)
- ;;=962^PRO FEE/EYE^^OPTHALMOLOGY
- ;;^UTILITY(U,$J,399.2,963,0)
- ;;=963^PRO FEE/ANES MD^^ANESTHESIOLOGIST (MD)
- ;;^UTILITY(U,$J,399.2,964,0)
- ;;=964^PRO FEE/ANES CRNA^^ANESTHETIST (CRNA)
- ;;^UTILITY(U,$J,399.2,965,0)
- ;;=965^*RESERVED^^*RESERVED
- ;;^UTILITY(U,$J,399.2,966,0)
- ;;=966^*RESERVED^^*RESERVED
- ;;^UTILITY(U,$J,399.2,967,0)
- ;;=967^*RESERVED^^*RESERVED
- ;;^UTILITY(U,$J,399.2,968,0)
- ;;=968^*RESERVED^^*RESERVED
- ;;^UTILITY(U,$J,399.2,969,0)
- ;;=969^OTHER PRO FEE^^OTHER PROFESSIONAL FEES
- ;;^UTILITY(U,$J,399.2,970,0)
- ;;=970^*RESERVED^^*RESERVED
- ;;^UTILITY(U,$J,399.2,971,0)
- ;;=971^PRO FEE/LAB^^LABORATORY
- ;;^UTILITY(U,$J,399.2,972,0)
- ;;=972^PRO FEE/RAD/DX^^RADIOLOGY - DIAGNOSTIC
- ;;^UTILITY(U,$J,399.2,973,0)
- ;;=973^PRO FEE/RAD/RX^^RADIOLOGY - THERAPEUTIC
- ;;^UTILITY(U,$J,399.2,974,0)
- ;;=974^PRO FEE/NUC MED^^RADIOLOGY - NUCLEAR MEDICINE
- ;;^UTILITY(U,$J,399.2,975,0)
- ;;=975^PRO FEE/OR^^OPERATING ROOM
- ;;^UTILITY(U,$J,399.2,976,0)
- ;;=976^PRO FEE/RESPIR^^RESPIRATORY THERAPY
- ;;^UTILITY(U,$J,399.2,977,0)
- ;;=977^PRO FEE/PHYSI^^PHYSICAL THERAPY
- ;;^UTILITY(U,$J,399.2,978,0)
- ;;=978^PRO FEE/OCUPA^^OCCUPATIONAL THERAPY
- ;;^UTILITY(U,$J,399.2,979,0)
- ;;=979^PRO FEE/SPEECH^^SPEECH PATHOLOGY
- ;;^UTILITY(U,$J,399.2,980,0)
- ;;=980^*RESERVED^^*RESERVED
- ;;^UTILITY(U,$J,399.2,981,0)
- ;;=981^PRO FEE/ER^^EMERGENCY ROOM
- ;;^UTILITY(U,$J,399.2,982,0)
- ;;=982^PRO FEE/OUTPT^^OUTPATIENT SERVICES
- ;;^UTILITY(U,$J,399.2,983,0)
- ;;=983^PRO FEE/CLINIC^^CLINIC
- ;;^UTILITY(U,$J,399.2,984,0)
- ;;=984^PRO FEE/SOC SVC^^MEDICAL SOCIAL SERVICES
- ;;^UTILITY(U,$J,399.2,985,0)
- ;;=985^PRO FEE/EKG^^EKG
- ;;^UTILITY(U,$J,399.2,986,0)
- ;;=986^PRO FEE/EEG^^EEG
- ;;^UTILITY(U,$J,399.2,987,0)
- ;;=987^PRO FEE/HOS VIS^^HOSPITAL VISIT
- IBINI0BO ; ; 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,935,0)
- +2 ;;=935^*RESERVED^^*RESERVED
- +3 ;;^UTILITY(U,$J,399.2,936,0)
- +4 ;;=936^*RESERVED^^*RESERVED
- +5 ;;^UTILITY(U,$J,399.2,937,0)
- +6 ;;=937^*RESERVED^^*RESERVED
- +7 ;;^UTILITY(U,$J,399.2,938,0)
- +8 ;;=938^*RESERVED^^*RESERVED
- +9 ;;^UTILITY(U,$J,399.2,939,0)
- +10 ;;=939^*RESERVED^^*RESERVED
- +11 ;;^UTILITY(U,$J,399.2,940,0)
- +12 ;;=940^OTHER RX SVS^^GENERAL CLASSIFICATION
- +13 ;;^UTILITY(U,$J,399.2,941,0)
- +14 ;;=941^RECREATION RX^^RECREATIONAL THERAPY
- +15 ;;^UTILITY(U,$J,399.2,942,0)
- +16 ;;=942^EDUC/TRAINING^^EDUCATION/TRAINING
- +17 ;;^UTILITY(U,$J,399.2,943,0)
- +18 ;;=943^CARDIAC REHAB^^CARDIAC REHABILITATION
- +19 ;;^UTILITY(U,$J,399.2,944,0)
- +20 ;;=944^DRUG REHAB^^DRUG REHABILITATION
- +21 ;;^UTILITY(U,$J,399.2,945,0)
- +22 ;;=945^ALCOHOL REHABILITATION^^ALCOHOL REHAB
- +23 ;;^UTILITY(U,$J,399.2,946,0)
- +24 ;;=946^AIR FLUID BEDS^^AIR FLUID SUPPORT BEDS
- +25 ;;^UTILITY(U,$J,399.2,947,0)
- +26 ;;=947^CMPLX MED EQUIP-ANC^^COMPLEX MEDICAL EQUIPMENT - ANCILLARY
- +27 ;;^UTILITY(U,$J,399.2,948,0)
- +28 ;;=948^*RESERVED^^*RESERVED
- +29 ;;^UTILITY(U,$J,399.2,949,0)
- +30 ;;=949^ADDITIONAL RX SVS^^OTHER THERAPEUTIC SERVICES
- +31 ;;^UTILITY(U,$J,399.2,950,0)
- +32 ;;=950^*RESERVED^0^*RESERVED
- +33 ;;^UTILITY(U,$J,399.2,951,0)
- +34 ;;=951^*RESERVED^^*RESERVED
- +35 ;;^UTILITY(U,$J,399.2,952,0)
- +36 ;;=952^*RESERVED^^*RESERVED
- +37 ;;^UTILITY(U,$J,399.2,953,0)
- +38 ;;=953^*RESERVED^^*RESERVED
- +39 ;;^UTILITY(U,$J,399.2,954,0)
- +40 ;;=954^*RESERVED^^*RESERVED
- +41 ;;^UTILITY(U,$J,399.2,955,0)
- +42 ;;=955^*RESERVED^^*RESERVED
- +43 ;;^UTILITY(U,$J,399.2,956,0)
- +44 ;;=956^*RESERVED^^*RESERVED
- +45 ;;^UTILITY(U,$J,399.2,957,0)
- +46 ;;=957^*RESERVED^^*RESERVED
- +47 ;;^UTILITY(U,$J,399.2,958,0)
- +48 ;;=958^*RESERVED^^*RESERVED
- +49 ;;^UTILITY(U,$J,399.2,959,0)
- +50 ;;=959^*RESERVED^^*RESERVED
- +51 ;;^UTILITY(U,$J,399.2,960,0)
- +52 ;;=960^PRO FEE^1^GENERAL CLASSIFICATION
- +53 ;;^UTILITY(U,$J,399.2,961,0)
- +54 ;;=961^PRO FEE/PSYCH^^PSYCHIATRIC
- +55 ;;^UTILITY(U,$J,399.2,962,0)
- +56 ;;=962^PRO FEE/EYE^^OPTHALMOLOGY
- +57 ;;^UTILITY(U,$J,399.2,963,0)
- +58 ;;=963^PRO FEE/ANES MD^^ANESTHESIOLOGIST (MD)
- +59 ;;^UTILITY(U,$J,399.2,964,0)
- +60 ;;=964^PRO FEE/ANES CRNA^^ANESTHETIST (CRNA)
- +61 ;;^UTILITY(U,$J,399.2,965,0)
- +62 ;;=965^*RESERVED^^*RESERVED
- +63 ;;^UTILITY(U,$J,399.2,966,0)
- +64 ;;=966^*RESERVED^^*RESERVED
- +65 ;;^UTILITY(U,$J,399.2,967,0)
- +66 ;;=967^*RESERVED^^*RESERVED
- +67 ;;^UTILITY(U,$J,399.2,968,0)
- +68 ;;=968^*RESERVED^^*RESERVED
- +69 ;;^UTILITY(U,$J,399.2,969,0)
- +70 ;;=969^OTHER PRO FEE^^OTHER PROFESSIONAL FEES
- +71 ;;^UTILITY(U,$J,399.2,970,0)
- +72 ;;=970^*RESERVED^^*RESERVED
- +73 ;;^UTILITY(U,$J,399.2,971,0)
- +74 ;;=971^PRO FEE/LAB^^LABORATORY
- +75 ;;^UTILITY(U,$J,399.2,972,0)
- +76 ;;=972^PRO FEE/RAD/DX^^RADIOLOGY - DIAGNOSTIC
- +77 ;;^UTILITY(U,$J,399.2,973,0)
- +78 ;;=973^PRO FEE/RAD/RX^^RADIOLOGY - THERAPEUTIC
- +79 ;;^UTILITY(U,$J,399.2,974,0)
- +80 ;;=974^PRO FEE/NUC MED^^RADIOLOGY - NUCLEAR MEDICINE
- +81 ;;^UTILITY(U,$J,399.2,975,0)
- +82 ;;=975^PRO FEE/OR^^OPERATING ROOM
- +83 ;;^UTILITY(U,$J,399.2,976,0)
- +84 ;;=976^PRO FEE/RESPIR^^RESPIRATORY THERAPY
- +85 ;;^UTILITY(U,$J,399.2,977,0)
- +86 ;;=977^PRO FEE/PHYSI^^PHYSICAL THERAPY
- +87 ;;^UTILITY(U,$J,399.2,978,0)
- +88 ;;=978^PRO FEE/OCUPA^^OCCUPATIONAL THERAPY
- +89 ;;^UTILITY(U,$J,399.2,979,0)
- +90 ;;=979^PRO FEE/SPEECH^^SPEECH PATHOLOGY
- +91 ;;^UTILITY(U,$J,399.2,980,0)
- +92 ;;=980^*RESERVED^^*RESERVED
- +93 ;;^UTILITY(U,$J,399.2,981,0)
- +94 ;;=981^PRO FEE/ER^^EMERGENCY ROOM
- +95 ;;^UTILITY(U,$J,399.2,982,0)
- +96 ;;=982^PRO FEE/OUTPT^^OUTPATIENT SERVICES
- +97 ;;^UTILITY(U,$J,399.2,983,0)
- +98 ;;=983^PRO FEE/CLINIC^^CLINIC
- +99 ;;^UTILITY(U,$J,399.2,984,0)
- +100 ;;=984^PRO FEE/SOC SVC^^MEDICAL SOCIAL SERVICES
- +101 ;;^UTILITY(U,$J,399.2,985,0)
- +102 ;;=985^PRO FEE/EKG^^EKG
- +103 ;;^UTILITY(U,$J,399.2,986,0)
- +104 ;;=986^PRO FEE/EEG^^EEG
- +105 ;;^UTILITY(U,$J,399.2,987,0)
- +106 ;;=987^PRO FEE/HOS VIS^^HOSPITAL VISIT
