DVBANTFY.m

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 ---DVBANTFY   750     printed  Apr 09, 2024@20:54:26                                                                                                                                                                                                     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