BLKALL2 Q  ;Hoofding afdrukken voor BLUM print programmas [ 06/25/2002  11:09 AM ]
 ; Parameters
 ;   HD(1)= HoofdTitel
 ;   HD(2)= Subtitel 1
 ;   HD(3)= Subtitel 2
 ;   HD(4)= Pagina Nummer ; Ledig -> eerste keer
 ;   HD(5)= Datum
 ;   HD(6)= Uur
Header 
 If '$D(HD(4)) Set HD(4)=1,HD(5)=DT,HD(6)=TD
 Else  Set HD(4)=HD(4)+1
 Set:'$D(HD(2)) HD(2)=""
 Set:'$D(HD(3)) HD(3)=""
 Set:'$D(NM2) NM2=^KBA(99,2)
 Set:'$D(NM3) NM3=^(3)
 Write !,QN,?124,"Blz: ",$J(HD(4),3),!,NM2,$C(13),?66-$L(HD(1)),@F82,HD(1),@F83,$C(13),?124,HD(5),!,NM3,?66-($L(HD(2))/2),HD(2),?125,HD(6),!
 Q