IBINI0BJ ; ; 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,658,0)
;;=658^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,659,0)
;;=659^HOSPICE/OTHER^^OTHER HOSPICE
;;^UTILITY(U,$J,399.2,660,0)
;;=660^RESPITE CARE^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,661,0)
;;=661^RESPITE/SKILLED NURSE^^HOURLY CHARGE/SKILLED NURSING
;;^UTILITY(U,$J,399.2,662,0)
;;=662^RESPITE/HMEAID/HMEMKR^^HOURLY CHARGE/HOME HEALTH AIDE/HOMEMAKER
;;^UTILITY(U,$J,399.2,663,0)
;;=663^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,664,0)
;;=664^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,665,0)
;;=665^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,666,0)
;;=666^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,667,0)
;;=667^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,668,0)
;;=668^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,669,0)
;;=669^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,670,0)
;;=670^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,671,0)
;;=671^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,672,0)
;;=672^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,673,0)
;;=673^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,674,0)
;;=674^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,675,0)
;;=675^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,676,0)
;;=676^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,677,0)
;;=677^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,678,0)
;;=678^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,679,0)
;;=679^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,680,0)
;;=680^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,681,0)
;;=681^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,682,0)
;;=682^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,683,0)
;;=683^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,684,0)
;;=684^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,685,0)
;;=685^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,686,0)
;;=686^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,687,0)
;;=687^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,688,0)
;;=688^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,689,0)
;;=689^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,690,0)
;;=690^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,691,0)
;;=691^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,692,0)
;;=692^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,693,0)
;;=693^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,694,0)
;;=694^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,695,0)
;;=695^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,696,0)
;;=696^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,697,0)
;;=697^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,698,0)
;;=698^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,699,0)
;;=699^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,700,0)
;;=700^CAST ROOM^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,701,0)
;;=701^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,702,0)
;;=702^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,703,0)
;;=703^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,704,0)
;;=704^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,705,0)
;;=705^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,706,0)
;;=706^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,707,0)
;;=707^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,708,0)
;;=708^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,709,0)
;;=709^OTHER CAST ROOM^^OTHER CAST ROOM
;;^UTILITY(U,$J,399.2,710,0)
;;=710^RECOVERY ROOM^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,711,0)
;;=711^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,712,0)
;;=712^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,713,0)
;;=713^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,714,0)
;;=714^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,715,0)
;;=715^*RESERVED^^*RESERVED
IBINI0BJ ; ; 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,658,0)
+2 ;;=658^*RESERVED^^*RESERVED
+3 ;;^UTILITY(U,$J,399.2,659,0)
+4 ;;=659^HOSPICE/OTHER^^OTHER HOSPICE
+5 ;;^UTILITY(U,$J,399.2,660,0)
+6 ;;=660^RESPITE CARE^^GENERAL CLASSIFICATION
+7 ;;^UTILITY(U,$J,399.2,661,0)
+8 ;;=661^RESPITE/SKILLED NURSE^^HOURLY CHARGE/SKILLED NURSING
+9 ;;^UTILITY(U,$J,399.2,662,0)
+10 ;;=662^RESPITE/HMEAID/HMEMKR^^HOURLY CHARGE/HOME HEALTH AIDE/HOMEMAKER
+11 ;;^UTILITY(U,$J,399.2,663,0)
+12 ;;=663^*RESERVED^^*RESERVED
+13 ;;^UTILITY(U,$J,399.2,664,0)
+14 ;;=664^*RESERVED^^*RESERVED
+15 ;;^UTILITY(U,$J,399.2,665,0)
+16 ;;=665^*RESERVED^^*RESERVED
+17 ;;^UTILITY(U,$J,399.2,666,0)
+18 ;;=666^*RESERVED^^*RESERVED
+19 ;;^UTILITY(U,$J,399.2,667,0)
+20 ;;=667^*RESERVED^^*RESERVED
+21 ;;^UTILITY(U,$J,399.2,668,0)
+22 ;;=668^*RESERVED^^*RESERVED
+23 ;;^UTILITY(U,$J,399.2,669,0)
+24 ;;=669^*RESERVED^^*RESERVED
+25 ;;^UTILITY(U,$J,399.2,670,0)
+26 ;;=670^*RESERVED^^*RESERVED
+27 ;;^UTILITY(U,$J,399.2,671,0)
+28 ;;=671^*RESERVED^^*RESERVED
+29 ;;^UTILITY(U,$J,399.2,672,0)
+30 ;;=672^*RESERVED^^*RESERVED
+31 ;;^UTILITY(U,$J,399.2,673,0)
+32 ;;=673^*RESERVED^^*RESERVED
+33 ;;^UTILITY(U,$J,399.2,674,0)
+34 ;;=674^*RESERVED^^*RESERVED
+35 ;;^UTILITY(U,$J,399.2,675,0)
+36 ;;=675^*RESERVED^^*RESERVED
+37 ;;^UTILITY(U,$J,399.2,676,0)
+38 ;;=676^*RESERVED^^*RESERVED
+39 ;;^UTILITY(U,$J,399.2,677,0)
+40 ;;=677^*RESERVED^^*RESERVED
+41 ;;^UTILITY(U,$J,399.2,678,0)
+42 ;;=678^*RESERVED^^*RESERVED
+43 ;;^UTILITY(U,$J,399.2,679,0)
+44 ;;=679^*RESERVED^^*RESERVED
+45 ;;^UTILITY(U,$J,399.2,680,0)
+46 ;;=680^*RESERVED^^*RESERVED
+47 ;;^UTILITY(U,$J,399.2,681,0)
+48 ;;=681^*RESERVED^^*RESERVED
+49 ;;^UTILITY(U,$J,399.2,682,0)
+50 ;;=682^*RESERVED^^*RESERVED
+51 ;;^UTILITY(U,$J,399.2,683,0)
+52 ;;=683^*RESERVED^^*RESERVED
+53 ;;^UTILITY(U,$J,399.2,684,0)
+54 ;;=684^*RESERVED^^*RESERVED
+55 ;;^UTILITY(U,$J,399.2,685,0)
+56 ;;=685^*RESERVED^^*RESERVED
+57 ;;^UTILITY(U,$J,399.2,686,0)
+58 ;;=686^*RESERVED^^*RESERVED
+59 ;;^UTILITY(U,$J,399.2,687,0)
+60 ;;=687^*RESERVED^^*RESERVED
+61 ;;^UTILITY(U,$J,399.2,688,0)
+62 ;;=688^*RESERVED^^*RESERVED
+63 ;;^UTILITY(U,$J,399.2,689,0)
+64 ;;=689^*RESERVED^^*RESERVED
+65 ;;^UTILITY(U,$J,399.2,690,0)
+66 ;;=690^*RESERVED^^*RESERVED
+67 ;;^UTILITY(U,$J,399.2,691,0)
+68 ;;=691^*RESERVED^^*RESERVED
+69 ;;^UTILITY(U,$J,399.2,692,0)
+70 ;;=692^*RESERVED^^*RESERVED
+71 ;;^UTILITY(U,$J,399.2,693,0)
+72 ;;=693^*RESERVED^^*RESERVED
+73 ;;^UTILITY(U,$J,399.2,694,0)
+74 ;;=694^*RESERVED^^*RESERVED
+75 ;;^UTILITY(U,$J,399.2,695,0)
+76 ;;=695^*RESERVED^^*RESERVED
+77 ;;^UTILITY(U,$J,399.2,696,0)
+78 ;;=696^*RESERVED^^*RESERVED
+79 ;;^UTILITY(U,$J,399.2,697,0)
+80 ;;=697^*RESERVED^^*RESERVED
+81 ;;^UTILITY(U,$J,399.2,698,0)
+82 ;;=698^*RESERVED^^*RESERVED
+83 ;;^UTILITY(U,$J,399.2,699,0)
+84 ;;=699^*RESERVED^^*RESERVED
+85 ;;^UTILITY(U,$J,399.2,700,0)
+86 ;;=700^CAST ROOM^^GENERAL CLASSIFICATION
+87 ;;^UTILITY(U,$J,399.2,701,0)
+88 ;;=701^*RESERVED^^*RESERVED
+89 ;;^UTILITY(U,$J,399.2,702,0)
+90 ;;=702^*RESERVED^^*RESERVED
+91 ;;^UTILITY(U,$J,399.2,703,0)
+92 ;;=703^*RESERVED^^*RESERVED
+93 ;;^UTILITY(U,$J,399.2,704,0)
+94 ;;=704^*RESERVED^^*RESERVED
+95 ;;^UTILITY(U,$J,399.2,705,0)
+96 ;;=705^*RESERVED^^*RESERVED
+97 ;;^UTILITY(U,$J,399.2,706,0)
+98 ;;=706^*RESERVED^^*RESERVED
+99 ;;^UTILITY(U,$J,399.2,707,0)
+100 ;;=707^*RESERVED^^*RESERVED
+101 ;;^UTILITY(U,$J,399.2,708,0)
+102 ;;=708^*RESERVED^^*RESERVED
+103 ;;^UTILITY(U,$J,399.2,709,0)
+104 ;;=709^OTHER CAST ROOM^^OTHER CAST ROOM
+105 ;;^UTILITY(U,$J,399.2,710,0)
+106 ;;=710^RECOVERY ROOM^^GENERAL CLASSIFICATION
+107 ;;^UTILITY(U,$J,399.2,711,0)
+108 ;;=711^*RESERVED^^*RESERVED
+109 ;;^UTILITY(U,$J,399.2,712,0)
+110 ;;=712^*RESERVED^^*RESERVED
+111 ;;^UTILITY(U,$J,399.2,713,0)
+112 ;;=713^*RESERVED^^*RESERVED
+113 ;;^UTILITY(U,$J,399.2,714,0)
+114 ;;=714^*RESERVED^^*RESERVED
+115 ;;^UTILITY(U,$J,399.2,715,0)
+116 ;;=715^*RESERVED^^*RESERVED
