IBINI0B9 ; ; 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,121,0)
;;=121^MED-SUR-GY/2BED^^MEDICAL/SURGICAL/GYN
;;^UTILITY(U,$J,399.2,122,0)
;;=122^OB/2BED^^OB
;;^UTILITY(U,$J,399.2,123,0)
;;=123^PEDS/2BED^^PEDIATRIC
;;^UTILITY(U,$J,399.2,124,0)
;;=124^PSTAY/2BED^^PSYCHIATRIC
;;^UTILITY(U,$J,399.2,125,0)
;;=125^HOSPICE/2BED^^HOSPICE
;;^UTILITY(U,$J,399.2,126,0)
;;=126^DETOX/2BED^^DETOXIFICATION
;;^UTILITY(U,$J,399.2,127,0)
;;=127^ONCOLOGY/2BED^^ONCOLOGY
;;^UTILITY(U,$J,399.2,128,0)
;;=128^REHAB/2BED^^REHABILITATION
;;^UTILITY(U,$J,399.2,129,0)
;;=129^OTHER/2BED^^OTHER
;;^UTILITY(U,$J,399.2,130,0)
;;=130^ROOM-BOARD/3&4BED^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,131,0)
;;=131^MED-SUR-GY/3&4^^MEDICAL/SURGICAL/GYN
;;^UTILITY(U,$J,399.2,132,0)
;;=132^OB/3&4BED^^OB
;;^UTILITY(U,$J,399.2,133,0)
;;=133^PEDS/3&4BED^^PEDIATRIC
;;^UTILITY(U,$J,399.2,134,0)
;;=134^PSYCH/3&4BED^^PSYCHIATRIC
;;^UTILITY(U,$J,399.2,135,0)
;;=135^HOSPICE/3&4BED^^HOSPICE
;;^UTILITY(U,$J,399.2,136,0)
;;=136^DETOX/3&4BED^^DETOXIFICATION
;;^UTILITY(U,$J,399.2,137,0)
;;=137^ONCOLOGY/3&4BED^^ONCOLOGY
;;^UTILITY(U,$J,399.2,138,0)
;;=138^REHAB/3&4BED^^REHABILITATION
;;^UTILITY(U,$J,399.2,139,0)
;;=139^OTHER/3&4BED^^OTHER
;;^UTILITY(U,$J,399.2,140,0)
;;=140^ROOM-BOARD/PVT/DLX^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,141,0)
;;=141^MED-SUR-GY/DLX^^MEDICAL/SURGICAL/GYN
;;^UTILITY(U,$J,399.2,142,0)
;;=142^OB/DLX^^OB
;;^UTILITY(U,$J,399.2,143,0)
;;=143^PEDS/DLX^^PEDIATRIC
;;^UTILITY(U,$J,399.2,144,0)
;;=144^PSYCH/DLX^^PSYCHIATRIC
;;^UTILITY(U,$J,399.2,145,0)
;;=145^HOSPICE/DLX^^HOSPICE
;;^UTILITY(U,$J,399.2,146,0)
;;=146^DETOX/DLX^^DETOXIFICATION
;;^UTILITY(U,$J,399.2,147,0)
;;=147^ONCOLOGY/DLX^^ONCOLOGY
;;^UTILITY(U,$J,399.2,148,0)
;;=148^REHAB/DLX^^REHABILITATION
;;^UTILITY(U,$J,399.2,149,0)
;;=149^OTHER/DLX^^OTHER
;;^UTILITY(U,$J,399.2,150,0)
;;=150^ROOM-BOARD/WARD^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,151,0)
;;=151^MED-SUR-GY/WARD^^MEDICAL/SURGICAL/GYN
;;^UTILITY(U,$J,399.2,152,0)
;;=152^OB/WARD^^OB
;;^UTILITY(U,$J,399.2,153,0)
;;=153^PEDS/WARD^^PEDIATRIC
;;^UTILITY(U,$J,399.2,154,0)
;;=154^PSYCH/WARD^^PSYCHIATRIC
;;^UTILITY(U,$J,399.2,155,0)
;;=155^HOSPICE/WARD^^HOSPICE
;;^UTILITY(U,$J,399.2,156,0)
;;=156^DETOX/WARD^^DETOXIFICATION
;;^UTILITY(U,$J,399.2,157,0)
;;=157^ONCOLOGY/WARD^^ONCOLOGY
;;^UTILITY(U,$J,399.2,158,0)
;;=158^REHAB/WARD^^REHABILITATION
;;^UTILITY(U,$J,399.2,159,0)
;;=159^OTHER/WARD^^OTHER
;;^UTILITY(U,$J,399.2,160,0)
;;=160^R&B^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,161,0)
;;=161^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,162,0)
;;=162^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,163,0)
;;=163^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,164,0)
;;=164^R&B/STERILE^^STERILE ENVIRONMENT
;;^UTILITY(U,$J,399.2,165,0)
;;=165^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,166,0)
;;=166^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,167,0)
;;=167^R&B/SELF^^SELF CARE
;;^UTILITY(U,$J,399.2,168,0)
;;=168^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,169,0)
;;=169^R&B/OTHER^^OTHER
;;^UTILITY(U,$J,399.2,170,0)
;;=170^NURSERY^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,171,0)
;;=171^NURSERY/NEWBORN^^NEWBORN
;;^UTILITY(U,$J,399.2,172,0)
;;=172^NURSERY/PREMIE^^PREMATURE
;;^UTILITY(U,$J,399.2,173,0)
;;=173^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,174,0)
;;=174^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,175,0)
;;=175^NURSERY/ICU^^NEONATAL ICU
;;^UTILITY(U,$J,399.2,176,0)
;;=176^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,177,0)
;;=177^*RESERVED^^*RESERVED
IBINI0B9 ; ; 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,121,0)
+2 ;;=121^MED-SUR-GY/2BED^^MEDICAL/SURGICAL/GYN
+3 ;;^UTILITY(U,$J,399.2,122,0)
+4 ;;=122^OB/2BED^^OB
+5 ;;^UTILITY(U,$J,399.2,123,0)
+6 ;;=123^PEDS/2BED^^PEDIATRIC
+7 ;;^UTILITY(U,$J,399.2,124,0)
+8 ;;=124^PSTAY/2BED^^PSYCHIATRIC
+9 ;;^UTILITY(U,$J,399.2,125,0)
+10 ;;=125^HOSPICE/2BED^^HOSPICE
+11 ;;^UTILITY(U,$J,399.2,126,0)
+12 ;;=126^DETOX/2BED^^DETOXIFICATION
+13 ;;^UTILITY(U,$J,399.2,127,0)
+14 ;;=127^ONCOLOGY/2BED^^ONCOLOGY
+15 ;;^UTILITY(U,$J,399.2,128,0)
+16 ;;=128^REHAB/2BED^^REHABILITATION
+17 ;;^UTILITY(U,$J,399.2,129,0)
+18 ;;=129^OTHER/2BED^^OTHER
+19 ;;^UTILITY(U,$J,399.2,130,0)
+20 ;;=130^ROOM-BOARD/3&4BED^^GENERAL CLASSIFICATION
+21 ;;^UTILITY(U,$J,399.2,131,0)
+22 ;;=131^MED-SUR-GY/3&4^^MEDICAL/SURGICAL/GYN
+23 ;;^UTILITY(U,$J,399.2,132,0)
+24 ;;=132^OB/3&4BED^^OB
+25 ;;^UTILITY(U,$J,399.2,133,0)
+26 ;;=133^PEDS/3&4BED^^PEDIATRIC
+27 ;;^UTILITY(U,$J,399.2,134,0)
+28 ;;=134^PSYCH/3&4BED^^PSYCHIATRIC
+29 ;;^UTILITY(U,$J,399.2,135,0)
+30 ;;=135^HOSPICE/3&4BED^^HOSPICE
+31 ;;^UTILITY(U,$J,399.2,136,0)
+32 ;;=136^DETOX/3&4BED^^DETOXIFICATION
+33 ;;^UTILITY(U,$J,399.2,137,0)
+34 ;;=137^ONCOLOGY/3&4BED^^ONCOLOGY
+35 ;;^UTILITY(U,$J,399.2,138,0)
+36 ;;=138^REHAB/3&4BED^^REHABILITATION
+37 ;;^UTILITY(U,$J,399.2,139,0)
+38 ;;=139^OTHER/3&4BED^^OTHER
+39 ;;^UTILITY(U,$J,399.2,140,0)
+40 ;;=140^ROOM-BOARD/PVT/DLX^^GENERAL CLASSIFICATION
+41 ;;^UTILITY(U,$J,399.2,141,0)
+42 ;;=141^MED-SUR-GY/DLX^^MEDICAL/SURGICAL/GYN
+43 ;;^UTILITY(U,$J,399.2,142,0)
+44 ;;=142^OB/DLX^^OB
+45 ;;^UTILITY(U,$J,399.2,143,0)
+46 ;;=143^PEDS/DLX^^PEDIATRIC
+47 ;;^UTILITY(U,$J,399.2,144,0)
+48 ;;=144^PSYCH/DLX^^PSYCHIATRIC
+49 ;;^UTILITY(U,$J,399.2,145,0)
+50 ;;=145^HOSPICE/DLX^^HOSPICE
+51 ;;^UTILITY(U,$J,399.2,146,0)
+52 ;;=146^DETOX/DLX^^DETOXIFICATION
+53 ;;^UTILITY(U,$J,399.2,147,0)
+54 ;;=147^ONCOLOGY/DLX^^ONCOLOGY
+55 ;;^UTILITY(U,$J,399.2,148,0)
+56 ;;=148^REHAB/DLX^^REHABILITATION
+57 ;;^UTILITY(U,$J,399.2,149,0)
+58 ;;=149^OTHER/DLX^^OTHER
+59 ;;^UTILITY(U,$J,399.2,150,0)
+60 ;;=150^ROOM-BOARD/WARD^^GENERAL CLASSIFICATION
+61 ;;^UTILITY(U,$J,399.2,151,0)
+62 ;;=151^MED-SUR-GY/WARD^^MEDICAL/SURGICAL/GYN
+63 ;;^UTILITY(U,$J,399.2,152,0)
+64 ;;=152^OB/WARD^^OB
+65 ;;^UTILITY(U,$J,399.2,153,0)
+66 ;;=153^PEDS/WARD^^PEDIATRIC
+67 ;;^UTILITY(U,$J,399.2,154,0)
+68 ;;=154^PSYCH/WARD^^PSYCHIATRIC
+69 ;;^UTILITY(U,$J,399.2,155,0)
+70 ;;=155^HOSPICE/WARD^^HOSPICE
+71 ;;^UTILITY(U,$J,399.2,156,0)
+72 ;;=156^DETOX/WARD^^DETOXIFICATION
+73 ;;^UTILITY(U,$J,399.2,157,0)
+74 ;;=157^ONCOLOGY/WARD^^ONCOLOGY
+75 ;;^UTILITY(U,$J,399.2,158,0)
+76 ;;=158^REHAB/WARD^^REHABILITATION
+77 ;;^UTILITY(U,$J,399.2,159,0)
+78 ;;=159^OTHER/WARD^^OTHER
+79 ;;^UTILITY(U,$J,399.2,160,0)
+80 ;;=160^R&B^^GENERAL CLASSIFICATION
+81 ;;^UTILITY(U,$J,399.2,161,0)
+82 ;;=161^*RESERVED^^*RESERVED
+83 ;;^UTILITY(U,$J,399.2,162,0)
+84 ;;=162^*RESERVED^^*RESERVED
+85 ;;^UTILITY(U,$J,399.2,163,0)
+86 ;;=163^*RESERVED^^*RESERVED
+87 ;;^UTILITY(U,$J,399.2,164,0)
+88 ;;=164^R&B/STERILE^^STERILE ENVIRONMENT
+89 ;;^UTILITY(U,$J,399.2,165,0)
+90 ;;=165^*RESERVED^^*RESERVED
+91 ;;^UTILITY(U,$J,399.2,166,0)
+92 ;;=166^*RESERVED^^*RESERVED
+93 ;;^UTILITY(U,$J,399.2,167,0)
+94 ;;=167^R&B/SELF^^SELF CARE
+95 ;;^UTILITY(U,$J,399.2,168,0)
+96 ;;=168^*RESERVED^^*RESERVED
+97 ;;^UTILITY(U,$J,399.2,169,0)
+98 ;;=169^R&B/OTHER^^OTHER
+99 ;;^UTILITY(U,$J,399.2,170,0)
+100 ;;=170^NURSERY^^GENERAL CLASSIFICATION
+101 ;;^UTILITY(U,$J,399.2,171,0)
+102 ;;=171^NURSERY/NEWBORN^^NEWBORN
+103 ;;^UTILITY(U,$J,399.2,172,0)
+104 ;;=172^NURSERY/PREMIE^^PREMATURE
+105 ;;^UTILITY(U,$J,399.2,173,0)
+106 ;;=173^*RESERVED^^*RESERVED
+107 ;;^UTILITY(U,$J,399.2,174,0)
+108 ;;=174^*RESERVED^^*RESERVED
+109 ;;^UTILITY(U,$J,399.2,175,0)
+110 ;;=175^NURSERY/ICU^^NEONATAL ICU
+111 ;;^UTILITY(U,$J,399.2,176,0)
+112 ;;=176^*RESERVED^^*RESERVED
+113 ;;^UTILITY(U,$J,399.2,177,0)
+114 ;;=177^*RESERVED^^*RESERVED
