cwAssenti
 Quit
 ;
ChaeckAssenti
 ;Do INIT^vhPRINTER()
 Do  ;:$D(Print)
 . Set PRNr=0
 . For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 . . Set R=^KPR(PRNr,0),KortTekst=$P(R,D)
 . . Quit:$E(KortTekst,1,5)'="TB8SI"
 . . Set R=^KPR(PRNr,5),Bodem=$P(R,D,3)
 . . Set R=$G(^PRBS("BS",PRNr,"PRBDHZ.001")),BSPRNr=$P(R,D)
 . . Set R=^KPR(BSPRNr,0),BSKortTekst=$P(R,D)
 . . Set Error=""
 . . If KortTekst["ML",$E(BSKortTekst,8)'="L" Set Error="<---"
 . . If KortTekst["MM",$E(BSKortTekst,8)'="M" Set Error="<---"
 . . If KortTekst["MR",$E(BSKortTekst,8)'="R" Set Error="<---"
 . . Write !,PRNr,?7,"| ",KortTekst,?35,"| ",Bodem,?48,"| ",BSPRNr,?57,"| ",BSKortTekst,?90,Error
 . ;Write #,#
 . ;Do CLOSE^vhPRINTER
 Quit
 ;