VWNTP1 ;djw
Q ;S ^DIC(8.1,23,0)="EHR PATIENT^R^^6^N^EHR PATIENT^^1"
;S ^DIC(8.1,"B","EHR PATIENT",23)=""
Q