- 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
