IBINI0B8 ; ; 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,61,0)
;;=061^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,62,0)
;;=062^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,63,0)
;;=063^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,64,0)
;;=064^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,65,0)
;;=065^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,66,0)
;;=066^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,67,0)
;;=067^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,68,0)
;;=068^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,69,0)
;;=069^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,70,0)
;;=070^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,71,0)
;;=071^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,72,0)
;;=072^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,73,0)
;;=073^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,74,0)
;;=074^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,75,0)
;;=075^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,76,0)
;;=076^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,77,0)
;;=077^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,78,0)
;;=078^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,79,0)
;;=079^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,80,0)
;;=080^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,81,0)
;;=081^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,82,0)
;;=082^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,83,0)
;;=083^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,84,0)
;;=084^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,85,0)
;;=085^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,86,0)
;;=086^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,87,0)
;;=087^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,88,0)
;;=088^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,89,0)
;;=089^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,90,0)
;;=090^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,91,0)
;;=091^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,92,0)
;;=092^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,93,0)
;;=093^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,94,0)
;;=094^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,95,0)
;;=095^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,96,0)
;;=096^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,97,0)
;;=097^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,98,0)
;;=098^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,99,0)
;;=099^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,100,0)
;;=100^ALL INCL R&B/ANC^1^ALL-INCLUSIVE ROOM AND BOARD PLUS ANCILLARY
;;^UTILITY(U,$J,399.2,101,0)
;;=101^ALL INCL R&B^1^ALL-INCLUSIVE ROOM AND BOARD
;;^UTILITY(U,$J,399.2,102,0)
;;=102^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,103,0)
;;=103^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,104,0)
;;=104^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,105,0)
;;=105^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,106,0)
;;=106^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,107,0)
;;=107^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,108,0)
;;=108^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,109,0)
;;=109^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,110,0)
;;=110^ROOM-BOARD/PVT^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,111,0)
;;=111^MED-SUR-GY/PVT^^MEDICAL/SURGICAL/GYN
;;^UTILITY(U,$J,399.2,112,0)
;;=112^OB/PVT^^OB
;;^UTILITY(U,$J,399.2,113,0)
;;=113^PEDS/PVT^^PEDIATRIC
;;^UTILITY(U,$J,399.2,114,0)
;;=114^PSYCH/PVT^^PSYCHIATRIC
;;^UTILITY(U,$J,399.2,115,0)
;;=115^HOSPICE/PVT^^HOSPICE
;;^UTILITY(U,$J,399.2,116,0)
;;=116^DETOX/PVT^^DETOXIFICATION
;;^UTILITY(U,$J,399.2,117,0)
;;=117^ONCOLOGY/PVT^^ONCOLOGY
;;^UTILITY(U,$J,399.2,118,0)
;;=118^REHAB/PVT^^REHABILITATION
;;^UTILITY(U,$J,399.2,119,0)
;;=119^OTHER/PVT^^OTHER
;;^UTILITY(U,$J,399.2,120,0)
;;=120^ROOM-BOARD/SEMI^^GENERAL CLASSIFICATION
IBINI0B8 ; ; 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,61,0)
+2 ;;=061^*RESERVED^^*RESERVED
+3 ;;^UTILITY(U,$J,399.2,62,0)
+4 ;;=062^*RESERVED^^*RESERVED
+5 ;;^UTILITY(U,$J,399.2,63,0)
+6 ;;=063^*RESERVED^^*RESERVED
+7 ;;^UTILITY(U,$J,399.2,64,0)
+8 ;;=064^*RESERVED^^*RESERVED
+9 ;;^UTILITY(U,$J,399.2,65,0)
+10 ;;=065^*RESERVED^^*RESERVED
+11 ;;^UTILITY(U,$J,399.2,66,0)
+12 ;;=066^*RESERVED^^*RESERVED
+13 ;;^UTILITY(U,$J,399.2,67,0)
+14 ;;=067^*RESERVED^^*RESERVED
+15 ;;^UTILITY(U,$J,399.2,68,0)
+16 ;;=068^*RESERVED^^*RESERVED
+17 ;;^UTILITY(U,$J,399.2,69,0)
+18 ;;=069^*RESERVED^^*RESERVED
+19 ;;^UTILITY(U,$J,399.2,70,0)
+20 ;;=070^*RESERVED^^*RESERVED
+21 ;;^UTILITY(U,$J,399.2,71,0)
+22 ;;=071^*RESERVED^^*RESERVED
+23 ;;^UTILITY(U,$J,399.2,72,0)
+24 ;;=072^*RESERVED^^*RESERVED
+25 ;;^UTILITY(U,$J,399.2,73,0)
+26 ;;=073^*RESERVED^^*RESERVED
+27 ;;^UTILITY(U,$J,399.2,74,0)
+28 ;;=074^*RESERVED^^*RESERVED
+29 ;;^UTILITY(U,$J,399.2,75,0)
+30 ;;=075^*RESERVED^^*RESERVED
+31 ;;^UTILITY(U,$J,399.2,76,0)
+32 ;;=076^*RESERVED^^*RESERVED
+33 ;;^UTILITY(U,$J,399.2,77,0)
+34 ;;=077^*RESERVED^^*RESERVED
+35 ;;^UTILITY(U,$J,399.2,78,0)
+36 ;;=078^*RESERVED^^*RESERVED
+37 ;;^UTILITY(U,$J,399.2,79,0)
+38 ;;=079^*RESERVED^^*RESERVED
+39 ;;^UTILITY(U,$J,399.2,80,0)
+40 ;;=080^*RESERVED^^*RESERVED
+41 ;;^UTILITY(U,$J,399.2,81,0)
+42 ;;=081^*RESERVED^^*RESERVED
+43 ;;^UTILITY(U,$J,399.2,82,0)
+44 ;;=082^*RESERVED^^*RESERVED
+45 ;;^UTILITY(U,$J,399.2,83,0)
+46 ;;=083^*RESERVED^^*RESERVED
+47 ;;^UTILITY(U,$J,399.2,84,0)
+48 ;;=084^*RESERVED^^*RESERVED
+49 ;;^UTILITY(U,$J,399.2,85,0)
+50 ;;=085^*RESERVED^^*RESERVED
+51 ;;^UTILITY(U,$J,399.2,86,0)
+52 ;;=086^*RESERVED^^*RESERVED
+53 ;;^UTILITY(U,$J,399.2,87,0)
+54 ;;=087^*RESERVED^^*RESERVED
+55 ;;^UTILITY(U,$J,399.2,88,0)
+56 ;;=088^*RESERVED^^*RESERVED
+57 ;;^UTILITY(U,$J,399.2,89,0)
+58 ;;=089^*RESERVED^^*RESERVED
+59 ;;^UTILITY(U,$J,399.2,90,0)
+60 ;;=090^*RESERVED^^*RESERVED
+61 ;;^UTILITY(U,$J,399.2,91,0)
+62 ;;=091^*RESERVED^^*RESERVED
+63 ;;^UTILITY(U,$J,399.2,92,0)
+64 ;;=092^*RESERVED^^*RESERVED
+65 ;;^UTILITY(U,$J,399.2,93,0)
+66 ;;=093^*RESERVED^^*RESERVED
+67 ;;^UTILITY(U,$J,399.2,94,0)
+68 ;;=094^*RESERVED^^*RESERVED
+69 ;;^UTILITY(U,$J,399.2,95,0)
+70 ;;=095^*RESERVED^^*RESERVED
+71 ;;^UTILITY(U,$J,399.2,96,0)
+72 ;;=096^*RESERVED^^*RESERVED
+73 ;;^UTILITY(U,$J,399.2,97,0)
+74 ;;=097^*RESERVED^^*RESERVED
+75 ;;^UTILITY(U,$J,399.2,98,0)
+76 ;;=098^*RESERVED^^*RESERVED
+77 ;;^UTILITY(U,$J,399.2,99,0)
+78 ;;=099^*RESERVED^^*RESERVED
+79 ;;^UTILITY(U,$J,399.2,100,0)
+80 ;;=100^ALL INCL R&B/ANC^1^ALL-INCLUSIVE ROOM AND BOARD PLUS ANCILLARY
+81 ;;^UTILITY(U,$J,399.2,101,0)
+82 ;;=101^ALL INCL R&B^1^ALL-INCLUSIVE ROOM AND BOARD
+83 ;;^UTILITY(U,$J,399.2,102,0)
+84 ;;=102^*RESERVED^^*RESERVED
+85 ;;^UTILITY(U,$J,399.2,103,0)
+86 ;;=103^*RESERVED^^*RESERVED
+87 ;;^UTILITY(U,$J,399.2,104,0)
+88 ;;=104^*RESERVED^^*RESERVED
+89 ;;^UTILITY(U,$J,399.2,105,0)
+90 ;;=105^*RESERVED^^*RESERVED
+91 ;;^UTILITY(U,$J,399.2,106,0)
+92 ;;=106^*RESERVED^^*RESERVED
+93 ;;^UTILITY(U,$J,399.2,107,0)
+94 ;;=107^*RESERVED^^*RESERVED
+95 ;;^UTILITY(U,$J,399.2,108,0)
+96 ;;=108^*RESERVED^^*RESERVED
+97 ;;^UTILITY(U,$J,399.2,109,0)
+98 ;;=109^*RESERVED^^*RESERVED
+99 ;;^UTILITY(U,$J,399.2,110,0)
+100 ;;=110^ROOM-BOARD/PVT^^GENERAL CLASSIFICATION
+101 ;;^UTILITY(U,$J,399.2,111,0)
+102 ;;=111^MED-SUR-GY/PVT^^MEDICAL/SURGICAL/GYN
+103 ;;^UTILITY(U,$J,399.2,112,0)
+104 ;;=112^OB/PVT^^OB
+105 ;;^UTILITY(U,$J,399.2,113,0)
+106 ;;=113^PEDS/PVT^^PEDIATRIC
+107 ;;^UTILITY(U,$J,399.2,114,0)
+108 ;;=114^PSYCH/PVT^^PSYCHIATRIC
+109 ;;^UTILITY(U,$J,399.2,115,0)
+110 ;;=115^HOSPICE/PVT^^HOSPICE
+111 ;;^UTILITY(U,$J,399.2,116,0)
+112 ;;=116^DETOX/PVT^^DETOXIFICATION
+113 ;;^UTILITY(U,$J,399.2,117,0)
+114 ;;=117^ONCOLOGY/PVT^^ONCOLOGY
+115 ;;^UTILITY(U,$J,399.2,118,0)
+116 ;;=118^REHAB/PVT^^REHABILITATION
+117 ;;^UTILITY(U,$J,399.2,119,0)
+118 ;;=119^OTHER/PVT^^OTHER
+119 ;;^UTILITY(U,$J,399.2,120,0)
+120 ;;=120^ROOM-BOARD/SEMI^^GENERAL CLASSIFICATION
