cA344 ;OVERZICHT DOMICILIERINGEN ;%A344 ; [ 08/30/94  1:36 PM ]
 G 1
 ;
T0 ;Overzicht domiciliëringen ;
T1 ;Overzicht;domicilieringen;
T2 ;Rek.nr.: ;id.nr. : ;ins.nr. : ;
T3 ; nr.\ dom.nummer\bedrag ;1\ mededeling-1\ mededeling-2\ referte;
 ;
T0F ;Aperçu domiciliations ;
T1F ;Apercu;domiciliations;
T2F ;Compte : ;no.id. : ;no.ins. : ;
T3F ; No.\ N° DOMICIL\MONTANT ;1\ MESSAGE-1\MESSAGE-2\ REFERTE;
 ;
T0E ;Overzicht domiciliëringen ;
T1E ;Overzicht;domicilieringen;
T2E ;Rek.nr.: ;id.nr. : ;ins.nr. : ;
T3E ; nr.\ dom.nummer\bedrag ;1\ mededeling-1\ mededeling-2\ referte;
 ;
1 S HD(1)=D_$P($T(@("T1"_QT)),U,2)_";C;F82",HD(2)=D_$P($T(@("T1"_QT)),U,3)_";C;F82",HD(3)=D,K=BNR X "S K="_^BA(6,"B",2)
11 S TOP(1,1)=$P($T(@("T2"_QT)),U,2)_K,TOP(1,2)=$P($T(@("T2"_QT)),U,3)_IDE_";30",TOP(1,3)=$P($T(@("T2"_QT)),U,4)_INS_";60"
13 S TIT(1)=$P($T(@("T3"_QT)),U,2,999),TAB="5\22\32\48\64\79" K AFS
 ;
2 S TVG=0,OMV=^BA(6,"B",2)
21 S TVG=$O(^HULP("TR",Q,TNR,TVG)) I TVG="" S END=1 D ^cA334 G YZ
23 S R=^(TVG) I $E(R)'=1 G 21
 ;
3 S TXT(1)=+$E(R,2,5)_"\1"
31 S TXT(2)=$E(R,6,17)_"\\1\\\\"_OMV
33 S TXT(3)=$E(R,19,30)_"\1\\\1\\\1"
35 S TXT(4)=$E(R,57,71),TXT(5)=$E(R,72,86)
37 S TXT(6)=$E(R,87,98)_"\\\\\\"_OMV
39 D ^cA334 G 21
 ;
YZ K HD,TOP,TIT,TXT,TAB,AFS Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84