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

IBINI07P.m

Go to the documentation of this file.
  1. IBINI07P ; ; 21-MAR-1994
  1. ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. Q:'DIFQ(357.2) 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. ;;^DD(357.2,2,0)
  1. ;;=SUBCOLUMN NUMBER^357.22I^^2;0
  1. ;;^DD(357.2,2,21,0)
  1. ;;=^^4^4^2930527^
  1. ;;^DD(357.2,2,21,1,0)
  1. ;;=
  1. ;;^DD(357.2,2,21,2,0)
  1. ;;=A subcolumn contains one field of the entry on the list. The subcolumn
  1. ;;^DD(357.2,2,21,3,0)
  1. ;;=order is the order, from left to right, that the subcolumns will appear
  1. ;;^DD(357.2,2,21,4,0)
  1. ;;=in.
  1. ;;^DD(357.2,2,"DT")
  1. ;;=2930413
  1. ;;^DD(357.21,0)
  1. ;;=LIST COLUMN SUB-FIELD^^.04^4
  1. ;;^DD(357.21,0,"DIK")
  1. ;;=IBXF2
  1. ;;^DD(357.21,0,"DT")
  1. ;;=2930331
  1. ;;^DD(357.21,0,"ID","WRITE")
  1. ;;=W " COLUMN #",$P($G(^(0)),U)
  1. ;;^DD(357.21,0,"IX","B",357.21,.01)
  1. ;;=
  1. ;;^DD(357.21,0,"NM","LIST COLUMN")
  1. ;;=
  1. ;;^DD(357.21,0,"UP")
  1. ;;=357.2
  1. ;;^DD(357.21,.01,0)
  1. ;;=LIST COLUMN NUMBER^MNJ1,0^^0;1^K:+X'=X!(X>4)!(X<1)!(X?.E1"."1N.N) X
  1. ;;^DD(357.21,.01,1,0)
  1. ;;=^.1
  1. ;;^DD(357.21,.01,1,1,0)
  1. ;;=357.21^B
  1. ;;^DD(357.21,.01,1,1,1)
  1. ;;=S ^IBE(357.2,DA(1),1,"B",$E(X,1,30),DA)=""
  1. ;;^DD(357.21,.01,1,1,2)
  1. ;;=K ^IBE(357.2,DA(1),1,"B",$E(X,1,30),DA)
  1. ;;^DD(357.21,.01,3)
  1. ;;=You can specify the position and height of up to 4 columns. Defaults will be used where needed.
  1. ;;^DD(357.21,.01,21,0)
  1. ;;=^^2^2^2930722^^
  1. ;;^DD(357.21,.01,21,1,0)
  1. ;;=The order that the columns will be filled. Column 1 will first be filled
  1. ;;^DD(357.21,.01,21,2,0)
  1. ;;=with items, then column 2, etc.
  1. ;;^DD(357.21,.01,"DT")
  1. ;;=2930802
  1. ;;^DD(357.21,.02,0)
  1. ;;=LIST COLUMN'S STARTING ROW^NJ3,0XO^^0;2^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
  1. ;;^DD(357.21,.02,.1)
  1. ;;=WHAT ROW SHOULD THE LIST COLUMN START IN? (OPTIONAL)
  1. ;;^DD(357.21,.02,2)
  1. ;;=S Y(0)=Y S:+Y=Y Y=+Y+1
  1. ;;^DD(357.21,.02,2.1)
  1. ;;=S:+Y=Y Y=+Y+1
  1. ;;^DD(357.21,.02,3)
  1. ;;=What row should the column begin in?
  1. ;;^DD(357.21,.02,21,0)
  1. ;;=^^2^2^2930715^^^
  1. ;;^DD(357.21,.02,21,1,0)
  1. ;;=The row, relative to the block, that the column should begin in. This is
  1. ;;^DD(357.21,.02,21,2,0)
  1. ;;=optional, since default values can be used.
  1. ;;^DD(357.21,.02,23,0)
  1. ;;=^^4^4^2930715^^
  1. ;;^DD(357.21,.02,23,1,0)
  1. ;;=The internal representation starts at 0, the external representation
  1. ;;^DD(357.21,.02,23,2,0)
  1. ;;=starts at 1. The difference is because for computing the form image
  1. ;;^DD(357.21,.02,23,3,0)
  1. ;;=it is convenient to work with displacements from the top left-hand
  1. ;;^DD(357.21,.02,23,4,0)
  1. ;;=corner. However, users do not want to work with row=0 or column=0.
  1. ;;^DD(357.21,.02,"DT")
  1. ;;=2930802
  1. ;;^DD(357.21,.03,0)
  1. ;;=LIST COLUMN'S STARTING COLUMN^NJ3,0XO^^0;3^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
  1. ;;^DD(357.21,.03,.1)
  1. ;;=WHAT BLOCK COLUMN SHOULD THE LIST COLUMN START IN? (OPTIONAL)
  1. ;;^DD(357.21,.03,2)
  1. ;;=S Y(0)=Y S:+Y=Y Y=+Y+1
  1. ;;^DD(357.21,.03,2.1)
  1. ;;=S:+Y=Y Y=+Y+1
  1. ;;^DD(357.21,.03,3)
  1. ;;=At what block column should the list column begin at? The first subcolumn of the list column will start one character to the right of this.
  1. ;;^DD(357.21,.03,21,0)
  1. ;;=^^4^4^2940216^
  1. ;;^DD(357.21,.03,21,1,0)
  1. ;;=
  1. ;;^DD(357.21,.03,21,2,0)
  1. ;;=The column (# of characters to the right) that the list column should
  1. ;;^DD(357.21,.03,21,3,0)
  1. ;;=begin in, relative to the block. It is optional, since a default value can
  1. ;;^DD(357.21,.03,21,4,0)
  1. ;;=be used.
  1. ;;^DD(357.21,.03,23,0)
  1. ;;=^^4^4^2930715^
  1. ;;^DD(357.21,.03,23,1,0)
  1. ;;=The internal representation starts at 0, the external representation
  1. ;;^DD(357.21,.03,23,2,0)
  1. ;;=starts at 1. The difference is because for computing the form image
  1. ;;^DD(357.21,.03,23,3,0)
  1. ;;=it is convenient to work with displacements from the top left-hand
  1. ;;^DD(357.21,.03,23,4,0)
  1. ;;=corner. However, users do not want to work with row=0 or column=0.