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