Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DVBANTFY

DVBANTFY.m

Go to the documentation of this file.
  1. DVBANTFY ;ALB/DJS - FORM 28-8861 REQUEST FOR MEDICAL SERVICES MAILMAN NOTIFICATIONS ;7/2/12 5:09PM
  1. ;;2.7;AMIE;**181**;Apr 10, 1995;Build 38
  1. ;
  1. Q ;no direct entry
  1. ;
  1. ENTER(RETURN,IEN,STAT) ; determine which MailMan message will be sent and to whom based on what the request status is.
  1. ;
  1. ; Input:
  1. ; IEN - internal record number of 8861 request
  1. ; STAT - request status
  1. ;
  1. Q:(STAT="")!(IEN="")
  1. I STAT="NEW" D RPCIN^DVBAVRX1(IEN,"NEW") ; Send New notification to VHA Coordinator
  1. I STAT="PENDING" D RPCIN^DVBAVRX1(IEN,"PND") ; Send Pending notification to vha Coordinator and VR&E staff
  1. I STAT="CANCELLED" D RPCIN^DVBAVRX1(IEN,"CAN") ; Send Cancelled notification to VHA Coordinator and VR&E staff
  1. S RETURN=1
  1. Q