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

IBINI07N.m

Go to the documentation of this file. 
  1. IBINI07N	; ; 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. 	;;^DIC(357.2,0,"GL")
  1. 	;;=^IBE(357.2,
  1. 	;;^DIC("B","SELECTION LIST",357.2)
  1. 	;;=
  1. 	;;^DIC(357.2,"%D",0)
  1. 	;;=^^10^10^2940217^
  1. 	;;^DIC(357.2,"%D",1,0)
  1. 	;;= 
  1. 	;;^DIC(357.2,"%D",2,0)
  1. 	;;= 
  1. 	;;^DIC(357.2,"%D",3,0)
  1. 	;;= 
  1. 	;;^DIC(357.2,"%D",4,0)
  1. 	;;= 
  1. 	;;^DIC(357.2,"%D",5,0)
  1. 	;;= 
  1. 	;;^DIC(357.2,"%D",6,0)
  1. 	;;=This file contains descriptions of 'selection lists'.  A selection list is
  1. 	;;^DIC(357.2,"%D",7,0)
  1. 	;;=a rectangular area in a block that contains a list. The list has 'columns'
  1. 	;;^DIC(357.2,"%D",8,0)
  1. 	;;=of 'selections'. The columns have 'subcolumns', which can either contain
  1. 	;;^DIC(357.2,"%D",9,0)
  1. 	;;=text or  a 'marking area'.  A marking area is an area on the form designed
  1. 	;;^DIC(357.2,"%D",10,0)
  1. 	;;=to be checked to indicate that a choice is being made from the list.
  1. 	;;^DD(357.2,0)
  1. 	;;=FIELD^^2^12
  1. 	;;^DD(357.2,0,"DDA")
  1. 	;;=N
  1. 	;;^DD(357.2,0,"DIK")
  1. 	;;=IBXF2
  1. 	;;^DD(357.2,0,"DT")
  1. 	;;=2930427
  1. 	;;^DD(357.2,0,"ID",.02)
  1. 	;;=W ""
  1. 	;;^DD(357.2,0,"ID",.11)
  1. 	;;=W ""
  1. 	;;^DD(357.2,0,"IX","B",357.2,.01)
  1. 	;;=
  1. 	;;^DD(357.2,0,"IX","C",357.2,.02)
  1. 	;;=
  1. 	;;^DD(357.2,0,"NM","SELECTION LIST")
  1. 	;;=
  1. 	;;^DD(357.2,0,"PT",357.3,.03)
  1. 	;;=
  1. 	;;^DD(357.2,0,"PT",357.4,.03)
  1. 	;;=
  1. 	;;^DD(357.2,.01,0)
  1. 	;;=NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  1. 	;;^DD(357.2,.01,1,0)
  1. 	;;=^.1
  1. 	;;^DD(357.2,.01,1,1,0)
  1. 	;;=357.2^B
  1. 	;;^DD(357.2,.01,1,1,1)
  1. 	;;=S ^IBE(357.2,"B",$E(X,1,30),DA)=""
  1. 	;;^DD(357.2,.01,1,1,2)
  1. 	;;=K ^IBE(357.2,"B",$E(X,1,30),DA)
  1. 	;;^DD(357.2,.01,3)
  1. 	;;=Answer must be 3-30 characters in length.
  1. 	;;^DD(357.2,.01,21,0)
  1. 	;;=^^2^2^2930527^
  1. 	;;^DD(357.2,.01,21,1,0)
  1. 	;;= 
  1. 	;;^DD(357.2,.01,21,2,0)
  1. 	;;=The name of the list.
  1. 	;;^DD(357.2,.01,"DEL",1,0)
  1. 	;;=I '$G(IBLISTPR) W "...Selection Lists can only be deleted through the Encounter Form Utilities!"
  1. 	;;^DD(357.2,.01,"DT")
  1. 	;;=2921119
  1. 	;;^DD(357.2,.02,0)
  1. 	;;=BLOCK^RP357.1'^IBE(357.1,^0;2^Q
  1. 	;;^DD(357.2,.02,1,0)
  1. 	;;=^.1
  1. 	;;^DD(357.2,.02,1,1,0)
  1. 	;;=357.2^C
  1. 	;;^DD(357.2,.02,1,1,1)
  1. 	;;=S ^IBE(357.2,"C",$E(X,1,30),DA)=""
  1. 	;;^DD(357.2,.02,1,1,2)
  1. 	;;=K ^IBE(357.2,"C",$E(X,1,30),DA)
  1. 	;;^DD(357.2,.02,1,1,"DT")
  1. 	;;=2921207
  1. 	;;^DD(357.2,.02,3)
  1. 	;;=Enter the block that the selection list should appear in.
  1. 	;;^DD(357.2,.02,21,0)
  1. 	;;=^^2^2^2930527^
  1. 	;;^DD(357.2,.02,21,1,0)
  1. 	;;=The block that the list appears on. The position of the selection list is
  1. 	;;^DD(357.2,.02,21,2,0)
  1. 	;;=relative to the block.
  1. 	;;^DD(357.2,.02,"DT")
  1. 	;;=2921207
  1. 	;;^DD(357.2,.05,0)
  1. 	;;=COLUMN HEADER^F^^0;5^K:$L(X)>70!($L(X)<1) X
  1. 	;;^DD(357.2,.05,.1)
  1. 	;;=WHAT TEXT SHOULD APPEAR AT THE TOP OF EACH COLUMN? (OPTIONAL)
  1. 	;;^DD(357.2,.05,3)
  1. 	;;=This header will appear at the top of the column that contains the list. If there is more than one column it will appear at the top of each.
  1. 	;;^DD(357.2,.05,21,0)
  1. 	;;=^^2^2^2930527^
  1. 	;;^DD(357.2,.05,21,1,0)
  1. 	;;= 
  1. 	;;^DD(357.2,.05,21,2,0)
  1. 	;;=The text that appears at the top of each column (NOT subcolumn).
  1. 	;;^DD(357.2,.05,"DT")
  1. 	;;=2930415
  1. 	;;^DD(357.2,.06,0)
  1. 	;;=COLUMN HEADER APPEARANCE^FX^^0;6^S X=$$UPPER^VALM1(X) K:$L(X)>3!("UBC"'[$E(X,1))!("UBC"'[$E(X,2))!("UBC"'[$E(X,3)) X
  1. 	;;^DD(357.2,.06,.1)
  1. 	;;=HOW SHOULD THE COLUMN HEADER APPEAR? CHOOSE FROM {U,B,C}
  1. 	;;^DD(357.2,.06,3)
  1. 	;;=B=bold,U=underline,C=center. You can enter any combination of {B,U,C}.
  1. 	;;^DD(357.2,.06,21,0)
  1. 	;;=^^2^2^2930527^
  1. 	;;^DD(357.2,.06,21,1,0)
  1. 	;;= 
  1. 	;;^DD(357.2,.06,21,2,0)
  1. 	;;=The column header can be give characteristics, such as centered and bold.
  1. 	;;^DD(357.2,.06,"DT")
  1. 	;;=2930616
  1. 	;;^DD(357.2,.07,0)
  1. 	;;=SUBCOLUMNS SEPARATED WITH?^RS^1:ONE SPACE;2:TWO SPACES;3:LINE;4:SPACE/LINE/SPACE;^0;7^Q
  1. 	;;^DD(357.2,.07,.1)
  1. 	;;=HOW SHOULD THE SUBCOLUMNS BE SEPARATED?