IBINI08M.m

IBINI08M	; ; 21-MAR-1994

	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

	Q:'DIFQ(357.8)  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

	;;^DD(357.8,.04,"DT")

	;;=2930715

	;;^DD(357.8,.05,0)

	;;=TEXT WIDTH^RNJ3,0^^0;5^K:+X'=X!(X>200)!(X<1)!(X?.E1"."1N.N) X

	;;^DD(357.8,.05,3)

	;;=How many columns should be allocated on the block for the text?

	;;^DD(357.8,.05,21,0)

	;;=^^2^2^2930528^

	;;^DD(357.8,.05,21,1,0)

	;;= 

	;;^DD(357.8,.05,21,2,0)

	;;=The width of the text area, measured in characters.

	;;^DD(357.8,.05,"DT")

	;;=2930326

	;;^DD(357.8,.06,0)

	;;=TEXT HEIGHT^RNJ3,0^^0;6^K:+X'=X!(X>200)!(X<1)!(X?.E1"."1N.N) X

	;;^DD(357.8,.06,3)

	;;=How many lines on the block should be allocated for the text?

	;;^DD(357.8,.06,21,0)

	;;=^^2^2^2930528^

	;;^DD(357.8,.06,21,1,0)

	;;= 

	;;^DD(357.8,.06,21,2,0)

	;;=The height of the text area, measured in lines.

	;;^DD(357.8,.06,"DT")

	;;=2930326

	;;^DD(357.8,1,0)

	;;=TEXT^357.81^^1;0

	;;^DD(357.8,1,21,0)

	;;=^^2^2^2930528^

	;;^DD(357.8,1,21,1,0)

	;;= 

	;;^DD(357.8,1,21,2,0)

	;;=The text that should appear within the text area.

	;;^DD(357.81,0)

	;;=TEXT SUB-FIELD^^.01^1

	;;^DD(357.81,0,"DT")

	;;=2930326

	;;^DD(357.81,0,"NM","TEXT")

	;;=

	;;^DD(357.81,0,"UP")

	;;=357.8

	;;^DD(357.81,.01,0)

	;;=TEXT^WL^^0;1^Q

	;;^DD(357.81,.01,3)

	;;=Enter the text that you want to appear in the block.

	;;^DD(357.81,.01,"DT")

	;;=2930326

IBINI08M  ; ; 21-MAR-1994

 +1       ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

 +2        IF 'DIFQ(357.8)

               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       ;;^DD(357.8,.04,"DT")

 +2       ;;=2930715

 +3       ;;^DD(357.8,.05,0)

 +4       ;;=TEXT WIDTH^RNJ3,0^^0;5^K:+X'=X!(X>200)!(X<1)!(X?.E1"."1N.N) X

 +5       ;;^DD(357.8,.05,3)

 +6       ;;=How many columns should be allocated on the block for the text?

 +7       ;;^DD(357.8,.05,21,0)

 +8       ;;=^^2^2^2930528^

 +9       ;;^DD(357.8,.05,21,1,0)

 +10      ;;= 

 +11      ;;^DD(357.8,.05,21,2,0)

 +12      ;;=The width of the text area, measured in characters.

 +13      ;;^DD(357.8,.05,"DT")

 +14      ;;=2930326

 +15      ;;^DD(357.8,.06,0)

 +16      ;;=TEXT HEIGHT^RNJ3,0^^0;6^K:+X'=X!(X>200)!(X<1)!(X?.E1"."1N.N) X

 +17      ;;^DD(357.8,.06,3)

 +18      ;;=How many lines on the block should be allocated for the text?

 +19      ;;^DD(357.8,.06,21,0)

 +20      ;;=^^2^2^2930528^

 +21      ;;^DD(357.8,.06,21,1,0)

 +22      ;;= 

 +23      ;;^DD(357.8,.06,21,2,0)

 +24      ;;=The height of the text area, measured in lines.

 +25      ;;^DD(357.8,.06,"DT")

 +26      ;;=2930326

 +27      ;;^DD(357.8,1,0)

 +28      ;;=TEXT^357.81^^1;0

 +29      ;;^DD(357.8,1,21,0)

 +30      ;;=^^2^2^2930528^

 +31      ;;^DD(357.8,1,21,1,0)

 +32      ;;= 

 +33      ;;^DD(357.8,1,21,2,0)

 +34      ;;=The text that should appear within the text area.

 +35      ;;^DD(357.81,0)

 +36      ;;=TEXT SUB-FIELD^^.01^1

 +37      ;;^DD(357.81,0,"DT")

 +38      ;;=2930326

 +39      ;;^DD(357.81,0,"NM","TEXT")

 +40      ;;=

 +41      ;;^DD(357.81,0,"UP")

 +42      ;;=357.8

 +43      ;;^DD(357.81,.01,0)

 +44      ;;=TEXT^WL^^0;1^Q

 +45      ;;^DD(357.81,.01,3)

 +46      ;;=Enter the text that you want to appear in the block.

 +47      ;;^DD(357.81,.01,"DT")

 +48      ;;=2930326