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

PRCA298E.m

Go to the documentation of this file.
  1. PRCA298E ; ALB/hrubovcak - ePayments Lockbox environment check ;Sep 29, 2014@17:10:44
  1. ;;4.5;Accounts Receivable;**298**;Jan 21, 2014;Build 121
  1. ;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. ; prerequisite patch check for PRCA*4.5*298
  1. ;
  1. D MES^XPDUTL("Checking for prerequisite patches "_$$FMTE^XLFDT($$NOW^XLFDT))
  1. N PRLN,PRMISS,PRPTCH,X,Y
  1. ; PRLN - counter
  1. ; PRMISS - missing patches
  1. ; PRPTCH - patch name
  1. ;
  1. F PRLN=1:1 S X=$P($T(PTCHLST+PRLN),";;",2) Q:X="" D
  1. .S PRPTCH=X,Y=$$PATCH^XPDUTL(PRPTCH)
  1. .D MES^XPDUTL(PRPTCH_" "_$S(Y:"",1:"NOT")_" installed") Q:Y
  1. .S PRMISS(PRPTCH)=""
  1. ;
  1. ; exit if nothing missing
  1. I '$D(PRMISS) D MES^XPDUTL("All prerequisite patches found.") Q
  1. ;
  1. S XPDQUIT=1 ; flag to stop installation
  1. ;
  1. D MES^XPDUTL("The following must be installed before PRCA*4.5*298:")
  1. S X="" F S X=$O(PRMISS(X)) Q:X="" D MES^XPDUTL(X)
  1. D MES^XPDUTL(" "),MES^XPDUTL("Install aborted "_$$FMTE^XLFDT($$NOW^XLFDT))
  1. ;
  1. Q
  1. ;
  1. PTCHLST ; required patch list
  1. ;;BPS*1.0*11
  1. ;;IB*2.0*451
  1. ;;IB*2.0*452
  1. ;;IB*2.0*488
  1. ;;PRCA*4.5*208
  1. ;;PRCA*4.5*220
  1. ;;PRCA*4.5*222
  1. ;;PRCA*4.5*241
  1. ;;PRCA*4.5*249
  1. ;;PRCA*4.5*253
  1. ;;PRCA*4.5*261
  1. ;;PRCA*4.5*262
  1. ;;PRCA*4.5*269
  1. ;;PRCA*4.5*271
  1. ;;PRCA*4.5*276
  1. ;;PRCA*4.5*283
  1. ;;PRCA*4.5*284
  1. ;;PRCA*4.5*293
  1. ;;PRCA*4.5*296
  1. ;