cT6425 ;Inkomende documenten ;%T64 ;%T64* ; [ 01/03/01  7:49 PM ]
 G 1
 ;
T0 ;Inkomende fact/creditn ;
T1 ;Omschrijving ventilatie;Oms : ;
 ;
T0F ;Encodage des documents d'entrée ;
T1F ;Explicatif ventilation;Expl. : ;
 ;
T0E ;Registration of incoming documents ;
T1E ;Ventilation description;Des : ;
 ;
S1 Q  ; deze node moet bestaan ivm %T643
 ;
1 S KR=$P(^HULP(boot,$J,0,LN),S,8)
11 S R="KR\22\3\"_$P($T(@("T1"_QT)),U,2)_"\\15\\\\\\\1" D R0 G 11:K[S
13 I K'="-",K'="," S $P(^HULP(boot,$J,0,LN),S,8)=K I $L(K) D
 . W /CUP(LX,27),$P($T(@("T1"_QT)),U,3),K,/WCML
 ;
YZ Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84