Routine: IBINI0C2

IBINI0C2	; ; 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,130,0)

	;;=2891001^3^960^107^1^i

	;;^UTILITY(U,$J,399.5,131,0)

	;;=2891001^3^240^136^1^i

	;;^UTILITY(U,$J,399.5,132,0)

	;;=2891001^12^1^789^1^op

	;;^UTILITY(U,$J,399.5,133,0)

	;;=2891001^12^101^435^1^i

	;;^UTILITY(U,$J,399.5,134,0)

	;;=2891001^12^960^148^1^i

	;;^UTILITY(U,$J,399.5,135,0)

	;;=2891001^12^240^206^1^i

	;;^UTILITY(U,$J,399.5,136,0)

	;;=2891001^9^1^273^1^opc

	;;^UTILITY(U,$J,399.5,137,0)

	;;=2891001^9^101^193^1^i

	;;^UTILITY(U,$J,399.5,138,0)

	;;=2891001^9^960^37^1^i

	;;^UTILITY(U,$J,399.5,139,0)

	;;=2891001^9^240^43^1^i

	;;^UTILITY(U,$J,399.5,140,0)

	;;=2891001^4^1^234^1^opc

	;;^UTILITY(U,$J,399.5,141,0)

	;;=2891001^4^101^168^1^i

	;;^UTILITY(U,$J,399.5,142,0)

	;;=2891001^4^960^34^1^i

	;;^UTILITY(U,$J,399.5,143,0)

	;;=2891001^4^240^32^1^i

	;;^UTILITY(U,$J,399.5,144,0)

	;;=2891001^5^1^505^1^opc

	;;^UTILITY(U,$J,399.5,145,0)

	;;=2891001^5^101^281^1^i

	;;^UTILITY(U,$J,399.5,146,0)

	;;=2891001^5^960^63^1^i

	;;^UTILITY(U,$J,399.5,147,0)

	;;=2891001^5^240^161^1^i

	;;^UTILITY(U,$J,399.5,148,0)

	;;=2891001^10^1^412^1^opc

	;;^UTILITY(U,$J,399.5,149,0)

	;;=2891001^10^101^238^1^i

	;;^UTILITY(U,$J,399.5,150,0)

	;;=2891001^10^960^48^1^i

	;;^UTILITY(U,$J,399.5,151,0)

	;;=2891001^10^240^126^1^i

	;;^UTILITY(U,$J,399.5,152,0)

	;;=2891001^1^1^238^1^opc

	;;^UTILITY(U,$J,399.5,153,0)

	;;=2891001^1^101^144^1^i

	;;^UTILITY(U,$J,399.5,154,0)

	;;=2891001^1^960^44^1^i

	;;^UTILITY(U,$J,399.5,155,0)

	;;=2891001^1^240^50^1^i

	;;^UTILITY(U,$J,399.5,156,0)

	;;=2891001^2^1^568^1^opc

	;;^UTILITY(U,$J,399.5,157,0)

	;;=2891001^2^101^212^1^i

	;;^UTILITY(U,$J,399.5,158,0)

	;;=2891001^2^960^76^1^i

	;;^UTILITY(U,$J,399.5,159,0)

	;;=2891001^2^240^280^1^i

	;;^UTILITY(U,$J,399.5,160,0)

	;;=2891001^6^1^168^1^opc

	;;^UTILITY(U,$J,399.5,161,0)

	;;=2891001^6^101^136^1^i

	;;^UTILITY(U,$J,399.5,162,0)

	;;=2891001^6^960^8^1^i

	;;^UTILITY(U,$J,399.5,163,0)

	;;=2891001^6^240^24^1^i

	;;^UTILITY(U,$J,399.5,164,0)

	;;=2891001^11^1^613^1^op

	;;^UTILITY(U,$J,399.5,165,0)

	;;=2891001^11^101^360^1^i

	;;^UTILITY(U,$J,399.5,166,0)

	;;=2891001^11^960^73^1^i

	;;^UTILITY(U,$J,399.5,167,0)

	;;=2891001^11^240^180^1^i

	;;^UTILITY(U,$J,399.5,168,0)

	;;=2891001^7^500^116^1^iop

	;;^UTILITY(U,$J,399.5,169,0)

	;;=2891001^8^250^17^1^iop

	;;^UTILITY(U,$J,399.5,170,0)

	;;=2891001^7^500^23^1^c

	;;^UTILITY(U,$J,399.5,171,0)

	;;=2861001^5^240^116^1^i

	;;^UTILITY(U,$J,399.5,172,0)

	;;=2891001^12^1^592^1^c

	;;^UTILITY(U,$J,399.5,173,0)

	;;=2881001^12^1^560^1^c

	;;^UTILITY(U,$J,399.5,174,0)

	;;=2891001^11^1^592^1^c

	;;^UTILITY(U,$J,399.5,175,0)

	;;=2901001^3^1^592^1^c

	;;^UTILITY(U,$J,399.5,176,0)

	;;=2901001^3^1^642^1^op

	;;^UTILITY(U,$J,399.5,177,0)

	;;=2901001^3^101^360^1^i

	;;^UTILITY(U,$J,399.5,178,0)

	;;=2901001^3^240^158^1^i

	;;^UTILITY(U,$J,399.5,179,0)

	;;=2901001^3^960^124^1^i

	;;^UTILITY(U,$J,399.5,180,0)

	;;=2901001^12^1^592^1^c

	;;^UTILITY(U,$J,399.5,181,0)

	;;=2901001^12^1^974^1^op

	;;^UTILITY(U,$J,399.5,182,0)

	;;=2901001^12^101^537^1^i

	;;^UTILITY(U,$J,399.5,183,0)

	;;=2901001^12^240^255^1^i

	;;^UTILITY(U,$J,399.5,184,0)

	;;=2901001^12^960^182^1^i

	;;^UTILITY(U,$J,399.5,185,0)

	;;=2901001^9^1^291^1^opc

	;;^UTILITY(U,$J,399.5,186,0)

	;;=2901001^9^101^207^1^i

	;;^UTILITY(U,$J,399.5,187,0)

	;;=2901001^9^240^45^1^i

	;;^UTILITY(U,$J,399.5,188,0)

	;;=2901001^9^960^39^1^i

	;;^UTILITY(U,$J,399.5,189,0)

	;;=2901001^4^1^208^1^opc

	;;^UTILITY(U,$J,399.5,190,0)

	;;=2901001^4^101^149^1^i

	;;^UTILITY(U,$J,399.5,191,0)

	;;=2901001^4^240^29^1^i

	;;^UTILITY(U,$J,399.5,192,0)

	;;=2901001^4^960^30^1^i

	;;^UTILITY(U,$J,399.5,193,0)

	;;=2901001^5^1^564^1^opc

IBINI0C2  ; ; 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,130,0)

 +2       ;;=2891001^3^960^107^1^i

 +3       ;;^UTILITY(U,$J,399.5,131,0)

 +4       ;;=2891001^3^240^136^1^i

 +5       ;;^UTILITY(U,$J,399.5,132,0)

 +6       ;;=2891001^12^1^789^1^op

 +7       ;;^UTILITY(U,$J,399.5,133,0)

 +8       ;;=2891001^12^101^435^1^i

 +9       ;;^UTILITY(U,$J,399.5,134,0)

 +10      ;;=2891001^12^960^148^1^i

 +11      ;;^UTILITY(U,$J,399.5,135,0)

 +12      ;;=2891001^12^240^206^1^i

 +13      ;;^UTILITY(U,$J,399.5,136,0)

 +14      ;;=2891001^9^1^273^1^opc

 +15      ;;^UTILITY(U,$J,399.5,137,0)

 +16      ;;=2891001^9^101^193^1^i

 +17      ;;^UTILITY(U,$J,399.5,138,0)

 +18      ;;=2891001^9^960^37^1^i

 +19      ;;^UTILITY(U,$J,399.5,139,0)

 +20      ;;=2891001^9^240^43^1^i

 +21      ;;^UTILITY(U,$J,399.5,140,0)

 +22      ;;=2891001^4^1^234^1^opc

 +23      ;;^UTILITY(U,$J,399.5,141,0)

 +24      ;;=2891001^4^101^168^1^i

 +25      ;;^UTILITY(U,$J,399.5,142,0)

 +26      ;;=2891001^4^960^34^1^i

 +27      ;;^UTILITY(U,$J,399.5,143,0)

 +28      ;;=2891001^4^240^32^1^i

 +29      ;;^UTILITY(U,$J,399.5,144,0)

 +30      ;;=2891001^5^1^505^1^opc

 +31      ;;^UTILITY(U,$J,399.5,145,0)

 +32      ;;=2891001^5^101^281^1^i

 +33      ;;^UTILITY(U,$J,399.5,146,0)

 +34      ;;=2891001^5^960^63^1^i

 +35      ;;^UTILITY(U,$J,399.5,147,0)

 +36      ;;=2891001^5^240^161^1^i

 +37      ;;^UTILITY(U,$J,399.5,148,0)

 +38      ;;=2891001^10^1^412^1^opc

 +39      ;;^UTILITY(U,$J,399.5,149,0)

 +40      ;;=2891001^10^101^238^1^i

 +41      ;;^UTILITY(U,$J,399.5,150,0)

 +42      ;;=2891001^10^960^48^1^i

 +43      ;;^UTILITY(U,$J,399.5,151,0)

 +44      ;;=2891001^10^240^126^1^i

 +45      ;;^UTILITY(U,$J,399.5,152,0)

 +46      ;;=2891001^1^1^238^1^opc

 +47      ;;^UTILITY(U,$J,399.5,153,0)

 +48      ;;=2891001^1^101^144^1^i

 +49      ;;^UTILITY(U,$J,399.5,154,0)

 +50      ;;=2891001^1^960^44^1^i

 +51      ;;^UTILITY(U,$J,399.5,155,0)

 +52      ;;=2891001^1^240^50^1^i

 +53      ;;^UTILITY(U,$J,399.5,156,0)

 +54      ;;=2891001^2^1^568^1^opc

 +55      ;;^UTILITY(U,$J,399.5,157,0)

 +56      ;;=2891001^2^101^212^1^i

 +57      ;;^UTILITY(U,$J,399.5,158,0)

 +58      ;;=2891001^2^960^76^1^i

 +59      ;;^UTILITY(U,$J,399.5,159,0)

 +60      ;;=2891001^2^240^280^1^i

 +61      ;;^UTILITY(U,$J,399.5,160,0)

 +62      ;;=2891001^6^1^168^1^opc

 +63      ;;^UTILITY(U,$J,399.5,161,0)

 +64      ;;=2891001^6^101^136^1^i

 +65      ;;^UTILITY(U,$J,399.5,162,0)

 +66      ;;=2891001^6^960^8^1^i

 +67      ;;^UTILITY(U,$J,399.5,163,0)

 +68      ;;=2891001^6^240^24^1^i

 +69      ;;^UTILITY(U,$J,399.5,164,0)

 +70      ;;=2891001^11^1^613^1^op

 +71      ;;^UTILITY(U,$J,399.5,165,0)

 +72      ;;=2891001^11^101^360^1^i

 +73      ;;^UTILITY(U,$J,399.5,166,0)

 +74      ;;=2891001^11^960^73^1^i

 +75      ;;^UTILITY(U,$J,399.5,167,0)

 +76      ;;=2891001^11^240^180^1^i

 +77      ;;^UTILITY(U,$J,399.5,168,0)

 +78      ;;=2891001^7^500^116^1^iop

 +79      ;;^UTILITY(U,$J,399.5,169,0)

 +80      ;;=2891001^8^250^17^1^iop

 +81      ;;^UTILITY(U,$J,399.5,170,0)

 +82      ;;=2891001^7^500^23^1^c

 +83      ;;^UTILITY(U,$J,399.5,171,0)

 +84      ;;=2861001^5^240^116^1^i

 +85      ;;^UTILITY(U,$J,399.5,172,0)

 +86      ;;=2891001^12^1^592^1^c

 +87      ;;^UTILITY(U,$J,399.5,173,0)

 +88      ;;=2881001^12^1^560^1^c

 +89      ;;^UTILITY(U,$J,399.5,174,0)

 +90      ;;=2891001^11^1^592^1^c

 +91      ;;^UTILITY(U,$J,399.5,175,0)

 +92      ;;=2901001^3^1^592^1^c

 +93      ;;^UTILITY(U,$J,399.5,176,0)

 +94      ;;=2901001^3^1^642^1^op

 +95      ;;^UTILITY(U,$J,399.5,177,0)

 +96      ;;=2901001^3^101^360^1^i

 +97      ;;^UTILITY(U,$J,399.5,178,0)

 +98      ;;=2901001^3^240^158^1^i

 +99      ;;^UTILITY(U,$J,399.5,179,0)

 +100     ;;=2901001^3^960^124^1^i

 +101     ;;^UTILITY(U,$J,399.5,180,0)

 +102     ;;=2901001^12^1^592^1^c

 +103     ;;^UTILITY(U,$J,399.5,181,0)

 +104     ;;=2901001^12^1^974^1^op

 +105     ;;^UTILITY(U,$J,399.5,182,0)

 +106     ;;=2901001^12^101^537^1^i

 +107     ;;^UTILITY(U,$J,399.5,183,0)

 +108     ;;=2901001^12^240^255^1^i

 +109     ;;^UTILITY(U,$J,399.5,184,0)

 +110     ;;=2901001^12^960^182^1^i

 +111     ;;^UTILITY(U,$J,399.5,185,0)

 +112     ;;=2901001^9^1^291^1^opc

 +113     ;;^UTILITY(U,$J,399.5,186,0)

 +114     ;;=2901001^9^101^207^1^i

 +115     ;;^UTILITY(U,$J,399.5,187,0)

 +116     ;;=2901001^9^240^45^1^i

 +117     ;;^UTILITY(U,$J,399.5,188,0)

 +118     ;;=2901001^9^960^39^1^i

 +119     ;;^UTILITY(U,$J,399.5,189,0)

 +120     ;;=2901001^4^1^208^1^opc

 +121     ;;^UTILITY(U,$J,399.5,190,0)

 +122     ;;=2901001^4^101^149^1^i

 +123     ;;^UTILITY(U,$J,399.5,191,0)

 +124     ;;=2901001^4^240^29^1^i

 +125     ;;^UTILITY(U,$J,399.5,192,0)

 +126     ;;=2901001^4^960^30^1^i

 +127     ;;^UTILITY(U,$J,399.5,193,0)

 +128     ;;=2901001^5^1^564^1^opc

IBINI0C2.m