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
