IBINI0BA ; ; 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,178,0)
;;=178^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,179,0)
;;=179^NURSERY/OTHER^^OTHER
;;^UTILITY(U,$J,399.2,180,0)
;;=180^LEAVE OF ABSENCE OR LOA^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,181,0)
;;=181^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,182,0)
;;=182^LOA/PT CONV^^PATIENT CONVENIENCE
;;^UTILITY(U,$J,399.2,183,0)
;;=183^LOA/THERAPEUTIC^^THERAPEUTIC LEAVE
;;^UTILITY(U,$J,399.2,184,0)
;;=184^LOA/ICF/MR^^ICF/MR-ANY REASON
;;^UTILITY(U,$J,399.2,185,0)
;;=185^LOA/NURS HOME^^NURSING HOME (FOR HOSPITALIZATION)
;;^UTILITY(U,$J,399.2,186,0)
;;=186^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,187,0)
;;=187^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,188,0)
;;=188^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,189,0)
;;=189^LOA/OTHER^^OTHER LEAVE OF ABSENCE
;;^UTILITY(U,$J,399.2,190,0)
;;=190^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,191,0)
;;=191^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,192,0)
;;=192^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,193,0)
;;=193^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,194,0)
;;=194^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,195,0)
;;=195^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,196,0)
;;=196^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,197,0)
;;=197^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,198,0)
;;=198^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,199,0)
;;=199^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,200,0)
;;=200^INTENSIVE CARE OR (ICU)^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,201,0)
;;=201^ICU/SURGICAL^^SURGICAL
;;^UTILITY(U,$J,399.2,202,0)
;;=202^ICU/MEDICAL^^MEDICAL
;;^UTILITY(U,$J,399.2,203,0)
;;=203^ICU PEDS^^PEDIATRIC
;;^UTILITY(U,$J,399.2,204,0)
;;=204^ICU/PSTAY^^PSYCHIATRIC
;;^UTILITY(U,$J,399.2,205,0)
;;=205^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,206,0)
;;=206^POST ICU^^POST ICU
;;^UTILITY(U,$J,399.2,207,0)
;;=207^ICU/BURN CARE^^BURN CARE
;;^UTILITY(U,$J,399.2,208,0)
;;=208^ICU/TRAMA^^TRAUMA
;;^UTILITY(U,$J,399.2,209,0)
;;=209^ICU/OTHER^^OTHER INTENSIVE CARE
;;^UTILITY(U,$J,399.2,210,0)
;;=210^CORONARY CARE OR (CCU)^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,211,0)
;;=211^CCU/MYO INFARC^^MYOCARDIAL INFARCTION
;;^UTILITY(U,$J,399.2,212,0)
;;=212^CCU/PULMONARY^^PULMONARY CARE
;;^UTILITY(U,$J,399.2,213,0)
;;=213^CCU/TRANSPLANT^^HEART TRANSPLANT
;;^UTILITY(U,$J,399.2,214,0)
;;=214^POST CCU^^POST-CCU
;;^UTILITY(U,$J,399.2,215,0)
;;=215^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,216,0)
;;=216^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,217,0)
;;=217^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,218,0)
;;=218^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,219,0)
;;=219^CCU/OTHER^^OTHER CORONARY CARE
;;^UTILITY(U,$J,399.2,220,0)
;;=220^SPECIAL CHARGES^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,221,0)
;;=221^ADMIT CHARGE^^ADMISSION CHARGE
;;^UTILITY(U,$J,399.2,222,0)
;;=222^TECH SUPPORT CHG^^TECHNICAL SUPPPORT CHARGE
;;^UTILITY(U,$J,399.2,223,0)
;;=223^UR CHARGE^^U.R. SERVICE CHARGE
;;^UTILITY(U,$J,399.2,224,0)
;;=224^LATE DISCH/MED NEC^^LATE DISCHARGE,MEDICALLY NECESSARY
;;^UTILITY(U,$J,399.2,225,0)
;;=225^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,226,0)
;;=226^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,227,0)
;;=227^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,228,0)
;;=228^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,229,0)
;;=229^OTHER SPEC CHG^^OTHER SPECIAL CHARGES
;;^UTILITY(U,$J,399.2,230,0)
;;=230^NURSING INCREM^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,231,0)
;;=231^NUR INCR/NURSERY^^NURSERY
;;^UTILITY(U,$J,399.2,232,0)
;;=232^NURS INCR/OB^^OB
IBINI0BA ; ; 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,178,0)
+2 ;;=178^*RESERVED^^*RESERVED
+3 ;;^UTILITY(U,$J,399.2,179,0)
+4 ;;=179^NURSERY/OTHER^^OTHER
+5 ;;^UTILITY(U,$J,399.2,180,0)
+6 ;;=180^LEAVE OF ABSENCE OR LOA^^GENERAL CLASSIFICATION
+7 ;;^UTILITY(U,$J,399.2,181,0)
+8 ;;=181^*RESERVED^^*RESERVED
+9 ;;^UTILITY(U,$J,399.2,182,0)
+10 ;;=182^LOA/PT CONV^^PATIENT CONVENIENCE
+11 ;;^UTILITY(U,$J,399.2,183,0)
+12 ;;=183^LOA/THERAPEUTIC^^THERAPEUTIC LEAVE
+13 ;;^UTILITY(U,$J,399.2,184,0)
+14 ;;=184^LOA/ICF/MR^^ICF/MR-ANY REASON
+15 ;;^UTILITY(U,$J,399.2,185,0)
+16 ;;=185^LOA/NURS HOME^^NURSING HOME (FOR HOSPITALIZATION)
+17 ;;^UTILITY(U,$J,399.2,186,0)
+18 ;;=186^*RESERVED^^*RESERVED
+19 ;;^UTILITY(U,$J,399.2,187,0)
+20 ;;=187^*RESERVED^^*RESERVED
+21 ;;^UTILITY(U,$J,399.2,188,0)
+22 ;;=188^*RESERVED^^*RESERVED
+23 ;;^UTILITY(U,$J,399.2,189,0)
+24 ;;=189^LOA/OTHER^^OTHER LEAVE OF ABSENCE
+25 ;;^UTILITY(U,$J,399.2,190,0)
+26 ;;=190^*RESERVED^^*RESERVED
+27 ;;^UTILITY(U,$J,399.2,191,0)
+28 ;;=191^*RESERVED^^*RESERVED
+29 ;;^UTILITY(U,$J,399.2,192,0)
+30 ;;=192^*RESERVED^^*RESERVED
+31 ;;^UTILITY(U,$J,399.2,193,0)
+32 ;;=193^*RESERVED^^*RESERVED
+33 ;;^UTILITY(U,$J,399.2,194,0)
+34 ;;=194^*RESERVED^^*RESERVED
+35 ;;^UTILITY(U,$J,399.2,195,0)
+36 ;;=195^*RESERVED^^*RESERVED
+37 ;;^UTILITY(U,$J,399.2,196,0)
+38 ;;=196^*RESERVED^^*RESERVED
+39 ;;^UTILITY(U,$J,399.2,197,0)
+40 ;;=197^*RESERVED^^*RESERVED
+41 ;;^UTILITY(U,$J,399.2,198,0)
+42 ;;=198^*RESERVED^^*RESERVED
+43 ;;^UTILITY(U,$J,399.2,199,0)
+44 ;;=199^*RESERVED^^*RESERVED
+45 ;;^UTILITY(U,$J,399.2,200,0)
+46 ;;=200^INTENSIVE CARE OR (ICU)^^GENERAL CLASSIFICATION
+47 ;;^UTILITY(U,$J,399.2,201,0)
+48 ;;=201^ICU/SURGICAL^^SURGICAL
+49 ;;^UTILITY(U,$J,399.2,202,0)
+50 ;;=202^ICU/MEDICAL^^MEDICAL
+51 ;;^UTILITY(U,$J,399.2,203,0)
+52 ;;=203^ICU PEDS^^PEDIATRIC
+53 ;;^UTILITY(U,$J,399.2,204,0)
+54 ;;=204^ICU/PSTAY^^PSYCHIATRIC
+55 ;;^UTILITY(U,$J,399.2,205,0)
+56 ;;=205^*RESERVED^^*RESERVED
+57 ;;^UTILITY(U,$J,399.2,206,0)
+58 ;;=206^POST ICU^^POST ICU
+59 ;;^UTILITY(U,$J,399.2,207,0)
+60 ;;=207^ICU/BURN CARE^^BURN CARE
+61 ;;^UTILITY(U,$J,399.2,208,0)
+62 ;;=208^ICU/TRAMA^^TRAUMA
+63 ;;^UTILITY(U,$J,399.2,209,0)
+64 ;;=209^ICU/OTHER^^OTHER INTENSIVE CARE
+65 ;;^UTILITY(U,$J,399.2,210,0)
+66 ;;=210^CORONARY CARE OR (CCU)^^GENERAL CLASSIFICATION
+67 ;;^UTILITY(U,$J,399.2,211,0)
+68 ;;=211^CCU/MYO INFARC^^MYOCARDIAL INFARCTION
+69 ;;^UTILITY(U,$J,399.2,212,0)
+70 ;;=212^CCU/PULMONARY^^PULMONARY CARE
+71 ;;^UTILITY(U,$J,399.2,213,0)
+72 ;;=213^CCU/TRANSPLANT^^HEART TRANSPLANT
+73 ;;^UTILITY(U,$J,399.2,214,0)
+74 ;;=214^POST CCU^^POST-CCU
+75 ;;^UTILITY(U,$J,399.2,215,0)
+76 ;;=215^*RESERVED^^*RESERVED
+77 ;;^UTILITY(U,$J,399.2,216,0)
+78 ;;=216^*RESERVED^^*RESERVED
+79 ;;^UTILITY(U,$J,399.2,217,0)
+80 ;;=217^*RESERVED^^*RESERVED
+81 ;;^UTILITY(U,$J,399.2,218,0)
+82 ;;=218^*RESERVED^^*RESERVED
+83 ;;^UTILITY(U,$J,399.2,219,0)
+84 ;;=219^CCU/OTHER^^OTHER CORONARY CARE
+85 ;;^UTILITY(U,$J,399.2,220,0)
+86 ;;=220^SPECIAL CHARGES^^GENERAL CLASSIFICATION
+87 ;;^UTILITY(U,$J,399.2,221,0)
+88 ;;=221^ADMIT CHARGE^^ADMISSION CHARGE
+89 ;;^UTILITY(U,$J,399.2,222,0)
+90 ;;=222^TECH SUPPORT CHG^^TECHNICAL SUPPPORT CHARGE
+91 ;;^UTILITY(U,$J,399.2,223,0)
+92 ;;=223^UR CHARGE^^U.R. SERVICE CHARGE
+93 ;;^UTILITY(U,$J,399.2,224,0)
+94 ;;=224^LATE DISCH/MED NEC^^LATE DISCHARGE,MEDICALLY NECESSARY
+95 ;;^UTILITY(U,$J,399.2,225,0)
+96 ;;=225^*RESERVED^^*RESERVED
+97 ;;^UTILITY(U,$J,399.2,226,0)
+98 ;;=226^*RESERVED^^*RESERVED
+99 ;;^UTILITY(U,$J,399.2,227,0)
+100 ;;=227^*RESERVED^^*RESERVED
+101 ;;^UTILITY(U,$J,399.2,228,0)
+102 ;;=228^*RESERVED^^*RESERVED
+103 ;;^UTILITY(U,$J,399.2,229,0)
+104 ;;=229^OTHER SPEC CHG^^OTHER SPECIAL CHARGES
+105 ;;^UTILITY(U,$J,399.2,230,0)
+106 ;;=230^NURSING INCREM^^GENERAL CLASSIFICATION
+107 ;;^UTILITY(U,$J,399.2,231,0)
+108 ;;=231^NUR INCR/NURSERY^^NURSERY
+109 ;;^UTILITY(U,$J,399.2,232,0)
+110 ;;=232^NURS INCR/OB^^OB
