IBINI0BL ; ; 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,773,0)
;;=773^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,774,0)
;;=774^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,775,0)
;;=775^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,776,0)
;;=776^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,777,0)
;;=777^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,778,0)
;;=778^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,779,0)
;;=779^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,780,0)
;;=780^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,781,0)
;;=781^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,782,0)
;;=782^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,783,0)
;;=783^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,784,0)
;;=784^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,785,0)
;;=785^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,786,0)
;;=786^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,787,0)
;;=787^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,788,0)
;;=788^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,789,0)
;;=789^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,790,0)
;;=790^LITHOTRIPSY^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,791,0)
;;=791^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,792,0)
;;=792^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,793,0)
;;=793^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,794,0)
;;=794^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,795,0)
;;=795^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,796,0)
;;=796^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,797,0)
;;=797^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,798,0)
;;=798^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,799,0)
;;=799^LITHOTRIPSY/OTHER^^OTHER LITHOTRIPSY
;;^UTILITY(U,$J,399.2,800,0)
;;=800^RENAL DIALYSIS^1^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,801,0)
;;=801^DIALY/INPT^^INPATIENT HEMODIALYSIS
;;^UTILITY(U,$J,399.2,802,0)
;;=802^DIALY/INPT/PER^^INPATIENT PERITONEAL (NON-CAPD)
;;^UTILITY(U,$J,399.2,803,0)
;;=803^DIALY/INPT/CAPD^^INPATIENT CONTINUOUS AMBULATORY PERIOTNEAL DIALYSIS (CAPD)
;;^UTILITY(U,$J,399.2,804,0)
;;=804^DIALY/INPT/CCPD^^INPATIENT CONTINUOUS CYCLING PERITONEAL DIALYSIS (CCPD)
;;^UTILITY(U,$J,399.2,805,0)
;;=805^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,806,0)
;;=806^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,807,0)
;;=807^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,808,0)
;;=808^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,809,0)
;;=809^DIALY/INPT/OTHER^1^OTHER INPATIENT DIALYSIS
;;^UTILITY(U,$J,399.2,810,0)
;;=810^ORGAN ACQUISIT^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,811,0)
;;=811^KIDNEY/LIVE^^LIVING DONOR-KIDNEY
;;^UTILITY(U,$J,399.2,812,0)
;;=812^KIDNEY/CADAVER^^CADAVER DONOR-KIDNEY
;;^UTILITY(U,$J,399.2,813,0)
;;=813^KIDNEY/UNKNOWN^^UNKNOWN DONOR-KIDNEY
;;^UTILITY(U,$J,399.2,814,0)
;;=814^KIDNEY/OTHER^^OTHER KIDNEY ACQUISITION
;;^UTILITY(U,$J,399.2,815,0)
;;=815^HEART/CADAVER^1^CADAVER DONOR-HEART
;;^UTILITY(U,$J,399.2,816,0)
;;=816^HEART/OTHER^^OTHER HEART ACQUISITION
;;^UTILITY(U,$J,399.2,817,0)
;;=817^LIVER ACQUISIT^1^DONOR-LIVER
;;^UTILITY(U,$J,399.2,818,0)
;;=818^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,819,0)
;;=819^ORGAN/OTHER^^OTHER ORGAN ACQUISITION
;;^UTILITY(U,$J,399.2,820,0)
;;=820^HEMO/OP OR HOME^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,821,0)
;;=821^HEMO/COMPOSITE^^HEMODIALYSIS/COMPOSITE OR OTHER RATE
;;^UTILITY(U,$J,399.2,822,0)
;;=822^HEMO/HOME/SUPPL^^HOME SUPPLIES
;;^UTILITY(U,$J,399.2,823,0)
;;=823^HEMO/HOME/EQUIP^^HOME EQUIPMENT
;;^UTILITY(U,$J,399.2,824,0)
;;=824^HEMO/HOME/100%^^MAINTENANCE/100%
;;^UTILITY(U,$J,399.2,825,0)
;;=825^HEMO/HOME/SUPSERV^^SUPPORT SERVICES
IBINI0BL ; ; 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,773,0)
+2 ;;=773^*RESERVED^^*RESERVED
+3 ;;^UTILITY(U,$J,399.2,774,0)
+4 ;;=774^*RESERVED^^*RESERVED
+5 ;;^UTILITY(U,$J,399.2,775,0)
+6 ;;=775^*RESERVED^^*RESERVED
+7 ;;^UTILITY(U,$J,399.2,776,0)
+8 ;;=776^*RESERVED^^*RESERVED
+9 ;;^UTILITY(U,$J,399.2,777,0)
+10 ;;=777^*RESERVED^^*RESERVED
+11 ;;^UTILITY(U,$J,399.2,778,0)
+12 ;;=778^*RESERVED^^*RESERVED
+13 ;;^UTILITY(U,$J,399.2,779,0)
+14 ;;=779^*RESERVED^^*RESERVED
+15 ;;^UTILITY(U,$J,399.2,780,0)
+16 ;;=780^*RESERVED^^*RESERVED
+17 ;;^UTILITY(U,$J,399.2,781,0)
+18 ;;=781^*RESERVED^^*RESERVED
+19 ;;^UTILITY(U,$J,399.2,782,0)
+20 ;;=782^*RESERVED^^*RESERVED
+21 ;;^UTILITY(U,$J,399.2,783,0)
+22 ;;=783^*RESERVED^^*RESERVED
+23 ;;^UTILITY(U,$J,399.2,784,0)
+24 ;;=784^*RESERVED^^*RESERVED
+25 ;;^UTILITY(U,$J,399.2,785,0)
+26 ;;=785^*RESERVED^^*RESERVED
+27 ;;^UTILITY(U,$J,399.2,786,0)
+28 ;;=786^*RESERVED^^*RESERVED
+29 ;;^UTILITY(U,$J,399.2,787,0)
+30 ;;=787^*RESERVED^^*RESERVED
+31 ;;^UTILITY(U,$J,399.2,788,0)
+32 ;;=788^*RESERVED^^*RESERVED
+33 ;;^UTILITY(U,$J,399.2,789,0)
+34 ;;=789^*RESERVED^^*RESERVED
+35 ;;^UTILITY(U,$J,399.2,790,0)
+36 ;;=790^LITHOTRIPSY^^GENERAL CLASSIFICATION
+37 ;;^UTILITY(U,$J,399.2,791,0)
+38 ;;=791^*RESERVED^^*RESERVED
+39 ;;^UTILITY(U,$J,399.2,792,0)
+40 ;;=792^*RESERVED^^*RESERVED
+41 ;;^UTILITY(U,$J,399.2,793,0)
+42 ;;=793^*RESERVED^^*RESERVED
+43 ;;^UTILITY(U,$J,399.2,794,0)
+44 ;;=794^*RESERVED^^*RESERVED
+45 ;;^UTILITY(U,$J,399.2,795,0)
+46 ;;=795^*RESERVED^^*RESERVED
+47 ;;^UTILITY(U,$J,399.2,796,0)
+48 ;;=796^*RESERVED^^*RESERVED
+49 ;;^UTILITY(U,$J,399.2,797,0)
+50 ;;=797^*RESERVED^^*RESERVED
+51 ;;^UTILITY(U,$J,399.2,798,0)
+52 ;;=798^*RESERVED^^*RESERVED
+53 ;;^UTILITY(U,$J,399.2,799,0)
+54 ;;=799^LITHOTRIPSY/OTHER^^OTHER LITHOTRIPSY
+55 ;;^UTILITY(U,$J,399.2,800,0)
+56 ;;=800^RENAL DIALYSIS^1^GENERAL CLASSIFICATION
+57 ;;^UTILITY(U,$J,399.2,801,0)
+58 ;;=801^DIALY/INPT^^INPATIENT HEMODIALYSIS
+59 ;;^UTILITY(U,$J,399.2,802,0)
+60 ;;=802^DIALY/INPT/PER^^INPATIENT PERITONEAL (NON-CAPD)
+61 ;;^UTILITY(U,$J,399.2,803,0)
+62 ;;=803^DIALY/INPT/CAPD^^INPATIENT CONTINUOUS AMBULATORY PERIOTNEAL DIALYSIS (CAPD)
+63 ;;^UTILITY(U,$J,399.2,804,0)
+64 ;;=804^DIALY/INPT/CCPD^^INPATIENT CONTINUOUS CYCLING PERITONEAL DIALYSIS (CCPD)
+65 ;;^UTILITY(U,$J,399.2,805,0)
+66 ;;=805^*RESERVED^^*RESERVED
+67 ;;^UTILITY(U,$J,399.2,806,0)
+68 ;;=806^*RESERVED^^*RESERVED
+69 ;;^UTILITY(U,$J,399.2,807,0)
+70 ;;=807^*RESERVED^^*RESERVED
+71 ;;^UTILITY(U,$J,399.2,808,0)
+72 ;;=808^*RESERVED^^*RESERVED
+73 ;;^UTILITY(U,$J,399.2,809,0)
+74 ;;=809^DIALY/INPT/OTHER^1^OTHER INPATIENT DIALYSIS
+75 ;;^UTILITY(U,$J,399.2,810,0)
+76 ;;=810^ORGAN ACQUISIT^^GENERAL CLASSIFICATION
+77 ;;^UTILITY(U,$J,399.2,811,0)
+78 ;;=811^KIDNEY/LIVE^^LIVING DONOR-KIDNEY
+79 ;;^UTILITY(U,$J,399.2,812,0)
+80 ;;=812^KIDNEY/CADAVER^^CADAVER DONOR-KIDNEY
+81 ;;^UTILITY(U,$J,399.2,813,0)
+82 ;;=813^KIDNEY/UNKNOWN^^UNKNOWN DONOR-KIDNEY
+83 ;;^UTILITY(U,$J,399.2,814,0)
+84 ;;=814^KIDNEY/OTHER^^OTHER KIDNEY ACQUISITION
+85 ;;^UTILITY(U,$J,399.2,815,0)
+86 ;;=815^HEART/CADAVER^1^CADAVER DONOR-HEART
+87 ;;^UTILITY(U,$J,399.2,816,0)
+88 ;;=816^HEART/OTHER^^OTHER HEART ACQUISITION
+89 ;;^UTILITY(U,$J,399.2,817,0)
+90 ;;=817^LIVER ACQUISIT^1^DONOR-LIVER
+91 ;;^UTILITY(U,$J,399.2,818,0)
+92 ;;=818^*RESERVED^^*RESERVED
+93 ;;^UTILITY(U,$J,399.2,819,0)
+94 ;;=819^ORGAN/OTHER^^OTHER ORGAN ACQUISITION
+95 ;;^UTILITY(U,$J,399.2,820,0)
+96 ;;=820^HEMO/OP OR HOME^^GENERAL CLASSIFICATION
+97 ;;^UTILITY(U,$J,399.2,821,0)
+98 ;;=821^HEMO/COMPOSITE^^HEMODIALYSIS/COMPOSITE OR OTHER RATE
+99 ;;^UTILITY(U,$J,399.2,822,0)
+100 ;;=822^HEMO/HOME/SUPPL^^HOME SUPPLIES
+101 ;;^UTILITY(U,$J,399.2,823,0)
+102 ;;=823^HEMO/HOME/EQUIP^^HOME EQUIPMENT
+103 ;;^UTILITY(U,$J,399.2,824,0)
+104 ;;=824^HEMO/HOME/100%^^MAINTENANCE/100%
+105 ;;^UTILITY(U,$J,399.2,825,0)
+106 ;;=825^HEMO/HOME/SUPSERV^^SUPPORT SERVICES
