IBINI08X ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQ(358.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
Q Q
;;^DD(358.2,.08,0)
;;=EXTRA LINES FOR SELECTIONS^NJ1,0^^0;8^K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X
;;^DD(358.2,.08,.1)
;;=NUMBER OF ADDITIONAL LINES FOR EACH ENTRY ON LIST?
;;^DD(358.2,.08,3)
;;=How many extra lines should be allocated for each selection, in addition to the 1 the selection will print on?
;;^DD(358.2,.08,21,0)
;;=^^4^4^2930527^
;;^DD(358.2,.08,21,1,0)
;;=
;;^DD(358.2,.08,21,2,0)
;;=Each entry on the list prints on only one line. However, if you want
;;^DD(358.2,.08,21,3,0)
;;=extra space to appear below each entry on the list then this field should
;;^DD(358.2,.08,21,4,0)
;;=be set to the number of blank lines desired.
;;^DD(358.2,.08,"DT")
;;=2930427
;;^DD(358.2,.09,0)
;;=GROUP HEADER APPEARANCE^FX^^0;9^S X=$$UPPER^VALM1(X) K:$L(X)>3!("UBC"'[$E(X,1))!("UBC"'[$E(X,2))!("UBC"'[$E(X,3)) X
;;^DD(358.2,.09,.1)
;;=HOW SHOULD THE HEADER FOR EACH GROUP OF ENTRIES APPEAR? CHOOSE FROM {U,B,C}
;;^DD(358.2,.09,3)
;;=B=bold, C=center,U=underline. You can enter any combination of {B,C,U}
;;^DD(358.2,.09,21,0)
;;=^^1^1^2930401^^^
;;^DD(358.2,.09,21,1,0)
;;=This field determines the appearance of the group headers.
;;^DD(358.2,.09,"DT")
;;=2930616
;;^DD(358.2,.11,0)
;;=SELECTION ROUTINE^R*P358.6'^IBE(358.6,^0;11^S DIC("S")="I $P(^(0),U,6)=3,$P(^(0),U,9)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
;;^DD(358.2,.11,3)
;;=Enter the package interface used to obtain this list.
;;^DD(358.2,.11,12)
;;=Allows only available selection routines.
;;^DD(358.2,.11,12.1)
;;=S DIC("S")="I $P(^(0),U,6)=3,$P(^(0),U,9)=1"
;;^DD(358.2,.11,21,0)
;;=^^2^2^2930527^
;;^DD(358.2,.11,21,1,0)
;;=
;;^DD(358.2,.11,21,2,0)
;;=This identifies the Package Interface that is used to fill the list.
;;^DD(358.2,.11,"DT")
;;=2930115
;;^DD(358.2,.12,0)
;;=UNDERLINE SELECTIONS?^RS^0:NO;1:YES;^0;12^Q
;;^DD(358.2,.12,.1)
;;=SHOULD EACH ENTRY ON THE LIST BE UNDERLINED? (YES/NO)
;;^DD(358.2,.12,3)
;;=Should the items on the list be underlined?
;;^DD(358.2,.12,21,0)
;;=^^2^2^2930527^
;;^DD(358.2,.12,21,1,0)
;;=
;;^DD(358.2,.12,21,2,0)
;;=Answer yes if each entry on the list should be underlined.
;;^DD(358.2,.12,"DT")
;;=2930414
;;^DD(358.2,.13,0)
;;=NUMBER OF COLUMNS^NJ2,0^^0;13^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
;;^DD(358.2,.13,.1)
;;=HOW MANY COLUMNS OF LIST ENTRIES SHOULD THE LIST HAVE? (OPTIONAL)
;;^DD(358.2,.13,3)
;;=
;;^DD(358.2,.13,4)
;;=D HELP5^IBDFU5
;;^DD(358.2,.13,21,0)
;;=^^6^6^2930527^
;;^DD(358.2,.13,21,1,0)
;;=
;;^DD(358.2,.13,21,2,0)
;;=A selection list may be displayed in an area several columns wide. The
;;^DD(358.2,.13,21,3,0)
;;=starting position and height of each column may be specified. However, it
;;^DD(358.2,.13,21,4,0)
;;=is not necessary because defaults values will be used. The defaults used
;;^DD(358.2,.13,21,6,0)
;;=and that the entire block should be filled.
;;^DD(358.2,.13,"DT")
;;=2930802
;;^DD(358.2,1,0)
;;=LIST COLUMN^358.21I^^1;0
;;^DD(358.2,1,21,0)
;;=^^2^2^2930802^^^^
;;^DD(358.2,1,21,1,0)
;;=A column is a rectangular area that has the necessary width to display a
;;^DD(358.2,1,21,2,0)
;;=single item on the list.
;;^DD(358.2,1,"DT")
;;=2930802
;;^DD(358.2,2,0)
;;=SUBCOLUMN NUMBER^358.22I^^2;0
;;^DD(358.2,2,21,0)
;;=^^4^4^2930527^
;;^DD(358.2,2,21,1,0)
;;=
;;^DD(358.2,2,21,2,0)
;;=A subcolumn contains one field of the entry on the list. The subcolumn
;;^DD(358.2,2,21,3,0)
;;=order is the order, from left to right, that the subcolumns will appear
;;^DD(358.2,2,21,4,0)
;;=in.
;;^DD(358.2,2,"DT")
;;=2930413
IBINI08X ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQ(358.2)
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(358.2,.08,0)
+2 ;;=EXTRA LINES FOR SELECTIONS^NJ1,0^^0;8^K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X
+3 ;;^DD(358.2,.08,.1)
+4 ;;=NUMBER OF ADDITIONAL LINES FOR EACH ENTRY ON LIST?
+5 ;;^DD(358.2,.08,3)
+6 ;;=How many extra lines should be allocated for each selection, in addition to the 1 the selection will print on?
+7 ;;^DD(358.2,.08,21,0)
+8 ;;=^^4^4^2930527^
+9 ;;^DD(358.2,.08,21,1,0)
+10 ;;=
+11 ;;^DD(358.2,.08,21,2,0)
+12 ;;=Each entry on the list prints on only one line. However, if you want
+13 ;;^DD(358.2,.08,21,3,0)
+14 ;;=extra space to appear below each entry on the list then this field should
+15 ;;^DD(358.2,.08,21,4,0)
+16 ;;=be set to the number of blank lines desired.
+17 ;;^DD(358.2,.08,"DT")
+18 ;;=2930427
+19 ;;^DD(358.2,.09,0)
+20 ;;=GROUP HEADER APPEARANCE^FX^^0;9^S X=$$UPPER^VALM1(X) K:$L(X)>3!("UBC"'[$E(X,1))!("UBC"'[$E(X,2))!("UBC"'[$E(X,3)) X
+21 ;;^DD(358.2,.09,.1)
+22 ;;=HOW SHOULD THE HEADER FOR EACH GROUP OF ENTRIES APPEAR? CHOOSE FROM {U,B,C}
+23 ;;^DD(358.2,.09,3)
+24 ;;=B=bold, C=center,U=underline. You can enter any combination of {B,C,U}
+25 ;;^DD(358.2,.09,21,0)
+26 ;;=^^1^1^2930401^^^
+27 ;;^DD(358.2,.09,21,1,0)
+28 ;;=This field determines the appearance of the group headers.
+29 ;;^DD(358.2,.09,"DT")
+30 ;;=2930616
+31 ;;^DD(358.2,.11,0)
+32 ;;=SELECTION ROUTINE^R*P358.6'^IBE(358.6,^0;11^S DIC("S")="I $P(^(0),U,6)=3,$P(^(0),U,9)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
+33 ;;^DD(358.2,.11,3)
+34 ;;=Enter the package interface used to obtain this list.
+35 ;;^DD(358.2,.11,12)
+36 ;;=Allows only available selection routines.
+37 ;;^DD(358.2,.11,12.1)
+38 ;;=S DIC("S")="I $P(^(0),U,6)=3,$P(^(0),U,9)=1"
+39 ;;^DD(358.2,.11,21,0)
+40 ;;=^^2^2^2930527^
+41 ;;^DD(358.2,.11,21,1,0)
+42 ;;=
+43 ;;^DD(358.2,.11,21,2,0)
+44 ;;=This identifies the Package Interface that is used to fill the list.
+45 ;;^DD(358.2,.11,"DT")
+46 ;;=2930115
+47 ;;^DD(358.2,.12,0)
+48 ;;=UNDERLINE SELECTIONS?^RS^0:NO;1:YES;^0;12^Q
+49 ;;^DD(358.2,.12,.1)
+50 ;;=SHOULD EACH ENTRY ON THE LIST BE UNDERLINED? (YES/NO)
+51 ;;^DD(358.2,.12,3)
+52 ;;=Should the items on the list be underlined?
+53 ;;^DD(358.2,.12,21,0)
+54 ;;=^^2^2^2930527^
+55 ;;^DD(358.2,.12,21,1,0)
+56 ;;=
+57 ;;^DD(358.2,.12,21,2,0)
+58 ;;=Answer yes if each entry on the list should be underlined.
+59 ;;^DD(358.2,.12,"DT")
+60 ;;=2930414
+61 ;;^DD(358.2,.13,0)
+62 ;;=NUMBER OF COLUMNS^NJ2,0^^0;13^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
+63 ;;^DD(358.2,.13,.1)
+64 ;;=HOW MANY COLUMNS OF LIST ENTRIES SHOULD THE LIST HAVE? (OPTIONAL)
+65 ;;^DD(358.2,.13,3)
+66 ;;=
+67 ;;^DD(358.2,.13,4)
+68 ;;=D HELP5^IBDFU5
+69 ;;^DD(358.2,.13,21,0)
+70 ;;=^^6^6^2930527^
+71 ;;^DD(358.2,.13,21,1,0)
+72 ;;=
+73 ;;^DD(358.2,.13,21,2,0)
+74 ;;=A selection list may be displayed in an area several columns wide. The
+75 ;;^DD(358.2,.13,21,3,0)
+76 ;;=starting position and height of each column may be specified. However, it
+77 ;;^DD(358.2,.13,21,4,0)
+78 ;;=is not necessary because defaults values will be used. The defaults used
+79 ;;^DD(358.2,.13,21,6,0)
+80 ;;=and that the entire block should be filled.
+81 ;;^DD(358.2,.13,"DT")
+82 ;;=2930802
+83 ;;^DD(358.2,1,0)
+84 ;;=LIST COLUMN^358.21I^^1;0
+85 ;;^DD(358.2,1,21,0)
+86 ;;=^^2^2^2930802^^^^
+87 ;;^DD(358.2,1,21,1,0)
+88 ;;=A column is a rectangular area that has the necessary width to display a
+89 ;;^DD(358.2,1,21,2,0)
+90 ;;=single item on the list.
+91 ;;^DD(358.2,1,"DT")
+92 ;;=2930802
+93 ;;^DD(358.2,2,0)
+94 ;;=SUBCOLUMN NUMBER^358.22I^^2;0
+95 ;;^DD(358.2,2,21,0)
+96 ;;=^^4^4^2930527^
+97 ;;^DD(358.2,2,21,1,0)
+98 ;;=
+99 ;;^DD(358.2,2,21,2,0)
+100 ;;=A subcolumn contains one field of the entry on the list. The subcolumn
+101 ;;^DD(358.2,2,21,3,0)
+102 ;;=order is the order, from left to right, that the subcolumns will appear
+103 ;;^DD(358.2,2,21,4,0)
+104 ;;=in.
+105 ;;^DD(358.2,2,"DT")
+106 ;;=2930413
