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

RCP436.m

Go to the documentation of this file.
  1. RCP436 ;AITC/CJE - Patch PRCA*4.5*436 Post Installation Processing ;20 Feb 2020 14:00:00
  1. ;;4.5;Accounts Receivable;**436**;Feb 20, 2020;Build 3
  1. ;Per VA Directive 6402, this routine should not be modified.
  1. Q
  1. ;
  1. POST ;
  1. D RECPTYPE ; Add OGC-EFT receipt type
  1. D BMES^XPDUTL("PRCA*4.5*436 post-installation finished "_$$HTE^XLFDT($H))
  1. Q
  1. ;
  1. RECPTYPE ; Add new receipt type OGC-CHK and remove OGC-EFT from IOC sites
  1. N ERROR,RCFDA,RCIEN,RCIENS,RCJ
  1. ;
  1. I '$D(^RC(341.1,"B","OGC-EFT")) D ; Check if already added
  1. . S RCIENS(1)=18
  1. . D BMES^XPDUTL("Adding new entry 'OGC-EFT' to AR Event Type file.")
  1. . S RCFDA(341.1,"+1,",.01)="OGC-EFT"
  1. . S RCFDA(341.1,"+1,",.02)=18
  1. . S RCFDA(341.1,"+1,",.06)=1
  1. . D UPDATE^DIE(,"RCFDA","RCIENS")
  1. ;
  1. ; Check integrity of the 341.1 file.
  1. S ERROR=0
  1. D VERIFY^PRCABJ
  1. I ERROR D ;
  1. . D BMES^XPDUTL("**Error verifying AR reference files**")
  1. . S RCJ=""
  1. . F S RCJ=$O(ERROR(RCJ)) Q:'RCJ D ;
  1. . . D BMES^XPDUTL(ERROR(RCJ))
  1. I 'ERROR D ;
  1. . D BMES^XPDUTL("AR reference files verified.")
  1. Q