IBINI0BM ; ; 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,826,0)
;;=826^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,827,0)
;;=827^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,828,0)
;;=828^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,829,0)
;;=829^HEMO/HOME/OTHER^^OTHER OUTPATIENT HEMODIALYSIS
;;^UTILITY(U,$J,399.2,830,0)
;;=830^PERITONEAL/OP OR HOME^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,831,0)
;;=831^PERTNL/COMPOSITE^^PERITONEAL/COMPOSITE OR OTHER RATE
;;^UTILITY(U,$J,399.2,832,0)
;;=832^PERTNL/HOME/SUPPL^^HOME SUPPLIES
;;^UTILITY(U,$J,399.2,833,0)
;;=833^PERTNL/HOME/EQUIP^^HOME EQUIPMENT
;;^UTILITY(U,$J,399.2,834,0)
;;=834^PERTNL/HOME/100%^^MAINTENANCE/100%
;;^UTILITY(U,$J,399.2,835,0)
;;=835^PERTNL/HOME/SUPSERV^^SUPPORT SERVICES
;;^UTILITY(U,$J,399.2,836,0)
;;=836^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,837,0)
;;=837^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,838,0)
;;=838^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,839,0)
;;=839^PERTNL/HOME/OTHER^^OTHER OUTPATIENT PERITONEAL DIALYSIS
;;^UTILITY(U,$J,399.2,840,0)
;;=840^CAPD/OP OR HOME^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,841,0)
;;=841^CAPD/COMPOSITE^^CAPD/COMPOSITE OR OTHER RATE
;;^UTILITY(U,$J,399.2,842,0)
;;=842^CAPD/HOME/SUPPL^^HOME SUPPLIES
;;^UTILITY(U,$J,399.2,843,0)
;;=843^CAPD/HOME/EQUIP^^HOME EQUIPMENT
;;^UTILITY(U,$J,399.2,844,0)
;;=844^CAPD/HOME/100%^^MAINTENANCE 100%
;;^UTILITY(U,$J,399.2,845,0)
;;=845^CAPD/HOME/SUPSERV^^SUPPORT SERVICES
;;^UTILITY(U,$J,399.2,846,0)
;;=846^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,847,0)
;;=847^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,848,0)
;;=848^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,849,0)
;;=849^CAPD/HOME/OTHER^^OTHER OUTPATIENT CAPD
;;^UTILITY(U,$J,399.2,850,0)
;;=850^CCPD/OP OR HOME^^GENERAL CLASSIFICATION
;;^UTILITY(U,$J,399.2,851,0)
;;=851^CCPD/COMPOSITE^^CCPD/COMPOSITE OR OTHER RATE
;;^UTILITY(U,$J,399.2,852,0)
;;=852^CCPD/HOME/SUPPL^^HOME SUPPLIES
;;^UTILITY(U,$J,399.2,853,0)
;;=853^CCPD/HOME/EQUIP^^HOME EQUIPMENT
;;^UTILITY(U,$J,399.2,854,0)
;;=854^CCPD/HOME/100%^^MAINTENANCE 100%
;;^UTILITY(U,$J,399.2,855,0)
;;=855^CCPD/HOME/SUPSERV^^SUPPORT SERVICES
;;^UTILITY(U,$J,399.2,856,0)
;;=856^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,857,0)
;;=857^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,858,0)
;;=858^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,859,0)
;;=859^CCPD/HOME/OTHER^^OTHER OUTPATIENT CCPD
;;^UTILITY(U,$J,399.2,860,0)
;;=860^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,861,0)
;;=861^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,862,0)
;;=862^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,863,0)
;;=863^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,864,0)
;;=864^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,865,0)
;;=865^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,866,0)
;;=866^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,867,0)
;;=867^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,868,0)
;;=868^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,869,0)
;;=869^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,870,0)
;;=870^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,871,0)
;;=871^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,872,0)
;;=872^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,873,0)
;;=873^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,874,0)
;;=874^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,875,0)
;;=875^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,876,0)
;;=876^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,877,0)
;;=877^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,878,0)
;;=878^*RESERVED^^*RESERVED
;;^UTILITY(U,$J,399.2,879,0)
;;=879^*RESERVED^^*RESERVED
IBINI0BM ; ; 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,826,0)
+2 ;;=826^*RESERVED^^*RESERVED
+3 ;;^UTILITY(U,$J,399.2,827,0)
+4 ;;=827^*RESERVED^^*RESERVED
+5 ;;^UTILITY(U,$J,399.2,828,0)
+6 ;;=828^*RESERVED^^*RESERVED
+7 ;;^UTILITY(U,$J,399.2,829,0)
+8 ;;=829^HEMO/HOME/OTHER^^OTHER OUTPATIENT HEMODIALYSIS
+9 ;;^UTILITY(U,$J,399.2,830,0)
+10 ;;=830^PERITONEAL/OP OR HOME^^GENERAL CLASSIFICATION
+11 ;;^UTILITY(U,$J,399.2,831,0)
+12 ;;=831^PERTNL/COMPOSITE^^PERITONEAL/COMPOSITE OR OTHER RATE
+13 ;;^UTILITY(U,$J,399.2,832,0)
+14 ;;=832^PERTNL/HOME/SUPPL^^HOME SUPPLIES
+15 ;;^UTILITY(U,$J,399.2,833,0)
+16 ;;=833^PERTNL/HOME/EQUIP^^HOME EQUIPMENT
+17 ;;^UTILITY(U,$J,399.2,834,0)
+18 ;;=834^PERTNL/HOME/100%^^MAINTENANCE/100%
+19 ;;^UTILITY(U,$J,399.2,835,0)
+20 ;;=835^PERTNL/HOME/SUPSERV^^SUPPORT SERVICES
+21 ;;^UTILITY(U,$J,399.2,836,0)
+22 ;;=836^*RESERVED^^*RESERVED
+23 ;;^UTILITY(U,$J,399.2,837,0)
+24 ;;=837^*RESERVED^^*RESERVED
+25 ;;^UTILITY(U,$J,399.2,838,0)
+26 ;;=838^*RESERVED^^*RESERVED
+27 ;;^UTILITY(U,$J,399.2,839,0)
+28 ;;=839^PERTNL/HOME/OTHER^^OTHER OUTPATIENT PERITONEAL DIALYSIS
+29 ;;^UTILITY(U,$J,399.2,840,0)
+30 ;;=840^CAPD/OP OR HOME^^GENERAL CLASSIFICATION
+31 ;;^UTILITY(U,$J,399.2,841,0)
+32 ;;=841^CAPD/COMPOSITE^^CAPD/COMPOSITE OR OTHER RATE
+33 ;;^UTILITY(U,$J,399.2,842,0)
+34 ;;=842^CAPD/HOME/SUPPL^^HOME SUPPLIES
+35 ;;^UTILITY(U,$J,399.2,843,0)
+36 ;;=843^CAPD/HOME/EQUIP^^HOME EQUIPMENT
+37 ;;^UTILITY(U,$J,399.2,844,0)
+38 ;;=844^CAPD/HOME/100%^^MAINTENANCE 100%
+39 ;;^UTILITY(U,$J,399.2,845,0)
+40 ;;=845^CAPD/HOME/SUPSERV^^SUPPORT SERVICES
+41 ;;^UTILITY(U,$J,399.2,846,0)
+42 ;;=846^*RESERVED^^*RESERVED
+43 ;;^UTILITY(U,$J,399.2,847,0)
+44 ;;=847^*RESERVED^^*RESERVED
+45 ;;^UTILITY(U,$J,399.2,848,0)
+46 ;;=848^*RESERVED^^*RESERVED
+47 ;;^UTILITY(U,$J,399.2,849,0)
+48 ;;=849^CAPD/HOME/OTHER^^OTHER OUTPATIENT CAPD
+49 ;;^UTILITY(U,$J,399.2,850,0)
+50 ;;=850^CCPD/OP OR HOME^^GENERAL CLASSIFICATION
+51 ;;^UTILITY(U,$J,399.2,851,0)
+52 ;;=851^CCPD/COMPOSITE^^CCPD/COMPOSITE OR OTHER RATE
+53 ;;^UTILITY(U,$J,399.2,852,0)
+54 ;;=852^CCPD/HOME/SUPPL^^HOME SUPPLIES
+55 ;;^UTILITY(U,$J,399.2,853,0)
+56 ;;=853^CCPD/HOME/EQUIP^^HOME EQUIPMENT
+57 ;;^UTILITY(U,$J,399.2,854,0)
+58 ;;=854^CCPD/HOME/100%^^MAINTENANCE 100%
+59 ;;^UTILITY(U,$J,399.2,855,0)
+60 ;;=855^CCPD/HOME/SUPSERV^^SUPPORT SERVICES
+61 ;;^UTILITY(U,$J,399.2,856,0)
+62 ;;=856^*RESERVED^^*RESERVED
+63 ;;^UTILITY(U,$J,399.2,857,0)
+64 ;;=857^*RESERVED^^*RESERVED
+65 ;;^UTILITY(U,$J,399.2,858,0)
+66 ;;=858^*RESERVED^^*RESERVED
+67 ;;^UTILITY(U,$J,399.2,859,0)
+68 ;;=859^CCPD/HOME/OTHER^^OTHER OUTPATIENT CCPD
+69 ;;^UTILITY(U,$J,399.2,860,0)
+70 ;;=860^*RESERVED^^*RESERVED
+71 ;;^UTILITY(U,$J,399.2,861,0)
+72 ;;=861^*RESERVED^^*RESERVED
+73 ;;^UTILITY(U,$J,399.2,862,0)
+74 ;;=862^*RESERVED^^*RESERVED
+75 ;;^UTILITY(U,$J,399.2,863,0)
+76 ;;=863^*RESERVED^^*RESERVED
+77 ;;^UTILITY(U,$J,399.2,864,0)
+78 ;;=864^*RESERVED^^*RESERVED
+79 ;;^UTILITY(U,$J,399.2,865,0)
+80 ;;=865^*RESERVED^^*RESERVED
+81 ;;^UTILITY(U,$J,399.2,866,0)
+82 ;;=866^*RESERVED^^*RESERVED
+83 ;;^UTILITY(U,$J,399.2,867,0)
+84 ;;=867^*RESERVED^^*RESERVED
+85 ;;^UTILITY(U,$J,399.2,868,0)
+86 ;;=868^*RESERVED^^*RESERVED
+87 ;;^UTILITY(U,$J,399.2,869,0)
+88 ;;=869^*RESERVED^^*RESERVED
+89 ;;^UTILITY(U,$J,399.2,870,0)
+90 ;;=870^*RESERVED^^*RESERVED
+91 ;;^UTILITY(U,$J,399.2,871,0)
+92 ;;=871^*RESERVED^^*RESERVED
+93 ;;^UTILITY(U,$J,399.2,872,0)
+94 ;;=872^*RESERVED^^*RESERVED
+95 ;;^UTILITY(U,$J,399.2,873,0)
+96 ;;=873^*RESERVED^^*RESERVED
+97 ;;^UTILITY(U,$J,399.2,874,0)
+98 ;;=874^*RESERVED^^*RESERVED
+99 ;;^UTILITY(U,$J,399.2,875,0)
+100 ;;=875^*RESERVED^^*RESERVED
+101 ;;^UTILITY(U,$J,399.2,876,0)
+102 ;;=876^*RESERVED^^*RESERVED
+103 ;;^UTILITY(U,$J,399.2,877,0)
+104 ;;=877^*RESERVED^^*RESERVED
+105 ;;^UTILITY(U,$J,399.2,878,0)
+106 ;;=878^*RESERVED^^*RESERVED
+107 ;;^UTILITY(U,$J,399.2,879,0)
+108 ;;=879^*RESERVED^^*RESERVED
