cANU21 ;Printen listings ;%ANU21 ; [ 03/24/00  9:32 AM ]
 ;
T0 ;Printen listings ;
T1 ; Printen listings ;
T3 ;Hoofding;
T4 ;Lay-out listing;met detail en subtotalen    ;geen detail, wel subtotalen;met detail, geen subtotalen;
 ;
T0F ;Impression des listings ;
T1F ; Impression des listings ;
T3F ;En-tête;
T4F ;Mise en page listing;avec détail et sous-totaux    ;sans détail, avec sous-totaux;avec détail, sans sous-totaux;
 ;
 ; Titel + alg.init
1 S SKIP=+$P(R,U,2) I SKIP S UI1=SKIP,SKIP=1
11 D P^cA612(2,1,20,80,1,0,1,1,$P($T(@("T1"_QT)),U,2),0,0,7,1,1)
13 D DMS^cAN000("UQC","USC","LIS") G YZ:UQC=""!(USC=""),YZ:'$D(^DMC(UQC,USC))
15 S UREF=^(USC,"DATA","REF"),USL=D,SW3=1,SW1=0
 ;
 ; Keuze listing
2 I SW1 L -@UREF S SW1=0
21 I 'SKIP S UI1=$$^cANSYN("LIS") I K="-" G YZ
23 D R^cAN000 M A=B I $P(B(1),D,30)=2 G YZ:SKIP,2
 ;
 ; Gegevens tonen
3 D DMS^cAN000("UQC","USC","LIS") K UTOP X ^DMC(UQC,USC,"LOGGING","TOP")
31 W /CUP(2,3),/SGR(4),UTOP(1),/SGR(0),/CUP(2,15),": ",UTOP(1.1),@F1
33 I 'SW1 S SW1=1 L +@UREF:2 E  D BUSY^cAFA1 G YZ:SKIP,2
35 W /CUP(4,3),/SGR(4),UTOP(2),/SGR(0),/CUP(4,15),": ",UTOP(2.1)
37 S Q1=$P(B(1),D,2),HERH=$P(B(1),D,3)
 ;
 ; Selectie + Titel
4 D ^cAN003(6,Q1) I K="-" G YZ:SKIP,2
41 S HFD="" I KEU(Q1)="U" S HFD=$$SIG^cAFA1("SEL",LIM1(Q1),110)
43 S R="HFD\22\3\"_$P($T(@("T3"_QT)),U,2)_"\C1\30\\$L(K)\\\\\1" D R0 G 4:K="-",2:K=","
45 S:K="." HFD=$P(B(1),D,10) S HFD=$TR(HFD,U," ")
47 W /CUP(12,3),/SGR(4),$P($T(@("T3"_QT)),U,2),/SGR(0),/CUP(12,15),": ",HFD
 ;
 ; Lay-out subtotalen
5 S K=0 F UZA=1:1 Q:'$D(@UREF@(UZA))  D  I K Q
 . F UZB=1:1 Q:'$D(@UREF@(UZA,UZB))  S K=$G(^(UZB,"SUB")) I K Q
51 S LAY="" I 'K G 6
53 S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\C2\1\\""-,12""[K" D R0 G 43:K="-",2:K=","
55 S LAY=+K W /CUP(14,3),/SGR(4),$P($T(@("T4"_QT)),U,2),/SGR(0)," : ",$P($T(@("T4"_QT)),U,3+LAY),@F2
 ;
 ; Printer/Scherm
6 S R=1 F UZB=1:1 Q:'$D(@UREF@(1,UZB))  S R=R+$L($$S2^cANU202(UZB))+3
61 D ^cAN3223("","1#2#4",R,0) I K="-" G 53:$L(LAY),41
63 I PTS="." D
 . S QPT="INT^"_$T(+0)_"("_UI1_",1)#"_HFD
 . S PP(1)=KEU(Q1),PP(2)=LIM1(Q1),PP(3)=LIM2(Q1),PP(4)=HFD,PP(5)=LAY
 . D ^cA109
65 I PTS'="." D ^cANU210 I K="-" G 6
67 L -@UREF
 ;
YZ D C^cA612 Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
C1 I $L($P(B(1),D,10)) W !?2,".[] = ",$P(B(1),D,10)
 Q
 ;
C2 W !?3 F I=0:1:2 W:I $J(I,3) W "[] = ",$P($T(@("T4"_QT)),U,3+I) I $X>50 W !
 Q
 ;
 ; rechtstreeks printen via menu (0) of uitgesteld (1)
INT(UI1,SW,KEU,LIM1,LIM2,HFD,LAY) 
 N Q1,UQC,USC,UREF D DMS^cAN000("UQC","USC","LIS") Q:UQC=""!(USC="")
 Q:'$D(^DMC(UQC,USC))  S UREF=^(USC,"DATA","REF")
 S PTS=0,Q1=$P(@UREF@(0),D,2),HERH=$P(^(0),D,3) I $P(^(0),D,30)=2 Q
 I 'SW D  ; via menu
 . S LAY=$G(LAY) I $G(HFD)="" S HFD=$P(^(0),D,10)
 . D P^cA612(2,1,20,80,1,0,0,0,HFD,0,0,7,1,1)
 . L +@UREF:2 E  D BUSY^cAFA1,C^cA612 Q
 . S KEU(Q1)=KEU,LIM1(Q1)=LIM1,LIM2(Q1)=LIM2
 . S R=1 F UZB=1:1 Q:'$D(@UREF@(1,UZB))  S R=R+$L($$S2^cANU202(UZB))+3
 . S R=R>79_D_1 D ^cA345 I K="" D ^cANU210
 . L -@UREF D C^cA612
 I SW D  ; via uitgesteld printen
 . L +@UREF:2 E  Q
 . S KEU(Q1)=PP(1),LIM1(Q1)=PP(2),LIM2(Q1)=PP(3),HFD=PP(4),LAY=PP(5)
 . D ^cANU210 L -@UREF
INTZ Q
 ;
ZZ ; 10.04.00 - 11 u 03 * V7.3