cA300 ;AFDRUKKEN AANEENGESCHAKELDE PRINTPROGRAMMA'S ;%A300 ;Go naar %A301 [ 01/03/01  9:01 AM ]
 G 1
 ;
T0 ;Uitgestelde printopdrachten ;
T1 ;Alleen de listings van de eigen terminal, of ook deze van de andere\;
T2 ;"-[] = einde progr.   .[] = alle lijsten   [] = lijsten van eigen terminal";
T3 ;Printopdrachten van alle terminals;Printopdrachten van eigen terminal;
T4 ;Overzicht\;
T5 ;"[] = neen   .[] = ja";
T6 ;Nr   Ex   Verw   Listings klaargezet via terminal : ;
T7 ;Ja;neen;
T8 ;Wijzigen listingnummer   .[] = einde;
T9 ;   [] = vervolg;
T10 ;Listing nr.;
T11 ;Aant. exempl.\\2\\K?.n!(K="-")&$l(K);
T12 ;Verw. na afdruk\SC1\1\\"-1"[K;
T13 ;Nummer element;
T14 ;[] = ja   1[] = neen;
T17 ;Er zijn geen listings klaar voor afdruk  [] = ok ;
 ;
T0F ;Edition des imprimés différés ;
T1F ;Listes stockées via l'écran personel, ou toutes les listes stockées\;
T2F ;"-[] = fin du progr.   .[] = toutes   [] = listes stockées via l'écran pers.";
T3F ;Toutes les listes stockées;Listes stockées via l'écran personnel;
T4F ;Aperçu\;
T5F ;"[] = non   .[] = oui";
T6F ;N°   Ex   Ann.   Listes stockées via terminal : ;
T7F ;Oui;non;
T8F ;Modification n° de liste   .[] = fin;
T9F ;   [] = suite;
T10F ;Liste n°;
T11F ;Nomb. exempl.\\2\\K?.n!(K="-")&$l(K);
T12F ;Ann. après impr\SC1\1\\"-1"[K;
T13F ;N° d'élément;
T14F ;[] = oui   1[] = non;
T17F ;Il n'y a pas de listes prêtes pour impression  [] = ok ;
 ;
T0E ;Deferred print orders ;
T1E ;Only print orders from own terminal, or all print orders\;££
T2E ;"-[] = end progr.  .[] = all print orders   [] = print orders from own terminal";££
T3E ;All print orders;Print orders form own terminal;;££
T4E ;Summary\;
T5E ;"[] = no   .[] = yes";
T6E ;Nr   #    Rem.   Print orders prepared via terminal : ;
T7E ;Yes;No;
T8E ;Modify number   .[] = end;
T9E ;   [] = next;
T10E ;Number;
T11E ;# copies\\2\\K?.n!(K="-")&$l(K);
T12E ;Rem.after print\SC1\1\\"-1"[K;
T13E ;Number element;
T14E ;[] = yes   1[] = no;
T17E ;There are no print orders ready [] = ok ;
 ;
S2 K T S LN=7,X=0,K=$P($T(@("T6"_QT)),U,2)_I,K=K_$J("",77-$L(K)),FP=679 W @F,@F1,@F5 S FP=602 W @F,@F4,K,@F5
S2A W @F7 S FP=601 W @F,@$P(FG,D,10) S FP=501 W @F,@$P(FG,D) F K=1:1:78 W @$P(FG,D,9)
S2B W @$P(FG,D,2) S FP=680 W @F,@$P(FG,D,10) F FP=506,511,518 W @F,@$P(FG,D,5) S FP=FP+100 W @F,@$P(FG,D,10)
S2C W @F8 S X=$O(@("^"_Q_"PP(boot,I,X)")) G S2I:X="" S R=^(X),K=$P($P(R,D),"#",2,99) D S3:K=""
S2D S R=$E(K,1,60),K=1 S:$D(^(X,1)) K=^(1) S T(X)=LN_D_R_D
S2E S FP=LN*100+1 W @F,@F7,@$P(FG,D,10),@F8,$J(X,3)," ",@F7,@$P(FG,D,10),@F8,$J($P(K,D),3)
S2F W " ",@F7,@$P(FG,D,10),@F8," ",$J($P($T(@("T7"_QT)),U,$P(K,D,2)+2),4)
S2G S FP=LN*100+18 W @F,@F7,@$P(FG,D,10),@F8," ",R S FP=LN*100+80 W @F,@F7,@$P(FG,D,10),@F8
S2H S LN=LN+1 G S2C:LN<19
S2I S R="KT\24\3\"_$P($T(@("T8"_QT)),U,2) I X'="",$O(@("^"_Q_"PP(boot,I,X)"))'="" S R=R_$P($T(@("T9"_QT)),U,2)
S2J S R=R_"\\2\\""-.""[K!(K?.N)" D R0
S2K G S2Z:K="-"!(K=".") I K="" S:X=""!($O(^(X))="") X=0 K T S LN=7,FP=701+F60 W @F,@F1 G S2C
S2L G S2I:'$D(T(K)) S T=1 I $D(@("^"_Q_"PP(boot,I,KT,1)")) S T=^(1)
S2M S FP=2003+F60 W @F,@F1,$P($T(@("T10"_QT)),U,2),$J(K,3)," : ",$P(T(K),D,2)
S2N S FP=2220+F60 W @F,@F5,":" S FP=2203+F60 W @F,1,@F6,$P($P($T(@("T11"_QT)),U,2),D),@F5 S FP=2223+F60 W @F,$P(T,D)
S2O S FP=2320+F60 W @F,@F5,":" S FP=2303+F60 W @F,2,@F6,$P($P($T(@("T12"_QT)),U,2),D),@F5 S FP=2323+F60 W @F,$P($T(@("T7"_QT)),U,$P(T,D,2)+2)
S2P S FP=2340+F60 W @F,@F1 S R="NE\23\40\"_$P($T(@("T13"_QT)),U,2)_"\\1\\""-12""[K&$L(K)" D R0 G S2S:K="-"
S2Q S FP=2340+F60 W @F,@F1 S R="K\23\40\"_$P($T(@("T"_(NE+10)_QT)),U,2) D R0 G S2P:K="-"
S2R S FP=21+NE*100+23 W @F,@F2 W:NE=1 K W:NE=2 $P($T(@("T7"_QT)),U,K+2) S $P(T,D,NE)=K G S2P
S2S S ^(1)=T,FP=$P(T(KT),D)*100+7 W @F,$J($P(T,D),3) S FP=FP+6 W @F,$J($P($T(@("T7"_QT)),U,$P(T,D,2)+2),4)
S2T S FP=2001+F60 W @F,@F1 G S2I
S2Z Q
 ;
S3 S Y=$P($P(R,D),"#") S:Y["^" Y=$P(Y,"^",2) X "ZL @Y S K=$P($T(@(""T0""_QT)),U,2) ZL "_$S($ZV["MSM":"%A300",1:"cA300")
S3Z Q
 ;
S1 S FP=2403+F60 W @F,@F2,@F4,$P($T(@("T17"_QT)),U,2),@F5,@F0 R K W @F,@F1
S1Z Q
 ;
1 S QP=0 S:'$D(DEV) DEV=$G(io,$$IO^cQ5)
11 S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
13 I '$D(@("^"_Q_"PP(boot)")) D S1 G YZ
15 S FP=403 W @F,@F1 S R="QP(0)\22\3\"_$P($T(@("T1"_QT)),U,2)_$P($T(@("T2"_QT)),U,2)_"\1\\"".-""[K\\" D R0 G YZ:K="-"
17 S FP=403 W @F,@F1,$P($T(@("T3"_QT)),U,(K="")+2)
19 I K="",'$D(@("^"_Q_"PP(boot,DEV)")) D S1 G YZ
 ;
2 S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_$P($T(@("T5"_QT)),U,2)_"\1\\""-.""[K" D R0 G 15:K="-",3:K=""
21 S I=0 I QP(0)="" S I=DEV D S2 S FP=501 W @F,@F1 G 3:K=".",2
23 S I=$O(@("^"_Q_"PP(boot,I)")) I I'="" D S2 S FP=501 W @F,@F1 G 2:K="-",23
 ;
3 D ^cAN3223("","1") G 2:K="-"
31 G ^cA301
 ;
YZ K QP S QP=1 Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
SC1 S FP=2440+F60 W @F,$P($T(@("T14"_QT)),U,2) Q
 ;
 Q
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84