- 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
