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

BPS29PRE.m

Go to the documentation of this file.
  1. BPS29PRE ;AITC/PD - Pre-install for BPS*1.0*29 ;1/4/2021
  1. ;;1.0;E CLAIMS MGMT ENGINE;**29**;JUN 2004;Build 41
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. ; MCCF EDI TAS ePharmacy - BPS*1*29 patch pre-install
  1. Q
  1. ;
  1. PRE ; Pre-install functions are coded here.
  1. ;
  1. D MES^XPDUTL(" Starting pre-install of BPS*1.0*29")
  1. ;
  1. ; Update field .02 in BPS NCPDP REJECT CODES
  1. D REJECTS
  1. ;
  1. D MES^XPDUTL(" Finished pre-install of BPS*1.0*29")
  1. Q
  1. ;
  1. REJECTS ;
  1. ; Update Reject Codes with new explanations
  1. N CNT,DA,DATA,DIE,DR,LINE,NAME,NUM
  1. D MES^XPDUTL(" - Updating BPS NCPDP REJECT CODES")
  1. S CNT=0
  1. F LINE=1:1 S DATA=$P($T(REJECTS1+LINE),";;",2,99) Q:DATA="" D
  1. . S NUM=$P(DATA,";",1)
  1. . S DIE=9002313.93
  1. . S DA=$O(^BPSF(DIE,"B",NUM,""))
  1. . I 'DA Q ; quit if no IEN found for entry
  1. . S CNT=CNT+1
  1. . S NAME=$P(DATA,";",2)
  1. . S DR=".02////^S X=NAME"
  1. . D ^DIE
  1. D MES^XPDUTL(" - "_CNT_" entries updated")
  1. D MES^XPDUTL(" - Done with BPS NCPDP REJECT CODES")
  1. D MES^XPDUTL(" ")
  1. Q
  1. ;
  1. REJECTS1 ; Updated Reject Code explanations
  1. ;;eC;CHAMPVA-NON BILLABLE
  1. ;;eT;TRICARE-NON BILLABLE
  1. ;;
  1. ;