PRCA298E ; ALB/hrubovcak - ePayments Lockbox environment check ;Sep 29, 2014@17:10:44
;;4.5;Accounts Receivable;**298**;Jan 21, 2014;Build 121
;Per VA Directive 6402, this routine should not be modified.
;
; prerequisite patch check for PRCA*4.5*298
;
D MES^XPDUTL("Checking for prerequisite patches "_$$FMTE^XLFDT($$NOW^XLFDT))
N PRLN,PRMISS,PRPTCH,X,Y
; PRLN - counter
; PRMISS - missing patches
; PRPTCH - patch name
;
F PRLN=1:1 S X=$P($T(PTCHLST+PRLN),";;",2) Q:X="" D
.S PRPTCH=X,Y=$$PATCH^XPDUTL(PRPTCH)
.D MES^XPDUTL(PRPTCH_" "_$S(Y:"",1:"NOT")_" installed") Q:Y
.S PRMISS(PRPTCH)=""
;
; exit if nothing missing
I '$D(PRMISS) D MES^XPDUTL("All prerequisite patches found.") Q
;
S XPDQUIT=1 ; flag to stop installation
;
D MES^XPDUTL("The following must be installed before PRCA*4.5*298:")
S X="" F S X=$O(PRMISS(X)) Q:X="" D MES^XPDUTL(X)
D MES^XPDUTL(" "),MES^XPDUTL("Install aborted "_$$FMTE^XLFDT($$NOW^XLFDT))
;
Q
;
PTCHLST ; required patch list
;;BPS*1.0*11
;;IB*2.0*451
;;IB*2.0*452
;;IB*2.0*488
;;PRCA*4.5*208
;;PRCA*4.5*220
;;PRCA*4.5*222
;;PRCA*4.5*241
;;PRCA*4.5*249
;;PRCA*4.5*253
;;PRCA*4.5*261
;;PRCA*4.5*262
;;PRCA*4.5*269
;;PRCA*4.5*271
;;PRCA*4.5*276
;;PRCA*4.5*283
;;PRCA*4.5*284
;;PRCA*4.5*293
;;PRCA*4.5*296
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCA298E 1337 printed Dec 13, 2024@01:38:39 Page 2
PRCA298E ; ALB/hrubovcak - ePayments Lockbox environment check ;Sep 29, 2014@17:10:44
+1 ;;4.5;Accounts Receivable;**298**;Jan 21, 2014;Build 121
+2 ;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ; prerequisite patch check for PRCA*4.5*298
+5 ;
+6 DO MES^XPDUTL("Checking for prerequisite patches "_$$FMTE^XLFDT($$NOW^XLFDT))
+7 NEW PRLN,PRMISS,PRPTCH,X,Y
+8 ; PRLN - counter
+9 ; PRMISS - missing patches
+10 ; PRPTCH - patch name
+11 ;
+12 FOR PRLN=1:1
SET X=$PIECE($TEXT(PTCHLST+PRLN),";;",2)
if X=""
QUIT
Begin DoDot:1
+13 SET PRPTCH=X
SET Y=$$PATCH^XPDUTL(PRPTCH)
+14 DO MES^XPDUTL(PRPTCH_" "_$SELECT(Y:"",1:"NOT")_" installed")
if Y
QUIT
+15 SET PRMISS(PRPTCH)=""
End DoDot:1
+16 ;
+17 ; exit if nothing missing
+18 IF '$DATA(PRMISS)
DO MES^XPDUTL("All prerequisite patches found.")
QUIT
+19 ;
+20 ; flag to stop installation
SET XPDQUIT=1
+21 ;
+22 DO MES^XPDUTL("The following must be installed before PRCA*4.5*298:")
+23 SET X=""
FOR
SET X=$ORDER(PRMISS(X))
if X=""
QUIT
DO MES^XPDUTL(X)
+24 DO MES^XPDUTL(" ")
DO MES^XPDUTL("Install aborted "_$$FMTE^XLFDT($$NOW^XLFDT))
+25 ;
+26 QUIT
+27 ;
PTCHLST ; required patch list
+1 ;;BPS*1.0*11
+2 ;;IB*2.0*451
+3 ;;IB*2.0*452
+4 ;;IB*2.0*488
+5 ;;PRCA*4.5*208
+6 ;;PRCA*4.5*220
+7 ;;PRCA*4.5*222
+8 ;;PRCA*4.5*241
+9 ;;PRCA*4.5*249
+10 ;;PRCA*4.5*253
+11 ;;PRCA*4.5*261
+12 ;;PRCA*4.5*262
+13 ;;PRCA*4.5*269
+14 ;;PRCA*4.5*271
+15 ;;PRCA*4.5*276
+16 ;;PRCA*4.5*283
+17 ;;PRCA*4.5*284
+18 ;;PRCA*4.5*293
+19 ;;PRCA*4.5*296
+20 ;
