- 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 Feb 18, 2025@23:07:48 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