IBINI0BK ; ; 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,716,0)
;;=716^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,717,0)
;;=717^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,718,0)
;;=718^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,719,0)
;;=719^OTHER RECOV RM^^OTHER RECOVERY ROOM
;;^UTILITY(U,$J,399.2,720,0)
;;=720^DELIVEROOM/LABOR^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,721,0)
;;=721^LABOR^^LABOR
;;^UTILITY(U,$J,399.2,722,0)
;;=722^DELIVERY ROOM^^DELIVERY
;;^UTILITY(U,$J,399.2,723,0)
;;=723^CIRCUMCISION^^CIRCUMCISION
;;^UTILITY(U,$J,399.2,724,0)
;;=724^BIRTHING CENTER^^BIRTHING CENTER
;;^UTILITY(U,$J,399.2,725,0)
;;=725^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,726,0)
;;=726^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,727,0)
;;=727^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,728,0)
;;=728^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,729,0)
;;=729^OTHER/DELIV-LABOR^^OTHER LABOR ROOM/DELIVERY
;;^UTILITY(U,$J,399.2,730,0)
;;=730^EKG/ECG^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,731,0)
;;=731^HOLTER MONT^^HOLTER MONITOR
;;^UTILITY(U,$J,399.2,732,0)
;;=732^TELEMETRY^^TELEMETRY
;;^UTILITY(U,$J,399.2,733,0)
;;=733^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,734,0)
;;=734^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,735,0)
;;=735^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,736,0)
;;=736^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,737,0)
;;=737^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,738,0)
;;=738^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,739,0)
;;=739^OTHER EKG-ECG^^OTHER EKG/ECG
;;^UTILITY(U,$J,399.2,740,0)
;;=740^EEG^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,741,0)
;;=741^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,742,0)
;;=742^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,743,0)
;;=743^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,744,0)
;;=744^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,745,0)
;;=745^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,746,0)
;;=746^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,747,0)
;;=747^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,748,0)
;;=748^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,749,0)
;;=749^OTHER EEG^^OTHER EEG
;;^UTILITY(U,$J,399.2,750,0)
;;=750^GASTR-INST SVS^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,751,0)
;;=751^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,752,0)
;;=752^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,753,0)
;;=753^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,754,0)
;;=754^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,755,0)
;;=755^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,756,0)
;;=756^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,757,0)
;;=757^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,758,0)
;;=758^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,759,0)
;;=759^OTHER GASTRO-INTS^^OTHER GASTRO-INTESTINAL
;;^UTILITY(U,$J,399.2,760,0)
;;=760^TREATMENT ROOM^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,761,0)
;;=761^TREATMENT RM^^TREATMENT ROOM
;;^UTILITY(U,$J,399.2,762,0)
;;=762^OBSERVATION RM^^OBSERVATION ROOM
;;^UTILITY(U,$J,399.2,763,0)
;;=763^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,764,0)
;;=764^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,765,0)
;;=765^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,766,0)
;;=766^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,767,0)
;;=767^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,768,0)
;;=768^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,769,0)
;;=769^OTHER TREATMENT RM^^OTHER TREATMENT ROOM
;;^UTILITY(U,$J,399.2,770,0)
;;=770^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,771,0)
;;=771^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,772,0)
;;=772^*RESERVED^^*RESERVED
IBINI0BK ; ; 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,716,0)
+2 ;;=716^*RESERVED^^*RESERVED
+3 ;;^UTILITY(U,$J,399.2,717,0)
+4 ;;=717^*RESERVED^^*RESERVED
+5 ;;^UTILITY(U,$J,399.2,718,0)
+6 ;;=718^*RESERVED^^*RESERVED
+7 ;;^UTILITY(U,$J,399.2,719,0)
+8 ;;=719^OTHER RECOV RM^^OTHER RECOVERY ROOM
+9 ;;^UTILITY(U,$J,399.2,720,0)
+10 ;;=720^DELIVEROOM/LABOR^^GENERAL CLASSIFICATION
+11 ;;^UTILITY(U,$J,399.2,721,0)
+12 ;;=721^LABOR^^LABOR
+13 ;;^UTILITY(U,$J,399.2,722,0)
+14 ;;=722^DELIVERY ROOM^^DELIVERY
+15 ;;^UTILITY(U,$J,399.2,723,0)
+16 ;;=723^CIRCUMCISION^^CIRCUMCISION
+17 ;;^UTILITY(U,$J,399.2,724,0)
+18 ;;=724^BIRTHING CENTER^^BIRTHING CENTER
+19 ;;^UTILITY(U,$J,399.2,725,0)
+20 ;;=725^*RESERVED^^*RESERVED
+21 ;;^UTILITY(U,$J,399.2,726,0)
+22 ;;=726^*RESERVED^^*RESERVED
+23 ;;^UTILITY(U,$J,399.2,727,0)
+24 ;;=727^*RESERVED^^*RESERVED
+25 ;;^UTILITY(U,$J,399.2,728,0)
+26 ;;=728^*RESERVED^^*RESERVED
+27 ;;^UTILITY(U,$J,399.2,729,0)
+28 ;;=729^OTHER/DELIV-LABOR^^OTHER LABOR ROOM/DELIVERY
+29 ;;^UTILITY(U,$J,399.2,730,0)
+30 ;;=730^EKG/ECG^^GENERAL CLASSIFICATION
+31 ;;^UTILITY(U,$J,399.2,731,0)
+32 ;;=731^HOLTER MONT^^HOLTER MONITOR
+33 ;;^UTILITY(U,$J,399.2,732,0)
+34 ;;=732^TELEMETRY^^TELEMETRY
+35 ;;^UTILITY(U,$J,399.2,733,0)
+36 ;;=733^*RESERVED^^*RESERVED
+37 ;;^UTILITY(U,$J,399.2,734,0)
+38 ;;=734^*RESERVED^^*RESERVED
+39 ;;^UTILITY(U,$J,399.2,735,0)
+40 ;;=735^*RESERVED^^*RESERVED
+41 ;;^UTILITY(U,$J,399.2,736,0)
+42 ;;=736^*RESERVED^^*RESERVED
+43 ;;^UTILITY(U,$J,399.2,737,0)
+44 ;;=737^*RESERVED^^*RESERVED
+45 ;;^UTILITY(U,$J,399.2,738,0)
+46 ;;=738^*RESERVED^^*RESERVED
+47 ;;^UTILITY(U,$J,399.2,739,0)
+48 ;;=739^OTHER EKG-ECG^^OTHER EKG/ECG
+49 ;;^UTILITY(U,$J,399.2,740,0)
+50 ;;=740^EEG^^GENERAL CLASSIFICATION
+51 ;;^UTILITY(U,$J,399.2,741,0)
+52 ;;=741^*RESERVED^^*RESERVED
+53 ;;^UTILITY(U,$J,399.2,742,0)
+54 ;;=742^*RESERVED^^*RESERVED
+55 ;;^UTILITY(U,$J,399.2,743,0)
+56 ;;=743^*RESERVED^^*RESERVED
+57 ;;^UTILITY(U,$J,399.2,744,0)
+58 ;;=744^*RESERVED^^*RESERVED
+59 ;;^UTILITY(U,$J,399.2,745,0)
+60 ;;=745^*RESERVED^^*RESERVED
+61 ;;^UTILITY(U,$J,399.2,746,0)
+62 ;;=746^*RESERVED^^*RESERVED
+63 ;;^UTILITY(U,$J,399.2,747,0)
+64 ;;=747^*RESERVED^^*RESERVED
+65 ;;^UTILITY(U,$J,399.2,748,0)
+66 ;;=748^*RESERVED^^*RESERVED
+67 ;;^UTILITY(U,$J,399.2,749,0)
+68 ;;=749^OTHER EEG^^OTHER EEG
+69 ;;^UTILITY(U,$J,399.2,750,0)
+70 ;;=750^GASTR-INST SVS^^GENERAL CLASSIFICATION
+71 ;;^UTILITY(U,$J,399.2,751,0)
+72 ;;=751^*RESERVED^^*RESERVED
+73 ;;^UTILITY(U,$J,399.2,752,0)
+74 ;;=752^*RESERVED^^*RESERVED
+75 ;;^UTILITY(U,$J,399.2,753,0)
+76 ;;=753^*RESERVED^^*RESERVED
+77 ;;^UTILITY(U,$J,399.2,754,0)
+78 ;;=754^*RESERVED^^*RESERVED
+79 ;;^UTILITY(U,$J,399.2,755,0)
+80 ;;=755^*RESERVED^^*RESERVED
+81 ;;^UTILITY(U,$J,399.2,756,0)
+82 ;;=756^*RESERVED^^*RESERVED
+83 ;;^UTILITY(U,$J,399.2,757,0)
+84 ;;=757^*RESERVED^^*RESERVED
+85 ;;^UTILITY(U,$J,399.2,758,0)
+86 ;;=758^*RESERVED^^*RESERVED
+87 ;;^UTILITY(U,$J,399.2,759,0)
+88 ;;=759^OTHER GASTRO-INTS^^OTHER GASTRO-INTESTINAL
+89 ;;^UTILITY(U,$J,399.2,760,0)
+90 ;;=760^TREATMENT ROOM^^GENERAL CLASSIFICATION
+91 ;;^UTILITY(U,$J,399.2,761,0)
+92 ;;=761^TREATMENT RM^^TREATMENT ROOM
+93 ;;^UTILITY(U,$J,399.2,762,0)
+94 ;;=762^OBSERVATION RM^^OBSERVATION ROOM
+95 ;;^UTILITY(U,$J,399.2,763,0)
+96 ;;=763^*RESERVED^^*RESERVED
+97 ;;^UTILITY(U,$J,399.2,764,0)
+98 ;;=764^*RESERVED^^*RESERVED
+99 ;;^UTILITY(U,$J,399.2,765,0)
+100 ;;=765^*RESERVED^^*RESERVED
+101 ;;^UTILITY(U,$J,399.2,766,0)
+102 ;;=766^*RESERVED^^*RESERVED
+103 ;;^UTILITY(U,$J,399.2,767,0)
+104 ;;=767^*RESERVED^^*RESERVED
+105 ;;^UTILITY(U,$J,399.2,768,0)
+106 ;;=768^*RESERVED^^*RESERVED
+107 ;;^UTILITY(U,$J,399.2,769,0)
+108 ;;=769^OTHER TREATMENT RM^^OTHER TREATMENT ROOM
+109 ;;^UTILITY(U,$J,399.2,770,0)
+110 ;;=770^*RESERVED^^*RESERVED
+111 ;;^UTILITY(U,$J,399.2,771,0)
+112 ;;=771^*RESERVED^^*RESERVED
+113 ;;^UTILITY(U,$J,399.2,772,0)
+114 ;;=772^*RESERVED^^*RESERVED
