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

IBDEI01Q.m

Go to the documentation of this file. 
  1. IBDEI01Q	; ; 18-MAR-1994
  1. 	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. 	Q:'DIFQ(358.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(358.7,0,"GL")
  1. 	;;=^IBE(358.7,
  1. 	;;^DIC("B","IMP/EXP FORM LINE",358.7)
  1. 	;;=
  1. 	;;^DIC(358.7,"%D",0)
  1. 	;;=^^3^3^2940217^
  1. 	;;^DIC(358.7,"%D",1,0)
  1. 	;;=This file is nearly identical to file #357.7. It is used by the
  1. 	;;^DIC(358.7,"%D",2,0)
  1. 	;;=Import/Export Utility as a temporary staging area for data from that file
  1. 	;;^DIC(358.7,"%D",3,0)
  1. 	;;=that is being imported or exported.
  1. 	;;^DD(358.7,0)
  1. 	;;=FIELD^^.06^6
  1. 	;;^DD(358.7,0,"DDA")
  1. 	;;=N
  1. 	;;^DD(358.7,0,"DT")
  1. 	;;=2930802
  1. 	;;^DD(358.7,0,"ID",.02)
  1. 	;;=W " STARTING COL=",$P(^(0),U,2)+1
  1. 	;;^DD(358.7,0,"ID",.03)
  1. 	;;=W " STARTING ROW=",$P(^(0),U,3)+1
  1. 	;;^DD(358.7,0,"ID",.06)
  1. 	;;=W ""
  1. 	;;^DD(358.7,0,"IX","B",358.7,.01)
  1. 	;;=
  1. 	;;^DD(358.7,0,"IX","C",358.7,.06)
  1. 	;;=
  1. 	;;^DD(358.7,0,"NM","IMP/EXP FORM LINE")
  1. 	;;=
  1. 	;;^DD(358.7,.01,0)
  1. 	;;=NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
  1. 	;;^DD(358.7,.01,1,0)
  1. 	;;=^.1
  1. 	;;^DD(358.7,.01,1,1,0)
  1. 	;;=358.7^B
  1. 	;;^DD(358.7,.01,1,1,1)
  1. 	;;=S ^IBE(358.7,"B",$E(X,1,30),DA)=""
  1. 	;;^DD(358.7,.01,1,1,2)
  1. 	;;=K ^IBE(358.7,"B",$E(X,1,30),DA)
  1. 	;;^DD(358.7,.01,3)
  1. 	;;=NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
  1. 	;;^DD(358.7,.01,21,0)
  1. 	;;=^^4^4^2930527^
  1. 	;;^DD(358.7,.01,21,1,0)
  1. 	;;= 
  1. 	;;^DD(358.7,.01,21,2,0)
  1. 	;;=The name given to the line. Lines should be given names that will allow
  1. 	;;^DD(358.7,.01,21,3,0)
  1. 	;;=them to be identifies, such as V(1,1), meaning a vertical line starting at
  1. 	;;^DD(358.7,.01,21,4,0)
  1. 	;;=coordinates (1,1).
  1. 	;;^DD(358.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(358.7,.02,2)
  1. 	;;=S Y(0)=Y S:+Y=Y Y=+Y+1
  1. 	;;^DD(358.7,.02,2.1)
  1. 	;;=S:+Y=Y Y=+Y+1
  1. 	;;^DD(358.7,.02,3)
  1. 	;;=Enter the block column the line should begin at.
  1. 	;;^DD(358.7,.02,21,0)
  1. 	;;=^^2^2^2930527^
  1. 	;;^DD(358.7,.02,21,1,0)
  1. 	;;= 
  1. 	;;^DD(358.7,.02,21,2,0)
  1. 	;;=The column, relative to the block, that the line should begin at.
  1. 	;;^DD(358.7,.02,23,0)
  1. 	;;=^^4^4^2930715^
  1. 	;;^DD(358.7,.02,23,1,0)
  1. 	;;=The internal representation starts at 0, the external representation
  1. 	;;^DD(358.7,.02,23,2,0)
  1. 	;;=starts at 1. The difference is because for computing the form image
  1. 	;;^DD(358.7,.02,23,3,0)
  1. 	;;=it is convenient to work with displacements from the top left-hand
  1. 	;;^DD(358.7,.02,23,4,0)
  1. 	;;=corner. However, users do not want to work with row=0 or column=0.
  1. 	;;^DD(358.7,.02,"DT")
  1. 	;;=2930715
  1. 	;;^DD(358.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(358.7,.03,2)
  1. 	;;=S Y(0)=Y S:+Y=Y Y=+Y+1
  1. 	;;^DD(358.7,.03,2.1)
  1. 	;;=S:+Y=Y Y=+Y+1
  1. 	;;^DD(358.7,.03,3)
  1. 	;;=Enter the block row the line should begin at.
  1. 	;;^DD(358.7,.03,21,0)
  1. 	;;=^^2^2^2930527^
  1. 	;;^DD(358.7,.03,21,1,0)
  1. 	;;= 
  1. 	;;^DD(358.7,.03,21,2,0)
  1. 	;;=The row, relative to the block, that the line should begin at.
  1. 	;;^DD(358.7,.03,23,0)
  1. 	;;=^^4^4^2930715^
  1. 	;;^DD(358.7,.03,23,1,0)
  1. 	;;=The internal representation starts at 0, the external representation
  1. 	;;^DD(358.7,.03,23,2,0)
  1. 	;;=starts at 1. The difference is because for computing the form image
  1. 	;;^DD(358.7,.03,23,3,0)
  1. 	;;=it is convenient to work with displacements from the top left-hand
  1. 	;;^DD(358.7,.03,23,4,0)
  1. 	;;=corner. However, users do not want to work with row=0 or column=0.
  1. 	;;^DD(358.7,.03,"DT")
  1. 	;;=2930715
  1. 	;;^DD(358.7,.04,0)
  1. 	;;=ORIENTATION^RS^H:HORIZONTAL;V:VERTICAL;^0;4^Q
  1. 	;;^DD(358.7,.04,.1)
  1. 	;;=ORIENTATION (HORIZONTAL/VERTICAL)
  1. 	;;^DD(358.7,.04,3)
  1. 	;;=Should the line be horizontal or vertical?
  1. 	;;^DD(358.7,.04,21,0)
  1. 	;;=^^2^2^2930607^
  1. 	;;^DD(358.7,.04,21,1,0)
  1. 	;;= 
  1. 	;;^DD(358.7,.04,21,2,0)
  1. 	;;=The direction the line goes in.