Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBINI08J

IBINI08J.m

Go to the documentation of this file. 
  1. IBINI08J	; ; 21-MAR-1994
  1. 	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. 	Q:'DIFQ(357.7)  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
  1. Q	Q
  1. 	;;^DIC(357.7,0,"GL")
  1. 	;;=^IBE(357.7,
  1. 	;;^DIC("B","FORM LINE",357.7)
  1. 	;;=
  1. 	;;^DIC(357.7,"%D",0)
  1. 	;;=^^1^1^2931214^^
  1. 	;;^DIC(357.7,"%D",1,0)
  1. 	;;=Either a horizontal or vertical line appearing on the form.
  1. 	;;^DD(357.7,0)
  1. 	;;=FIELD^^.06^6
  1. 	;;^DD(357.7,0,"DT")
  1. 	;;=2940217
  1. 	;;^DD(357.7,0,"ID",.02)
  1. 	;;=W " STARTING COL=",$P(^(0),U,2)+1
  1. 	;;^DD(357.7,0,"ID",.03)
  1. 	;;=W " STARTING ROW=",$P(^(0),U,3)+1
  1. 	;;^DD(357.7,0,"ID",.06)
  1. 	;;=W ""
  1. 	;;^DD(357.7,0,"IX","B",357.7,.01)
  1. 	;;=
  1. 	;;^DD(357.7,0,"IX","C",357.7,.06)
  1. 	;;=
  1. 	;;^DD(357.7,0,"NM","FORM LINE")
  1. 	;;=
  1. 	;;^DD(357.7,.01,0)
  1. 	;;=NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  1. 	;;^DD(357.7,.01,1,0)
  1. 	;;=^.1
  1. 	;;^DD(357.7,.01,1,1,0)
  1. 	;;=357.7^B
  1. 	;;^DD(357.7,.01,1,1,1)
  1. 	;;=S ^IBE(357.7,"B",$E(X,1,30),DA)=""
  1. 	;;^DD(357.7,.01,1,1,2)
  1. 	;;=K ^IBE(357.7,"B",$E(X,1,30),DA)
  1. 	;;^DD(357.7,.01,3)
  1. 	;;=Enter a name for the line that will allow it to be identified, such as V(1,1), meaning a vertical line starting at coordinates (1,1).
  1. 	;;^DD(357.7,.01,21,0)
  1. 	;;=^^4^4^2940217^
  1. 	;;^DD(357.7,.01,21,1,0)
  1. 	;;= 
  1. 	;;^DD(357.7,.01,21,2,0)
  1. 	;;=The name given to the line. Lines should be given names that will allow
  1. 	;;^DD(357.7,.01,21,3,0)
  1. 	;;=them to be identified, such as V(1,1), meaning a vertical line starting at
  1. 	;;^DD(357.7,.01,21,4,0)
  1. 	;;=coordinates (1,1).
  1. 	;;^DD(357.7,.01,"DT")
  1. 	;;=2940217
  1. 	;;^DD(357.7,.02,0)
  1. 	;;=LINE STARTING COLUMN^RNJ3,0XO^^0;2^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
  1. 	;;^DD(357.7,.02,2)
  1. 	;;=S Y(0)=Y S:+Y=Y Y=+Y+1
  1. 	;;^DD(357.7,.02,2.1)
  1. 	;;=S:+Y=Y Y=+Y+1
  1. 	;;^DD(357.7,.02,3)
  1. 	;;=Enter the block column the line should begin at.
  1. 	;;^DD(357.7,.02,21,0)
  1. 	;;=^^2^2^2930527^
  1. 	;;^DD(357.7,.02,21,1,0)
  1. 	;;= 
  1. 	;;^DD(357.7,.02,21,2,0)
  1. 	;;=The column, relative to the block, that the line should begin at.
  1. 	;;^DD(357.7,.02,23,0)
  1. 	;;=^^4^4^2930715^
  1. 	;;^DD(357.7,.02,23,1,0)
  1. 	;;=The internal representation starts at 0, the external representation
  1. 	;;^DD(357.7,.02,23,2,0)
  1. 	;;=starts at 1. The difference is because for computing the form image
  1. 	;;^DD(357.7,.02,23,3,0)
  1. 	;;=it is convenient to work with displacements from the top left-hand
  1. 	;;^DD(357.7,.02,23,4,0)
  1. 	;;=corner. However, users do not want to work with row=0 or column=0.
  1. 	;;^DD(357.7,.02,"DT")
  1. 	;;=2930715
  1. 	;;^DD(357.7,.03,0)
  1. 	;;=LINE STARTING ROW^RNJ3,0XO^^0;3^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
  1. 	;;^DD(357.7,.03,2)
  1. 	;;=S Y(0)=Y S:+Y=Y Y=+Y+1
  1. 	;;^DD(357.7,.03,2.1)
  1. 	;;=S:+Y=Y Y=+Y+1
  1. 	;;^DD(357.7,.03,3)
  1. 	;;=Enter the block row the line should begin at.
  1. 	;;^DD(357.7,.03,21,0)
  1. 	;;=^^2^2^2930527^
  1. 	;;^DD(357.7,.03,21,1,0)
  1. 	;;= 
  1. 	;;^DD(357.7,.03,21,2,0)
  1. 	;;=The row, relative to the block, that the line should begin at.
  1. 	;;^DD(357.7,.03,23,0)
  1. 	;;=^^4^4^2930715^
  1. 	;;^DD(357.7,.03,23,1,0)
  1. 	;;=The internal representation starts at 0, the external representation
  1. 	;;^DD(357.7,.03,23,2,0)
  1. 	;;=starts at 1. The difference is because for computing the form image
  1. 	;;^DD(357.7,.03,23,3,0)
  1. 	;;=it is convenient to work with displacements from the top left-hand
  1. 	;;^DD(357.7,.03,23,4,0)
  1. 	;;=corner. However, users do not want to work with row=0 or column=0.
  1. 	;;^DD(357.7,.03,"DT")
  1. 	;;=2930715
  1. 	;;^DD(357.7,.04,0)
  1. 	;;=ORIENTATION^RS^H:HORIZONTAL;V:VERTICAL;^0;4^Q
  1. 	;;^DD(357.7,.04,.1)
  1. 	;;=ORIENTATION (HORIZONTAL/VERTICAL)
  1. 	;;^DD(357.7,.04,3)
  1. 	;;=Should the line be horizontal or vertical?
  1. 	;;^DD(357.7,.04,21,0)
  1. 	;;=^^2^2^2930607^
  1. 	;;^DD(357.7,.04,21,1,0)
  1. 	;;= 
  1. 	;;^DD(357.7,.04,21,2,0)
  1. 	;;=The direction the line goes in.
  1. 	;;^DD(357.7,.04,"DT")
  1. 	;;=2930415
  1. 	;;^DD(357.7,.05,0)
  1. 	;;=LENGTH^RNJ3,0^^0;5^K:+X'=X!(X>200)!(X<1)!(X?.E1"."1N.N) X