IBONI036 ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
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,"PRO",1040,0)
;;=IBTRE DIAGNOSIS UPDATE^Diagnosis Update^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",1040,15)
;;=D BLD^IBTRE
;;^UTILITY(U,$J,"PRO",1040,20)
;;=D DIAG^IBTRE1
;;^UTILITY(U,$J,"PRO",1040,99)
;;=55761,47402
;;^UTILITY(U,$J,"PRO",1041,0)
;;=IBTRED DIAGNOSIS UPDATE^Diagnosis Update^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",1041,15)
;;=D BLD^IBTRED S VALMBG=7
;;^UTILITY(U,$J,"PRO",1041,20)
;;=D EN^IBTRE3(IBTRN)
;;^UTILITY(U,$J,"PRO",1041,99)
;;=55761,74799
;;^UTILITY(U,$J,"PRO",1042,0)
;;=IBTRCD DIAGNOSIS UPDATE^Diagnosis Update^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",1042,15)
;;=D BLD^IBTRCD
;;^UTILITY(U,$J,"PRO",1042,20)
;;=D EN^IBTRE3(IBTRN)
;;^UTILITY(U,$J,"PRO",1042,99)
;;=55761,75924
;;^UTILITY(U,$J,"PRO",1043,0)
;;=IBTRC DIAGNOSIS UPDATE^Diagnosis Update^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",1043,15)
;;=D BLD^IBTRC
;;^UTILITY(U,$J,"PRO",1043,20)
;;=D EN^IBTRE3(IBTRN),DRG^IBTRV2(IBTRN)
;;^UTILITY(U,$J,"PRO",1043,99)
;;=55761,76045
;;^UTILITY(U,$J,"PRO",1044,0)
;;=IBTRE PROCEDURE UPDATE^Procedure Update^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",1044,15)
;;=D BLD^IBTRE
;;^UTILITY(U,$J,"PRO",1044,20)
;;=D PU^IBTRE1
;;^UTILITY(U,$J,"PRO",1044,99)
;;=55761,78168
;;^UTILITY(U,$J,"PRO",1045,0)
;;=IBTRED PROCEDURE UPDATE^Procedure Update^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",1045,15)
;;=D BLD^IBTRED S VALMBG=7
;;^UTILITY(U,$J,"PRO",1045,20)
;;=D EN^IBTRE4(IBTRN)
;;^UTILITY(U,$J,"PRO",1045,99)
;;=55761,78401
;;^UTILITY(U,$J,"PRO",1046,0)
;;=IBTRV PROCEDURE UPDATE^Procedure Update^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",1046,15)
;;=D BLD^IBTRV
;;^UTILITY(U,$J,"PRO",1046,20)
;;=D EN^IBTRE4(IBTRN)
;;^UTILITY(U,$J,"PRO",1046,99)
;;=55761,78694
;;^UTILITY(U,$J,"PRO",1047,0)
;;=IBTRVD PROCEDURE UPDATE^Procedure Update^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",1047,15)
;;=D BLD^IBTRVD S VALMBG=17
;;^UTILITY(U,$J,"PRO",1047,20)
;;=D EN^IBTRE4(IBTRN)
;;^UTILITY(U,$J,"PRO",1047,99)
;;=55761,78751
;;^UTILITY(U,$J,"PRO",1048,0)
;;=IBTRC PROCEDURE UPDATE^Procedure Update^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",1048,15)
;;=D BLD^IBTRC
;;^UTILITY(U,$J,"PRO",1048,20)
;;=D EN^IBTRE4(IBTRN)
;;^UTILITY(U,$J,"PRO",1048,99)
;;=55761,78797
;;^UTILITY(U,$J,"PRO",1049,0)
;;=IBTRCD PROCEDURE UPDATE^Procedure Update^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",1049,15)
;;=D BLD^IBTRCD
;;^UTILITY(U,$J,"PRO",1049,20)
;;=D EN^IBTRE4(IBTRN)
;;^UTILITY(U,$J,"PRO",1049,99)
;;=55761,78844
;;^UTILITY(U,$J,"PRO",1050,0)
;;=IBTRE PROVIDER UPDATE^Provider Update^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",1050,15)
;;=D BLD^IBTRE
;;^UTILITY(U,$J,"PRO",1050,20)
;;=D PRV^IBTRE1
;;^UTILITY(U,$J,"PRO",1050,99)
;;=55762,29204
;;^UTILITY(U,$J,"PRO",1051,0)
;;=IBTRED PROVIDER UPDATE^Provider Update^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",1051,15)
;;=D BLD^IBTRED S VALMBG=7
;;^UTILITY(U,$J,"PRO",1051,20)
;;=D EN^IBTRE5(IBTRN)
;;^UTILITY(U,$J,"PRO",1051,99)
;;=55762,29970
;;^UTILITY(U,$J,"PRO",1052,0)
;;=IBTRV PROVIDER UPDATE^Provider Update^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",1052,15)
;;=D BLD^IBTRV
;;^UTILITY(U,$J,"PRO",1052,20)
;;=D EN^IBTRE5(IBTRN)
;;^UTILITY(U,$J,"PRO",1052,99)
;;=55762,30017
;;^UTILITY(U,$J,"PRO",1053,0)
;;=IBTRVD PROVIDER UPDATE^Provider Update^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",1053,15)
;;=D BLD^IBTRVD S VALMBG=17
;;^UTILITY(U,$J,"PRO",1053,20)
;;=D EN^IBTRE5(IBTRN)
IBONI036 ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 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,"PRO",1040,0)
+2 ;;=IBTRE DIAGNOSIS UPDATE^Diagnosis Update^^A^^^^^^^^INTEGRATED BILLING
+3 ;;^UTILITY(U,$J,"PRO",1040,15)
+4 ;;=D BLD^IBTRE
+5 ;;^UTILITY(U,$J,"PRO",1040,20)
+6 ;;=D DIAG^IBTRE1
+7 ;;^UTILITY(U,$J,"PRO",1040,99)
+8 ;;=55761,47402
+9 ;;^UTILITY(U,$J,"PRO",1041,0)
+10 ;;=IBTRED DIAGNOSIS UPDATE^Diagnosis Update^^A^^^^^^^^INTEGRATED BILLING
+11 ;;^UTILITY(U,$J,"PRO",1041,15)
+12 ;;=D BLD^IBTRED S VALMBG=7
+13 ;;^UTILITY(U,$J,"PRO",1041,20)
+14 ;;=D EN^IBTRE3(IBTRN)
+15 ;;^UTILITY(U,$J,"PRO",1041,99)
+16 ;;=55761,74799
+17 ;;^UTILITY(U,$J,"PRO",1042,0)
+18 ;;=IBTRCD DIAGNOSIS UPDATE^Diagnosis Update^^A^^^^^^^^INTEGRATED BILLING
+19 ;;^UTILITY(U,$J,"PRO",1042,15)
+20 ;;=D BLD^IBTRCD
+21 ;;^UTILITY(U,$J,"PRO",1042,20)
+22 ;;=D EN^IBTRE3(IBTRN)
+23 ;;^UTILITY(U,$J,"PRO",1042,99)
+24 ;;=55761,75924
+25 ;;^UTILITY(U,$J,"PRO",1043,0)
+26 ;;=IBTRC DIAGNOSIS UPDATE^Diagnosis Update^^A^^^^^^^^INTEGRATED BILLING
+27 ;;^UTILITY(U,$J,"PRO",1043,15)
+28 ;;=D BLD^IBTRC
+29 ;;^UTILITY(U,$J,"PRO",1043,20)
+30 ;;=D EN^IBTRE3(IBTRN),DRG^IBTRV2(IBTRN)
+31 ;;^UTILITY(U,$J,"PRO",1043,99)
+32 ;;=55761,76045
+33 ;;^UTILITY(U,$J,"PRO",1044,0)
+34 ;;=IBTRE PROCEDURE UPDATE^Procedure Update^^A^^^^^^^^INTEGRATED BILLING
+35 ;;^UTILITY(U,$J,"PRO",1044,15)
+36 ;;=D BLD^IBTRE
+37 ;;^UTILITY(U,$J,"PRO",1044,20)
+38 ;;=D PU^IBTRE1
+39 ;;^UTILITY(U,$J,"PRO",1044,99)
+40 ;;=55761,78168
+41 ;;^UTILITY(U,$J,"PRO",1045,0)
+42 ;;=IBTRED PROCEDURE UPDATE^Procedure Update^^A^^^^^^^^INTEGRATED BILLING
+43 ;;^UTILITY(U,$J,"PRO",1045,15)
+44 ;;=D BLD^IBTRED S VALMBG=7
+45 ;;^UTILITY(U,$J,"PRO",1045,20)
+46 ;;=D EN^IBTRE4(IBTRN)
+47 ;;^UTILITY(U,$J,"PRO",1045,99)
+48 ;;=55761,78401
+49 ;;^UTILITY(U,$J,"PRO",1046,0)
+50 ;;=IBTRV PROCEDURE UPDATE^Procedure Update^^A^^^^^^^^INTEGRATED BILLING
+51 ;;^UTILITY(U,$J,"PRO",1046,15)
+52 ;;=D BLD^IBTRV
+53 ;;^UTILITY(U,$J,"PRO",1046,20)
+54 ;;=D EN^IBTRE4(IBTRN)
+55 ;;^UTILITY(U,$J,"PRO",1046,99)
+56 ;;=55761,78694
+57 ;;^UTILITY(U,$J,"PRO",1047,0)
+58 ;;=IBTRVD PROCEDURE UPDATE^Procedure Update^^A^^^^^^^^INTEGRATED BILLING
+59 ;;^UTILITY(U,$J,"PRO",1047,15)
+60 ;;=D BLD^IBTRVD S VALMBG=17
+61 ;;^UTILITY(U,$J,"PRO",1047,20)
+62 ;;=D EN^IBTRE4(IBTRN)
+63 ;;^UTILITY(U,$J,"PRO",1047,99)
+64 ;;=55761,78751
+65 ;;^UTILITY(U,$J,"PRO",1048,0)
+66 ;;=IBTRC PROCEDURE UPDATE^Procedure Update^^A^^^^^^^^INTEGRATED BILLING
+67 ;;^UTILITY(U,$J,"PRO",1048,15)
+68 ;;=D BLD^IBTRC
+69 ;;^UTILITY(U,$J,"PRO",1048,20)
+70 ;;=D EN^IBTRE4(IBTRN)
+71 ;;^UTILITY(U,$J,"PRO",1048,99)
+72 ;;=55761,78797
+73 ;;^UTILITY(U,$J,"PRO",1049,0)
+74 ;;=IBTRCD PROCEDURE UPDATE^Procedure Update^^A^^^^^^^^INTEGRATED BILLING
+75 ;;^UTILITY(U,$J,"PRO",1049,15)
+76 ;;=D BLD^IBTRCD
+77 ;;^UTILITY(U,$J,"PRO",1049,20)
+78 ;;=D EN^IBTRE4(IBTRN)
+79 ;;^UTILITY(U,$J,"PRO",1049,99)
+80 ;;=55761,78844
+81 ;;^UTILITY(U,$J,"PRO",1050,0)
+82 ;;=IBTRE PROVIDER UPDATE^Provider Update^^A^^^^^^^^INTEGRATED BILLING
+83 ;;^UTILITY(U,$J,"PRO",1050,15)
+84 ;;=D BLD^IBTRE
+85 ;;^UTILITY(U,$J,"PRO",1050,20)
+86 ;;=D PRV^IBTRE1
+87 ;;^UTILITY(U,$J,"PRO",1050,99)
+88 ;;=55762,29204
+89 ;;^UTILITY(U,$J,"PRO",1051,0)
+90 ;;=IBTRED PROVIDER UPDATE^Provider Update^^A^^^^^^^^INTEGRATED BILLING
+91 ;;^UTILITY(U,$J,"PRO",1051,15)
+92 ;;=D BLD^IBTRED S VALMBG=7
+93 ;;^UTILITY(U,$J,"PRO",1051,20)
+94 ;;=D EN^IBTRE5(IBTRN)
+95 ;;^UTILITY(U,$J,"PRO",1051,99)
+96 ;;=55762,29970
+97 ;;^UTILITY(U,$J,"PRO",1052,0)
+98 ;;=IBTRV PROVIDER UPDATE^Provider Update^^A^^^^^^^^INTEGRATED BILLING
+99 ;;^UTILITY(U,$J,"PRO",1052,15)
+100 ;;=D BLD^IBTRV
+101 ;;^UTILITY(U,$J,"PRO",1052,20)
+102 ;;=D EN^IBTRE5(IBTRN)
+103 ;;^UTILITY(U,$J,"PRO",1052,99)
+104 ;;=55762,30017
+105 ;;^UTILITY(U,$J,"PRO",1053,0)
+106 ;;=IBTRVD PROVIDER UPDATE^Provider Update^^A^^^^^^^^INTEGRATED BILLING
+107 ;;^UTILITY(U,$J,"PRO",1053,15)
+108 ;;=D BLD^IBTRVD S VALMBG=17
+109 ;;^UTILITY(U,$J,"PRO",1053,20)
+110 ;;=D EN^IBTRE5(IBTRN)
