IBINI0C3 ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQR(399.5) 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.5,194,0)
;;=2901001^5^101^314^1^i
;;^UTILITY(U,$J,399.5,195,0)
;;=2901001^5^240^180^1^i
;;^UTILITY(U,$J,399.5,196,0)
;;=2901001^5^960^70^1^i
;;^UTILITY(U,$J,399.5,197,0)
;;=2901001^10^1^461^1^opc
;;^UTILITY(U,$J,399.5,198,0)
;;=2901001^10^101^266^1^i
;;^UTILITY(U,$J,399.5,199,0)
;;=2901001^10^240^141^1^i
;;^UTILITY(U,$J,399.5,200,0)
;;=2901001^10^960^54^1^i
;;^UTILITY(U,$J,399.5,201,0)
;;=2901001^1^1^233^1^opc
;;^UTILITY(U,$J,399.5,202,0)
;;=2901001^1^101^141^1^i
;;^UTILITY(U,$J,399.5,203,0)
;;=2901001^1^240^49^1^i
;;^UTILITY(U,$J,399.5,204,0)
;;=2901001^1^960^43^1^i
;;^UTILITY(U,$J,399.5,205,0)
;;=2901001^2^1^541^1^opc
;;^UTILITY(U,$J,399.5,206,0)
;;=2901001^2^101^203^1^i
;;^UTILITY(U,$J,399.5,207,0)
;;=2901001^2^240^266^1^i
;;^UTILITY(U,$J,399.5,208,0)
;;=2901001^2^960^72^1^i
;;^UTILITY(U,$J,399.5,209,0)
;;=2901001^6^1^185^1^opc
;;^UTILITY(U,$J,399.5,210,0)
;;=2901001^6^101^150^1^i
;;^UTILITY(U,$J,399.5,211,0)
;;=2901001^6^240^26^1^i
;;^UTILITY(U,$J,399.5,212,0)
;;=2901001^6^960^9^1^i
;;^UTILITY(U,$J,399.5,213,0)
;;=2901001^11^1^592^1^c
;;^UTILITY(U,$J,399.5,214,0)
;;=2901001^11^1^663^1^op
;;^UTILITY(U,$J,399.5,215,0)
;;=2901001^11^101^390^1^i
;;^UTILITY(U,$J,399.5,216,0)
;;=2901001^11^240^195^1^i
;;^UTILITY(U,$J,399.5,217,0)
;;=2901001^11^960^78^1^i
;;^UTILITY(U,$J,399.5,218,0)
;;=2901001^7^500^26^1^c
;;^UTILITY(U,$J,399.5,219,0)
;;=2901001^7^500^130^1^iop
;;^UTILITY(U,$J,399.5,220,0)
;;=2901001^8^250^19^1^iop
;;^UTILITY(U,$J,399.5,221,0)
;;=2901201^3^1^568^1^o
;;^UTILITY(U,$J,399.5,222,0)
;;=2901201^12^1^865^1^o
;;^UTILITY(U,$J,399.5,223,0)
;;=2901201^11^1^585^1^o
;;^UTILITY(U,$J,399.5,224,0)
;;=2901201^2^1^475^1^o
;;^UTILITY(U,$J,399.5,225,0)
;;=2901201^5^1^498^1^o
;;^UTILITY(U,$J,399.5,226,0)
;;=2901201^10^1^406^1^o
;;^UTILITY(U,$J,399.5,227,0)
;;=2901201^9^1^257^1^o
;;^UTILITY(U,$J,399.5,228,0)
;;=2901201^4^1^184^1^o
;;^UTILITY(U,$J,399.5,229,0)
;;=2901201^6^1^164^1^o
;;^UTILITY(U,$J,399.5,230,0)
;;=2901201^1^1^205^1^o
;;^UTILITY(U,$J,399.5,231,0)
;;=2901201^7^500^116^1^o
;;^UTILITY(U,$J,399.5,232,0)
;;=2901201^8^250^17^1^o
;;^UTILITY(U,$J,399.5,233,0)
;;=2911001^3^1^628^1^c
;;^UTILITY(U,$J,399.5,234,0)
;;=2911001^3^1^687^1^op
;;^UTILITY(U,$J,399.5,235,0)
;;=2911001^3^101^386^1^i
;;^UTILITY(U,$J,399.5,236,0)
;;=2911001^3^240^169^1^i
;;^UTILITY(U,$J,399.5,237,0)
;;=2911001^3^960^132^1^i
;;^UTILITY(U,$J,399.5,238,0)
;;=2911001^12^1^628^1^c
;;^UTILITY(U,$J,399.5,239,0)
;;=2911001^12^1^982^1^op
;;^UTILITY(U,$J,399.5,240,0)
;;=2911001^12^101^542^1^i
;;^UTILITY(U,$J,399.5,241,0)
;;=2911001^12^240^257^1^i
;;^UTILITY(U,$J,399.5,242,0)
;;=2911001^12^960^183^1^i
;;^UTILITY(U,$J,399.5,243,0)
;;=2911001^9^1^297^1^opc
;;^UTILITY(U,$J,399.5,244,0)
;;=2911001^9^101^211^1^i
;;^UTILITY(U,$J,399.5,245,0)
;;=2911001^9^240^46^1^i
;;^UTILITY(U,$J,399.5,246,0)
;;=2911001^9^960^40^1^i
;;^UTILITY(U,$J,399.5,247,0)
;;=2911001^4^1^250^1^opc
;;^UTILITY(U,$J,399.5,248,0)
;;=2911001^4^101^180^1^i
;;^UTILITY(U,$J,399.5,249,0)
;;=2911001^4^240^34^1^i
;;^UTILITY(U,$J,399.5,250,0)
;;=2911001^4^960^36^1^i
;;^UTILITY(U,$J,399.5,251,0)
;;=2911001^5^1^584^1^opc
;;^UTILITY(U,$J,399.5,252,0)
;;=2911001^5^101^326^1^i
;;^UTILITY(U,$J,399.5,253,0)
;;=2911001^5^240^186^1^i
;;^UTILITY(U,$J,399.5,254,0)
;;=2911001^5^960^72^1^i
;;^UTILITY(U,$J,399.5,255,0)
;;=2911001^10^1^476^1^opc
;;^UTILITY(U,$J,399.5,256,0)
;;=2911001^10^101^275^1^i
;;^UTILITY(U,$J,399.5,257,0)
;;=2911001^10^240^145^1^i
;;^UTILITY(U,$J,399.5,258,0)
;;=2911001^10^960^56^1^i
IBINI0C3 ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQR(399.5)
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.5,194,0)
+2 ;;=2901001^5^101^314^1^i
+3 ;;^UTILITY(U,$J,399.5,195,0)
+4 ;;=2901001^5^240^180^1^i
+5 ;;^UTILITY(U,$J,399.5,196,0)
+6 ;;=2901001^5^960^70^1^i
+7 ;;^UTILITY(U,$J,399.5,197,0)
+8 ;;=2901001^10^1^461^1^opc
+9 ;;^UTILITY(U,$J,399.5,198,0)
+10 ;;=2901001^10^101^266^1^i
+11 ;;^UTILITY(U,$J,399.5,199,0)
+12 ;;=2901001^10^240^141^1^i
+13 ;;^UTILITY(U,$J,399.5,200,0)
+14 ;;=2901001^10^960^54^1^i
+15 ;;^UTILITY(U,$J,399.5,201,0)
+16 ;;=2901001^1^1^233^1^opc
+17 ;;^UTILITY(U,$J,399.5,202,0)
+18 ;;=2901001^1^101^141^1^i
+19 ;;^UTILITY(U,$J,399.5,203,0)
+20 ;;=2901001^1^240^49^1^i
+21 ;;^UTILITY(U,$J,399.5,204,0)
+22 ;;=2901001^1^960^43^1^i
+23 ;;^UTILITY(U,$J,399.5,205,0)
+24 ;;=2901001^2^1^541^1^opc
+25 ;;^UTILITY(U,$J,399.5,206,0)
+26 ;;=2901001^2^101^203^1^i
+27 ;;^UTILITY(U,$J,399.5,207,0)
+28 ;;=2901001^2^240^266^1^i
+29 ;;^UTILITY(U,$J,399.5,208,0)
+30 ;;=2901001^2^960^72^1^i
+31 ;;^UTILITY(U,$J,399.5,209,0)
+32 ;;=2901001^6^1^185^1^opc
+33 ;;^UTILITY(U,$J,399.5,210,0)
+34 ;;=2901001^6^101^150^1^i
+35 ;;^UTILITY(U,$J,399.5,211,0)
+36 ;;=2901001^6^240^26^1^i
+37 ;;^UTILITY(U,$J,399.5,212,0)
+38 ;;=2901001^6^960^9^1^i
+39 ;;^UTILITY(U,$J,399.5,213,0)
+40 ;;=2901001^11^1^592^1^c
+41 ;;^UTILITY(U,$J,399.5,214,0)
+42 ;;=2901001^11^1^663^1^op
+43 ;;^UTILITY(U,$J,399.5,215,0)
+44 ;;=2901001^11^101^390^1^i
+45 ;;^UTILITY(U,$J,399.5,216,0)
+46 ;;=2901001^11^240^195^1^i
+47 ;;^UTILITY(U,$J,399.5,217,0)
+48 ;;=2901001^11^960^78^1^i
+49 ;;^UTILITY(U,$J,399.5,218,0)
+50 ;;=2901001^7^500^26^1^c
+51 ;;^UTILITY(U,$J,399.5,219,0)
+52 ;;=2901001^7^500^130^1^iop
+53 ;;^UTILITY(U,$J,399.5,220,0)
+54 ;;=2901001^8^250^19^1^iop
+55 ;;^UTILITY(U,$J,399.5,221,0)
+56 ;;=2901201^3^1^568^1^o
+57 ;;^UTILITY(U,$J,399.5,222,0)
+58 ;;=2901201^12^1^865^1^o
+59 ;;^UTILITY(U,$J,399.5,223,0)
+60 ;;=2901201^11^1^585^1^o
+61 ;;^UTILITY(U,$J,399.5,224,0)
+62 ;;=2901201^2^1^475^1^o
+63 ;;^UTILITY(U,$J,399.5,225,0)
+64 ;;=2901201^5^1^498^1^o
+65 ;;^UTILITY(U,$J,399.5,226,0)
+66 ;;=2901201^10^1^406^1^o
+67 ;;^UTILITY(U,$J,399.5,227,0)
+68 ;;=2901201^9^1^257^1^o
+69 ;;^UTILITY(U,$J,399.5,228,0)
+70 ;;=2901201^4^1^184^1^o
+71 ;;^UTILITY(U,$J,399.5,229,0)
+72 ;;=2901201^6^1^164^1^o
+73 ;;^UTILITY(U,$J,399.5,230,0)
+74 ;;=2901201^1^1^205^1^o
+75 ;;^UTILITY(U,$J,399.5,231,0)
+76 ;;=2901201^7^500^116^1^o
+77 ;;^UTILITY(U,$J,399.5,232,0)
+78 ;;=2901201^8^250^17^1^o
+79 ;;^UTILITY(U,$J,399.5,233,0)
+80 ;;=2911001^3^1^628^1^c
+81 ;;^UTILITY(U,$J,399.5,234,0)
+82 ;;=2911001^3^1^687^1^op
+83 ;;^UTILITY(U,$J,399.5,235,0)
+84 ;;=2911001^3^101^386^1^i
+85 ;;^UTILITY(U,$J,399.5,236,0)
+86 ;;=2911001^3^240^169^1^i
+87 ;;^UTILITY(U,$J,399.5,237,0)
+88 ;;=2911001^3^960^132^1^i
+89 ;;^UTILITY(U,$J,399.5,238,0)
+90 ;;=2911001^12^1^628^1^c
+91 ;;^UTILITY(U,$J,399.5,239,0)
+92 ;;=2911001^12^1^982^1^op
+93 ;;^UTILITY(U,$J,399.5,240,0)
+94 ;;=2911001^12^101^542^1^i
+95 ;;^UTILITY(U,$J,399.5,241,0)
+96 ;;=2911001^12^240^257^1^i
+97 ;;^UTILITY(U,$J,399.5,242,0)
+98 ;;=2911001^12^960^183^1^i
+99 ;;^UTILITY(U,$J,399.5,243,0)
+100 ;;=2911001^9^1^297^1^opc
+101 ;;^UTILITY(U,$J,399.5,244,0)
+102 ;;=2911001^9^101^211^1^i
+103 ;;^UTILITY(U,$J,399.5,245,0)
+104 ;;=2911001^9^240^46^1^i
+105 ;;^UTILITY(U,$J,399.5,246,0)
+106 ;;=2911001^9^960^40^1^i
+107 ;;^UTILITY(U,$J,399.5,247,0)
+108 ;;=2911001^4^1^250^1^opc
+109 ;;^UTILITY(U,$J,399.5,248,0)
+110 ;;=2911001^4^101^180^1^i
+111 ;;^UTILITY(U,$J,399.5,249,0)
+112 ;;=2911001^4^240^34^1^i
+113 ;;^UTILITY(U,$J,399.5,250,0)
+114 ;;=2911001^4^960^36^1^i
+115 ;;^UTILITY(U,$J,399.5,251,0)
+116 ;;=2911001^5^1^584^1^opc
+117 ;;^UTILITY(U,$J,399.5,252,0)
+118 ;;=2911001^5^101^326^1^i
+119 ;;^UTILITY(U,$J,399.5,253,0)
+120 ;;=2911001^5^240^186^1^i
+121 ;;^UTILITY(U,$J,399.5,254,0)
+122 ;;=2911001^5^960^72^1^i
+123 ;;^UTILITY(U,$J,399.5,255,0)
+124 ;;=2911001^10^1^476^1^opc
+125 ;;^UTILITY(U,$J,399.5,256,0)
+126 ;;=2911001^10^101^275^1^i
+127 ;;^UTILITY(U,$J,399.5,257,0)
+128 ;;=2911001^10^240^145^1^i
+129 ;;^UTILITY(U,$J,399.5,258,0)
+130 ;;=2911001^10^960^56^1^i
