cA336 ;Selectie journaalnummer ;%A336 ;do uit ... ; [ 01/03/01 4:24 PM ] ; ; Input : R="outputvar\journaalsoort\beginlijn*100\alle selecteerbaar\eindlijn*100\extra tekst\bg selecteerbaar" ; Intern: alle R en S variabelen ; Output: outputvar. ; T0 ;Selectie journaalnummer ; T1 ;Journaalnummer; is onbekend ; is buiten gebruik ; T2 ;-[] = einde programma 0[] = algemeen xxx[] = bepaald journaal; T3 ;D[] = detail (overz.); .[] = alle journalen ; [] = vervolg; ; T0F ;Sélection du journal ; T1F ;Numéro du journal; est inconnu ; est dehors service ; T2F ;-[] = fin du programme 0[] = général xxx[] = journal spécifique; T3F ;D[] = détail (aperçu); .[] = tous les journaux; [] = suite; ; T0E ;Selection journals ; T1E ;Journal; is unknown ; is out of use ; T2E ;-[] = end program 0[] = general xxx[] = particular journal; T3E ;D[] = detail (summary); .[] = all journals ; [] = next; ; 1 S S1=$P(R,D),(S2,SB)=$P(R,D,2),S3=$P(R,D,3)+1,S4=$P(R,D,4),SD=0,S5=$P(R,D,5) I 'S5 S S5=2100+F60 10 S S6=$P(R,D,6),S7=$P(R,D,7) I $L(S6),$E(S6)'=" " S S6=" "_S6 11 S (SA,SC)=0 D S1 13 S SB=$O(@("^"_Q_"BA(""%T"",SB)")) I $E(SB)'=S2 G 2:SC!SD S K=0 G Y 14 I $P(^(SB),D,3),'S7 G 13 15 W @F,$J(+$E(SB,2,4),5),". ",$E($P(^(SB),D,2)_$J("",5),1,5),$P(^(SB),D) S FP=FP+100,SC=SC+1 I FP