- 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 Feb 18, 2025@23:05:03 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 ;