IBINI0BE ; ; 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,394,0)
;;=394^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,395,0)
;;=395^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,396,0)
;;=396^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,397,0)
;;=397^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,398,0)
;;=398^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,399,0)
;;=399^BLOOD/OTHER STOR^0^OTHER BLOOD STORAGE & PROCESSING
;;^UTILITY(U,$J,399.2,400,0)
;;=400^IMAGE SERVICE^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,401,0)
;;=401^DIAG MAMMOGRAPHY^^DIAGNOSTIC MAMMOGRAPHY
;;^UTILITY(U,$J,399.2,402,0)
;;=402^ULTRASOUND^^ULTRASOUND
;;^UTILITY(U,$J,399.2,403,0)
;;=403^SCRN MAMMOGRAPHY^^SCREENING MAMMOGRAPHY
;;^UTILITY(U,$J,399.2,404,0)
;;=404^PET SCAN^^POSITRON EMMISSION TOMOGROPHY
;;^UTILITY(U,$J,399.2,405,0)
;;=405^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,406,0)
;;=406^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,407,0)
;;=407^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,408,0)
;;=408^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,409,0)
;;=409^OTHER IMAG SVS^^OTHER IMAGING SERVICES
;;^UTILITY(U,$J,399.2,410,0)
;;=410^RESPIRATORY SVC^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,411,0)
;;=411^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,412,0)
;;=412^INHALATION SVC^^INHALATION SERVICES
;;^UTILITY(U,$J,399.2,413,0)
;;=413^HYPERBARIC 02^^HYPERBARIC OXYGEN THERAPY
;;^UTILITY(U,$J,399.2,414,0)
;;=414^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,415,0)
;;=415^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,416,0)
;;=416^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,417,0)
;;=417^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,418,0)
;;=418^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,419,0)
;;=419^OTHER RESPIR SVS^^OTHER RESPIRATORY SERVICES
;;^UTILITY(U,$J,399.2,420,0)
;;=420^PHYSICAL THERP^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,421,0)
;;=421^PHYS THERP/VISIT^^VISIT CHARGE
;;^UTILITY(U,$J,399.2,422,0)
;;=422^PHYS THERP/HOUR^^HOURLY CHARGE
;;^UTILITY(U,$J,399.2,423,0)
;;=423^PHYS THERP/GROUP^^GROUP RATE
;;^UTILITY(U,$J,399.2,424,0)
;;=424^PHYS THERP/EVAL^^EVALUATION OR RE-EVALUATION
;;^UTILITY(U,$J,399.2,425,0)
;;=425^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,426,0)
;;=426^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,427,0)
;;=427^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,428,0)
;;=428^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,429,0)
;;=429^OTHER PHYS THERP^^OTHER PHYSICAL THERAPY
;;^UTILITY(U,$J,399.2,430,0)
;;=430^OCCUPATION THER^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,431,0)
;;=431^OCCUP THERP/VISIT^^VISIT CHARGE
;;^UTILITY(U,$J,399.2,432,0)
;;=432^OCCUP THERP/HOUR^^HOURLY CHARGE
;;^UTILITY(U,$J,399.2,433,0)
;;=433^OCCUP THERP/GROUP^^GROUP RATE
;;^UTILITY(U,$J,399.2,434,0)
;;=434^OCCUP THER/EVAL^^EVALUATION OR RE-EVALUATION
;;^UTILITY(U,$J,399.2,435,0)
;;=435^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,436,0)
;;=436^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,437,0)
;;=437^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,438,0)
;;=438^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,439,0)
;;=439^OTHER OCCUP THER^^OTHER OCCUPATIONAL THERAPY
;;^UTILITY(U,$J,399.2,440,0)
;;=440^SPEECH PATHOL^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,441,0)
;;=441^SPEECH PATH/VISIT^^VISIT CHARGE
;;^UTILITY(U,$J,399.2,442,0)
;;=442^SPEECH PATH/HOUR^^HOURLY CHARGE
;;^UTILITY(U,$J,399.2,443,0)
;;=443^SPEECH PATH/GROUP^^GROUP RATE
;;^UTILITY(U,$J,399.2,444,0)
;;=444^SPEECH PATH/EVAL^^EVALUATION OR RE-EVALUATION
;;^UTILITY(U,$J,399.2,445,0)
;;=445^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,446,0)
;;=446^*RESERVED^^*RESERVED
IBINI0BE ; ; 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,394,0)
+2 ;;=394^*RESERVED^^*RESERVED
+3 ;;^UTILITY(U,$J,399.2,395,0)
+4 ;;=395^*RESERVED^^*RESERVED
+5 ;;^UTILITY(U,$J,399.2,396,0)
+6 ;;=396^*RESERVED^^*RESERVED
+7 ;;^UTILITY(U,$J,399.2,397,0)
+8 ;;=397^*RESERVED^^*RESERVED
+9 ;;^UTILITY(U,$J,399.2,398,0)
+10 ;;=398^*RESERVED^^*RESERVED
+11 ;;^UTILITY(U,$J,399.2,399,0)
+12 ;;=399^BLOOD/OTHER STOR^0^OTHER BLOOD STORAGE & PROCESSING
+13 ;;^UTILITY(U,$J,399.2,400,0)
+14 ;;=400^IMAGE SERVICE^^GENERAL CLASSIFICATION
+15 ;;^UTILITY(U,$J,399.2,401,0)
+16 ;;=401^DIAG MAMMOGRAPHY^^DIAGNOSTIC MAMMOGRAPHY
+17 ;;^UTILITY(U,$J,399.2,402,0)
+18 ;;=402^ULTRASOUND^^ULTRASOUND
+19 ;;^UTILITY(U,$J,399.2,403,0)
+20 ;;=403^SCRN MAMMOGRAPHY^^SCREENING MAMMOGRAPHY
+21 ;;^UTILITY(U,$J,399.2,404,0)
+22 ;;=404^PET SCAN^^POSITRON EMMISSION TOMOGROPHY
+23 ;;^UTILITY(U,$J,399.2,405,0)
+24 ;;=405^*RESERVED^^*RESERVED
+25 ;;^UTILITY(U,$J,399.2,406,0)
+26 ;;=406^*RESERVED^^*RESERVED
+27 ;;^UTILITY(U,$J,399.2,407,0)
+28 ;;=407^*RESERVED^^*RESERVED
+29 ;;^UTILITY(U,$J,399.2,408,0)
+30 ;;=408^*RESERVED^^*RESERVED
+31 ;;^UTILITY(U,$J,399.2,409,0)
+32 ;;=409^OTHER IMAG SVS^^OTHER IMAGING SERVICES
+33 ;;^UTILITY(U,$J,399.2,410,0)
+34 ;;=410^RESPIRATORY SVC^^GENERAL CLASSIFICATION
+35 ;;^UTILITY(U,$J,399.2,411,0)
+36 ;;=411^*RESERVED^^*RESERVED
+37 ;;^UTILITY(U,$J,399.2,412,0)
+38 ;;=412^INHALATION SVC^^INHALATION SERVICES
+39 ;;^UTILITY(U,$J,399.2,413,0)
+40 ;;=413^HYPERBARIC 02^^HYPERBARIC OXYGEN THERAPY
+41 ;;^UTILITY(U,$J,399.2,414,0)
+42 ;;=414^*RESERVED^^*RESERVED
+43 ;;^UTILITY(U,$J,399.2,415,0)
+44 ;;=415^*RESERVED^^*RESERVED
+45 ;;^UTILITY(U,$J,399.2,416,0)
+46 ;;=416^*RESERVED^^*RESERVED
+47 ;;^UTILITY(U,$J,399.2,417,0)
+48 ;;=417^*RESERVED^^*RESERVED
+49 ;;^UTILITY(U,$J,399.2,418,0)
+50 ;;=418^*RESERVED^^*RESERVED
+51 ;;^UTILITY(U,$J,399.2,419,0)
+52 ;;=419^OTHER RESPIR SVS^^OTHER RESPIRATORY SERVICES
+53 ;;^UTILITY(U,$J,399.2,420,0)
+54 ;;=420^PHYSICAL THERP^^GENERAL CLASSIFICATION
+55 ;;^UTILITY(U,$J,399.2,421,0)
+56 ;;=421^PHYS THERP/VISIT^^VISIT CHARGE
+57 ;;^UTILITY(U,$J,399.2,422,0)
+58 ;;=422^PHYS THERP/HOUR^^HOURLY CHARGE
+59 ;;^UTILITY(U,$J,399.2,423,0)
+60 ;;=423^PHYS THERP/GROUP^^GROUP RATE
+61 ;;^UTILITY(U,$J,399.2,424,0)
+62 ;;=424^PHYS THERP/EVAL^^EVALUATION OR RE-EVALUATION
+63 ;;^UTILITY(U,$J,399.2,425,0)
+64 ;;=425^*RESERVED^^*RESERVED
+65 ;;^UTILITY(U,$J,399.2,426,0)
+66 ;;=426^*RESERVED^^*RESERVED
+67 ;;^UTILITY(U,$J,399.2,427,0)
+68 ;;=427^*RESERVED^^*RESERVED
+69 ;;^UTILITY(U,$J,399.2,428,0)
+70 ;;=428^*RESERVED^^*RESERVED
+71 ;;^UTILITY(U,$J,399.2,429,0)
+72 ;;=429^OTHER PHYS THERP^^OTHER PHYSICAL THERAPY
+73 ;;^UTILITY(U,$J,399.2,430,0)
+74 ;;=430^OCCUPATION THER^^GENERAL CLASSIFICATION
+75 ;;^UTILITY(U,$J,399.2,431,0)
+76 ;;=431^OCCUP THERP/VISIT^^VISIT CHARGE
+77 ;;^UTILITY(U,$J,399.2,432,0)
+78 ;;=432^OCCUP THERP/HOUR^^HOURLY CHARGE
+79 ;;^UTILITY(U,$J,399.2,433,0)
+80 ;;=433^OCCUP THERP/GROUP^^GROUP RATE
+81 ;;^UTILITY(U,$J,399.2,434,0)
+82 ;;=434^OCCUP THER/EVAL^^EVALUATION OR RE-EVALUATION
+83 ;;^UTILITY(U,$J,399.2,435,0)
+84 ;;=435^*RESERVED^^*RESERVED
+85 ;;^UTILITY(U,$J,399.2,436,0)
+86 ;;=436^*RESERVED^^*RESERVED
+87 ;;^UTILITY(U,$J,399.2,437,0)
+88 ;;=437^*RESERVED^^*RESERVED
+89 ;;^UTILITY(U,$J,399.2,438,0)
+90 ;;=438^*RESERVED^^*RESERVED
+91 ;;^UTILITY(U,$J,399.2,439,0)
+92 ;;=439^OTHER OCCUP THER^^OTHER OCCUPATIONAL THERAPY
+93 ;;^UTILITY(U,$J,399.2,440,0)
+94 ;;=440^SPEECH PATHOL^^GENERAL CLASSIFICATION
+95 ;;^UTILITY(U,$J,399.2,441,0)
+96 ;;=441^SPEECH PATH/VISIT^^VISIT CHARGE
+97 ;;^UTILITY(U,$J,399.2,442,0)
+98 ;;=442^SPEECH PATH/HOUR^^HOURLY CHARGE
+99 ;;^UTILITY(U,$J,399.2,443,0)
+100 ;;=443^SPEECH PATH/GROUP^^GROUP RATE
+101 ;;^UTILITY(U,$J,399.2,444,0)
+102 ;;=444^SPEECH PATH/EVAL^^EVALUATION OR RE-EVALUATION
+103 ;;^UTILITY(U,$J,399.2,445,0)
+104 ;;=445^*RESERVED^^*RESERVED
+105 ;;^UTILITY(U,$J,399.2,446,0)
+106 ;;=446^*RESERVED^^*RESERVED
