cA5002 ;Log-in : versturen memo of E-mail ;%A5002 [ 11/28/97  2:17 PM ]
 ;
T1 ;Systeem;Initialen;Wachtwoord
 ;
T1F ;Système;Initiales;Code d'accès
 ;
T1E ;Systeem;Initialen;Wachtwoord
 ;
YZ Q
 ;
MEMO(S1,S2,IE,S3,S4,SI) 
 ;
 ; in de vorm : D MEMO(.TABEL,INI,...)
 ;                    ---
 ;
 ; S1 = tabel met tekst  : S1(1)="tekst 1",S2(2)="tekst 2"
 ; S2 = initialen 'naar wie' (ini1_D_ini2_D...)
 ; IE = eigen init. : niet ingevuld is "SU"
 ; S3 = vervaldatum (niet ingevuld = DT)
 ; S4 = D_eigen init._D_dd.mm.jj_D_mm:uu_D_$I_D
 ;       niet ingevuld : D__D_DT_D_TD_D_$I_D
 ; SI = vanop welke poort : niet ingevuld = $I
 ;
 D QQM^cQ6:$G(Q)="",^cA604:'$D(F),MASTER^cQ5
 S @%Q1=1
 I $D(^cLOG(0,"MEMO")) N Q S Q=^("MEMO")
 S LOGTAB="^"_Q_"MEMO" I '$D(^LOGTAB(LOGTAB)) S LOGTAB=""
 S S1=$O(S1(""),-1) I 'S1 G MEMOZ
 I '$L($G(IE)) S IE="SU"
 D ^cA105,^cA106
 I '$L($G(S3)) S S3=DT
 I '$L($G(S4)) S S4=D_IE_D_DT_D_$E(TD,1,2)_":"_$E(TD,6,7)_D_$G(SI,$I)_D
 S SR2=S2 F i=1:1:$L(SR2,U) I $L($P(SR2,U,i)) D
 . S S2=$P(SR2,U,i)
 . N i
 . D S5A^cANM2
MEMOZ Q
 ;
EMAIL I '$D(^DMS(Q,"MAIL")) Q
 S AAN=$P(AAN,U),CC=$P(CC,U,2,99)
 D MAIL^cA350("SU",AAN,CC,TEKST(1),"TEKST",Q) 
 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84