PVMAIL ;NEW PROGRAM [ 05/02/2003  2:53 PM ]
 Quit
DELPV 
 Do DELALL(17,"IR")
 Do DELALL(17,"IN")
 Quit
DELALL(User,Node) 
 Set MailId=""
 For  Set MailId=$O(^vhMAIL(Node,User,MailId)) Quit:MailId=""  Do
 .Do DELOBJ^vhMAIL(MailId)
 Quit