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

EASBTBUL.m

Go to the documentation of this file.
  1. EASBTBUL ;ALB/DHS,LMD - Beneficiary Travel Bulletin - Create and Send ;10/30/2014 8:43am
  1. ;;1.0;ENROLLMENT APPLICATION SYSTEM;**113**;OCT 31, 2014;Build 53
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. ; EAS*1*113 Send Bulletin if BTFI is different than what is on file
  1. ;
  1. ; this routine will send the Beneficiary Travel Bulletin for the specified conditions:
  1. ; When a converted/reversal Rx Copay Test is received from IVM, a check will be done to
  1. ; see if the new copay exemption status is different than the old copay exemption status.
  1. ; If the status has changed, Beneficiary Travel Eligible indicator a bulletin will be sent
  1. ; to the BT CLAIMS PROCESSING mail group.
  1. ;
  1. ; This routine is called from EASPREC6 and EASPREC7 at the end of ORU-Z06 processing ;EASPREC6
  1. ;
  1. SET(DFN,DT,DGCAT,IVMCEB,IVM10) ; Create and Send BT Bulletin
  1. ;
  1. ; Input:
  1. ; DFN = IEN of Patient
  1. ; DT = Today's Date
  1. ; DGCAT = Current Means Test Status
  1. ; IVMCEB = Previous Means Test Status
  1. ; IVM10 = Date/Time Test Completed
  1. ;
  1. N IFN,DATA,SSN,X
  1. ;
  1. ;SSN
  1. I $D(^DPT(DFN,.36)) S X=^DPT(DFN,.36) I +X S SSN=$P(X,"^",4)
  1. I SSN="" S X=$P(^DPT(DFN,0),"^",9) I X]"" S SSN=$E(X,6,10)
  1. ;
  1. ; External Reference to ^DGBT(392.2 supported by DBIA #6015 ;DS THIS FILE DATA DOESNT EXIST
  1. S IFN=$$FIND1^DIC(392.2,"","MXQ",DFN,"","","ERR")
  1. ; Check if Beneficiary Travel Date Certified is within the last year
  1. ;I $$GET1^DIQ(392.2,IFN,"DATE CERTIFIED","I")<($P(DT,".",1)-10000) Q
  1. ;
  1. ; Input raw data into DATA array to set variables in Bulletin
  1. ;
  1. ; Patient DFN number
  1. S DATA(10)=DFN
  1. ; Patient Name
  1. S DATA(1)=$$GET1^DIQ(2,DFN,"NAME","I")
  1. ; Last 4 of SSN
  1. S DATA(2)=SSN
  1. ; Patient VPID
  1. S DATA(3)=$$GETICN^MPIF001(DFN)
  1. ; Patient IEN
  1. S DATA(4)=DFN
  1. ; Station Number
  1. S DATA(5)=$P($$SITE^VASITE(),"^",3)
  1. ; Previous Category
  1. S DATA(6)=IVMCEB
  1. ; New Category
  1. S DATA(7)=DGCAT
  1. ; Date of Test
  1. S Y=$P(IVM10,".") X ^DD("DD")
  1. S DATA(8)=Y
  1. ; Converted Income Year
  1. S Y=$$LYR^DGMTSCU1(IVM10) X ^DD("DD")
  1. S DATA(9)=Y
  1. ;
  1. D SENDBUL
  1. ;
  1. Q
  1. ;
  1. KILL ; Remove RX Bulletin - Not used at this time
  1. ;
  1. ; This is a placeholder should it be found in the future that any data from the SET
  1. ; needs cleaned up.
  1. ;
  1. Q
  1. ;
  1. SENDBUL ; transmit bulletin
  1. ;
  1. ; Protect Fileman from Mailman call
  1. N DIC,DIX,DIY,DO,DD,DFN,VSITE,XMINSTR
  1. N DICRREC,DIDATA,DIEFAR,DIEFCNOD,DIEFDAS,DIEFECNT,DIEFF,DIEFFLAG
  1. N DIEFFLD,DIEFFLST,DIEFFREF,DIEFFVAL,DIEFFXR,DIEFI,DIEFIEN,DIEFLEV
  1. N DIEFNODE,DIEFNVAL,DIEFOUT,DIEFOVAL,DIEFRFLD,DIEFRLST,DIEFSORK
  1. N DIEFSPOT,DIEFTMP,DIEFTREF,DIFLD,DIFM,DIQUIET,DISYS,D,D0,DA
  1. ;
  1. ; Set From Line of Email
  1. S XMINSTR("FROM")=.5
  1. ;
  1. ; Send email
  1. ;D SENDBULL^XMXAPI(DUZ,"RX COPAY TEST",.DATA,,,.XMINSTR)
  1. D SENDBULL^XMXAPI(DUZ,"EAS BT CLAIMS PROCESSING",.DATA,,,.XMINSTR) ;EAS BT CLAIMS PROCESSING
  1. ;
  1. ;
  1. Q
  1. ;