DVBANTFY ;ALB/DJS - FORM 28-8861 REQUEST FOR MEDICAL SERVICES MAILMAN NOTIFICATIONS ;7/2/12 5:09PM
;;2.7;AMIE;**181**;Apr 10, 1995;Build 38
;
Q ;no direct entry
;
ENTER(RETURN,IEN,STAT) ; determine which MailMan message will be sent and to whom based on what the request status is.
;
; Input:
; IEN - internal record number of 8861 request
; STAT - request status
;
Q:(STAT="")!(IEN="")
I STAT="NEW" D RPCIN^DVBAVRX1(IEN,"NEW") ; Send New notification to VHA Coordinator
I STAT="PENDING" D RPCIN^DVBAVRX1(IEN,"PND") ; Send Pending notification to vha Coordinator and VR&E staff
I STAT="CANCELLED" D RPCIN^DVBAVRX1(IEN,"CAN") ; Send Cancelled notification to VHA Coordinator and VR&E staff
S RETURN=1
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBANTFY 750 printed Nov 22, 2024@16:51:37 Page 2
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
+2 ;
+3 ;no direct entry
QUIT
+4 ;
ENTER(RETURN,IEN,STAT) ; determine which MailMan message will be sent and to whom based on what the request status is.
+1 ;
+2 ; Input:
+3 ; IEN - internal record number of 8861 request
+4 ; STAT - request status
+5 ;
+6 if (STAT="")!(IEN="")
QUIT
+7 ; Send New notification to VHA Coordinator
IF STAT="NEW"
DO RPCIN^DVBAVRX1(IEN,"NEW")
+8 ; Send Pending notification to vha Coordinator and VR&E staff
IF STAT="PENDING"
DO RPCIN^DVBAVRX1(IEN,"PND")
+9 ; Send Cancelled notification to VHA Coordinator and VR&E staff
IF STAT="CANCELLED"
DO RPCIN^DVBAVRX1(IEN,"CAN")
+10 SET RETURN=1
+11 QUIT
